列表 2. 阶乘程序

(define (fact x)
  (if (< x 2)
        1
         (* x (fact (- x 1)))))