Class type Clist.cell

method contents : 'a -> unit
method set_contents : 'a -> unit