sig
  type 'a sequence = ('-> unit) -> unit
  type 'a klist = unit -> [ `Cons of 'a * 'CCArray.klist | `Nil ]
  type 'a gen = unit -> 'a option
  type 'a equal = '-> '-> bool
  type 'a ord = '-> '-> int
  type 'a random_gen = Random.State.t -> 'a
  module type S =
    sig
      type 'a t
      val empty : 'CCArray.S.t
      val equal : 'CCArray.equal -> 'CCArray.S.t CCArray.equal
      val compare : 'CCArray.ord -> 'CCArray.S.t CCArray.ord
      val get : 'CCArray.S.t -> int -> 'a
      val get_safe : 'CCArray.S.t -> int -> 'a option
      val set : 'CCArray.S.t -> int -> '-> unit
      val length : 'CCArray.S.t -> int
      val fold : ('-> '-> 'a) -> '-> 'CCArray.S.t -> 'a
      val foldi : ('-> int -> '-> 'a) -> '-> 'CCArray.S.t -> 'a
      val fold_while :
        ('-> '-> 'a * [ `Continue | `Stop ]) ->
        '-> 'CCArray.S.t -> 'a
      val iter : ('-> unit) -> 'CCArray.S.t -> unit
      val iteri : (int -> '-> unit) -> 'CCArray.S.t -> unit
      val blit :
        'CCArray.S.t -> int -> 'CCArray.S.t -> int -> int -> unit
      val reverse_in_place : 'CCArray.S.t -> unit
      val find : ('-> 'b option) -> 'CCArray.S.t -> 'b option
      val findi : (int -> '-> 'b option) -> 'CCArray.S.t -> 'b option
      val find_idx : ('-> bool) -> 'CCArray.S.t -> (int * 'a) option
      val lookup : ?cmp:'CCArray.ord -> '-> 'CCArray.S.t -> int option
      val lookup_exn : ?cmp:'CCArray.ord -> '-> 'CCArray.S.t -> int
      val bsearch :
        ?cmp:('-> '-> int) ->
        '->
        'CCArray.S.t ->
        [ `All_bigger | `All_lower | `At of int | `Empty | `Just_after of int ]
      val for_all : ('-> bool) -> 'CCArray.S.t -> bool
      val for_all2 :
        ('-> '-> bool) -> 'CCArray.S.t -> 'CCArray.S.t -> bool
      val exists : ('-> bool) -> 'CCArray.S.t -> bool
      val exists2 :
        ('-> '-> bool) -> 'CCArray.S.t -> 'CCArray.S.t -> bool
      val fold2 :
        ('acc -> '-> '-> 'acc) ->
        'acc -> 'CCArray.S.t -> 'CCArray.S.t -> 'acc
      val iter2 :
        ('-> '-> unit) -> 'CCArray.S.t -> 'CCArray.S.t -> unit
      val shuffle : 'CCArray.S.t -> unit
      val shuffle_with : Random.State.t -> 'CCArray.S.t -> unit
      val random_choose : 'CCArray.S.t -> 'CCArray.random_gen
      val to_seq : 'CCArray.S.t -> 'CCArray.sequence
      val to_gen : 'CCArray.S.t -> 'CCArray.gen
      val to_klist : 'CCArray.S.t -> 'CCArray.klist
      val pp :
        ?sep:string ->
        (Buffer.t -> '-> unit) -> Buffer.t -> 'CCArray.S.t -> unit
      val pp_i :
        ?sep:string ->
        (Buffer.t -> int -> '-> unit) -> Buffer.t -> 'CCArray.S.t -> unit
      val print :
        ?sep:string ->
        (Format.formatter -> '-> unit) ->
        Format.formatter -> 'CCArray.S.t -> unit
    end
  type 'a t = 'a array
  val empty : 'a t
  val equal : 'a equal -> 'a t equal
  val compare : 'a ord -> 'a t ord
  val get : 'a t -> int -> 'a
  val get_safe : 'a t -> int -> 'a option
  val set : 'a t -> int -> '-> unit
  val length : 'a t -> int
  val fold : ('-> '-> 'a) -> '-> 'b t -> 'a
  val foldi : ('-> int -> '-> 'a) -> '-> 'b t -> 'a
  val fold_while :
    ('-> '-> 'a * [ `Continue | `Stop ]) -> '-> 'b t -> 'a
  val iter : ('-> unit) -> 'a t -> unit
  val iteri : (int -> '-> unit) -> 'a t -> unit
  val blit : 'a t -> int -> 'a t -> int -> int -> unit
  val reverse_in_place : 'a t -> unit
  val find : ('-> 'b option) -> 'a t -> 'b option
  val findi : (int -> '-> 'b option) -> 'a t -> 'b option
  val find_idx : ('-> bool) -> 'a t -> (int * 'a) option
  val lookup : ?cmp:'a ord -> '-> 'a t -> int option
  val lookup_exn : ?cmp:'a ord -> '-> 'a t -> int
  val bsearch :
    ?cmp:('-> '-> int) ->
    '->
    'a t ->
    [ `All_bigger | `All_lower | `At of int | `Empty | `Just_after of int ]
  val for_all : ('-> bool) -> 'a t -> bool
  val for_all2 : ('-> '-> bool) -> 'a t -> 'b t -> bool
  val exists : ('-> bool) -> 'a t -> bool
  val exists2 : ('-> '-> bool) -> 'a t -> 'b t -> bool
  val fold2 : ('acc -> '-> '-> 'acc) -> 'acc -> 'a t -> 'b t -> 'acc
  val iter2 : ('-> '-> unit) -> 'a t -> 'b t -> unit
  val shuffle : 'a t -> unit
  val shuffle_with : Random.State.t -> 'a t -> unit
  val random_choose : 'a t -> 'a random_gen
  val to_seq : 'a t -> 'a sequence
  val to_gen : 'a t -> 'a gen
  val to_klist : 'a t -> 'a klist
  val pp :
    ?sep:string -> (Buffer.t -> '-> unit) -> Buffer.t -> 'a t -> unit
  val pp_i :
    ?sep:string ->
    (Buffer.t -> int -> '-> unit) -> Buffer.t -> 'a t -> unit
  val print :
    ?sep:string ->
    (Format.formatter -> '-> unit) -> Format.formatter -> 'a t -> unit
  val map : ('-> 'b) -> 'CCArray.t -> 'CCArray.t
  val map2 : ('-> '-> 'c) -> 'CCArray.t -> 'CCArray.t -> 'CCArray.t
  val rev : 'CCArray.t -> 'CCArray.t
  val filter : ('-> bool) -> 'CCArray.t -> 'CCArray.t
  val filter_map : ('-> 'b option) -> 'CCArray.t -> 'CCArray.t
  val flat_map : ('-> 'CCArray.t) -> 'CCArray.t -> 'b array
  val ( >>= ) : 'CCArray.t -> ('-> 'CCArray.t) -> 'CCArray.t
  val ( >>| ) : 'CCArray.t -> ('-> 'b) -> 'CCArray.t
  val ( >|= ) : 'CCArray.t -> ('-> 'b) -> 'CCArray.t
  val except_idx : 'CCArray.t -> int -> 'a list
  val ( -- ) : int -> int -> int CCArray.t
  val ( --^ ) : int -> int -> int CCArray.t
  val random : 'CCArray.random_gen -> 'CCArray.t CCArray.random_gen
  val random_non_empty :
    'CCArray.random_gen -> 'CCArray.t CCArray.random_gen
  val random_len :
    int -> 'CCArray.random_gen -> 'CCArray.t CCArray.random_gen
  module Sub :
    sig
      type 'a t
      val make : 'a array -> int -> len:int -> 'CCArray.Sub.t
      val of_slice : 'a array * int * int -> 'CCArray.Sub.t
      val to_slice : 'CCArray.Sub.t -> 'a array * int * int
      val full : 'a array -> 'CCArray.Sub.t
      val underlying : 'CCArray.Sub.t -> 'a array
      val copy : 'CCArray.Sub.t -> 'a array
      val sub : 'CCArray.Sub.t -> int -> int -> 'CCArray.Sub.t
      val empty : 'a t
      val equal : 'a equal -> 'a t equal
      val compare : 'a ord -> 'a t ord
      val get : 'a t -> int -> 'a
      val get_safe : 'a t -> int -> 'a option
      val set : 'a t -> int -> '-> unit
      val length : 'a t -> int
      val fold : ('-> '-> 'a) -> '-> 'b t -> 'a
      val foldi : ('-> int -> '-> 'a) -> '-> 'b t -> 'a
      val fold_while :
        ('-> '-> 'a * [ `Continue | `Stop ]) -> '-> 'b t -> 'a
      val iter : ('-> unit) -> 'a t -> unit
      val iteri : (int -> '-> unit) -> 'a t -> unit
      val blit : 'a t -> int -> 'a t -> int -> int -> unit
      val reverse_in_place : 'a t -> unit
      val find : ('-> 'b option) -> 'a t -> 'b option
      val findi : (int -> '-> 'b option) -> 'a t -> 'b option
      val find_idx : ('-> bool) -> 'a t -> (int * 'a) option
      val lookup : ?cmp:'a ord -> '-> 'a t -> int option
      val lookup_exn : ?cmp:'a ord -> '-> 'a t -> int
      val bsearch :
        ?cmp:('-> '-> int) ->
        '->
        'a t ->
        [ `All_bigger | `All_lower | `At of int | `Empty | `Just_after of int ]
      val for_all : ('-> bool) -> 'a t -> bool
      val for_all2 : ('-> '-> bool) -> 'a t -> 'b t -> bool
      val exists : ('-> bool) -> 'a t -> bool
      val exists2 : ('-> '-> bool) -> 'a t -> 'b t -> bool
      val fold2 : ('acc -> '-> '-> 'acc) -> 'acc -> 'a t -> 'b t -> 'acc
      val iter2 : ('-> '-> unit) -> 'a t -> 'b t -> unit
      val shuffle : 'a t -> unit
      val shuffle_with : Random.State.t -> 'a t -> unit
      val random_choose : 'a t -> 'a random_gen
      val to_seq : 'a t -> 'a sequence
      val to_gen : 'a t -> 'a gen
      val to_klist : 'a t -> 'a klist
      val pp :
        ?sep:string -> (Buffer.t -> '-> unit) -> Buffer.t -> 'a t -> unit
      val pp_i :
        ?sep:string ->
        (Buffer.t -> int -> '-> unit) -> Buffer.t -> 'a t -> unit
      val print :
        ?sep:string ->
        (Format.formatter -> '-> unit) -> Format.formatter -> 'a t -> unit
    end
  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