# Pastebin JUePI4NG
(defn- factorial 
  ([n] (factorial 1 n))
  ([acc n]
   {:pre [(integer? n) (not (neg? n))]}
   (if (zero? acc) acc (recur (*' acc n) (dec n)))))