フィボナッチ数列

fib.lisp

(defun fib (count)
  (defun fib-it (a b i count)
    (format t "~a~%" a)
    (if (< i count)
      (fib-it b (+ a b) (incf i) count)))
  (fib-it 0 1 0 count))

(fib 100)