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

TEST
<<
	"sets.rplso" use

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

		L remove
	>>
>>