sig
  type 'a t
  val create : unit -> 'Vector.t
  val length : 'Vector.t -> int
  val size : 'Vector.t -> int
  val get : 'Vector.t -> int -> 'a
  val set : 'Vector.t -> int -> '-> unit
  val add : 'Vector.t -> '-> unit
  val addi : 'Vector.t -> '-> int
  val clear : 'Vector.t -> unit
  val iter : ('-> unit) -> 'Vector.t -> unit
  val iteri : (int -> '-> unit) -> 'Vector.t -> unit
  val map : ('-> 'b) -> 'Vector.t -> 'Vector.t
  val mapi : (int -> '-> 'b) -> 'Vector.t -> 'Vector.t
  val find : 'Vector.t -> ?default:'-> ?exn:exn -> int -> 'a
  val update : 'Vector.t -> default:'-> int -> '-> unit
  val to_array : 'Vector.t -> 'a array
  val of_array : 'a array -> 'Vector.t
  val capacity : 'Vector.t -> int
  val resize : 'Vector.t -> int -> unit
  val shrink : 'Vector.t -> unit
end