(def! fact
  (fn* (n)
    (if (<= n 1)
      1
      (* n (fact (- n 1))))))

(prn (fact 5))
(prn (fact 10))