(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#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page