object
  val mutable cbs : 'a list
  method add : 'a -> unit
  method iter : ('a -> unit) -> unit
end