import Data.List
import Data.List
import Data.Time.Calendar
import Data.Time.LocalTime
import Data.Time.Format
main = do
       e<-getLine
       let yyyy=read(take 4 e)::Integer
           mm=read(take 2 ( drop 5  e))::Int
           dd=read(take 2 (drop 8 e))::Int
           ans=addDays 2 $ fromGregorian yyyy mm dd
       putStrLn $ formatTime defaultTimeLocale "%Y/%m/%d" ans