main :: IO ()
main = interact id

main2 :: IO ()
main2 = do
  getLine >>= putStrLn
  main

D:\data\
λ  "foo" | cat.exe
foo
cat.exe: <stdin>: hGetLine: end of file