proc cset2set
	local	0,001000,cs
	local	1,000020,result
	local	2,000000,set
	local	3,000000,insert
	declend
	filen	sets.icn
	line	45
	colm	11
	mark	L1
	pnull
	var	1
	var	2
	line	48
	colm	17
	invoke	0
	line	48
	colm	11
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	3
	var	1
	pnull
	var	0
	line	49
	colm	25
	bang
	line	49
	colm	16
	invoke	2
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	51
	colm	4
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	53
	colm	1
	pfail
	end
proc pairset
	local	0,001000,T
	local	1,000000,set
	local	2,000000,sort
	declend
	line	55
	colm	11
	mark	L1
	mark	L2
	var	1
	var	2
	var	0
	line	56
	colm	20
	invoke	1
	line	56
	colm	15
	invoke	1
	line	56
	colm	5
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	57
	colm	1
	pfail
	end
proc domain
	local	0,001000,T
	local	1,000020,dom
	local	2,000000,set
	local	3,000000,insert
	local	4,000000,key
	declend
	line	59
	colm	11
	mark	L1
	pnull
	var	1
	var	2
	line	62
	colm	15
	invoke	0
	line	62
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	3
	var	1
	var	4
	var	0
	line	63
	colm	26
	invoke	1
	line	63
	colm	17
	invoke	2
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	64
	colm	5
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	65
	colm	1
	pfail
	end
proc range
	local	0,001000,T
	local	1,000020,ran
	local	2,000000,set
	local	3,000000,insert
	declend
	line	67
	colm	11
	mark	L1
	pnull
	var	1
	var	2
	line	70
	colm	15
	invoke	0
	line	70
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	3
	var	1
	pnull
	var	0
	line	71
	colm	23
	bang
	line	71
	colm	17
	invoke	2
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	72
	colm	5
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	73
	colm	1
	pfail
	end
proc inverse
	local	0,001000,T
	local	1,001000,Default
	local	2,000020,inv
	local	3,000020,delem
	local	4,000020,relem
	local	5,000000,table
	local	6,000000,key
	local	7,000000,type
	local	8,000000,member
	local	9,000000,put
	local	10,000000,insert
	local	11,000000,set
	con	0,010000,4,154,151,163,164
	con	1,010000,3,163,145,164
	declend
	line	75
	colm	11
	mark	L1
	pnull
	var	2
	var	5
	var	1
	line	78
	colm	17
	invoke	1
	line	78
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	3
	var	6
	var	0
	line	79
	colm	23
	invoke	1
	line	79
	colm	17
	asgn
	pop
	mark0
	mark	L5
	pnull
	var	7
	var	1
	line	80
	colm	16
	invoke	1
	str	0
	line	80
	colm	26
	lexeq
	unmark
	mark	L7
	var	8
	var	2
	pnull
	var	4
	pnull
	var	0
	var	3
	line	81
	colm	36
	subsc
	line	81
	colm	32
	asgn
	line	81
	colm	20
	invoke	2
	unmark
	var	9
	pnull
	var	2
	var	4
	line	82
	colm	20
	subsc
	var	3
	line	82
	colm	16
	invoke	2
	goto	L8
lab L7
	pnull
	pnull
	var	2
	var	4
	line	83
	colm	19
	subsc
	pnull
	var	3
	line	83
	colm	30
	llist	1
	line	83
	colm	27
	asgn
lab L8
	goto	L6
lab L5
	mark	L9
	pnull
	var	7
	var	1
	line	84
	colm	21
	invoke	1
	str	1
	line	84
	colm	31
	lexeq
	unmark
	mark	L11
	var	8
	var	2
	pnull
	var	4
	pnull
	var	0
	var	3
	line	85
	colm	36
	subsc
	line	85
	colm	32
	asgn
	line	85
	colm	20
	invoke	2
	unmark
	var	10
	pnull
	var	2
	var	4
	line	86
	colm	23
	subsc
	var	3
	line	86
	colm	19
	invoke	2
	goto	L12
lab L11
	pnull
	pnull
	var	2
	var	4
	line	87
	colm	19
	subsc
	var	11
	pnull
	var	3
	line	87
	colm	34
	llist	1
	line	87
	colm	33
	invoke	1
	line	87
	colm	27
	asgn
lab L12
	goto	L10
lab L9
	pnull
	pnull
	var	2
	pnull
	var	0
	var	3
	line	88
	colm	19
	subsc
	line	88
	colm	17
	subsc
	var	3
	line	88
	colm	28
	asgn
lab L10
lab L6
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L13
	mark	L14
	var	2
	line	90
	colm	5
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	91
	colm	1
	pfail
	end
proc seteq
	local	0,001000,set1
	local	1,001000,set2
	local	2,000020,x
	local	3,000000,member
	declend
	line	93
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	96
	colm	7
	size
	pnull
	var	1
	line	96
	colm	16
	size
	line	96
	colm	13
	numne
	unmark
	line	96
	colm	27
	pfail
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	2
	pnull
	var	0
	line	97
	colm	15
	bang
	line	97
	colm	12
	asgn
	pop
	mark0
	mark0
	mark	L5
	var	3
	var	1
	var	2
	line	98
	colm	20
	invoke	2
	unmark
	efail
lab L5
	pnull
	unmark
	line	98
	colm	35
	pfail
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L6
	mark	L7
	var	1
	line	99
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	101
	colm	1
	pfail
	end
proc setlt
	local	0,001000,set1
	local	1,001000,set2
	local	2,000020,x
	local	3,000000,member
	declend
	line	103
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	106
	colm	7
	size
	pnull
	var	1
	line	106
	colm	16
	size
	line	106
	colm	13
	numge
	unmark
	line	106
	colm	27
	pfail
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	2
	pnull
	var	0
	line	107
	colm	15
	bang
	line	107
	colm	12
	asgn
	pop
	mark0
	mark0
	mark	L5
	var	3
	var	1
	var	2
	line	108
	colm	20
	invoke	2
	unmark
	efail
lab L5
	pnull
	unmark
	line	108
	colm	35
	pfail
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L6
	mark	L7
	var	1
	line	109
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	111
	colm	1
	pfail
	end
