program Project2;

type  ref=^node;
      node=record
        left, right:ref;
      end;

var   i, j, a:longint;
      c:char;
      mas:array[0..1001] of record
          w:longint;
          d:array[1..1001] of record
              u:longint;
          end;
      end;
      y, x, m, my:longint;

var f, g:text;

function rec(x, y:integer):longint;
var i:longint;
    ny, c, a, m:longint;
begin
    ny:=y+1;
    m:=0; c:=0;
    for i:=1 to mas[ny].w do begin
      if mas[ny].d[i].u=x then begin
        inc(c);
        a:=rec(i, ny);
        if a+c>m then m:=a+c;
      end;
    end;
    Result:=m;
end;

begin
    assign(f, 'input.txt');
    reset(f);
    for i:=1 to 1001 do mas[i].w:=0;
    mas[0].w:=1;
    i:=0; j:=0; y:=0; my:=0;
    while not eof(f) do begin
      read(f, c);
      case c of
        'd':begin
              if y<1000 then y:=y+1;
              if y>my then my:=y;
              if mas[y].w<1000 then inc(mas[y].w);
              mas[y].d[mas[y].w].u:=mas[y-1].w;
           end;
        'u':if y>0 then y:=y-1;
      end;
    end;
    close(f);

    m:=rec(1, 0);

    assign(g, 'output.txt');
    rewrite(g);
    writeln(g, my, ' ', m);
    close(g);
end.
