sig
  type t
  type elt
  val make : ?size:int -> unit -> Vector.S.t
  val set : Vector.S.t -> int -> Vector.S.elt -> unit
  val get : Vector.S.t -> int -> Vector.S.elt
  val clear : Vector.S.t -> unit
  val index_max : Vector.S.t -> int
  val length : Vector.S.t -> int
  val capacity : Vector.S.t -> int
  val blit : Vector.S.t -> int -> Vector.S.t -> int -> int -> unit
  val default : unit -> Vector.S.elt
end