program texte;
var f:text;
    c:char;
    b:boolean;
    nl,nc:longint;

function eLitera(x:char):boolean;
begin
  if (upcase(x)>='A') and (upcase(x)<='Z') then
    eLitera:=true
  else
    eLitera:=false;
end;

begin
  assign(f,'text.in');
  reset(f);
  nl:=0;
  nc:=0;
  b:=false;
  while not eof(f) do
    begin
      while not eoln(f) do
        begin
          read(f,c);
          if eLitera(c) then
            begin
              nl:=nl+1;
              if not b then
                nc:=nc+1;
              b:=true;
            end
          else
            b:=false;
        end;
      readln(f);
    end;
  close(f);
  assign(f,'text.out');
  rewrite(f);
  writeln(f,nl div nc);
  close(f);
end.