type t = unit C.ptr
val t : t C.typval create : (int -> t F.return) F.resultval destroy : (t -> unit F.return) F.resultval set_capacity : (t -> int -> unit F.return) F.resultval get_usage : (t -> int F.return) F.resultval get_pinned_usage : (t -> int F.return) F.result