ghc/misc/examples/io/io002/Main.hs

   1 import System (getEnv)
   2
   3 main =
   4     getEnv "TERM" >>= \ term ->
   5     putStr term >>
   6     putChar '\n' >>
   7     getEnv "One fish, two fish, red fish, blue fish" >>= \ fish ->
   8     putStr fish >>
   9     putChar '\n'
  10
  11
  12