import Data.Maybe
import qualified Data.Time as T
data Date = D { year :: Int
              , month :: Int
              , day :: Int
              }

normalDays = zip [1..12] [31,28,31,30,31,30,31,31,30,31,30,31]
leapDays = zip [1..12] [31,29,31,30,31,30,31,31,30,31,30,31]

isLeap :: Int -> Bool
isLeap y
    | y `mod` 4 == 0 && y `mod` 100 == 0 && y `mod` 400 = True
    | y `mod` 4 == 0 && y `mod` 100 == 0 = False
    | y `mod` 4 == 0 = True
    | otherwise = False

main = do
    putStrLn "test"

