From 55e6cadc298beda9d079d99147b3cb0f50ce25ec Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 1 Jul 2016 09:11:02 +0200
Subject: Printing

---
 Misc.icl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Misc.icl')

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)
-- 
cgit v1.2.3