# Example: Compute Fibonacci numbers (define otherwise true) # Convenience constant. (function fib (n) (cond ((= n 0) 0) # fib(0) = 0 ((= n 1) 1) # fib(1) = 1 # fib(n) = fib(n - 1) + fib(n - 2) (otherwise (+ (fib (- n 1)) (fib (- n 2)))) ) ) (define n 10) (write "The " n "th Fibonacci number is " (fib 10))