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
	filen	lists.icn
	line	287
	colm	11
	init	L1
	mark	L1
	mark	L2
	pnull
	var	2
	pnull
	line	295
	colm	19
	llist	0
	line	295
	colm	16
	asgn
	unmark
lab L2
	pnull
	var	3
	int	0
	line	296
	colm	15
	asgn
	unmark
lab L1
	mark	L3
	pnull
	var	1
	var	4
	var	2
	var	3
	line	302
	colm	32
	invoke	2
	line	302
	colm	18
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	var	0
	line	311
	colm	12
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	int	0
	line	312
	colm	12
	asgn
	unmark
lab L5
	mark	L6
	mark0
	var	1
	line	313
	colm	5
	psusp
	pop
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L9
	pnull
	var	2
	pnull
	var	1
	line	319
	colm	27
	field	subject
	line	319
	colm	12
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	3
	pnull
	var	1
	line	320
	colm	26
	field	pos
	line	320
	colm	11
	asgn
	unmark
lab L10
	mark	L11
	line	326
	colm	5
	pfail
	unmark
lab L11
	pnull
	line	328
	colm	1
	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	332
	colm	11
	mark	L1
	pnull
	var	2
	var	3
	var	4
	var	5
	line	345
	colm	32
	invoke	2
	line	345
	colm	18
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	pnull
	var	0
	line	352
	colm	27
	field	subject
	line	352
	colm	12
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	pnull
	var	0
	line	353
	colm	26
	field	pos
	line	353
	colm	11
	asgn
	unmark
lab L3
	mark	L4
	mark0
	var	1
	line	354
	colm	5
	psusp
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	pnull
	var	4
	pnull
	var	2
	line	362
	colm	27
	field	subject
	line	362
	colm	12
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	5
	pnull
	var	2
	line	363
	colm	26
	field	pos
	line	363
	colm	11
	asgn
	unmark
lab L8
	mark	L9
	line	372
	colm	5
	pfail
	unmark
lab L9
	pnull
	line	374
	colm	1
	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	378
	colm	11
	mark	L1
	pnull
	var	0
	line	388
	colm	5
	null
	pop
	var	6
	str	0
	line	388
	colm	15
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	7
	var	0
	line	389
	colm	12
	invoke	1
	str	1
	line	389
	colm	17
	lexeq
	unmark
	pnull
	var	0
	var	8
	var	0
	line	389
	colm	41
	invoke	1
	line	389
	colm	34
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	391
	colm	5
	null
	var	9
	line	391
	colm	9
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	2
	line	392
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	2
	int	2
	line	393
	colm	14
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	394
	colm	18
	size
	pnull
	var	2
	int	2
	line	394
	colm	26
	plus
	line	394
	colm	22
	plus
	line	394
	colm	15
	asgn
	goto	L6
lab L5
	pnull
	var	2
	mark	L7
	pnull
	var	10
	line	396
	colm	15
	nonnull
	esusp
	goto	L8
lab L7
	int	2
lab L8
	line	396
	colm	12
	asgn
lab L6
	unmark
lab L4
	mark	L9
	mark	L10
	pnull
	var	3
	line	397
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	3
	int	2
	line	398
	colm	14
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	399
	colm	18
	size
	pnull
	var	3
	int	2
	line	399
	colm	26
	plus
	line	399
	colm	22
	plus
	line	399
	colm	15
	asgn
	goto	L11
lab L10
	pnull
	var	3
	pnull
	pnull
	var	9
	line	401
	colm	15
	size
	int	2
	line	401
	colm	22
	plus
	line	401
	colm	12
	asgn
lab L11
	unmark
lab L9
	mark	L12
	pnull
	pnull
	var	2
	int	2
	line	403
	colm	7
	plus
	var	3
	line	403
	colm	11
	numgt
	pop
	pnull
	var	2
	var	3
	line	403
	colm	19
	swap
	unmark
lab L12
	mark	L13
	mark0
	pnull
	var	5
	pnull
	var	0
	line	404
	colm	20
	bang
	line	404
	colm	17
	asgn
	pop
	mark0
	mark	L16
	mark0
	mark	L17
	pushn1
	pnull
	var	7
	var	5
	line	405
	colm	21
	invoke	1
	str	3
	line	405
	colm	29
	lexeq
	pnull
	pnull
	var	5
	line	405
	colm	40
	size
	int	2
	line	405
	colm	47
	numeq
	line	405
	colm	16
	invoke	2
	unmark
	efail
lab L17
	pnull
	unmark
	var	6
	str	4
	line	406
	colm	17
	invoke	1
	unmark
lab L16
	mark0
	pnull
	var	4
	var	11
	var	5
	var	1
	var	2
	pnull
	var	2
	int	2
	line	408
	colm	37
	plus
	line	408
	colm	24
	invoke	4
	line	408
	colm	14
	asgn
	unmark
	mark	L18
	var	4
	line	409
	colm	13
	pret
lab L18
	pfail
	unmark
lab L14
	efail
lab L15
	unmark
lab L13
	pnull
	line	412
	colm	1
	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	416
	colm	11
	mark	L1
	pnull
	var	0
	line	420
	colm	5
	null
	pop
	var	11
	str	0
	line	420
	colm	15
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	12
	var	0
	line	421
	colm	12
	invoke	1
	str	1
	line	421
	colm	17
	lexeq
	unmark
	pnull
	var	0
	var	13
	var	0
	line	421
	colm	41
	invoke	1
	line	421
	colm	34
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	12
	var	1
	line	422
	colm	12
	invoke	1
	str	1
	line	422
	colm	17
	lexeq
	unmark
	pnull
	var	0
	var	13
	var	1
	line	422
	colm	41
	invoke	1
	line	422
	colm	34
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	12
	var	2
	line	423
	colm	12
	invoke	1
	str	1
	line	423
	colm	17
	lexeq
	unmark
	pnull
	var	0
	var	13
	var	2
	line	423
	colm	41
	invoke	1
	line	423
	colm	34
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	1
	line	425
	colm	8
	null
	var	14
	line	425
	colm	12
	asgn
	unmark
	pnull
	var	6
	mark	L8
	pnull
	var	15
	line	426
	colm	25
	nonnull
	esusp
	goto	L9
lab L8
	int	2
lab L9
	line	426
	colm	22
	asgn
	goto	L7
lab L6
	pnull
	var	6
	int	2
	line	427
	colm	22
	asgn
lab L7
	unmark
lab L5
	mark	L10
	mark	L11
	pnull
	var	4
	line	429
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	4
	int	2
	line	430
	colm	14
	numlt
	unmark
	pnull
	var	4
	pnull
	pnull
	var	1
	line	431
	colm	18
	size
	pnull
	var	4
	int	2
	line	431
	colm	26
	plus
	line	431
	colm	22
	plus
	line	431
	colm	15
	asgn
	goto	L12
lab L11
	pnull
	var	4
	var	6
	line	433
	colm	12
	asgn
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	pnull
	var	5
	line	435
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	5
	int	2
	line	436
	colm	14
	numlt
	unmark
	pnull
	var	5
	pnull
	pnull
	var	1
	line	437
	colm	18
	size
	pnull
	var	5
	int	2
	line	437
	colm	26
	plus
	line	437
	colm	22
	plus
	line	437
	colm	15
	asgn
	goto	L15
lab L14
	pnull
	var	5
	pnull
	pnull
	var	14
	line	439
	colm	15
	size
	int	2
	line	439
	colm	22
	plus
	line	439
	colm	12
	asgn
lab L15
	unmark
lab L13
	mark	L16
	pnull
	var	7
	pnull
	var	8
	int	3
	line	441
	colm	26
	asgn
	line	441
	colm	14
	asgn
	unmark
lab L16
	mark	L17
	mark0
	pnull
	var	9
	pnull
	var	4
	pnull
	var	5
	int	2
	line	443
	colm	22
	minus
	push1
	line	443
	colm	18
	toby
	line	443
	colm	13
	asgn
	pop
	mark0
	mark	L20
	mark0
	var	16
	var	1
	var	3
	var	9
	pnull
	var	9
	int	2
	line	445
	colm	29
	plus
	line	445
	colm	17
	invoke	4
	unmark
	pnull
	var	7
	dup
	int	2
	line	446
	colm	22
	plus
	asgn
	unmark
lab L20
	mark	L21
	mark0
	var	16
	var	2
	var	3
	var	9
	pnull
	var	9
	int	2
	line	448
	colm	29
	plus
	line	448
	colm	17
	invoke	4
	unmark
	pnull
	var	8
	dup
	int	2
	line	449
	colm	22
	plus
	asgn
	unmark
lab L21
	mark0
	pnull
	var	7
	var	8
	line	451
	colm	21
	numeq
	unmark
	mark0
	var	16
	var	0
	var	3
	var	9
	pnull
	var	9
	int	2
	line	452
	colm	30
	plus
	line	452
	colm	21
	invoke	4
	unmark
	mark0
	var	9
	line	453
	colm	18
	psusp
	pop
lab L22
	efail
lab L23
	unmark
lab L18
	efail
lab L19
	unmark
lab L17
	pnull
	line	457
	colm	1
	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	461
	colm	11
	mark	L1
	mark	L2
	pnull
	var	0
	line	470
	colm	5
	null
	esusp
	goto	L3
lab L2
	pnull
	var	1
	line	470
	colm	11
	null
lab L3
	pop
	var	3
	str	0
	line	470
	colm	21
	invoke	1
	unmark
lab L1
	mark	L4
	pnull
	var	0
	var	1
	line	471
	colm	8
	eqv
	pop
	mark	L5
	var	1
	line	471
	colm	18
	pret
lab L5
	pfail
	unmark
lab L4
	mark	L6
	mark0
	pnull
	pnull
	var	4
	var	0
	line	473
	colm	12
	invoke	1
	var	4
	var	1
	line	473
	colm	24
	invoke	1
	line	473
	colm	17
	lexeq
	str	1
	line	473
	colm	29
	lexeq
	unmark
	mark	L7
	pnull
	pnull
	var	0
	line	474
	colm	9
	size
	pnull
	var	1
	line	474
	colm	16
	size
	line	474
	colm	13
	numne
	pop
	line	474
	colm	22
	pfail
	unmark
lab L7
	mark	L8
	mark0
	pnull
	var	2
	pnull
	int	2
	pnull
	var	0
	line	475
	colm	25
	size
	push1
	line	475
	colm	22
	toby
	line	475
	colm	17
	asgn
	pop
	mark0
	mark	L11
	var	5
	pnull
	var	0
	var	2
	line	476
	colm	21
	subsc
	pnull
	var	1
	var	2
	line	476
	colm	27
	subsc
	line	476
	colm	18
	invoke	2
	esusp
	goto	L12
lab L11
	line	476
	colm	34
	pfail
lab L12
	unmark
lab L9
	efail
lab L10
	unmark
lab L8
	mark	L13
	var	1
	line	477
	colm	9
	pret
lab L13
	pfail
	unmark
lab L6
	pnull
	line	480
	colm	1
	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	484
	colm	11
	mark	L1
	pnull
	var	0
	line	492
	colm	5
	null
	pop
	var	7
	str	0
	line	492
	colm	15
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	pnull
	var	1
	line	494
	colm	8
	null
	var	8
	line	494
	colm	12
	asgn
	unmark
	pnull
	var	6
	mark	L5
	pnull
	var	9
	line	495
	colm	25
	nonnull
	esusp
	goto	L6
lab L5
	int	1
lab L6
	line	495
	colm	22
	asgn
	goto	L4
lab L3
	pnull
	var	6
	int	1
	line	496
	colm	22
	asgn
lab L4
	unmark
lab L2
	mark	L7
	mark	L8
	pnull
	var	2
	line	498
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	2
	int	1
	line	499
	colm	14
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	500
	colm	18
	size
	pnull
	var	2
	int	1
	line	500
	colm	26
	plus
	line	500
	colm	22
	plus
	line	500
	colm	15
	asgn
	goto	L9
lab L8
	pnull
	var	2
	var	6
	line	502
	colm	12
	asgn
lab L9
	unmark
lab L7
	mark	L10
	mark	L11
	pnull
	var	3
	line	504
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	3
	int	1
	line	505
	colm	14
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	506
	colm	18
	size
	pnull
	var	3
	int	1
	line	506
	colm	26
	plus
	line	506
	colm	22
	plus
	line	506
	colm	15
	asgn
	goto	L12
lab L11
	pnull
	var	3
	pnull
	pnull
	var	8
	line	508
	colm	15
	size
	int	1
	line	508
	colm	22
	plus
	line	508
	colm	12
	asgn
lab L12
	unmark
lab L10
	mark	L13
	pnull
	var	5
	var	9
	line	514
	colm	15
	asgn
	unmark
lab L13
	mark	L14
	mark0
	var	10
	var	11
	pnull
	var	1
	var	2
	var	3
	line	516
	colm	33
	sect
	line	516
	colm	28
	invoke	1
	var	12
	pnull
	int	1
	pnull
	var	8
	line	517
	colm	20
	size
	push1
	line	517
	colm	17
	toby
	line	517
	colm	14
	invoke	1
	pop
	mark0
	var	13
	var	0
	line	518
	colm	23
	invoke	1
	unmark
	pnull
	var	5
	pnull
	var	9
	int	1
	line	519
	colm	35
	minus
	line	519
	colm	27
	plus
	line	516
	colm	20
	invoke	2
	line	516
	colm	5
	psusp
	pop
lab L15
	efail
lab L16
	unmark
lab L14
	pnull
	line	523
	colm	1
	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	527
	colm	11
	mark	L1
	pnull
	var	0
	line	531
	colm	5
	null
	pop
	var	7
	str	0
	line	531
	colm	15
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	8
	var	0
	line	532
	colm	12
	invoke	1
	str	1
	line	532
	colm	17
	lexeq
	unmark
	pnull
	var	0
	var	9
	var	0
	line	532
	colm	41
	invoke	1
	line	532
	colm	34
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	pnull
	var	1
	line	534
	colm	8
	null
	var	10
	line	534
	colm	12
	asgn
	unmark
	pnull
	var	6
	mark	L6
	pnull
	var	11
	line	535
	colm	25
	nonnull
	esusp
	goto	L7
lab L6
	int	2
lab L7
	line	535
	colm	22
	asgn
	goto	L5
lab L4
	pnull
	var	6
	int	2
	line	536
	colm	22
	asgn
lab L5
	unmark
lab L3
	mark	L8
	mark	L9
	pnull
	var	2
	line	538
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	2
	int	2
	line	539
	colm	14
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	540
	colm	18
	size
	pnull
	var	2
	int	2
	line	540
	colm	26
	plus
	line	540
	colm	22
	plus
	line	540
	colm	15
	asgn
	goto	L10
lab L9
	pnull
	var	2
	var	6
	line	542
	colm	12
	asgn
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	var	3
	line	544
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	3
	int	2
	line	545
	colm	14
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	546
	colm	18
	size
	pnull
	var	3
	int	2
	line	546
	colm	26
	plus
	line	546
	colm	22
	plus
	line	546
	colm	15
	asgn
	goto	L13
lab L12
	pnull
	var	3
	pnull
	pnull
	var	10
	line	548
	colm	15
	size
	int	2
	line	548
	colm	22
	plus
	line	548
	colm	12
	asgn
lab L13
	unmark
lab L11
	mark	L14
	pnull
	var	5
	var	11
	line	555
	colm	15
	asgn
	unmark
lab L14
	mark	L15
	var	12
	var	13
	pnull
	var	1
	var	2
	var	3
	line	556
	colm	25
	sect
	line	556
	colm	20
	invoke	1
	mark	L16
lab L17
	mark0
	var	14
	var	15
	var	0
	line	557
	colm	26
	invoke	1
	line	557
	colm	20
	invoke	1
lab L18
	unmark
	goto	L17
lab L19
	unmark
lab L16
	pnull
	var	4
	pnull
	var	5
	pnull
	var	11
	int	2
	line	558
	colm	32
	minus
	line	558
	colm	24
	plus
	line	558
	colm	11
	asgn
	line	556
	colm	12
	invoke	2
	unmark
lab L15
	mark	L20
	mark	L21
	pnull
	var	5
	var	4
	line	565
	colm	22
	numne
	line	565
	colm	5
	pret
lab L21
	pfail
	unmark
lab L20
	pnull
	line	567
	colm	1
	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	571
	colm	11
	mark	L1
	mark0
	pnull
	var	0
	line	581
	colm	8
	null
	unmark
	var	5
	str	0
	line	582
	colm	14
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	6
	var	0
	line	583
	colm	12
	invoke	1
	str	1
	line	583
	colm	17
	lexne
	unmark
	var	5
	str	2
	line	584
	colm	14
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	pnull
	var	1
	line	586
	colm	8
	null
	var	7
	line	586
	colm	12
	asgn
	unmark
	pnull
	var	4
	mark	L6
	pnull
	var	8
	line	587
	colm	25
	nonnull
	esusp
	goto	L7
lab L6
	int	3
lab L7
	line	587
	colm	22
	asgn
	goto	L5
lab L4
	pnull
	var	4
	int	3
	line	588
	colm	22
	asgn
lab L5
	unmark
lab L3
	mark	L8
	mark	L9
	pnull
	var	2
	line	590
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	2
	int	3
	line	591
	colm	14
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	592
	colm	18
	size
	pnull
	var	2
	int	3
	line	592
	colm	26
	plus
	line	592
	colm	22
	plus
	line	592
	colm	15
	asgn
	goto	L10
lab L9
	pnull
	var	2
	var	4
	line	594
	colm	12
	asgn
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	var	3
	line	596
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	3
	int	3
	line	597
	colm	14
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	598
	colm	18
	size
	pnull
	var	3
	int	3
	line	598
	colm	26
	plus
	line	598
	colm	22
	plus
	line	598
	colm	15
	asgn
	goto	L13
lab L12
	pnull
	var	3
	pnull
	pnull
	var	7
	line	600
	colm	15
	size
	int	3
	line	600
	colm	22
	plus
	line	600
	colm	12
	asgn
lab L13
	unmark
lab L11
	mark	L14
	pnull
	pnull
	var	2
	pnull
	var	0
	line	602
	colm	9
	size
	line	602
	colm	7
	plus
	var	3
	line	602
	colm	13
	numgt
	pop
	pnull
	var	2
	var	3
	line	602
	colm	21
	swap
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	2
	pnull
	var	0
	line	603
	colm	9
	size
	line	603
	colm	7
	plus
	var	3
	line	603
	colm	13
	numgt
	pop
	line	603
	colm	19
	pfail
	unmark
lab L15
	mark	L16
	mark0
	var	9
	var	0
	pnull
	var	1
	var	2
	dup
	pnull
	var	0
	line	604
	colm	24
	size
	line	604
	colm	22
	plus
	sect
	line	604
	colm	14
	invoke	2
	unmark
	mark	L17
	pnull
	var	2
	pnull
	var	0
	line	605
	colm	20
	size
	line	605
	colm	18
	plus
	line	605
	colm	9
	pret
lab L17
	pfail
	unmark
lab L16
	pnull
	line	607
	colm	1
	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	611
	colm	11
	mark	L1
	pnull
	var	0
	line	613
	colm	5
	null
	pop
	var	1
	str	0
	line	613
	colm	14
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	mark	L3
	pnull
	var	2
	line	614
	colm	8
	null
	esusp
	goto	L4
lab L3
	pnull
	var	3
	line	614
	colm	17
	null
lab L4
	unmark
	var	1
	str	1
	line	615
	colm	13
	invoke	1
	unmark
lab L2
	mark	L5
	mark0
	pnull
	var	3
	pnull
	var	2
	line	623
	colm	20
	value
	pnull
	var	2
	pnull
	int	2
	pnull
	pnull
	pnull
	var	3
	line	623
	colm	42
	size
	int	3
	line	623
	colm	49
	plus
	pnull
	var	2
	var	0
	line	623
	colm	60
	plus
	line	623
	colm	52
	numge
	line	623
	colm	39
	numlt
	line	623
	colm	33
	rasgn
	line	623
	colm	26
	sect
	line	623
	colm	5
	psusp
	pop
lab L6
	efail
lab L7
	unmark
lab L5
	pnull
	line	625
	colm	1
	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	629
	colm	11
	mark	L1
	mark0
	mark	L2
	pnull
	var	2
	line	633
	colm	8
	null
	esusp
	goto	L3
lab L2
	pnull
	var	3
	line	633
	colm	17
	null
lab L3
	unmark
	var	4
	str	0
	line	634
	colm	14
	invoke	1
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	int	1
	line	636
	colm	10
	numle
	unmark
	pnull
	var	1
	mark	L7
	pnull
	int	1
	pnull
	pnull
	pnull
	var	3
	line	637
	colm	20
	size
	int	2
	line	637
	colm	27
	plus
	pnull
	pnull
	pnull
	var	3
	line	637
	colm	34
	size
	int	2
	line	637
	colm	41
	plus
	var	0
	line	637
	colm	44
	plus
	line	637
	colm	30
	numge
	line	637
	colm	17
	numlt
	esusp
	goto	L8
lab L7
	line	637
	colm	50
	pfail
lab L8
	line	637
	colm	12
	asgn
	goto	L6
lab L5
	pnull
	var	1
	mark	L9
	pnull
	int	1
	pnull
	pnull
	pnull
	var	3
	line	638
	colm	20
	size
	int	2
	line	638
	colm	27
	plus
	var	0
	line	638
	colm	30
	numge
	line	638
	colm	17
	numlt
	esusp
	goto	L10
lab L9
	line	638
	colm	38
	pfail
lab L10
	line	638
	colm	12
	asgn
lab L6
	unmark
lab L4
	mark	L11
	mark	L12
	pnull
	var	1
	var	2
	line	640
	colm	10
	numeq
	unmark
	mark	L14
	var	1
	line	641
	colm	10
	pret
lab L14
	pfail
	goto	L13
lab L12
	line	642
	colm	10
	pfail
lab L13
	unmark
lab L11
	pnull
	line	644
	colm	1
	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	648
	colm	11
	mark	L1
	pnull
	var	0
	line	650
	colm	5
	null
	pop
	var	1
	str	0
	line	650
	colm	14
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	mark	L3
	pnull
	var	2
	line	651
	colm	8
	null
	esusp
	goto	L4
lab L3
	pnull
	var	3
	line	651
	colm	17
	null
lab L4
	unmark
	var	1
	str	1
	line	652
	colm	13
	invoke	1
	unmark
lab L2
	mark	L5
	mark	L6
	pnull
	var	0
	int	2
	line	654
	colm	10
	numle
	unmark
	mark0
	pnull
	var	3
	pnull
	var	2
	line	655
	colm	25
	value
	pnull
	var	2
	pnull
	int	2
	pnull
	pnull
	pnull
	var	3
	line	655
	colm	46
	size
	int	3
	line	655
	colm	53
	plus
	pnull
	pnull
	pnull
	var	3
	line	655
	colm	60
	size
	int	3
	line	655
	colm	67
	plus
	var	0
	line	655
	colm	70
	plus
	line	655
	colm	56
	numge
	line	655
	colm	43
	numlt
	line	655
	colm	38
	rasgn
	line	655
	colm	31
	sect
	line	655
	colm	10
	psusp
	pop
lab L8
	efail
lab L9
	goto	L7
lab L6
	mark0
	pnull
	var	3
	pnull
	var	2
	line	656
	colm	25
	value
	pnull
	var	2
	pnull
	int	2
	pnull
	pnull
	pnull
	var	3
	line	656
	colm	46
	size
	int	3
	line	656
	colm	53
	plus
	var	0
	line	656
	colm	56
	numge
	line	656
	colm	43
	numlt
	line	656
	colm	38
	rasgn
	line	656
	colm	31
	sect
	line	656
	colm	10
	psusp
	pop
lab L10
	efail
lab L11
lab L7
	unmark
lab L5
	pnull
	line	658
	colm	1
	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	662
	colm	11
	mark	L1
	pnull
	var	0
	line	671
	colm	5
	null
	pop
	var	6
	str	0
	line	671
	colm	15
	invoke	1
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	7
	var	0
	line	672
	colm	12
	invoke	1
	str	1
	line	672
	colm	17
	lexeq
	unmark
	pnull
	var	0
	var	8
	var	0
	line	672
	colm	41
	invoke	1
	line	672
	colm	34
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	pnull
	var	1
	line	674
	colm	8
	null
	var	9
	line	674
	colm	12
	asgn
	unmark
	pnull
	var	5
	mark	L6
	pnull
	var	10
	line	675
	colm	25
	nonnull
	esusp
	goto	L7
lab L6
	int	2
lab L7
	line	675
	colm	22
	asgn
	goto	L5
lab L4
	pnull
	var	5
	int	2
	line	676
	colm	22
	asgn
lab L5
	unmark
lab L3
	mark	L8
	mark	L9
	pnull
	var	2
	line	678
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	2
	int	2
	line	679
	colm	14
	numlt
	unmark
	pnull
	var	2
	pnull
	pnull
	var	1
	line	680
	colm	18
	size
	pnull
	var	2
	int	2
	line	680
	colm	26
	plus
	line	680
	colm	22
	plus
	line	680
	colm	15
	asgn
	goto	L10
lab L9
	pnull
	var	2
	var	5
	line	682
	colm	12
	asgn
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	var	3
	line	684
	colm	8
	nonnull
	unmark
	mark0
	pnull
	var	3
	int	2
	line	685
	colm	14
	numlt
	unmark
	pnull
	var	3
	pnull
	pnull
	var	1
	line	686
	colm	18
	size
	pnull
	var	3
	int	2
	line	686
	colm	26
	plus
	line	686
	colm	22
	plus
	line	686
	colm	15
	asgn
	goto	L13
lab L12
	pnull
	var	3
	pnull
	pnull
	var	9
	line	688
	colm	15
	size
	int	2
	line	688
	colm	22
	plus
	line	688
	colm	12
	asgn
lab L13
	unmark
lab L11
	mark	L14
	pnull
	var	4
	var	10
	line	694
	colm	15
	asgn
	unmark
lab L14
	mark	L15
	mark0
	var	11
	var	12
	pnull
	var	1
	var	2
	var	3
	line	696
	colm	33
	sect
	line	696
	colm	28
	invoke	1
	var	13
	pnull
	int	2
	pnull
	var	9
	line	697
	colm	20
	size
	push1
	line	697
	colm	17
	toby
	line	697
	colm	14
	invoke	1
	pop
	mark0
	var	14
	var	0
	line	698
	colm	21
	invoke	1
	unmark
	pnull
	var	4
	pnull
	var	10
	int	2
	line	699
	colm	35
	minus
	line	699
	colm	27
	plus
	line	696
	colm	20
	invoke	2
	line	696
	colm	5
	psusp
	pop
lab L16
	efail
lab L17
	unmark
lab L15
	pnull
	line	718
	colm	1
	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	720
	colm	11
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	723
	colm	7
	size
	pnull
	var	1
	line	723
	colm	13
	size
	line	723
	colm	11
	numlt
	unmark
	pnull
	var	0
	var	5
	var	0
	pnull
	var	1
	line	723
	colm	40
	size
	line	723
	colm	35
	invoke	2
	line	723
	colm	25
	asgn
	goto	L3
lab L2
	mark0
	pnull
	pnull
	var	1
	line	724
	colm	12
	size
	pnull
	var	0
	line	724
	colm	18
	size
	line	724
	colm	16
	numlt
	unmark
	pnull
	var	1
	var	5
	var	1
	pnull
	var	0
	line	724
	colm	45
	size
	line	724
	colm	40
	invoke	2
	line	724
	colm	30
	asgn
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	2
	pnull
	line	726
	colm	10
	llist	0
	line	726
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	3
	pnull
	int	0
	pnull
	var	0
	line	728
	colm	21
	size
	push1
	line	728
	colm	18
	toby
	line	728
	colm	13
	asgn
	pop
	mark0
	mark0
	pnull
	var	4
	pnull
	int	0
	pnull
	var	1
	var	3
	line	729
	colm	26
	subsc
	push1
	line	729
	colm	21
	toby
	line	729
	colm	16
	asgn
	pop
	mark0
	var	6
	var	2
	pnull
	var	1
	var	3
	line	730
	colm	21
	subsc
	line	730
	colm	14
	invoke	2
	unmark
lab L8
	efail
lab L9
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L10
	mark	L11
	var	2
	line	732
	colm	7
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	734
	colm	1
	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	736
	colm	11
	mark	L1
	mark0
	pnull
	var	1
	int	0
	line	739
	colm	9
	numlt
	unmark
	line	739
	colm	18
	pfail
	unmark
lab L1
	mark	L2
	mark0
	mark	L5
	pnull
	var	1
	int	0
	line	740
	colm	17
	numeq
	unmark
	pnull
	pnull
	var	0
	line	740
	colm	27
	bang
	line	740
	colm	26
	llist	1
	goto	L6
lab L5
	pnull
	pnull
	pnull
	var	0
	pnull
	var	2
	pnull
	int	0
	pnull
	pnull
	pnull
	var	0
	line	741
	colm	25
	size
	var	1
	line	741
	colm	28
	minus
	int	0
	line	741
	colm	32
	plus
	push1
	line	741
	colm	22
	toby
	line	741
	colm	17
	asgn
	line	741
	colm	14
	subsc
	line	741
	colm	12
	llist	1
	var	3
	pnull
	var	0
	pnull
	var	2
	int	0
	line	741
	colm	52
	plus
	int	1
	line	741
	colm	55
	sect
	pnull
	var	1
	int	0
	line	741
	colm	61
	minus
	line	741
	colm	47
	invoke	2
	line	741
	colm	38
	lconcat
lab L6
	line	740
	colm	4
	psusp
	pop
lab L3
	efail
lab L4
	unmark
lab L2
	pnull
	line	743
	colm	1
	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	745
	colm	11
	mark	L1
	pnull
	var	3
	mark	L2
	var	4
	var	1
	pnull
	var	0
	line	748
	colm	25
	size
	line	748
	colm	18
	invoke	2
	esusp
	goto	L3
lab L2
	line	748
	colm	31
	pfail
lab L3
	line	748
	colm	8
	asgn
	unmark
lab L1
	mark	L4
lab L5
	mark0
	pnull
	var	2
	var	5
	var	3
	line	750
	colm	19
	invoke	1
	line	750
	colm	12
	asgn
	unmark
	mark	L5
	pnull
	var	0
	pnull
	pnull
	var	0
	int	0
	dup
	pnull
	var	2
	int	0
	line	751
	colm	19
	minus
	line	751
	colm	15
	plus
	sect
	pnull
	var	0
	pnull
	var	2
	int	0
	line	751
	colm	32
	plus
	int	1
	line	751
	colm	35
	sect
	line	751
	colm	24
	lconcat
	line	751
	colm	9
	asgn
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark	L8
	mark	L9
	var	0
	line	753
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	755
	colm	1
	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	757
	colm	11
	mark	L1
	mark0
	pnull
	var	0
	var	1
	line	760
	colm	9
	eqv
	unmark
	mark	L2
	var	1
	line	760
	colm	20
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	mark0
	pnull
	pnull
	var	3
	var	0
	line	761
	colm	11
	invoke	1
	var	3
	var	1
	line	761
	colm	22
	invoke	1
	line	761
	colm	15
	lexeq
	str	0
	line	761
	colm	26
	lexeq
	unmark
	mark	L4
	mark0
	pnull
	pnull
	var	0
	line	762
	colm	10
	size
	pnull
	var	1
	line	762
	colm	16
	size
	line	762
	colm	13
	numne
	unmark
	line	762
	colm	24
	pfail
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	2
	pnull
	int	1
	pnull
	var	0
	line	763
	colm	23
	size
	push1
	line	763
	colm	20
	toby
	line	763
	colm	15
	asgn
	pop
	mark0
	mark0
	mark	L8
	var	4
	pnull
	var	0
	var	2
	line	764
	colm	25
	subsc
	pnull
	var	1
	var	2
	line	764
	colm	30
	subsc
	line	764
	colm	23
	invoke	2
	unmark
	efail
lab L8
	pnull
	unmark
	line	764
	colm	40
	pfail
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L9
	var	1
	line	765
	colm	7
	pret
lab L9
	pfail
	unmark
lab L3
	pnull
	line	768
	colm	1
	pfail
	end
proc lextend
	local	0,001000,L
	local	1,001000,i
	local	2,001000,x
	local	3,000020,j
	local	4,000000,put
	declend
	line	770
	colm	11
	mark	L1
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	773
	colm	10
	size
	var	1
	line	773
	colm	13
	numge
	unmark
	efail
lab L3
	mark	L2
	var	4
	var	0
	var	2
	line	774
	colm	10
	invoke	2
lab L4
	unmark
	goto	L2
lab L5
	unmark
lab L1
	mark	L6
	mark	L7
	var	0
	line	776
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	778
	colm	1
	pfail
	end
proc limage
	local	0,001000,L
	local	1,000020,result
	local	2,000000,type
	local	3,000000,stop
	local	4,000000,image
	con	0,010000,4,154,151,163,164
	con	1,010000,28,052,052,052,040,151,156,166,141,154,151,144,040,164,171,160,145,040,164,157,040,154,151,155,141,147,145,050,051
	con	2,010000,0
	con	3,010000,1,054
	con	4,010000,1,133
	con	5,002000,1,1
	con	6,010000,1,135
	con	7,010000,2,133,135
	declend
	line	780
	colm	11
	mark	L1
	mark0
	pnull
	var	2
	var	0
	line	783
	colm	11
	invoke	1
	str	0
	line	783
	colm	15
	lexne
	unmark
	var	3
	str	1
	line	783
	colm	35
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	str	2
	line	785
	colm	11
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	1
	dup
	pnull
	var	4
	pnull
	var	0
	line	787
	colm	28
	bang
	line	787
	colm	27
	invoke	1
	str	3
	line	787
	colm	32
	cat
	line	787
	colm	17
	cat
	asgn
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L6
	mark	L7
	mark	L8
	pnull
	pnull
	str	4
	pnull
	var	1
	int	5
	pnull
	int	5
	line	789
	colm	28
	neg
	line	789
	colm	27
	sect
	line	789
	colm	16
	cat
	str	6
	line	789
	colm	32
	cat
	esusp
	goto	L9
lab L8
	str	7
lab L9
	line	789
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	791
	colm	1
	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	793
	colm	11
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	796
	colm	7
	size
	pnull
	var	1
	line	796
	colm	13
	size
	line	796
	colm	11
	numlt
	unmark
	pnull
	var	0
	var	4
	var	0
	pnull
	var	1
	line	796
	colm	40
	size
	line	796
	colm	35
	invoke	2
	line	796
	colm	25
	asgn
	goto	L3
lab L2
	mark0
	pnull
	pnull
	var	1
	line	797
	colm	12
	size
	pnull
	var	0
	line	797
	colm	18
	size
	line	797
	colm	16
	numlt
	unmark
	pnull
	var	1
	var	4
	var	1
	pnull
	var	0
	line	797
	colm	45
	size
	line	797
	colm	40
	invoke	2
	line	797
	colm	30
	asgn
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	2
	pnull
	line	799
	colm	10
	llist	0
	line	799
	colm	7
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	3
	pnull
	int	0
	pnull
	var	0
	line	801
	colm	20
	size
	push1
	line	801
	colm	17
	toby
	line	801
	colm	12
	asgn
	pop
	mark0
	var	5
	var	2
	pnull
	var	0
	var	3
	line	802
	colm	17
	subsc
	pnull
	var	1
	var	3
	line	802
	colm	24
	subsc
	line	802
	colm	10
	invoke	3
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L8
	mark	L9
	var	2
	line	804
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	806
	colm	1
	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	808
	colm	11
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	810
	colm	13
	invoke	1
	line	810
	colm	6
	asgn
	unmark
lab L1
	mark	L2
lab L3
	mark0
	pnull
	pnull
	var	0
	line	812
	colm	10
	size
	var	1
	line	812
	colm	13
	numlt
	unmark
	mark	L3
	var	4
	var	0
	var	2
	line	812
	colm	24
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	814
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	816
	colm	1
	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	818
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	820
	colm	13
	invoke	1
	line	820
	colm	6
	asgn
	unmark
lab L1
	mark	L2
lab L3
	mark0
	var	3
	var	1
	pnull
	var	0
	int	0
	line	822
	colm	21
	subsc
	line	822
	colm	16
	invoke	2
	unmark
	mark	L3
	var	4
	var	0
	line	823
	colm	10
	invoke	1
lab L4
	unmark
	goto	L3
lab L5
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	825
	colm	5
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	827
	colm	1
	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	829
	colm	11
	init	L1
	mark	L1
	pnull
	var	6
	pnull
	line	833
	colm	24
	llist	0
	line	833
	colm	21
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	9
	pnull
	var	8
	mark	L3
	var	0
	esusp
	goto	L4
lab L3
	mark	L5
	var	1
	esusp
	goto	L6
lab L5
	var	2
lab L6
lab L4
	line	835
	colm	14
	asgn
	line	835
	colm	11
	invoke	1
	str	0
	line	835
	colm	31
	lexne
	unmark
	var	10
	int	1
	var	8
	line	835
	colm	53
	invoke	2
	unmark
lab L2
	mark	L7
	mark0
	pnull
	pnull
	var	1
	line	836
	colm	7
	size
	pnull
	var	2
	line	836
	colm	14
	size
	line	836
	colm	11
	numne
	unmark
	var	10
	int	2
	var	1
	line	836
	colm	29
	invoke	2
	unmark
lab L7
	mark	L8
	pnull
	var	0
	var	11
	var	0
	line	838
	colm	14
	invoke	1
	line	838
	colm	7
	asgn
	unmark
lab L8
	mark	L9
	mark0
	mark	L10
	pnull
	var	3
	var	1
	line	840
	colm	17
	eqv
	pop
	pnull
	var	4
	var	2
	line	840
	colm	32
	eqv
	unmark
	efail
lab L10
	pnull
	unmark
	mark	L11
	pnull
	var	3
	var	1
	line	841
	colm	13
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	4
	var	2
	line	842
	colm	13
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	5
	var	12
	var	6
	line	843
	colm	23
	invoke	1
	line	843
	colm	15
	asgn
	unmark
lab L13
	mark0
	pnull
	var	7
	pnull
	int	3
	pnull
	var	1
	line	844
	colm	23
	size
	push1
	line	844
	colm	20
	toby
	line	844
	colm	15
	asgn
	pop
	mark0
	pnull
	pnull
	var	5
	pnull
	var	1
	var	7
	line	845
	colm	20
	subsc
	line	845
	colm	17
	subsc
	pnull
	var	2
	var	7
	line	845
	colm	30
	subsc
	line	845
	colm	25
	asgn
	unmark
lab L14
	efail
lab L15
	unmark
lab L9
	mark	L16
	mark0
	pnull
	var	7
	pnull
	int	3
	pnull
	var	0
	line	847
	colm	20
	size
	push1
	line	847
	colm	17
	toby
	line	847
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	7
	line	848
	colm	9
	subsc
	pnull
	var	6
	pnull
	var	5
	pnull
	var	0
	var	7
	line	848
	colm	41
	subsc
	line	848
	colm	38
	subsc
	line	848
	colm	26
	neqv
	line	848
	colm	13
	asgn
	unmark
lab L17
	efail
lab L18
	unmark
lab L16
	mark	L19
	mark	L20
	var	0
	line	849
	colm	4
	pret
lab L20
	pfail
	unmark
lab L19
	pnull
	line	851
	colm	1
	pfail
	end
proc lpalin
	local	0,001000,L
	local	1,001000,x
	local	2,000000,lreverse
	local	3,000000,pull
	declend
	line	853
	colm	11
	mark	L1
	pnull
	var	0
	dup
	var	2
	var	0
	line	855
	colm	20
	invoke	1
	line	855
	colm	6
	lconcat
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	1
	line	857
	colm	7
	null
	unmark
	var	3
	var	0
	line	857
	colm	19
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	var	0
	line	859
	colm	4
	pret
lab L4
	pfail
	unmark
lab L3
	pnull
	line	861
	colm	1
	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	863
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	866
	colm	7
	size
	int	0
	line	866
	colm	10
	numeq
	unmark
	mark	L2
	pnull
	line	866
	colm	26
	llist	0
	line	866
	colm	19
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	mark0
	pnull
	pnull
	pnull
	var	0
	pnull
	var	1
	pnull
	int	1
	pnull
	var	0
	line	867
	colm	25
	size
	push1
	line	867
	colm	22
	toby
	line	867
	colm	17
	asgn
	line	867
	colm	14
	subsc
	line	867
	colm	12
	llist	1
	var	2
	pnull
	pnull
	var	0
	int	1
	var	1
	line	867
	colm	46
	sect
	pnull
	var	0
	pnull
	var	1
	int	1
	line	867
	colm	57
	plus
	int	0
	line	867
	colm	59
	sect
	line	867
	colm	50
	lconcat
	line	867
	colm	42
	invoke	1
	line	867
	colm	30
	lconcat
	line	867
	colm	4
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	pnull
	line	869
	colm	1
	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	871
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	874
	colm	4
	null
	int	0
	line	874
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	1
	int	1
	line	876
	colm	9
	numgt
	unmark
	var	3
	str	2
	line	876
	colm	22
	invoke	1
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	1
	int	1
	line	878
	colm	9
	numlt
	unmark
	pnull
	var	2
	var	4
	var	0
	line	878
	colm	28
	invoke	1
	line	878
	colm	21
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	0
	var	5
	mark0
	var	1
	eret
	mark	L7
	ccase
	int	0
	line	882
	colm	11
	eqv
	unmark
	pop
	mark	L8
	var	6
	var	2
	line	882
	colm	19
	invoke	1
	unmark
lab L8
	mark	L9
	var	7
	var	2
	line	882
	colm	29
	invoke	1
	unmark
lab L9
	var	2
	goto	L6
lab L7
	mark	L10
	ccase
	int	3
	line	883
	colm	11
	eqv
	unmark
	pop
	mark	L11
	var	6
	var	2
	line	883
	colm	19
	invoke	1
	unmark
lab L11
	var	2
	goto	L6
lab L10
	mark	L12
	ccase
	int	4
	line	884
	colm	11
	eqv
	unmark
	pop
	mark	L13
	var	7
	var	2
	line	884
	colm	20
	invoke	1
	unmark
lab L13
	var	2
	goto	L6
lab L12
	mark	L14
	ccase
	int	1
	line	885
	colm	11
	eqv
	unmark
	pop
	var	0
	goto	L6
lab L14
	efail
lab L6
	line	880
	colm	25
	invoke	1
	line	880
	colm	13
	lconcat
	line	880
	colm	4
	pret
lab L5
	pfail
	unmark
lab L4
	pnull
	line	889
	colm	1
	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	891
	colm	11
	mark	L1
	pnull
	var	2
	pnull
	line	894
	colm	14
	llist	0
	line	894
	colm	11
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	3
	pnull
	var	0
	line	896
	colm	15
	bang
	line	896
	colm	12
	asgn
	pop
	mark0
	mark	L5
	pnull
	var	3
	pnull
	var	1
	line	897
	colm	16
	bang
	line	897
	colm	12
	eqv
	unmark
	unmark
	goto	L3
	goto	L6
lab L5
	var	4
	var	2
	var	3
	line	898
	colm	15
	invoke	2
lab L6
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L7
	mark	L8
	var	2
	line	900
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	902
	colm	1
	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	905
	colm	11
	mark	L1
	pnull
	var	1
	mark	L2
	pnull
	int	0
	var	4
	var	1
	line	908
	colm	21
	invoke	1
	line	908
	colm	12
	numlt
	esusp
	goto	L3
lab L2
	var	5
	str	1
	line	908
	colm	32
	invoke	1
lab L3
	line	908
	colm	6
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	0
	var	6
	var	0
	line	910
	colm	13
	invoke	1
	line	910
	colm	6
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	pnull
	var	0
	line	912
	colm	9
	size
	line	912
	colm	6
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	int	2
	pnull
	var	1
	int	2
	line	914
	colm	17
	minus
	push1
	line	914
	colm	12
	toby
	pop
	mark0
	mark0
	pnull
	var	3
	pnull
	int	2
	var	2
	push1
	line	915
	colm	20
	toby
	line	915
	colm	15
	asgn
	pop
	mark0
	var	7
	var	0
	pnull
	var	0
	var	3
	line	916
	colm	18
	subsc
	line	916
	colm	13
	invoke	2
	unmark
lab L9
	efail
lab L10
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L11
	mark	L12
	var	0
	line	918
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	920
	colm	1
	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	922
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	925
	colm	13
	invoke	1
	line	925
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	pnull
	var	0
	line	927
	colm	20
	size
	int	1
	line	927
	colm	23
	div
	push1
	line	927
	colm	17
	toby
	line	927
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	1
	line	928
	colm	8
	subsc
	pnull
	var	0
	pnull
	var	1
	line	928
	colm	18
	neg
	line	928
	colm	17
	subsc
	line	928
	colm	12
	swap
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	0
	line	930
	colm	4
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	932
	colm	1
	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	934
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	936
	colm	4
	null
	int	0
	line	936
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	var	2
	var	0
	line	938
	colm	13
	invoke	1
	line	938
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	1
	int	1
	line	940
	colm	9
	numgt
	unmark
	mark0
	pnull
	int	0
	var	1
	push1
	line	941
	colm	15
	toby
	pop
	mark0
	var	3
	var	0
	var	4
	var	0
	line	942
	colm	20
	invoke	1
	line	942
	colm	13
	invoke	2
	unmark
lab L6
	efail
lab L7
	goto	L5
lab L4
	mark0
	pnull
	int	0
	pnull
	var	1
	line	944
	colm	18
	neg
	push1
	line	944
	colm	15
	toby
	pop
	mark0
	var	5
	var	0
	var	6
	var	0
	line	945
	colm	22
	invoke	1
	line	945
	colm	14
	invoke	2
	unmark
lab L8
	efail
lab L9
lab L5
	unmark
lab L3
	mark	L10
	mark	L11
	var	0
	line	947
	colm	4
	pret
lab L11
	pfail
	unmark
lab L10
	pnull
	line	949
	colm	1
	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	951
	colm	11
	mark	L1
	pnull
	var	0
	var	3
	var	0
	line	953
	colm	13
	invoke	1
	line	953
	colm	6
	asgn
	unmark
lab L1
	mark	L2
lab L3
	mark0
	pnull
	pnull
	var	0
	line	955
	colm	10
	size
	var	1
	line	955
	colm	13
	numlt
	unmark
	mark	L3
	var	4
	var	0
	var	2
	line	955
	colm	23
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	957
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	959
	colm	1
	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	961
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	963
	colm	13
	invoke	1
	line	963
	colm	6
	asgn
	unmark
lab L1
	mark	L2
lab L3
	mark0
	var	3
	var	1
	pnull
	var	0
	pnull
	int	0
	line	965
	colm	22
	neg
	line	965
	colm	21
	subsc
	line	965
	colm	16
	invoke	2
	unmark
	mark	L3
	var	4
	var	0
	line	966
	colm	11
	invoke	1
lab L4
	unmark
	goto	L3
lab L5
	unmark
lab L2
	mark	L6
	mark	L7
	var	0
	line	968
	colm	5
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	970
	colm	1
	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	972
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	975
	colm	13
	invoke	1
	line	975
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	1
	pnull
	int	0
	pnull
	var	0
	line	977
	colm	20
	size
	int	1
	line	977
	colm	17
	toby
	line	977
	colm	12
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	1
	line	978
	colm	8
	subsc
	pnull
	var	0
	pnull
	var	1
	int	0
	line	978
	colm	20
	plus
	line	978
	colm	17
	subsc
	line	978
	colm	12
	swap
	unmark
lab L3
	efail
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	0
	line	980
	colm	4
	pret
lab L6
	pfail
	unmark
lab L5
	pnull
	line	982
	colm	1
	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	984
	colm	11
	mark	L1
	pnull
	var	1
	pnull
	line	987
	colm	14
	llist	0
	line	987
	colm	11
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	4
	var	0
	line	988
	colm	16
	invoke	1
	line	988
	colm	10
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	3
	pnull
	var	0
	line	990
	colm	15
	bang
	line	990
	colm	12
	asgn
	pop
	mark0
	mark0
	var	5
	var	2
	var	3
	line	991
	colm	16
	invoke	2
	unmark
	mark	L6
	var	6
	var	2
	var	3
	line	992
	colm	16
	invoke	2
	unmark
lab L6
	var	7
	var	1
	var	3
	line	993
	colm	13
	invoke	2
	unmark
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L7
	mark	L8
	var	1
	line	996
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	998
	colm	1
	pfail
	end
proc lmaxlen
	local	0,001000,L
	local	1,001000,p
	local	2,000020,i
	local	3,000000,proc
	con	0,002000,1,0
	con	1,010000,1,052
	con	2,002000,1,1
	con	3,002000,1,2
	con	4,002000,2,31
	declend
	line	1000
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	1003
	colm	7
	size
	int	0
	line	1003
	colm	10
	numeq
	unmark
	line	1003
	colm	19
	pfail
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	1005
	colm	4
	null
	var	3
	str	1
	int	2
	line	1005
	colm	14
	invoke	2
	line	1005
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	pnull
	int	3
	int	4
	line	1007
	colm	11
	power
	line	1007
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	2
	dup
	var	1
	pnull
	var	0
	line	1009
	colm	18
	bang
	line	1009
	colm	17
	invoke	1
	line	1009
	colm	12
	numlt
	asgn
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	2
	line	1011
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	1013
	colm	1
	pfail
	end
proc lminlen
	local	0,001000,L
	local	1,001000,p
	local	2,000020,i
	local	3,000000,proc
	con	0,002000,1,0
	con	1,010000,1,052
	con	2,002000,1,1
	declend
	line	1015
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	1018
	colm	7
	size
	int	0
	line	1018
	colm	10
	numeq
	unmark
	line	1018
	colm	19
	pfail
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	1020
	colm	4
	null
	var	3
	str	1
	int	2
	line	1020
	colm	14
	invoke	2
	line	1020
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	int	0
	line	1022
	colm	6
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	2
	dup
	var	1
	pnull
	var	0
	line	1024
	colm	18
	bang
	line	1024
	colm	17
	invoke	1
	line	1024
	colm	12
	numgt
	asgn
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	2
	line	1026
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	1028
	colm	1
	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	1030
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	1033
	colm	4
	null
	int	0
	line	1033
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	line	1035
	colm	9
	llist	0
	line	1035
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	var	0
	line	1037
	colm	6
	bscan
	mark	L4
lab L5
	mark0
	var	3
	var	2
	var	4
	var	1
	line	1038
	colm	24
	invoke	1
	line	1038
	colm	16
	invoke	2
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark0
	mark	L8
	var	5
	int	1
	line	1039
	colm	17
	invoke	1
	unmark
	efail
lab L8
	pnull
	unmark
	var	3
	var	2
	var	6
	int	1
	line	1039
	colm	36
	invoke	1
	line	1039
	colm	29
	invoke	2
	line	1037
	colm	6
	escan
	unmark
lab L3
	mark	L9
	mark	L10
	var	2
	line	1042
	colm	4
	pret
lab L10
	pfail
	unmark
lab L9
	pnull
	line	1044
	colm	1
	pfail
	end
