Control.Concurrent.STM.TSetChan
data TSetChan a
data ChanID
newTSetChan
openTSetChan
closeTSetChan
writeTSetChan
readTSetChan