CMNT	 	Finds a new name for each instance
CMNT	 	Input:  É ¥ name/ref/inst/É
CMNT	 	Output:  É ¥ inst/É
LCAL	NameChk	É/name ¥ ref/inst/É
PRIM	S_tree/Get next	É/name ¥ rslt/ref/inst/É
BRFL	 	branch if no more entries
	PRIM	Stack/Drop from aux	É ¥ ref/inst/É
	PRIM	Stack/Drop	É ¥ inst/É
BRTR
PRIM	Stack/Dup from aux	É/name ¥ name/ref/inst/É
LITO	1	É/name ¥ 1/name/ref/inst/É
PRIM	Stack/Rotate down	É/name ¥ ref/1/name/inst/É
PRIM	Stack/Dup to aux	É/name/ref ¥ ref/1/name/inst/É
PRIM	S_tree/Replace	É/name/ref ¥ inst/É
PRIM	Stack/Push from aux	É/name ¥ ref/inst/É
PRIM	Stack/Push from aux	É ¥ name/ref/inst/É
PRIM	Ordinal/Decrement	É ¥ new_cand/ref/inst/É
CALL	354123	É ¥ inst/É
LDEF	NameChk
	CMNT	 	Input:  É ¥ candidate/É
	CMNT	 	Output: É/name ¥ É
	PRIM	Heap/Test existence	É ¥ rslt/candidate/É
	MACR	 	this fixes the Cashwell bug
		PRIM	Ordinal/Test zero
	EMAC
	BRFL	 	branch if entry does not exist
		PRIM	Stack/Pop to aux	É/name ¥ É
	BRTR
	PRIM	Ordinal/Decrement	É ¥ candidate-1/É
	LCAL	NameChk	É ¥ name/É
EDEF