import Control.Applicative ((<$>))
import Data.Time.Calendar (toGregorian, fromGregorian, addDays)
import Data.List (intercalate)
import Data.List.Split (splitOn)
import Text.Printf

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve s = printf "%d/%02d/%02d" y' m' d'
  where [y, m, d] = map read $ splitOn "/" s
        (y', m', d') = toGregorian . addDays 2 $ fromGregorian (fromIntegral y) m d