Printing

1 files changed, 11 insertions, 0 deletions

diff --git a/Misc.icl b/Misc.icl
index 034ce9d..15e5b9d 100644
--- a/Misc.icl
+++ b/Misc.icl
@@ -4,3 +4,14 @@ import StdEnv
 
 abortn :: String -> a
 abortn s = abort (s +++ "\n")
+
+(<+) infixl 5 :: a b -> String | toString a & toString b
+(<+) a b = toString a +++ toString b
+
+(<++) infixl 5 :: a (g, [b]) -> String | toString a & toString b & toString g
+(<++) a (g,xs) = a <+ printersperse g xs
+
+printersperse :: a [b] -> String | toString a & toString b
+printersperse g []     = ""
+printersperse g [x]    = toString x
+printersperse g [x:xs] = x <+ g <++ (g, xs)