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

   1 import IO -- 1.3
   2
   3 main =
   4     isEOF >>= \ eof ->
   5     if eof then
   6         return ()
   7     else
   8         getChar >>= \ c ->
   9         putChar c >>
  10         main