(defun fib (x)
   (cond
     ( (= x 1) 1)
     ( (= x 2 )  1)
     (t (+ (fib  (- x 1)) (fib (- x 2) ) )
     )
   )
)