program tree1;

var

  f,g:array[..,..]of longint;

  l,r:array[..]of longint;

  n,i,m,x,y,sum,len:longint;

  s:ansistring;

function max(x,y:longint):longint;

begin

  if x>y then max:=x else max:=y;

end;

function min(x,y:longint):longint;

begin

  if x<y then min:=x else min:=y;

end;

procedure dfs(x:longint);

var i:longint;

begin

  inc(len); i:=len;

  if s[i]='' then exit;

  inc(sum); l[x]:=sum; dfs(sum);

  if s[i]='' then

   begin

     inc(sum); r[x]:=sum; dfs(sum);

   end;

end;

procedure dp(x:longint);

var i:longint;

begin

  if x= then exit;

  dp(l[x]); dp(r[x]);

  f[x,]:=max(f[l[x],]+f[r[x],],f[l[x],]+f[r[x],])+;

  f[x,]:=max(f[l[x],]+f[r[x],],f[l[x],]+f[r[x],]);

  f[x,]:=max(f[l[x],]+f[r[x],],f[l[x],]+f[r[x],]);

  g[x,]:=min(g[l[x],]+g[r[x],],g[l[x],]+g[r[x],])+;

  g[x,]:=min(g[l[x],]+g[r[x],],g[l[x],]+g[r[x], ]);

  g[x,]:=min(g[l[x],]+g[r[x],],g[l[x],]+g[r[x],]);

end;

begin

  readln(s);n:=length(s); sum:=; len:=;

  fillchar(l,sizeof(l),); fillchar(r,sizeof(r),);

  dfs(); dp();

  x:=max(max(f[,],f[,]),f[,]);

  y:=min(min(g[,],g[,]),g[,]);

  writeln(x,' ',y);

end.