ghc/tests/etc/Echo.hs

   1 import MiniPrel
   2
   3 main = (ccall getchar)    `thenU` ( \ ch ->
   4            case ch of
   5              -1# -> (ccall exit 0#)
   6              _   -> (ccall putchar ch) `thenU` ( \ _ ->
   7                     main )
   8          )