scheme-test-programs/numbers/t-modular-exp.scm

;; import numbers/modular-exp.scm

(print (modular-exp 2 18 255))
(print (modular-exp 13 1666 3333))

;; ? Mod(2,255)^18
;; %1 = Mod(4, 255)
;; ? Mod(13,3333)^1666
;; %2 = Mod(3067, 3333)