{-# LANGUAGE OverloadedStrings #-}
import Data.ByteString.Char8 as BC
import Prelude hiding (getContents, lines, drop, putStrLn)
import Data.Monoid

main = getContents >>= mapM_ (putStrLn . ("2018" <>) . drop 4) . lines