sub f{my$m=$t=$p;$i=2;0while$t%$i?$p-=$t%($i=$i*$i<$t?$i+1:$t)?0:$p/$i:($t/=$i)-1;bmodpow{use bigint;0+$a}0+$p+(--$n?&f:$a),$m}map{($a,$m,$b)=glob;0while-$u+($u=f$p=$m,$n=++$b);print"$b $u
"}<>