{Винарский 15_44_a}
function count(var t: text): integer;
var k,d: integer; c: char;
  begin
    reset(t); k:=0;
    while (not(eof(t))) do
      begin
        read(t,c);
        if(c='d') then k:=k+1;
        readln(t);
      end;
    count:=k;
  end;