my $denom = $ARGV[1];
my $result = "N";
for(my $ex = 0; $ex < log($denom)+1; $ex++){
    my $power = $denom/5**$ex;
    my $ex2 = log($power)/log(2);
    if($ex2 = int($ex2)){
        $result = "Y";
    }
}
print $result;
print "\n";