version	U12.1.00
uid	lists.u1-1787877054-0
record	l_ScanEnvir,2
	0,subject
	1,pos
impl	error
link	equiv.u
link	indices.u
link	numbers.u
global	57
	0,000005,file2lst,1
	1,000005,imag2lst,1
	2,000001,l_POS,0
	3,000001,l_SUBJ,0
	4,000011,l_ScanEnvir,2
	5,000005,l_Bscan,1
	6,000005,l_Escan,2
	7,000005,l_any,4
	8,000005,l_bal,6
	9,000005,l_comp,2
	10,000005,l_find,4
	11,000005,l_many,4
	12,000005,l_match,4
	13,000005,l_move,1
	14,000005,l_pos,1
	15,000005,l_tab,1
	16,000005,l_upto,4
	17,000005,lblock,2
	18,000005,llayer,-1
	19,000005,lcompact,1
	20,000005,lclose,1
	21,000005,lcomb,2
	22,000005,ldecollate,2
	23,000005,ldelete,2
	24,000005,ldupl,2
	25,000005,lequiv,2
	26,000005,levate,3
	27,000005,lextend,2
	28,000005,lfliph,1
	29,000005,lflipv,1
	30,000005,limage,1
	31,000005,lcollate,-1
	32,000005,lconstant,1
	33,000005,linterl,2
	34,000005,llpad,3
	35,000005,lrunup,3
	36,000005,lrundown,3
	37,000005,lltrim,2
	38,000005,lmap,3
	39,000005,lresidue,3
	40,000005,lpalin,2
	41,000005,lpermute,1
	42,000005,lreflect,2
	43,000005,lremvals,-2
	44,000005,lrepl,2
	45,000005,lreverse,1
	46,000005,lrotate,2
	47,000005,lrpad,3
	48,000005,lrtrim,2
	49,000005,lshift,2
	50,000005,lswap,1
	51,000005,lunique,1
	52,000005,lmaxlen,2
	53,000005,lminlen,2
	54,000005,sortkeys,1
	55,000005,sortvalues,1
	56,000005,str2lst,2

proc file2lst
	local	0,001000,s
	local	1,000020,input
	local	2,000020,result
	local	3,000020,x
	local	4,000000,open
	local	5,000000,numeric
	local	6,000000,put
	local	7,000000,close
	declend
	filen	lists.icn
	line	325
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	var	4
	var	0
	line	328
	colm	17
	synt	any
	invoke	1
	line	328
	colm	21
	synt	any
	esusp
	goto	L3
lab L2
	line	328
	colm	23
	synt	any
	pfail
lab L3
	line	328
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	2
	pnull
	line	330
	colm	14
	synt	any
	llist	0
	line	330
	colm	11
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	332
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	1
	line	332
	colm	15
	synt	any
	bang
	line	332
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L8
	pnull
	var	3
	var	5
	var	3
	line	333
	colm	19
	synt	any
	invoke	1
	line	333
	colm	9
	synt	any
	asgn
	unmark
lab L8
	var	6
	var	2
	var	3
	line	334
	colm	10
	synt	any
	invoke	2
	unmark
lab L6
	efail
lab L7
	line	332
	colm	4
	synt	endevery
	unmark
lab L5
	mark	L9
	var	7
	var	1
	line	337
	colm	9
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	mark	L11
	var	2
	line	339
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	341
	colm	1
	synt	any
	pfail
	end
proc imag2lst
	local	0,001000,seqimage
	local	1,000020,seq
	local	2,000020,term
	local	3,000000,tab
	local	4,000000,upto
	local	5,000000,numeric
	local	6,000000,put
	local	7,000000,move
	con	0,002000,1,2
	con	1,002000,1,1
	con	2,020000,1,054
	con	3,002000,1,0
	declend
	line	343
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	346
	colm	11
	synt	any
	llist	0
	line	346
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	int	0
	pnull
	int	1
	line	348
	colm	15
	synt	any
	neg
	line	348
	colm	14
	synt	any
	synt	any
	sect
	line	348
	colm	19
	synt	any
	bscan
lab L3
	line	349
	colm	7
	synt	while
	mark0
	pnull
	var	2
	var	3
	mark	L6
	var	4
	cset	2
	line	349
	colm	29
	synt	any
	invoke	1
	line	349
	colm	35
	synt	any
	esusp
	goto	L7
lab L6
	int	3
lab L7
	line	349
	colm	24
	synt	any
	invoke	1
	line	349
	colm	18
	synt	any
	asgn
	unmark
	mark	L3
	mark	L8
	pnull
	var	2
	var	5
	var	2
	line	350
	colm	25
	synt	any
	invoke	1
	line	350
	colm	15
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	var	6
	var	1
	var	2
	line	351
	colm	13
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	7
	int	1
	line	352
	colm	14
	synt	any
	invoke	1
	line	352
	colm	18
	synt	any
	esusp
	goto	L11
lab L10
	unmark
	pnull
	goto	L5
lab L11
lab L4
	unmark
	goto	L3
lab L5
	line	349
	colm	7
	synt	endwhile
	line	348
	colm	19
	synt	any
	escan
	unmark
lab L2
	mark	L12
	mark	L13
	var	1
	line	356
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	358
	colm	1
	synt	any
	pfail
	end
proc l_Bscan
	local	0,001000,e1
	local	1,000020,l_OuterEnvir
	local	2,000000,l_SUBJ
	local	3,000000,l_POS
	local	4,000000,l_ScanEnvir
	con	0,002000,1,1
	declend
	line	365
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	2
	pnull
	line	373
	colm	19
	synt	any
	llist	0
	line	373
	colm	16
	synt	any
	asgn
	unmark
lab L4
	pnull
	var	3
	int	0
	line	374
	colm	15
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L5
	pnull
	var	1
	var	4
	var	2
	var	3
	line	380
	colm	32
	synt	any
	invoke	2
	line	380
	colm	18
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	0
	line	389
	colm	12
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	int	0
	line	390
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	391
	colm	5
	synt	suspend
	mark0
	var	1
	line	391
	colm	5
	synt	any
	psusp
	pop
lab L9
	efail
lab L10
	line	391
	colm	5
	synt	endsuspend
	unmark
lab L8
	mark	L11
	pnull
	var	2
	pnull
	var	1
	line	397
	colm	27
	synt	any
	field	subject
	line	397
	colm	12
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	3
	pnull
	var	1
	line	398
	colm	26
	synt	any
	field	pos
	line	398
	colm	11
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	404
	colm	5
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	406
	colm	1
	synt	any
	pfail
	end
proc l_Escan
	local	0,001000,l_OuterEnvir
	local	1,001000,e2
	local	2,000020,l_InnerEnvir
	local	3,000000,l_ScanEnvir
	local	4,000000,l_SUBJ
	local	5,000000,l_POS
	declend
	line	410
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	var	4
	var	5
	line	423
	colm	32
	synt	any
	invoke	2
	line	423
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	pnull
	var	0
	line	430
	colm	27
	synt	any
	field	subject
	line	430
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	pnull
	var	0
	line	431
	colm	26
	synt	any
	field	pos
	line	431
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	432
	colm	5
	synt	suspend
	mark0
	var	1
	line	432
	colm	5
	synt	any
	psusp
	pop
lab L5
	efail
lab L6
	line	432
	colm	5
	synt	endsuspend
	unmark
lab L4
	mark	L7
	pnull
	var	4
	pnull
	var	2
	line	440
	colm	27
	synt	any
	field	subject
	line	440
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	5
	pnull
	var	2
	line	441
	colm	26
	synt	any
	field	pos
	line	441
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	450
	colm	5
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	452
	colm	1
	synt	any
	pfail
	end
proc l_any
	local	0,001000,l1
	local	1,001000,l2
	local	2,001000,i
	local	3,001000,j
	local	4,000020,x
	local	5,000020,sub_l
	local	6,000000,stop
	local	7,000000,type
	local	8,000000,sort
	local	9,000000,l_SUBJ
	local	10,000000,l_POS
	local	11,000000,l_match
	con	0,010000,28,154,137,141,156,171,072,040,040,116,165,154,154,040,146,151,162,163,164,040,141,162,147,165,155,145,156,164,041
	con	1,010000,3,163,145,164
	con	2,002000,1,1
	con	3,010000,4,154,151,163,164
	con	4,010000,49,154,137,141,156,171,072,040,040,105,154,145,155,145,156,164,163,040,157,146,040,154,061,040,155,165,163,164,040,142,145,040,154,151,163,164,163,040,157,146,040,154,145,156,147,164,150,040,061,056
	declend
	line	456
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	466
	colm	5
	synt	any
	null
	pop
	var	6
	str	0
	line	466
	colm	15
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	467
	colm	5
	synt	if
	mark0
	pnull
	var	7
	var	0
	line	467
	colm	12
	synt	any
	invoke	1
	str	1
	line	467
	colm	17
	synt	any
	lexeq
	unmark
	pnull
	var	0
	var	8
	var	0
	line	467
	colm	41
	synt	any
	invoke	1
	line	467
	colm	34
	synt	any
	asgn
	line	467
	colm	5
	synt	endif
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	469
	colm	5
	synt	any
	null
	var	9
	line	469
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	470
	colm	5
	synt	ifelse
	mark	L5
	pnull
	var	2
	line	470
	colm	8
	synt	any
	nonnull
	unmark
	line	471
	colm	9
	synt	if
	mark0
	pnull
	var	2
	int	2
	line	471
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	472
	colm	18
	synt	any
	size
	pnull
	var	2
	int	2
	line	472
	colm	26
	synt	any
	plus
	line	472
	colm	22
	synt	any
	plus
	line	472
	colm	15
	synt	any
	asgn
	line	471
	colm	9
	synt	endif
	goto	L6
lab L5
	pnull
	var	2
	mark	L7
	pnull
	var	10
	line	474
	colm	15
	synt	any
	nonnull
	line	474
	colm	22
	synt	any
	esusp
	goto	L8
lab L7
	int	2
lab L8
	line	474
	colm	12
	synt	any
	asgn
lab L6
	line	470
	colm	5
	synt	endifelse
	unmark
lab L4
	mark	L9
	line	475
	colm	5
	synt	ifelse
	mark	L10
	pnull
	var	3
	line	475
	colm	8
	synt	any
	nonnull
	unmark
	line	476
	colm	9
	synt	if
	mark0
	pnull
	var	3
	int	2
	line	476
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	477
	colm	18
	synt	any
	size
	pnull
	var	3
	int	2
	line	477
	colm	26
	synt	any
	plus
	line	477
	colm	22
	synt	any
	plus
	line	477
	colm	15
	synt	any
	asgn
	line	476
	colm	9
	synt	endif
	goto	L11
lab L10
	pnull
	var	3
	pnull
	pnull
	var	9
	line	479
	colm	15
	synt	any
	size
	int	2
	line	479
	colm	22
	synt	any
	plus
	line	479
	colm	12
	synt	any
	asgn
lab L11
	line	475
	colm	5
	synt	endifelse
	unmark
lab L9
	mark	L12
	pnull
	pnull
	var	2
	int	2
	line	481
	colm	7
	synt	any
	plus
	var	3
	line	481
	colm	11
	synt	any
	numgt
	pop
	pnull
	var	2
	var	3
	line	481
	colm	19
	synt	any
	swap
	unmark
lab L12
	mark	L13
	line	482
	colm	5
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	0
	line	482
	colm	20
	synt	any
	bang
	line	482
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L16
	line	483
	colm	9
	synt	if
	mark0
	mark	L17
	pushn1
	pnull
	var	7
	var	5
	line	483
	colm	21
	synt	any
	invoke	1
	str	3
	line	483
	colm	29
	synt	any
	lexeq
	pnull
	pnull
	var	5
	line	483
	colm	40
	synt	any
	size
	int	2
	line	483
	colm	47
	synt	any
	numeq
	line	483
	colm	16
	synt	any
	invoke	2
	unmark
	efail
lab L17
	pnull
	unmark
	var	6
	str	4
	line	484
	colm	17
	synt	any
	invoke	1
	line	483
	colm	9
	synt	endif
	unmark
lab L16
	line	486
	colm	9
	synt	if
	mark0
	pnull
	var	4
	var	11
	var	5
	var	1
	var	2
	pnull
	var	2
	int	2
	line	486
	colm	37
	synt	any
	plus
	line	486
	colm	24
	synt	any
	invoke	4
	line	486
	colm	14
	synt	any
	asgn
	unmark
	mark	L18
	var	4
	line	487
	colm	13
	synt	any
	pret
lab L18
	synt	any
	pfail
	line	486
	colm	9
	synt	endif
	unmark
lab L14
	efail
lab L15
	line	482
	colm	5
	synt	endevery
	unmark
lab L13
	pnull
	line	490
	colm	1
	synt	any
	pfail
	end
proc l_bal
	local	0,001000,l1
	local	1,001000,l2
	local	2,001000,l3
	local	3,001000,l
	local	4,001000,i
	local	5,001000,j
	local	6,000020,default_val
	local	7,000020,l2_count
	local	8,000020,l3_count
	local	9,000020,x
	local	10,000020,position
	local	11,000000,stop
	local	12,000000,type
	local	13,000000,sort
	local	14,000000,l_SUBJ
	local	15,000000,l_POS
	local	16,000000,l_any
	con	0,010000,28,154,137,142,141,154,072,040,040,116,165,154,154,040,146,151,162,163,164,040,141,162,147,165,155,145,156,164,041
	con	1,010000,3,163,145,164
	con	2,002000,1,1
	con	3,002000,1,0
	declend
	line	494
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	498
	colm	5
	synt	any
	null
	pop
	var	11
	str	0
	line	498
	colm	15
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	499
	colm	5
	synt	if
	mark0
	pnull
	var	12
	var	0
	line	499
	colm	12
	synt	any
	invoke	1
	str	1
	line	499
	colm	17
	synt	any
	lexeq
	unmark
	pnull
	var	0
	var	13
	var	0
	line	499
	colm	41
	synt	any
	invoke	1
	line	499
	colm	34
	synt	any
	asgn
	line	499
	colm	5
	synt	endif
	unmark
lab L2
	mark	L3
	line	500
	colm	5
	synt	if
	mark0
	pnull
	var	12
	var	1
	line	500
	colm	12
	synt	any
	invoke	1
	str	1
	line	500
	colm	17
	synt	any
	lexeq
	unmark
	pnull
	var	0
	var	13
	var	1
	line	500
	colm	41
	synt	any
	invoke	1
	line	500
	colm	34
	synt	any
	asgn
	line	500
	colm	5
	synt	endif
	unmark
lab L3
	mark	L4
	line	501
	colm	5
	synt	if
	mark0
	pnull
	var	12
	var	2
	line	501
	colm	12
	synt	any
	invoke	1
	str	1
	line	501
	colm	17
	synt	any
	lexeq
	unmark
	pnull
	var	0
	var	13
	var	2
	line	501
	colm	41
	synt	any
	invoke	1
	line	501
	colm	34
	synt	any
	asgn
	line	501
	colm	5
	synt	endif
	unmark
lab L4
	mark	L5
	line	503
	colm	5
	synt	ifelse
	mark	L6
	pnull
	pnull
	var	1
	line	503
	colm	8
	synt	any
	null
	var	14
	line	503
	colm	12
	synt	any
	asgn
	unmark
	pnull
	var	6
	mark	L8
	pnull
	var	15
	line	504
	colm	25
	synt	any
	nonnull
	line	504
	colm	32
	synt	any
	esusp
	goto	L9
lab L8
	int	2
lab L9
	line	504
	colm	22
	synt	any
	asgn
	goto	L7
lab L6
	pnull
	var	6
	int	2
	line	505
	colm	22
	synt	any
	asgn
lab L7
	line	503
	colm	5
	synt	endifelse
	unmark
lab L5
	mark	L10
	line	507
	colm	5
	synt	ifelse
	mark	L11
	pnull
	var	4
	line	507
	colm	8
	synt	any
	nonnull
	unmark
	line	508
	colm	9
	synt	if
	mark0
	pnull
	var	4
	int	2
	line	508
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	4
	pnull
	pnull
	var	1
	line	509
	colm	18
	synt	any
	size
	pnull
	var	4
	int	2
	line	509
	colm	26
	synt	any
	plus
	line	509
	colm	22
	synt	any
	plus
	line	509
	colm	15
	synt	any
	asgn
	line	508
	colm	9
	synt	endif
	goto	L12
lab L11
	pnull
	var	4
	var	6
	line	511
	colm	12
	synt	any
	asgn
lab L12
	line	507
	colm	5
	synt	endifelse
	unmark
lab L10
	mark	L13
	line	513
	colm	5
	synt	ifelse
	mark	L14
	pnull
	var	5
	line	513
	colm	8
	synt	any
	nonnull
	unmark
	line	514
	colm	9
	synt	if
	mark0
	pnull
	var	5
	int	2
	line	514
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	5
	pnull
	pnull
	var	1
	line	515
	colm	18
	synt	any
	size
	pnull
	var	5
	int	2
	line	515
	colm	26
	synt	any
	plus
	line	515
	colm	22
	synt	any
	plus
	line	515
	colm	15
	synt	any
	asgn
	line	514
	colm	9
	synt	endif
	goto	L15
lab L14
	pnull
	var	5
	pnull
	pnull
	var	14
	line	517
	colm	15
	synt	any
	size
	int	2
	line	517
	colm	22
	synt	any
	plus
	line	517
	colm	12
	synt	any
	asgn
lab L15
	line	513
	colm	5
	synt	endifelse
	unmark
lab L13
	mark	L16
	pnull
	var	7
	pnull
	var	8
	int	3
	line	519
	colm	26
	synt	any
	asgn
	line	519
	colm	14
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	line	521
	colm	5
	synt	every
	mark0
	pnull
	var	9
	pnull
	var	4
	pnull
	var	5
	int	2
	line	521
	colm	22
	synt	any
	minus
	push1
	line	521
	colm	18
	synt	any
	toby
	line	521
	colm	13
	synt	any
	asgn
	pop
	mark0
	mark	L20
	line	523
	colm	9
	synt	if
	mark0
	var	16
	var	1
	var	3
	var	9
	pnull
	var	9
	int	2
	line	523
	colm	29
	synt	any
	plus
	line	523
	colm	17
	synt	any
	invoke	4
	unmark
	pnull
	var	7
	dup
	int	2
	line	524
	colm	22
	synt	any
	plus
	asgn
	line	523
	colm	9
	synt	endif
	unmark
lab L20
	mark	L21
	line	526
	colm	9
	synt	if
	mark0
	var	16
	var	2
	var	3
	var	9
	pnull
	var	9
	int	2
	line	526
	colm	29
	synt	any
	plus
	line	526
	colm	17
	synt	any
	invoke	4
	unmark
	pnull
	var	8
	dup
	int	2
	line	527
	colm	22
	synt	any
	plus
	asgn
	line	526
	colm	9
	synt	endif
	unmark
lab L21
	line	529
	colm	9
	synt	if
	mark0
	pnull
	var	7
	var	8
	line	529
	colm	21
	synt	any
	numeq
	unmark
	line	530
	colm	13
	synt	if
	mark0
	var	16
	var	0
	var	3
	var	9
	pnull
	var	9
	int	2
	line	530
	colm	30
	synt	any
	plus
	line	530
	colm	21
	synt	any
	invoke	4
	unmark
	line	531
	colm	18
	synt	suspend
	mark0
	var	9
	line	531
	colm	18
	synt	any
	psusp
	pop
lab L22
	efail
lab L23
	line	531
	colm	18
	synt	endsuspend
	line	530
	colm	13
	synt	endif
	line	529
	colm	9
	synt	endif
	unmark
lab L18
	efail
lab L19
	line	521
	colm	5
	synt	endevery
	unmark
lab L17
	pnull
	line	535
	colm	1
	synt	any
	pfail
	end
proc l_comp
	local	0,001000,l1
	local	1,001000,l2
	local	2,000020,i
	local	3,000000,stop
	local	4,000000,type
	local	5,000000,l_comp
	con	0,010000,23,154,137,143,157,155,160,072,040,040,116,165,154,154,040,141,162,147,165,155,145,156,164,041
	con	1,010000,4,154,151,163,164
	con	2,002000,1,1
	declend
	line	539
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	548
	colm	5
	synt	any
	null
	line	548
	colm	9
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	var	1
	line	548
	colm	11
	synt	any
	null
lab L3
	pop
	var	3
	str	0
	line	548
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	mark	L4
	pnull
	var	0
	var	1
	line	549
	colm	8
	synt	any
	eqv
	pop
	mark	L5
	var	1
	line	549
	colm	18
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	mark	L6
	line	551
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	0
	line	551
	colm	12
	synt	any
	invoke	1
	var	4
	var	1
	line	551
	colm	24
	synt	any
	invoke	1
	line	551
	colm	17
	synt	any
	lexeq
	str	1
	line	551
	colm	29
	synt	any
	lexeq
	unmark
	mark	L7
	pnull
	pnull
	var	0
	line	552
	colm	9
	synt	any
	size
	pnull
	var	1
	line	552
	colm	16
	synt	any
	size
	line	552
	colm	13
	synt	any
	numne
	pop
	line	552
	colm	22
	synt	any
	pfail
	unmark
lab L7
	mark	L8
	line	553
	colm	9
	synt	every
	mark0
	pnull
	var	2
	pnull
	int	2
	pnull
	var	0
	line	553
	colm	25
	synt	any
	size
	push1
	line	553
	colm	22
	synt	any
	toby
	line	553
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L11
	var	5
	pnull
	var	0
	var	2
	line	554
	colm	21
	synt	any
	subsc
	pnull
	var	1
	var	2
	line	554
	colm	27
	synt	any
	subsc
	line	554
	colm	18
	synt	any
	invoke	2
	line	554
	colm	32
	synt	any
	esusp
	goto	L12
lab L11
	line	554
	colm	34
	synt	any
	pfail
lab L12
	unmark
lab L9
	efail
lab L10
	line	553
	colm	9
	synt	endevery
	unmark
lab L8
	mark	L13
	var	1
	line	555
	colm	9
	synt	any
	pret
lab L13
	synt	any
	pfail
	line	551
	colm	5
	synt	endif
	unmark
lab L6
	pnull
	line	558
	colm	1
	synt	any
	pfail
	end
proc l_find
	local	0,001000,l1
	local	1,001000,l2
	local	2,001000,i
	local	3,001000,j
	local	4,000020,x
	local	5,000020,old_l_POS
	local	6,000020,default_val
	local	7,000000,stop
	local	8,000000,l_SUBJ
	local	9,000000,l_POS
	local	10,000000,l_Escan
	local	11,000000,l_Bscan
	local	12,000000,l_tab
	local	13,000000,l_match
	con	0,010000,29,154,137,146,151,156,144,072,040,040,116,165,154,154,040,146,151,162,163,164,040,141,162,147,165,155,145,156,164,041
	con	1,002000,1,1
	declend
	line	562
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	570
	colm	5
	synt	any
	null
	pop
	var	7
	str	0
	line	570
	colm	15
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	572
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	1
	line	572
	colm	8
	synt	any
	null
	var	8
	line	572
	colm	12
	synt	any
	asgn
	unmark
	pnull
	var	6
	mark	L5
	pnull
	var	9
	line	573
	colm	25
	synt	any
	nonnull
	line	573
	colm	32
	synt	any
	esusp
	goto	L6
lab L5
	int	1
lab L6
	line	573
	colm	22
	synt	any
	asgn
	goto	L4
lab L3
	pnull
	var	6
	int	1
	line	574
	colm	22
	synt	any
	asgn
lab L4
	line	572
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L7
	line	576
	colm	5
	synt	ifelse
	mark	L8
	pnull
	var	2
	line	576
	colm	8
	synt	any
	nonnull
	unmark
	line	577
	colm	9
	synt	if
	mark0
	pnull
	var	2
	int	1
	line	577
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	578
	colm	18
	synt	any
	size
	pnull
	var	2
	int	1
	line	578
	colm	26
	synt	any
	plus
	line	578
	colm	22
	synt	any
	plus
	line	578
	colm	15
	synt	any
	asgn
	line	577
	colm	9
	synt	endif
	goto	L9
lab L8
	pnull
	var	2
	var	6
	line	580
	colm	12
	synt	any
	asgn
lab L9
	line	576
	colm	5
	synt	endifelse
	unmark
lab L7
	mark	L10
	line	582
	colm	5
	synt	ifelse
	mark	L11
	pnull
	var	3
	line	582
	colm	8
	synt	any
	nonnull
	unmark
	line	583
	colm	9
	synt	if
	mark0
	pnull
	var	3
	int	1
	line	583
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	584
	colm	18
	synt	any
	size
	pnull
	var	3
	int	1
	line	584
	colm	26
	synt	any
	plus
	line	584
	colm	22
	synt	any
	plus
	line	584
	colm	15
	synt	any
	asgn
	line	583
	colm	9
	synt	endif
	goto	L12
lab L11
	pnull
	var	3
	pnull
	pnull
	var	8
	line	586
	colm	15
	synt	any
	size
	int	1
	line	586
	colm	22
	synt	any
	plus
	line	586
	colm	12
	synt	any
	asgn
lab L12
	line	582
	colm	5
	synt	endifelse
	unmark
lab L10
	mark	L13
	pnull
	var	5
	var	9
	line	592
	colm	15
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	594
	colm	5
	synt	suspend
	mark0
	var	10
	var	11
	pnull
	var	1
	var	2
	var	3
	line	594
	colm	33
	synt	any
	synt	any
	sect
	line	594
	colm	28
	synt	any
	invoke	1
	var	12
	pnull
	int	1
	pnull
	var	8
	line	595
	colm	20
	synt	any
	size
	push1
	line	595
	colm	17
	synt	any
	toby
	line	595
	colm	14
	synt	any
	invoke	1
	pop
	line	596
	colm	13
	synt	if
	mark0
	var	13
	var	0
	line	596
	colm	23
	synt	any
	invoke	1
	unmark
	pnull
	var	5
	pnull
	var	9
	int	1
	line	597
	colm	35
	synt	any
	minus
	line	597
	colm	27
	synt	any
	plus
	line	596
	colm	13
	synt	endif
	line	594
	colm	20
	synt	any
	invoke	2
	line	594
	colm	5
	synt	any
	psusp
	pop
lab L15
	efail
lab L16
	line	594
	colm	5
	synt	endsuspend
	unmark
lab L14
	pnull
	line	601
	colm	1
	synt	any
	pfail
	end
proc l_many
	local	0,001000,l1
	local	1,001000,l2
	local	2,001000,i
	local	3,001000,j
	local	4,000020,x
	local	5,000020,old_l_POS
	local	6,000020,default_val
	local	7,000000,stop
	local	8,000000,type
	local	9,000000,sort
	local	10,000000,l_SUBJ
	local	11,000000,l_POS
	local	12,000000,l_Escan
	local	13,000000,l_Bscan
	local	14,000000,l_tab
	local	15,000000,l_any
	con	0,010000,29,154,137,155,141,156,171,072,040,040,116,165,154,154,040,146,151,162,163,164,040,141,162,147,165,155,145,156,164,041
	con	1,010000,3,163,145,164
	con	2,002000,1,1
	declend
	line	605
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	609
	colm	5
	synt	any
	null
	pop
	var	7
	str	0
	line	609
	colm	15
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	610
	colm	5
	synt	if
	mark0
	pnull
	var	8
	var	0
	line	610
	colm	12
	synt	any
	invoke	1
	str	1
	line	610
	colm	17
	synt	any
	lexeq
	unmark
	pnull
	var	0
	var	9
	var	0
	line	610
	colm	41
	synt	any
	invoke	1
	line	610
	colm	34
	synt	any
	asgn
	line	610
	colm	5
	synt	endif
	unmark
lab L2
	mark	L3
	line	612
	colm	5
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	1
	line	612
	colm	8
	synt	any
	null
	var	10
	line	612
	colm	12
	synt	any
	asgn
	unmark
	pnull
	var	6
	mark	L6
	pnull
	var	11
	line	613
	colm	25
	synt	any
	nonnull
	line	613
	colm	32
	synt	any
	esusp
	goto	L7
lab L6
	int	2
lab L7
	line	613
	colm	22
	synt	any
	asgn
	goto	L5
lab L4
	pnull
	var	6
	int	2
	line	614
	colm	22
	synt	any
	asgn
lab L5
	line	612
	colm	5
	synt	endifelse
	unmark
lab L3
	mark	L8
	line	616
	colm	5
	synt	ifelse
	mark	L9
	pnull
	var	2
	line	616
	colm	8
	synt	any
	nonnull
	unmark
	line	617
	colm	9
	synt	if
	mark0
	pnull
	var	2
	int	2
	line	617
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	618
	colm	18
	synt	any
	size
	pnull
	var	2
	int	2
	line	618
	colm	26
	synt	any
	plus
	line	618
	colm	22
	synt	any
	plus
	line	618
	colm	15
	synt	any
	asgn
	line	617
	colm	9
	synt	endif
	goto	L10
lab L9
	pnull
	var	2
	var	6
	line	620
	colm	12
	synt	any
	asgn
lab L10
	line	616
	colm	5
	synt	endifelse
	unmark
lab L8
	mark	L11
	line	622
	colm	5
	synt	ifelse
	mark	L12
	pnull
	var	3
	line	622
	colm	8
	synt	any
	nonnull
	unmark
	line	623
	colm	9
	synt	if
	mark0
	pnull
	var	3
	int	2
	line	623
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	624
	colm	18
	synt	any
	size
	pnull
	var	3
	int	2
	line	624
	colm	26
	synt	any
	plus
	line	624
	colm	22
	synt	any
	plus
	line	624
	colm	15
	synt	any
	asgn
	line	623
	colm	9
	synt	endif
	goto	L13
lab L12
	pnull
	var	3
	pnull
	pnull
	var	10
	line	626
	colm	15
	synt	any
	size
	int	2
	line	626
	colm	22
	synt	any
	plus
	line	626
	colm	12
	synt	any
	asgn
lab L13
	line	622
	colm	5
	synt	endifelse
	unmark
lab L11
	mark	L14
	pnull
	var	5
	var	11
	line	633
	colm	15
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	var	12
	var	13
	pnull
	var	1
	var	2
	var	3
	line	634
	colm	25
	synt	any
	synt	any
	sect
	line	634
	colm	20
	synt	any
	invoke	1
	mark	L16
lab L17
	line	635
	colm	9
	synt	while
	mark0
	var	14
	var	15
	var	0
	line	635
	colm	26
	synt	any
	invoke	1
	line	635
	colm	20
	synt	any
	invoke	1
lab L18
	unmark
	goto	L17
lab L19
	line	635
	colm	9
	synt	endwhile
	unmark
lab L16
	pnull
	var	4
	pnull
	var	5
	pnull
	var	11
	int	2
	line	636
	colm	32
	synt	any
	minus
	line	636
	colm	24
	synt	any
	plus
	line	636
	colm	11
	synt	any
	asgn
	line	634
	colm	12
	synt	any
	invoke	2
	unmark
lab L15
	mark	L20
	mark	L21
	pnull
	var	5
	var	4
	line	643
	colm	22
	synt	any
	numne
	line	643
	colm	5
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	645
	colm	1
	synt	any
	pfail
	end
proc l_match
	local	0,001000,l1
	local	1,001000,l2
	local	2,001000,i
	local	3,001000,j
	local	4,000020,default_val
	local	5,000000,stop
	local	6,000000,type
	local	7,000000,l_SUBJ
	local	8,000000,l_POS
	local	9,000000,l_comp
	con	0,010000,30,154,137,155,141,164,143,150,072,040,040,116,165,154,154,040,146,151,162,163,164,040,141,162,147,165,155,145,156,164,041
	con	1,010000,4,154,151,163,164
	con	2,010000,47,154,137,155,141,164,143,150,072,040,040,103,141,154,154,040,155,145,040,167,151,164,150,040,141,040,154,151,163,164,040,141,163,040,164,150,145,040,146,151,162,163,164,040,141,162,147,056
	con	3,002000,1,1
	declend
	line	649
	colm	11
	synt	any
	mark	L1
	line	659
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	659
	colm	8
	synt	any
	null
	unmark
	var	5
	str	0
	line	660
	colm	14
	synt	any
	invoke	1
	line	659
	colm	5
	synt	endif
	unmark
lab L1
	mark	L2
	line	661
	colm	5
	synt	if
	mark0
	pnull
	var	6
	var	0
	line	661
	colm	12
	synt	any
	invoke	1
	str	1
	line	661
	colm	17
	synt	any
	lexne
	unmark
	var	5
	str	2
	line	662
	colm	14
	synt	any
	invoke	1
	line	661
	colm	5
	synt	endif
	unmark
lab L2
	mark	L3
	line	664
	colm	5
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	1
	line	664
	colm	8
	synt	any
	null
	var	7
	line	664
	colm	12
	synt	any
	asgn
	unmark
	pnull
	var	4
	mark	L6
	pnull
	var	8
	line	665
	colm	25
	synt	any
	nonnull
	line	665
	colm	32
	synt	any
	esusp
	goto	L7
lab L6
	int	3
lab L7
	line	665
	colm	22
	synt	any
	asgn
	goto	L5
lab L4
	pnull
	var	4
	int	3
	line	666
	colm	22
	synt	any
	asgn
lab L5
	line	664
	colm	5
	synt	endifelse
	unmark
lab L3
	mark	L8
	line	668
	colm	5
	synt	ifelse
	mark	L9
	pnull
	var	2
	line	668
	colm	8
	synt	any
	nonnull
	unmark
	line	669
	colm	9
	synt	if
	mark0
	pnull
	var	2
	int	3
	line	669
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	670
	colm	18
	synt	any
	size
	pnull
	var	2
	int	3
	line	670
	colm	26
	synt	any
	plus
	line	670
	colm	22
	synt	any
	plus
	line	670
	colm	15
	synt	any
	asgn
	line	669
	colm	9
	synt	endif
	goto	L10
lab L9
	pnull
	var	2
	var	4
	line	672
	colm	12
	synt	any
	asgn
lab L10
	line	668
	colm	5
	synt	endifelse
	unmark
lab L8
	mark	L11
	line	674
	colm	5
	synt	ifelse
	mark	L12
	pnull
	var	3
	line	674
	colm	8
	synt	any
	nonnull
	unmark
	line	675
	colm	9
	synt	if
	mark0
	pnull
	var	3
	int	3
	line	675
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	676
	colm	18
	synt	any
	size
	pnull
	var	3
	int	3
	line	676
	colm	26
	synt	any
	plus
	line	676
	colm	22
	synt	any
	plus
	line	676
	colm	15
	synt	any
	asgn
	line	675
	colm	9
	synt	endif
	goto	L13
lab L12
	pnull
	var	3
	pnull
	pnull
	var	7
	line	678
	colm	15
	synt	any
	size
	int	3
	line	678
	colm	22
	synt	any
	plus
	line	678
	colm	12
	synt	any
	asgn
lab L13
	line	674
	colm	5
	synt	endifelse
	unmark
lab L11
	mark	L14
	pnull
	pnull
	var	2
	pnull
	var	0
	line	680
	colm	9
	synt	any
	size
	line	680
	colm	7
	synt	any
	plus
	var	3
	line	680
	colm	13
	synt	any
	numgt
	pop
	pnull
	var	2
	var	3
	line	680
	colm	21
	synt	any
	swap
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	2
	pnull
	var	0
	line	681
	colm	9
	synt	any
	size
	line	681
	colm	7
	synt	any
	plus
	var	3
	line	681
	colm	13
	synt	any
	numgt
	pop
	line	681
	colm	19
	synt	any
	pfail
	unmark
lab L15
	mark	L16
	line	682
	colm	5
	synt	if
	mark0
	var	9
	var	0
	pnull
	var	1
	var	2
	dup
	pnull
	var	0
	line	682
	colm	24
	synt	any
	size
	line	682
	colm	22
	synt	any
	plus
	synt	any
	sect
	line	682
	colm	14
	synt	any
	invoke	2
	unmark
	mark	L17
	pnull
	var	2
	pnull
	var	0
	line	683
	colm	20
	synt	any
	size
	line	683
	colm	18
	synt	any
	plus
	line	683
	colm	9
	synt	any
	pret
lab L17
	synt	any
	pfail
	line	682
	colm	5
	synt	endif
	unmark
lab L16
	pnull
	line	685
	colm	1
	synt	any
	pfail
	end
proc l_move
	local	0,001000,i
	local	1,000000,stop
	local	2,000000,l_POS
	local	3,000000,l_SUBJ
	con	0,010000,23,154,137,155,157,166,145,072,040,040,116,165,154,154,040,141,162,147,165,155,145,156,164,056
	con	1,010000,30,154,137,155,157,166,145,072,040,040,103,141,154,154,040,154,137,102,163,143,141,156,050,051,040,146,151,162,163,164,056
	con	2,002000,1,0
	con	3,002000,1,1
	declend
	line	689
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	691
	colm	5
	synt	any
	null
	pop
	var	1
	str	0
	line	691
	colm	14
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	692
	colm	5
	synt	if
	mark0
	mark	L3
	pnull
	var	2
	line	692
	colm	8
	synt	any
	null
	line	692
	colm	15
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	3
	line	692
	colm	17
	synt	any
	null
lab L4
	unmark
	var	1
	str	1
	line	693
	colm	13
	synt	any
	invoke	1
	line	692
	colm	5
	synt	endif
	unmark
lab L2
	mark	L5
	line	701
	colm	5
	synt	suspend
	mark0
	pnull
	var	3
	pnull
	var	2
	line	701
	colm	20
	synt	any
	value
	pnull
	var	2
	pnull
	int	2
	pnull
	pnull
	pnull
	var	3
	line	701
	colm	42
	synt	any
	size
	int	3
	line	701
	colm	49
	synt	any
	plus
	pnull
	var	2
	var	0
	line	701
	colm	60
	synt	any
	plus
	line	701
	colm	52
	synt	any
	numge
	line	701
	colm	39
	synt	any
	numlt
	line	701
	colm	33
	synt	any
	rasgn
	line	701
	colm	26
	synt	any
	synt	any
	sect
	line	701
	colm	5
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	701
	colm	5
	synt	endsuspend
	unmark
lab L5
	pnull
	line	703
	colm	1
	synt	any
	pfail
	end
proc l_pos
	local	0,001000,i
	local	1,000020,x
	local	2,000000,l_POS
	local	3,000000,l_SUBJ
	local	4,000000,stop
	con	0,010000,30,154,137,155,157,166,145,072,040,040,103,141,154,154,040,154,137,102,163,143,141,156,050,051,040,146,151,162,163,164,056
	con	1,002000,1,0
	con	2,002000,1,1
	declend
	line	707
	colm	11
	synt	any
	mark	L1
	line	711
	colm	5
	synt	if
	mark0
	mark	L2
	pnull
	var	2
	line	711
	colm	8
	synt	any
	null
	line	711
	colm	15
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	var	3
	line	711
	colm	17
	synt	any
	null
lab L3
	unmark
	var	4
	str	0
	line	712
	colm	14
	synt	any
	invoke	1
	line	711
	colm	5
	synt	endif
	unmark
lab L1
	mark	L4
	line	714
	colm	5
	synt	ifelse
	mark	L5
	pnull
	var	0
	int	1
	line	714
	colm	10
	synt	any
	numle
	unmark
	pnull
	var	1
	mark	L7
	pnull
	int	1
	pnull
	pnull
	pnull
	var	3
	line	715
	colm	20
	synt	any
	size
	int	2
	line	715
	colm	27
	synt	any
	plus
	pnull
	pnull
	pnull
	var	3
	line	715
	colm	34
	synt	any
	size
	int	2
	line	715
	colm	41
	synt	any
	plus
	var	0
	line	715
	colm	44
	synt	any
	plus
	line	715
	colm	30
	synt	any
	numge
	line	715
	colm	17
	synt	any
	numlt
	line	715
	colm	48
	synt	any
	esusp
	goto	L8
lab L7
	line	715
	colm	50
	synt	any
	pfail
lab L8
	line	715
	colm	12
	synt	any
	asgn
	goto	L6
lab L5
	pnull
	var	1
	mark	L9
	pnull
	int	1
	pnull
	pnull
	pnull
	var	3
	line	716
	colm	20
	synt	any
	size
	int	2
	line	716
	colm	27
	synt	any
	plus
	var	0
	line	716
	colm	30
	synt	any
	numge
	line	716
	colm	17
	synt	any
	numlt
	line	716
	colm	36
	synt	any
	esusp
	goto	L10
lab L9
	line	716
	colm	38
	synt	any
	pfail
lab L10
	line	716
	colm	12
	synt	any
	asgn
lab L6
	line	714
	colm	5
	synt	endifelse
	unmark
lab L4
	mark	L11
	line	718
	colm	5
	synt	ifelse
	mark	L12
	pnull
	var	1
	var	2
	line	718
	colm	10
	synt	any
	numeq
	unmark
	mark	L14
	var	1
	line	719
	colm	10
	synt	any
	pret
lab L14
	synt	any
	pfail
	goto	L13
lab L12
	line	720
	colm	10
	synt	any
	pfail
lab L13
	line	718
	colm	5
	synt	endifelse
	unmark
lab L11
	pnull
	line	722
	colm	1
	synt	any
	pfail
	end
proc l_tab
	local	0,001000,i
	local	1,000000,stop
	local	2,000000,l_POS
	local	3,000000,l_SUBJ
	con	0,010000,22,154,137,164,141,142,072,040,040,116,165,154,154,040,141,162,147,165,155,145,156,164,056
	con	1,010000,29,154,137,164,141,142,072,040,040,103,141,154,154,040,154,137,102,163,143,141,156,050,051,040,146,151,162,163,164,056
	con	2,002000,1,0
	con	3,002000,1,1
	declend
	line	726
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	728
	colm	5
	synt	any
	null
	pop
	var	1
	str	0
	line	728
	colm	14
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	729
	colm	5
	synt	if
	mark0
	mark	L3
	pnull
	var	2
	line	729
	colm	8
	synt	any
	null
	line	729
	colm	15
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	3
	line	729
	colm	17
	synt	any
	null
lab L4
	unmark
	var	1
	str	1
	line	730
	colm	13
	synt	any
	invoke	1
	line	729
	colm	5
	synt	endif
	unmark
lab L2
	mark	L5
	line	732
	colm	5
	synt	ifelse
	mark	L6
	pnull
	var	0
	int	2
	line	732
	colm	10
	synt	any
	numle
	unmark
	line	733
	colm	10
	synt	suspend
	mark0
	pnull
	var	3
	pnull
	var	2
	line	733
	colm	25
	synt	any
	value
	pnull
	var	2
	pnull
	int	2
	pnull
	pnull
	pnull
	var	3
	line	733
	colm	46
	synt	any
	size
	int	3
	line	733
	colm	53
	synt	any
	plus
	pnull
	pnull
	pnull
	var	3
	line	733
	colm	60
	synt	any
	size
	int	3
	line	733
	colm	67
	synt	any
	plus
	var	0
	line	733
	colm	70
	synt	any
	plus
	line	733
	colm	56
	synt	any
	numge
	line	733
	colm	43
	synt	any
	numlt
	line	733
	colm	38
	synt	any
	rasgn
	line	733
	colm	31
	synt	any
	synt	any
	sect
	line	733
	colm	10
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	733
	colm	10
	synt	endsuspend
	goto	L7
lab L6
	line	734
	colm	10
	synt	suspend
	mark0
	pnull
	var	3
	pnull
	var	2
	line	734
	colm	25
	synt	any
	value
	pnull
	var	2
	pnull
	int	2
	pnull
	pnull
	pnull
	var	3
	line	734
	colm	46
	synt	any
	size
	int	3
	line	734
	colm	53
	synt	any
	plus
	var	0
	line	734
	colm	56
	synt	any
	numge
	line	734
	colm	43
	synt	any
	numlt
	line	734
	colm	38
	synt	any
	rasgn
	line	734
	colm	31
	synt	any
	synt	any
	sect
	line	734
	colm	10
	synt	any
	psusp
	pop
lab L10
	efail
lab L11
	line	734
	colm	10
	synt	endsuspend
lab L7
	line	732
	colm	5
	synt	endifelse
	unmark
lab L5
	pnull
	line	736
	colm	1
	synt	any
	pfail
	end
proc l_upto
	local	0,001000,l1
	local	1,001000,l2
	local	2,001000,i
	local	3,001000,j
	local	4,000020,old_l_POS
	local	5,000020,default_val
	local	6,000000,stop
	local	7,000000,type
	local	8,000000,sort
	local	9,000000,l_SUBJ
	local	10,000000,l_POS
	local	11,000000,l_Escan
	local	12,000000,l_Bscan
	local	13,000000,l_tab
	local	14,000000,l_any
	con	0,010000,29,154,137,165,160,164,157,072,040,040,116,165,154,154,040,146,151,162,163,164,040,141,162,147,165,155,145,156,164,041
	con	1,010000,3,163,145,164
	con	2,002000,1,1
	declend
	line	740
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	749
	colm	5
	synt	any
	null
	pop
	var	6
	str	0
	line	749
	colm	15
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	750
	colm	5
	synt	if
	mark0
	pnull
	var	7
	var	0
	line	750
	colm	12
	synt	any
	invoke	1
	str	1
	line	750
	colm	17
	synt	any
	lexeq
	unmark
	pnull
	var	0
	var	8
	var	0
	line	750
	colm	41
	synt	any
	invoke	1
	line	750
	colm	34
	synt	any
	asgn
	line	750
	colm	5
	synt	endif
	unmark
lab L2
	mark	L3
	line	752
	colm	5
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	1
	line	752
	colm	8
	synt	any
	null
	var	9
	line	752
	colm	12
	synt	any
	asgn
	unmark
	pnull
	var	5
	mark	L6
	pnull
	var	10
	line	753
	colm	25
	synt	any
	nonnull
	line	753
	colm	32
	synt	any
	esusp
	goto	L7
lab L6
	int	2
lab L7
	line	753
	colm	22
	synt	any
	asgn
	goto	L5
lab L4
	pnull
	var	5
	int	2
	line	754
	colm	22
	synt	any
	asgn
lab L5
	line	752
	colm	5
	synt	endifelse
	unmark
lab L3
	mark	L8
	line	756
	colm	5
	synt	ifelse
	mark	L9
	pnull
	var	2
	line	756
	colm	8
	synt	any
	nonnull
	unmark
	line	757
	colm	9
	synt	if
	mark0
	pnull
	var	2
	int	2
	line	757
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	758
	colm	18
	synt	any
	size
	pnull
	var	2
	int	2
	line	758
	colm	26
	synt	any
	plus
	line	758
	colm	22
	synt	any
	plus
	line	758
	colm	15
	synt	any
	asgn
	line	757
	colm	9
	synt	endif
	goto	L10
lab L9
	pnull
	var	2
	var	5
	line	760
	colm	12
	synt	any
	asgn
lab L10
	line	756
	colm	5
	synt	endifelse
	unmark
lab L8
	mark	L11
	line	762
	colm	5
	synt	ifelse
	mark	L12
	pnull
	var	3
	line	762
	colm	8
	synt	any
	nonnull
	unmark
	line	763
	colm	9
	synt	if
	mark0
	pnull
	var	3
	int	2
	line	763
	colm	14
	synt	any
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	764
	colm	18
	synt	any
	size
	pnull
	var	3
	int	2
	line	764
	colm	26
	synt	any
	plus
	line	764
	colm	22
	synt	any
	plus
	line	764
	colm	15
	synt	any
	asgn
	line	763
	colm	9
	synt	endif
	goto	L13
lab L12
	pnull
	var	3
	pnull
	pnull
	var	9
	line	766
	colm	15
	synt	any
	size
	int	2
	line	766
	colm	22
	synt	any
	plus
	line	766
	colm	12
	synt	any
	asgn
lab L13
	line	762
	colm	5
	synt	endifelse
	unmark
lab L11
	mark	L14
	pnull
	var	4
	var	10
	line	772
	colm	15
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	line	774
	colm	5
	synt	suspend
	mark0
	var	11
	var	12
	pnull
	var	1
	var	2
	var	3
	line	774
	colm	33
	synt	any
	synt	any
	sect
	line	774
	colm	28
	synt	any
	invoke	1
	var	13
	pnull
	int	2
	pnull
	var	9
	line	775
	colm	20
	synt	any
	size
	push1
	line	775
	colm	17
	synt	any
	toby
	line	775
	colm	14
	synt	any
	invoke	1
	pop
	line	776
	colm	13
	synt	if
	mark0
	var	14
	var	0
	line	776
	colm	21
	synt	any
	invoke	1
	unmark
	pnull
	var	4
	pnull
	var	10
	int	2
	line	777
	colm	35
	synt	any
	minus
	line	777
	colm	27
	synt	any
	plus
	line	776
	colm	13
	synt	endif
	line	774
	colm	20
	synt	any
	invoke	2
	line	774
	colm	5
	synt	any
	psusp
	pop
lab L16
	efail
lab L17
	line	774
	colm	5
	synt	endsuspend
	unmark
lab L15
	pnull
	line	796
	colm	1
	synt	any
	pfail
	end
proc lblock
	local	0,001000,L1
	local	1,001000,L2
	local	2,000020,L3
	local	3,000020,i
	local	4,000020,j
	local	5,000000,lextend
	local	6,000000,put
	con	0,002000,1,1
	declend
	line	798
	colm	11
	synt	any
	mark	L1
	line	801
	colm	4
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	801
	colm	7
	synt	any
	size
	pnull
	var	1
	line	801
	colm	13
	synt	any
	size
	line	801
	colm	11
	synt	any
	numlt
	unmark
	pnull
	var	0
	mark	L4
	var	5
	var	0
	pnull
	var	1
	line	801
	colm	40
	synt	any
	size
	line	801
	colm	35
	synt	any
	invoke	2
	line	801
	colm	45
	synt	any
	esusp
	goto	L5
lab L4
	line	801
	colm	47
	synt	any
	pfail
lab L5
	line	801
	colm	25
	synt	any
	asgn
	goto	L3
lab L2
	line	802
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	802
	colm	12
	synt	any
	size
	pnull
	var	0
	line	802
	colm	18
	synt	any
	size
	line	802
	colm	16
	synt	any
	numlt
	unmark
	pnull
	var	1
	mark	L6
	var	5
	var	1
	pnull
	var	0
	line	802
	colm	45
	synt	any
	size
	line	802
	colm	40
	synt	any
	invoke	2
	line	802
	colm	50
	synt	any
	esusp
	goto	L7
lab L6
	line	802
	colm	52
	synt	any
	pfail
lab L7
	line	802
	colm	30
	synt	any
	asgn
	line	802
	colm	9
	synt	endif
lab L3
	line	801
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L8
	pnull
	var	2
	pnull
	line	804
	colm	10
	synt	any
	llist	0
	line	804
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	806
	colm	5
	synt	every
	mark0
	pnull
	var	3
	pnull
	int	0
	pnull
	var	0
	line	806
	colm	21
	synt	any
	size
	push1
	line	806
	colm	18
	synt	any
	toby
	line	806
	colm	13
	synt	any
	asgn
	pop
	mark0
	line	807
	colm	8
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	0
	pnull
	var	1
	var	3
	line	807
	colm	26
	synt	any
	subsc
	push1
	line	807
	colm	21
	synt	any
	toby
	line	807
	colm	16
	synt	any
	asgn
	pop
	mark0
	var	6
	var	2
	pnull
	var	1
	var	3
	line	808
	colm	21
	synt	any
	subsc
	line	808
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	efail
lab L13
	line	807
	colm	8
	synt	endevery
	unmark
lab L10
	efail
lab L11
	line	806
	colm	5
	synt	endevery
	unmark
lab L9
	mark	L14
	mark	L15
	var	2
	line	810
	colm	7
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	812
	colm	1
	synt	any
	pfail
	end
proc llayer
	local	0,001000,args
	local	1,000020,offsets
	local	2,000020,offset
	local	3,000020,seq
	local	4,000020,arg
	local	5,000020,lists
	local	6,000020,k
	local	7,000000,put
	local	8,000000,lcompact
	local	9,000000,max
	local	10,000000,get
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	814
	colm	11
	synt	any
	mark	L1
	pnull
	var	5
	pnull
	line	817
	colm	13
	synt	any
	llist	0
	line	817
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	819
	colm	4
	synt	every
	mark0
	var	7
	var	5
	var	8
	pnull
	var	0
	line	819
	colm	30
	synt	any
	bang
	line	819
	colm	29
	synt	any
	invoke	1
	line	819
	colm	13
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	819
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	pnull
	var	1
	pnull
	line	821
	colm	15
	synt	any
	llist	0
	line	821
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	int	0
	line	823
	colm	11
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	825
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	5
	line	825
	colm	17
	synt	any
	bang
	line	825
	colm	14
	synt	any
	asgn
	pop
	mark0
	mark	L10
	var	7
	var	1
	var	2
	line	826
	colm	10
	synt	any
	invoke	2
	unmark
lab L10
	pnull
	var	2
	dup
	var	9
	var	4
	invoke	-1
	line	827
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L8
	efail
lab L9
	line	825
	colm	4
	synt	endevery
	unmark
lab L7
	mark	L11
	pnull
	var	3
	pnull
	line	830
	colm	11
	synt	any
	llist	0
	line	830
	colm	8
	synt	any
	asgn
	unmark
lab L11
	mark	L12
lab L13
	line	832
	colm	4
	synt	repeat
	mark	L13
	line	833
	colm	7
	synt	every
	mark0
	pnull
	var	6
	pnull
	int	1
	pnull
	var	5
	line	833
	colm	23
	synt	any
	size
	push1
	line	833
	colm	20
	synt	any
	toby
	line	833
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L18
	pnull
	var	4
	pnull
	var	5
	var	6
	line	834
	colm	22
	synt	any
	subsc
	line	834
	colm	14
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	var	7
	var	3
	pnull
	var	10
	var	4
	line	835
	colm	22
	synt	any
	invoke	1
	pnull
	var	1
	var	6
	line	835
	colm	37
	synt	any
	subsc
	line	835
	colm	28
	synt	any
	plus
	line	835
	colm	13
	synt	any
	invoke	2
	line	835
	colm	42
	synt	any
	esusp
	goto	L20
lab L19
	unmark
	unmark
	unmark
	pnull
	goto	L15
	goto	L17
lab L20
	unmark
lab L16
	efail
lab L17
	line	833
	colm	7
	synt	endevery
lab L14
	unmark
	goto	L13
lab L15
	line	832
	colm	4
	synt	endrepeat
	unmark
lab L12
	mark	L21
	mark	L22
	var	3
	line	839
	colm	4
	synt	any
	pret
lab L22
	synt	any
	pfail
	unmark
lab L21
	pnull
	line	841
	colm	1
	synt	any
	pfail
	end
proc lcompact
	local	0,001000,seq
	local	1,000020,unique
	local	2,000020,target
	local	3,000000,set
	local	4,000000,put
	local	5,000000,lmap
	local	6,000000,sort
	con	0,002000,1,1
	declend
	line	843
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	3
	var	0
	line	846
	colm	17
	synt	any
	invoke	1
	line	846
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	line	848
	colm	14
	synt	any
	llist	0
	line	848
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	850
	colm	4
	synt	every
	mark0
	var	4
	var	2
	pnull
	int	0
	pnull
	var	1
	line	850
	colm	27
	synt	any
	size
	push1
	line	850
	colm	24
	synt	any
	toby
	line	850
	colm	13
	synt	any
	invoke	2
	pop
lab L4
	efail
lab L5
	line	850
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	var	5
	var	0
	var	6
	var	1
	line	852
	colm	25
	synt	any
	invoke	1
	var	2
	line	852
	colm	15
	synt	any
	invoke	3
	line	852
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	854
	colm	1
	synt	any
	pfail
	end
proc lclose
	local	0,001000,L
	local	1,000000,equiv
	local	2,000000,lreverse
	local	3,000000,copy
	local	4,000000,put
	con	0,002000,1,1
	declend
	line	856
	colm	11
	synt	any
	mark	L1
	line	858
	colm	4
	synt	ifelse
	mark	L2
	var	1
	var	0
	var	2
	var	0
	line	858
	colm	24
	synt	any
	invoke	1
	line	858
	colm	12
	synt	any
	invoke	2
	unmark
	mark	L4
	var	0
	line	858
	colm	34
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	var	0
	var	3
	var	0
	line	860
	colm	16
	synt	any
	invoke	1
	line	860
	colm	9
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	var	4
	var	0
	pnull
	var	0
	int	0
	line	861
	colm	15
	synt	any
	subsc
	line	861
	colm	10
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	0
	line	862
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L3
	line	858
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	865
	colm	1
	synt	any
	pfail
	end
proc lcomb
	local	0,001000,L
	local	1,001000,i
	local	2,000020,j
	local	3,000000,lcomb
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	867
	colm	11
	synt	any
	mark	L1
	line	870
	colm	4
	synt	if
	mark0
	pnull
	var	1
	int	0
	line	870
	colm	9
	synt	any
	numlt
	unmark
	line	870
	colm	18
	synt	any
	pfail
	line	870
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	line	871
	colm	4
	synt	suspend
	mark0
	line	871
	colm	12
	synt	ifelse
	mark	L5
	pnull
	var	1
	int	0
	line	871
	colm	17
	synt	any
	numeq
	unmark
	pnull
	pnull
	var	0
	line	871
	colm	27
	synt	any
	bang
	line	871
	colm	26
	synt	any
	llist	1
	goto	L6
lab L5
	pnull
	pnull
	pnull
	var	0
	pnull
	var	2
	pnull
	int	0
	pnull
	pnull
	pnull
	var	0
	line	872
	colm	25
	synt	any
	size
	var	1
	line	872
	colm	28
	synt	any
	minus
	int	0
	line	872
	colm	32
	synt	any
	plus
	push1
	line	872
	colm	22
	synt	any
	toby
	line	872
	colm	17
	synt	any
	asgn
	line	872
	colm	14
	synt	any
	subsc
	line	872
	colm	12
	synt	any
	llist	1
	var	3
	pnull
	var	0
	pnull
	var	2
	int	0
	line	872
	colm	52
	synt	any
	plus
	int	1
	line	872
	colm	55
	synt	any
	synt	any
	sect
	pnull
	var	1
	int	0
	line	872
	colm	61
	synt	any
	minus
	line	872
	colm	47
	synt	any
	invoke	2
	line	872
	colm	38
	synt	any
	lconcat
lab L6
	line	871
	colm	12
	synt	endifelse
	line	871
	colm	4
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	871
	colm	4
	synt	endsuspend
	unmark
lab L2
	pnull
	line	874
	colm	1
	synt	any
	pfail
	end
proc ldecollate
	local	0,001000,indices
	local	1,001000,L
	local	2,000020,result
	local	3,000020,i
	local	4,000020,x
	local	5,000000,copy
	local	6,000000,list
	local	7,000000,max
	local	8,000000,get
	local	9,000000,put
	declend
	line	876
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	5
	var	0
	line	879
	colm	19
	synt	any
	invoke	1
	line	879
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	6
	var	7
	var	0
	invoke	-1
	line	881
	colm	18
	synt	any
	invoke	1
	line	881
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	882
	colm	4
	synt	every
	mark0
	pnull
	pnull
	var	2
	line	882
	colm	10
	synt	any
	bang
	pnull
	line	882
	colm	21
	synt	any
	llist	0
	line	882
	colm	18
	synt	any
	asgn
	pop
lab L4
	efail
lab L5
	line	882
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	line	884
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	1
	line	884
	colm	15
	synt	any
	bang
	line	884
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L9
	pnull
	var	3
	mark	L10
	var	8
	var	0
	line	885
	colm	15
	synt	any
	invoke	1
	line	885
	colm	25
	synt	any
	esusp
	goto	L11
lab L10
	line	885
	colm	27
	synt	any
	pfail
lab L11
	line	885
	colm	9
	synt	any
	asgn
	unmark
lab L9
	mark	L12
	var	9
	var	0
	var	3
	line	886
	colm	10
	synt	any
	invoke	2
	unmark
lab L12
	var	9
	pnull
	var	2
	var	3
	line	887
	colm	17
	synt	any
	subsc
	var	4
	line	887
	colm	10
	synt	any
	invoke	2
	unmark
lab L7
	efail
lab L8
	line	884
	colm	4
	synt	endevery
	unmark
lab L6
	mark	L13
	mark	L14
	var	2
	line	890
	colm	4
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	892
	colm	1
	synt	any
	pfail
	end
proc ldelete
	local	0,001000,L
	local	1,001000,spec
	local	2,000020,i
	local	3,000020,tmp
	local	4,000000,indices
	local	5,000000,pull
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	894
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	mark	L2
	var	4
	var	1
	pnull
	var	0
	line	897
	colm	25
	synt	any
	size
	line	897
	colm	18
	synt	any
	invoke	2
	line	897
	colm	29
	synt	any
	esusp
	goto	L3
lab L2
	line	897
	colm	31
	synt	any
	pfail
lab L3
	line	897
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L4
lab L5
	line	899
	colm	4
	synt	while
	mark0
	pnull
	var	2
	var	5
	var	3
	line	899
	colm	19
	synt	any
	invoke	1
	line	899
	colm	12
	synt	any
	asgn
	unmark
	mark	L5
	pnull
	var	0
	pnull
	pnull
	var	0
	int	0
	dup
	pnull
	var	2
	int	0
	line	900
	colm	19
	synt	any
	minus
	line	900
	colm	15
	synt	any
	plus
	synt	any
	sect
	pnull
	var	0
	pnull
	var	2
	int	0
	line	900
	colm	32
	synt	any
	plus
	int	1
	line	900
	colm	35
	synt	any
	synt	any
	sect
	line	900
	colm	24
	synt	any
	lconcat
	line	900
	colm	9
	synt	any
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	899
	colm	4
	synt	endwhile
	unmark
lab L4
	mark	L8
	mark	L9
	var	0
	line	902
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	904
	colm	1
	synt	any
	pfail
	end
proc ldupl
	local	0,001000,L1
	local	1,001000,L2
	local	2,000020,L3
	local	3,000020,i
	local	4,000020,j
	local	5,000000,integer
	local	6,000000,put
	con	0,002000,1,1
	declend
	line	906
	colm	11
	synt	any
	mark	L1
	line	909
	colm	4
	synt	if
	mark0
	var	5
	var	1
	line	909
	colm	14
	synt	any
	invoke	1
	unmark
	pnull
	var	1
	pnull
	var	1
	line	909
	colm	30
	synt	any
	llist	1
	line	909
	colm	27
	synt	any
	asgn
	line	909
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	line	911
	colm	10
	synt	any
	llist	0
	line	911
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	913
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	1
	line	913
	colm	15
	synt	any
	bang
	line	913
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	914
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	0
	line	914
	colm	18
	synt	any
	bang
	line	914
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	915
	colm	9
	synt	every
	mark0
	pnull
	int	0
	var	3
	push1
	line	915
	colm	17
	synt	any
	toby
	pop
	mark0
	var	6
	var	2
	var	4
	line	916
	colm	15
	synt	any
	invoke	2
	unmark
lab L8
	efail
lab L9
	line	915
	colm	9
	synt	endevery
	unmark
lab L6
	efail
lab L7
	line	914
	colm	7
	synt	endevery
	unmark
lab L4
	efail
lab L5
	line	913
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L10
	mark	L11
	var	2
	line	918
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	920
	colm	1
	synt	any
	pfail
	end
proc lequiv
	local	0,001000,x
	local	1,001000,y
	local	2,000020,i
	local	3,000000,type
	local	4,000000,lequiv
	con	0,010000,4,154,151,163,164
	con	1,002000,1,1
	declend
	line	922
	colm	11
	synt	any
	mark	L1
	line	925
	colm	4
	synt	if
	mark0
	pnull
	var	0
	var	1
	line	925
	colm	9
	synt	any
	eqv
	unmark
	mark	L2
	var	1
	line	925
	colm	20
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	925
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	926
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	3
	var	0
	line	926
	colm	11
	synt	any
	invoke	1
	var	3
	var	1
	line	926
	colm	22
	synt	any
	invoke	1
	line	926
	colm	15
	synt	any
	lexeq
	str	0
	line	926
	colm	26
	synt	any
	lexeq
	unmark
	mark	L4
	line	927
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	927
	colm	10
	synt	any
	size
	pnull
	var	1
	line	927
	colm	16
	synt	any
	size
	line	927
	colm	13
	synt	any
	numne
	unmark
	line	927
	colm	24
	synt	any
	pfail
	line	927
	colm	7
	synt	endif
	unmark
lab L4
	mark	L5
	line	928
	colm	7
	synt	every
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	0
	line	928
	colm	23
	synt	any
	size
	push1
	line	928
	colm	20
	synt	any
	toby
	line	928
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	929
	colm	10
	synt	if
	mark0
	mark	L8
	var	4
	pnull
	var	0
	var	2
	line	929
	colm	25
	synt	any
	subsc
	pnull
	var	1
	var	2
	line	929
	colm	30
	synt	any
	subsc
	line	929
	colm	23
	synt	any
	invoke	2
	unmark
	efail
lab L8
	pnull
	unmark
	line	929
	colm	40
	synt	any
	pfail
	line	929
	colm	10
	synt	endif
	unmark
lab L6
	efail
lab L7
	line	928
	colm	7
	synt	endevery
	unmark
lab L5
	mark	L9
	var	1
	line	930
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	926
	colm	4
	synt	endif
	unmark
lab L3
	pnull
	line	933
	colm	1
	synt	any
	pfail
	end
proc levate
	local	0,001000,seq
	local	1,001000,m
	local	2,001000,n
	local	3,000020,shafts
	local	4,000020,reseq
	local	5,000020,i
	local	6,000020,j
	local	7,000020,k
	local	8,000000,list
	local	9,000000,put
	local	10,000000,get
	con	0,002000,1,1
	declend
	line	935
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	8
	var	1
	line	938
	colm	18
	synt	any
	invoke	1
	line	938
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	940
	colm	4
	synt	every
	mark0
	pnull
	pnull
	var	3
	line	940
	colm	10
	synt	any
	bang
	pnull
	line	940
	colm	21
	synt	any
	llist	0
	line	940
	colm	18
	synt	any
	asgn
	pop
lab L3
	efail
lab L4
	line	940
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	line	942
	colm	4
	synt	every
	mark0
	pnull
	var	5
	pnull
	int	0
	var	1
	push1
	line	942
	colm	17
	synt	any
	toby
	line	942
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	943
	colm	7
	synt	every
	mark0
	var	9
	pnull
	var	3
	var	5
	line	943
	colm	23
	synt	any
	subsc
	pnull
	var	5
	var	2
	var	1
	line	943
	colm	30
	synt	any
	toby
	line	943
	colm	16
	synt	any
	invoke	2
	pop
lab L8
	efail
lab L9
	line	943
	colm	7
	synt	endevery
	unmark
lab L6
	efail
lab L7
	line	942
	colm	4
	synt	endevery
	unmark
lab L5
	mark	L10
	pnull
	var	4
	pnull
	line	945
	colm	13
	synt	any
	llist	0
	line	945
	colm	10
	synt	any
	asgn
	unmark
lab L10
	mark	L11
lab L12
	line	947
	colm	4
	synt	while
	mark0
	pnull
	var	6
	var	10
	var	0
	line	947
	colm	18
	synt	any
	invoke	1
	line	947
	colm	12
	synt	any
	asgn
	unmark
	mark	L12
	mark	L15
	pnull
	var	5
	pnull
	pnull
	var	6
	var	1
	line	948
	colm	14
	synt	any
	mod
	int	0
	line	948
	colm	18
	synt	any
	plus
	line	948
	colm	9
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	7
	var	10
	pnull
	var	3
	var	5
	line	949
	colm	22
	synt	any
	subsc
	line	949
	colm	15
	synt	any
	invoke	1
	line	949
	colm	9
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	9
	var	4
	var	7
	line	950
	colm	10
	synt	any
	invoke	2
	unmark
lab L17
	var	9
	pnull
	var	3
	var	5
	line	951
	colm	17
	synt	any
	subsc
	var	7
	line	951
	colm	10
	synt	any
	invoke	2
lab L13
	unmark
	goto	L12
lab L14
	line	947
	colm	4
	synt	endwhile
	unmark
lab L11
	mark	L18
	mark	L19
	var	4
	line	954
	colm	4
	synt	any
	pret
lab L19
	synt	any
	pfail
	unmark
lab L18
	pnull
	line	956
	colm	1
	synt	any
	pfail
	end
proc lextend
	local	0,001000,L
	local	1,001000,i
	local	2,000020,result
	local	3,000000,copy
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	958
	colm	11
	synt	any
	mark	L1
	line	961
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	961
	colm	7
	synt	any
	size
	int	0
	line	961
	colm	10
	synt	any
	numeq
	unmark
	line	961
	colm	19
	synt	any
	pfail
	line	961
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	3
	var	0
	line	963
	colm	18
	synt	any
	invoke	1
	line	963
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	965
	colm	4
	synt	until
	mark	L5
	pnull
	pnull
	var	2
	line	965
	colm	10
	synt	any
	size
	var	1
	line	965
	colm	18
	synt	any
	numge
	unmark
	efail
lab L5
	mark	L4
	pnull
	var	2
	dup
	var	0
	line	966
	colm	14
	synt	any
	lconcat
	asgn
lab L6
	unmark
	goto	L4
lab L7
	line	965
	colm	4
	synt	enduntil
	unmark
lab L3
	mark	L8
	pnull
	var	2
	pnull
	var	2
	int	1
	dup
	var	1
	line	968
	colm	22
	synt	any
	plus
	synt	any
	sect
	line	968
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	var	2
	line	970
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	972
	colm	1
	synt	any
	pfail
	end
proc lfliph
	local	0,001000,L
	local	1,000000,lfliph
	local	2,000000,lreverse
	declend
	line	974
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	976
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	1
	var	0
	line	978
	colm	17
	synt	any
	invoke	1
	line	978
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	980
	colm	1
	synt	any
	pfail
	end
proc lflipv
	local	0,001000,L
	local	1,000020,L1
	local	2,000020,m
	local	3,000020,i
	local	4,000000,max
	local	5,000000,put
	local	6,000000,residue
	con	0,002000,1,1
	declend
	line	982
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	4
	var	0
	invoke	-1
	line	985
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	line	987
	colm	10
	synt	any
	llist	0
	line	987
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	989
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	0
	line	989
	colm	15
	synt	any
	bang
	line	989
	colm	12
	synt	any
	asgn
	pop
	mark0
	var	5
	var	1
	var	6
	pnull
	pnull
	var	3
	line	990
	colm	23
	synt	any
	neg
	int	0
	line	990
	colm	26
	synt	any
	plus
	var	2
	int	0
	line	990
	colm	22
	synt	any
	invoke	3
	line	990
	colm	10
	synt	any
	invoke	2
	unmark
lab L4
	efail
lab L5
	line	989
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	var	1
	line	992
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	994
	colm	1
	synt	any
	pfail
	end
proc limage
	local	0,001000,L
	local	1,000020,result
	local	2,000000,type
	local	3,000000,image
	con	0,010000,4,154,151,163,164
	con	1,010000,0
	con	2,010000,1,054
	con	3,010000,1,133
	con	4,002000,1,1
	con	5,010000,1,135
	con	6,010000,2,133,135
	declend
	line	996
	colm	11
	synt	any
	mark	L1
	line	999
	colm	4
	synt	if
	mark0
	pnull
	var	2
	var	0
	line	999
	colm	11
	synt	any
	invoke	1
	str	0
	line	999
	colm	15
	synt	any
	lexne
	unmark
	line	999
	colm	31
	synt	any
	pfail
	line	999
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	1
	str	1
	line	1001
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1003
	colm	4
	synt	every
	mark0
	pnull
	var	1
	dup
	pnull
	var	3
	pnull
	var	0
	line	1003
	colm	28
	synt	any
	bang
	line	1003
	colm	27
	synt	any
	invoke	1
	str	2
	line	1003
	colm	32
	synt	any
	cat
	line	1003
	colm	17
	synt	any
	cat
	asgn
	pop
lab L4
	efail
lab L5
	line	1003
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	mark	L8
	pnull
	pnull
	str	3
	pnull
	var	1
	int	4
	pnull
	int	4
	line	1005
	colm	28
	synt	any
	neg
	line	1005
	colm	27
	synt	any
	synt	any
	sect
	line	1005
	colm	16
	synt	any
	cat
	str	5
	line	1005
	colm	32
	synt	any
	cat
	line	1005
	colm	40
	synt	any
	esusp
	goto	L9
lab L8
	str	6
lab L9
	line	1005
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1007
	colm	1
	synt	any
	pfail
	end
proc lcollate
	local	0,001000,args
	local	1,000020,seq
	local	2,000020,arg
	local	3,000020,lists
	local	4,000020,k
	local	5,000000,put
	local	6,000000,copy
	local	7,000000,get
	con	0,002000,1,1
	declend
	line	1009
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	pnull
	line	1012
	colm	13
	synt	any
	llist	0
	line	1012
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1014
	colm	4
	synt	every
	mark0
	var	5
	var	3
	var	6
	pnull
	var	0
	line	1014
	colm	26
	synt	any
	bang
	line	1014
	colm	25
	synt	any
	invoke	1
	line	1014
	colm	13
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	1014
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	pnull
	var	1
	pnull
	line	1016
	colm	11
	synt	any
	llist	0
	line	1016
	colm	8
	synt	any
	asgn
	unmark
lab L5
	mark	L6
lab L7
	line	1018
	colm	4
	synt	repeat
	mark	L7
	line	1019
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	0
	pnull
	var	3
	line	1019
	colm	23
	synt	any
	size
	push1
	line	1019
	colm	20
	synt	any
	toby
	line	1019
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L12
	pnull
	var	2
	pnull
	var	3
	var	4
	line	1020
	colm	22
	synt	any
	subsc
	line	1020
	colm	14
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	var	5
	var	1
	var	7
	var	2
	line	1021
	colm	22
	synt	any
	invoke	1
	line	1021
	colm	13
	synt	any
	invoke	2
	line	1021
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	unmark
	unmark
	unmark
	pnull
	goto	L9
	goto	L11
lab L14
	unmark
lab L10
	efail
lab L11
	line	1019
	colm	7
	synt	endevery
lab L8
	unmark
	goto	L7
lab L9
	line	1018
	colm	4
	synt	endrepeat
	unmark
lab L6
	mark	L15
	mark	L16
	var	1
	line	1025
	colm	4
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	1027
	colm	1
	synt	any
	pfail
	end
proc lconstant
	local	0,001000,L
	local	1,000000,set
	con	0,002000,1,1
	declend
	line	1029
	colm	11
	synt	any
	mark	L1
	line	1031
	colm	4
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	1
	var	0
	line	1031
	colm	11
	synt	any
	invoke	1
	line	1031
	colm	7
	synt	any
	size
	int	0
	line	1031
	colm	15
	synt	any
	numeq
	unmark
	mark	L4
	pnull
	var	0
	int	0
	line	1031
	colm	32
	synt	any
	subsc
	line	1031
	colm	24
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	1032
	colm	9
	synt	any
	pfail
lab L3
	line	1031
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	1034
	colm	1
	synt	any
	pfail
	end
proc linterl
	local	0,001000,L1
	local	1,001000,L2
	local	2,000020,L3
	local	3,000020,i
	local	4,000000,lextend
	local	5,000000,put
	con	0,002000,1,1
	declend
	line	1036
	colm	11
	synt	any
	mark	L1
	line	1039
	colm	4
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	1039
	colm	7
	synt	any
	size
	pnull
	var	1
	line	1039
	colm	13
	synt	any
	size
	line	1039
	colm	11
	synt	any
	numlt
	unmark
	pnull
	var	0
	mark	L4
	var	4
	var	0
	pnull
	var	1
	line	1039
	colm	40
	synt	any
	size
	line	1039
	colm	35
	synt	any
	invoke	2
	line	1039
	colm	45
	synt	any
	esusp
	goto	L5
lab L4
	line	1039
	colm	47
	synt	any
	pfail
lab L5
	line	1039
	colm	25
	synt	any
	asgn
	goto	L3
lab L2
	line	1040
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	1040
	colm	12
	synt	any
	size
	pnull
	var	0
	line	1040
	colm	18
	synt	any
	size
	line	1040
	colm	16
	synt	any
	numlt
	unmark
	pnull
	var	1
	mark	L6
	var	4
	var	1
	pnull
	var	0
	line	1040
	colm	45
	synt	any
	size
	line	1040
	colm	40
	synt	any
	invoke	2
	line	1040
	colm	50
	synt	any
	esusp
	goto	L7
lab L6
	line	1040
	colm	52
	synt	any
	pfail
lab L7
	line	1040
	colm	30
	synt	any
	asgn
	line	1040
	colm	9
	synt	endif
lab L3
	line	1039
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L8
	pnull
	var	2
	pnull
	line	1042
	colm	10
	synt	any
	llist	0
	line	1042
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	1044
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	int	0
	pnull
	var	0
	line	1044
	colm	20
	synt	any
	size
	push1
	line	1044
	colm	17
	synt	any
	toby
	line	1044
	colm	12
	synt	any
	asgn
	pop
	mark0
	var	5
	var	2
	pnull
	var	0
	var	3
	line	1045
	colm	17
	synt	any
	subsc
	pnull
	var	1
	var	3
	line	1045
	colm	24
	synt	any
	subsc
	line	1045
	colm	10
	synt	any
	invoke	3
	unmark
lab L10
	efail
lab L11
	line	1044
	colm	4
	synt	endevery
	unmark
lab L9
	mark	L12
	mark	L13
	var	2
	line	1047
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	1049
	colm	1
	synt	any
	pfail
	end
proc llpad
	local	0,001000,L
	local	1,001000,i
	local	2,001000,x
	local	3,000000,copy
	local	4,000000,push
	declend
	line	1051
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	1053
	colm	13
	synt	any
	invoke	1
	line	1053
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	1055
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	0
	line	1055
	colm	10
	synt	any
	size
	var	1
	line	1055
	colm	13
	synt	any
	numlt
	unmark
	mark	L3
	var	4
	var	0
	var	2
	line	1055
	colm	24
	synt	any
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	line	1055
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	1057
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1059
	colm	1
	synt	any
	pfail
	end
proc lrunup
	local	0,001000,L1
	local	1,001000,L2
	local	2,001000,L3
	local	3,000020,L4
	local	4,000000,put
	con	0,002000,1,1
	declend
	line	1061
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	1064
	colm	4
	synt	any
	null
	pnull
	int	0
	line	1064
	colm	11
	synt	any
	llist	1
	line	1064
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	line	1066
	colm	10
	synt	any
	llist	0
	line	1066
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1068
	colm	4
	synt	every
	mark0
	var	4
	var	3
	pnull
	pnull
	var	0
	line	1068
	colm	18
	synt	any
	bang
	pnull
	var	1
	line	1068
	colm	25
	synt	any
	bang
	pnull
	var	2
	line	1068
	colm	32
	synt	any
	bang
	line	1068
	colm	22
	synt	any
	toby
	line	1068
	colm	13
	synt	any
	invoke	2
	pop
lab L4
	efail
lab L5
	line	1068
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	var	3
	line	1070
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1072
	colm	1
	synt	any
	pfail
	end
proc lrundown
	local	0,001000,L1
	local	1,001000,L2
	local	2,001000,L3
	local	3,000020,L4
	local	4,000000,put
	con	0,002000,1,1
	declend
	line	1074
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	1077
	colm	4
	synt	any
	null
	pnull
	int	0
	line	1077
	colm	11
	synt	any
	llist	1
	line	1077
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	line	1079
	colm	10
	synt	any
	llist	0
	line	1079
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1081
	colm	4
	synt	every
	mark0
	var	4
	var	3
	pnull
	pnull
	var	0
	line	1081
	colm	18
	synt	any
	bang
	pnull
	var	1
	line	1081
	colm	25
	synt	any
	bang
	pnull
	pnull
	var	2
	line	1081
	colm	33
	synt	any
	bang
	line	1081
	colm	32
	synt	any
	neg
	line	1081
	colm	22
	synt	any
	toby
	line	1081
	colm	13
	synt	any
	invoke	2
	pop
lab L4
	efail
lab L5
	line	1081
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	var	3
	line	1083
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1085
	colm	1
	synt	any
	pfail
	end
proc lltrim
	local	0,001000,L
	local	1,001000,S
	local	2,000000,copy
	local	3,000000,member
	local	4,000000,get
	con	0,002000,1,1
	declend
	line	1088
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1090
	colm	13
	synt	any
	invoke	1
	line	1090
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	1092
	colm	4
	synt	while
	mark0
	var	3
	var	1
	pnull
	var	0
	int	0
	line	1092
	colm	21
	synt	any
	subsc
	line	1092
	colm	16
	synt	any
	invoke	2
	unmark
	mark	L3
	var	4
	var	0
	line	1093
	colm	10
	synt	any
	invoke	1
lab L4
	unmark
	goto	L3
lab L5
	line	1092
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	1095
	colm	5
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1097
	colm	1
	synt	any
	pfail
	end
proc lmap
	local	0,001000,L1
	local	1,001000,L2
	local	2,001000,L3
	local	3,000040,lmem2
	local	4,000040,lmem3
	local	5,000040,lmaptbl
	local	6,000040,tdefault
	local	7,000020,i
	local	8,000020,a
	local	9,000000,type
	local	10,000000,runerr
	local	11,000000,copy
	local	12,000000,table
	con	0,010000,4,154,151,163,164
	con	1,002000,3,108
	con	2,002000,3,208
	con	3,002000,1,1
	declend
	line	1099
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	6
	pnull
	line	1103
	colm	24
	synt	any
	llist	0
	line	1103
	colm	21
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	1105
	colm	4
	synt	if
	mark0
	pnull
	var	9
	pnull
	var	8
	mark	L5
	var	0
	line	1105
	colm	20
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	var	1
	line	1105
	colm	25
	synt	any
	esusp
	goto	L8
lab L7
	var	2
lab L8
lab L6
	line	1105
	colm	14
	synt	any
	asgn
	line	1105
	colm	11
	synt	any
	invoke	1
	str	0
	line	1105
	colm	31
	synt	any
	lexne
	unmark
	var	10
	int	1
	var	8
	line	1105
	colm	53
	synt	any
	invoke	2
	line	1105
	colm	4
	synt	endif
	unmark
lab L4
	mark	L9
	line	1106
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	1106
	colm	7
	synt	any
	size
	pnull
	var	2
	line	1106
	colm	14
	synt	any
	size
	line	1106
	colm	11
	synt	any
	numne
	unmark
	var	10
	int	2
	var	1
	line	1106
	colm	29
	synt	any
	invoke	2
	line	1106
	colm	4
	synt	endif
	unmark
lab L9
	mark	L10
	pnull
	var	0
	var	11
	var	0
	line	1108
	colm	14
	synt	any
	invoke	1
	line	1108
	colm	7
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	1110
	colm	4
	synt	if
	mark0
	mark	L12
	pnull
	var	3
	var	1
	line	1110
	colm	17
	synt	any
	eqv
	pop
	pnull
	var	4
	var	2
	line	1110
	colm	32
	synt	any
	eqv
	unmark
	efail
lab L12
	pnull
	unmark
	mark	L13
	pnull
	var	3
	var	1
	line	1111
	colm	13
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	4
	var	2
	line	1112
	colm	13
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	5
	var	12
	var	6
	line	1113
	colm	23
	synt	any
	invoke	1
	line	1113
	colm	15
	synt	any
	asgn
	unmark
lab L15
	line	1114
	colm	7
	synt	every
	mark0
	pnull
	var	7
	pnull
	int	3
	pnull
	var	1
	line	1114
	colm	23
	synt	any
	size
	push1
	line	1114
	colm	20
	synt	any
	toby
	line	1114
	colm	15
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	var	5
	pnull
	var	1
	var	7
	line	1115
	colm	20
	synt	any
	subsc
	line	1115
	colm	17
	synt	any
	subsc
	pnull
	var	2
	var	7
	line	1115
	colm	30
	synt	any
	subsc
	line	1115
	colm	25
	synt	any
	asgn
	unmark
lab L16
	efail
lab L17
	line	1114
	colm	7
	synt	endevery
	line	1110
	colm	4
	synt	endif
	unmark
lab L11
	mark	L18
	line	1117
	colm	4
	synt	every
	mark0
	pnull
	var	7
	pnull
	int	3
	pnull
	var	0
	line	1117
	colm	20
	synt	any
	size
	push1
	line	1117
	colm	17
	synt	any
	toby
	line	1117
	colm	12
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	7
	line	1118
	colm	9
	synt	any
	subsc
	pnull
	var	6
	pnull
	var	5
	pnull
	var	0
	var	7
	line	1118
	colm	41
	synt	any
	subsc
	line	1118
	colm	38
	synt	any
	subsc
	line	1118
	colm	26
	synt	any
	neqv
	line	1118
	colm	13
	synt	any
	asgn
	unmark
lab L19
	efail
lab L20
	line	1117
	colm	4
	synt	endevery
	unmark
lab L18
	mark	L21
	mark	L22
	var	0
	line	1119
	colm	4
	synt	any
	pret
lab L22
	synt	any
	pfail
	unmark
lab L21
	pnull
	line	1121
	colm	1
	synt	any
	pfail
	end
proc lresidue
	local	0,001000,L
	local	1,001000,m
	local	2,001000,i
	local	3,000020,result
	local	4,000000,put
	local	5,000000,residue
	con	0,002000,1,0
	declend
	line	1123
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	1126
	colm	4
	synt	any
	null
	int	0
	line	1126
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	line	1128
	colm	14
	synt	any
	llist	0
	line	1128
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1130
	colm	4
	synt	every
	mark0
	var	4
	var	3
	var	5
	pnull
	var	0
	line	1130
	colm	30
	synt	any
	bang
	var	1
	var	2
	line	1130
	colm	29
	synt	any
	invoke	3
	line	1130
	colm	13
	synt	any
	invoke	2
	pop
lab L4
	efail
lab L5
	line	1130
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	var	3
	line	1132
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1134
	colm	1
	synt	any
	pfail
	end
proc lpalin
	local	0,001000,L
	local	1,001000,x
	local	2,000000,lreverse
	local	3,000000,pull
	declend
	line	1136
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	var	2
	var	0
	line	1138
	colm	20
	synt	any
	invoke	1
	line	1138
	colm	6
	synt	any
	lconcat
	asgn
	unmark
lab L1
	mark	L2
	line	1140
	colm	4
	synt	if
	mark0
	pnull
	var	1
	line	1140
	colm	7
	synt	any
	null
	unmark
	var	3
	var	0
	line	1140
	colm	19
	synt	any
	invoke	1
	line	1140
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	mark	L4
	var	0
	line	1142
	colm	4
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1144
	colm	1
	synt	any
	pfail
	end
proc lpermute
	local	0,001000,L
	local	1,000020,i
	local	2,000000,lpermute
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	1146
	colm	11
	synt	any
	mark	L1
	line	1149
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	1149
	colm	7
	synt	any
	size
	int	0
	line	1149
	colm	10
	synt	any
	numeq
	unmark
	mark	L2
	pnull
	line	1149
	colm	26
	synt	any
	llist	0
	line	1149
	colm	19
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	1149
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	1150
	colm	4
	synt	suspend
	mark0
	pnull
	pnull
	pnull
	var	0
	pnull
	var	1
	pnull
	int	1
	pnull
	var	0
	line	1150
	colm	25
	synt	any
	size
	push1
	line	1150
	colm	22
	synt	any
	toby
	line	1150
	colm	17
	synt	any
	asgn
	line	1150
	colm	14
	synt	any
	subsc
	line	1150
	colm	12
	synt	any
	llist	1
	var	2
	pnull
	pnull
	var	0
	int	1
	var	1
	line	1150
	colm	46
	synt	any
	synt	any
	sect
	pnull
	var	0
	pnull
	var	1
	int	1
	line	1150
	colm	57
	synt	any
	plus
	int	0
	line	1150
	colm	59
	synt	any
	synt	any
	sect
	line	1150
	colm	50
	synt	any
	lconcat
	line	1150
	colm	42
	synt	any
	invoke	1
	line	1150
	colm	30
	synt	any
	lconcat
	line	1150
	colm	4
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	1150
	colm	4
	synt	endsuspend
	unmark
lab L3
	pnull
	line	1152
	colm	1
	synt	any
	pfail
	end
proc lreflect
	local	0,001000,L
	local	1,001000,i
	local	2,000020,L1
	local	3,000000,stop
	local	4,000000,copy
	local	5,000000,lreverse
	local	6,000000,get
	local	7,000000,pull
	con	0,002000,1,0
	con	1,002000,1,3
	con	2,010000,34,052,052,052,040,151,156,166,141,154,151,144,040,141,162,147,165,155,145,156,164,040,164,157,040,154,162,145,146,154,145,143,164,050,051
	con	3,002000,1,1
	con	4,002000,1,2
	declend
	line	1154
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	1157
	colm	4
	synt	any
	null
	int	0
	line	1157
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1159
	colm	4
	synt	if
	mark0
	pnull
	var	1
	int	1
	line	1159
	colm	9
	synt	any
	numgt
	unmark
	var	3
	str	2
	line	1159
	colm	22
	synt	any
	invoke	1
	line	1159
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	line	1161
	colm	4
	synt	if
	mark0
	pnull
	var	1
	int	1
	line	1161
	colm	9
	synt	any
	numlt
	unmark
	pnull
	var	2
	var	4
	var	0
	line	1161
	colm	28
	synt	any
	invoke	1
	line	1161
	colm	21
	synt	any
	asgn
	line	1161
	colm	4
	synt	endif
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	0
	var	5
	line	1164
	colm	7
	synt	case
	mark0
	var	1
	eret
	mark	L7
	ccase
	int	0
	line	1165
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L8
	var	6
	var	2
	line	1165
	colm	19
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	7
	var	2
	line	1165
	colm	29
	synt	any
	invoke	1
	unmark
lab L9
	var	2
	goto	L6
lab L7
	mark	L10
	ccase
	int	3
	line	1166
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L11
	var	6
	var	2
	line	1166
	colm	19
	synt	any
	invoke	1
	unmark
lab L11
	var	2
	goto	L6
lab L10
	mark	L12
	ccase
	int	4
	line	1167
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L13
	var	7
	var	2
	line	1167
	colm	20
	synt	any
	invoke	1
	unmark
lab L13
	var	2
	goto	L6
lab L12
	mark	L14
	ccase
	int	1
	line	1168
	colm	11
	synt	any
	eqv
	unmark
	pop
	var	0
	goto	L6
lab L14
	efail
lab L6
	line	1164
	colm	7
	synt	endcase
	line	1163
	colm	25
	synt	any
	invoke	1
	line	1163
	colm	13
	synt	any
	lconcat
	line	1163
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1172
	colm	1
	synt	any
	pfail
	end
proc lremvals
	local	0,001000,L
	local	1,001000,x
	local	2,000020,result
	local	3,000020,y
	local	4,000000,put
	declend
	line	1174
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	1177
	colm	14
	synt	any
	llist	0
	line	1177
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1179
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	0
	line	1179
	colm	15
	synt	any
	bang
	line	1179
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	1180
	colm	7
	synt	ifelse
	mark	L5
	pnull
	var	3
	pnull
	var	1
	line	1180
	colm	16
	synt	any
	bang
	line	1180
	colm	12
	synt	any
	eqv
	unmark
	unmark
	goto	L3
	goto	L6
lab L5
	var	4
	var	2
	var	3
	line	1181
	colm	15
	synt	any
	invoke	2
lab L6
	line	1180
	colm	7
	synt	endifelse
	unmark
lab L3
	efail
lab L4
	line	1179
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L7
	mark	L8
	var	2
	line	1183
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	1185
	colm	1
	synt	any
	pfail
	end
proc lrepl
	local	0,001000,L
	local	1,001000,i
	local	2,000020,j
	local	3,000020,k
	local	4,000000,integer
	local	5,000000,stop
	local	6,000000,copy
	local	7,000000,put
	con	0,002000,1,0
	con	1,010000,41,052,052,052,040,151,156,166,141,154,151,144,040,162,145,160,154,151,143,141,164,151,157,156,040,146,141,143,164,157,162,040,151,156,040,154,162,145,160,154,050,051
	con	2,002000,1,1
	declend
	line	1187
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	int	0
	var	4
	var	1
	line	1190
	colm	21
	synt	any
	invoke	1
	line	1190
	colm	12
	synt	any
	numlt
	line	1190
	colm	26
	synt	any
	esusp
	goto	L3
lab L2
	var	5
	str	1
	line	1190
	colm	32
	synt	any
	invoke	1
lab L3
	line	1190
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	0
	var	6
	var	0
	line	1192
	colm	13
	synt	any
	invoke	1
	line	1192
	colm	6
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	pnull
	var	0
	line	1194
	colm	9
	synt	any
	size
	line	1194
	colm	6
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	1196
	colm	4
	synt	every
	mark0
	pnull
	int	2
	pnull
	var	1
	int	2
	line	1196
	colm	17
	synt	any
	minus
	push1
	line	1196
	colm	12
	synt	any
	toby
	pop
	mark0
	line	1197
	colm	7
	synt	every
	mark0
	pnull
	var	3
	pnull
	int	2
	var	2
	push1
	line	1197
	colm	20
	synt	any
	toby
	line	1197
	colm	15
	synt	any
	asgn
	pop
	mark0
	var	7
	var	0
	pnull
	var	0
	var	3
	line	1198
	colm	18
	synt	any
	subsc
	line	1198
	colm	13
	synt	any
	invoke	2
	unmark
lab L9
	efail
lab L10
	line	1197
	colm	7
	synt	endevery
	unmark
lab L7
	efail
lab L8
	line	1196
	colm	4
	synt	endevery
	unmark
lab L6
	mark	L11
	mark	L12
	var	0
	line	1200
	colm	4
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	1202
	colm	1
	synt	any
	pfail
	end
proc lreverse
	local	0,001000,L
	local	1,000020,i
	local	2,000000,copy
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	1204
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1207
	colm	13
	synt	any
	invoke	1
	line	1207
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1209
	colm	4
	synt	every
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	pnull
	var	0
	line	1209
	colm	20
	synt	any
	size
	int	1
	line	1209
	colm	23
	synt	any
	div
	push1
	line	1209
	colm	17
	synt	any
	toby
	line	1209
	colm	12
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	1
	line	1210
	colm	8
	synt	any
	subsc
	pnull
	var	0
	pnull
	var	1
	line	1210
	colm	18
	synt	any
	neg
	line	1210
	colm	17
	synt	any
	subsc
	line	1210
	colm	12
	synt	any
	swap
	unmark
lab L3
	efail
lab L4
	line	1209
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	0
	line	1212
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1214
	colm	1
	synt	any
	pfail
	end
proc lrotate
	local	0,001000,L
	local	1,001000,i
	local	2,000000,copy
	local	3,000000,put
	local	4,000000,get
	local	5,000000,push
	local	6,000000,pull
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	1216
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	1218
	colm	4
	synt	any
	null
	int	0
	line	1218
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	var	2
	var	0
	line	1220
	colm	13
	synt	any
	invoke	1
	line	1220
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1222
	colm	4
	synt	ifelse
	mark	L4
	pnull
	var	1
	int	1
	line	1222
	colm	9
	synt	any
	numgt
	unmark
	line	1223
	colm	7
	synt	every
	mark0
	pnull
	int	0
	var	1
	push1
	line	1223
	colm	15
	synt	any
	toby
	pop
	mark0
	var	3
	var	0
	var	4
	var	0
	line	1224
	colm	20
	synt	any
	invoke	1
	line	1224
	colm	13
	synt	any
	invoke	2
	unmark
lab L6
	efail
lab L7
	line	1223
	colm	7
	synt	endevery
	goto	L5
lab L4
	line	1226
	colm	7
	synt	every
	mark0
	pnull
	int	0
	pnull
	var	1
	line	1226
	colm	18
	synt	any
	neg
	push1
	line	1226
	colm	15
	synt	any
	toby
	pop
	mark0
	var	5
	var	0
	var	6
	var	0
	line	1227
	colm	22
	synt	any
	invoke	1
	line	1227
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	efail
lab L9
	line	1226
	colm	7
	synt	endevery
lab L5
	line	1222
	colm	4
	synt	endifelse
	unmark
lab L3
	mark	L10
	mark	L11
	var	0
	line	1229
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	1231
	colm	1
	synt	any
	pfail
	end
proc lrpad
	local	0,001000,L
	local	1,001000,i
	local	2,001000,x
	local	3,000000,copy
	local	4,000000,put
	declend
	line	1233
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	1235
	colm	13
	synt	any
	invoke	1
	line	1235
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	1237
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	0
	line	1237
	colm	10
	synt	any
	size
	var	1
	line	1237
	colm	13
	synt	any
	numlt
	unmark
	mark	L3
	var	4
	var	0
	var	2
	line	1237
	colm	23
	synt	any
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	line	1237
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	1239
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1241
	colm	1
	synt	any
	pfail
	end
proc lrtrim
	local	0,001000,L
	local	1,001000,S
	local	2,000000,copy
	local	3,000000,member
	local	4,000000,pull
	con	0,002000,1,1
	declend
	line	1243
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1245
	colm	13
	synt	any
	invoke	1
	line	1245
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	1247
	colm	4
	synt	while
	mark0
	var	3
	var	1
	pnull
	var	0
	pnull
	int	0
	line	1247
	colm	22
	synt	any
	neg
	line	1247
	colm	21
	synt	any
	subsc
	line	1247
	colm	16
	synt	any
	invoke	2
	unmark
	mark	L3
	var	4
	var	0
	line	1248
	colm	11
	synt	any
	invoke	1
lab L4
	unmark
	goto	L3
lab L5
	line	1247
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	1250
	colm	5
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	1252
	colm	1
	synt	any
	pfail
	end
proc lshift
	local	0,001000,L
	local	1,001000,i
	local	2,000000,copy
	declend
	line	1254
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1256
	colm	13
	synt	any
	invoke	1
	line	1256
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1258
	colm	4
	synt	every
	mark0
	pnull
	pnull
	var	0
	line	1258
	colm	10
	synt	any
	bang
	dup
	var	1
	line	1258
	colm	13
	synt	any
	plus
	asgn
	pop
lab L3
	efail
lab L4
	line	1258
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	0
	line	1260
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1262
	colm	1
	synt	any
	pfail
	end
proc lswap
	local	0,001000,L
	local	1,000020,i
	local	2,000000,copy
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	1264
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	1267
	colm	13
	synt	any
	invoke	1
	line	1267
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1269
	colm	4
	synt	every
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	0
	line	1269
	colm	20
	synt	any
	size
	int	1
	line	1269
	colm	17
	synt	any
	toby
	line	1269
	colm	12
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	1
	line	1270
	colm	8
	synt	any
	subsc
	pnull
	var	0
	pnull
	var	1
	int	0
	line	1270
	colm	20
	synt	any
	plus
	line	1270
	colm	17
	synt	any
	subsc
	line	1270
	colm	12
	synt	any
	swap
	unmark
lab L3
	efail
lab L4
	line	1269
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	0
	line	1272
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1274
	colm	1
	synt	any
	pfail
	end
proc lunique
	local	0,001000,L
	local	1,000020,result
	local	2,000020,culls
	local	3,000020,x
	local	4,000000,set
	local	5,000000,member
	local	6,000000,delete
	local	7,000000,put
	declend
	line	1276
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	1279
	colm	14
	synt	any
	llist	0
	line	1279
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	4
	var	0
	line	1280
	colm	16
	synt	any
	invoke	1
	line	1280
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1282
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	0
	line	1282
	colm	15
	synt	any
	bang
	line	1282
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	1283
	colm	7
	synt	if
	mark0
	var	5
	var	2
	var	3
	line	1283
	colm	16
	synt	any
	invoke	2
	unmark
	mark	L6
	var	6
	var	2
	var	3
	line	1284
	colm	16
	synt	any
	invoke	2
	unmark
lab L6
	var	7
	var	1
	var	3
	line	1285
	colm	13
	synt	any
	invoke	2
	line	1283
	colm	7
	synt	endif
	unmark
lab L4
	efail
lab L5
	line	1282
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L7
	mark	L8
	var	1
	line	1288
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	1290
	colm	1
	synt	any
	pfail
	end
proc lmaxlen
	local	0,001000,L
	local	1,001000,p
	local	2,000020,i
	local	3,000000,proc
	con	0,010000,1,052
	con	1,002000,1,1
	declend
	line	1292
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	1295
	colm	4
	synt	any
	null
	var	3
	str	0
	int	1
	line	1295
	colm	14
	synt	any
	invoke	2
	line	1295
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	mark	L3
	var	1
	pnull
	var	0
	int	1
	line	1297
	colm	12
	synt	any
	subsc
	line	1297
	colm	10
	synt	any
	invoke	1
	line	1297
	colm	17
	synt	any
	esusp
	goto	L4
lab L3
	line	1297
	colm	19
	synt	any
	pfail
lab L4
	line	1297
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	line	1299
	colm	4
	synt	every
	mark0
	pnull
	var	2
	dup
	var	1
	pnull
	var	0
	line	1299
	colm	18
	synt	any
	bang
	line	1299
	colm	17
	synt	any
	invoke	1
	line	1299
	colm	12
	synt	any
	numlt
	asgn
	pop
lab L6
	efail
lab L7
	line	1299
	colm	4
	synt	endevery
	unmark
lab L5
	mark	L8
	mark	L9
	var	2
	line	1301
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	1303
	colm	1
	synt	any
	pfail
	end
proc lminlen
	local	0,001000,L
	local	1,001000,p
	local	2,000020,i
	local	3,000000,proc
	con	0,010000,1,052
	con	1,002000,1,1
	declend
	line	1305
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	1308
	colm	4
	synt	any
	null
	var	3
	str	0
	int	1
	line	1308
	colm	14
	synt	any
	invoke	2
	line	1308
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	mark	L3
	var	1
	pnull
	var	0
	int	1
	line	1310
	colm	12
	synt	any
	subsc
	line	1310
	colm	10
	synt	any
	invoke	1
	line	1310
	colm	17
	synt	any
	esusp
	goto	L4
lab L3
	line	1310
	colm	19
	synt	any
	pfail
lab L4
	line	1310
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	line	1312
	colm	4
	synt	every
	mark0
	pnull
	var	2
	dup
	var	1
	pnull
	var	0
	line	1312
	colm	18
	synt	any
	bang
	line	1312
	colm	17
	synt	any
	invoke	1
	line	1312
	colm	12
	synt	any
	numgt
	asgn
	pop
lab L6
	efail
lab L7
	line	1312
	colm	4
	synt	endevery
	unmark
lab L5
	mark	L8
	mark	L9
	var	2
	line	1314
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	1316
	colm	1
	synt	any
	pfail
	end
proc sortkeys
	local	0,001000,L
	local	1,000020,result
	local	2,000000,put
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	1318
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	1321
	colm	14
	synt	any
	llist	0
	line	1321
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1323
	colm	4
	synt	every
	mark0
	var	2
	var	1
	pnull
	var	0
	pnull
	int	0
	pnull
	var	0
	line	1323
	colm	29
	synt	any
	size
	int	1
	line	1323
	colm	26
	synt	any
	toby
	line	1323
	colm	23
	synt	any
	subsc
	line	1323
	colm	13
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	1323
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	1325
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1327
	colm	1
	synt	any
	pfail
	end
proc sortvalues
	local	0,001000,L
	local	1,000020,result
	local	2,000000,put
	con	0,002000,1,2
	declend
	line	1329
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	1332
	colm	14
	synt	any
	llist	0
	line	1332
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1334
	colm	4
	synt	every
	mark0
	var	2
	var	1
	pnull
	var	0
	pnull
	int	0
	pnull
	var	0
	line	1334
	colm	29
	synt	any
	size
	int	0
	line	1334
	colm	26
	synt	any
	toby
	line	1334
	colm	23
	synt	any
	subsc
	line	1334
	colm	13
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	1334
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	1336
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1338
	colm	1
	synt	any
	pfail
	end
proc str2lst
	local	0,001000,s
	local	1,001000,i
	local	2,000020,L
	local	3,000000,put
	local	4,000000,move
	local	5,000000,pos
	local	6,000000,tab
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	1340
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	1343
	colm	4
	synt	any
	null
	int	0
	line	1343
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	line	1345
	colm	9
	synt	any
	llist	0
	line	1345
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	0
	line	1347
	colm	6
	synt	any
	bscan
	mark	L4
lab L5
	line	1348
	colm	7
	synt	while
	mark0
	var	3
	var	2
	var	4
	var	1
	line	1348
	colm	24
	synt	any
	invoke	1
	line	1348
	colm	16
	synt	any
	invoke	2
lab L6
	unmark
	goto	L5
lab L7
	line	1348
	colm	7
	synt	endwhile
	unmark
lab L4
	line	1349
	colm	7
	synt	if
	mark0
	mark	L8
	var	5
	int	1
	line	1349
	colm	17
	synt	any
	invoke	1
	unmark
	efail
lab L8
	pnull
	unmark
	var	3
	var	2
	var	6
	int	1
	line	1349
	colm	36
	synt	any
	invoke	1
	line	1349
	colm	29
	synt	any
	invoke	2
	line	1349
	colm	7
	synt	endif
	line	1347
	colm	6
	synt	any
	escan
	unmark
lab L3
	mark	L9
	mark	L10
	var	2
	line	1352
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	1354
	colm	1
	synt	any
	pfail
	end
