use strict;
use warnings;

my $str = <STDIN>;

$str =~ s/treeone/forest/g;

print $str;