functor   (R : RANDOMACCESS) (PARAM : sig                                 val max_height : int                                 val leaf_size : int                               end) ->   sig     type 'a t     exception Out_of_bounds     val max_length : int     val empty : 'a BatVect.Make.t     val singleton : 'a -> 'a BatVect.Make.t     val of_container : 'a R.t -> 'a BatVect.Make.t     val to_container : 'a BatVect.Make.t -> 'a R.t     val of_array : 'a array -> 'a BatVect.Make.t     val to_array : 'a BatVect.Make.t -> 'a array     val to_list : 'a BatVect.Make.t -> 'a list     val of_list : 'a list -> 'a BatVect.Make.t     val make : int -> 'a -> 'a BatVect.Make.t     val init : int -> (int -> 'a) -> 'a BatVect.Make.t     val is_empty : 'a BatVect.Make.t -> bool     val height : 'a BatVect.Make.t -> int     val length : 'a BatVect.Make.t -> int     val balance : 'a BatVect.Make.t -> 'a BatVect.Make.t     val concat : 'a BatVect.Make.t -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val append : 'a -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val prepend : 'a -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val get : 'a BatVect.Make.t -> int -> 'a     val at : 'a BatVect.Make.t -> int -> 'a     val set : 'a BatVect.Make.t -> int -> 'a -> 'a BatVect.Make.t     val modify : 'a BatVect.Make.t -> int -> ('a -> 'a) -> 'a BatVect.Make.t     val destructive_set : 'a BatVect.Make.t -> int -> 'a -> unit     val sub : 'a BatVect.Make.t -> int -> int -> 'a BatVect.Make.t     val insert :       int -> 'a BatVect.Make.t -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val remove : int -> int -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val enum : 'a BatVect.Make.t -> 'a BatEnum.t     val of_enum : 'a BatEnum.t -> 'a BatVect.Make.t     val backwards : 'a BatVect.Make.t -> 'a BatEnum.t     val of_backwards : 'a BatEnum.t -> 'a BatVect.Make.t     val iter : ('a -> unit) -> 'a BatVect.Make.t -> unit     val iteri : (int -> 'a -> unit) -> 'a BatVect.Make.t -> unit     val rangeiter : ('a -> unit) -> int -> int -> 'a BatVect.Make.t -> unit     val fold_left : ('b -> 'a -> 'b) -> 'b -> 'a BatVect.Make.t -> 'b     val fold : ('b -> 'a -> 'b) -> 'b -> 'a BatVect.Make.t -> 'b     val reduce : ('a -> 'a -> 'a) -> 'a BatVect.Make.t -> 'a     val fold_right : ('a -> 'b -> 'b) -> 'a BatVect.Make.t -> 'b -> 'b     val foldi : (int -> 'b -> 'a -> 'b) -> 'b -> 'a BatVect.Make.t -> 'b     val map : ('a -> 'b) -> 'a BatVect.Make.t -> 'b BatVect.Make.t     val mapi : (int -> 'a -> 'b) -> 'a BatVect.Make.t -> 'b BatVect.Make.t     val for_all : ('a -> bool) -> 'a BatVect.Make.t -> bool     val exists : ('a -> bool) -> 'a BatVect.Make.t -> bool     val find : ('a -> bool) -> 'a BatVect.Make.t -> 'a     val mem : 'a -> 'a BatVect.Make.t -> bool     val memq : 'a -> 'a BatVect.Make.t -> bool     val findi : ('a -> bool) -> 'a BatVect.Make.t -> int     val filter : ('a -> bool) -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val filter_map :       ('a -> 'b option) -> 'a BatVect.Make.t -> 'b BatVect.Make.t     val find_all : ('a -> bool) -> 'a BatVect.Make.t -> 'a BatVect.Make.t     val partition :       ('a -> bool) ->       'a BatVect.Make.t -> 'a BatVect.Make.t * 'a BatVect.Make.t     val first : 'a BatVect.Make.t -> 'a     val last : 'a BatVect.Make.t -> 'a     val shift : 'a BatVect.Make.t -> 'a * 'a BatVect.Make.t     val pop : 'a BatVect.Make.t -> 'a * 'a BatVect.Make.t     val print :       ?first:string ->       ?last:string ->       ?sep:string ->       ('a BatInnerIO.output -> 'b -> unit) ->       'a BatInnerIO.output -> 'b BatVect.Make.t -> unit     val invariants : 'a BatVect.Make.t -> unit   end