1(define (fib n)
2  (let lp ((n n) (a 1) (b 1))
3    (if (< n 2)
4        a
5        (lp (- n 1) (+ a b) a))))
6