#|

(include-book "m1-lemmas")

|#

(in-package "M1")

; The exponential function is

(defun exp (a b)
  (if (zp b)
      1
    (* a (exp a (- b 1)))))

; Problem 6-1: Fill in the blank below with an M1 program that halts with (exp
; a b) on the stack, provided a is local 0 and b is local 1.  You may assume a
; and b are natural numbers.

(defconst *exp-program*
  ...)

; Problem 6-2: Prove *exp-program* correct.