CMNT	 	Implements the primitive 'List/Graft'
CMNT	 	Input:  É ¥ item/list/É
CMNT	 	Output:  É ¥ new_list/É
PRIM	Stack/Pop to aux	É/item ¥ list/É
LCAL	loop
LDEF	loop
	CMNT	 	Expects:  É/item ¥ list/É
	PRIM	List/Test for leaf	É/item ¥ rslt/list/É
	BRFL	 	branch if not a leaf
		PRIM	List/Remove	É/item ¥ list/head/É
		LCAL	loop	É ¥ new_list/head/É
		PRIM	List/Add	É ¥ new_list/É
	BRTR
	PRIM	List/List to item	É/item ¥ leaf/É
	PRIM	Stack/Push from aux	É ¥ item/leaf/É
	PRIM	List/Item to list	É ¥ new_leaf/leaf/É
	PRIM	List/Add	É ¥ new_list/É
EDEF