RosettaCodeData/Task/Exponentiation-operator/Common-Lisp/exponentiation-operator-1.lisp

(defun my-expt-do (a b)
  (do ((x 1 (* x a))
       (y 0 (+ y 1)))
      ((= y b) x)))