ghc/tests/io/should_run/io015.stdout

   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