version	U12.1.00
uid	tree.u1-1788085727-0
record	treenode,3
	0,label
	1,parent
	2,children
impl	local
global	48
	0,000011,treenode,3
	1,000005,node,-2
	2,000005,leaf,1
	3,000001,thePackage,0
	4,000005,yyvarlists,1
	5,000005,exists_statlists,1
	6,000005,yystalists,1
	7,000001,list_of_invocables,0
	8,000005,writes_faux_for_uneval,2
	9,000005,writes_code_for_uneval,1
	10,000005,make_list_for_uneval,2
	11,000005,emit_code_for_uneval,1
	12,000005,emit_line_directive_if_needed,1
	13,000005,process_uneval,1
	14,000005,emit_assign_code,1
	15,000005,yyprint,1
	16,000005,print_imports,1
	17,000005,mangle_sym,1
	18,000005,mangle_class_sym,1
	19,000005,set_package_level_syms,1
	20,000005,ident_into_package_level_syms,1
	21,000005,package_mangled_symbol,1
	22,000005,mangle_explicit_packageref,1
	23,000005,scopecheck_superclass_decs,1
	24,000005,scopecheck_superclass_dec,1
	25,000005,scopecheck_bodies,1
	26,000005,scopecheck_proc,1
	27,000005,scopecheck_methods,1
	28,000005,scopecheck_locals,3
	29,000005,scopecheck_procbody,3
	30,000005,scopecheck_expr,3
	31,000005,classfield_member,2
	32,000005,scopecheck_field,3
	33,000005,extract_identifiers,2
	34,000005,iconc_prep_parse_tree,2
	35,000005,print_node,3
	36,000005,ckfnasgn,3
	37,000005,node_isconst,1
	38,000005,get_constantvalue,1
	39,000005,constant_folder,1
	40,000005,regexp,1
	41,000005,csetify,1
	42,000005,csetrange,2
	43,000005,firstofcset,1
	44,000005,lastofcset,1
	45,000005,splicein,2
	46,000005,class_from_parts,4
	47,000005,leftmost_token,1

proc node
	local	0,001000,label
	local	1,001000,kids
	local	2,000020,k
	local	3,000020,parent
	local	4,000000,treenode
	local	5,000000,type
	con	0,010000,8,164,162,145,145,156,157,144,145
	declend
	filen	tree.icn
	line	10
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	4
	var	0
	line	12
	colm	30
	synt	any
	keywd	null
	var	1
	line	12
	colm	22
	synt	any
	invoke	3
	line	12
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	13
	colm	4
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	1
	line	13
	colm	15
	synt	any
	bang
	line	13
	colm	12
	synt	any
	asgn
	pop
	mark0
	line	14
	colm	7
	synt	if
	mark0
	pnull
	var	5
	pnull
	var	2
	line	14
	colm	15
	synt	any
	nonnull
	line	14
	colm	14
	synt	any
	invoke	1
	str	0
	line	14
	colm	19
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	2
	line	14
	colm	39
	synt	any
	field	parent
	var	3
	line	14
	colm	47
	synt	any
	asgn
	line	14
	colm	7
	synt	endif
	unmark
lab L3
	efail
lab L4
	line	13
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	3
	line	16
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	17
	colm	1
	synt	any
	pfail
	end
proc leaf
	local	0,001000,label
	local	1,000000,treenode
	declend
	line	18
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	line	19
	colm	19
	synt	any
	invoke	1
	line	19
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	20
	colm	1
	synt	any
	pfail
	end
proc yyvarlists
	local	0,001000,node
	local	1,000000,type
	local	2,000000,yyprint
	local	3,000000,yyvarlists
	local	4,000000,write
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,8,166,141,162,154,151,163,164,062
	con	2,010000,1,012
	con	3,002000,1,1
	con	4,002000,1,3
	con	5,010000,8,166,141,162,154,151,163,164,064
	con	6,002000,1,5
	con	7,002000,1,0
	con	8,010000,5,145,162,162,157,162
	con	9,010000,6,154,145,141,146,054,040
	declend
	line	24
	colm	11
	synt	any
	mark	L1
	line	25
	colm	4
	synt	case
	mark0
	var	1
	var	0
	line	25
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	26
	colm	18
	synt	any
	eqv
	unmark
	pop
	line	27
	colm	10
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	0
	line	27
	colm	17
	synt	any
	field	label
	str	1
	line	27
	colm	24
	synt	any
	lexeq
	unmark
	mark	L6
	var	2
	str	2
	line	28
	colm	20
	synt	any
	invoke	1
	unmark
lab L6
	line	29
	colm	13
	synt	every
	mark0
	var	2
	pnull
	pnull
	var	0
	line	29
	colm	31
	synt	any
	field	children
	pnull
	int	3
	int	4
	push1
	line	29
	colm	43
	synt	any
	toby
	line	29
	colm	40
	synt	any
	subsc
	line	29
	colm	26
	synt	any
	invoke	1
	pop
lab L7
	efail
lab L8
	line	29
	colm	13
	synt	endevery
	goto	L5
lab L4
	line	31
	colm	15
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	0
	line	31
	colm	22
	synt	any
	field	label
	str	5
	line	31
	colm	29
	synt	any
	lexeq
	unmark
	mark	L11
	var	3
	pnull
	pnull
	var	0
	line	32
	colm	28
	synt	any
	field	children
	int	3
	line	32
	colm	37
	synt	any
	subsc
	line	32
	colm	23
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	2
	str	2
	line	33
	colm	20
	synt	any
	invoke	1
	unmark
lab L12
	line	34
	colm	13
	synt	every
	mark0
	var	2
	pnull
	pnull
	var	0
	line	34
	colm	31
	synt	any
	field	children
	pnull
	int	4
	int	6
	push1
	line	34
	colm	43
	synt	any
	toby
	line	34
	colm	40
	synt	any
	subsc
	line	34
	colm	26
	synt	any
	invoke	1
	pop
lab L13
	efail
lab L14
	line	34
	colm	13
	synt	endevery
	goto	L10
lab L9
	line	36
	colm	15
	synt	ifelse
	mark	L15
	pnull
	pnull
	pnull
	var	0
	line	36
	colm	23
	synt	any
	field	children
	line	36
	colm	18
	synt	any
	size
	int	7
	line	36
	colm	33
	synt	any
	numgt
	unmark
	line	37
	colm	13
	synt	every
	mark0
	var	3
	pnull
	pnull
	var	0
	line	37
	colm	35
	synt	any
	field	children
	line	37
	colm	30
	synt	any
	bang
	line	37
	colm	29
	synt	any
	invoke	1
	pop
lab L17
	efail
lab L18
	line	37
	colm	13
	synt	endevery
	goto	L16
lab L15
	line	39
	colm	15
	synt	ifelse
	mark	L19
	pnull
	pnull
	var	0
	line	39
	colm	22
	synt	any
	field	label
	str	8
	line	39
	colm	29
	synt	any
	eqv
	unmark
	line	39
	colm	46
	synt	any
	pfail
	goto	L20
lab L19
	var	4
	str	9
	pnull
	var	0
	line	41
	colm	33
	synt	any
	field	label
	line	41
	colm	18
	synt	any
	invoke	2
lab L20
	line	39
	colm	15
	synt	endifelse
lab L16
	line	36
	colm	15
	synt	endifelse
lab L10
	line	31
	colm	15
	synt	endifelse
lab L5
	line	27
	colm	10
	synt	endifelse
	goto	L2
lab L3
	efail
lab L2
	line	25
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	45
	colm	1
	synt	any
	pfail
	end
proc exists_statlists
	local	0,001000,node
	local	1,000000,type
	local	2,000000,exists_statlists
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,8,163,164,141,154,151,163,164,062
	con	2,010000,8,163,164,141,154,151,163,164,064
	con	3,002000,1,0
	declend
	line	47
	colm	11
	synt	any
	mark	L1
	line	48
	colm	4
	synt	case
	mark0
	var	1
	var	0
	line	48
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	49
	colm	18
	synt	any
	eqv
	unmark
	pop
	line	50
	colm	10
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	0
	line	50
	colm	17
	synt	any
	field	label
	mark	L6
	str	1
	line	50
	colm	38
	synt	any
	esusp
	goto	L7
lab L6
	str	2
lab L7
	line	50
	colm	24
	synt	any
	lexeq
	unmark
	mark	L8
	pnull
	line	50
	colm	56
	synt	any
	pret
lab L8
	synt	any
	pfail
	goto	L5
lab L4
	line	51
	colm	15
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	51
	colm	23
	synt	any
	field	children
	line	51
	colm	18
	synt	any
	size
	int	3
	line	51
	colm	33
	synt	any
	numgt
	unmark
	mark	L9
	var	2
	pnull
	pnull
	var	0
	line	52
	colm	42
	synt	any
	field	children
	line	52
	colm	37
	synt	any
	bang
	line	52
	colm	36
	synt	any
	invoke	1
	line	52
	colm	13
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	51
	colm	15
	synt	endif
lab L5
	line	50
	colm	10
	synt	endifelse
	goto	L2
lab L3
	efail
lab L2
	line	48
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	56
	colm	1
	synt	any
	pfail
	end
proc yystalists
	local	0,001000,node
	local	1,000000,type
	local	2,000000,yyprint
	local	3,000000,yystalists
	local	4,000000,write
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,8,163,164,141,154,151,163,164,062
	con	2,010000,1,012
	con	3,002000,1,1
	con	4,002000,1,3
	con	5,010000,8,163,164,141,154,151,163,164,064
	con	6,002000,1,5
	con	7,002000,1,0
	con	8,010000,5,145,162,162,157,162
	con	9,010000,6,154,145,141,146,054,040
	declend
	line	58
	colm	11
	synt	any
	mark	L1
	line	59
	colm	4
	synt	case
	mark0
	var	1
	var	0
	line	59
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	60
	colm	18
	synt	any
	eqv
	unmark
	pop
	line	61
	colm	10
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	0
	line	61
	colm	17
	synt	any
	field	label
	str	1
	line	61
	colm	24
	synt	any
	lexeq
	unmark
	mark	L6
	var	2
	str	2
	line	62
	colm	20
	synt	any
	invoke	1
	unmark
lab L6
	line	63
	colm	13
	synt	every
	mark0
	var	2
	pnull
	pnull
	var	0
	line	63
	colm	31
	synt	any
	field	children
	pnull
	int	3
	int	4
	push1
	line	63
	colm	43
	synt	any
	toby
	line	63
	colm	40
	synt	any
	subsc
	line	63
	colm	26
	synt	any
	invoke	1
	pop
lab L7
	efail
lab L8
	line	63
	colm	13
	synt	endevery
	goto	L5
lab L4
	line	65
	colm	15
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	0
	line	65
	colm	22
	synt	any
	field	label
	str	5
	line	65
	colm	29
	synt	any
	lexeq
	unmark
	mark	L11
	var	3
	pnull
	pnull
	var	0
	line	66
	colm	28
	synt	any
	field	children
	int	3
	line	66
	colm	37
	synt	any
	subsc
	line	66
	colm	23
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	2
	str	2
	line	67
	colm	20
	synt	any
	invoke	1
	unmark
lab L12
	line	68
	colm	13
	synt	every
	mark0
	var	2
	pnull
	pnull
	var	0
	line	68
	colm	31
	synt	any
	field	children
	pnull
	int	4
	int	6
	push1
	line	68
	colm	43
	synt	any
	toby
	line	68
	colm	40
	synt	any
	subsc
	line	68
	colm	26
	synt	any
	invoke	1
	pop
lab L13
	efail
lab L14
	line	68
	colm	13
	synt	endevery
	goto	L10
lab L9
	line	70
	colm	15
	synt	ifelse
	mark	L15
	pnull
	pnull
	pnull
	var	0
	line	70
	colm	23
	synt	any
	field	children
	line	70
	colm	18
	synt	any
	size
	int	7
	line	70
	colm	33
	synt	any
	numgt
	unmark
	line	71
	colm	13
	synt	every
	mark0
	var	3
	pnull
	pnull
	var	0
	line	71
	colm	35
	synt	any
	field	children
	line	71
	colm	30
	synt	any
	bang
	line	71
	colm	29
	synt	any
	invoke	1
	pop
lab L17
	efail
lab L18
	line	71
	colm	13
	synt	endevery
	goto	L16
lab L15
	line	73
	colm	15
	synt	ifelse
	mark	L19
	pnull
	pnull
	var	0
	line	73
	colm	22
	synt	any
	field	label
	str	8
	line	73
	colm	29
	synt	any
	eqv
	unmark
	line	73
	colm	46
	synt	any
	pfail
	goto	L20
lab L19
	var	4
	str	9
	pnull
	var	0
	line	75
	colm	33
	synt	any
	field	label
	line	75
	colm	18
	synt	any
	invoke	2
lab L20
	line	73
	colm	15
	synt	endifelse
lab L16
	line	70
	colm	15
	synt	endifelse
lab L10
	line	65
	colm	15
	synt	endifelse
lab L5
	line	61
	colm	10
	synt	endifelse
	goto	L2
lab L3
	efail
lab L2
	line	59
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	79
	colm	1
	synt	any
	pfail
	end
proc writes_faux_for_uneval
	local	0,001000,L
	local	1,001000,brackets
	local	2,000000,iconc
	local	3,000000,writes
	local	4,000000,yyout
	local	5,000000,temp
	local	6,000000,i
	local	7,000000,type
	local	8,000000,writes_faux_for_uneval
	local	9,000000,j
	con	0,010000,2,173,175
	con	1,002000,1,1
	con	2,010000,4,154,151,163,164
	con	3,010000,1,073
	con	4,010000,0
	con	5,010000,1,050
	con	6,002000,1,2
	con	7,010000,1,054
	con	8,010000,20,050,060,174,060,056,060,174,042,042,174,047,047,174,046,151,156,160,165,164,051
	con	9,010000,1,051
	declend
	line	85
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	86
	colm	4
	synt	any
	null
	str	0
	line	86
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	87
	colm	4
	synt	if
	mark0
	pnull
	var	2
	int	1
	line	87
	colm	13
	synt	any
	neqv
	unmark
	line	87
	colm	25
	synt	any
	pfail
	line	87
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	var	3
	var	4
	pnull
	var	1
	int	1
	line	88
	colm	25
	synt	any
	subsc
	line	88
	colm	10
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	line	89
	colm	4
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	0
	pnull
	var	6
	pnull
	int	1
	pnull
	var	0
	line	89
	colm	28
	synt	any
	size
	push1
	line	89
	colm	25
	synt	any
	toby
	line	89
	colm	21
	synt	any
	asgn
	line	89
	colm	19
	synt	any
	subsc
	line	89
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	90
	colm	7
	synt	ifelse
	mark	L7
	pnull
	var	7
	var	5
	line	90
	colm	14
	synt	any
	invoke	1
	str	2
	line	90
	colm	21
	synt	any
	lexeq
	unmark
	mark	L9
	var	3
	var	4
	str	3
	line	91
	colm	16
	synt	any
	invoke	2
	unmark
lab L9
	var	8
	var	5
	str	4
	line	92
	colm	32
	synt	any
	invoke	2
	goto	L8
lab L7
	line	95
	colm	10
	synt	if
	mark0
	pnull
	var	6
	int	1
	line	95
	colm	15
	synt	any
	numeq
	unmark
	mark	L10
	var	3
	var	4
	var	5
	str	5
	line	96
	colm	19
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	line	97
	colm	13
	synt	every
	mark0
	pnull
	var	9
	pnull
	int	6
	pnull
	var	0
	line	97
	colm	29
	synt	any
	size
	push1
	line	97
	colm	26
	synt	any
	toby
	line	97
	colm	21
	synt	any
	asgn
	pop
	mark0
	mark	L14
	line	98
	colm	16
	synt	if
	mark0
	pnull
	var	9
	int	6
	line	98
	colm	20
	synt	any
	numgt
	unmark
	var	3
	var	4
	str	7
	line	98
	colm	34
	synt	any
	invoke	2
	line	98
	colm	16
	synt	endif
	unmark
lab L14
	var	3
	var	4
	str	8
	line	99
	colm	22
	synt	any
	invoke	2
	unmark
lab L12
	efail
lab L13
	line	97
	colm	13
	synt	endevery
	unmark
lab L11
	var	3
	var	4
	str	9
	line	101
	colm	19
	synt	any
	invoke	2
	line	95
	colm	10
	synt	endif
lab L8
	line	90
	colm	7
	synt	endifelse
	unmark
lab L5
	efail
lab L6
	line	89
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L15
	var	3
	var	4
	pnull
	var	1
	int	6
	line	105
	colm	25
	synt	any
	subsc
	line	105
	colm	10
	synt	any
	invoke	2
	unmark
lab L15
	pnull
	line	106
	colm	1
	synt	any
	pfail
	end
proc writes_code_for_uneval
	local	0,001000,L
	local	1,000020,i
	local	2,000000,writes
	local	3,000000,yyout
	local	4,000000,temp
	local	5,000000,type
	local	6,000000,writes_code_for_uneval
	local	7,000000,image
	local	8,000000,list_of_invocables
	local	9,000000,put
	con	0,010000,1,133
	con	1,002000,1,1
	con	2,010000,4,154,151,163,164
	con	3,010000,2,054,040
	con	4,010000,1,135
	declend
	line	108
	colm	11
	synt	any
	mark	L1
	var	2
	var	3
	str	0
	line	110
	colm	10
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	line	111
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	0
	pnull
	var	1
	pnull
	int	1
	pnull
	var	0
	line	111
	colm	30
	synt	any
	size
	push1
	line	111
	colm	27
	synt	any
	toby
	line	111
	colm	22
	synt	any
	asgn
	line	111
	colm	19
	synt	any
	subsc
	line	111
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	112
	colm	7
	synt	ifelse
	mark	L5
	pnull
	var	5
	var	4
	line	112
	colm	14
	synt	any
	invoke	1
	str	2
	line	112
	colm	21
	synt	any
	lexeq
	unmark
	var	6
	var	4
	line	113
	colm	32
	synt	any
	invoke	1
	goto	L6
lab L5
	mark	L7
	var	2
	var	3
	var	7
	var	4
	line	116
	colm	29
	synt	any
	invoke	1
	line	116
	colm	16
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	line	117
	colm	10
	synt	if
	mark0
	pnull
	var	1
	int	1
	line	117
	colm	15
	synt	any
	numeq
	unmark
	mark	L9
	pnull
	pnull
	var	8
	line	118
	colm	13
	synt	any
	null
	pnull
	line	118
	colm	36
	synt	any
	llist	0
	line	118
	colm	33
	synt	any
	asgn
	unmark
lab L9
	line	119
	colm	13
	synt	if
	mark0
	mark	L10
	pnull
	pnull
	var	8
	line	119
	colm	21
	synt	any
	bang
	var	4
	line	119
	colm	41
	synt	any
	lexeq
	unmark
	efail
lab L10
	pnull
	unmark
	var	9
	var	8
	var	4
	line	120
	colm	19
	synt	any
	invoke	2
	line	119
	colm	13
	synt	endif
	line	117
	colm	10
	synt	endif
	unmark
lab L8
	line	122
	colm	10
	synt	if
	mark0
	pnull
	var	1
	pnull
	var	0
	line	122
	colm	17
	synt	any
	size
	line	122
	colm	15
	synt	any
	numlt
	unmark
	var	2
	var	3
	str	3
	line	123
	colm	19
	synt	any
	invoke	2
	line	122
	colm	10
	synt	endif
lab L6
	line	112
	colm	7
	synt	endifelse
	unmark
lab L3
	efail
lab L4
	line	111
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L11
	var	2
	var	3
	str	4
	line	127
	colm	10
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	line	128
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	129
	colm	1
	synt	any
	pfail
	end
proc make_list_for_uneval
	local	0,001000,L
	local	1,001000,word
	local	2,000000,tab
	local	3,000000,upto
	local	4,000000,temp
	local	5,000000,many
	local	6,000000,proc
	local	7,000000,move
	local	8,000000,L1
	local	9,000000,put
	local	10,000000,make_list_for_uneval
	con	0,002000,1,1
	con	1,010000,1,056
	declend
	line	131
	colm	11
	synt	any
	mark	L1
lab L2
	line	132
	colm	4
	synt	while
	mark0
	var	2
	var	3
	var	1
	line	132
	colm	18
	synt	any
	invoke	1
	line	132
	colm	13
	synt	any
	invoke	1
	unmark
	mark	L2
	mark	L5
	pnull
	var	4
	var	2
	var	5
	var	1
	line	133
	colm	23
	synt	any
	invoke	1
	line	133
	colm	18
	synt	any
	invoke	1
	line	133
	colm	12
	synt	any
	asgn
	unmark
lab L5
	line	134
	colm	7
	synt	ifelse
	mark	L6
	mark	L8
	var	6
	var	4
	line	134
	colm	14
	synt	any
	invoke	1
	line	134
	colm	21
	synt	any
	esusp
	goto	L9
lab L8
	pnull
	var	7
	int	0
	line	134
	colm	27
	synt	any
	invoke	1
	str	1
	line	134
	colm	31
	synt	any
	eqv
lab L9
	unmark
	mark	L10
	pnull
	var	8
	pnull
	line	135
	colm	16
	synt	any
	llist	0
	line	135
	colm	13
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	var	9
	var	8
	var	4
	line	136
	colm	13
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	pnull
	var	8
	var	10
	var	8
	var	1
	line	137
	colm	36
	synt	any
	invoke	2
	line	137
	colm	13
	synt	any
	asgn
	unmark
lab L12
	var	9
	var	0
	var	8
	line	138
	colm	13
	synt	any
	invoke	2
	goto	L7
lab L6
	var	9
	var	0
	var	4
	line	141
	colm	13
	synt	any
	invoke	2
lab L7
	line	134
	colm	7
	synt	endifelse
lab L3
	unmark
	goto	L2
lab L4
	line	132
	colm	4
	synt	endwhile
	unmark
lab L1
	mark	L13
	mark	L14
	var	0
	line	144
	colm	4
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	145
	colm	1
	synt	any
	pfail
	end
proc emit_code_for_uneval
	local	0,001000,funcname
	local	1,000040,word
	local	2,000000,L
	local	3,000000,tab
	local	4,000000,many
	local	5,000000,temp
	local	6,000000,upto
	local	7,000000,put
	local	8,000000,make_list_for_uneval
	local	9,000000,iconc
	local	10,000000,writes
	local	11,000000,yyout
	local	12,000000,writes_faux_for_uneval
	local	13,000000,writes_code_for_uneval
	con	0,020000,5,047,042,046,176,137
	con	1,020000,1,140
	con	2,020000,2,050,056
	con	3,010000,1,134
	con	4,010000,2,134,134
	con	5,002000,1,1
	con	6,010000,34,050,151,146,040,147,145,164,145,156,166,050,042,116,117,116,123,105,116,123,105,042,051,040,164,150,145,156,040,145,166,145,162,171,040
	con	7,010000,6,040,145,154,163,145,040
	con	8,010000,1,050
	con	9,010000,2,051,051
	con	10,010000,1,040
	con	11,010000,1,051
	declend
	line	147
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	pnull
	pnull
	line	149
	colm	19
	synt	any
	keywd	letters
	line	149
	colm	31
	synt	any
	keywd	digits
	line	149
	colm	28
	synt	any
	unions
	cset	0
	line	149
	colm	39
	synt	any
	unions
	line	149
	colm	16
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	pnull
	line	150
	colm	9
	synt	any
	llist	0
	line	150
	colm	6
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	3
	var	4
	cset	1
	line	151
	colm	12
	synt	any
	invoke	1
	line	151
	colm	7
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	pnull
	var	5
	var	3
	var	6
	cset	2
	line	152
	colm	20
	synt	any
	invoke	1
	line	152
	colm	15
	synt	any
	invoke	1
	line	152
	colm	9
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	153
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	5
	line	153
	colm	7
	synt	any
	nonnull
	str	3
	line	153
	colm	13
	synt	any
	lexeq
	unmark
	pnull
	var	5
	str	4
	line	153
	colm	31
	synt	any
	asgn
	line	153
	colm	4
	synt	endif
	unmark
lab L7
	mark	L8
	var	7
	var	2
	pnull
	var	5
	line	154
	colm	11
	synt	any
	nonnull
	line	154
	colm	7
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	pnull
	var	2
	var	8
	var	2
	var	1
	line	155
	colm	29
	synt	any
	invoke	2
	line	155
	colm	6
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	157
	colm	4
	synt	ifelse
	mark	L11
	pnull
	var	9
	int	5
	line	157
	colm	13
	synt	any
	eqv
	unmark
	mark	L13
	var	10
	var	11
	str	6
	line	158
	colm	13
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	12
	var	2
	line	159
	colm	29
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	var	10
	var	11
	str	7
	var	0
	str	8
	line	160
	colm	13
	synt	any
	invoke	4
	unmark
lab L15
	mark	L16
	var	13
	var	2
	line	161
	colm	29
	synt	any
	invoke	1
	unmark
lab L16
	var	10
	var	11
	str	9
	line	162
	colm	13
	synt	any
	invoke	2
	goto	L12
lab L11
	mark	L17
	var	10
	var	11
	str	10
	var	0
	str	8
	line	165
	colm	13
	synt	any
	invoke	4
	unmark
lab L17
	mark	L18
	var	13
	var	2
	line	166
	colm	29
	synt	any
	invoke	1
	unmark
lab L18
	var	10
	var	11
	str	11
	line	167
	colm	13
	synt	any
	invoke	2
lab L12
	line	157
	colm	4
	synt	endifelse
	unmark
lab L10
	mark	L19
	mark	L20
	pnull
	line	169
	colm	4
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	170
	colm	1
	synt	any
	pfail
	end
proc emit_line_directive_if_needed
	local	0,001000,node
	local	1,000000,outfilename
	local	2,000000,outline
	local	3,000000,write
	local	4,000000,yyout
	local	5,000000,outcol
	con	0,010000,7,012,043,154,151,156,145,040
	con	1,002000,1,1
	con	2,010000,2,040,042
	con	3,010000,1,042
	declend
	line	172
	colm	11
	synt	any
	mark	L1
	line	173
	colm	4
	synt	if
	mark0
	mark	L2
	pnull
	var	1
	pnull
	var	0
	line	173
	colm	28
	synt	any
	field	filename
	line	173
	colm	20
	synt	any
	lexne
	line	173
	colm	38
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	var	2
	pnull
	var	0
	line	173
	colm	55
	synt	any
	field	line
	line	173
	colm	48
	synt	any
	numne
lab L3
	unmark
	mark	L4
	var	3
	var	4
	str	0
	pnull
	pnull
	var	0
	line	174
	colm	35
	synt	any
	field	line
	int	1
	line	174
	colm	40
	synt	any
	minus
	str	2
	pnull
	var	0
	line	174
	colm	54
	synt	any
	field	filename
	str	3
	line	174
	colm	12
	synt	any
	invoke	6
	unmark
lab L4
	mark	L5
	pnull
	var	2
	pnull
	var	0
	line	175
	colm	22
	synt	any
	field	line
	line	175
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	int	1
	line	176
	colm	14
	synt	any
	asgn
	unmark
lab L6
	pnull
	var	1
	pnull
	var	0
	line	177
	colm	26
	synt	any
	field	filename
	line	177
	colm	19
	synt	any
	asgn
	line	173
	colm	4
	synt	endif
	unmark
lab L1
	pnull
	line	179
	colm	1
	synt	any
	pfail
	end
proc process_uneval
	local	0,001000,node
	local	1,000000,emit_line_directive_if_needed
	local	2,000000,type
	local	3,000000,find
	local	4,000000,emit_code_for_uneval
	local	5,000000,yyerror
	local	6,000000,tab
	local	7,000000,upto
	local	8,000000,temp
	local	9,000000,many
	local	10,000000,writes
	local	11,000000,yyout
	local	12,000000,write
	con	0,010000,6,163,164,162,151,156,147
	con	1,002000,1,1
	con	2,002000,1,3
	con	3,010000,2,140,140
	con	4,010000,1,056
	con	5,010000,1,050
	con	6,010000,24,160,141,164,164,145,162,156,137,163,164,162,151,156,147,155,145,164,150,157,144,143,141,154,154
	con	7,010000,22,160,141,164,164,145,162,156,137,163,164,162,151,156,147,146,165,156,143,143,141,154,154
	con	8,010000,29,140,140,040,155,165,163,164,040,145,156,143,154,157,163,145,040,146,165,156,143,164,151,157,156,040,143,141,154,154
	con	9,010000,22,160,141,164,164,145,162,156,137,142,157,157,154,155,145,164,150,157,144,143,141,154,154
	con	10,010000,20,160,141,164,164,145,162,156,137,142,157,157,154,146,165,156,143,143,141,154,154
	con	11,010000,17,160,141,164,164,145,162,156,137,165,156,145,166,141,154,166,141,162
	con	12,020000,1,137
	con	13,010000,20,054,160,141,164,164,145,162,156,137,165,156,145,166,141,154,166,141,162,050,040
	con	14,010000,1,042
	con	15,010000,2,051,051
	con	16,010000,31,105,162,162,157,162,040,163,164,162,151,156,147,040,145,170,160,145,143,164,145,144,040,142,165,164,040,147,157,164,040,040
	declend
	line	190
	colm	11
	synt	any
	mark	L1
	var	1
	var	0
	line	191
	colm	33
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	192
	colm	4
	synt	case
	mark0
	var	2
	pnull
	var	0
	line	192
	colm	18
	synt	any
	field	s
	line	192
	colm	13
	synt	any
	invoke	1
	eret
	mark	L4
	ccase
	str	0
	line	193
	colm	15
	synt	any
	eqv
	unmark
	pop
	line	194
	colm	10
	synt	ifelse
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	194
	colm	17
	synt	any
	field	s
	int	1
	int	2
	line	194
	colm	21
	synt	any
	synt	any
	sect
	str	3
	line	194
	colm	25
	synt	any
	eqv
	unmark
	pnull
	var	0
	line	195
	colm	17
	synt	any
	field	s
	line	195
	colm	20
	synt	any
	bscan
	line	196
	colm	16
	synt	ifelse
	mark	L7
	var	3
	str	4
	line	196
	colm	23
	synt	any
	invoke	1
	pop
	var	3
	str	5
	line	196
	colm	36
	synt	any
	invoke	1
	unmark
	mark	L9
	var	4
	str	6
	line	197
	colm	46
	synt	any
	invoke	1
	line	197
	colm	19
	synt	any
	pret
lab L9
	synt	any
	pfail
	goto	L8
lab L7
	line	199
	colm	21
	synt	ifelse
	mark	L10
	var	3
	str	5
	line	199
	colm	29
	synt	any
	invoke	1
	unmark
	mark	L12
	var	4
	str	7
	line	200
	colm	46
	synt	any
	invoke	1
	line	200
	colm	19
	synt	any
	pret
lab L12
	synt	any
	pfail
	goto	L11
lab L10
	var	5
	str	8
	var	0
	line	203
	colm	26
	synt	any
	invoke	2
lab L11
	line	199
	colm	21
	synt	endifelse
lab L8
	line	196
	colm	16
	synt	endifelse
	line	195
	colm	20
	synt	any
	escan
	goto	L6
lab L5
	pnull
	var	0
	line	207
	colm	17
	synt	any
	field	s
	line	207
	colm	20
	synt	any
	bscan
	line	208
	colm	16
	synt	ifelse
	mark	L13
	var	3
	str	4
	line	208
	colm	23
	synt	any
	invoke	1
	pop
	var	3
	str	5
	line	208
	colm	36
	synt	any
	invoke	1
	unmark
	mark	L15
	var	4
	str	9
	line	209
	colm	46
	synt	any
	invoke	1
	line	209
	colm	19
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L14
lab L13
	line	211
	colm	21
	synt	ifelse
	mark	L16
	var	3
	str	5
	line	211
	colm	29
	synt	any
	invoke	1
	unmark
	mark	L18
	var	4
	str	10
	line	212
	colm	46
	synt	any
	invoke	1
	line	212
	colm	19
	synt	any
	pret
lab L18
	synt	any
	pfail
	goto	L17
lab L16
	line	214
	colm	21
	synt	ifelse
	mark	L19
	var	3
	str	4
	line	214
	colm	28
	synt	any
	invoke	1
	unmark
	mark	L21
	var	4
	str	11
	line	215
	colm	46
	synt	any
	invoke	1
	line	215
	colm	19
	synt	any
	pret
lab L21
	synt	any
	pfail
	goto	L20
lab L19
	mark	L22
	var	6
	var	7
	pnull
	line	218
	colm	28
	synt	any
	keywd	letters
	cset	12
	line	218
	colm	36
	synt	any
	unions
	line	218
	colm	27
	synt	any
	invoke	1
	line	218
	colm	22
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	pnull
	var	8
	var	6
	var	9
	pnull
	pnull
	line	219
	colm	36
	synt	any
	keywd	letters
	cset	12
	line	219
	colm	44
	synt	any
	unions
	line	219
	colm	51
	synt	any
	keywd	digits
	line	219
	colm	49
	synt	any
	unions
	line	219
	colm	35
	synt	any
	invoke	1
	line	219
	colm	30
	synt	any
	invoke	1
	line	219
	colm	24
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	var	10
	var	11
	str	5
	var	8
	str	13
	line	221
	colm	25
	synt	any
	invoke	4
	unmark
lab L24
	mark	L25
	var	10
	var	11
	str	14
	var	8
	str	14
	line	222
	colm	25
	synt	any
	invoke	4
	unmark
lab L25
	mark	L26
	var	10
	var	11
	str	15
	line	223
	colm	25
	synt	any
	invoke	2
	unmark
lab L26
	mark	L27
	pnull
	line	224
	colm	19
	synt	any
	pret
lab L27
	synt	any
	pfail
lab L20
	line	214
	colm	21
	synt	endifelse
lab L17
	line	211
	colm	21
	synt	endifelse
lab L14
	line	208
	colm	16
	synt	endifelse
	line	207
	colm	20
	synt	any
	escan
lab L6
	line	194
	colm	10
	synt	endifelse
	goto	L3
lab L4
	pop
	var	12
	str	16
	var	2
	var	0
	line	230
	colm	55
	synt	any
	invoke	1
	line	230
	colm	15
	synt	any
	invoke	2
lab L3
	line	192
	colm	4
	synt	endcase
	unmark
lab L2
	pnull
	line	232
	colm	1
	synt	any
	pfail
	end
proc emit_assign_code
	local	0,001000,node
	local	1,000000,type
	local	2,000000,yyprint
	local	3,000000,yylineno
	local	4,000000,leftmost_token
	local	5,000000,yyerror
	local	6,000000,image
	local	7,000000,writes
	local	8,000000,yyout
	local	9,000000,rec
	local	10,000000,tab
	local	11,000000,upto
	local	12,000000,var
	local	13,000000,faketok
	local	14,000000,copy
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,8,102,120,165,156,145,166,141,154
	con	2,002000,1,1
	con	3,010000,5,164,157,153,145,156
	con	4,010000,1,140
	con	5,010000,1,042
	con	6,002000,1,2
	con	7,010000,5,146,151,145,154,144
	con	8,010000,46,111,156,055,160,141,164,164,145,162,156,040,141,163,163,151,147,156,155,145,156,164,040,155,165,163,164,040,142,145,040,164,157,040,146,151,145,154,144,054,040,156,157,164,040,141,040
	con	9,010000,33,115,165,154,164,151,160,154,145,040,162,145,146,145,162,145,156,143,145,163,040,156,157,164,040,163,165,160,160,157,162,164,145,144
	con	10,010000,1,133
	con	11,010000,2,054,042
	con	12,002000,1,3
	con	13,010000,2,042,135
	con	14,020000,1,056
	con	15,002000,1,0
	con	16,002000,3,260
	con	17,010000,1,054
	con	18,010000,1,135
	declend
	line	238
	colm	11
	synt	any
	mark	L1
	line	239
	colm	4
	synt	case
	mark0
	var	1
	var	0
	line	239
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	240
	colm	17
	synt	any
	eqv
	unmark
	pop
	mark	L4
	line	241
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	241
	colm	17
	synt	any
	field	label
	str	1
	line	241
	colm	24
	synt	any
	lexeq
	unmark
	mark	L5
	pnull
	var	0
	pnull
	pnull
	var	0
	line	242
	colm	25
	synt	any
	field	children
	int	2
	line	242
	colm	34
	synt	any
	subsc
	line	242
	colm	18
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	243
	colm	13
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	243
	colm	20
	synt	any
	invoke	1
	str	3
	line	243
	colm	27
	synt	any
	lexeq
	pop
	pnull
	pnull
	pnull
	pnull
	var	0
	line	243
	colm	44
	synt	any
	field	s
	int	2
	line	243
	colm	46
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	243
	colm	55
	synt	any
	field	s
	pnull
	int	2
	line	243
	colm	58
	synt	any
	neg
	line	243
	colm	57
	synt	any
	subsc
	line	243
	colm	49
	synt	any
	lexeq
	str	4
	line	243
	colm	61
	synt	any
	lexeq
	unmark
	var	2
	pnull
	pnull
	str	5
	pnull
	pnull
	var	0
	line	244
	colm	39
	synt	any
	field	s
	int	6
	pnull
	int	2
	line	244
	colm	44
	synt	any
	neg
	line	244
	colm	43
	synt	any
	synt	any
	sect
	line	244
	colm	32
	synt	any
	cat
	str	5
	line	244
	colm	48
	synt	any
	cat
	line	244
	colm	26
	synt	any
	invoke	1
	line	243
	colm	13
	synt	endif
	unmark
lab L6
	mark	L7
	pnull
	line	246
	colm	13
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	241
	colm	10
	synt	endif
	unmark
lab L4
	mark	L8
	line	248
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	248
	colm	17
	synt	any
	field	label
	str	7
	line	248
	colm	24
	synt	any
	lexne
	unmark
	mark	L9
	pnull
	var	3
	pnull
	var	4
	var	0
	line	251
	colm	39
	synt	any
	invoke	1
	line	251
	colm	45
	synt	any
	field	line
	line	251
	colm	22
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	5
	pnull
	str	8
	var	6
	pnull
	var	0
	line	253
	colm	31
	synt	any
	field	label
	line	253
	colm	26
	synt	any
	invoke	1
	line	252
	colm	70
	synt	any
	cat
	line	252
	colm	20
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	pnull
	line	254
	colm	13
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	248
	colm	10
	synt	endif
	unmark
lab L8
	mark	L12
	line	256
	colm	10
	synt	if
	mark0
	pnull
	var	1
	pnull
	pnull
	var	0
	line	256
	colm	22
	synt	any
	field	children
	int	2
	line	256
	colm	31
	synt	any
	subsc
	line	256
	colm	17
	synt	any
	invoke	1
	str	3
	line	256
	colm	36
	synt	any
	lexne
	unmark
	mark	L13
	var	5
	str	9
	line	257
	colm	20
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	line	258
	colm	13
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	256
	colm	10
	synt	endif
	unmark
lab L12
	mark	L15
	var	7
	var	8
	str	10
	pnull
	pnull
	pnull
	var	0
	line	260
	colm	31
	synt	any
	field	children
	int	2
	line	260
	colm	40
	synt	any
	subsc
	line	260
	colm	43
	synt	any
	field	s
	str	11
	pnull
	pnull
	pnull
	var	0
	line	261
	colm	21
	synt	any
	field	children
	int	12
	line	261
	colm	30
	synt	any
	subsc
	line	261
	colm	33
	synt	any
	field	s
	str	13
	line	260
	colm	16
	synt	any
	invoke	6
	unmark
lab L15
	mark	L16
	pnull
	line	262
	colm	10
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L2
lab L3
	mark	L17
	ccase
	str	3
	line	264
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	265
	colm	14
	synt	any
	field	s
	line	265
	colm	17
	synt	any
	bscan
	mark	L18
	pnull
	var	9
	var	10
	var	11
	cset	14
	line	266
	colm	28
	synt	any
	invoke	1
	line	266
	colm	23
	synt	any
	invoke	1
	line	266
	colm	17
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	line	267
	colm	13
	synt	if
	mark0
	pnull
	var	9
	line	267
	colm	16
	synt	any
	nonnull
	unmark
	pnull
	line	267
	colm	26
	synt	any
	keywd	pos
	dup
	int	2
	line	267
	colm	31
	synt	any
	plus
	asgn
	line	267
	colm	13
	synt	endif
	unmark
lab L19
	mark	L20
	pnull
	var	12
	var	10
	int	15
	line	268
	colm	23
	synt	any
	invoke	1
	line	268
	colm	17
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	13
	var	14
	var	0
	line	273
	colm	28
	synt	any
	invoke	1
	line	273
	colm	21
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	pnull
	var	13
	line	274
	colm	20
	synt	any
	field	tok
	int	16
	line	274
	colm	25
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	pnull
	var	13
	line	275
	colm	20
	synt	any
	field	s
	pnull
	pnull
	str	5
	var	12
	line	275
	colm	31
	synt	any
	cat
	str	5
	line	275
	colm	38
	synt	any
	cat
	line	275
	colm	23
	synt	any
	asgn
	unmark
lab L23
	line	277
	colm	13
	synt	ifelse
	mark	L24
	pnull
	var	9
	line	277
	colm	16
	synt	any
	nonnull
	unmark
	mark	L26
	var	7
	var	8
	str	10
	var	9
	str	17
	line	278
	colm	22
	synt	any
	invoke	4
	unmark
lab L26
	mark	L27
	var	2
	var	13
	line	279
	colm	23
	synt	any
	invoke	1
	unmark
lab L27
	var	7
	var	8
	str	18
	line	280
	colm	22
	synt	any
	invoke	2
	goto	L25
lab L24
	var	2
	var	13
	line	282
	colm	25
	synt	any
	invoke	1
lab L25
	line	277
	colm	13
	synt	endifelse
	line	265
	colm	17
	synt	any
	escan
	goto	L2
lab L17
	efail
lab L2
	line	239
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	286
	colm	1
	synt	any
	pfail
	end
proc yyprint
	local	0,001000,node
	local	1,000040,lasttok
	local	2,000020,inode
	local	3,000020,lm
	local	4,000000,type
	local	5,000000,yyprint
	local	6,000000,print_imports
	local	7,000000,outfilename
	local	8,000000,outline
	local	9,000000,write
	local	10,000000,yyout
	local	11,000000,outcol
	local	12,000000,writes
	local	13,000000,iconc_fd
	local	14,000000,leftmost_token
	local	15,000000,repl
	local	16,000000,iconc
	local	17,000000,emit_assign_code
	local	18,000000,process_uneval
	local	19,000000,exists_statlists
	local	20,000000,ini
	local	21,000000,yystalists
	local	22,000000,yyvarlists
	local	23,000000,string
	local	24,000000,tab
	local	25,000000,find
	local	26,000000,reswords
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,7,160,141,143,153,141,147,145
	con	2,010000,6,151,155,160,157,162,164
	con	3,010000,1,012
	con	4,002000,1,2
	con	5,002000,1,1
	con	6,010000,7,012,043,154,151,156,145,040
	con	7,010000,2,040,042
	con	8,010000,1,042
	con	9,010000,10,160,141,143,153,141,147,145,162,145,146
	con	10,010000,2,137,137
	con	11,002000,1,3
	con	12,010000,6,147,154,157,142,141,154
	con	13,010000,5,102,120,141,156,144
	con	14,010000,17,040,160,141,164,164,145,162,156,137,143,157,156,143,141,164,050,040
	con	15,010000,1,054
	con	16,010000,3,040,051,040
	con	17,010000,4,102,120,157,162
	con	18,010000,20,040,160,141,164,164,145,162,156,137,141,154,164,145,162,156,141,164,145,050,040
	con	19,010000,7,102,120,155,141,164,143,150
	con	20,010000,1,040
	con	21,010000,45,012,043,040,156,157,040,154,145,146,164,155,157,163,164,040,154,151,156,145,156,157,054,040,154,151,156,145,040,144,151,162,145,143,164,151,166,145,040,157,155,151,164,164,145,144
	con	22,010000,21,050,040,042,042,040,077,040,160,141,164,164,145,162,156,137,155,141,164,143,150,050
	con	23,010000,3,051,051,040
	con	24,010000,5,102,120,151,141,155
	con	25,010000,28,050,151,146,040,147,145,164,145,156,166,050,042,116,117,116,123,105,116,123,105,042,051,040,164,150,145,156,040
	con	26,010000,12,040,072,075,040,042,042,040,145,154,163,145,040
	con	27,010000,27,040,160,141,164,164,145,162,156,137,141,163,163,151,147,156,137,151,155,155,145,144,151,141,164,145,050,040
	con	28,010000,1,051
	con	29,010000,5,102,120,141,157,155
	con	30,010000,25,040,160,141,164,164,145,162,156,137,141,163,163,151,147,156,137,157,156,155,141,164,143,150,050,040
	con	31,010000,8,165,160,163,145,164,143,165,162
	con	32,010000,11,040,072,075,040,061,040,145,154,163,145,040
	con	33,010000,16,160,141,164,164,145,162,156,137,163,145,164,143,165,162,050,040
	con	34,010000,8,102,120,165,156,145,166,141,154
	con	35,010000,8,166,141,162,154,151,163,164,062
	con	36,010000,8,163,164,141,154,151,163,164,062
	con	37,010000,8,166,141,162,154,151,163,164,064
	con	38,010000,8,163,164,141,154,151,163,164,064
	con	39,010000,4,160,162,157,143
	con	40,002000,1,4
	con	41,010000,10,012,151,156,151,164,151,141,154,040,173
	con	42,010000,2,073,012
	con	43,010000,3,012,175,012
	con	44,002000,1,5
	con	45,002000,1,6
	con	46,010000,8,143,162,151,164,151,143,141,154
	con	47,010000,7,173,040,154,157,143,153,050
	con	48,010000,3,051,073,040
	con	49,010000,9,073,040,165,156,154,157,143,153,050
	con	50,010000,4,051,040,175,040
	con	51,002000,1,0
	con	52,010000,5,145,162,162,157,162
	con	53,010000,6,154,145,141,146,054,040
	con	54,010000,7,151,156,164,145,147,145,162
	con	55,010000,6,163,164,162,151,156,147
	con	56,010000,5,164,157,153,145,156
	con	57,002000,3,257
	con	58,002000,3,258
	con	59,002000,3,259
	con	60,002000,3,321
	con	61,002000,3,312
	con	62,002000,3,308
	con	63,010000,4,156,165,154,154
	con	64,010000,18,144,145,143,154,141,162,141,164,151,157,156,137,137,163,164,141,164,145
	con	65,010000,12,103,154,141,163,163,137,137,163,164,141,164,145
	con	66,010000,14,141,162,147,114,151,163,164,137,137,163,164,141,164,145
	con	67,010000,6,151,164,163,040,141,040
	declend
	line	288
	colm	11
	synt	any
	mark	L1
lab L2
	line	291
	colm	4
	synt	repeat
	mark	L2
	line	292
	colm	4
	synt	case
	mark0
	var	4
	var	0
	line	292
	colm	13
	synt	any
	invoke	1
	eret
	mark	L6
	ccase
	str	0
	line	293
	colm	18
	synt	any
	eqv
	unmark
	pop
	line	294
	colm	10
	synt	ifelse
	mark	L7
	pnull
	pnull
	var	0
	line	294
	colm	17
	synt	any
	field	label
	str	1
	line	294
	colm	24
	synt	any
	lexeq
	unmark
	line	296
	colm	13
	synt	any
	pfail
	goto	L8
lab L7
	line	298
	colm	15
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	0
	line	298
	colm	22
	synt	any
	field	label
	str	2
	line	298
	colm	29
	synt	any
	lexeq
	unmark
	mark	L11
	var	5
	str	3
	line	299
	colm	20
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	6
	pnull
	pnull
	var	0
	line	300
	colm	31
	synt	any
	field	children
	int	4
	line	300
	colm	40
	synt	any
	subsc
	line	300
	colm	26
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	pnull
	var	2
	pnull
	pnull
	var	0
	line	302
	colm	26
	synt	any
	field	children
	int	5
	line	302
	colm	35
	synt	any
	subsc
	line	302
	colm	19
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	303
	colm	13
	synt	ifelse
	mark	L15
	mark	L17
	pnull
	var	7
	pnull
	var	2
	line	303
	colm	39
	synt	any
	field	filename
	line	303
	colm	29
	synt	any
	lexne
	line	303
	colm	50
	synt	any
	esusp
	goto	L18
lab L17
	pnull
	var	8
	pnull
	var	2
	line	303
	colm	67
	synt	any
	field	line
	line	303
	colm	60
	synt	any
	numgt
lab L18
	unmark
	mark	L19
	var	9
	var	10
	str	6
	pnull
	pnull
	var	2
	line	304
	colm	45
	synt	any
	field	line
	int	5
	line	304
	colm	50
	synt	any
	minus
	str	7
	pnull
	var	2
	line	304
	colm	65
	synt	any
	field	filename
	str	8
	line	304
	colm	21
	synt	any
	invoke	6
	unmark
lab L19
	mark	L20
	pnull
	var	8
	pnull
	var	2
	line	305
	colm	32
	synt	any
	field	line
	line	305
	colm	24
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	11
	int	5
	line	306
	colm	23
	synt	any
	asgn
	unmark
lab L21
	pnull
	var	7
	pnull
	var	2
	line	307
	colm	36
	synt	any
	field	filename
	line	307
	colm	28
	synt	any
	asgn
	goto	L16
lab L15
lab L22
	line	309
	colm	18
	synt	while
	mark0
	pnull
	var	8
	pnull
	var	2
	line	309
	colm	39
	synt	any
	field	line
	line	309
	colm	32
	synt	any
	numlt
	unmark
	mark	L22
	mark	L25
	var	9
	var	10
	line	310
	colm	21
	synt	any
	invoke	1
	unmark
lab L25
	mark	L26
	pnull
	var	8
	dup
	int	5
	line	310
	colm	38
	synt	any
	plus
	asgn
	unmark
lab L26
	pnull
	var	11
	int	5
	line	310
	colm	52
	synt	any
	asgn
lab L23
	unmark
	goto	L22
lab L24
	line	309
	colm	18
	synt	endwhile
lab L16
	line	303
	colm	13
	synt	endifelse
	unmark
lab L14
	line	313
	colm	13
	synt	any
	pfail
	goto	L10
lab L9
	line	315
	colm	15
	synt	ifelse
	mark	L27
	pnull
	pnull
	var	0
	line	315
	colm	22
	synt	any
	field	label
	str	9
	line	315
	colm	29
	synt	any
	lexeq
	unmark
	mark	L29
	line	316
	colm	14
	synt	ifelse
	mark	L30
	pnull
	pnull
	pnull
	var	0
	line	316
	colm	22
	synt	any
	field	children
	line	316
	colm	17
	synt	any
	size
	int	4
	line	316
	colm	32
	synt	any
	numeq
	unmark
	var	5
	pnull
	pnull
	var	0
	line	317
	colm	30
	synt	any
	field	children
	int	4
	line	317
	colm	39
	synt	any
	subsc
	line	317
	colm	25
	synt	any
	invoke	1
	goto	L31
lab L30
	mark	L32
	var	5
	pnull
	pnull
	var	0
	line	319
	colm	29
	synt	any
	field	children
	int	5
	line	319
	colm	38
	synt	any
	subsc
	line	319
	colm	24
	synt	any
	invoke	1
	unmark
lab L32
	mark	L33
	var	12
	var	10
	str	10
	line	320
	colm	23
	synt	any
	invoke	2
	unmark
lab L33
	pnull
	var	11
	dup
	pnull
	pnull
	var	12
	var	10
	pnull
	pnull
	pnull
	var	0
	line	321
	colm	50
	synt	any
	field	children
	int	11
	line	321
	colm	59
	synt	any
	subsc
	line	321
	colm	62
	synt	any
	field	s
	line	321
	colm	38
	synt	any
	invoke	2
	line	321
	colm	30
	synt	any
	size
	int	4
	line	321
	colm	67
	synt	any
	plus
	line	321
	colm	24
	synt	any
	plus
	asgn
lab L31
	line	316
	colm	14
	synt	endifelse
	unmark
lab L29
	line	323
	colm	14
	synt	any
	pfail
	goto	L28
lab L27
	line	325
	colm	15
	synt	ifelse
	mark	L34
	pnull
	pnull
	var	0
	line	325
	colm	22
	synt	any
	field	label
	str	12
	line	325
	colm	29
	synt	any
	lexeq
	unmark
	mark	L36
	var	5
	pnull
	pnull
	var	0
	line	326
	colm	25
	synt	any
	field	children
	int	5
	line	326
	colm	34
	synt	any
	subsc
	line	326
	colm	20
	synt	any
	invoke	1
	unmark
lab L36
	mark	L37
	pnull
	var	0
	pnull
	pnull
	var	0
	line	327
	colm	25
	synt	any
	field	children
	int	4
	line	327
	colm	34
	synt	any
	subsc
	line	327
	colm	18
	synt	any
	asgn
	unmark
lab L37
	goto	L3
	goto	L35
lab L34
	line	330
	colm	15
	synt	ifelse
	mark	L38
	pnull
	pnull
	var	0
	line	330
	colm	22
	synt	any
	field	label
	str	13
	line	330
	colm	29
	synt	any
	lexeq
	unmark
	mark	L40
	pnull
	var	13
	int	5
	line	331
	colm	22
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	var	12
	var	10
	str	14
	line	332
	colm	19
	synt	any
	invoke	2
	unmark
lab L41
	mark	L42
	var	5
	pnull
	pnull
	var	0
	line	333
	colm	25
	synt	any
	field	children
	int	5
	line	333
	colm	34
	synt	any
	subsc
	line	333
	colm	20
	synt	any
	invoke	1
	unmark
lab L42
	mark	L43
	var	12
	var	10
	str	15
	line	334
	colm	19
	synt	any
	invoke	2
	unmark
lab L43
	mark	L44
	var	5
	pnull
	pnull
	var	0
	line	335
	colm	25
	synt	any
	field	children
	int	11
	line	335
	colm	34
	synt	any
	subsc
	line	335
	colm	20
	synt	any
	invoke	1
	unmark
lab L44
	mark	L45
	var	12
	var	10
	str	16
	line	336
	colm	19
	synt	any
	invoke	2
	unmark
lab L45
	line	337
	colm	13
	synt	any
	pfail
	goto	L39
lab L38
	line	339
	colm	15
	synt	ifelse
	mark	L46
	pnull
	pnull
	var	0
	line	339
	colm	22
	synt	any
	field	label
	str	17
	line	339
	colm	29
	synt	any
	lexeq
	unmark
	mark	L48
	pnull
	var	13
	int	5
	line	340
	colm	22
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	var	12
	var	10
	str	18
	line	341
	colm	19
	synt	any
	invoke	2
	unmark
lab L49
	mark	L50
	var	5
	pnull
	pnull
	var	0
	line	342
	colm	25
	synt	any
	field	children
	int	5
	line	342
	colm	34
	synt	any
	subsc
	line	342
	colm	20
	synt	any
	invoke	1
	unmark
lab L50
	mark	L51
	var	12
	var	10
	str	15
	line	343
	colm	19
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	var	5
	pnull
	pnull
	var	0
	line	344
	colm	25
	synt	any
	field	children
	int	11
	line	344
	colm	34
	synt	any
	subsc
	line	344
	colm	20
	synt	any
	invoke	1
	unmark
lab L52
	mark	L53
	var	12
	var	10
	str	16
	line	345
	colm	19
	synt	any
	invoke	2
	unmark
lab L53
	line	346
	colm	13
	synt	any
	pfail
	goto	L47
lab L46
	line	348
	colm	15
	synt	ifelse
	mark	L54
	pnull
	pnull
	var	0
	line	348
	colm	22
	synt	any
	field	label
	str	19
	line	348
	colm	29
	synt	any
	lexeq
	unmark
	mark	L56
	pnull
	var	13
	int	5
	line	349
	colm	22
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	line	352
	colm	13
	synt	ifelse
	mark	L58
	pnull
	var	3
	var	14
	var	0
	line	352
	colm	36
	synt	any
	invoke	1
	line	352
	colm	19
	synt	any
	asgn
	unmark
	line	353
	colm	16
	synt	if
	mark0
	pnull
	var	8
	pnull
	var	3
	line	353
	colm	34
	synt	any
	field	line
	line	353
	colm	27
	synt	any
	neqv
	unmark
	mark	L60
	var	9
	var	10
	str	6
	pnull
	pnull
	var	3
	line	354
	colm	45
	synt	any
	field	line
	int	5
	line	354
	colm	50
	synt	any
	minus
	str	7
	pnull
	var	3
	line	354
	colm	62
	synt	any
	field	filename
	str	8
	line	354
	colm	24
	synt	any
	invoke	6
	unmark
lab L60
	mark	L61
	pnull
	var	8
	pnull
	var	3
	line	355
	colm	32
	synt	any
	field	line
	line	355
	colm	27
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	pnull
	var	11
	int	5
	line	356
	colm	26
	synt	any
	asgn
	unmark
lab L62
	mark	L63
	line	357
	colm	19
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	357
	colm	24
	synt	any
	field	column
	int	5
	line	357
	colm	32
	synt	any
	numgt
	unmark
	var	12
	var	10
	var	15
	str	20
	pnull
	pnull
	var	3
	line	357
	colm	66
	synt	any
	field	column
	int	5
	line	357
	colm	73
	synt	any
	minus
	line	357
	colm	59
	synt	any
	invoke	2
	line	357
	colm	47
	synt	any
	invoke	2
	line	357
	colm	19
	synt	endif
	unmark
lab L63
	pnull
	var	7
	pnull
	var	3
	line	358
	colm	36
	synt	any
	field	filename
	line	358
	colm	31
	synt	any
	asgn
	line	353
	colm	16
	synt	endif
	goto	L59
lab L58
	var	9
	var	10
	str	21
	line	362
	colm	21
	synt	any
	invoke	2
lab L59
	line	352
	colm	13
	synt	endifelse
	unmark
lab L57
	mark	L64
	var	12
	var	10
	str	22
	line	365
	colm	19
	synt	any
	invoke	2
	unmark
lab L64
	mark	L65
	var	5
	pnull
	pnull
	var	0
	line	366
	colm	25
	synt	any
	field	children
	int	5
	line	366
	colm	34
	synt	any
	subsc
	line	366
	colm	20
	synt	any
	invoke	1
	unmark
lab L65
	mark	L66
	var	12
	var	10
	str	15
	line	367
	colm	19
	synt	any
	invoke	2
	unmark
lab L66
	mark	L67
	var	5
	pnull
	pnull
	var	0
	line	368
	colm	25
	synt	any
	field	children
	int	11
	line	368
	colm	34
	synt	any
	subsc
	line	368
	colm	20
	synt	any
	invoke	1
	unmark
lab L67
	mark	L68
	var	12
	var	10
	str	23
	line	369
	colm	19
	synt	any
	invoke	2
	unmark
lab L68
	line	370
	colm	13
	synt	any
	pfail
	goto	L55
lab L54
	line	372
	colm	15
	synt	ifelse
	mark	L69
	pnull
	pnull
	var	0
	line	372
	colm	22
	synt	any
	field	label
	str	24
	line	372
	colm	29
	synt	any
	lexeq
	unmark
	mark	L71
	pnull
	var	13
	int	5
	line	373
	colm	22
	synt	any
	asgn
	unmark
lab L71
	mark	L72
	line	374
	colm	13
	synt	if
	mark0
	pnull
	var	16
	int	5
	line	374
	colm	21
	synt	any
	eqv
	unmark
	mark	L73
	var	12
	var	10
	str	25
	line	375
	colm	22
	synt	any
	invoke	2
	unmark
lab L73
	mark	L74
	var	5
	pnull
	pnull
	var	0
	line	376
	colm	28
	synt	any
	field	children
	int	11
	line	376
	colm	37
	synt	any
	subsc
	line	376
	colm	23
	synt	any
	invoke	1
	unmark
lab L74
	var	12
	var	10
	str	26
	line	377
	colm	22
	synt	any
	invoke	2
	line	374
	colm	13
	synt	endif
	unmark
lab L72
	mark	L75
	var	12
	var	10
	str	27
	line	379
	colm	19
	synt	any
	invoke	2
	unmark
lab L75
	mark	L76
	var	5
	pnull
	pnull
	var	0
	line	380
	colm	25
	synt	any
	field	children
	int	5
	line	380
	colm	34
	synt	any
	subsc
	line	380
	colm	20
	synt	any
	invoke	1
	unmark
lab L76
	mark	L77
	var	12
	var	10
	str	15
	line	381
	colm	19
	synt	any
	invoke	2
	unmark
lab L77
	mark	L78
	var	17
	pnull
	pnull
	var	0
	line	382
	colm	34
	synt	any
	field	children
	int	11
	line	382
	colm	43
	synt	any
	subsc
	line	382
	colm	29
	synt	any
	invoke	1
	unmark
lab L78
	mark	L79
	var	12
	var	10
	str	15
	line	385
	colm	19
	synt	any
	invoke	2
	unmark
lab L79
	mark	L80
	var	5
	pnull
	pnull
	var	0
	line	386
	colm	25
	synt	any
	field	children
	int	11
	line	386
	colm	34
	synt	any
	subsc
	line	386
	colm	20
	synt	any
	invoke	1
	unmark
lab L80
	mark	L81
	var	12
	var	10
	str	16
	line	387
	colm	19
	synt	any
	invoke	2
	unmark
lab L81
	mark	L82
	line	388
	colm	13
	synt	if
	mark0
	pnull
	var	16
	int	5
	line	388
	colm	21
	synt	any
	eqv
	unmark
	var	12
	var	10
	str	28
	line	388
	colm	37
	synt	any
	invoke	2
	line	388
	colm	13
	synt	endif
	unmark
lab L82
	line	389
	colm	13
	synt	any
	pfail
	goto	L70
lab L69
	line	391
	colm	15
	synt	ifelse
	mark	L83
	pnull
	pnull
	var	0
	line	391
	colm	22
	synt	any
	field	label
	str	29
	line	391
	colm	29
	synt	any
	lexeq
	unmark
	mark	L85
	pnull
	var	13
	int	5
	line	392
	colm	22
	synt	any
	asgn
	unmark
lab L85
	mark	L86
	line	393
	colm	13
	synt	if
	mark0
	pnull
	var	16
	int	5
	line	393
	colm	21
	synt	any
	eqv
	unmark
	mark	L87
	var	12
	var	10
	str	25
	line	394
	colm	22
	synt	any
	invoke	2
	unmark
lab L87
	mark	L88
	var	5
	pnull
	pnull
	var	0
	line	395
	colm	28
	synt	any
	field	children
	int	11
	line	395
	colm	37
	synt	any
	subsc
	line	395
	colm	23
	synt	any
	invoke	1
	unmark
lab L88
	var	12
	var	10
	str	26
	line	396
	colm	22
	synt	any
	invoke	2
	line	393
	colm	13
	synt	endif
	unmark
lab L86
	mark	L89
	var	12
	var	10
	str	30
	line	398
	colm	19
	synt	any
	invoke	2
	unmark
lab L89
	mark	L90
	var	5
	pnull
	pnull
	var	0
	line	399
	colm	25
	synt	any
	field	children
	int	5
	line	399
	colm	34
	synt	any
	subsc
	line	399
	colm	20
	synt	any
	invoke	1
	unmark
lab L90
	mark	L91
	var	12
	var	10
	str	15
	line	400
	colm	19
	synt	any
	invoke	2
	unmark
lab L91
	mark	L92
	var	17
	pnull
	pnull
	var	0
	line	401
	colm	34
	synt	any
	field	children
	int	11
	line	401
	colm	43
	synt	any
	subsc
	line	401
	colm	29
	synt	any
	invoke	1
	unmark
lab L92
	mark	L93
	var	12
	var	10
	str	15
	line	404
	colm	19
	synt	any
	invoke	2
	unmark
lab L93
	mark	L94
	var	5
	pnull
	pnull
	var	0
	line	405
	colm	25
	synt	any
	field	children
	int	11
	line	405
	colm	34
	synt	any
	subsc
	line	405
	colm	20
	synt	any
	invoke	1
	unmark
lab L94
	mark	L95
	var	12
	var	10
	str	16
	line	406
	colm	19
	synt	any
	invoke	2
	unmark
lab L95
	mark	L96
	line	407
	colm	13
	synt	if
	mark0
	pnull
	var	16
	int	5
	line	407
	colm	21
	synt	any
	eqv
	unmark
	var	12
	var	10
	str	28
	line	407
	colm	37
	synt	any
	invoke	2
	line	407
	colm	13
	synt	endif
	unmark
lab L96
	line	408
	colm	13
	synt	any
	pfail
	goto	L84
lab L83
	line	410
	colm	15
	synt	ifelse
	mark	L97
	pnull
	pnull
	var	0
	line	410
	colm	22
	synt	any
	field	label
	str	31
	line	410
	colm	29
	synt	any
	lexeq
	unmark
	mark	L99
	pnull
	var	13
	int	5
	line	411
	colm	22
	synt	any
	asgn
	unmark
lab L99
	mark	L100
	line	412
	colm	13
	synt	if
	mark0
	pnull
	var	16
	int	5
	line	412
	colm	21
	synt	any
	eqv
	unmark
	mark	L101
	var	12
	var	10
	str	25
	line	413
	colm	22
	synt	any
	invoke	2
	unmark
lab L101
	mark	L102
	var	5
	pnull
	pnull
	var	0
	line	414
	colm	28
	synt	any
	field	children
	int	4
	line	414
	colm	37
	synt	any
	subsc
	line	414
	colm	23
	synt	any
	invoke	1
	unmark
lab L102
	var	12
	var	10
	str	32
	line	415
	colm	22
	synt	any
	invoke	2
	line	412
	colm	13
	synt	endif
	unmark
lab L100
	mark	L103
	var	12
	var	10
	str	33
	line	418
	colm	19
	synt	any
	invoke	2
	unmark
lab L103
	mark	L104
	var	17
	pnull
	pnull
	var	0
	line	419
	colm	34
	synt	any
	field	children
	int	4
	line	419
	colm	43
	synt	any
	subsc
	line	419
	colm	29
	synt	any
	invoke	1
	unmark
lab L104
	mark	L105
	var	12
	var	10
	str	15
	line	422
	colm	19
	synt	any
	invoke	2
	unmark
lab L105
	mark	L106
	var	5
	pnull
	pnull
	var	0
	line	423
	colm	25
	synt	any
	field	children
	int	4
	line	423
	colm	34
	synt	any
	subsc
	line	423
	colm	20
	synt	any
	invoke	1
	unmark
lab L106
	mark	L107
	var	12
	var	10
	str	16
	line	424
	colm	19
	synt	any
	invoke	2
	unmark
lab L107
	mark	L108
	line	425
	colm	13
	synt	if
	mark0
	pnull
	var	16
	int	5
	line	425
	colm	21
	synt	any
	eqv
	unmark
	var	12
	var	10
	str	28
	line	425
	colm	37
	synt	any
	invoke	2
	line	425
	colm	13
	synt	endif
	unmark
lab L108
	line	426
	colm	13
	synt	any
	pfail
	goto	L98
lab L97
	line	428
	colm	15
	synt	ifelse
	mark	L109
	pnull
	pnull
	var	0
	line	428
	colm	22
	synt	any
	field	label
	str	34
	line	428
	colm	29
	synt	any
	lexeq
	unmark
	mark	L111
	pnull
	var	13
	int	5
	line	429
	colm	22
	synt	any
	asgn
	unmark
lab L111
	mark	L112
	var	18
	pnull
	pnull
	var	0
	line	430
	colm	32
	synt	any
	field	children
	int	5
	line	430
	colm	41
	synt	any
	subsc
	line	430
	colm	27
	synt	any
	invoke	1
	unmark
lab L112
	line	431
	colm	13
	synt	any
	pfail
	goto	L110
lab L109
	line	433
	colm	15
	synt	ifelse
	mark	L113
	pnull
	pnull
	var	0
	line	433
	colm	22
	synt	any
	field	label
	mark	L115
	str	35
	line	433
	colm	43
	synt	any
	esusp
	goto	L116
lab L115
	str	36
lab L116
	line	433
	colm	29
	synt	any
	lexeq
	unmark
	mark	L117
	var	5
	pnull
	pnull
	var	0
	line	434
	colm	25
	synt	any
	field	children
	int	5
	line	434
	colm	34
	synt	any
	subsc
	line	434
	colm	20
	synt	any
	invoke	1
	unmark
lab L117
	line	435
	colm	13
	synt	any
	pfail
	goto	L114
lab L113
	line	437
	colm	15
	synt	ifelse
	mark	L118
	pnull
	pnull
	var	0
	line	437
	colm	22
	synt	any
	field	label
	mark	L120
	str	37
	line	437
	colm	43
	synt	any
	esusp
	goto	L121
lab L120
	str	38
lab L121
	line	437
	colm	29
	synt	any
	lexeq
	unmark
	mark	L122
	var	5
	pnull
	pnull
	var	0
	line	438
	colm	25
	synt	any
	field	children
	int	5
	line	438
	colm	34
	synt	any
	subsc
	line	438
	colm	20
	synt	any
	invoke	1
	unmark
lab L122
	mark	L123
	var	5
	pnull
	pnull
	var	0
	line	439
	colm	25
	synt	any
	field	children
	int	4
	line	439
	colm	34
	synt	any
	subsc
	line	439
	colm	20
	synt	any
	invoke	1
	unmark
lab L123
	mark	L124
	pnull
	var	0
	pnull
	pnull
	var	0
	line	440
	colm	25
	synt	any
	field	children
	int	11
	line	440
	colm	34
	synt	any
	subsc
	line	440
	colm	18
	synt	any
	asgn
	unmark
lab L124
	goto	L3
	goto	L119
lab L118
	line	443
	colm	15
	synt	ifelse
	mark	L125
	pnull
	pnull
	var	0
	line	443
	colm	22
	synt	any
	field	label
	str	39
	line	443
	colm	29
	synt	any
	lexeq
	unmark
	mark	L127
	var	5
	pnull
	pnull
	var	0
	line	444
	colm	25
	synt	any
	field	children
	int	5
	line	444
	colm	34
	synt	any
	subsc
	line	444
	colm	20
	synt	any
	invoke	1
	unmark
lab L127
	mark	L128
	line	445
	colm	13
	synt	every
	mark0
	var	5
	pnull
	pnull
	var	0
	line	445
	colm	31
	synt	any
	field	children
	pnull
	int	4
	int	11
	push1
	line	445
	colm	43
	synt	any
	toby
	line	445
	colm	40
	synt	any
	subsc
	line	445
	colm	26
	synt	any
	invoke	1
	pop
lab L129
	efail
lab L130
	line	445
	colm	13
	synt	endevery
	unmark
lab L128
	mark	L131
	line	446
	colm	13
	synt	ifelse
	mark	L132
	var	19
	pnull
	pnull
	var	0
	line	446
	colm	37
	synt	any
	field	children
	int	11
	line	446
	colm	46
	synt	any
	subsc
	line	446
	colm	32
	synt	any
	invoke	1
	unmark
	mark	L134
	pnull
	var	20
	pnull
	pnull
	var	0
	line	447
	colm	27
	synt	any
	field	children
	int	40
	line	447
	colm	36
	synt	any
	subsc
	line	447
	colm	20
	synt	any
	asgn
	unmark
lab L134
	mark	L135
	var	5
	str	41
	line	448
	colm	23
	synt	any
	invoke	1
	unmark
lab L135
	mark	L136
	var	21
	pnull
	pnull
	var	0
	line	449
	colm	31
	synt	any
	field	children
	int	11
	line	449
	colm	40
	synt	any
	subsc
	line	449
	colm	26
	synt	any
	invoke	1
	unmark
lab L136
	mark	L137
	line	450
	colm	16
	synt	if
	mark0
	pnull
	var	20
	line	450
	colm	28
	synt	any
	keywd	null
	line	450
	colm	23
	synt	any
	neqv
	unmark
	mark	L138
	var	5
	str	42
	line	451
	colm	26
	synt	any
	invoke	1
	unmark
lab L138
	var	5
	pnull
	pnull
	var	20
	line	452
	colm	30
	synt	any
	field	children
	int	4
	line	452
	colm	39
	synt	any
	subsc
	line	452
	colm	26
	synt	any
	invoke	1
	line	450
	colm	16
	synt	endif
	unmark
lab L137
	var	5
	str	43
	line	454
	colm	23
	synt	any
	invoke	1
	goto	L133
lab L132
	line	457
	colm	16
	synt	every
	mark0
	var	5
	pnull
	pnull
	var	0
	line	457
	colm	34
	synt	any
	field	children
	int	40
	line	457
	colm	43
	synt	any
	subsc
	line	457
	colm	29
	synt	any
	invoke	1
	pop
lab L139
	efail
lab L140
	line	457
	colm	16
	synt	endevery
lab L133
	line	446
	colm	13
	synt	endifelse
	unmark
lab L131
	mark	L141
	pnull
	pnull
	pnull
	pnull
	var	0
	line	458
	colm	18
	synt	any
	field	children
	int	5
	line	458
	colm	27
	synt	any
	subsc
	line	458
	colm	30
	synt	any
	field	fields
	line	458
	colm	38
	synt	any
	field	coercions
	line	458
	colm	48
	synt	any
	invoke	0
	unmark
lab L141
	mark	L142
	var	22
	pnull
	pnull
	var	0
	line	459
	colm	28
	synt	any
	field	children
	int	11
	line	459
	colm	37
	synt	any
	subsc
	line	459
	colm	23
	synt	any
	invoke	1
	unmark
lab L142
	mark	L143
	var	5
	pnull
	pnull
	var	0
	line	460
	colm	25
	synt	any
	field	children
	int	44
	line	460
	colm	34
	synt	any
	subsc
	line	460
	colm	20
	synt	any
	invoke	1
	unmark
lab L143
	mark	L144
	var	5
	pnull
	pnull
	var	0
	line	461
	colm	25
	synt	any
	field	children
	int	45
	line	461
	colm	34
	synt	any
	subsc
	line	461
	colm	20
	synt	any
	invoke	1
	unmark
lab L144
	line	462
	colm	13
	synt	any
	pfail
	goto	L126
lab L125
	line	464
	colm	15
	synt	ifelse
	mark	L145
	pnull
	pnull
	var	0
	line	464
	colm	22
	synt	any
	field	label
	str	46
	line	464
	colm	29
	synt	any
	lexeq
	unmark
	mark	L147
lab L148
	line	465
	colm	10
	synt	while
	mark0
	pnull
	var	8
	pnull
	pnull
	pnull
	var	0
	line	465
	colm	30
	synt	any
	field	children
	int	5
	line	465
	colm	39
	synt	any
	subsc
	line	465
	colm	42
	synt	any
	field	line
	line	465
	colm	24
	synt	any
	numlt
	unmark
	mark	L148
	mark	L151
	var	9
	var	10
	line	466
	colm	18
	synt	any
	invoke	1
	unmark
lab L151
	mark	L152
	pnull
	var	8
	dup
	int	5
	line	466
	colm	35
	synt	any
	plus
	asgn
	unmark
lab L152
	pnull
	var	11
	int	5
	line	466
	colm	49
	synt	any
	asgn
lab L149
	unmark
	goto	L148
lab L150
	line	465
	colm	10
	synt	endwhile
	unmark
lab L147
	mark	L153
lab L154
	line	468
	colm	10
	synt	while
	mark0
	pnull
	var	11
	pnull
	pnull
	pnull
	var	0
	line	468
	colm	29
	synt	any
	field	children
	int	5
	line	468
	colm	38
	synt	any
	subsc
	line	468
	colm	41
	synt	any
	field	column
	line	468
	colm	23
	synt	any
	numlt
	unmark
	mark	L154
	mark	L157
	var	12
	var	10
	str	20
	line	469
	colm	19
	synt	any
	invoke	2
	unmark
lab L157
	pnull
	var	11
	dup
	int	5
	line	469
	colm	40
	synt	any
	plus
	asgn
lab L155
	unmark
	goto	L154
lab L156
	line	468
	colm	10
	synt	endwhile
	unmark
lab L153
	mark	L158
	var	5
	str	47
	line	471
	colm	20
	synt	any
	invoke	1
	unmark
lab L158
	mark	L159
	var	5
	pnull
	pnull
	var	0
	line	472
	colm	25
	synt	any
	field	children
	int	4
	line	472
	colm	34
	synt	any
	subsc
	line	472
	colm	20
	synt	any
	invoke	1
	unmark
lab L159
	mark	L160
	var	5
	str	48
	line	473
	colm	20
	synt	any
	invoke	1
	unmark
lab L160
	mark	L161
	var	5
	pnull
	pnull
	var	0
	line	474
	colm	25
	synt	any
	field	children
	int	40
	line	474
	colm	34
	synt	any
	subsc
	line	474
	colm	20
	synt	any
	invoke	1
	unmark
lab L161
	mark	L162
	var	5
	str	49
	line	475
	colm	20
	synt	any
	invoke	1
	unmark
lab L162
	mark	L163
	var	5
	pnull
	pnull
	var	0
	line	476
	colm	25
	synt	any
	field	children
	int	4
	line	476
	colm	34
	synt	any
	subsc
	line	476
	colm	20
	synt	any
	invoke	1
	unmark
lab L163
	mark	L164
	var	5
	str	50
	line	477
	colm	20
	synt	any
	invoke	1
	unmark
lab L164
	line	478
	colm	13
	synt	any
	pfail
	goto	L146
lab L145
	line	480
	colm	15
	synt	ifelse
	mark	L165
	pnull
	pnull
	pnull
	var	0
	line	480
	colm	23
	synt	any
	field	children
	line	480
	colm	18
	synt	any
	size
	int	51
	line	480
	colm	33
	synt	any
	numgt
	unmark
	mark	L167
	line	481
	colm	13
	synt	every
	mark0
	var	5
	pnull
	pnull
	var	0
	line	481
	colm	31
	synt	any
	field	children
	pnull
	int	5
	pnull
	pnull
	pnull
	var	0
	line	481
	colm	51
	synt	any
	field	children
	line	481
	colm	46
	synt	any
	size
	int	5
	line	481
	colm	60
	synt	any
	minus
	push1
	line	481
	colm	43
	synt	any
	toby
	line	481
	colm	40
	synt	any
	subsc
	line	481
	colm	26
	synt	any
	invoke	1
	pop
lab L168
	efail
lab L169
	line	481
	colm	13
	synt	endevery
	unmark
lab L167
	mark	L170
	pnull
	var	0
	pnull
	pnull
	var	0
	line	482
	colm	25
	synt	any
	field	children
	pnull
	int	5
	line	482
	colm	35
	synt	any
	neg
	line	482
	colm	34
	synt	any
	subsc
	line	482
	colm	18
	synt	any
	asgn
	unmark
lab L170
	goto	L3
	goto	L166
lab L165
	line	485
	colm	15
	synt	ifelse
	mark	L171
	pnull
	pnull
	var	0
	line	485
	colm	22
	synt	any
	field	label
	str	52
	line	485
	colm	29
	synt	any
	eqv
	unmark
	line	485
	colm	46
	synt	any
	pfail
	goto	L172
lab L171
	mark	L173
	var	9
	str	53
	pnull
	var	0
	line	486
	colm	37
	synt	any
	field	label
	line	486
	colm	22
	synt	any
	invoke	2
	unmark
lab L173
	line	486
	colm	46
	synt	any
	pfail
lab L172
	line	485
	colm	15
	synt	endifelse
lab L166
	line	480
	colm	15
	synt	endifelse
lab L146
	line	464
	colm	15
	synt	endifelse
lab L126
	line	443
	colm	15
	synt	endifelse
lab L119
	line	437
	colm	15
	synt	endifelse
lab L114
	line	433
	colm	15
	synt	endifelse
lab L110
	line	428
	colm	15
	synt	endifelse
lab L98
	line	410
	colm	15
	synt	endifelse
lab L84
	line	391
	colm	15
	synt	endifelse
lab L70
	line	372
	colm	15
	synt	endifelse
lab L55
	line	348
	colm	15
	synt	endifelse
lab L47
	line	339
	colm	15
	synt	endifelse
lab L39
	line	330
	colm	15
	synt	endifelse
lab L35
	line	325
	colm	15
	synt	endifelse
lab L28
	line	315
	colm	15
	synt	endifelse
lab L10
	line	298
	colm	15
	synt	endifelse
lab L8
	line	294
	colm	10
	synt	endifelse
	goto	L5
lab L6
	mark	L174
	ccase
	str	54
	line	488
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L175
	var	12
	var	10
	var	0
	line	489
	colm	16
	synt	any
	invoke	2
	unmark
lab L175
	mark	L176
	pnull
	var	11
	dup
	pnull
	var	23
	var	0
	line	489
	colm	49
	synt	any
	invoke	1
	line	489
	colm	42
	synt	any
	size
	line	489
	colm	38
	synt	any
	plus
	asgn
	unmark
lab L176
	line	490
	colm	10
	synt	any
	pfail
	goto	L5
lab L174
	mark	L177
	ccase
	str	55
	line	492
	colm	15
	synt	any
	eqv
	unmark
	pop
	mark	L178
	var	0
	line	493
	colm	15
	synt	any
	bscan
	mark	L179
lab L180
	line	494
	colm	13
	synt	while
	mark0
	var	12
	var	10
	var	24
	pnull
	var	25
	str	3
	line	494
	colm	41
	synt	any
	invoke	1
	int	5
	line	494
	colm	47
	synt	any
	plus
	line	494
	colm	36
	synt	any
	invoke	1
	line	494
	colm	25
	synt	any
	invoke	2
	unmark
	mark	L180
	mark	L183
	pnull
	var	8
	dup
	int	5
	line	495
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L183
	mark	L184
	pnull
	var	11
	int	5
	line	495
	colm	35
	synt	any
	asgn
	unmark
lab L184
	pnull
lab L181
	unmark
	goto	L180
lab L182
	line	494
	colm	13
	synt	endwhile
	unmark
lab L179
	pnull
	var	0
	var	24
	int	51
	line	497
	colm	24
	synt	any
	invoke	1
	line	497
	colm	18
	synt	any
	asgn
	line	493
	colm	15
	synt	any
	escan
	unmark
lab L178
	mark	L185
	var	12
	var	10
	var	0
	line	499
	colm	16
	synt	any
	invoke	2
	unmark
lab L185
	mark	L186
	pnull
	var	11
	dup
	pnull
	var	0
	line	499
	colm	42
	synt	any
	size
	line	499
	colm	38
	synt	any
	plus
	asgn
	unmark
lab L186
	line	500
	colm	10
	synt	any
	pfail
	goto	L5
lab L177
	mark	L187
	ccase
	str	56
	line	502
	colm	14
	synt	any
	eqv
	unmark
	pop
	mark	L188
	line	503
	colm	10
	synt	if
	mark0
	mark	L189
	pnull
	pnull
	var	7
	line	503
	colm	13
	synt	any
	nonnull
	pnull
	pnull
	var	0
	line	503
	colm	37
	synt	any
	field	filename
	line	503
	colm	30
	synt	any
	nonnull
	line	503
	colm	26
	synt	any
	lexne
	line	503
	colm	48
	synt	any
	esusp
	goto	L190
lab L189
	pnull
	var	8
	pnull
	var	0
	line	504
	colm	29
	synt	any
	field	line
	line	504
	colm	23
	synt	any
	numgt
lab L190
	unmark
	mark	L191
	var	9
	var	10
	str	6
	pnull
	pnull
	var	0
	line	505
	colm	41
	synt	any
	field	line
	int	5
	line	505
	colm	46
	synt	any
	minus
	str	7
	pnull
	var	0
	line	505
	colm	60
	synt	any
	field	filename
	str	8
	line	505
	colm	18
	synt	any
	invoke	6
	unmark
lab L191
	mark	L192
	pnull
	var	8
	pnull
	var	0
	line	506
	colm	28
	synt	any
	field	line
	line	506
	colm	21
	synt	any
	asgn
	unmark
lab L192
	mark	L193
	pnull
	var	11
	int	5
	line	507
	colm	20
	synt	any
	asgn
	unmark
lab L193
	pnull
	var	7
	pnull
	var	0
	line	508
	colm	32
	synt	any
	field	filename
	line	508
	colm	25
	synt	any
	asgn
	line	503
	colm	10
	synt	endif
	unmark
lab L188
	mark	L194
lab L195
	line	511
	colm	10
	synt	while
	mark0
	pnull
	var	8
	pnull
	var	0
	line	511
	colm	30
	synt	any
	field	line
	line	511
	colm	24
	synt	any
	numlt
	unmark
	mark	L195
	mark	L198
	var	9
	var	10
	line	512
	colm	18
	synt	any
	invoke	1
	unmark
lab L198
	mark	L199
	pnull
	var	8
	dup
	int	5
	line	512
	colm	35
	synt	any
	plus
	asgn
	unmark
lab L199
	pnull
	var	11
	int	5
	line	512
	colm	49
	synt	any
	asgn
lab L196
	unmark
	goto	L195
lab L197
	line	511
	colm	10
	synt	endwhile
	unmark
lab L194
	mark	L200
	line	514
	colm	10
	synt	ifelse
	mark	L201
	pnull
	var	11
	pnull
	var	0
	line	514
	colm	27
	synt	any
	field	column
	line	514
	colm	20
	synt	any
	numge
	unmark
	line	517
	colm	13
	synt	if
	mark0
	mark	L203
	pnull
	pnull
	pnull
	var	1
	line	517
	colm	18
	synt	any
	nonnull
	line	517
	colm	27
	synt	any
	field	tok
	mark	L205
	int	57
	line	517
	colm	38
	synt	any
	esusp
	goto	L206
lab L205
	mark	L207
	int	58
	line	517
	colm	42
	synt	any
	esusp
	goto	L208
lab L207
	int	59
lab L208
lab L206
	line	517
	colm	32
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	26
	pnull
	var	0
	line	517
	colm	63
	synt	any
	field	s
	line	517
	colm	58
	synt	any
	subsc
	int	4
	line	517
	colm	66
	synt	any
	subsc
	int	57
	line	517
	colm	69
	synt	any
	numne
	line	517
	colm	75
	synt	any
	esusp
	goto	L204
lab L203
	mark	L209
	pnull
	pnull
	pnull
	var	1
	line	518
	colm	20
	synt	any
	nonnull
	line	518
	colm	29
	synt	any
	field	tok
	int	60
	line	518
	colm	34
	synt	any
	numeq
	pop
	pnull
	pnull
	var	0
	line	518
	colm	48
	synt	any
	field	tok
	int	61
	line	518
	colm	53
	synt	any
	numeq
	line	518
	colm	61
	synt	any
	esusp
	goto	L210
lab L209
	mark	L211
	pnull
	pnull
	pnull
	pnull
	var	1
	line	519
	colm	19
	synt	any
	nonnull
	line	519
	colm	28
	synt	any
	field	tok
	pnull
	var	0
	line	519
	colm	39
	synt	any
	field	tok
	line	519
	colm	33
	synt	any
	numeq
	int	62
	line	519
	colm	44
	synt	any
	numeq
	line	519
	colm	51
	synt	any
	esusp
	goto	L212
lab L211
	mark	L213
	pnull
	pnull
	pnull
	pnull
	var	1
	line	520
	colm	19
	synt	any
	nonnull
	line	520
	colm	28
	synt	any
	field	tok
	pnull
	var	0
	line	520
	colm	39
	synt	any
	field	tok
	line	520
	colm	33
	synt	any
	numeq
	int	61
	line	520
	colm	44
	synt	any
	numeq
	line	520
	colm	51
	synt	any
	esusp
	goto	L214
lab L213
	mark	L215
	pnull
	pnull
	pnull
	var	26
	pnull
	pnull
	var	1
	line	521
	colm	29
	synt	any
	nonnull
	line	521
	colm	38
	synt	any
	field	s
	line	521
	colm	27
	synt	any
	subsc
	int	4
	line	521
	colm	41
	synt	any
	subsc
	int	57
	line	521
	colm	44
	synt	any
	numne
	pop
	pnull
	pnull
	var	0
	line	521
	colm	58
	synt	any
	field	tok
	mark	L217
	int	57
	line	521
	colm	67
	synt	any
	esusp
	goto	L218
lab L217
	mark	L219
	int	58
	line	521
	colm	71
	synt	any
	esusp
	goto	L220
lab L219
	int	59
lab L220
lab L218
	line	521
	colm	62
	synt	any
	numeq
	line	521
	colm	78
	synt	any
	esusp
	goto	L216
lab L215
	pnull
	pnull
	pnull
	var	26
	pnull
	pnull
	var	1
	line	522
	colm	29
	synt	any
	nonnull
	line	522
	colm	38
	synt	any
	field	s
	line	522
	colm	27
	synt	any
	subsc
	int	4
	line	522
	colm	41
	synt	any
	subsc
	int	57
	line	522
	colm	44
	synt	any
	numne
	pop
	pnull
	pnull
	pnull
	var	26
	pnull
	var	0
	line	522
	colm	67
	synt	any
	field	s
	line	522
	colm	62
	synt	any
	subsc
	int	4
	line	522
	colm	70
	synt	any
	subsc
	int	57
	line	522
	colm	73
	synt	any
	numne
lab L216
lab L214
lab L212
lab L210
lab L204
	unmark
	var	12
	var	10
	str	20
	line	524
	colm	22
	synt	any
	invoke	2
	line	517
	colm	13
	synt	endif
	goto	L202
lab L201
lab L221
	line	527
	colm	13
	synt	while
	mark0
	pnull
	var	11
	pnull
	var	0
	line	527
	colm	32
	synt	any
	field	column
	line	527
	colm	26
	synt	any
	numlt
	unmark
	mark	L221
	mark	L224
	var	12
	var	10
	str	20
	line	527
	colm	51
	synt	any
	invoke	2
	unmark
lab L224
	pnull
	var	11
	dup
	int	5
	line	527
	colm	72
	synt	any
	plus
	asgn
lab L222
	unmark
	goto	L221
lab L223
	line	527
	colm	13
	synt	endwhile
lab L202
	line	514
	colm	10
	synt	endifelse
	unmark
lab L200
	mark	L225
	var	12
	var	10
	pnull
	var	0
	line	529
	colm	28
	synt	any
	field	s
	line	529
	colm	16
	synt	any
	invoke	2
	unmark
lab L225
	mark	L226
	pnull
	var	11
	dup
	pnull
	pnull
	var	0
	line	530
	colm	26
	synt	any
	field	s
	line	530
	colm	21
	synt	any
	size
	line	530
	colm	17
	synt	any
	plus
	asgn
	unmark
lab L226
	mark	L227
	pnull
	var	1
	var	0
	line	531
	colm	18
	synt	any
	asgn
	unmark
lab L227
	line	532
	colm	10
	synt	any
	pfail
	goto	L5
lab L187
	mark	L228
	ccase
	str	63
	line	534
	colm	13
	synt	any
	eqv
	unmark
	pop
	line	534
	colm	17
	synt	any
	pfail
	goto	L5
lab L228
	mark	L229
	ccase
	str	64
	line	535
	colm	27
	synt	any
	eqv
	unmark
	pop
	mark	L230
	pnull
	var	0
	line	536
	colm	14
	synt	any
	field	Write
	var	10
	line	536
	colm	20
	synt	any
	invoke	1
	unmark
lab L230
	line	537
	colm	10
	synt	any
	pfail
	goto	L5
lab L229
	mark	L231
	ccase
	str	65
	line	539
	colm	21
	synt	any
	eqv
	unmark
	pop
	mark	L232
	pnull
	var	0
	line	540
	colm	14
	synt	any
	field	Write
	var	10
	line	540
	colm	20
	synt	any
	invoke	1
	unmark
lab L232
	line	541
	colm	10
	synt	any
	pfail
	goto	L5
lab L231
	mark	L233
	ccase
	str	66
	line	543
	colm	23
	synt	any
	eqv
	unmark
	pop
	mark	L234
	pnull
	var	0
	line	544
	colm	14
	synt	any
	field	Write
	var	10
	line	544
	colm	20
	synt	any
	invoke	1
	unmark
lab L234
	line	545
	colm	10
	synt	any
	pfail
	goto	L5
lab L233
	pop
	mark	L235
	var	9
	str	67
	var	4
	var	0
	line	547
	colm	38
	synt	any
	invoke	1
	line	547
	colm	23
	synt	any
	invoke	2
	unmark
lab L235
	line	547
	colm	47
	synt	any
	pfail
lab L5
	line	292
	colm	4
	synt	endcase
lab L3
	unmark
	goto	L2
lab L4
	line	291
	colm	4
	synt	endrepeat
	unmark
lab L1
	pnull
	line	549
	colm	1
	synt	any
	pfail
	end
proc print_imports
	local	0,001000,node
	local	1,000000,type
	local	2,000000,print_imports
	local	3,000000,tempp
	local	4,000000,Package
	local	5,000000,fn
	local	6,000000,map
	local	7,000000,writelink
	local	8,000000,outcol
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,7,151,155,160,154,151,163,164
	con	2,010000,7,154,156,153,154,151,163,164
	con	3,002000,1,1
	con	4,002000,1,3
	con	5,002000,3,257
	con	6,002000,3,260
	con	7,002000,1,4
	con	8,002000,1,0
	con	9,010000,4,056,151,143,156
	con	10,010000,0
	declend
	line	551
	colm	11
	synt	any
	mark	L1
	line	553
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	553
	colm	11
	synt	any
	invoke	1
	str	0
	line	553
	colm	17
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	553
	colm	36
	synt	any
	field	label
	mark	L4
	str	1
	line	553
	colm	54
	synt	any
	esusp
	goto	L5
lab L4
	str	2
lab L5
	line	553
	colm	42
	synt	any
	lexeq
	unmark
	mark	L6
	var	2
	pnull
	pnull
	var	0
	line	554
	colm	25
	synt	any
	field	children
	int	3
	line	554
	colm	34
	synt	any
	subsc
	line	554
	colm	20
	synt	any
	invoke	1
	unmark
lab L6
	var	2
	pnull
	pnull
	var	0
	line	555
	colm	25
	synt	any
	field	children
	int	4
	line	555
	colm	34
	synt	any
	subsc
	line	555
	colm	20
	synt	any
	invoke	1
	goto	L3
lab L2
	line	557
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	557
	colm	16
	synt	any
	field	tok
	mark	L7
	int	5
	line	557
	colm	27
	synt	any
	esusp
	goto	L8
lab L7
	int	6
lab L8
	line	557
	colm	21
	synt	any
	numeq
	unmark
	mark	L9
	pnull
	var	3
	var	4
	pnull
	var	0
	line	558
	colm	28
	synt	any
	field	s
	line	558
	colm	23
	synt	any
	invoke	1
	line	558
	colm	13
	synt	any
	asgn
	unmark
lab L9
	line	559
	colm	7
	synt	every
	mark0
	pnull
	var	5
	pnull
	pnull
	pnull
	var	3
	line	559
	colm	26
	synt	any
	field	files
	line	559
	colm	20
	synt	any
	nonnull
	line	559
	colm	33
	synt	any
	field	foreach
	line	559
	colm	41
	synt	any
	invoke	0
	line	559
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L12
	line	560
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	6
	var	5
	line	560
	colm	16
	synt	any
	invoke	1
	pnull
	int	7
	line	560
	colm	21
	synt	any
	neg
	int	8
	line	560
	colm	23
	synt	any
	synt	any
	sect
	str	9
	line	560
	colm	26
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	5
	pnull
	int	7
	line	560
	colm	43
	synt	any
	neg
	int	8
	line	560
	colm	45
	synt	any
	synt	any
	sect
	str	10
	line	560
	colm	49
	synt	any
	asgn
	line	560
	colm	10
	synt	endif
	unmark
lab L12
	mark	L13
	var	7
	pnull
	var	3
	line	561
	colm	25
	synt	any
	field	dir
	var	5
	line	561
	colm	19
	synt	any
	invoke	2
	unmark
lab L13
	pnull
	var	8
	int	3
	line	562
	colm	17
	synt	any
	asgn
	unmark
lab L10
	efail
lab L11
	line	559
	colm	7
	synt	endevery
	line	557
	colm	9
	synt	endif
lab L3
	line	553
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	565
	colm	1
	synt	any
	pfail
	end
proc mangle_sym
	local	0,001000,sym
	local	1,000000,yydbg
	local	2,000000,dbg
	local	3,000000,write
	local	4,000000,x
	local	5,000000,sort
	local	6,000000,imported
	local	7,000000,s
	local	8,000000,member
	local	9,000000,package_level_syms
	local	10,000000,package_mangled_symbol
	local	11,000000,l
	local	12,000000,yyerror
	con	0,002000,1,1
	con	1,010000,17,151,155,160,157,162,164,145,144,040,163,171,155,163,072,055,055,055
	con	2,010000,1,133
	con	3,002000,1,2
	con	4,010000,1,054
	con	5,010000,1,135
	con	6,010000,2,055,076
	con	7,010000,6,055,055,055,055,055,055
	con	8,010000,37,040,151,163,040,151,155,160,157,162,164,145,144,040,146,162,157,155,040,163,145,166,145,162,141,154,040,160,141,143,153,141,147,145,163,072,040,050
	con	9,010000,59,051,040,125,163,145,040,164,150,145,040,072,072,040,157,160,145,162,141,164,157,162,040,164,157,040,163,160,145,143,151,146,171,040,167,150,151,143,150,040,160,141,143,153,141,147,145,040,151,163,040,151,156,164,145,156,144,145,144,056
	con	10,010000,2,137,137
	declend
	line	571
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	573
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	573
	colm	10
	synt	any
	nonnull
	unmark
	mark	L4
	pnull
	var	2
	int	0
	line	574
	colm	14
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	3
	str	1
	line	575
	colm	15
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	line	576
	colm	10
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	5
	var	6
	line	576
	colm	26
	synt	any
	invoke	1
	line	576
	colm	21
	synt	any
	bang
	line	576
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L9
	pnull
	var	7
	str	2
	line	577
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	578
	colm	13
	synt	every
	mark0
	pnull
	var	7
	dup
	pnull
	pnull
	pnull
	var	4
	int	3
	line	578
	colm	28
	synt	any
	subsc
	line	578
	colm	26
	synt	any
	bang
	str	4
	line	578
	colm	32
	synt	any
	cat
	line	578
	colm	21
	synt	any
	cat
	asgn
	pop
lab L11
	efail
lab L12
	line	578
	colm	13
	synt	endevery
	unmark
lab L10
	mark	L13
	pnull
	pnull
	var	7
	pnull
	int	0
	line	579
	colm	15
	synt	any
	neg
	line	579
	colm	14
	synt	any
	subsc
	str	5
	line	579
	colm	19
	synt	any
	asgn
	unmark
lab L13
	var	3
	pnull
	var	4
	int	0
	line	580
	colm	20
	synt	any
	subsc
	str	6
	var	7
	line	580
	colm	18
	synt	any
	invoke	3
	unmark
lab L7
	efail
lab L8
	line	576
	colm	10
	synt	endevery
	unmark
lab L6
	var	3
	str	7
	line	582
	colm	15
	synt	any
	invoke	1
	line	573
	colm	7
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L14
	line	590
	colm	4
	synt	if
	mark0
	var	8
	var	9
	var	0
	line	590
	colm	13
	synt	any
	invoke	2
	unmark
	mark	L15
	var	10
	var	0
	line	591
	colm	36
	synt	any
	invoke	1
	line	591
	colm	7
	synt	any
	pret
lab L15
	synt	any
	pfail
	line	590
	colm	4
	synt	endif
	unmark
lab L14
	mark	L16
	line	593
	colm	4
	synt	if
	mark0
	var	8
	var	6
	var	0
	line	593
	colm	13
	synt	any
	invoke	2
	unmark
	mark	L17
	pnull
	var	11
	pnull
	var	6
	var	0
	line	594
	colm	20
	synt	any
	subsc
	line	594
	colm	9
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	line	595
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	11
	line	595
	colm	10
	synt	any
	size
	int	0
	line	595
	colm	13
	synt	any
	numgt
	unmark
	mark	L19
	pnull
	var	7
	pnull
	var	0
	str	8
	line	600
	colm	22
	synt	any
	cat
	line	600
	colm	15
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	line	601
	colm	13
	synt	every
	mark0
	pnull
	var	7
	dup
	pnull
	pnull
	var	11
	line	601
	colm	26
	synt	any
	bang
	str	4
	line	601
	colm	29
	synt	any
	cat
	line	601
	colm	21
	synt	any
	cat
	asgn
	pop
lab L21
	efail
lab L22
	line	601
	colm	13
	synt	endevery
	unmark
lab L20
	mark	L23
	pnull
	pnull
	var	7
	pnull
	int	0
	line	602
	colm	15
	synt	any
	neg
	line	602
	colm	14
	synt	any
	subsc
	str	9
	line	602
	colm	18
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	var	12
	var	7
	line	603
	colm	20
	synt	any
	invoke	1
	unmark
lab L24
	mark	L25
	var	0
	line	604
	colm	13
	synt	any
	pret
lab L25
	synt	any
	pfail
	line	595
	colm	7
	synt	endif
	unmark
lab L18
	mark	L26
	pnull
	pnull
	pnull
	var	11
	int	0
	line	609
	colm	15
	synt	any
	subsc
	str	10
	line	609
	colm	19
	synt	any
	cat
	var	0
	line	609
	colm	27
	synt	any
	cat
	line	609
	colm	7
	synt	any
	pret
lab L26
	synt	any
	pfail
	line	593
	colm	4
	synt	endif
	unmark
lab L16
	mark	L27
	mark	L28
	var	0
	line	612
	colm	4
	synt	any
	pret
lab L28
	synt	any
	pfail
	unmark
lab L27
	pnull
	line	613
	colm	1
	synt	any
	pfail
	end
proc mangle_class_sym
	local	0,001000,sym
	local	1,000000,yydbg
	local	2,000000,dbg
	local	3,000000,write
	local	4,000000,x
	local	5,000000,sort
	local	6,000000,imported_classes
	local	7,000000,s
	local	8,000000,member
	local	9,000000,package_level_class_syms
	local	10,000000,package_mangled_symbol
	local	11,000000,l
	local	12,000000,yyerror
	con	0,002000,1,1
	con	1,010000,23,151,155,160,157,162,164,145,144,040,143,154,141,163,163,040,163,171,155,163,072,055,055,055
	con	2,010000,1,133
	con	3,002000,1,2
	con	4,010000,1,054
	con	5,010000,1,135
	con	6,010000,2,055,076
	con	7,010000,6,055,055,055,055,055,055
	con	8,010000,37,040,151,163,040,151,155,160,157,162,164,145,144,040,146,162,157,155,040,163,145,166,145,162,141,154,040,160,141,143,153,141,147,145,163,072,040,050
	con	9,010000,59,051,040,125,163,145,040,164,150,145,040,072,072,040,157,160,145,162,141,164,157,162,040,164,157,040,163,160,145,143,151,146,171,040,167,150,151,143,150,040,160,141,143,153,141,147,145,040,151,163,040,151,156,164,145,156,144,145,144,056
	con	10,010000,2,137,137
	declend
	line	619
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	621
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	621
	colm	10
	synt	any
	nonnull
	unmark
	mark	L4
	pnull
	var	2
	int	0
	line	622
	colm	14
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	3
	str	1
	line	623
	colm	15
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	line	624
	colm	10
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	5
	var	6
	line	624
	colm	26
	synt	any
	invoke	1
	line	624
	colm	21
	synt	any
	bang
	line	624
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L9
	pnull
	var	7
	str	2
	line	625
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	626
	colm	13
	synt	every
	mark0
	pnull
	var	7
	dup
	pnull
	pnull
	pnull
	var	4
	int	3
	line	626
	colm	28
	synt	any
	subsc
	line	626
	colm	26
	synt	any
	bang
	str	4
	line	626
	colm	32
	synt	any
	cat
	line	626
	colm	21
	synt	any
	cat
	asgn
	pop
lab L11
	efail
lab L12
	line	626
	colm	13
	synt	endevery
	unmark
lab L10
	mark	L13
	pnull
	pnull
	var	7
	pnull
	int	0
	line	627
	colm	15
	synt	any
	neg
	line	627
	colm	14
	synt	any
	subsc
	str	5
	line	627
	colm	19
	synt	any
	asgn
	unmark
lab L13
	var	3
	pnull
	var	4
	int	0
	line	628
	colm	20
	synt	any
	subsc
	str	6
	var	7
	line	628
	colm	18
	synt	any
	invoke	3
	unmark
lab L7
	efail
lab L8
	line	624
	colm	10
	synt	endevery
	unmark
lab L6
	var	3
	str	7
	line	630
	colm	15
	synt	any
	invoke	1
	line	621
	colm	7
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L14
	line	638
	colm	4
	synt	if
	mark0
	var	8
	pnull
	var	9
	line	638
	colm	14
	synt	any
	nonnull
	var	0
	line	638
	colm	13
	synt	any
	invoke	2
	unmark
	mark	L15
	var	10
	var	0
	line	639
	colm	36
	synt	any
	invoke	1
	line	639
	colm	7
	synt	any
	pret
lab L15
	synt	any
	pfail
	line	638
	colm	4
	synt	endif
	unmark
lab L14
	mark	L16
	line	641
	colm	4
	synt	if
	mark0
	var	8
	pnull
	var	6
	line	641
	colm	14
	synt	any
	nonnull
	var	0
	line	641
	colm	13
	synt	any
	invoke	2
	unmark
	mark	L17
	pnull
	var	11
	pnull
	var	6
	var	0
	line	642
	colm	28
	synt	any
	subsc
	line	642
	colm	9
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	line	643
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	11
	line	643
	colm	10
	synt	any
	size
	int	0
	line	643
	colm	13
	synt	any
	numgt
	unmark
	mark	L19
	pnull
	var	7
	pnull
	var	0
	str	8
	line	649
	colm	25
	synt	any
	cat
	line	649
	colm	18
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	line	650
	colm	16
	synt	every
	mark0
	pnull
	var	7
	dup
	pnull
	pnull
	var	11
	line	650
	colm	29
	synt	any
	bang
	str	4
	line	650
	colm	32
	synt	any
	cat
	line	650
	colm	24
	synt	any
	cat
	asgn
	pop
lab L21
	efail
lab L22
	line	650
	colm	16
	synt	endevery
	unmark
lab L20
	mark	L23
	pnull
	pnull
	var	7
	pnull
	int	0
	line	651
	colm	18
	synt	any
	neg
	line	651
	colm	17
	synt	any
	subsc
	str	9
	line	651
	colm	21
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	var	12
	var	7
	line	652
	colm	23
	synt	any
	invoke	1
	unmark
lab L24
	mark	L25
	var	0
	line	653
	colm	16
	synt	any
	pret
lab L25
	synt	any
	pfail
	line	643
	colm	7
	synt	endif
	unmark
lab L18
	mark	L26
	pnull
	pnull
	pnull
	var	11
	int	0
	line	659
	colm	15
	synt	any
	subsc
	str	10
	line	659
	colm	19
	synt	any
	cat
	var	0
	line	659
	colm	27
	synt	any
	cat
	line	659
	colm	7
	synt	any
	pret
lab L26
	synt	any
	pfail
	line	641
	colm	4
	synt	endif
	unmark
lab L16
	mark	L27
	mark	L28
	var	0
	line	662
	colm	4
	synt	any
	pret
lab L28
	synt	any
	pfail
	unmark
lab L27
	pnull
	line	663
	colm	1
	synt	any
	pfail
	end
proc set_package_level_syms
	local	0,001000,node
	local	1,000020,n
	local	2,000000,type
	local	3,000000,set_package_level_syms
	local	4,000000,ident_into_package_level_syms
	local	5,000000,insert
	local	6,000000,package_level_syms
	local	7,000000,package_level_class_syms
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,5,144,145,143,154,163
	con	2,002000,1,1
	con	3,002000,1,2
	con	4,010000,6,147,154,157,142,141,154
	con	5,010000,5,164,157,153,145,156
	con	6,002000,1,3
	con	7,010000,4,160,162,157,143
	con	8,010000,18,144,145,143,154,141,162,141,164,151,157,156,137,137,163,164,141,164,145
	con	9,010000,12,103,154,141,163,163,137,137,163,164,141,164,145
	declend
	line	672
	colm	11
	synt	any
	mark	L1
	line	674
	colm	4
	synt	case
	mark0
	var	2
	var	0
	line	674
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	675
	colm	17
	synt	any
	eqv
	unmark
	pop
	line	676
	colm	10
	synt	case
	mark0
	pnull
	var	0
	line	676
	colm	19
	synt	any
	field	label
	eret
	mark	L5
	ccase
	str	1
	line	677
	colm	21
	synt	any
	eqv
	unmark
	pop
	line	678
	colm	16
	synt	every
	mark0
	var	3
	pnull
	pnull
	var	0
	line	678
	colm	49
	synt	any
	field	children
	mark	L8
	int	2
	line	678
	colm	61
	synt	any
	esusp
	goto	L9
lab L8
	int	3
lab L9
	line	678
	colm	58
	synt	any
	subsc
	line	678
	colm	44
	synt	any
	invoke	1
	pop
lab L6
	efail
lab L7
	line	678
	colm	16
	synt	endevery
	goto	L4
lab L5
	mark	L10
	ccase
	str	4
	line	681
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L11
	pnull
	var	1
	pnull
	pnull
	var	0
	line	682
	colm	25
	synt	any
	field	children
	int	3
	line	682
	colm	34
	synt	any
	subsc
	line	682
	colm	18
	synt	any
	asgn
	unmark
lab L11
lab L12
	line	683
	colm	16
	synt	repeat
	mark	L12
	mark	L15
	line	684
	colm	19
	synt	if
	mark0
	pnull
	var	2
	var	1
	line	684
	colm	26
	synt	any
	invoke	1
	str	5
	line	684
	colm	30
	synt	any
	lexeq
	unmark
	mark	L16
	var	4
	var	1
	line	685
	colm	51
	synt	any
	invoke	1
	unmark
lab L16
	mark	L17
	pnull
	line	686
	colm	22
	synt	any
	pret
lab L17
	synt	any
	pfail
	line	684
	colm	19
	synt	endif
	unmark
lab L15
	mark	L18
	var	4
	pnull
	pnull
	var	1
	line	688
	colm	50
	synt	any
	field	children
	int	6
	line	688
	colm	59
	synt	any
	subsc
	line	688
	colm	48
	synt	any
	invoke	1
	unmark
lab L18
	pnull
	var	1
	pnull
	pnull
	var	1
	line	689
	colm	25
	synt	any
	field	children
	int	2
	line	689
	colm	34
	synt	any
	subsc
	line	689
	colm	21
	synt	any
	asgn
lab L13
	unmark
	goto	L12
lab L14
	line	683
	colm	16
	synt	endrepeat
	goto	L4
lab L10
	mark	L19
	ccase
	str	7
	line	693
	colm	20
	synt	any
	eqv
	unmark
	pop
	var	4
	pnull
	pnull
	pnull
	var	0
	line	694
	colm	50
	synt	any
	field	children
	int	2
	line	694
	colm	59
	synt	any
	subsc
	line	694
	colm	62
	synt	any
	field	name
	line	694
	colm	45
	synt	any
	invoke	1
	goto	L4
lab L19
	efail
lab L4
	line	676
	colm	10
	synt	endcase
	goto	L2
lab L3
	mark	L20
	ccase
	str	8
	line	699
	colm	27
	synt	any
	eqv
	unmark
	pop
	var	4
	pnull
	var	0
	line	700
	colm	44
	synt	any
	field	name
	line	700
	colm	39
	synt	any
	invoke	1
	goto	L2
lab L20
	mark	L21
	ccase
	str	9
	line	702
	colm	21
	synt	any
	eqv
	unmark
	pop
	mark	L22
	var	5
	var	6
	pnull
	var	0
	line	703
	colm	41
	synt	any
	field	unmangled_name
	line	703
	colm	16
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	var	5
	var	7
	pnull
	var	0
	line	704
	colm	47
	synt	any
	field	unmangled_name
	line	704
	colm	16
	synt	any
	invoke	2
	unmark
lab L23
	line	709
	colm	10
	synt	every
	mark0
	var	3
	pnull
	pnull
	pnull
	var	0
	line	709
	colm	46
	synt	any
	field	glob
	line	709
	colm	41
	synt	any
	nonnull
	line	709
	colm	39
	synt	any
	bang
	line	709
	colm	38
	synt	any
	invoke	1
	pop
lab L24
	efail
lab L25
	line	709
	colm	10
	synt	endevery
	goto	L2
lab L21
	efail
lab L2
	line	674
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	713
	colm	1
	synt	any
	pfail
	end
proc ident_into_package_level_syms
	local	0,001000,node
	local	1,000000,insert
	local	2,000000,package_level_syms
	local	3,000000,package_mangled_symbol
	declend
	line	718
	colm	11
	synt	any
	mark	L1
	var	1
	var	2
	pnull
	var	0
	line	719
	colm	35
	synt	any
	field	s
	line	719
	colm	10
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	720
	colm	8
	synt	any
	field	s
	var	3
	pnull
	var	0
	line	720
	colm	41
	synt	any
	field	s
	line	720
	colm	36
	synt	any
	invoke	1
	line	720
	colm	11
	synt	any
	asgn
	unmark
lab L2
	pnull
	line	721
	colm	1
	synt	any
	pfail
	end
proc package_mangled_symbol
	local	0,001000,symbol
	local	1,000000,thePackage
	con	0,010000,2,137,137
	declend
	line	726
	colm	11
	synt	any
	mark	L1
	line	727
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	1
	line	727
	colm	7
	synt	any
	null
	unmark
	mark	L4
	var	0
	line	728
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	pnull
	pnull
	var	1
	line	730
	colm	24
	synt	any
	field	name
	str	0
	line	730
	colm	30
	synt	any
	cat
	var	0
	line	730
	colm	38
	synt	any
	cat
	line	730
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L3
	line	727
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	731
	colm	1
	synt	any
	pfail
	end
proc mangle_explicit_packageref
	local	0,001000,node
	con	0,002000,1,2
	con	1,002000,1,1
	con	2,010000,2,137,137
	con	3,002000,1,3
	declend
	line	737
	colm	11
	synt	any
	mark	L1
	line	738
	colm	4
	synt	ifelse
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	738
	colm	12
	synt	any
	field	children
	line	738
	colm	7
	synt	any
	size
	int	0
	line	738
	colm	22
	synt	any
	numeq
	unmark
	mark	L4
	pnull
	pnull
	pnull
	var	0
	line	739
	colm	18
	synt	any
	field	children
	int	0
	line	739
	colm	27
	synt	any
	subsc
	line	739
	colm	30
	synt	any
	field	s
	line	739
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	741
	colm	18
	synt	any
	field	children
	int	1
	line	741
	colm	27
	synt	any
	subsc
	line	741
	colm	30
	synt	any
	field	s
	str	2
	line	741
	colm	33
	synt	any
	cat
	pnull
	pnull
	pnull
	var	0
	line	741
	colm	48
	synt	any
	field	children
	int	3
	line	741
	colm	57
	synt	any
	subsc
	line	741
	colm	60
	synt	any
	field	s
	line	741
	colm	41
	synt	any
	cat
	line	741
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L3
	line	738
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	742
	colm	1
	synt	any
	pfail
	end
proc scopecheck_superclass_decs
	local	0,001000,node
	local	1,000000,scopecheck_superclass_dec
	local	2,000000,classes
	declend
	line	756
	colm	11
	synt	any
	mark	L1
	line	757
	colm	4
	synt	every
	mark0
	var	1
	pnull
	var	2
	line	757
	colm	43
	synt	any
	field	foreach_t
	line	757
	colm	53
	synt	any
	invoke	0
	line	757
	colm	35
	synt	any
	invoke	1
	pop
lab L2
	efail
lab L3
	line	757
	colm	4
	synt	endevery
	unmark
lab L1
	pnull
	line	758
	colm	1
	synt	any
	pfail
	end
proc scopecheck_superclass_dec
	local	0,001000,c
	local	1,000020,tmp
	local	2,000020,x
	local	3,000000,idTaque
	local	4,000000,sc
	local	5,000000,type
	local	6,000000,mangle_class_sym
	local	7,000000,mangle_explicit_packageref
	con	0,010000,1,072
	con	1,002000,1,2
	con	2,010000,5,164,157,153,145,156
	con	3,002000,1,3
	declend
	line	763
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	3
	str	0
	line	766
	colm	18
	synt	any
	invoke	1
	line	766
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	767
	colm	10
	synt	any
	field	supers_node
	line	767
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	768
	colm	4
	synt	while
	mark0
	pnull
	var	2
	line	768
	colm	17
	synt	any
	keywd	null
	line	768
	colm	12
	synt	any
	neqv
	unmark
	mark	L4
	mark	L7
	pnull
	var	4
	pnull
	pnull
	var	2
	line	769
	colm	14
	synt	any
	field	children
	int	1
	line	769
	colm	23
	synt	any
	subsc
	line	769
	colm	10
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	771
	colm	7
	synt	ifelse
	mark	L9
	pnull
	var	5
	var	4
	line	771
	colm	14
	synt	any
	invoke	1
	str	2
	line	771
	colm	19
	synt	any
	lexeq
	unmark
	pnull
	var	1
	line	773
	colm	13
	synt	any
	field	Put
	var	6
	pnull
	var	4
	line	773
	colm	37
	synt	any
	field	s
	line	773
	colm	34
	synt	any
	invoke	1
	line	773
	colm	17
	synt	any
	invoke	1
	goto	L10
lab L9
	pnull
	var	1
	line	776
	colm	13
	synt	any
	field	Put
	var	7
	var	4
	line	776
	colm	44
	synt	any
	invoke	1
	line	776
	colm	17
	synt	any
	invoke	1
lab L10
	line	771
	colm	7
	synt	endifelse
	unmark
lab L8
	pnull
	var	2
	pnull
	pnull
	var	2
	line	778
	colm	13
	synt	any
	field	children
	int	3
	line	778
	colm	22
	synt	any
	subsc
	line	778
	colm	9
	synt	any
	asgn
lab L5
	unmark
	goto	L4
lab L6
	line	768
	colm	4
	synt	endwhile
	unmark
lab L3
	mark	L11
	pnull
	pnull
	var	0
	line	781
	colm	5
	synt	any
	field	supers
	var	1
	line	781
	colm	13
	synt	any
	asgn
	unmark
lab L11
	pnull
	line	782
	colm	1
	synt	any
	pfail
	end
proc scopecheck_bodies
	local	0,001000,node
	local	1,000000,type
	local	2,000000,scopecheck_bodies
	local	3,000000,scopecheck_proc
	local	4,000000,scopecheck_methods
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,5,144,145,143,154,163
	con	2,002000,1,1
	con	3,002000,1,2
	con	4,010000,4,160,162,157,143
	con	5,010000,12,103,154,141,163,163,137,137,163,164,141,164,145
	declend
	line	791
	colm	11
	synt	any
	mark	L1
	line	792
	colm	4
	synt	case
	mark0
	var	1
	var	0
	line	792
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	793
	colm	17
	synt	any
	eqv
	unmark
	pop
	line	794
	colm	10
	synt	case
	mark0
	pnull
	var	0
	line	794
	colm	19
	synt	any
	field	label
	eret
	mark	L5
	ccase
	str	1
	line	795
	colm	21
	synt	any
	eqv
	unmark
	pop
	line	796
	colm	16
	synt	every
	mark0
	var	2
	pnull
	pnull
	var	0
	line	796
	colm	44
	synt	any
	field	children
	mark	L8
	int	2
	line	796
	colm	56
	synt	any
	esusp
	goto	L9
lab L8
	int	3
lab L9
	line	796
	colm	53
	synt	any
	subsc
	line	796
	colm	39
	synt	any
	invoke	1
	pop
lab L6
	efail
lab L7
	line	796
	colm	16
	synt	endevery
	goto	L4
lab L5
	mark	L10
	ccase
	str	4
	line	799
	colm	20
	synt	any
	eqv
	unmark
	pop
	var	3
	var	0
	line	800
	colm	31
	synt	any
	invoke	1
	goto	L4
lab L10
	efail
lab L4
	line	794
	colm	10
	synt	endcase
	goto	L2
lab L3
	mark	L11
	ccase
	str	5
	line	804
	colm	21
	synt	any
	eqv
	unmark
	pop
	var	4
	var	0
	line	805
	colm	28
	synt	any
	invoke	1
	goto	L2
lab L11
	efail
lab L2
	line	792
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	808
	colm	1
	synt	any
	pfail
	end
proc scopecheck_proc
	local	0,001000,node
	local	1,000020,local_vars
	local	2,000020,n
	local	3,000000,set
	local	4,000000,extract_identifiers
	local	5,000000,scopecheck_expr
	local	6,000000,scopecheck_procbody
	con	0,002000,1,1
	con	1,002000,1,3
	con	2,002000,1,4
	con	3,002000,1,2
	con	4,002000,1,5
	declend
	line	813
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	3
	line	817
	colm	21
	synt	any
	invoke	0
	line	817
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	4
	pnull
	pnull
	pnull
	var	0
	line	818
	colm	28
	synt	any
	field	children
	int	0
	line	818
	colm	37
	synt	any
	subsc
	line	818
	colm	40
	synt	any
	field	fields
	var	1
	line	818
	colm	23
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	var	0
	line	819
	colm	28
	synt	any
	field	children
	int	1
	line	819
	colm	37
	synt	any
	subsc
	var	1
	line	819
	colm	23
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	line	822
	colm	4
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	822
	colm	11
	synt	any
	field	children
	int	2
	line	822
	colm	20
	synt	any
	subsc
	line	822
	colm	29
	synt	any
	keywd	null
	line	822
	colm	24
	synt	any
	neqv
	unmark
	var	5
	pnull
	pnull
	pnull
	pnull
	var	0
	line	823
	colm	27
	synt	any
	field	children
	int	2
	line	823
	colm	36
	synt	any
	subsc
	line	823
	colm	39
	synt	any
	field	children
	int	3
	line	823
	colm	48
	synt	any
	subsc
	var	1
	line	823
	colm	22
	synt	any
	invoke	2
	line	822
	colm	4
	synt	endif
	unmark
lab L4
	mark	L5
	var	6
	pnull
	pnull
	var	0
	line	826
	colm	28
	synt	any
	field	children
	int	4
	line	826
	colm	37
	synt	any
	subsc
	var	1
	line	826
	colm	23
	synt	any
	invoke	2
	unmark
lab L5
	pnull
	line	827
	colm	1
	synt	any
	pfail
	end
proc scopecheck_methods
	local	0,001000,c
	local	1,000020,self_vars
	local	2,000000,set
	local	3,000000,insert
	local	4,000000,m
	local	5,000000,local_vars
	local	6,000000,extract_identifiers
	local	7,000000,scopecheck_expr
	local	8,000000,scopecheck_locals
	local	9,000000,scopecheck_procbody
	con	0,002000,1,2
	declend
	line	832
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	834
	colm	20
	synt	any
	invoke	0
	line	834
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	836
	colm	4
	synt	every
	mark0
	var	3
	var	1
	pnull
	pnull
	var	0
	line	836
	colm	29
	synt	any
	field	foreachmethod
	line	836
	colm	43
	synt	any
	invoke	0
	line	836
	colm	45
	synt	any
	field	name
	line	836
	colm	16
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	836
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	line	837
	colm	4
	synt	every
	mark0
	var	3
	var	1
	pnull
	var	0
	line	837
	colm	29
	synt	any
	field	foreachfield
	line	837
	colm	42
	synt	any
	invoke	0
	line	837
	colm	16
	synt	any
	invoke	2
	pop
lab L6
	efail
lab L7
	line	837
	colm	4
	synt	endevery
	unmark
lab L5
	mark	L8
	line	838
	colm	4
	synt	every
	mark0
	var	3
	var	1
	pnull
	pnull
	pnull
	pnull
	var	0
	line	838
	colm	34
	synt	any
	field	ifields
	line	838
	colm	30
	synt	any
	nonnull
	line	838
	colm	29
	synt	any
	bang
	line	838
	colm	44
	synt	any
	field	ident
	line	838
	colm	16
	synt	any
	invoke	2
	pop
lab L9
	efail
lab L10
	line	838
	colm	4
	synt	endevery
	unmark
lab L8
	mark	L11
	line	839
	colm	4
	synt	every
	mark0
	var	3
	var	1
	pnull
	pnull
	pnull
	pnull
	var	0
	line	839
	colm	34
	synt	any
	field	imethods
	line	839
	colm	30
	synt	any
	nonnull
	line	839
	colm	29
	synt	any
	bang
	line	839
	colm	45
	synt	any
	field	ident
	line	839
	colm	16
	synt	any
	invoke	2
	pop
lab L12
	efail
lab L13
	line	839
	colm	4
	synt	endevery
	unmark
lab L11
	mark	L14
	line	841
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	0
	line	841
	colm	16
	synt	any
	field	foreachmethod
	line	841
	colm	30
	synt	any
	invoke	0
	line	841
	colm	12
	synt	any
	asgn
	pop
	mark0
	mark	L17
	pnull
	var	5
	var	2
	line	842
	colm	24
	synt	any
	invoke	0
	line	842
	colm	18
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	var	6
	pnull
	var	4
	line	843
	colm	28
	synt	any
	field	fields
	var	5
	line	843
	colm	26
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	var	6
	pnull
	var	4
	line	844
	colm	28
	synt	any
	field	locals
	var	5
	line	844
	colm	26
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	line	847
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	847
	colm	11
	synt	any
	field	initl
	line	847
	colm	23
	synt	any
	keywd	null
	line	847
	colm	18
	synt	any
	neqv
	unmark
	var	7
	pnull
	pnull
	pnull
	var	4
	line	848
	colm	27
	synt	any
	field	initl
	line	848
	colm	33
	synt	any
	field	children
	int	0
	line	848
	colm	42
	synt	any
	subsc
	var	5
	var	1
	line	848
	colm	25
	synt	any
	invoke	3
	line	847
	colm	7
	synt	endif
	unmark
lab L20
	mark	L21
	var	8
	pnull
	var	4
	line	849
	colm	26
	synt	any
	field	locals
	var	5
	var	1
	line	849
	colm	24
	synt	any
	invoke	3
	unmark
lab L21
	var	9
	pnull
	var	4
	line	850
	colm	28
	synt	any
	field	procbody
	var	5
	var	1
	line	850
	colm	26
	synt	any
	invoke	3
	unmark
lab L15
	efail
lab L16
	line	841
	colm	4
	synt	endevery
	unmark
lab L14
	pnull
	line	853
	colm	1
	synt	any
	pfail
	end
proc scopecheck_locals
	local	0,001000,n
	local	1,001000,localvars
	local	2,001000,selfvars
	local	3,000000,type
	local	4,000000,scopecheck_locals
	local	5,000000,scopecheck_expr
	local	6,000000,stop
	local	7,000000,image
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,7,154,157,143,141,154,163,062
	con	2,002000,1,1
	con	3,002000,1,3
	con	4,010000,7,154,157,143,141,154,163,063
	con	5,010000,8,166,141,162,154,151,163,164,062
	con	6,010000,8,166,141,162,154,151,163,164,063
	con	7,010000,8,166,141,162,154,151,163,164,064
	con	8,002000,1,5
	con	9,010000,5,164,157,153,145,156
	con	10,010000,7,154,157,143,141,154,163,040
	con	11,010000,29,040,151,163,040,156,157,164,040,141,040,164,162,145,145,156,157,144,145,040,157,162,040,141,040,164,157,153,145,156
	declend
	line	855
	colm	11
	synt	any
	mark	L1
	line	856
	colm	4
	synt	if
	mark0
	pnull
	var	0
	line	856
	colm	7
	synt	any
	null
	unmark
	line	856
	colm	15
	synt	any
	pfail
	line	856
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	line	857
	colm	4
	synt	ifelse
	mark	L3
	pnull
	var	3
	var	0
	line	857
	colm	11
	synt	any
	invoke	1
	str	0
	line	857
	colm	15
	synt	any
	lexeq
	unmark
	line	858
	colm	7
	synt	case
	mark0
	pnull
	var	0
	line	858
	colm	13
	synt	any
	field	label
	eret
	mark	L6
	ccase
	str	1
	line	859
	colm	19
	synt	any
	eqv
	unmark
	pop
	mark	L7
	var	4
	pnull
	pnull
	var	0
	line	860
	colm	32
	synt	any
	field	children
	int	2
	line	860
	colm	41
	synt	any
	subsc
	var	1
	var	2
	line	860
	colm	30
	synt	any
	invoke	3
	unmark
lab L7
	var	4
	pnull
	pnull
	var	0
	line	861
	colm	32
	synt	any
	field	children
	int	3
	line	861
	colm	41
	synt	any
	subsc
	var	1
	var	2
	line	861
	colm	30
	synt	any
	invoke	3
	goto	L5
lab L6
	mark	L8
	ccase
	str	4
	line	863
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	4
	pnull
	pnull
	var	0
	line	864
	colm	32
	synt	any
	field	children
	int	2
	line	864
	colm	41
	synt	any
	subsc
	var	1
	var	2
	line	864
	colm	30
	synt	any
	invoke	3
	goto	L5
lab L8
	mark	L9
	ccase
	str	5
	line	869
	colm	20
	synt	any
	eqv
	unmark
	pop
	var	5
	pnull
	pnull
	var	0
	line	870
	colm	30
	synt	any
	field	children
	int	3
	line	870
	colm	39
	synt	any
	subsc
	var	1
	var	2
	line	870
	colm	28
	synt	any
	invoke	3
	goto	L5
lab L9
	mark	L10
	ccase
	str	6
	line	872
	colm	20
	synt	any
	eqv
	unmark
	pop
	var	4
	pnull
	pnull
	var	0
	line	873
	colm	32
	synt	any
	field	children
	int	2
	line	873
	colm	41
	synt	any
	subsc
	var	1
	var	2
	line	873
	colm	30
	synt	any
	invoke	3
	goto	L5
lab L10
	mark	L11
	ccase
	str	7
	line	875
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L12
	var	4
	pnull
	pnull
	var	0
	line	876
	colm	32
	synt	any
	field	children
	int	2
	line	876
	colm	41
	synt	any
	subsc
	var	1
	var	2
	line	876
	colm	30
	synt	any
	invoke	3
	unmark
lab L12
	var	5
	pnull
	pnull
	var	0
	line	877
	colm	30
	synt	any
	field	children
	int	8
	line	877
	colm	39
	synt	any
	subsc
	var	1
	var	2
	line	877
	colm	28
	synt	any
	invoke	3
	goto	L5
lab L11
	efail
lab L5
	line	858
	colm	7
	synt	endcase
	goto	L4
lab L3
	line	881
	colm	9
	synt	if
	mark0
	pnull
	var	3
	var	0
	line	881
	colm	16
	synt	any
	invoke	1
	str	9
	line	881
	colm	20
	synt	any
	lexne
	unmark
	var	6
	str	10
	var	7
	var	0
	line	882
	colm	28
	synt	any
	invoke	1
	str	11
	line	882
	colm	11
	synt	any
	invoke	3
	line	881
	colm	9
	synt	endif
lab L4
	line	857
	colm	4
	synt	endifelse
	unmark
lab L2
	pnull
	line	883
	colm	1
	synt	any
	pfail
	end
proc scopecheck_procbody
	local	0,001000,n
	local	1,001000,local_vars
	local	2,001000,self_vars
	local	3,000000,scopecheck_expr
	con	0,002000,1,1
	con	1,002000,1,3
	declend
	line	888
	colm	11
	synt	any
	mark	L1
lab L2
	line	889
	colm	4
	synt	while
	mark0
	pnull
	var	0
	line	889
	colm	17
	synt	any
	keywd	null
	line	889
	colm	12
	synt	any
	neqv
	unmark
	mark	L2
	mark	L5
	var	3
	pnull
	pnull
	var	0
	line	890
	colm	24
	synt	any
	field	children
	int	0
	line	890
	colm	33
	synt	any
	subsc
	var	1
	var	2
	line	890
	colm	22
	synt	any
	invoke	3
	unmark
lab L5
	pnull
	var	0
	pnull
	pnull
	var	0
	line	891
	colm	13
	synt	any
	field	children
	int	1
	line	891
	colm	22
	synt	any
	subsc
	line	891
	colm	9
	synt	any
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	889
	colm	4
	synt	endwhile
	unmark
lab L1
	pnull
	line	893
	colm	1
	synt	any
	pfail
	end
proc scopecheck_expr
	local	0,001000,node
	local	1,001000,local_vars
	local	2,001000,self_vars
	local	3,000000,type
	local	4,000000,scopecheck_field
	local	5,000000,scopecheck_expr
	local	6,000000,ckfnasgn
	local	7,000000,member
	local	8,000000,classfield_member
	local	9,000000,mangle_sym
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,7,153,145,171,167,157,162,144
	con	2,010000,10,160,141,143,153,141,147,145,162,145,146
	con	3,010000,5,146,151,145,154,144
	con	4,010000,4,163,167,141,160
	con	5,010000,6,141,163,163,151,147,156
	con	6,010000,7,162,145,166,163,167,141,160
	con	7,010000,7,162,145,166,141,163,147,156
	con	8,010000,6,141,165,147,143,141,164
	con	9,010000,7,141,165,147,154,143,141,164
	con	10,010000,6,102,144,151,146,146,141
	con	11,010000,7,102,165,156,151,157,156,141
	con	12,010000,6,102,160,154,165,163,141
	con	13,010000,7,102,155,151,156,165,163,141
	con	14,010000,6,102,163,164,141,162,141
	con	15,010000,7,102,151,156,164,145,162,141
	con	16,010000,7,102,163,154,141,163,150,141
	con	17,010000,5,102,155,157,144,141
	con	18,010000,7,102,143,141,162,145,164,141
	con	19,010000,6,102,141,165,147,145,161
	con	20,010000,7,102,141,165,147,145,161,166
	con	21,010000,6,102,141,165,147,147,145
	con	22,010000,6,102,141,165,147,147,164
	con	23,010000,6,102,141,165,147,154,145
	con	24,010000,6,102,141,165,147,154,164
	con	25,010000,6,102,141,165,147,156,145
	con	26,010000,8,102,141,165,147,156,145,161,166
	con	27,010000,7,102,141,165,147,163,145,161
	con	28,010000,7,102,141,165,147,163,147,145
	con	29,010000,7,102,141,165,147,163,147,164
	con	30,010000,7,102,141,165,147,163,154,145
	con	31,010000,7,102,141,165,147,163,154,164
	con	32,010000,7,102,141,165,147,163,156,145
	con	33,010000,8,102,141,165,147,161,165,145,163
	con	34,010000,9,102,141,165,147,141,155,160,145,162
	con	35,010000,7,102,141,165,147,141,143,164
	con	36,010000,5,102,120,141,156,144
	con	37,002000,1,1
	con	38,010000,5,164,157,153,145,156
	con	39,002000,3,257
	con	40,010000,5,163,145,154,146,056
	declend
	line	898
	colm	11
	synt	any
	mark	L1
	line	900
	colm	4
	synt	case
	mark0
	var	3
	var	0
	line	900
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	901
	colm	17
	synt	any
	eqv
	unmark
	pop
	line	902
	colm	10
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	0
	line	902
	colm	17
	synt	any
	field	label
	mark	L6
	str	1
	line	902
	colm	38
	synt	any
	esusp
	goto	L7
lab L6
	str	2
lab L7
	line	902
	colm	24
	synt	any
	lexeq
	unmark
	line	903
	colm	13
	synt	any
	pfail
	goto	L5
lab L4
	line	904
	colm	15
	synt	ifelse
	mark	L8
	pnull
	pnull
	var	0
	line	904
	colm	22
	synt	any
	field	label
	str	3
	line	904
	colm	29
	synt	any
	lexeq
	unmark
	var	4
	var	0
	var	1
	var	2
	line	905
	colm	29
	synt	any
	invoke	3
	goto	L9
lab L8
	line	907
	colm	15
	synt	ifelse
	mark	L10
	pnull
	pnull
	var	0
	line	907
	colm	22
	synt	any
	field	label
	mark	L12
	str	4
	line	907
	colm	39
	synt	any
	esusp
	goto	L13
lab L12
	mark	L14
	str	5
	line	907
	colm	48
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	str	6
	line	907
	colm	58
	synt	any
	esusp
	goto	L17
lab L16
	mark	L18
	str	7
	line	907
	colm	68
	synt	any
	esusp
	goto	L19
lab L18
	mark	L20
	str	8
	line	908
	colm	43
	synt	any
	esusp
	goto	L21
lab L20
	mark	L22
	str	9
	line	908
	colm	53
	synt	any
	esusp
	goto	L23
lab L22
	mark	L24
	str	10
	line	908
	colm	62
	synt	any
	esusp
	goto	L25
lab L24
	mark	L26
	str	11
	line	908
	colm	72
	synt	any
	esusp
	goto	L27
lab L26
	mark	L28
	str	12
	line	909
	colm	43
	synt	any
	esusp
	goto	L29
lab L28
	mark	L30
	str	13
	line	909
	colm	53
	synt	any
	esusp
	goto	L31
lab L30
	mark	L32
	str	14
	line	909
	colm	62
	synt	any
	esusp
	goto	L33
lab L32
	mark	L34
	str	15
	line	909
	colm	72
	synt	any
	esusp
	goto	L35
lab L34
	mark	L36
	str	16
	line	910
	colm	44
	synt	any
	esusp
	goto	L37
lab L36
	mark	L38
	str	17
	line	910
	colm	52
	synt	any
	esusp
	goto	L39
lab L38
	mark	L40
	str	18
	line	910
	colm	62
	synt	any
	esusp
	goto	L41
lab L40
	mark	L42
	str	19
	line	910
	colm	71
	synt	any
	esusp
	goto	L43
lab L42
	mark	L44
	str	20
	line	911
	colm	44
	synt	any
	esusp
	goto	L45
lab L44
	mark	L46
	str	21
	line	911
	colm	53
	synt	any
	esusp
	goto	L47
lab L46
	mark	L48
	str	22
	line	911
	colm	62
	synt	any
	esusp
	goto	L49
lab L48
	mark	L50
	str	23
	line	911
	colm	71
	synt	any
	esusp
	goto	L51
lab L50
	mark	L52
	str	24
	line	912
	colm	43
	synt	any
	esusp
	goto	L53
lab L52
	mark	L54
	str	25
	line	912
	colm	52
	synt	any
	esusp
	goto	L55
lab L54
	mark	L56
	str	26
	line	912
	colm	63
	synt	any
	esusp
	goto	L57
lab L56
	mark	L58
	str	27
	line	912
	colm	73
	synt	any
	esusp
	goto	L59
lab L58
	mark	L60
	str	28
	line	913
	colm	44
	synt	any
	esusp
	goto	L61
lab L60
	mark	L62
	str	29
	line	913
	colm	54
	synt	any
	esusp
	goto	L63
lab L62
	mark	L64
	str	30
	line	913
	colm	64
	synt	any
	esusp
	goto	L65
lab L64
	mark	L66
	str	31
	line	913
	colm	74
	synt	any
	esusp
	goto	L67
lab L66
	mark	L68
	str	32
	line	914
	colm	44
	synt	any
	esusp
	goto	L69
lab L68
	mark	L70
	str	33
	line	914
	colm	55
	synt	any
	esusp
	goto	L71
lab L70
	mark	L72
	str	34
	line	914
	colm	67
	synt	any
	esusp
	goto	L73
lab L72
	mark	L74
	str	35
	line	914
	colm	77
	synt	any
	esusp
	goto	L75
lab L74
	str	36
lab L75
lab L73
lab L71
lab L69
lab L67
lab L65
lab L63
lab L61
lab L59
lab L57
lab L55
lab L53
lab L51
lab L49
lab L47
lab L45
lab L43
lab L41
lab L39
lab L37
lab L35
lab L33
lab L31
lab L29
lab L27
lab L25
lab L23
lab L21
lab L19
lab L17
lab L15
lab L13
	line	907
	colm	29
	synt	any
	lexeq
	unmark
	mark	L76
	line	915
	colm	13
	synt	every
	mark0
	var	5
	pnull
	pnull
	var	0
	line	915
	colm	40
	synt	any
	field	children
	line	915
	colm	35
	synt	any
	bang
	var	1
	var	2
	line	915
	colm	34
	synt	any
	invoke	3
	pop
lab L77
	efail
lab L78
	line	915
	colm	13
	synt	endevery
	unmark
lab L76
	var	6
	pnull
	pnull
	var	0
	line	916
	colm	26
	synt	any
	field	children
	int	37
	line	916
	colm	35
	synt	any
	subsc
	var	1
	var	2
	line	916
	colm	21
	synt	any
	invoke	3
	goto	L11
lab L10
	line	918
	colm	13
	synt	every
	mark0
	var	5
	pnull
	pnull
	var	0
	line	918
	colm	40
	synt	any
	field	children
	line	918
	colm	35
	synt	any
	bang
	var	1
	var	2
	line	918
	colm	34
	synt	any
	invoke	3
	pop
lab L79
	efail
lab L80
	line	918
	colm	13
	synt	endevery
lab L11
	line	907
	colm	15
	synt	endifelse
lab L9
	line	904
	colm	15
	synt	endifelse
lab L5
	line	902
	colm	10
	synt	endifelse
	goto	L2
lab L3
	mark	L81
	ccase
	str	38
	line	920
	colm	14
	synt	any
	eqv
	unmark
	pop
	line	921
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	921
	colm	17
	synt	any
	field	tok
	int	39
	line	921
	colm	22
	synt	any
	numeq
	unmark
	line	922
	colm	13
	synt	if
	mark0
	mark	L82
	var	7
	pnull
	var	1
	line	922
	colm	27
	synt	any
	nonnull
	pnull
	var	0
	line	922
	colm	44
	synt	any
	field	s
	line	922
	colm	26
	synt	any
	invoke	2
	unmark
	efail
lab L82
	pnull
	unmark
	line	923
	colm	16
	synt	ifelse
	mark	L83
	var	8
	pnull
	var	2
	line	923
	colm	37
	synt	any
	nonnull
	pnull
	var	0
	line	923
	colm	53
	synt	any
	field	s
	line	923
	colm	36
	synt	any
	invoke	2
	unmark
	pnull
	pnull
	var	0
	line	924
	colm	23
	synt	any
	field	s
	pnull
	str	40
	pnull
	var	0
	line	924
	colm	44
	synt	any
	field	s
	line	924
	colm	37
	synt	any
	cat
	line	924
	colm	26
	synt	any
	asgn
	goto	L84
lab L83
	pnull
	pnull
	var	0
	line	926
	colm	23
	synt	any
	field	s
	var	9
	pnull
	var	0
	line	926
	colm	44
	synt	any
	field	s
	line	926
	colm	39
	synt	any
	invoke	1
	line	926
	colm	26
	synt	any
	asgn
lab L84
	line	923
	colm	16
	synt	endifelse
	line	922
	colm	13
	synt	endif
	line	921
	colm	10
	synt	endif
	goto	L2
lab L81
	efail
lab L2
	line	900
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	931
	colm	1
	synt	any
	pfail
	end
proc classfield_member
	local	0,001000,fields
	local	1,001000,s
	local	2,000000,member
	local	3,000000,x
	local	4,000000,type
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,4,141,162,147,063
	con	2,002000,1,1
	declend
	line	938
	colm	11
	synt	any
	mark	L1
	line	939
	colm	5
	synt	if
	mark0
	var	2
	var	0
	var	1
	line	939
	colm	14
	synt	any
	invoke	2
	unmark
	mark	L2
	pnull
	line	939
	colm	31
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	939
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	line	940
	colm	5
	synt	if
	mark0
	pnull
	var	3
	pnull
	var	0
	line	940
	colm	12
	synt	any
	bang
	line	940
	colm	10
	synt	any
	asgn
	pop
	pnull
	var	4
	var	3
	line	940
	colm	27
	synt	any
	invoke	1
	str	0
	line	940
	colm	30
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	3
	line	941
	colm	10
	synt	any
	field	label
	str	1
	line	941
	colm	16
	synt	any
	lexeq
	pop
	pnull
	pnull
	pnull
	pnull
	var	3
	line	941
	colm	28
	synt	any
	field	children
	int	2
	line	941
	colm	37
	synt	any
	subsc
	line	941
	colm	40
	synt	any
	field	s
	var	1
	line	941
	colm	42
	synt	any
	lexeq
	unmark
	mark	L4
	pnull
	line	942
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	940
	colm	5
	synt	endif
	unmark
lab L3
	pnull
	line	944
	colm	1
	synt	any
	pfail
	end
proc scopecheck_field
	local	0,001000,node
	local	1,001000,local_vars
	local	2,001000,self_vars
	local	3,000000,type
	local	4,000000,lhs
	local	5,000000,rhs
	local	6,000000,member
	local	7,000000,mangle_class_sym
	local	8,000000,scopecheck_expr
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,5,146,151,145,154,144
	con	2,002000,1,1
	con	3,002000,1,3
	con	4,010000,5,164,157,153,145,156
	con	5,010000,4,163,145,154,146
	declend
	line	946
	colm	11
	synt	any
	mark	L1
lab L2
	line	947
	colm	4
	synt	while
	mark0
	pnull
	var	3
	var	0
	line	947
	colm	14
	synt	any
	invoke	1
	str	0
	line	947
	colm	21
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	947
	colm	41
	synt	any
	field	label
	str	1
	line	947
	colm	48
	synt	any
	eqv
	unmark
	mark	L2
	mark	L5
	pnull
	var	4
	pnull
	pnull
	var	0
	line	948
	colm	18
	synt	any
	field	children
	int	2
	line	948
	colm	27
	synt	any
	subsc
	line	948
	colm	11
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	pnull
	pnull
	var	0
	line	949
	colm	18
	synt	any
	field	children
	int	3
	line	949
	colm	27
	synt	any
	subsc
	line	949
	colm	11
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	951
	colm	7
	synt	if
	mark0
	pnull
	var	3
	var	5
	line	951
	colm	14
	synt	any
	invoke	1
	str	4
	line	951
	colm	20
	synt	any
	lexeq
	unmark
	line	952
	colm	10
	synt	ifelse
	mark	L8
	pnull
	var	3
	var	4
	line	952
	colm	17
	synt	any
	invoke	1
	str	4
	line	952
	colm	23
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	4
	line	952
	colm	39
	synt	any
	field	s
	str	5
	line	952
	colm	42
	synt	any
	eqv
	unmark
	line	958
	colm	13
	synt	if
	mark0
	mark	L10
	var	6
	pnull
	var	2
	line	958
	colm	27
	synt	any
	nonnull
	pnull
	var	5
	line	958
	colm	42
	synt	any
	field	s
	line	958
	colm	26
	synt	any
	invoke	2
	unmark
	efail
lab L10
	pnull
	unmark
	pnull
	pnull
	var	5
	line	959
	colm	19
	synt	any
	field	s
	var	7
	pnull
	var	5
	line	959
	colm	45
	synt	any
	field	s
	line	959
	colm	41
	synt	any
	invoke	1
	line	959
	colm	22
	synt	any
	asgn
	line	958
	colm	13
	synt	endif
	goto	L9
lab L8
	pnull
	pnull
	var	5
	line	961
	colm	16
	synt	any
	field	s
	var	7
	pnull
	var	5
	line	961
	colm	42
	synt	any
	field	s
	line	961
	colm	38
	synt	any
	invoke	1
	line	961
	colm	19
	synt	any
	asgn
lab L9
	line	952
	colm	10
	synt	endifelse
	line	951
	colm	7
	synt	endif
	unmark
lab L7
	pnull
	var	0
	var	4
	line	964
	colm	12
	synt	any
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	947
	colm	4
	synt	endwhile
	unmark
lab L1
	mark	L11
	var	8
	var	0
	var	1
	var	2
	line	967
	colm	19
	synt	any
	invoke	3
	unmark
lab L11
	pnull
	line	968
	colm	1
	synt	any
	pfail
	end
proc extract_identifiers
	local	0,001000,node
	local	1,001000,res
	local	2,000000,set
	local	3,000000,type
	local	4,000000,extract_identifiers
	local	5,000000,insert
	local	6,000000,el
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,4,141,162,147,062
	con	2,010000,4,141,162,147,063
	con	3,010000,4,141,162,147,064
	con	4,010000,8,163,164,141,154,151,163,164,062
	con	5,010000,8,166,141,162,154,151,163,164,062
	con	6,002000,1,1
	con	7,010000,8,166,141,162,154,151,163,164,064
	con	8,010000,8,163,164,141,154,151,163,164,064
	con	9,002000,1,3
	con	10,010000,5,164,157,153,145,156
	con	11,002000,3,257
	con	12,010000,14,141,162,147,114,151,163,164,137,137,163,164,141,164,145
	con	13,010000,6,163,164,162,151,156,147
	declend
	line	975
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	976
	colm	4
	synt	any
	null
	var	2
	line	976
	colm	15
	synt	any
	invoke	0
	line	976
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	977
	colm	4
	synt	case
	mark0
	var	3
	var	0
	line	977
	colm	13
	synt	any
	invoke	1
	eret
	mark	L4
	ccase
	str	0
	line	978
	colm	17
	synt	any
	eqv
	unmark
	pop
	line	979
	colm	10
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	0
	line	979
	colm	17
	synt	any
	field	label
	mark	L7
	str	1
	line	979
	colm	34
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	str	2
	line	979
	colm	41
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	str	3
	line	979
	colm	49
	synt	any
	esusp
	goto	L12
lab L11
	mark	L13
	str	4
	line	979
	colm	62
	synt	any
	esusp
	goto	L14
lab L13
	str	5
lab L14
lab L12
lab L10
lab L8
	line	979
	colm	24
	synt	any
	lexeq
	unmark
	var	4
	pnull
	pnull
	var	0
	line	980
	colm	37
	synt	any
	field	children
	int	6
	line	980
	colm	46
	synt	any
	subsc
	var	1
	line	980
	colm	32
	synt	any
	invoke	2
	goto	L6
lab L5
	line	981
	colm	15
	synt	ifelse
	mark	L15
	pnull
	pnull
	var	0
	line	981
	colm	22
	synt	any
	field	label
	mark	L17
	str	7
	line	981
	colm	44
	synt	any
	esusp
	goto	L18
lab L17
	str	8
lab L18
	line	981
	colm	29
	synt	any
	lexeq
	unmark
	mark	L19
	var	4
	pnull
	pnull
	var	0
	line	982
	colm	37
	synt	any
	field	children
	int	6
	line	982
	colm	46
	synt	any
	subsc
	var	1
	line	982
	colm	32
	synt	any
	invoke	2
	unmark
lab L19
	var	4
	pnull
	pnull
	var	0
	line	983
	colm	37
	synt	any
	field	children
	int	9
	line	983
	colm	46
	synt	any
	subsc
	var	1
	line	983
	colm	32
	synt	any
	invoke	2
	goto	L16
lab L15
	line	986
	colm	13
	synt	every
	mark0
	var	4
	pnull
	pnull
	var	0
	line	986
	colm	44
	synt	any
	field	children
	line	986
	colm	39
	synt	any
	bang
	var	1
	line	986
	colm	38
	synt	any
	invoke	2
	pop
lab L20
	efail
lab L21
	line	986
	colm	13
	synt	endevery
lab L16
	line	981
	colm	15
	synt	endifelse
lab L6
	line	979
	colm	10
	synt	endifelse
	goto	L3
lab L4
	mark	L22
	ccase
	str	10
	line	988
	colm	14
	synt	any
	eqv
	unmark
	pop
	line	989
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	989
	colm	17
	synt	any
	field	tok
	int	11
	line	989
	colm	22
	synt	any
	numeq
	unmark
	var	5
	var	1
	pnull
	var	0
	line	990
	colm	29
	synt	any
	field	s
	line	990
	colm	19
	synt	any
	invoke	2
	line	989
	colm	10
	synt	endif
	goto	L3
lab L22
	mark	L23
	ccase
	str	12
	line	992
	colm	24
	synt	any
	eqv
	unmark
	pop
	line	994
	colm	10
	synt	every
	mark0
	pnull
	var	6
	pnull
	pnull
	pnull
	var	0
	line	994
	colm	29
	synt	any
	field	l
	line	994
	colm	24
	synt	any
	nonnull
	line	994
	colm	22
	synt	any
	bang
	line	994
	colm	19
	synt	any
	asgn
	pop
	mark0
	line	995
	colm	13
	synt	ifelse
	mark	L26
	pnull
	var	3
	var	6
	line	995
	colm	20
	synt	any
	invoke	1
	str	13
	line	995
	colm	25
	synt	any
	lexeq
	unmark
	var	5
	var	1
	var	6
	line	996
	colm	22
	synt	any
	invoke	2
	goto	L27
lab L26
	var	4
	var	6
	var	1
	line	998
	colm	35
	synt	any
	invoke	2
lab L27
	line	995
	colm	13
	synt	endifelse
	unmark
lab L24
	efail
lab L25
	line	994
	colm	10
	synt	endevery
	goto	L3
lab L23
	efail
lab L3
	line	977
	colm	4
	synt	endcase
	unmark
lab L2
	mark	L28
	mark	L29
	var	1
	line	1002
	colm	4
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	1003
	colm	1
	synt	any
	pfail
	end
proc iconc_prep_parse_tree
	local	0,001000,parent
	local	1,001000,child
	local	2,000020,i
	local	3,000020,t
	local	4,000020,o
	local	5,000020,m
	local	6,000020,s
	local	7,000020,el
	local	8,000020,todo
	local	9,000020,tmplist
	local	10,000020,newnode
	local	11,000000,list
	local	12,000000,put
	local	13,000000,pop
	local	14,000000,type
	local	15,000000,iconc_links
	local	16,000000,yyfilename
	local	17,000000,ca_add_link
	local	18,000000,iconc_imports
	local	19,000000,ca_add_import
	local	20,000000,ca_add_pkg
	local	21,000000,ca_add_class
	local	22,000000,ca_add_method
	con	0,002000,1,0
	con	1,010000,8,164,162,145,145,156,157,144,145
	con	2,010000,4,154,151,156,153
	con	3,010000,6,151,155,160,157,162,164
	con	4,010000,7,154,156,153,154,151,163,164
	con	5,010000,7,151,155,160,154,151,163,164
	con	6,002000,1,1
	con	7,010000,5,164,157,153,145,156
	con	8,010000,1,054
	con	9,010000,0
	con	10,010000,7,160,141,143,153,141,147,145
	con	11,002000,1,2
	con	12,010000,14,141,162,147,114,151,163,164,137,137,163,164,141,164,145
	con	13,010000,12,103,154,141,163,163,137,137,163,164,141,164,145
	declend
	line	1005
	colm	11
	synt	any
	mark	L1
	pnull
	var	8
	var	11
	line	1009
	colm	16
	synt	any
	invoke	0
	line	1009
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	12
	var	8
	var	0
	line	1010
	colm	7
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	12
	var	8
	var	1
	line	1011
	colm	7
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
lab L5
	line	1012
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	8
	line	1012
	colm	10
	synt	any
	size
	int	0
	line	1012
	colm	16
	synt	any
	numgt
	unmark
	mark	L5
	mark	L8
	pnull
	var	0
	var	13
	var	8
	line	1013
	colm	20
	synt	any
	invoke	1
	line	1013
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	1
	var	13
	var	8
	line	1014
	colm	19
	synt	any
	invoke	1
	line	1014
	colm	13
	synt	any
	asgn
	unmark
lab L9
	line	1015
	colm	7
	synt	case
	mark0
	var	14
	var	1
	line	1015
	colm	16
	synt	any
	invoke	1
	eret
	mark	L11
	ccase
	str	1
	line	1016
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L12
	line	1017
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	1017
	colm	21
	synt	any
	field	label
	mark	L13
	str	2
	line	1017
	colm	39
	synt	any
	esusp
	goto	L14
lab L13
	mark	L15
	str	3
	line	1017
	colm	50
	synt	any
	esusp
	goto	L16
lab L15
	mark	L17
	str	4
	line	1017
	colm	60
	synt	any
	esusp
	goto	L18
lab L17
	str	5
lab L18
lab L16
lab L14
	line	1017
	colm	28
	synt	any
	lexeq
	unmark
	line	1018
	colm	16
	synt	every
	mark0
	pnull
	var	2
	pnull
	int	6
	pnull
	pnull
	var	1
	line	1018
	colm	38
	synt	any
	field	children
	line	1018
	colm	32
	synt	any
	size
	push1
	line	1018
	colm	29
	synt	any
	toby
	line	1018
	colm	24
	synt	any
	asgn
	pop
	mark0
	mark	L21
	line	1019
	colm	19
	synt	if
	mark0
	mark	L22
	pnull
	var	14
	pnull
	pnull
	var	1
	line	1019
	colm	37
	synt	any
	field	children
	var	2
	line	1019
	colm	46
	synt	any
	subsc
	line	1019
	colm	31
	synt	any
	invoke	1
	str	7
	line	1019
	colm	51
	synt	any
	lexeq
	unmark
	efail
lab L22
	pnull
	unmark
	unmark
	unmark
	goto	L19
	line	1019
	colm	19
	synt	endif
	unmark
lab L21
	mark	L23
	line	1021
	colm	19
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	1
	line	1021
	colm	27
	synt	any
	field	children
	var	2
	line	1021
	colm	36
	synt	any
	subsc
	line	1021
	colm	39
	synt	any
	field	s
	mark	L24
	str	2
	line	1021
	colm	52
	synt	any
	esusp
	goto	L25
lab L24
	mark	L26
	str	3
	line	1021
	colm	61
	synt	any
	esusp
	goto	L27
lab L26
	str	8
lab L27
lab L25
	line	1021
	colm	42
	synt	any
	lexeq
	unmark
	mark	L28
	pnull
	pnull
	pnull
	pnull
	var	1
	line	1022
	colm	27
	synt	any
	field	children
	var	2
	line	1022
	colm	36
	synt	any
	subsc
	line	1022
	colm	39
	synt	any
	field	s
	str	9
	line	1022
	colm	42
	synt	any
	asgn
	unmark
lab L28
	unmark
	unmark
	goto	L19
	line	1021
	colm	19
	synt	endif
	unmark
lab L23
	mark	L29
	line	1025
	colm	19
	synt	ifelse
	mark	L30
	pnull
	pnull
	var	1
	line	1025
	colm	27
	synt	any
	field	label
	mark	L32
	str	2
	line	1025
	colm	45
	synt	any
	esusp
	goto	L33
lab L32
	str	4
lab L33
	line	1025
	colm	34
	synt	any
	lexeq
	unmark
	mark	L34
	pnull
	pnull
	var	15
	pnull
	pnull
	pnull
	var	1
	line	1026
	colm	39
	synt	any
	field	children
	var	2
	line	1026
	colm	48
	synt	any
	subsc
	line	1026
	colm	51
	synt	any
	field	s
	line	1026
	colm	33
	synt	any
	subsc
	var	16
	line	1026
	colm	55
	synt	any
	asgn
	unmark
lab L34
	var	17
	var	16
	pnull
	pnull
	pnull
	var	1
	line	1027
	colm	51
	synt	any
	field	children
	var	2
	line	1027
	colm	60
	synt	any
	subsc
	line	1027
	colm	63
	synt	any
	field	s
	line	1027
	colm	33
	synt	any
	invoke	2
	goto	L31
lab L30
	mark	L35
	pnull
	pnull
	var	18
	pnull
	pnull
	pnull
	var	1
	line	1030
	colm	41
	synt	any
	field	children
	var	2
	line	1030
	colm	50
	synt	any
	subsc
	line	1030
	colm	53
	synt	any
	field	s
	line	1030
	colm	35
	synt	any
	subsc
	var	16
	line	1030
	colm	57
	synt	any
	asgn
	unmark
lab L35
	var	19
	var	16
	pnull
	pnull
	pnull
	var	1
	line	1031
	colm	53
	synt	any
	field	children
	var	2
	line	1031
	colm	62
	synt	any
	subsc
	line	1031
	colm	65
	synt	any
	field	s
	line	1031
	colm	35
	synt	any
	invoke	2
lab L31
	line	1025
	colm	19
	synt	endifelse
	unmark
lab L29
	pnull
	pnull
	pnull
	pnull
	var	1
	line	1033
	colm	24
	synt	any
	field	children
	var	2
	line	1033
	colm	33
	synt	any
	subsc
	line	1033
	colm	36
	synt	any
	field	s
	str	9
	line	1033
	colm	39
	synt	any
	asgn
	unmark
lab L19
	efail
lab L20
	line	1018
	colm	16
	synt	endevery
	line	1017
	colm	13
	synt	endif
	unmark
lab L12
	mark	L36
	line	1036
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	1036
	colm	21
	synt	any
	field	label
	str	10
	line	1036
	colm	28
	synt	any
	lexeq
	unmark
	mark	L37
	pnull
	pnull
	pnull
	pnull
	var	1
	line	1040
	colm	21
	synt	any
	field	children
	int	6
	line	1040
	colm	30
	synt	any
	subsc
	line	1040
	colm	33
	synt	any
	field	s
	str	9
	line	1040
	colm	36
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	var	20
	var	16
	pnull
	pnull
	pnull
	var	1
	line	1041
	colm	44
	synt	any
	field	children
	int	11
	line	1041
	colm	53
	synt	any
	subsc
	line	1041
	colm	56
	synt	any
	field	s
	line	1041
	colm	26
	synt	any
	invoke	2
	unmark
lab L38
	pnull
	pnull
	pnull
	pnull
	var	1
	line	1042
	colm	21
	synt	any
	field	children
	int	11
	line	1042
	colm	30
	synt	any
	subsc
	line	1042
	colm	33
	synt	any
	field	s
	str	9
	line	1042
	colm	36
	synt	any
	asgn
	line	1036
	colm	13
	synt	endif
	unmark
lab L36
	line	1044
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	1044
	colm	22
	synt	any
	field	children
	line	1044
	colm	16
	synt	any
	size
	int	0
	line	1044
	colm	32
	synt	any
	numgt
	unmark
	mark	L39
	pnull
	var	9
	var	11
	line	1045
	colm	31
	synt	any
	invoke	0
	line	1045
	colm	24
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	line	1046
	colm	16
	synt	every
	mark0
	pnull
	var	2
	pnull
	int	6
	pnull
	pnull
	var	1
	line	1046
	colm	38
	synt	any
	field	children
	line	1046
	colm	32
	synt	any
	size
	push1
	line	1046
	colm	29
	synt	any
	toby
	line	1046
	colm	24
	synt	any
	asgn
	pop
	mark0
	mark	L43
	var	12
	var	9
	var	1
	line	1047
	colm	22
	synt	any
	invoke	2
	unmark
lab L43
	var	12
	var	9
	pnull
	pnull
	var	1
	line	1048
	colm	37
	synt	any
	field	children
	var	2
	line	1048
	colm	46
	synt	any
	subsc
	line	1048
	colm	22
	synt	any
	invoke	2
	unmark
lab L41
	efail
lab L42
	line	1046
	colm	16
	synt	endevery
	unmark
lab L40
	pnull
	var	8
	pnull
	var	9
	var	8
	line	1050
	colm	32
	synt	any
	lconcat
	line	1050
	colm	21
	synt	any
	asgn
	line	1044
	colm	13
	synt	endif
	goto	L10
lab L11
	mark	L44
	ccase
	str	12
	line	1053
	colm	26
	synt	any
	eqv
	unmark
	pop
	mark	L45
	pnull
	var	9
	var	11
	line	1054
	colm	28
	synt	any
	invoke	0
	line	1054
	colm	21
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	line	1055
	colm	13
	synt	every
	mark0
	pnull
	var	7
	pnull
	pnull
	pnull
	var	1
	line	1055
	colm	33
	synt	any
	field	l
	line	1055
	colm	27
	synt	any
	nonnull
	line	1055
	colm	25
	synt	any
	bang
	line	1055
	colm	22
	synt	any
	asgn
	pop
	mark0
	mark	L49
	var	12
	var	9
	var	1
	line	1056
	colm	19
	synt	any
	invoke	2
	unmark
lab L49
	var	12
	var	9
	var	7
	line	1057
	colm	19
	synt	any
	invoke	2
	unmark
lab L47
	efail
lab L48
	line	1055
	colm	13
	synt	endevery
	unmark
lab L46
	pnull
	var	8
	pnull
	var	9
	var	8
	line	1059
	colm	29
	synt	any
	lconcat
	line	1059
	colm	18
	synt	any
	asgn
	goto	L10
lab L44
	mark	L50
	ccase
	str	13
	line	1061
	colm	24
	synt	any
	eqv
	unmark
	pop
	mark	L51
	pnull
	var	9
	var	11
	line	1062
	colm	28
	synt	any
	invoke	0
	line	1062
	colm	21
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	var	21
	var	16
	var	1
	line	1064
	colm	25
	synt	any
	invoke	2
	unmark
lab L52
	mark	L53
	line	1065
	colm	13
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	1
	line	1065
	colm	29
	synt	any
	field	foreachmethod
	line	1065
	colm	43
	synt	any
	invoke	0
	line	1065
	colm	21
	synt	any
	asgn
	pop
	mark0
	mark	L56
	var	22
	var	16
	var	5
	line	1066
	colm	29
	synt	any
	invoke	2
	unmark
lab L56
	mark	L57
	var	12
	var	9
	var	1
	line	1067
	colm	19
	synt	any
	invoke	2
	unmark
lab L57
	var	12
	var	9
	pnull
	var	5
	line	1068
	colm	30
	synt	any
	field	procbody
	line	1068
	colm	19
	synt	any
	invoke	2
	unmark
lab L54
	efail
lab L55
	line	1065
	colm	13
	synt	endevery
	unmark
lab L53
	pnull
	var	8
	pnull
	var	9
	var	8
	line	1070
	colm	29
	synt	any
	lconcat
	line	1070
	colm	18
	synt	any
	asgn
	goto	L10
lab L50
	efail
lab L10
	line	1015
	colm	7
	synt	endcase
lab L6
	unmark
	goto	L5
lab L7
	line	1012
	colm	4
	synt	endwhile
	unmark
lab L4
	pnull
	line	1074
	colm	1
	synt	any
	pfail
	end
proc print_node
	local	0,001000,node
	local	1,001000,childindex
	local	2,001000,indent
	local	3,000000,s
	local	4,000000,repl
	local	5,000000,type
	local	6,000000,write
	local	7,000000,i
	local	8,000000,print_node
	local	9,000000,image
	con	0,002000,1,0
	con	1,010000,1,040
	con	2,002000,1,3
	con	3,010000,8,164,162,145,145,156,157,144,145
	con	4,010000,17,164,162,145,145,156,157,144,145,040,055,040,154,141,142,145,154,075
	con	5,002000,1,1
	con	6,010000,7,151,156,164,145,147,145,162
	con	7,010000,6,163,164,162,151,156,147
	con	8,010000,2,072,040
	con	9,010000,5,164,157,153,145,156
	con	10,010000,6,164,157,153,145,156,050
	con	11,010000,3,051,072,040
	con	12,010000,2,040,133
	con	13,010000,1,056
	con	14,010000,1,135
	con	15,010000,4,156,165,154,154
	con	16,010000,18,144,145,143,154,141,162,141,164,151,157,156,137,137,163,164,141,164,145
	con	17,010000,14,141,162,147,114,151,163,164,137,137,163,164,141,164,145
	con	18,010000,12,103,154,141,163,163,137,137,163,164,141,164,145
	con	19,010000,7,143,154,141,163,163,072,040
	con	20,010000,6,151,164,163,040,141,040
	declend
	line	1079
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	1080
	colm	4
	synt	any
	null
	int	0
	line	1080
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	1081
	colm	4
	synt	any
	null
	str	1
	line	1081
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	pnull
	var	4
	str	1
	pnull
	var	2
	int	2
	line	1082
	colm	25
	synt	any
	mult
	line	1082
	colm	13
	synt	any
	invoke	2
	var	1
	line	1082
	colm	29
	synt	any
	cat
	str	1
	line	1082
	colm	43
	synt	any
	cat
	line	1082
	colm	6
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	1084
	colm	4
	synt	case
	mark0
	var	5
	var	0
	line	1084
	colm	13
	synt	any
	invoke	1
	eret
	mark	L6
	ccase
	str	3
	line	1085
	colm	18
	synt	any
	eqv
	unmark
	pop
	mark	L7
	var	6
	var	3
	str	4
	pnull
	var	0
	line	1086
	colm	44
	synt	any
	field	label
	line	1086
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	line	1087
	colm	10
	synt	every
	mark0
	pnull
	var	7
	pnull
	int	5
	pnull
	pnull
	var	0
	line	1087
	colm	31
	synt	any
	field	children
	line	1087
	colm	26
	synt	any
	size
	push1
	line	1087
	colm	23
	synt	any
	toby
	line	1087
	colm	18
	synt	any
	asgn
	pop
	mark0
	var	8
	pnull
	pnull
	var	0
	line	1088
	colm	28
	synt	any
	field	children
	var	7
	line	1088
	colm	37
	synt	any
	subsc
	var	7
	pnull
	var	2
	int	5
	line	1088
	colm	51
	synt	any
	plus
	line	1088
	colm	23
	synt	any
	invoke	3
	unmark
lab L8
	efail
lab L9
	line	1087
	colm	10
	synt	endevery
	goto	L5
lab L6
	mark	L10
	ccase
	mark	L11
	str	6
	line	1090
	colm	16
	synt	any
	esusp
	goto	L12
lab L11
	str	7
lab L12
	line	1091
	colm	15
	synt	any
	eqv
	unmark
	pop
	var	6
	var	3
	var	5
	var	0
	line	1091
	colm	33
	synt	any
	invoke	1
	str	8
	var	9
	var	0
	line	1091
	colm	52
	synt	any
	invoke	1
	line	1091
	colm	25
	synt	any
	invoke	4
	goto	L5
lab L10
	mark	L13
	ccase
	str	9
	line	1092
	colm	14
	synt	any
	eqv
	unmark
	pop
	var	6
	var	3
	str	10
	pnull
	var	0
	line	1092
	colm	43
	synt	any
	field	tok
	str	11
	var	9
	pnull
	var	0
	line	1092
	colm	66
	synt	any
	field	s
	line	1092
	colm	61
	synt	any
	invoke	1
	str	12
	pnull
	var	0
	line	1093
	colm	36
	synt	any
	field	filename
	str	1
	pnull
	var	0
	line	1093
	colm	56
	synt	any
	field	line
	str	13
	pnull
	var	0
	line	1093
	colm	72
	synt	any
	field	column
	str	14
	line	1092
	colm	25
	synt	any
	invoke	12
	goto	L5
lab L13
	mark	L14
	ccase
	mark	L15
	str	15
	line	1094
	colm	13
	synt	any
	esusp
	goto	L16
lab L15
	mark	L17
	str	16
	line	1095
	colm	27
	synt	any
	esusp
	goto	L18
lab L17
	str	17
lab L18
lab L16
	line	1096
	colm	23
	synt	any
	eqv
	unmark
	pop
	var	6
	var	3
	var	9
	var	0
	line	1096
	colm	41
	synt	any
	invoke	1
	line	1096
	colm	32
	synt	any
	invoke	2
	goto	L5
lab L14
	mark	L19
	ccase
	str	18
	line	1097
	colm	21
	synt	any
	eqv
	unmark
	pop
	var	6
	var	3
	str	19
	var	9
	var	0
	line	1097
	colm	50
	synt	any
	invoke	1
	line	1097
	colm	30
	synt	any
	invoke	3
	goto	L5
lab L19
	pop
	var	6
	str	20
	var	5
	var	0
	line	1098
	colm	36
	synt	any
	invoke	1
	line	1098
	colm	21
	synt	any
	invoke	2
lab L5
	line	1084
	colm	4
	synt	endcase
	unmark
lab L4
	pnull
	line	1100
	colm	1
	synt	any
	pfail
	end
proc ckfnasgn
	local	0,001000,x
	local	1,001000,locals
	local	2,001000,selfs
	local	3,000000,type
	local	4,000000,proc
	local	5,000000,member
	local	6,000000,warning
	con	0,010000,5,164,157,153,145,156
	con	1,002000,1,0
	con	2,010000,41,127,141,162,156,151,156,147,072,040,141,163,163,151,147,156,155,145,156,164,040,164,157,040,142,165,151,154,164,055,151,156,040,146,165,156,143,164,151,157,156,040
	declend
	line	1106
	colm	11
	synt	any
	mark	L1
	line	1107
	colm	4
	synt	if
	mark0
	pnull
	var	3
	var	0
	line	1107
	colm	11
	synt	any
	invoke	1
	str	0
	line	1107
	colm	14
	synt	any
	lexeq
	pop
	var	4
	pnull
	var	0
	line	1107
	colm	32
	synt	any
	field	s
	int	1
	line	1107
	colm	30
	synt	any
	invoke	2
	pop
	mark	L2
	var	5
	pnull
	var	1
	line	1108
	colm	20
	synt	any
	nonnull
	pnull
	var	0
	line	1108
	colm	29
	synt	any
	field	s
	line	1108
	colm	19
	synt	any
	invoke	2
	unmark
	efail
lab L2
	pnull
	pop
	mark	L3
	var	5
	pnull
	var	2
	line	1108
	colm	48
	synt	any
	nonnull
	pnull
	var	0
	line	1108
	colm	56
	synt	any
	field	s
	line	1108
	colm	47
	synt	any
	invoke	2
	unmark
	efail
lab L3
	pnull
	unmark
	var	6
	pnull
	str	2
	pnull
	var	0
	line	1109
	colm	62
	synt	any
	field	s
	line	1109
	colm	58
	synt	any
	cat
	pnull
	var	0
	line	1110
	colm	16
	synt	any
	field	line
	pnull
	var	0
	line	1110
	colm	24
	synt	any
	field	filename
	line	1109
	colm	14
	synt	any
	invoke	3
	line	1107
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
	mark	L5
	var	0
	line	1112
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1113
	colm	1
	synt	any
	pfail
	end
proc node_isconst
	local	0,001000,n
	local	1,000000,type
	local	2,000000,token_isconst
	local	3,000000,node_isconst
	local	4,000000,i
	con	0,010000,5,164,157,153,145,156
	con	1,010000,8,164,162,145,145,156,157,144,145
	con	2,010000,7,153,145,171,167,157,162,144
	con	3,002000,1,2
	con	4,010000,6,144,151,147,151,164,163
	con	5,010000,1,145
	con	6,010000,5,154,143,141,163,145
	con	7,010000,7,154,145,164,164,145,162,163
	con	8,010000,2,160,151
	con	9,010000,5,165,143,141,163,145
	con	10,010000,5,143,157,156,163,164
	con	11,010000,5,102,160,154,165,163
	con	12,010000,5,102,144,151,146,146
	con	13,010000,6,102,165,156,151,157,156
	con	14,010000,6,102,155,151,156,165,163
	con	15,010000,5,102,163,164,141,162
	con	16,002000,1,1
	con	17,002000,1,3
	declend
	line	1121
	colm	11
	synt	any
	mark	L1
	line	1122
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1122
	colm	11
	synt	any
	invoke	1
	str	0
	line	1122
	colm	14
	synt	any
	lexeq
	unmark
	line	1123
	colm	8
	synt	if
	mark0
	var	2
	var	0
	line	1123
	colm	24
	synt	any
	invoke	1
	unmark
	mark	L4
	var	2
	var	0
	line	1125
	colm	32
	synt	any
	invoke	1
	line	1125
	colm	12
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	1123
	colm	8
	synt	endif
	goto	L3
lab L2
	line	1128
	colm	9
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1128
	colm	16
	synt	any
	invoke	1
	str	1
	line	1128
	colm	20
	synt	any
	lexeq
	unmark
	line	1129
	colm	8
	synt	case
	mark0
	pnull
	var	0
	line	1129
	colm	14
	synt	any
	field	label
	eret
	mark	L6
	ccase
	str	2
	line	1130
	colm	21
	synt	any
	eqv
	unmark
	pop
	line	1131
	colm	16
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1131
	colm	20
	synt	any
	field	children
	int	3
	line	1131
	colm	29
	synt	any
	subsc
	line	1131
	colm	32
	synt	any
	field	s
	mark	L7
	str	4
	line	1132
	colm	30
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	str	5
	line	1132
	colm	36
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	str	6
	line	1132
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	mark	L13
	str	7
	line	1132
	colm	58
	synt	any
	esusp
	goto	L14
lab L13
	mark	L15
	str	8
	line	1132
	colm	65
	synt	any
	esusp
	goto	L16
lab L15
	str	9
lab L16
lab L14
lab L12
lab L10
lab L8
	line	1131
	colm	35
	synt	any
	lexeq
	unmark
	mark	L17
	str	10
	line	1134
	colm	19
	synt	any
	pret
lab L17
	synt	any
	pfail
	line	1131
	colm	16
	synt	endif
	goto	L5
lab L6
	mark	L18
	ccase
	mark	L19
	str	11
	line	1137
	colm	20
	synt	any
	esusp
	goto	L20
lab L19
	mark	L21
	str	12
	line	1137
	colm	30
	synt	any
	esusp
	goto	L22
lab L21
	mark	L23
	str	13
	line	1137
	colm	41
	synt	any
	esusp
	goto	L24
lab L23
	mark	L25
	str	14
	line	1137
	colm	52
	synt	any
	esusp
	goto	L26
lab L25
	str	15
lab L26
lab L24
lab L22
lab L20
	line	1137
	colm	62
	synt	any
	eqv
	unmark
	pop
	line	1138
	colm	16
	synt	ifelse
	mark	L27
	var	3
	pnull
	pnull
	var	0
	line	1138
	colm	33
	synt	any
	field	children
	int	16
	line	1138
	colm	42
	synt	any
	subsc
	line	1138
	colm	31
	synt	any
	invoke	1
	unmark
	line	1139
	colm	20
	synt	if
	mark0
	var	3
	pnull
	pnull
	var	0
	line	1139
	colm	37
	synt	any
	field	children
	int	17
	line	1139
	colm	46
	synt	any
	subsc
	line	1139
	colm	35
	synt	any
	invoke	1
	unmark
	mark	L29
	str	10
	line	1142
	colm	24
	synt	any
	pret
lab L29
	synt	any
	pfail
	line	1139
	colm	20
	synt	endif
	goto	L28
lab L27
	var	3
	pnull
	pnull
	var	0
	line	1146
	colm	34
	synt	any
	field	children
	int	17
	line	1146
	colm	43
	synt	any
	subsc
	line	1146
	colm	32
	synt	any
	invoke	1
lab L28
	line	1138
	colm	16
	synt	endifelse
	goto	L5
lab L18
	pop
	line	1152
	colm	16
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	16
	pnull
	pnull
	var	0
	line	1152
	colm	34
	synt	any
	field	children
	line	1152
	colm	32
	synt	any
	size
	push1
	line	1152
	colm	29
	synt	any
	toby
	line	1152
	colm	24
	synt	any
	asgn
	pop
	mark0
	var	3
	pnull
	pnull
	var	0
	line	1152
	colm	61
	synt	any
	field	children
	var	4
	line	1152
	colm	70
	synt	any
	subsc
	line	1152
	colm	59
	synt	any
	invoke	1
	unmark
lab L30
	efail
lab L31
	line	1152
	colm	16
	synt	endevery
lab L5
	line	1129
	colm	8
	synt	endcase
	line	1128
	colm	9
	synt	endif
lab L3
	line	1122
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	1156
	colm	1
	synt	any
	pfail
	end
proc get_constantvalue
	local	0,001000,n
	local	1,000000,type
	local	2,000000,integer
	local	3,000000,real
	local	4,000000,string
	local	5,000000,cset
	local	6,000000,constval
	local	7,000000,get_constantvalue
	con	0,010000,5,164,157,153,145,156
	con	1,002000,3,258
	con	2,002000,3,259
	con	3,002000,3,260
	con	4,002000,1,2
	con	5,002000,1,1
	con	6,002000,3,261
	con	7,010000,8,164,162,145,145,156,157,144,145
	con	8,010000,5,102,163,164,141,162
	con	9,002000,1,3
	declend
	line	1161
	colm	11
	synt	any
	mark	L1
	line	1162
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1162
	colm	11
	synt	any
	invoke	1
	str	0
	line	1162
	colm	14
	synt	any
	lexeq
	unmark
	line	1163
	colm	8
	synt	case
	mark0
	pnull
	var	0
	line	1163
	colm	14
	synt	any
	field	tok
	eret
	mark	L5
	ccase
	int	1
	line	1164
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L6
	var	2
	pnull
	var	0
	line	1164
	colm	34
	synt	any
	field	s
	line	1164
	colm	32
	synt	any
	invoke	1
	line	1164
	colm	18
	synt	any
	pret
lab L6
	synt	any
	pfail
	goto	L4
lab L5
	mark	L7
	ccase
	int	2
	line	1165
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L8
	var	3
	pnull
	var	0
	line	1165
	colm	31
	synt	any
	field	s
	line	1165
	colm	29
	synt	any
	invoke	1
	line	1165
	colm	18
	synt	any
	pret
lab L8
	synt	any
	pfail
	goto	L4
lab L7
	mark	L9
	ccase
	int	3
	line	1166
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L10
	var	4
	pnull
	pnull
	var	0
	line	1166
	colm	33
	synt	any
	field	s
	int	4
	pnull
	int	5
	line	1166
	colm	38
	synt	any
	neg
	line	1166
	colm	37
	synt	any
	synt	any
	sect
	line	1166
	colm	31
	synt	any
	invoke	1
	line	1166
	colm	18
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L4
lab L9
	mark	L11
	ccase
	int	6
	line	1167
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L12
	var	5
	pnull
	pnull
	var	0
	line	1167
	colm	31
	synt	any
	field	s
	int	4
	pnull
	int	5
	line	1167
	colm	36
	synt	any
	neg
	line	1167
	colm	35
	synt	any
	synt	any
	sect
	line	1167
	colm	29
	synt	any
	invoke	1
	line	1167
	colm	18
	synt	any
	pret
lab L12
	synt	any
	pfail
	goto	L4
lab L11
	efail
lab L4
	line	1163
	colm	8
	synt	endcase
	goto	L3
lab L2
	line	1170
	colm	9
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1170
	colm	16
	synt	any
	invoke	1
	str	7
	line	1170
	colm	20
	synt	any
	lexeq
	unmark
	line	1171
	colm	8
	synt	case
	mark0
	pnull
	var	0
	line	1171
	colm	14
	synt	any
	field	label
	eret
	mark	L14
	ccase
	str	8
	line	1172
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L15
	pnull
	var	6
	pnull
	var	7
	pnull
	pnull
	var	0
	line	1173
	colm	47
	synt	any
	field	children
	int	5
	line	1173
	colm	56
	synt	any
	subsc
	line	1173
	colm	45
	synt	any
	invoke	1
	var	7
	pnull
	pnull
	var	0
	line	1174
	colm	39
	synt	any
	field	children
	int	9
	line	1174
	colm	48
	synt	any
	subsc
	line	1174
	colm	37
	synt	any
	invoke	1
	line	1173
	colm	61
	synt	any
	mult
	line	1173
	colm	25
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	6
	line	1176
	colm	16
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L13
lab L14
	efail
lab L13
	line	1171
	colm	8
	synt	endcase
	line	1170
	colm	9
	synt	endif
lab L3
	line	1162
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	1180
	colm	1
	synt	any
	pfail
	end
proc constant_folder
	local	0,001000,n
	con	0,010000,5,102,163,164,141,162
	declend
	line	1186
	colm	11
	synt	any
	mark	L1
	line	1187
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	1187
	colm	9
	synt	any
	field	label
	str	0
	line	1187
	colm	16
	synt	any
	lexeq
	unmark
	pnull
	line	1187
	colm	5
	synt	endif
	unmark
lab L1
	pnull
	line	1189
	colm	1
	synt	any
	pfail
	end
proc regexp
	local	0,001000,n
	local	1,000000,type
	local	2,000000,write
	local	3,000000,image
	local	4,000000,csetify
	local	5,000000,node
	local	6,000000,regexp
	local	7,000000,stop
	local	8,000000,nclone
	local	9,000000,copy
	local	10,000000,newt
	con	0,010000,5,164,157,153,145,156
	con	1,002000,3,257
	con	2,002000,3,258
	con	3,010000,1,042
	con	4,002000,3,260
	con	5,002000,3,261
	con	6,002000,3,316
	con	7,010000,12,116,157,164,101,156,171,050,047,134,156,047,051
	con	8,010000,20,165,156,153,156,157,167,156,040,162,145,147,145,170,040,164,157,153,145,156,040
	con	9,010000,6,162,145,147,145,170,160
	con	10,010000,8,164,162,145,145,156,157,144,145
	con	11,010000,6,153,154,145,145,156,145
	con	12,002000,1,1
	con	13,010000,2,050,042
	con	14,010000,10,042,174,174,101,162,142,156,157,050,042
	con	15,010000,3,042,051,051
	con	16,010000,8,050,101,162,142,156,157,050,042
	con	17,010000,7,050,101,162,142,156,157,050
	con	18,010000,2,051,051
	con	19,010000,33,163,171,163,164,145,155,040,145,162,162,157,162,040,151,156,040,162,145,147,145,170,054,040,052,040,157,160,145,162,141,156,144,040
	con	20,010000,6,156,157,040,164,157,153
	con	21,010000,5,141,143,163,145,164
	con	22,010000,8,050,101,162,142,156,157,050,047
	con	23,010000,3,047,051,051
	con	24,010000,5,120,141,162,145,156
	con	25,010000,5,141,162,142,156,157
	con	26,010000,6,101,162,142,156,157,050
	con	27,002000,1,2
	con	28,010000,1,051
	con	29,010000,11,162,145,147,145,170,143,157,156,143,141,164
	con	30,010000,19,052,040,157,160,145,162,141,156,144,040,154,141,142,145,154,040,151,163,040
	con	31,010000,38,163,171,163,164,145,155,040,145,162,162,157,162,040,151,156,040,162,145,147,145,170,054,040,052,040,157,160,145,162,141,156,144,040,164,171,160,145,040
	con	32,010000,8,156,157,040,143,150,151,154,144
	con	33,010000,9,157,156,145,157,162,155,157,162,145
	con	34,010000,3,042,174,174
	con	35,010000,7,101,162,142,156,157,050,042
	con	36,010000,1,050
	con	37,010000,10,040,174,174,040,101,162,142,156,157,050
	con	38,010000,37,050,116,157,164,101,156,171,050,047,134,156,047,051,040,174,174,040,101,162,142,156,157,050,116,157,164,101,156,171,050,047,134,156,047,051,051,051
	con	39,010000,33,162,145,147,145,170,040,145,162,162,157,162,072,040,053,040,156,157,164,040,163,165,160,160,157,162,164,145,144,040,157,156,040,047
	con	40,010000,1,047
	con	41,010000,6,143,157,156,143,141,164
	con	42,010000,2,050,050
	con	43,010000,4,051,174,174,050
	con	44,010000,8,157,160,164,151,157,156,141,154
	con	45,010000,22,042,174,174,160,141,164,164,145,162,156,137,141,154,164,145,162,156,141,164,145,050,042
	con	46,010000,6,042,054,042,042,051,051
	con	47,002000,3,364
	con	48,010000,18,160,141,164,164,145,162,156,137,141,154,164,145,162,156,141,164,145,050
	con	49,010000,5,054,042,042,051,051
	con	50,010000,28,162,145,147,145,170,040,145,162,162,157,162,072,040,163,165,162,160,162,151,163,145,040,164,157,153,145,156,040
	con	51,010000,3,141,154,164
	con	52,010000,19,040,160,141,164,164,145,162,156,137,141,154,164,145,162,156,141,164,145,050
	con	53,010000,5,054,040,042,042,051
	con	54,010000,35,162,145,147,145,170,040,145,162,162,157,162,072,040,157,160,145,162,141,156,144,040,164,157,040,077,040,163,165,160,160,157,162,164,145,144
	con	55,010000,16,040,160,141,164,164,145,162,156,137,143,157,156,143,141,164,050
	con	56,010000,2,054,040
	con	57,010000,8,162,145,147,145,170,142,141,162
	con	58,010000,1,054
	con	59,002000,1,3
	con	60,010000,4,143,163,145,164
	con	61,010000,5,101,156,171,050,047
	con	62,010000,2,047,051
	con	63,010000,6,156,157,164,141,156,171
	con	64,010000,8,116,157,164,101,156,171,050,047
	con	65,010000,10,142,162,141,143,153,143,150,141,162,163
	con	66,010000,15,164,162,145,145,156,157,144,145,040,154,141,142,145,154,040
	con	67,010000,6,163,164,162,151,156,147
	con	68,010000,18,164,171,160,145,040,157,146,040,162,145,147,145,170,160,040,151,163,040
	con	69,010000,3,040,072,040
	declend
	line	1194
	colm	11
	synt	any
	mark	L1
	line	1195
	colm	4
	synt	case
	mark0
	var	1
	var	0
	line	1195
	colm	13
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	str	0
	line	1196
	colm	14
	synt	any
	eqv
	unmark
	pop
	mark	L4
	line	1197
	colm	10
	synt	case
	mark0
	pnull
	var	0
	line	1197
	colm	16
	synt	any
	field	tok
	eret
	mark	L6
	ccase
	mark	L7
	int	1
	line	1198
	colm	17
	synt	any
	esusp
	goto	L8
lab L7
	int	2
lab L8
	line	1198
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L9
	pnull
	pnull
	str	3
	pnull
	var	0
	line	1199
	colm	32
	synt	any
	field	s
	line	1199
	colm	28
	synt	any
	cat
	str	3
	line	1199
	colm	35
	synt	any
	cat
	line	1199
	colm	16
	synt	any
	pret
lab L9
	synt	any
	pfail
	goto	L5
lab L6
	mark	L10
	ccase
	mark	L11
	int	4
	line	1201
	colm	17
	synt	any
	esusp
	goto	L12
lab L11
	int	5
lab L12
	line	1201
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L13
	var	0
	line	1202
	colm	16
	synt	any
	pret
lab L13
	synt	any
	pfail
	goto	L5
lab L10
	mark	L14
	ccase
	int	6
	line	1204
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L15
	str	7
	line	1205
	colm	16
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L5
lab L14
	pop
	var	2
	line	1208
	colm	22
	synt	any
	keywd	errout
	str	8
	var	3
	pnull
	var	0
	line	1208
	colm	62
	synt	any
	field	tok
	line	1208
	colm	60
	synt	any
	invoke	1
	line	1208
	colm	21
	synt	any
	invoke	3
lab L5
	line	1197
	colm	10
	synt	endcase
	unmark
lab L4
	mark	L16
	str	9
	line	1211
	colm	10
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L2
lab L3
	mark	L17
	ccase
	str	10
	line	1213
	colm	17
	synt	any
	eqv
	unmark
	pop
	line	1214
	colm	10
	synt	case
	mark0
	pnull
	var	0
	line	1214
	colm	16
	synt	any
	field	label
	eret
	mark	L19
	ccase
	str	11
	line	1215
	colm	21
	synt	any
	eqv
	unmark
	pop
	line	1217
	colm	16
	synt	case
	mark0
	var	1
	pnull
	pnull
	var	0
	line	1217
	colm	27
	synt	any
	field	children
	int	12
	line	1217
	colm	36
	synt	any
	subsc
	line	1217
	colm	25
	synt	any
	invoke	1
	eret
	mark	L21
	ccase
	str	0
	line	1218
	colm	26
	synt	any
	eqv
	unmark
	pop
	line	1219
	colm	22
	synt	case
	mark0
	pnull
	pnull
	pnull
	var	0
	line	1219
	colm	28
	synt	any
	field	children
	int	12
	line	1219
	colm	37
	synt	any
	subsc
	line	1219
	colm	40
	synt	any
	field	tok
	eret
	mark	L23
	ccase
	int	1
	line	1220
	colm	28
	synt	any
	eqv
	unmark
	pop
	line	1221
	colm	28
	synt	ifelse
	mark	L24
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1221
	colm	33
	synt	any
	field	children
	int	12
	line	1221
	colm	42
	synt	any
	subsc
	line	1221
	colm	45
	synt	any
	field	s
	line	1221
	colm	31
	synt	any
	size
	int	12
	line	1221
	colm	48
	synt	any
	numgt
	unmark
	mark	L26
	pnull
	pnull
	pnull
	pnull
	str	13
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1222
	colm	48
	synt	any
	field	children
	int	12
	line	1222
	colm	57
	synt	any
	subsc
	line	1222
	colm	60
	synt	any
	field	s
	int	12
	pnull
	int	12
	line	1222
	colm	65
	synt	any
	neg
	line	1222
	colm	64
	synt	any
	synt	any
	sect
	line	1222
	colm	44
	synt	any
	cat
	str	14
	line	1222
	colm	69
	synt	any
	cat
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1223
	colm	58
	synt	any
	field	children
	int	12
	line	1223
	colm	67
	synt	any
	subsc
	line	1223
	colm	70
	synt	any
	field	s
	pnull
	int	12
	line	1223
	colm	73
	synt	any
	neg
	line	1223
	colm	72
	synt	any
	subsc
	line	1223
	colm	54
	synt	any
	cat
	str	15
	line	1223
	colm	76
	synt	any
	cat
	line	1222
	colm	31
	synt	any
	pret
lab L26
	synt	any
	pfail
	goto	L25
lab L24
	mark	L27
	pnull
	pnull
	str	16
	pnull
	pnull
	pnull
	var	0
	line	1226
	colm	56
	synt	any
	field	children
	int	12
	line	1226
	colm	65
	synt	any
	subsc
	line	1226
	colm	68
	synt	any
	field	s
	line	1226
	colm	52
	synt	any
	cat
	str	15
	line	1226
	colm	70
	synt	any
	cat
	line	1226
	colm	33
	synt	any
	pret
lab L27
	synt	any
	pfail
lab L25
	line	1221
	colm	28
	synt	endifelse
	goto	L22
lab L23
	mark	L28
	ccase
	mark	L29
	int	5
	line	1228
	colm	29
	synt	any
	esusp
	goto	L30
lab L29
	int	4
lab L30
	line	1229
	colm	28
	synt	any
	eqv
	unmark
	pop
	mark	L31
	pnull
	pnull
	str	17
	pnull
	pnull
	pnull
	var	0
	line	1229
	colm	51
	synt	any
	field	children
	int	12
	line	1229
	colm	60
	synt	any
	subsc
	line	1229
	colm	63
	synt	any
	field	s
	line	1229
	colm	47
	synt	any
	cat
	str	18
	line	1229
	colm	65
	synt	any
	cat
	line	1229
	colm	30
	synt	any
	pret
lab L31
	synt	any
	pfail
	goto	L22
lab L28
	pop
	var	2
	str	19
	mark	L32
	var	3
	pnull
	pnull
	pnull
	var	0
	line	1232
	colm	42
	synt	any
	field	children
	int	12
	line	1232
	colm	51
	synt	any
	subsc
	line	1232
	colm	54
	synt	any
	field	tok
	line	1232
	colm	40
	synt	any
	invoke	1
	line	1232
	colm	59
	synt	any
	esusp
	goto	L33
lab L32
	str	20
lab L33
	line	1231
	colm	33
	synt	any
	invoke	2
lab L22
	line	1219
	colm	22
	synt	endcase
	goto	L20
lab L21
	mark	L34
	ccase
	str	10
	line	1236
	colm	29
	synt	any
	eqv
	unmark
	pop
	mark	L35
	line	1237
	colm	22
	synt	case
	mark0
	pnull
	pnull
	pnull
	var	0
	line	1237
	colm	28
	synt	any
	field	children
	int	12
	line	1237
	colm	37
	synt	any
	subsc
	line	1237
	colm	40
	synt	any
	field	label
	eret
	mark	L37
	ccase
	str	21
	line	1238
	colm	32
	synt	any
	eqv
	unmark
	pop
	mark	L38
	pnull
	pnull
	str	22
	var	4
	pnull
	pnull
	var	0
	line	1239
	colm	59
	synt	any
	field	children
	int	12
	line	1239
	colm	68
	synt	any
	subsc
	line	1239
	colm	57
	synt	any
	invoke	1
	line	1239
	colm	47
	synt	any
	cat
	str	23
	line	1239
	colm	73
	synt	any
	cat
	line	1239
	colm	28
	synt	any
	pret
lab L38
	synt	any
	pfail
	goto	L36
lab L37
	mark	L39
	ccase
	str	24
	line	1241
	colm	32
	synt	any
	eqv
	unmark
	pop
	mark	L40
	var	5
	str	25
	str	26
	var	6
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1242
	colm	66
	synt	any
	field	children
	int	12
	line	1242
	colm	75
	synt	any
	subsc
	line	1242
	colm	78
	synt	any
	field	children
	int	27
	line	1242
	colm	87
	synt	any
	subsc
	line	1242
	colm	64
	synt	any
	invoke	1
	str	28
	line	1242
	colm	39
	synt	any
	invoke	4
	line	1242
	colm	28
	synt	any
	pret
lab L40
	synt	any
	pfail
	goto	L36
lab L39
	mark	L41
	ccase
	str	29
	line	1244
	colm	38
	synt	any
	eqv
	unmark
	pop
	pnull
	goto	L36
lab L41
	pop
	var	2
	str	30
	pnull
	pnull
	pnull
	var	0
	line	1246
	colm	58
	synt	any
	field	children
	int	12
	line	1246
	colm	67
	synt	any
	subsc
	line	1246
	colm	70
	synt	any
	field	label
	line	1246
	colm	33
	synt	any
	invoke	2
lab L36
	line	1237
	colm	22
	synt	endcase
	unmark
lab L35
	mark	L42
	var	5
	str	25
	str	26
	var	6
	pnull
	pnull
	var	0
	line	1249
	colm	60
	synt	any
	field	children
	int	12
	line	1249
	colm	69
	synt	any
	subsc
	line	1249
	colm	58
	synt	any
	invoke	1
	str	28
	line	1249
	colm	33
	synt	any
	invoke	4
	line	1249
	colm	22
	synt	any
	pret
lab L42
	synt	any
	pfail
	goto	L20
lab L34
	pop
	var	2
	str	31
	mark	L43
	var	1
	pnull
	pnull
	var	0
	line	1253
	colm	35
	synt	any
	field	children
	int	12
	line	1253
	colm	44
	synt	any
	subsc
	line	1253
	colm	33
	synt	any
	invoke	1
	line	1253
	colm	48
	synt	any
	esusp
	goto	L44
lab L43
	str	32
lab L44
	line	1252
	colm	27
	synt	any
	invoke	2
lab L20
	line	1217
	colm	16
	synt	endcase
	goto	L18
lab L19
	mark	L45
	ccase
	str	33
	line	1257
	colm	24
	synt	any
	eqv
	unmark
	pop
	line	1259
	colm	16
	synt	case
	mark0
	var	1
	pnull
	pnull
	var	0
	line	1259
	colm	27
	synt	any
	field	children
	int	12
	line	1259
	colm	36
	synt	any
	subsc
	line	1259
	colm	25
	synt	any
	invoke	1
	eret
	mark	L47
	ccase
	str	0
	line	1260
	colm	26
	synt	any
	eqv
	unmark
	pop
	line	1261
	colm	22
	synt	case
	mark0
	pnull
	pnull
	pnull
	var	0
	line	1261
	colm	28
	synt	any
	field	children
	int	12
	line	1261
	colm	37
	synt	any
	subsc
	line	1261
	colm	40
	synt	any
	field	tok
	eret
	mark	L49
	ccase
	int	1
	line	1262
	colm	28
	synt	any
	eqv
	unmark
	pop
	mark	L50
	pnull
	pnull
	pnull
	pnull
	pnull
	str	13
	pnull
	pnull
	pnull
	var	0
	line	1265
	colm	45
	synt	any
	field	children
	int	12
	line	1265
	colm	54
	synt	any
	subsc
	line	1265
	colm	57
	synt	any
	field	s
	line	1265
	colm	41
	synt	any
	cat
	str	34
	line	1265
	colm	60
	synt	any
	cat
	str	35
	line	1265
	colm	70
	synt	any
	cat
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1266
	colm	53
	synt	any
	field	children
	int	12
	line	1266
	colm	62
	synt	any
	subsc
	line	1266
	colm	65
	synt	any
	field	s
	pnull
	int	12
	line	1266
	colm	68
	synt	any
	neg
	line	1266
	colm	67
	synt	any
	subsc
	line	1266
	colm	49
	synt	any
	cat
	str	15
	line	1266
	colm	71
	synt	any
	cat
	line	1265
	colm	28
	synt	any
	pret
lab L50
	synt	any
	pfail
	goto	L48
lab L49
	mark	L51
	ccase
	int	4
	line	1268
	colm	28
	synt	any
	eqv
	unmark
	pop
	mark	L52
	pnull
	pnull
	pnull
	pnull
	str	36
	pnull
	pnull
	pnull
	var	0
	line	1269
	colm	43
	synt	any
	field	children
	int	12
	line	1269
	colm	52
	synt	any
	subsc
	line	1269
	colm	55
	synt	any
	field	s
	line	1269
	colm	39
	synt	any
	cat
	str	37
	line	1269
	colm	58
	synt	any
	cat
	pnull
	pnull
	pnull
	var	0
	line	1270
	colm	50
	synt	any
	field	children
	int	12
	line	1270
	colm	59
	synt	any
	subsc
	line	1270
	colm	62
	synt	any
	field	s
	line	1270
	colm	46
	synt	any
	cat
	str	18
	line	1270
	colm	65
	synt	any
	cat
	line	1269
	colm	28
	synt	any
	pret
lab L52
	synt	any
	pfail
	goto	L48
lab L51
	mark	L53
	ccase
	int	6
	line	1272
	colm	28
	synt	any
	eqv
	unmark
	pop
	mark	L54
	str	38
	line	1273
	colm	28
	synt	any
	pret
lab L54
	synt	any
	pfail
	goto	L48
lab L53
	pop
	var	7
	str	39
	var	3
	pnull
	pnull
	pnull
	var	0
	line	1277
	colm	40
	synt	any
	field	children
	int	12
	line	1277
	colm	49
	synt	any
	subsc
	line	1277
	colm	52
	synt	any
	field	tok
	line	1277
	colm	38
	synt	any
	invoke	1
	str	40
	line	1276
	colm	32
	synt	any
	invoke	3
lab L48
	line	1261
	colm	22
	synt	endcase
	goto	L46
lab L47
	pop
	mark	L55
	pnull
	var	8
	var	9
	var	0
	line	1282
	colm	36
	synt	any
	invoke	1
	line	1282
	colm	29
	synt	any
	asgn
	unmark
lab L55
	mark	L56
	pnull
	pnull
	var	8
	line	1283
	colm	28
	synt	any
	field	label
	str	11
	line	1283
	colm	35
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	var	5
	str	41
	str	42
	var	6
	pnull
	pnull
	var	0
	line	1284
	colm	58
	synt	any
	field	children
	int	12
	line	1284
	colm	67
	synt	any
	subsc
	line	1284
	colm	56
	synt	any
	invoke	1
	str	43
	var	6
	var	8
	line	1285
	colm	40
	synt	any
	invoke	1
	str	18
	line	1284
	colm	33
	synt	any
	invoke	6
	line	1284
	colm	22
	synt	any
	pret
lab L57
	synt	any
	pfail
lab L46
	line	1259
	colm	16
	synt	endcase
	goto	L18
lab L45
	mark	L58
	ccase
	str	44
	line	1289
	colm	23
	synt	any
	eqv
	unmark
	pop
	line	1291
	colm	16
	synt	case
	mark0
	var	1
	pnull
	pnull
	var	0
	line	1291
	colm	27
	synt	any
	field	children
	int	12
	line	1291
	colm	36
	synt	any
	subsc
	line	1291
	colm	25
	synt	any
	invoke	1
	eret
	mark	L60
	ccase
	str	0
	line	1292
	colm	26
	synt	any
	eqv
	unmark
	pop
	line	1293
	colm	22
	synt	case
	mark0
	pnull
	pnull
	pnull
	var	0
	line	1293
	colm	28
	synt	any
	field	children
	int	12
	line	1293
	colm	37
	synt	any
	subsc
	line	1293
	colm	40
	synt	any
	field	tok
	eret
	mark	L62
	ccase
	int	1
	line	1294
	colm	28
	synt	any
	eqv
	unmark
	pop
	line	1295
	colm	28
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1295
	colm	33
	synt	any
	field	children
	int	12
	line	1295
	colm	42
	synt	any
	subsc
	line	1295
	colm	45
	synt	any
	field	s
	line	1295
	colm	31
	synt	any
	size
	int	12
	line	1295
	colm	48
	synt	any
	numgt
	unmark
	mark	L63
	pnull
	pnull
	pnull
	pnull
	str	13
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1296
	colm	48
	synt	any
	field	children
	int	12
	line	1296
	colm	57
	synt	any
	subsc
	line	1296
	colm	60
	synt	any
	field	s
	int	12
	pnull
	int	12
	line	1296
	colm	65
	synt	any
	neg
	line	1296
	colm	64
	synt	any
	synt	any
	sect
	line	1296
	colm	44
	synt	any
	cat
	str	45
	line	1296
	colm	69
	synt	any
	cat
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1298
	colm	40
	synt	any
	field	children
	int	12
	line	1298
	colm	49
	synt	any
	subsc
	line	1298
	colm	52
	synt	any
	field	s
	pnull
	int	12
	line	1298
	colm	55
	synt	any
	neg
	line	1298
	colm	54
	synt	any
	subsc
	line	1297
	colm	66
	synt	any
	cat
	str	46
	line	1298
	colm	59
	synt	any
	cat
	line	1296
	colm	31
	synt	any
	pret
lab L63
	synt	any
	pfail
	line	1295
	colm	28
	synt	endif
	goto	L61
lab L62
	mark	L64
	ccase
	int	4
	line	1301
	colm	28
	synt	any
	eqv
	unmark
	pop
	mark	L65
	pnull
	var	10
	var	9
	pnull
	pnull
	var	0
	line	1304
	colm	42
	synt	any
	field	children
	int	12
	line	1304
	colm	51
	synt	any
	subsc
	line	1304
	colm	40
	synt	any
	invoke	1
	line	1304
	colm	33
	synt	any
	asgn
	unmark
lab L65
	mark	L66
	pnull
	pnull
	var	10
	line	1305
	colm	32
	synt	any
	field	tok
	int	47
	line	1305
	colm	37
	synt	any
	asgn
	unmark
lab L66
	mark	L67
	pnull
	pnull
	var	10
	line	1306
	colm	32
	synt	any
	field	s
	str	36
	line	1306
	colm	35
	synt	any
	asgn
	unmark
lab L67
	mark	L68
	var	5
	str	41
	var	10
	pnull
	pnull
	str	48
	pnull
	pnull
	pnull
	var	0
	line	1308
	colm	54
	synt	any
	field	children
	int	12
	line	1308
	colm	63
	synt	any
	subsc
	line	1308
	colm	66
	synt	any
	field	s
	line	1308
	colm	50
	synt	any
	cat
	str	49
	line	1308
	colm	69
	synt	any
	cat
	line	1307
	colm	39
	synt	any
	invoke	3
	line	1307
	colm	28
	synt	any
	pret
lab L68
	synt	any
	pfail
	goto	L61
lab L64
	pop
	var	7
	str	50
	var	3
	pnull
	pnull
	pnull
	var	0
	line	1311
	colm	48
	synt	any
	field	children
	int	12
	line	1311
	colm	57
	synt	any
	subsc
	line	1311
	colm	60
	synt	any
	field	s
	line	1311
	colm	46
	synt	any
	invoke	1
	line	1310
	colm	38
	synt	any
	invoke	2
lab L61
	line	1293
	colm	22
	synt	endcase
	goto	L59
lab L60
	mark	L69
	ccase
	str	10
	line	1314
	colm	29
	synt	any
	eqv
	unmark
	pop
	mark	L70
	var	5
	str	51
	str	52
	var	6
	pnull
	pnull
	var	0
	line	1316
	colm	42
	synt	any
	field	children
	int	12
	line	1316
	colm	51
	synt	any
	subsc
	line	1316
	colm	40
	synt	any
	invoke	1
	str	53
	line	1315
	colm	33
	synt	any
	invoke	4
	line	1315
	colm	22
	synt	any
	pret
lab L70
	synt	any
	pfail
	goto	L59
lab L69
	pop
	var	7
	str	54
	line	1319
	colm	26
	synt	any
	invoke	1
lab L59
	line	1291
	colm	16
	synt	endcase
	goto	L18
lab L58
	mark	L71
	ccase
	str	29
	line	1323
	colm	26
	synt	any
	eqv
	unmark
	pop
	mark	L72
	var	5
	str	41
	str	55
	var	6
	pnull
	pnull
	var	0
	line	1324
	colm	66
	synt	any
	field	children
	int	12
	line	1324
	colm	75
	synt	any
	subsc
	line	1324
	colm	64
	synt	any
	invoke	1
	str	56
	var	6
	pnull
	pnull
	var	0
	line	1325
	colm	42
	synt	any
	field	children
	int	27
	line	1325
	colm	51
	synt	any
	subsc
	line	1325
	colm	40
	synt	any
	invoke	1
	str	28
	line	1324
	colm	27
	synt	any
	invoke	6
	line	1324
	colm	16
	synt	any
	pret
lab L72
	synt	any
	pfail
	goto	L18
lab L71
	mark	L73
	ccase
	str	57
	line	1327
	colm	23
	synt	any
	eqv
	unmark
	pop
	mark	L74
	var	5
	str	51
	str	52
	var	6
	pnull
	pnull
	var	0
	line	1328
	colm	66
	synt	any
	field	children
	int	12
	line	1328
	colm	75
	synt	any
	subsc
	line	1328
	colm	64
	synt	any
	invoke	1
	str	58
	var	6
	pnull
	pnull
	var	0
	line	1329
	colm	41
	synt	any
	field	children
	int	59
	line	1329
	colm	50
	synt	any
	subsc
	line	1329
	colm	39
	synt	any
	invoke	1
	str	28
	line	1328
	colm	27
	synt	any
	invoke	6
	line	1328
	colm	16
	synt	any
	pret
lab L74
	synt	any
	pfail
	goto	L18
lab L73
	mark	L75
	ccase
	str	21
	line	1331
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L76
	var	5
	str	60
	pnull
	pnull
	str	61
	var	4
	var	0
	line	1332
	colm	54
	synt	any
	invoke	1
	line	1332
	colm	44
	synt	any
	cat
	str	62
	line	1332
	colm	58
	synt	any
	cat
	line	1332
	colm	27
	synt	any
	invoke	2
	line	1332
	colm	16
	synt	any
	pret
lab L76
	synt	any
	pfail
	goto	L18
lab L75
	mark	L77
	ccase
	str	63
	line	1334
	colm	21
	synt	any
	eqv
	unmark
	pop
	mark	L78
	var	5
	str	60
	pnull
	pnull
	str	64
	var	4
	var	0
	line	1335
	colm	57
	synt	any
	invoke	1
	line	1335
	colm	47
	synt	any
	cat
	str	62
	line	1335
	colm	61
	synt	any
	cat
	line	1335
	colm	27
	synt	any
	invoke	2
	line	1335
	colm	16
	synt	any
	pret
lab L78
	synt	any
	pfail
	goto	L18
lab L77
	mark	L79
	ccase
	str	65
	line	1337
	colm	25
	synt	any
	eqv
	unmark
	pop
	mark	L80
	var	4
	var	0
	line	1338
	colm	30
	synt	any
	invoke	1
	line	1338
	colm	16
	synt	any
	pret
lab L80
	synt	any
	pfail
	goto	L18
lab L79
	mark	L81
	ccase
	str	24
	line	1340
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L82
	var	6
	pnull
	pnull
	var	0
	line	1341
	colm	32
	synt	any
	field	children
	int	27
	line	1341
	colm	41
	synt	any
	subsc
	line	1341
	colm	29
	synt	any
	invoke	1
	line	1341
	colm	16
	synt	any
	pret
lab L82
	synt	any
	pfail
	goto	L18
lab L81
	mark	L83
	ccase
	mark	L84
	str	51
	line	1344
	colm	19
	synt	any
	esusp
	goto	L85
lab L84
	mark	L86
	str	41
	line	1344
	colm	30
	synt	any
	esusp
	goto	L87
lab L86
	mark	L88
	str	25
	line	1344
	colm	40
	synt	any
	esusp
	goto	L89
lab L88
	str	60
lab L89
lab L87
lab L85
	line	1344
	colm	48
	synt	any
	eqv
	unmark
	pop
	mark	L90
	var	0
	line	1345
	colm	16
	synt	any
	pret
lab L90
	synt	any
	pfail
	goto	L18
lab L83
	pop
	var	2
	str	66
	var	3
	pnull
	var	0
	line	1348
	colm	48
	synt	any
	field	label
	line	1348
	colm	46
	synt	any
	invoke	1
	line	1348
	colm	21
	synt	any
	invoke	2
lab L18
	line	1214
	colm	10
	synt	endcase
	goto	L2
lab L17
	mark	L91
	ccase
	str	67
	line	1352
	colm	15
	synt	any
	eqv
	unmark
	pop
	mark	L92
	var	0
	line	1352
	colm	17
	synt	any
	pret
lab L92
	synt	any
	pfail
	goto	L2
lab L91
	pop
	mark	L93
	var	2
	str	68
	var	1
	var	0
	line	1354
	colm	42
	synt	any
	invoke	1
	str	69
	var	3
	var	0
	line	1354
	colm	59
	synt	any
	invoke	1
	line	1354
	colm	15
	synt	any
	invoke	4
	unmark
lab L93
	mark	L94
	str	9
	line	1355
	colm	10
	synt	any
	pret
lab L94
	synt	any
	pfail
lab L2
	line	1195
	colm	4
	synt	endcase
	unmark
lab L1
	pnull
	line	1358
	colm	1
	synt	any
	pfail
	end
proc csetify
	local	0,001000,n
	local	1,000000,type
	local	2,000000,stop
	local	3,000000,image
	local	4,000000,write
	local	5,000000,cs1
	local	6,000000,csetify
	local	7,000000,cs2
	local	8,000000,lo1
	local	9,000000,lastofcset
	local	10,000000,fo2
	local	11,000000,firstofcset
	local	12,000000,csr
	local	13,000000,csetrange
	local	14,000000,cs
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,5,164,157,153,145,156
	con	2,002000,3,257
	con	3,002000,3,258
	con	4,002000,3,316
	con	5,002000,3,312
	con	6,002000,3,308
	con	7,010000,20,163,164,157,160,160,151,156,147,040,157,156,040,143,163,145,164,151,146,171,040
	con	8,010000,8,143,163,145,164,151,146,171,040
	con	9,010000,1,077
	con	10,010000,10,142,162,141,143,153,143,150,141,162,163
	con	11,002000,1,1
	con	12,010000,5,040,166,163,056,040
	con	13,002000,1,3
	con	14,010000,5,141,143,163,145,164
	con	15,002000,1,2
	con	16,010000,6,156,157,164,141,156,171
	con	17,010000,6,040,153,151,144,163,040
	con	18,010000,14,143,141,156,047,164,040,143,163,145,164,151,146,171,040
	con	19,010000,17,143,141,156,047,164,040,154,141,163,164,157,146,143,163,145,164,040
	con	20,010000,18,143,141,156,047,164,040,146,151,162,163,164,157,146,143,163,145,164,040
	con	21,010000,16,143,141,156,047,164,040,143,163,145,164,162,141,156,147,145,040
	con	22,010000,5,040,141,156,144,040
	declend
	line	1361
	colm	11
	synt	any
	mark	L1
	line	1362
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1362
	colm	11
	synt	any
	invoke	1
	str	0
	line	1362
	colm	15
	synt	any
	lexne
	unmark
	mark	L2
	line	1363
	colm	7
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1363
	colm	14
	synt	any
	invoke	1
	str	1
	line	1363
	colm	18
	synt	any
	lexeq
	unmark
	line	1364
	colm	10
	synt	case
	mark0
	pnull
	var	0
	line	1364
	colm	16
	synt	any
	field	tok
	eret
	mark	L4
	ccase
	mark	L5
	int	2
	line	1367
	colm	17
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	int	3
	line	1367
	colm	23
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	int	4
	line	1367
	colm	29
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	int	5
	line	1367
	colm	35
	synt	any
	esusp
	goto	L12
lab L11
	int	6
lab L12
lab L10
lab L8
lab L6
	line	1367
	colm	40
	synt	any
	eqv
	unmark
	pop
	mark	L13
	pnull
	var	0
	line	1368
	colm	24
	synt	any
	field	s
	line	1368
	colm	16
	synt	any
	pret
lab L13
	synt	any
	pfail
	goto	L3
lab L4
	pop
	var	2
	str	7
	var	3
	pnull
	var	0
	line	1371
	colm	52
	synt	any
	field	tok
	line	1371
	colm	50
	synt	any
	invoke	1
	line	1371
	colm	20
	synt	any
	invoke	2
lab L3
	line	1364
	colm	10
	synt	endcase
	line	1363
	colm	7
	synt	endif
	unmark
lab L2
	var	2
	str	8
	var	1
	var	0
	line	1375
	colm	28
	synt	any
	invoke	1
	str	9
	line	1375
	colm	11
	synt	any
	invoke	3
	line	1362
	colm	4
	synt	endif
	unmark
lab L1
	mark	L14
	line	1377
	colm	4
	synt	case
	mark0
	pnull
	var	0
	line	1377
	colm	10
	synt	any
	field	label
	eret
	mark	L16
	ccase
	str	10
	line	1378
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	4
	var	1
	pnull
	pnull
	var	0
	line	1379
	colm	22
	synt	any
	field	children
	int	11
	line	1379
	colm	31
	synt	any
	subsc
	str	12
	pnull
	pnull
	var	0
	line	1379
	colm	46
	synt	any
	field	children
	int	13
	line	1379
	colm	55
	synt	any
	subsc
	line	1379
	colm	20
	synt	any
	invoke	3
	line	1379
	colm	15
	synt	any
	invoke	1
	goto	L15
lab L16
	mark	L17
	ccase
	str	14
	line	1381
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	pnull
	pnull
	var	0
	line	1382
	colm	16
	synt	any
	field	children
	int	15
	line	1382
	colm	25
	synt	any
	subsc
	line	1382
	colm	12
	synt	any
	asgn
	goto	L15
lab L17
	mark	L18
	ccase
	str	16
	line	1384
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	pnull
	pnull
	var	0
	line	1385
	colm	16
	synt	any
	field	children
	int	13
	line	1385
	colm	25
	synt	any
	subsc
	line	1385
	colm	12
	synt	any
	asgn
	goto	L15
lab L18
	pop
	var	2
	str	8
	var	3
	pnull
	var	0
	line	1388
	colm	34
	synt	any
	field	label
	line	1388
	colm	32
	synt	any
	invoke	1
	str	17
	pnull
	pnull
	var	0
	line	1388
	colm	55
	synt	any
	field	children
	line	1388
	colm	53
	synt	any
	size
	line	1388
	colm	14
	synt	any
	invoke	4
lab L15
	line	1377
	colm	4
	synt	endcase
	unmark
lab L14
	mark	L19
	line	1391
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1391
	colm	11
	synt	any
	invoke	1
	str	0
	line	1391
	colm	15
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	1391
	colm	32
	synt	any
	field	label
	str	10
	line	1391
	colm	39
	synt	any
	lexeq
	unmark
	mark	L20
	pnull
	var	5
	mark	L21
	var	6
	pnull
	pnull
	var	0
	line	1393
	colm	23
	synt	any
	field	children
	int	11
	line	1393
	colm	32
	synt	any
	subsc
	line	1393
	colm	21
	synt	any
	invoke	1
	line	1393
	colm	37
	synt	any
	esusp
	goto	L22
lab L21
	var	2
	str	18
	var	3
	pnull
	pnull
	var	0
	line	1393
	colm	68
	synt	any
	field	children
	int	11
	line	1393
	colm	77
	synt	any
	subsc
	line	1393
	colm	66
	synt	any
	invoke	1
	line	1393
	colm	43
	synt	any
	invoke	2
lab L22
	line	1393
	colm	11
	synt	any
	asgn
	unmark
lab L20
	mark	L23
	pnull
	var	7
	mark	L24
	var	6
	pnull
	pnull
	var	0
	line	1394
	colm	23
	synt	any
	field	children
	int	13
	line	1394
	colm	32
	synt	any
	subsc
	line	1394
	colm	21
	synt	any
	invoke	1
	line	1394
	colm	37
	synt	any
	esusp
	goto	L25
lab L24
	var	2
	str	18
	var	3
	pnull
	pnull
	var	0
	line	1394
	colm	68
	synt	any
	field	children
	int	13
	line	1394
	colm	77
	synt	any
	subsc
	line	1394
	colm	66
	synt	any
	invoke	1
	line	1394
	colm	43
	synt	any
	invoke	2
lab L25
	line	1394
	colm	11
	synt	any
	asgn
	unmark
lab L23
	mark	L26
	pnull
	var	8
	mark	L27
	var	9
	pnull
	pnull
	var	0
	line	1395
	colm	26
	synt	any
	field	children
	int	11
	line	1395
	colm	35
	synt	any
	subsc
	line	1395
	colm	24
	synt	any
	invoke	1
	line	1395
	colm	40
	synt	any
	esusp
	goto	L28
lab L27
	var	2
	str	19
	var	3
	pnull
	pnull
	var	0
	line	1396
	colm	43
	synt	any
	field	children
	int	11
	line	1396
	colm	52
	synt	any
	subsc
	line	1396
	colm	41
	synt	any
	invoke	1
	line	1396
	colm	14
	synt	any
	invoke	2
lab L28
	line	1395
	colm	11
	synt	any
	asgn
	unmark
lab L26
	mark	L29
	pnull
	var	10
	mark	L30
	var	11
	pnull
	pnull
	var	0
	line	1397
	colm	27
	synt	any
	field	children
	int	13
	line	1397
	colm	36
	synt	any
	subsc
	line	1397
	colm	25
	synt	any
	invoke	1
	line	1397
	colm	41
	synt	any
	esusp
	goto	L31
lab L30
	var	2
	str	20
	var	3
	pnull
	pnull
	var	0
	line	1398
	colm	44
	synt	any
	field	children
	int	13
	line	1398
	colm	53
	synt	any
	subsc
	line	1398
	colm	42
	synt	any
	invoke	1
	line	1398
	colm	14
	synt	any
	invoke	2
lab L31
	line	1397
	colm	11
	synt	any
	asgn
	unmark
lab L29
	mark	L32
	pnull
	var	12
	mark	L33
	var	13
	var	8
	var	10
	line	1399
	colm	23
	synt	any
	invoke	2
	line	1399
	colm	34
	synt	any
	esusp
	goto	L34
lab L33
	var	2
	str	21
	var	3
	var	8
	line	1400
	colm	40
	synt	any
	invoke	1
	str	22
	var	3
	var	10
	line	1400
	colm	61
	synt	any
	invoke	1
	line	1400
	colm	14
	synt	any
	invoke	4
lab L34
	line	1399
	colm	11
	synt	any
	asgn
	unmark
lab L32
	mark	L35
	pnull
	var	14
	pnull
	pnull
	var	5
	var	7
	line	1401
	colm	17
	synt	any
	unions
	var	12
	line	1401
	colm	24
	synt	any
	unions
	line	1401
	colm	10
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	var	14
	line	1402
	colm	7
	synt	any
	pret
lab L36
	synt	any
	pfail
	line	1391
	colm	4
	synt	endif
	unmark
lab L19
	mark	L37
	line	1404
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1404
	colm	11
	synt	any
	invoke	1
	str	1
	line	1404
	colm	15
	synt	any
	lexeq
	unmark
	mark	L38
	var	6
	var	0
	line	1404
	colm	45
	synt	any
	invoke	1
	line	1404
	colm	31
	synt	any
	pret
lab L38
	synt	any
	pfail
	line	1404
	colm	4
	synt	endif
	unmark
lab L37
	mark	L39
	mark	L40
	var	0
	line	1405
	colm	4
	synt	any
	pret
lab L40
	synt	any
	pfail
	unmark
lab L39
	pnull
	line	1406
	colm	1
	synt	any
	pfail
	end
proc csetrange
	local	0,001000,char1
	local	1,001000,char2
	local	2,000020,rv
	local	3,000000,i
	local	4,000000,ord
	local	5,000000,char
	con	0,020000,0
	declend
	line	1408
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	cset	0
	line	1410
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1411
	colm	4
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	4
	var	0
	line	1411
	colm	18
	synt	any
	invoke	1
	var	4
	var	1
	line	1411
	colm	32
	synt	any
	invoke	1
	push1
	line	1411
	colm	26
	synt	any
	toby
	line	1411
	colm	12
	synt	any
	asgn
	pop
	mark0
	pnull
	var	2
	dup
	var	5
	var	3
	line	1412
	colm	19
	synt	any
	invoke	1
	line	1412
	colm	10
	synt	any
	unions
	asgn
	unmark
lab L3
	efail
lab L4
	line	1411
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	2
	line	1414
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1415
	colm	1
	synt	any
	pfail
	end
proc firstofcset
	local	0,001000,c
	local	1,000000,type
	local	2,000000,firstofcset
	con	0,010000,5,164,157,153,145,156
	con	1,002000,3,257
	con	2,002000,1,1
	con	3,002000,3,258
	con	4,010000,8,164,162,145,145,156,157,144,145
	declend
	line	1417
	colm	11
	synt	any
	mark	L1
	line	1418
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1418
	colm	11
	synt	any
	invoke	1
	str	0
	line	1418
	colm	15
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	1418
	colm	29
	synt	any
	field	tok
	int	1
	line	1418
	colm	34
	synt	any
	numeq
	unmark
	mark	L2
	pnull
	pnull
	var	0
	line	1418
	colm	53
	synt	any
	field	s
	int	2
	line	1418
	colm	55
	synt	any
	subsc
	line	1418
	colm	45
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	1418
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	1419
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1419
	colm	11
	synt	any
	invoke	1
	str	0
	line	1419
	colm	15
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	1419
	colm	29
	synt	any
	field	tok
	int	3
	line	1419
	colm	34
	synt	any
	numeq
	unmark
	mark	L4
	pnull
	pnull
	var	0
	line	1419
	colm	53
	synt	any
	field	s
	int	2
	line	1419
	colm	55
	synt	any
	subsc
	line	1419
	colm	45
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	1419
	colm	4
	synt	endif
	unmark
lab L3
	mark	L5
	line	1420
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1420
	colm	11
	synt	any
	invoke	1
	str	4
	line	1420
	colm	15
	synt	any
	lexeq
	unmark
	mark	L6
	var	2
	pnull
	pnull
	var	0
	line	1420
	colm	54
	synt	any
	field	children
	int	2
	line	1420
	colm	63
	synt	any
	subsc
	line	1420
	colm	52
	synt	any
	invoke	1
	line	1420
	colm	34
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	1420
	colm	4
	synt	endif
	unmark
lab L5
	pnull
	line	1421
	colm	1
	synt	any
	pfail
	end
proc lastofcset
	local	0,001000,c
	local	1,000000,type
	local	2,000000,lastofcset
	con	0,010000,5,164,157,153,145,156
	con	1,002000,3,257
	con	2,002000,1,1
	con	3,002000,3,258
	con	4,010000,8,164,162,145,145,156,157,144,145
	declend
	line	1423
	colm	11
	synt	any
	mark	L1
	line	1424
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1424
	colm	11
	synt	any
	invoke	1
	str	0
	line	1424
	colm	15
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	1424
	colm	29
	synt	any
	field	tok
	int	1
	line	1424
	colm	34
	synt	any
	numeq
	unmark
	mark	L2
	pnull
	pnull
	var	0
	line	1424
	colm	53
	synt	any
	field	s
	pnull
	int	2
	line	1424
	colm	56
	synt	any
	neg
	line	1424
	colm	55
	synt	any
	subsc
	line	1424
	colm	45
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	1424
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	1425
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1425
	colm	11
	synt	any
	invoke	1
	str	0
	line	1425
	colm	15
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	0
	line	1425
	colm	29
	synt	any
	field	tok
	int	3
	line	1425
	colm	34
	synt	any
	numeq
	unmark
	mark	L4
	pnull
	pnull
	var	0
	line	1425
	colm	53
	synt	any
	field	s
	pnull
	int	2
	line	1425
	colm	56
	synt	any
	neg
	line	1425
	colm	55
	synt	any
	subsc
	line	1425
	colm	45
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	1425
	colm	4
	synt	endif
	unmark
lab L3
	mark	L5
	line	1426
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	1426
	colm	11
	synt	any
	invoke	1
	str	4
	line	1426
	colm	15
	synt	any
	lexeq
	unmark
	mark	L6
	var	2
	pnull
	pnull
	var	0
	line	1426
	colm	53
	synt	any
	field	children
	pnull
	int	2
	line	1426
	colm	63
	synt	any
	neg
	line	1426
	colm	62
	synt	any
	subsc
	line	1426
	colm	51
	synt	any
	invoke	1
	line	1426
	colm	34
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	1426
	colm	4
	synt	endif
	unmark
lab L5
	pnull
	line	1427
	colm	1
	synt	any
	pfail
	end
proc splicein
	local	0,001000,t1
	local	1,001000,t2
	local	2,000000,node
	con	0,010000,8,160,162,157,143,142,157,144,171
	con	1,010000,1,073
	declend
	line	1430
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	str	0
	var	0
	str	1
	var	1
	line	1431
	colm	15
	synt	any
	invoke	4
	line	1431
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	1432
	colm	1
	synt	any
	pfail
	end
proc class_from_parts
	local	0,001000,head
	local	1,001000,clocals
	local	2,001000,methods
	local	3,001000,initiallysection
	local	4,000020,rv
	local	5,000000,yyerror
	local	6,000000,classinitializers
	local	7,000000,node
	local	8,000000,methodstaque
	local	9,000000,ini
	local	10,000000,type
	local	11,000000,splicein
	local	12,000000,write
	con	0,010000,7,154,157,143,141,154,163,063
	con	1,010000,42,163,164,141,164,151,143,040,143,154,141,163,163,040,166,141,162,151,141,142,154,145,163,040,156,157,164,040,171,145,164,040,151,155,160,154,145,155,145,156,164,145,144
	con	2,010000,10,143,154,141,163,163,154,157,143,141,154
	con	3,010000,7,155,145,164,150,157,144,163
	con	4,010000,9,151,156,151,164,151,141,154,154,171
	con	5,010000,6,115,145,164,150,157,144
	con	6,010000,13,115,145,164,150,157,144,137,137,163,164,141,164,145
	con	7,010000,34,165,156,145,170,160,145,143,164,145,144,040,151,156,151,164,151,141,154,154,171,040,163,151,164,165,141,164,151,157,156,040,157,156,040
	con	8,010000,56,167,150,141,164,054,040,156,157,040,151,156,151,164,151,141,154,154,171,077,040,142,165,164,040,111,040,150,141,166,145,040,164,157,040,163,164,151,143,153,040,164,150,145,163,145,040,163,157,155,145,167,150,145,162,145,077
	declend
	line	1434
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	var	0
	line	1436
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	1438
	colm	4
	synt	if
	mark0
	pnull
	var	1
	line	1438
	colm	20
	synt	any
	keywd	null
	line	1438
	colm	15
	synt	any
	neqv
	unmark
	mark	L3
	line	1439
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	1439
	colm	17
	synt	any
	field	label
	str	0
	line	1439
	colm	24
	synt	any
	lexeq
	unmark
	var	5
	str	1
	line	1440
	colm	17
	synt	any
	invoke	1
	line	1439
	colm	7
	synt	endif
	unmark
lab L3
	pnull
	var	6
	pnull
	pnull
	var	4
	line	1442
	colm	30
	synt	any
	field	fields
	line	1442
	colm	37
	synt	any
	field	traverse
	var	1
	str	2
	line	1442
	colm	46
	synt	any
	invoke	2
	line	1442
	colm	25
	synt	any
	asgn
	line	1438
	colm	4
	synt	endif
	unmark
lab L2
	mark	L4
	line	1444
	colm	4
	synt	if
	mark0
	pnull
	var	3
	line	1444
	colm	29
	synt	any
	keywd	null
	line	1444
	colm	24
	synt	any
	neqv
	unmark
	pnull
	var	2
	var	7
	str	3
	var	2
	var	3
	line	1445
	colm	22
	synt	any
	invoke	3
	line	1445
	colm	15
	synt	any
	asgn
	line	1444
	colm	4
	synt	endif
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	4
	line	1446
	colm	6
	synt	any
	field	methods
	var	8
	var	2
	var	4
	line	1446
	colm	30
	synt	any
	invoke	2
	line	1446
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	1447
	colm	4
	synt	ifelse
	mark	L7
	pnull
	pnull
	var	9
	pnull
	pnull
	var	4
	line	1447
	colm	19
	synt	any
	field	methods
	line	1447
	colm	27
	synt	any
	field	lookup
	str	4
	line	1447
	colm	34
	synt	any
	invoke	1
	line	1447
	colm	14
	synt	any
	asgn
	line	1447
	colm	7
	synt	any
	nonnull
	unmark
	mark	L9
	line	1448
	colm	7
	synt	if
	mark0
	mark	L10
	pnull
	var	10
	var	9
	line	1448
	colm	19
	synt	any
	invoke	1
	mark	L11
	str	5
	line	1448
	colm	37
	synt	any
	esusp
	goto	L12
lab L11
	str	6
lab L12
	line	1448
	colm	25
	synt	any
	lexeq
	unmark
	efail
lab L10
	pnull
	unmark
	var	5
	pnull
	str	7
	var	10
	var	9
	line	1449
	colm	62
	synt	any
	invoke	1
	line	1449
	colm	55
	synt	any
	cat
	line	1449
	colm	17
	synt	any
	invoke	1
	line	1448
	colm	7
	synt	endif
	unmark
lab L9
	line	1451
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	1451
	colm	23
	synt	any
	keywd	null
	line	1451
	colm	18
	synt	any
	neqv
	unmark
	pnull
	pnull
	var	9
	line	1452
	colm	14
	synt	any
	field	procbody
	var	11
	pnull
	var	6
	line	1452
	colm	36
	synt	any
	nonnull
	pnull
	var	9
	line	1452
	colm	59
	synt	any
	field	procbody
	line	1452
	colm	35
	synt	any
	invoke	2
	line	1452
	colm	24
	synt	any
	asgn
	line	1451
	colm	7
	synt	endif
	goto	L8
lab L7
	line	1456
	colm	7
	synt	if
	mark0
	pnull
	var	1
	line	1456
	colm	23
	synt	any
	keywd	null
	line	1456
	colm	18
	synt	any
	neqv
	unmark
	var	12
	str	8
	line	1457
	colm	15
	synt	any
	invoke	1
	line	1456
	colm	7
	synt	endif
lab L8
	line	1447
	colm	4
	synt	endifelse
	unmark
lab L6
	mark	L13
	mark	L14
	var	4
	line	1460
	colm	4
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1461
	colm	1
	synt	any
	pfail
	end
proc leftmost_token
	local	0,001000,node
	local	1,000000,leftmost
	local	2,000000,type
	con	0,010000,8,164,162,145,145,156,157,144,145
	con	1,010000,7,153,145,171,167,157,162,144
	con	2,002000,1,1
	con	3,010000,5,164,157,153,145,156
	declend
	line	1468
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	var	0
	line	1469
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	1470
	colm	4
	synt	while
	mark0
	pnull
	var	2
	var	1
	line	1470
	colm	14
	synt	any
	invoke	1
	mark	L6
	str	0
	line	1470
	colm	39
	synt	any
	esusp
	goto	L7
lab L6
	str	1
lab L7
	line	1470
	colm	25
	synt	any
	lexeq
	unmark
	mark	L3
	pnull
	var	1
	pnull
	pnull
	var	1
	line	1471
	colm	27
	synt	any
	field	children
	int	2
	line	1471
	colm	36
	synt	any
	subsc
	line	1471
	colm	16
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	1470
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L8
	line	1472
	colm	4
	synt	if
	mark0
	pnull
	var	2
	var	1
	line	1472
	colm	11
	synt	any
	invoke	1
	str	3
	line	1472
	colm	22
	synt	any
	lexeq
	unmark
	mark	L9
	var	1
	line	1472
	colm	38
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	1472
	colm	4
	synt	endif
	unmark
lab L8
	pnull
	line	1473
	colm	1
	synt	any
	pfail
	end
