type !'a t = 'a * 'a list
val iter : ( 'a -> unit ) -> 'a t -> unit
val map : ( 'a -> 'b ) -> 'a t -> 'b t
val of_list : 'a list -> 'a t
val to_list : 'a t -> 'a list