Program iatext;
var f:text;
    c:char;
    nr,nc,i:integer;
begin
assign(f,'text.txt'); reset(f);
i:=0;
nr:=0;
nc:=0;
While not eof(f) do begin
  read(f,c);
  If c in ['a'..'z','A'..'Z'] then begin inc(nc);
                                         If i=0 then inc(nr);
                                         i:=1;
                                   end
                              else i:=0;
                        end;
close(f);
writeln(trunc(nc/nr));
end.