(LAP NODES SUBR) 
	(HRRZ@ 1 1) 
	(HLRZ@ 2 1) 
	(MOVEI 1 (QUOTE CADR)) 
	(JCALL 2 (E MAPCAR)) 
	NIL 

(LAP GROUPBY SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(JUMPE 1 TAG1) 
	(HRRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E GROUPBY)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HLRZ@ 1 -3 P) 
	(CALLF@ 1 -4 P) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVE 2 -2 P) 
	(MOVEM 1 0 P) 
	(CALL 3 (E LMASSOC)) 
	(MOVEM 1 -1 P) 
	(JUMPN 1 TAG8) 
	(HLRZ@ 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E CONS)) 
	(JRST 0 TAG4) 
TAG8 	(PUSH P (C 0 0 TAG9 0)) 
	(PUSH P -2 P) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(MOVE 1 -2 P) 
TAG4 	(SUB P (C 0 0 3 3)) 
TAG2 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL