var
  i: integer;
  st: string;
begin
  readln(st);
   for i:=1 to length(st) do
    if copy(st, i, 3)='про' then
     begin
      st[i]:='н';
      st[i+1]:='е';
      st[i+2]:='т';
     end;
  writeln(st);
end.