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

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