program project1;

var c:char;
  word:boolean;
  n,m:integer;
  fin,fout:text;

begin
  assign (fin,'text.in');
  reset (fin);
  assign (fout,'text.out');
  rewrite (fout);
  n:=0;
  m:=0;
  word:=false;
  while not(eof(fin)) do
  begin
       read (fin,c);
       case (c) of
       'a'..'z','A'..'Z':
         begin
         if (word=false) then
            begin
              word:=true;
              inc(m);
            end;
         inc(n);
       end;
       else if (word=true) then word:=false;
       end;
  end;
  write(fout,trunc(n/m));
  close (fin);
  close (fout);
end.