type 'a clist =
  'a Clist.clist =
    CList of 'a list
  | CConsL of 'a * 'a clist
  | CConsR of 'a clist * 'a
  | CSeq of 'a clist * 'a clist
val toList : 'a clist -> 'a list
val fromList : 'a list -> 'a clist
val single : 'a -> 'a clist
val empty : 'a clist
val append : 'a clist -> 'a clist -> 'a clist
val checkBeforeAppend : 'a clist -> 'a clist -> bool
val length : 'a clist -> int
val map : ('a -> 'b) -> 'a clist -> 'b clist
val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b clist -> 'a
val iter : ('a -> unit) -> 'a clist -> unit
val rev : ('a -> 'a) -> 'a clist -> 'a clist
val docCList :
  Pretty.doc -> ('a -> Pretty.doc) -> unit -> 'a clist -> Pretty.doc