ghc/misc/examples/cats/hcat2.hs

   1 module Main (main) where
   2
   3 main :: IO ()
   4 main
   5   = try getChar >>=
   6     {-then-}either  (\ _ -> return ())
   7     {-or-}          (\ c -> putChar c >>
   8                             main)
   9
  10 -- 51,156 bytes/sec (600KB input)