/HELLO - Xin chào

<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.