perm filename CYCOMA.LAP[1,LMM]3 blob sn#034819 filedate 1973-04-12 generic text, type T, neo UTF8
(DECIMAL)
(COMMENT GENLISP 0 SHOULD BE IN FORLSP BUT 0 0 0) 

(LAP MAX SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
TAG3 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP FIX+ SUBR) 
	(MOVEI 2 (QUOTE 0.99000000)) 
	(CALL 2 (E *PLUS)) 
	(JCALL 1 (E FIX)) 
	NIL 

(LAP MAXLIST SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE -99999) 0)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVE 2 -2 P) 
	(MOVEM 1 0 P) 
	(CALL 2 (E MAX)) 
	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP TWICE SUBR) 
	(MOVE 2 1) 
	(JCALL 2 (E *PLUS)) 
	NIL 

(LAP CARLIST SUBR) 
	(PUSH P 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 TAG9 0)) 
	(PUSH P -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(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 CDRLIST SUBR) 
	(PUSH P 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 TAG9 0)) 
	(PUSH P -1 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(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 LCARLIST SUBR) 
	(PUSH P 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 TAG9 0)) 
	(PUSH P -1 P) 
	(CALL 1 (E CARLIST)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(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 LCDRLIST SUBR) 
	(PUSH P 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 TAG9 0)) 
	(PUSH P -1 P) 
	(CALL 1 (E CDRLIST)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(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 COPY SUBR) 
	(PUSH P 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(HLRZ@ 1 0 P) 
	(CALL 1 (E COPY)) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E COPY)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP NTH SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 0 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG6) 
	(MOVE 1 -1 P) 
	(JRST 0 TAG5) 
TAG6 	(MOVE 1 -1 P) 
	(CALL 1 (E LENGTH)) 
	(MOVE 2 0 P) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG7) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE (TO HIGH FOR NTH OF))) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E XCONS)) 
	(MOVEI 2 (QUOTE ARGUMENT)) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E PRINT)) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG5) 
TAG7 	(PUSH P (C 0 0 (QUOTE 2) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(MOVEM 1 0 P) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
TAG8 
TAG5 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP DIFF SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(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) 
	(MOVE 2 -3 P) 
	(CALL 2 (E MEMBER)) 
	(JUMPN 1 TAG3) 
	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(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 5 5)) 
	(POPJ P) 
	NIL 

(LAP PLUSLIST SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVE 2 -2 P) 
	(MOVEM 1 0 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP MIN SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 -1 P) 
TAG3 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP LMASSOC SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 2) 
	(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) 
	(MOVE 2 -5 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG10) 
	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG5) 
TAG10 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
TAG5 	(EXCH 1 -3 P) 
	(SUB P (C 0 0 6 6)) 
	(POPJ P) 
	NIL 

(COMMENT PARTITIONERS AND CL FUNCTIONS) 

(LAP NUMPARTITIONS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 4) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG9) 
	(MOVE 2 -3 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG12) 
	(MOVE 2 -3 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG11) 
TAG12 	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG10) 
TAG11 	(MOVE 1 -3 P) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E NCONS)) 
TAG13 
TAG10 	(JRST 0 TAG8) 
TAG9 	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *QUO)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E MIN)) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(CALL 1 (E SUB1)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(MOVE 1 -2 P) 
	(CALL 2 (E MAX)) 
	(PUSH P 1) 
	(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) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG7) 
	(MOVE 2 -3 P) 
	(MOVE 1 -8 P) 
	(CALL 2 (E *DIF)) 
	(PUSH P 1) 
	(MOVE 1 -8 P) 
	(CALL 1 (E SUB1)) 
	(MOVE 4 -6 P) 
	(MOVE 3 -4 P) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 4 (E NUMPARTITIONS)) 
	(MOVEM 1 -1 P) 
TAG2 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 TAG22 0)) 
	(PUSH P -1 P) 
	(MOVE 2 -5 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG22 	(MOVEM 1 0 P) 
TAG3 
TAG4 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
TAG15 
TAG8 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP SUBFUN1CLPARTITIONS SUBR) 
	(MOVEI 2 (QUOTE NIL)) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP CLPARTITIONS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(JUMPN 2 TAG24) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG23) 
TAG24 	(HRRZ@ 1 2) 
	(JUMPN 1 TAG25) 
	(MOVE 1 -1 P) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG23) 
TAG25 	(HLRZ@ 1 2) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG26) 
	(HRRZ@ 2 2) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CLPARTITIONS)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE SUBFUN1CLPARTITIONS)) 
	(CALL 2 (E MAPCAR)) 
	(JRST 0 TAG23) 
TAG26 	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(HLRZ@ 1 0 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG27) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(HLRZ@ 1 -1 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG4) 
	(MOVE 2 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG4) 
	(MOVE 1 -2 P) 
	(CALL 1 (E ADD1)) 
	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(MOVE 1 -2 P) 
	(JUMPN 1 TAG37) 
	(MOVE 3 0 P) 
	(MOVE 2 -1 P) 
	(MOVE 1 -3 P) 
	(CALL 3 (E CL=PARTS)) 
	(JRST 0 TAG28) 
TAG37 	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CLPARTS)) 
	(PUSH P 1) 
	(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)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG5 	(MOVE 1 -7 P) 
	(JUMPE 1 TAG15) 
	(HLRZ@ 1 1) 
	(MOVE 2 1) 
	(MOVEM 1 -6 P) 
	(MOVE 1 -11 P) 
	(CALL 2 (E CLDIFF)) 
	(MOVE 2 -10 P) 
	(CALL 2 (E CLPARTITIONS)) 
	(MOVE 3 -8 P) 
	(MOVE 2 -9 P) 
	(MOVEM 1 -5 P) 
	(MOVE 1 -6 P) 
	(CALL 3 (E CL=PARTS)) 
	(MOVEM 1 -3 P) 
TAG6 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG12) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -5 P) 
	(MOVEM 1 -1 P) 
TAG7 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG10) 
	(HLRZ@ 1 1) 
	(MOVE 2 1) 
	(MOVEM 1 -2 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *APPEND)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG8 
TAG9 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG7) 
TAG10 
TAG11 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG6) 
TAG12 
TAG13 
TAG14 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JRST 0 TAG5) 
TAG15 	(MOVE 1 0 P) 
	(SUB P (C 0 0 8 8)) 
TAG28 	(SUB P (C 0 0 2 2)) 
	(JRST 0 TAG23) 
TAG27 	(HLRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CLPARTS)) 
	(PUSH P 1) 
	(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)) 
TAG16 	(MOVE 1 -4 P) 
	(JUMPE 1 TAG22) 
	(HLRZ@ 1 1) 
	(MOVE 2 1) 
	(MOVEM 1 -3 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E CLDIFF)) 
	(HRRZ@ 2 -5 P) 
	(CALL 2 (E CLPARTITIONS)) 
	(MOVEM 1 -1 P) 
TAG17 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG20) 
	(HLRZ@ 1 1) 
	(MOVE 2 -3 P) 
	(MOVEM 1 -2 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG18 
TAG19 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG17) 
TAG20 
TAG21 	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG16) 
TAG22 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
TAG44 
TAG23 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CLPARTS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CAIE 2 (QUOTE 0)) 
	(JRST 0 TAG9) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG8) 
TAG9 	(HRRZ@ 1 1) 
	(JUMPN 1 TAG10) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG8) 
TAG10 	(HRRZ@ 1 -1 P) 
	(CALL 1 (E CLCOUNT)) 
	(MOVE 2 1) 
	(MOVE 1 0 P) 
	(CALL 2 (E *DIF)) 
	(PUSH P 1) 
	(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)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVEI 2 (QUOTE 0)) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG20) 
	(MOVEI 1 (QUOTE NIL)) 
	(JRST 0 TAG19) 
TAG20 	(MOVE 2 -6 P) 
	(HRRZ@ 1 -7 P) 
	(CALL 2 (E CLPARTS)) 
TAG21 
TAG19 	(HLRZ@ 2 -7 P) 
	(HRRZ@ 2 2) 
	(MOVEM 1 0 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E MIN)) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVEM 1 -3 P) 
	(MOVE 1 -5 P) 
	(CALL 2 (E MAX)) 
	(MOVEM 1 -4 P) 
TAG1 	(MOVE 2 -3 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG7) 
	(HRRZ@ 1 -7 P) 
	(MOVE 2 -4 P) 
	(PUSH P 1) 
	(MOVE 1 -7 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E CLPARTS)) 
	(MOVEM 1 -1 P) 
TAG2 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(MOVE 2 -4 P) 
	(MOVEM 1 -2 P) 
	(HLRZ@ 1 -7 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG3 
TAG4 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 1 0 P) 
	(SUB P (C 0 0 6 6)) 
TAG11 
TAG8 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CL=PARTS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG22) 
	(MOVE 2 3) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 (QUOTE 1) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 -3 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
	(MOVE 2 0 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(SUB P (C 0 0 2 2)) 
	(JRST 0 TAG21) 
TAG22 	(MOVE 4 0 P) 
	(MOVEI 3 (QUOTE 0)) 
	(MOVE 2 -1 P) 
	(HLRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(CALL 4 (E NUMPARTITIONS)) 
	(PUSH P 1) 
	(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)) 
TAG5 	(MOVE 1 -4 P) 
	(JUMPE 1 TAG20) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -3 P) 
	(HRRZ@ 1 -7 P) 
	(PUSH P 1) 
	(PUSH P -4 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG6 	(MOVE 2 -2 P) 
	(JUMPN 2 TAG37) 
	(JRST 0 TAG9) 
TAG37 	(HLRZ@ 2 -2 P) 
	(MOVEM 2 -1 P) 
	(PUSH P (C 0 0 TAG38 0)) 
	(PUSH P -1 P) 
	(MOVE 1 -11 P) 
	(CALL 2 (E *DIF)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG38 	(MOVEM 1 0 P) 
TAG7 
TAG8 	(HRRZ@ 2 -2 P) 
	(MOVEM 2 -2 P) 
	(JRST 0 TAG6) 
TAG9 	(MOVE 2 0 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E CLPARTITIONS)) 
	(SUB P (C 0 0 4 4)) 
	(MOVEM 1 -1 P) 
TAG10 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG18) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(PUSH P -3 P) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG11 	(MOVE 1 -4 P) 
	(JUMPE 1 TAG15) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(MOVE 1 -3 P) 
	(JUMPE 1 TAG15) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(PUSH P (C 0 0 TAG45 0)) 
	(PUSH P -1 P) 
	(MOVE 1 -4 P) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG47) 
	(MOVE 1 -3 P) 
	(JRST 0 TAG46) 
TAG47 	(MOVE 2 -4 P) 
	(HLRZ@ 1 -14 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E CONS)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E CONS)) 
TAG48 
TAG46 	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG45 	(MOVEM 1 0 P) 
TAG12 
TAG13 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
TAG14 	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG11) 
TAG15 	(MOVE 1 0 P) 
	(MOVE 2 -5 P) 
	(CALL 2 (E CONS)) 
	(SUB P (C 0 0 5 5)) 
	(MOVEM 1 0 P) 
TAG16 
TAG17 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG10) 
TAG18 
TAG19 	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG5) 
TAG20 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
TAG27 
TAG21 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP CLDIFF SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(JUMPN 2 TAG2) 
	(JRST 0 TAG1) 
TAG2 	(HLRZ@ 2 2) 
	(HLRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG3) 
	(HRRZ@ 2 0 P) 
	(HRRZ@ 1 -1 P) 
	(CALL 2 (E CLDIFF)) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(HLRZ@ 2 -1 P) 
	(HLRZ@ 2 2) 
	(CAME 2 1) 
	(JRST 0 TAG4) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(HLRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(PUSH P 1) 
	(HLRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E *DIF)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(HRRZ@ 2 0 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(CALL 2 (E CLDIFF)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG1) 
TAG4 	(HLRZ@ 1 -1 P) 
	(MOVE 2 0 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(CALL 2 (E CLDIFF)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG5 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CLCOUNT SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVE 2 -2 P) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP CLPARTITIONSN SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 4) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E CLCOUNT)) 
	(MOVE 4 -1 P) 
	(MOVE 3 -2 P) 
	(MOVE 2 -3 P) 
	(CALL 4 (E NUMPARTITIONS)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(PUSH P (C 0 0 TAG9 0)) 
	(PUSH P -3 P) 
	(MOVE 2 1) 
	(MOVE 1 -8 P) 
	(CALL 2 (E CLPARTITIONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 7 7)) 
	(POPJ P) 
	NIL 

(LAP CLCREATE SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(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) 
	(MOVE 2 -3 P) 
	(MOVEM 1 -1 P) 
	(CALL 2 (E CLINSERT)) 
	(MOVEM 1 -3 P) 
TAG2 
TAG3 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CLINSERT SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(JUMPN 2 TAG2) 
	(MOVEI 2 (QUOTE 1)) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG1) 
TAG2 	(HLRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG3) 
	(HLRZ@ 1 0 P) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(PUSH P 1) 
	(HRRZ@ 1 -1 P) 
	(CALL 1 (E ADD1)) 
	(HRRM@ 1 0 P) 
	(MOVE 1 -2 P) 
	(SUB P (C 0 0 2 2)) 
	(JRST 0 TAG1) 
TAG3 	(HLRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(MOVE 1 -1 P) 
	(CALL 2 (E LEQ)) 
	(JUMPE 1 TAG4) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(JRST 0 TAG1) 
TAG4 	(HRRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CLINSERT)) 
	(HRRM@ 1 0 P) 
	(MOVE 1 0 P) 
TAG5 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CLEXPAND SUBR) 
	(PUSH P 1) 
	(PUSH P 1) 
	(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 1 -4 P) 
	(JUMPE 1 TAG7) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -3 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 -2 P) 
TAG2 	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG5) 
	(PUSH P (C 0 0 TAG13 0)) 
	(PUSH P -1 P) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG13 	(MOVEM 1 0 P) 
TAG3 
TAG4 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 1 0 P) 
	(SUB P (C 0 0 6 6)) 
	(POPJ P) 
	NIL 

(LAP GENRAD SUBR) 
	(PUSH P 1) 
	(HRRZ@ 1 1) 
	(JUMPN 1 TAG14) 
	(MOVEI 2 (QUOTE 1)) 
	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG14) 
	(MOVEI 3 (QUOTE T)) 
	(MOVEI 2 (QUOTE NIL)) 
	(HLRZ@ 1 0 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E PERMRADS)) 
	(JRST 0 TAG13) 
TAG14 	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P -1 P) 
	(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)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -6 P) 
	(JUMPE 1 TAG12) 
	(CALL 1 (E CAAR)) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVEM 1 -5 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -8 P) 
	(CALL 2 (E CLDIFF)) 
	(MOVEM 1 -4 P) 
	(CALL 1 (E CLCOUNT)) 
	(PUSH P 1) 
	(MOVE 1 -6 P) 
	(CALL 1 (E VALENCE)) 
	(CALL 1 (E SUB1)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E MIN)) 
	(MOVEM 1 -2 P) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 -3 P) 
TAG2 	(MOVE 2 -2 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG8) 
	(MOVE 2 -3 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E GENRADS)) 
	(MOVEM 1 0 P) 
TAG3 	(MOVE 1 0 P) 
	(JUMPE 1 TAG6) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(PUSH P (C 0 0 TAG24 0)) 
	(PUSH P -8 P) 
	(MOVEI 3 (QUOTE T)) 
	(MOVE 2 1) 
	(MOVE 1 -7 P) 
	(CALL 3 (E PERMRADS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG24 	(MOVEM 1 -7 P) 
TAG4 
TAG5 	(HRRZ@ 1 0 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG3) 
TAG6 
TAG7 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG2) 
TAG8 
TAG9 
TAG10 
TAG11 	(HRRZ@ 1 -6 P) 
	(MOVEM 1 -6 P) 
	(JRST 0 TAG1) 
TAG12 	(MOVE 1 -7 P) 
	(SUB P (C 0 0 8 8)) 
TAG16 
TAG13 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP GENRADS SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(JUMPN 1 TAG6) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG5) 
TAG6 	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVE 1 -2 P) 
	(CALL 1 (E CLCOUNT)) 
	(MOVE 4 1) 
	(MOVEI 3 (QUOTE 1)) 
	(MOVE 2 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 4 (E CLPARTITIONSN)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG4) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(PUSH P (C 0 0 TAG13 0)) 
	(PUSH P -3 P) 
	(CALL 1 (E GENRADLIST)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG13 	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 -2 P) 
	(SUB P (C 0 0 3 3)) 
TAG7 
TAG5 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP GENRADLIST SUBR) 
	(CALL 1 (E CLCREATE)) 
	(CALL 1 (E GENRADLIST1)) 
	(JCALL 1 (E GROUPRADS)) 
	NIL 

(LAP GENRADLIST1 SUBR) 
	(PUSH P 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 TAG9 0)) 
	(PUSH P -1 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E GENRAD)) 
	(HRRZ@ 2 -3 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG9 	(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 GROUPRADS SUBR) 
	(PUSH P 1) 
	(JUMPN 1 TAG2) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG1) 
TAG2 	(HLRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(PUSH P 1) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(HRRZ@ 1 -2 P) 
	(CALL 1 (E GROUPRADS)) 
	(MOVE 3 1) 
	(MOVE 2 -1 P) 
	(POP P 1) 
	(CALL 3 (E GROUPRADS1)) 
	(SUB P (C 0 0 1 1)) 
TAG3 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP GROUPRADS1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CAIE 2 (QUOTE 0)) 
	(JRST 0 TAG10) 
	(MOVE 1 3) 
	(JRST 0 TAG9) 
TAG10 	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG13 
TAG2 	(MOVE 1 -5 P) 
	(JUMPE 1 TAG8) 
	(MOVE 1 -4 P) 
	(CALL 1 (E SUB1)) 
	(MOVE 3 -3 P) 
	(MOVE 2 1) 
	(MOVE 1 -5 P) 
	(CALL 3 (E GROUPRADS1)) 
	(MOVEM 1 -1 P) 
TAG3 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG6) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 TAG18 0)) 
	(PUSH P -1 P) 
	(HLRZ@ 2 -7 P) 
	(CALL 2 (E XCONS)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG18 	(MOVEM 1 0 P) 
TAG4 
TAG5 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG3) 
TAG6 
TAG7 	(HRRZ@ 1 -5 P) 
	(MOVEM 1 -5 P) 
	(JRST 0 TAG2) 
TAG8 	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
TAG11 
TAG9 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP VALENCE SUBR) 
	(PUSH P 1) 
	(CALL 1 (E NUMBERP)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 1 0 P) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG3) 
	(MOVEI 2 (QUOTE VALENCE)) 
	(MOVE 1 0 P) 
	(CALL 2 (E GET)) 
	(JRST 0 TAG1) 
TAG3 	(MOVE 1 0 P) 
	(CALL 1 (E FREEVALENCESIZE)) 
TAG4 
TAG1 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP GENMOL SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(CALL 1 (E CLCOUNT)) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVEM 1 -2 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG27) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVEI 2 (QUOTE NIL)) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 3 (E PERMRADS)) 
	(JRST 0 TAG23) 
TAG27 	(MOVEI 2 (QUOTE 2)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E REMAINDER)) 
	(CAIE 1 (QUOTE 0)) 
	(JRST 0 TAG28) 
	(MOVEI 2 (QUOTE 2)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *QUO)) 
	(MOVE 3 1) 
	(MOVEI 2 (QUOTE 2)) 
	(MOVE 1 -3 P) 
	(CALL 3 (E CL=PARTS)) 
	(PUSH P 1) 
	(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 1 -4 P) 
	(JUMPE 1 TAG7) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -3 P) 
	(CALL 1 (E GENRADLIST)) 
	(MOVEM 1 -1 P) 
TAG2 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVE 2 1) 
	(MOVEM 1 -2 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 3 (E PERMRADS)) 
	(MOVE 2 -6 P) 
	(CALL 2 (E *APPEND)) 
	(MOVEM 1 -6 P) 
TAG3 
TAG4 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(HRRZ@ 1 -4 P) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 1 0 P) 
	(MOVEI 1 (QUOTE 3)) 
	(MOVEM 1 -5 P) 
	(SUB P (C 0 0 5 5)) 
	(JRST 0 TAG26) 
TAG28 	(MOVEI 1 (QUOTE 2)) 
	(MOVEM 1 0 P) 
TAG34 
TAG26 	(MOVE 1 -2 P) 
	(CALL 1 (E SUB1)) 
	(MOVEM 1 -2 P) 
	(PUSH P -3 P) 
	(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)) 
	(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)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG8 	(MOVE 1 -10 P) 
	(JUMPE 1 TAG22) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -9 P) 
	(HLRZ@ 1 1) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVEM 1 -8 P) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 1) 
	(MOVE 1 -14 P) 
	(CALL 2 (E CLDIFF)) 
	(MOVEM 1 -7 P) 
	(MOVE 1 -8 P) 
	(CALL 1 (E VALENCE)) 
	(MOVE 2 -13 P) 
	(CALL 2 (E MIN)) 
	(MOVEM 1 -5 P) 
	(MOVE 1 -11 P) 
	(MOVEM 1 -6 P) 
TAG9 	(MOVE 2 -5 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG18) 
	(MOVEI 2 (QUOTE 2)) 
	(MOVE 1 -13 P) 
	(CALL 2 (E *QUO)) 
	(MOVE 4 1) 
	(MOVEI 3 (QUOTE 1)) 
	(MOVE 2 -6 P) 
	(MOVE 1 -7 P) 
	(CALL 4 (E CLPARTITIONSN)) 
	(MOVEM 1 -3 P) 
TAG10 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG16) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -4 P) 
	(CALL 1 (E GENRADLIST)) 
	(MOVEM 1 -1 P) 
TAG11 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG14) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 TAG43 0)) 
	(MOVEI 3 (QUOTE NIL)) 
	(MOVE 2 1) 
	(MOVE 1 -9 P) 
	(CALL 3 (E PERMRADS)) 
	(PUSH P 1) 
	(PUSH P -14 P) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG43 	(MOVEM 1 -12 P) 
TAG12 
TAG13 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG11) 
TAG14 
TAG15 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG10) 
TAG16 
TAG17 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -6 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -6 P) 
	(JRST 0 TAG9) 
TAG18 
TAG19 
TAG20 
TAG21 	(HRRZ@ 1 -10 P) 
	(MOVEM 1 -10 P) 
	(JRST 0 TAG8) 
TAG22 	(MOVE 1 0 P) 
	(SUB P (C 0 0 11 11)) 
	(MOVE 1 -1 P) 
TAG23 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP NUMPARTITIONS* SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 4) 
	(HRRZ@ 1 4) 
	(JUMPN 1 TAG14) 
	(HLRZ@ 4 3) 
	(EXCH 3 2) 
	(HLRZ@ 2 0 P) 
	(MOVE 1 -3 P) 
	(CALL 4 (E NUMPARTITIONS)) 
	(JRST 0 TAG13) 
TAG14 	(HLRZ@ 1 -1 P) 
	(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)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P 1) 
	(HRRZ@ 1 -6 P) 
	(CALL 1 (E PLUSLIST)) 
	(MOVE 2 1) 
	(MOVE 1 -9 P) 
	(CALL 2 (E *DIF)) 
	(HLRZ@ 2 -6 P) 
	(CALL 2 (E *QUO)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E MIN)) 
	(MOVEM 1 -3 P) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E SUB1)) 
	(HLRZ@ 2 -6 P) 
	(CALL 2 (E *TIMES)) 
	(HRRZ@ 2 -6 P) 
	(PUSH P 2) 
	(HRRZ@ 2 -6 P) 
	(PUSH P 2) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 -4 P) 
	(JUMPN 2 TAG24) 
	(JRST 0 TAG5) 
TAG24 	(HLRZ@ 2 -4 P) 
	(MOVEM 2 -1 P) 
	(MOVE 2 -3 P) 
	(JUMPN 2 TAG26) 
	(JRST 0 TAG5) 
TAG26 	(HLRZ@ 2 -3 P) 
	(MOVEM 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
TAG2 
TAG3 	(HRRZ@ 2 -3 P) 
	(MOVEM 2 -3 P) 
TAG4 	(HRRZ@ 2 -4 P) 
	(MOVEM 2 -4 P) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 2 -2 P) 
	(MOVE 1 -13 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(MOVE 1 -12 P) 
	(CALL 2 (E MAX)) 
	(CALL 1 (E FIX+)) 
	(SUB P (C 0 0 5 5)) 
	(MOVEM 1 -4 P) 
TAG6 	(MOVE 2 -3 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG12) 
	(MOVEI 2 (QUOTE 1)) 
	(HLRZ@ 1 -5 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG29) 
	(MOVE 2 -4 P) 
	(MOVE 1 -8 P) 
	(CALL 2 (E *DIF)) 
	(HRRZ@ 4 -5 P) 
	(HRRZ@ 3 -6 P) 
	(MOVEI 2 (QUOTE 1)) 
	(CALL 4 (E NUMPARTITIONS*)) 
	(JRST 0 TAG28) 
TAG29 	(MOVE 2 -4 P) 
	(MOVE 1 -8 P) 
	(CALL 2 (E *DIF)) 
	(PUSH P 1) 
	(HLRZ@ 1 -6 P) 
	(CALL 1 (E SUB1)) 
	(HRRZ@ 2 -6 P) 
	(CALL 2 (E CONS)) 
	(MOVE 4 1) 
	(MOVE 3 -7 P) 
	(MOVE 2 -5 P) 
	(POP P 1) 
	(CALL 4 (E NUMPARTITIONS*)) 
TAG30 
TAG28 	(MOVEM 1 -1 P) 
TAG7 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG10) 
	(HLRZ@ 1 1) 
	(MOVE 2 -4 P) 
	(MOVEM 1 -2 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG8 
TAG9 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG7) 
TAG10 
TAG11 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -4 P) 
	(JRST 0 TAG6) 
TAG12 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
TAG15 
TAG13 	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	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 TAG11 0)) 
	(PUSH P -2 P) 
	(HLRZ@ 1 -5 P) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 14 (E NCONC)) 
TAG11 	(MOVE 1 -2 P) 
	(JRST 0 TAG4) 
TAG9 	(MOVEI 1 (QUOTE NIL)) 
TAG4 	(SUB P (C 0 0 3 3)) 
TAG2 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP FVPARTITION1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(JUMPN 2 TAG18) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG17) 
TAG18 	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(HRRZ@ 1 -3 P) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(CALL 1 (E ADD1)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(MOVEI 2 (QUOTE 9999999)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG5) 
	(MOVE 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -3 P) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
TAG4 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 1 -3 P) 
	(SUB P (C 0 0 4 4)) 
	(MOVEM 1 0 P) 
	(MOVE 2 -1 P) 
	(HLRZ@ 1 -2 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(MOVE 1 -3 P) 
	(CALL 2 (E MIN)) 
	(MOVE 2 0 P) 
	(PUSH P 1) 
	(MOVE 1 -4 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 2 (E MAX)) 
	(PUSH P 1) 
	(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)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG6 	(MOVE 2 -7 P) 
	(MOVE 1 -6 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG16) 
	(MOVE 2 -6 P) 
	(MOVE 1 -11 P) 
	(CALL 2 (E *DIF)) 
	(PUSH P 1) 
	(HRRZ@ 1 -11 P) 
	(PUSH P 1) 
	(MOVE 1 -11 P) 
	(CALL 1 (E ADD1)) 
	(MOVE 3 1) 
	(POP P 2) 
	(POP P 1) 
	(CALL 3 (E FVPARTITION1)) 
	(MOVE 3 -9 P) 
	(HLRZ@ 2 -10 P) 
	(MOVEM 1 -5 P) 
	(MOVE 1 -6 P) 
	(CALL 3 (E FVPART1)) 
	(MOVEM 1 -3 P) 
TAG7 	(MOVE 1 -3 P) 
	(JUMPE 1 TAG13) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -4 P) 
	(MOVE 1 -5 P) 
	(MOVEM 1 -1 P) 
TAG8 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG11) 
	(HLRZ@ 1 1) 
	(MOVE 2 -4 P) 
	(MOVEM 1 -2 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG9 
TAG10 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG8) 
TAG11 
TAG12 	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG7) 
TAG13 
TAG14 
TAG15 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -6 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -6 P) 
	(JRST 0 TAG6) 
TAG16 	(MOVE 1 0 P) 
	(SUB P (C 0 0 9 9)) 
TAG19 
TAG17 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP FVPART1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(CAIE 3 (QUOTE 0)) 
	(JRST 0 TAG9) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG8) 
TAG9 	(MOVE 2 0 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *QUO)) 
	(MOVE 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E MIN)) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 1 (E SUB1)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 2 (E MAX)) 
	(PUSH P 1) 
	(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) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG7) 
	(MOVE 2 -5 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(MOVE 1 -7 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 -3 P) 
	(PUSH P 1) 
	(MOVE 1 -7 P) 
	(CALL 2 (E *DIF)) 
	(PUSH P 1) 
	(MOVE 1 -7 P) 
	(CALL 1 (E SUB1)) 
	(MOVE 3 1) 
	(POP P 2) 
	(POP P 1) 
	(CALL 3 (E FVPART1)) 
	(MOVEM 1 -1 P) 
TAG2 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG5) 
	(HLRZ@ 1 1) 
	(MOVE 2 -3 P) 
	(MOVEM 1 -2 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 0 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 0 P) 
TAG3 
TAG4 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG2) 
TAG5 
TAG6 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG1) 
TAG7 	(MOVE 1 0 P) 
	(SUB P (C 0 0 5 5)) 
TAG10 
TAG8 	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP MINLOOPS SUBR) 
	(PUSH P 1) 
	(MOVEI 2 (QUOTE 0)) 
	(PUSH P 2) 
	(PUSH P 2) 
	(HRRZ@ 2 1) 
	(PUSH P (C 0 0 (QUOTE 3) 0)) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 -2 P) 
	(JUMPE 2 TAG5) 
	(HLRZ@ 2 2) 
	(MOVEM 2 -1 P) 
	(MOVEI 2 (QUOTE 999999)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG5) 
	(MOVE 1 -1 P) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG3) 
	(MOVE 2 -4 P) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG16) 
	(MOVE 2 -3 P) 
	(MOVEM 2 -4 P) 
TAG16 	(MOVE 2 -3 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -5 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -5 P) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -3 P) 
TAG4 	(HRRZ@ 2 -2 P) 
	(MOVEM 2 -2 P) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 2 0 P) 
	(SUB P (C 0 0 4 4)) 
	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E *DIF)) 
	(MOVEI 2 (QUOTE 2)) 
	(CALL 2 (E *QUO)) 
	(MOVE 2 1) 
	(MOVEI 1 (QUOTE 0)) 
	(SUB P (C 0 0 3 3)) 
	(JCALL 2 (E MAX)) 
	NIL 

(LAP MAXLOOPS SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE 0) 0)) 
	(HRRZ@ 1 -2 P) 
	(HRRZ@ 1 1) 
	(PUSH P (C 0 0 (QUOTE 2) 0)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG10) 
	(JRST 0 TAG5) 
TAG10 	(HLRZ@ 1 -1 P) 
	(MOVEM 1 0 P) 
	(MOVEI 2 (QUOTE 99999)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG12) 
	(JRST 0 TAG5) 
TAG12 	(MOVE 2 0 P) 
	(MOVEI 1 (QUOTE 0.5)) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -3 P) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
TAG4 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 1 -3 P) 
	(CALL 1 (E FIX+)) 
	(MOVE 2 1) 
	(EXCH 1 -4 P) 
	(SUB P (C 0 0 6 6)) 
	(JCALL 2 (E MIN)) 
	NIL