program tex;
  var c:char;
      f:text;
      i:longint;
      k,n:longint;
begin
  assign(f,'text.in');
  reset(f);
   k:=0;
  n:=0;
  while not eof(f) do
    begin
      read(f,c);
      if c in ['a'..'z','A'..'Z'] then
        begin
          inc(k);
          while not( c in  ['a'..'z','A'..'Z'])  do
            begin
              inc(n);
              read(f,c);
            end;
        end;
    end;
  close(f);
  assign(f,'text.out');
  rewrite(f);

  writeln(f,n div k);
  close(f);
end.