main = print $ sum $ zipWith (\m d -> length $ filter (\x -> uncurry (+) (divMod x 10) == m) [1..d]) [1..12] [31,28,31,30,31,30,31,31,30,31,30,31]