(while(print((rec(f x e m)(let1 r modulo(if(= e 1)x(r(*(f(r(* x x)m)(quotient e 2)m)(if(odd? e)x 1))m))))#0=(read)#0##0#)))