;;; -*- Mode:LISP -*-

(defun fac (x)
  (cond ((= x 1) 1)
	(t (* x (fac (1- x))))))