proc amean
	local	0,001000,L
	local	1,000020,m
	con	0,002000,1,0
	con	1,004000,0.0
	declend
	filen	numbers.icn
	line	105
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	108
	colm	7
	size
	int	0
	line	108
	colm	10
	numeq
	unmark
	line	108
	colm	19
	pfail
	unmark
lab L1
	mark	L2
	pnull
	var	1
	real	1
	line	110
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	111
	colm	16
	bang
	line	111
	colm	12
	plus
	asgn
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L6
	mark	L7
	pnull
	var	1
	pnull
	var	0
	line	113
	colm	15
	size
	line	113
	colm	13
	div
	line	113
	colm	4
	pret
lab L7
	pfail
	unmark
lab L6
	pnull
	line	115
	colm	1
	pfail
	end
proc ceil
	local	0,001000,r
	local	1,000000,integer
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	117
	colm	11
	mark	L1
	mark0
	pnull
	var	1
	var	0
	line	119
	colm	14
	invoke	1
	var	0
	line	119
	colm	18
	numeq
	unmark
	mark	L2
	var	1
	var	0
	line	119
	colm	41
	invoke	1
	line	119
	colm	27
	pret
lab L2
	pfail
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	var	0
	int	0
	line	121
	colm	9
	numgt
	unmark
	mark	L6
	pnull
	var	1
	var	0
	line	121
	colm	32
	invoke	1
	int	1
	line	121
	colm	36
	plus
	line	121
	colm	18
	pret
lab L6
	pfail
	goto	L5
lab L4
	mark	L7
	pnull
	pnull
	var	1
	pnull
	var	0
	line	121
	colm	62
	neg
	line	121
	colm	61
	invoke	1
	int	1
	line	121
	colm	66
	plus
	line	121
	colm	52
	neg
	line	121
	colm	45
	pret
lab L7
	pfail
lab L5
	unmark
lab L3
	pnull
	line	123
	colm	1
	pfail
	end
proc commas
	local	0,001000,s
	local	1,000020,s2
	local	2,000020,sign
	local	3,000000,type
	local	4,000000,find
	local	5,000000,abs
	local	6,000000,tab
	local	7,000000,pos
	local	8,000000,integer
	local	9,000000,move
	con	0,010000,6,163,164,162,151,156,147
	con	1,010000,1,054
	con	2,002000,1,0
	con	3,010000,1,055
	con	4,010000,0
	con	5,010000,1,056
	con	6,002000,1,3
	con	7,002000,1,1
	declend
	line	125
	colm	11
	mark	L1
	mark0
	pnull
	var	3
	var	0
	line	130
	colm	12
	invoke	1
	str	0
	line	130
	colm	16
	lexeq
	pop
	var	4
	str	1
	var	0
	line	130
	colm	34
	invoke	2
	unmark
	line	130
	colm	49
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	var	5
	pnull
	int	2
	var	0
	line	133
	colm	19
	numgt
	line	133
	colm	16
	invoke	1
	line	133
	colm	10
	asgn
	unmark
	pnull
	var	2
	str	3
	line	134
	colm	15
	asgn
	goto	L4
lab L3
	pnull
	var	2
	str	4
	line	134
	colm	32
	asgn
lab L4
	unmark
lab L2
	mark	L5
	var	0
	line	135
	colm	7
	bscan
	pnull
	var	0
	var	6
	var	4
	str	5
	line	136
	colm	22
	invoke	1
	line	136
	colm	17
	invoke	1
	line	136
	colm	11
	asgn
	pop
	pnull
	str	5
	line	136
	colm	31
	tabmat
	pop
	mark	L6
	var	7
	int	2
	line	137
	colm	16
	invoke	1
	unmark
	efail
lab L6
	pnull
	pop
	pnull
	var	1
	pnull
	str	5
	var	8
	var	6
	int	2
	line	137
	colm	46
	invoke	1
	line	137
	colm	42
	invoke	1
	line	137
	colm	32
	cat
	line	137
	colm	25
	asgn
	line	135
	colm	7
	escan
	unmark
lab L5
	mark	L7
	pnull
	pnull
	var	1
	line	140
	colm	5
	null
	str	4
	line	140
	colm	9
	asgn
	unmark
lab L7
	mark	L8
	var	8
	var	0
	line	141
	colm	12
	invoke	1
	line	141
	colm	16
	bscan
	mark	L9
	var	6
	int	2
	line	142
	colm	12
	invoke	1
	unmark
lab L9
	mark	L10
lab L11
	mark0
	pnull
	var	1
	pnull
	pnull
	str	1
	var	9
	pnull
	int	6
	line	143
	colm	33
	neg
	line	143
	colm	32
	invoke	1
	line	143
	colm	25
	cat
	var	1
	line	143
	colm	37
	cat
	line	143
	colm	18
	asgn
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	mark	L14
	var	7
	int	7
	line	144
	colm	15
	invoke	1
	unmark
	pnull
	var	1
	sdup
	line	145
	colm	17
	bscan
	pushn1
	var	9
	int	7
	line	145
	colm	26
	invoke	1
	var	6
	int	2
	line	145
	colm	34
	invoke	1
	line	145
	colm	21
	invoke	2
	line	145
	colm	17
	escan
	asgn
	goto	L15
lab L14
	pnull
	var	1
	pnull
	var	6
	int	7
	line	146
	colm	23
	invoke	1
	var	1
	line	146
	colm	27
	cat
	line	146
	colm	17
	asgn
lab L15
	line	141
	colm	16
	escan
	unmark
lab L8
	mark	L16
	mark	L17
	pnull
	var	2
	var	1
	line	149
	colm	17
	cat
	line	149
	colm	5
	pret
lab L17
	pfail
	unmark
lab L16
	pnull
	line	151
	colm	1
	pfail
	end
proc decipos
	local	0,001000,r
	local	1,001000,i
	local	2,001000,j
	local	3,000020,head
	local	4,000020,tail
	local	5,000000,real
	local	6,000000,stop
	local	7,000000,tab
	local	8,000000,upto
	local	9,000000,move
	local	10,000000,left
	local	11,000000,right
	con	0,002000,1,3
	con	1,002000,1,5
	con	2,010000,28,052,052,052,040,156,157,156,055,156,165,155,145,162,151,143,040,151,156,040,144,145,143,151,160,157,163,050,051
	con	3,002000,1,1
	con	4,020000,3,056,145,105
	con	5,002000,1,0
	con	6,010000,1,056
	declend
	line	153
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	156
	colm	4
	null
	int	0
	line	156
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	157
	colm	4
	null
	int	1
	line	157
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	mark	L4
	var	5
	var	0
	line	159
	colm	13
	invoke	1
	esusp
	goto	L5
lab L4
	var	6
	str	2
	line	159
	colm	23
	invoke	1
lab L5
	line	159
	colm	6
	asgn
	unmark
lab L3
	mark	L6
	mark0
	pnull
	var	1
	int	3
	line	161
	colm	9
	numlt
	unmark
	line	161
	colm	18
	pfail
	unmark
lab L6
	mark	L7
	var	0
	line	163
	colm	6
	bscan
	mark	L8
	pnull
	var	3
	mark	L9
	var	7
	var	8
	cset	4
	line	164
	colm	23
	invoke	1
	line	164
	colm	18
	invoke	1
	esusp
	goto	L10
lab L9
	line	164
	colm	34
	pfail
lab L10
	line	164
	colm	12
	asgn
	unmark
lab L8
	mark	L11
	var	9
	int	3
	line	165
	colm	11
	invoke	1
	unmark
lab L11
	mark	L12
	pnull
	var	4
	var	7
	int	5
	line	166
	colm	18
	invoke	1
	line	166
	colm	12
	asgn
	unmark
lab L12
	mark	L13
	var	10
	pnull
	pnull
	var	11
	var	3
	pnull
	var	1
	int	3
	line	167
	colm	33
	minus
	line	167
	colm	24
	invoke	2
	str	6
	line	167
	colm	38
	cat
	var	4
	line	167
	colm	45
	cat
	var	2
	line	167
	colm	18
	invoke	2
	line	167
	colm	7
	pret
lab L13
	pfail
	line	163
	colm	6
	escan
	unmark
lab L7
	pnull
	line	170
	colm	1
	pfail
	end
proc digred
	local	0,001000,i
	local	1,000020,j
	local	2,000000,string
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	172
	colm	11
	mark	L1
	pnull
	var	0
	var	2
	var	0
	line	175
	colm	15
	invoke	1
	line	175
	colm	6
	asgn
	unmark
lab L1
	mark	L2
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	177
	colm	10
	size
	int	0
	line	177
	colm	13
	numeq
	unmark
	efail
lab L4
	mark	L3
	mark	L7
	pnull
	var	1
	int	1
	line	178
	colm	9
	asgn
	unmark
lab L7
	mark	L8
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	179
	colm	19
	bang
	line	179
	colm	15
	plus
	asgn
	pop
lab L9
	efail
lab L10
	unmark
lab L8
	pnull
	var	0
	var	2
	var	1
	line	180
	colm	18
	invoke	1
	line	180
	colm	9
	asgn
lab L5
	unmark
	goto	L3
lab L6
	unmark
lab L2
	mark	L11
	mark	L12
	var	0
	line	183
	colm	4
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	185
	colm	1
	pfail
	end
proc digsum
	local	0,001000,i
	local	1,000020,j
	local	2,000000,integer
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	187
	colm	11
	mark	L1
	pnull
	var	0
	mark	L2
	var	2
	var	0
	line	190
	colm	16
	invoke	1
	esusp
	goto	L3
lab L2
	line	190
	colm	22
	pfail
lab L3
	line	190
	colm	6
	asgn
	unmark
lab L1
	mark	L4
lab L5
	mark	L5
	mark	L8
	pnull
	var	1
	int	0
	line	193
	colm	9
	asgn
	unmark
lab L8
	mark	L9
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	194
	colm	19
	bang
	line	194
	colm	15
	plus
	asgn
	pop
lab L10
	efail
lab L11
	unmark
lab L9
	mark	L12
	mark0
	var	1
	line	195
	colm	7
	psusp
	pop
lab L13
	efail
lab L14
	unmark
lab L12
	mark	L15
	pnull
	pnull
	var	1
	line	196
	colm	10
	size
	int	1
	line	196
	colm	13
	numgt
	unmark
	pnull
	var	0
	var	1
	line	196
	colm	24
	asgn
	goto	L16
lab L15
	line	196
	colm	34
	pfail
lab L16
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	pnull
	line	199
	colm	1
	pfail
	end
proc distseq
	local	0,001000,low
	local	1,001000,high
	local	2,000020,n
	local	3,000020,start
	local	4,000020,incr
	local	5,000020,range
	local	6,000000,integer
	local	7,000000,runerr
	local	8,000000,gcd
	con	0,002000,3,101
	con	1,002000,1,1
	con	2,002000,1,2
	con	3,004000,0.5
	declend
	line	205
	colm	11
	mark	L1
	pnull
	var	0
	mark	L2
	var	6
	var	0
	line	208
	colm	18
	invoke	1
	esusp
	goto	L3
lab L2
	var	7
	int	0
	var	0
	line	208
	colm	32
	invoke	2
lab L3
	line	208
	colm	8
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	1
	mark	L5
	var	6
	var	1
	line	209
	colm	19
	invoke	1
	esusp
	goto	L6
lab L5
	var	7
	int	0
	var	1
	line	209
	colm	34
	invoke	2
lab L6
	line	209
	colm	9
	asgn
	unmark
lab L4
	mark	L7
	mark0
	pnull
	var	0
	var	1
	line	210
	colm	11
	numgt
	unmark
	line	210
	colm	23
	pfail
	unmark
lab L7
	mark	L8
	pnull
	var	5
	pnull
	pnull
	var	1
	var	0
	line	211
	colm	18
	minus
	int	1
	line	211
	colm	24
	plus
	line	211
	colm	10
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	3
	pnull
	var	2
	pnull
	var	5
	int	2
	line	212
	colm	24
	div
	line	212
	colm	15
	asgn
	line	212
	colm	10
	asgn
	unmark
lab L9
	mark	L10
	mark0
	pnull
	var	0
	var	2
	line	214
	colm	16
	plus
	line	214
	colm	4
	psusp
	pop
lab L11
	efail
lab L12
	unmark
lab L10
	mark	L13
	pnull
	var	4
	var	6
	pnull
	pnull
	var	5
	pnull
	line	216
	colm	28
	keywd	phi
	int	2
	line	216
	colm	33
	power
	line	216
	colm	26
	div
	real	3
	line	216
	colm	37
	plus
	line	216
	colm	19
	invoke	1
	line	216
	colm	9
	asgn
	unmark
lab L13
	mark	L14
	mark	L15
	pnull
	var	4
	int	1
	line	217
	colm	12
	numle
	unmark
	pnull
	var	4
	int	1
	line	218
	colm	12
	asgn
	goto	L16
lab L15
lab L17
	mark0
	pnull
	var	8
	var	4
	var	5
	line	219
	colm	18
	invoke	2
	int	1
	line	219
	colm	32
	numgt
	unmark
	mark	L17
	pnull
	var	4
	dup
	int	1
	line	220
	colm	12
	plus
	asgn
lab L18
	unmark
	goto	L17
lab L19
lab L16
	unmark
lab L14
	mark	L20
lab L21
	mark	L21
	mark	L24
	pnull
	var	2
	pnull
	pnull
	var	2
	var	4
	line	223
	colm	15
	plus
	var	5
	line	223
	colm	23
	mod
	line	223
	colm	9
	asgn
	unmark
lab L24
	mark	L25
	mark0
	pnull
	var	2
	var	3
	line	224
	colm	12
	numeq
	unmark
	line	224
	colm	25
	pfail
	unmark
lab L25
	mark0
	pnull
	var	0
	var	2
	line	225
	colm	19
	plus
	line	225
	colm	7
	psusp
	pop
lab L26
	efail
lab L27
lab L22
	unmark
	goto	L21
lab L23
	unmark
lab L20
	pnull
	line	228
	colm	1
	pfail
	end
proc div
	local	0,001000,i
	local	1,001000,j
	local	2,000000,real
	declend
	line	230
	colm	11
	mark	L1
	mark	L2
	pnull
	var	0
	var	2
	var	1
	line	232
	colm	19
	invoke	1
	line	232
	colm	13
	div
	line	232
	colm	4
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	234
	colm	1
	pfail
	end
proc fix
	local	0,001000,i
	local	1,001000,j
	local	2,001000,w
	local	3,001000,d
	local	4,000020,r
	local	5,000020,int
	local	6,000020,dec
	local	7,000000,real
	local	8,000000,repl
	local	9,000000,string
	local	10,000000,upto
	local	11,000000,tab
	local	12,000000,find
	local	13,000000,move
	local	14,000000,right
	local	15,000000,left
	con	0,002000,1,1
	con	1,002000,1,8
	con	2,002000,1,3
	con	3,002000,1,0
	con	4,010000,1,060
	con	5,010000,2,060,056
	con	6,010000,1,061
	con	7,020000,2,145,105
	con	8,010000,1,056
	declend
	line	236
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	239
	colm	4
	null
	int	0
	line	239
	colm	7
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	240
	colm	4
	null
	int	1
	line	240
	colm	7
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	3
	line	241
	colm	4
	null
	int	2
	line	241
	colm	7
	asgn
	unmark
lab L3
	mark	L4
	mark0
	pnull
	var	1
	int	3
	line	242
	colm	9
	numeq
	unmark
	line	242
	colm	18
	pfail
	unmark
lab L4
	mark	L5
	pnull
	var	2
	dup
	int	2
	line	243
	colm	6
	numlt
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	dup
	int	0
	line	244
	colm	6
	numlt
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	4
	pnull
	var	7
	var	0
	line	245
	colm	13
	invoke	1
	var	1
	line	245
	colm	17
	div
	line	245
	colm	6
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	5
	pnull
	var	6
	str	4
	line	247
	colm	15
	asgn
	line	247
	colm	8
	asgn
	unmark
lab L8
	mark	L9
	mark0
	mark	L10
	pnull
	var	4
	pnull
	pnull
	str	5
	var	8
	str	4
	pnull
	var	3
	int	0
	line	249
	colm	36
	minus
	line	249
	colm	28
	invoke	2
	line	249
	colm	21
	cat
	str	6
	line	249
	colm	41
	cat
	line	249
	colm	13
	numlt
	unmark
	efail
lab L10
	pnull
	unmark
	var	9
	var	4
	line	250
	colm	13
	invoke	1
	line	250
	colm	17
	bscan
	mark	L11
	mark0
	var	10
	cset	7
	line	251
	colm	17
	invoke	1
	unmark
	line	251
	colm	29
	pfail
	unmark
lab L11
	mark0
	pnull
	var	5
	var	11
	var	12
	str	8
	line	252
	colm	28
	invoke	1
	line	252
	colm	23
	invoke	1
	line	252
	colm	17
	asgn
	unmark
	mark	L12
	var	13
	int	0
	line	253
	colm	17
	invoke	1
	unmark
lab L12
	pnull
	var	6
	var	11
	int	3
	line	254
	colm	23
	invoke	1
	line	254
	colm	17
	asgn
	line	250
	colm	17
	escan
	unmark
lab L9
	mark	L13
	mark	L14
	var	14
	pnull
	pnull
	var	5
	str	8
	line	259
	colm	21
	cat
	var	15
	var	6
	var	3
	str	4
	line	259
	colm	35
	invoke	3
	line	259
	colm	28
	cat
	var	2
	line	259
	colm	16
	invoke	2
	line	259
	colm	4
	pret
lab L14
	pfail
	unmark
lab L13
	pnull
	line	261
	colm	1
	pfail
	end
proc floor
	local	0,001000,r
	local	1,000000,integer
	con	0,002000,1,0
	declend
	line	263
	colm	11
	mark	L1
	mark	L2
	pnull
	var	0
	int	0
	line	265
	colm	9
	numgt
	unmark
	mark	L4
	var	1
	var	0
	line	265
	colm	32
	invoke	1
	line	265
	colm	18
	pret
lab L4
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	var	1
	pnull
	var	0
	line	265
	colm	57
	neg
	line	265
	colm	56
	invoke	1
	line	265
	colm	48
	neg
	line	265
	colm	41
	pret
lab L5
	pfail
lab L3
	unmark
lab L1
	pnull
	line	267
	colm	1
	pfail
	end
proc frn
	local	0,001000,r
	local	1,001000,w
	local	2,001000,d
	local	3,000020,s
	local	4,000040,mlist
	local	5,000000,put
	local	6,000000,list
	local	7,000000,real
	local	8,000000,runerr
	local	9,000000,string
	local	10,000000,integer
	local	11,000000,right
	local	12,000000,tab
	con	0,004000,10.0
	con	1,002000,1,0
	con	2,002000,2,25
	con	3,002000,3,102
	con	4,004000,0.0
	con	5,002000,1,1
	con	6,004000,0.5
	con	7,010000,1,060
	con	8,010000,1,055
	con	9,010000,1,056
	declend
	line	271
	colm	11
	init	L1
	mark	L1
	mark0
	var	5
	pnull
	var	4
	var	6
	line	275
	colm	35
	invoke	0
	line	275
	colm	28
	asgn
	pnull
	real	0
	pnull
	int	1
	int	2
	push1
	line	275
	colm	49
	toby
	line	275
	colm	44
	power
	line	275
	colm	21
	invoke	2
	pop
lab L2
	efail
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	0
	mark	L5
	var	7
	var	0
	line	277
	colm	13
	invoke	1
	esusp
	goto	L6
lab L5
	var	8
	int	3
	var	0
	line	277
	colm	25
	invoke	2
lab L6
	line	277
	colm	6
	asgn
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	pnull
	var	2
	line	278
	colm	5
	null
	int	1
	line	278
	colm	8
	asgn
	esusp
	goto	L9
lab L8
	pnull
	var	2
	dup
	int	2
	line	278
	colm	19
	numgt
	asgn
lab L9
	unmark
lab L7
	mark	L10
	mark	L11
	pnull
	var	0
	real	4
	line	279
	colm	9
	numge
	unmark
	mark	L13
	pnull
	var	3
	var	9
	var	10
	pnull
	pnull
	var	0
	pnull
	var	4
	pnull
	var	2
	int	5
	line	280
	colm	39
	plus
	line	280
	colm	36
	subsc
	line	280
	colm	29
	mult
	real	6
	line	280
	colm	44
	plus
	line	280
	colm	26
	invoke	1
	line	280
	colm	18
	invoke	1
	line	280
	colm	9
	asgn
	unmark
lab L13
	pnull
	var	3
	var	11
	var	3
	pnull
	pnull
	var	3
	line	281
	colm	21
	size
	pnull
	var	2
	int	5
	line	281
	colm	28
	plus
	line	281
	colm	24
	numlt
	str	7
	line	281
	colm	17
	invoke	3
	line	281
	colm	9
	asgn
	goto	L12
lab L11
	mark	L14
	pnull
	var	3
	var	9
	var	10
	pnull
	pnull
	pnull
	var	0
	line	284
	colm	27
	neg
	pnull
	var	4
	pnull
	var	2
	int	5
	line	284
	colm	40
	plus
	line	284
	colm	37
	subsc
	line	284
	colm	30
	mult
	real	6
	line	284
	colm	45
	plus
	line	284
	colm	26
	invoke	1
	line	284
	colm	18
	invoke	1
	line	284
	colm	9
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	3
	var	11
	var	3
	pnull
	pnull
	var	3
	line	285
	colm	21
	size
	pnull
	var	2
	int	5
	line	285
	colm	28
	plus
	line	285
	colm	24
	numlt
	str	7
	line	285
	colm	17
	invoke	3
	line	285
	colm	9
	asgn
	unmark
lab L15
	pnull
	var	3
	pnull
	str	8
	var	3
	line	286
	colm	16
	cat
	line	286
	colm	9
	asgn
lab L12
	unmark
lab L10
	mark	L16
	pnull
	var	3
	var	11
	var	3
	pnull
	pnull
	var	3
	line	288
	colm	18
	size
	pnull
	pnull
	var	1
	line	288
	colm	24
	nonnull
	int	5
	line	288
	colm	27
	minus
	line	288
	colm	21
	numlt
	line	288
	colm	14
	invoke	2
	line	288
	colm	6
	asgn
	unmark
lab L16
	mark	L17
	mark	L18
	var	3
	line	290
	colm	13
	bscan
	pnull
	pnull
	var	12
	pnull
	var	2
	line	290
	colm	20
	neg
	line	290
	colm	19
	invoke	1
	str	9
	line	290
	colm	24
	cat
	var	12
	int	1
	line	290
	colm	37
	invoke	1
	line	290
	colm	31
	cat
	line	290
	colm	13
	escan
	line	290
	colm	4
	pret
lab L18
	pfail
	unmark
lab L17
	pnull
	line	292
	colm	1
	pfail
	end
proc gcd
	local	0,001000,i
	local	1,001000,j
	local	2,000020,r
	local	3,000000,abs
	con	0,002000,1,0
	declend
	line	294
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	var	1
	line	297
	colm	9
	numeq
	int	0
	line	297
	colm	13
	numeq
	unmark
	line	297
	colm	22
	pfail
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	0
	int	0
	line	298
	colm	9
	numeq
	unmark
	mark	L3
	var	1
	line	298
	colm	18
	pret
lab L3
	pfail
	unmark
lab L2
	mark	L4
	mark0
	pnull
	var	1
	int	0
	line	299
	colm	9
	numeq
	unmark
	mark	L5
	var	0
	line	299
	colm	18
	pret
lab L5
	pfail
	unmark
lab L4
	mark	L6
	pnull
	var	0
	var	3
	var	0
	line	300
	colm	12
	invoke	1
	line	300
	colm	6
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	1
	var	3
	var	1
	line	301
	colm	12
	invoke	1
	line	301
	colm	6
	asgn
	unmark
lab L7
	mark	L8
lab L9
	mark	L9
	mark	L12
	pnull
	var	2
	pnull
	var	0
	var	1
	line	303
	colm	14
	mod
	line	303
	colm	9
	asgn
	unmark
lab L12
	mark	L13
	mark0
	pnull
	var	2
	int	0
	line	304
	colm	12
	numeq
	unmark
	mark	L14
	var	1
	line	304
	colm	21
	pret
lab L14
	pfail
	unmark
lab L13
	mark	L15
	pnull
	var	0
	var	1
	line	305
	colm	9
	asgn
	unmark
lab L15
	pnull
	var	1
	var	2
	line	306
	colm	9
	asgn
lab L10
	unmark
	goto	L9
lab L11
	unmark
lab L8
	pnull
	line	308
	colm	1
	pfail
	end
proc gcdl
	local	0,001000,L
	local	1,000020,i
	local	2,000020,j
	local	3,000000,get
	local	4,000000,gcd
	declend
	line	310
	colm	11
	mark	L1
	pnull
	var	1
	mark	L2
	var	3
	var	0
	line	313
	colm	12
	invoke	1
	esusp
	goto	L3
lab L2
	line	313
	colm	18
	pfail
lab L3
	line	313
	colm	6
	asgn
	unmark
lab L1
	mark	L4
lab L5
	mark0
	pnull
	var	2
	var	3
	var	0
	line	315
	colm	18
	invoke	1
	line	315
	colm	12
	asgn
	unmark
	mark	L5
	pnull
	var	1
	var	4
	var	1
	var	2
	line	316
	colm	15
	invoke	2
	line	316
	colm	9
	asgn
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark	L8
	mark	L9
	var	1
	line	318
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	320
	colm	1
	pfail
	end
proc gmean
	local	0,001000,L
	local	1,000020,m
	local	2,000000,abs
	local	3,000000,exp
	local	4,000000,log
	con	0,002000,1,0
	con	1,004000,1.0
	con	2,004000,0.0
	declend
	line	322
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	325
	colm	7
	size
	int	0
	line	325
	colm	10
	numeq
	unmark
	line	325
	colm	19
	pfail
	unmark
lab L1
	mark	L2
	pnull
	var	1
	real	1
	line	327
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	328
	colm	16
	bang
	line	328
	colm	12
	mult
	asgn
	pop
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L6
	pnull
	var	1
	var	2
	var	1
	line	329
	colm	12
	invoke	1
	line	329
	colm	6
	asgn
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	var	1
	real	2
	line	330
	colm	9
	numgt
	unmark
	mark	L10
	var	3
	pnull
	var	4
	var	1
	line	331
	colm	22
	invoke	1
	pnull
	var	0
	line	331
	colm	28
	size
	line	331
	colm	26
	div
	line	331
	colm	18
	invoke	1
	line	331
	colm	7
	pret
lab L10
	pfail
	goto	L9
lab L8
	line	333
	colm	7
	pfail
lab L9
	unmark
lab L7
	pnull
	line	334
	colm	1
	pfail
	end
proc hmean
	local	0,001000,L
	local	1,000020,m
	local	2,000020,r
	con	0,002000,1,0
	con	1,004000,0.0
	con	2,004000,1.0
	declend
	line	336
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	line	339
	colm	7
	size
	int	0
	line	339
	colm	10
	numeq
	unmark
	line	339
	colm	19
	pfail
	unmark
lab L1
	mark	L2
	pnull
	var	1
	real	1
	line	341
	colm	6
	asgn
	unmark
lab L2
	mark	L3
	mark0
	pnull
	var	2
	pnull
	var	0
	line	343
	colm	15
	bang
	line	343
	colm	12
	asgn
	pop
	mark0
	mark	L6
	pnull
	var	2
	real	1
	line	344
	colm	12
	numeq
	unmark
	line	344
	colm	23
	pfail
	goto	L7
lab L6
	pnull
	var	1
	dup
	pnull
	real	2
	var	2
	line	345
	colm	22
	div
	line	345
	colm	14
	plus
	asgn
lab L7
	unmark
lab L4
	efail
lab L5
	unmark
lab L3
	mark	L8
	mark	L9
	pnull
	pnull
	var	0
	line	348
	colm	11
	size
	var	1
	line	348
	colm	14
	div
	line	348
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	350
	colm	1
	pfail
	end
proc large
	local	0,001000,i
	local	1,000020,mem
	con	0,002000,1,0
	declend
	line	358
	colm	11
	mark	L1
	pnull
	var	1
	line	361
	colm	11
	keywd	allocated
	line	361
	colm	8
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	dup
	int	0
	line	362
	colm	6
	plus
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	363
	colm	7
	keywd	allocated
	var	1
	line	363
	colm	18
	numgt
	unmark
	mark	L6
	var	0
	line	363
	colm	29
	pret
lab L6
	pfail
	goto	L5
lab L4
	line	364
	colm	9
	pfail
lab L5
	unmark
lab L3
	pnull
	line	366
	colm	1
	pfail
	end
proc lcm
	local	0,001000,i
	local	1,001000,j
	local	2,000000,abs
	local	3,000000,gcd
	con	0,002000,1,0
	declend
	line	368
	colm	11
	mark	L1
	mark0
	pnull
	pnull
	var	0
	var	1
	line	370
	colm	9
	numeq
	int	0
	line	370
	colm	13
	numeq
	unmark
	line	370
	colm	22
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	2
	pnull
	var	0
	var	1
	line	372
	colm	17
	mult
	line	372
	colm	14
	invoke	1
	var	3
	var	0
	var	1
	line	372
	colm	27
	invoke	2
	line	372
	colm	22
	div
	line	372
	colm	4
	pret
lab L3
	pfail
	unmark
lab L2
	pnull
	line	374
	colm	1
	pfail
	end
proc lcml
	local	0,001000,L
	local	1,000020,i
	local	2,000020,j
	local	3,000000,get
	local	4,000000,lcm
	declend
	line	376
	colm	11
	mark	L1
	pnull
	var	1
	mark	L2
	var	3
	var	0
	line	379
	colm	12
	invoke	1
	esusp
	goto	L3
lab L2
	line	379
	colm	18
	pfail
lab L3
	line	379
	colm	6
	asgn
	unmark
lab L1
	mark	L4
lab L5
	mark0
	pnull
	var	2
	var	3
	var	0
	line	381
	colm	18
	invoke	1
	line	381
	colm	12
	asgn
	unmark
	mark	L5
	pnull
	var	1
	var	4
	var	1
	var	2
	line	382
	colm	15
	invoke	2
	line	382
	colm	9
	asgn
lab L6
	unmark
	goto	L5
lab L7
	unmark
lab L4
	mark	L8
	mark	L9
	var	1
	line	384
	colm	4
	pret
lab L9
	pfail
	unmark
lab L8
	pnull
	line	386
	colm	1
	pfail
	end
proc max
	local	0,001000,values
	local	1,000020,maximum
	local	2,000000,get
	declend
	line	388
	colm	11
	mark	L1
	pnull
	var	1
	mark	L2
	var	2
	var	0
	line	391
	colm	18
	invoke	1
	esusp
	goto	L3
lab L2
	line	391
	colm	29
	pfail
lab L3
	line	391
	colm	12
	asgn
	unmark
lab L1
	mark	L4
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	392
	colm	22
	bang
	line	392
	colm	18
	numlt
	asgn
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	1
	line	394
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	396
	colm	1
	pfail
	end
proc min
	local	0,001000,values
	local	1,000020,minimum
	local	2,000000,get
	declend
	line	398
	colm	11
	mark	L1
	pnull
	var	1
	mark	L2
	var	2
	var	0
	line	401
	colm	18
	invoke	1
	esusp
	goto	L3
lab L2
	line	401
	colm	29
	pfail
lab L3
	line	401
	colm	12
	asgn
	unmark
lab L1
	mark	L4
	mark0
	pnull
	var	1
	dup
	pnull
	var	0
	line	402
	colm	22
	bang
	line	402
	colm	18
	numgt
	asgn
	pop
lab L5
	efail
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	var	1
	line	404
	colm	4
	pret
lab L8
	pfail
	unmark
lab L7
	pnull
	line	406
	colm	1
	pfail
	end
proc mod1
	local	0,001000,i
	local	1,001000,m
	con	0,002000,1,0
	declend
	line	408
	colm	11
	mark	L1
	pnull
	var	0
	pnull
	var	0
	var	1
	line	410
	colm	11
	mod
	line	410
	colm	6
	asgn
	unmark
lab L1
	mark	L2
	mark0
	pnull
	var	0
	int	0
	line	411
	colm	9
	numle
	unmark
	pnull
	var	0
	pnull
	var	1
	var	0
	line	411
	colm	26
	plus
	line	411
	colm	21
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	0
	line	413
	colm	4
	pret
lab L4
	pfail
	unmark
lab L3
	pnull
	line	415
	colm	1
	pfail
	end
proc npalins
	local	0,001000,n
	local	1,000020,i
	local	2,000000,palins
	con	0,002000,1,1
	con	1,010000,1,060
	declend
	line	417
	colm	11
	mark	L1
	mark0
	pnull
	var	1
	var	2
	line	420
	colm	22
	keywd	digits
	var	0
	line	420
	colm	21
	invoke	2
	line	420
	colm	12
	asgn
	pop
	mark0
	mark0
	pnull
	pnull
	var	1
	int	0
	line	421
	colm	11
	subsc
	str	1
	line	421
	colm	15
	lexne
	unmark
	mark0
	var	1
	line	421
	colm	28
	psusp
	pop
lab L4
	efail
lab L5
	unmark
lab L2
	efail
lab L3
	unmark
lab L1
	pnull
	line	423
	colm	1
	pfail
	end
proc roman
	local	0,001000,n
	local	1,000020,arabic
	local	2,000020,result
	local	3,000040,equiv
	local	4,000000,integer
	local	5,000000,map
	local	6,000000,find
	con	0,010000,0
	con	1,010000,1,111
	con	2,010000,2,111,111
	con	3,010000,3,111,111,111
	con	4,010000,2,111,126
	con	5,010000,1,126
	con	6,010000,2,126,111
	con	7,010000,3,126,111,111
	con	8,010000,4,126,111,111,111
	con	9,010000,2,111,130
	con	10,002000,1,0
	con	11,010000,7,111,126,130,114,103,104,115
	con	12,010000,7,130,114,103,104,115,052,052
	con	13,002000,1,1
	con	14,010000,1,052
	declend
	line	427
	colm	11
	init	L1
	mark	L1
	pnull
	var	3
	pnull
	str	0
	str	1
	str	2
	str	3
	str	4
	str	5
	str	6
	str	7
	str	8
	str	9
	line	431
	colm	21
	llist	10
	line	431
	colm	18
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	var	0
	line	433
	colm	11
	invoke	1
	int	10
	line	433
	colm	15
	numgt
	esusp
	goto	L4
lab L3
	line	433
	colm	21
	pfail
lab L4
	unmark
lab L2
	mark	L5
	pnull
	var	2
	str	0
	line	434
	colm	11
	asgn
	unmark
lab L5
	mark	L6
	mark0
	pnull
	var	1
	pnull
	var	0
	line	435
	colm	20
	bang
	line	435
	colm	17
	asgn
	pop
	mark0
	pnull
	var	2
	pnull
	var	5
	var	2
	str	11
	str	12
	line	436
	colm	20
	invoke	3
	pnull
	var	3
	pnull
	var	1
	int	13
	line	436
	colm	65
	plus
	line	436
	colm	57
	subsc
	line	436
	colm	49
	cat
	line	436
	colm	14
	asgn
	unmark
lab L7
	efail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	6
	str	14
	var	2
	line	437
	colm	11
	invoke	2
	unmark
	line	437
	colm	29
	pfail
	goto	L11
lab L10
	mark	L12
	var	2
	line	437
	colm	39
	pret
lab L12
	pfail
lab L11
	unmark
lab L9
	pnull
	line	439
	colm	1
	pfail
	end
proc round
	local	0,001000,r
	local	1,000000,integer
	con	0,002000,1,0
	con	1,004000,0.5
	declend
	line	441
	colm	11
	mark	L1
	mark	L2
	pnull
	var	0
	int	0
	line	443
	colm	9
	numgt
	unmark
	mark	L4
	var	1
	pnull
	var	0
	real	1
	line	443
	colm	35
	plus
	line	443
	colm	32
	invoke	1
	line	443
	colm	18
	pret
lab L4
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	var	1
	pnull
	real	1
	var	0
	line	443
	colm	67
	minus
	line	443
	colm	62
	invoke	1
	line	443
	colm	54
	neg
	line	443
	colm	47
	pret
lab L5
	pfail
lab L3
	unmark
lab L1
	pnull
	line	445
	colm	1
	pfail
	end
proc sign
	local	0,001000,r
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	447
	colm	11
	mark	L1
	mark	L2
	pnull
	var	0
	int	0
	line	449
	colm	9
	numeq
	unmark
	mark	L4
	int	0
	line	449
	colm	18
	pret
lab L4
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	var	0
	int	0
	line	450
	colm	14
	numlt
	unmark
	mark	L7
	pnull
	int	1
	line	450
	colm	30
	neg
	line	450
	colm	23
	pret
lab L7
	pfail
	goto	L6
lab L5
	mark	L8
	int	1
	line	451
	colm	9
	pret
lab L8
	pfail
lab L6
lab L3
	unmark
lab L1
	pnull
	line	453
	colm	1
	pfail
	end
proc spell
	local	0,001000,n
	local	1,000020,m
	local	2,000000,integer
	local	3,000000,stop
	local	4,000000,image
	local	5,000000,tab
	local	6,000000,find
	local	7,000000,move
	local	8,000000,spell
	con	0,010000,18,040,151,163,040,156,157,164,040,141,156,040,151,156,164,145,147,145,162
	con	1,002000,2,12
	con	2,010000,84,060,172,145,162,157,054,061,157,156,145,054,062,164,167,157,054,063,164,150,162,145,145,054,064,146,157,165,162,054,065,146,151,166,145,054,066,163,151,170,054,067,163,145,166,145,156,054,070,145,151,147,150,164,054,071,156,151,156,145,054,061,060,164,145,156,054,061,061,145,154,145,166,145,156,054,061,062,164,167,145,154,166,145,054
	con	3,010000,1,054
	con	4,002000,2,19
	con	5,002000,1,2
	con	6,010000,1,060
	con	7,010000,3,146,157,162
	con	8,010000,4,146,157,165,162
	con	9,010000,2,164,171
	con	10,010000,4,164,145,145,156
	con	11,002000,2,99
	con	12,010000,46,062,164,167,145,156,054,063,164,150,151,162,054,064,146,157,162,054,065,146,151,146,054,066,163,151,170,054,067,163,145,166,145,156,054,070,145,151,147,150,054,071,156,151,156,145,054
	con	13,002000,1,1
	con	14,002000,1,0
	con	15,010000,1,055
	con	16,010000,0
	con	17,002000,3,999
	con	18,010000,8,040,150,165,156,144,162,145,144
	con	19,010000,5,040,141,156,144,040
	con	20,002000,6,999999
	con	21,002000,1,3
	con	22,010000,9,040,164,150,157,165,163,141,156,144
	con	23,002000,9,999999999
	con	24,002000,1,6
	con	25,010000,8,040,155,151,154,154,151,157,156
	declend
	line	455
	colm	11
	mark	L1
	pnull
	var	0
	mark	L2
	var	2
	var	0
	line	458
	colm	16
	invoke	1
	esusp
	goto	L3
lab L2
	var	3
	var	4
	var	0
	line	458
	colm	32
	invoke	1
	str	0
	line	458
	colm	26
	invoke	2
lab L3
	line	458
	colm	6
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	var	0
	int	1
	line	459
	colm	9
	numle
	unmark
	mark	L7
	str	2
	line	461
	colm	42
	bscan
	mark	L8
	var	5
	var	6
	var	0
	line	462
	colm	21
	invoke	1
	line	462
	colm	16
	invoke	1
	unmark
lab L8
	mark	L9
	var	7
	pnull
	var	0
	line	463
	colm	18
	size
	line	463
	colm	17
	invoke	1
	unmark
lab L9
	var	5
	var	6
	str	3
	line	464
	colm	21
	invoke	1
	line	464
	colm	16
	invoke	1
	line	461
	colm	42
	escan
	line	459
	colm	20
	pret
lab L7
	pfail
	goto	L6
lab L5
	mark	L10
	pnull
	var	0
	int	4
	line	467
	colm	14
	numle
	unmark
	mark	L12
	var	8
	pnull
	pnull
	var	0
	int	5
	line	468
	colm	14
	subsc
	str	6
	line	468
	colm	18
	cat
	line	468
	colm	12
	invoke	1
	line	468
	colm	26
	bscan
	pnull
	mark	L13
	pnull
	str	7
	line	469
	colm	14
	tabmat
	unmark
	str	8
	goto	L14
lab L13
	var	5
	var	6
	str	9
	line	469
	colm	46
	invoke	1
	line	469
	colm	41
	invoke	1
lab L14
	str	10
	line	469
	colm	55
	cat
	line	468
	colm	26
	escan
	line	467
	colm	25
	pret
lab L12
	pfail
	goto	L11
lab L10
	mark	L15
	pnull
	var	0
	int	11
	line	471
	colm	14
	numle
	unmark
	mark	L17
	str	12
	line	472
	colm	56
	bscan
	mark	L18
	var	5
	var	6
	pnull
	var	0
	int	13
	line	473
	colm	20
	subsc
	line	473
	colm	18
	invoke	1
	line	473
	colm	13
	invoke	1
	unmark
lab L18
	mark	L19
	var	7
	int	13
	line	474
	colm	14
	invoke	1
	unmark
lab L19
	pnull
	pnull
	var	5
	var	6
	str	3
	line	475
	colm	18
	invoke	1
	line	475
	colm	13
	invoke	1
	str	9
	line	475
	colm	25
	cat
	mark	L20
	pnull
	pnull
	var	0
	int	5
	line	476
	colm	18
	subsc
	int	14
	line	476
	colm	22
	numne
	unmark
	pnull
	str	15
	var	8
	pnull
	var	0
	int	5
	line	476
	colm	46
	subsc
	line	476
	colm	44
	invoke	1
	line	476
	colm	36
	cat
	goto	L21
lab L20
	str	16
lab L21
	line	475
	colm	33
	cat
	line	472
	colm	56
	escan
	line	471
	colm	25
	pret
lab L17
	pfail
	goto	L16
lab L15
	mark	L22
	pnull
	var	0
	int	17
	line	479
	colm	14
	numle
	unmark
	mark	L24
	pnull
	pnull
	var	8
	pnull
	var	0
	int	13
	line	480
	colm	14
	subsc
	line	480
	colm	12
	invoke	1
	str	18
	line	480
	colm	19
	cat
	mark	L25
	pnull
	pnull
	var	1
	pnull
	var	0
	int	5
	int	14
	line	481
	colm	23
	sect
	line	481
	colm	17
	asgn
	int	14
	line	481
	colm	28
	numne
	unmark
	pnull
	str	19
	var	8
	var	1
	line	481
	colm	54
	invoke	1
	line	481
	colm	46
	cat
	goto	L26
lab L25
	str	16
lab L26
	line	480
	colm	33
	cat
	line	479
	colm	26
	pret
lab L24
	pfail
	goto	L23
lab L22
	mark	L27
	pnull
	var	0
	int	20
	line	483
	colm	14
	numle
	unmark
	mark	L29
	pnull
	pnull
	var	8
	pnull
	var	0
	int	13
	pnull
	int	21
	line	484
	colm	17
	neg
	line	484
	colm	16
	sect
	line	484
	colm	12
	invoke	1
	str	22
	line	484
	colm	22
	cat
	mark	L30
	pnull
	pnull
	var	1
	pnull
	var	0
	int	5
	int	14
	line	485
	colm	23
	sect
	line	485
	colm	17
	asgn
	int	14
	line	485
	colm	28
	numne
	unmark
	pnull
	str	19
	var	8
	var	1
	line	485
	colm	54
	invoke	1
	line	485
	colm	46
	cat
	goto	L31
lab L30
	str	16
lab L31
	line	484
	colm	37
	cat
	line	483
	colm	29
	pret
lab L29
	pfail
	goto	L28
lab L27
	mark	L32
	pnull
	var	0
	int	23
	line	487
	colm	14
	numle
	unmark
	mark	L34
	pnull
	pnull
	var	8
	pnull
	var	0
	int	13
	pnull
	int	24
	line	488
	colm	17
	neg
	line	488
	colm	16
	sect
	line	488
	colm	12
	invoke	1
	str	25
	line	488
	colm	22
	cat
	mark	L35
	pnull
	pnull
	var	1
	pnull
	var	0
	int	5
	int	14
	line	489
	colm	23
	sect
	line	489
	colm	17
	asgn
	int	14
	line	489
	colm	28
	numne
	unmark
	pnull
	str	19
	var	8
	var	1
	line	489
	colm	54
	invoke	1
	line	489
	colm	46
	cat
	goto	L36
lab L35
	str	16
lab L36
	line	488
	colm	36
	cat
	line	487
	colm	32
	pret
lab L34
	pfail
	goto	L33
lab L32
	line	491
	colm	9
	pfail
lab L33
lab L28
lab L23
lab L16
lab L11
lab L6
	unmark
lab L4
	pnull
	line	493
	colm	1
	pfail
	end
proc trunc
	local	0,001000,r
	local	1,000000,integer
	declend
	line	495
	colm	11
	mark	L1
	mark	L2
	var	1
	var	0
	line	497
	colm	18
	invoke	1
	line	497
	colm	4
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	499
	colm	1
	pfail
	end
proc unroman
	local	0,001000,s
	local	1,000020,nbr
	local	2,000020,lastVal
	local	3,000020,val
	local	4,000000,map
	local	5,000000,move
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,010000,1,155
	con	3,002000,4,1000
	con	4,010000,1,144
	con	5,002000,3,500
	con	6,010000,1,143
	con	7,002000,3,100
	con	8,010000,1,154
	con	9,002000,2,50
	con	10,010000,1,170
	con	11,002000,2,10
	con	12,010000,1,166
	con	13,002000,1,5
	con	14,010000,1,151
	con	15,002000,1,2
	declend
	line	501
	colm	11
	mark	L1
	pnull
	var	1
	pnull
	var	2
	int	0
	line	504
	colm	19
	asgn
	line	504
	colm	8
	asgn
	unmark
lab L1
	mark	L2
	var	0
	line	506
	colm	6
	bscan
lab L3
	mark0
	pnull
	var	3
	mark0
	var	4
	var	5
	int	1
	line	507
	colm	33
	invoke	1
	line	507
	colm	28
	invoke	1
	eret
	mark	L7
	ccase
	str	2
	line	508
	colm	13
	eqv
	unmark
	pop
	int	3
	goto	L6
lab L7
	mark	L8
	ccase
	str	4
	line	509
	colm	13
	eqv
	unmark
	pop
	int	5
	goto	L6
lab L8
	mark	L9
	ccase
	str	6
	line	510
	colm	13
	eqv
	unmark
	pop
	int	7
	goto	L6
lab L9
	mark	L10
	ccase
	str	8
	line	511
	colm	13
	eqv
	unmark
	pop
	int	9
	goto	L6
lab L10
	mark	L11
	ccase
	str	10
	line	512
	colm	13
	eqv
	unmark
	pop
	int	11
	goto	L6
lab L11
	mark	L12
	ccase
	str	12
	line	513
	colm	13
	eqv
	unmark
	pop
	int	13
	goto	L6
lab L12
	mark	L13
	ccase
	str	14
	line	514
	colm	13
	eqv
	unmark
	pop
	int	1
	goto	L6
lab L13
	efail
lab L6
	line	507
	colm	17
	asgn
	unmark
	mark	L3
	mark	L14
	pnull
	var	1
	dup
	mark	L15
	pnull
	var	3
	var	2
	line	516
	colm	25
	numle
	unmark
	var	3
	goto	L16
lab L15
	pnull
	var	3
	pnull
	int	15
	var	2
	line	516
	colm	58
	mult
	line	516
	colm	54
	minus
lab L16
	line	516
	colm	14
	plus
	asgn
	unmark
lab L14
	pnull
	var	2
	var	3
	line	517
	colm	18
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	506
	colm	6
	escan
	unmark
lab L2
	mark	L17
	mark	L18
	var	1
	line	520
	colm	4
	pret
lab L18
	pfail
	unmark
lab L17
	pnull
	line	522
	colm	1
	pfail
	end
