sig
  type 'a t
  val make : unit -> 'Bcast.t
  val send : 'Bcast.t -> '-> unit
  val receive : 'Bcast.t -> 'Event.event
end