input :: Pipe () Char IO ()
input = fromList "Hello, world!" `finalize` putStrLn "finalize"
input :: Pipe () Char IO ()
input = fromList "Hello, world!" `finalize` putStrLn "finalize"
input = fromList "Hello, world!" `finalize` putStrLn "finalize"