STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354415
	ESBR
	SORD	2	y's
		LVAL	0	y1
		LVAL	0	y2
		LVAL	0	y3
		LVAL	0	y4
		LVAL	0	y5
		LVAL	0	y6
		LVAL	0	y7
		LVAL	0	y8
		LVAL	0	y9
		LVAL	0	y10
		LVAL	0	y11
		LVAL	0	y12
	ESBR
	SORD	3	w's
		LVAL	0	w1
		LVAL	0	w2
		LVAL	0	w3
		LVAL	0	w4
		LVAL	0	w5
		LVAL	0	w6
		LVAL	0	w7
		LVAL	0	w8
		LVAL	0	w9
		LVAL	0	w10
		LVAL	0	w11
		LVAL	0	w12
	ESBR
	SORD	4
		LVAL	0
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	R&D/Trigger	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		LITO	2	É ¥ 2/0/inst/É
		PRIM	S_tree/Read	É ¥ N-list/inst/É
		LVAL	0	É ¥ 0/N-list/inst/É
		PRIM	Stack/Pop to aux	É/0 ¥ N-list/inst/É
		PRIM	Stack/Pop to aux	É/0/N-list ¥ inst/É
		LITO	0	É/0/N-list ¥ 0/inst/É
		LITO	3	É/0/N-list ¥ 3/0/inst/É
		PRIM	S_tree/Read	É/0/N-list ¥ D-list/inst/É
		LVAL	0	É/0/N-list ¥ 0/D-list/inst/É
		PRIM	Stack/Swap	É/0/N-list ¥ D-list/0/inst/É
		LCAL	Compute	É ¥ output/inst/É
		PRIM	Stack/Dup down	É ¥ output/inst/output/É
		LITO	1	É ¥ 1/output/inst/output/É
		LITO	4	É ¥ 4/1/output/inst/output/É
		PRIM	S_tree/Replace	É ¥ inst/output/É
		PRIM	Stack/Swap	É ¥ output/inst/É
		GSYM	Output/#1	É ¥ #1/output/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Get Output	/2v6,-100,100;%3.1f%%
		LITO	1
		CALL	354076
	ESBR
	SGLB	R&D/y1	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	1
		CALL	354073
	ESBR
	SGLB	R&D/y2	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	2
		CALL	354073
	ESBR
	SGLB	R&D/y3	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	3
		CALL	354073
	ESBR
	SGLB	R&D/y4	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	4
		CALL	354073
	ESBR
	SGLB	R&D/y5	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	5
		CALL	354073
	ESBR
	SGLB	R&D/y6	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	6
		CALL	354073
	ESBR
	SGLB	R&D/y7	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	7
		CALL	354073
	ESBR
	SGLB	R&D/y8	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	8
		CALL	354073
	ESBR
	SGLB	R&D/y9	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	9
		CALL	354073
	ESBR
	SGLB	R&D/y10	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	10
		CALL	354073
	ESBR
	SGLB	R&D/y11	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	11
		CALL	354073
	ESBR
	SGLB	R&D/y12	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	12
		CALL	354073
	ESBR
	SGLB	R&D/w1	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	1
		LCAL	Weight
	ESBR
	SGLB	R&D/w2	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	2
		LCAL	Weight
	ESBR
	SGLB	R&D/w3	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	3
		LCAL	Weight
	ESBR
	SGLB	R&D/w4	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	4
		LCAL	Weight
	ESBR
	SGLB	R&D/w5	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	5
		LCAL	Weight
	ESBR
	SGLB	R&D/w6	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	6
		LCAL	Weight
	ESBR
	SGLB	R&D/w7	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	7
		LCAL	Weight
	ESBR
	SGLB	R&D/w8	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	8
		LCAL	Weight
	ESBR
	SGLB	R&D/w9	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	9
		LCAL	Weight
	ESBR
	SGLB	R&D/w10	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	10
		LCAL	Weight
	ESBR
	SGLB	R&D/w11	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	11
		LCAL	Weight
	ESBR
	SGLB	R&D/w12	/3v8,-100,100,0,100;Enter Data (0% to +100%)
		LITO	12
		LCAL	Weight
	ESBR
ESTR
LDEF	Weight
	CMNT	 	Input:  É ¥ index/inst/arg/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Rotate down	É ¥ arg/index/inst/É
	LVAL	0.833338	É ¥ k/arg/index/inst/É
	PRIM	Value/Multiply	É ¥ w/index/inst/É
	PRIM	Stack/Swap	É ¥ index/w/inst/É
	LITO	3	É ¥ 3/index/w/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Compute
	CMNT	 	Input:  É/N/N-list ¥ D-list/D/É
	CMNT	 	Output:  É ¥ output/É
	PRIM	List/Test for leaf	É/N/N-list ¥ rslt/D-list/D/É
	BRFL
		PRIM	List/Behead	É/N/N-list ¥ w/D-list/D/É
		PRIM	Stack/Push from aux	É/N ¥ N-list/w/D-list/D/É
		PRIM	List/Behead	É/N ¥ y/N-list/w/D-list/D/É
		PRIM	Stack/Xover	É/N ¥ w/y/N-list/w/D-list/D/É
		PRIM	Value/Multiply	É/N ¥ w*y/N-list/w/D-list/D/É
		PRIM	Stack/Push from aux	É ¥ N/w*y/N-list/w/D-list/D/É
		PRIM	Value/Add	É ¥ N/N-list/w/D-list/D/É
		PRIM	Stack/Pop to aux	É/N ¥ N-list/w/D-list/D/É
		PRIM	Stack/Pop to aux	É/N/N-list ¥ w/D-list/D/É
		PRIM	Stack/Rotate down	É/N/N-list ¥ D/w/D-list/É
		PRIM	Value/Add	É/N/N-list ¥ D/D-list/É
		PRIM	Stack/Swap	É/N/N-list ¥ D-list/D/É
		LCAL	Compute
	BRTR
	PRIM	List/List to item	É/N/N-list ¥ w/D/É
	PRIM	Stack/Push from aux	É/N ¥ N-list/w/D/É
	PRIM	List/List to item	É/N ¥ y/w/D/É
	PRIM	Stack/Over	É/N ¥ w/y/w/D/É
	PRIM	Value/Multiply	É/N ¥ w*y/w/D/É
	PRIM	Stack/Push from aux	É ¥ N/w*y/w/D/É
	PRIM	Value/Add	É ¥ N/w/D/É
	PRIM	Stack/Rotate up	É ¥ w/D/N/É
	PRIM	Value/Add	É ¥ D/N/É
	PRIM	Value/Divide	É ¥ output/É
EDEF