(defn fact [n] (reduce *' (range 1 (inc n))))
(println (map fact (range 100)))