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.
begin
if s[i-1]+s[i]='li'
then begin
s[i-1]:='l';
s[i]:='e';
end;
inc(i,2);
writeln(s);
readln;
END.