#!../k
\l l.k
wee m10 add[big 1]mul[big 28433]pow[{m10 mul[x;y]};big 2]7830457 /28433*(2^7830457)+1 mod 10^10