ghc/tests/io/should_run/io015.hs

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