main :: IO ()
main = do
  s <- getLine
  putStrLn (modify s)

modify :: String -> String
modify ('2': '0': '1': '7': '/': '0': '1': '/': ss) 
     = ('2': '0': '1': '8': '/': '0': '1': '/': ss)
modify s = s