(define fib
(lambda (n)
(let ((fib0 (lambda (n a b)
(match n (0 a)
(1 b)
(_ (fib0 (- n 1) b (+ a b)))))))
(fib0 n 0 1))))
(= (fib 10) 55)