Control.Concurrent.BroadcastChan
data BroadcastChan
type In
type Out
newBroadcastChan
writeBChan
readBChan
newBChanListener