Module Bcast


module Bcast: sig .. end

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