program Project2;

{$R+ $S+ $W+ $O+}

uses
  SysUtils;

Var f:text;
    a:Char;
    h,max,N,I:Integer;
    add,mh,m,mn:array[0..10000] of Word;

    Procedure Jopa();
    Var I:Integer;
        x:Real;
    Begin
      for I:=1 to 53 do
        x:=x*I-67;
    End;


begin
  assign(f,'input.txt');
  ReSet(f);

  h:=0; max:=0; N:=0;
  while not(eof(f)) do
    begin
      read(f,a);
      if (a='d')
      then begin
             Inc(h); Inc(mh[h]);
             if (h>max) then max:=h;
             Inc(N); m[N]:=h; mn[N]:=mh[h];
           end
      else Dec(h);
    end;

  Jopa();

  Close(f);
  assign(f,'output.txt');
  ReWrite(f);
  write(f,max,' ');

  max:=0;
  for I:=1 to N do
    begin
      if (mn[I]=1)
      then Add[I]:=Add[I-1]
      else if m[I-1]=m[I] then Add[I]:=Add[I-1]+mn[I]-1
                          else Add[I]:=mh[m[I]]+1;
      mh[m[I]]:=Add[I];
      h:=m[I]+Add[I];
      if (h>max) then max:=h;
    end;

  writeln(f,max);

  Close(f);

end.
