var f,g:text;
    c:char;
    nr,nrc:longint;
    cuv:boolean;
begin
  assign(f,'text.in'); reset(f);
  assign(g,'text.out'); rewrite(g);
  nr:=0;
  nrc:=0;
  cuv:=false;
  while not eof(f) do
    begin
      read(f,c);
      if ((ord(c)>=97) and (ord(c)<=122))
      or ((ord(c)>=65) and (ord(c)<=90)) then
        begin
          inc(nrc);
          if cuv=false then begin cuv:=true; inc(nr); end;
        end
                                         else
        cuv:=false;
    end;
  writeln(g,nrc div nr);
  close(f); close(g);
end.