program ff;
var f,g:text;
c:char;
nrc,ltot,lcur:integer;
ok:boolean;
begin
   assign(f,'text.in');
   reset(f);
   assign(g,'text.out');
   rewrite(g);
   nrc:=0; ltot:=0;
   ok:=false;
   while not eof(f) do
   begin
      read(f,c);
      if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) then
      begin
            lcur:=lcur+1;
            ok:=true;
      end
      else
      begin
        ltot:=lcur+ltot;
        lcur:=0;
        if ok then
                begin
                   inc(nrc);
                   ok:=false;
                end;
      end;

   end;
   write(g,trunc(ltot/nrc));
   close(f);
   close(g);
end.