module Main where

import Data.Time.Calendar

main :: IO ()
main = print $ length $ filter p [fromGregorian 2015 1 1 .. fromGregorian 2015 12 31]
  where
    p         = q . toGregorian
    q (_,m,d) = m == uncurry (+) (divMod d 10)