--- rpl/modules/sets/example.rpl	2017/07/04 12:32:37	1.2
+++ rpl/modules/sets/example.rpl	2017/07/30 21:59:02	1.3
@@ -2,14 +2,15 @@
 
 TEST
 <<
-	"sets.rplso" use
+	externals disp
 
-	-> L
-	<<
-		([ 1 2 3 4 5 6 7 8 9 ]) ([ 3 6 8 ]) complement disp
-		([ 1 2 8 9 ]) ([ 3 6 8 ]) union disp
-		([ 1 2 8 9 ]) ([ 3 6 ]) intersection disp
+	([ 1 2 3 4 5 6 7 8 9 ]) ([ 3 6 8 ]) complement disp
+	([ 1 2 8 9 ]) ([ 3 6 8 ]) union disp
+	([ 1 2 8 9 ]) ([ 3 6 ]) intersection disp
 
-		L remove
-	>>
+	([ 1 2 3 0 ]) disp
+	([ 1 2 3 5 ]) s->l disp
+	{ 1 2 2 5 1 2 } l->s disp
+
+	clmf
 >>