sig
  type 'a t
  type 'a port = 'Ccell.Mbox.t
  val make : unit -> 'Ccell.Bcast.t
  val send : 'Ccell.Bcast.t -> '-> unit
  val receive : 'Ccell.Bcast.t -> 'Ccell.Event.event
  val make_port : 'Ccell.Bcast.t -> 'Ccell.Bcast.port
  val make_strong_port : 'Ccell.Bcast.t -> 'Ccell.Bcast.port
  val receive_port : 'Ccell.Bcast.port -> 'Ccell.Event.event
  val receive_port_all : 'Ccell.Bcast.port -> 'a list Ccell.Event.event
end