CMNT	 	This is a patch instruction for 'List/Stack to list'
CMNT	 	Input:  É ¥ count/elementsÉ/É
CMNT	 	Output:  É ¥ list/É
PRIM	Stack/Dup to aux	É/count ¥ count/elementsÉ/É
BRFL	 	branch if count=0
	LITO	4	É/count ¥ 4/elementsÉ/É
	PRIM	Misc/Invoke handler
BRTR
PRIM	List/Item to list	É/count ¥ list/elements'É/É
LCAL	$loop
LDEF	$loop
	CMNT	 	Input:  É/count ¥ list/elementsÉ/É
	CMNT	 	Output:  É ¥ list/É
	PRIM	Stack/Push from aux	É ¥ count/list/elementsÉ/É
	PRIM	Ordinal/Decrement	É ¥ count-1/list/elementsÉ/É
	PRIM	Stack/Dup to aux	É/count-1 ¥ count-1/list/elementsÉ/É
	BRFL	 	branch if done (count=0)
		PRIM	Stack/Drop from aux	É ¥ list/É
	BRTR
	PRIM	List/Add	É/count ¥ list'/elements'É/É
	LCAL	$loop
EDEF