import Data.Time

happyday day = m==d`mod`10+d`div`10
  where (y,m,d) = toGregorian day

main =
  print $ length $ filter happyday [fromGregorian 2015 1 1 .. fromGregorian 2015 12 31]