program text_infoarena;
type vect=array[1..500000000] of char;
var intrare,iesire:vect; c:char;
    i,j:longint; x,nrc,nrl,aux:qword;
    f,g:text;

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

begin
assign(f,'text.in');reset(f); settextbuf(f,intrare);
assign(g,'text.out');rewrite(g); settextbuf(g,iesire);
i:=1; nrl:=0; nrc:=0;
while not eoln(f) do
 begin
  read(f,c);
  if lit(c)then inc(aux)
           else begin
                if (aux<>0)then inc(nrc);
                inc(nrl,aux);
                aux:=0;
                end;
 end;
x:=nrl div nrc;
writeln(g,x);
close(f); close(g);
end.