1 2 3 4 5 6 7 8 9 10 11 12
define (fib n) { if (< n 2) { get 1 } { define f1 (fib (- n 1)) define f2 (fib (- n 2)) + f1 f2 } } display (fib 42) newline