proc arandseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,seq
	con	0,002000,1,1
	declend
	filen	genrfncs.icn
	line	94
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	96
	colm	4
	null
	int	0
	line	96
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	97
	colm	4
	null
	int	0
	line	97
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	2
	var	0
	line	99
	colm	15
	invoke	1
	pnull
	var	1
	line	99
	colm	21
	random
	line	99
	colm	19
	plus
	line	99
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	101
	colm	1
	pfail
	end
proc arithseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,seq
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	103
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	105
	colm	4
	null
	int	0
	line	105
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	106
	colm	4
	null
	int	1
	line	106
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	var	2
	pnull
	var	0
	var	1
	line	108
	colm	18
	plus
	line	108
	colm	15
	invoke	1
	line	108
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	110
	colm	1
	pfail
	end
proc beatty1seq
	local	0,000000,integer
	local	1,000000,seq
	declend
	line	112
	colm	11
	mark	L1
	mark0
	var	0
	pnull
	var	1
	line	114
	colm	23
	invoke	0
	line	114
	colm	28
	keywd	phi
	line	114
	colm	26
	mult
	line	114
	colm	19
	invoke	1
	line	114
	colm	4
	psusp
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	pnull
	line	116
	colm	1
	pfail
	end
proc beatty2seq
	local	0,000000,integer
	local	1,000000,seq
	con	0,002000,1,2
	declend
	line	118
	colm	11
	mark	L1
	mark0
	var	0
	pnull
	var	1
	line	120
	colm	23
	invoke	0
	pnull
	line	120
	colm	28
	keywd	phi
	int	0
	line	120
	colm	33
	power
	line	120
	colm	26
	mult
	line	120
	colm	19
	invoke	1
	line	120
	colm	4
	psusp
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	pnull
	line	122
	colm	1
	pfail
	end
proc catlnseq
	local	0,001000,i
	local	1,000020,k
	local	2,000000,seq
	con	0,002000,1,1
	con	1,002000,1,4
	con	2,002000,1,2
	declend
	line	124
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	127
	colm	3
	null
	int	0
	line	127
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pushn1
	pnull
	var	0
	int	0
	line	129
	colm	15
	asgn
	pnull
	var	1
	var	2
	line	129
	colm	29
	invoke	0
	line	129
	colm	23
	asgn
	pnull
	var	0
	dup
	pnull
	pnull
	int	1
	var	1
	line	129
	colm	41
	mult
	int	2
	line	129
	colm	45
	plus
	line	129
	colm	35
	mult
	asgn
	pnull
	var	0
	dup
	pnull
	var	1
	int	2
	line	129
	colm	58
	plus
	line	129
	colm	52
	div
	asgn
	line	129
	colm	12
	invoke	4
	line	129
	colm	4
	psusp
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	pnull
	line	131
	colm	1
	pfail
	end
proc chaosseq
	local	0,000000,q
	local	1,000000,seq
	declend
	line	133
	colm	11
	mark	L1
	mark0
	var	0
	var	1
	line	135
	colm	17
	invoke	0
	line	135
	colm	13
	invoke	1
	line	135
	colm	4
	psusp
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	pnull
	line	137
	colm	1
	pfail
	end
proc connellseq
	local	0,001000,p
	local	1,001000,args
	local	2,000020,i
	local	3,000020,j
	local	4,000020,count
	local	5,000020,parity
	local	6,000020,parity2
	local	7,000020,C
	local	8,000000,seq
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	142
	colm	11
	mark	L1
	pnull
	var	7
	goto	L4
lab L2
	pop
	mark	L3
	mark	L5
	pnull
	var	0
	line	145
	colm	17
	nonnull
	esusp
	goto	L6
lab L5
	var	8
lab L6
	var	1
	invoke	-1
	line	145
	colm	9
	coret
	efail
lab L3
	cofail
	goto	L3
lab L4
	create	L2
	line	145
	colm	6
	asgn
	unmark
lab L1
	mark	L7
	pnull
	var	4
	int	0
	line	147
	colm	10
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	5
	int	0
	line	148
	colm	11
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	6
	int	1
	line	149
	colm	12
	asgn
	unmark
lab L9
	mark	L10
lab L11
	mark	L11
	mark	L14
	pnull
	var	4
	dup
	int	1
	line	152
	colm	13
	plus
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	5
	var	6
	line	153
	colm	14
	swap
	unmark
lab L15
	mark	L16
	pnull
	var	3
	int	0
	line	154
	colm	9
	asgn
	unmark
lab L16
lab L17
	mark	L17
	mark	L20
	pnull
	var	2
	mark	L21
	pnull
	var	7
	line	156
	colm	15
	coact
	esusp
	goto	L22
lab L21
	line	156
	colm	20
	pfail
lab L22
	line	156
	colm	12
	asgn
	unmark
lab L20
	mark0
	pnull
	pnull
	var	2
	int	2
	line	157
	colm	15
	mod
	var	5
	line	157
	colm	19
	numeq
	unmark
	mark	L23
	mark0
	var	2
	line	158
	colm	13
	psusp
	pop
lab L24
	efail
lab L25
	unmark
lab L23
	mark	L26
	pnull
	var	3
	dup
	int	1
	line	159
	colm	15
	plus
	asgn
	unmark
lab L26
	mark0
	pnull
	var	3
	var	4
	line	160
	colm	18
	numeq
	unmark
	unmark
	pnull
	goto	L19
lab L18
	unmark
	goto	L17
lab L19
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	pnull
	line	165
	colm	1
	pfail
	end
proc chexmorphseq
	local	0,000020,i
	local	1,000020,j
	local	2,000000,seq
	local	3,000000,tab
	con	0,002000,1,3
	con	1,002000,1,1
	declend
	line	167
	colm	11
	mark	L1
	mark0
	pushn1
	pnull
	var	0
	var	2
	line	170
	colm	19
	invoke	0
	line	170
	colm	13
	asgn
	pnull
	var	1
	pnull
	pnull
	pnull
	int	0
	var	0
	line	170
	colm	30
	mult
	pnull
	var	0
	int	1
	line	170
	colm	39
	minus
	line	170
	colm	34
	mult
	int	1
	line	170
	colm	44
	plus
	line	170
	colm	25
	asgn
	var	1
	line	170
	colm	51
	bscan
	mark	L4
	var	3
	pnull
	pnull
	var	0
	line	171
	colm	12
	size
	line	171
	colm	11
	neg
	line	171
	colm	10
	invoke	1
	unmark
lab L4
	mark0
	pnull
	var	0
	line	172
	colm	10
	tabmat
	unmark
	mark0
	var	1
	line	172
	colm	18
	psusp
	pop
lab L5
	efail
lab L6
	line	170
	colm	51
	escan
	line	170
	colm	10
	invoke	3
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	pnull
	line	175
	colm	1
	pfail
	end
proc factseq
	local	0,000020,i
	local	1,000000,seq
	con	0,002000,1,1
	declend
	line	177
	colm	11
	mark	L1
	pnull
	var	0
	int	0
	line	180
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	0
	dup
	var	1
	line	182
	colm	21
	invoke	0
	line	182
	colm	14
	mult
	asgn
	line	182
	colm	4
	psusp
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	pnull
	line	184
	colm	1
	pfail
	end
proc fibseq
	local	0,001000,i
	local	1,001000,j
	local	2,001000,k
	local	3,000020,m
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,1,0
	declend
	line	186
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	189
	colm	4
	null
	int	0
	line	189
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	190
	colm	4
	null
	int	1
	line	190
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	191
	colm	4
	null
	int	2
	line	191
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	mark0
	mark	L7
	var	0
	esusp
	goto	L8
lab L7
	mark	L9
	var	1
	esusp
	goto	L10
lab L9
lab L11
	mark0
	mark	L12
	pnull
	var	3
	pnull
	pnull
	var	0
	var	1
	line	194
	colm	14
	plus
	var	2
	line	194
	colm	18
	plus
	line	194
	colm	9
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	0
	var	1
	line	195
	colm	9
	asgn
	unmark
lab L13
	pnull
	var	1
	var	3
	line	196
	colm	9
	asgn
	chfail	L11
	esusp
lab L10
lab L8
	line	193
	colm	4
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	pnull
	line	199
	colm	1
	pfail
	end
proc fileseq
	local	0,001000,s
	local	1,001000,i
	local	2,000040,input
	local	3,000000,close
	local	4,000000,dopen
	declend
	line	204
	colm	11
	mark	L1
	var	3
	pnull
	var	2
	line	207
	colm	10
	nonnull
	line	207
	colm	9
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	2
	mark	L3
	var	4
	var	0
	line	209
	colm	18
	invoke	1
	esusp
	goto	L4
lab L3
	line	209
	colm	24
	pfail
lab L4
	line	209
	colm	10
	asgn
	unmark
lab L2
	mark	L5
	mark	L6
	pnull
	var	1
	line	211
	colm	7
	null
	unmark
	mark0
	pnull
	var	2
	line	211
	colm	23
	bang
	line	211
	colm	15
	psusp
	pop
lab L8
	efail
lab L9
	goto	L7
lab L6
	mark0
	pnull
	pnull
	var	2
	line	212
	colm	18
	bang
	line	212
	colm	17
	bang
	line	212
	colm	9
	psusp
	pop
lab L10
	efail
lab L11
lab L7
	unmark
lab L5
	mark	L12
	var	3
	var	2
	line	214
	colm	9
	invoke	1
	unmark
lab L12
	pnull
	line	216
	colm	1
	pfail
	end
proc figurseq
	local	0,001000,i
	local	1,000020,j
	local	2,000020,k
	local	3,000000,seq
	con	0,002000,1,1
	declend
	line	218
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	221
	colm	4
	null
	int	0
	line	221
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pushn1
	pnull
	var	1
	int	0
	line	223
	colm	15
	asgn
	pnull
	var	2
	var	3
	var	0
	line	223
	colm	29
	invoke	1
	line	223
	colm	23
	asgn
	pnull
	var	1
	dup
	pnull
	var	2
	int	0
	line	223
	colm	42
	plus
	line	223
	colm	36
	mult
	asgn
	pnull
	var	1
	dup
	pnull
	pnull
	var	2
	int	0
	line	223
	colm	55
	plus
	var	0
	line	223
	colm	59
	minus
	line	223
	colm	49
	div
	asgn
	line	223
	colm	12
	invoke	4
	line	223
	colm	4
	psusp
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	pnull
	line	225
	colm	1
	pfail
	end
proc gseq
	local	0,001000,k
	local	1,001000,i
	local	2,000000,g
	local	3,000000,seq
	con	0,002000,1,1
	declend
	line	227
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	229
	colm	4
	null
	int	0
	line	229
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	230
	colm	4
	null
	int	0
	line	230
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	var	2
	var	0
	var	3
	var	1
	line	232
	colm	20
	invoke	1
	line	232
	colm	13
	invoke	2
	line	232
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	234
	colm	1
	pfail
	end
proc geomseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,seq
	con	0,002000,1,1
	declend
	line	236
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	238
	colm	4
	null
	int	0
	line	238
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	239
	colm	4
	null
	int	0
	line	239
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	2
	var	0
	line	241
	colm	15
	invoke	1
	var	1
	line	241
	colm	19
	mult
	line	241
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	243
	colm	1
	pfail
	end
proc hailseq
	local	0,001000,i
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,1,0
	con	3,002000,1,3
	declend
	line	245
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	247
	colm	4
	null
	int	0
	line	247
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	mark0
lab L5
	mark0
	mark	L6
	pnull
	pnull
	var	0
	int	1
	line	249
	colm	18
	mod
	int	2
	line	249
	colm	22
	numeq
	unmark
	pnull
	var	0
	dup
	int	1
	line	249
	colm	33
	div
	asgn
	goto	L7
lab L6
	pnull
	var	0
	pnull
	pnull
	int	3
	var	0
	line	249
	colm	51
	mult
	int	0
	line	249
	colm	55
	plus
	line	249
	colm	46
	asgn
lab L7
	chfail	L5
	esusp
	line	249
	colm	4
	psusp
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	pnull
	line	251
	colm	1
	pfail
	end
proc irepl
	local	0,001000,i
	local	1,001000,j
	con	0,002000,1,1
	declend
	line	253
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	255
	colm	4
	null
	int	0
	line	255
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	256
	colm	4
	null
	int	0
	line	256
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	var	1
	line	258
	colm	13
	limit
lab L6
	mark0
	var	0
	chfail	L6
	esusp
	lsusp
	line	258
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	260
	colm	1
	pfail
	end
proc mthueseq
	local	0,000020,i
	local	1,000020,s
	local	2,000000,map
	con	0,002000,1,0
	con	1,010000,1,060
	con	2,002000,1,1
	con	3,010000,2,060,061
	con	4,010000,2,061,060
	declend
	line	262
	colm	11
	mark	L1
	pnull
	var	0
	int	0
	line	265
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	str	1
	line	266
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark0
lab L6
	mark0
	int	2
	line	268
	colm	26
	limit
	mark	L7
	pnull
	var	1
	pnull
	var	0
	dup
	int	2
	line	268
	colm	19
	plus
	asgn
	line	268
	colm	16
	subsc
	esusp
	goto	L8
lab L7
	pushn1
	pnull
	var	1
	dup
	var	2
	var	1
	str	3
	str	4
	line	268
	colm	39
	invoke	3
	line	268
	colm	31
	cat
	asgn
	pnull
	var	1
	var	0
	line	268
	colm	57
	subsc
	line	268
	colm	28
	invoke	2
lab L8
	lsusp
	chfail	L6
	esusp
	line	268
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	270
	colm	1
	pfail
	end
proc multiseq
	local	0,001000,i
	local	1,001000,j
	local	2,001000,k
	local	3,000000,seq
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	273
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	275
	colm	4
	null
	int	0
	line	275
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	276
	colm	4
	null
	int	0
	line	276
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	277
	colm	4
	null
	int	1
	line	277
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pushn1
	pnull
	var	0
	var	3
	var	0
	line	279
	colm	21
	invoke	1
	line	279
	colm	15
	asgn
	pnull
	pnull
	var	0
	var	1
	line	279
	colm	35
	mult
	var	2
	line	279
	colm	39
	plus
	line	279
	colm	28
	limit
lab L7
	mark0
	var	0
	chfail	L7
	esusp
	lsusp
	pop
	var	0
	line	279
	colm	12
	invoke	2
	line	279
	colm	4
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	pnull
	line	281
	colm	1
	pfail
	end
proc ngonalseq
	local	0,001000,i
	local	1,000020,j
	local	2,000020,k
	local	3,000000,seq
	con	0,002000,1,2
	con	1,002000,1,1
	declend
	line	283
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	286
	colm	4
	null
	int	0
	line	286
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	dup
	int	0
	line	288
	colm	6
	plus
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	pnull
	var	0
	int	0
	line	290
	colm	11
	minus
	line	290
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark0
	mark	L7
	pnull
	var	1
	int	1
	line	292
	colm	16
	asgn
	esusp
	goto	L8
lab L7
	pnull
	var	1
	dup
	pnull
	int	1
	pnull
	var	2
	var	3
	line	292
	colm	42
	invoke	0
	line	292
	colm	37
	mult
	line	292
	colm	33
	plus
	line	292
	colm	27
	plus
	asgn
lab L8
	line	292
	colm	4
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	pnull
	line	294
	colm	1
	pfail
	end
proc partitseq
	local	0,001000,i
	local	1,001000,j
	local	2,001000,k
	local	3,000000,partit
	con	0,002000,1,1
	declend
	line	296
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	298
	colm	4
	null
	int	0
	line	298
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	299
	colm	4
	null
	int	0
	line	299
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	300
	colm	4
	null
	var	0
	line	300
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	3
	var	0
	var	1
	var	2
	line	302
	colm	19
	invoke	3
	line	302
	colm	12
	bang
	line	302
	colm	4
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	pnull
	line	304
	colm	1
	pfail
	end
proc pellseq
	local	0,001000,i
	local	1,001000,j
	local	2,001000,k
	local	3,000020,m
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	306
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	309
	colm	4
	null
	int	0
	line	309
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	310
	colm	4
	null
	int	1
	line	310
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	311
	colm	4
	null
	int	1
	line	311
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	mark0
	mark	L7
	var	0
	esusp
	goto	L8
lab L7
	mark	L9
	var	1
	esusp
	goto	L10
lab L9
lab L11
	mark0
	mark	L12
	pnull
	var	3
	pnull
	var	0
	pnull
	var	2
	var	1
	line	314
	colm	18
	mult
	line	314
	colm	14
	plus
	line	314
	colm	9
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	0
	var	1
	line	315
	colm	9
	asgn
	unmark
lab L13
	pnull
	var	1
	var	3
	line	316
	colm	9
	asgn
	chfail	L11
	esusp
lab L10
lab L8
	line	313
	colm	4
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	pnull
	line	319
	colm	1
	pfail
	end
proc perrinseq
	local	0,000020,i
	local	1,000020,j
	local	2,000020,k
	local	3,000020,l
	con	0,002000,1,3
	con	1,002000,1,0
	con	2,002000,1,2
	declend
	line	321
	colm	11
	mark	L1
	mark0
	pnull
	var	0
	int	0
	line	324
	colm	14
	asgn
	line	324
	colm	4
	psusp
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	mark	L4
	mark0
	pnull
	var	1
	int	1
	line	325
	colm	14
	asgn
	line	325
	colm	4
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark0
	pnull
	var	2
	int	2
	line	326
	colm	14
	asgn
	line	326
	colm	4
	psusp
	pop
lab L8
	efail
lab L9
	unmark
lab L7
	mark	L10
lab L11
	mark	L11
	mark	L14
	mark0
	pnull
	var	3
	pnull
	var	0
	var	1
	line	329
	colm	22
	plus
	line	329
	colm	17
	asgn
	line	329
	colm	7
	psusp
	pop
lab L15
	efail
lab L16
	unmark
lab L14
	mark	L17
	pnull
	var	0
	var	1
	line	330
	colm	9
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	1
	var	2
	line	331
	colm	9
	asgn
	unmark
lab L18
	pnull
	var	2
	var	3
	line	332
	colm	9
	asgn
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	pnull
	line	335
	colm	1
	pfail
	end
proc primeseq
	local	0,000020,i
	local	1,000020,k
	local	2,000000,seq
	local	3,000000,sqrt
	con	0,002000,1,2
	con	1,002000,1,3
	declend
	line	337
	colm	11
	mark	L1
	mark0
	mark	L4
	int	0
	esusp
	goto	L5
lab L4
	pnull
	var	0
	var	2
	int	1
	int	0
	line	340
	colm	26
	invoke	2
	line	340
	colm	20
	asgn
	pop
	mark	L6
	pnull
	var	0
	pnull
	pnull
	var	1
	pnull
	int	1
	var	3
	var	0
	line	340
	colm	61
	invoke	1
	int	0
	line	340
	colm	54
	toby
	line	340
	colm	48
	asgn
	pnull
	var	0
	var	1
	line	341
	colm	10
	div
	line	340
	colm	72
	mult
	line	340
	colm	43
	numeq
	unmark
	efail
lab L6
	pnull
	pop
	var	0
lab L5
	line	340
	colm	4
	psusp
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	pnull
	line	343
	colm	1
	pfail
	end
proc powerseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,seq
	con	0,002000,1,2
	con	1,002000,1,0
	declend
	line	345
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	347
	colm	4
	null
	int	0
	line	347
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	348
	colm	4
	null
	int	1
	line	348
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	0
	var	2
	var	1
	line	350
	colm	19
	invoke	1
	line	350
	colm	14
	power
	line	350
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	352
	colm	1
	pfail
	end
proc spectseq
	local	0,001000,r
	local	1,000000,integer
	local	2,000000,seq
	con	0,004000,1.0
	declend
	line	354
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	356
	colm	4
	null
	real	0
	line	356
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	mark0
	var	1
	pnull
	var	2
	line	358
	colm	23
	invoke	0
	var	0
	line	358
	colm	26
	mult
	line	358
	colm	19
	invoke	1
	line	358
	colm	4
	psusp
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	pnull
	line	360
	colm	1
	pfail
	end
proc versumseq
	local	0,001000,i
	local	1,000020,j
	local	2,000020,k
	local	3,000000,integer
	local	4,000000,stop
	local	5,000000,reverse
	con	0,002000,3,196
	con	1,010000,31,052,052,052,040,151,156,166,141,154,151,144,040,164,171,160,145,040,164,157,040,166,145,162,163,165,155,163,145,161,050,051
	declend
	line	362
	colm	11
	mark	L1
	pnull
	pnull
	var	0
	line	365
	colm	4
	null
	int	0
	line	365
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	mark	L3
	var	3
	var	0
	line	367
	colm	16
	invoke	1
	esusp
	goto	L4
lab L3
	var	4
	str	1
	line	367
	colm	26
	invoke	1
lab L4
	line	367
	colm	6
	asgn
	unmark
lab L2
	mark	L5
lab L6
	mark	L6
	mark	L9
	pnull
	var	1
	var	5
	var	0
	line	370
	colm	19
	invoke	1
	line	370
	colm	9
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	dup
	var	1
	line	371
	colm	9
	plus
	asgn
	unmark
lab L10
	mark0
	var	0
	line	372
	colm	7
	psusp
	pop
lab L11
	efail
lab L12
lab L7
	unmark
	goto	L6
lab L8
	unmark
lab L5
	pnull
	line	375
	colm	1
	pfail
	end
