(use srfi-19)
(print
  (date->string
    (time-utc->date
      (add-duration
        (date->time-utc
          (string->date (read-line) "~Y~m~d"))
        (make-time time-duration 0 (* 60 60 24 2)))) "~Y/~m/~d"))