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.