[Haskell-cafe] parallele tolistM of the pipes module

Hello, I would like to know how to write a parallele version of the pipes function: toListM :: Monad m => Producer a m () -> m [a] toListM = fold step begin done where step x a = x . (a:) begin = id done x = x [] {-# INLINABLE toListM #-} I want to extract all the a from th epipes but concurrently. is it possible ? Cheers Frederic