STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354491
	ESBR
	SORD	2
		LITO	1	input
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;S1 Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;S2 Output
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;S3 Output
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;S4 Output
	ESBR
	SGLB	Output/#5
		LCON	 	/*+;S5 Output
	ESBR
	SGLB	Output/#6
		LCON	 	/*+;S6 Output
	ESBR
	SGLB	Output/#7
		LCON	 	/*+;S7 Output
	ESBR
	SGLB	Output/#8
		LCON	 	/*+;S8 Output
	ESBR
	SGLB	Output/#9
		LCON	 	/*+;S9 Output
	ESBR
	SGLB	Output/#10
		LCON	 	/*+;S10 Output
	ESBR
	SGLB	Output/#11
		LCON	 	/*+;M Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Ordinal/Input	/3u
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	1	É ¥ 1/arg/inst/É
		LITO	100	É ¥ 100/1/arg/inst/É
		CALL	354234	É ¥ rslt/arg/inst/É
		PRIM	Stack/Drop	É ¥ arg/inst/É
		PRIM	Stack/Dup down	É ¥ arg/inst/arg/É
		LITO	1	É ¥ 1/arg/inst/arg/É
		LITO	2	É ¥ 2/1/arg/inst/arg/É
		PRIM	S_tree/Replace	É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		PRIM	Ordinal/Decrement	É ¥ arg-1/inst/É
		PRIM	Stack/Duplicate	É ¥ arg-1/arg-1/inst/É
		LITO	0	É ¥ 0/arg-1/arg-1/inst/É
		LCAL	div10	É ¥ quot/arg-1/inst/É
		PRIM	Stack/Duplicate	É ¥ quot/quot/arg-1/inst/É
		LCAL	mul10	É ¥ quot*10/quot/arg-1/inst/É
		PRIM	Stack/Xswap	É ¥ quot*10/arg-1/quot/inst/É
		PRIM	Ordinal/Subtract	É ¥ rem/quot/inst/É
		PRIM	Stack/Second to aux	É/quot ¥ rem/inst/É
		PRIM	Ordinal/Increment	É/quot ¥ rem+1/inst/É
		PRIM	Stack/Dup from aux	É/quot ¥ quot/rem+1/inst/É
		LITO	16	É/quot ¥ 16/quot/rem+1/inst/É
		PRIM	Ordinal/Add	É/quot ¥ output/rem+1/inst/É
		PRIM	Misc/Send entry	É/quot ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ quot/inst/É
		PRIM	Ordinal/Increment	É ¥ quot+1/inst/É
		GSYM	Output/#11	É ¥ #11/quot+1/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Ordinal/Get Input	/2u
		LITO	1
		CALL	354072
	ESBR
ESTR
LDEF	div10
	CMNT	 	Integer divide by 10
	CMNT	 	Input:  É ¥ 0/arg/É
	CMNT	 	Output:  É ¥ quot/É
	PRIM	Stack/Swap	É ¥ arg/cnt/É
	LITO	10	É ¥ 10/arg/cnt/É
	PRIM	Ordinal/Compare	É ¥ rslt/arg/cnt/É
	BRFL	 	branch if arg < 10
		PRIM	Stack/Drop	É ¥ quot/É
	BRTR
	LITO	10	É ¥ 10/arg/cnt/É
	PRIM	Ordinal/Subtract	É ¥ arg-10/cnt/É
	PRIM	Stack/Swap	É ¥ cnt/arg-10/É
	PRIM	Ordinal/Increment	É ¥ cnt+1/arg-10/É
	LCAL	div10	iterate
EDEF
LDEF	mul10
	CMNT	 	Integer multiply by 10
	CMNT	 	Input:  É ¥ arg/É
	CMNT	 	Output:  É ¥ rslt/É
	PRIM	Ordinal/Left	É ¥ arg*2/É
	PRIM	Stack/Duplicate	É ¥ arg*2/arg*2/É
	PRIM	Ordinal/Left	É ¥ arg*4/arg*2/É
	PRIM	Ordinal/Left	É ¥ arg*8/arg*2/É
	PRIM	Ordinal/Add	É ¥ arg*10/É
EDEF