(loop(format t"~A
"(mod-expt #1=(read)#1##1#)))