program infoarena_text;
var f:text;
 lit,nr,val:int64;
 c: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;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 nr:=nr+1;
  end;

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.