;;; factorial.scm
;;; Created by Robert R. Snapp, (C) 2004

;; factorial computes n! = n (n-1) (n-2) *** 3*2*1

(define factorial
  (lambda (n)
    (if (= n 0)
        1
        (* n (factorial (- n 1))))))

(define ! factorial)