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


1
2
3
4
5
6
7
8
9
10
11
12

import System (getEnv)

main = 
    getEnv "TERM" >>= \ term -> 
    putStr term >>
    putChar '\n' >>
    getEnv "One fish, two fish, red fish, blue fish" >>= \ fish -> 
    putStr fish >>
    putChar '\n'