(load-option 'format)

(define (power b e)
  (if (zero? e)
    1
    (* (power b (- e 1)) b)
  )
)

(format #t "Please input base: ")
(define b (read))
(format #t "Please input exp: ")
(define e (read))

(format #t "power(~s, ~s) = ~s~%" b e (power b e))