(define (fib n)
  (let loop ([ls '(1 1)] [count 1])
    (if (= n count) (car ls)
        (loop (list (+ (car ls) (cadr ls)) (car ls)) (+ 1 count)))))