{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as T
import qualified Data.Text.IO as T

replaceAP :: T.Text -> T.Text
replaceAP = (T.replace "xxxxx" "peach") . (T.replace "peach" "apple") . (T.replace "apple" "xxxxx")

main :: IO ()
main = T.putStrLn . replaceAP =<< T.getLine