Functor Vector.StackOfArray

module StackOfArray (A : ArrayType) : sig .. end

module V: Vector.OfArray(A)

type t = {

type elt = V.elt 

val create : ?size:int -> unit -> t

val is_empty : t -> bool

val clear : t -> unit

val add : t -> V.elt -> unit

val push : t -> V.elt -> unit

val peek : t -> V.elt

val pop : t -> V.elt

val size : t -> int