STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354245
	ESBR
	SORD	2
		LITO	0	recount
		LVAL	0	accumulator
		LVAL	0	factor
		LITO	0	counter
	ESBR
	SORD	8
		LVAL	0	input
		LVAL	0	output
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354115
	ESBR
	SGLB	SignalP/Input	/3v7,-100,100,-100,100;Input (%)
		CMNT	 	Expects: É ¥ inst/arg/É
		CALL	354113	É ¥ inst/arg/É
		PRIM	Stack/Second to aux	É/arg ¥ inst/É
		LITO	2	É/arg ¥ 2/inst/É
		PRIM	S_tree/Get exact	É/arg ¥ list/2/inst/É
		PRIM	List/List to stack	É/arg ¥ counter/factor/acc/recount/2/inst/É
		PRIM	Ordinal/Decrement	É/arg ¥ counter-1/factor/acc/recount/2/inst/É
		PRIM	Stack/Duplicate	É/arg ¥ counter-1/counter-1/factor/acc/recount/2/inst/É
		BRFL	 	branch if zero
			PRIM	Stack/Drop	É/arg ¥ factor/acc/recount/2/inst/É
			PRIM	Stack/Xover	É/arg ¥ counter/factor/acc/recount/2/inst/É
			LCAL	compute	É/acc' ¥ inst/É
			LVAL	0	É/acc' ¥ 0/inst/É
			LITO	2	É/acc' ¥ 2/0/inst/É
			LITO	2	É/acc' ¥ 2/2/0/inst/É
			PRIM	S_tree/Replace	É/acc' ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ acc'/inst/É
			CALL	354114	É ¥ É
		BRTR
		LCAL	compute	É/acc' ¥ inst/É
		PRIM	Stack/Drop from aux	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
LDEF	compute
	CMNT	 	Does a bunch of neat stuff
	CMNT	 	Input:  É/arg ¥ counter/factor/acc/recount/2/inst/É
	CMNT	 	Output: É/acc' ¥ inst/É
	PRIM	Stack/Switch	É/arg ¥ acc/factor/counter/recount/2/inst/É
	PRIM	Stack/Over	É/arg ¥ factor/acc/factor/counter/recount/2/inst/É
	PRIM	Stack/Push from aux	É ¥ arg/factor/acc/factor/counter/recount/2/inst/É
	PRIM	Value/Multiply	É ¥ arg*factor/acc/factor/counter/recount/2/inst/É
	PRIM	Value/Add	É ¥ acc'/factor/counter/recount/2/inst/É
	PRIM	Stack/Dup to aux	É/acc' ¥ acc'/factor/counter/recount/2/inst/É
	PRIM	Stack/Switch	É/acc' ¥ counter/factor/acc'/recount/2/inst/É
	LITO	4	É/acc' ¥ 4/counter/factor/acc'/recount/2/inst/É
	PRIM	List/Stack to list	É/acc' ¥ list/2/inst/É
	PRIM	S_tree/Put	É/acc' ¥ inst/É
EDEF