[Haskell-beginners] Bounded STM Queues with load shedding