transcendental-lisp/lisp/fact.lisp

(defun fact (x)
  (if (< x 2) 1
    (* x (fact (- x 1)))
  )
)