Control.Concurrent.STMSupply
data
STMSupply
newSTMSupplyIO
freshId
splitSupply