(defn square [x]
  (* x x))

(defn it-fast-expt [b n]
  (iter 1 b n))

(defn iter [a b n]
  (cond (= n 0) a
        (even? n) (iter a (square b) (/ n 2))
  :else (iter (* a b) b (- n 1))))