列表 1. 斐波那契计算器

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