Program a1;
var i,o:text;
    cuv,lit,med:integer;
    c:char;
begin
  cuv:=0;
  lit:=0;
  assign(i,'text.in');
  assign(o,'text.out');
  reset(i);
  rewrite(o);
  while not EOF(i) do
    begin

             read(i,c);
             if c in ['A'..'a'] then
                begin
                   inc(cuv);
                   while c in ['A'..'a'] do
                       begin
                          inc(lit);
                          read(i,c);
                       end;
                end;

    end;
  write(o,lit div cuv);
  close(i);
  close(o);
  end.