program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MAXIN = 10000;

var
  i, d, n, max, j: integer;
  s: array [0..MAXIN] of string;

function find(n: integer): integer;
var
  i: integer;
begin
  for i := n to length(s) do
end;

begin
  readln(s);
  ans := 0;

  for i := 1 to length(s) do
    if (s[i] = '(') then
    begin
      timne := find(i);
      if (time > max) then
      begin
        max :=  time;
        ans := 1;
      end
      else
        inc(ans);
    end;

  if (ans = 0) then
    writeln('0 1')
  else
    writeln(max, ' ', ans);
  readln;
  readln;
end.