main = interact $ unlines . map(f.read) . words
f n| mod n 400<1 = show n++" is a leap year."
   | mod n 100<1 = show n++" is not a leap year."
   | mod n 4<1   = show n++" is a leap year."
   | otherwise   = show n++" is not a leap year."