;;; -*-LISP-*-
(defun fac (n)
  (if (= n 0)
      1
      (* n (fac (1- n)))))