(defn ** [x n] (reduce * (repeat n x)))