version	U12.1.00
uid	unilex.u1-1788085725-0
record	token,5
	0,tok
	1,s
	2,line
	3,column
	4,filename
impl	local
link	escape.u
global	62
	0,000001,yytext,0
	1,000001,yyin,0
	2,000001,yytoken,0
	3,000001,O,0
	4,000001,D,0
	5,000001,L,0
	6,000001,H,0
	7,000001,R,0
	8,000001,FS,0
	9,000001,IS,0
	10,000001,W,0
	11,000001,idchars,0
	12,000001,yylex2,0
	13,000011,token,5
	14,000005,init_csets,0
	15,000001,yylineno,0
	16,000001,yycolno,0
	17,000001,yyfilename,0
	18,000001,tokflags,0
	19,000001,lastid,0
	20,000001,buffer,0
	21,000001,lastchar,0
	22,000005,reswords,0
	23,000005,lex_error,0
	24,000005,uni_error,1
	25,000005,yylex2Normal,0
	26,000005,do_letters,0
	27,000005,do_digits,0
	28,000005,do_dollar,0
	29,000005,do_comma,0
	30,000005,do_lbrack,0
	31,000005,do_rbrack,0
	32,000005,do_lbrace,0
	33,000005,do_rbrace,0
	34,000005,do_semi,0
	35,000005,do_lparen,0
	36,000005,do_rparen,0
	37,000005,do_tilde,0
	38,000005,do_or,0
	39,000005,do_caret,0
	40,000005,do_backslash,0
	41,000005,do_at,0
	42,000005,do_qmark,0
	43,000005,do_equal,0
	44,000001,next_gt_is_ender,0
	45,000005,do_greater,0
	46,000005,do_less,0
	47,000005,do_colon,0
	48,000005,do_slash,0
	49,000005,do_dot,0
	50,000005,do_minus,0
	51,000005,do_plus,0
	52,000005,do_star,0
	53,000005,do_and,0
	54,000005,do_mod,0
	55,000005,do_bang,0
	56,000005,do_literal,0
	57,000005,do_backquote,0
	58,000001,errors,0
	59,000005,yylex_reinit,0
	60,000005,yylex,1
	61,000005,token_isconst,1

proc init_csets
	local	0,000000,O
	local	1,000000,D
	local	2,000000,L
	local	3,000000,H
	local	4,000000,R
	local	5,000000,FS
	local	6,000000,IS
	local	7,000000,W
	local	8,000000,idchars
	con	0,020000,8,060,061,062,063,064,065,066,067
	con	1,020000,1,137
	con	2,020000,12,141,142,143,144,145,146,101,102,103,104,105,106
	con	3,020000,4,146,106,154,114
	con	4,020000,4,165,125,154,114
	con	5,020000,3,040,011,013
	declend
	filen	unilex.icn
	line	33
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	cset	0
	line	34
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	35
	colm	10
	synt	any
	keywd	digits
	line	35
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	pnull
	line	36
	colm	10
	synt	any
	keywd	letters
	cset	1
	line	36
	colm	19
	synt	any
	unions
	line	36
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	line	37
	colm	10
	synt	any
	keywd	digits
	cset	2
	line	37
	colm	18
	synt	any
	unions
	line	37
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	4
	pnull
	line	38
	colm	10
	synt	any
	keywd	digits
	line	38
	colm	21
	synt	any
	keywd	letters
	line	38
	colm	18
	synt	any
	unions
	line	38
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	cset	3
	line	39
	colm	7
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	6
	cset	4
	line	40
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	cset	5
	line	41
	colm	7
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	8
	pnull
	var	2
	var	1
	line	42
	colm	17
	synt	any
	unions
	line	42
	colm	12
	synt	any
	asgn
	unmark
lab L9
	pnull
	line	43
	colm	1
	synt	any
	pfail
	end
proc reswords
	local	0,000040,t
	local	1,000000,table
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,3,257
	con	3,010000,8,141,142,163,164,162,141,143,164
	con	4,002000,1,0
	con	5,002000,3,377
	con	6,010000,5,142,162,145,141,153
	con	7,002000,3,263
	con	8,010000,2,142,171
	con	9,002000,3,264
	con	10,010000,4,143,141,163,145
	con	11,002000,3,265
	con	12,010000,5,143,154,141,163,163
	con	13,002000,3,266
	con	14,010000,6,143,162,145,141,164,145
	con	15,002000,3,267
	con	16,010000,8,143,162,151,164,151,143,141,154
	con	17,002000,3,268
	con	18,010000,7,144,145,146,141,165,154,164
	con	19,002000,3,269
	con	20,010000,2,144,157
	con	21,002000,3,270
	con	22,010000,4,145,154,163,145
	con	23,002000,3,271
	con	24,010000,3,145,156,144
	con	25,002000,3,272
	con	26,010000,5,145,166,145,162,171
	con	27,002000,3,273
	con	28,010000,4,146,141,151,154
	con	29,002000,3,274
	con	30,010000,6,147,154,157,142,141,154
	con	31,002000,3,275
	con	32,010000,2,151,146
	con	33,002000,3,276
	con	34,010000,6,151,155,160,157,162,164
	con	35,002000,3,277
	con	36,010000,7,151,156,151,164,151,141,154
	con	37,002000,3,278
	con	38,010000,9,151,156,151,164,151,141,154,154,171
	con	39,002000,3,279
	con	40,010000,9,151,156,166,157,143,141,142,154,145
	con	41,002000,3,280
	con	42,010000,4,154,151,156,153
	con	43,002000,3,281
	con	44,010000,5,154,157,143,141,154
	con	45,002000,3,282
	con	46,010000,6,155,145,164,150,157,144
	con	47,002000,3,283
	con	48,010000,4,156,145,170,164
	con	49,002000,3,284
	con	50,010000,3,156,157,164
	con	51,002000,3,285
	con	52,010000,2,157,146
	con	53,002000,3,286
	con	54,010000,7,160,141,143,153,141,147,145
	con	55,002000,3,287
	con	56,010000,9,160,162,157,143,145,144,165,162,145
	con	57,002000,3,288
	con	58,010000,6,162,145,143,157,162,144
	con	59,002000,3,289
	con	60,010000,6,162,145,160,145,141,164
	con	61,002000,3,290
	con	62,010000,6,162,145,164,165,162,156
	con	63,002000,3,291
	con	64,010000,6,163,164,141,164,151,143
	con	65,002000,3,292
	con	66,010000,7,163,165,163,160,145,156,144
	con	67,002000,3,293
	con	68,010000,4,164,150,145,156
	con	69,002000,3,294
	con	70,010000,6,164,150,162,145,141,144
	con	71,002000,3,295
	con	72,010000,2,164,157
	con	73,002000,3,296
	con	74,010000,5,165,156,164,151,154
	con	75,002000,3,297
	con	76,010000,5,167,150,151,154,145
	con	77,002000,3,298
	declend
	line	63
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	0
	var	1
	pnull
	pnull
	int	0
	int	1
	line	66
	colm	17
	synt	any
	plus
	int	2
	line	66
	colm	15
	synt	any
	llist	2
	line	66
	colm	14
	synt	any
	invoke	1
	line	66
	colm	6
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	str	3
	line	68
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	5
	line	68
	colm	21
	synt	any
	llist	2
	line	68
	colm	18
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	0
	str	6
	line	69
	colm	5
	synt	any
	subsc
	pnull
	pnull
	int	0
	int	1
	line	69
	colm	20
	synt	any
	plus
	int	7
	line	69
	colm	18
	synt	any
	llist	2
	line	69
	colm	15
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	str	8
	line	70
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	9
	line	70
	colm	15
	synt	any
	llist	2
	line	70
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	0
	str	10
	line	71
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	11
	line	71
	colm	17
	synt	any
	llist	2
	line	71
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	str	12
	line	72
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	13
	line	72
	colm	18
	synt	any
	llist	2
	line	72
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	0
	str	14
	line	73
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	15
	line	73
	colm	19
	synt	any
	llist	2
	line	73
	colm	16
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	0
	str	16
	line	74
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	17
	line	74
	colm	21
	synt	any
	llist	2
	line	74
	colm	18
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	0
	str	18
	line	75
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	19
	line	75
	colm	20
	synt	any
	llist	2
	line	75
	colm	17
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	0
	str	20
	line	76
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	21
	line	76
	colm	15
	synt	any
	llist	2
	line	76
	colm	12
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	0
	str	22
	line	77
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	23
	line	77
	colm	17
	synt	any
	llist	2
	line	77
	colm	14
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	0
	str	24
	line	78
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	25
	line	78
	colm	16
	synt	any
	llist	2
	line	78
	colm	13
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	0
	str	26
	line	79
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	27
	line	79
	colm	18
	synt	any
	llist	2
	line	79
	colm	15
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	0
	str	28
	line	80
	colm	5
	synt	any
	subsc
	pnull
	pnull
	int	0
	int	1
	line	80
	colm	19
	synt	any
	plus
	int	29
	line	80
	colm	17
	synt	any
	llist	2
	line	80
	colm	14
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	0
	str	30
	line	81
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	31
	line	81
	colm	19
	synt	any
	llist	2
	line	81
	colm	16
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	0
	str	32
	line	82
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	33
	line	82
	colm	15
	synt	any
	llist	2
	line	82
	colm	12
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	0
	str	34
	line	83
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	35
	line	83
	colm	19
	synt	any
	llist	2
	line	83
	colm	16
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	0
	str	36
	line	84
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	37
	line	84
	colm	20
	synt	any
	llist	2
	line	84
	colm	17
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	pnull
	var	0
	str	38
	line	85
	colm	5
	synt	any
	subsc
	pnull
	int	1
	int	39
	line	85
	colm	22
	synt	any
	llist	2
	line	85
	colm	19
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	pnull
	var	0
	str	40
	line	86
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	41
	line	86
	colm	22
	synt	any
	llist	2
	line	86
	colm	19
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	0
	str	42
	line	87
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	43
	line	87
	colm	17
	synt	any
	llist	2
	line	87
	colm	14
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	0
	str	44
	line	88
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	45
	line	88
	colm	18
	synt	any
	llist	2
	line	88
	colm	15
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	0
	str	46
	line	89
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	47
	line	89
	colm	19
	synt	any
	llist	2
	line	89
	colm	16
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	pnull
	var	0
	str	48
	line	90
	colm	5
	synt	any
	subsc
	pnull
	pnull
	int	0
	int	1
	line	90
	colm	19
	synt	any
	plus
	int	49
	line	90
	colm	17
	synt	any
	llist	2
	line	90
	colm	14
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	pnull
	var	0
	str	50
	line	91
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	51
	line	91
	colm	16
	synt	any
	llist	2
	line	91
	colm	13
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	pnull
	var	0
	str	52
	line	92
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	53
	line	92
	colm	15
	synt	any
	llist	2
	line	92
	colm	12
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	pnull
	var	0
	str	54
	line	93
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	55
	line	93
	colm	20
	synt	any
	llist	2
	line	93
	colm	17
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	0
	str	56
	line	94
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	57
	line	94
	colm	22
	synt	any
	llist	2
	line	94
	colm	19
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	0
	str	58
	line	95
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	59
	line	95
	colm	19
	synt	any
	llist	2
	line	95
	colm	16
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	pnull
	var	0
	str	60
	line	96
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	61
	line	96
	colm	19
	synt	any
	llist	2
	line	96
	colm	16
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	pnull
	var	0
	str	62
	line	97
	colm	5
	synt	any
	subsc
	pnull
	pnull
	int	0
	int	1
	line	97
	colm	21
	synt	any
	plus
	int	63
	line	97
	colm	19
	synt	any
	llist	2
	line	97
	colm	16
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	pnull
	var	0
	str	64
	line	98
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	65
	line	98
	colm	19
	synt	any
	llist	2
	line	98
	colm	16
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	pnull
	var	0
	str	66
	line	99
	colm	5
	synt	any
	subsc
	pnull
	pnull
	int	0
	int	1
	line	99
	colm	22
	synt	any
	plus
	int	67
	line	99
	colm	20
	synt	any
	llist	2
	line	99
	colm	17
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	pnull
	var	0
	str	68
	line	100
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	69
	line	100
	colm	17
	synt	any
	llist	2
	line	100
	colm	14
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	pnull
	var	0
	str	70
	line	101
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	71
	line	101
	colm	19
	synt	any
	llist	2
	line	101
	colm	16
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	pnull
	var	0
	str	72
	line	102
	colm	5
	synt	any
	subsc
	pnull
	int	4
	int	73
	line	102
	colm	15
	synt	any
	llist	2
	line	102
	colm	12
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	pnull
	pnull
	var	0
	str	74
	line	103
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	75
	line	103
	colm	18
	synt	any
	llist	2
	line	103
	colm	15
	synt	any
	asgn
	unmark
lab L40
	pnull
	pnull
	var	0
	str	76
	line	104
	colm	5
	synt	any
	subsc
	pnull
	int	0
	int	77
	line	104
	colm	18
	synt	any
	llist	2
	line	104
	colm	15
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L41
	mark	L42
	var	0
	line	106
	colm	4
	synt	any
	pret
lab L42
	synt	any
	pfail
	unmark
lab L41
	pnull
	line	107
	colm	1
	synt	any
	pfail
	end
proc lex_error
	local	0,000000,yyerror
	con	0,010000,20,164,157,153,145,156,040,156,157,164,040,162,145,143,157,147,156,151,172,145,144
	declend
	line	109
	colm	11
	synt	any
	mark	L1
	var	0
	str	0
	line	110
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	111
	colm	1
	synt	any
	pfail
	end
proc uni_error
	local	0,001000,s
	local	1,000000,errors
	local	2,000000,yyerror
	con	0,002000,1,0
	con	1,010000,20,164,157,153,145,156,040,156,157,164,040,162,145,143,157,147,156,151,172,145,144
	con	2,002000,1,1
	declend
	line	113
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	114
	colm	4
	synt	any
	null
	int	0
	line	114
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	115
	colm	4
	synt	any
	null
	str	1
	line	115
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	2
	var	0
	line	116
	colm	11
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	1
	dup
	int	2
	line	117
	colm	11
	synt	any
	plus
	asgn
	unmark
lab L4
	pnull
	line	118
	colm	1
	synt	any
	pfail
	end
proc yylex2Normal
	local	0,000020,new_filename
	local	1,000020,rv
	local	2,000040,punc_table
	local	3,000000,init_csets
	local	4,000000,reswords
	local	5,000000,table
	local	6,000000,uni_error
	local	7,000000,do_literal
	local	8,000000,do_bang
	local	9,000000,do_mod
	local	10,000000,do_and
	local	11,000000,do_star
	local	12,000000,do_plus
	local	13,000000,do_minus
	local	14,000000,do_dot
	local	15,000000,do_slash
	local	16,000000,do_colon
	local	17,000000,do_less
	local	18,000000,do_equal
	local	19,000000,do_greater
	local	20,000000,do_qmark
	local	21,000000,do_at
	local	22,000000,do_backslash
	local	23,000000,do_caret
	local	24,000000,do_or
	local	25,000000,do_tilde
	local	26,000000,do_lparen
	local	27,000000,do_rparen
	local	28,000000,do_lbrack
	local	29,000000,do_rbrack
	local	30,000000,do_lbrace
	local	31,000000,do_rbrace
	local	32,000000,do_comma
	local	33,000000,do_semi
	local	34,000000,do_dollar
	local	35,000000,do_backquote
	local	36,000000,do_digits
	local	37,000000,do_letters
	local	38,000000,yycolno
	local	39,000000,yytext
	local	40,000000,pos
	local	41,000000,yylineno
	local	42,000000,integer
	local	43,000000,tab
	local	44,000000,many
	local	45,000000,find
	local	46,000000,yyfilename
	local	47,000000,tokflags
	local	48,000000,any
	local	49,000000,move
	con	0,010000,1,047
	con	1,010000,1,042
	con	2,010000,1,041
	con	3,010000,1,045
	con	4,010000,1,046
	con	5,010000,1,052
	con	6,010000,1,053
	con	7,010000,1,055
	con	8,010000,1,056
	con	9,010000,1,057
	con	10,010000,1,072
	con	11,010000,1,074
	con	12,010000,1,075
	con	13,010000,1,076
	con	14,010000,1,077
	con	15,010000,1,100
	con	16,010000,1,134
	con	17,010000,1,136
	con	18,010000,1,174
	con	19,010000,1,176
	con	20,010000,1,050
	con	21,010000,1,051
	con	22,010000,1,133
	con	23,010000,1,135
	con	24,010000,1,173
	con	25,010000,1,175
	con	26,010000,1,054
	con	27,010000,1,073
	con	28,010000,1,044
	con	29,010000,1,140
	con	30,010000,1,137
	con	31,002000,1,0
	con	32,010000,1,043
	con	33,010000,5,154,151,156,145,040
	con	34,010000,2,040,042
	con	35,010000,1,012
	con	36,002000,1,1
	con	37,002000,1,4
	con	38,020000,1,040
	con	39,020000,2,013,014
	con	40,020000,1,011
	con	41,002000,1,8
	declend
	line	123
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	var	3
	line	127
	colm	14
	synt	any
	invoke	0
	unmark
lab L4
	mark	L5
	pnull
	var	4
	var	4
	line	128
	colm	24
	synt	any
	invoke	0
	line	128
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	5
	var	6
	line	129
	colm	23
	synt	any
	invoke	1
	line	129
	colm	15
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	2
	str	0
	line	130
	colm	14
	synt	any
	subsc
	var	7
	line	130
	colm	20
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	str	1
	line	131
	colm	14
	synt	any
	subsc
	var	7
	line	131
	colm	21
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	2
	str	2
	line	132
	colm	14
	synt	any
	subsc
	var	8
	line	132
	colm	20
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	2
	str	3
	line	133
	colm	14
	synt	any
	subsc
	var	9
	line	133
	colm	20
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	2
	str	4
	line	134
	colm	14
	synt	any
	subsc
	var	10
	line	134
	colm	20
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	2
	str	5
	line	135
	colm	14
	synt	any
	subsc
	var	11
	line	135
	colm	20
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	2
	str	6
	line	136
	colm	14
	synt	any
	subsc
	var	12
	line	136
	colm	20
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	2
	str	7
	line	137
	colm	14
	synt	any
	subsc
	var	13
	line	137
	colm	20
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	2
	str	8
	line	138
	colm	14
	synt	any
	subsc
	var	14
	line	138
	colm	20
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	2
	str	9
	line	139
	colm	14
	synt	any
	subsc
	var	15
	line	139
	colm	20
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	2
	str	10
	line	140
	colm	14
	synt	any
	subsc
	var	16
	line	140
	colm	20
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	2
	str	11
	line	141
	colm	14
	synt	any
	subsc
	var	17
	line	141
	colm	20
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	2
	str	12
	line	142
	colm	14
	synt	any
	subsc
	var	18
	line	142
	colm	20
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	2
	str	13
	line	143
	colm	14
	synt	any
	subsc
	var	19
	line	143
	colm	20
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	2
	str	14
	line	144
	colm	14
	synt	any
	subsc
	var	20
	line	144
	colm	20
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	pnull
	var	2
	str	15
	line	145
	colm	14
	synt	any
	subsc
	var	21
	line	145
	colm	20
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	pnull
	var	2
	str	16
	line	146
	colm	14
	synt	any
	subsc
	var	22
	line	146
	colm	21
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	2
	str	17
	line	147
	colm	14
	synt	any
	subsc
	var	23
	line	147
	colm	20
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	2
	str	18
	line	148
	colm	14
	synt	any
	subsc
	var	24
	line	148
	colm	20
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	2
	str	19
	line	149
	colm	14
	synt	any
	subsc
	var	25
	line	149
	colm	20
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	pnull
	var	2
	str	20
	line	150
	colm	14
	synt	any
	subsc
	var	26
	line	150
	colm	20
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	pnull
	var	2
	str	21
	line	151
	colm	14
	synt	any
	subsc
	var	27
	line	151
	colm	20
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	pnull
	var	2
	str	22
	line	152
	colm	14
	synt	any
	subsc
	var	28
	line	152
	colm	20
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	pnull
	var	2
	str	23
	line	153
	colm	14
	synt	any
	subsc
	var	29
	line	153
	colm	20
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	2
	str	24
	line	154
	colm	14
	synt	any
	subsc
	var	30
	line	154
	colm	20
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	2
	str	25
	line	155
	colm	14
	synt	any
	subsc
	var	31
	line	155
	colm	20
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	pnull
	var	2
	str	26
	line	156
	colm	14
	synt	any
	subsc
	var	32
	line	156
	colm	20
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	pnull
	var	2
	str	27
	line	157
	colm	14
	synt	any
	subsc
	var	33
	line	157
	colm	20
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	pnull
	var	2
	str	28
	line	158
	colm	14
	synt	any
	subsc
	var	34
	line	158
	colm	20
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	pnull
	var	2
	str	29
	line	159
	colm	14
	synt	any
	subsc
	var	35
	line	159
	colm	20
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	line	160
	colm	4
	synt	every
	mark0
	pnull
	pnull
	var	2
	pnull
	line	160
	colm	22
	synt	any
	keywd	digits
	line	160
	colm	21
	synt	any
	bang
	line	160
	colm	20
	synt	any
	subsc
	var	36
	line	160
	colm	31
	synt	any
	asgn
	pop
lab L38
	efail
lab L39
	line	160
	colm	4
	synt	endevery
	unmark
lab L37
	line	161
	colm	4
	synt	every
	mark0
	pnull
	pnull
	var	2
	mark	L42
	str	30
	line	161
	colm	25
	synt	any
	esusp
	goto	L43
lab L42
	pnull
	line	161
	colm	28
	synt	any
	keywd	letters
	line	161
	colm	27
	synt	any
	bang
lab L43
	line	161
	colm	20
	synt	any
	subsc
	var	37
	line	161
	colm	38
	synt	any
	asgn
	pop
lab L40
	efail
lab L41
	line	161
	colm	4
	synt	endevery
	unmark
lab L2
	einit	L1
lab L3
	mark	L44
	pnull
	var	38
	dup
	pnull
	var	39
	line	164
	colm	16
	synt	any
	size
	line	164
	colm	12
	synt	any
	plus
	asgn
	unmark
lab L44
	mark	L45
lab L46
	line	166
	colm	4
	synt	repeat
	mark	L46
	mark	L49
	line	167
	colm	8
	synt	if
	mark0
	var	40
	int	31
	line	167
	colm	14
	synt	any
	invoke	1
	unmark
	line	167
	colm	23
	synt	any
	pfail
	line	167
	colm	8
	synt	endif
	unmark
lab L49
	mark	L50
	line	168
	colm	8
	synt	if
	mark0
	pnull
	str	32
	line	170
	colm	12
	synt	any
	tabmat
	unmark
	mark	L51
	line	171
	colm	16
	synt	if
	mark0
	pnull
	str	33
	line	171
	colm	19
	synt	any
	tabmat
	unmark
	line	172
	colm	20
	synt	if
	mark0
	pnull
	var	41
	var	42
	var	43
	var	44
	line	172
	colm	52
	synt	any
	keywd	digits
	line	172
	colm	51
	synt	any
	invoke	1
	line	172
	colm	46
	synt	any
	invoke	1
	line	172
	colm	42
	synt	any
	invoke	1
	line	172
	colm	32
	synt	any
	asgn
	unmark
	mark	L52
	pnull
	str	34
	line	173
	colm	24
	synt	any
	tabmat
	unmark
lab L52
	mark	L53
	pnull
	var	0
	var	43
	mark	L54
	var	45
	str	1
	line	174
	colm	48
	synt	any
	invoke	1
	line	174
	colm	54
	synt	any
	esusp
	goto	L55
lab L54
	int	31
lab L55
	line	174
	colm	43
	synt	any
	invoke	1
	line	174
	colm	37
	synt	any
	asgn
	unmark
lab L53
	line	175
	colm	24
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	175
	colm	27
	synt	any
	size
	int	31
	line	175
	colm	41
	synt	any
	numgt
	unmark
	pnull
	var	46
	var	0
	line	176
	colm	39
	synt	any
	asgn
	line	175
	colm	24
	synt	endif
	line	172
	colm	20
	synt	endif
	line	171
	colm	16
	synt	endif
	unmark
lab L51
	mark	L56
	var	43
	mark	L57
	var	45
	str	35
	line	180
	colm	24
	synt	any
	invoke	1
	line	180
	colm	31
	synt	any
	esusp
	goto	L58
lab L57
	int	31
lab L58
	line	180
	colm	19
	synt	any
	invoke	1
	unmark
lab L56
	unmark
	goto	L47
	line	168
	colm	8
	synt	endif
	unmark
lab L50
	mark	L59
	line	183
	colm	8
	synt	if
	mark0
	pnull
	str	35
	line	183
	colm	11
	synt	any
	tabmat
	unmark
	mark	L60
	pnull
	var	41
	dup
	int	36
	line	184
	colm	21
	synt	any
	plus
	asgn
	unmark
lab L60
	mark	L61
	pnull
	var	38
	int	36
	line	185
	colm	20
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	line	186
	colm	12
	synt	if
	mark0
	pnull
	var	47
	int	37
	line	186
	colm	24
	synt	any
	numlt
	unmark
	pnull
	var	47
	dup
	int	37
	line	187
	colm	25
	synt	any
	plus
	asgn
	line	186
	colm	12
	synt	endif
	unmark
lab L62
	unmark
	goto	L47
	line	183
	colm	8
	synt	endif
	unmark
lab L59
	mark	L63
	line	190
	colm	8
	synt	if
	mark0
	var	43
	var	48
	cset	38
	line	190
	colm	18
	synt	any
	invoke	1
	line	190
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L64
	pnull
	var	38
	dup
	int	36
	line	190
	colm	40
	synt	any
	plus
	asgn
	unmark
lab L64
	unmark
	goto	L47
	line	190
	colm	8
	synt	endif
	unmark
lab L63
	mark	L65
	line	191
	colm	8
	synt	if
	mark0
	var	43
	var	48
	cset	39
	line	191
	colm	18
	synt	any
	invoke	1
	line	191
	colm	14
	synt	any
	invoke	1
	unmark
	unmark
	goto	L47
	line	191
	colm	8
	synt	endif
	unmark
lab L65
	mark	L66
	line	192
	colm	8
	synt	if
	mark0
	var	43
	var	48
	cset	40
	line	192
	colm	18
	synt	any
	invoke	1
	line	192
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L67
	pnull
	var	38
	dup
	int	36
	line	193
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L67
	mark	L68
lab L69
	line	194
	colm	12
	synt	while
	mark0
	pnull
	pnull
	pnull
	var	38
	int	36
	line	194
	colm	26
	synt	any
	minus
	int	41
	line	194
	colm	30
	synt	any
	mod
	int	31
	line	194
	colm	34
	synt	any
	numne
	unmark
	mark	L69
	pnull
	var	38
	dup
	int	36
	line	194
	colm	50
	synt	any
	plus
	asgn
lab L70
	unmark
	goto	L69
lab L71
	line	194
	colm	12
	synt	endwhile
	unmark
lab L68
	unmark
	goto	L47
	line	192
	colm	8
	synt	endif
	unmark
lab L66
	mark	L72
	pnull
	var	39
	var	49
	int	36
	line	198
	colm	22
	synt	any
	invoke	1
	line	198
	colm	15
	synt	any
	asgn
	unmark
lab L72
	line	199
	colm	8
	synt	if
	mark0
	pnull
	var	1
	pnull
	var	2
	var	39
	line	199
	colm	27
	synt	any
	subsc
	line	199
	colm	35
	synt	any
	invoke	0
	line	199
	colm	14
	synt	any
	asgn
	unmark
	mark	L73
	var	1
	line	200
	colm	12
	synt	any
	pret
lab L73
	synt	any
	pfail
	line	199
	colm	8
	synt	endif
lab L47
	unmark
	goto	L46
lab L48
	line	166
	colm	4
	synt	endrepeat
	unmark
lab L45
	pnull
	line	203
	colm	1
	synt	any
	pfail
	end
proc do_letters
	local	0,000020,x
	local	1,000000,yytext
	local	2,000000,tab
	local	3,000000,many
	local	4,000000,idchars
	local	5,000000,reswords
	local	6,000000,tokflags
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	205
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	dup
	var	2
	var	3
	var	4
	line	207
	colm	24
	synt	any
	invoke	1
	line	207
	colm	19
	synt	any
	invoke	1
	line	207
	colm	11
	synt	any
	cat
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	pnull
	var	5
	var	1
	line	208
	colm	17
	synt	any
	subsc
	line	208
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	dup
	pnull
	var	0
	int	0
	line	209
	colm	18
	synt	any
	subsc
	line	209
	colm	13
	synt	any
	plus
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	0
	int	1
	line	210
	colm	12
	synt	any
	subsc
	line	210
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	211
	colm	1
	synt	any
	pfail
	end
proc do_digits
	local	0,000020,c
	local	1,000020,expstr
	local	2,000020,dsz
	local	3,000020,numdie
	local	4,000000,yytext
	local	5,000000,tab
	local	6,000000,many
	local	7,000000,tokflags
	local	8,000000,any
	local	9,000000,uni_error
	local	10,000000,R
	local	11,000000,string
	local	12,000000,integer
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,010000,1,056
	con	3,020000,2,145,105
	con	4,020000,2,053,055
	con	5,010000,0
	con	6,010000,21,155,141,154,146,157,162,155,145,144,040,162,145,141,154,040,156,165,155,142,145,162
	con	7,002000,3,308
	con	8,010000,24,162,145,141,154,040,156,165,155,142,145,162,040,157,165,164,040,157,146,040,162,141,156,147,145
	con	9,002000,3,259
	con	10,010000,1,055
	con	11,020000,2,162,122
	con	12,020000,2,153,113
	con	13,002000,4,1024
	con	14,020000,2,155,115
	con	15,020000,2,147,107
	con	16,002000,1,3
	con	17,020000,2,164,124
	con	18,002000,1,4
	con	19,020000,2,160,120
	con	20,002000,1,5
	con	21,020000,2,144,104
	con	22,010000,1,050
	con	23,010000,1,053
	con	24,010000,1,077
	con	25,010000,1,051
	con	26,010000,32,155,151,163,163,151,156,147,040,163,160,141,143,145,040,157,162,040,155,141,154,146,157,162,155,145,144,040,164,157,153,145,156
	con	27,002000,3,258
	declend
	line	213
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	dup
	var	5
	var	6
	line	216
	colm	36
	synt	any
	keywd	digits
	line	216
	colm	35
	synt	any
	invoke	1
	line	216
	colm	30
	synt	any
	invoke	1
	line	216
	colm	22
	synt	any
	cat
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	7
	dup
	pnull
	int	0
	int	1
	line	217
	colm	29
	synt	any
	plus
	line	217
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L2
	mark	L3
	line	218
	colm	15
	synt	ifelse
	mark	L4
	pnull
	var	4
	dup
	pnull
	str	2
	line	218
	colm	30
	synt	any
	tabmat
	line	218
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L6
	pnull
	var	4
	dup
	var	5
	var	6
	line	219
	colm	40
	synt	any
	keywd	digits
	line	219
	colm	39
	synt	any
	invoke	1
	line	219
	colm	34
	synt	any
	invoke	1
	line	219
	colm	26
	synt	any
	cat
	asgn
	unmark
lab L6
	mark	L7
	line	220
	colm	19
	synt	if
	mark0
	pnull
	var	4
	dup
	var	5
	var	8
	cset	3
	line	220
	colm	41
	synt	any
	invoke	1
	line	220
	colm	37
	synt	any
	invoke	1
	line	220
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L8
	pnull
	var	4
	dup
	var	5
	var	8
	cset	4
	line	221
	colm	42
	synt	any
	invoke	1
	line	221
	colm	38
	synt	any
	invoke	1
	line	221
	colm	30
	synt	any
	cat
	asgn
	unmark
lab L8
	mark	L9
	line	222
	colm	23
	synt	ifelse
	mark	L10
	mark	L12
	pnull
	var	1
	var	5
	var	6
	line	222
	colm	50
	synt	any
	keywd	digits
	line	222
	colm	49
	synt	any
	invoke	1
	line	222
	colm	44
	synt	any
	invoke	1
	line	222
	colm	38
	synt	any
	asgn
	unmark
	efail
lab L12
	pnull
	unmark
	mark	L13
	pnull
	var	1
	str	5
	line	223
	colm	33
	synt	any
	asgn
	unmark
lab L13
	var	9
	str	6
	line	224
	colm	35
	synt	any
	invoke	1
	goto	L11
lab L10
	line	226
	colm	28
	synt	if
	mark0
	pnull
	var	1
	int	7
	line	226
	colm	38
	synt	any
	numgt
	unmark
	var	9
	str	8
	line	227
	colm	35
	synt	any
	invoke	1
	line	226
	colm	28
	synt	endif
lab L11
	line	222
	colm	23
	synt	endifelse
	unmark
lab L9
	pnull
	var	4
	dup
	var	1
	line	228
	colm	30
	synt	any
	cat
	asgn
	line	220
	colm	19
	synt	endif
	unmark
lab L7
	mark	L14
	int	9
	line	230
	colm	19
	synt	any
	pret
lab L14
	synt	any
	pfail
	goto	L5
lab L4
	line	232
	colm	20
	synt	ifelse
	mark	L15
	pnull
	var	4
	dup
	var	5
	var	8
	cset	3
	line	232
	colm	42
	synt	any
	invoke	1
	line	232
	colm	38
	synt	any
	invoke	1
	line	232
	colm	30
	synt	any
	cat
	asgn
	unmark
	mark	L17
	pnull
	var	4
	dup
	pnull
	str	10
	line	233
	colm	31
	synt	any
	tabmat
	line	233
	colm	26
	synt	any
	cat
	asgn
	unmark
lab L17
	mark	L18
	line	234
	colm	19
	synt	ifelse
	mark	L19
	mark	L21
	pnull
	var	1
	var	5
	var	6
	line	234
	colm	46
	synt	any
	keywd	digits
	line	234
	colm	45
	synt	any
	invoke	1
	line	234
	colm	40
	synt	any
	invoke	1
	line	234
	colm	34
	synt	any
	asgn
	unmark
	efail
lab L21
	pnull
	unmark
	var	9
	str	6
	line	235
	colm	31
	synt	any
	invoke	1
	goto	L20
lab L19
	line	236
	colm	24
	synt	ifelse
	mark	L22
	pnull
	var	1
	int	7
	line	236
	colm	34
	synt	any
	numgt
	unmark
	var	9
	str	8
	line	237
	colm	31
	synt	any
	invoke	1
	goto	L23
lab L22
	pnull
	var	4
	dup
	var	1
	line	239
	colm	29
	synt	any
	cat
	asgn
lab L23
	line	236
	colm	24
	synt	endifelse
lab L20
	line	234
	colm	19
	synt	endifelse
	unmark
lab L18
	mark	L24
	int	9
	line	240
	colm	19
	synt	any
	pret
lab L24
	synt	any
	pfail
	goto	L16
lab L15
	mark	L25
	line	243
	colm	19
	synt	ifelse
	mark	L26
	pnull
	var	4
	dup
	var	5
	var	8
	cset	11
	line	243
	colm	41
	synt	any
	invoke	1
	line	243
	colm	37
	synt	any
	invoke	1
	line	243
	colm	29
	synt	any
	cat
	asgn
	unmark
	pnull
	var	4
	dup
	var	5
	var	6
	var	10
	line	244
	colm	42
	synt	any
	invoke	1
	line	244
	colm	37
	synt	any
	invoke	1
	line	244
	colm	29
	synt	any
	cat
	asgn
	goto	L27
lab L26
	line	246
	colm	24
	synt	ifelse
	mark	L28
	pnull
	var	0
	var	5
	var	8
	cset	12
	line	246
	colm	39
	synt	any
	invoke	1
	line	246
	colm	35
	synt	any
	invoke	1
	line	246
	colm	29
	synt	any
	asgn
	unmark
	pnull
	var	4
	var	11
	pnull
	var	4
	int	13
	line	247
	colm	46
	synt	any
	mult
	line	247
	colm	38
	synt	any
	invoke	1
	line	247
	colm	29
	synt	any
	asgn
	goto	L29
lab L28
	line	249
	colm	24
	synt	ifelse
	mark	L30
	pnull
	var	0
	var	5
	var	8
	cset	14
	line	249
	colm	39
	synt	any
	invoke	1
	line	249
	colm	35
	synt	any
	invoke	1
	line	249
	colm	29
	synt	any
	asgn
	unmark
	pnull
	var	4
	var	11
	pnull
	var	4
	pnull
	int	13
	int	1
	line	250
	colm	52
	synt	any
	power
	line	250
	colm	46
	synt	any
	mult
	line	250
	colm	38
	synt	any
	invoke	1
	line	250
	colm	29
	synt	any
	asgn
	goto	L31
lab L30
	line	252
	colm	24
	synt	ifelse
	mark	L32
	pnull
	var	0
	var	5
	var	8
	cset	15
	line	252
	colm	39
	synt	any
	invoke	1
	line	252
	colm	35
	synt	any
	invoke	1
	line	252
	colm	29
	synt	any
	asgn
	unmark
	pnull
	var	4
	var	11
	pnull
	var	4
	pnull
	int	13
	int	16
	line	253
	colm	52
	synt	any
	power
	line	253
	colm	46
	synt	any
	mult
	line	253
	colm	38
	synt	any
	invoke	1
	line	253
	colm	29
	synt	any
	asgn
	goto	L33
lab L32
	line	255
	colm	24
	synt	ifelse
	mark	L34
	pnull
	var	0
	var	5
	var	8
	cset	17
	line	255
	colm	39
	synt	any
	invoke	1
	line	255
	colm	35
	synt	any
	invoke	1
	line	255
	colm	29
	synt	any
	asgn
	unmark
	pnull
	var	4
	var	11
	pnull
	var	4
	pnull
	int	13
	int	18
	line	256
	colm	52
	synt	any
	power
	line	256
	colm	46
	synt	any
	mult
	line	256
	colm	38
	synt	any
	invoke	1
	line	256
	colm	29
	synt	any
	asgn
	goto	L35
lab L34
	line	258
	colm	24
	synt	ifelse
	mark	L36
	pnull
	var	0
	var	5
	var	8
	cset	19
	line	258
	colm	39
	synt	any
	invoke	1
	line	258
	colm	35
	synt	any
	invoke	1
	line	258
	colm	29
	synt	any
	asgn
	unmark
	pnull
	var	4
	var	11
	pnull
	var	4
	pnull
	int	13
	int	20
	line	259
	colm	52
	synt	any
	power
	line	259
	colm	46
	synt	any
	mult
	line	259
	colm	38
	synt	any
	invoke	1
	line	259
	colm	29
	synt	any
	asgn
	goto	L37
lab L36
	line	262
	colm	24
	synt	if
	mark0
	pnull
	var	0
	var	5
	var	8
	cset	21
	line	262
	colm	39
	synt	any
	invoke	1
	line	262
	colm	35
	synt	any
	invoke	1
	line	262
	colm	29
	synt	any
	asgn
	pop
	pnull
	var	2
	var	5
	var	6
	line	262
	colm	65
	synt	any
	keywd	digits
	line	262
	colm	64
	synt	any
	invoke	1
	line	262
	colm	59
	synt	any
	invoke	1
	line	262
	colm	53
	synt	any
	asgn
	unmark
	mark	L38
	pnull
	var	3
	var	12
	var	4
	line	263
	colm	39
	synt	any
	invoke	1
	line	263
	colm	29
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	4
	str	22
	line	264
	colm	29
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	line	265
	colm	22
	synt	every
	mark0
	pnull
	var	3
	line	265
	colm	28
	synt	any
	bang
	pop
	mark0
	mark	L43
	line	266
	colm	25
	synt	if
	mark0
	pnull
	var	4
	str	22
	line	266
	colm	35
	synt	any
	lexne
	unmark
	pnull
	var	4
	dup
	str	23
	line	266
	colm	55
	synt	any
	cat
	asgn
	line	266
	colm	25
	synt	endif
	unmark
lab L43
	pnull
	var	4
	dup
	pnull
	str	24
	var	2
	line	267
	colm	41
	synt	any
	cat
	line	267
	colm	32
	synt	any
	cat
	asgn
	unmark
lab L41
	efail
lab L42
	line	265
	colm	22
	synt	endevery
	unmark
lab L40
	pnull
	var	4
	dup
	str	25
	line	269
	colm	29
	synt	any
	cat
	asgn
	line	262
	colm	24
	synt	endif
lab L37
	line	258
	colm	24
	synt	endifelse
lab L35
	line	255
	colm	24
	synt	endifelse
lab L33
	line	252
	colm	24
	synt	endifelse
lab L31
	line	249
	colm	24
	synt	endifelse
lab L29
	line	246
	colm	24
	synt	endifelse
lab L27
	line	243
	colm	19
	synt	endifelse
	unmark
lab L25
	mark	L44
	line	271
	colm	19
	synt	if
	mark0
	pnull
	var	0
	line	271
	colm	22
	synt	any
	nonnull
	pop
	var	8
	line	271
	colm	31
	synt	any
	keywd	letters
	line	271
	colm	30
	synt	any
	invoke	1
	unmark
	var	9
	str	26
	line	272
	colm	31
	synt	any
	invoke	1
	line	271
	colm	19
	synt	endif
	unmark
lab L44
	mark	L45
	int	27
	line	274
	colm	19
	synt	any
	pret
lab L45
	synt	any
	pfail
lab L16
	line	232
	colm	20
	synt	endifelse
lab L5
	line	218
	colm	15
	synt	endifelse
	unmark
lab L3
	pnull
	line	276
	colm	1
	synt	any
	pfail
	end
proc do_dollar
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,050
	con	1,002000,1,1
	con	2,002000,3,374
	con	3,010000,1,051
	con	4,002000,1,2
	con	5,002000,3,375
	con	6,010000,1,074
	con	7,002000,3,372
	con	8,010000,1,076
	con	9,002000,3,373
	con	10,002000,3,376
	declend
	line	278
	colm	11
	synt	any
	mark	L1
	line	279
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	279
	colm	30
	synt	any
	tabmat
	line	279
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L2
	pnull
	var	1
	dup
	int	1
	line	279
	colm	51
	synt	any
	plus
	asgn
	unmark
lab L2
	mark	L3
	int	2
	line	279
	colm	58
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	279
	colm	15
	synt	endif
	unmark
lab L1
	mark	L4
	line	280
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	3
	line	280
	colm	30
	synt	any
	tabmat
	line	280
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L5
	pnull
	var	1
	dup
	int	4
	line	280
	colm	51
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	int	5
	line	280
	colm	58
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	280
	colm	15
	synt	endif
	unmark
lab L4
	mark	L7
	line	281
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	6
	line	281
	colm	30
	synt	any
	tabmat
	line	281
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L8
	pnull
	var	1
	dup
	int	1
	line	281
	colm	51
	synt	any
	plus
	asgn
	unmark
lab L8
	mark	L9
	int	7
	line	281
	colm	58
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	281
	colm	15
	synt	endif
	unmark
lab L7
	mark	L10
	line	282
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	8
	line	282
	colm	30
	synt	any
	tabmat
	line	282
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L11
	pnull
	var	1
	dup
	int	4
	line	282
	colm	51
	synt	any
	plus
	asgn
	unmark
lab L11
	mark	L12
	int	9
	line	282
	colm	58
	synt	any
	pret
lab L12
	synt	any
	pfail
	line	282
	colm	15
	synt	endif
	unmark
lab L10
	mark	L13
	mark	L14
	int	10
	line	286
	colm	15
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	287
	colm	1
	synt	any
	pfail
	end
proc do_comma
	con	0,002000,3,367
	declend
	line	289
	colm	11
	synt	any
	mark	L1
	mark	L2
	int	0
	line	290
	colm	5
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	291
	colm	1
	synt	any
	pfail
	end
proc do_lbrack
	local	0,000000,tokflags
	con	0,002000,1,1
	con	1,002000,3,372
	declend
	line	293
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	294
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	294
	colm	17
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	295
	colm	1
	synt	any
	pfail
	end
proc do_rbrack
	local	0,000000,tokflags
	con	0,002000,1,2
	con	1,002000,3,373
	declend
	line	297
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	298
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	298
	colm	17
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	299
	colm	1
	synt	any
	pfail
	end
proc do_lbrace
	local	0,000000,tokflags
	con	0,002000,1,1
	con	1,002000,3,374
	declend
	line	301
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	302
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	302
	colm	17
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	303
	colm	1
	synt	any
	pfail
	end
proc do_rbrace
	local	0,000000,tokflags
	con	0,002000,1,2
	con	1,002000,3,375
	declend
	line	305
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	306
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	306
	colm	17
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	307
	colm	1
	synt	any
	pfail
	end
proc do_semi
	con	0,002000,3,371
	declend
	line	309
	colm	11
	synt	any
	mark	L1
	mark	L2
	int	0
	line	310
	colm	5
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	311
	colm	1
	synt	any
	pfail
	end
proc do_lparen
	local	0,000000,tokflags
	con	0,002000,1,1
	con	1,002000,3,364
	declend
	line	313
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	314
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	314
	colm	21
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	315
	colm	1
	synt	any
	pfail
	end
proc do_rparen
	local	0,000000,tokflags
	con	0,002000,1,2
	con	1,002000,3,365
	declend
	line	317
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	318
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	318
	colm	21
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	319
	colm	1
	synt	any
	pfail
	end
proc do_tilde
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,075
	con	1,010000,2,072,075
	con	2,002000,3,363
	con	3,002000,1,1
	con	4,002000,3,362
	con	5,002000,3,361
	con	6,002000,3,360
	con	7,002000,3,359
	con	8,002000,3,358
	con	9,002000,3,357
	declend
	line	321
	colm	11
	synt	any
	mark	L1
	line	322
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	322
	colm	30
	synt	any
	tabmat
	line	322
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L2
	line	323
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	323
	colm	34
	synt	any
	tabmat
	line	323
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L3
	line	324
	colm	23
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	324
	colm	38
	synt	any
	tabmat
	line	324
	colm	33
	synt	any
	cat
	asgn
	unmark
	mark	L4
	line	325
	colm	27
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	325
	colm	42
	synt	any
	tabmat
	line	325
	colm	37
	synt	any
	cat
	asgn
	unmark
	mark	L5
	int	2
	line	325
	colm	54
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	325
	colm	27
	synt	endif
	unmark
lab L4
	mark	L6
	pnull
	var	1
	dup
	int	3
	line	326
	colm	36
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	int	4
	line	327
	colm	27
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	324
	colm	23
	synt	endif
	unmark
lab L3
	mark	L8
	line	329
	colm	23
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	329
	colm	38
	synt	any
	tabmat
	line	329
	colm	33
	synt	any
	cat
	asgn
	unmark
	mark	L9
	int	5
	line	329
	colm	50
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	329
	colm	23
	synt	endif
	unmark
lab L8
	mark	L10
	pnull
	var	1
	dup
	int	3
	line	330
	colm	32
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	int	6
	line	331
	colm	23
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	323
	colm	19
	synt	endif
	unmark
lab L2
	mark	L12
	line	333
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	333
	colm	34
	synt	any
	tabmat
	line	333
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L13
	int	7
	line	333
	colm	47
	synt	any
	pret
lab L13
	synt	any
	pfail
	line	333
	colm	19
	synt	endif
	unmark
lab L12
	mark	L14
	pnull
	var	1
	dup
	int	3
	line	334
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L14
	mark	L15
	int	8
	line	335
	colm	19
	synt	any
	pret
lab L15
	synt	any
	pfail
	line	322
	colm	15
	synt	endif
	unmark
lab L1
	mark	L16
	pnull
	var	1
	dup
	int	3
	line	337
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L16
	mark	L17
	mark	L18
	int	9
	line	338
	colm	15
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	339
	colm	1
	synt	any
	pfail
	end
proc do_or
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,174
	con	1,010000,2,072,075
	con	2,002000,3,356
	con	3,002000,1,1
	con	4,002000,3,355
	con	5,002000,3,354
	con	6,002000,3,353
	con	7,002000,3,352
	declend
	line	341
	colm	11
	synt	any
	mark	L1
	line	342
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	342
	colm	30
	synt	any
	tabmat
	line	342
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L2
	line	343
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	343
	colm	34
	synt	any
	tabmat
	line	343
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L3
	line	344
	colm	23
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	344
	colm	38
	synt	any
	tabmat
	line	344
	colm	33
	synt	any
	cat
	asgn
	unmark
	mark	L4
	int	2
	line	344
	colm	49
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	344
	colm	23
	synt	endif
	unmark
lab L3
	mark	L5
	pnull
	var	1
	dup
	int	3
	line	345
	colm	32
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	int	4
	line	346
	colm	23
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	343
	colm	19
	synt	endif
	unmark
lab L2
	mark	L7
	line	348
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	348
	colm	34
	synt	any
	tabmat
	line	348
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L8
	int	5
	line	348
	colm	47
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	348
	colm	19
	synt	endif
	unmark
lab L7
	mark	L9
	pnull
	var	1
	dup
	int	3
	line	349
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L9
	mark	L10
	int	6
	line	350
	colm	19
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	342
	colm	15
	synt	endif
	unmark
lab L1
	mark	L11
	pnull
	var	1
	dup
	int	3
	line	352
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L11
	mark	L12
	mark	L13
	int	7
	line	353
	colm	15
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	354
	colm	1
	synt	any
	pfail
	end
proc do_caret
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,351
	con	2,002000,1,1
	con	3,002000,3,350
	declend
	line	356
	colm	11
	synt	any
	mark	L1
	line	357
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	357
	colm	20
	synt	any
	tabmat
	line	357
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L2
	int	1
	line	357
	colm	34
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	357
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	1
	dup
	int	2
	line	358
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	int	3
	line	359
	colm	5
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	360
	colm	1
	synt	any
	pfail
	end
proc do_backslash
	local	0,000000,tokflags
	con	0,002000,1,1
	con	1,002000,3,349
	declend
	line	362
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	363
	colm	13
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	364
	colm	5
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	365
	colm	1
	synt	any
	pfail
	end
proc do_at
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,348
	con	2,010000,2,076,076
	con	3,002000,1,1
	con	4,002000,1,2
	con	5,002000,3,386
	con	6,010000,1,076
	con	7,002000,3,385
	con	8,002000,3,347
	declend
	line	367
	colm	11
	synt	any
	mark	L1
	line	368
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	368
	colm	20
	synt	any
	tabmat
	line	368
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L2
	int	1
	line	368
	colm	33
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	368
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	line	369
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	2
	line	369
	colm	20
	synt	any
	tabmat
	line	369
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L4
	pnull
	var	1
	dup
	pnull
	int	3
	int	4
	line	370
	colm	23
	synt	any
	plus
	line	370
	colm	17
	synt	any
	plus
	asgn
	unmark
lab L4
	mark	L5
	int	5
	line	371
	colm	8
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	369
	colm	5
	synt	endif
	unmark
lab L3
	mark	L6
	line	373
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	6
	line	373
	colm	20
	synt	any
	tabmat
	line	373
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L7
	pnull
	var	1
	dup
	pnull
	int	3
	int	4
	line	374
	colm	23
	synt	any
	plus
	line	374
	colm	17
	synt	any
	plus
	asgn
	unmark
lab L7
	mark	L8
	int	7
	line	375
	colm	8
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	373
	colm	5
	synt	endif
	unmark
lab L6
	mark	L9
	pnull
	var	1
	dup
	int	3
	line	378
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	int	8
	line	379
	colm	5
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	380
	colm	1
	synt	any
	pfail
	end
proc do_qmark
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,346
	con	2,010000,1,077
	con	3,002000,3,378
	con	4,002000,1,1
	con	5,002000,3,345
	declend
	line	382
	colm	11
	synt	any
	mark	L1
	line	383
	colm	15
	synt	ifelse
	mark	L2
	pnull
	var	0
	dup
	pnull
	str	0
	line	383
	colm	30
	synt	any
	tabmat
	line	383
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L4
	int	1
	line	383
	colm	43
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	384
	colm	20
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	2
	line	384
	colm	35
	synt	any
	tabmat
	line	384
	colm	30
	synt	any
	cat
	asgn
	unmark
	mark	L5
	int	3
	line	384
	colm	47
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	384
	colm	20
	synt	endif
lab L3
	line	383
	colm	15
	synt	endifelse
	unmark
lab L1
	mark	L6
	pnull
	var	1
	dup
	int	4
	line	385
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	mark	L8
	int	5
	line	386
	colm	15
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	387
	colm	1
	synt	any
	pfail
	end
proc do_equal
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,075
	con	1,010000,2,072,075
	con	2,002000,3,336
	con	3,002000,1,1
	con	4,002000,3,335
	con	5,002000,3,334
	con	6,002000,3,333
	con	7,002000,3,332
	con	8,010000,1,076
	con	9,002000,3,383
	con	10,002000,3,331
	declend
	line	389
	colm	11
	synt	any
	mark	L1
	line	390
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	390
	colm	30
	synt	any
	tabmat
	line	390
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L2
	line	391
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	391
	colm	34
	synt	any
	tabmat
	line	391
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L3
	line	392
	colm	23
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	392
	colm	38
	synt	any
	tabmat
	line	392
	colm	33
	synt	any
	cat
	asgn
	unmark
	mark	L4
	int	2
	line	392
	colm	49
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	392
	colm	23
	synt	endif
	unmark
lab L3
	mark	L5
	pnull
	var	1
	dup
	int	3
	line	393
	colm	32
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	int	4
	line	394
	colm	23
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	391
	colm	19
	synt	endif
	unmark
lab L2
	mark	L7
	line	396
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	396
	colm	34
	synt	any
	tabmat
	line	396
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L8
	int	5
	line	396
	colm	47
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	396
	colm	19
	synt	endif
	unmark
lab L7
	mark	L9
	pnull
	var	1
	dup
	int	3
	line	397
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L9
	mark	L10
	int	6
	line	398
	colm	19
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	390
	colm	15
	synt	endif
	unmark
lab L1
	mark	L11
	line	400
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	400
	colm	30
	synt	any
	tabmat
	line	400
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L12
	int	7
	line	400
	colm	43
	synt	any
	pret
lab L12
	synt	any
	pfail
	line	400
	colm	15
	synt	endif
	unmark
lab L11
	mark	L13
	line	402
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	8
	line	402
	colm	30
	synt	any
	tabmat
	line	402
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L14
	int	9
	line	402
	colm	42
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	402
	colm	15
	synt	endif
	unmark
lab L13
	mark	L15
	pnull
	var	1
	dup
	int	3
	line	404
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L15
	mark	L16
	mark	L17
	int	10
	line	405
	colm	15
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	406
	colm	1
	synt	any
	pfail
	end
proc do_greater
	local	0,000000,yytext
	local	1,000000,next_gt_is_ender
	local	2,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,338
	con	2,010000,1,076
	con	3,002000,3,342
	con	4,010000,1,075
	con	5,002000,3,344
	con	6,002000,3,343
	con	7,002000,3,341
	con	8,002000,3,340
	con	9,002000,3,339
	con	10,002000,1,2
	con	11,002000,3,337
	declend
	line	410
	colm	11
	synt	any
	mark	L1
	line	411
	colm	4
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	411
	colm	19
	synt	any
	tabmat
	line	411
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L2
	int	1
	line	411
	colm	32
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	411
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	line	412
	colm	4
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	2
	line	412
	colm	19
	synt	any
	tabmat
	line	412
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L4
	line	413
	colm	7
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	413
	colm	22
	synt	any
	tabmat
	line	413
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L5
	int	3
	line	413
	colm	35
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	413
	colm	7
	synt	endif
	unmark
lab L4
	mark	L6
	line	414
	colm	7
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	414
	colm	22
	synt	any
	tabmat
	line	414
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L7
	line	415
	colm	10
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	415
	colm	25
	synt	any
	tabmat
	line	415
	colm	20
	synt	any
	cat
	asgn
	unmark
	mark	L8
	int	5
	line	415
	colm	37
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	415
	colm	10
	synt	endif
	unmark
lab L7
	mark	L9
	int	6
	line	416
	colm	10
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	414
	colm	7
	synt	endif
	unmark
lab L6
	mark	L10
	int	7
	line	418
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	412
	colm	4
	synt	endif
	unmark
lab L3
	mark	L11
	line	420
	colm	4
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	420
	colm	19
	synt	any
	tabmat
	line	420
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L12
	line	421
	colm	7
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	421
	colm	22
	synt	any
	tabmat
	line	421
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L13
	int	8
	line	421
	colm	35
	synt	any
	pret
lab L13
	synt	any
	pfail
	line	421
	colm	7
	synt	endif
	unmark
lab L12
	mark	L14
	int	9
	line	422
	colm	7
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	420
	colm	4
	synt	endif
	unmark
lab L11
	mark	L15
	line	424
	colm	4
	synt	if
	mark0
	pnull
	var	1
	line	424
	colm	7
	synt	any
	nonnull
	unmark
	mark	L16
	pnull
	var	2
	dup
	int	10
	line	425
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L16
	pnull
	var	1
	line	426
	colm	27
	synt	any
	keywd	null
	line	426
	colm	24
	synt	any
	asgn
	line	424
	colm	4
	synt	endif
	unmark
lab L15
	mark	L17
	mark	L18
	int	11
	line	428
	colm	4
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	430
	colm	1
	synt	any
	pfail
	end
proc do_less
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,100
	con	1,002000,1,1
	con	2,002000,1,2
	con	3,002000,3,387
	con	4,010000,2,072,075
	con	5,002000,3,322
	con	6,010000,1,055
	con	7,010000,1,076
	con	8,002000,3,324
	con	9,002000,3,323
	con	10,010000,1,074
	con	11,002000,3,388
	con	12,002000,3,326
	con	13,010000,1,075
	con	14,002000,3,328
	con	15,002000,3,327
	con	16,002000,3,325
	con	17,002000,3,330
	con	18,002000,3,329
	con	19,002000,3,321
	declend
	line	432
	colm	11
	synt	any
	mark	L1
	line	433
	colm	4
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	433
	colm	19
	synt	any
	tabmat
	line	433
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L2
	pnull
	var	1
	dup
	pnull
	int	1
	int	2
	line	434
	colm	22
	synt	any
	plus
	line	434
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L2
	mark	L3
	int	3
	line	435
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	433
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
	line	437
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	437
	colm	30
	synt	any
	tabmat
	line	437
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L5
	int	5
	line	437
	colm	43
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	437
	colm	15
	synt	endif
	unmark
lab L4
	mark	L6
	line	438
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	6
	line	438
	colm	30
	synt	any
	tabmat
	line	438
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L7
	line	439
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	7
	line	439
	colm	34
	synt	any
	tabmat
	line	439
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L8
	int	8
	line	439
	colm	46
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	439
	colm	19
	synt	endif
	unmark
lab L7
	mark	L9
	int	9
	line	440
	colm	19
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	438
	colm	15
	synt	endif
	unmark
lab L6
	mark	L10
	line	442
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	10
	line	442
	colm	30
	synt	any
	tabmat
	line	442
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L11
	line	443
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	443
	colm	34
	synt	any
	tabmat
	line	443
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L12
	pnull
	var	1
	dup
	pnull
	int	1
	int	2
	line	444
	colm	37
	synt	any
	plus
	line	444
	colm	31
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	int	11
	line	445
	colm	22
	synt	any
	pret
lab L13
	synt	any
	pfail
	line	443
	colm	19
	synt	endif
	unmark
lab L11
	mark	L14
	line	447
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	447
	colm	34
	synt	any
	tabmat
	line	447
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L15
	int	12
	line	447
	colm	47
	synt	any
	pret
lab L15
	synt	any
	pfail
	line	447
	colm	19
	synt	endif
	unmark
lab L14
	mark	L16
	line	448
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	13
	line	448
	colm	34
	synt	any
	tabmat
	line	448
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L17
	line	449
	colm	23
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	449
	colm	38
	synt	any
	tabmat
	line	449
	colm	33
	synt	any
	cat
	asgn
	unmark
	mark	L18
	int	14
	line	449
	colm	50
	synt	any
	pret
lab L18
	synt	any
	pfail
	line	449
	colm	23
	synt	endif
	unmark
lab L17
	mark	L19
	int	15
	line	450
	colm	23
	synt	any
	pret
lab L19
	synt	any
	pfail
	line	448
	colm	19
	synt	endif
	unmark
lab L16
	mark	L20
	int	16
	line	452
	colm	19
	synt	any
	pret
lab L20
	synt	any
	pfail
	line	442
	colm	15
	synt	endif
	unmark
lab L10
	mark	L21
	line	454
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	13
	line	454
	colm	30
	synt	any
	tabmat
	line	454
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L22
	line	455
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	455
	colm	34
	synt	any
	tabmat
	line	455
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L23
	int	17
	line	455
	colm	47
	synt	any
	pret
lab L23
	synt	any
	pfail
	line	455
	colm	19
	synt	endif
	unmark
lab L22
	mark	L24
	int	18
	line	456
	colm	19
	synt	any
	pret
lab L24
	synt	any
	pfail
	line	454
	colm	15
	synt	endif
	unmark
lab L21
	mark	L25
	mark	L26
	int	19
	line	458
	colm	15
	synt	any
	pret
lab L26
	synt	any
	pfail
	unmark
lab L25
	pnull
	line	459
	colm	1
	synt	any
	pfail
	end
proc do_colon
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,075
	con	1,010000,1,072
	con	2,002000,3,320
	con	3,002000,3,319
	con	4,002000,1,1
	con	5,002000,3,370
	con	6,002000,3,369
	declend
	line	461
	colm	11
	synt	any
	mark	L1
	line	462
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	462
	colm	30
	synt	any
	tabmat
	line	462
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L2
	line	463
	colm	19
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	463
	colm	34
	synt	any
	tabmat
	line	463
	colm	29
	synt	any
	cat
	asgn
	unmark
	mark	L3
	int	2
	line	463
	colm	46
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	463
	colm	19
	synt	endif
	unmark
lab L2
	mark	L4
	int	3
	line	464
	colm	19
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	462
	colm	15
	synt	endif
	unmark
lab L1
	mark	L5
	line	466
	colm	15
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	466
	colm	30
	synt	any
	tabmat
	line	466
	colm	25
	synt	any
	cat
	asgn
	unmark
	mark	L6
	pnull
	var	1
	dup
	int	4
	line	467
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	int	5
	line	468
	colm	19
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	466
	colm	15
	synt	endif
	unmark
lab L5
	mark	L8
	mark	L9
	int	6
	line	470
	colm	15
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	471
	colm	1
	synt	any
	pfail
	end
proc do_slash
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,318
	con	2,002000,1,1
	con	3,002000,3,317
	declend
	line	473
	colm	11
	synt	any
	mark	L1
	line	474
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	474
	colm	20
	synt	any
	tabmat
	line	474
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L2
	int	1
	line	474
	colm	33
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	474
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	1
	dup
	int	2
	line	475
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	int	3
	line	476
	colm	5
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	477
	colm	1
	synt	any
	pfail
	end
proc do_dot
	local	0,000000,yytext
	local	1,000000,tab
	local	2,000000,many
	local	3,000000,tokflags
	local	4,000000,next_gt_is_ender
	local	5,000000,move
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,3,259
	con	3,010000,1,174
	con	4,002000,3,380
	con	5,010000,1,076
	con	6,002000,3,316
	con	7,002000,3,384
	con	8,010000,1,044
	declend
	line	479
	colm	11
	synt	any
	mark	L1
	line	480
	colm	5
	synt	ifelse
	mark	L2
	pnull
	var	0
	dup
	var	1
	var	2
	line	480
	colm	29
	synt	any
	keywd	digits
	line	480
	colm	28
	synt	any
	invoke	1
	line	480
	colm	23
	synt	any
	invoke	1
	line	480
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L4
	pnull
	var	3
	dup
	pnull
	int	0
	int	1
	line	481
	colm	23
	synt	any
	plus
	line	481
	colm	18
	synt	any
	plus
	asgn
	unmark
lab L4
	mark	L5
	int	2
	line	482
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	goto	L3
lab L2
	line	484
	colm	10
	synt	ifelse
	mark	L6
	pnull
	var	0
	dup
	pnull
	str	3
	line	484
	colm	25
	synt	any
	tabmat
	line	484
	colm	20
	synt	any
	cat
	asgn
	unmark
	mark	L8
	int	4
	line	484
	colm	37
	synt	any
	pret
lab L8
	synt	any
	pfail
	goto	L7
lab L6
	line	485
	colm	10
	synt	ifelse
	mark	L9
	pnull
	var	0
	dup
	pnull
	str	5
	line	485
	colm	25
	synt	any
	tabmat
	line	485
	colm	20
	synt	any
	cat
	asgn
	unmark
	line	487
	colm	8
	synt	ifelse
	mark	L11
	pnull
	var	4
	int	0
	line	487
	colm	28
	synt	any
	eqv
	unmark
	mark	L13
	var	5
	pnull
	int	0
	line	488
	colm	16
	synt	any
	neg
	line	488
	colm	15
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	var	3
	dup
	int	0
	line	489
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L14
	mark	L15
	int	6
	line	490
	colm	11
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L12
lab L11
	mark	L16
	int	7
	line	493
	colm	8
	synt	any
	pret
lab L16
	synt	any
	pfail
lab L12
	line	487
	colm	8
	synt	endifelse
	goto	L10
lab L9
	line	496
	colm	10
	synt	ifelse
	mark	L17
	pnull
	var	0
	dup
	pnull
	str	8
	line	496
	colm	25
	synt	any
	tabmat
	line	496
	colm	20
	synt	any
	cat
	asgn
	unmark
	mark	L19
	int	7
	line	496
	colm	37
	synt	any
	pret
lab L19
	synt	any
	pfail
	goto	L18
lab L17
	mark	L20
	pnull
	var	3
	dup
	int	0
	line	498
	colm	18
	synt	any
	plus
	asgn
	unmark
lab L20
	mark	L21
	int	6
	line	499
	colm	9
	synt	any
	pret
lab L21
	synt	any
	pfail
lab L18
	line	496
	colm	10
	synt	endifelse
lab L10
	line	485
	colm	10
	synt	endifelse
lab L7
	line	484
	colm	10
	synt	endifelse
lab L3
	line	480
	colm	5
	synt	endifelse
	unmark
lab L1
	pnull
	line	501
	colm	1
	synt	any
	pfail
	end
proc do_minus
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,1,072
	con	1,010000,1,075
	con	2,002000,3,313
	con	3,002000,3,368
	con	4,010000,1,055
	con	5,010000,2,072,075
	con	6,002000,3,315
	con	7,002000,1,1
	con	8,002000,3,314
	con	9,010000,1,076
	con	10,002000,3,382
	con	11,002000,3,312
	declend
	line	503
	colm	11
	synt	any
	mark	L1
	line	504
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	504
	colm	20
	synt	any
	tabmat
	line	504
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L2
	line	505
	colm	9
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	1
	line	505
	colm	24
	synt	any
	tabmat
	line	505
	colm	19
	synt	any
	cat
	asgn
	unmark
	mark	L3
	int	2
	line	505
	colm	36
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	505
	colm	9
	synt	endif
	unmark
lab L2
	mark	L4
	int	3
	line	506
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	504
	colm	5
	synt	endif
	unmark
lab L1
	mark	L5
	line	508
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	4
	line	508
	colm	20
	synt	any
	tabmat
	line	508
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L6
	line	509
	colm	9
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	5
	line	509
	colm	24
	synt	any
	tabmat
	line	509
	colm	19
	synt	any
	cat
	asgn
	unmark
	mark	L7
	int	6
	line	509
	colm	37
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	509
	colm	9
	synt	endif
	unmark
lab L6
	mark	L8
	pnull
	var	1
	dup
	int	7
	line	510
	colm	18
	synt	any
	plus
	asgn
	unmark
lab L8
	mark	L9
	int	8
	line	511
	colm	9
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	508
	colm	5
	synt	endif
	unmark
lab L5
	mark	L10
	line	513
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	9
	line	513
	colm	20
	synt	any
	tabmat
	line	513
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L11
	int	10
	line	514
	colm	9
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	513
	colm	5
	synt	endif
	unmark
lab L10
	mark	L12
	pnull
	var	1
	dup
	int	7
	line	516
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	mark	L14
	int	11
	line	517
	colm	5
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	518
	colm	1
	synt	any
	pfail
	end
proc do_plus
	local	0,000000,yytoken
	local	1,000000,yycolno
	local	2,000000,yytext
	local	3,000000,warning
	local	4,000000,tokflags
	con	0,010000,1,072
	con	1,002000,1,1
	con	2,010000,2,072,053
	con	3,010000,41,164,157,153,145,156,040,155,141,171,040,142,145,040,155,141,154,146,157,162,155,145,144,054,040,144,151,144,040,171,157,165,040,155,145,141,156,040,053,072,040,077
	con	4,010000,1,053
	con	5,010000,1,075
	con	6,002000,3,309
	con	7,002000,3,366
	con	8,010000,2,072,075
	con	9,002000,3,311
	con	10,002000,3,310
	con	11,002000,3,308
	declend
	line	520
	colm	11
	synt	any
	mark	L1
	line	522
	colm	4
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	522
	colm	8
	synt	any
	nonnull
	line	522
	colm	17
	synt	any
	field	s
	str	0
	line	522
	colm	20
	synt	any
	lexeq
	pop
	pnull
	pnull
	pnull
	var	0
	line	522
	colm	36
	synt	any
	field	column
	int	1
	line	522
	colm	44
	synt	any
	plus
	var	1
	line	522
	colm	48
	synt	any
	numeq
	unmark
	mark	L2
	pnull
	var	2
	str	2
	line	523
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	3
	str	3
	line	524
	colm	14
	synt	any
	invoke	1
	unmark
lab L3
	pnull
	var	2
	str	4
	line	525
	colm	14
	synt	any
	asgn
	line	522
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
	line	527
	colm	4
	synt	if
	mark0
	pnull
	var	2
	dup
	pnull
	str	0
	line	527
	colm	19
	synt	any
	tabmat
	line	527
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L5
	line	528
	colm	7
	synt	if
	mark0
	pnull
	var	2
	dup
	pnull
	str	5
	line	528
	colm	22
	synt	any
	tabmat
	line	528
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L6
	int	6
	line	528
	colm	34
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	528
	colm	7
	synt	endif
	unmark
lab L5
	mark	L7
	int	7
	line	529
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	527
	colm	4
	synt	endif
	unmark
lab L4
	mark	L8
	line	531
	colm	4
	synt	if
	mark0
	pnull
	var	2
	dup
	pnull
	str	4
	line	531
	colm	19
	synt	any
	tabmat
	line	531
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L9
	line	532
	colm	7
	synt	if
	mark0
	pnull
	var	2
	dup
	pnull
	str	8
	line	532
	colm	22
	synt	any
	tabmat
	line	532
	colm	17
	synt	any
	cat
	asgn
	unmark
	mark	L10
	int	9
	line	532
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	532
	colm	7
	synt	endif
	unmark
lab L9
	mark	L11
	pnull
	var	4
	dup
	int	1
	line	533
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L11
	mark	L12
	int	10
	line	534
	colm	7
	synt	any
	pret
lab L12
	synt	any
	pfail
	line	531
	colm	4
	synt	endif
	unmark
lab L8
	mark	L13
	pnull
	var	4
	dup
	int	1
	line	536
	colm	13
	synt	any
	plus
	asgn
	unmark
lab L13
	mark	L14
	mark	L15
	int	11
	line	537
	colm	4
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	538
	colm	1
	synt	any
	pfail
	end
proc do_star
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,305
	con	2,010000,1,052
	con	3,002000,3,307
	con	4,002000,1,1
	con	5,002000,3,306
	con	6,002000,3,304
	declend
	line	540
	colm	11
	synt	any
	mark	L1
	line	541
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	541
	colm	20
	synt	any
	tabmat
	line	541
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L2
	int	1
	line	541
	colm	33
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	541
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	line	542
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	2
	line	542
	colm	20
	synt	any
	tabmat
	line	542
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L4
	line	543
	colm	9
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	543
	colm	24
	synt	any
	tabmat
	line	543
	colm	19
	synt	any
	cat
	asgn
	unmark
	mark	L5
	int	3
	line	543
	colm	36
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	543
	colm	9
	synt	endif
	unmark
lab L4
	mark	L6
	pnull
	var	1
	dup
	int	4
	line	544
	colm	18
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	int	5
	line	545
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	542
	colm	5
	synt	endif
	unmark
lab L3
	mark	L8
	pnull
	var	1
	dup
	int	4
	line	547
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	int	6
	line	548
	colm	5
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	549
	colm	1
	synt	any
	pfail
	end
proc do_and
	local	0,000000,yytext
	local	1,000000,tokflags
	con	0,010000,2,072,075
	con	1,002000,3,303
	con	2,010000,1,046
	con	3,002000,3,379
	con	4,002000,1,1
	con	5,002000,3,302
	declend
	line	551
	colm	11
	synt	any
	mark	L1
	line	552
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	0
	dup
	pnull
	str	0
	line	552
	colm	19
	synt	any
	tabmat
	line	552
	colm	14
	synt	any
	cat
	asgn
	unmark
	mark	L4
	int	1
	line	552
	colm	32
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	553
	colm	9
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	2
	line	553
	colm	24
	synt	any
	tabmat
	line	553
	colm	19
	synt	any
	cat
	asgn
	unmark
	mark	L5
	int	3
	line	557
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	553
	colm	9
	synt	endif
lab L3
	line	552
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L6
	pnull
	var	1
	dup
	int	4
	line	559
	colm	13
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	mark	L8
	int	5
	line	560
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	561
	colm	1
	synt	any
	pfail
	end
proc do_mod
	local	0,000000,yytext
	con	0,010000,2,072,075
	con	1,002000,3,301
	con	2,002000,3,300
	declend
	line	563
	colm	11
	synt	any
	mark	L1
	line	564
	colm	5
	synt	if
	mark0
	pnull
	var	0
	dup
	pnull
	str	0
	line	564
	colm	20
	synt	any
	tabmat
	line	564
	colm	15
	synt	any
	cat
	asgn
	unmark
	mark	L2
	int	1
	line	564
	colm	33
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	564
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	mark	L4
	int	2
	line	565
	colm	5
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	566
	colm	1
	synt	any
	pfail
	end
proc do_bang
	local	0,000000,tokflags
	con	0,002000,1,1
	con	1,002000,3,299
	declend
	line	568
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	dup
	int	0
	line	569
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	570
	colm	5
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	571
	colm	1
	synt	any
	pfail
	end
proc do_literal
	local	0,000020,eat
	local	1,000020,s
	local	2,000000,yytext
	local	3,000000,move
	local	4,000000,uni_error
	local	5,000000,trim
	local	6,000000,yylineno
	local	7,000000,yycolno
	local	8,000000,tab
	local	9,000000,many
	local	10,000000,tokflags
	con	0,002000,1,1
	con	1,010000,1,134
	con	2,010000,1,136
	con	3,010000,1,137
	con	4,010000,28,165,156,164,145,162,155,151,156,141,164,145,144,040,163,164,162,151,156,147,040,143,157,156,163,164,141,156,164
	con	5,010000,1,012
	con	6,020000,2,040,011
	con	7,010000,1,011
	con	8,002000,1,8
	con	9,002000,1,0
	con	10,002000,1,2
	con	11,010000,1,047
	con	12,002000,3,261
	con	13,002000,3,260
	declend
	line	573
	colm	11
	synt	any
	mark	L1
lab L2
	line	575
	colm	15
	synt	until
	mark	L3
	pnull
	var	2
	dup
	pnull
	pnull
	var	2
	int	0
	line	575
	colm	41
	synt	any
	subsc
	line	575
	colm	33
	synt	any
	tabmat
	line	575
	colm	28
	synt	any
	cat
	asgn
	unmark
	efail
lab L3
	mark	L2
	mark	L6
	line	576
	colm	19
	synt	if
	mark0
	pnull
	var	2
	dup
	pnull
	str	1
	line	576
	colm	34
	synt	any
	tabmat
	line	576
	colm	29
	synt	any
	cat
	asgn
	unmark
	pnull
	var	2
	dup
	pnull
	str	2
	line	578
	colm	34
	synt	any
	tabmat
	line	578
	colm	29
	synt	any
	cat
	asgn
	line	576
	colm	19
	synt	endif
	unmark
lab L6
	mark	L7
	pnull
	var	2
	dup
	mark	L8
	var	3
	int	0
	line	580
	colm	35
	synt	any
	invoke	1
	line	580
	colm	39
	synt	any
	esusp
	goto	L9
lab L8
	line	581
	colm	23
	synt	if
	mark0
	mark	L10
	pnull
	pnull
	var	2
	pnull
	int	0
	line	581
	colm	38
	synt	any
	neg
	line	581
	colm	37
	synt	any
	subsc
	str	3
	line	581
	colm	41
	synt	any
	lexeq
	unmark
	efail
lab L10
	pnull
	unmark
	mark	L11
	var	4
	str	4
	line	582
	colm	35
	synt	any
	invoke	1
	unmark
lab L11
	unmark
	unmark
	pnull
	goto	L5
	line	581
	colm	23
	synt	endif
lab L9
	line	580
	colm	26
	synt	any
	cat
	asgn
	unmark
lab L7
	line	586
	colm	19
	synt	if
	mark0
	pnull
	pnull
	var	2
	pnull
	int	0
	line	586
	colm	29
	synt	any
	neg
	line	586
	colm	28
	synt	any
	subsc
	str	5
	line	586
	colm	33
	synt	any
	lexeq
	unmark
	mark	L12
	pnull
	var	2
	var	5
	pnull
	var	2
	int	0
	pnull
	int	0
	line	588
	colm	47
	synt	any
	neg
	line	588
	colm	46
	synt	any
	synt	any
	sect
	line	588
	colm	37
	synt	any
	invoke	1
	line	588
	colm	30
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	6
	dup
	int	0
	line	589
	colm	32
	synt	any
	plus
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	7
	int	0
	line	590
	colm	31
	synt	any
	asgn
	unmark
lab L14
	line	591
	colm	23
	synt	ifelse
	mark	L15
	mark	L17
	pnull
	pnull
	var	2
	pnull
	int	0
	line	591
	colm	38
	synt	any
	neg
	line	591
	colm	37
	synt	any
	subsc
	str	3
	line	591
	colm	42
	synt	any
	lexeq
	unmark
	efail
lab L17
	pnull
	unmark
	mark	L18
	var	4
	str	4
	line	592
	colm	36
	synt	any
	invoke	1
	unmark
lab L18
	unmark
	pnull
	goto	L5
	goto	L16
lab L15
	mark	L19
	pnull
	var	2
	pnull
	var	2
	int	0
	pnull
	int	0
	line	596
	colm	46
	synt	any
	neg
	line	596
	colm	45
	synt	any
	synt	any
	sect
	line	596
	colm	34
	synt	any
	asgn
	unmark
lab L19
	line	597
	colm	27
	synt	if
	mark0
	pnull
	var	0
	var	8
	var	9
	cset	6
	line	597
	colm	45
	synt	any
	invoke	1
	line	597
	colm	40
	synt	any
	invoke	1
	line	597
	colm	34
	synt	any
	asgn
	unmark
	line	598
	colm	31
	synt	every
	mark0
	pnull
	var	1
	pnull
	var	0
	line	598
	colm	42
	synt	any
	bang
	line	598
	colm	39
	synt	any
	asgn
	pop
	mark0
	mark	L22
	pnull
	var	7
	dup
	int	0
	line	599
	colm	42
	synt	any
	plus
	asgn
	unmark
lab L22
	line	600
	colm	34
	synt	if
	mark0
	pnull
	var	1
	str	7
	line	600
	colm	39
	synt	any
	lexeq
	unmark
lab L23
	line	601
	colm	37
	synt	while
	mark0
	pnull
	pnull
	pnull
	var	7
	int	0
	line	601
	colm	51
	synt	any
	minus
	int	8
	line	601
	colm	55
	synt	any
	mod
	int	9
	line	601
	colm	59
	synt	any
	numne
	unmark
	mark	L23
	pnull
	var	7
	dup
	int	0
	line	601
	colm	75
	synt	any
	plus
	asgn
lab L24
	unmark
	goto	L23
lab L25
	line	601
	colm	37
	synt	endwhile
	line	600
	colm	34
	synt	endif
	unmark
lab L20
	efail
lab L21
	line	598
	colm	31
	synt	endevery
	line	597
	colm	27
	synt	endif
lab L16
	line	591
	colm	23
	synt	endifelse
	line	586
	colm	19
	synt	endif
lab L4
	unmark
	goto	L2
lab L5
	line	575
	colm	15
	synt	enduntil
	unmark
lab L1
	mark	L26
	pnull
	var	10
	dup
	pnull
	int	0
	int	10
	line	608
	colm	30
	synt	any
	plus
	line	608
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L26
	mark	L27
	line	609
	colm	15
	synt	ifelse
	mark	L28
	pnull
	pnull
	var	2
	int	0
	line	609
	colm	24
	synt	any
	subsc
	str	11
	line	609
	colm	28
	synt	any
	lexeq
	unmark
	mark	L30
	int	12
	line	610
	colm	19
	synt	any
	pret
lab L30
	synt	any
	pfail
	goto	L29
lab L28
	mark	L31
	int	13
	line	611
	colm	20
	synt	any
	pret
lab L31
	synt	any
	pfail
lab L29
	line	609
	colm	15
	synt	endifelse
	unmark
lab L27
	pnull
	line	613
	colm	1
	synt	any
	pfail
	end
proc do_backquote
	local	0,000040,unallowedchars
	local	1,000000,yytext
	local	2,000000,move
	local	3,000000,uni_error
	local	4,000000,tab
	local	5,000000,upto
	local	6,000000,tokflags
	con	0,020000,8,050,051,140,056,054,040,042,137
	con	1,010000,1,140
	con	2,010000,2,140,140
	con	3,002000,1,1
	con	4,002000,3,381
	con	5,010000,12,072,040,143,150,141,162,141,143,164,145,162,040
	con	6,010000,32,040,156,157,164,040,163,165,160,160,157,162,164,145,144,040,151,156,040,140,040,140,040,145,170,160,162,145,163,163,151,157,156
	con	7,002000,1,2
	declend
	line	616
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	618
	colm	4
	synt	any
	null
	pnull
	line	618
	colm	23
	synt	any
	keywd	ascii
	pnull
	pnull
	line	618
	colm	34
	synt	any
	keywd	letters
	cset	0
	line	618
	colm	43
	synt	any
	unions
	line	618
	colm	60
	synt	any
	keywd	digits
	line	618
	colm	57
	synt	any
	unions
	line	618
	colm	30
	synt	any
	diff
	line	618
	colm	20
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	619
	colm	4
	synt	ifelse
	mark	L3
	pnull
	var	1
	dup
	pnull
	str	1
	line	619
	colm	19
	synt	any
	tabmat
	line	619
	colm	14
	synt	any
	cat
	asgn
	unmark
lab L5
	line	620
	colm	7
	synt	until
	mark	L6
	pnull
	var	1
	dup
	pnull
	str	2
	line	620
	colm	25
	synt	any
	tabmat
	line	620
	colm	20
	synt	any
	cat
	asgn
	unmark
	efail
lab L6
	mark	L5
	line	621
	colm	10
	synt	if
	mark0
	mark	L9
	pnull
	var	1
	dup
	var	2
	int	3
	line	621
	colm	34
	synt	any
	invoke	1
	line	621
	colm	25
	synt	any
	cat
	asgn
	unmark
	efail
lab L9
	pnull
	unmark
	mark	L10
	var	3
	var	1
	line	622
	colm	22
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	int	4
	line	623
	colm	13
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	621
	colm	10
	synt	endif
lab L7
	unmark
	goto	L5
lab L8
	line	620
	colm	7
	synt	enduntil
	goto	L4
lab L3
lab L12
	line	628
	colm	7
	synt	until
	mark	L13
	pnull
	var	1
	dup
	pnull
	str	1
	line	628
	colm	25
	synt	any
	tabmat
	line	628
	colm	20
	synt	any
	cat
	asgn
	unmark
	efail
lab L13
	mark	L12
	line	629
	colm	10
	synt	if
	mark0
	mark	L16
	pnull
	var	1
	dup
	var	2
	int	3
	line	629
	colm	34
	synt	any
	invoke	1
	line	629
	colm	25
	synt	any
	cat
	asgn
	unmark
	efail
lab L16
	pnull
	unmark
	mark	L17
	var	3
	var	1
	line	630
	colm	22
	synt	any
	invoke	1
	unmark
lab L17
	mark	L18
	int	4
	line	631
	colm	13
	synt	any
	pret
lab L18
	synt	any
	pfail
	line	629
	colm	10
	synt	endif
lab L14
	unmark
	goto	L12
lab L15
	line	628
	colm	7
	synt	enduntil
lab L4
	line	619
	colm	4
	synt	endifelse
	unmark
lab L2
	mark	L19
	var	1
	line	635
	colm	11
	synt	any
	bscan
	line	636
	colm	7
	synt	if
	mark0
	var	4
	var	5
	var	0
	line	636
	colm	18
	synt	any
	invoke	1
	line	636
	colm	13
	synt	any
	invoke	1
	unmark
	var	3
	pnull
	pnull
	str	5
	var	2
	int	3
	line	637
	colm	40
	synt	any
	invoke	1
	line	637
	colm	34
	synt	any
	cat
	str	6
	line	637
	colm	43
	synt	any
	cat
	line	637
	colm	19
	synt	any
	invoke	1
	line	636
	colm	7
	synt	endif
	line	635
	colm	11
	synt	any
	escan
	unmark
lab L19
	mark	L20
	pnull
	var	6
	dup
	int	7
	line	641
	colm	13
	synt	any
	plus
	asgn
	unmark
lab L20
	mark	L21
	mark	L22
	int	4
	line	642
	colm	4
	synt	any
	pret
lab L22
	synt	any
	pfail
	unmark
lab L21
	pnull
	line	643
	colm	1
	synt	any
	pfail
	end
proc yylex_reinit
	local	0,000000,yytext
	local	1,000000,yylineno
	local	2,000000,yycolno
	local	3,000000,lastchar
	local	4,000000,type
	local	5,000000,yyin
	local	6,000000,buffer
	local	7,000000,reads
	local	8,000000,pop
	local	9,000000,tokflags
	con	0,010000,0
	con	1,002000,1,0
	con	2,002000,1,1
	con	3,010000,4,146,151,154,145
	con	4,002000,7,1000000
	con	5,010000,4,154,151,163,164
	declend
	line	647
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	str	0
	line	648
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	1
	line	649
	colm	13
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	int	2
	line	650
	colm	12
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	str	0
	line	651
	colm	13
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	652
	colm	4
	synt	ifelse
	mark	L6
	pnull
	var	4
	var	5
	line	652
	colm	11
	synt	any
	invoke	1
	str	3
	line	652
	colm	18
	synt	any
	lexeq
	unmark
	pnull
	var	6
	var	7
	var	5
	int	4
	line	653
	colm	22
	synt	any
	invoke	2
	line	653
	colm	14
	synt	any
	asgn
	goto	L7
lab L6
	line	654
	colm	9
	synt	ifelse
	mark	L8
	pnull
	var	4
	var	5
	line	654
	colm	16
	synt	any
	invoke	1
	str	5
	line	654
	colm	23
	synt	any
	lexeq
	unmark
	pnull
	var	6
	mark	L10
	var	8
	var	5
	line	655
	colm	20
	synt	any
	invoke	1
	line	655
	colm	27
	synt	any
	esusp
	goto	L11
lab L10
	str	0
lab L11
	line	655
	colm	14
	synt	any
	asgn
	goto	L9
lab L8
	pnull
	var	6
	var	5
	line	657
	colm	14
	synt	any
	asgn
lab L9
	line	654
	colm	9
	synt	endifelse
lab L7
	line	652
	colm	4
	synt	endifelse
	unmark
lab L5
	mark	L12
	pnull
	var	9
	int	1
	line	658
	colm	13
	synt	any
	asgn
	unmark
lab L12
	pnull
	line	659
	colm	1
	synt	any
	pfail
	end
proc yylex
	local	0,001000,ender
	local	1,000040,saved_tok
	local	2,000040,saved_yytext
	local	3,000020,rv
	local	4,000000,yylex2
	local	5,000000,yylex2Normal
	local	6,000000,buffer
	local	7,000000,yylex_reinit
	local	8,000000,debuglex
	local	9,000000,write
	local	10,000000,yytext
	local	11,000000,yylval
	local	12,000000,yytoken
	local	13,000000,token
	local	14,000000,yylineno
	local	15,000000,yycolno
	local	16,000000,yyfilename
	local	17,000000,tokenstr
	local	18,000000,image
	local	19,000000,iand
	local	20,000000,tokflags
	local	21,000000,type
	local	22,000000,yyin
	local	23,000000,pop
	local	24,000000,yylex
	local	25,000000,tab
	con	0,010000,11,171,171,154,145,170,050,051,040,072,040,060
	con	1,002000,1,0
	con	2,010000,10,171,171,154,145,170,050,051,040,072,040
	con	3,010000,1,011
	con	4,002000,1,2
	con	5,010000,4,154,151,163,164
	con	6,002000,1,1
	con	7,002000,1,4
	con	8,010000,14,171,171,154,145,170,050,051,040,072,040,105,117,106,130
	con	9,002000,3,262
	con	10,010000,0
	con	11,010000,1,073
	con	12,002000,3,371
	declend
	line	661
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	4
	var	5
	line	665
	colm	14
	synt	any
	asgn
	unmark
lab L4
	line	666
	colm	7
	synt	if
	mark0
	pnull
	var	6
	line	666
	colm	10
	synt	any
	null
	unmark
	var	7
	line	667
	colm	23
	synt	any
	invoke	0
	line	666
	colm	7
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L5
	line	670
	colm	4
	synt	if
	mark0
	pnull
	var	6
	line	670
	colm	7
	synt	any
	null
	unmark
	mark	L6
	line	671
	colm	7
	synt	if
	mark0
	pnull
	var	8
	line	671
	colm	10
	synt	any
	nonnull
	unmark
	var	9
	str	0
	line	672
	colm	15
	synt	any
	invoke	1
	line	671
	colm	7
	synt	endif
	unmark
lab L6
	mark	L7
	int	1
	line	673
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	670
	colm	4
	synt	endif
	unmark
lab L5
	mark	L8
	line	675
	colm	3
	synt	if
	mark0
	pnull
	var	1
	line	675
	colm	6
	synt	any
	nonnull
	unmark
	mark	L9
	pnull
	var	3
	var	1
	line	676
	colm	8
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	line	677
	colm	18
	synt	any
	keywd	null
	line	677
	colm	15
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	10
	var	2
	line	678
	colm	12
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	11
	pnull
	var	12
	var	13
	var	3
	var	10
	var	14
	var	15
	var	16
	line	679
	colm	31
	synt	any
	invoke	5
	line	679
	colm	23
	synt	any
	asgn
	line	679
	colm	12
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	680
	colm	5
	synt	if
	mark0
	pnull
	var	8
	line	680
	colm	8
	synt	any
	nonnull
	unmark
	var	9
	str	2
	var	17
	var	3
	line	681
	colm	35
	synt	any
	invoke	1
	str	3
	var	18
	var	10
	line	681
	colm	52
	synt	any
	invoke	1
	line	681
	colm	12
	synt	any
	invoke	4
	line	680
	colm	5
	synt	endif
	unmark
lab L13
	mark	L14
	var	3
	line	682
	colm	5
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	675
	colm	3
	synt	endif
	unmark
lab L8
	mark	L15
	line	684
	colm	3
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	684
	colm	6
	synt	any
	null
	var	19
	var	20
	int	4
	line	684
	colm	20
	synt	any
	invoke	2
	line	684
	colm	13
	synt	any
	asgn
	unmark
	pnull
	var	20
	int	1
	line	685
	colm	16
	synt	any
	asgn
	line	684
	colm	3
	synt	endif
	unmark
lab L15
	mark	L16
	line	686
	colm	3
	synt	if
	mark0
	pnull
	pnull
	var	6
	line	686
	colm	6
	synt	any
	size
	int	1
	line	686
	colm	13
	synt	any
	numeq
	unmark
	mark	L17
	line	687
	colm	7
	synt	if
	mark0
	pnull
	var	21
	var	22
	line	687
	colm	14
	synt	any
	invoke	1
	str	5
	line	687
	colm	20
	synt	any
	lexeq
	unmark
	line	688
	colm	10
	synt	if
	mark0
	pnull
	var	6
	var	23
	var	22
	line	688
	colm	26
	synt	any
	invoke	1
	line	688
	colm	20
	synt	any
	asgn
	unmark
	mark	L18
	pnull
	var	14
	dup
	int	6
	line	689
	colm	22
	synt	any
	plus
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	15
	int	6
	line	690
	colm	21
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	line	691
	colm	13
	synt	if
	mark0
	pnull
	var	20
	int	7
	line	691
	colm	25
	synt	any
	numlt
	unmark
	pnull
	var	20
	dup
	int	7
	line	692
	colm	25
	synt	any
	plus
	asgn
	line	691
	colm	13
	synt	endif
	unmark
lab L20
	mark	L21
	var	24
	var	0
	line	693
	colm	25
	synt	any
	invoke	1
	line	693
	colm	13
	synt	any
	pret
lab L21
	synt	any
	pfail
	line	688
	colm	10
	synt	endif
	line	687
	colm	7
	synt	endif
	unmark
lab L17
	mark	L22
	pnull
	var	6
	line	696
	colm	17
	synt	any
	keywd	null
	line	696
	colm	14
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	line	697
	colm	7
	synt	if
	mark0
	pnull
	var	8
	line	697
	colm	10
	synt	any
	nonnull
	unmark
	var	9
	str	8
	line	698
	colm	16
	synt	any
	invoke	1
	line	697
	colm	7
	synt	endif
	unmark
lab L23
	mark	L24
	int	9
	line	699
	colm	7
	synt	any
	pret
lab L24
	synt	any
	pfail
	line	686
	colm	3
	synt	endif
	unmark
lab L16
	mark	L25
	var	6
	line	701
	colm	10
	synt	any
	bscan
	line	702
	colm	7
	synt	ifelse
	mark	L26
	pnull
	var	3
	var	4
	line	702
	colm	22
	synt	any
	invoke	0
	line	702
	colm	13
	synt	any
	asgn
	unmark
	pnull
	var	6
	var	25
	int	1
	line	703
	colm	24
	synt	any
	invoke	1
	line	703
	colm	18
	synt	any
	asgn
	goto	L27
lab L26
	mark	L28
	line	706
	colm	10
	synt	if
	mark0
	pnull
	var	21
	var	22
	line	706
	colm	17
	synt	any
	invoke	1
	str	5
	line	706
	colm	23
	synt	any
	lexeq
	unmark
	line	707
	colm	13
	synt	if
	mark0
	pnull
	var	6
	var	23
	var	22
	line	707
	colm	29
	synt	any
	invoke	1
	line	707
	colm	23
	synt	any
	asgn
	unmark
	mark	L29
	pnull
	var	14
	dup
	int	6
	line	708
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	15
	int	6
	line	709
	colm	24
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	line	710
	colm	16
	synt	if
	mark0
	pnull
	var	20
	int	7
	line	710
	colm	28
	synt	any
	numlt
	unmark
	pnull
	var	20
	dup
	int	7
	line	711
	colm	28
	synt	any
	plus
	asgn
	line	710
	colm	16
	synt	endif
	unmark
lab L31
	mark	L32
	var	24
	var	0
	line	712
	colm	28
	synt	any
	invoke	1
	line	712
	colm	16
	synt	any
	pret
lab L32
	synt	any
	pfail
	line	707
	colm	13
	synt	endif
	line	706
	colm	10
	synt	endif
	unmark
lab L28
	mark	L33
	pnull
	var	6
	line	715
	colm	20
	synt	any
	keywd	null
	line	715
	colm	17
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	var	10
	str	10
	line	716
	colm	17
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	line	717
	colm	10
	synt	if
	mark0
	pnull
	var	8
	line	717
	colm	13
	synt	any
	nonnull
	unmark
	var	9
	str	8
	line	718
	colm	19
	synt	any
	invoke	1
	line	717
	colm	10
	synt	endif
	unmark
lab L35
	mark	L36
	int	9
	line	719
	colm	10
	synt	any
	pret
lab L36
	synt	any
	pfail
lab L27
	line	702
	colm	7
	synt	endifelse
	line	701
	colm	10
	synt	any
	escan
	unmark
lab L25
	mark	L37
	line	722
	colm	3
	synt	if
	mark0
	pnull
	var	0
	int	1
	line	722
	colm	11
	synt	any
	numne
	pop
	pnull
	var	19
	var	20
	int	6
	line	722
	colm	21
	synt	any
	invoke	2
	int	1
	line	722
	colm	34
	synt	any
	numne
	pop
	pnull
	var	19
	var	20
	int	7
	line	722
	colm	44
	synt	any
	invoke	2
	int	1
	line	722
	colm	57
	synt	any
	numne
	unmark
	mark	L38
	pnull
	var	1
	var	3
	line	723
	colm	15
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	2
	var	10
	line	724
	colm	18
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	pnull
	var	10
	str	11
	line	725
	colm	12
	synt	any
	asgn
	unmark
lab L40
	pnull
	var	3
	int	12
	line	726
	colm	8
	synt	any
	asgn
	line	722
	colm	3
	synt	endif
	unmark
lab L37
	mark	L41
	pnull
	var	11
	pnull
	var	12
	var	13
	var	3
	var	10
	var	14
	var	15
	var	16
	line	728
	colm	30
	synt	any
	invoke	5
	line	728
	colm	22
	synt	any
	asgn
	line	728
	colm	11
	synt	any
	asgn
	unmark
lab L41
	mark	L42
	line	729
	colm	4
	synt	if
	mark0
	pnull
	var	8
	line	729
	colm	7
	synt	any
	nonnull
	unmark
	var	9
	str	2
	var	17
	var	3
	line	730
	colm	35
	synt	any
	invoke	1
	str	3
	var	18
	var	10
	line	730
	colm	52
	synt	any
	invoke	1
	line	730
	colm	12
	synt	any
	invoke	4
	line	729
	colm	4
	synt	endif
	unmark
lab L42
	mark	L43
	mark	L44
	var	3
	line	731
	colm	4
	synt	any
	pret
lab L44
	synt	any
	pfail
	unmark
lab L43
	pnull
	line	732
	colm	1
	synt	any
	pfail
	end
proc token_isconst
	local	0,001000,t
	con	0,002000,3,258
	con	1,002000,3,259
	con	2,002000,3,260
	con	3,002000,3,261
	con	4,010000,5,143,157,156,163,164
	declend
	line	737
	colm	11
	synt	any
	mark	L1
	mark	L2
	line	738
	colm	11
	synt	case
	mark0
	pnull
	var	0
	line	738
	colm	17
	synt	any
	field	tok
	eret
	mark	L4
	ccase
	mark	L5
	int	0
	line	739
	colm	10
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	int	1
	line	739
	colm	16
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	int	2
	line	739
	colm	22
	synt	any
	esusp
	goto	L10
lab L9
	int	3
lab L10
lab L8
lab L6
	line	739
	colm	28
	synt	any
	eqv
	unmark
	pop
	str	4
	goto	L3
lab L4
	pop
	line	742
	colm	15
	synt	any
	pfail
lab L3
	line	738
	colm	11
	synt	endcase
	line	738
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	744
	colm	1
	synt	any
	pfail
	end
