signature DYNARRAY = sig
  type 'a t = (int * 'a option Array.array) ref

  val create: int -> 'a t
  val create0: unit -> 'a t

  val length: 'a t -> int

  val push: 'a t -> 'a -> unit
  val pushAndGetId: 'a t -> 'a -> int
  val get: 'a t -> int -> 'a
  val set: 'a t -> int -> 'a -> unit

  val reset: 'a t -> unit
  val toVec: 'a t -> 'a vector
  val appi: (int * 'a -> unit) -> 'a t -> unit
end