(loop(princ(mod-expt(read)(read)10))(terpri))