[Haskell-cafe] Conduit : is it possible to write this function?