program mn;

uses crt;

var i:integer;

s:string;

BEGIN

ClrScr;

Write('S:');readln(s);

i:=2;

While i

begin

if s[i-1]+s[i]='li'

then begin

s[i-1]:='l';

s[i]:='e';

end;

inc(i,2);

end;

writeln(s);

readln;

END.