(define mod-expt
       (lambda (base exponent modulus)

         (define mod*
           (lambda (x y)
             (remainder (* x y) modulus)))

         (if (= exponent 0)
             __________________________   ; What is anything raised to zero?
             (mod*  __________________
                    __________________ ))))