LISP Program to Find Factorial of a Number

DEFUN FACTO(N)
(COND((ZEROP N)1)
(T(*N(FACTORIAL(1-N))))))