(defn fact (x) (if (> x 1) (* x (fact (- x 1))) 1)) (fact 5)