RosettaCodeData/Task/Factorial/Common-Lisp/factorial-5.lisp

;; Project : Factorial

(defun factorial (n)
          (cond ((= n 1) 1)
          (t (* n (factorial (- n 1))))))
(format t "~a" "factorial of 8: ")
(factorial 8)