这是递归
(def f (fn fb [x] (if (< x 2) 1 (* x (fb (- x 1)) ) ) ) )
(def f (fn fb [x y] (if (= x 1) y (fb (- x 1) (* x y)) ) ) )