var s:char;
    n,t,i,m:longint;
    f,g:text;
begin
  assign (f,'text.in');
  assign (g,'text.out');
  reset(f);
  rewrite(g);
  i:=0;
  m:=0;
  n:=0;
  while eof(f)=false do
    begin
      read(f,s);
      t:=ord(upcase(s));
      if (t>=65) and (t<=90) then
        begin
          n:=n+1;
          if i=0 then
            m:=m+1;
          i:=1;
        end
      else
        i:=0;
    end;
  writeln(g,n div m);
  close(f);
  close(g);
end.