main :: IO ()
main = do
  ss <- words <$> getLine
  putStrLn $ solve ss

solve :: [String] -> String
solve ss = "8/" ++ show (31 + sum [1 | x <- ss, x == "Sat" || x == "Sun"])