Listing 1. Fibonacci calculator

(define (fib x)
   (if (< x 2)
          x
            (+ (fib (- x 1)) (fib (- x 2)))))