var
        halo:string;
        dunia:array[1..10] of char;
        skor,i:integer;
begin
        readln(halo);
        halo:=lowercase(halo);
        dunia[1]:='h';
        dunia[2]:='a';
        dunia[3]:='l';
        dunia[4]:='o';
        dunia[5]:=' ';
        dunia[6]:='d';
        dunia[7]:='u'; dunia[8]:='n'; dunia[9]:='i'; dunia[10]:='a';
        for i:=1 to 10 do
                if (copy(halo,i,1) = dunia[i]) then skor:=skor+1;
        writeln(skor);
end.