From c1155521b79a9526b91050e4744601c64a825bf4 Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 26 May 2016 18:54:17 +0200
Subject: [PATCH] pim

---
 examples/higher.spl | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/examples/higher.spl b/examples/higher.spl
index 66f9024..0cd83de 100644
--- a/examples/higher.spl
+++ b/examples/higher.spl
@@ -36,12 +36,22 @@ intList(x){
 	return l;
 }
 
+printIntList(l) :: [Int] -> Void{
+	print('[');
+	if(!isEmpty(l)){
+		print(l.hd);
+		l = l.tl;
+	}
+	while(isEmpty(l)){
+		print(", ", l.hd);
+		l = l.tl;
+	}
+	print("]\n");
+}
+
 main(){
-	print(
-		"faculty of 5 is: ", 
-			foldr(\x y->x*y, 1, intList(z)),
-		"sum of 1..5 is: ", 
-			foldr(\x y->x+y, 0, intList(z)),
-		"filter evens from 0..12 is: ",
-			filter(\x->x % 2 == 0, intList(12)));
+	print("faculty of 5 is: ", foldr(\x y->x*y, 1, intList(5)));
+	print("sum of 1..5 is: ", foldr(\x y->x+y, 0, intList(5)));
+	print("filter evens from 0..12 is: ");
+	printIntList(filter(\x->x%2 == 0, intList(12)));
 }
-- 
2.20.1