z=#read
#(while(format #t"~y"(modulo-expt(z)(z)(z))))