(defun factorial (n)
  (if (zerop n)
      1
      (* n (factorial (1- n)))))

(defun test-factorial ()
  (print (factorial 5))
  (terpri))