program z;

var
        a,b : char;
        fl : boolean;
begin
        fl := FALSE;
        read(a,b);
        if b = '.' then write(a)
        else
                begin
                        if not((a = 'p') and (b = 'h')) then write(a);

                        while ((a <> '.') and (b <> '.')) do
                                begin
                                        if (a = 'p') and (b = 'h') then
                                                begin
                                                        write('f');
                                                        read(b);
                                                        fl:=TRUE;
                                                end
                                        else
                                                write(b);
                                        a:=b;
                                        read(b);
                                        if (fl = TRUE) then
                                                begin
                                                        if (b = '.') then
                                                                write(a);
                                                        fl := FALSE;
                                                end;
                                end;
                        writeln;
                end;
end.