Make.1-S
type t
type elt
val singleton : elt -> t
val union : t -> t -> t
val choose : t -> elt
val iter : ( elt -> unit ) -> t -> unit