[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / misc / examples / io / io002 / Main.hs
1 import LibSystem (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