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