program infoarena_text;
var f:text;
 lit,nr,val:int64;
 c,prevc:char;
begin
  assign(f,'text.in');reset(f);  lit:=0;nr:=0;
  while not eof(f) do
  begin read(f,c);   c:=upcase(c);
    case c of
    'A'..'Z':begin lit:=lit+1;prevc:=c;break;end;
    end;
  end;
  while not eof(f) do
begin
  read(f,c); c:=upcase(c);
  case c of
  'A'..'Z':lit:=lit+1;
   else if (ord(prevc)>=65)and(ord(prevc)<=90) then nr:=nr+1;
  end;
   prevc:=c;
end;
case c of
 'A'..'Z':nr:=nr+1;
  else;
 end;
  close(f);
  assign(f,'text.out');rewrite(f);val:=lit div nr;
  write(f,val);close(f);
end.