import Data.Time.Calendar

main :: IO ()
main = do
  print solve

solve :: Int
solve = length $ filter f ls
  where
    ls = map toGregorian [fromGregorian 2015 1 1 .. fromGregorian 2015 12 31]
    f (_, m, d) = m == let (t, o) = divMod d 10 in t + o