import Control.Concurrent.Bag.Basic
import Control.Concurrent.STM (TChan)
import Control.Concurrent (threadDelay)

main :: IO ()
main = do
  bag <- newBag_ Nothing :: IO (Bag TChan a)
  terminateBag bag
  threadDelay 10000000