import Control.Monad
import Control.Applicative
import Data.List

main = do
  ss <- words <$> getLine
  putStrLn $ solve ss

solve :: [String] -> String
solve ss = intercalate " " $ map f ss
  where
    f ('p':'e':'a':'c':'h':ss) = "apple" ++ ss
    f ('a':'p':'p':'l':'e':ss) = "peach" ++ ss
    f s = s
      