

split _ [] = []
split c xs = if s==[] then [f] else f : (split c (tail s))
  where
    l = break (==c) xs
    f = fst l
    s = snd l

main = do
  (y:m:d:_) <- getLine >>= return . split '/'
  putStrLn $ "2018/" ++ m ++ "/" ++ d
