module Clist:Circular listssig..end
type 'a t
type 'a node
val make : 'a -> 'a nodeval create : unit -> 'a tval insert : 'a t -> 'a node -> unitval remove : 'a node -> unitval value : 'a node -> 'aval in_list : 'a node -> boolval is_empty : 'a t -> boolval iter : ('a -> unit) -> 'a t -> unitval fold_left : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a