1 2 3 4 5 6 7 8 9
(defun fib (n) (if (<= n 2) 1 (+ (fib (- n 1)) (fib (- n 2))))) (let* ((tgt 30) (res (fib tgt))) (print (format "\n (fib %d)\n %d\n" tgt res)))