proc copyl
	filen	seqops.icn
	local	0,001000,xargs
	local	1,000020,new_xargs
	local	2,000000,put
	local	3,000000,copy
	local	4,000000,spromote
	declend
	line	122
	colm	11
	mark	L1
	pnull
	var	1
	pnull
	line	125
	colm	17
	llist	0
	line	125
	colm	14
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	2
	var	1
	var	3
	var	4
	pnull
	var	0
	line	127
	colm	39
	bang
	line	127
	colm	38
	invoke	1
	line	127
	colm	29
	invoke	1
	line	127
	colm	13
	invoke	2
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	129
	colm	4
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	131
	colm	1
	pfail
	end
proc eval_tree
	local	0,001000,n
	local	1,000020,i
	local	2,000000,integer
	local	3,000000,type
	local	4,000000,eval_tree
	con	0,010000,4,156,157,144,145
	con	1,002000,1,1
	declend
	line	133
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	136
	colm	16
	invoke	1
	line	136
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	3
	var	0
	line	138
	colm	11
	invoke	1
	str	0
	line	138
	colm	15
	lexne
	unmark
	mark	L3
	var	0
	line	138
	colm	31
	pret
lab L3
	pfail
	unmark
lab L2
	mark	L4
	mark0
	pnull
	var	1
	pnull
	int	1
	pnull
	pnull
	var	0
	line	140
	colm	22
	field	seqlist
	line	140
	colm	20
	size
	push1
	line	140
	colm	17
	toby
	line	140
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	pnull
	var	0
	line	141
	colm	8
	field	seqlist
	var	1
	line	141
	colm	16
	subsc
	var	4
	pnull
	pnull
	var	0
	line	141
	colm	34
	field	seqlist
	var	1
	line	141
	colm	42
	subsc
	line	141
	colm	32
	invoke	1
	line	141
	colm	20
	asgn
	unmark
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	var	0
	line	143
	colm	12
	field	name
	pnull
	var	0
	line	143
	colm	21
	field	seqlist
	invoke	-1
	line	143
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	145
	colm	1
	pfail
	end
proc expression_tree
	local	0,001000,n
	local	1,000020,result
	local	2,000000,integer
	local	3,000000,type
	local	4,000000,simage
	local	5,000000,expression_tree
	con	0,010000,4,154,151,163,164
	con	1,010000,7,151,156,164,145,147,145,162
	con	2,010000,1,133
	con	3,002000,3,300
	con	4,010000,1,135
	con	5,010000,6,163,164,162,151,156,147
	con	6,010000,1,050
	con	7,010000,1,054
	con	8,002000,1,1
	con	9,010000,1,051
	declend
	line	147
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	150
	colm	16
	invoke	1
	line	150
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	3
	var	0
	line	152
	colm	13
	invoke	1
	eret
	mark	L4
	ccase
	mark	L5
	str	0
	esusp
	goto	L6
lab L5
	str	1
lab L6
	line	153
	colm	27
	eqv
	unmark
	pop
	mark	L7
	pnull
	pnull
	str	2
	var	4
	var	0
	int	3
	line	153
	colm	50
	invoke	2
	line	153
	colm	41
	cat
	str	4
	line	153
	colm	59
	cat
	line	153
	colm	30
	pret
lab L7
	pfail
	goto	L3
lab L4
	mark	L8
	ccase
	str	5
	line	154
	colm	27
	eqv
	unmark
	pop
	mark	L9
	var	0
	line	154
	colm	30
	pret
lab L9
	pfail
	goto	L3
lab L8
	efail
lab L3
	unmark
lab L2
	mark	L10
	pnull
	var	1
	pnull
	pnull
	var	0
	line	157
	colm	16
	field	name
	str	6
	line	157
	colm	22
	cat
	line	157
	colm	11
	asgn
	unmark
lab L10
	mark	L11
	mark0
	pnull
	var	1
	dup
	pnull
	var	5
	pnull
	pnull
	var	0
	line	159
	colm	40
	field	seqlist
	line	159
	colm	38
	bang
	line	159
	colm	37
	invoke	1
	str	7
	line	159
	colm	50
	cat
	line	159
	colm	17
	cat
	asgn
	pop
lab L12
	efail
lab L13
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	pnull
	var	1
	int	8
	pnull
	int	8
	line	161
	colm	20
	neg
	line	161
	colm	19
	sect
	str	9
	line	161
	colm	24
	cat
	line	161
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	163
	colm	1
	pfail
	end
proc fragment
	local	0,001000,s
	local	1,001000,i
	local	2,001000,p
	local	3,001000,arg
	local	4,000020,results
	local	5,000020,j
	local	6,000020,k
	local	7,000000,list
	local	8,000000,put
	local	9,000000,fragment
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	165
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	168
	colm	7
	size
	var	1
	line	168
	colm	10
	numle
	unmark
	mark	L2
	var	0
	line	168
	colm	20
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	pnull
	var	2
	line	170
	colm	4
	null
	int	0
	line	170
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	7
	var	1
	line	172
	colm	19
	invoke	1
	line	172
	colm	12
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	pnull
	var	4
	line	174
	colm	10
	bang
	pnull
	line	174
	colm	22
	llist	0
	line	174
	colm	19
	asgn
	pop
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L8
	pnull
	var	6
	int	1
	line	176
	colm	6
	asgn
	unmark
lab L8
	mark	L9
	mark0
	pnull
	var	5
	pnull
	int	0
	var	1
	push1
	line	178
	colm	17
	toby
	line	178
	colm	12
	asgn
	pop
	mark0
	mark0
	pnull
	int	0
	pnull
	pnull
	var	0
	line	179
	colm	19
	size
	var	1
	line	179
	colm	22
	div
	push1
	line	179
	colm	15
	toby
	pop
	mark0
	mark	L14
	var	8
	pnull
	var	4
	var	5
	line	180
	colm	21
	subsc
	pnull
	var	0
	pnull
	var	6
	dup
	int	0
	line	180
	colm	30
	plus
	asgn
	line	180
	colm	27
	subsc
	line	180
	colm	13
	invoke	2
	esusp
	goto	L15
lab L14
	unmark
	unmark
	unmark
	unmark
	pnull
	goto	L11
	goto	L13
lab L15
	unmark
lab L12
	efail
lab L13
	unmark
lab L10
	efail
lab L11
	unmark
lab L9
	mark	L16
	mark0
	pnull
	var	5
	pnull
	int	0
	var	1
	push1
	line	182
	colm	17
	toby
	line	182
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	4
	var	5
	line	183
	colm	14
	subsc
	var	2
	pnull
	var	4
	var	5
	line	183
	colm	30
	subsc
	var	3
	line	183
	colm	22
	invoke	2
	line	183
	colm	18
	asgn
	unmark
lab L17
	efail
lab L18
	unmark
lab L16
	mark	L19
	mark0
	pnull
	var	5
	pnull
	int	0
	var	1
	push1
	line	185
	colm	17
	toby
	line	185
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	4
	var	5
	line	186
	colm	14
	subsc
	var	9
	pnull
	var	4
	var	5
	line	186
	colm	37
	subsc
	var	1
	var	2
	var	3
	line	186
	colm	29
	invoke	4
	line	186
	colm	18
	asgn
	unmark
lab L20
	efail
lab L21
	unmark
lab L19
	mark	L22
	mark	L23
	var	4
	line	188
	colm	4
	pret
lab L23
	pfail
	unmark
lab L22
	pnull
	line	190
	colm	1
	pfail
	end
proc get_analysis
	local	0,001000,seq
	local	1,000020,expression
	local	2,000000,simageb
	local	3,000000,get_scollate
	local	4,000000,get_srepeat
	local	5,000000,remod
	local	6,000000,get_srun
	local	7,000000,get_sruns
	local	8,000000,get_splace
	con	0,002000,1,5
	declend
	line	194
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	197
	colm	7
	size
	int	0
	line	197
	colm	12
	numlt
	unmark
	mark	L2
	var	2
	var	0
	line	197
	colm	35
	invoke	1
	line	197
	colm	21
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	mark	L4
	var	3
	var	0
	line	200
	colm	19
	invoke	1
	esusp
	goto	L5
lab L4
	mark	L6
	var	4
	var	0
	line	201
	colm	18
	invoke	1
	esusp
	goto	L7
lab L6
	mark	L8
	var	5
	var	0
	var	6
	line	202
	colm	12
	invoke	2
	esusp
	goto	L9
lab L8
	mark	L10
	var	5
	var	0
	var	7
	line	203
	colm	12
	invoke	2
	esusp
	goto	L11
lab L10
	mark	L12
	var	8
	var	0
	line	204
	colm	17
	invoke	1
	esusp
	goto	L13
lab L12
	var	2
	var	0
	line	205
	colm	14
	invoke	1
lab L13
lab L11
lab L9
lab L7
lab L5
	line	199
	colm	15
	asgn
	unmark
lab L3
	mark	L14
	mark	L15
	var	1
	line	208
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	210
	colm	1
	pfail
	end
proc get_scollate
	local	0,001000,seq
	local	1,000020,bound
	local	2,000020,deltas
	local	3,000020,i
	local	4,000020,j
	local	5,000020,poses
	local	6,000020,positions
	local	7,000020,oper
	local	8,000020,seqs
	local	9,000020,results
	local	10,000020,result
	local	11,000020,k
	local	12,000020,count
	local	13,000020,oseq
	local	14,000020,m
	local	15,000020,nonperiod
	local	16,000020,facts
	local	17,000020,period
	local	18,000000,sbound
	local	19,000000,speriod
	local	20,000000,table
	local	21,000000,spositions
	local	22,000000,sconstant
	local	23,000000,sdelta
	local	24,000000,put
	local	25,000000,list
	local	26,000000,key
	local	27,000000,set
	local	28,000000,sdecollate
	local	29,000000,simageb
	local	30,000000,get_analysis
	con	0,002000,1,1
	con	1,002000,1,0
	con	2,002000,1,2
	con	3,010000,9,163,143,157,154,154,141,164,145,050
	con	4,010000,2,054,040
	con	5,010000,1,051
	declend
	line	212
	colm	11
	mark	L1
	pnull
	var	1
	var	18
	var	0
	invoke	-1
	line	216
	colm	10
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	19
	var	0
	line	218
	colm	11
	invoke	1
	esusp
	goto	L4
lab L3
	line	218
	colm	19
	pfail
lab L4
	unmark
lab L2
	mark	L5
	pnull
	var	2
	var	20
	line	220
	colm	19
	invoke	0
	line	220
	colm	11
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	6
	var	20
	line	221
	colm	22
	invoke	0
	line	221
	colm	14
	asgn
	unmark
lab L6
	mark	L7
	mark0
	pnull
	var	3
	pnull
	int	0
	var	1
	push1
	line	223
	colm	18
	toby
	line	223
	colm	13
	asgn
	pop
	mark0
	mark	L10
	pnull
	var	5
	var	21
	var	0
	var	3
	line	224
	colm	26
	invoke	2
	line	224
	colm	13
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	6
	var	3
	line	225
	colm	16
	subsc
	var	5
	line	225
	colm	20
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	4
	mark	L13
	var	22
	var	23
	var	5
	line	226
	colm	28
	invoke	1
	line	226
	colm	21
	invoke	1
	esusp
	goto	L14
lab L13
	line	226
	colm	39
	pfail
lab L14
	line	226
	colm	9
	asgn
	unmark
lab L12
	mark	L15
	pnull
	pnull
	pnull
	var	2
	var	4
	line	227
	colm	14
	subsc
	line	227
	colm	7
	null
	pnull
	line	227
	colm	21
	llist	0
	line	227
	colm	18
	asgn
	unmark
lab L15
	var	24
	pnull
	var	2
	var	4
	line	228
	colm	17
	subsc
	var	3
	line	228
	colm	10
	invoke	2
	unmark
lab L8
	efail
lab L9
	unmark
lab L7
	mark	L16
	pnull
	var	13
	var	25
	pnull
	var	0
	line	231
	colm	17
	size
	int	0
	line	231
	colm	16
	invoke	2
	line	231
	colm	9
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	12
	int	1
	line	233
	colm	10
	asgn
	unmark
lab L17
	mark	L18
	mark0
	pnull
	var	11
	var	26
	var	2
	line	235
	colm	18
	invoke	1
	line	235
	colm	12
	asgn
	pop
	mark0
	mark	L21
	pnull
	var	12
	dup
	int	0
	line	236
	colm	13
	plus
	asgn
	unmark
lab L21
	mark0
	pnull
	var	4
	pnull
	pnull
	var	2
	var	11
	line	237
	colm	25
	subsc
	line	237
	colm	18
	bang
	line	237
	colm	15
	asgn
	pop
	mark0
	mark0
	pnull
	var	14
	pnull
	pnull
	var	6
	var	4
	line	238
	colm	31
	subsc
	line	238
	colm	21
	bang
	line	238
	colm	18
	asgn
	pop
	mark0
	pnull
	pnull
	var	13
	var	14
	line	239
	colm	17
	subsc
	var	12
	line	239
	colm	21
	asgn
	unmark
lab L24
	efail
lab L25
	unmark
lab L22
	efail
lab L23
	unmark
lab L19
	efail
lab L20
	unmark
lab L18
	mark	L26
	mark0
	pnull
	pnull
	var	27
	var	13
	line	242
	colm	11
	invoke	1
	line	242
	colm	7
	size
	int	2
	line	242
	colm	18
	numlt
	unmark
	line	242
	colm	27
	pfail
	unmark
lab L26
	mark	L27
	pnull
	var	8
	mark	L28
	var	28
	var	13
	var	0
	line	246
	colm	22
	invoke	2
	esusp
	goto	L29
lab L28
	line	246
	colm	36
	pfail
lab L29
	line	246
	colm	9
	asgn
	unmark
lab L27
	mark	L30
	pnull
	var	7
	pnull
	str	3
	mark	L31
	var	29
	pnull
	var	13
	int	0
	dup
	var	19
	var	13
	line	248
	colm	51
	invoke	1
	line	248
	colm	42
	plus
	sect
	line	248
	colm	35
	invoke	1
	esusp
	goto	L32
lab L31
	var	30
	var	13
	line	249
	colm	19
	invoke	1
lab L32
	line	248
	colm	24
	cat
	line	248
	colm	9
	asgn
	unmark
lab L30
	mark	L33
	mark0
	pnull
	var	7
	dup
	pnull
	str	4
	var	30
	pnull
	var	8
	line	251
	colm	41
	bang
	line	251
	colm	40
	invoke	1
	line	251
	colm	25
	cat
	line	251
	colm	15
	cat
	asgn
	pop
lab L34
	efail
lab L35
	unmark
lab L33
	mark	L36
	mark	L37
	pnull
	var	7
	str	5
	line	253
	colm	16
	cat
	line	253
	colm	4
	pret
lab L37
	pfail
	unmark
lab L36
	pnull
	line	255
	colm	1
	pfail
	end
proc get_splace
	local	0,001000,seq
	local	1,000020,i
	local	2,000020,j
	local	3,000020,motif
	local	4,000020,seq2
	local	5,000020,path
	local	6,000000,sconstant
	local	7,000000,divisors
	local	8,000000,sequiv
	local	9,000000,sground
	local	10,000000,put
	local	11,000000,get_analysis
	con	0,010000,8,163,162,145,160,145,141,164,050
	con	1,010000,1,054
	con	2,010000,1,051
	con	3,002000,1,1
	con	4,010000,7,163,160,154,141,143,145,050
	con	5,010000,2,054,040
	declend
	line	257
	colm	11
	mark	L1
	mark0
	pnull
	var	1
	var	6
	var	0
	line	260
	colm	21
	invoke	1
	line	260
	colm	9
	asgn
	unmark
	mark	L2
	pnull
	pnull
	pnull
	pnull
	str	0
	var	1
	line	260
	colm	50
	cat
	str	1
	line	260
	colm	55
	cat
	pnull
	var	0
	line	260
	colm	65
	size
	line	260
	colm	62
	cat
	str	2
	line	260
	colm	70
	cat
	line	260
	colm	32
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	mark0
	pnull
	var	1
	var	7
	pnull
	var	0
	line	262
	colm	24
	size
	line	262
	colm	23
	invoke	1
	line	262
	colm	12
	asgn
	pop
	mark0
	mark	L6
	pnull
	var	3
	pnull
	var	0
	int	3
	dup
	var	1
	line	263
	colm	21
	plus
	sect
	line	263
	colm	13
	asgn
	unmark
lab L6
	mark	L7
	mark0
	pnull
	var	2
	pnull
	pnull
	var	1
	int	3
	line	264
	colm	20
	plus
	pnull
	var	0
	line	264
	colm	27
	size
	var	1
	line	264
	colm	24
	toby
	line	264
	colm	15
	asgn
	pop
	mark0
	mark0
	mark	L10
	var	8
	var	3
	var	9
	pnull
	var	0
	var	2
	dup
	var	1
	line	265
	colm	44
	plus
	sect
	pnull
	var	0
	int	3
	line	265
	colm	53
	subsc
	line	265
	colm	38
	invoke	2
	line	265
	colm	23
	invoke	2
	unmark
	efail
lab L10
	pnull
	unmark
	unmark
	unmark
	unmark
	unmark
	goto	L4
	goto	L9
	unmark
lab L8
	efail
lab L9
	unmark
lab L7
	mark	L11
	pnull
	var	5
	pnull
	line	266
	colm	15
	llist	0
	line	266
	colm	12
	asgn
	unmark
lab L11
	mark	L12
	mark0
	var	10
	var	5
	pnull
	var	0
	pnull
	int	3
	pnull
	var	0
	line	267
	colm	32
	size
	var	1
	line	267
	colm	29
	toby
	line	267
	colm	26
	subsc
	line	267
	colm	16
	invoke	2
	pop
lab L13
	efail
lab L14
	unmark
lab L12
	mark	L15
	pnull
	pnull
	pnull
	pnull
	str	4
	var	11
	var	3
	line	268
	colm	39
	invoke	1
	line	268
	colm	24
	cat
	str	5
	line	268
	colm	47
	cat
	var	11
	var	5
	line	268
	colm	70
	invoke	1
	line	268
	colm	55
	cat
	str	2
	line	268
	colm	77
	cat
	line	268
	colm	7
	pret
lab L15
	pfail
	unmark
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L16
	line	271
	colm	4
	pfail
	unmark
lab L16
	pnull
	line	273
	colm	1
	pfail
	end
proc get_srepeat
	local	0,001000,seq
	local	1,000020,i
	local	2,000000,speriod
	local	3,000000,get_analysis
	con	0,010000,8,163,162,145,160,145,141,164,050
	con	1,002000,1,1
	con	2,010000,2,054,040
	con	3,010000,1,051
	declend
	line	275
	colm	11
	mark	L1
	pnull
	var	1
	mark	L2
	var	2
	var	0
	line	278
	colm	16
	invoke	1
	esusp
	goto	L3
lab L2
	line	278
	colm	24
	pfail
lab L3
	line	278
	colm	6
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	pnull
	pnull
	pnull
	str	0
	var	3
	pnull
	var	0
	int	1
	dup
	var	1
	line	279
	colm	43
	plus
	sect
	line	279
	colm	37
	invoke	1
	line	279
	colm	22
	cat
	str	2
	line	279
	colm	49
	cat
	pnull
	pnull
	var	0
	line	279
	colm	61
	size
	var	1
	line	279
	colm	66
	div
	line	279
	colm	57
	cat
	str	3
	line	279
	colm	71
	cat
	line	279
	colm	4
	pret
lab L5
	pfail
	unmark
lab L4
	pnull
	line	281
	colm	1
	pfail
	end
proc get_srun
	local	0,001000,seq
	local	1,000020,i
	local	2,000020,j
	local	3,000020,new_seq
	local	4,000020,dir
	local	5,000000,copy
	local	6,000000,get
	local	7,000000,put
	local	8,000000,push
	local	9,000000,get_analysis
	con	0,002000,1,1
	con	1,002000,1,0
	con	2,010000,5,163,162,165,156,050
	con	3,010000,1,051
	declend
	line	283
	colm	11
	mark	L1
	pnull
	var	0
	var	5
	var	0
	line	286
	colm	15
	invoke	1
	line	286
	colm	8
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	6
	var	0
	line	288
	colm	12
	invoke	1
	line	288
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	var	6
	var	0
	line	289
	colm	12
	invoke	1
	line	289
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	2
	pnull
	var	1
	int	0
	line	291
	colm	13
	minus
	line	291
	colm	9
	numeq
	unmark
	pnull
	var	4
	pnull
	int	0
	line	291
	colm	29
	neg
	line	291
	colm	26
	asgn
	goto	L6
lab L5
	mark	L7
	pnull
	var	2
	pnull
	var	1
	int	0
	line	292
	colm	18
	plus
	line	292
	colm	14
	numeq
	unmark
	pnull
	var	4
	int	0
	line	292
	colm	31
	asgn
	goto	L8
lab L7
	line	293
	colm	9
	pfail
lab L8
lab L6
	unmark
lab L4
	mark	L9
	pnull
	var	3
	pnull
	var	1
	line	295
	colm	15
	llist	1
	line	295
	colm	12
	asgn
	unmark
lab L9
	mark	L10
lab L11
	mark0
	pnull
	var	1
	var	6
	var	0
	line	297
	colm	18
	invoke	1
	line	297
	colm	12
	asgn
	unmark
	mark	L11
	mark	L14
	mark	L15
	pnull
	var	1
	pnull
	var	2
	int	0
	line	298
	colm	16
	plus
	line	298
	colm	12
	numeq
	unmark
	mark	L17
	mark0
	pnull
	var	4
	pnull
	int	0
	line	299
	colm	19
	neg
	line	299
	colm	17
	numeq
	unmark
	var	7
	var	3
	var	2
	line	299
	colm	30
	invoke	2
	unmark
lab L17
	pnull
	var	4
	int	0
	line	300
	colm	14
	asgn
	goto	L16
lab L15
	mark	L18
	pnull
	var	1
	pnull
	var	2
	int	0
	line	302
	colm	22
	minus
	line	302
	colm	17
	numeq
	unmark
	mark	L20
	mark0
	pnull
	var	4
	int	0
	line	303
	colm	17
	numeq
	unmark
	var	7
	var	3
	var	2
	line	303
	colm	29
	invoke	2
	unmark
lab L20
	pnull
	var	4
	pnull
	int	0
	line	304
	colm	17
	neg
	line	304
	colm	14
	asgn
	goto	L19
lab L18
	mark	L21
	var	7
	var	3
	var	2
	line	307
	colm	13
	invoke	2
	unmark
lab L21
	mark	L22
	var	8
	var	0
	var	1
	line	308
	colm	14
	invoke	2
	unmark
lab L22
	unmark
	unmark
	pnull
	goto	L13
lab L19
lab L16
	unmark
lab L14
	pnull
	var	2
	var	1
	line	311
	colm	9
	asgn
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	mark	L23
	mark0
	pnull
	pnull
	var	0
	line	314
	colm	7
	size
	int	1
	line	314
	colm	12
	numne
	unmark
	line	314
	colm	22
	pfail
	unmark
lab L23
	mark	L24
	var	7
	var	3
	var	2
	line	316
	colm	7
	invoke	2
	unmark
lab L24
	mark	L25
	mark	L26
	pnull
	pnull
	str	2
	var	9
	var	3
	line	318
	colm	34
	invoke	1
	line	318
	colm	19
	cat
	str	3
	line	318
	colm	44
	cat
	line	318
	colm	4
	pret
lab L26
	pfail
	unmark
lab L25
	pnull
	line	320
	colm	1
	pfail
	end
proc get_sruns
	local	0,001000,seq
	local	1,000020,i
	local	2,000020,j
	local	3,000020,seq1
	local	4,000020,seq2
	local	5,000020,dir
	local	6,000000,get
	local	7,000000,put
	local	8,000000,push
	local	9,000000,get_analysis
	con	0,002000,1,1
	con	1,010000,6,163,162,165,156,163,050
	con	2,010000,2,054,040
	con	3,010000,1,051
	declend
	line	322
	colm	11
	mark	L1
	pnull
	var	3
	pnull
	line	325
	colm	12
	llist	0
	line	325
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	pnull
	line	326
	colm	12
	llist	0
	line	326
	colm	9
	asgn
	unmark
lab L2
	mark	L3
lab L4
	mark	L4
	mark	L7
	pnull
	var	1
	mark	L8
	var	6
	var	0
	line	329
	colm	15
	invoke	1
	esusp
	goto	L9
lab L8
	mark	L10
	var	7
	var	4
	var	2
	line	330
	colm	13
	invoke	2
	unmark
lab L10
	unmark
	unmark
	pnull
	goto	L6
lab L9
	line	329
	colm	9
	asgn
	unmark
lab L7
	mark	L11
	pnull
	var	2
	mark	L12
	var	6
	var	0
	line	333
	colm	15
	invoke	1
	esusp
	goto	L13
lab L12
	line	333
	colm	23
	pfail
lab L13
	line	333
	colm	9
	asgn
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	var	2
	pnull
	var	1
	int	0
	line	334
	colm	16
	minus
	line	334
	colm	12
	numeq
	unmark
	pnull
	var	5
	pnull
	int	0
	line	334
	colm	32
	neg
	line	334
	colm	29
	asgn
	goto	L16
lab L15
	mark	L17
	pnull
	var	2
	pnull
	var	1
	int	0
	line	335
	colm	21
	plus
	line	335
	colm	17
	numeq
	unmark
	pnull
	var	5
	int	0
	line	335
	colm	34
	asgn
	goto	L18
lab L17
	line	336
	colm	12
	pfail
lab L18
lab L16
	unmark
lab L14
	mark	L19
	var	7
	var	3
	var	1
	line	337
	colm	10
	invoke	2
	unmark
lab L19
lab L20
	mark0
	pnull
	var	1
	var	6
	var	0
	line	338
	colm	21
	invoke	1
	line	338
	colm	15
	asgn
	unmark
	mark	L20
	mark	L23
	pnull
	var	1
	pnull
	var	2
	var	5
	line	339
	colm	19
	plus
	line	339
	colm	15
	numeq
	unmark
	mark	L25
	pnull
	var	2
	var	1
	line	340
	colm	15
	asgn
	unmark
lab L25
	goto	L21
	goto	L24
lab L23
	mark	L26
	var	8
	var	0
	var	1
	line	344
	colm	17
	invoke	2
	unmark
lab L26
	mark	L27
	var	7
	var	4
	var	2
	line	345
	colm	16
	invoke	2
	unmark
lab L27
	unmark
	pnull
	goto	L22
lab L24
lab L21
	unmark
	goto	L20
lab L22
lab L5
	unmark
	goto	L4
lab L6
	unmark
lab L3
	mark	L28
	mark	L29
	pnull
	pnull
	pnull
	pnull
	str	1
	var	9
	var	3
	line	351
	colm	35
	invoke	1
	line	351
	colm	20
	cat
	str	2
	line	351
	colm	42
	cat
	var	9
	var	4
	line	351
	colm	65
	invoke	1
	line	351
	colm	50
	cat
	str	3
	line	351
	colm	72
	cat
	line	351
	colm	4
	pret
lab L29
	pfail
	unmark
lab L28
	pnull
	line	353
	colm	1
	pfail
	end
proc is_scompact
	local	0,001000,x
	local	1,000020,bound
	local	2,000000,spromote
	local	3,000000,sbound
	local	4,000000,set
	declend
	line	355
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	358
	colm	17
	invoke	1
	line	358
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	3
	var	0
	invoke	-1
	line	360
	colm	10
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	1
	pnull
	var	4
	var	0
	line	362
	colm	19
	invoke	1
	line	362
	colm	15
	size
	line	362
	colm	13
	numeq
	unmark
	mark	L6
	var	1
	line	362
	colm	28
	pret
lab L6
	pfail
	goto	L5
lab L4
	line	363
	colm	9
	pfail
lab L5
	unmark
lab L3
	pnull
	line	365
	colm	1
	pfail
	end
proc pimage
	local	0,001000,s
	local	1,000020,result
	local	2,000020,x
	local	3,000000,integer
	local	4,000000,pimage
	con	0,010000,0
	con	1,010000,1,054
	con	2,010000,1,133
	con	3,002000,1,1
	con	4,010000,1,135
	declend
	line	367
	colm	11
	mark	L1
	pnull
	var	1
	str	0
	line	370
	colm	11
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	2
	pnull
	var	0
	line	372
	colm	15
	bang
	line	372
	colm	12
	asgn
	pop
	mark0
	mark	L5
	mark	L6
	var	3
	var	2
	line	373
	colm	17
	invoke	1
	unmark
	pnull
	var	1
	dup
	var	2
	line	373
	colm	33
	cat
	asgn
	goto	L7
lab L6
	pnull
	var	1
	dup
	var	4
	var	2
	line	374
	colm	28
	invoke	1
	line	374
	colm	17
	cat
	asgn
lab L7
	unmark
lab L5
	pnull
	var	1
	dup
	str	1
	line	375
	colm	14
	cat
	asgn
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L8
	mark	L9
	pnull
	pnull
	str	2
	pnull
	var	1
	int	3
	pnull
	int	3
	line	378
	colm	27
	neg
	line	378
	colm	26
	sect
	line	378
	colm	15
	cat
	str	4
	line	378
	colm	31
	cat
	line	378
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	380
	colm	1
	pfail
	end
proc remod
	local	0,001000,seq
	local	1,001000,p
	local	2,000020,nseq
	local	3,000020,bound
	local	4,000000,sunmod
	local	5,000000,sbound
	local	6,000000,copy
	con	0,010000,5,163,155,157,144,050
	con	1,010000,2,054,040
	con	2,010000,1,051
	declend
	line	382
	colm	11
	mark	L1
	pnull
	var	2
	var	4
	var	0
	line	385
	colm	18
	invoke	1
	line	385
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	5
	var	2
	invoke	-1
	pnull
	var	3
	var	5
	var	0
	invoke	-1
	line	387
	colm	32
	asgn
	line	387
	colm	23
	numgt
	unmark
	mark	L5
	pnull
	pnull
	pnull
	pnull
	str	0
	var	1
	var	2
	line	388
	colm	26
	invoke	1
	line	388
	colm	22
	cat
	str	1
	line	388
	colm	33
	cat
	var	3
	line	388
	colm	41
	cat
	str	2
	line	388
	colm	50
	cat
	line	388
	colm	7
	pret
lab L5
	pfail
	goto	L4
lab L3
	mark	L6
	var	1
	var	6
	var	0
	line	389
	colm	22
	invoke	1
	line	389
	colm	17
	invoke	1
	line	389
	colm	9
	pret
lab L6
	pfail
lab L4
	unmark
lab L2
	pnull
	line	391
	colm	1
	pfail
	end
proc sanalout
	local	0,000020,expression
	local	1,000020,var
	local	2,000000,write
	local	3,000000,expressions
	local	4,000000,sort
	local	5,000000,get
	local	6,000000,table
	con	0,010000,11,154,151,156,153,040,163,145,161,157,160,163
	con	1,010000,16,160,162,157,143,145,144,165,162,145,040,155,141,151,156,050,051
	con	2,002000,1,4
	con	3,010000,4,040,072,075,040
	con	4,010000,13,145,166,145,162,171,040,167,162,151,164,145,050,041
	con	5,010000,1,051
	con	6,010000,3,145,156,144
	declend
	line	393
	colm	11
	mark	L1
	var	2
	str	0
	line	396
	colm	9
	invoke	1
	unmark
lab L1
	mark	L2
	var	2
	str	1
	line	397
	colm	9
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	4
	var	3
	int	2
	line	399
	colm	23
	invoke	2
	line	399
	colm	16
	asgn
	unmark
lab L3
	mark	L4
lab L5
	mark0
	pnull
	var	0
	var	5
	var	3
	line	401
	colm	27
	invoke	1
	line	401
	colm	21
	asgn
	unmark
	mark	L5
	var	2
	pnull
	var	1
	var	5
	var	3
	line	402
	colm	23
	invoke	1
	line	402
	colm	17
	asgn
	str	3
	var	0
	line	402
	colm	12
	invoke	3
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark	L8
	var	2
	str	4
	var	1
	str	5
	line	404
	colm	9
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	str	6
	line	406
	colm	9
	invoke	1
	unmark
lab L9
	mark	L10
	pnull
	var	3
	var	6
	line	408
	colm	24
	invoke	0
	line	408
	colm	16
	asgn
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	line	410
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	412
	colm	1
	pfail
	end
proc sanalysis
	local	0,001000,x
	local	1,000000,sanalout
	declend
	line	414
	colm	11
	mark	L1
	var	1
	line	418
	colm	12
	invoke	0
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	420
	colm	4
	pret
lab L3
	pfail
	unmark
lab L2
	pnull
	line	422
	colm	1
	pfail
	end
proc sbinop
	local	0,001000,op
	local	1,001000,xargs
	local	2,000020,lseq
	local	3,000020,i
	local	4,000020,x1
	local	5,000020,x2
	local	6,000000,spromote
	local	7,000000,proc
	local	8,000000,smin
	local	9,000000,put
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	424
	colm	11
	mark	L1
	pnull
	var	4
	var	6
	pnull
	var	1
	int	0
	line	427
	colm	24
	subsc
	line	427
	colm	18
	invoke	1
	line	427
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	6
	pnull
	var	1
	int	1
	line	428
	colm	24
	subsc
	line	428
	colm	18
	invoke	1
	line	428
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	mark	L4
	var	7
	var	0
	int	1
	line	430
	colm	14
	invoke	2
	esusp
	goto	L5
lab L4
	line	430
	colm	24
	pfail
lab L5
	line	430
	colm	7
	asgn
	unmark
lab L3
	mark	L6
	pnull
	var	2
	pnull
	line	432
	colm	12
	llist	0
	line	432
	colm	9
	asgn
	unmark
lab L6
	mark	L7
	mark0
	pnull
	var	3
	pnull
	int	0
	var	8
	pnull
	var	4
	line	434
	colm	25
	size
	pnull
	var	5
	line	434
	colm	30
	size
	line	434
	colm	24
	invoke	2
	push1
	line	434
	colm	17
	toby
	line	434
	colm	12
	asgn
	pop
	mark0
	var	9
	var	2
	var	0
	pnull
	var	4
	var	3
	line	435
	colm	22
	subsc
	pnull
	var	5
	var	3
	line	435
	colm	29
	subsc
	line	435
	colm	19
	invoke	2
	line	435
	colm	10
	invoke	2
	unmark
lab L8
	efail
lab L9
	unmark
lab L7
	mark	L10
	mark	L11
	var	2
	line	437
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	439
	colm	1
	pfail
	end
proc sbound
	local	0,001000,xargs
	local	1,000000,sort
	con	0,002000,1,1
	declend
	line	441
	colm	11
	mark	L1
	mark	L2
	pnull
	var	1
	var	0
	line	443
	colm	15
	invoke	1
	pnull
	int	0
	line	443
	colm	23
	neg
	line	443
	colm	22
	subsc
	line	443
	colm	4
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	445
	colm	1
	pfail
	end
proc scollate
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,order
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,get
	local	7,000000,srun
	local	8,000000,copyl
	local	9,000000,put
	con	0,010000,8,163,143,157,154,154,141,164,145
	con	1,002000,1,1
	declend
	line	447
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	450
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	450
	colm	33
	invoke	2
	line	450
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	var	0
	line	452
	colm	16
	invoke	1
	line	452
	colm	10
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	3
	line	454
	colm	4
	null
	var	7
	int	1
	pnull
	var	0
	line	454
	colm	22
	size
	line	454
	colm	18
	invoke	2
	line	454
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	var	8
	var	0
	invoke	-1
	line	456
	colm	10
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	pnull
	line	458
	colm	12
	llist	0
	line	458
	colm	9
	asgn
	unmark
lab L6
	mark	L7
lab L8
	mark0
	pnull
	var	2
	var	6
	var	3
	line	460
	colm	18
	invoke	1
	line	460
	colm	12
	asgn
	unmark
	mark	L8
	mark	L11
	var	9
	var	3
	var	2
	line	461
	colm	10
	invoke	2
	unmark
lab L11
	mark	L12
	var	9
	var	1
	var	6
	pnull
	var	0
	var	2
	line	462
	colm	26
	subsc
	line	462
	colm	20
	invoke	1
	line	462
	colm	10
	invoke	2
	esusp
	goto	L13
lab L12
	unmark
	pnull
	goto	L10
lab L13
lab L9
	unmark
	goto	L8
lab L10
	unmark
lab L7
	mark	L14
	var	9
	var	1
	var	6
	pnull
	var	0
	var	6
	var	3
	line	465
	colm	27
	invoke	1
	line	465
	colm	23
	subsc
	line	465
	colm	17
	invoke	1
	line	465
	colm	7
	invoke	2
	unmark
lab L14
	mark	L15
	mark	L16
	var	1
	line	467
	colm	4
	pret
lab L16
	pfail
	unmark
lab L15
	pnull
	line	469
	colm	1
	pfail
	end
proc scompress
	local	0,001000,xargs
	local	1,000020,unique
	local	2,000020,target
	local	3,000020,x
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,spromote
	local	7,000000,set
	local	8,000000,put
	local	9,000000,smap
	local	10,000000,sort
	con	0,010000,8,143,157,155,160,162,145,163,163
	con	1,002000,1,1
	declend
	line	471
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	474
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	474
	colm	33
	invoke	2
	line	474
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	pnull
	var	0
	int	1
	line	476
	colm	23
	subsc
	line	476
	colm	17
	invoke	1
	line	476
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	var	7
	var	3
	line	478
	colm	17
	invoke	1
	line	478
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	pnull
	line	480
	colm	14
	llist	0
	line	480
	colm	11
	asgn
	unmark
lab L5
	mark	L6
	mark0
	var	8
	var	2
	pnull
	int	1
	pnull
	var	1
	line	482
	colm	27
	size
	push1
	line	482
	colm	24
	toby
	line	482
	colm	13
	invoke	2
	pop
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	9
	var	3
	var	10
	var	1
	line	484
	colm	23
	invoke	1
	var	2
	line	484
	colm	15
	invoke	3
	line	484
	colm	4
	pret
lab L10
	pfail
	unmark
lab L9
	pnull
	line	486
	colm	1
	pfail
	end
proc sconcat
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000000,node_gen
	local	3,000000,node
	local	4,000000,spromote
	con	0,010000,7,163,143,157,156,143,141,164
	declend
	line	488
	colm	11
	mark	L1
	mark0
	pnull
	var	2
	line	491
	colm	7
	nonnull
	unmark
	mark	L2
	var	3
	str	0
	var	0
	line	491
	colm	33
	invoke	2
	line	491
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	pnull
	line	493
	colm	12
	llist	0
	line	493
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	1
	dup
	var	4
	pnull
	var	0
	line	495
	colm	30
	bang
	line	495
	colm	29
	invoke	1
	line	495
	colm	15
	lconcat
	asgn
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	1
	line	497
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	499
	colm	1
	pfail
	end
proc sconcatp
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,nseq
	local	3,000000,node_gen
	local	4,000000,node
	local	5,000000,spromote
	local	6,000000,get
	con	0,010000,7,163,143,157,156,143,141,164
	con	1,002000,1,1
	declend
	line	501
	colm	11
	mark	L1
	mark0
	pnull
	var	3
	line	504
	colm	7
	nonnull
	unmark
	mark	L2
	var	4
	str	0
	var	0
	line	504
	colm	33
	invoke	2
	line	504
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	pnull
	line	506
	colm	12
	llist	0
	line	506
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	2
	var	5
	pnull
	var	0
	line	508
	colm	27
	bang
	line	508
	colm	26
	invoke	1
	line	508
	colm	15
	asgn
	pop
	mark0
	mark	L7
	mark0
	pnull
	pnull
	var	2
	int	1
	line	509
	colm	14
	subsc
	pnull
	var	1
	pnull
	int	1
	line	509
	colm	27
	neg
	line	509
	colm	26
	subsc
	line	509
	colm	18
	eqv
	unmark
	var	6
	var	2
	line	509
	colm	39
	invoke	1
	unmark
lab L7
	pnull
	var	1
	dup
	var	2
	line	510
	colm	12
	lconcat
	asgn
	unmark
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L8
	mark	L9
	var	1
	line	513
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	515
	colm	1
	pfail
	end
proc sconstant
	local	0,001000,seq
	local	1,000000,set
	con	0,002000,1,1
	declend
	line	517
	colm	11
	mark	L1
	mark	L2
	pnull
	pnull
	var	1
	var	0
	line	519
	colm	11
	invoke	1
	line	519
	colm	7
	size
	int	0
	line	519
	colm	17
	numeq
	unmark
	mark	L4
	pnull
	var	0
	line	519
	colm	33
	bang
	line	519
	colm	26
	pret
lab L4
	pfail
	goto	L3
lab L2
	line	520
	colm	9
	pfail
lab L3
	unmark
lab L1
	pnull
	line	522
	colm	1
	pfail
	end
proc scpal
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,x1
	local	3,000020,x2
	local	4,000020,i
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,spromote
	local	8,000000,srepeat
	local	9,000000,sopal
	local	10,000000,put
	con	0,010000,5,163,143,160,141,154
	con	1,002000,1,1
	con	2,002000,1,2
	con	3,002000,1,0
	declend
	line	524
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	527
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	527
	colm	33
	invoke	2
	line	527
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	2
	var	7
	pnull
	var	0
	int	1
	line	529
	colm	24
	subsc
	line	529
	colm	18
	invoke	1
	line	529
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	mark	L5
	var	7
	pnull
	var	0
	int	2
	line	530
	colm	24
	subsc
	line	530
	colm	18
	invoke	1
	esusp
	goto	L6
lab L5
	pnull
	int	1
	line	530
	colm	31
	llist	1
lab L6
	line	530
	colm	7
	asgn
	unmark
lab L4
	mark	L7
	pnull
	var	4
	int	3
	line	532
	colm	6
	asgn
	unmark
lab L7
	mark	L8
	mark0
	pnull
	var	4
	dup
	pnull
	var	3
	line	534
	colm	16
	bang
	line	534
	colm	12
	plus
	asgn
	pop
lab L9
	efail
lab L10
	unmark
lab L8
	mark	L11
	pnull
	var	1
	var	8
	var	9
	var	2
	line	536
	colm	25
	invoke	1
	var	4
	line	536
	colm	19
	invoke	2
	line	536
	colm	9
	asgn
	unmark
lab L11
	mark	L12
	var	10
	var	1
	pnull
	var	1
	int	1
	line	538
	colm	18
	subsc
	line	538
	colm	7
	invoke	2
	unmark
lab L12
	mark	L13
	mark	L14
	var	1
	line	540
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	542
	colm	1
	pfail
	end
proc sdecimate
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,j
	local	3,000020,k
	local	4,000020,x1
	local	5,000020,x2
	local	6,000000,spromote
	local	7,000000,sort
	local	8,000000,get
	local	9,000000,put
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	544
	colm	11
	mark	L1
	pnull
	var	4
	var	6
	pnull
	var	0
	int	0
	line	547
	colm	24
	subsc
	line	547
	colm	18
	invoke	1
	line	547
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	7
	var	6
	pnull
	var	0
	int	1
	line	548
	colm	29
	subsc
	line	548
	colm	23
	invoke	1
	line	548
	colm	14
	invoke	1
	line	548
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	pnull
	line	550
	colm	12
	llist	0
	line	550
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	int	0
	line	552
	colm	6
	asgn
	unmark
lab L4
	mark	L5
lab L6
	mark0
	pnull
	var	2
	var	8
	var	5
	line	554
	colm	18
	invoke	1
	line	554
	colm	12
	asgn
	unmark
	mark	L6
	mark	L9
	mark0
	var	9
	var	1
	pnull
	var	4
	pnull
	var	3
	pnull
	var	2
	int	0
	line	555
	colm	33
	minus
	push1
	line	555
	colm	28
	toby
	line	555
	colm	25
	subsc
	line	555
	colm	16
	invoke	2
	pop
lab L10
	efail
lab L11
	unmark
lab L9
	pnull
	var	3
	pnull
	var	2
	int	0
	line	556
	colm	14
	plus
	line	556
	colm	9
	asgn
lab L7
	unmark
	goto	L6
lab L8
	unmark
lab L5
	mark	L12
	mark0
	var	9
	var	1
	pnull
	var	4
	pnull
	pnull
	var	2
	int	0
	line	559
	colm	25
	plus
	pnull
	var	4
	line	559
	colm	32
	size
	push1
	line	559
	colm	29
	toby
	line	559
	colm	22
	subsc
	line	559
	colm	13
	invoke	2
	pop
lab L13
	efail
lab L14
	unmark
lab L12
	mark	L15
	mark	L16
	var	1
	line	561
	colm	4
	pret
lab L16
	pfail
	unmark
lab L15
	pnull
	line	563
	colm	1
	pfail
	end
proc sdecollate
	local	0,001000,order
	local	1,001000,x
	local	2,000020,lseq
	local	3,000020,i
	local	4,000020,j
	local	5,000000,spromote
	local	6,000000,copy
	local	7,000000,list
	local	8,000000,sbound
	local	9,000000,get
	local	10,000000,put
	con	0,002000,1,0
	declend
	line	566
	colm	11
	mark	L1
	pnull
	var	1
	var	5
	var	1
	line	569
	colm	17
	invoke	1
	line	569
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	pnull
	var	1
	line	571
	colm	7
	size
	int	0
	line	571
	colm	10
	numeq
	unmark
	line	571
	colm	19
	pfail
	unmark
lab L2
	mark	L3
	pnull
	var	0
	var	6
	var	0
	line	573
	colm	17
	invoke	1
	line	573
	colm	10
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	var	7
	var	8
	var	0
	invoke	-1
	line	575
	colm	16
	invoke	1
	line	575
	colm	9
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	pnull
	var	2
	line	577
	colm	10
	bang
	pnull
	line	577
	colm	19
	llist	0
	line	577
	colm	16
	asgn
	pop
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L8
	mark0
	pnull
	var	4
	pnull
	var	1
	line	579
	colm	15
	bang
	line	579
	colm	12
	asgn
	pop
	mark0
	mark	L11
	pnull
	var	3
	mark	L12
	var	9
	var	0
	line	580
	colm	15
	invoke	1
	esusp
	goto	L13
lab L12
	line	580
	colm	27
	pfail
lab L13
	line	580
	colm	9
	asgn
	unmark
lab L11
	mark	L14
	var	10
	var	0
	var	3
	line	581
	colm	10
	invoke	2
	unmark
lab L14
	var	10
	pnull
	var	2
	var	3
	line	582
	colm	15
	subsc
	var	4
	line	582
	colm	10
	invoke	2
	unmark
lab L9
	efail
lab L10
	unmark
lab L8
	mark	L15
	mark	L16
	var	2
	line	585
	colm	4
	pret
lab L16
	pfail
	unmark
lab L15
	pnull
	line	587
	colm	1
	pfail
	end
proc sdelta
	local	0,001000,seq
	local	1,000020,i
	local	2,000020,lseq
	local	3,000020,j
	local	4,000000,copy
	local	5,000000,get
	local	6,000000,put
	con	0,002000,1,2
	declend
	line	589
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	592
	colm	7
	size
	int	0
	line	592
	colm	12
	numlt
	unmark
	line	592
	colm	21
	pfail
	unmark
lab L1
	mark	L2
	pnull
	var	0
	var	4
	var	0
	line	594
	colm	15
	invoke	1
	line	594
	colm	8
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	var	5
	var	0
	line	596
	colm	12
	invoke	1
	line	596
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	pnull
	line	598
	colm	12
	llist	0
	line	598
	colm	9
	asgn
	unmark
lab L4
	mark	L5
lab L6
	mark0
	pnull
	var	3
	var	5
	var	0
	line	600
	colm	18
	invoke	1
	line	600
	colm	12
	asgn
	unmark
	mark	L6
	mark	L9
	var	6
	var	2
	pnull
	var	3
	var	1
	line	601
	colm	19
	minus
	line	601
	colm	10
	invoke	2
	unmark
lab L9
	pnull
	var	1
	var	3
	line	602
	colm	9
	asgn
lab L7
	unmark
	goto	L6
lab L8
	unmark
lab L5
	mark	L10
	mark	L11
	var	2
	line	605
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	607
	colm	1
	pfail
	end
proc sdirection
	local	0,001000,x
	local	1,000020,lseq
	local	2,000020,i
	local	3,000000,sdelta
	local	4,000000,spromote
	local	5,000000,get
	local	6,000000,put
	con	0,002000,1,0
	con	1,002000,1,3
	con	2,002000,1,2
	con	3,002000,1,1
	declend
	line	609
	colm	11
	mark	L1
	pnull
	var	0
	mark	L2
	var	3
	var	4
	var	0
	line	612
	colm	24
	invoke	1
	line	612
	colm	15
	invoke	1
	esusp
	goto	L3
lab L2
	line	612
	colm	31
	pfail
lab L3
	line	612
	colm	6
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	1
	pnull
	line	614
	colm	12
	llist	0
	line	614
	colm	9
	asgn
	unmark
lab L4
	mark	L5
lab L6
	mark0
	pnull
	var	2
	var	5
	var	0
	line	616
	colm	18
	invoke	1
	line	616
	colm	12
	asgn
	unmark
	mark	L6
	var	6
	var	1
	mark	L9
	pnull
	var	2
	int	0
	line	618
	colm	15
	numgt
	unmark
	int	1
	goto	L10
lab L9
	mark	L11
	pnull
	var	2
	int	0
	line	619
	colm	20
	numeq
	unmark
	int	2
	goto	L12
lab L11
	int	3
lab L12
lab L10
	line	617
	colm	10
	invoke	2
lab L7
	unmark
	goto	L6
lab L8
	unmark
lab L5
	mark	L13
	mark	L14
	var	1
	line	623
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	625
	colm	1
	pfail
	end
proc sdistrib
	local	0,001000,x
	local	1,000020,lseq
	local	2,000020,i
	local	3,000000,copy
	local	4,000000,spromote
	local	5,000000,list
	local	6,000000,sbound
	local	7,000000,get
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	627
	colm	11
	mark	L1
	pnull
	var	0
	var	3
	var	4
	var	0
	line	630
	colm	22
	invoke	1
	line	630
	colm	13
	invoke	1
	line	630
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	5
	var	6
	var	0
	invoke	-1
	int	0
	line	632
	colm	16
	invoke	2
	line	632
	colm	9
	asgn
	unmark
lab L2
	mark	L3
lab L4
	mark0
	pnull
	var	2
	var	7
	var	0
	line	634
	colm	18
	invoke	1
	line	634
	colm	12
	asgn
	unmark
	mark	L4
	pnull
	pnull
	var	1
	var	2
	line	635
	colm	11
	subsc
	dup
	int	1
	line	635
	colm	15
	plus
	asgn
lab L5
	unmark
	goto	L4
lab L6
	unmark
lab L3
	mark	L7
	mark	L8
	var	1
	line	637
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	639
	colm	1
	pfail
	end
proc sequiv
	local	0,001000,x1
	local	1,001000,x2
	local	2,000020,i
	local	3,000000,spromote
	con	0,002000,1,1
	declend
	line	641
	colm	11
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	644
	colm	18
	invoke	1
	line	644
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	3
	var	1
	line	645
	colm	18
	invoke	1
	line	645
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	pnull
	var	0
	line	647
	colm	7
	size
	pnull
	var	1
	line	647
	colm	14
	size
	line	647
	colm	11
	numne
	unmark
	line	647
	colm	23
	pfail
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	2
	pnull
	int	0
	pnull
	var	0
	line	649
	colm	20
	size
	push1
	line	649
	colm	17
	toby
	line	649
	colm	12
	asgn
	pop
	mark0
	mark0
	pnull
	pnull
	var	0
	var	2
	line	650
	colm	12
	subsc
	pnull
	var	1
	var	2
	line	650
	colm	21
	subsc
	line	650
	colm	16
	numne
	unmark
	line	650
	colm	30
	pfail
	unmark
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	1
	line	652
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	654
	colm	1
	pfail
	end
proc sextend
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,part
	local	3,000020,i
	local	4,000020,x1
	local	5,000020,x2
	local	6,000000,node_gen
	local	7,000000,node
	local	8,000000,spromote
	con	0,010000,7,163,145,170,164,145,156,144
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	656
	colm	11
	mark	L1
	mark0
	pnull
	var	6
	line	659
	colm	7
	nonnull
	unmark
	mark	L2
	var	7
	str	0
	var	0
	line	659
	colm	33
	invoke	2
	line	659
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	8
	pnull
	var	0
	int	1
	line	661
	colm	24
	subsc
	line	661
	colm	18
	invoke	1
	line	661
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	pnull
	line	663
	colm	12
	llist	0
	line	663
	colm	9
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	3
	pnull
	var	8
	pnull
	var	0
	int	2
	line	665
	colm	30
	subsc
	line	665
	colm	24
	invoke	1
	line	665
	colm	15
	bang
	line	665
	colm	12
	asgn
	pop
	mark0
	mark	L8
	pnull
	var	2
	pnull
	line	666
	colm	15
	llist	0
	line	666
	colm	12
	asgn
	unmark
lab L8
	mark	L9
lab L10
	mark	L11
	pnull
	pnull
	var	2
	line	667
	colm	13
	size
	var	3
	line	667
	colm	19
	numge
	unmark
	efail
lab L11
	mark	L10
	pnull
	var	2
	dup
	var	4
	line	668
	colm	15
	lconcat
	asgn
lab L12
	unmark
	goto	L10
lab L13
	unmark
lab L9
	pnull
	var	1
	dup
	pnull
	var	2
	int	1
	dup
	var	3
	line	669
	colm	24
	plus
	sect
	line	669
	colm	12
	lconcat
	asgn
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L14
	mark	L15
	var	1
	line	672
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	674
	colm	1
	pfail
	end
proc sflatten
	local	0,001000,s
	local	1,000020,lseq
	local	2,000020,x
	local	3,000000,type
	local	4,000000,sflatten
	local	5,000000,put
	con	0,010000,4,154,151,163,164
	declend
	line	676
	colm	11
	mark	L1
	pnull
	var	1
	pnull
	line	679
	colm	12
	llist	0
	line	679
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	2
	pnull
	var	0
	line	681
	colm	15
	bang
	line	681
	colm	12
	asgn
	pop
	mark0
	mark	L5
	pnull
	var	3
	var	2
	line	682
	colm	14
	invoke	1
	str	0
	line	682
	colm	18
	lexeq
	unmark
	pnull
	var	1
	dup
	var	4
	var	2
	line	682
	colm	52
	invoke	1
	line	682
	colm	38
	lconcat
	asgn
	goto	L6
lab L5
	var	5
	var	1
	var	2
	line	683
	colm	15
	invoke	2
lab L6
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L7
	mark	L8
	var	1
	line	685
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	687
	colm	1
	pfail
	end
proc sground
	local	0,001000,seq
	local	1,001000,i
	local	2,000020,j
	local	3,000000,smin
	con	0,002000,1,1
	declend
	line	689
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	692
	colm	4
	null
	int	0
	line	692
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	3
	var	0
	invoke	-1
	line	694
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	pnull
	var	0
	line	696
	colm	10
	bang
	dup
	pnull
	var	2
	var	1
	line	696
	colm	22
	minus
	line	696
	colm	15
	minus
	asgn
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L6
	mark	L7
	var	0
	line	698
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	700
	colm	1
	pfail
	end
proc shaft_period
	local	0,001000,x1
	local	1,001000,x2
	local	2,000020,results
	local	3,000000,spromote
	local	4,000000,sconstant
	local	5,000000,sdelta
	local	6,000000,spositions
	declend
	line	702
	colm	11
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	705
	colm	18
	invoke	1
	line	705
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	3
	var	1
	line	706
	colm	18
	invoke	1
	line	706
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	4
	var	5
	var	6
	var	0
	var	1
	line	708
	colm	38
	invoke	2
	line	708
	colm	27
	invoke	1
	line	708
	colm	20
	invoke	1
	line	708
	colm	4
	pret
lab L4
	pfail
	unmark
lab L3
	pnull
	line	710
	colm	1
	pfail
	end
proc simage
	local	0,001000,x
	local	1,001000,limit
	local	2,000020,str
	local	3,000000,spromote
	con	0,002000,1,0
	con	1,010000,2,133,135
	con	2,002000,1,2
	con	3,002000,2,16
	con	4,010000,0
	con	5,010000,2,054,040
	con	6,010000,5,056,056,056,040,040
	con	7,002000,1,1
	declend
	line	712
	colm	11
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	715
	colm	17
	invoke	1
	line	715
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	pnull
	var	0
	line	717
	colm	7
	size
	int	0
	line	717
	colm	10
	numeq
	unmark
	mark	L3
	str	1
	line	717
	colm	19
	pret
lab L3
	pfail
	unmark
lab L2
	mark	L4
	pnull
	pnull
	var	1
	line	719
	colm	4
	null
	pnull
	int	2
	int	3
	line	719
	colm	16
	power
	line	719
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	str	4
	line	721
	colm	7
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	dup
	pnull
	var	1
	line	723
	colm	20
	limit
	pnull
	var	0
	bang
	lsusp
	str	5
	line	723
	colm	32
	cat
	line	723
	colm	14
	cat
	asgn
	pop
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L9
	mark0
	pnull
	pnull
	var	0
	line	725
	colm	7
	size
	var	1
	line	725
	colm	10
	numgt
	unmark
	pnull
	var	2
	dup
	str	6
	line	725
	colm	27
	cat
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	var	2
	int	7
	pnull
	int	2
	line	727
	colm	17
	neg
	line	727
	colm	16
	sect
	line	727
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	729
	colm	1
	pfail
	end
proc simageb
	local	0,001000,seq
	local	1,000000,simage
	con	0,002000,1,1
	con	1,010000,8,163,143,157,156,143,141,164,050
	con	2,010000,1,051
	declend
	line	731
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	733
	colm	7
	size
	int	0
	line	733
	colm	12
	numeq
	unmark
	mark	L2
	pnull
	var	0
	int	0
	line	733
	colm	31
	subsc
	line	733
	colm	21
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	pnull
	str	1
	var	1
	var	0
	line	735
	colm	31
	invoke	1
	line	735
	colm	22
	cat
	str	2
	line	735
	colm	37
	cat
	line	735
	colm	4
	pret
lab L4
	pfail
	unmark
lab L3
	pnull
	line	737
	colm	1
	pfail
	end
proc sinit
	local	0,000000,saltparity
	local	1,000000,sparity
	local	2,000000,scompact
	local	3,000000,scompress
	local	4,000000,sfliph
	local	5,000000,sreflecth
	local	6,000000,sflipv
	local	7,000000,sreflectv
	local	8,000000,sflipr
	local	9,000000,sreflectr
	declend
	line	739
	colm	11
	mark	L1
	pnull
	var	0
	var	1
	line	741
	colm	15
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	3
	line	742
	colm	13
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	5
	line	743
	colm	11
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	var	7
	line	744
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	8
	var	9
	line	745
	colm	11
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	line	748
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	750
	colm	1
	pfail
	end
proc sintermix
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,order
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,get
	local	7,000000,srun
	local	8,000000,copyl
	local	9,000000,put
	con	0,010000,9,163,151,156,164,145,162,155,151,170
	con	1,002000,1,1
	declend
	line	752
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	755
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	755
	colm	33
	invoke	2
	line	755
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	var	0
	line	757
	colm	16
	invoke	1
	line	757
	colm	10
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	3
	line	759
	colm	4
	null
	var	7
	int	1
	pnull
	var	0
	line	759
	colm	22
	size
	line	759
	colm	18
	invoke	2
	line	759
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	var	8
	var	0
	invoke	-1
	line	761
	colm	10
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	pnull
	line	763
	colm	12
	llist	0
	line	763
	colm	9
	asgn
	unmark
lab L6
	mark	L7
lab L8
	mark0
	pnull
	var	2
	var	6
	var	3
	line	765
	colm	18
	invoke	1
	line	765
	colm	12
	asgn
	unmark
	mark	L8
	mark	L11
	var	9
	var	3
	var	2
	line	766
	colm	10
	invoke	2
	unmark
lab L11
	pnull
	var	1
	dup
	pnull
	var	0
	var	2
	line	767
	colm	23
	subsc
	line	767
	colm	12
	lconcat
	asgn
lab L9
	unmark
	goto	L8
lab L10
	unmark
lab L7
	mark	L12
	mark	L13
	var	1
	line	770
	colm	4
	pret
lab L13
	pfail
	unmark
lab L12
	pnull
	line	772
	colm	1
	pfail
	end
proc slayer
	local	0,001000,xargs
	local	1,000020,new_xargs
	local	2,000020,i
	local	3,000020,shift
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,integer
	local	7,000000,scollate
	local	8,000000,sbound
	local	9,000000,put
	local	10,000000,sshift
	con	0,010000,6,163,154,141,171,145,162
	con	1,002000,1,1
	con	2,002000,1,2
	con	3,002000,1,3
	declend
	line	774
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	777
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	777
	colm	33
	invoke	2
	line	777
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	mark	L4
	pnull
	pnull
	var	0
	int	1
	line	779
	colm	23
	subsc
	pnull
	var	0
	int	2
	line	779
	colm	33
	subsc
	line	779
	colm	17
	llist	2
	esusp
	goto	L5
lab L4
	line	779
	colm	40
	pfail
lab L5
	line	779
	colm	14
	asgn
	unmark
lab L3
	mark	L6
	mark0
	mark	L7
	var	6
	pnull
	pnull
	var	0
	int	2
	line	781
	colm	24
	subsc
	int	1
	line	781
	colm	27
	subsc
	line	781
	colm	18
	invoke	1
	unmark
	efail
lab L7
	pnull
	unmark
	mark	L8
	var	7
	var	0
	invoke	-1
	line	781
	colm	37
	pret
lab L8
	pfail
	unmark
lab L6
	mark	L9
	pnull
	var	3
	var	8
	pnull
	var	0
	int	2
	line	783
	colm	27
	subsc
	invoke	-1
	line	783
	colm	10
	asgn
	unmark
lab L9
	mark	L10
	mark0
	pnull
	var	2
	pnull
	int	3
	pnull
	var	0
	line	785
	colm	20
	size
	push1
	line	785
	colm	17
	toby
	line	785
	colm	12
	asgn
	pop
	mark0
	mark	L13
	var	9
	var	1
	var	10
	pnull
	var	0
	var	2
	line	786
	colm	34
	subsc
	var	3
	line	786
	colm	28
	invoke	2
	line	786
	colm	10
	invoke	2
	unmark
lab L13
	pnull
	var	3
	dup
	var	8
	pnull
	var	0
	var	2
	line	787
	colm	31
	subsc
	invoke	-1
	line	787
	colm	13
	plus
	asgn
	unmark
lab L11
	efail
lab L12
	unmark
lab L10
	mark	L14
	mark	L15
	var	7
	var	1
	invoke	-1
	line	790
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	792
	colm	1
	pfail
	end
proc slength
	local	0,001000,x
	local	1,000000,spromote
	declend
	line	794
	colm	11
	mark	L1
	mark	L2
	pnull
	var	1
	var	0
	line	796
	colm	20
	invoke	1
	line	796
	colm	11
	size
	line	796
	colm	4
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	798
	colm	1
	pfail
	end
proc slocate
	local	0,001000,xargs
	local	1,000020,count
	local	2,000020,i
	local	3,000020,lseq
	local	4,000020,x1
	local	5,000020,x2
	local	6,000000,node_gen
	local	7,000000,node
	local	8,000000,copy
	local	9,000000,spromote
	local	10,000000,set
	local	11,000000,get
	local	12,000000,member
	local	13,000000,integer
	con	0,010000,7,163,154,157,143,141,164,145
	con	1,002000,1,1
	con	2,002000,1,2
	con	3,002000,1,0
	declend
	line	800
	colm	11
	mark	L1
	mark0
	pnull
	var	6
	line	803
	colm	7
	nonnull
	unmark
	mark	L2
	var	7
	str	0
	var	0
	line	803
	colm	33
	invoke	2
	line	803
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	8
	var	9
	pnull
	var	0
	int	1
	line	805
	colm	29
	subsc
	line	805
	colm	23
	invoke	1
	line	805
	colm	14
	invoke	1
	line	805
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	var	10
	var	9
	pnull
	var	0
	int	2
	line	806
	colm	28
	subsc
	line	806
	colm	22
	invoke	1
	line	806
	colm	13
	invoke	1
	line	806
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	line	808
	colm	12
	llist	0
	line	808
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	int	3
	line	810
	colm	10
	asgn
	unmark
lab L6
	mark	L7
lab L8
	mark0
	pnull
	var	2
	var	11
	var	4
	line	812
	colm	18
	invoke	1
	line	812
	colm	12
	asgn
	unmark
	mark	L8
	mark	L11
	pnull
	var	1
	dup
	int	1
	line	813
	colm	13
	plus
	asgn
	unmark
lab L11
	mark0
	var	12
	var	5
	var	13
	var	2
	line	814
	colm	28
	invoke	1
	line	814
	colm	16
	invoke	2
	unmark
	mark	L12
	var	1
	line	815
	colm	10
	pret
lab L12
	pfail
lab L9
	unmark
	goto	L8
lab L10
	unmark
lab L7
	mark	L13
	line	818
	colm	4
	pfail
	unmark
lab L13
	pnull
	line	820
	colm	1
	pfail
	end
proc smap
	local	0,001000,xargs
	local	1,000020,i
	local	2,000020,smaptbl
	local	3,000020,x1
	local	4,000020,x2
	local	5,000020,x3
	local	6,000040,tdefault
	local	7,000000,copy
	local	8,000000,spromote
	local	9,000000,table
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,1,3
	declend
	line	822
	colm	11
	init	L1
	mark	L1
	pnull
	var	6
	pnull
	line	826
	colm	24
	llist	0
	line	826
	colm	21
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	7
	var	8
	pnull
	var	0
	int	0
	line	828
	colm	29
	subsc
	line	828
	colm	23
	invoke	1
	line	828
	colm	14
	invoke	1
	line	828
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	8
	pnull
	var	0
	int	1
	line	829
	colm	24
	subsc
	line	829
	colm	18
	invoke	1
	line	829
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	var	8
	pnull
	var	0
	int	2
	line	830
	colm	24
	subsc
	line	830
	colm	18
	invoke	1
	line	830
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	pnull
	var	4
	line	832
	colm	7
	size
	pnull
	var	5
	line	832
	colm	14
	size
	line	832
	colm	11
	numne
	unmark
	line	832
	colm	23
	pfail
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	9
	var	6
	line	834
	colm	20
	invoke	1
	line	834
	colm	12
	asgn
	unmark
lab L6
	mark	L7
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	4
	line	836
	colm	20
	size
	push1
	line	836
	colm	17
	toby
	line	836
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	2
	pnull
	var	4
	var	1
	line	837
	colm	17
	subsc
	line	837
	colm	14
	subsc
	pnull
	var	5
	var	1
	line	837
	colm	27
	subsc
	line	837
	colm	22
	asgn
	unmark
lab L8
	efail
lab L9
	unmark
lab L7
	mark	L10
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	3
	line	839
	colm	20
	size
	push1
	line	839
	colm	17
	toby
	line	839
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	3
	var	1
	line	840
	colm	9
	subsc
	pnull
	var	6
	pnull
	var	2
	pnull
	var	3
	var	1
	line	840
	colm	41
	subsc
	line	840
	colm	38
	subsc
	line	840
	colm	26
	neqv
	line	840
	colm	13
	asgn
	unmark
lab L11
	efail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	3
	line	842
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	844
	colm	1
	pfail
	end
proc smin
	local	0,001000,xargs
	local	1,000000,sort
	con	0,002000,1,1
	declend
	line	846
	colm	11
	mark	L1
	mark	L2
	pnull
	var	1
	var	0
	line	848
	colm	15
	invoke	1
	int	0
	line	848
	colm	22
	subsc
	line	848
	colm	4
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	850
	colm	1
	pfail
	end
proc smissing
	local	0,001000,x
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,result
	local	4,000000,spromote
	local	5,000000,sorder
	local	6,000000,put
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	852
	colm	11
	mark	L1
	pnull
	var	0
	var	4
	var	0
	line	855
	colm	17
	invoke	1
	line	855
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	5
	var	0
	line	857
	colm	18
	invoke	1
	line	857
	colm	9
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	line	859
	colm	14
	llist	0
	line	859
	colm	11
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	2
	pnull
	int	0
	pnull
	var	1
	line	861
	colm	20
	size
	push1
	line	861
	colm	17
	toby
	line	861
	colm	12
	asgn
	pop
	mark0
	mark0
	pnull
	pnull
	var	1
	var	2
	line	862
	colm	14
	subsc
	int	1
	line	862
	colm	18
	numeq
	unmark
	var	6
	var	3
	var	2
	line	862
	colm	30
	invoke	2
	unmark
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	3
	line	864
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	866
	colm	1
	pfail
	end
proc smod
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,x1
	local	4,000020,x2
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,spromote
	local	8,000000,put
	local	9,000000,residue
	con	0,010000,4,163,155,157,144
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	868
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	871
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	871
	colm	33
	invoke	2
	line	871
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	7
	pnull
	var	0
	int	1
	line	873
	colm	24
	subsc
	line	873
	colm	18
	invoke	1
	line	873
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	7
	pnull
	var	0
	int	2
	line	874
	colm	24
	subsc
	line	874
	colm	18
	invoke	1
	line	874
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	876
	colm	12
	llist	0
	line	876
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	pnull
	var	4
	line	878
	colm	15
	bang
	line	878
	colm	12
	asgn
	pop
	mark0
	mark0
	var	8
	var	1
	var	9
	pnull
	var	3
	line	879
	colm	31
	bang
	var	2
	int	1
	line	879
	colm	30
	invoke	3
	line	879
	colm	16
	invoke	2
	pop
lab L9
	efail
lab L10
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L11
	mark	L12
	var	1
	line	881
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	883
	colm	1
	pfail
	end
proc smutate
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,x1
	local	3,000020,x2
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,spromote
	local	7,000000,put
	con	0,010000,7,163,155,165,164,141,164,145
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	885
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	888
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	888
	colm	33
	invoke	2
	line	888
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	2
	var	6
	pnull
	var	0
	int	1
	line	890
	colm	24
	subsc
	line	890
	colm	18
	invoke	1
	line	890
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	var	6
	pnull
	var	0
	int	2
	line	891
	colm	24
	subsc
	line	891
	colm	18
	invoke	1
	line	891
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	893
	colm	12
	llist	0
	line	893
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	var	7
	var	1
	pnull
	var	2
	pnull
	var	3
	line	895
	colm	23
	bang
	line	895
	colm	22
	subsc
	line	895
	colm	13
	invoke	2
	pop
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	1
	line	897
	colm	4
	pret
lab L10
	pfail
	unmark
lab L9
	pnull
	line	899
	colm	1
	pfail
	end
proc snormal
	local	0,001000,x
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,target
	local	4,000020,count
	local	5,000000,spromote
	local	6,000000,table
	local	7,000000,put
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	901
	colm	11
	mark	L1
	pnull
	var	0
	var	5
	var	0
	line	904
	colm	17
	invoke	1
	line	904
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	line	906
	colm	12
	llist	0
	line	906
	colm	9
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	int	0
	line	908
	colm	10
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	var	6
	line	910
	colm	19
	invoke	0
	line	910
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	2
	pnull
	var	0
	line	912
	colm	15
	bang
	line	912
	colm	12
	asgn
	pop
	mark0
	mark	L8
	pnull
	pnull
	pnull
	var	3
	var	2
	line	913
	colm	14
	subsc
	line	913
	colm	7
	null
	pnull
	var	4
	dup
	int	1
	line	913
	colm	28
	plus
	asgn
	line	913
	colm	18
	asgn
	unmark
lab L8
	var	7
	var	1
	pnull
	var	3
	var	2
	line	914
	colm	23
	subsc
	line	914
	colm	10
	invoke	2
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L9
	mark	L10
	var	1
	line	917
	colm	4
	pret
lab L10
	pfail
	unmark
lab L9
	pnull
	line	919
	colm	1
	pfail
	end
proc sopal
	local	0,001000,xargs
	local	1,000020,x
	local	2,000000,node_gen
	local	3,000000,node
	local	4,000000,spromote
	local	5,000000,sreflecth
	con	0,010000,5,163,157,160,141,154
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	921
	colm	11
	mark	L1
	mark0
	pnull
	var	2
	line	924
	colm	7
	nonnull
	unmark
	mark	L2
	var	3
	str	0
	var	0
	line	924
	colm	33
	invoke	2
	line	924
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	var	4
	pnull
	var	0
	int	1
	line	926
	colm	23
	subsc
	line	926
	colm	17
	invoke	1
	line	926
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	1
	pnull
	var	5
	var	1
	line	928
	colm	26
	invoke	1
	int	2
	pnull
	int	1
	line	928
	colm	32
	neg
	line	928
	colm	31
	sect
	line	928
	colm	13
	lconcat
	line	928
	colm	4
	pret
lab L5
	pfail
	unmark
lab L4
	pnull
	line	930
	colm	1
	pfail
	end
proc sorder
	local	0,001000,x
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,done
	local	4,000000,copy
	local	5,000000,spromote
	local	6,000000,set
	local	7,000000,integer
	local	8,000000,get
	local	9,000000,member
	local	10,000000,put
	local	11,000000,insert
	declend
	line	932
	colm	11
	mark	L1
	pnull
	var	0
	var	4
	var	5
	var	0
	line	935
	colm	22
	invoke	1
	line	935
	colm	13
	invoke	1
	line	935
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	line	937
	colm	12
	llist	0
	line	937
	colm	9
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	6
	line	939
	colm	15
	invoke	0
	line	939
	colm	9
	asgn
	unmark
lab L3
	mark	L4
lab L5
	mark0
	pnull
	var	2
	var	7
	var	8
	var	0
	line	941
	colm	26
	invoke	1
	line	941
	colm	22
	invoke	1
	line	941
	colm	12
	asgn
	unmark
	mark	L5
	mark	L8
	var	9
	var	3
	var	2
	line	942
	colm	16
	invoke	2
	unmark
	goto	L6
	goto	L9
lab L8
	mark	L10
	var	10
	var	1
	var	2
	line	944
	colm	13
	invoke	2
	unmark
lab L10
	var	11
	var	3
	var	2
	line	945
	colm	16
	invoke	2
lab L9
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark	L11
	mark	L12
	var	1
	line	949
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	951
	colm	1
	pfail
	end
proc sparity
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,j
	local	4,000020,k
	local	5,000020,x1
	local	6,000020,x2
	local	7,000000,node_gen
	local	8,000000,node
	local	9,000000,spromote
	local	10,000000,put
	con	0,010000,7,163,160,141,162,151,164,171
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	953
	colm	11
	mark	L1
	mark0
	pnull
	var	7
	line	956
	colm	7
	nonnull
	unmark
	mark	L2
	var	8
	str	0
	var	0
	line	956
	colm	33
	invoke	2
	line	956
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	5
	var	9
	pnull
	var	0
	int	1
	line	958
	colm	24
	subsc
	line	958
	colm	18
	invoke	1
	line	958
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	var	9
	pnull
	var	0
	int	2
	line	959
	colm	24
	subsc
	line	959
	colm	18
	invoke	1
	line	959
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	961
	colm	12
	llist	0
	line	961
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	5
	line	963
	colm	20
	size
	push1
	line	963
	colm	17
	toby
	line	963
	colm	12
	asgn
	pop
	mark0
	mark	L9
	pnull
	var	3
	pnull
	var	5
	var	2
	line	964
	colm	14
	subsc
	line	964
	colm	9
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	4
	pnull
	var	6
	var	2
	line	965
	colm	14
	subsc
	line	965
	colm	9
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	3
	int	2
	line	966
	colm	13
	mod
	pnull
	var	4
	int	2
	line	966
	colm	23
	mod
	line	966
	colm	18
	numeq
	unmark
	var	10
	var	1
	var	3
	line	966
	colm	36
	invoke	2
	goto	L12
lab L11
	var	10
	var	1
	pnull
	var	3
	int	1
	line	967
	colm	24
	plus
	var	3
	line	967
	colm	15
	invoke	3
lab L12
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L13
	mark	L14
	var	1
	line	970
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	972
	colm	1
	pfail
	end
proc speriod
	local	0,001000,seq
	local	1,001000,k
	local	2,000020,i
	local	3,000020,segment
	local	4,000000,divisors
	local	5,000000,sequiv
	local	6,000000,sextend
	con	0,002000,1,1
	declend
	line	974
	colm	11
	mark	L1
	mark	L2
	pnull
	var	1
	line	977
	colm	7
	null
	unmark
	mark	L4
	mark0
	pnull
	var	2
	mark	L7
	int	0
	esusp
	goto	L8
lab L7
	var	4
	pnull
	var	0
	line	978
	colm	28
	size
	line	978
	colm	27
	invoke	1
lab L8
	line	978
	colm	12
	asgn
	pop
	mark0
	mark	L9
	pnull
	var	3
	pnull
	var	0
	int	0
	dup
	var	2
	line	979
	colm	23
	plus
	sect
	line	979
	colm	15
	asgn
	unmark
lab L9
	mark0
	var	5
	var	6
	var	3
	pnull
	var	0
	line	980
	colm	34
	size
	line	980
	colm	24
	invoke	2
	var	0
	line	980
	colm	16
	invoke	2
	unmark
	mark	L10
	var	2
	line	980
	colm	51
	pret
lab L10
	pfail
	unmark
lab L5
	efail
lab L6
	unmark
lab L4
	line	982
	colm	4
	pfail
	goto	L3
lab L2
	mark	L11
	mark0
	pnull
	var	2
	pnull
	int	0
	pnull
	var	0
	line	985
	colm	23
	size
	push1
	line	985
	colm	20
	toby
	line	985
	colm	15
	asgn
	pop
	mark0
	mark	L14
	pnull
	var	3
	pnull
	var	0
	int	0
	dup
	var	2
	line	986
	colm	26
	plus
	sect
	line	986
	colm	18
	asgn
	unmark
lab L14
	mark0
	var	5
	var	6
	var	3
	pnull
	var	0
	line	987
	colm	37
	size
	line	987
	colm	27
	invoke	2
	var	0
	line	987
	colm	19
	invoke	2
	unmark
	mark	L15
	var	2
	line	987
	colm	54
	pret
lab L15
	pfail
	unmark
lab L12
	efail
lab L13
	unmark
lab L11
	line	989
	colm	7
	pfail
lab L3
	unmark
lab L1
	pnull
	line	992
	colm	1
	pfail
	end
proc splace
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,x1
	local	4,000020,x2
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,copy
	local	8,000000,spromote
	local	9,000000,put
	con	0,010000,6,163,160,154,141,143,145
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	994
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	997
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	997
	colm	33
	invoke	2
	line	997
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	7
	var	8
	pnull
	var	0
	int	1
	line	999
	colm	29
	subsc
	line	999
	colm	23
	invoke	1
	line	999
	colm	14
	invoke	1
	line	999
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	8
	pnull
	var	0
	int	2
	line	1000
	colm	23
	subsc
	line	1000
	colm	17
	invoke	1
	line	1000
	colm	6
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	1002
	colm	12
	llist	0
	line	1002
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	pnull
	var	4
	line	1004
	colm	15
	bang
	line	1004
	colm	12
	asgn
	pop
	mark0
	mark0
	var	9
	var	1
	pnull
	pnull
	pnull
	var	3
	line	1005
	colm	23
	bang
	var	2
	line	1005
	colm	27
	plus
	int	1
	line	1005
	colm	31
	minus
	line	1005
	colm	16
	invoke	2
	pop
lab L9
	efail
lab L10
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L11
	mark	L12
	var	1
	line	1007
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	1009
	colm	1
	pfail
	end
proc splacep
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,x1
	local	4,000020,x2
	local	5,000020,j
	local	6,000000,node_gen
	local	7,000000,node
	local	8,000000,copy
	local	9,000000,spromote
	local	10,000000,put
	con	0,010000,6,163,160,154,141,143,145
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	1011
	colm	11
	mark	L1
	mark0
	pnull
	var	6
	line	1014
	colm	7
	nonnull
	unmark
	mark	L2
	var	7
	str	0
	var	0
	line	1014
	colm	33
	invoke	2
	line	1014
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	8
	var	9
	pnull
	var	0
	int	1
	line	1016
	colm	29
	subsc
	line	1016
	colm	23
	invoke	1
	line	1016
	colm	14
	invoke	1
	line	1016
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	9
	pnull
	var	0
	int	2
	line	1017
	colm	23
	subsc
	line	1017
	colm	17
	invoke	1
	line	1017
	colm	6
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	1019
	colm	12
	llist	0
	line	1019
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	pnull
	var	4
	line	1021
	colm	15
	bang
	line	1021
	colm	12
	asgn
	pop
	mark0
	mark	L9
	pnull
	var	5
	pnull
	var	3
	int	1
	line	1022
	colm	14
	subsc
	line	1022
	colm	9
	asgn
	unmark
lab L9
	mark	L10
	mark0
	pnull
	var	5
	pnull
	var	1
	pnull
	int	1
	line	1023
	colm	20
	neg
	line	1023
	colm	19
	subsc
	line	1023
	colm	12
	numne
	unmark
	var	10
	var	1
	var	5
	line	1023
	colm	32
	invoke	2
	unmark
lab L10
	mark0
	var	10
	var	1
	pnull
	pnull
	pnull
	var	3
	pnull
	int	2
	pnull
	var	3
	line	1024
	colm	31
	size
	push1
	line	1024
	colm	28
	toby
	line	1024
	colm	25
	subsc
	var	2
	line	1024
	colm	37
	plus
	int	1
	line	1024
	colm	41
	minus
	line	1024
	colm	16
	invoke	2
	pop
lab L11
	efail
lab L12
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L13
	mark	L14
	var	1
	line	1027
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	1029
	colm	1
	pfail
	end
proc splaceg
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,path
	local	4,000020,motif
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,copy
	local	8,000000,get
	local	9,000000,copyl
	local	10,000000,put
	con	0,010000,7,163,160,154,141,143,145,147
	con	1,002000,1,1
	declend
	line	1031
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	1034
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	1034
	colm	33
	invoke	2
	line	1034
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	7
	var	8
	var	0
	line	1036
	colm	20
	invoke	1
	line	1036
	colm	16
	invoke	1
	line	1036
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	var	9
	var	0
	invoke	-1
	line	1038
	colm	10
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	1040
	colm	12
	llist	0
	line	1040
	colm	9
	asgn
	unmark
lab L5
	mark	L6
lab L7
	mark0
	pnull
	var	2
	var	8
	var	3
	line	1042
	colm	18
	invoke	1
	line	1042
	colm	12
	asgn
	unmark
	mark	L7
	mark	L10
	pnull
	var	4
	var	8
	var	0
	line	1043
	colm	19
	invoke	1
	line	1043
	colm	13
	asgn
	unmark
lab L10
	mark	L11
	var	10
	var	0
	var	4
	line	1044
	colm	10
	invoke	2
	unmark
lab L11
	mark0
	var	10
	var	1
	pnull
	pnull
	pnull
	var	4
	line	1045
	colm	23
	bang
	var	2
	line	1045
	colm	30
	plus
	int	1
	line	1045
	colm	34
	minus
	line	1045
	colm	16
	invoke	2
	pop
lab L12
	efail
lab L13
lab L8
	unmark
	goto	L7
lab L9
	unmark
lab L6
	mark	L14
	mark	L15
	var	1
	line	1048
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	1050
	colm	1
	pfail
	end
proc spositions
	local	0,001000,x1
	local	1,001000,x2
	local	2,000020,lseq
	local	3,000020,count
	local	4,000020,i
	local	5,000000,copy
	local	6,000000,spromote
	local	7,000000,set
	local	8,000000,get
	local	9,000000,member
	local	10,000000,integer
	local	11,000000,put
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	1052
	colm	11
	mark	L1
	pnull
	var	0
	var	5
	var	6
	var	0
	line	1055
	colm	23
	invoke	1
	line	1055
	colm	14
	invoke	1
	line	1055
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	7
	var	6
	var	1
	line	1056
	colm	22
	invoke	1
	line	1056
	colm	13
	invoke	1
	line	1056
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	pnull
	line	1058
	colm	12
	llist	0
	line	1058
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	int	0
	line	1060
	colm	10
	asgn
	unmark
lab L4
	mark	L5
lab L6
	mark0
	pnull
	var	4
	var	8
	var	0
	line	1062
	colm	18
	invoke	1
	line	1062
	colm	12
	asgn
	unmark
	mark	L6
	mark	L9
	pnull
	var	3
	dup
	int	1
	line	1063
	colm	13
	plus
	asgn
	unmark
lab L9
	mark0
	var	9
	var	1
	var	10
	var	4
	line	1064
	colm	28
	invoke	1
	line	1064
	colm	16
	invoke	2
	unmark
	var	11
	var	2
	var	3
	line	1065
	colm	13
	invoke	2
lab L7
	unmark
	goto	L6
lab L8
	unmark
lab L5
	mark	L10
	mark	L11
	var	2
	line	1068
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	1070
	colm	1
	pfail
	end
proc spromote
	local	0,001000,x
	local	1,000000,type
	con	0,010000,4,154,151,163,164
	declend
	line	1072
	colm	11
	mark	L1
	mark0
	pnull
	var	1
	var	0
	line	1074
	colm	11
	invoke	1
	str	0
	line	1074
	colm	15
	lexne
	unmark
	pnull
	var	0
	pnull
	var	0
	line	1074
	colm	36
	llist	1
	line	1074
	colm	33
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	0
	line	1076
	colm	4
	pret
lab L3
	pfail
	unmark
lab L2
	pnull
	line	1078
	colm	1
	pfail
	end
proc srandom
	local	0,001000,x
	local	1,000000,spromote
	declend
	line	1080
	colm	11
	mark	L1
	mark	L2
	pnull
	var	1
	var	0
	line	1082
	colm	20
	invoke	1
	line	1082
	colm	11
	random
	line	1082
	colm	4
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	1084
	colm	1
	pfail
	end
proc sreflecth
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,x
	local	3,000000,node_gen
	local	4,000000,node
	local	5,000000,push
	local	6,000000,spromote
	con	0,010000,9,163,162,145,146,154,145,143,164,150
	con	1,002000,1,1
	declend
	line	1086
	colm	11
	mark	L1
	mark0
	pnull
	var	3
	line	1089
	colm	7
	nonnull
	unmark
	mark	L2
	var	4
	str	0
	var	0
	line	1089
	colm	33
	invoke	2
	line	1089
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	pnull
	line	1091
	colm	12
	llist	0
	line	1091
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	mark0
	var	5
	var	1
	pnull
	var	6
	pnull
	var	0
	int	1
	line	1093
	colm	36
	subsc
	line	1093
	colm	30
	invoke	1
	line	1093
	colm	21
	bang
	line	1093
	colm	14
	invoke	2
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	1
	line	1095
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	1097
	colm	1
	pfail
	end
proc sreflectr
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,bound
	local	4,000020,x
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,spromote
	local	8,000000,sbound
	local	9,000000,push
	con	0,010000,9,163,162,145,146,154,145,143,164,162
	con	1,002000,1,1
	declend
	line	1100
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	1103
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	1103
	colm	33
	invoke	2
	line	1103
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	7
	pnull
	var	0
	int	1
	line	1105
	colm	23
	subsc
	line	1105
	colm	17
	invoke	1
	line	1105
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	var	8
	var	4
	invoke	-1
	line	1107
	colm	10
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	1109
	colm	12
	llist	0
	line	1109
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	pnull
	var	4
	line	1111
	colm	15
	bang
	line	1111
	colm	12
	asgn
	pop
	mark0
	var	9
	var	1
	pnull
	pnull
	var	3
	var	2
	line	1112
	colm	24
	minus
	int	1
	line	1112
	colm	28
	plus
	line	1112
	colm	11
	invoke	2
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	1
	line	1114
	colm	4
	pret
lab L10
	pfail
	unmark
lab L9
	pnull
	line	1116
	colm	1
	pfail
	end
proc sreflectv
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,m
	local	3,000020,x
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,spromote
	local	7,000000,integer
	local	8,000000,sbound
	local	9,000000,put
	con	0,010000,9,163,162,145,146,154,145,143,164,166
	con	1,002000,1,1
	declend
	line	1118
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	1121
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	1121
	colm	33
	invoke	2
	line	1121
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	pnull
	var	0
	int	1
	line	1123
	colm	23
	subsc
	line	1123
	colm	17
	invoke	1
	line	1123
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark0
	mark	L5
	var	7
	pnull
	var	3
	int	1
	line	1125
	colm	20
	subsc
	line	1125
	colm	18
	invoke	1
	unmark
	efail
lab L5
	pnull
	unmark
	mark	L6
	var	3
	line	1125
	colm	30
	pret
lab L6
	pfail
	unmark
lab L4
	mark	L7
	pnull
	var	2
	var	8
	var	3
	invoke	-1
	line	1127
	colm	6
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	1
	pnull
	line	1129
	colm	12
	llist	0
	line	1129
	colm	9
	asgn
	unmark
lab L8
	mark	L9
	mark0
	var	9
	var	1
	pnull
	pnull
	var	2
	pnull
	var	3
	line	1131
	colm	24
	bang
	line	1131
	colm	22
	minus
	int	1
	line	1131
	colm	27
	plus
	line	1131
	colm	13
	invoke	2
	pop
lab L10
	efail
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	var	1
	line	1133
	colm	4
	pret
lab L13
	pfail
	unmark
lab L12
	pnull
	line	1135
	colm	1
	pfail
	end
proc sremdupl
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,x
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,copy
	local	7,000000,spromote
	local	8,000000,get
	local	9,000000,put
	con	0,010000,8,163,162,145,155,144,165,160,154
	con	1,002000,1,1
	declend
	line	1137
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	1140
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	1140
	colm	33
	invoke	2
	line	1140
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	var	7
	pnull
	var	0
	int	1
	line	1142
	colm	28
	subsc
	line	1142
	colm	22
	invoke	1
	line	1142
	colm	13
	invoke	1
	line	1142
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	mark	L5
	pnull
	var	8
	var	3
	line	1144
	colm	16
	invoke	1
	line	1144
	colm	12
	llist	1
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	line	1144
	colm	30
	llist	0
	line	1144
	colm	23
	pret
lab L7
	pfail
lab L6
	line	1144
	colm	9
	asgn
	unmark
lab L4
	mark	L8
lab L9
	mark0
	pnull
	var	2
	var	8
	var	3
	line	1146
	colm	18
	invoke	1
	line	1146
	colm	12
	asgn
	unmark
	mark	L9
	mark0
	pnull
	pnull
	var	1
	pnull
	int	1
	line	1147
	colm	15
	neg
	line	1147
	colm	14
	subsc
	var	2
	line	1147
	colm	19
	numne
	unmark
	var	9
	var	1
	var	2
	line	1148
	colm	13
	invoke	2
lab L10
	unmark
	goto	L9
lab L11
	unmark
lab L8
	mark	L12
	mark	L13
	var	1
	line	1150
	colm	4
	pret
lab L13
	pfail
	unmark
lab L12
	pnull
	line	1152
	colm	1
	pfail
	end
proc ssplitdupl
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,x
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,copy
	local	7,000000,spromote
	local	8,000000,get
	local	9,000000,put
	con	0,010000,8,163,162,145,155,144,165,160,154
	con	1,002000,1,1
	declend
	line	1154
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	1157
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	1157
	colm	33
	invoke	2
	line	1157
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	var	7
	pnull
	var	0
	int	1
	line	1159
	colm	28
	subsc
	line	1159
	colm	22
	invoke	1
	line	1159
	colm	13
	invoke	1
	line	1159
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	mark	L5
	pnull
	var	8
	var	3
	line	1161
	colm	16
	invoke	1
	line	1161
	colm	12
	llist	1
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	line	1161
	colm	30
	llist	0
	line	1161
	colm	23
	pret
lab L7
	pfail
lab L6
	line	1161
	colm	9
	asgn
	unmark
lab L4
	mark	L8
lab L9
	mark0
	pnull
	var	2
	var	8
	var	3
	line	1163
	colm	18
	invoke	1
	line	1163
	colm	12
	asgn
	unmark
	mark	L9
	mark	L12
	pnull
	pnull
	var	1
	pnull
	int	1
	line	1164
	colm	15
	neg
	line	1164
	colm	14
	subsc
	var	2
	line	1164
	colm	19
	numne
	unmark
	var	9
	var	1
	var	2
	line	1165
	colm	13
	invoke	2
	goto	L13
lab L12
	var	9
	var	1
	pnull
	var	2
	int	1
	line	1167
	colm	22
	plus
	var	2
	line	1167
	colm	13
	invoke	3
lab L13
lab L10
	unmark
	goto	L9
lab L11
	unmark
lab L8
	mark	L14
	mark	L15
	var	1
	line	1169
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	1171
	colm	1
	pfail
	end
proc srepeat
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,count
	local	3,000020,x1
	local	4,000020,x2
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,spromote
	local	8,000000,copy
	con	0,010000,7,163,162,145,160,145,141,164
	con	1,002000,1,1
	con	2,002000,1,0
	con	3,002000,1,2
	declend
	line	1173
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	1176
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	1176
	colm	33
	invoke	2
	line	1176
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	7
	pnull
	var	0
	int	1
	line	1178
	colm	24
	subsc
	line	1178
	colm	18
	invoke	1
	line	1178
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	int	2
	line	1180
	colm	10
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	2
	dup
	pnull
	var	7
	pnull
	var	0
	int	3
	line	1182
	colm	35
	subsc
	line	1182
	colm	29
	invoke	1
	line	1182
	colm	20
	bang
	line	1182
	colm	16
	plus
	asgn
	pop
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L8
	pnull
	var	1
	var	8
	var	3
	line	1184
	colm	16
	invoke	1
	line	1184
	colm	9
	asgn
	unmark
lab L8
	mark	L9
	mark0
	pnull
	int	3
	var	2
	push1
	line	1186
	colm	12
	toby
	pop
	mark0
	pnull
	var	1
	dup
	var	3
	line	1187
	colm	15
	lconcat
	asgn
	unmark
lab L10
	efail
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	var	1
	line	1189
	colm	4
	pret
lab L13
	pfail
	unmark
lab L12
	pnull
	line	1191
	colm	1
	pfail
	end
proc srepl
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,j
	local	4,000020,x1
	local	5,000020,x2
	local	6,000000,node_gen
	local	7,000000,node
	local	8,000000,spromote
	local	9,000000,put
	con	0,010000,5,163,162,145,160,154
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	1193
	colm	11
	mark	L1
	mark0
	pnull
	var	6
	line	1196
	colm	7
	nonnull
	unmark
	mark	L2
	var	7
	str	0
	var	0
	line	1196
	colm	33
	invoke	2
	line	1196
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	8
	pnull
	var	0
	int	1
	line	1198
	colm	24
	subsc
	line	1198
	colm	18
	invoke	1
	line	1198
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	var	8
	pnull
	var	0
	int	2
	line	1199
	colm	24
	subsc
	line	1199
	colm	18
	invoke	1
	line	1199
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	1201
	colm	12
	llist	0
	line	1201
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	2
	pnull
	var	5
	line	1203
	colm	15
	bang
	line	1203
	colm	12
	asgn
	pop
	mark0
	mark0
	pnull
	var	3
	pnull
	var	4
	line	1204
	colm	18
	bang
	line	1204
	colm	15
	asgn
	pop
	mark0
	mark0
	pnull
	int	1
	var	2
	push1
	line	1205
	colm	18
	toby
	pop
	mark0
	var	9
	var	1
	var	3
	line	1206
	colm	16
	invoke	2
	unmark
lab L11
	efail
lab L12
	unmark
lab L9
	efail
lab L10
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L13
	mark	L14
	var	1
	line	1208
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	1210
	colm	1
	pfail
	end
proc srotatev
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,m
	local	3,000020,x
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,spromote
	local	7,000000,integer
	local	8,000000,sbound
	local	9,000000,put
	local	10,000000,residue
	con	0,010000,8,163,162,157,164,141,164,145,166
	con	1,002000,1,1
	declend
	line	1212
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	1215
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	1215
	colm	33
	invoke	2
	line	1215
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	pnull
	var	0
	int	1
	line	1217
	colm	23
	subsc
	line	1217
	colm	17
	invoke	1
	line	1217
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark0
	mark	L5
	var	7
	pnull
	var	3
	int	1
	line	1219
	colm	20
	subsc
	line	1219
	colm	18
	invoke	1
	unmark
	efail
lab L5
	pnull
	unmark
	mark	L6
	var	3
	line	1219
	colm	30
	pret
lab L6
	pfail
	unmark
lab L4
	mark	L7
	pnull
	var	2
	var	8
	var	3
	invoke	-1
	line	1221
	colm	6
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	1
	pnull
	line	1223
	colm	12
	llist	0
	line	1223
	colm	9
	asgn
	unmark
lab L8
	mark	L9
	mark0
	var	9
	var	1
	var	10
	pnull
	pnull
	var	3
	line	1225
	colm	28
	bang
	int	1
	line	1225
	colm	31
	plus
	var	2
	int	1
	line	1225
	colm	27
	invoke	3
	line	1225
	colm	13
	invoke	2
	pop
lab L10
	efail
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	var	1
	line	1227
	colm	4
	pret
lab L13
	pfail
	unmark
lab L12
	pnull
	line	1229
	colm	1
	pfail
	end
proc srun
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,j
	local	4,000020,x
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,copy
	local	8,000000,spromote
	local	9,000000,get
	local	10,000000,sruns
	local	11,000000,pull
	local	12,000000,put
	con	0,010000,4,163,162,165,156
	con	1,002000,1,1
	declend
	line	1231
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	1234
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	1234
	colm	33
	invoke	2
	line	1234
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	7
	var	8
	pnull
	var	0
	int	1
	line	1236
	colm	28
	subsc
	line	1236
	colm	22
	invoke	1
	line	1236
	colm	13
	invoke	1
	line	1236
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	pnull
	line	1238
	colm	12
	llist	0
	line	1238
	colm	9
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	mark	L6
	var	9
	var	4
	line	1240
	colm	12
	invoke	1
	esusp
	goto	L7
lab L6
	mark	L8
	var	1
	line	1240
	colm	18
	pret
lab L8
	pfail
lab L7
	line	1240
	colm	6
	asgn
	unmark
lab L5
	mark	L9
lab L10
	mark0
	pnull
	var	3
	var	9
	var	4
	line	1242
	colm	18
	invoke	1
	line	1242
	colm	12
	asgn
	unmark
	mark	L10
	mark	L13
	pnull
	var	1
	dup
	var	10
	var	2
	var	3
	int	1
	line	1243
	colm	23
	invoke	3
	line	1243
	colm	12
	lconcat
	asgn
	unmark
lab L13
	mark	L14
	var	11
	var	1
	line	1244
	colm	11
	invoke	1
	unmark
lab L14
	pnull
	var	2
	var	3
	line	1245
	colm	9
	asgn
lab L11
	unmark
	goto	L10
lab L12
	unmark
lab L9
	mark	L15
	var	12
	var	1
	var	2
	line	1248
	colm	7
	invoke	2
	unmark
lab L15
	mark	L16
	mark	L17
	var	1
	line	1250
	colm	4
	pret
lab L17
	pfail
	unmark
lab L16
	pnull
	line	1252
	colm	1
	pfail
	end
proc sruns
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,j
	local	4,000020,k
	local	5,000020,limit
	local	6,000020,x1
	local	7,000020,x2
	local	8,000020,x3
	local	9,000000,node_gen
	local	10,000000,node
	local	11,000000,copy
	local	12,000000,spromote
	local	13,000000,get
	local	14,000000,put
	local	15,000000,integer
	con	0,010000,5,163,162,165,156,163
	con	1,002000,1,1
	con	2,002000,1,2
	con	3,002000,1,3
	declend
	line	1254
	colm	11
	mark	L1
	mark0
	pnull
	var	9
	line	1257
	colm	7
	nonnull
	unmark
	mark	L2
	var	10
	str	0
	var	0
	line	1257
	colm	33
	invoke	2
	line	1257
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	6
	var	11
	var	12
	pnull
	var	0
	int	1
	line	1259
	colm	29
	subsc
	line	1259
	colm	23
	invoke	1
	line	1259
	colm	14
	invoke	1
	line	1259
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	7
	var	11
	var	12
	pnull
	var	0
	int	2
	line	1260
	colm	29
	subsc
	line	1260
	colm	23
	invoke	1
	line	1260
	colm	14
	invoke	1
	line	1260
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	8
	mark	L6
	var	11
	var	12
	pnull
	var	0
	int	3
	line	1261
	colm	29
	subsc
	line	1261
	colm	23
	invoke	1
	line	1261
	colm	14
	invoke	1
	esusp
	goto	L7
lab L6
	pnull
	int	1
	line	1261
	colm	37
	llist	1
lab L7
	line	1261
	colm	7
	asgn
	unmark
lab L5
	mark	L8
	pnull
	var	1
	pnull
	line	1263
	colm	12
	llist	0
	line	1263
	colm	9
	asgn
	unmark
lab L8
	mark	L9
lab L10
	mark	L10
	mark	L13
	pnull
	var	2
	mark	L14
	var	13
	var	6
	line	1266
	colm	15
	invoke	1
	esusp
	goto	L15
lab L14
	unmark
	unmark
	pnull
	goto	L12
lab L15
	line	1266
	colm	9
	asgn
	unmark
lab L13
	mark	L16
	pnull
	var	3
	mark	L17
	var	13
	var	7
	line	1267
	colm	15
	invoke	1
	esusp
	goto	L18
lab L17
	unmark
	unmark
	pnull
	goto	L12
lab L18
	line	1267
	colm	9
	asgn
	unmark
lab L16
	mark	L19
	pnull
	var	4
	mark	L20
	var	13
	var	8
	line	1268
	colm	15
	invoke	1
	esusp
	goto	L21
lab L20
	unmark
	unmark
	pnull
	goto	L12
lab L21
	line	1268
	colm	9
	asgn
	unmark
lab L19
	mark	L22
	var	14
	var	8
	var	4
	line	1269
	colm	10
	invoke	2
	unmark
lab L22
	mark	L23
	mark0
	pnull
	var	15
	var	3
	line	1270
	colm	17
	invoke	1
	var	15
	var	2
	line	1270
	colm	30
	invoke	1
	line	1270
	colm	21
	numlt
	unmark
	pnull
	var	4
	pnull
	var	4
	line	1270
	colm	44
	neg
	line	1270
	colm	41
	asgn
	unmark
lab L23
	mark0
	var	14
	var	1
	pnull
	var	2
	var	3
	var	4
	line	1271
	colm	25
	toby
	line	1271
	colm	16
	invoke	2
	pop
lab L24
	efail
lab L25
lab L11
	unmark
	goto	L10
lab L12
	unmark
lab L9
	mark	L26
	mark	L27
	var	1
	line	1274
	colm	4
	pret
lab L27
	pfail
	unmark
lab L26
	pnull
	line	1276
	colm	1
	pfail
	end
proc sscale
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,j
	local	3,000020,i
	local	4,000020,x1
	local	5,000020,x2
	local	6,000000,node_gen
	local	7,000000,node
	local	8,000000,spromote
	local	9,000000,put
	con	0,010000,6,163,163,143,141,154,145
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	1278
	colm	11
	mark	L1
	mark0
	pnull
	var	6
	line	1281
	colm	7
	nonnull
	unmark
	mark	L2
	var	7
	str	0
	var	0
	line	1281
	colm	33
	invoke	2
	line	1281
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	8
	pnull
	var	0
	int	1
	line	1283
	colm	24
	subsc
	line	1283
	colm	18
	invoke	1
	line	1283
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	1
	pnull
	line	1285
	colm	12
	llist	0
	line	1285
	colm	9
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	3
	pnull
	var	8
	pnull
	var	0
	int	2
	line	1287
	colm	30
	subsc
	line	1287
	colm	24
	invoke	1
	line	1287
	colm	15
	bang
	line	1287
	colm	12
	asgn
	pop
	mark0
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	4
	line	1288
	colm	23
	size
	push1
	line	1288
	colm	20
	toby
	line	1288
	colm	15
	asgn
	pop
	mark0
	var	9
	var	1
	pnull
	pnull
	pnull
	pnull
	var	4
	var	2
	line	1289
	colm	24
	subsc
	int	1
	line	1289
	colm	28
	minus
	var	3
	line	1289
	colm	33
	mult
	int	1
	line	1289
	colm	37
	plus
	line	1289
	colm	14
	invoke	2
	unmark
lab L8
	efail
lab L9
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L10
	mark	L11
	var	1
	line	1291
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	1293
	colm	1
	pfail
	end
proc sscollate
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,order
	local	4,000000,node_gen
	local	5,000000,node
	local	6,000000,get
	local	7,000000,srun
	local	8,000000,copyl
	con	0,010000,9,163,163,143,157,154,154,141,164,145
	con	1,002000,1,1
	declend
	line	1295
	colm	11
	mark	L1
	mark0
	pnull
	var	4
	line	1298
	colm	7
	nonnull
	unmark
	mark	L2
	var	5
	str	0
	var	0
	line	1298
	colm	33
	invoke	2
	line	1298
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	6
	var	0
	line	1300
	colm	16
	invoke	1
	line	1300
	colm	10
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	3
	line	1302
	colm	4
	null
	var	7
	int	1
	pnull
	var	0
	line	1302
	colm	22
	size
	line	1302
	colm	18
	invoke	2
	line	1302
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	var	8
	var	0
	invoke	-1
	line	1304
	colm	10
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	pnull
	line	1306
	colm	12
	llist	0
	line	1306
	colm	9
	asgn
	unmark
lab L6
	mark	L7
lab L8
	mark0
	pnull
	var	2
	var	6
	var	3
	line	1308
	colm	18
	invoke	1
	line	1308
	colm	12
	asgn
	unmark
	mark	L8
	pnull
	var	1
	dup
	pnull
	var	0
	var	2
	line	1309
	colm	23
	subsc
	line	1309
	colm	12
	lconcat
	asgn
lab L9
	unmark
	goto	L8
lab L10
	unmark
lab L7
	mark	L11
	mark	L12
	var	1
	line	1311
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	1313
	colm	1
	pfail
	end
proc sselect
	local	0,001000,xargs
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,x1
	local	4,000020,x2
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,spromote
	local	8,000000,copy
	local	9,000000,get
	local	10,000000,put
	con	0,010000,7,163,163,145,154,145,143,164
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	1315
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	1318
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	0
	line	1318
	colm	33
	invoke	2
	line	1318
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	7
	pnull
	var	0
	int	1
	line	1320
	colm	24
	subsc
	line	1320
	colm	18
	invoke	1
	line	1320
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	8
	var	7
	pnull
	var	0
	int	2
	line	1321
	colm	29
	subsc
	line	1321
	colm	23
	invoke	1
	line	1321
	colm	14
	invoke	1
	line	1321
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	pnull
	line	1323
	colm	12
	llist	0
	line	1323
	colm	9
	asgn
	unmark
lab L5
	mark	L6
lab L7
	mark0
	pnull
	var	2
	var	9
	var	4
	line	1325
	colm	18
	invoke	1
	line	1325
	colm	12
	asgn
	unmark
	mark	L7
	var	10
	var	1
	pnull
	var	3
	var	2
	line	1326
	colm	19
	subsc
	line	1326
	colm	10
	invoke	2
lab L8
	unmark
	goto	L7
lab L9
	unmark
lab L6
	mark	L10
	mark	L11
	var	1
	line	1328
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	1330
	colm	1
	pfail
	end
proc sshift
	local	0,001000,x
	local	1,001000,i
	local	2,000020,lseq
	local	3,000000,put
	local	4,000000,spromote
	declend
	line	1332
	colm	11
	mark	L1
	pnull
	var	2
	pnull
	line	1335
	colm	12
	llist	0
	line	1335
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	3
	var	2
	pnull
	pnull
	var	4
	var	0
	line	1337
	colm	29
	invoke	1
	line	1337
	colm	20
	bang
	var	1
	line	1337
	colm	33
	plus
	line	1337
	colm	13
	invoke	2
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	2
	line	1339
	colm	4
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	1341
	colm	1
	pfail
	end
proc sundulate
	local	0,001000,x
	local	1,000020,lseq
	local	2,000020,i
	local	3,000020,dir
	local	4,000000,copy
	local	5,000000,spromote
	local	6,000000,get
	local	7,000000,put
	con	0,002000,1,1
	declend
	line	1343
	colm	11
	mark	L1
	pnull
	var	0
	var	4
	var	5
	var	0
	line	1346
	colm	22
	invoke	1
	line	1346
	colm	13
	invoke	1
	line	1346
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	mark	L3
	pnull
	var	6
	var	0
	line	1348
	colm	16
	invoke	1
	line	1348
	colm	12
	llist	1
	esusp
	goto	L4
lab L3
	line	1348
	colm	23
	pfail
lab L4
	line	1348
	colm	9
	asgn
	unmark
lab L2
	mark	L5
lab L6
	mark0
	pnull
	var	2
	mark	L9
	var	6
	var	0
	line	1350
	colm	18
	invoke	1
	esusp
	goto	L10
lab L9
	mark	L11
	var	1
	line	1350
	colm	24
	pret
lab L11
	pfail
lab L10
	line	1350
	colm	12
	asgn
	unmark
	mark	L6
	mark	L12
	pnull
	var	2
	pnull
	var	1
	pnull
	int	0
	line	1351
	colm	19
	neg
	line	1351
	colm	18
	subsc
	line	1351
	colm	12
	numgt
	unmark
	mark	L14
	pnull
	var	3
	pnull
	int	0
	line	1352
	colm	17
	neg
	line	1352
	colm	14
	asgn
	unmark
lab L14
	unmark
	pnull
	goto	L8
	goto	L13
lab L12
	mark0
	pnull
	var	2
	pnull
	var	1
	pnull
	int	0
	line	1355
	colm	24
	neg
	line	1355
	colm	23
	subsc
	line	1355
	colm	17
	numlt
	unmark
	mark	L15
	pnull
	var	3
	int	0
	line	1356
	colm	14
	asgn
	unmark
lab L15
	unmark
	pnull
	goto	L8
lab L13
lab L7
	unmark
	goto	L6
lab L8
	unmark
lab L5
	mark	L16
	var	7
	var	1
	var	2
	line	1361
	colm	7
	invoke	2
	unmark
lab L16
	mark	L17
lab L18
	mark0
	pnull
	var	2
	var	6
	var	0
	line	1363
	colm	18
	invoke	1
	line	1363
	colm	12
	asgn
	unmark
	mark	L18
	mark	L21
	mark0
	pnull
	var	2
	pnull
	var	1
	pnull
	int	0
	line	1364
	colm	19
	neg
	line	1364
	colm	18
	subsc
	line	1364
	colm	12
	numlt
	unmark
	mark	L22
	pnull
	var	3
	pnull
	int	0
	line	1365
	colm	19
	neg
	line	1365
	colm	17
	numeq
	unmark
	mark	L24
	var	7
	var	1
	var	2
	line	1366
	colm	16
	invoke	2
	unmark
lab L24
	pnull
	var	3
	int	0
	line	1367
	colm	17
	asgn
	goto	L23
lab L22
	pnull
	pnull
	var	1
	pnull
	int	0
	line	1369
	colm	20
	neg
	line	1369
	colm	19
	subsc
	var	2
	line	1369
	colm	24
	asgn
lab L23
	unmark
lab L21
	mark0
	pnull
	var	2
	pnull
	var	1
	pnull
	int	0
	line	1371
	colm	19
	neg
	line	1371
	colm	18
	subsc
	line	1371
	colm	12
	numgt
	unmark
	mark	L25
	pnull
	var	3
	int	0
	line	1372
	colm	17
	numeq
	unmark
	mark	L27
	var	7
	var	1
	var	2
	line	1373
	colm	16
	invoke	2
	unmark
lab L27
	pnull
	var	3
	pnull
	int	0
	line	1374
	colm	20
	neg
	line	1374
	colm	17
	asgn
	goto	L26
lab L25
	pnull
	pnull
	var	1
	pnull
	int	0
	line	1376
	colm	20
	neg
	line	1376
	colm	19
	subsc
	var	2
	line	1376
	colm	24
	asgn
lab L26
lab L19
	unmark
	goto	L18
lab L20
	unmark
lab L17
	mark	L28
	mark	L29
	var	1
	line	1380
	colm	4
	pret
lab L29
	pfail
	unmark
lab L28
	pnull
	line	1382
	colm	1
	pfail
	end
proc sunmod
	local	0,001000,x
	local	1,000020,base
	local	2,000020,bound
	local	3,000020,i
	local	4,000020,lseq
	local	5,000020,k
	local	6,000000,copy
	local	7,000000,spromote
	local	8,000000,integer
	local	9,000000,sbound
	local	10,000000,get
	local	11,000000,put
	local	12,000000,smin
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	1384
	colm	11
	mark	L1
	pnull
	var	0
	var	6
	var	7
	var	0
	line	1387
	colm	22
	invoke	1
	line	1387
	colm	13
	invoke	1
	line	1387
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	mark	L3
	var	8
	pnull
	var	0
	int	0
	line	1389
	colm	20
	subsc
	line	1389
	colm	18
	invoke	1
	unmark
	efail
lab L3
	pnull
	unmark
	mark	L4
	var	0
	line	1389
	colm	30
	pret
lab L4
	pfail
	unmark
lab L2
	mark	L5
	pnull
	var	1
	int	1
	line	1391
	colm	9
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	9
	var	0
	invoke	-1
	line	1393
	colm	10
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	4
	mark	L8
	pnull
	var	10
	var	0
	line	1395
	colm	16
	invoke	1
	line	1395
	colm	12
	llist	1
	esusp
	goto	L9
lab L8
	line	1395
	colm	23
	pfail
lab L9
	line	1395
	colm	9
	asgn
	unmark
lab L7
	mark	L10
lab L11
	mark0
	pnull
	var	3
	var	10
	var	0
	line	1397
	colm	18
	invoke	1
	line	1397
	colm	12
	asgn
	unmark
	mark	L11
	mark	L14
	mark	L15
	pnull
	var	3
	int	0
	line	1398
	colm	13
	numeq
	pop
	pnull
	pnull
	var	4
	pnull
	int	0
	line	1398
	colm	26
	neg
	line	1398
	colm	25
	subsc
	pnull
	var	1
	var	2
	line	1398
	colm	37
	plus
	line	1398
	colm	30
	numeq
	unmark
	pnull
	var	1
	dup
	var	2
	line	1399
	colm	15
	plus
	asgn
	goto	L16
lab L15
	mark0
	pnull
	var	3
	var	2
	line	1400
	colm	18
	numeq
	pop
	pnull
	pnull
	var	4
	pnull
	int	0
	line	1400
	colm	35
	neg
	line	1400
	colm	34
	subsc
	pnull
	var	1
	int	0
	line	1400
	colm	46
	plus
	line	1400
	colm	39
	numeq
	unmark
	pnull
	var	1
	dup
	var	2
	line	1401
	colm	15
	minus
	asgn
lab L16
	unmark
lab L14
	var	11
	var	4
	pnull
	var	1
	var	3
	line	1402
	colm	22
	plus
	line	1402
	colm	10
	invoke	2
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	mark	L17
lab L18
	mark0
	pnull
	pnull
	var	5
	var	12
	var	4
	invoke	-1
	line	1405
	colm	13
	asgn
	int	0
	line	1405
	colm	31
	numlt
	unmark
	mark	L18
	mark0
	pnull
	pnull
	var	4
	line	1406
	colm	13
	bang
	dup
	var	2
	line	1406
	colm	19
	plus
	asgn
	pop
lab L21
	efail
lab L22
lab L19
	unmark
	goto	L18
lab L20
	unmark
lab L17
	mark	L23
	mark	L24
	var	4
	line	1408
	colm	4
	pret
lab L24
	pfail
	unmark
lab L23
	pnull
	line	1410
	colm	1
	pfail
	end
proc sunop
	local	0,001000,op
	local	1,001000,xargs
	local	2,000020,lseq
	local	3,000020,i
	local	4,000020,x
	local	5,000000,node_gen
	local	6,000000,node
	local	7,000000,spromote
	local	8,000000,proc
	local	9,000000,put
	con	0,010000,5,163,165,156,157,160
	con	1,002000,1,1
	declend
	line	1412
	colm	11
	mark	L1
	mark0
	pnull
	var	5
	line	1415
	colm	7
	nonnull
	unmark
	mark	L2
	var	6
	str	0
	var	1
	line	1415
	colm	33
	invoke	2
	line	1415
	colm	22
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	4
	var	7
	pnull
	var	1
	int	1
	line	1417
	colm	23
	subsc
	line	1417
	colm	17
	invoke	1
	line	1417
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	mark	L5
	var	8
	var	0
	int	1
	line	1419
	colm	14
	invoke	2
	esusp
	goto	L6
lab L5
	line	1419
	colm	24
	pfail
lab L6
	line	1419
	colm	7
	asgn
	unmark
lab L4
	mark	L7
	pnull
	var	2
	pnull
	line	1421
	colm	12
	llist	0
	line	1421
	colm	9
	asgn
	unmark
lab L7
	mark	L8
	mark0
	pnull
	var	3
	pnull
	int	1
	pnull
	var	4
	line	1423
	colm	20
	size
	push1
	line	1423
	colm	17
	toby
	line	1423
	colm	12
	asgn
	pop
	mark0
	var	9
	var	2
	var	0
	pnull
	var	4
	var	3
	line	1424
	colm	21
	subsc
	line	1424
	colm	19
	invoke	1
	line	1424
	colm	10
	invoke	2
	unmark
lab L9
	efail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	2
	line	1426
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	1428
	colm	1
	pfail
	end
proc walk_tree
	local	0,001000,n
	local	1,001000,tree_list
	local	2,001000,tree_ptrs
	local	3,001000,depth
	local	4,000020,indent
	local	5,000000,repl
	local	6,000000,integer
	local	7,000000,type
	local	8,000000,put
	local	9,000000,simage
	local	10,000000,walk_tree
	con	0,002000,1,0
	con	1,010000,1,040
	con	2,002000,1,3
	con	3,010000,7,151,156,164,145,147,145,162
	con	4,010000,4,154,151,163,164
	con	5,010000,1,133
	con	6,002000,3,300
	con	7,010000,1,135
	con	8,010000,6,163,164,162,151,156,147
	con	9,002000,1,1
	declend
	line	1430
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	1433
	colm	4
	null
	pnull
	line	1433
	colm	18
	llist	0
	line	1433
	colm	15
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	1434
	colm	4
	null
	pnull
	line	1434
	colm	18
	llist	0
	line	1434
	colm	15
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	3
	line	1435
	colm	4
	null
	int	0
	line	1435
	colm	11
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	5
	str	1
	pnull
	int	2
	var	3
	line	1437
	colm	26
	mult
	line	1437
	colm	18
	invoke	2
	line	1437
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	var	6
	var	0
	line	1439
	colm	16
	invoke	1
	line	1439
	colm	6
	asgn
	unmark
lab L5
	mark	L6
	mark0
	var	7
	var	0
	line	1441
	colm	13
	invoke	1
	eret
	mark	L8
	ccase
	mark	L9
	str	3
	esusp
	goto	L10
lab L9
	str	4
lab L10
	line	1442
	colm	27
	eqv
	unmark
	pop
	mark	L11
	var	8
	var	1
	pnull
	pnull
	pnull
	var	4
	str	5
	line	1443
	colm	32
	cat
	var	9
	var	0
	int	6
	line	1443
	colm	48
	invoke	2
	line	1443
	colm	39
	cat
	str	7
	line	1443
	colm	57
	cat
	line	1443
	colm	13
	invoke	2
	unmark
lab L11
	mark	L12
	var	8
	var	2
	var	0
	line	1444
	colm	13
	invoke	2
	unmark
lab L12
	mark	L13
	pnull
	var	1
	var	2
	line	1445
	colm	17
	llist	2
	line	1445
	colm	10
	pret
lab L13
	pfail
	goto	L7
lab L8
	mark	L14
	ccase
	str	8
	line	1447
	colm	27
	eqv
	unmark
	pop
	mark	L15
	var	8
	var	1
	pnull
	var	4
	var	0
	line	1448
	colm	32
	cat
	line	1448
	colm	13
	invoke	2
	unmark
lab L15
	mark	L16
	var	8
	var	2
	var	0
	line	1449
	colm	13
	invoke	2
	unmark
lab L16
	mark	L17
	pnull
	var	1
	var	2
	line	1450
	colm	17
	llist	2
	line	1450
	colm	10
	pret
lab L17
	pfail
	goto	L7
lab L14
	efail
lab L7
	unmark
lab L6
	mark	L18
	var	8
	var	1
	pnull
	var	4
	pnull
	var	0
	line	1454
	colm	30
	field	name
	line	1454
	colm	26
	cat
	line	1454
	colm	7
	invoke	2
	unmark
lab L18
	mark	L19
	var	8
	var	2
	var	0
	line	1455
	colm	7
	invoke	2
	unmark
lab L19
	mark	L20
	mark0
	var	10
	pnull
	pnull
	var	0
	line	1457
	colm	22
	field	seqlist
	line	1457
	colm	20
	bang
	var	1
	var	2
	pnull
	var	3
	int	9
	line	1457
	colm	60
	plus
	line	1457
	colm	19
	invoke	4
	pop
lab L21
	efail
lab L22
	unmark
lab L20
	mark	L23
	mark	L24
	pnull
	var	1
	var	2
	line	1459
	colm	11
	llist	2
	line	1459
	colm	4
	pret
lab L24
	pfail
	unmark
lab L23
	pnull
	line	1461
	colm	1
	pfail
	end
proc sbefriend
	local	0,001000,x
	local	1,001000,way
	local	2,000020,lseq
	local	3,000020,i
	local	4,000020,tail
	local	5,000000,connect
	local	6,000000,copy
	local	7,000000,spromote
	local	8,000000,put
	local	9,000000,get
	local	10,000000,pull
	con	0,002000,1,1
	declend
	line	1463
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	1466
	colm	4
	null
	var	5
	line	1466
	colm	9
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	var	6
	var	7
	var	0
	line	1468
	colm	22
	invoke	1
	line	1468
	colm	13
	invoke	1
	line	1468
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	var	8
	var	0
	pnull
	var	0
	int	0
	line	1470
	colm	12
	subsc
	line	1470
	colm	7
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	2
	mark	L5
	pnull
	var	9
	var	0
	line	1472
	colm	16
	invoke	1
	line	1472
	colm	12
	llist	1
	esusp
	goto	L6
lab L5
	mark	L7
	pnull
	line	1472
	colm	30
	llist	0
	line	1472
	colm	23
	pret
lab L7
	pfail
lab L6
	line	1472
	colm	9
	asgn
	unmark
lab L4
	mark	L8
lab L9
	mark0
	pnull
	var	3
	var	9
	var	0
	line	1474
	colm	18
	invoke	1
	line	1474
	colm	12
	asgn
	unmark
	mark	L9
	pnull
	var	2
	dup
	var	1
	pnull
	var	2
	pnull
	int	0
	line	1475
	colm	27
	neg
	line	1475
	colm	26
	subsc
	var	3
	line	1475
	colm	21
	invoke	2
	line	1475
	colm	12
	lconcat
	asgn
lab L10
	unmark
	goto	L9
lab L11
	unmark
lab L8
	mark	L12
	var	10
	var	2
	line	1477
	colm	8
	invoke	1
	unmark
lab L12
	mark	L13
	mark	L14
	var	2
	line	1479
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	1481
	colm	1
	pfail
	end
proc connect
	local	0,001000,j
	local	1,001000,i
	local	2,000020,k
	local	3,000020,result
	local	4,000000,abs
	local	5,000000,put
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	1483
	colm	11
	mark	L1
	pnull
	var	3
	pnull
	line	1486
	colm	14
	llist	0
	line	1486
	colm	11
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	1
	var	0
	line	1488
	colm	11
	minus
	line	1488
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	4
	var	2
	line	1490
	colm	10
	invoke	1
	int	0
	line	1490
	colm	14
	numeq
	unmark
	var	5
	var	3
	var	1
	line	1490
	colm	26
	invoke	2
	goto	L5
lab L4
	mark	L6
	pnull
	var	2
	int	1
	line	1491
	colm	14
	numeq
	unmark
	var	5
	var	3
	pnull
	var	1
	pnull
	pnull
	int	0
	pnull
	int	0
	line	1492
	colm	28
	neg
	line	1492
	colm	24
	llist	2
	line	1492
	colm	23
	random
	line	1492
	colm	21
	plus
	var	1
	line	1492
	colm	10
	invoke	3
	goto	L7
lab L6
	mark	L8
	pnull
	var	2
	int	1
	line	1493
	colm	14
	numgt
	unmark
	mark0
	var	5
	var	3
	pnull
	pnull
	var	0
	int	0
	line	1494
	colm	27
	plus
	var	1
	push1
	line	1494
	colm	31
	toby
	line	1494
	colm	16
	invoke	2
	pop
lab L10
	efail
lab L11
	goto	L9
lab L8
	mark0
	var	5
	var	3
	pnull
	pnull
	var	0
	int	0
	line	1496
	colm	27
	minus
	var	1
	pnull
	int	0
	line	1496
	colm	39
	neg
	line	1496
	colm	31
	toby
	line	1496
	colm	16
	invoke	2
	pop
lab L12
	efail
lab L13
lab L9
lab L7
lab L5
	unmark
lab L3
	mark	L14
	mark	L15
	var	3
	line	1498
	colm	4
	pret
lab L15
	pfail
	unmark
lab L14
	pnull
	line	1500
	colm	1
	pfail
	end
proc wander
	local	0,001000,j
	local	1,001000,i
	local	2,000020,result
	local	3,000020,k
	local	4,000020,incr
	local	5,000000,abs
	local	6,000000,put
	local	7,000000,get
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	1502
	colm	11
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	1505
	colm	14
	llist	1
	line	1505
	colm	11
	asgn
	unmark
lab L1
	mark	L2
lab L3
	mark	L3
	mark	L6
	pnull
	var	3
	pnull
	var	1
	pnull
	var	2
	pnull
	int	0
	line	1508
	colm	23
	neg
	line	1508
	colm	22
	subsc
	line	1508
	colm	14
	minus
	line	1508
	colm	9
	asgn
	unmark
lab L6
	mark	L7
	mark0
	pnull
	var	5
	var	3
	line	1509
	colm	13
	invoke	1
	int	0
	line	1509
	colm	17
	numeq
	unmark
	mark	L8
	var	6
	var	2
	var	1
	line	1510
	colm	13
	invoke	2
	unmark
lab L8
	unmark
	unmark
	pnull
	goto	L5
	unmark
lab L7
	mark	L9
	pnull
	var	4
	pnull
	int	0
	pnull
	int	0
	line	1513
	colm	19
	neg
	line	1513
	colm	15
	llist	2
	line	1513
	colm	12
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	var	3
	int	1
	line	1514
	colm	12
	numlt
	unmark
	mark0
	pnull
	int	0
	pnull
	var	3
	line	1515
	colm	21
	neg
	push1
	line	1515
	colm	18
	toby
	pop
	mark0
	var	6
	var	4
	pnull
	int	0
	line	1516
	colm	23
	neg
	line	1516
	colm	16
	invoke	2
	unmark
lab L13
	efail
lab L14
	goto	L12
lab L11
	mark0
	var	6
	var	4
	int	0
	line	1518
	colm	19
	invoke	2
	pop
lab L15
	efail
lab L16
lab L12
	unmark
lab L10
	mark	L17
	var	6
	var	2
	pnull
	pnull
	var	2
	pnull
	int	0
	line	1519
	colm	26
	neg
	line	1519
	colm	25
	subsc
	pnull
	var	4
	line	1519
	colm	32
	random
	line	1519
	colm	30
	plus
	line	1519
	colm	10
	invoke	2
	unmark
lab L17
	mark0
	pnull
	pnull
	var	2
	pnull
	int	0
	line	1520
	colm	17
	neg
	line	1520
	colm	16
	subsc
	var	1
	line	1520
	colm	21
	lexeq
	unmark
	unmark
	pnull
	goto	L5
lab L4
	unmark
	goto	L3
lab L5
	unmark
lab L2
	mark	L18
	mark0
	pnull
	pnull
	var	2
	line	1523
	colm	7
	size
	int	0
	line	1523
	colm	15
	numgt
	unmark
	var	7
	var	2
	line	1523
	colm	27
	invoke	1
	unmark
lab L18
	mark	L19
	mark	L20
	var	2
	line	1525
	colm	4
	pret
lab L20
	pfail
	unmark
lab L19
	pnull
	line	1527
	colm	1
	pfail
	end
proc sxplot
	local	0,001000,x
	local	1,000020,plot
	local	2,000020,i
	local	3,000020,bound
	local	4,000000,spromote
	local	5,000000,sbound
	local	6,000000,list
	local	7,000000,repl
	local	8,000000,write
	local	9,000000,pull
	con	0,010000,1,040
	con	1,002000,1,1
	con	2,010000,1,170
	declend
	line	1529
	colm	11
	mark	L1
	pnull
	var	0
	var	4
	var	0
	line	1532
	colm	17
	invoke	1
	line	1532
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	5
	var	0
	invoke	-1
	line	1534
	colm	10
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	var	6
	var	3
	var	7
	str	0
	pnull
	var	0
	line	1536
	colm	34
	size
	line	1536
	colm	28
	invoke	2
	line	1536
	colm	16
	invoke	2
	line	1536
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	0
	line	1538
	colm	20
	size
	push1
	line	1538
	colm	17
	toby
	line	1538
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	pnull
	var	1
	pnull
	var	0
	var	2
	line	1539
	colm	13
	subsc
	line	1539
	colm	11
	subsc
	var	2
	line	1539
	colm	17
	subsc
	str	2
	line	1539
	colm	22
	asgn
	unmark
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
lab L8
	mark0
	var	8
	var	9
	var	1
	line	1541
	colm	20
	invoke	1
	line	1541
	colm	15
	invoke	1
lab L9
	unmark
	goto	L8
lab L10
	unmark
lab L7
	mark	L11
	mark	L12
	pnull
	line	1543
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	1545
	colm	1
	pfail
	end
proc sundelta
	local	0,001000,x
	local	1,000020,i
	local	2,000000,spromote
	local	3,000000,sredelta
	con	0,002000,1,2
	declend
	line	1547
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1550
	colm	17
	invoke	1
	line	1550
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	0
	line	1552
	colm	20
	size
	int	0
	line	1552
	colm	17
	toby
	line	1552
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	1
	line	1553
	colm	8
	subsc
	pnull
	pnull
	var	0
	var	1
	line	1553
	colm	17
	subsc
	line	1553
	colm	15
	neg
	line	1553
	colm	12
	asgn
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	3
	var	0
	line	1555
	colm	19
	invoke	1
	line	1555
	colm	4
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	1557
	colm	1
	pfail
	end
proc sredelta
	local	0,001000,x
	local	1,000020,lseq
	local	2,000000,spromote
	local	3,000000,put
	local	4,000000,get
	local	5,000000,sground
	con	0,002000,1,1
	declend
	line	1559
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1562
	colm	17
	invoke	1
	line	1562
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	int	0
	line	1564
	colm	12
	llist	1
	line	1564
	colm	9
	asgn
	unmark
lab L2
	mark	L3
lab L4
	mark0
	var	3
	var	1
	pnull
	pnull
	var	1
	pnull
	int	0
	line	1566
	colm	25
	neg
	line	1566
	colm	24
	subsc
	var	4
	var	0
	line	1566
	colm	34
	invoke	1
	line	1566
	colm	29
	plus
	line	1566
	colm	13
	invoke	2
lab L5
	unmark
	goto	L4
lab L6
	unmark
lab L3
	mark	L7
	mark	L8
	var	5
	var	1
	line	1568
	colm	18
	invoke	1
	line	1568
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	1570
	colm	1
	pfail
	end
proc sreplp
	local	0,001000,x1
	local	1,001000,x2
	local	2,000020,lseq
	local	3,000020,i
	local	4,000000,spromote
	local	5,000000,get
	local	6,000000,put
	con	0,002000,1,1
	declend
	line	1572
	colm	11
	mark	L1
	pnull
	var	0
	var	4
	var	0
	line	1575
	colm	18
	invoke	1
	line	1575
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	4
	var	1
	line	1576
	colm	18
	invoke	1
	line	1576
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	pnull
	line	1578
	colm	12
	llist	0
	line	1578
	colm	9
	asgn
	unmark
lab L3
	mark	L4
lab L5
	mark0
	pnull
	var	3
	var	5
	var	0
	line	1580
	colm	18
	invoke	1
	line	1580
	colm	12
	asgn
	unmark
	mark	L5
	mark0
	pnull
	int	0
	var	5
	var	1
	line	1581
	colm	20
	invoke	1
	push1
	line	1581
	colm	14
	toby
	pop
	mark0
	var	6
	var	2
	var	3
	line	1582
	colm	12
	invoke	2
	unmark
lab L8
	efail
lab L9
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark	L10
	mark	L11
	var	2
	line	1584
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	1586
	colm	1
	pfail
	end
proc sundulant
	local	0,001000,x
	local	1,001000,sw
	local	2,000020,lseq
	local	3,000020,i
	local	4,000020,dir
	local	5,000020,cdir
	local	6,000000,spromote
	local	7,000000,sign
	local	8,000000,put
	local	9,000000,pull
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,1,0
	con	3,002000,1,3
	declend
	line	1588
	colm	11
	mark	L1
	pnull
	var	0
	var	6
	var	0
	line	1591
	colm	17
	invoke	1
	line	1591
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	mark	L3
	pnull
	pnull
	var	0
	int	0
	line	1593
	colm	14
	subsc
	line	1593
	colm	12
	llist	1
	esusp
	goto	L4
lab L3
	line	1593
	colm	21
	pfail
lab L4
	line	1593
	colm	9
	asgn
	unmark
lab L2
	mark	L5
	pnull
	var	3
	int	1
	line	1595
	colm	6
	asgn
	unmark
lab L5
	mark	L6
lab L7
	mark	L7
	mark	L10
	pnull
	var	4
	mark	L11
	var	7
	pnull
	pnull
	var	0
	var	3
	line	1598
	colm	20
	subsc
	pnull
	var	0
	pnull
	var	3
	int	0
	line	1598
	colm	30
	minus
	line	1598
	colm	27
	subsc
	line	1598
	colm	24
	minus
	line	1598
	colm	18
	invoke	1
	esusp
	goto	L12
lab L11
	line	1598
	colm	38
	pfail
lab L12
	line	1598
	colm	11
	asgn
	unmark
lab L10
	mark	L13
	pnull
	var	4
	int	2
	line	1599
	colm	14
	numne
	unmark
	unmark
	pnull
	goto	L9
	goto	L14
lab L13
	pnull
	var	3
	dup
	int	0
	line	1600
	colm	14
	plus
	asgn
lab L14
lab L8
	unmark
	goto	L7
lab L9
	unmark
lab L6
	mark	L15
	mark0
	pnull
	var	3
	pnull
	int	1
	pnull
	var	0
	line	1603
	colm	20
	size
	push1
	line	1603
	colm	17
	toby
	line	1603
	colm	12
	asgn
	pop
	mark0
	mark	L18
	pnull
	var	5
	var	7
	pnull
	pnull
	var	0
	var	3
	line	1604
	colm	21
	subsc
	pnull
	var	0
	pnull
	var	3
	int	0
	line	1604
	colm	31
	minus
	line	1604
	colm	28
	subsc
	line	1604
	colm	25
	minus
	line	1604
	colm	19
	invoke	1
	line	1604
	colm	12
	asgn
	unmark
lab L18
	mark	L19
	mark0
	pnull
	var	5
	int	2
	line	1605
	colm	15
	numeq
	unmark
	unmark
	unmark
	goto	L16
	unmark
lab L19
	mark0
	pnull
	var	4
	var	5
	line	1606
	colm	14
	numne
	unmark
	mark	L20
	var	8
	var	2
	pnull
	var	0
	pnull
	var	3
	int	0
	line	1607
	colm	24
	minus
	line	1607
	colm	21
	subsc
	line	1607
	colm	13
	invoke	2
	unmark
lab L20
	pnull
	var	4
	var	5
	line	1608
	colm	14
	asgn
	unmark
lab L16
	efail
lab L17
	unmark
lab L15
	mark	L21
	mark0
	pnull
	var	1
	line	1612
	colm	7
	nonnull
	pop
	pnull
	pnull
	var	2
	int	0
	line	1612
	colm	17
	subsc
	pnull
	var	2
	pnull
	int	0
	line	1612
	colm	28
	neg
	line	1612
	colm	27
	subsc
	line	1612
	colm	21
	numeq
	unmark
	var	9
	var	2
	line	1612
	colm	41
	invoke	1
	unmark
lab L21
	mark	L22
	mark0
	pnull
	pnull
	var	2
	line	1614
	colm	7
	size
	int	3
	line	1614
	colm	13
	numlt
	unmark
	line	1614
	colm	22
	pfail
	unmark
lab L22
	mark	L23
	mark	L24
	var	2
	line	1616
	colm	4
	pret
lab L24
	pfail
	unmark
lab L23
	pnull
	line	1618
	colm	1
	pfail
	end
