(define (fib n)
(let _fib ((a 1) (b 1) (n n))
		(if
		(<= n 1) a
		(_fib b (+ a b) (1- n)))))