var c:char;
    i,nrcuv,nrlit,k:longint;
    f,g:text;
function litera(x:char):boolean;
 begin
  if (x>='a')and(x<='z')
    or(x>='A')and(x<='Z')
     then litera:=true
     else litera:=false;
 end;

begin
 assign(f,'text.in');reset(f);
 assign(g,'text.out');rewrite(g);
 nrcuv:=0;
 nrlit:=0;
 k:=0;
 while not eoln(f) do
  begin
   read(f,c);
   if litera(c)=true then
    begin
     if k=0 then begin
                  inc(nrcuv);
                  k:=1;
                 end;
     inc(nrlit);
    end
                     else k:=0;
   {writeln(c,' ',k,' ',nrlit,' ',nrcuv);readln;}
  end;
 {writeln(nrcuv,' ',nrlit);readln;}
 write(g,trunc(nrlit/nrcuv));
 close(g);
 close(f);
end.