sig
  type 'a sequence = ('a -> unit) -> unit
  type 'a klist = unit -> [ `Cons of 'a * 'a CCArray.klist | `Nil ]
  type 'a gen = unit -> 'a option
  type 'a equal = 'a -> 'a -> bool
  type 'a ord = 'a -> 'a -> int
  type 'a random_gen = Random.State.t -> 'a
  type 'a printer = Format.formatter -> 'a -> unit
  external make : int -> 'a -> 'a array = "caml_make_vect"
  external create : int -> 'a -> 'a array = "caml_make_vect"
  external create_float : int -> float array = "caml_make_float_vect"
  val make_float : int -> float array
  val init : int -> (int -> 'a) -> 'a array
  val make_matrix : int -> int -> 'a -> 'a array array
  val create_matrix : int -> int -> 'a -> 'a array array
  val append : 'a array -> 'a array -> 'a array
  val concat : 'a array list -> 'a array
  val sub : 'a array -> int -> int -> 'a array
  val copy : 'a array -> 'a array
  val fill : 'a array -> int -> int -> 'a -> unit
  val to_list : 'a array -> 'a list
  val of_list : 'a list -> 'a array
  val mapi : (int -> 'a -> 'b) -> 'a array -> 'b array
  val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b array -> 'a
  val fold_right : ('b -> 'a -> 'a) -> 'b array -> 'a -> 'a
  val mem : 'a -> 'a array -> bool
  val memq : 'a -> 'a array -> bool
  val sort : ('a -> 'a -> int) -> 'a array -> unit
  val stable_sort : ('a -> 'a -> int) -> 'a array -> unit
  val fast_sort : ('a -> 'a -> int) -> 'a array -> unit
  external unsafe_get : 'a array -> int -> 'a = "%array_unsafe_get"
  external unsafe_set : 'a array -> int -> 'a -> unit = "%array_unsafe_set"
  type 'a t = 'a array
  val empty : 'a CCArray.t
  val equal : 'a CCArray.equal -> 'a CCArray.t CCArray.equal
  val compare : 'a CCArray.ord -> 'a CCArray.t CCArray.ord
  val get : 'a CCArray.t -> int -> 'a
  val get_safe : 'a CCArray.t -> int -> 'a option
  val set : 'a CCArray.t -> int -> 'a -> unit
  val length : 'a CCArray.t -> int
  val fold : ('a -> 'b -> 'a) -> 'a -> 'b CCArray.t -> 'a
  val foldi : ('a -> int -> 'b -> 'a) -> 'a -> 'b CCArray.t -> 'a
  val fold_while :
    ('a -> 'b -> 'a * [ `Continue | `Stop ]) -> 'a -> 'b CCArray.t -> 'a
  val fold_map :
    ('acc -> 'a -> 'acc * 'b) -> 'acc -> 'a CCArray.t -> 'acc * 'b CCArray.t
  val scan_left :
    ('acc -> 'a -> 'acc) -> 'acc -> 'a CCArray.t -> 'acc CCArray.t
  val iter : ('a -> unit) -> 'a CCArray.t -> unit
  val iteri : (int -> 'a -> unit) -> 'a CCArray.t -> unit
  val blit : 'a CCArray.t -> int -> 'a CCArray.t -> int -> int -> unit
  val reverse_in_place : 'a CCArray.t -> unit
  val sorted : ('a -> 'a -> int) -> 'a CCArray.t -> 'a array
  val sort_indices : ('a -> 'a -> int) -> 'a CCArray.t -> int array
  val sort_ranking : ('a -> 'a -> int) -> 'a CCArray.t -> int array
  val find_map : ('a -> 'b option) -> 'a CCArray.t -> 'b option
  val find : ('a -> 'b option) -> 'a CCArray.t -> 'b option
  val find_map_i : (int -> 'a -> 'b option) -> 'a CCArray.t -> 'b option
  val findi : (int -> 'a -> 'b option) -> 'a CCArray.t -> 'b option
  val find_idx : ('a -> bool) -> 'a CCArray.t -> (int * 'a) option
  val lookup : ?cmp:'a CCArray.ord -> 'a -> 'a CCArray.t -> int option
  val lookup_exn : ?cmp:'a CCArray.ord -> 'a -> 'a CCArray.t -> int
  val bsearch :
    ?cmp:('a -> 'a -> int) ->
    'a ->
    'a CCArray.t ->
    [ `All_bigger | `All_lower | `At of int | `Empty | `Just_after of int ]
  val for_all : ('a -> bool) -> 'a CCArray.t -> bool
  val for_all2 : ('a -> 'b -> bool) -> 'a CCArray.t -> 'b CCArray.t -> bool
  val exists : ('a -> bool) -> 'a CCArray.t -> bool
  val exists2 : ('a -> 'b -> bool) -> 'a CCArray.t -> 'b CCArray.t -> bool
  val fold2 :
    ('acc -> 'a -> 'b -> 'acc) ->
    'acc -> 'a CCArray.t -> 'b CCArray.t -> 'acc
  val iter2 : ('a -> 'b -> unit) -> 'a CCArray.t -> 'b CCArray.t -> unit
  val shuffle : 'a CCArray.t -> unit
  val shuffle_with : Random.State.t -> 'a CCArray.t -> unit
  val random_choose : 'a CCArray.t -> 'a CCArray.random_gen
  val to_seq : 'a CCArray.t -> 'a CCArray.sequence
  val to_gen : 'a CCArray.t -> 'a CCArray.gen
  val to_klist : 'a CCArray.t -> 'a CCArray.klist
  val pp : ?sep:string -> 'a CCArray.printer -> 'a CCArray.t CCArray.printer
  val pp_i :
    ?sep:string ->
    (int -> 'a CCArray.printer) -> 'a CCArray.t CCArray.printer
  val map : ('a -> 'b) -> 'a CCArray.t -> 'b CCArray.t
  val map2 : ('a -> 'b -> 'c) -> 'a CCArray.t -> 'b CCArray.t -> 'c CCArray.t
  val rev : 'a CCArray.t -> 'a CCArray.t
  val filter : ('a -> bool) -> 'a CCArray.t -> 'a CCArray.t
  val filter_map : ('a -> 'b option) -> 'a CCArray.t -> 'b CCArray.t
  val flat_map : ('a -> 'b CCArray.t) -> 'a CCArray.t -> 'b array
  val ( >>= ) : 'a CCArray.t -> ('a -> 'b CCArray.t) -> 'b CCArray.t
  val ( >>| ) : 'a CCArray.t -> ('a -> 'b) -> 'b CCArray.t
  val ( >|= ) : 'a CCArray.t -> ('a -> 'b) -> 'b CCArray.t
  val except_idx : 'a CCArray.t -> int -> 'a list
  val ( -- ) : int -> int -> int CCArray.t
  val ( --^ ) : int -> int -> int CCArray.t
  val random : 'a CCArray.random_gen -> 'a CCArray.t CCArray.random_gen
  val random_non_empty :
    'a CCArray.random_gen -> 'a CCArray.t CCArray.random_gen
  val random_len :
    int -> 'a CCArray.random_gen -> 'a CCArray.t CCArray.random_gen
  module type MONO_ARRAY =
    sig
      type elt
      type t
      val length : CCArray.MONO_ARRAY.t -> int
      val get : CCArray.MONO_ARRAY.t -> int -> CCArray.MONO_ARRAY.elt
      val set : CCArray.MONO_ARRAY.t -> int -> CCArray.MONO_ARRAY.elt -> unit
    end
  val sort_generic :
    (module CCArray.MONO_ARRAY with type elt = 'elt and type t = 'arr) ->
    ?cmp:('elt -> 'elt -> int) -> 'arr -> unit
end