(define (fast-exp b n)
(define (fast-exp-iter n-prime a)
(cond ((= n-prime 1) a)
((= (remainder n-prime 2) 1) (fast-exp-iter (- n-prime 1) (* a b)))
(else (fast-exp-iter (/ n-prime 2) (* a b b)))))
(fast-exp-iter n 1))
(write (fast-exp 2 10))
KGRlZmluZSAoZmFzdC1leHAgYiBuKQogIChkZWZpbmUgKGZhc3QtZXhwLWl0ZXIgbi1wcmltZSBhKQogICAgKGNvbmQgKCg9IG4tcHJpbWUgMSkgYSkKICAgICAgICAgICgoPSAocmVtYWluZGVyIG4tcHJpbWUgMikgMSkgKGZhc3QtZXhwLWl0ZXIgKC0gbi1wcmltZSAxKSAoKiBhIGIpKSkKICAgICAgICAgIChlbHNlIChmYXN0LWV4cC1pdGVyICgvIG4tcHJpbWUgMikgKCogYSBiIGIpKSkpKQogIChmYXN0LWV4cC1pdGVyIG4gMSkpCgood3JpdGUgKGZhc3QtZXhwIDIgMTApKQ==