var f,g:text;
    a:char;
    i,j,k:integer;
    ok:boolean;

function litera(var c:char):boolean;
   begin
    if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) then litera:=true
                                                  else litera:=false;
   end;

begin

 assign(f,'text.in');reset(f);
 assign(g,'text.out');rewrite(g);

 i:=1;
 k:=0;
 ok:=false;
 j:=0;

 while not eof(f) do
  begin
   read(f,a);
    if litera(a) then begin inc(k); ok:=true; end;
    if (litera(a)=false) and (ok=true) then begin
                                                inc(j);
                                                ok:=false;
                                            end;
  end;

 writeln(g,k div j);
 write(g,k,' ',j);

 close(f);
 close(g);

end.