Control.Concurrent.Chan.WriteOnly
data
WriteOnlyChan
a
toWriteOnlyChan