#!/usr/local/bin/rpl -sp -m sets.rplso

TEST
<<
	externals 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

	([ 1 2 3 0 ]) disp
	([ 1 2 3 5 ]) s->l disp
	{ 1 2 2 5 1 2 } l->s disp

	clmf
>>