Control.Concurrent.STM.BoundedQueue
class
BoundedQueue
q