CMNT	 	Creates a list based on the stack data and stores it in key 2 of the instance
CMNT	 	Input:  É ¥ list/PNO/UID/GID/port/inst/É
CMNT	 	Output:  É ¥ inst/É
PRIM	List/Add	É ¥ list/UID/GID/port/inst/É
PRIM	Stack/Pop to aux	É/list ¥ UID/GID/port/inst/É
ASIO	SIO/prepare_did	É/list ¥ DID/inst/É
PRIM	Stack/Push from aux	É ¥ list/DID/inst/É
PRIM	List/Add	É ¥ list/inst/É
PRIM	Heap/Name of self	É ¥ RID/list/inst/É
PRIM	List/Splice	É ¥ list/inst/É
PRIM	Stack/Swap	É ¥ inst/list/É
LCAL	$get_Q	É ¥ queue/inst/list/É
LIST	 	É ¥ list2/queue/inst/list/É
	GSYM	Utility/Input
ELST
PRIM	List/Add	É ¥ list2/inst/list/É
PRIM	Tags/Set delegate	É ¥ list2/inst/list/É
PRIM	List/Item to list	É ¥ list3/inst/list/É
PRIM	Stack/Rotate down	É ¥ list/list3/inst/É
PRIM	List/Splice	É ¥ list3/inst/É
LITO	0	É ¥ 0/list3/inst/É
LITO	2	É ¥ 2/0/list3/inst/É
PRIM	S_tree/Replace	É ¥ inst/É
LDEF	$get_Q
	CMNT	 	returns the name of the queue instance
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ name/inst/É
	LITO	1	É ¥ 1/inst/É
	LITO	3	É ¥ 3/1/inst/É
	PRIM	S_tree/Read	É ¥ port/inst/É
	BRFL	 	branch if port B
		ISYM	QB
	BRTR
	ISYM	QA
EDEF