(defn h ( [n] (cond (= n 1) + :else ( fn ( [ & x] ( reduce ( fn ([a,b] ( reduce ( f (- n 1) ) (repeat b a) ) ) ) x ) ) ) )))