haskell pipes example