(LAP NODES SUBR) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(PUSH P (C 0 0 TAG11 0)) 
	(PUSH P -1 P) 
	(HRRZ@ 1 1) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E NCONC)) 
TAG11 	(MOVEM 1 0 P) 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP LABELEDGES SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HRRZ@ 2 1) 
	(HLRZ@ 2 2) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 -4 P) 
	(JUMPE 2 TAG7) 
	(HLRZ@ 2 2) 
	(MOVEM 2 -3 P) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(HRRZ@ 2 2) 
	(MOVEM 2 -1 P) 
TAG2 	(MOVE 2 -1 P) 
	(JUMPE 2 TAG5) 
	(HLRZ@ 2 2) 
	(MOVEM 2 -2 P) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E LEQ)) 
	(JUMPE 1 TAG4) 
	(MOVE 2 -2 P) 
	(HRRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG3 
TAG4 	(HRRZ@ 2 -1 P) 
	(MOVEM 2 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(HRRZ@ 2 -4 P) 
	(MOVEM 2 -4 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE ?)) 
	(CALL 2 (E CONS)) 
	(MOVE 3 -11 P) 
	(MOVE 2 -10 P) 
	(CALL 3 (E LABELM)) 
	(SUB P (C 0 0 5 5)) 
	(MOVEM 1 -1 P) 
TAG10 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG13) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E LUNCLASS)) 
	(HRRZ@ 2 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG11 
TAG12 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG10) 
TAG13 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP TRY? SUBR) 
	(MOVEI 1 (QUOTE T)) 
	(POPJ P) 
	NIL 

(LAP LEQ SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CAMN 1 2) 
	(JRST 0 TAG1) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG4) 
	(MOVE 1 2) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG5) 
TAG6 	(HLRZ@ 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG12) 
	(HRRZ@ 2 0 P) 
	(HRRZ@ 1 -1 P) 
	(CALL 2 (E LEQ)) 
	(JRST 0 TAG11) 
TAG12 	(HLRZ@ 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E LEQ)) 
TAG13 
TAG11 
TAG7 
TAG5 	(JRST 0 TAG3) 
TAG4 	(MOVE 1 2) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG15) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG3) 
TAG15 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG16) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG3) 
TAG16 	(MOVE 1 2) 
	(JUMPE 1 TAG3) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPN 1 TAG17) 
	(MOVE 1 0 P) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG21) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG20) 
TAG21 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E ALPHORD)) 
TAG22 
TAG20 	(JRST 0 TAG3) 
TAG17 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG26) 
	(TDZA 1 1) 
TAG26 	(MOVEI 1 (QUOTE T)) 
TAG24 
TAG3 	(JUMPN 1 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP ALPHORD SUBR) 
	(JCALL 2 (E ORDERP)) 
	NIL 

(LAP ORDERP SUBR) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE FIXNUM)) 
	(CALL 2 (E MAKNUM)) 
	(MOVEI 2 (QUOTE FIXNUM)) 
	(EXCH 1 0 P) 
	(CALL 2 (E MAKNUM)) 
	(POP P 2) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(POPJ P) 
	NIL