BlondPiercingTechnician created by theRemix - https://repl.it/@theRemix/BlondPiercingTechnician

BlondPiercingTechnician.clj

(let [base 3,
      exp 3]
  (do
    (defn multiply [x, y]
      (* x y))
    (defn exponent
      ([base pow] (exponent base base (dec pow)))
      ([acc base pow] (cond
                        (> pow 0) (exponent (multiply acc base) base (dec pow))
                        :else acc)))
    (exponent base exp)))