(while(= b(read)e(read)m(read)r 1)(while:>(= r(if odd.e(mod(* r b)m)r)b(mod(* b b)m)e(trunc:/ e 2))0)prn.r)