version	U12.1.00
uid	itokens.u1-1786032986-0
record	TOK,2
	0,sym
	1,str
record	dfstn_state,3
	0,b
	1,e
	2,tbl
record	start_state,4
	0,b
	1,e
	2,tbl
	3,master_list
impl	error
link	scan.u
global	19
	0,000001,next_c,0
	1,000001,line_number,0
	2,000011,TOK,2
	3,000005,itokens,2
	4,000005,expand_fake_beginner,1
	5,000005,iparse_tokens,2
	6,000005,do_dot,1
	7,000005,do_newline,3
	8,000005,do_number_sign,1
	9,000005,do_quotation_mark,1
	10,000005,do_apostrophe,1
	11,000005,do_digits,1
	12,000005,do_whitespace,2
	13,000005,do_identifier,2
	14,000005,do_operator,2
	15,000011,dfstn_state,3
	16,000011,start_state,4
	17,000005,recognop,3
	18,000005,create_arcs,4

proc itokens
	local	0,001000,stream
	local	1,001000,nostrip
	local	2,000020,T
	local	3,000020,last_token
	local	4,000000,TOK
	local	5,000000,iparse_tokens
	local	6,000000,expand_fake_beginner
	con	0,010000,4,105,117,106,130
	con	1,010000,7,123,105,115,111,103,117,114
	declend
	filen	itokens.icn
	line	105
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	4
	line	110
	colm	22
	synt	any
	invoke	0
	line	110
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	112
	colm	5
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	5
	var	0
	line	112
	colm	30
	synt	any
	invoke	1
	line	112
	colm	16
	synt	any
	nonnull
	line	112
	colm	13
	synt	any
	asgn
	pop
	mark0
	line	113
	colm	9
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	2
	line	113
	colm	14
	synt	any
	field	sym
	line	113
	colm	12
	synt	any
	nonnull
	unmark
	line	114
	colm	13
	synt	ifelse
	mark	L7
	pnull
	pnull
	var	2
	line	114
	colm	17
	synt	any
	field	sym
	str	0
	line	114
	colm	22
	synt	any
	lexeq
	unmark
	line	114
	colm	37
	synt	any
	pfail
	goto	L8
lab L7
	line	122
	colm	17
	synt	ifelse
	mark	L9
	pnull
	pnull
	pnull
	var	3
	line	122
	colm	31
	synt	any
	field	sym
	line	122
	colm	20
	synt	any
	nonnull
	str	1
	line	122
	colm	36
	synt	any
	lexeq
	unmark
	line	123
	colm	22
	synt	suspend
	mark0
	pnull
	var	3
	var	6
	var	2
	line	123
	colm	64
	synt	any
	invoke	1
	line	123
	colm	41
	synt	any
	asgn
	line	123
	colm	22
	synt	any
	psusp
	pop
lab L11
	efail
lab L12
	line	123
	colm	22
	synt	endsuspend
	goto	L10
lab L9
	line	124
	colm	22
	synt	suspend
	mark0
	pnull
	var	3
	var	2
	line	124
	colm	41
	synt	any
	asgn
	line	124
	colm	22
	synt	any
	psusp
	pop
lab L13
	efail
lab L14
	line	124
	colm	22
	synt	endsuspend
lab L10
	line	122
	colm	17
	synt	endifelse
lab L8
	line	114
	colm	13
	synt	endifelse
	goto	L6
lab L5
	line	127
	colm	13
	synt	if
	mark0
	pnull
	var	1
	line	127
	colm	16
	synt	any
	nonnull
	unmark
	line	128
	colm	18
	synt	suspend
	mark0
	pnull
	var	3
	var	2
	line	128
	colm	37
	synt	any
	asgn
	line	128
	colm	18
	synt	any
	psusp
	pop
lab L15
	efail
lab L16
	line	128
	colm	18
	synt	endsuspend
	line	127
	colm	13
	synt	endif
lab L6
	line	113
	colm	9
	synt	endifelse
	unmark
lab L3
	efail
lab L4
	line	112
	colm	5
	synt	endevery
	unmark
lab L2
	pnull
	line	132
	colm	1
	synt	any
	pfail
	end
proc expand_fake_beginner
	local	0,001000,next_token
	local	1,000040,exptbl
	local	2,000000,table
	local	3,000000,insert
	local	4,000000,TOK
	con	0,010000,6,103,117,116,103,101,124
	con	1,010000,3,102,101,122
	con	2,010000,1,174
	con	3,010000,4,104,111,106,106
	con	4,010000,5,115,111,116,125,123
	con	5,010000,1,055
	con	6,010000,5,105,121,125,111,126
	con	7,010000,5,116,125,115,105,121
	con	8,010000,1,075
	con	9,010000,5,111,116,124,105,122
	con	10,010000,4,123,124,101,122
	con	11,010000,1,052
	con	12,010000,7,114,103,117,116,103,101,124
	con	13,010000,5,114,105,130,105,121
	con	14,010000,5,114,105,130,116,105
	con	15,010000,5,124,111,114,104,105
	con	16,010000,1,176
	con	17,010000,8,116,117,124,105,121,125,111,126
	con	18,010000,5,116,125,115,116,105
	con	19,010000,6,120,115,101,124,103,110
	con	20,010000,5,121,115,101,122,113
	con	21,010000,1,077
	con	22,010000,5,125,116,111,117,116
	con	23,010000,4,120,114,125,123
	con	24,010000,1,053
	declend
	line	145
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	1
	var	2
	line	149
	colm	24
	synt	any
	invoke	0
	line	149
	colm	16
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	var	3
	var	1
	str	0
	pnull
	var	4
	str	1
	str	2
	line	150
	colm	39
	synt	any
	invoke	2
	var	4
	str	1
	str	2
	line	150
	colm	58
	synt	any
	invoke	2
	line	150
	colm	35
	synt	any
	llist	2
	line	150
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	3
	var	1
	str	3
	pnull
	var	4
	str	4
	str	5
	line	151
	colm	39
	synt	any
	invoke	2
	var	4
	str	4
	str	5
	line	151
	colm	58
	synt	any
	invoke	2
	line	151
	colm	35
	synt	any
	llist	2
	line	151
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	3
	var	1
	str	6
	pnull
	var	4
	str	7
	str	8
	line	152
	colm	39
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	152
	colm	58
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	153
	colm	39
	synt	any
	invoke	2
	line	152
	colm	35
	synt	any
	llist	3
	line	152
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	3
	var	1
	str	9
	pnull
	var	4
	str	10
	str	11
	line	154
	colm	39
	synt	any
	invoke	2
	var	4
	str	10
	str	11
	line	154
	colm	58
	synt	any
	invoke	2
	line	154
	colm	35
	synt	any
	llist	2
	line	154
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	3
	var	1
	str	12
	pnull
	var	4
	str	1
	str	2
	line	155
	colm	39
	synt	any
	invoke	2
	var	4
	str	1
	str	2
	line	155
	colm	58
	synt	any
	invoke	2
	var	4
	str	1
	str	2
	line	156
	colm	39
	synt	any
	invoke	2
	line	155
	colm	35
	synt	any
	llist	3
	line	155
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	3
	var	1
	str	13
	pnull
	var	4
	str	7
	str	8
	line	157
	colm	39
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	157
	colm	58
	synt	any
	invoke	2
	line	157
	colm	35
	synt	any
	llist	2
	line	157
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	3
	var	1
	str	14
	pnull
	var	4
	str	15
	str	16
	line	158
	colm	39
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	158
	colm	58
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	159
	colm	39
	synt	any
	invoke	2
	line	158
	colm	35
	synt	any
	llist	3
	line	158
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	3
	var	1
	str	17
	pnull
	var	4
	str	15
	str	16
	line	160
	colm	39
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	160
	colm	58
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	161
	colm	39
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	161
	colm	58
	synt	any
	invoke	2
	line	160
	colm	35
	synt	any
	llist	4
	line	160
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	3
	var	1
	str	18
	pnull
	var	4
	str	15
	str	16
	line	162
	colm	39
	synt	any
	invoke	2
	var	4
	str	7
	str	8
	line	162
	colm	58
	synt	any
	invoke	2
	line	162
	colm	35
	synt	any
	llist	2
	line	162
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	mark	L14
	var	3
	var	1
	str	19
	pnull
	var	4
	str	20
	str	21
	line	163
	colm	39
	synt	any
	invoke	2
	var	4
	str	20
	str	21
	line	163
	colm	58
	synt	any
	invoke	2
	line	163
	colm	35
	synt	any
	llist	2
	line	163
	colm	15
	synt	any
	invoke	3
	unmark
lab L14
	var	3
	var	1
	str	22
	pnull
	var	4
	str	23
	str	24
	line	164
	colm	39
	synt	any
	invoke	2
	var	4
	str	23
	str	24
	line	164
	colm	58
	synt	any
	invoke	2
	line	164
	colm	35
	synt	any
	llist	2
	line	164
	colm	15
	synt	any
	invoke	3
	unmark
lab L2
	einit	L1
lab L3
	mark	L15
	line	167
	colm	5
	synt	ifelse
	mark	L16
	pnull
	pnull
	var	1
	pnull
	var	0
	line	167
	colm	26
	synt	any
	field	sym
	line	167
	colm	15
	synt	any
	subsc
	line	167
	colm	8
	synt	any
	nonnull
	unmark
	line	168
	colm	10
	synt	suspend
	mark0
	pnull
	pnull
	var	1
	pnull
	var	0
	line	168
	colm	36
	synt	any
	field	sym
	line	168
	colm	25
	synt	any
	subsc
	line	168
	colm	18
	synt	any
	bang
	line	168
	colm	10
	synt	any
	psusp
	pop
lab L18
	efail
lab L19
	line	168
	colm	10
	synt	endsuspend
	goto	L17
lab L16
	mark	L20
	var	0
	line	169
	colm	10
	synt	any
	pret
lab L20
	synt	any
	pfail
lab L17
	line	167
	colm	5
	synt	endifelse
	unmark
lab L15
	pnull
	line	171
	colm	1
	synt	any
	pfail
	end
proc iparse_tokens
	local	0,001000,stream
	local	1,001000,getchar
	local	2,000020,elem
	local	3,000020,whitespace
	local	4,000020,token
	local	5,000020,last_token
	local	6,000020,primitives
	local	7,000020,reserveds
	local	8,000040,be_tbl
	local	9,000040,reserved_tbl
	local	10,000040,operators
	local	11,000000,table
	local	12,000000,insert
	local	13,000000,line_number
	local	14,000000,next_c
	local	15,000000,TOK
	local	16,000000,do_newline
	local	17,000000,do_number_sign
	local	18,000000,do_quotation_mark
	local	19,000000,do_apostrophe
	local	20,000000,stop
	local	21,000000,any
	local	22,000000,do_whitespace
	local	23,000000,do_digits
	local	24,000000,do_identifier
	local	25,000000,do_operator
	con	0,010000,10,151,144,145,156,164,151,146,151,145,162
	con	1,010000,5,111,104,105,116,124
	con	2,010000,2,142,145
	con	3,010000,15,151,156,164,145,147,145,162,055,154,151,164,145,162,141,154
	con	4,010000,6,111,116,124,114,111,124
	con	5,010000,12,162,145,141,154,055,154,151,164,145,162,141,154
	con	6,010000,7,122,105,101,114,114,111,124
	con	7,010000,14,163,164,162,151,156,147,055,154,151,164,145,162,141,154
	con	8,010000,9,123,124,122,111,116,107,114,111,124
	con	9,010000,12,143,163,145,164,055,154,151,164,145,162,141,154
	con	10,010000,7,103,123,105,124,114,111,124
	con	11,010000,11,145,156,144,055,157,146,055,146,151,154,145
	con	12,010000,4,105,117,106,130
	con	13,010000,0
	con	14,010000,8,141,142,163,164,162,141,143,164
	con	15,010000,8,101,102,123,124,122,101,103,124
	con	16,010000,5,142,162,145,141,153
	con	17,010000,5,102,122,105,101,113
	con	18,010000,2,142,171
	con	19,010000,2,102,131
	con	20,010000,4,143,141,163,145
	con	21,010000,4,103,101,123,105
	con	22,010000,1,142
	con	23,010000,5,143,154,141,163,163
	con	24,010000,5,103,114,101,123,123
	con	25,010000,6,143,162,145,141,164,145
	con	26,010000,6,103,122,105,101,124,105
	con	27,010000,8,143,162,151,164,151,143,141,154
	con	28,010000,8,103,122,111,124,111,103,101,114
	con	29,010000,7,144,145,146,141,165,154,164
	con	30,010000,7,104,105,106,101,125,114,124
	con	31,010000,2,144,157
	con	32,010000,2,104,117
	con	33,010000,4,145,154,163,145
	con	34,010000,4,105,114,123,105
	con	35,010000,3,145,156,144
	con	36,010000,3,105,116,104
	con	37,010000,5,145,166,145,162,171
	con	38,010000,5,105,126,105,122,131
	con	39,010000,4,146,141,151,154
	con	40,010000,4,106,101,111,114
	con	41,010000,6,147,154,157,142,141,154
	con	42,010000,6,107,114,117,102,101,114
	con	43,010000,2,151,146
	con	44,010000,2,111,106
	con	45,010000,6,151,155,160,157,162,164
	con	46,010000,6,111,115,120,117,122,124
	con	47,010000,7,151,156,151,164,151,141,154
	con	48,010000,7,111,116,111,124,111,101,114
	con	49,010000,9,151,156,151,164,151,141,154,154,171
	con	50,010000,9,111,116,111,124,111,101,114,114,131
	con	51,010000,9,151,156,166,157,143,141,142,154,145
	con	52,010000,9,111,116,126,117,103,101,102,114,105
	con	53,010000,4,154,151,156,153
	con	54,010000,4,114,111,116,113
	con	55,010000,5,154,157,143,141,154
	con	56,010000,5,114,117,103,101,114
	con	57,010000,6,155,145,164,150,157,144
	con	58,010000,6,115,105,124,110,117,104
	con	59,010000,4,156,145,170,164
	con	60,010000,4,116,105,130,124
	con	61,010000,3,156,157,164
	con	62,010000,3,116,117,124
	con	63,010000,2,157,146
	con	64,010000,2,117,106
	con	65,010000,7,160,141,143,153,141,147,145
	con	66,010000,7,120,101,103,113,101,107,105
	con	67,010000,9,160,162,157,143,145,144,165,162,145
	con	68,010000,9,120,122,117,103,105,104,125,122,105
	con	69,010000,6,162,145,143,157,162,144
	con	70,010000,6,122,105,103,117,122,104
	con	71,010000,6,162,145,160,145,141,164
	con	72,010000,6,122,105,120,105,101,124
	con	73,010000,6,162,145,164,165,162,156
	con	74,010000,6,122,105,124,125,122,116
	con	75,010000,6,163,164,141,164,151,143
	con	76,010000,6,123,124,101,124,111,103
	con	77,010000,7,163,165,163,160,145,156,144
	con	78,010000,7,123,125,123,120,105,116,104
	con	79,010000,4,164,150,145,156
	con	80,010000,4,124,110,105,116
	con	81,010000,6,164,150,162,145,141,144
	con	82,010000,6,124,110,122,105,101,104
	con	83,010000,2,164,157
	con	84,010000,2,124,117
	con	85,010000,5,165,156,164,151,154
	con	86,010000,5,125,116,124,111,114
	con	87,010000,5,167,150,151,154,145
	con	88,010000,5,127,110,111,114,105
	con	89,010000,2,072,075
	con	90,010000,6,101,123,123,111,107,116
	con	91,010000,1,100
	con	92,010000,2,101,124
	con	93,010000,3,100,072,075
	con	94,010000,6,101,125,107,101,103,124
	con	95,010000,3,046,072,075
	con	96,010000,6,101,125,107,101,116,104
	con	97,010000,3,075,072,075
	con	98,010000,5,101,125,107,105,121
	con	99,010000,5,075,075,075,072,075
	con	100,010000,6,101,125,107,105,121,126
	con	101,010000,4,076,075,072,075
	con	102,010000,5,101,125,107,107,105
	con	103,010000,3,076,072,075
	con	104,010000,5,101,125,107,107,124
	con	105,010000,4,074,075,072,075
	con	106,010000,5,101,125,107,114,105
	con	107,010000,3,074,072,075
	con	108,010000,5,101,125,107,114,124
	con	109,010000,4,176,075,072,075
	con	110,010000,5,101,125,107,116,105
	con	111,010000,6,176,075,075,075,072,075
	con	112,010000,7,101,125,107,116,105,121,126
	con	113,010000,4,075,075,072,075
	con	114,010000,6,101,125,107,123,105,121
	con	115,010000,5,076,076,075,072,075
	con	116,010000,6,101,125,107,123,107,105
	con	117,010000,4,076,076,072,075
	con	118,010000,6,101,125,107,123,107,124
	con	119,010000,5,074,074,075,072,075
	con	120,010000,6,101,125,107,123,114,105
	con	121,010000,4,074,074,072,075
	con	122,010000,6,101,125,107,123,114,124
	con	123,010000,5,176,075,075,072,075
	con	124,010000,6,101,125,107,123,116,105
	con	125,010000,1,134
	con	126,010000,9,102,101,103,113,123,114,101,123,110
	con	127,010000,1,041
	con	128,010000,4,102,101,116,107
	con	129,010000,1,174
	con	130,010000,3,102,101,122
	con	131,010000,3,074,074,100
	con	132,010000,7,102,114,113,122,105,103,115
	con	133,010000,3,100,076,076
	con	134,010000,8,102,114,113,123,105,116,104,115
	con	135,010000,1,136
	con	136,010000,5,103,101,122,105,124
	con	137,010000,3,136,072,075
	con	138,010000,9,103,101,122,105,124,101,123,107,116
	con	139,010000,1,072
	con	140,010000,5,103,117,114,117,116
	con	141,010000,2,072,072
	con	142,010000,10,103,117,114,117,116,103,117,114,117,116
	con	143,010000,1,054
	con	144,010000,5,103,117,115,115,101
	con	145,010000,2,055,076
	con	146,010000,8,103,117,116,104,101,123,107,116
	con	147,010000,2,174,174
	con	148,010000,6,103,117,116,103,101,124
	con	149,010000,4,174,174,072,075
	con	150,010000,10,103,117,116,103,101,124,101,123,107,116
	con	151,010000,1,046
	con	152,010000,7,103,117,116,112,125,116,103
	con	153,010000,2,056,076
	con	154,010000,7,103,125,122,101,123,107,116
	con	155,010000,1,056
	con	156,010000,3,104,117,124
	con	157,010000,2,055,055
	con	158,010000,4,104,111,106,106
	con	159,010000,4,055,055,072,075
	con	160,010000,8,104,111,106,106,101,123,107,116
	con	161,010000,3,075,075,075
	con	162,010000,5,105,121,125,111,126
	con	163,010000,2,075,076
	con	164,010000,7,111,115,115,101,123,107,116
	con	165,010000,2,052,052
	con	166,010000,5,111,116,124,105,122
	con	167,010000,4,052,052,072,075
	con	168,010000,9,111,116,124,105,122,101,123,107,116
	con	169,010000,1,173
	con	170,010000,6,114,102,122,101,103,105
	con	171,010000,1,133
	con	172,010000,6,114,102,122,101,103,113
	con	173,010000,3,174,174,174
	con	174,010000,7,114,103,117,116,103,101,124
	con	175,010000,5,174,174,174,072,075
	con	176,010000,11,114,103,117,116,103,101,124,101,123,107,116
	con	177,010000,2,075,075
	con	178,010000,5,114,105,130,105,121
	con	179,010000,3,076,076,075
	con	180,010000,5,114,105,130,107,105
	con	181,010000,2,076,076
	con	182,010000,5,114,105,130,107,124
	con	183,010000,3,074,074,075
	con	184,010000,5,114,105,130,114,105
	con	185,010000,2,074,074
	con	186,010000,5,114,105,130,114,124
	con	187,010000,3,176,075,075
	con	188,010000,5,114,105,130,116,105
	con	189,010000,2,133,072
	con	190,010000,9,114,114,111,123,124,103,117,115,120
	con	191,010000,1,050
	con	192,010000,6,114,120,101,122,105,116
	con	193,010000,2,055,072
	con	194,010000,6,115,103,117,114,117,116
	con	195,010000,1,055
	con	196,010000,5,115,111,116,125,123
	con	197,010000,3,055,072,075
	con	198,010000,9,115,111,116,125,123,101,123,107,116
	con	199,010000,1,045
	con	200,010000,3,115,117,104
	con	201,010000,3,045,072,075
	con	202,010000,7,115,117,104,101,123,107,116
	con	203,010000,4,176,075,075,075
	con	204,010000,8,116,117,124,105,121,125,111,126
	con	205,010000,1,075
	con	206,010000,5,116,125,115,105,121
	con	207,010000,2,076,075
	con	208,010000,5,116,125,115,107,105
	con	209,010000,1,076
	con	210,010000,5,116,125,115,107,124
	con	211,010000,2,074,075
	con	212,010000,5,116,125,115,114,105
	con	213,010000,1,074
	con	214,010000,5,116,125,115,114,124
	con	215,010000,2,176,075
	con	216,010000,5,116,125,115,116,105
	con	217,010000,2,056,174
	con	218,010000,7,120,101,124,124,101,114,124
	con	219,010000,2,053,072
	con	220,010000,6,120,103,117,114,117,116
	con	221,010000,1,053
	con	222,010000,4,120,114,125,123
	con	223,010000,3,053,072,075
	con	224,010000,8,120,114,125,123,101,123,107,116
	con	225,010000,2,077,077
	con	226,010000,6,120,115,101,124,103,110
	con	227,010000,1,077
	con	228,010000,5,121,115,101,122,113
	con	229,010000,2,074,055
	con	230,010000,9,122,105,126,101,123,123,111,107,116
	con	231,010000,3,074,055,076
	con	232,010000,7,122,105,126,123,127,101,120
	con	233,010000,1,175
	con	234,010000,6,122,102,122,101,103,105
	con	235,010000,1,145
	con	236,010000,1,135
	con	237,010000,6,122,102,122,101,103,113
	con	238,010000,2,074,100
	con	239,010000,4,122,105,103,115
	con	240,010000,2,072,135
	con	241,010000,9,122,114,111,123,124,103,117,115,120
	con	242,010000,1,051
	con	243,010000,6,122,120,101,122,105,116
	con	244,010000,3,077,072,075
	con	245,010000,8,123,103,101,116,101,123,107,116
	con	246,010000,1,073
	con	247,010000,7,123,105,115,111,103,117,114
	con	248,010000,2,100,076
	con	249,010000,5,123,105,116,104,115
	con	250,010000,1,057
	con	251,010000,5,123,114,101,123,110
	con	252,010000,3,057,072,075
	con	253,010000,9,123,114,101,123,110,101,123,107,116
	con	254,010000,1,052
	con	255,010000,4,123,124,101,122
	con	256,010000,3,052,072,075
	con	257,010000,8,123,124,101,122,101,123,107,116
	con	258,010000,3,072,075,072
	con	259,010000,4,123,127,101,120
	con	260,010000,1,176
	con	261,010000,5,124,111,114,104,105
	con	262,010000,2,053,053
	con	263,010000,5,125,116,111,117,116
	con	264,010000,4,053,053,072,075
	con	265,010000,9,125,116,111,117,116,101,123,107,116
	con	266,010000,2,044,050
	con	267,010000,2,044,051
	con	268,010000,2,044,074
	con	269,010000,2,044,076
	con	270,010000,1,044
	con	271,010000,6,122,110,123,101,122,107
	con	272,010000,3,045,044,050
	con	273,010000,7,102,105,107,107,114,117,102
	con	274,010000,3,045,044,051
	con	275,010000,7,105,116,104,107,114,117,102
	con	276,010000,2,045,173
	con	277,010000,2,045,175
	con	278,010000,2,045,045
	con	279,010000,7,116,105,127,123,105,103,124
	con	280,002000,1,1
	con	281,002000,1,2
	con	282,002000,1,3
	con	283,002000,1,0
	con	284,010000,1,012
	con	285,020000,2,040,011
	con	286,010000,1,043
	con	287,010000,1,042
	con	288,010000,1,047
	con	289,010000,38,151,160,141,162,163,145,137,164,157,153,145,156,163,040,050,154,145,170,145,162,051,072,040,040,165,156,145,170,160,145,143,164,145,144,040,105,117,106
	con	290,020000,1,137
	declend
	line	198
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	6
	pnull
	pnull
	str	0
	str	1
	str	2
	line	207
	colm	24
	synt	any
	llist	3
	pnull
	str	3
	str	4
	str	2
	line	208
	colm	24
	synt	any
	llist	3
	pnull
	str	5
	str	6
	str	2
	line	209
	colm	24
	synt	any
	llist	3
	pnull
	str	7
	str	8
	str	2
	line	210
	colm	24
	synt	any
	llist	3
	pnull
	str	9
	str	10
	str	2
	line	211
	colm	24
	synt	any
	llist	3
	pnull
	str	11
	str	12
	str	13
	line	212
	colm	24
	synt	any
	llist	3
	line	206
	colm	23
	synt	any
	llist	6
	line	206
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	7
	pnull
	pnull
	str	14
	str	15
	str	13
	line	217
	colm	24
	synt	any
	llist	3
	pnull
	str	16
	str	17
	str	2
	line	218
	colm	24
	synt	any
	llist	3
	pnull
	str	18
	str	19
	str	13
	line	219
	colm	24
	synt	any
	llist	3
	pnull
	str	20
	str	21
	str	22
	line	220
	colm	24
	synt	any
	llist	3
	pnull
	str	23
	str	24
	str	13
	line	221
	colm	24
	synt	any
	llist	3
	pnull
	str	25
	str	26
	str	22
	line	222
	colm	24
	synt	any
	llist	3
	pnull
	str	27
	str	28
	str	22
	line	223
	colm	24
	synt	any
	llist	3
	pnull
	str	29
	str	30
	str	22
	line	224
	colm	24
	synt	any
	llist	3
	pnull
	str	31
	str	32
	str	13
	line	225
	colm	24
	synt	any
	llist	3
	pnull
	str	33
	str	34
	str	13
	line	226
	colm	24
	synt	any
	llist	3
	pnull
	str	35
	str	36
	str	22
	line	227
	colm	24
	synt	any
	llist	3
	pnull
	str	37
	str	38
	str	22
	line	228
	colm	24
	synt	any
	llist	3
	pnull
	str	39
	str	40
	str	2
	line	229
	colm	24
	synt	any
	llist	3
	pnull
	str	41
	str	42
	str	13
	line	230
	colm	24
	synt	any
	llist	3
	pnull
	str	43
	str	44
	str	22
	line	231
	colm	24
	synt	any
	llist	3
	pnull
	str	45
	str	46
	str	22
	line	232
	colm	24
	synt	any
	llist	3
	pnull
	str	47
	str	48
	str	22
	line	233
	colm	24
	synt	any
	llist	3
	pnull
	str	49
	str	50
	str	2
	line	234
	colm	24
	synt	any
	llist	3
	pnull
	str	51
	str	52
	str	13
	line	235
	colm	24
	synt	any
	llist	3
	pnull
	str	53
	str	54
	str	13
	line	236
	colm	24
	synt	any
	llist	3
	pnull
	str	55
	str	56
	str	22
	line	237
	colm	24
	synt	any
	llist	3
	pnull
	str	57
	str	58
	str	13
	line	238
	colm	24
	synt	any
	llist	3
	pnull
	str	59
	str	60
	str	2
	line	239
	colm	24
	synt	any
	llist	3
	pnull
	str	61
	str	62
	str	22
	line	240
	colm	24
	synt	any
	llist	3
	pnull
	str	63
	str	64
	str	13
	line	241
	colm	24
	synt	any
	llist	3
	pnull
	str	65
	str	66
	str	13
	line	242
	colm	24
	synt	any
	llist	3
	pnull
	str	67
	str	68
	str	13
	line	243
	colm	24
	synt	any
	llist	3
	pnull
	str	69
	str	70
	str	13
	line	244
	colm	24
	synt	any
	llist	3
	pnull
	str	71
	str	72
	str	22
	line	245
	colm	24
	synt	any
	llist	3
	pnull
	str	73
	str	74
	str	2
	line	246
	colm	24
	synt	any
	llist	3
	pnull
	str	75
	str	76
	str	22
	line	247
	colm	24
	synt	any
	llist	3
	pnull
	str	77
	str	78
	str	2
	line	248
	colm	24
	synt	any
	llist	3
	pnull
	str	79
	str	80
	str	13
	line	249
	colm	24
	synt	any
	llist	3
	pnull
	str	81
	str	82
	str	22
	line	250
	colm	24
	synt	any
	llist	3
	pnull
	str	83
	str	84
	str	13
	line	251
	colm	24
	synt	any
	llist	3
	pnull
	str	85
	str	86
	str	22
	line	252
	colm	24
	synt	any
	llist	3
	pnull
	str	87
	str	88
	str	22
	line	253
	colm	24
	synt	any
	llist	3
	line	216
	colm	23
	synt	any
	llist	37
	line	216
	colm	20
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	10
	pnull
	pnull
	str	89
	str	90
	str	13
	line	258
	colm	24
	synt	any
	llist	3
	pnull
	str	91
	str	92
	str	22
	line	259
	colm	24
	synt	any
	llist	3
	pnull
	str	93
	str	94
	str	13
	line	260
	colm	24
	synt	any
	llist	3
	pnull
	str	95
	str	96
	str	13
	line	261
	colm	24
	synt	any
	llist	3
	pnull
	str	97
	str	98
	str	13
	line	262
	colm	24
	synt	any
	llist	3
	pnull
	str	99
	str	100
	str	13
	line	263
	colm	24
	synt	any
	llist	3
	pnull
	str	101
	str	102
	str	13
	line	264
	colm	24
	synt	any
	llist	3
	pnull
	str	103
	str	104
	str	13
	line	265
	colm	24
	synt	any
	llist	3
	pnull
	str	105
	str	106
	str	13
	line	266
	colm	24
	synt	any
	llist	3
	pnull
	str	107
	str	108
	str	13
	line	267
	colm	24
	synt	any
	llist	3
	pnull
	str	109
	str	110
	str	13
	line	268
	colm	24
	synt	any
	llist	3
	pnull
	str	111
	str	112
	str	13
	line	269
	colm	24
	synt	any
	llist	3
	pnull
	str	113
	str	114
	str	13
	line	270
	colm	24
	synt	any
	llist	3
	pnull
	str	115
	str	116
	str	13
	line	271
	colm	24
	synt	any
	llist	3
	pnull
	str	117
	str	118
	str	13
	line	272
	colm	24
	synt	any
	llist	3
	pnull
	str	119
	str	120
	str	13
	line	273
	colm	24
	synt	any
	llist	3
	pnull
	str	121
	str	122
	str	13
	line	274
	colm	24
	synt	any
	llist	3
	pnull
	str	123
	str	124
	str	13
	line	275
	colm	24
	synt	any
	llist	3
	pnull
	str	125
	str	126
	str	22
	line	276
	colm	24
	synt	any
	llist	3
	pnull
	str	127
	str	128
	str	22
	line	277
	colm	24
	synt	any
	llist	3
	pnull
	str	129
	str	130
	str	22
	line	278
	colm	24
	synt	any
	llist	3
	pnull
	str	131
	str	132
	str	2
	line	279
	colm	24
	synt	any
	llist	3
	pnull
	str	133
	str	134
	str	2
	line	280
	colm	24
	synt	any
	llist	3
	pnull
	str	135
	str	136
	str	22
	line	281
	colm	24
	synt	any
	llist	3
	pnull
	str	137
	str	138
	str	22
	line	282
	colm	24
	synt	any
	llist	3
	pnull
	str	139
	str	140
	str	13
	line	283
	colm	24
	synt	any
	llist	3
	pnull
	str	141
	str	142
	str	22
	line	284
	colm	24
	synt	any
	llist	3
	pnull
	str	143
	str	144
	str	13
	line	285
	colm	24
	synt	any
	llist	3
	pnull
	str	145
	str	146
	str	13
	line	286
	colm	24
	synt	any
	llist	3
	pnull
	str	147
	str	148
	str	22
	line	287
	colm	24
	synt	any
	llist	3
	pnull
	str	149
	str	150
	str	13
	line	288
	colm	24
	synt	any
	llist	3
	pnull
	str	151
	str	152
	str	22
	line	289
	colm	24
	synt	any
	llist	3
	pnull
	str	153
	str	154
	str	22
	line	290
	colm	24
	synt	any
	llist	3
	pnull
	str	155
	str	156
	str	22
	line	291
	colm	24
	synt	any
	llist	3
	pnull
	str	157
	str	158
	str	22
	line	292
	colm	24
	synt	any
	llist	3
	pnull
	str	159
	str	160
	str	13
	line	293
	colm	24
	synt	any
	llist	3
	pnull
	str	161
	str	162
	str	22
	line	294
	colm	24
	synt	any
	llist	3
	pnull
	str	163
	str	164
	str	13
	line	295
	colm	24
	synt	any
	llist	3
	pnull
	str	165
	str	166
	str	22
	line	296
	colm	24
	synt	any
	llist	3
	pnull
	str	167
	str	168
	str	13
	line	297
	colm	24
	synt	any
	llist	3
	pnull
	str	169
	str	170
	str	22
	line	298
	colm	24
	synt	any
	llist	3
	pnull
	str	171
	str	172
	str	22
	line	299
	colm	24
	synt	any
	llist	3
	pnull
	str	173
	str	174
	str	22
	line	300
	colm	24
	synt	any
	llist	3
	pnull
	str	175
	str	176
	str	13
	line	301
	colm	24
	synt	any
	llist	3
	pnull
	str	177
	str	178
	str	22
	line	302
	colm	24
	synt	any
	llist	3
	pnull
	str	179
	str	180
	str	13
	line	303
	colm	24
	synt	any
	llist	3
	pnull
	str	181
	str	182
	str	13
	line	304
	colm	24
	synt	any
	llist	3
	pnull
	str	183
	str	184
	str	13
	line	305
	colm	24
	synt	any
	llist	3
	pnull
	str	185
	str	186
	str	13
	line	306
	colm	24
	synt	any
	llist	3
	pnull
	str	187
	str	188
	str	22
	line	307
	colm	24
	synt	any
	llist	3
	pnull
	str	189
	str	190
	str	22
	line	308
	colm	24
	synt	any
	llist	3
	pnull
	str	191
	str	192
	str	22
	line	309
	colm	24
	synt	any
	llist	3
	pnull
	str	193
	str	194
	str	13
	line	310
	colm	24
	synt	any
	llist	3
	pnull
	str	195
	str	196
	str	22
	line	311
	colm	24
	synt	any
	llist	3
	pnull
	str	197
	str	198
	str	13
	line	312
	colm	24
	synt	any
	llist	3
	pnull
	str	199
	str	200
	str	13
	line	313
	colm	24
	synt	any
	llist	3
	pnull
	str	201
	str	202
	str	13
	line	314
	colm	24
	synt	any
	llist	3
	pnull
	str	203
	str	204
	str	22
	line	315
	colm	24
	synt	any
	llist	3
	pnull
	str	205
	str	206
	str	22
	line	316
	colm	24
	synt	any
	llist	3
	pnull
	str	207
	str	208
	str	13
	line	317
	colm	24
	synt	any
	llist	3
	pnull
	str	209
	str	210
	str	13
	line	318
	colm	24
	synt	any
	llist	3
	pnull
	str	211
	str	212
	str	13
	line	319
	colm	24
	synt	any
	llist	3
	pnull
	str	213
	str	214
	str	13
	line	320
	colm	24
	synt	any
	llist	3
	pnull
	str	215
	str	216
	str	22
	line	321
	colm	24
	synt	any
	llist	3
	pnull
	str	217
	str	218
	str	13
	line	322
	colm	24
	synt	any
	llist	3
	pnull
	str	219
	str	220
	str	13
	line	323
	colm	24
	synt	any
	llist	3
	pnull
	str	221
	str	222
	str	22
	line	324
	colm	24
	synt	any
	llist	3
	pnull
	str	223
	str	224
	str	13
	line	325
	colm	24
	synt	any
	llist	3
	pnull
	str	225
	str	226
	str	22
	line	326
	colm	24
	synt	any
	llist	3
	pnull
	str	227
	str	228
	str	22
	line	327
	colm	24
	synt	any
	llist	3
	pnull
	str	229
	str	230
	str	13
	line	328
	colm	24
	synt	any
	llist	3
	pnull
	str	231
	str	232
	str	13
	line	329
	colm	24
	synt	any
	llist	3
	pnull
	str	233
	str	234
	str	235
	line	330
	colm	24
	synt	any
	llist	3
	pnull
	str	236
	str	237
	str	235
	line	331
	colm	24
	synt	any
	llist	3
	pnull
	str	238
	str	239
	str	2
	line	332
	colm	24
	synt	any
	llist	3
	pnull
	str	240
	str	241
	str	235
	line	333
	colm	24
	synt	any
	llist	3
	pnull
	str	242
	str	243
	str	235
	line	334
	colm	24
	synt	any
	llist	3
	pnull
	str	244
	str	245
	str	13
	line	335
	colm	24
	synt	any
	llist	3
	pnull
	str	246
	str	247
	str	13
	line	336
	colm	24
	synt	any
	llist	3
	pnull
	str	248
	str	249
	str	2
	line	337
	colm	24
	synt	any
	llist	3
	pnull
	str	250
	str	251
	str	22
	line	338
	colm	24
	synt	any
	llist	3
	pnull
	str	252
	str	253
	str	13
	line	339
	colm	24
	synt	any
	llist	3
	pnull
	str	254
	str	255
	str	22
	line	340
	colm	24
	synt	any
	llist	3
	pnull
	str	256
	str	257
	str	13
	line	341
	colm	24
	synt	any
	llist	3
	pnull
	str	258
	str	259
	str	13
	line	342
	colm	24
	synt	any
	llist	3
	pnull
	str	260
	str	261
	str	22
	line	343
	colm	24
	synt	any
	llist	3
	pnull
	str	262
	str	263
	str	22
	line	344
	colm	24
	synt	any
	llist	3
	pnull
	str	264
	str	265
	str	13
	line	345
	colm	24
	synt	any
	llist	3
	pnull
	str	266
	str	170
	str	22
	line	346
	colm	24
	synt	any
	llist	3
	pnull
	str	267
	str	234
	str	235
	line	347
	colm	24
	synt	any
	llist	3
	pnull
	str	268
	str	172
	str	22
	line	348
	colm	24
	synt	any
	llist	3
	pnull
	str	269
	str	237
	str	235
	line	349
	colm	24
	synt	any
	llist	3
	pnull
	str	270
	str	271
	str	22
	line	350
	colm	24
	synt	any
	llist	3
	pnull
	str	272
	str	273
	str	22
	line	351
	colm	24
	synt	any
	llist	3
	pnull
	str	274
	str	275
	str	235
	line	352
	colm	24
	synt	any
	llist	3
	pnull
	str	276
	str	273
	str	22
	line	353
	colm	24
	synt	any
	llist	3
	pnull
	str	277
	str	275
	str	235
	line	354
	colm	24
	synt	any
	llist	3
	pnull
	str	278
	str	279
	str	2
	line	355
	colm	24
	synt	any
	llist	3
	line	257
	colm	23
	synt	any
	llist	98
	line	257
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	9
	var	11
	line	358
	colm	30
	synt	any
	invoke	0
	line	358
	colm	22
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	359
	colm	9
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	7
	line	359
	colm	23
	synt	any
	bang
	line	359
	colm	20
	synt	any
	asgn
	pop
	mark0
	var	12
	var	9
	pnull
	var	2
	int	280
	line	360
	colm	38
	synt	any
	subsc
	pnull
	var	2
	int	281
	line	360
	colm	47
	synt	any
	subsc
	line	360
	colm	19
	synt	any
	invoke	3
	unmark
lab L9
	efail
lab L10
	line	359
	colm	9
	synt	endevery
	unmark
lab L8
	mark	L11
	pnull
	var	8
	var	11
	line	361
	colm	24
	synt	any
	invoke	0
	line	361
	colm	16
	synt	any
	asgn
	unmark
lab L11
	line	362
	colm	9
	synt	every
	mark0
	pnull
	var	2
	mark	L14
	pnull
	var	6
	line	362
	colm	23
	synt	any
	bang
	line	362
	colm	35
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	pnull
	var	7
	line	362
	colm	37
	synt	any
	bang
	line	362
	colm	48
	synt	any
	esusp
	goto	L17
lab L16
	pnull
	var	10
	line	362
	colm	50
	synt	any
	bang
lab L17
lab L15
	line	362
	colm	20
	synt	any
	asgn
	pop
	mark0
	var	12
	var	8
	pnull
	var	2
	int	281
	line	363
	colm	32
	synt	any
	subsc
	pnull
	var	2
	int	282
	line	363
	colm	41
	synt	any
	subsc
	line	363
	colm	19
	synt	any
	invoke	3
	unmark
lab L12
	efail
lab L13
	line	362
	colm	9
	synt	endevery
	unmark
lab L2
	einit	L1
lab L3
	mark	L18
	pnull
	pnull
	var	1
	line	367
	colm	5
	synt	any
	null
	goto	L21
lab L19
	pop
	mark	L20
	mark	L22
	pnull
	var	13
	int	283
	line	368
	colm	21
	synt	any
	asgn
	unmark
lab L22
	pnull
	pnull
	int	280
	pnull
	var	0
	line	369
	colm	15
	synt	any
	bang
	pnull
	var	13
	dup
	int	280
	line	369
	colm	36
	synt	any
	plus
	asgn
	line	369
	colm	14
	synt	any
	invoke	2
	str	284
	line	369
	colm	42
	synt	any
	cat
	line	369
	colm	9
	synt	any
	bang
	line	367
	colm	19
	synt	any
	coret
	efail
lab L20
	cofail
	goto	L20
lab L21
	create	L19
	line	367
	colm	16
	synt	any
	asgn
	unmark
lab L18
	mark	L23
	pnull
	var	3
	cset	285
	line	371
	colm	16
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	14
	line	372
	colm	5
	synt	any
	null
	mark	L25
	pnull
	var	1
	line	372
	colm	19
	synt	any
	coact
	line	372
	colm	28
	synt	any
	esusp
	goto	L26
lab L25
	line	373
	colm	9
	synt	ifelse
	mark	L27
	pnull
	var	0
	line	373
	colm	12
	synt	any
	nonnull
	unmark
	mark	L29
	var	15
	str	12
	line	374
	colm	23
	synt	any
	invoke	1
	line	374
	colm	13
	synt	any
	pret
lab L29
	synt	any
	pfail
	goto	L28
lab L27
	line	375
	colm	14
	synt	any
	pfail
lab L28
	line	373
	colm	9
	synt	endifelse
lab L26
	line	372
	colm	16
	synt	any
	asgn
	unmark
lab L24
	mark	L30
lab L31
	line	378
	colm	5
	synt	repeat
	mark	L31
	line	379
	colm	9
	synt	case
	mark0
	var	14
	eret
	mark	L35
	ccase
	str	284
	line	382
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L36
	line	387
	colm	17
	synt	every
	mark0
	pnull
	var	5
	var	16
	var	1
	var	5
	var	8
	line	387
	colm	47
	synt	any
	invoke	3
	line	387
	colm	34
	synt	any
	asgn
	pop
	mark0
	line	388
	colm	20
	synt	suspend
	mark0
	var	5
	line	388
	colm	20
	synt	any
	psusp
	pop
lab L39
	efail
lab L40
	line	388
	colm	20
	synt	endsuspend
	unmark
lab L37
	efail
lab L38
	line	387
	colm	17
	synt	endevery
	unmark
lab L36
	mark	L41
	line	389
	colm	17
	synt	if
	mark0
	pnull
	var	14
	line	389
	colm	31
	synt	any
	keywd	null
	line	389
	colm	27
	synt	any
	eqv
	unmark
	unmark
	unmark
	pnull
	goto	L33
	line	389
	colm	17
	synt	endif
	unmark
lab L41
	goto	L32
	goto	L34
lab L35
	mark	L42
	ccase
	str	286
	line	393
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L43
	var	17
	var	1
	line	398
	colm	31
	synt	any
	invoke	1
	unmark
lab L43
	goto	L32
	goto	L34
lab L42
	mark	L44
	ccase
	str	287
	line	403
	colm	21
	synt	any
	eqv
	unmark
	pop
	mark	L45
	pnull
	var	5
	var	18
	var	1
	line	408
	colm	48
	synt	any
	invoke	1
	line	408
	colm	28
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	line	409
	colm	17
	synt	suspend
	mark0
	var	5
	line	409
	colm	17
	synt	any
	psusp
	pop
lab L47
	efail
lab L48
	line	409
	colm	17
	synt	endsuspend
	unmark
lab L46
	goto	L32
	goto	L34
lab L44
	mark	L49
	ccase
	str	288
	line	414
	colm	21
	synt	any
	eqv
	unmark
	pop
	mark	L50
	pnull
	var	5
	var	19
	var	1
	line	418
	colm	44
	synt	any
	invoke	1
	line	418
	colm	28
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	line	419
	colm	17
	synt	suspend
	mark0
	var	5
	line	419
	colm	17
	synt	any
	psusp
	pop
lab L52
	efail
lab L53
	line	419
	colm	17
	synt	endsuspend
	unmark
lab L51
	goto	L32
	goto	L34
lab L49
	mark	L54
	ccase
	line	424
	colm	13
	synt	any
	keywd	null
	line	424
	colm	21
	synt	any
	eqv
	unmark
	pop
	var	20
	str	289
	line	424
	colm	27
	synt	any
	invoke	1
	goto	L34
lab L54
	pop
	mark	L55
	line	433
	colm	17
	synt	if
	mark0
	var	21
	var	3
	var	14
	line	433
	colm	23
	synt	any
	invoke	2
	unmark
	mark	L56
	var	22
	var	1
	var	3
	line	436
	colm	34
	synt	any
	invoke	2
	unmark
lab L56
	unmark
	goto	L32
	line	433
	colm	17
	synt	endif
	unmark
lab L55
	mark	L57
	line	440
	colm	17
	synt	if
	mark0
	var	21
	line	440
	colm	24
	synt	any
	keywd	digits
	var	14
	line	440
	colm	23
	synt	any
	invoke	2
	unmark
	mark	L58
	pnull
	var	5
	var	23
	var	1
	line	441
	colm	44
	synt	any
	invoke	1
	line	441
	colm	32
	synt	any
	asgn
	unmark
lab L58
	mark	L59
	line	442
	colm	21
	synt	suspend
	mark0
	var	5
	line	442
	colm	21
	synt	any
	psusp
	pop
lab L60
	efail
lab L61
	line	442
	colm	21
	synt	endsuspend
	unmark
lab L59
	unmark
	goto	L32
	line	440
	colm	17
	synt	endif
	unmark
lab L57
	mark	L62
	line	445
	colm	17
	synt	if
	mark0
	var	21
	pnull
	line	445
	colm	24
	synt	any
	keywd	letters
	cset	290
	line	445
	colm	33
	synt	any
	unions
	var	14
	line	445
	colm	23
	synt	any
	invoke	2
	unmark
	mark	L63
	pnull
	var	5
	var	24
	var	1
	var	9
	line	446
	colm	48
	synt	any
	invoke	2
	line	446
	colm	32
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	line	447
	colm	21
	synt	suspend
	mark0
	var	5
	line	447
	colm	21
	synt	any
	psusp
	pop
lab L65
	efail
lab L66
	line	447
	colm	21
	synt	endsuspend
	unmark
lab L64
	unmark
	goto	L32
	line	445
	colm	17
	synt	endif
	unmark
lab L62
	mark	L67
	pnull
	var	5
	var	25
	var	1
	var	10
	line	451
	colm	42
	synt	any
	invoke	2
	line	451
	colm	28
	synt	any
	asgn
	unmark
lab L67
	mark	L68
	line	452
	colm	17
	synt	suspend
	mark0
	var	5
	line	452
	colm	17
	synt	any
	psusp
	pop
lab L69
	efail
lab L70
	line	452
	colm	17
	synt	endsuspend
	unmark
lab L68
	goto	L32
lab L34
	line	379
	colm	9
	synt	endcase
lab L32
	unmark
	goto	L31
lab L33
	line	378
	colm	5
	synt	endrepeat
	unmark
lab L30
	mark	L71
	line	462
	colm	5
	synt	ifelse
	mark	L72
	pnull
	var	0
	line	462
	colm	8
	synt	any
	nonnull
	unmark
	mark	L74
	var	15
	str	12
	line	463
	colm	19
	synt	any
	invoke	1
	line	463
	colm	9
	synt	any
	pret
lab L74
	synt	any
	pfail
	goto	L73
lab L72
	line	465
	colm	10
	synt	any
	pfail
lab L73
	line	462
	colm	5
	synt	endifelse
	unmark
lab L71
	pnull
	line	467
	colm	1
	synt	any
	pfail
	end
proc do_dot
	local	0,001000,getchar
	local	1,000020,token
	local	2,000000,any
	local	3,000000,next_c
	local	4,000000,TOK
	con	0,010000,1,056
	con	1,010000,1,145
	con	2,010000,1,105
	con	3,010000,1,060
	con	4,010000,7,122,105,101,114,114,111,124
	con	5,010000,3,104,117,124
	declend
	line	483
	colm	11
	synt	any
	mark	L1
	line	492
	colm	5
	synt	if
	mark0
	var	2
	line	492
	colm	12
	synt	any
	keywd	digits
	pnull
	var	3
	pnull
	var	0
	line	492
	colm	31
	synt	any
	coact
	line	492
	colm	28
	synt	any
	asgn
	line	492
	colm	11
	synt	any
	invoke	2
	unmark
	mark	L2
	pnull
	var	1
	pnull
	str	0
	var	3
	line	494
	colm	22
	synt	any
	cat
	line	494
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	495
	colm	9
	synt	while
	mark0
	var	2
	line	495
	colm	19
	synt	any
	keywd	digits
	pnull
	var	3
	pnull
	var	0
	line	495
	colm	38
	synt	any
	coact
	line	495
	colm	35
	synt	any
	asgn
	line	495
	colm	18
	synt	any
	invoke	2
	unmark
	mark	L4
	pnull
	var	1
	dup
	var	3
	line	496
	colm	19
	synt	any
	cat
	asgn
lab L5
	unmark
	goto	L4
lab L6
	line	495
	colm	9
	synt	endwhile
	unmark
lab L3
	mark	L7
	line	497
	colm	9
	synt	if
	mark0
	pnull
	var	1
	dup
	pnull
	var	3
	mark	L8
	str	1
	line	497
	colm	38
	synt	any
	esusp
	goto	L9
lab L8
	str	2
lab L9
	line	497
	colm	31
	synt	any
	lexeq
	line	497
	colm	18
	synt	any
	cat
	asgn
	unmark
	mark	L10
lab L11
	line	498
	colm	13
	synt	while
	mark0
	pnull
	pnull
	var	3
	pnull
	var	0
	line	498
	colm	30
	synt	any
	coact
	line	498
	colm	27
	synt	any
	asgn
	str	3
	line	498
	colm	40
	synt	any
	lexeq
lab L12
	unmark
	goto	L11
lab L13
	line	498
	colm	13
	synt	endwhile
	unmark
lab L10
lab L14
	line	499
	colm	13
	synt	while
	mark0
	var	2
	line	499
	colm	23
	synt	any
	keywd	digits
	var	3
	line	499
	colm	22
	synt	any
	invoke	2
	unmark
	mark	L14
	mark	L17
	pnull
	var	1
	dup
	var	3
	line	500
	colm	23
	synt	any
	cat
	asgn
	unmark
lab L17
	pnull
	var	3
	pnull
	var	0
	line	501
	colm	26
	synt	any
	coact
	line	501
	colm	24
	synt	any
	numeq
lab L15
	unmark
	goto	L14
lab L16
	line	499
	colm	13
	synt	endwhile
	line	497
	colm	9
	synt	endif
	unmark
lab L7
	mark	L18
	var	4
	str	4
	var	1
	line	504
	colm	19
	synt	any
	invoke	2
	line	504
	colm	9
	synt	any
	pret
lab L18
	synt	any
	pfail
	line	492
	colm	5
	synt	endif
	unmark
lab L1
	mark	L19
	mark	L20
	var	4
	str	5
	str	0
	line	511
	colm	15
	synt	any
	invoke	2
	line	511
	colm	5
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	513
	colm	1
	synt	any
	pfail
	end
proc do_newline
	local	0,001000,getchar
	local	1,001000,last_token
	local	2,001000,be_tbl
	local	3,000020,next_token
	local	4,000000,next_c
	local	5,000000,TOK
	local	6,000000,find
	local	7,000000,iparse_tokens
	con	0,010000,1,012
	con	1,010000,1,145
	con	2,010000,1,142
	con	3,010000,7,123,105,115,111,103,117,114
	declend
	line	532
	colm	11
	synt	any
	mark	L1
lab L2
	line	541
	colm	5
	synt	while
	mark0
	pnull
	var	4
	str	0
	line	541
	colm	18
	synt	any
	lexeq
	unmark
	mark	L2
	mark	L5
	pnull
	var	4
	mark	L6
	pnull
	var	0
	line	546
	colm	19
	synt	any
	coact
	line	546
	colm	28
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	pnull
	var	4
	line	547
	colm	23
	synt	any
	keywd	null
	line	547
	colm	20
	synt	any
	asgn
	unmark
lab L8
	line	548
	colm	13
	synt	any
	pfail
lab L7
	line	546
	colm	16
	synt	any
	asgn
	unmark
lab L5
	line	550
	colm	9
	synt	suspend
	mark0
	var	5
	line	550
	colm	21
	synt	any
	keywd	null
	pnull
	var	4
	str	0
	line	550
	colm	35
	synt	any
	lexeq
	line	550
	colm	20
	synt	any
	invoke	2
	line	550
	colm	9
	synt	any
	psusp
	pop
lab L9
	efail
lab L10
	line	550
	colm	9
	synt	endsuspend
lab L3
	unmark
	goto	L2
lab L4
	line	541
	colm	5
	synt	endwhile
	unmark
lab L1
	mark	L11
	line	559
	colm	5
	synt	if
	mark0
	var	6
	str	1
	pnull
	var	2
	pnull
	pnull
	var	1
	line	559
	colm	26
	synt	any
	nonnull
	line	559
	colm	38
	synt	any
	field	sym
	line	559
	colm	24
	synt	any
	subsc
	line	559
	colm	12
	synt	any
	invoke	2
	unmark
	mark	L12
	pnull
	pnull
	pnull
	var	3
	var	7
	line	563
	colm	40
	synt	any
	keywd	null
	var	0
	line	563
	colm	39
	synt	any
	invoke	2
	line	563
	colm	23
	synt	any
	asgn
	line	563
	colm	56
	synt	any
	field	sym
	line	563
	colm	9
	synt	any
	nonnull
	unmark
lab L12
	line	564
	colm	9
	synt	ifelse
	mark	L13
	pnull
	var	3
	line	564
	colm	12
	synt	any
	nonnull
	unmark
	mark	L15
	line	567
	colm	13
	synt	ifelse
	mark	L16
	var	6
	str	2
	pnull
	var	2
	pnull
	var	3
	line	567
	colm	43
	synt	any
	field	sym
	line	567
	colm	32
	synt	any
	subsc
	line	567
	colm	20
	synt	any
	invoke	2
	unmark
	line	568
	colm	18
	synt	suspend
	mark0
	var	5
	str	3
	str	0
	line	568
	colm	29
	synt	any
	invoke	2
	line	568
	colm	18
	synt	any
	psusp
	pop
lab L18
	efail
lab L19
	line	568
	colm	18
	synt	endsuspend
	goto	L17
lab L16
	line	573
	colm	18
	synt	suspend
	mark0
	var	5
	line	573
	colm	30
	synt	any
	keywd	null
	str	0
	line	573
	colm	29
	synt	any
	invoke	2
	line	573
	colm	18
	synt	any
	psusp
	pop
lab L20
	efail
lab L21
	line	573
	colm	18
	synt	endsuspend
lab L17
	line	567
	colm	13
	synt	endifelse
	unmark
lab L15
	mark	L22
	var	3
	line	574
	colm	13
	synt	any
	pret
lab L22
	synt	any
	pfail
	goto	L14
lab L13
	mark	L23
	var	5
	line	582
	colm	24
	synt	any
	keywd	null
	str	0
	line	582
	colm	23
	synt	any
	invoke	2
	line	582
	colm	13
	synt	any
	pret
lab L23
	synt	any
	pfail
lab L14
	line	564
	colm	9
	synt	endifelse
	line	559
	colm	5
	synt	endif
	unmark
lab L11
	mark	L24
	mark	L25
	var	5
	line	592
	colm	16
	synt	any
	keywd	null
	str	0
	line	592
	colm	15
	synt	any
	invoke	2
	line	592
	colm	5
	synt	any
	pret
lab L25
	synt	any
	pfail
	unmark
lab L24
	pnull
	line	595
	colm	1
	synt	any
	pfail
	end
proc do_number_sign
	local	0,001000,getchar
	local	1,000000,next_c
	con	0,010000,1,012
	declend
	line	608
	colm	11
	synt	any
	mark	L1
lab L2
	line	613
	colm	5
	synt	while
	mark0
	pnull
	var	1
	str	0
	line	613
	colm	18
	synt	any
	lexne
	unmark
	mark	L2
	pnull
	var	1
	pnull
	var	0
	line	614
	colm	19
	synt	any
	coact
	line	614
	colm	16
	synt	any
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	613
	colm	5
	synt	endwhile
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	619
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	621
	colm	1
	synt	any
	pfail
	end
proc do_quotation_mark
	local	0,001000,getchar
	local	1,000020,token
	local	2,000000,next_c
	local	3,000000,any
	local	4,000000,slshupto
	local	5,000000,TOK
	con	0,010000,1,042
	con	1,010000,1,012
	con	2,002000,1,1
	con	3,010000,1,137
	con	4,020000,2,011,040
	con	5,020000,1,042
	con	6,002000,1,2
	con	7,010000,9,123,124,122,111,116,107,114,111,124
	declend
	line	634
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	str	0
	line	640
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	641
	colm	15
	synt	any
	coact
	line	641
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	642
	colm	5
	synt	repeat
	mark	L4
	line	643
	colm	9
	synt	ifelse
	mark	L7
	pnull
	var	2
	str	1
	line	643
	colm	19
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	1
	pnull
	int	2
	line	643
	colm	35
	synt	any
	neg
	line	643
	colm	34
	synt	any
	subsc
	str	3
	line	643
	colm	39
	synt	any
	lexeq
	unmark
	mark	L9
	pnull
	var	1
	pnull
	var	1
	int	2
	pnull
	int	2
	line	644
	colm	30
	synt	any
	neg
	line	644
	colm	29
	synt	any
	synt	any
	sect
	line	644
	colm	19
	synt	any
	asgn
	unmark
lab L9
	mark	L10
lab L11
	line	645
	colm	13
	synt	while
	mark0
	var	3
	cset	4
	pnull
	var	2
	pnull
	var	0
	line	645
	colm	40
	synt	any
	coact
	line	645
	colm	37
	synt	any
	asgn
	line	645
	colm	22
	synt	any
	invoke	2
lab L12
	unmark
	goto	L11
lab L13
	line	645
	colm	13
	synt	endwhile
	unmark
lab L10
	goto	L5
	goto	L8
lab L7
	mark	L14
	line	648
	colm	13
	synt	if
	mark0
	var	4
	cset	5
	pnull
	var	1
	dup
	var	2
	line	648
	colm	36
	synt	any
	cat
	asgn
	int	6
	line	648
	colm	24
	synt	any
	invoke	3
	unmark
	mark	L15
	pnull
	var	2
	pnull
	var	0
	line	650
	colm	27
	synt	any
	coact
	line	650
	colm	24
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	5
	str	7
	var	1
	line	653
	colm	27
	synt	any
	invoke	2
	line	653
	colm	17
	synt	any
	pret
lab L16
	synt	any
	pfail
	line	648
	colm	13
	synt	endif
	unmark
lab L14
	pnull
	var	2
	pnull
	var	0
	line	655
	colm	23
	synt	any
	coact
	line	655
	colm	20
	synt	any
	asgn
lab L8
	line	643
	colm	9
	synt	endifelse
lab L5
	unmark
	goto	L4
lab L6
	line	642
	colm	5
	synt	endrepeat
	unmark
lab L3
	pnull
	line	659
	colm	1
	synt	any
	pfail
	end
proc do_apostrophe
	local	0,001000,getchar
	local	1,000020,token
	local	2,000000,next_c
	local	3,000000,any
	local	4,000000,slshupto
	local	5,000000,TOK
	con	0,010000,1,047
	con	1,010000,1,012
	con	2,002000,1,1
	con	3,010000,1,137
	con	4,020000,2,011,040
	con	5,002000,1,2
	con	6,010000,7,103,123,105,124,114,111,124
	declend
	line	671
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	str	0
	line	677
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	678
	colm	15
	synt	any
	coact
	line	678
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	679
	colm	5
	synt	repeat
	mark	L4
	line	680
	colm	9
	synt	ifelse
	mark	L7
	pnull
	var	2
	str	1
	line	680
	colm	19
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	1
	pnull
	int	2
	line	680
	colm	35
	synt	any
	neg
	line	680
	colm	34
	synt	any
	subsc
	str	3
	line	680
	colm	39
	synt	any
	lexeq
	unmark
	mark	L9
	pnull
	var	1
	pnull
	var	1
	int	2
	pnull
	int	2
	line	681
	colm	30
	synt	any
	neg
	line	681
	colm	29
	synt	any
	synt	any
	sect
	line	681
	colm	19
	synt	any
	asgn
	unmark
lab L9
	mark	L10
lab L11
	line	682
	colm	13
	synt	while
	mark0
	var	3
	cset	4
	pnull
	var	2
	pnull
	var	0
	line	682
	colm	40
	synt	any
	coact
	line	682
	colm	37
	synt	any
	asgn
	line	682
	colm	22
	synt	any
	invoke	2
lab L12
	unmark
	goto	L11
lab L13
	line	682
	colm	13
	synt	endwhile
	unmark
lab L10
	goto	L5
	goto	L8
lab L7
	mark	L14
	line	685
	colm	13
	synt	if
	mark0
	var	4
	str	0
	pnull
	var	1
	dup
	var	2
	line	685
	colm	36
	synt	any
	cat
	asgn
	int	5
	line	685
	colm	24
	synt	any
	invoke	3
	unmark
	mark	L15
	pnull
	var	2
	pnull
	var	0
	line	687
	colm	27
	synt	any
	coact
	line	687
	colm	24
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	5
	str	6
	var	1
	line	690
	colm	27
	synt	any
	invoke	2
	line	690
	colm	17
	synt	any
	pret
lab L16
	synt	any
	pfail
	line	685
	colm	13
	synt	endif
	unmark
lab L14
	pnull
	var	2
	pnull
	var	0
	line	692
	colm	23
	synt	any
	coact
	line	692
	colm	20
	synt	any
	asgn
lab L8
	line	680
	colm	9
	synt	endifelse
lab L5
	unmark
	goto	L4
lab L6
	line	679
	colm	5
	synt	endrepeat
	unmark
lab L3
	pnull
	line	696
	colm	1
	synt	any
	pfail
	end
proc do_digits
	local	0,001000,getchar
	local	1,000020,token
	local	2,000020,tok_record
	local	3,000020,extras
	local	4,000020,digits
	local	5,000020,over
	local	6,000000,TOK
	local	7,000000,next_c
	local	8,000000,any
	con	0,010000,52,101,141,102,142,103,143,104,144,105,145,106,146,107,147,110,150,111,151,112,152,113,153,114,154,115,155,116,156,117,157,120,160,121,161,122,162,123,163,124,164,125,165,126,166,127,167,130,170,131,171,132,172
	con	1,010000,6,111,116,124,114,111,124
	con	2,010000,1,060
	con	3,010000,0
	con	4,010000,1,122
	con	5,010000,1,162
	con	6,002000,2,10
	con	7,002000,1,1
	con	8,002000,1,2
	con	9,010000,1,055
	con	10,010000,1,056
	con	11,010000,7,122,105,101,114,114,111,124
	con	12,010000,1,145
	con	13,010000,1,105
	declend
	line	708
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	str	0
	line	714
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	6
	str	1
	line	716
	colm	22
	synt	any
	invoke	1
	line	716
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	mark	L4
	pnull
	str	2
	var	7
	line	719
	colm	19
	synt	any
	lexne
	line	719
	colm	31
	synt	any
	esusp
	goto	L5
lab L4
	str	3
lab L5
	line	719
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L6
lab L7
	line	720
	colm	5
	synt	while
	mark0
	var	8
	line	720
	colm	15
	synt	any
	keywd	digits
	pnull
	var	7
	pnull
	var	0
	line	720
	colm	34
	synt	any
	coact
	line	720
	colm	31
	synt	any
	asgn
	line	720
	colm	14
	synt	any
	invoke	2
	unmark
	mark	L7
	pnull
	var	1
	dup
	var	7
	line	721
	colm	15
	synt	any
	cat
	asgn
lab L8
	unmark
	goto	L7
lab L9
	line	720
	colm	5
	synt	endwhile
	unmark
lab L6
	mark	L10
	line	722
	colm	5
	synt	ifelse
	mark	L11
	pnull
	var	1
	dup
	pnull
	var	7
	mark	L13
	str	4
	line	722
	colm	34
	synt	any
	esusp
	goto	L14
lab L13
	str	5
lab L14
	line	722
	colm	27
	synt	any
	lexeq
	line	722
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L15
	pnull
	var	4
	line	723
	colm	19
	synt	any
	keywd	digits
	line	723
	colm	16
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	line	724
	colm	9
	synt	if
	mark0
	pnull
	var	5
	pnull
	pnull
	pnull
	int	6
	pnull
	var	1
	int	7
	pnull
	int	7
	line	724
	colm	35
	synt	any
	neg
	line	724
	colm	34
	synt	any
	synt	any
	sect
	line	724
	colm	25
	synt	any
	numlt
	int	6
	line	724
	colm	40
	synt	any
	minus
	int	8
	line	724
	colm	46
	synt	any
	mult
	line	724
	colm	17
	synt	any
	asgn
	unmark
	pnull
	var	4
	dup
	mark	L17
	pnull
	var	3
	int	7
	pnull
	var	5
	int	7
	line	725
	colm	38
	synt	any
	plus
	line	725
	colm	33
	synt	any
	synt	any
	sect
	line	725
	colm	42
	synt	any
	esusp
	goto	L18
lab L17
	var	3
lab L18
	line	725
	colm	20
	synt	any
	unions
	asgn
	line	724
	colm	9
	synt	endif
	unmark
lab L16
	mark	L19
	pnull
	var	7
	pnull
	var	0
	line	726
	colm	19
	synt	any
	coact
	line	726
	colm	16
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	line	727
	colm	9
	synt	if
	mark0
	pnull
	var	7
	str	9
	line	727
	colm	19
	synt	any
	lexeq
	unmark
	mark	L21
	pnull
	var	1
	dup
	var	7
	line	728
	colm	19
	synt	any
	cat
	asgn
	unmark
lab L21
	pnull
	var	7
	pnull
	var	0
	line	729
	colm	23
	synt	any
	coact
	line	729
	colm	20
	synt	any
	asgn
	line	727
	colm	9
	synt	endif
	unmark
lab L20
lab L22
	line	731
	colm	9
	synt	while
	mark0
	var	8
	var	4
	var	7
	line	731
	colm	18
	synt	any
	invoke	2
	unmark
	mark	L22
	mark	L25
	pnull
	var	1
	dup
	var	7
	line	732
	colm	19
	synt	any
	cat
	asgn
	unmark
lab L25
	pnull
	var	7
	pnull
	var	0
	line	733
	colm	23
	synt	any
	coact
	line	733
	colm	20
	synt	any
	asgn
lab L23
	unmark
	goto	L22
lab L24
	line	731
	colm	9
	synt	endwhile
	goto	L12
lab L11
	mark	L26
	line	736
	colm	9
	synt	if
	mark0
	pnull
	var	1
	dup
	pnull
	var	7
	str	10
	line	736
	colm	31
	synt	any
	lexeq
	line	736
	colm	18
	synt	any
	cat
	asgn
	unmark
	mark	L27
lab L28
	line	737
	colm	13
	synt	while
	mark0
	var	8
	line	737
	colm	23
	synt	any
	keywd	digits
	pnull
	var	7
	pnull
	var	0
	line	737
	colm	42
	synt	any
	coact
	line	737
	colm	39
	synt	any
	asgn
	line	737
	colm	22
	synt	any
	invoke	2
	unmark
	mark	L28
	pnull
	var	1
	dup
	var	7
	line	738
	colm	23
	synt	any
	cat
	asgn
lab L29
	unmark
	goto	L28
lab L30
	line	737
	colm	13
	synt	endwhile
	unmark
lab L27
	pnull
	var	2
	var	6
	str	11
	line	739
	colm	30
	synt	any
	invoke	1
	line	739
	colm	24
	synt	any
	asgn
	line	736
	colm	9
	synt	endif
	unmark
lab L26
	line	741
	colm	9
	synt	if
	mark0
	pnull
	var	1
	dup
	pnull
	var	7
	mark	L31
	str	12
	line	741
	colm	38
	synt	any
	esusp
	goto	L32
lab L31
	str	13
lab L32
	line	741
	colm	31
	synt	any
	lexeq
	line	741
	colm	18
	synt	any
	cat
	asgn
	unmark
	mark	L33
	pnull
	var	7
	pnull
	var	0
	line	742
	colm	23
	synt	any
	coact
	line	742
	colm	20
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	line	743
	colm	13
	synt	if
	mark0
	pnull
	var	7
	str	9
	line	743
	colm	23
	synt	any
	lexeq
	unmark
	mark	L35
	pnull
	var	1
	dup
	var	7
	line	744
	colm	23
	synt	any
	cat
	asgn
	unmark
lab L35
	pnull
	var	7
	pnull
	var	0
	line	745
	colm	27
	synt	any
	coact
	line	745
	colm	24
	synt	any
	asgn
	line	743
	colm	13
	synt	endif
	unmark
lab L34
	mark	L36
lab L37
	line	747
	colm	13
	synt	while
	mark0
	var	8
	line	747
	colm	23
	synt	any
	keywd	digits
	var	7
	line	747
	colm	22
	synt	any
	invoke	2
	unmark
	mark	L37
	mark	L40
	pnull
	var	1
	dup
	var	7
	line	748
	colm	23
	synt	any
	cat
	asgn
	unmark
lab L40
	pnull
	var	7
	pnull
	var	0
	line	749
	colm	27
	synt	any
	coact
	line	749
	colm	24
	synt	any
	asgn
lab L38
	unmark
	goto	L37
lab L39
	line	747
	colm	13
	synt	endwhile
	unmark
lab L36
	pnull
	var	2
	var	6
	str	11
	line	751
	colm	30
	synt	any
	invoke	1
	line	751
	colm	24
	synt	any
	asgn
	line	741
	colm	9
	synt	endif
lab L12
	line	722
	colm	5
	synt	endifelse
	unmark
lab L10
	mark	L41
	pnull
	pnull
	var	2
	line	754
	colm	15
	synt	any
	field	str
	mark	L42
	pnull
	str	3
	var	1
	line	754
	colm	27
	synt	any
	lexne
	line	754
	colm	38
	synt	any
	esusp
	goto	L43
lab L42
	str	2
lab L43
	line	754
	colm	20
	synt	any
	asgn
	unmark
lab L41
	mark	L44
	mark	L45
	var	2
	line	755
	colm	5
	synt	any
	pret
lab L45
	synt	any
	pfail
	unmark
lab L44
	pnull
	line	757
	colm	1
	synt	any
	pfail
	end
proc do_whitespace
	local	0,001000,getchar
	local	1,001000,whitespace
	local	2,000000,any
	local	3,000000,next_c
	declend
	line	770
	colm	11
	synt	any
	mark	L1
lab L2
	line	773
	colm	5
	synt	while
	mark0
	var	2
	var	1
	var	3
	line	773
	colm	14
	synt	any
	invoke	2
	unmark
	mark	L2
	pnull
	var	3
	pnull
	var	0
	line	774
	colm	19
	synt	any
	coact
	line	774
	colm	16
	synt	any
	asgn
lab L3
	unmark
	goto	L2
lab L4
	line	773
	colm	5
	synt	endwhile
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	775
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	777
	colm	1
	synt	any
	pfail
	end
proc do_identifier
	local	0,001000,getchar
	local	1,001000,reserved_tbl
	local	2,000020,token
	local	3,000000,next_c
	local	4,000000,any
	local	5,000000,TOK
	con	0,020000,1,137
	con	1,010000,5,111,104,105,116,124
	declend
	line	792
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	798
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	799
	colm	5
	synt	while
	mark0
	var	4
	pnull
	pnull
	line	799
	colm	15
	synt	any
	keywd	letters
	line	799
	colm	27
	synt	any
	keywd	digits
	line	799
	colm	24
	synt	any
	unions
	cset	0
	line	799
	colm	35
	synt	any
	unions
	pnull
	var	3
	pnull
	var	0
	line	799
	colm	53
	synt	any
	coact
	line	799
	colm	50
	synt	any
	asgn
	line	799
	colm	14
	synt	any
	invoke	2
	unmark
	mark	L3
	pnull
	var	2
	dup
	var	3
	line	800
	colm	14
	synt	any
	cat
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	799
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	mark	L8
	var	5
	pnull
	pnull
	var	1
	var	2
	line	801
	colm	29
	synt	any
	subsc
	line	801
	colm	16
	synt	any
	nonnull
	var	2
	line	801
	colm	15
	synt	any
	invoke	2
	line	801
	colm	45
	synt	any
	esusp
	goto	L9
lab L8
	var	5
	str	1
	var	2
	line	801
	colm	50
	synt	any
	invoke	2
lab L9
	line	801
	colm	5
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	803
	colm	1
	synt	any
	pfail
	end
proc do_operator
	local	0,001000,getchar
	local	1,001000,operators
	local	2,000020,token
	local	3,000020,elem
	local	4,000020,dot_found
	local	5,000000,next_c
	local	6,000000,last_token
	local	7,000000,do_dot
	local	8,000000,recognop
	local	9,000000,TOK
	con	0,010000,1,056
	con	1,010000,7,122,105,101,114,114,111,124
	con	2,002000,1,1
	con	3,002000,1,2
	declend
	line	818
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	5
	line	822
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	824
	colm	5
	synt	if
	mark0
	pnull
	var	2
	str	0
	line	824
	colm	14
	synt	any
	lexeq
	unmark
	mark	L3
	pnull
	var	6
	var	7
	var	0
	line	829
	colm	29
	synt	any
	invoke	1
	line	829
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	830
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	6
	line	830
	colm	22
	synt	any
	field	sym
	str	1
	line	830
	colm	27
	synt	any
	lexeq
	unmark
	mark	L5
	var	6
	line	831
	colm	13
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	830
	colm	9
	synt	endif
	unmark
lab L4
	pnull
	var	4
	int	2
	line	835
	colm	19
	synt	any
	asgn
	line	824
	colm	5
	synt	endif
	unmark
lab L2
	mark	L6
lab L7
	line	838
	colm	5
	synt	while
	mark0
	pnull
	var	3
	var	8
	var	1
	var	2
	int	2
	line	838
	colm	27
	synt	any
	invoke	3
	line	838
	colm	16
	synt	any
	asgn
	unmark
	mark	L7
	line	839
	colm	9
	synt	ifelse
	mark	L10
	pnull
	var	4
	line	839
	colm	12
	synt	any
	nonnull
	unmark
	mark	L12
	pnull
	var	4
	line	840
	colm	26
	synt	any
	keywd	null
	line	840
	colm	23
	synt	any
	asgn
	unmark
lab L12
	pnull
	var	2
	dup
	var	5
	line	841
	colm	19
	synt	any
	cat
	asgn
	goto	L11
lab L10
	pnull
	var	2
	dup
	pnull
	var	5
	pnull
	var	0
	line	843
	colm	35
	synt	any
	coact
	line	843
	colm	32
	synt	any
	asgn
	line	843
	colm	19
	synt	any
	cat
	asgn
lab L11
	line	839
	colm	9
	synt	endifelse
lab L8
	unmark
	goto	L7
lab L9
	line	838
	colm	5
	synt	endwhile
	unmark
lab L6
	mark	L13
	line	847
	colm	5
	synt	ifelse
	mark	L14
	pnull
	pnull
	pnull
	var	3
	line	847
	colm	9
	synt	any
	nonnull
	line	847
	colm	8
	synt	any
	size
	int	2
	line	847
	colm	15
	synt	any
	numeq
	unmark
	mark	L16
	var	9
	pnull
	pnull
	var	3
	int	2
	line	848
	colm	24
	synt	any
	subsc
	int	3
	line	848
	colm	27
	synt	any
	subsc
	pnull
	pnull
	var	3
	int	2
	line	848
	colm	36
	synt	any
	subsc
	int	2
	line	848
	colm	39
	synt	any
	subsc
	line	848
	colm	19
	synt	any
	invoke	2
	line	848
	colm	9
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L15
lab L14
	line	849
	colm	10
	synt	any
	pfail
lab L15
	line	847
	colm	5
	synt	endifelse
	unmark
lab L13
	pnull
	line	851
	colm	1
	synt	any
	pfail
	end
proc recognop
	local	0,001000,l
	local	1,001000,s
	local	2,001000,i
	local	3,000020,current_state
	local	4,000020,master_list
	local	5,000020,c
	local	6,000020,result
	local	7,000020,j
	local	8,000040,dfstn_table
	local	9,000000,table
	local	10,000000,start_state
	local	11,000000,sortf
	local	12,000000,move
	local	13,000000,create_arcs
	local	14,000000,list
	local	15,000000,put
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	877
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	8
	var	9
	line	881
	colm	33
	synt	any
	invoke	0
	line	881
	colm	25
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	pnull
	var	2
	line	883
	colm	5
	synt	any
	null
	int	0
	line	883
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	pnull
	var	8
	var	0
	line	885
	colm	17
	synt	any
	subsc
	line	885
	colm	5
	synt	any
	null
	var	10
	int	0
	pnull
	var	0
	line	885
	colm	39
	synt	any
	size
	line	885
	colm	43
	synt	any
	keywd	null
	line	885
	colm	50
	synt	any
	keywd	null
	line	885
	colm	35
	synt	any
	invoke	4
	line	885
	colm	21
	synt	any
	asgn
	pop
	pnull
	pnull
	pnull
	var	8
	var	0
	line	886
	colm	20
	synt	any
	subsc
	line	886
	colm	23
	synt	any
	field	master_list
	var	11
	var	0
	var	2
	line	886
	colm	44
	synt	any
	invoke	2
	line	886
	colm	36
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	pnull
	var	8
	var	0
	line	889
	colm	33
	synt	any
	subsc
	line	889
	colm	19
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	4
	pnull
	var	3
	line	891
	colm	35
	synt	any
	field	master_list
	line	891
	colm	19
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	1
	line	893
	colm	7
	synt	any
	bscan
lab L9
	line	894
	colm	9
	synt	while
	mark0
	pnull
	var	5
	var	12
	int	0
	line	894
	colm	24
	synt	any
	invoke	1
	line	894
	colm	17
	synt	any
	asgn
	unmark
	mark	L9
	mark	L12
	line	899
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	899
	colm	30
	synt	any
	field	tbl
	line	899
	colm	16
	synt	any
	null
	unmark
	var	13
	var	4
	var	2
	var	3
	line	900
	colm	60
	synt	any
	keywd	pos
	line	900
	colm	28
	synt	any
	invoke	4
	line	899
	colm	13
	synt	endif
	unmark
lab L12
	mark	L13
	line	905
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	905
	colm	29
	synt	any
	field	tbl
	int	1
	line	905
	colm	34
	synt	any
	eqv
	unmark
	line	906
	colm	17
	synt	any
	pfail
	line	905
	colm	13
	synt	endif
	unmark
lab L13
	pnull
	var	3
	mark	L14
	pnull
	pnull
	pnull
	var	3
	line	917
	colm	44
	synt	any
	field	tbl
	var	5
	line	917
	colm	48
	synt	any
	subsc
	line	917
	colm	30
	synt	any
	nonnull
	line	917
	colm	52
	synt	any
	esusp
	goto	L15
lab L14
	line	917
	colm	54
	synt	any
	pfail
lab L15
	line	917
	colm	27
	synt	any
	asgn
lab L10
	unmark
	goto	L9
lab L11
	line	894
	colm	9
	synt	endwhile
	line	893
	colm	7
	synt	any
	escan
	unmark
lab L8
	mark	L16
	pnull
	var	6
	var	14
	line	923
	colm	19
	synt	any
	invoke	0
	line	923
	colm	12
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	line	924
	colm	5
	synt	every
	mark0
	pnull
	var	7
	pnull
	pnull
	var	3
	line	924
	colm	29
	synt	any
	field	b
	pnull
	var	3
	line	924
	colm	48
	synt	any
	field	e
	push1
	line	924
	colm	32
	synt	any
	toby
	line	924
	colm	13
	synt	any
	asgn
	pop
	mark0
	line	925
	colm	9
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	4
	var	7
	line	925
	colm	24
	synt	any
	subsc
	var	2
	line	925
	colm	27
	synt	any
	subsc
	line	925
	colm	12
	synt	any
	size
	pnull
	var	1
	line	925
	colm	33
	synt	any
	size
	line	925
	colm	31
	synt	any
	numeq
	unmark
	var	15
	var	6
	pnull
	var	4
	var	7
	line	926
	colm	36
	synt	any
	subsc
	line	926
	colm	16
	synt	any
	invoke	2
	line	925
	colm	9
	synt	endif
	unmark
lab L18
	efail
lab L19
	line	924
	colm	5
	synt	endevery
	unmark
lab L17
	mark	L20
	mark	L21
	var	6
	line	929
	colm	5
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	931
	colm	1
	synt	any
	pfail
	end
proc create_arcs
	local	0,001000,master_list
	local	1,001000,field
	local	2,001000,current_state
	local	3,001000,POS
	local	4,000020,elem
	local	5,000020,i
	local	6,000020,first_char
	local	7,000020,old_first_char
	local	8,000000,table
	local	9,000000,dfstn_state
	con	0,010000,0
	con	1,002000,1,1
	con	2,002000,1,0
	declend
	line	939
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	943
	colm	18
	synt	any
	field	tbl
	var	8
	line	943
	colm	31
	synt	any
	invoke	0
	line	943
	colm	23
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	7
	str	0
	line	944
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	946
	colm	5
	synt	every
	mark0
	pnull
	var	4
	pnull
	pnull
	var	0
	pnull
	var	5
	pnull
	pnull
	var	2
	line	946
	colm	49
	synt	any
	field	b
	pnull
	var	2
	line	946
	colm	68
	synt	any
	field	e
	push1
	line	946
	colm	52
	synt	any
	toby
	line	946
	colm	33
	synt	any
	asgn
	line	946
	colm	30
	synt	any
	subsc
	var	1
	line	946
	colm	71
	synt	any
	subsc
	line	946
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L6
	pnull
	var	6
	mark	L7
	pnull
	var	4
	pnull
	var	3
	int	1
	line	953
	colm	31
	synt	any
	minus
	line	953
	colm	27
	synt	any
	subsc
	line	953
	colm	35
	synt	any
	esusp
	goto	L8
lab L7
	unmark
	unmark
	goto	L4
lab L8
	line	953
	colm	20
	synt	any
	asgn
	unmark
lab L6
	line	958
	colm	9
	synt	if
	mark0
	pnull
	var	6
	var	7
	line	958
	colm	23
	synt	any
	lexne
	unmark
	mark	L9
	pnull
	pnull
	pnull
	var	2
	line	960
	colm	26
	synt	any
	field	tbl
	var	6
	line	960
	colm	30
	synt	any
	subsc
	var	9
	var	5
	line	960
	colm	57
	synt	any
	invoke	1
	line	960
	colm	43
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	pnull
	pnull
	pnull
	var	2
	line	962
	colm	28
	synt	any
	field	tbl
	var	7
	line	962
	colm	32
	synt	any
	subsc
	line	962
	colm	14
	synt	any
	nonnull
	line	962
	colm	49
	synt	any
	field	e
	pnull
	var	5
	int	1
	line	962
	colm	56
	synt	any
	minus
	line	962
	colm	52
	synt	any
	asgn
	unmark
lab L10
	pnull
	var	7
	var	6
	line	963
	colm	28
	synt	any
	asgn
	line	958
	colm	9
	synt	endif
	unmark
lab L4
	efail
lab L5
	line	946
	colm	5
	synt	endevery
	unmark
lab L3
	mark	L11
	pnull
	pnull
	pnull
	pnull
	pnull
	var	2
	line	966
	colm	20
	synt	any
	field	tbl
	var	7
	line	966
	colm	24
	synt	any
	subsc
	line	966
	colm	6
	synt	any
	nonnull
	line	966
	colm	41
	synt	any
	field	e
	var	5
	line	966
	colm	44
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	2
	line	969
	colm	18
	synt	any
	field	tbl
	pnull
	pnull
	pnull
	var	2
	line	969
	colm	41
	synt	any
	field	tbl
	line	969
	colm	27
	synt	any
	size
	int	2
	line	969
	colm	46
	synt	any
	numeq
	line	969
	colm	23
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	mark	L14
	var	2
	line	970
	colm	5
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	972
	colm	1
	synt	any
	pfail
	end
