<Problem>
http://ntucoder.net/Problem/Details/5527
USES CRT;
var st,s:string;
i,x:longint;
begin
readln(s);
st:='hello';
for i:=1 to length(s) do
if s[i]=st[1] then delete(st,1,1);
if st='' then writeln('YES') else writeln('NO');
end.