;; Compute a power
(defun power (a b)
  (if (= b 1)
      a
    (* a (power a (1- b)))))