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

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