version	U12.1.00
uid	genrfncs.u1-1787877028-0
record	farey,3
	0,magnitude
	1,n
	2,d
record	entry,3
	0,value
	1,i
	2,j
impl	error
link	convert.u
link	factors.u
link	fastfncs.u
link	io.u
link	lindgen.u
link	lists.u
link	numbers.u
link	partit.u
link	periodic.u
link	polynom.u
link	rational.u
link	strings.u
link	xcode.u
global	53
	0,000005,arandseq,2
	1,000005,arithseq,2
	2,000005,beatty1seq,1
	3,000005,beatty2seq,1
	4,000005,catlnseq,1
	5,000005,chaosseq,0
	6,000005,connellseq,-2
	7,000005,chexmorphseq,0
	8,000005,cfseq,2
	9,000005,dietzseq,1
	10,000005,eval,1
	11,000005,oper,1
	12,000005,form,3
	13,000005,dressseq,1
	14,000005,eisseq,1
	15,000005,factseq,0
	16,000011,farey,3
	17,000005,fareyseq,2
	18,000005,fareydseq,1
	19,000005,fareynseq,1
	20,000005,fareyn1seq,1
	21,000005,fibseq,4
	22,000005,fileseq,2
	23,000005,figurseq,1
	24,000005,friendseq,1
	25,000005,geomseq,2
	26,000005,hailseq,1
	27,000005,irepl,2
	28,000005,linrecseq,2
	29,000005,lrrcseq,2
	30,000005,meanderseq,2
	31,000005,mthueseq,0
	32,000005,mthuegseq,1
	33,000005,multiseq,3
	34,000005,ngonalseq,1
	35,000005,nibonacciseq,-1
	36,000005,partitseq,3
	37,000005,pellseq,3
	38,000005,perrinseq,0
	39,000005,polyseq,-1
	40,000005,primeseq,0
	41,000005,powersofseq,1
	42,000005,powerseq,1
	43,000005,rabbitseq,0
	44,000005,ratsseq,2
	45,000011,entry,3
	46,000005,signaseq,3
	47,000005,spectseq,1
	48,000005,srpseq,2
	49,000005,versumseq,2
	50,000005,versumopseq,-3
	51,000005,vishwanathseq,2
	52,000005,zebra,-1

proc arandseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,seq
	con	0,002000,1,1
	declend
	filen	genrfncs.icn
	line	153
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	155
	colm	4
	synt	any
	null
	int	0
	line	155
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	156
	colm	4
	synt	any
	null
	int	0
	line	156
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	158
	colm	4
	synt	suspend
	mark0
	pnull
	var	2
	var	0
	line	158
	colm	15
	synt	any
	invoke	1
	pnull
	var	1
	line	158
	colm	21
	synt	any
	random
	line	158
	colm	19
	synt	any
	plus
	line	158
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	158
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	160
	colm	1
	synt	any
	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	162
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	164
	colm	4
	synt	any
	null
	int	0
	line	164
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	165
	colm	4
	synt	any
	null
	int	1
	line	165
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	167
	colm	4
	synt	suspend
	mark0
	var	2
	pnull
	var	0
	var	1
	line	167
	colm	18
	synt	any
	plus
	line	167
	colm	15
	synt	any
	invoke	1
	line	167
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	167
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	169
	colm	1
	synt	any
	pfail
	end
proc beatty1seq
	local	0,001000,r
	local	1,000000,integer
	local	2,000000,seq
	declend
	line	171
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	173
	colm	4
	synt	any
	null
	line	173
	colm	10
	synt	any
	keywd	phi
	line	173
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	175
	colm	4
	synt	suspend
	mark0
	var	1
	pnull
	var	2
	line	175
	colm	23
	synt	any
	invoke	0
	var	0
	line	175
	colm	26
	synt	any
	mult
	line	175
	colm	19
	synt	any
	invoke	1
	line	175
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	175
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	177
	colm	1
	synt	any
	pfail
	end
proc beatty2seq
	local	0,001000,r
	local	1,000000,integer
	local	2,000000,seq
	con	0,002000,1,1
	declend
	line	179
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	181
	colm	4
	synt	any
	null
	line	181
	colm	10
	synt	any
	keywd	phi
	line	181
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	183
	colm	4
	synt	suspend
	mark0
	var	1
	pnull
	var	2
	line	183
	colm	23
	synt	any
	invoke	0
	pnull
	var	0
	pnull
	var	0
	int	0
	line	183
	colm	36
	synt	any
	minus
	line	183
	colm	31
	synt	any
	div
	line	183
	colm	26
	synt	any
	mult
	line	183
	colm	19
	synt	any
	invoke	1
	line	183
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	183
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	185
	colm	1
	synt	any
	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	187
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	190
	colm	3
	synt	any
	null
	int	0
	line	190
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	192
	colm	4
	synt	suspend
	mark0
	pushn1
	pnull
	var	0
	int	0
	line	192
	colm	15
	synt	any
	asgn
	pnull
	var	1
	var	2
	line	192
	colm	29
	synt	any
	invoke	0
	line	192
	colm	23
	synt	any
	asgn
	pnull
	var	0
	dup
	pnull
	pnull
	int	1
	var	1
	line	192
	colm	41
	synt	any
	mult
	int	2
	line	192
	colm	45
	synt	any
	plus
	line	192
	colm	35
	synt	any
	mult
	asgn
	pnull
	var	0
	dup
	pnull
	var	1
	int	2
	line	192
	colm	58
	synt	any
	plus
	line	192
	colm	52
	synt	any
	div
	asgn
	line	192
	colm	12
	synt	any
	invoke	4
	line	192
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	192
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	194
	colm	1
	synt	any
	pfail
	end
proc chaosseq
	local	0,000000,q
	local	1,000000,seq
	declend
	line	196
	colm	11
	synt	any
	mark	L1
	line	198
	colm	4
	synt	suspend
	mark0
	var	0
	var	1
	line	198
	colm	17
	synt	any
	invoke	0
	line	198
	colm	13
	synt	any
	invoke	1
	line	198
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	198
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	200
	colm	1
	synt	any
	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	205
	colm	11
	synt	any
	mark	L1
	pnull
	var	7
	goto	L4
lab L2
	pop
	mark	L3
	mark	L5
	pnull
	var	0
	line	208
	colm	17
	synt	any
	nonnull
	line	208
	colm	20
	synt	any
	esusp
	goto	L6
lab L5
	var	8
lab L6
	var	1
	invoke	-1
	line	208
	colm	9
	synt	any
	coret
	efail
lab L3
	cofail
	goto	L3
lab L4
	create	L2
	line	208
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L7
	pnull
	var	4
	int	0
	line	210
	colm	10
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	5
	int	0
	line	211
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	6
	int	1
	line	212
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
lab L11
	line	214
	colm	4
	synt	repeat
	mark	L11
	mark	L14
	pnull
	var	4
	dup
	int	1
	line	215
	colm	13
	synt	any
	plus
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	5
	var	6
	line	216
	colm	14
	synt	any
	swap
	unmark
lab L15
	mark	L16
	pnull
	var	3
	int	0
	line	217
	colm	9
	synt	any
	asgn
	unmark
lab L16
lab L17
	line	218
	colm	7
	synt	repeat
	mark	L17
	mark	L20
	pnull
	var	2
	mark	L21
	pnull
	var	7
	line	219
	colm	15
	synt	any
	coact
	line	219
	colm	18
	synt	any
	esusp
	goto	L22
lab L21
	line	219
	colm	20
	synt	any
	pfail
lab L22
	line	219
	colm	12
	synt	any
	asgn
	unmark
lab L20
	line	220
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	2
	line	220
	colm	15
	synt	any
	mod
	var	5
	line	220
	colm	19
	synt	any
	numeq
	unmark
	mark	L23
	line	221
	colm	13
	synt	suspend
	mark0
	var	2
	line	221
	colm	13
	synt	any
	psusp
	pop
lab L24
	efail
lab L25
	line	221
	colm	13
	synt	endsuspend
	unmark
lab L23
	mark	L26
	pnull
	var	3
	dup
	int	1
	line	222
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L26
	line	223
	colm	13
	synt	if
	mark0
	pnull
	var	3
	var	4
	line	223
	colm	18
	synt	any
	numeq
	unmark
	unmark
	pnull
	goto	L19
	line	223
	colm	13
	synt	endif
	line	220
	colm	10
	synt	endif
lab L18
	unmark
	goto	L17
lab L19
	line	218
	colm	7
	synt	endrepeat
lab L12
	unmark
	goto	L11
lab L13
	line	214
	colm	4
	synt	endrepeat
	unmark
lab L10
	pnull
	line	228
	colm	1
	synt	any
	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	230
	colm	11
	synt	any
	mark	L1
	line	233
	colm	4
	synt	every
	mark0
	pushn1
	pnull
	var	0
	var	2
	line	233
	colm	19
	synt	any
	invoke	0
	line	233
	colm	13
	synt	any
	asgn
	pnull
	var	1
	pnull
	pnull
	pnull
	int	0
	var	0
	line	233
	colm	30
	synt	any
	mult
	pnull
	var	0
	int	1
	line	233
	colm	39
	synt	any
	minus
	line	233
	colm	34
	synt	any
	mult
	int	1
	line	233
	colm	44
	synt	any
	plus
	line	233
	colm	25
	synt	any
	asgn
	var	1
	line	233
	colm	51
	synt	any
	bscan
	mark	L4
	var	3
	pnull
	pnull
	var	0
	line	234
	colm	12
	synt	any
	size
	line	234
	colm	11
	synt	any
	neg
	line	234
	colm	10
	synt	any
	invoke	1
	unmark
lab L4
	line	235
	colm	7
	synt	if
	mark0
	pnull
	var	0
	line	235
	colm	10
	synt	any
	tabmat
	unmark
	line	235
	colm	18
	synt	suspend
	mark0
	var	1
	line	235
	colm	18
	synt	any
	psusp
	pop
lab L5
	efail
lab L6
	line	235
	colm	18
	synt	endsuspend
	line	235
	colm	7
	synt	endif
	line	233
	colm	51
	synt	any
	escan
	line	233
	colm	10
	synt	any
	invoke	3
	pop
lab L2
	efail
lab L3
	line	233
	colm	4
	synt	endevery
	unmark
lab L1
	pnull
	line	238
	colm	1
	synt	any
	pfail
	end
proc cfseq
	local	0,001000,i
	local	1,001000,j
	local	2,000020,r
	local	3,000000,integer
	con	0,002000,1,0
	declend
	line	240
	colm	11
	synt	any
	mark	L1
lab L2
	line	243
	colm	4
	synt	until
	mark	L3
	pnull
	var	1
	int	0
	line	243
	colm	12
	synt	any
	numeq
	unmark
	efail
lab L3
	mark	L2
	mark	L6
	line	244
	colm	6
	synt	suspend
	mark0
	var	3
	pnull
	var	0
	var	1
	line	244
	colm	24
	synt	any
	div
	line	244
	colm	21
	synt	any
	invoke	1
	line	244
	colm	6
	synt	any
	psusp
	pop
lab L7
	efail
lab L8
	line	244
	colm	6
	synt	endsuspend
	unmark
lab L6
	mark	L9
	pnull
	var	2
	pnull
	var	0
	var	1
	line	245
	colm	13
	synt	any
	mod
	line	245
	colm	8
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	var	1
	line	246
	colm	8
	synt	any
	asgn
	unmark
lab L10
	pnull
	var	1
	var	2
	line	247
	colm	8
	synt	any
	asgn
lab L4
	unmark
	goto	L2
lab L5
	line	243
	colm	4
	synt	enduntil
	unmark
lab L1
	pnull
	line	250
	colm	1
	synt	any
	pfail
	end
proc dietzseq
	local	0,001000,str
	local	1,000020,vars
	local	2,000000,deletec
	local	3,000000,cset
	local	4,000000,map
	local	5,000000,poly2profile
	local	6,000000,eval
	con	0,020000,1,040
	con	1,002000,1,2
	declend
	line	252
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	2
	var	0
	cset	0
	line	255
	colm	18
	synt	any
	invoke	2
	line	255
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	line	257
	colm	12
	synt	any
	keywd	letters
	var	3
	var	0
	line	257
	colm	28
	synt	any
	invoke	1
	line	257
	colm	21
	synt	any
	inter
	line	257
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	259
	colm	4
	synt	suspend
	mark0
	pnull
	var	4
	var	5
	var	6
	var	0
	line	259
	colm	34
	synt	any
	invoke	1
	line	259
	colm	29
	synt	any
	invoke	1
	var	1
	pnull
	line	259
	colm	48
	synt	any
	keywd	digits
	int	1
	dup
	pnull
	var	1
	line	259
	colm	59
	synt	any
	size
	line	259
	colm	57
	synt	any
	plus
	synt	any
	sect
	line	259
	colm	16
	synt	any
	invoke	3
	line	259
	colm	12
	synt	any
	bang
	line	259
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	259
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	261
	colm	1
	synt	any
	pfail
	end
proc eval
	local	0,001000,str
	local	1,000000,tab
	local	2,000000,bal
	local	3,000000,pos
	local	4,000000,oper
	local	5,000000,str2poly
	con	0,002000,1,2
	con	1,010000,1,050
	con	2,020000,1,051
	con	3,010000,1,051
	con	4,002000,1,0
	declend
	line	263
	colm	11
	synt	any
	mark	L1
lab L2
	line	265
	colm	4
	synt	while
	mark0
	pnull
	var	0
	sdup
	line	265
	colm	14
	synt	any
	bscan
	int	0
	pnull
	str	1
	line	265
	colm	20
	synt	any
	tabmat
	var	1
	var	2
	cset	2
	line	265
	colm	33
	synt	any
	invoke	1
	line	265
	colm	29
	synt	any
	invoke	1
	pnull
	str	3
	line	265
	colm	41
	synt	any
	tabmat
	var	3
	int	4
	line	265
	colm	50
	synt	any
	invoke	1
	line	265
	colm	19
	synt	any
	invoke	4
	line	265
	colm	14
	synt	any
	escan
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	265
	colm	4
	synt	endwhile
	unmark
lab L1
	mark	L5
	mark	L6
	mark	L7
	var	4
	var	0
	line	267
	colm	15
	synt	any
	invoke	1
	line	267
	colm	21
	synt	any
	esusp
	goto	L8
lab L7
	var	5
	var	0
	line	267
	colm	31
	synt	any
	invoke	1
lab L8
	line	267
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	269
	colm	1
	synt	any
	pfail
	end
proc oper
	local	0,001000,str
	local	1,000000,form
	local	2,000000,tab
	local	3,000000,bal
	local	4,000000,move
	con	0,020000,4,055,053,052,136
	con	1,002000,1,1
	con	2,002000,1,0
	declend
	line	271
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	0
	line	273
	colm	15
	synt	any
	bscan
	var	1
	var	2
	var	3
	cset	0
	line	273
	colm	29
	synt	any
	invoke	1
	line	273
	colm	25
	synt	any
	invoke	1
	var	4
	int	1
	line	273
	colm	44
	synt	any
	invoke	1
	var	2
	int	2
	line	273
	colm	52
	synt	any
	invoke	1
	line	273
	colm	21
	synt	any
	invoke	3
	line	273
	colm	15
	synt	any
	escan
	line	273
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	275
	colm	1
	synt	any
	pfail
	end
proc form
	local	0,001000,str1
	local	1,001000,op
	local	2,001000,str2
	local	3,000000,polyadd
	local	4,000000,eval
	local	5,000000,polysub
	local	6,000000,polymul
	local	7,000000,polyexp
	con	0,010000,1,053
	con	1,010000,1,055
	con	2,010000,1,052
	con	3,010000,1,136
	declend
	line	277
	colm	11
	synt	any
	mark	L1
	mark	L2
	line	279
	colm	11
	synt	case
	mark0
	var	1
	eret
	mark	L4
	ccase
	str	0
	line	280
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	3
	var	4
	var	0
	line	280
	colm	27
	synt	any
	invoke	1
	var	4
	var	2
	line	280
	colm	39
	synt	any
	invoke	1
	line	280
	colm	22
	synt	any
	invoke	2
	goto	L3
lab L4
	mark	L5
	ccase
	str	1
	line	281
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	5
	var	4
	var	0
	line	281
	colm	27
	synt	any
	invoke	1
	var	4
	var	2
	line	281
	colm	39
	synt	any
	invoke	1
	line	281
	colm	22
	synt	any
	invoke	2
	goto	L3
lab L5
	mark	L6
	ccase
	str	2
	line	282
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	6
	var	4
	var	0
	line	282
	colm	27
	synt	any
	invoke	1
	var	4
	var	2
	line	282
	colm	39
	synt	any
	invoke	1
	line	282
	colm	22
	synt	any
	invoke	2
	goto	L3
lab L6
	mark	L7
	ccase
	str	3
	line	283
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	7
	var	4
	var	0
	line	283
	colm	27
	synt	any
	invoke	1
	var	2
	line	283
	colm	22
	synt	any
	invoke	2
	goto	L3
lab L7
	efail
lab L3
	line	279
	colm	11
	synt	endcase
	line	279
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	286
	colm	1
	synt	any
	pfail
	end
proc dressseq
	local	0,001000,i
	local	1,000020,s
	local	2,000020,t
	local	3,000000,put
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	288
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	291
	colm	4
	synt	any
	null
	int	0
	line	291
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	int	1
	line	293
	colm	9
	synt	any
	llist	1
	line	293
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	295
	colm	4
	synt	suspend
	mark0
	pnull
	var	1
	line	295
	colm	12
	synt	any
	bang
	line	295
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	295
	colm	4
	synt	endsuspend
	unmark
lab L3
	mark	L6
lab L7
	line	297
	colm	4
	synt	repeat
	mark	L7
	mark	L10
	pnull
	var	2
	pnull
	line	298
	colm	12
	synt	any
	llist	0
	line	298
	colm	9
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	299
	colm	7
	synt	every
	mark0
	var	3
	var	2
	pnull
	pnull
	var	1
	line	299
	colm	20
	synt	any
	bang
	var	0
	line	299
	colm	23
	synt	any
	plus
	line	299
	colm	16
	synt	any
	invoke	2
	pop
lab L12
	efail
lab L13
	line	299
	colm	7
	synt	endevery
	unmark
lab L11
	mark	L14
	line	300
	colm	7
	synt	suspend
	mark0
	pnull
	var	2
	line	300
	colm	15
	synt	any
	bang
	line	300
	colm	7
	synt	any
	psusp
	pop
lab L15
	efail
lab L16
	line	300
	colm	7
	synt	endsuspend
	unmark
lab L14
	pnull
	var	1
	dup
	var	2
	line	301
	colm	9
	synt	any
	lconcat
	asgn
lab L8
	unmark
	goto	L7
lab L9
	line	297
	colm	4
	synt	endrepeat
	unmark
lab L6
	pnull
	line	304
	colm	1
	synt	any
	pfail
	end
proc eisseq
	local	0,001000,i
	local	1,000020,input
	local	2,000020,seq
	local	3,000040,lst
	local	4,000000,dopen
	local	5,000000,xdecode
	local	6,000000,close
	local	7,000000,integer
	con	0,010000,7,145,151,163,056,163,145,161
	declend
	line	306
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	1
	mark	L5
	var	4
	str	0
	line	311
	colm	21
	synt	any
	invoke	1
	line	311
	colm	33
	synt	any
	esusp
	goto	L6
lab L5
	line	311
	colm	35
	synt	any
	pfail
lab L6
	line	311
	colm	13
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	pnull
	var	3
	mark	L8
	var	5
	var	1
	line	312
	colm	21
	synt	any
	invoke	1
	line	312
	colm	29
	synt	any
	esusp
	goto	L9
lab L8
	line	312
	colm	31
	synt	any
	pfail
lab L9
	line	312
	colm	11
	synt	any
	asgn
	unmark
lab L7
	var	6
	var	1
	line	313
	colm	12
	synt	any
	invoke	1
	unmark
lab L2
	einit	L1
lab L3
	mark	L10
	pnull
	var	2
	mark	L11
	pnull
	pnull
	var	3
	var	7
	var	0
	line	316
	colm	23
	synt	any
	invoke	1
	line	316
	colm	15
	synt	any
	subsc
	line	316
	colm	11
	synt	any
	nonnull
	line	316
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	316
	colm	30
	synt	any
	pfail
lab L12
	line	316
	colm	8
	synt	any
	asgn
	unmark
lab L10
	mark	L13
	line	318
	colm	4
	synt	suspend
	mark0
	pnull
	var	2
	line	318
	colm	12
	synt	any
	bang
	line	318
	colm	4
	synt	any
	psusp
	pop
lab L14
	efail
lab L15
	line	318
	colm	4
	synt	endsuspend
	unmark
lab L13
	pnull
	line	320
	colm	1
	synt	any
	pfail
	end
proc factseq
	local	0,000020,i
	local	1,000000,seq
	con	0,002000,1,1
	declend
	line	322
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	int	0
	line	325
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	327
	colm	4
	synt	suspend
	mark0
	pnull
	var	0
	dup
	var	1
	line	327
	colm	21
	synt	any
	invoke	0
	line	327
	colm	14
	synt	any
	mult
	asgn
	line	327
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	327
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	329
	colm	1
	synt	any
	pfail
	end
proc fareyseq
	local	0,001000,i
	local	1,001000,k
	local	2,000020,farey_list
	local	3,000020,n
	local	4,000020,d
	local	5,000020,x
	local	6,000000,integer
	local	7,000000,farey
	local	8,000000,gcd
	local	9,000000,put
	local	10,000000,real
	local	11,000000,sortf
	con	0,002000,1,0
	con	1,004000,0.0
	con	2,002000,1,1
	declend
	line	333
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	336
	colm	4
	synt	any
	null
	int	0
	line	336
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	mark	L3
	var	6
	var	1
	line	338
	colm	16
	synt	any
	invoke	1
	line	338
	colm	20
	synt	any
	esusp
	goto	L4
lab L3
	line	338
	colm	22
	synt	any
	pfail
lab L4
	line	338
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	var	2
	pnull
	var	7
	real	1
	int	0
	int	2
	line	340
	colm	24
	synt	any
	invoke	3
	line	340
	colm	18
	synt	any
	llist	1
	line	340
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	342
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	2
	var	0
	push1
	line	342
	colm	17
	synt	any
	toby
	line	342
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	343
	colm	7
	synt	every
	mark0
	pnull
	var	3
	pnull
	int	2
	var	4
	push1
	line	343
	colm	20
	synt	any
	toby
	line	343
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	344
	colm	10
	synt	if
	mark0
	pnull
	var	8
	var	3
	var	4
	line	344
	colm	16
	synt	any
	invoke	2
	int	2
	line	344
	colm	23
	synt	any
	numeq
	unmark
	var	9
	var	2
	var	7
	pnull
	var	10
	var	3
	line	345
	colm	39
	synt	any
	invoke	1
	var	4
	line	345
	colm	43
	synt	any
	div
	var	3
	var	4
	line	345
	colm	34
	synt	any
	invoke	3
	line	345
	colm	16
	synt	any
	invoke	2
	line	344
	colm	10
	synt	endif
	unmark
lab L9
	efail
lab L10
	line	343
	colm	7
	synt	endevery
	unmark
lab L7
	efail
lab L8
	line	342
	colm	4
	synt	endevery
	unmark
lab L6
	mark	L11
	pnull
	var	2
	var	11
	var	2
	int	2
	line	348
	colm	23
	synt	any
	invoke	2
	line	348
	colm	15
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	350
	colm	4
	synt	case
	mark0
	var	1
	eret
	mark	L14
	ccase
	int	0
	line	351
	colm	10
	synt	any
	eqv
	unmark
	pop
	line	351
	colm	13
	synt	every
	mark0
	line	351
	colm	19
	synt	suspend
	mark0
	pnull
	pnull
	var	2
	line	351
	colm	28
	synt	any
	bang
	line	351
	colm	40
	synt	any
	field	n
	line	351
	colm	19
	synt	any
	psusp
	pop
lab L17
	efail
lab L18
	line	351
	colm	19
	synt	endsuspend
	pop
lab L15
	efail
lab L16
	line	351
	colm	13
	synt	endevery
	goto	L13
lab L14
	mark	L19
	ccase
	int	2
	line	352
	colm	10
	synt	any
	eqv
	unmark
	pop
	line	352
	colm	13
	synt	every
	mark0
	line	352
	colm	19
	synt	suspend
	mark0
	pnull
	pnull
	var	2
	line	352
	colm	28
	synt	any
	bang
	line	352
	colm	40
	synt	any
	field	d
	line	352
	colm	19
	synt	any
	psusp
	pop
lab L22
	efail
lab L23
	line	352
	colm	19
	synt	endsuspend
	pop
lab L20
	efail
lab L21
	line	352
	colm	13
	synt	endevery
	goto	L13
lab L19
	efail
lab L13
	line	350
	colm	4
	synt	endcase
	unmark
lab L12
	pnull
	line	355
	colm	1
	synt	any
	pfail
	end
proc fareydseq
	local	0,001000,i
	local	1,000020,parity
	local	2,000020,j
	local	3,000000,fareyseq
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	357
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	int	0
	line	360
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	362
	colm	4
	synt	every
	mark0
	pnull
	var	2
	var	3
	var	0
	line	362
	colm	23
	synt	any
	invoke	1
	line	362
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L5
	line	363
	colm	7
	synt	if
	mark0
	pnull
	var	1
	int	1
	line	363
	colm	17
	synt	any
	numlt
	unmark
	line	363
	colm	26
	synt	suspend
	mark0
	var	2
	line	363
	colm	26
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	363
	colm	26
	synt	endsuspend
	line	363
	colm	7
	synt	endif
	unmark
lab L5
	pnull
	var	1
	dup
	pnull
	int	0
	line	364
	colm	18
	synt	any
	neg
	line	364
	colm	14
	synt	any
	mult
	asgn
	unmark
lab L3
	efail
lab L4
	line	362
	colm	4
	synt	endevery
	unmark
lab L2
	pnull
	line	367
	colm	1
	synt	any
	pfail
	end
proc fareynseq
	local	0,001000,i
	local	1,000020,parity
	local	2,000020,j
	local	3,000000,fareyseq
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	369
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	int	0
	line	372
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	374
	colm	4
	synt	every
	mark0
	pnull
	var	2
	var	3
	var	0
	line	374
	colm	23
	synt	any
	invoke	1
	line	374
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L5
	line	375
	colm	7
	synt	if
	mark0
	pnull
	var	1
	int	1
	line	375
	colm	17
	synt	any
	numgt
	unmark
	line	375
	colm	26
	synt	suspend
	mark0
	var	2
	line	375
	colm	26
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	375
	colm	26
	synt	endsuspend
	line	375
	colm	7
	synt	endif
	unmark
lab L5
	pnull
	var	1
	dup
	pnull
	int	0
	line	376
	colm	18
	synt	any
	neg
	line	376
	colm	14
	synt	any
	mult
	asgn
	unmark
lab L3
	efail
lab L4
	line	374
	colm	4
	synt	endevery
	unmark
lab L2
	pnull
	line	379
	colm	1
	synt	any
	pfail
	end
proc fareyn1seq
	local	0,001000,i
	local	1,000000,fareynseq
	con	0,002000,1,1
	declend
	line	381
	colm	11
	synt	any
	mark	L1
	line	383
	colm	4
	synt	suspend
	mark0
	pnull
	var	1
	var	0
	line	383
	colm	21
	synt	any
	invoke	1
	int	0
	line	383
	colm	25
	synt	any
	plus
	line	383
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	383
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	385
	colm	1
	synt	any
	pfail
	end
proc fibseq
	local	0,001000,i
	local	1,001000,j
	local	2,001000,k
	local	3,001000,m
	local	4,000020,n
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	387
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	390
	colm	4
	synt	any
	null
	int	0
	line	390
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	391
	colm	4
	synt	any
	null
	int	0
	line	391
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	392
	colm	4
	synt	any
	null
	int	1
	line	392
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	394
	colm	4
	synt	ifelse
	mark	L5
	pnull
	var	3
	line	394
	colm	7
	synt	any
	null
	unmark
	line	395
	colm	7
	synt	suspend
	mark0
	mark	L9
	var	0
	line	395
	colm	17
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	var	1
	line	395
	colm	21
	synt	any
	esusp
	goto	L12
lab L11
lab L13
	mark0
	mark	L14
	pnull
	var	4
	pnull
	pnull
	var	0
	var	1
	line	396
	colm	17
	synt	any
	plus
	var	2
	line	396
	colm	21
	synt	any
	plus
	line	396
	colm	12
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	0
	var	1
	line	397
	colm	12
	synt	any
	asgn
	unmark
lab L15
	pnull
	var	1
	var	4
	line	398
	colm	12
	synt	any
	asgn
	chfail	L13
	esusp
lab L12
lab L10
	line	395
	colm	7
	synt	any
	psusp
	pop
lab L7
	efail
lab L8
	line	395
	colm	7
	synt	endsuspend
	goto	L6
lab L5
	line	402
	colm	7
	synt	suspend
	mark0
	mark	L18
	pnull
	var	0
	var	3
	line	402
	colm	17
	synt	any
	mod
	line	402
	colm	21
	synt	any
	esusp
	goto	L19
lab L18
	mark	L20
	pnull
	var	1
	var	3
	line	402
	colm	25
	synt	any
	mod
	line	402
	colm	29
	synt	any
	esusp
	goto	L21
lab L20
lab L22
	mark0
	mark	L23
	pnull
	var	4
	pnull
	pnull
	pnull
	var	0
	var	1
	line	403
	colm	18
	synt	any
	plus
	var	2
	line	403
	colm	22
	synt	any
	plus
	var	3
	line	403
	colm	27
	synt	any
	mod
	line	403
	colm	12
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	0
	var	1
	line	404
	colm	12
	synt	any
	asgn
	unmark
lab L24
	pnull
	var	1
	var	4
	line	405
	colm	12
	synt	any
	asgn
	chfail	L22
	esusp
lab L21
lab L19
	line	402
	colm	7
	synt	any
	psusp
	pop
lab L16
	efail
lab L17
	line	402
	colm	7
	synt	endsuspend
lab L6
	line	394
	colm	4
	synt	endifelse
	unmark
lab L4
	pnull
	line	409
	colm	1
	synt	any
	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	414
	colm	11
	synt	any
	mark	L1
	var	3
	pnull
	var	2
	line	417
	colm	10
	synt	any
	nonnull
	line	417
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	2
	mark	L3
	var	4
	var	0
	line	419
	colm	18
	synt	any
	invoke	1
	line	419
	colm	22
	synt	any
	esusp
	goto	L4
lab L3
	line	419
	colm	24
	synt	any
	pfail
lab L4
	line	419
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	line	421
	colm	4
	synt	ifelse
	mark	L6
	pnull
	var	1
	line	421
	colm	7
	synt	any
	null
	unmark
	line	421
	colm	15
	synt	suspend
	mark0
	pnull
	var	2
	line	421
	colm	23
	synt	any
	bang
	line	421
	colm	15
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	421
	colm	15
	synt	endsuspend
	goto	L7
lab L6
	line	422
	colm	9
	synt	suspend
	mark0
	pnull
	pnull
	var	2
	line	422
	colm	18
	synt	any
	bang
	line	422
	colm	17
	synt	any
	bang
	line	422
	colm	9
	synt	any
	psusp
	pop
lab L10
	efail
lab L11
	line	422
	colm	9
	synt	endsuspend
lab L7
	line	421
	colm	4
	synt	endifelse
	unmark
lab L5
	mark	L12
	var	3
	var	2
	line	424
	colm	9
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	pnull
	var	2
	line	426
	colm	13
	synt	any
	keywd	null
	line	426
	colm	10
	synt	any
	asgn
	unmark
lab L13
	pnull
	line	428
	colm	1
	synt	any
	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	430
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	433
	colm	4
	synt	any
	null
	int	0
	line	433
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	435
	colm	4
	synt	suspend
	mark0
	pushn1
	pnull
	var	1
	int	0
	line	435
	colm	15
	synt	any
	asgn
	pnull
	var	2
	var	3
	var	0
	line	435
	colm	29
	synt	any
	invoke	1
	line	435
	colm	23
	synt	any
	asgn
	pnull
	var	1
	dup
	pnull
	var	2
	int	0
	line	435
	colm	42
	synt	any
	plus
	line	435
	colm	36
	synt	any
	mult
	asgn
	pnull
	var	1
	dup
	pnull
	pnull
	var	2
	int	0
	line	435
	colm	55
	synt	any
	plus
	var	0
	line	435
	colm	59
	synt	any
	minus
	line	435
	colm	49
	synt	any
	div
	asgn
	line	435
	colm	12
	synt	any
	invoke	4
	line	435
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	435
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	437
	colm	1
	synt	any
	pfail
	end
proc friendseq
	local	0,001000,k
	local	1,000020,state
	con	0,002000,1,1
	declend
	line	439
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	0
	line	442
	colm	13
	synt	any
	random
	line	442
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	444
	colm	4
	synt	repeat
	mark	L3
	mark	L6
	line	445
	colm	7
	synt	suspend
	mark0
	var	1
	line	445
	colm	7
	synt	any
	psusp
	pop
lab L7
	efail
lab L8
	line	445
	colm	7
	synt	endsuspend
	unmark
lab L6
	line	446
	colm	7
	synt	case
	mark0
	var	1
	eret
	mark	L10
	ccase
	int	0
	line	447
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	1
	dup
	int	0
	line	447
	colm	28
	synt	any
	plus
	asgn
	goto	L9
lab L10
	mark	L11
	ccase
	var	0
	line	448
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	1
	dup
	int	0
	line	448
	colm	28
	synt	any
	minus
	asgn
	goto	L9
lab L11
	pop
	pnull
	var	1
	dup
	pnull
	pnull
	int	0
	pnull
	int	0
	line	449
	colm	37
	synt	any
	neg
	line	449
	colm	33
	synt	any
	llist	2
	line	449
	colm	32
	synt	any
	random
	line	449
	colm	28
	synt	any
	plus
	asgn
lab L9
	line	446
	colm	7
	synt	endcase
lab L4
	unmark
	goto	L3
lab L5
	line	444
	colm	4
	synt	endrepeat
	unmark
lab L2
	pnull
	line	453
	colm	1
	synt	any
	pfail
	end
proc geomseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,seq
	con	0,002000,1,1
	declend
	line	455
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	457
	colm	4
	synt	any
	null
	int	0
	line	457
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	458
	colm	4
	synt	any
	null
	int	0
	line	458
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	460
	colm	4
	synt	suspend
	mark0
	pnull
	var	2
	var	0
	line	460
	colm	15
	synt	any
	invoke	1
	var	1
	line	460
	colm	19
	synt	any
	mult
	line	460
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	460
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	462
	colm	1
	synt	any
	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	464
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	466
	colm	4
	synt	any
	null
	int	0
	line	466
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	468
	colm	4
	synt	suspend
	mark0
lab L5
	mark0
	line	468
	colm	13
	synt	ifelse
	mark	L6
	pnull
	pnull
	var	0
	int	1
	line	468
	colm	18
	synt	any
	mod
	int	2
	line	468
	colm	22
	synt	any
	numeq
	unmark
	pnull
	var	0
	dup
	int	1
	line	468
	colm	33
	synt	any
	div
	asgn
	goto	L7
lab L6
	pnull
	var	0
	pnull
	pnull
	int	3
	var	0
	line	468
	colm	51
	synt	any
	mult
	int	0
	line	468
	colm	55
	synt	any
	plus
	line	468
	colm	46
	synt	any
	asgn
lab L7
	line	468
	colm	13
	synt	endifelse
	chfail	L5
	esusp
	line	468
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	468
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	470
	colm	1
	synt	any
	pfail
	end
proc irepl
	local	0,001000,i
	local	1,001000,j
	con	0,002000,1,1
	declend
	line	472
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	474
	colm	4
	synt	any
	null
	int	0
	line	474
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	475
	colm	4
	synt	any
	null
	int	0
	line	475
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	477
	colm	4
	synt	suspend
	mark0
	var	1
	line	477
	colm	13
	synt	any
	limit
lab L6
	mark0
	var	0
	chfail	L6
	esusp
	lsusp
	line	477
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	477
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	479
	colm	1
	synt	any
	pfail
	end
proc linrecseq
	local	0,001000,terms
	local	1,001000,coeffs
	local	2,000000,linrecseq
	local	3,000000,lrrcseq
	declend
	line	481
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	482
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	484
	colm	4
	synt	suspend
	mark0
	var	3
	var	0
	var	1
	line	484
	colm	19
	synt	any
	invoke	2
	line	484
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	484
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	486
	colm	1
	synt	any
	pfail
	end
proc lrrcseq
	local	0,001000,terms
	local	1,001000,coeffs
	local	2,000020,i
	local	3,000020,term
	local	4,000000,get
	local	5,000000,put
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	488
	colm	11
	synt	any
	mark	L1
	line	491
	colm	4
	synt	suspend
	mark0
	pnull
	var	0
	line	491
	colm	12
	synt	any
	bang
	line	491
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	491
	colm	4
	synt	endsuspend
	unmark
lab L1
	mark	L4
lab L5
	line	493
	colm	4
	synt	repeat
	mark	L5
	mark	L8
	pnull
	var	3
	int	0
	line	494
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	495
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	1
	line	495
	colm	23
	synt	any
	size
	push1
	line	495
	colm	20
	synt	any
	toby
	line	495
	colm	15
	synt	any
	asgn
	pop
	mark0
	pnull
	var	3
	dup
	pnull
	pnull
	var	0
	var	2
	line	496
	colm	24
	synt	any
	subsc
	pnull
	var	1
	pnull
	var	2
	line	496
	colm	37
	synt	any
	neg
	line	496
	colm	36
	synt	any
	subsc
	line	496
	colm	28
	synt	any
	mult
	line	496
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L10
	efail
lab L11
	line	495
	colm	7
	synt	endevery
	unmark
lab L9
	mark	L12
	line	497
	colm	7
	synt	suspend
	mark0
	var	3
	line	497
	colm	7
	synt	any
	psusp
	pop
lab L13
	efail
lab L14
	line	497
	colm	7
	synt	endsuspend
	unmark
lab L12
	mark	L15
	var	4
	var	0
	line	498
	colm	10
	synt	any
	invoke	1
	unmark
lab L15
	var	5
	var	0
	var	3
	line	499
	colm	10
	synt	any
	invoke	2
lab L6
	unmark
	goto	L5
lab L7
	line	493
	colm	4
	synt	endrepeat
	unmark
lab L4
	pnull
	line	502
	colm	1
	synt	any
	pfail
	end
proc meanderseq
	local	0,001000,alpha
	local	1,001000,n
	local	2,000020,sequence
	local	3,000020,trial
	local	4,000020,i
	local	5,000020,c
	local	6,000000,repl
	local	7,000000,right
	local	8,000000,find
	con	0,002000,1,1
	declend
	line	504
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	pnull
	var	0
	line	507
	colm	9
	synt	any
	size
	line	507
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	6
	pnull
	var	0
	int	0
	line	509
	colm	26
	synt	any
	subsc
	pnull
	var	1
	int	0
	line	509
	colm	33
	synt	any
	minus
	line	509
	colm	20
	synt	any
	invoke	2
	line	509
	colm	13
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	511
	colm	4
	synt	while
	mark0
	pnull
	var	5
	pnull
	var	0
	var	4
	line	511
	colm	20
	synt	any
	subsc
	line	511
	colm	12
	synt	any
	asgn
	unmark
	mark	L4
	mark	L7
	pnull
	var	3
	pnull
	var	7
	var	2
	pnull
	var	1
	int	0
	line	512
	colm	34
	synt	any
	minus
	line	512
	colm	21
	synt	any
	invoke	2
	var	5
	line	512
	colm	39
	synt	any
	cat
	line	512
	colm	13
	synt	any
	asgn
	unmark
lab L7
	line	513
	colm	7
	synt	ifelse
	mark	L8
	var	8
	var	3
	var	2
	line	513
	colm	14
	synt	any
	invoke	2
	unmark
	pnull
	var	4
	dup
	int	0
	line	514
	colm	12
	synt	any
	minus
	asgn
	goto	L9
lab L8
	mark	L10
	pnull
	var	2
	dup
	var	5
	line	516
	colm	19
	synt	any
	cat
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	4
	pnull
	var	0
	line	517
	colm	15
	synt	any
	size
	line	517
	colm	12
	synt	any
	asgn
	unmark
lab L11
	line	518
	colm	10
	synt	suspend
	mark0
	var	5
	line	518
	colm	10
	synt	any
	psusp
	pop
lab L12
	efail
lab L13
	line	518
	colm	10
	synt	endsuspend
lab L9
	line	513
	colm	7
	synt	endifelse
lab L5
	unmark
	goto	L4
lab L6
	line	511
	colm	4
	synt	endwhile
	unmark
lab L3
	pnull
	line	522
	colm	1
	synt	any
	pfail
	end
proc mthueseq
	local	0,000020,s
	local	1,000020,t
	local	2,000000,map
	local	3,000000,integer
	con	0,002000,1,0
	con	1,010000,2,060,061
	con	2,010000,2,061,060
	declend
	line	524
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	int	0
	line	527
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	529
	colm	4
	synt	suspend
	mark0
	var	0
	line	529
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	529
	colm	4
	synt	endsuspend
	unmark
lab L2
	mark	L5
lab L6
	line	531
	colm	4
	synt	repeat
	mark	L6
	mark	L9
	pnull
	var	1
	var	2
	var	0
	str	1
	str	2
	line	532
	colm	15
	synt	any
	invoke	3
	line	532
	colm	9
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	533
	colm	7
	synt	every
	mark0
	line	533
	colm	13
	synt	suspend
	mark0
	var	3
	pnull
	var	1
	line	533
	colm	29
	synt	any
	bang
	line	533
	colm	28
	synt	any
	invoke	1
	line	533
	colm	13
	synt	any
	psusp
	pop
lab L13
	efail
lab L14
	line	533
	colm	13
	synt	endsuspend
	pop
lab L11
	efail
lab L12
	line	533
	colm	7
	synt	endevery
	unmark
lab L10
	pnull
	var	0
	dup
	var	1
	line	534
	colm	9
	synt	any
	cat
	asgn
lab L7
	unmark
	goto	L6
lab L8
	line	531
	colm	4
	synt	endrepeat
	unmark
lab L5
	pnull
	line	537
	colm	1
	synt	any
	pfail
	end
proc mthuegseq
	local	0,001000,j
	local	1,000000,adr
	local	2,000000,exbase10
	local	3,000000,seq
	con	0,002000,1,0
	declend
	line	539
	colm	11
	synt	any
	mark	L1
	line	541
	colm	4
	synt	suspend
	mark0
	pnull
	var	1
	var	2
	var	3
	int	0
	line	541
	colm	28
	synt	any
	invoke	1
	var	0
	line	541
	colm	24
	synt	any
	invoke	2
	line	541
	colm	15
	synt	any
	invoke	1
	var	0
	line	541
	colm	37
	synt	any
	mod
	line	541
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	541
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	543
	colm	1
	synt	any
	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	545
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	547
	colm	4
	synt	any
	null
	int	0
	line	547
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	548
	colm	4
	synt	any
	null
	int	0
	line	548
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	549
	colm	4
	synt	any
	null
	int	1
	line	549
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	551
	colm	4
	synt	suspend
	mark0
	pushn1
	pnull
	var	0
	var	3
	var	0
	line	551
	colm	21
	synt	any
	invoke	1
	line	551
	colm	15
	synt	any
	asgn
	pnull
	pnull
	var	0
	var	1
	line	551
	colm	35
	synt	any
	mult
	var	2
	line	551
	colm	39
	synt	any
	plus
	line	551
	colm	28
	synt	any
	limit
lab L7
	mark0
	var	0
	chfail	L7
	esusp
	lsusp
	pop
	var	0
	line	551
	colm	12
	synt	any
	invoke	2
	line	551
	colm	4
	synt	any
	psusp
	pop
lab L5
	efail
lab L6
	line	551
	colm	4
	synt	endsuspend
	unmark
lab L4
	pnull
	line	553
	colm	1
	synt	any
	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	555
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	558
	colm	4
	synt	any
	null
	int	0
	line	558
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	int	0
	line	560
	colm	11
	synt	any
	minus
	line	560
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	562
	colm	4
	synt	suspend
	mark0
	mark	L6
	pnull
	var	1
	int	1
	line	562
	colm	16
	synt	any
	asgn
	line	562
	colm	22
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	1
	dup
	pnull
	int	1
	pnull
	var	2
	var	3
	line	562
	colm	42
	synt	any
	invoke	0
	line	562
	colm	37
	synt	any
	mult
	line	562
	colm	33
	synt	any
	plus
	line	562
	colm	27
	synt	any
	plus
	asgn
lab L7
	line	562
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	562
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	564
	colm	1
	synt	any
	pfail
	end
proc nibonacciseq
	local	0,001000,values
	local	1,000020,sum
	local	2,000000,get
	local	3,000000,put
	con	0,002000,1,0
	declend
	line	566
	colm	11
	synt	any
	mark	L1
	line	569
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	569
	colm	7
	synt	any
	size
	int	0
	line	569
	colm	15
	synt	any
	numeq
	unmark
	line	569
	colm	24
	synt	any
	pfail
	line	569
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	line	571
	colm	4
	synt	suspend
	mark0
	pnull
	var	0
	line	571
	colm	12
	synt	any
	bang
	line	571
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	571
	colm	4
	synt	endsuspend
	unmark
lab L2
	mark	L5
lab L6
	line	573
	colm	4
	synt	repeat
	mark	L6
	mark	L9
	pnull
	var	1
	int	0
	line	574
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	575
	colm	7
	synt	every
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	575
	colm	21
	synt	any
	bang
	line	575
	colm	17
	synt	any
	plus
	asgn
	pop
lab L11
	efail
lab L12
	line	575
	colm	7
	synt	endevery
	unmark
lab L10
	mark	L13
	line	576
	colm	7
	synt	suspend
	mark0
	var	1
	line	576
	colm	7
	synt	any
	psusp
	pop
lab L14
	efail
lab L15
	line	576
	colm	7
	synt	endsuspend
	unmark
lab L13
	mark	L16
	var	2
	var	0
	line	577
	colm	10
	synt	any
	invoke	1
	unmark
lab L16
	var	3
	var	0
	var	1
	line	578
	colm	10
	synt	any
	invoke	2
lab L7
	unmark
	goto	L6
lab L8
	line	573
	colm	4
	synt	endrepeat
	unmark
lab L5
	pnull
	line	581
	colm	1
	synt	any
	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	583
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	585
	colm	4
	synt	any
	null
	int	0
	line	585
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	586
	colm	4
	synt	any
	null
	int	0
	line	586
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	587
	colm	4
	synt	any
	null
	var	0
	line	587
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	589
	colm	4
	synt	suspend
	mark0
	pnull
	var	3
	var	0
	var	1
	var	2
	line	589
	colm	19
	synt	any
	invoke	3
	line	589
	colm	12
	synt	any
	bang
	line	589
	colm	4
	synt	any
	psusp
	pop
lab L5
	efail
lab L6
	line	589
	colm	4
	synt	endsuspend
	unmark
lab L4
	pnull
	line	591
	colm	1
	synt	any
	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	593
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	596
	colm	4
	synt	any
	null
	int	0
	line	596
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	597
	colm	4
	synt	any
	null
	int	1
	line	597
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	598
	colm	4
	synt	any
	null
	int	1
	line	598
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	600
	colm	4
	synt	suspend
	mark0
	mark	L7
	var	0
	line	600
	colm	14
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	var	1
	line	600
	colm	18
	synt	any
	esusp
	goto	L10
lab L9
lab L11
	mark0
	mark	L12
	pnull
	var	3
	pnull
	var	0
	pnull
	var	2
	var	1
	line	601
	colm	18
	synt	any
	mult
	line	601
	colm	14
	synt	any
	plus
	line	601
	colm	9
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	0
	var	1
	line	602
	colm	9
	synt	any
	asgn
	unmark
lab L13
	pnull
	var	1
	var	3
	line	603
	colm	9
	synt	any
	asgn
	chfail	L11
	esusp
lab L10
lab L8
	line	600
	colm	4
	synt	any
	psusp
	pop
lab L5
	efail
lab L6
	line	600
	colm	4
	synt	endsuspend
	unmark
lab L4
	pnull
	line	606
	colm	1
	synt	any
	pfail
	end
proc perrinseq
	local	0,000020,i
	local	1,000020,j
	local	2,000020,k
	local	3,000020,l
	con	0,002000,1,0
	con	1,002000,1,2
	con	2,002000,1,3
	declend
	line	608
	colm	11
	synt	any
	mark	L1
	line	611
	colm	4
	synt	suspend
	mark0
	pnull
	var	0
	int	0
	line	611
	colm	14
	synt	any
	asgn
	line	611
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	611
	colm	4
	synt	endsuspend
	unmark
lab L1
	mark	L4
	line	612
	colm	4
	synt	suspend
	mark0
	pnull
	var	1
	int	1
	line	612
	colm	14
	synt	any
	asgn
	line	612
	colm	4
	synt	any
	psusp
	pop
lab L5
	efail
lab L6
	line	612
	colm	4
	synt	endsuspend
	unmark
lab L4
	mark	L7
	line	613
	colm	4
	synt	suspend
	mark0
	pnull
	var	2
	int	2
	line	613
	colm	14
	synt	any
	asgn
	line	613
	colm	4
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	613
	colm	4
	synt	endsuspend
	unmark
lab L7
	mark	L10
lab L11
	line	615
	colm	4
	synt	repeat
	mark	L11
	mark	L14
	line	616
	colm	7
	synt	suspend
	mark0
	pnull
	var	3
	pnull
	var	0
	var	1
	line	616
	colm	22
	synt	any
	plus
	line	616
	colm	17
	synt	any
	asgn
	line	616
	colm	7
	synt	any
	psusp
	pop
lab L15
	efail
lab L16
	line	616
	colm	7
	synt	endsuspend
	unmark
lab L14
	mark	L17
	pnull
	var	0
	var	1
	line	617
	colm	9
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	1
	var	2
	line	618
	colm	9
	synt	any
	asgn
	unmark
lab L18
	pnull
	var	2
	var	3
	line	619
	colm	9
	synt	any
	asgn
lab L12
	unmark
	goto	L11
lab L13
	line	615
	colm	4
	synt	endrepeat
	unmark
lab L10
	pnull
	line	622
	colm	1
	synt	any
	pfail
	end
proc polyseq
	local	0,001000,coeff
	local	1,000020,i
	local	2,000020,j
	local	3,000020,sum
	local	4,000000,seq
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	624
	colm	11
	synt	any
	mark	L1
	line	627
	colm	4
	synt	every
	mark0
	pnull
	var	1
	var	4
	line	627
	colm	18
	synt	any
	invoke	0
	line	627
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L4
	pnull
	var	3
	int	0
	line	628
	colm	11
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	629
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	0
	line	629
	colm	23
	synt	any
	size
	push1
	line	629
	colm	20
	synt	any
	toby
	line	629
	colm	15
	synt	any
	asgn
	pop
	mark0
	pnull
	var	3
	dup
	pnull
	pnull
	var	0
	var	2
	line	630
	colm	23
	synt	any
	subsc
	pnull
	var	1
	pnull
	var	2
	int	1
	line	630
	colm	36
	synt	any
	minus
	line	630
	colm	31
	synt	any
	power
	line	630
	colm	27
	synt	any
	mult
	line	630
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L6
	efail
lab L7
	line	629
	colm	7
	synt	endevery
	unmark
lab L5
	line	631
	colm	7
	synt	suspend
	mark0
	var	3
	line	631
	colm	7
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	631
	colm	7
	synt	endsuspend
	unmark
lab L2
	efail
lab L3
	line	627
	colm	4
	synt	endevery
	unmark
lab L1
	pnull
	line	634
	colm	1
	synt	any
	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	636
	colm	11
	synt	any
	mark	L1
	line	639
	colm	4
	synt	suspend
	mark0
	mark	L4
	int	0
	line	639
	colm	14
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	0
	var	2
	int	1
	int	0
	line	639
	colm	26
	synt	any
	invoke	2
	line	639
	colm	20
	synt	any
	asgn
	pop
	mark	L6
	pnull
	var	0
	pnull
	pnull
	var	1
	pnull
	int	1
	var	3
	var	0
	line	639
	colm	61
	synt	any
	invoke	1
	int	0
	line	639
	colm	54
	synt	any
	toby
	line	639
	colm	48
	synt	any
	asgn
	pnull
	var	0
	var	1
	line	640
	colm	10
	synt	any
	div
	line	639
	colm	72
	synt	any
	mult
	line	639
	colm	43
	synt	any
	numeq
	unmark
	efail
lab L6
	pnull
	pop
	var	0
lab L5
	line	639
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	639
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	642
	colm	1
	synt	any
	pfail
	end
proc powersofseq
	local	0,001000,i
	local	1,000000,seq
	con	0,002000,1,2
	declend
	line	644
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	646
	colm	4
	synt	any
	null
	int	0
	line	646
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	648
	colm	4
	synt	suspend
	mark0
	pnull
	var	0
	var	1
	var	0
	line	648
	colm	19
	synt	any
	invoke	1
	line	648
	colm	14
	synt	any
	power
	line	648
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	648
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	650
	colm	1
	synt	any
	pfail
	end
proc powerseq
	local	0,001000,i
	local	1,000000,seq
	declend
	line	652
	colm	11
	synt	any
	mark	L1
	line	654
	colm	4
	synt	suspend
	mark0
	pnull
	var	1
	line	654
	colm	15
	synt	any
	invoke	0
	var	0
	line	654
	colm	18
	synt	any
	power
	line	654
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	654
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	656
	colm	1
	synt	any
	pfail
	end
proc rabbitseq
	local	0,000020,seq
	local	1,000020,i
	local	2,000000,get
	local	3,000000,put
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	658
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	pnull
	int	0
	line	661
	colm	11
	synt	any
	llist	1
	line	661
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	663
	colm	4
	synt	suspend
	mark0
	int	1
	line	663
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	663
	colm	4
	synt	endsuspend
	unmark
lab L2
	mark	L5
lab L6
	line	665
	colm	4
	synt	repeat
	mark	L6
	mark	L9
	pnull
	var	1
	var	2
	var	0
	line	666
	colm	15
	synt	any
	invoke	1
	line	666
	colm	9
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	667
	colm	7
	synt	suspend
	mark0
	var	1
	line	667
	colm	7
	synt	any
	psusp
	pop
lab L11
	efail
lab L12
	line	667
	colm	7
	synt	endsuspend
	unmark
lab L10
	line	668
	colm	7
	synt	ifelse
	mark	L13
	pnull
	var	1
	int	0
	line	668
	colm	12
	synt	any
	numeq
	unmark
	var	3
	var	0
	int	1
	line	668
	colm	24
	synt	any
	invoke	2
	goto	L14
lab L13
	var	3
	var	0
	int	1
	int	0
	line	669
	colm	15
	synt	any
	invoke	3
lab L14
	line	668
	colm	7
	synt	endifelse
lab L7
	unmark
	goto	L6
lab L8
	line	665
	colm	4
	synt	endrepeat
	unmark
lab L5
	pnull
	line	672
	colm	1
	synt	any
	pfail
	end
proc ratsseq
	local	0,001000,i
	local	1,001000,p
	local	2,000000,reverse
	local	3,000000,integer
	local	4,000000,csort
	con	0,002000,1,1
	declend
	line	674
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	676
	colm	4
	synt	any
	null
	int	0
	line	676
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	678
	colm	4
	synt	repeat
	mark	L3
	mark	L6
	pnull
	var	0
	dup
	var	2
	var	0
	line	679
	colm	20
	synt	any
	invoke	1
	line	679
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	0
	var	3
	var	1
	var	4
	var	0
	line	680
	colm	27
	synt	any
	invoke	1
	line	680
	colm	21
	synt	any
	invoke	1
	line	680
	colm	19
	synt	any
	invoke	1
	line	680
	colm	9
	synt	any
	asgn
	unmark
lab L7
	line	681
	colm	7
	synt	suspend
	mark0
	var	0
	line	681
	colm	7
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	681
	colm	7
	synt	endsuspend
lab L4
	unmark
	goto	L3
lab L5
	line	678
	colm	4
	synt	endrepeat
	unmark
lab L2
	pnull
	line	684
	colm	1
	synt	any
	pfail
	end
proc signaseq
	local	0,001000,r
	local	1,001000,n
	local	2,001000,m
	local	3,000020,i
	local	4,000020,j
	local	5,000020,result
	local	6,000000,put
	local	7,000000,entry
	local	8,000000,sortf
	con	0,002000,3,100
	con	1,002000,1,1
	con	2,002000,1,2
	declend
	line	688
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	691
	colm	4
	synt	any
	null
	int	0
	line	691
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	692
	colm	4
	synt	any
	null
	int	0
	line	692
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	pnull
	line	694
	colm	14
	synt	any
	llist	0
	line	694
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	696
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	1
	var	1
	push1
	line	696
	colm	17
	synt	any
	toby
	line	696
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	697
	colm	7
	synt	every
	mark0
	pnull
	var	3
	pnull
	int	1
	var	2
	push1
	line	697
	colm	20
	synt	any
	toby
	line	697
	colm	15
	synt	any
	asgn
	pop
	mark0
	var	6
	var	5
	var	7
	pnull
	var	3
	pnull
	var	4
	var	0
	line	698
	colm	34
	synt	any
	mult
	line	698
	colm	30
	synt	any
	plus
	var	3
	var	4
	line	698
	colm	27
	synt	any
	invoke	3
	line	698
	colm	13
	synt	any
	invoke	2
	unmark
lab L7
	efail
lab L8
	line	697
	colm	7
	synt	endevery
	unmark
lab L5
	efail
lab L6
	line	696
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L9
	pnull
	var	5
	var	8
	var	5
	int	1
	line	700
	colm	19
	synt	any
	invoke	2
	line	700
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	702
	colm	4
	synt	suspend
	mark0
	pnull
	pnull
	var	5
	line	702
	colm	13
	synt	any
	bang
	int	2
	line	702
	colm	21
	synt	any
	subsc
	line	702
	colm	4
	synt	any
	psusp
	pop
lab L11
	efail
lab L12
	line	702
	colm	4
	synt	endsuspend
	unmark
lab L10
	pnull
	line	704
	colm	1
	synt	any
	pfail
	end
proc spectseq
	local	0,001000,r
	local	1,000000,integer
	local	2,000000,seq
	con	0,004000,1.0
	declend
	line	706
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	708
	colm	4
	synt	any
	null
	real	0
	line	708
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	710
	colm	4
	synt	suspend
	mark0
	var	1
	pnull
	var	2
	line	710
	colm	23
	synt	any
	invoke	0
	var	0
	line	710
	colm	26
	synt	any
	mult
	line	710
	colm	19
	synt	any
	invoke	1
	line	710
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	710
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	712
	colm	1
	synt	any
	pfail
	end
proc srpseq
	local	0,001000,n
	local	1,001000,m
	local	2,000020,iter
	local	3,000020,count
	local	4,000020,okay
	local	5,000020,rat
	local	6,000020,j
	local	7,000020,pal
	local	8,000000,Sqrt
	local	9,000000,cfseq
	local	10,000000,lequiv
	local	11,000000,lreverse
	local	12,000000,put
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,1,5
	con	3,002000,1,0
	con	4,002000,2,12
	declend
	line	715
	colm	11
	synt	any
	mark	L1
	line	718
	colm	4
	synt	if
	mark0
	mark	L2
	pnull
	pnull
	int	0
	var	1
	line	718
	colm	14
	synt	any
	numle
	pnull
	int	1
	var	0
	line	718
	colm	24
	synt	any
	mult
	line	718
	colm	19
	synt	any
	numle
	unmark
	efail
lab L2
	pnull
	unmark
	line	718
	colm	34
	synt	any
	pfail
	line	718
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	2
	int	2
	line	720
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
lab L5
	line	722
	colm	4
	synt	repeat
	mark	L5
	mark	L8
	pnull
	var	7
	pnull
	line	723
	colm	14
	synt	any
	llist	0
	line	723
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	3
	int	3
	line	724
	colm	13
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	4
	int	0
	line	725
	colm	12
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	5
	var	8
	pnull
	pnull
	var	0
	int	1
	line	726
	colm	21
	synt	any
	power
	var	1
	line	726
	colm	25
	synt	any
	plus
	var	2
	line	726
	colm	18
	synt	any
	invoke	2
	line	726
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	727
	colm	7
	synt	every
	mark0
	pnull
	var	6
	var	9
	pnull
	var	5
	line	727
	colm	27
	synt	any
	field	numer
	pnull
	var	5
	line	727
	colm	38
	synt	any
	field	denom
	line	727
	colm	23
	synt	any
	invoke	2
	line	727
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L15
	pnull
	var	3
	dup
	int	0
	line	728
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L15
	mark	L16
	line	729
	colm	10
	synt	if
	mark0
	pnull
	var	3
	int	0
	line	729
	colm	19
	synt	any
	numeq
	unmark
	unmark
	unmark
	goto	L13
	line	729
	colm	10
	synt	endif
	unmark
lab L16
	line	730
	colm	10
	synt	ifelse
	mark	L17
	pnull
	var	6
	pnull
	int	1
	var	0
	line	730
	colm	19
	synt	any
	mult
	line	730
	colm	15
	synt	any
	numeq
	unmark
	mark	L19
	line	731
	colm	13
	synt	if
	mark0
	mark	L20
	var	10
	var	7
	var	11
	var	7
	line	731
	colm	40
	synt	any
	invoke	1
	line	731
	colm	26
	synt	any
	invoke	2
	unmark
	efail
lab L20
	pnull
	unmark
	unmark
	unmark
	unmark
	pnull
	goto	L14
	line	731
	colm	13
	synt	endif
	unmark
lab L19
	mark	L21
	pnull
	var	4
	line	732
	colm	21
	synt	any
	keywd	null
	line	732
	colm	18
	synt	any
	asgn
	unmark
lab L21
	unmark
	unmark
	pnull
	goto	L14
	goto	L18
lab L17
	line	735
	colm	15
	synt	ifelse
	mark	L22
	pnull
	var	6
	var	0
	line	735
	colm	20
	synt	any
	numgt
	unmark
	unmark
	unmark
	pnull
	goto	L14
	goto	L23
lab L22
	var	12
	var	7
	var	6
	line	736
	colm	18
	synt	any
	invoke	2
lab L23
	line	735
	colm	15
	synt	endifelse
lab L18
	line	730
	colm	10
	synt	endifelse
	unmark
lab L13
	efail
lab L14
	line	727
	colm	7
	synt	endevery
	unmark
lab L12
	mark	L24
	line	738
	colm	7
	synt	if
	mark0
	pnull
	var	4
	line	738
	colm	10
	synt	any
	nonnull
	unmark
	mark	L25
	pnull
	var	2
	dup
	int	0
	line	739
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L25
	mark	L26
	line	740
	colm	10
	synt	if
	mark0
	pnull
	var	2
	int	4
	line	740
	colm	18
	synt	any
	numgt
	unmark
	line	740
	colm	28
	synt	any
	pfail
	line	740
	colm	10
	synt	endif
	unmark
lab L26
	unmark
	goto	L6
	line	738
	colm	7
	synt	endif
	unmark
lab L24
	unmark
	pnull
	goto	L7
lab L6
	unmark
	goto	L5
lab L7
	line	722
	colm	4
	synt	endrepeat
	unmark
lab L4
	mark	L27
	line	746
	colm	4
	synt	suspend
	mark0
	pnull
	var	7
	line	746
	colm	12
	synt	any
	bang
	line	746
	colm	4
	synt	any
	psusp
	pop
lab L28
	efail
lab L29
	line	746
	colm	4
	synt	endsuspend
	unmark
lab L27
	pnull
	line	748
	colm	1
	synt	any
	pfail
	end
proc versumseq
	local	0,001000,i
	local	1,001000,j
	local	2,000000,reverse
	con	0,002000,1,0
	con	1,002000,3,196
	declend
	line	750
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	752
	colm	4
	synt	any
	null
	int	0
	line	752
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	754
	colm	4
	synt	any
	null
	int	1
	line	754
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	756
	colm	4
	synt	repeat
	mark	L4
	mark	L7
	pnull
	var	0
	dup
	pnull
	var	2
	var	0
	line	757
	colm	20
	synt	any
	invoke	1
	var	1
	line	757
	colm	24
	synt	any
	plus
	line	757
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L7
	line	758
	colm	7
	synt	suspend
	mark0
	var	0
	line	758
	colm	7
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	758
	colm	7
	synt	endsuspend
lab L5
	unmark
	goto	L4
lab L6
	line	756
	colm	4
	synt	endrepeat
	unmark
lab L3
	pnull
	line	761
	colm	1
	synt	any
	pfail
	end
proc versumopseq
	local	0,001000,i
	local	1,001000,p
	local	2,001000,args
	local	3,000000,csort
	local	4,000000,push
	local	5,000000,reverse
	local	6,000000,integer
	con	0,002000,3,196
	con	1,002000,1,1
	declend
	line	763
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	765
	colm	4
	synt	any
	null
	int	0
	line	765
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	767
	colm	4
	synt	any
	null
	var	3
	line	767
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	var	2
	line	769
	colm	15
	synt	any
	keywd	null
	line	769
	colm	8
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
lab L5
	line	771
	colm	4
	synt	repeat
	mark	L5
	mark	L8
	pnull
	var	0
	var	5
	var	0
	line	772
	colm	19
	synt	any
	invoke	1
	line	772
	colm	9
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	2
	int	1
	line	773
	colm	11
	synt	any
	subsc
	var	0
	line	773
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	var	6
	var	1
	var	2
	invoke	-1
	line	774
	colm	19
	synt	any
	invoke	1
	line	774
	colm	9
	synt	any
	asgn
	unmark
lab L10
	line	775
	colm	7
	synt	suspend
	mark0
	var	0
	line	775
	colm	7
	synt	any
	psusp
	pop
lab L11
	efail
lab L12
	line	775
	colm	7
	synt	endsuspend
lab L6
	unmark
	goto	L5
lab L7
	line	771
	colm	4
	synt	endrepeat
	unmark
lab L4
	pnull
	line	778
	colm	1
	synt	any
	pfail
	end
proc vishwanathseq
	local	0,001000,i
	local	1,001000,j
	local	2,000020,m
	con	0,002000,1,1
	con	1,002000,1,4
	con	2,002000,1,2
	con	3,002000,1,3
	declend
	line	780
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	783
	colm	4
	synt	any
	null
	int	0
	line	783
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	784
	colm	4
	synt	any
	null
	int	0
	line	784
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	786
	colm	4
	synt	suspend
	mark0
	mark	L6
	var	0
	line	786
	colm	14
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	var	1
	line	786
	colm	18
	synt	any
	esusp
	goto	L9
lab L8
lab L10
	mark0
	mark	L11
	pnull
	var	2
	line	787
	colm	12
	synt	case
	mark0
	pnull
	int	1
	line	787
	colm	17
	synt	any
	random
	eret
	mark	L13
	ccase
	int	0
	line	788
	colm	13
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	var	1
	line	788
	colm	18
	synt	any
	plus
	goto	L12
lab L13
	mark	L14
	ccase
	int	2
	line	789
	colm	13
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	var	1
	line	789
	colm	18
	synt	any
	minus
	goto	L12
lab L14
	mark	L15
	ccase
	int	3
	line	790
	colm	13
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	0
	line	790
	colm	16
	synt	any
	neg
	var	1
	line	790
	colm	19
	synt	any
	plus
	goto	L12
lab L15
	mark	L16
	ccase
	int	1
	line	791
	colm	13
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	0
	line	791
	colm	16
	synt	any
	neg
	var	1
	line	791
	colm	19
	synt	any
	minus
	goto	L12
lab L16
	efail
lab L12
	line	787
	colm	12
	synt	endcase
	line	787
	colm	9
	synt	any
	asgn
	unmark
lab L11
	mark	L17
	pnull
	var	0
	var	1
	line	793
	colm	9
	synt	any
	asgn
	unmark
lab L17
	pnull
	var	1
	var	2
	line	794
	colm	9
	synt	any
	asgn
	chfail	L10
	esusp
lab L9
lab L7
	line	786
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	786
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	797
	colm	1
	synt	any
	pfail
	end
proc zebra
	local	0,001000,args
	local	1,000020,i
	local	2,000020,clr
	local	3,000020,clr_alt
	local	4,000000,get
	con	0,002000,1,2
	con	1,002000,1,1
	declend
	line	799
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	int	0
	line	802
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	int	1
	line	803
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	805
	colm	4
	synt	while
	mark0
	pnull
	var	1
	var	4
	var	0
	line	805
	colm	18
	synt	any
	invoke	1
	line	805
	colm	12
	synt	any
	asgn
	unmark
	mark	L4
	mark	L7
	line	806
	colm	7
	synt	suspend
	mark0
	pnull
	int	1
	var	1
	push1
	line	806
	colm	18
	synt	any
	toby
	pop
	var	2
	line	806
	colm	7
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	806
	colm	7
	synt	endsuspend
	unmark
lab L7
	pnull
	var	2
	var	3
	line	807
	colm	11
	synt	any
	swap
lab L5
	unmark
	goto	L4
lab L6
	line	805
	colm	4
	synt	endwhile
	unmark
lab L3
	pnull
	line	810
	colm	1
	synt	any
	pfail
	end
