Adapt.X
type elt
type t
val empty : t
val add : elt -> t -> t
val iter : (elt -> unit) -> t -> unit
val elements : t -> elt list