main::IO()
main = do
  let dayNumS = [31,28,31,30,31,30,31,31,30,31,30,31]
  print . sum $ [length . filter (==m) . map (\x->x `div` 10 + x `mod` 10) $ [1..d] 
           |(m,d)<-zip [1..12] dayNumS]