;;AUTOLOAD: fact
;;AUTODOC: fact "factorial function"
;;(fact n)
;;
;; Returns the product of the first n integers.
;; e.g:
;;    (fact 10)    ==> 3628800

(defun fact (n) (if (= 0 n) 1 (* n (fact (- n 1)))))
