program text;{infoarena}
var c:char;
    i,j,k:integer;
begin
  assign(input,'text.in'); reset(input);
  assign(output,'text.out'); rewrite(output);
  k:=0;
  while not eof do begin
    read(c);
    if c in ['a'..'z', 'A'..'Z'] then
      begin inc(i);
          if k=0 then inc(j);
          k:=1;
      end
         else k:=0;
  end;
  write(i div j);
  close(input); close(output);
end.