while(<>){chop;print$_," is ",$_%4?"not ":$_%100?"":$_%400?"not ":"","a leap year.\n";}