use feature say; for(1..<>){ use bigint; ($a,$b,$c)=map$_+0,glob<>; $e=1; $z=0; for(reverse 0..132){ $e*=$e; $z*=2; if($b&1<<$_){ $e*=$a; } while($e%$c==0){ $e/=$c; $z+=1; } $e=$e->bgcd($c); } $z%=998244353; say$z; }