import Data.List

f::String->String
f []=""
f xs
  |length(xs)>=7 && (take 7 xs)=="treeone"="forest"++f (drop 7 xs)
  |otherwise=(head xs) : f (tail xs)

main = do
       e<-getLine
       putStrLn $ f e