Select Code to Download

print"N",(map{"\rY"if(unpack"b52",pack"d",$=/5**$_)<1}0..log($==pop)),
+$/

my $denom = $ARGV[1];
my $result = "N";
...
}
print $result;
print "\n";