version	U12.1.00
uid	plural.u1-1786032991-0
impl	error
global	1
	0,000005,plural,1

proc plural
	local	0,001000,word
	local	1,000020,lcword
	local	2,000040,plural_map
	local	3,000040,plural_id
	local	4,000040,plural_s
	local	5,000000,table
	local	6,000000,set
	local	7,000000,insert
	local	8,000000,map
	local	9,000000,member
	local	10,000000,tab
	local	11,000000,match
	local	12,000000,any
	local	13,000000,move
	con	0,010000,5,155,157,165,163,145
	con	1,010000,4,155,151,143,145
	con	2,010000,5,154,157,165,163,145
	con	3,010000,4,154,151,143,145
	con	4,010000,5,147,157,157,163,145
	con	5,010000,5,147,145,145,163,145
	con	6,010000,5,144,141,164,165,155
	con	7,010000,4,144,141,164,141
	con	8,010000,7,143,150,141,163,163,151,163
	con	9,010000,4,146,151,163,150
	con	10,010000,5,163,150,145,145,160
	con	11,010000,9,163,145,155,141,156,164,151,143,163
	con	12,010000,5,162,157,155,141,156
	con	13,010000,6,156,157,162,155,141,156
	con	14,010000,5,150,165,155,141,156
	con	15,010000,6,163,150,141,155,141,156
	con	16,010000,6,147,145,162,155,141,156
	con	17,010000,8,164,141,154,151,163,155,141,156
	con	18,010000,10,163,165,160,145,162,150,165,155,141,156
	con	19,010000,1,163
	con	20,002000,1,3
	con	21,010000,3,155,141,156
	con	22,010000,3,155,145,156
	con	23,010000,3,163,151,163
	con	24,010000,3,163,145,163
	con	25,002000,1,2
	con	26,010000,2,143,150
	con	27,010000,2,163,150
	con	28,010000,2,163,163
	con	29,010000,2,145,163
	con	30,010000,3,164,165,163
	con	31,010000,2,164,151
	con	32,020000,14,143,142,144,147,150,155,156,160,162,163,164,166,170,172
	con	33,010000,1,171
	con	34,010000,3,151,145,163
	con	35,002000,1,1
	con	36,020000,2,170,172
	con	37,002000,1,0
	declend
	filen	plural.icn
	line	22
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	2
	var	5
	line	27
	colm	26
	synt	any
	invoke	0
	line	27
	colm	18
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	str	0
	line	28
	colm	17
	synt	any
	subsc
	str	1
	line	28
	colm	27
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	str	2
	line	29
	colm	17
	synt	any
	subsc
	str	3
	line	29
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	2
	str	4
	line	30
	colm	17
	synt	any
	subsc
	str	5
	line	30
	colm	27
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	str	6
	line	31
	colm	17
	synt	any
	subsc
	str	7
	line	31
	colm	27
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	3
	var	6
	line	33
	colm	23
	synt	any
	invoke	0
	line	33
	colm	17
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	34
	colm	7
	synt	every
	mark0
	var	7
	var	3
	mark	L13
	str	8
	line	34
	colm	40
	synt	any
	esusp
	goto	L14
lab L13
	mark	L15
	str	9
	line	34
	colm	49
	synt	any
	esusp
	goto	L16
lab L15
	mark	L17
	str	10
	line	34
	colm	59
	synt	any
	esusp
	goto	L18
lab L17
	str	11
lab L18
lab L16
lab L14
	line	34
	colm	19
	synt	any
	invoke	2
	pop
lab L11
	efail
lab L12
	line	34
	colm	7
	synt	endevery
	unmark
lab L10
	mark	L19
	pnull
	var	4
	var	6
	line	36
	colm	22
	synt	any
	invoke	0
	line	36
	colm	16
	synt	any
	asgn
	unmark
lab L19
	line	37
	colm	7
	synt	every
	mark0
	var	7
	var	4
	mark	L22
	str	12
	line	37
	colm	37
	synt	any
	esusp
	goto	L23
lab L22
	mark	L24
	str	13
	line	37
	colm	48
	synt	any
	esusp
	goto	L25
lab L24
	mark	L26
	str	14
	line	37
	colm	58
	synt	any
	esusp
	goto	L27
lab L26
	mark	L28
	str	15
	line	37
	colm	69
	synt	any
	esusp
	goto	L29
lab L28
	mark	L30
	str	16
	line	38
	colm	19
	synt	any
	esusp
	goto	L31
lab L30
	mark	L32
	str	17
	line	38
	colm	32
	synt	any
	esusp
	goto	L33
lab L32
	str	18
lab L33
lab L31
lab L29
lab L27
lab L25
lab L23
	line	37
	colm	19
	synt	any
	invoke	2
	pop
lab L20
	efail
lab L21
	line	37
	colm	7
	synt	endevery
	unmark
lab L2
	einit	L1
lab L3
	mark	L34
	pnull
	var	1
	var	8
	var	0
	line	41
	colm	17
	synt	any
	invoke	1
	line	41
	colm	11
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	line	43
	colm	4
	synt	if
	mark0
	var	9
	var	3
	var	1
	line	43
	colm	13
	synt	any
	invoke	2
	unmark
	mark	L36
	var	0
	line	43
	colm	37
	synt	any
	pret
lab L36
	synt	any
	pfail
	line	43
	colm	4
	synt	endif
	unmark
lab L35
	mark	L37
	line	45
	colm	4
	synt	if
	mark0
	var	9
	var	4
	var	1
	line	45
	colm	13
	synt	any
	invoke	2
	unmark
	mark	L38
	pnull
	var	0
	str	19
	line	45
	colm	48
	synt	any
	cat
	line	45
	colm	36
	synt	any
	pret
lab L38
	synt	any
	pfail
	line	45
	colm	4
	synt	endif
	unmark
lab L37
	mark	L39
	mark	L40
	pnull
	var	1
	pnull
	pnull
	var	2
	var	1
	line	47
	colm	26
	synt	any
	subsc
	line	47
	colm	15
	synt	any
	nonnull
	line	47
	colm	12
	synt	any
	asgn
	line	47
	colm	36
	synt	any
	esusp
	goto	L41
lab L40
	pnull
	var	1
	sdup
	line	48
	colm	14
	synt	any
	bscan
	mark	L42
	pnull
	var	10
	pnull
	int	20
	line	49
	colm	15
	synt	any
	neg
	line	49
	colm	14
	synt	any
	invoke	1
	var	11
	str	21
	line	49
	colm	28
	synt	any
	invoke	1
	pop
	str	22
	line	49
	colm	19
	synt	any
	cat
	line	49
	colm	46
	synt	any
	esusp
	goto	L43
lab L42
	mark	L44
	pnull
	var	10
	pnull
	int	20
	line	50
	colm	15
	synt	any
	neg
	line	50
	colm	14
	synt	any
	invoke	1
	var	11
	str	23
	line	50
	colm	28
	synt	any
	invoke	1
	pop
	str	24
	line	50
	colm	19
	synt	any
	cat
	line	50
	colm	46
	synt	any
	esusp
	goto	L45
lab L44
	mark	L46
	pnull
	pnull
	var	10
	pnull
	int	25
	line	51
	colm	15
	synt	any
	neg
	line	51
	colm	14
	synt	any
	invoke	1
	pnull
	mark	L48
	str	26
	line	51
	colm	29
	synt	any
	esusp
	goto	L49
lab L48
	mark	L50
	str	27
	line	51
	colm	36
	synt	any
	esusp
	goto	L51
lab L50
	str	28
lab L51
lab L49
	line	51
	colm	22
	synt	any
	tabmat
	line	51
	colm	19
	synt	any
	cat
	str	29
	line	51
	colm	44
	synt	any
	cat
	line	51
	colm	53
	synt	any
	esusp
	goto	L47
lab L46
	mark	L52
	pnull
	var	10
	pnull
	int	20
	line	52
	colm	15
	synt	any
	neg
	line	52
	colm	14
	synt	any
	invoke	1
	pnull
	str	30
	line	52
	colm	23
	synt	any
	tabmat
	pop
	str	31
	line	52
	colm	19
	synt	any
	cat
	line	52
	colm	39
	synt	any
	esusp
	goto	L53
lab L52
	mark	L54
	pnull
	pnull
	var	10
	pnull
	int	25
	line	53
	colm	15
	synt	any
	neg
	line	53
	colm	14
	synt	any
	invoke	1
	var	10
	var	12
	cset	32
	line	53
	colm	29
	synt	any
	invoke	1
	line	53
	colm	25
	synt	any
	invoke	1
	line	53
	colm	19
	synt	any
	cat
	var	11
	str	33
	line	53
	colm	58
	synt	any
	invoke	1
	pop
	str	34
	line	53
	colm	49
	synt	any
	cat
	line	53
	colm	74
	synt	any
	esusp
	goto	L55
lab L54
	mark	L56
	pnull
	pnull
	var	10
	pnull
	int	35
	line	54
	colm	15
	synt	any
	neg
	line	54
	colm	14
	synt	any
	invoke	1
	var	10
	var	12
	cset	36
	line	54
	colm	29
	synt	any
	invoke	1
	line	54
	colm	25
	synt	any
	invoke	1
	line	54
	colm	19
	synt	any
	cat
	str	29
	line	54
	colm	37
	synt	any
	cat
	line	54
	colm	46
	synt	any
	esusp
	goto	L57
lab L56
	pnull
	var	10
	int	37
	line	55
	colm	14
	synt	any
	invoke	1
	str	19
	line	55
	colm	18
	synt	any
	cat
lab L57
lab L55
lab L53
lab L47
lab L45
lab L43
	line	48
	colm	14
	synt	any
	escan
	asgn
lab L41
	unmark
lab L39
	mark	L58
	line	59
	colm	4
	synt	if
	mark0
	var	0
	line	59
	colm	12
	synt	any
	bscan
	var	12
	line	59
	colm	18
	synt	any
	keywd	ucase
	line	59
	colm	17
	synt	any
	invoke	1
	line	59
	colm	12
	synt	any
	escan
	unmark
	pnull
	var	1
	sdup
	line	59
	colm	38
	synt	any
	bscan
	pnull
	var	8
	var	13
	int	35
	line	60
	colm	15
	synt	any
	invoke	1
	line	60
	colm	19
	synt	any
	keywd	lcase
	line	60
	colm	26
	synt	any
	keywd	ucase
	line	60
	colm	10
	synt	any
	invoke	3
	var	10
	int	37
	line	60
	colm	40
	synt	any
	invoke	1
	line	60
	colm	34
	synt	any
	cat
	line	59
	colm	38
	synt	any
	escan
	asgn
	line	59
	colm	4
	synt	endif
	unmark
lab L58
	mark	L59
	mark	L60
	var	1
	line	63
	colm	4
	synt	any
	pret
lab L60
	synt	any
	pfail
	unmark
lab L59
	pnull
	line	65
	colm	1
	synt	any
	pfail
	end
