(defun factorial (n)
	(if (<= n 1)
	1
	(* n (factorial (- n 1)))))

(format t "Factorial of 5 is ~D" (factorial 5))