AtCoder Regular Contest #2 Task A

gistfile1.hs

main = do
	cs <- getContents
	putStrLn $ leapYear $ read cs
	where
		leapYear :: Int -> String
		leapYear year | year `mod` 400 == 0 = "YES"
		              | year `mod` 100 == 0 = "NO"
		              | year `mod` 4   == 0 = "YES"
		              | otherwise           = "NO"