[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / misc / examples / cats / hcat1.hs

diff --git a/ghc/misc/examples/cats/hcat1.hs b/ghc/misc/examples/cats/hcat1.hs
new file mode 100644 (file)
index 0000000..9a29bf7
--- /dev/null
+++ b/ghc/misc/examples/cats/hcat1.hs
@@ -0,0 +1,4 @@
+main :: IO ()
+main = interact id
+
+-- 46,173 bytes/sec (600KB input)