my $n = 534587;
print "even\n" if($n % 2 == 0);