chomp(@input=<>);foreach$i(@input){print"$i is ";if(($i%100!=0 || $i%400!=0)&&($i%100==0 || $i%4!=0)){print"not ";}print"a leap year.\n";}