#!ruby -parprime -ropenssl
eval'f=->x,m{M.prime_division.map{|n,|M-=M/n}
%s.to_bn.mod_exp x<1?1:M+f[x-1,M],m}
i=1
$_="#{i+=1} #$j
"while$j!=$j=f[i,M=%s]'%$F