(defun fib-loop (n)
  (cons 1
    (loop with a = 0 and b = 1
          repeat n
          do (psetf a b b (+ a b))
          collect b)))