{prb text / infoarena}
uses crt;
var lit, cuv,lm,ok: integer;
    c: char;
   f,g: text;
begin
 assign(f,'text.in');
 assign(g,'text.out');
 reset(f);
 rewrite(g);
 lit:=0;
 cuv:=0;
 read(f,c);
 while not eoln(f) do
  begin
  ok:=0;
    while ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) do
       begin
        lit:=lit+1;
         read(f,c);
         ok:=1;
       end;
       if ok=1 then
          cuv:=cuv+1;
        read(f,c);
    end;
   lm:= lit div cuv;
   writeln(g,lm);
   close(f);
   close(g);
   readln;
end.