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