import Control.Applicative
import Data.List (intercalate)
import Data.List.Split (splitOn)

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve = intercalate "forest" . splitOn "treeone"