--- /dev/null
+
+<COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
+
+<NEWTYPE XTYPE-W ATOM>
+
+<NEWTYPE LOCAL-NAME FIX>
+
+<NEWTYPE LOCAL VECTOR>
+
+<NEWTYPE XGLOC ATOM>
+
+<SETG PRIM-FIX 0>
+
+<SETG PRIM-LIST 1>
+
+<MANIFEST PRIM-LIST PRIM-FIX>
+
+#WORD *26554444000*
+<GFCN \1aNTHL!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY ANY ANY) L12 AOS13 NOT-DEAD?14 LEN-VAR15>
+ <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
+OPT8
+ <PUSH %<>>
+OPT9
+ <PUSH 'T>
+OPT10
+ <PUSH #T$UNBOUND 0>
+OPT11
+ <TEMP LST16 (TEMP27 %<>) AMT17 VAL18 LOOP19:ATOM END20:ATOM (AHEAD23 %<>) AC24 TEMP50 NAC25 TEMP113>
+ <INTGO>
+ <NTHL L12 1 = LST16>
+ <RESTL L12 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = AMT17>
+ <DEAD TEMP27>
+ <RESTL L12 1 = TEMP27 (TYPE LIST)>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <NTHL TEMP27 1 = VAL18>
+ <DEAD TEMP27>
+ <FRAME '\1aGENLBL>
+ <PUSH "LOOP">
+ <CALL '\1aGENLBL 1 = LOOP19>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = END20>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L12>
+ <CALL '\1aEXTRAMEM 2 = TEMP27>
+ <TYPE? AOS13 <TYPE-CODE FALSE> - BOOL32>
+ <FRAME '\1aNTH-PUT-LOOK-AHEAD>
+ <PUSH L12>
+ <DEAD L12>
+ <PUSH "PUTL">
+ <PUSH LST16>
+ <PUSH AMT17>
+ <PUSH VAL18>
+ <CALL '\1aNTH-PUT-LOOK-AHEAD 5 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE187>
+BOOL32
+ <TYPE? LEN-VAR15 <TYPE-CODE UNBOUND> + PHRASE36>
+ <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE36>
+ <SET VAL18 LEN-VAR15>
+ <DEAD LEN-VAR15>
+PHRASE36
+ <FRAME '\1aIN-AC?>
+ <PUSH LST16>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + BOOL41>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP27>
+ <CALL '\1aNEXT-AC 1 = AC24>
+ <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE39>
+BOOL41
+ <FRAME '\1aIN-AC?>
+ <PUSH LST16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC24>
+ <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE39>
+ <TYPE? AOS13 <TYPE-CODE FALSE> + BOOL48>
+ <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE46>
+BOOL48
+ <EQUAL? LST16 VAL18 + PHRASE46>
+ <FRAME '\1aLOOK-AHEAD>
+ <GEN-LVAL 'MIML = TEMP50>
+ <RESTL TEMP50 1 = STACK (TYPE LIST)>
+ <DEAD TEMP50>
+ <PUSH VAL18>
+ <PUSH 'BOTH>
+ <CALL '\1aLOOK-AHEAD 3 = AHEAD23>
+ <TYPE? AHEAD23 <TYPE-CODE FALSE> + PHRASE46>
+ <GVAL 'AC-STAMP = TEMP50>
+ <ADD TEMP50 1 = TEMP50 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP50>
+ <PUTUV AHEAD23 4 TEMP50 (TYPE FIX)>
+ <DEAD TEMP50>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AHEAD23>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP50>
+ <GVAL 'AC-STAMP = TEMP27>
+ <PUTUV TEMP50 4 TEMP27 (TYPE FIX)>
+ <DEAD TEMP50 TEMP27>
+PHRASE46
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH LST16>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP27>
+ <PUSH TEMP27>
+ <CALL '\1aNEXT-AC 1 = AC24>
+PHRASE39
+ <FRAME '\1aWILL-DIE?>
+ <PUSH LST16>
+ <CALL '\1aWILL-DIE? 1 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE65>
+ <DEAD TEMP50>
+ <EQUAL? LST16 VAL18 + PHRASE65>
+ <EQUAL? AMT17 1 + PHRASE65>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE63>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TEMP27>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <JUMP + PHRASE65>
+PHRASE63
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC24>
+ <CALL '\1aFLUSH-AC 1>
+PHRASE65
+ <EQUAL? AMT17 VAL18 - PHRASE68>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL18>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL70>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL18>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP50>
+BOOL70
+ <SET NAC25 TEMP50>
+ <DEAD TEMP50>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC25>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE68
+ <TYPE? AOS13 <TYPE-CODE FALSE> + BOOL77>
+ <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE80>
+BOOL77
+ <EQUAL? VAL18 'STACK + PHRASE80>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL18>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <PUSH 'T>
+ <PUSH AHEAD23>
+ <DEAD AHEAD23>
+ <CALL '\1aLOAD-AC 5 = NAC25>
+ <EQUAL? NAC25 TEMP27 - PHRASE80>
+ <EQUAL? LST16 VAL18 - PHRASE80>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <CALL '\1aGET-AC 1 = TEMP50>
+ <PUTUV TEMP50 6 %<>>
+ <DEAD TEMP50>
+PHRASE80
+ <EQUAL? AMT17 1 + PHRASE138>
+ <TYPE? AMT17 <TYPE-CODE ATOM> - BOOL100>
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT17>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AHEAD23>
+ <TYPE? AHEAD23 <TYPE-CODE FALSE> + BOOL88>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT17>
+ <CALL '\1aWILL-DIE? 1 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> + BOOL91>
+ <DEAD TEMP50>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT17 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL90>
+ <DEAD TEMP50>
+BOOL91
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AHEAD23>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP50>
+ <NTHUV TEMP50 5 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL88>
+ <DEAD TEMP50>
+BOOL90
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AHEAD23>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AHEAD23>
+ <DEAD AHEAD23>
+ <CALL '\1aNEXT-AC 1 = AHEAD23>
+ <SET TEMP50 AHEAD23>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE111>
+ <DEAD TEMP50>
+BOOL88
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT17>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AHEAD23>
+ <TYPE? AHEAD23 <TYPE-CODE FALSE> + BOOL100>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT17>
+ <CALL '\1aWILL-DIE? 1 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> + BOOL103>
+ <DEAD TEMP50>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT17 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL102>
+ <DEAD TEMP50>
+BOOL103
+ <FRAME '\1aGET-AC>
+ <PUSH AHEAD23>
+ <CALL '\1aGET-AC 1 = TEMP50>
+ <NTHUV TEMP50 5 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL100>
+ <DEAD TEMP50>
+BOOL102
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AHEAD23>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2 = TEMP50>
+ <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE111>
+ <DEAD TEMP50>
+BOOL100
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET AHEAD23 'O* (TYPE ATOM)>
+ <PUSH AHEAD23>
+ <SET TEMP113 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT17>
+ <DEAD AMT17>
+ <SCALL '\1aOBJ-VAL 1 = TEMP50 + TAG112 TEMP113>
+ <LOOP (TEMP50 TYPE VALUE LENGTH) (TEMP113 VALUE)>
+TAG115
+ <INTGO>
+ <EMPTY? TEMP50 + TAG112>
+ <NTH1 TEMP50 = STACK>
+ <REST1 TEMP50 = TEMP50>
+ <ADD TEMP113 1 = TEMP113 (TYPE FIX)>
+ <JUMP + TAG115>
+TAG112
+ <CALL '\1aOCEMIT TEMP113>
+ <DEAD TEMP113>
+PHRASE111
+ <PUSH LOOP19>
+ <SET TEMP50 1 (TYPE FIX)>
+ <GVAL 'LOOPTAGS = TEMP113>
+ <TYPE TEMP113 = AMT17>
+ <AND AMT17 7 = AMT17>
+ <VEQUAL? AMT17 1 + TAG119>
+ <DEAD AMT17>
+ <LOOP (TEMP113 TYPE VALUE LENGTH) (TEMP50 VALUE)>
+TAG125
+ <INTGO>
+ <EMPTY? TEMP113 + TAG124>
+ <NTH1 TEMP113 = STACK>
+ <REST1 TEMP113 = TEMP113>
+ <ADD TEMP50 1 = TEMP50 (TYPE FIX)>
+ <JUMP + TAG125>
+TAG124
+ <LIST TEMP50 = TEMP113 (TYPE LIST)>
+ <DEAD TEMP50>
+ <JUMP + TAG120>
+TAG119
+ <LOOP>
+TAG122
+ <VEQUAL? TEMP50 0 + TAG121>
+ <POP = AMT17>
+ <CONS AMT17 TEMP113 = TEMP113 (TYPE LIST)>
+ <DEAD AMT17>
+ <SUB TEMP50 1 = TEMP50 (TYPE FIX)>
+ <JUMP + TAG122>
+TAG121
+TAG120
+ <SETG 'LOOPTAGS TEMP113>
+ <DEAD TEMP113>
+ <FRAME '\1aLABEL>
+ <PUSH LOOP19>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOJE>
+ <PUSH AHEAD23>
+ <DEAD AHEAD23>
+ <FRAME '\1aXJUMP>
+ <PUSH END20>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC24>
+ <CONS AC24 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH LOOP19>
+ <DEAD LOOP19>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aLABEL>
+ <PUSH END20>
+ <DEAD END20>
+ <CALL '\1aLABEL 1>
+ <EQUAL? LST16 VAL18 + PHRASE138>
+ <DEAD LST16>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE136>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE138>
+PHRASE136
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC24>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE138
+ <TYPE? AOS13 <TYPE-CODE FALSE> + PHRASE141>
+ <EQUAL? VAL18 'STACK - PHRASE143>
+ <DEAD VAL18>
+ <FRAME '\1aOCEMIT>
+ <PUSH AOS13>
+ <PUSH 'O1*>
+ <EQUAL? AOS13 'HRRZ - PHRASE146>
+ <DEAD AOS13>
+ <SET TEMP113 1 (TYPE FIX)>
+ <JUMP + PHRASE147>
+PHRASE146
+ <SET TEMP113 2 (TYPE FIX)>
+PHRASE147
+ <PUSH TEMP113>
+ <DEAD TEMP113>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET AMT17 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP113 + TAG148 AMT17>
+ <LOOP (TEMP113 TYPE VALUE LENGTH) (AMT17 VALUE)>
+TAG150
+ <INTGO>
+ <EMPTY? TEMP113 + TAG148>
+ <NTH1 TEMP113 = STACK>
+ <REST1 TEMP113 = TEMP113>
+ <ADD AMT17 1 = AMT17 (TYPE FIX)>
+ <JUMP + TAG150>
+TAG148
+ <CALL '\1aOCEMIT AMT17>
+ <DEAD AMT17>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O1*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE177>
+ <GVAL 'STACK-DEPTH = AMT17>
+ <ADD AMT17 2 = AMT17 (TYPE FIX)>
+ <SETG 'STACK-DEPTH AMT17>
+ <RETURN AMT17>
+ <DEAD AMT17>
+PHRASE143
+ <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE155>
+ <DEAD NOT-DEAD?14>
+ <FRAME '\1aOCEMIT>
+ <PUSH AOS13>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <EQUAL? AOS13 'HRRZ - PHRASE159>
+ <DEAD AOS13>
+ <SET AMT17 1 (TYPE FIX)>
+ <JUMP + PHRASE160>
+PHRASE159
+ <SET AMT17 2 (TYPE FIX)>
+PHRASE160
+ <PUSH AMT17>
+ <DEAD AMT17>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aGET-AC 1 = AMT17>
+ <PUTUV AMT17 6 'FIX>
+ <RETURN AMT17>
+ <DEAD AMT17>
+PHRASE155
+ <TYPE? AOS13 <TYPE-CODE FORM> - PHRASE162>
+ <NTHL AOS13 1 = AMT17 (TYPE ATOM)>
+ <NTHR AMT17 3 = AMT17 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? AMT17 "VEQUAL?" - PHRASE164>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP113 "VEQUAL?" (TYPE STRING)>
+ <LENUS AMT17 = LST16 (TYPE FIX)>
+ <VEQUAL? LST16 7 - PHRASE164>
+ <LOOP (AMT17 VALUE LENGTH) (TEMP113 VALUE LENGTH) (LST16 VALUE)>
+TAG168
+ <NTHUS AMT17 1 = TEMP27>
+ <NTHUS TEMP113 1 = VAL18>
+ <VEQUAL? TEMP27 VAL18 - PHRASE164>
+ <DEAD TEMP27 VAL18>
+ <RESTUS AMT17 1 = AMT17 (TYPE STRING)>
+ <RESTUS TEMP113 1 = TEMP113 (TYPE STRING)>
+ <SUB LST16 1 = LST16 (TYPE FIX)>
+ <GRTR? LST16 0 + TAG168 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <RESTL AOS13 1 = TEMP113 (TYPE LIST)>
+ <DEAD AOS13>
+ <CHTYPE TEMP113 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP113>
+ <PUSH AC24>
+ <DEAD AC24>
+ <PUSH %<>>
+ <PUSH 2>
+ <CALL '\1aVEQUAL?!-MIMOC 4 = TEMP27>
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+PHRASE164
+ <NTHL AOS13 1 = AMT17 (TYPE ATOM)>
+ <NTHR AMT17 3 = AMT17 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? AMT17 "TYPE?" - PHRASE170>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET VAL18 "TYPE?" (TYPE STRING)>
+ <LENUS AMT17 = TEMP27 (TYPE FIX)>
+ <VEQUAL? TEMP27 5 - PHRASE170>
+ <LOOP (AMT17 VALUE LENGTH) (VAL18 VALUE LENGTH) (TEMP27 VALUE)>
+TAG173
+ <NTHUS AMT17 1 = LST16>
+ <NTHUS VAL18 1 = AHEAD23>
+ <VEQUAL? LST16 AHEAD23 - PHRASE170>
+ <DEAD LST16>
+ <RESTUS AMT17 1 = AMT17 (TYPE STRING)>
+ <RESTUS VAL18 1 = VAL18 (TYPE STRING)>
+ <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
+ <GRTR? TEMP27 0 + TAG173 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <RESTL AOS13 1 = AMT17 (TYPE LIST)>
+ <RESTL AMT17 1 = AMT17 (TYPE LIST)>
+ <RESTL AMT17 1 = VAL18 (TYPE LIST)>
+ <DEAD AMT17>
+ <CHTYPE VAL18 <TYPE-CODE LIST> = STACK>
+ <DEAD VAL18>
+ <PUSH AC24>
+ <DEAD AC24>
+ <PUSH %<>>
+ <PUSH 2>
+ <RESTL AOS13 1 = AMT17 (TYPE LIST)>
+ <DEAD AOS13>
+ <NTHL AMT17 1 = STACK>
+ <DEAD AMT17>
+ <CALL '\1aVEQUAL?!-MIMOC 5 = TEMP27>
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+PHRASE170
+ <FRAME '\1aEQUAL?!-MIMOC>
+ <RESTL AOS13 1 = AMT17 (TYPE LIST)>
+ <DEAD AOS13>
+ <CHTYPE AMT17 <TYPE-CODE LIST> = STACK>
+ <DEAD AMT17>
+ <PUSH AC24>
+ <DEAD AC24>
+ <PUSH %<>>
+ <PUSH 1>
+ <CALL '\1aEQUAL?!-MIMOC 4 = TEMP27>
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+PHRASE162
+ <FRAME '\1aOCEMIT>
+ <PUSH AOS13>
+ <EQUAL? AOS13 'HRRZ - PHRASE180>
+ <DEAD AOS13>
+ <SET AHEAD23 1 (TYPE FIX)>
+ <JUMP + PHRASE181>
+PHRASE180
+ <SET AHEAD23 2 (TYPE FIX)>
+PHRASE181
+ <PUSH AHEAD23>
+ <DEAD AHEAD23>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 3 = TEMP27>
+PHRASE177
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+PHRASE141
+ <EQUAL? VAL18 'STACK - PHRASE182>
+ <DEAD VAL18>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 1>
+ <CONS AC24 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 2>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE187>
+ <GVAL 'STACK-DEPTH = AHEAD23>
+ <ADD AHEAD23 2 = AHEAD23 (TYPE FIX)>
+ <SETG 'STACK-DEPTH AHEAD23>
+ <RETURN AHEAD23>
+ <DEAD AHEAD23>
+PHRASE182
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <PUSH 1>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4 = TEMP27>
+PHRASE187
+ <RETURN TEMP27>
+ <DEAD TEMP27>
+ <END \1aNTHL!-MIMOC>\r\r
+#WORD *36141337340*
+<GFCN \1aRESTL!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
+ <TEMP LST6 TEMP16 AMT7 VAL8 (TAC11 %<>) END12:ATOM LOOP13:ATOM LV14 AC9 NAC10 TEMP149>
+ <INTGO>
+ <NTHL L5 1 = LST6>
+ <RESTL L5 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = AMT7>
+ <DEAD TEMP16>
+ <RESTL L5 1 = TEMP16 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = VAL8>
+ <DEAD TEMP16>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = END12>
+ <FRAME '\1aGENLBL>
+ <PUSH "LOOP">
+ <CALL '\1aGENLBL 1 = LOOP13>
+ <FRAME '\1aLMEMQ>
+ <PUSH VAL8>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> - BOOL21>
+ <GVAL 'ICALL-FLAG = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL21>
+ <FRAME '\1aLMEMQ>
+ <PUSH VAL8>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP16>
+BOOL21
+ <SET LV14 TEMP16>
+ <DEAD TEMP16>
+ <SET TEMP16 LV14>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE24>
+ <NTHUV LV14 4 = TEMP16>
+ <DEAD LV14>
+PHRASE24
+ <SET LV14 TEMP16>
+ <DEAD TEMP16>
+ <EQUAL? AMT7 1 + BOOL27>
+ <EQUAL? AMT7 2 - PHRASE26>
+BOOL27
+ <FRAME '\1aIN-AC?>
+ <PUSH LST6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TAC11>
+ <TYPE? TAC11 <TYPE-CODE FALSE> + BOOL29>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC11>
+ <CALL '\1aNEXT-AC 1 = AC9>
+ <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
+BOOL29
+ <FRAME '\1aIN-AC?>
+ <PUSH LST6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC9>
+ <JUMP + PHRASE33>
+PHRASE26
+ <FRAME '\1aIN-AC?>
+ <PUSH LST6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC9>
+ <TYPE? AC9 <TYPE-CODE FALSE> + BOOL35>
+ <SET TAC11 AC9>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aNEXT-AC 1 = AC9>
+ <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
+BOOL35
+ <FRAME '\1aIN-AC?>
+ <PUSH LST6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC9>
+ <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH LST6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TAC11>
+ <PUSH TAC11>
+ <CALL '\1aNEXT-AC 1 = AC9>
+PHRASE33
+ <EQUAL? AMT7 VAL8 - PHRASE42>
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT7>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = NAC10>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC10>
+ <DEAD NAC10>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE42
+ <EQUAL? VAL8 LST6 + PHRASE47>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL8>
+ <CALL '\1aCLEAN-ACS 1>
+PHRASE47
+ <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE50>
+ <EQUAL? LST6 VAL8 + BOOL52>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH LST6>
+ <CALL '\1aWILL-DIE? 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE50>
+ <DEAD TEMP16>
+BOOL52
+ <SET NAC10 TAC11>
+ <JUMP + PHRASE62>
+PHRASE50
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE54>
+ <EQUAL? LST6 VAL8 + BOOL56>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH LST6>
+ <CALL '\1aWILL-DIE? 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE54>
+ <DEAD TEMP16>
+BOOL56
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH AC9>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP16>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aGET-AC 1 = TAC11>
+ <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE54>
+ <FRAME '\1aNEXT-AC>
+ <NTHUV TAC11 1 = STACK (TYPE ATOM)>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <EQUAL? TEMP16 AC9 - PHRASE54>
+ <DEAD TEMP16>
+ <NTHUV TAC11 1 = NAC10 (TYPE ATOM)>
+ <PUTUV TAC11 3 'TYPE (TYPE ATOM)>
+ <PUTUV TAC11 2 LST6>
+ <DEAD TAC11>
+ <SET TAC11 %<> (TYPE FALSE)>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC10>
+ <CALL '\1aFLUSH-AC 1>
+ <JUMP + PHRASE62>
+PHRASE54
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC10>
+PHRASE62
+ <EQUAL? AMT7 1 - PHRASE65>
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE67>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CONS AC9 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE138>
+PHRASE67
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <SET AMT7 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH LST6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG71 AMT7>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
+TAG75
+ <INTGO>
+ <EMPTY? TEMP16 + TAG71>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD AMT7 1 = AMT7 (TYPE FIX)>
+ <JUMP + TAG75>
+TAG71
+ <CALL '\1aOCEMIT AMT7>
+ <DEAD AMT7>
+ <JUMP + PHRASE138>
+PHRASE65
+ <EQUAL? AMT7 2 - PHRASE77>
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE79>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <CONS AC9 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE138>
+PHRASE79
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <SET TEMP16 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH LST6>
+ <SCALL '\1aOBJ-VAL 1 = AMT7 + TAG83 TEMP16>
+ <LOOP (AMT7 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG86
+ <INTGO>
+ <EMPTY? AMT7 + TAG83>
+ <NTH1 AMT7 = STACK>
+ <REST1 AMT7 = AMT7>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG86>
+TAG83
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE138>
+PHRASE77
+ <EQUAL? AMT7 3 - PHRASE91>
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE93>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <CONS AC9 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE138>
+PHRASE93
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <SET AMT7 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH LST6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG100 AMT7>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
+TAG103
+ <INTGO>
+ <EMPTY? TEMP16 + TAG100>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD AMT7 1 = AMT7 (TYPE FIX)>
+ <JUMP + TAG103>
+TAG100
+ <CALL '\1aOCEMIT AMT7>
+ <DEAD AMT7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = AMT7>
+ <CONS AMT7 () = STACK>
+ <DEAD AMT7>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE138>
+PHRASE91
+ <EQUAL? AMT7 4 - PHRASE108>
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE110>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <CONS AC9 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = AMT7>
+ <CONS AMT7 () = STACK>
+ <DEAD AMT7>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE138>
+PHRASE110
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <SET TEMP16 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH LST6>
+ <SCALL '\1aOBJ-VAL 1 = AMT7 + TAG117 TEMP16>
+ <LOOP (AMT7 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG120
+ <INTGO>
+ <EMPTY? AMT7 + TAG117>
+ <NTH1 AMT7 = STACK>
+ <REST1 AMT7 = AMT7>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG120>
+TAG117
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE138>
+PHRASE108
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <EQUAL? AC9 TEMP16 + PHRASE130>
+ <DEAD TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH AC9>
+ <CALL '\1aOCEMIT 3>
+PHRASE130
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH AMT7>
+ <PUSH 'VALUE>
+ <EQUAL? AMT7 VAL8 + TAG135>
+ <PUSH 'T>
+ <JUMP + TAG136>
+TAG135
+ <PUSH %<>>
+TAG136
+ <CALL '\1aSMASH-AC 4>
+ <EQUAL? AMT7 0 + PHRASE138>
+ <TYPE? AMT7 <TYPE-CODE ATOM> - PHRASE140>
+ <DEAD AMT7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JUMPE>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <PUSH END12>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE140
+ <PUSH LOOP13>
+ <SET AMT7 1 (TYPE FIX)>
+ <GVAL 'LOOPTAGS = TEMP16>
+ <TYPE TEMP16 = TEMP149>
+ <AND TEMP149 7 = TEMP149>
+ <VEQUAL? TEMP149 1 + TAG145>
+ <DEAD TEMP149>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
+TAG151
+ <INTGO>
+ <EMPTY? TEMP16 + TAG150>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD AMT7 1 = AMT7 (TYPE FIX)>
+ <JUMP + TAG151>
+TAG150
+ <LIST AMT7 = TEMP16 (TYPE LIST)>
+ <DEAD AMT7>
+ <JUMP + TAG146>
+TAG145
+ <LOOP>
+TAG148
+ <VEQUAL? AMT7 0 + TAG147>
+ <POP = TEMP149>
+ <CONS TEMP149 TEMP16 = TEMP16 (TYPE LIST)>
+ <DEAD TEMP149>
+ <SUB AMT7 1 = AMT7 (TYPE FIX)>
+ <JUMP + TAG148>
+TAG147
+TAG146
+ <SETG 'LOOPTAGS TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aLABEL>
+ <PUSH LOOP13>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOJN>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <PUSH LOOP13>
+ <DEAD LOOP13>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH END12>
+ <DEAD END12>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aPUT>
+ <FRAME '\1aGET-AC>
+ <PUSH 'O*>
+ <CALL '\1aGET-AC 1 = STACK>
+ <PUSH %<OFFSET 2 AC>>
+ <PUSH 0>
+ <CALL '\1aPUT 3>
+PHRASE138
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <EQUAL? AC9 TEMP16 - PHRASE162>
+ <DEAD AC9 TEMP16>
+ <EQUAL? VAL8 LST6 + PHRASE162>
+ <DEAD LST6>
+ <EQUAL? VAL8 'STACK + PHRASE162>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 2 VAL8>
+ <PUTUV TEMP16 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP16>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 2 VAL8>
+ <PUTUV TEMP16 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP16>
+PHRASE162
+ <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE169>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 5 %<>>
+ <DEAD TEMP16>
+ <JUMP + PHRASE171>
+PHRASE169
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 5 'T>
+ <DEAD TEMP16>
+PHRASE171
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 5 'T>
+ <DEAD TEMP16>
+ <EQUAL? VAL8 'STACK - PHRASE176>
+ <DEAD VAL8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP149 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LIST>
+ <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG177 TEMP149>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP149 VALUE)>
+TAG179
+ <INTGO>
+ <EMPTY? TEMP16 + TAG177>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP149 1 = TEMP149 (TYPE FIX)>
+ <JUMP + TAG179>
+TAG177
+ <CALL '\1aOCEMIT TEMP149>
+ <DEAD TEMP149>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC10>
+ <DEAD NAC10>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP149>
+ <TYPE? TEMP149 <TYPE-CODE FALSE> + PHRASE192>
+ <GVAL 'STACK-DEPTH = TEMP16>
+ <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE176
+ <EQUAL? NAC10 TAC11 + PHRASE187>
+ <DEAD TAC11>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 6 'LIST>
+ <DEAD TEMP16>
+PHRASE187
+ <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE190>
+ <DEAD LV14>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <DEAD NAC10>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 5 %<>>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE190
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <DEAD NAC10>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <PUTUV TEMP16 5 'T>
+ <SET TEMP149 TEMP16>
+ <DEAD TEMP16>
+PHRASE192
+ <RETURN TEMP149>
+ <DEAD TEMP149>
+ <END \1aRESTL!-MIMOC>
+#WORD *11605756202*
+ <GFCN \1aEMPL?!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP LST5 TEMP17 FLAG6 TAG7:ATOM (JUMP8 'JUMPE) (SKIP9 'SKIPN) (AC-T12 %<>) (AC-T-2-15 %<>) AC10 NEW11>
+ <INTGO>
+ <NTHL L4 1 = LST5>
+ <RESTL L4 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = FLAG6 (TYPE ATOM)>
+ <DEAD TEMP17>
+ <RESTL L4 1 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = TAG7 (TYPE ATOM)>
+ <DEAD TEMP17>
+ <FRAME '\1aLMEMQ>
+ <PUSH LST5>
+ <GVAL 'LOCALS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL20>
+ <GVAL 'ICALL-FLAG = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL20>
+ <FRAME '\1aLMEMQ>
+ <PUSH LST5>
+ <GVAL 'ICALL-TEMPS = STACK>
+ <CALL '\1aLMEMQ 2 = TEMP17>
+BOOL20
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE24>
+ <DEAD TEMP17>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aEXTRAMEM 2>
+PHRASE24
+ <VEQUAL? FLAG6 '- - PHRASE27>
+ <DEAD FLAG6>
+ <SET JUMP8 'JUMPN (TYPE ATOM)>
+ <SET SKIP9 'SKIPE (TYPE ATOM)>
+PHRASE27
+ <FRAME '\1aIN-AC?>
+ <PUSH LST5>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = FLAG6>
+ <TYPE? FLAG6 <TYPE-CODE FALSE> + BOOL31>
+ <FRAME '\1aNEXT-AC>
+ <PUSH FLAG6>
+ <CALL '\1aNEXT-AC 1 = AC10>
+ <TYPE? AC10 <TYPE-CODE FALSE> + BOOL31>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG7>
+ <PUSH %<>>
+ <PUSH 'T>
+ <PUSH FLAG6>
+ <PUSH AC10>
+ <CALL '\1aLABEL-UPDATE-ACS 5 = NEW11>
+ <TYPE? NEW11 <TYPE-CODE FALSE> - BOOL30>
+BOOL31
+ <FRAME '\1aIN-AC?>
+ <PUSH LST5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC10>
+ <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG7>
+ <PUSH %<>>
+ <PUSH 'T>
+ <PUSH AC10>
+ <CALL '\1aLABEL-UPDATE-ACS 4 = NEW11>
+ <TYPE? NEW11 <TYPE-CODE FALSE> + PHRASE29>
+BOOL30
+ <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE39>
+ <FRAME '\1aGET-AC>
+ <NTH1 NEW11 = FLAG6>
+ <PUSH FLAG6>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <NTHUV TEMP17 4 = AC-T-2-15 (TYPE FIX)>
+ <DEAD TEMP17>
+ <FRAME '\1aNTH>
+ <PUSH NEW11>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP17>
+ <EQUAL? TEMP17 AC10 + PHRASE46>
+ <DEAD TEMP17>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNTH>
+ <PUSH NEW11>
+ <DEAD NEW11>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = AC10>
+ <PUSH AC10>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <NTHUV TEMP17 4 = AC-T12 (TYPE FIX)>
+ <DEAD TEMP17>
+ <JUMP + PHRASE46>
+PHRASE39
+ <NTH1 NEW11 = TEMP17>
+ <EQUAL? TEMP17 AC10 + PHRASE46>
+ <DEAD TEMP17>
+ <FRAME '\1aGET-AC>
+ <NTH1 NEW11 = AC10>
+ <DEAD NEW11>
+ <PUSH AC10>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <NTHUV TEMP17 4 = AC-T12 (TYPE FIX)>
+ <DEAD TEMP17>
+PHRASE46
+ <FRAME '\1aOCEMIT>
+ <PUSH JUMP8>
+ <DEAD JUMP8>
+ <PUSH AC10>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG7>
+ <DEAD TAG7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <TYPE? AC-T12 <TYPE-CODE FALSE> + PHRASE51>
+ <FRAME '\1aGET-AC>
+ <PUSH AC10>
+ <DEAD AC10>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <PUTUV TEMP17 4 AC-T12 (TYPE FIX)>
+ <DEAD TEMP17 AC-T12>
+PHRASE51
+ <SET TEMP17 AC-T-2-15>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE57>
+ <FRAME '\1aGET-AC>
+ <PUSH FLAG6>
+ <DEAD FLAG6>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <PUTUV TEMP17 4 AC-T-2-15 (TYPE FIX)>
+ <DEAD AC-T-2-15>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+PHRASE29
+ <FRAME '\1aLABEL-PREF>
+ <PUSH TAG7>
+ <PUSH LST5>
+ <PUSH 'BOTH>
+ <CALL '\1aLABEL-PREF 3 = FLAG6>
+ <TYPE? FLAG6 <TYPE-CODE FALSE> + BOOL61>
+ <FRAME '\1aNEXT-AC>
+ <NTHUV FLAG6 1 = FLAG6 (TYPE ATOM)>
+ <PUSH FLAG6>
+ <CALL '\1aNEXT-AC 1 = AC10>
+ <TYPE? AC10 <TYPE-CODE FALSE> - BOOL60>
+BOOL61
+ <FRAME '\1aLABEL-PREF>
+ <PUSH TAG7>
+ <PUSH LST5>
+ <PUSH 'VALUE>
+ <CALL '\1aLABEL-PREF 3 = FLAG6>
+ <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE59>
+ <NTHUV FLAG6 1 = AC10 (TYPE ATOM)>
+ <FRAME '\1aGETPROP>
+ <PUSH FLAG6>
+ <DEAD FLAG6>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = FLAG6>
+ <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE59>
+BOOL60
+ <FRAME '\1aLOAD-AC>
+ <PUSH LST5>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <PUSH 'T>
+ <FRAME '\1aGET-AC>
+ <PUSH FLAG6>
+ <CALL '\1aGET-AC 1 = STACK>
+ <FRAME '\1aGET-AC>
+ <PUSH AC10>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 6>
+ <JUMP + PHRASE70>
+PHRASE59
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH LST5>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = FLAG6>
+ <PUSH FLAG6>
+ <CALL '\1aNEXT-AC 1 = AC10>
+PHRASE70
+ <FRAME '\1aGET-AC>
+ <PUSH AC10>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <PUTUV TEMP17 5 %<>>
+ <DEAD TEMP17>
+ <FRAME '\1aGET-AC>
+ <PUSH AC10>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <PUTUV TEMP17 2 LST5>
+ <DEAD TEMP17>
+ <FRAME '\1aGET-AC>
+ <PUSH AC10>
+ <CALL '\1aGET-AC 1 = TEMP17>
+ <PUTUV TEMP17 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP17>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH FLAG6>
+ <DEAD FLAG6>
+ <CALL '\1aMUNGED-AC 1>
+ <SETG 'ACA-AC %<>>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG7>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH SKIP9>
+ <DEAD SKIP9>
+ <PUSH AC10>
+ <DEAD AC10>
+ <SET FLAG6 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH LST5>
+ <DEAD LST5>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP17 + TAG78 FLAG6>
+ <LOOP (TEMP17 TYPE VALUE LENGTH) (FLAG6 VALUE)>
+TAG81
+ <INTGO>
+ <EMPTY? TEMP17 + TAG78>
+ <NTH1 TEMP17 = STACK>
+ <REST1 TEMP17 = TEMP17>
+ <ADD FLAG6 1 = FLAG6 (TYPE FIX)>
+ <JUMP + TAG81>
+TAG78
+ <CALL '\1aOCEMIT FLAG6>
+ <DEAD FLAG6>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG7>
+ <DEAD TAG7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2 = TEMP17>
+PHRASE57
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aEMPL?!-MIMOC>
+
+#WORD *6402746367*
+<GFCN \1aPUTREST!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP L16 TEMP10 L27 AC8 TEMP15>
+ <INTGO>
+ <NTHL L5 1 = L16>
+ <RESTL L5 1 = TEMP10 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP10 1 = L27>
+ <DEAD TEMP10>
+ <FRAME '\1aIN-AC?>
+ <PUSH L16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC8>
+ <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE12>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP10>
+ <GVAL 'AC-STAMP = TEMP15>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP15>
+ <PUTUV TEMP10 4 TEMP15 (TYPE FIX)>
+ <DEAD TEMP10 TEMP15>
+PHRASE12
+ <EQUAL? L27 () - PHRASE17>
+ <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE19>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH 0>
+ <CONS AC8 () = STACK>
+ <DEAD AC8>
+ <CALL '\1aOCEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE19
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH '@>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH L16>
+ <DEAD L16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG22 TEMP10>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG25
+ <INTGO>
+ <EMPTY? TEMP15 + TAG22>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG22
+ <CALL '\1aOCEMIT TEMP10 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE17
+ <FRAME '\1aIN-AC?>
+ <PUSH L27>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE35>
+ <TYPE? L27 <TYPE-CODE ATOM> - PHRASE30>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH L27>
+ <CALL '\1aWILL-DIE? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE30>
+ <DEAD TEMP10>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH L27>
+ <DEAD L27>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP10>
+ <JUMP + PHRASE35>
+PHRASE30
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH L27>
+ <DEAD L27>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <SET TEMP10 'O* (TYPE ATOM)>
+PHRASE35
+ <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <CONS AC8 () = STACK>
+ <DEAD AC8>
+ <CALL '\1aOCEMIT 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE38
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH TEMP10>
+ <DEAD TEMP10>
+ <PUSH '@>
+ <SET TEMP15 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH L16>
+ <DEAD L16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG41 TEMP15>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG43
+ <INTGO>
+ <EMPTY? TEMP10 + TAG41>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG43>
+TAG41
+ <CALL '\1aOCEMIT TEMP15 = TEMP10>
+ <DEAD TEMP15>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aPUTREST!-MIMOC>
+#WORD *263734711*
+<GFCN \1aCONS!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP L16 TEMP9 L27 VAL8:ATOM>
+ <INTGO>
+ <NTHL L5 1 = L16>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = L27>
+ <DEAD TEMP9>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = VAL8 (TYPE ATOM)>
+ <DEAD TEMP9>
+ <EQUAL? L16 VAL8 + BOOL12>
+ <TYPE? L16 <TYPE-CODE ATOM> - PHRASE11>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH L16>
+ <CALL '\1aWILL-DIE? 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE11>
+ <DEAD TEMP9>
+BOOL12
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS L16 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE11
+ <EQUAL? L27 VAL8 + BOOL18>
+ <TYPE? L27 <TYPE-CODE ATOM> - PHRASE17>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH L27>
+ <CALL '\1aWILL-DIE? 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE17>
+ <DEAD TEMP9>
+BOOL18
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS L27 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE17
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH L16>
+ <DEAD L16>
+ <PUSH 'BOTH>
+ <PUSH 'B1*>
+ <PUSH L27>
+ <DEAD L27>
+ <PUSH 'VALUE>
+ <PUSH 'C1*>
+ <CALL '\1aGET-INTO-ACS 6>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'CONS>
+ <PUSH VAL8>
+ <DEAD VAL8>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCONS!-MIMOC>
+#WORD *4454400541*
+<GFCN \1aGET-INTO-ACS ("VALUE" ANY "TUPLE" TUPLE)>
+ <MAKTUP PTRNS4:TUPLE (FIRSTS5:LIST ()) (LASTS6:LIST ()) (OTHERS7:LIST ()) P10 WIN11 CHANGE12 TEMP36 ONE41 TEMP49 AC13 = PTRNS4>
+ <INTGO>
+ <SET P10 PTRNS4>
+ <SET WIN11 'T (TYPE ATOM)>
+ <SET CHANGE12 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN18
+ <INTGO>
+ <EMPUV? P10 - PHRASE20>
+ <VEQUAL? WIN11 0 - EXIT8>
+PHRASE20
+ <EMPUV? P10 - PHRASE23>
+ <VEQUAL? CHANGE12 0 - PHRASE25>
+ <SET P10 'T (TYPE ATOM)>
+ <LOOP>
+AGAIN29
+ <INTGO>
+ <SET TEMP36 FIRSTS5 (TYPE LIST)>
+ <LOOP>
+MAP31
+ <INTGO>
+ <EMPL? TEMP36 + MAPAP34>
+ <NTHL TEMP36 1 = ONE41>
+ <VEQUAL? P10 0 - BOOL46>
+ <RESTL ONE41 1 = WIN11 (TYPE LIST)>
+ <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
+ <VEQUAL? WIN11 'BOTH - BOOL45>
+ <DEAD WIN11>
+BOOL46
+ <VEQUAL? P10 0 + PHRASE43>
+ <RESTL ONE41 1 = WIN11 (TYPE LIST)>
+ <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
+ <VEQUAL? WIN11 'BOTH - PHRASE43>
+ <DEAD WIN11>
+BOOL45
+ <NTHL ONE41 1 = WIN11 (TYPE ATOM)>
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
+ <VEQUAL? WIN11 TEMP49 + PHRASE43>
+ <DEAD WIN11 TEMP49>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'EXCH>
+ <NTHL ONE41 1 = STACK (TYPE ATOM)>
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aFIXUP-ACS>
+ <PUSH FIRSTS5>
+ <NTHL ONE41 1 = STACK (TYPE ATOM)>
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <PUSH ONE41>
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <CALL '\1aFIXUP-ACS 5>
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
+ <VEQUAL? TEMP49 'BOTH - PHRASE53>
+ <DEAD TEMP49>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'EXCH>
+ <FRAME '\1aNEXT-AC-FUNNY>
+ <NTHL ONE41 1 = STACK (TYPE ATOM)>
+ <CALL '\1aNEXT-AC-FUNNY 1 = STACK>
+ <FRAME '\1aNEXT-AC-FUNNY>
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <CALL '\1aNEXT-AC-FUNNY 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE53
+ <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
+ <DEAD ONE41>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = TEMP49 (TYPE TUPLE)>
+ <PUTUV TEMP49 2 %<>>
+ <DEAD TEMP49>
+ <JUMP + PHRASE57>
+PHRASE43
+ <NTHL ONE41 1 = TEMP49 (TYPE ATOM)>
+ <RESTL ONE41 1 = WIN11 (TYPE LIST)>
+ <RESTL WIN11 1 = WIN11 (TYPE LIST)>
+ <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
+ <VEQUAL? TEMP49 WIN11 - PHRASE57>
+ <DEAD TEMP49 WIN11>
+ <RESTL ONE41 1 = WIN11 (TYPE LIST)>
+ <DEAD ONE41>
+ <RESTL WIN11 1 = WIN11 (TYPE LIST)>
+ <RESTL WIN11 1 = WIN11 (TYPE LIST)>
+ <NTHL WIN11 1 = WIN11 (TYPE TUPLE)>
+ <PUTUV WIN11 2 %<>>
+ <DEAD WIN11>
+PHRASE57
+ <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
+ <JUMP + MAP31>
+MAPAP34
+ <VEQUAL? P10 0 + PHRASE59>
+ <DEAD P10>
+ <SET P10 %<> (TYPE FALSE)>
+ <JUMP + AGAIN29>
+PHRASE59
+ <SET FIRSTS5 () (TYPE LIST)>
+PHRASE25
+ <SET WIN11 'T (TYPE ATOM)>
+ <SET P10 PTRNS4>
+ <JUMP + AGAIN18>
+PHRASE23
+ <NTHUV P10 2 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE94>
+ <DEAD TEMP36>
+ <NTHUV P10 1 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE ATOM> + PHRASE61>
+ <NTHUV P10 3 = TEMP36>
+ <CONS TEMP36 () = ONE41>
+ <DEAD TEMP36>
+ <NTHUV P10 2 = TEMP36>
+ <CONS TEMP36 ONE41 = ONE41>
+ <DEAD TEMP36>
+ <CONS TEMP49 ONE41 = ONE41>
+ <DEAD TEMP49>
+ <CONS ONE41 LASTS6 = LASTS6>
+ <DEAD ONE41>
+ <PUTUV P10 2 %<>>
+ <JUMP + PHRASE94>
+PHRASE61
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP49>
+ <NTHUV P10 2 = TEMP36>
+ <PUSH TEMP36>
+ <CALL '\1aIN-AC? 2 = AC13>
+ <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE62>
+ <NTHUV P10 3 = TEMP49>
+ <EQUAL? AC13 TEMP49 - PHRASE65>
+ <EQUAL? TEMP36 'VALUE + PHRASE94>
+ <DEAD TEMP36>
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP49>
+ <PUSH 'AC>
+ <CALL '\1aGETPROP 2 = TEMP36>
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE94>
+ <NTHUV TEMP36 6 = ONE41>
+ <TYPE? ONE41 <TYPE-CODE FALSE> + PHRASE94>
+ <DEAD ONE41>
+ <FRAME '\1aLOAD-TYPE-IN-AC>
+ <PUSH TEMP49>
+ <DEAD TEMP49>
+ <NTHUV TEMP36 6 = STACK (TYPE ATOM)>
+ <CALL '\1aLOAD-TYPE-IN-AC 2>
+ <PUTUV TEMP36 6 %<>>
+ <DEAD TEMP36>
+ <JUMP + PHRASE94>
+PHRASE65
+ <EQUAL? TEMP36 'BOTH - BOOL73>
+ <FRAME '\1aAC-MEMQ>
+ <PUSH TEMP49>
+ <PUSH PTRNS4>
+ <CALL '\1aAC-MEMQ 2 = ONE41>
+ <VEQUAL? ONE41 0 - BOOL72>
+ <DEAD ONE41>
+ <FRAME '\1aAC-MEMQ>
+ <FRAME '\1aNEXT-AC-FUNNY>
+ <PUSH TEMP49>
+ <CALL '\1aNEXT-AC-FUNNY 1 = STACK>
+ <PUSH PTRNS4>
+ <CALL '\1aAC-MEMQ 2 = ONE41>
+ <VEQUAL? ONE41 0 - BOOL72>
+ <DEAD ONE41>
+BOOL73
+ <EQUAL? TEMP36 'BOTH + PHRASE71>
+ <FRAME '\1aAC-MEMQ>
+ <PUSH TEMP49>
+ <PUSH PTRNS4>
+ <CALL '\1aAC-MEMQ 2 = ONE41>
+ <VEQUAL? ONE41 0 + PHRASE71>
+ <DEAD ONE41>
+BOOL72
+ <SET WIN11 %<> (TYPE FALSE)>
+ <CONS P10 () = ONE41>
+ <CONS TEMP49 ONE41 = ONE41>
+ <DEAD TEMP49>
+ <CONS TEMP36 ONE41 = ONE41>
+ <DEAD TEMP36>
+ <CONS AC13 ONE41 = ONE41>
+ <DEAD AC13>
+ <CONS ONE41 FIRSTS5 = FIRSTS5>
+ <DEAD ONE41>
+ <JUMP + PHRASE94>
+PHRASE71
+ <SET WIN11 %<> (TYPE FALSE)>
+ <SET CHANGE12 'T (TYPE ATOM)>
+ <FRAME '\1aGETPROP>
+ <PUSH TEMP49>
+ <PUSH 'AC>
+ <CALL '\1aGETPROP 2 = ONE41>
+ <TYPE? ONE41 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD ONE41>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP49>
+ <CALL '\1aGET-AC 1 = ONE41>
+ <PUTUV ONE41 6 %<>>
+ <DEAD ONE41>
+ <EQUAL? TEMP36 'BOTH - PHRASE86>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP49>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = ONE41>
+ <PUTUV ONE41 6 %<>>
+ <DEAD ONE41>
+PHRASE86
+ <EQUAL? TEMP36 'BOTH - PHRASE90>
+ <DEAD TEMP36>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH TEMP49>
+ <DEAD TEMP49>
+ <PUSH AC13>
+ <DEAD AC13>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE92>
+PHRASE90
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH TEMP49>
+ <DEAD TEMP49>
+ <PUSH AC13>
+ <DEAD AC13>
+ <CALL '\1aOCEMIT 3>
+PHRASE92
+ <PUTUV P10 2 %<>>
+ <JUMP + PHRASE94>
+PHRASE62
+ <SET CHANGE12 'T (TYPE ATOM)>
+ <PUTUV P10 2 %<>>
+ <NTHUV P10 3 = ONE41>
+ <CONS ONE41 () = ONE41>
+ <CONS TEMP36 ONE41 = ONE41>
+ <DEAD TEMP36>
+ <CONS TEMP49 ONE41 = ONE41>
+ <DEAD TEMP49>
+ <CONS ONE41 OTHERS7 = OTHERS7>
+ <DEAD ONE41>
+PHRASE94
+ <RESTUV P10 3 = P10 (TYPE VECTOR)>
+ <CHTYPE P10 <TYPE-CODE VECTOR> = P10>
+ <JUMP + AGAIN18>
+EXIT8
+ <SET ONE41 OTHERS7 (TYPE LIST)>
+ <DEAD OTHERS7>
+ <LOOP>
+MAP96
+ <INTGO>
+ <EMPL? ONE41 + MAPAP99>
+ <NTHL ONE41 1 = FIRSTS5>
+ <FRAME '\1aGETPROP>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <PUSH 'AC>
+ <CALL '\1aGETPROP 2 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE108>
+ <DEAD TEMP49>
+ <FRAME '\1aGET-AC>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <CALL '\1aGET-AC 1 = TEMP49>
+ <PUTUV TEMP49 6 %<>>
+ <DEAD TEMP49>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
+ <VEQUAL? TEMP49 'BOTH - PHRASE108>
+ <DEAD TEMP49>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP49>
+ <PUTUV TEMP49 6 %<>>
+ <DEAD TEMP49>
+PHRASE108
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
+ <VEQUAL? TEMP49 'BOTH - PHRASE112>
+ <DEAD TEMP49>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <SET P10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
+ <DEAD FIRSTS5>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG113 P10>
+ <LOOP (TEMP49 TYPE VALUE LENGTH) (P10 VALUE)>
+TAG116
+ <INTGO>
+ <EMPTY? TEMP49 + TAG113>
+ <NTH1 TEMP49 = STACK>
+ <REST1 TEMP49 = TEMP49>
+ <ADD P10 1 = P10 (TYPE FIX)>
+ <JUMP + TAG116>
+TAG113
+ <CALL '\1aOCEMIT P10>
+ <DEAD P10>
+ <JUMP + PHRASE123>
+PHRASE112
+ <RESTL FIRSTS5 1 = P10 (TYPE LIST)>
+ <NTHL P10 1 = P10 (TYPE ATOM)>
+ <VEQUAL? P10 'VALUE - PHRASE118>
+ <DEAD P10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <RESTL FIRSTS5 1 = P10 (TYPE LIST)>
+ <RESTL P10 1 = P10 (TYPE LIST)>
+ <NTHL P10 1 = STACK (TYPE ATOM)>
+ <DEAD P10>
+ <SET TEMP49 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
+ <DEAD FIRSTS5>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = P10 + TAG119 TEMP49>
+ <LOOP (P10 TYPE VALUE LENGTH) (TEMP49 VALUE)>
+TAG121
+ <INTGO>
+ <EMPTY? P10 + TAG119>
+ <NTH1 P10 = STACK>
+ <REST1 P10 = P10>
+ <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
+ <JUMP + TAG121>
+TAG119
+ <CALL '\1aOCEMIT TEMP49>
+ <DEAD TEMP49>
+ <JUMP + PHRASE123>
+PHRASE118
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP49>
+ <SET P10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
+ <DEAD FIRSTS5>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG124 P10>
+ <LOOP (TEMP49 TYPE VALUE LENGTH) (P10 VALUE)>
+TAG126
+ <INTGO>
+ <EMPTY? TEMP49 + TAG124>
+ <NTH1 TEMP49 = STACK>
+ <REST1 TEMP49 = TEMP49>
+ <ADD P10 1 = P10 (TYPE FIX)>
+ <JUMP + TAG126>
+TAG124
+ <CALL '\1aOCEMIT P10>
+ <DEAD P10>
+PHRASE123
+ <RESTL ONE41 1 = ONE41 (TYPE LIST)>
+ <JUMP + MAP96>
+MAPAP99
+ <SET P10 %<> (TYPE FALSE)>
+ <SET ONE41 LASTS6 (TYPE LIST)>
+ <DEAD LASTS6>
+ <LOOP>
+MAP129
+ <INTGO>
+ <EMPL? ONE41 + MAPAP132>
+ <NTHL ONE41 1 = FIRSTS5>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = P10 (TYPE ATOM)>
+ <DEAD TEMP49>
+ <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
+ <NTHL TEMP49 1 = WIN11 (TYPE ATOM)>
+ <DEAD TEMP49>
+ <NTHL FIRSTS5 1 = CHANGE12>
+ <DEAD FIRSTS5>
+ <FRAME '\1aGETPROP>
+ <PUSH P10>
+ <PUSH 'AC>
+ <CALL '\1aGETPROP 2 = TEMP49>
+ <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE140>
+ <DEAD TEMP49>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH P10>
+ <VEQUAL? WIN11 'BOTH - TAG143>
+ <PUSH 'T>
+ <JUMP + TAG144>
+TAG143
+ <PUSH %<>>
+TAG144
+ <CALL '\1aMUNGED-AC 2>
+PHRASE140
+ <VEQUAL? WIN11 'TYPE + PHRASE146>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH CHANGE12>
+ <CALL '\1aPRIMTYPE 1 = TEMP49>
+ <SET TEMP36 [WORD FIX] (TYPE VECTOR)>
+ <LOOP (TEMP49 VALUE) (TEMP36 LENGTH VALUE)>
+TAG150
+ <NTHUV TEMP36 1 = AC13>
+ <VEQUAL? AC13 TEMP49 + BOOL148>
+ <DEAD AC13>
+ <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
+ <EMPUV? TEMP36 - TAG150>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH CHANGE12>
+ <CALL '\1aPRIMTYPE 1 = TEMP36>
+ <VEQUAL? TEMP36 'LIST - PHRASE146>
+ <DEAD TEMP36>
+ <EMPL? CHANGE12 - PHRASE146 (TYPE LIST)>
+BOOL148
+ <VEQUAL? WIN11 'BOTH - PHRASE158>
+ <DEAD WIN11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH P10>
+ <SET TEMP49 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <FRAME '\1aTYPE>
+ <PUSH CHANGE12>
+ <CALL '\1aTYPE 1 = STACK>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP36 + TAG159 TEMP49>
+ <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
+TAG162
+ <INTGO>
+ <EMPTY? TEMP36 + TAG159>
+ <NTH1 TEMP36 = STACK>
+ <REST1 TEMP36 = TEMP36>
+ <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
+ <JUMP + TAG162>
+TAG159
+ <CALL '\1aOCEMIT TEMP49>
+ <DEAD TEMP49>
+ <FRAME '\1aNEXT-AC-FUNNY>
+ <PUSH P10>
+ <DEAD P10>
+ <CALL '\1aNEXT-AC-FUNNY 1 = P10>
+PHRASE158
+ <FRAME '\1aPRIMTYPE>
+ <PUSH CHANGE12>
+ <CALL '\1aPRIMTYPE 1 = TEMP49>
+ <VEQUAL? TEMP49 'LIST - PHRASE166>
+ <DEAD TEMP49>
+ <SET CHANGE12 0 (TYPE FIX)>
+ <JUMP + PHRASE168>
+PHRASE166
+ <CHTYPE CHANGE12 <TYPE-CODE FIX> = CHANGE12>
+PHRASE168
+ <LESS? CHANGE12 0 + PHRASE170 (TYPE FIX)>
+ <GVAL 'MAX-IMMEDIATE = TEMP49>
+ <GRTR? CHANGE12 TEMP49 + PHRASE170 (TYPE FIX)>
+ <DEAD TEMP49>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH P10>
+ <DEAD P10>
+ <PUSH CHANGE12>
+ <DEAD CHANGE12>
+ <CALL '\1aOCEMIT 3 = P10>
+ <JUMP + PHRASE200>
+PHRASE170
+ <AND CHANGE12 #WORD *777777* = TEMP49>
+ <VEQUAL? TEMP49 0 - PHRASE175 (TYPE FIX)>
+ <DEAD TEMP49>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH P10>
+ <DEAD P10>
+ <LSH CHANGE12 -18 = STACK (TYPE FIX)>
+ <DEAD CHANGE12>
+ <CALL '\1aOCEMIT 3 = P10>
+ <JUMP + PHRASE200>
+PHRASE175
+ <LESS? CHANGE12 0 - PHRASE179 (TYPE FIX)>
+ <GVAL 'MAX-IMMEDIATE = TEMP49>
+ <SET TEMP36 CHANGE12>
+ <LESS? TEMP36 0 - TAG183 (TYPE FIX)>
+ <SUB 0 TEMP36 = TEMP36 (TYPE FIX)>
+TAG183
+ <LESS? TEMP49 TEMP36 + PHRASE179 (TYPE FIX)>
+ <DEAD TEMP49 TEMP36>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVNI>
+ <PUSH P10>
+ <DEAD P10>
+ <SUB 0 CHANGE12 = STACK (TYPE FIX)>
+ <DEAD CHANGE12>
+ <CALL '\1aOCEMIT 3 = P10>
+ <JUMP + PHRASE200>
+PHRASE179
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH P10>
+ <DEAD P10>
+ <SET TEMP36 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH CHANGE12>
+ <DEAD CHANGE12>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG186 TEMP36>
+ <LOOP (TEMP49 TYPE VALUE LENGTH) (TEMP36 VALUE)>
+TAG188
+ <INTGO>
+ <EMPTY? TEMP49 + TAG186>
+ <NTH1 TEMP49 = STACK>
+ <REST1 TEMP49 = TEMP49>
+ <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
+ <JUMP + TAG188>
+TAG186
+ <CALL '\1aOCEMIT TEMP36 = P10>
+ <DEAD TEMP36>
+ <JUMP + PHRASE200>
+PHRASE146
+ <VEQUAL? WIN11 'BOTH - PHRASE190>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH P10>
+ <DEAD P10>
+ <SET TEMP49 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH CHANGE12>
+ <DEAD CHANGE12>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = TEMP36 + TAG191 TEMP49>
+ <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
+TAG193
+ <INTGO>
+ <EMPTY? TEMP36 + TAG191>
+ <NTH1 TEMP36 = STACK>
+ <REST1 TEMP36 = TEMP36>
+ <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
+ <JUMP + TAG193>
+TAG191
+ <CALL '\1aOCEMIT TEMP49 = P10>
+ <DEAD TEMP49>
+ <JUMP + PHRASE200>
+PHRASE190
+ <VEQUAL? WIN11 'VALUE - PHRASE195>
+ <DEAD WIN11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH P10>
+ <DEAD P10>
+ <SET TEMP36 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH CHANGE12>
+ <DEAD CHANGE12>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG196 TEMP36>
+ <LOOP (TEMP49 TYPE VALUE LENGTH) (TEMP36 VALUE)>
+TAG198
+ <INTGO>
+ <EMPTY? TEMP49 + TAG196>
+ <NTH1 TEMP49 = STACK>
+ <REST1 TEMP49 = TEMP49>
+ <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
+ <JUMP + TAG198>
+TAG196
+ <CALL '\1aOCEMIT TEMP36 = P10>
+ <DEAD TEMP36>
+ <JUMP + PHRASE200>
+PHRASE195
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH P10>
+ <DEAD P10>
+ <SET TEMP49 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH CHANGE12>
+ <DEAD CHANGE12>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = TEMP36 + TAG201 TEMP49>
+ <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
+TAG203
+ <INTGO>
+ <EMPTY? TEMP36 + TAG201>
+ <NTH1 TEMP36 = STACK>
+ <REST1 TEMP36 = TEMP36>
+ <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
+ <JUMP + TAG203>
+TAG201
+ <CALL '\1aOCEMIT TEMP49 = P10>
+ <DEAD TEMP49>
+PHRASE200
+ <RESTL ONE41 1 = ONE41 (TYPE LIST)>
+ <JUMP + MAP129>
+MAPAP132
+ <RETURN P10>
+ <DEAD P10>
+ <END \1aGET-INTO-ACS>
+#WORD *15362307315*
+<GFCN
\1aAC-MEMQ ("VALUE" <OR ATOM !<FALSE>> ATOM <PRIMTYPE VECTOR>) AC5 P6>
+ <TEMP TEMP7 TEMP16>
+ <INTGO>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPUV? P6 - PHRASE12>
+ <RETURN %<>>
+PHRASE12
+ <NTHUV P6 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE14>
+ <DEAD TEMP16>
+ <FRAME '\1aIN-AC?>
+ <NTHUV P6 1 = STACK>
+ <NTHUV P6 2 = STACK>
+ <CALL '\1aIN-AC? 2 = TEMP16>
+ <EQUAL? TEMP16 AC5 + BOOL20>
+ <DEAD TEMP16>
+ <NTHUV P6 2 = TEMP16>
+ <EQUAL? TEMP16 'BOTH - PHRASE14>
+ <DEAD TEMP16>
+ <FRAME '\1aIN-AC?>
+ <NTHUV P6 1 = STACK>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = TEMP16>
+ <EQUAL? TEMP16 AC5 + BOOL20>
+ <DEAD TEMP16>
+ <FRAME '\1aIN-AC?>
+ <NTHUV P6 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP16>
+ <EQUAL? TEMP16 AC5 - PHRASE14>
+ <DEAD TEMP16>
+BOOL20
+ <RETURN 'T>
+PHRASE14
+ <RESTUV P6 3 = P6 (TYPE VECTOR)>
+ <CHTYPE P6 <TYPE-CODE VECTOR> = P6>
+ <JUMP + AGAIN10>
+ <DEAD AC5 P6>
+ <END \1aAC-MEMQ>
+#WORD *13563677002*
+<GFCN \1aNEXT-AC-FUNNY ("VALUE" ANY ATOM) AC4>
+ <TEMP TEMP6>
+ <INTGO>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC4>
+ <CALL '\1aNEXT-AC 1 = TEMP6>
+ <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
+ <VEQUAL? AC4 'O1* - BOOL8>
+ <RETURN 'O2*>
+BOOL8
+ <VEQUAL? AC4 'O* - BOOL9>
+ <DEAD AC4>
+ <RETURN 'A1*>
+BOOL9
+ <FRAME '\1aERROR>
+ <PUSH 'NEXT-AC-LOSSAGE!-ERRORS>
+ <CALL '\1aERROR 1 = TEMP6>
+BOOL5
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aNEXT-AC-FUNNY>
+#WORD *15772226064*
+<GFCN \1aFIXUP-ACS ("VALUE" <OR FALSE !<LIST ATOM ATOM ATOM TUPLE>> LIST ANY ANY ANY ANY) L4 ACA5 ACB6 NOT-ME7 KIND8>
+ <TEMP AC2B10 AC2A9 TEMP28 TEMP25:LIST LL30:LIST TAC31>
+ <INTGO>
+ <EQUAL? KIND8 'BOTH + TAG13>
+ <SET AC2B10 %<> (TYPE FALSE)>
+ <JUMP + PHRASE12>
+TAG13
+ <FRAME '\1aNEXT-AC-FUNNY>
+ <PUSH ACB6>
+ <CALL '\1aNEXT-AC-FUNNY 1 = AC2B10>
+PHRASE12
+ <EQUAL? KIND8 'BOTH + TAG17>
+ <DEAD KIND8>
+ <SET AC2A9 %<> (TYPE FALSE)>
+ <JUMP + PHRASE16>
+TAG17
+ <FRAME '\1aNEXT-AC-FUNNY>
+ <PUSH ACA5>
+ <CALL '\1aNEXT-AC-FUNNY 1 = AC2A9>
+PHRASE16
+ <SET TEMP28 %<> (TYPE FALSE)>
+ <SET TEMP25 L4 (TYPE LIST)>
+ <DEAD L4>
+ <LOOP>
+MAP20
+ <INTGO>
+ <EMPL? TEMP25 + MAPAP23>
+ <NTHL TEMP25 1 = LL30>
+ <EQUAL? LL30 NOT-ME7 - TAG35>
+ <SET TEMP28 %<> (TYPE FALSE)>
+ <JUMP + PHRASE33>
+TAG35
+ <NTHL LL30 1 = TAC31 (TYPE ATOM)>
+ <EQUAL? ACB6 TAC31 - BOOL37>
+ <SET TAC31 ACA5>
+ <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
+BOOL37
+ <EQUAL? ACA5 TAC31 - BOOL38>
+ <SET TAC31 ACB6>
+ <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
+BOOL38
+ <EQUAL? AC2A9 TAC31 - BOOL39>
+ <SET TAC31 AC2B10>
+ <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
+BOOL39
+ <EQUAL? AC2B10 TAC31 + TAG41>
+ <DEAD TAC31>
+ <SET TEMP28 %<> (TYPE FALSE)>
+ <JUMP + PHRASE33>
+TAG41
+ <SET TAC31 AC2A9>
+ <SET TEMP28 TAC31>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE33>
+BOOL36
+ <PUTL LL30 1 TAC31>
+ <DEAD TAC31>
+ <SET TEMP28 LL30>
+ <DEAD LL30>
+PHRASE33
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <JUMP + MAP20>
+MAPAP23
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+ <END \1aFIXUP-ACS>
+#WORD *24270407122*
+<GFCN \1aPUTL!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP LST5 TEMP15 AMT6 VAL7 LOOP8:ATOM END9 (TAC10 %<>) PUT-TYP13 AC11 CNT-AC14 TEMP108>
+ <INTGO>
+ <NTHL L4 1 = LST5>
+ <RESTL L4 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = AMT6>
+ <DEAD TEMP15>
+ <RESTL L4 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = VAL7>
+ <DEAD TEMP15>
+ <FRAME '\1aGENLBL>
+ <PUSH "LOOP">
+ <CALL '\1aGENLBL 1 = LOOP8>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = END9>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aEXTRAMEM 2 = PUT-TYP13>
+ <FRAME '\1aIN-AC?>
+ <PUSH LST5>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + BOOL22>
+ <SET TAC10 AC11>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aNEXT-AC 1 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE20>
+BOOL22
+ <FRAME '\1aIN-AC?>
+ <PUSH LST5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE20>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH LST5>
+ <DEAD LST5>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TAC10>
+ <PUSH TAC10>
+ <CALL '\1aNEXT-AC 1 = AC11>
+ <JUMP + PHRASE28>
+PHRASE20
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <GVAL 'AC-STAMP = LST5>
+ <ADD LST5 1 = LST5 (TYPE FIX)>
+ <SETG 'AC-STAMP LST5>
+ <PUTUV TEMP15 4 LST5 (TYPE FIX)>
+ <DEAD TEMP15 LST5>
+PHRASE28
+ <EQUAL? AMT6 1 + PHRASE63>
+ <TYPE? AMT6 <TYPE-CODE FIX> - PHRASE32>
+ <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TAC10>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <JUMP + PHRASE36>
+PHRASE34
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC11>
+ <CALL '\1aFLUSH-AC 1>
+PHRASE36
+ <SUB AMT6 1 = AMT6 (TYPE FIX)>
+ <LESS? AMT6 3 - PHRASE39 (TYPE FIX)>
+ <LOOP>
+AGAIN41
+ <INTGO>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC11>
+ <CONS AC11 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <SUB AMT6 1 = AMT6 (TYPE FIX)>
+ <VEQUAL? AMT6 0 - AGAIN41 (TYPE FIX)>
+ <JUMP + PHRASE63>
+PHRASE39
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH AMT6>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <PUSH LOOP8>
+ <SET END9 1 (TYPE FIX)>
+ <GVAL 'LOOPTAGS = LST5>
+ <TYPE LST5 = TEMP15>
+ <AND TEMP15 7 = TEMP15>
+ <VEQUAL? TEMP15 1 + TAG52>
+ <DEAD TEMP15>
+ <LOOP (LST5 TYPE VALUE LENGTH) (END9 VALUE)>
+TAG58
+ <INTGO>
+ <EMPTY? LST5 + TAG57>
+ <NTH1 LST5 = STACK>
+ <REST1 LST5 = LST5>
+ <ADD END9 1 = END9 (TYPE FIX)>
+ <JUMP + TAG58>
+TAG57
+ <LIST END9 = LST5 (TYPE LIST)>
+ <DEAD END9>
+ <JUMP + TAG54>
+TAG52
+ <LOOP>
+TAG55
+ <VEQUAL? END9 0 + TAG54>
+ <POP = TEMP15>
+ <CONS TEMP15 LST5 = LST5 (TYPE LIST)>
+ <DEAD TEMP15>
+ <SUB END9 1 = END9 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG54
+ <SETG 'LOOPTAGS LST5>
+ <DEAD LST5>
+ <FRAME '\1aLABEL>
+ <PUSH LOOP8>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC11>
+ <CONS AC11 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOJN>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <PUSH LOOP8>
+ <DEAD LOOP8>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE63>
+PHRASE32
+ <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE65>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TAC10>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <JUMP + PHRASE67>
+PHRASE65
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC11>
+ <CALL '\1aFLUSH-AC 1>
+PHRASE67
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = CNT-AC14>
+ <TYPE? CNT-AC14 <TYPE-CODE FALSE> + EXIT79>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT6>
+ <CALL '\1aWILL-DIE? 1 = LST5>
+ <TYPE? LST5 <TYPE-CODE FALSE> + BOOL74>
+ <DEAD LST5>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT6 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2 = LST5>
+ <TYPE? LST5 <TYPE-CODE FALSE> - BOOL73>
+ <DEAD LST5>
+BOOL74
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH CNT-AC14>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = LST5>
+ <NTHUV LST5 5 = LST5>
+ <TYPE? LST5 <TYPE-CODE FALSE> - EXIT79>
+ <DEAD LST5>
+BOOL73
+ <FRAME '\1aMUNGED-AC>
+ <PUSH CNT-AC14>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aNEXT-AC>
+ <PUSH CNT-AC14>
+ <DEAD CNT-AC14>
+ <CALL '\1aNEXT-AC 1 = CNT-AC14>
+ <TYPE? CNT-AC14 <TYPE-CODE FALSE> - PHRASE94>
+EXIT79
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = CNT-AC14>
+ <TYPE? CNT-AC14 <TYPE-CODE FALSE> + EXIT90>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT6>
+ <CALL '\1aWILL-DIE? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL86>
+ <DEAD TEMP15>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT6 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL85>
+ <DEAD TEMP15>
+BOOL86
+ <FRAME '\1aGET-AC>
+ <PUSH CNT-AC14>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <NTHUV TEMP15 5 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - EXIT90>
+ <DEAD TEMP15>
+BOOL85
+ <FRAME '\1aMUNGED-AC>
+ <PUSH CNT-AC14>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2 = LST5>
+ <TYPE? LST5 <TYPE-CODE FALSE> - PHRASE94>
+ <DEAD LST5>
+EXIT90
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET CNT-AC14 'O* (TYPE ATOM)>
+ <PUSH CNT-AC14>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT6>
+ <SCALL '\1aOBJ-VAL 1 = LST5 + TAG95 TEMP15>
+ <LOOP (LST5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG98
+ <INTGO>
+ <EMPTY? LST5 + TAG95>
+ <NTH1 LST5 = STACK>
+ <REST1 LST5 = LST5>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG98>
+TAG95
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+PHRASE94
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOJE>
+ <PUSH CNT-AC14>
+ <FRAME '\1aXJUMP>
+ <PUSH END9>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <PUSH LOOP8>
+ <SET LST5 1 (TYPE FIX)>
+ <GVAL 'LOOPTAGS = TEMP15>
+ <TYPE TEMP15 = TEMP108>
+ <AND TEMP108 7 = TEMP108>
+ <VEQUAL? TEMP108 1 + TAG104>
+ <DEAD TEMP108>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (LST5 VALUE)>
+TAG110
+ <INTGO>
+ <EMPTY? TEMP15 + TAG109>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD LST5 1 = LST5 (TYPE FIX)>
+ <JUMP + TAG110>
+TAG109
+ <LIST LST5 = TEMP15 (TYPE LIST)>
+ <DEAD LST5>
+ <JUMP + TAG106>
+TAG104
+ <LOOP>
+TAG107
+ <VEQUAL? LST5 0 + TAG106>
+ <POP = TEMP108>
+ <CONS TEMP108 TEMP15 = TEMP15 (TYPE LIST)>
+ <DEAD TEMP108>
+ <SUB LST5 1 = LST5 (TYPE FIX)>
+ <JUMP + TAG107>
+TAG106
+ <SETG 'LOOPTAGS TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aLABEL>
+ <PUSH LOOP8>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC11>
+ <CONS AC11 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOJN>
+ <PUSH CNT-AC14>
+ <DEAD CNT-AC14>
+ <FRAME '\1aXJUMP>
+ <PUSH LOOP8>
+ <DEAD LOOP8>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH END9>
+ <DEAD END9>
+ <CALL '\1aLABEL 1>
+PHRASE63
+ <FRAME '\1aDO-PUT>
+ <PUSH PUT-TYP13>
+ <DEAD PUT-TYP13>
+ <PUSH AC11>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 1>
+ <CALL '\1aDO-PUT 4>
+ <EQUAL? AMT6 1 - TAG119>
+ <DEAD AMT6>
+ <RETURN %<>>
+TAG119
+ <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE121>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC10>
+ <DEAD TAC10>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE121
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aMUNGED-AC 1 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aPUTL!-MIMOC>\r\r
+#WORD *34337035073*
+<GFCN \1aDO-PUT ("VALUE" ANY ANY ANY ANY FIX) PUT-TYP4 AC5 VAL6 OFFS7>
+ <TEMP TEMP14 NAC8>
+ <INTGO>
+ <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE10>
+ <FRAME '\1aDECL-HACK>
+ <TYPE? PUT-TYP4 <TYPE-CODE LIST> - PHRASE13>
+ <RESTL PUT-TYP4 1 = TEMP14 (TYPE LIST)>
+ <DEAD PUT-TYP4>
+ <NTHL TEMP14 1 = TEMP14>
+ <JUMP + PHRASE15>
+PHRASE13
+ <SET TEMP14 PUT-TYP4>
+ <DEAD PUT-TYP4>
+PHRASE15
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aDECL-HACK 1 = PUT-TYP4>
+PHRASE10
+ <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE17>
+ <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL19>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = NAC8>
+ <TYPE? NAC8 <TYPE-CODE FALSE> + PHRASE17>
+BOOL19
+ <TYPE? VAL6 <TYPE-CODE ATOM> - PHRASE22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH NAC8>
+ <DEAD NAC8>
+ <ADD OFFS7 1 = STACK (TYPE FIX)>
+ <DEAD OFFS7>
+ <CONS AC5 () = STACK>
+ <DEAD AC5>
+ <CALL '\1aOCEMIT 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE22
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL6>
+ <CALL '\1aPRIMTYPE 1 = TEMP14>
+ <VEQUAL? TEMP14 'LIST - BOOL26>
+ <DEAD TEMP14>
+ <EMPTY? VAL6 + BOOL25>
+BOOL26
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL6>
+ <CALL '\1aPRIMTYPE 1 = TEMP14>
+ <VEQUAL? TEMP14 'FIX - PHRASE24>
+ <DEAD TEMP14>
+ <VEQUAL? VAL6 0 - PHRASE24 (TYPE FIX)>
+BOOL25
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <ADD OFFS7 1 = STACK (TYPE FIX)>
+ <DEAD OFFS7>
+ <CONS AC5 () = STACK>
+ <DEAD AC5>
+ <CALL '\1aOCEMIT 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE24
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL6>
+ <CALL '\1aPRIMTYPE 1 = TEMP14>
+ <VEQUAL? TEMP14 'FIX - PHRASE34>
+ <DEAD TEMP14>
+ <VEQUAL? VAL6 -1 - PHRASE34 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETOM>
+ <ADD OFFS7 1 = STACK (TYPE FIX)>
+ <DEAD OFFS7>
+ <CONS AC5 () = STACK>
+ <DEAD AC5>
+ <CALL '\1aOCEMIT 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE34
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'O*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'VALUE>
+ <PUSH 'O*>
+ <CALL '\1aGET-INTO-ACS 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH 'O*>
+ <ADD OFFS7 1 = STACK (TYPE FIX)>
+ <DEAD OFFS7>
+ <CONS AC5 () = STACK>
+ <DEAD AC5>
+ <CALL '\1aOCEMIT 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE17
+ <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE45>
+ <DEAD PUT-TYP4>
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = NAC8>
+ <TYPE? NAC8 <TYPE-CODE FALSE> - PHRASE52>
+ <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL49>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL6>
+ <CALL '\1aWILL-DIE? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE48>
+ <DEAD TEMP14>
+BOOL49
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'VALUE>
+ <SET NAC8 'O* (TYPE ATOM)>
+ <PUSH NAC8>
+ <CALL '\1aGET-INTO-ACS 3>
+ <JUMP + PHRASE52>
+PHRASE48
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = NAC8>
+PHRASE52
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH NAC8>
+ <DEAD NAC8>
+ <ADD OFFS7 1 = STACK (TYPE FIX)>
+ <DEAD OFFS7>
+ <CONS AC5 () = STACK>
+ <DEAD AC5>
+ <CALL '\1aOCEMIT 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+PHRASE45
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL6>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = NAC8>
+ <TYPE? NAC8 <TYPE-CODE FALSE> - PHRASE63>
+ <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL60>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL6>
+ <CALL '\1aWILL-DIE? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE59>
+ <DEAD TEMP14>
+BOOL60
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <SET NAC8 'O1* (TYPE ATOM)>
+ <PUSH NAC8>
+ <CALL '\1aGET-INTO-ACS 3>
+ <JUMP + PHRASE63>
+PHRASE59
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = NAC8>
+PHRASE63
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH NAC8>
+ <DEAD NAC8>
+ <PUSH OFFS7>
+ <DEAD OFFS7>
+ <CONS AC5 () = STACK>
+ <DEAD AC5>
+ <CALL '\1aOCEMIT 4 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aDO-PUT>
+#WORD *21556574551*
+<GFCN \1aLENL!-MIMOC ("VALUE" ANY LIST) L4>
+ <TEMP LST5 TEMP12 VAL6:ATOM END10:ATOM LOOP11:ATOM TAC9 TEMP21 AC8:ATOM NAC7:ATOM>
+ <INTGO>
+ <NTHL L4 1 = LST5>
+ <RESTL L4 1 = TEMP12 (TYPE LIST)>
+ <DEAD L4>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = VAL6 (TYPE ATOM)>
+ <DEAD TEMP12>
+ <FRAME '\1aGENLBL>
+ <PUSH "END">
+ <CALL '\1aGENLBL 1 = END10>
+ <FRAME '\1aGENLBL>
+ <PUSH "LOOP">
+ <CALL '\1aGENLBL 1 = LOOP11>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aIN-AC?>
+ <PUSH LST5>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TAC9>
+ <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE18>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC9>
+ <CALL '\1aGET-AC 1 = TEMP12>
+ <GVAL 'AC-STAMP = TEMP21>
+ <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP21>
+ <PUTUV TEMP12 4 TEMP21 (TYPE FIX)>
+ <DEAD TEMP12 TEMP21>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'T*>
+ <PUSH TAC9>
+ <DEAD TAC9>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE23>
+PHRASE18
+ <FRAME '\1aOCEMIT>
+ <PUSH 'XMOVEI>
+ <PUSH 'T*>
+ <SET TEMP21 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH LST5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG24 TEMP21>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP21 VALUE)>
+TAG26
+ <INTGO>
+ <EMPTY? TEMP12 + TAG24>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG24
+ <CALL '\1aOCEMIT TEMP21>
+ <DEAD TEMP21>
+PHRASE23
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL6>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = AC8>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = NAC7>
+ <VEQUAL? VAL6 'STACK - PHRASE31>
+ <SET NAC7 'O* (TYPE ATOM)>
+ <JUMP + PHRASE34>
+PHRASE31
+ <EQUAL? LST5 VAL6 - PHRASE32>
+ <SET NAC7 'O* (TYPE ATOM)>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP21>
+ <PUTUV TEMP21 6 'FIX>
+ <DEAD TEMP21>
+ <JUMP + PHRASE34>
+PHRASE32
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP21>
+ <PUTUV TEMP21 6 'FIX>
+ <DEAD TEMP21>
+PHRASE34
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH NAC7>
+ <PUSH 131072>
+ <CALL '\1aOCEMIT 3>
+ <PUSH LOOP11>
+ <SET TEMP12 1 (TYPE FIX)>
+ <GVAL 'LOOPTAGS = TEMP21>
+ <TYPE TEMP21 = TAC9>
+ <AND TAC9 7 = TAC9>
+ <VEQUAL? TAC9 1 + TAG39>
+ <DEAD TAC9>
+ <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG45
+ <INTGO>
+ <EMPTY? TEMP21 + TAG44>
+ <NTH1 TEMP21 = STACK>
+ <REST1 TEMP21 = TEMP21>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG45>
+TAG44
+ <LIST TEMP12 = TEMP21 (TYPE LIST)>
+ <DEAD TEMP12>
+ <JUMP + TAG41>
+TAG39
+ <LOOP>
+TAG42
+ <VEQUAL? TEMP12 0 + TAG41>
+ <POP = TAC9>
+ <CONS TAC9 TEMP21 = TEMP21 (TYPE LIST)>
+ <DEAD TAC9>
+ <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG42>
+TAG41
+ <SETG 'LOOPTAGS TEMP21>
+ <DEAD TEMP21>
+ <FRAME '\1aLABEL>
+ <PUSH LOOP11>
+ <CALL '\1aLABEL 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPE>
+ <PUSH 'T*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'AOBJN>
+ <PUSH NAC7>
+ <FRAME '\1aXJUMP>
+ <PUSH LOOP11>
+ <DEAD LOOP11>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aLABEL>
+ <PUSH END10>
+ <DEAD END10>
+ <CALL '\1aLABEL 1>
+ <VEQUAL? VAL6 'STACK - PHRASE52>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TAC9 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP21 + TAG53 TAC9>
+ <LOOP (TEMP21 TYPE VALUE LENGTH) (TAC9 VALUE)>
+TAG55
+ <INTGO>
+ <EMPTY? TEMP21 + TAG53>
+ <NTH1 TEMP21 = STACK>
+ <REST1 TEMP21 = TEMP21>
+ <ADD TAC9 1 = TAC9 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG53
+ <CALL '\1aOCEMIT TAC9>
+ <DEAD TAC9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ANDI>
+ <PUSH 'O*>
+ <PUSH 262143>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TAC9>
+ <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE64>
+ <GVAL 'STACK-DEPTH = TEMP21>
+ <ADD TEMP21 2 = TEMP21 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP21>
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+PHRASE52
+ <EQUAL? VAL6 LST5 - PHRASE61>
+ <DEAD VAL6 LST5>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3 = TAC9>
+ <RETURN TAC9>
+ <DEAD TAC9>
+PHRASE61
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH NAC7>
+ <CONS NAC7 () = STACK>
+ <DEAD NAC7>
+ <CALL '\1aOCEMIT 3 = TAC9>
+PHRASE64
+ <RETURN TAC9>
+ <DEAD TAC9>
+ <END \1aLENL!-MIMOC>
+\\r\r
+
+#WORD *15432511053*
+<GFCN \1aNTHU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP L16 TEMP11 TEMP10 TEMP17>
+ <INTGO>
+ <NTHL L5 1 = L16>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <PUSH L16>
+ <PUSH 'TYPE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH L16>
+ <DEAD L16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG9 TEMP11>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP10 + TAG9>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG9
+ <DEAD TEMP10>
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = STACK>
+ <DEAD TEMP17>
+ <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG15 TEMP10>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG18
+ <INTGO>
+ <EMPTY? TEMP11 + TAG15>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG18>
+TAG15
+ <DEAD TEMP11>
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'NTHU>
+ <RESTL L5 1 = TEMP17 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
+ <NTHL TEMP17 1 = STACK>
+ <DEAD TEMP17>
+ <CALL '\1aPUSHJ 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aNTHU!-MIMOC>
+#WORD *510061535*
+<GFCN \1aRESTU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP10:FIX TEMP12 TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP9 + TAG8>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG8
+ <DEAD TEMP9>
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RESTU>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aPUSHJ 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aRESTU!-MIMOC>
+#WORD *5510060235*
+<GFCN \1aBACKU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP10:FIX TEMP12 TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP9 + TAG8>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG8
+ <DEAD TEMP9>
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'BACKU>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = STACK>
+ <DEAD TEMP12>
+ <CALL '\1aPUSHJ 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aBACKU!-MIMOC>
+#WORD *3200371507*
+<GFCN \1aTOPU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'TOPU>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <CALL '\1aPUSHJ 2 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aTOPU!-MIMOC>
+<SETG TOPUV!-MIMOC ,TOPU!-MIMOC>
+
+<SETG TOPUS!-MIMOC ,TOPU!-MIMOC>
+
+<SETG TOPUB!-MIMOC ,TOPU!-MIMOC>
+
+#WORD *12433061241*
+<GFCN \1aPUTU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP9 TEMP11 TEMP13:LIST>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'A1*>
+ <NTHL L5 1 = STACK>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'B1*>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = STACK>
+ <DEAD TEMP9>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L5 1 = L5 (TYPE LIST)>
+ <NTHL L5 1 = STACK>
+ <DEAD L5>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG14
+ <INTGO>
+ <EMPTY? TEMP9 + TAG10>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG14>
+TAG10
+ <DEAD TEMP9>
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'PUTU>
+ <CALL '\1aPUSHJ 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPUTU!-MIMOC>
+#WORD *11232663210*
+<GFCN \1aNTHUU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aNTHUV!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aNTHUU!-MIMOC>
+#WORD *36750734674*
+<GFCN \1aNTHUV!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY ANY ANY ANY) L14 UV?15 AOS16 NOT-DEAD?17 LEN-VAR18>
+ <OPT-DISPATCH 1 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
+OPT9
+ <PUSH %<>>
+OPT10
+ <PUSH %<>>
+OPT11
+ <PUSH 'T>
+OPT12
+ <PUSH #T$UNBOUND 0>
+OPT13
+ <TEMP V19 (TEMP28 %<>) AMT20 VAL23 NAC25 (AHEAD27 %<>) AC24 TEMP57 NUM26 TEMP156>
+ <INTGO>
+ <NTHL L14 1 = V19>
+ <RESTL L14 1 = TEMP28 (TYPE LIST)>
+ <NTHL TEMP28 1 = AMT20>
+ <DEAD TEMP28>
+ <RESTL L14 1 = TEMP28 (TYPE LIST)>
+ <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
+ <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
+ <NTHL TEMP28 1 = VAL23 (TYPE ATOM)>
+ <DEAD TEMP28>
+ <TYPE? AOS16 <TYPE-CODE FALSE> - BOOL30>
+ <FRAME '\1aNTH-PUT-LOOK-AHEAD>
+ <PUSH L14>
+ <DEAD L14>
+ <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE33>
+ <SET TEMP28 "PUTUU" (TYPE STRING)>
+ <JUMP + COND32>
+PHRASE33
+ <SET TEMP28 "PUTUV" (TYPE STRING)>
+COND32
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <PUSH V19>
+ <PUSH AMT20>
+ <PUSH VAL23>
+ <CALL '\1aNTH-PUT-LOOK-AHEAD 5 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE217>
+BOOL30
+ <TYPE? LEN-VAR18 <TYPE-CODE UNBOUND> + PHRASE37>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE37>
+ <SET VAL23 LEN-VAR18>
+ <DEAD LEN-VAR18>
+PHRASE37
+ <FRAME '\1aIN-AC?>
+ <PUSH V19>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL42>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <CALL '\1aNEXT-AC 1 = AC24>
+ <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE40>
+BOOL42
+ <FRAME '\1aIN-AC?>
+ <PUSH V19>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC24>
+ <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE40>
+ <EQUAL? AMT20 1 - BOOL46>
+ <TYPE? AOS16 <TYPE-CODE FALSE> - BOOL48>
+ <VEQUAL? VAL23 'STACK - PHRASE40>
+BOOL48
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE40>
+ <EQUAL? AOS16 'HRRZ + PHRASE40>
+BOOL46
+ <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE40>
+ <TYPE? AOS16 <TYPE-CODE FALSE> - PHRASE50>
+ <EQUAL? V19 VAL23 + PHRASE50>
+ <FRAME '\1aLOOK-AHEAD>
+ <GEN-LVAL 'MIML = TEMP28>
+ <REST1 TEMP28 = STACK>
+ <DEAD TEMP28>
+ <PUSH VAL23>
+ <PUSH 'BOTH>
+ <CALL '\1aLOOK-AHEAD 3 = AHEAD27>
+ <TYPE? AHEAD27 <TYPE-CODE FALSE> + PHRASE50>
+ <GVAL 'AC-STAMP = TEMP28>
+ <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP28>
+ <PUTUV AHEAD27 4 TEMP28 (TYPE FIX)>
+ <DEAD TEMP28>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AHEAD27>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP28>
+ <GVAL 'AC-STAMP = TEMP57>
+ <PUTUV TEMP28 4 TEMP57 (TYPE FIX)>
+ <DEAD TEMP28 TEMP57>
+PHRASE50
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH V19>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP28>
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <CALL '\1aNEXT-AC 1 = AC24>
+ <JUMP + PHRASE60>
+PHRASE40
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE60>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC24>
+ <CALL '\1aGET-AC 1 = TEMP28>
+ <GVAL 'AC-STAMP = TEMP57>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP57>
+ <PUTUV TEMP28 4 TEMP57 (TYPE FIX)>
+ <DEAD TEMP28 TEMP57>
+PHRASE60
+ <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE63>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE65>
+ <VEQUAL? VAL23 'STACK + PHRASE65>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL23>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <PUSH 'T>
+ <PUSH AHEAD27>
+ <DEAD AHEAD27>
+ <CALL '\1aLOAD-AC 5 = NAC25>
+PHRASE65
+ <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE69>
+ <SUB AMT20 1 = NUM26 (TYPE FIX)>
+ <DEAD AMT20>
+ <JUMP + PHRASE70>
+PHRASE69
+ <SUB AMT20 1 = TEMP57 (TYPE FIX)>
+ <DEAD AMT20>
+ <LSH TEMP57 1 = NUM26 (TYPE FIX)>
+ <DEAD TEMP57>
+PHRASE70
+ <EQUAL? AOS16 'HRRZ - PHRASE72>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + BOOL76>
+ <DEAD NOT-DEAD?17>
+ <VEQUAL? VAL23 'STACK - PHRASE75>
+BOOL76
+ <SET TEMP57 'O* (TYPE ATOM)>
+ <JUMP + PHRASE77>
+PHRASE75
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <CALL '\1aGET-AC 1 = TEMP28>
+ <PUTUV TEMP28 6 'FIX>
+ <DEAD TEMP28>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aNEXT-AC 1 = TEMP57>
+PHRASE77
+ <PUSH TEMP57>
+ <DEAD TEMP57>
+ <SET TEMP28 2 (TYPE FIX)>
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE81>
+ <CONS AC24 () = TEMP57>
+ <DEAD AC24>
+ <CONS TEMP57 () = TEMP57>
+ <CONS NUM26 TEMP57 = TEMP57>
+ <DEAD NUM26>
+ <JUMP + TAG88>
+PHRASE81
+ <PUSH '@>
+ <SET NUM26 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP57 + TAG84 NUM26>
+ <TYPE TEMP57 = AMT20>
+ <AND AMT20 7 = AMT20>
+ <VEQUAL? AMT20 1 + TAG87>
+ <DEAD AMT20>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (NUM26 VALUE)>
+TAG93
+ <INTGO>
+ <EMPTY? TEMP57 + TAG92>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD NUM26 1 = NUM26 (TYPE FIX)>
+ <JUMP + TAG93>
+TAG92
+ <LIST NUM26 = TEMP57 (TYPE LIST)>
+ <DEAD NUM26>
+ <JUMP + TAG88>
+TAG84
+ <SET TEMP57 0>
+TAG87
+ <LOOP>
+TAG90
+ <VEQUAL? NUM26 0 + TAG89>
+ <POP = AMT20>
+ <CONS AMT20 TEMP57 = TEMP57 (TYPE LIST)>
+ <DEAD AMT20>
+ <SUB NUM26 1 = NUM26 (TYPE FIX)>
+ <JUMP + TAG90>
+TAG89
+TAG88
+ <LOOP (TEMP57 VALUE) (TEMP28 VALUE)>
+TAG94
+ <INTGO>
+ <EMPL? TEMP57 + TAG73>
+ <NTHL TEMP57 1 = STACK>
+ <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
+ <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
+ <JUMP + TAG94>
+TAG73
+ <CALL '\1aOCEMIT TEMP28>
+ <DEAD TEMP28>
+ <VEQUAL? VAL23 'STACK + TAG98>
+ <DEAD VAL23>
+ <RETURN %<>>
+TAG98
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP57 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP28 + TAG99 TEMP57>
+ <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG101
+ <INTGO>
+ <EMPTY? TEMP28 + TAG99>
+ <NTH1 TEMP28 = STACK>
+ <REST1 TEMP28 = TEMP28>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG101>
+TAG99
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
+ <GVAL 'STACK-DEPTH = TEMP57>
+ <ADD TEMP57 2 = TEMP57 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP57>
+ <RETURN TEMP57>
+ <DEAD TEMP57>
+PHRASE72
+ <TYPE? AOS16 <TYPE-CODE FORM> - PHRASE106>
+ <NTHL AOS16 1 = TEMP57 (TYPE ATOM)>
+ <NTHR TEMP57 3 = TEMP57 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP57 "VEQUAL?" - PHRASE108>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP28 "VEQUAL?" (TYPE STRING)>
+ <LENUS TEMP57 = AMT20 (TYPE FIX)>
+ <VEQUAL? AMT20 7 - PHRASE108>
+ <LOOP (TEMP57 VALUE LENGTH) (TEMP28 VALUE LENGTH) (AMT20 VALUE)>
+TAG111
+ <NTHUS TEMP57 1 = VAL23>
+ <NTHUS TEMP28 1 = NAC25>
+ <VEQUAL? VAL23 NAC25 - PHRASE108>
+ <DEAD VAL23>
+ <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
+ <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
+ <SUB AMT20 1 = AMT20 (TYPE FIX)>
+ <GRTR? AMT20 0 + TAG111 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <RESTL AOS16 1 = TEMP28 (TYPE LIST)>
+ <DEAD AOS16>
+ <CHTYPE TEMP28 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP28>
+ <PUSH AC24>
+ <PUSH %<>>
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE114>
+ <DEAD UV?15>
+ <ADD NUM26 1 = TEMP57 (TYPE FIX)>
+ <DEAD NUM26>
+ <JUMP + TAG120>
+PHRASE114
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE115>
+ <DEAD AC24>
+ <SET TEMP57 NUM26>
+ <DEAD NUM26>
+ <JUMP + TAG120>
+PHRASE115
+ <PUSH '@>
+ <SET VAL23 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = NAC25 + TAG117 VAL23>
+ <TYPE NAC25 = TEMP28>
+ <AND TEMP28 7 = TEMP28>
+ <VEQUAL? TEMP28 1 + TAG119>
+ <DEAD TEMP28>
+ <LOOP (NAC25 TYPE VALUE LENGTH) (VAL23 VALUE)>
+TAG125
+ <INTGO>
+ <EMPTY? NAC25 + TAG124>
+ <NTH1 NAC25 = STACK>
+ <REST1 NAC25 = NAC25>
+ <ADD VAL23 1 = VAL23 (TYPE FIX)>
+ <JUMP + TAG125>
+TAG124
+ <LIST VAL23 = TEMP57 (TYPE LIST)>
+ <DEAD VAL23>
+ <JUMP + TAG120>
+TAG117
+ <SET NAC25 0>
+TAG119
+ <LOOP>
+TAG122
+ <VEQUAL? VAL23 0 + TAG121>
+ <POP = TEMP28>
+ <CONS TEMP28 NAC25 = NAC25 (TYPE LIST)>
+ <DEAD TEMP28>
+ <SUB VAL23 1 = VAL23 (TYPE FIX)>
+ <JUMP + TAG122>
+TAG121
+ <SET TEMP57 NAC25>
+ <DEAD NAC25>
+TAG120
+ <PUSH TEMP57>
+ <DEAD TEMP57>
+ <CALL '\1aVEQUAL?!-MIMOC 4 = TEMP28>
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+PHRASE108
+ <NTHL AOS16 1 = NAC25 (TYPE ATOM)>
+ <NTHR NAC25 3 = NAC25 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NAC25 "TYPE?" - PHRASE126>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP28 "TYPE?" (TYPE STRING)>
+ <LENUS NAC25 = AMT20 (TYPE FIX)>
+ <VEQUAL? AMT20 5 - PHRASE126>
+ <LOOP (NAC25 VALUE LENGTH) (TEMP28 VALUE LENGTH) (AMT20 VALUE)>
+TAG130
+ <NTHUS NAC25 1 = VAL23>
+ <NTHUS TEMP28 1 = AHEAD27>
+ <VEQUAL? VAL23 AHEAD27 - PHRASE126>
+ <DEAD VAL23>
+ <RESTUS NAC25 1 = NAC25 (TYPE STRING)>
+ <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
+ <SUB AMT20 1 = AMT20 (TYPE FIX)>
+ <GRTR? AMT20 0 + TAG130 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <RESTL AOS16 1 = NAC25 (TYPE LIST)>
+ <RESTL NAC25 1 = NAC25 (TYPE LIST)>
+ <RESTL NAC25 1 = TEMP28 (TYPE LIST)>
+ <DEAD NAC25>
+ <CHTYPE TEMP28 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP28>
+ <PUSH AC24>
+ <PUSH %<>>
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE133>
+ <DEAD UV?15>
+ <ADD NUM26 1 = NAC25 (TYPE FIX)>
+ <DEAD NUM26>
+ <JUMP + TAG139>
+PHRASE133
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE134>
+ <DEAD AC24>
+ <SET NAC25 NUM26>
+ <DEAD NUM26>
+ <JUMP + TAG139>
+PHRASE134
+ <PUSH '@>
+ <SET VAL23 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = AHEAD27 + TAG136 VAL23>
+ <TYPE AHEAD27 = TEMP28>
+ <AND TEMP28 7 = TEMP28>
+ <VEQUAL? TEMP28 1 + TAG138>
+ <DEAD TEMP28>
+ <LOOP (AHEAD27 TYPE VALUE LENGTH) (VAL23 VALUE)>
+TAG144
+ <INTGO>
+ <EMPTY? AHEAD27 + TAG143>
+ <NTH1 AHEAD27 = STACK>
+ <REST1 AHEAD27 = AHEAD27>
+ <ADD VAL23 1 = VAL23 (TYPE FIX)>
+ <JUMP + TAG144>
+TAG143
+ <LIST VAL23 = NAC25 (TYPE LIST)>
+ <DEAD VAL23>
+ <JUMP + TAG139>
+TAG136
+ <SET AHEAD27 0>
+TAG138
+ <LOOP>
+TAG141
+ <VEQUAL? VAL23 0 + TAG140>
+ <POP = TEMP28>
+ <CONS TEMP28 AHEAD27 = AHEAD27 (TYPE LIST)>
+ <DEAD TEMP28>
+ <SUB VAL23 1 = VAL23 (TYPE FIX)>
+ <JUMP + TAG141>
+TAG140
+ <SET NAC25 AHEAD27>
+ <DEAD AHEAD27>
+TAG139
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <RESTL AOS16 1 = AHEAD27 (TYPE LIST)>
+ <DEAD AOS16>
+ <NTHL AHEAD27 1 = STACK>
+ <DEAD AHEAD27>
+ <CALL '\1aVEQUAL?!-MIMOC 5 = TEMP28>
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+PHRASE126
+ <FRAME '\1aEQUAL?!-MIMOC>
+ <RESTL AOS16 1 = AHEAD27 (TYPE LIST)>
+ <DEAD AOS16>
+ <CHTYPE AHEAD27 <TYPE-CODE LIST> = STACK>
+ <DEAD AHEAD27>
+ <PUSH AC24>
+ <DEAD AC24>
+ <PUSH %<>>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <CALL '\1aEQUAL?!-MIMOC 4 = TEMP28>
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+PHRASE106
+ <TYPE? AOS16 <TYPE-CODE FALSE> + PHRASE147>
+ <FRAME '\1aOCEMIT>
+ <PUSH AOS16>
+ <DEAD AOS16>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE150>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <CALL '\1aNEXT-AC 1 = TEMP28>
+ <JUMP + PHRASE152>
+PHRASE150
+ <SET TEMP28 'O* (TYPE ATOM)>
+PHRASE152
+ <PUSH TEMP28>
+ <DEAD TEMP28>
+ <SET TEMP57 2 (TYPE FIX)>
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE155>
+ <DEAD UV?15>
+ <CONS AC24 () = TEMP156>
+ <DEAD AC24>
+ <CONS TEMP156 () = TEMP28>
+ <DEAD TEMP156>
+ <ADD NUM26 1 = TEMP156 (TYPE FIX)>
+ <DEAD NUM26>
+ <CONS TEMP156 TEMP28 = TEMP28>
+ <DEAD TEMP156>
+ <JUMP + TAG163>
+PHRASE155
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE157>
+ <CONS AC24 () = TEMP156>
+ <DEAD AC24>
+ <CONS TEMP156 () = TEMP28>
+ <DEAD TEMP156>
+ <CONS NUM26 TEMP28 = TEMP28>
+ <DEAD NUM26>
+ <JUMP + TAG163>
+PHRASE157
+ <PUSH '@>
+ <SET NUM26 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP156 + TAG159 NUM26>
+ <TYPE TEMP156 = V19>
+ <AND V19 7 = V19>
+ <VEQUAL? V19 1 + TAG162>
+ <DEAD V19>
+ <LOOP (TEMP156 TYPE VALUE LENGTH) (NUM26 VALUE)>
+TAG168
+ <INTGO>
+ <EMPTY? TEMP156 + TAG167>
+ <NTH1 TEMP156 = STACK>
+ <REST1 TEMP156 = TEMP156>
+ <ADD NUM26 1 = NUM26 (TYPE FIX)>
+ <JUMP + TAG168>
+TAG167
+ <LIST NUM26 = TEMP28 (TYPE LIST)>
+ <DEAD NUM26>
+ <JUMP + TAG163>
+TAG159
+ <SET TEMP156 0>
+TAG162
+ <LOOP>
+TAG165
+ <VEQUAL? NUM26 0 + TAG164>
+ <POP = V19>
+ <CONS V19 TEMP156 = TEMP156 (TYPE LIST)>
+ <DEAD V19>
+ <SUB NUM26 1 = NUM26 (TYPE FIX)>
+ <JUMP + TAG165>
+TAG164
+ <SET TEMP28 TEMP156>
+ <DEAD TEMP156>
+TAG163
+ <LOOP (TEMP28 VALUE) (TEMP57 VALUE)>
+TAG169
+ <INTGO>
+ <EMPL? TEMP28 + TAG148>
+ <NTHL TEMP28 1 = STACK>
+ <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG169>
+TAG148
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+ <SET TEMP28 NOT-DEAD?17>
+ <DEAD NOT-DEAD?17>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aGET-AC 1 = TEMP57>
+ <PUTUV TEMP57 6 'FIX>
+ <RETURN TEMP57>
+ <DEAD TEMP57>
+PHRASE147
+ <VEQUAL? VAL23 'STACK - PHRASE174>
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE174>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH NUM26>
+ <CONS AC24 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <ADD NUM26 1 = STACK (TYPE FIX)>
+ <DEAD NUM26>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
+ <GVAL 'STACK-DEPTH = TEMP57>
+ <ADD TEMP57 2 = TEMP57 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP57>
+ <RETURN TEMP57>
+ <DEAD TEMP57>
+PHRASE174
+ <VEQUAL? VAL23 'STACK - PHRASE180>
+ <DEAD VAL23>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP156 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG181 TEMP156>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
+TAG183
+ <INTGO>
+ <EMPTY? TEMP57 + TAG181>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
+ <JUMP + TAG183>
+TAG181
+ <CALL '\1aOCEMIT TEMP156>
+ <DEAD TEMP156>
+ <GVAL 'WINNING-VICTIM = TEMP156>
+ <TYPE? TEMP156 <TYPE-CODE FALSE> + PHRASE186>
+ <DEAD TEMP156>
+ <GVAL 'STACK-DEPTH = TEMP156>
+ <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP156>
+ <DEAD TEMP156>
+PHRASE186
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE188>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE190>
+PHRASE188
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH '@>
+ <SET TEMP57 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP156 + TAG191 TEMP57>
+ <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG193
+ <INTGO>
+ <EMPTY? TEMP156 + TAG191>
+ <NTH1 TEMP156 = STACK>
+ <REST1 TEMP156 = TEMP156>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG193>
+TAG191
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+PHRASE190
+ <GVAL 'WINNING-VICTIM = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
+ <GVAL 'STACK-DEPTH = TEMP57>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP57>
+ <RETURN TEMP57>
+ <DEAD TEMP57>
+PHRASE180
+ <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE197>
+ <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE199>
+ <DEAD UV?15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH '@>
+ <SET TEMP156 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP57 + TAG200 TEMP156>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
+TAG203
+ <INTGO>
+ <EMPTY? TEMP57 + TAG200>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
+ <JUMP + TAG203>
+TAG200
+ <CALL '\1aOCEMIT TEMP156>
+ <DEAD TEMP156>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aGET-AC 1 = TEMP156>
+ <PUTUV TEMP156 6 'FIX>
+ <RETURN TEMP156>
+ <DEAD TEMP156>
+PHRASE199
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <PUSH '@>
+ <SET TEMP57 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V19>
+ <DEAD V19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP156 + TAG207 TEMP57>
+ <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG209
+ <INTGO>
+ <EMPTY? TEMP156 + TAG207>
+ <NTH1 TEMP156 = STACK>
+ <REST1 TEMP156 = TEMP156>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG209>
+TAG207
+ <CALL '\1aOCEMIT TEMP57 = TEMP28>
+ <DEAD TEMP57>
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+PHRASE197
+ <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE211>
+ <DEAD UV?15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aGET-AC 1 = TEMP57>
+ <PUTUV TEMP57 6 'FIX>
+ <RETURN TEMP57>
+ <DEAD TEMP57>
+PHRASE211
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <CONS AC24 () = STACK>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 4 = TEMP28>
+PHRASE215
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+PHRASE63
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT20>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = NUM26>
+ <TYPE? NUM26 <TYPE-CODE FALSE> + BOOL221>
+ <FRAME '\1aGET-AC>
+ <PUSH NUM26>
+ <CALL '\1aGET-AC 1 = TEMP57>
+ <NTHUV TEMP57 5 = TEMP57>
+ <TYPE? TEMP57 <TYPE-CODE FALSE> + BOOL227>
+ <DEAD TEMP57>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT20>
+ <CALL '\1aWILL-DIE? 1 = TEMP57>
+ <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL227>
+ <DEAD TEMP57>
+BOOL221
+ <VEQUAL? AMT20 VAL23 - PHRASE219>
+ <TYPE? NUM26 <TYPE-CODE FALSE> - BOOL227>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE219>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL23>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <PUSH 'T>
+ <PUSH AHEAD27>
+ <CALL '\1aLOAD-AC 5 = NAC25>
+BOOL227
+ <TYPE? NUM26 <TYPE-CODE FALSE> - PHRASE231>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <CALL '\1aNEXT-AC 1 = NUM26>
+ <PUSH NUM26>
+ <SET TEMP156 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <SCALL '\1aOBJ-VAL 1 = TEMP57 + TAG232 TEMP156>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
+TAG235
+ <INTGO>
+ <EMPTY? TEMP57 + TAG232>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
+ <JUMP + TAG235>
+TAG232
+ <CALL '\1aOCEMIT TEMP156>
+ <DEAD TEMP156>
+ <JUMP + PHRASE261>
+PHRASE231
+ <SET TEMP156 [A2* B2* C2*] (TYPE VECTOR)>
+ <TYPE? NUM26 <TYPE-CODE ATOM> - PHRASE237>
+ <LOOP (NUM26 VALUE) (TEMP156 LENGTH VALUE)>
+TAG240
+ <NTHUV TEMP156 1 = TEMP57>
+ <VEQUAL? TEMP57 NUM26 + TAG239>
+ <DEAD TEMP57>
+ <RESTUV TEMP156 1 = TEMP156 (TYPE VECTOR)>
+ <EMPUV? TEMP156 - TAG240>
+ <JUMP + PHRASE237>
+TAG239
+ <VEQUAL? VAL23 'STACK + PHRASE237>
+ <FRAME '\1aGETPROP>
+ <PUSH NUM26>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = NAC25>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL23>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <CALL '\1aGET-AC 1 = TEMP156>
+ <PUTUV TEMP156 6 %<>>
+ <PUTUV TEMP156 5 'T>
+ <PUTUV TEMP156 2 VAL23>
+ <PUTUV TEMP156 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP156>
+ <FRAME '\1aGET-AC>
+ <PUSH NUM26>
+ <CALL '\1aGET-AC 1 = TEMP156>
+ <PUTUV TEMP156 6 %<>>
+ <PUTUV TEMP156 5 'T>
+ <PUTUV TEMP156 2 VAL23>
+ <PUTUV TEMP156 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP156>
+ <JUMP + PHRASE261>
+PHRASE237
+ <VEQUAL? AMT20 VAL23 + PHRASE248>
+ <DEAD AMT20>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NUM26>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE248
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NUM26>
+ <CALL '\1aFLUSH-AC 1>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE261>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL23>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <PUSH 'T>
+ <PUSH AHEAD27>
+ <DEAD AHEAD27>
+ <CALL '\1aLOAD-AC 5 = NAC25>
+ <JUMP + PHRASE261>
+PHRASE219
+ <TYPE? NUM26 <TYPE-CODE FALSE> + PHRASE256>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 3>
+ <SET NUM26 'T* (TYPE ATOM)>
+ <JUMP + PHRASE258>
+PHRASE256
+ <FRAME '\1aSMASH-AC>
+ <SET NUM26 'T* (TYPE ATOM)>
+ <PUSH NUM26>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+PHRASE258
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE261>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL23>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <PUSH 'T>
+ <PUSH AHEAD27>
+ <DEAD AHEAD27>
+ <CALL '\1aLOAD-AC 5 = NAC25>
+PHRASE261
+ <VEQUAL? VAL23 'STACK + PHRASE264>
+ <TYPE? NAC25 <TYPE-CODE UNBOUND> + PHRASE264>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <CALL '\1aGET-AC 1 = TEMP156>
+ <PUTUV TEMP156 6 %<>>
+ <DEAD TEMP156>
+PHRASE264
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE268>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH NUM26>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+PHRASE268
+ <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE271>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH NUM26>
+ <PUSH AC24>
+ <DEAD AC24>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE273>
+PHRASE271
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH NUM26>
+ <SET TEMP57 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH V19>
+ <DEAD V19>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP156 + TAG274 TEMP57>
+ <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG276
+ <INTGO>
+ <EMPTY? TEMP156 + TAG274>
+ <NTH1 TEMP156 = STACK>
+ <REST1 TEMP156 = TEMP156>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG276>
+TAG274
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+PHRASE273
+ <EQUAL? AOS16 'HRRZ - PHRASE279>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + BOOL283>
+ <DEAD NOT-DEAD?17>
+ <VEQUAL? VAL23 'STACK - PHRASE282>
+BOOL283
+ <SET TEMP57 'O* (TYPE ATOM)>
+ <JUMP + PHRASE284>
+PHRASE282
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <CALL '\1aGET-AC 1 = TEMP156>
+ <PUTUV TEMP156 6 'FIX>
+ <DEAD TEMP156>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aNEXT-AC 1 = TEMP57>
+PHRASE284
+ <PUSH TEMP57>
+ <DEAD TEMP57>
+ <PUSH -2>
+ <CONS NUM26 () = STACK>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 4>
+ <VEQUAL? VAL23 'STACK - PHRASE333>
+ <DEAD VAL23>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP156 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG289 TEMP156>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
+TAG291
+ <INTGO>
+ <EMPTY? TEMP57 + TAG289>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
+ <JUMP + TAG291>
+TAG289
+ <CALL '\1aOCEMIT TEMP156>
+ <DEAD TEMP156>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE333>
+PHRASE279
+ <TYPE? AOS16 <TYPE-CODE FORM> - PHRASE294>
+ <NTHL AOS16 1 = TEMP156 (TYPE ATOM)>
+ <NTHR TEMP156 3 = TEMP156 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP156 "VEQUAL?" - PHRASE296>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP57 "VEQUAL?" (TYPE STRING)>
+ <LENUS TEMP156 = V19 (TYPE FIX)>
+ <VEQUAL? V19 7 - PHRASE296>
+ <LOOP (TEMP156 VALUE LENGTH) (TEMP57 VALUE LENGTH) (V19 VALUE)>
+TAG299
+ <NTHUS TEMP156 1 = AMT20>
+ <NTHUS TEMP57 1 = VAL23>
+ <VEQUAL? AMT20 VAL23 - PHRASE296>
+ <DEAD AMT20 VAL23>
+ <RESTUS TEMP156 1 = TEMP156 (TYPE STRING)>
+ <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
+ <SUB V19 1 = V19 (TYPE FIX)>
+ <GRTR? V19 0 + TAG299 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <RESTL AOS16 1 = TEMP57 (TYPE LIST)>
+ <DEAD AOS16>
+ <CHTYPE TEMP57 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP57>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <PUSH %<>>
+ <PUSH -1>
+ <CALL '\1aVEQUAL?!-MIMOC 4>
+ <JUMP + PHRASE333>
+PHRASE296
+ <NTHL AOS16 1 = TEMP156 (TYPE ATOM)>
+ <NTHR TEMP156 3 = TEMP156 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP156 "TYPE?" - PHRASE301>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET VAL23 "TYPE?" (TYPE STRING)>
+ <LENUS TEMP156 = AMT20 (TYPE FIX)>
+ <VEQUAL? AMT20 5 - PHRASE301>
+ <LOOP (TEMP156 VALUE LENGTH) (VAL23 VALUE LENGTH) (AMT20 VALUE)>
+TAG304
+ <NTHUS TEMP156 1 = TEMP28>
+ <NTHUS VAL23 1 = V19>
+ <VEQUAL? TEMP28 V19 - PHRASE301>
+ <DEAD TEMP28 V19>
+ <RESTUS TEMP156 1 = TEMP156 (TYPE STRING)>
+ <RESTUS VAL23 1 = VAL23 (TYPE STRING)>
+ <SUB AMT20 1 = AMT20 (TYPE FIX)>
+ <GRTR? AMT20 0 + TAG304 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aVEQUAL?!-MIMOC>
+ <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
+ <RESTL TEMP156 1 = TEMP156 (TYPE LIST)>
+ <RESTL TEMP156 1 = VAL23 (TYPE LIST)>
+ <DEAD TEMP156>
+ <CHTYPE VAL23 <TYPE-CODE LIST> = STACK>
+ <DEAD VAL23>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <PUSH %<>>
+ <PUSH -2>
+ <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
+ <DEAD AOS16>
+ <NTHL TEMP156 1 = STACK>
+ <DEAD TEMP156>
+ <CALL '\1aVEQUAL?!-MIMOC 5>
+ <JUMP + PHRASE333>
+PHRASE301
+ <FRAME '\1aEQUAL?!-MIMOC>
+ <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
+ <DEAD AOS16>
+ <CHTYPE TEMP156 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP156>
+ <PUSH NUM26>
+ <DEAD NUM26>
+ <PUSH %<>>
+ <PUSH -2>
+ <CALL '\1aEQUAL?!-MIMOC 4>
+ <JUMP + PHRASE333>
+PHRASE294
+ <TYPE? AOS16 <TYPE-CODE FALSE> + PHRASE308>
+ <FRAME '\1aOCEMIT>
+ <PUSH AOS16>
+ <DEAD AOS16>
+ <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE311>
+ <DEAD NOT-DEAD?17>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <CALL '\1aGET-AC 1 = V19>
+ <PUTUV V19 6 'FIX>
+ <DEAD V19>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aNEXT-AC 1 = V19>
+ <JUMP + PHRASE314>
+PHRASE311
+ <SET V19 'O* (TYPE ATOM)>
+PHRASE314
+ <PUSH V19>
+ <DEAD V19>
+ <PUSH -1>
+ <CONS NUM26 () = STACK>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE333>
+PHRASE308
+ <VEQUAL? VAL23 'STACK - PHRASE315>
+ <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE315>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH -2>
+ <CONS NUM26 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH -1>
+ <CONS NUM26 () = STACK>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = V19>
+ <TYPE? V19 <TYPE-CODE FALSE> + PHRASE333>
+ <DEAD V19>
+ <GVAL 'STACK-DEPTH = V19>
+ <ADD V19 2 = V19 (TYPE FIX)>
+ <SETG 'STACK-DEPTH V19>
+ <DEAD V19>
+ <JUMP + PHRASE333>
+PHRASE315
+ <VEQUAL? VAL23 'STACK - PHRASE321>
+ <DEAD VAL23>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP28 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = V19 + TAG322 TEMP28>
+ <LOOP (V19 TYPE VALUE LENGTH) (TEMP28 VALUE)>
+TAG324
+ <INTGO>
+ <EMPTY? V19 + TAG322>
+ <NTH1 V19 = STACK>
+ <REST1 V19 = V19>
+ <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
+ <JUMP + TAG324>
+TAG322
+ <CALL '\1aOCEMIT TEMP28>
+ <DEAD TEMP28>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH -1>
+ <CONS NUM26 () = STACK>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE333>
+ <DEAD TEMP28>
+ <GVAL 'STACK-DEPTH = TEMP28>
+ <ADD TEMP28 2 = TEMP28 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP28>
+ <DEAD TEMP28>
+ <JUMP + PHRASE333>
+PHRASE321
+ <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE329>
+ <DEAD UV?15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC25>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH -1>
+ <CONS NUM26 () = STACK>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <CALL '\1aGET-AC 1 = TEMP28>
+ <PUTUV TEMP28 6 'FIX>
+ <DEAD TEMP28>
+ <JUMP + PHRASE333>
+PHRASE329
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH NAC25>
+ <DEAD NAC25>
+ <PUSH -2>
+ <CONS NUM26 () = STACK>
+ <DEAD NUM26>
+ <CALL '\1aOCEMIT 4>
+PHRASE333
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = TEMP28>
+ <PUTUV TEMP28 3 'DUMMY (TYPE ATOM)>
+PHRASE217
+ <RETURN TEMP28>
+ <DEAD TEMP28>
+ <END \1aNTHUV!-MIMOC>
+#WORD *11032601210*
+<GFCN \1aPUTUU!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aPUTUV!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aPUTUV!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPUTUU!-MIMOC>
+#WORD *23270334466*
+<GFCN \1aPUTUV!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L6 UV?7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP V8 (TEMP16 %<>) AMT9 VAL11 PUT-TYP15 AC12 TEMP29 AMT-AC13>
+ <INTGO>
+ <NTHL L6 1 = V8>
+ <RESTL L6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = AMT9>
+ <DEAD TEMP16>
+ <RESTL L6 1 = TEMP16 (TYPE LIST)>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = VAL11>
+ <DEAD TEMP16>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L6>
+ <DEAD L6>
+ <CALL '\1aEXTRAMEM 2 = PUT-TYP15>
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL21>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aNEXT-AC 1 = AC12>
+ <TYPE? AC12 <TYPE-CODE FALSE> - PHRASE19>
+BOOL21
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC12>
+ <TYPE? AC12 <TYPE-CODE FALSE> - PHRASE19>
+ <EQUAL? AMT9 1 + PHRASE19>
+ <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE19>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP16>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aNEXT-AC 1 = AC12>
+ <JUMP + PHRASE27>
+PHRASE19
+ <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE27>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC12>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <GVAL 'AC-STAMP = TEMP29>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP29>
+ <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
+ <DEAD TEMP16 TEMP29>
+PHRASE27
+ <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE31>
+ <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE31>
+ <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aDO-PUT>
+ <PUSH 'FIX>
+ <PUSH AC12>
+ <DEAD AC12>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <SUB AMT9 2 = STACK (TYPE FIX)>
+ <DEAD AMT9>
+ <CALL '\1aDO-PUT 4 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE34
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL11>
+ <CALL '\1aPRIMTYPE 1 = TEMP29>
+ <VEQUAL? TEMP29 'LIST - BOOL38>
+ <DEAD TEMP29>
+ <EMPTY? VAL11 + BOOL37>
+BOOL38
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL11>
+ <CALL '\1aPRIMTYPE 1 = TEMP29>
+ <VEQUAL? TEMP29 'WORD - PHRASE36>
+ <DEAD TEMP29>
+ <VEQUAL? VAL11 0 - PHRASE36 (TYPE FIX)>
+BOOL37
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH '@>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <DEAD V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG44 TEMP16>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG47
+ <INTGO>
+ <EMPTY? TEMP29 + TAG44>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG47>
+TAG44
+ <CALL '\1aOCEMIT TEMP16 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE36
+ <FRAME '\1aPRIMTYPE>
+ <PUSH VAL11>
+ <CALL '\1aPRIMTYPE 1 = TEMP16>
+ <VEQUAL? TEMP16 'WORD - PHRASE49>
+ <DEAD TEMP16>
+ <VEQUAL? VAL11 -1 - PHRASE49 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETOM>
+ <PUSH '@>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <DEAD V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG54 TEMP29>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG56
+ <INTGO>
+ <EMPTY? TEMP16 + TAG54>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG56>
+TAG54
+ <CALL '\1aOCEMIT TEMP29 = TEMP16>
+ <DEAD TEMP29>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE49
+ <TYPE? VAL11 <TYPE-CODE ATOM> - PHRASE58>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH '@>
+ <SET TEMP16 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <DEAD V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG61 TEMP16>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG63
+ <INTGO>
+ <EMPTY? TEMP29 + TAG61>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG63>
+TAG61
+ <CALL '\1aOCEMIT TEMP16 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE58
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <PUSH 'VALUE>
+ <PUSH 'O*>
+ <CALL '\1aGET-INTO-ACS 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH 'O*>
+ <PUSH '@>
+ <SET TEMP29 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <DEAD V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG67 TEMP29>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG69
+ <INTGO>
+ <EMPTY? TEMP16 + TAG67>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG69>
+TAG67
+ <CALL '\1aOCEMIT TEMP29 = TEMP16>
+ <DEAD TEMP29>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE31
+ <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE71>
+ <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE73>
+ <FRAME '\1aDO-PUT>
+ <PUSH PUT-TYP15>
+ <DEAD PUT-TYP15>
+ <PUSH AC12>
+ <DEAD AC12>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <SUB AMT9 1 = TEMP29 (TYPE FIX)>
+ <DEAD AMT9>
+ <LSH TEMP29 1 = STACK (TYPE FIX)>
+ <DEAD TEMP29>
+ <CALL '\1aDO-PUT 4 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE73
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH '@>
+ <SET TEMP16 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <DEAD V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG77 TEMP16>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG79
+ <INTGO>
+ <EMPTY? TEMP29 + TAG77>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG79>
+TAG77
+ <CALL '\1aOCEMIT TEMP16 = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+PHRASE71
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AMT-AC13>
+ <TYPE? AMT-AC13 <TYPE-CODE FALSE> + PHRASE83>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT9>
+ <CALL '\1aWILL-DIE? 1 = TEMP16>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE83>
+ <DEAD TEMP16>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT9 () = STACK>
+ <DEAD AMT9>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <FRAME '\1aGET-AC>
+ <PUSH AMT-AC13>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <GVAL 'AC-STAMP = TEMP29>
+ <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
+ <DEAD TEMP16 TEMP29>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aGETPROP>
+ <PUSH AMT-AC13>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = TEMP16>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aGET-AC 1 = TEMP16>
+ <GVAL 'AC-STAMP = TEMP29>
+ <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
+ <DEAD TEMP16 TEMP29>
+ <JUMP + PHRASE91>
+PHRASE83
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <PUSH 'VALUE>
+ <SET AMT-AC13 'T* (TYPE ATOM)>
+ <PUSH AMT-AC13>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE91
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE94>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH AMT-AC13>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+PHRASE94
+ <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE97>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH AMT-AC13>
+ <PUSH AC12>
+ <DEAD AC12>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE99>
+PHRASE97
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <PUSH AMT-AC13>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <DEAD V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG100 TEMP29>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG102
+ <INTGO>
+ <EMPTY? TEMP16 + TAG100>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG102>
+TAG100
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+PHRASE99
+ <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE105>
+ <DEAD UV?7>
+ <FRAME '\1aDO-PUT>
+ <PUSH 'FIX>
+ <PUSH AMT-AC13>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <PUSH -2>
+ <CALL '\1aDO-PUT 4>
+ <JUMP + PHRASE107>
+PHRASE105
+ <FRAME '\1aDO-PUT>
+ <PUSH PUT-TYP15>
+ <DEAD PUT-TYP15>
+ <PUSH AMT-AC13>
+ <PUSH VAL11>
+ <DEAD VAL11>
+ <PUSH -2>
+ <CALL '\1aDO-PUT 4>
+PHRASE107
+ <FRAME '\1aGET-AC>
+ <PUSH AMT-AC13>
+ <DEAD AMT-AC13>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 3 'DUMMY (TYPE ATOM)>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+ <END \1aPUTUV!-MIMOC>\r\r
+#WORD *31372661712*
+<GFCN \1aRESTUU!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aRESTUV!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aRESTUV!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aRESTUU!-MIMOC>
+#WORD *26667670566*
+<GFCN \1aRESTUV!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L6 UV?7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP V8 TEMP14 AMT9 VAL10:ATOM AC11 NAC12 TEMP52>
+ <INTGO>
+ <NTHL L6 1 = V8>
+ <RESTL L6 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = AMT9>
+ <DEAD TEMP14>
+ <RESTL L6 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = VAL10 (TYPE ATOM)>
+ <DEAD TEMP14>
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L6>
+ <DEAD L6>
+ <CALL '\1aEXTRAMEM 2>
+ <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE17>
+ <VEQUAL? AMT9 1 - PHRASE19 (TYPE FIX)>
+ <VEQUAL? V8 VAL10 - PHRASE19>
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <JUMP + PHRASE24>
+PHRASE19
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC11>
+PHRASE24
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE27>
+ <VEQUAL? V8 VAL10 + PHRASE29>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH V8>
+ <DEAD V8>
+ <CALL '\1aWILL-DIE? 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE29>
+ <DEAD TEMP14>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP14>
+ <NTHUV TEMP14 5 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE29>
+ <DEAD TEMP14>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL10>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL10>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH NAC12>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE36>
+PHRASE29
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL10>
+ <CALL '\1aCLEAN-ACS 1>
+ <VEQUAL? VAL10 'STACK + PHRASE39>
+ <FRAME '\1aALTER-AC>
+ <PUSH AC11>
+ <PUSH VAL10>
+ <CALL '\1aALTER-AC 2>
+ <JUMP + PHRASE41>
+PHRASE39
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+PHRASE41
+ <SET NAC12 AC11>
+ <DEAD AC11>
+PHRASE36
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE46>
+ <DEAD UV?7>
+ <SET TEMP14 AMT9>
+ <JUMP + PHRASE47>
+PHRASE46
+ <LSH AMT9 1 = TEMP14 (TYPE FIX)>
+PHRASE47
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUBI>
+ <PUSH NAC12>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE199>
+PHRASE27
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL10>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOS>
+ <PUSH NAC12>
+ <SET TEMP52 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH V8>
+ <PUSH 0>
+ <SCALL '\1aOBJ-LOC 2 = TEMP14 + TAG51 TEMP52>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
+TAG54
+ <INTGO>
+ <EMPTY? TEMP14 + TAG51>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
+ <JUMP + TAG54>
+TAG51
+ <CALL '\1aOCEMIT TEMP52>
+ <DEAD TEMP52>
+ <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE57>
+ <DEAD UV?7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'AOS>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP14 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH V8>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP52 + TAG58 TEMP14>
+ <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG61
+ <INTGO>
+ <EMPTY? TEMP52 + TAG58>
+ <NTH1 TEMP52 = STACK>
+ <REST1 TEMP52 = TEMP52>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG61>
+TAG58
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <JUMP + PHRASE63>
+PHRASE57
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 2>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP52 2 (TYPE FIX)>
+ <SFRAME 'OBJ-LOC>
+ <PUSH V8>
+ <PUSH 1>
+ <SCALL '\1aOBJ-LOC 2 = TEMP14 + TAG66 TEMP52>
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
+TAG69
+ <INTGO>
+ <EMPTY? TEMP14 + TAG66>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
+ <JUMP + TAG69>
+TAG66
+ <CALL '\1aOCEMIT TEMP52>
+ <DEAD TEMP52>
+PHRASE63
+ <FRAME '\1aGET-AC>
+ <PUSH NAC12>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <PUTUV TEMP52 5 %<>>
+ <DEAD TEMP52>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <PUTUV TEMP52 5 %<>>
+ <DEAD TEMP52>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC12>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <PUTUV TEMP52 2 V8>
+ <DEAD TEMP52>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <PUTUV TEMP52 2 V8>
+ <DEAD TEMP52 V8>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC12>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <PUTUV TEMP52 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP52>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <PUTUV TEMP52 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP52>
+ <JUMP + PHRASE199>
+PHRASE17
+ <VEQUAL? V8 VAL10 - PHRASE80>
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <DEAD V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = NAC12>
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + BOOL83>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT9>
+ <CALL '\1aWILL-DIE? 1 = TEMP52>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> + BOOL86>
+ <DEAD TEMP52>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT9 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2 = TEMP52>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE90>
+ <DEAD TEMP52>
+BOOL86
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <NTHUV TEMP52 5 = TEMP52>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE90>
+ <DEAD TEMP52>
+BOOL83
+ <SET AC11 %<> (TYPE FALSE)>
+PHRASE90
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH NAC12>
+ <SET TEMP14 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE93>
+ <CONS AC11 () = TEMP52>
+ <JUMP + PHRASE94>
+PHRASE93
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP52>
+PHRASE94
+ <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG96
+ <INTGO>
+ <EMPTY? TEMP52 + TAG91>
+ <NTH1 TEMP52 = STACK>
+ <REST1 TEMP52 = TEMP52>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG96>
+TAG91
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE99>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE99>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH AC11>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE102>
+PHRASE99
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE102>
+ <DEAD UV?7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP52 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE106>
+ <CONS AC11 () = TEMP14>
+ <JUMP + PHRASE107>
+PHRASE106
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP14>
+PHRASE107
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
+TAG109
+ <INTGO>
+ <EMPTY? TEMP14 + TAG103>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
+ <JUMP + TAG109>
+TAG103
+ <CALL '\1aOCEMIT TEMP52>
+ <DEAD TEMP52>
+PHRASE102
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP14 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE114>
+ <CONS AC11 () = TEMP52>
+ <DEAD AC11>
+ <JUMP + PHRASE115>
+PHRASE114
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP52>
+PHRASE115
+ <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG117
+ <INTGO>
+ <EMPTY? TEMP52 + TAG111>
+ <NTH1 TEMP52 = STACK>
+ <REST1 TEMP52 = TEMP52>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG117>
+TAG111
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC12>
+ <CALL '\1aGET-AC 1 = TEMP14>
+ <PUTUV TEMP14 5 'T>
+ <DEAD TEMP14>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP14>
+ <PUTUV TEMP14 5 'T>
+ <DEAD TEMP14>
+ <JUMP + PHRASE199>
+PHRASE80
+ <VEQUAL? VAL10 AMT9 - PHRASE122>
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <DEAD V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = NAC12>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC12>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC12>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH AMT9>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH NAC12>
+ <SET TEMP52 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE130>
+ <CONS AC11 () = TEMP14>
+ <JUMP + PHRASE131>
+PHRASE130
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP14>
+PHRASE131
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
+TAG133
+ <INTGO>
+ <EMPTY? TEMP14 + TAG128>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
+ <JUMP + TAG133>
+TAG128
+ <CALL '\1aOCEMIT TEMP52>
+ <DEAD TEMP52>
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE136>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE136>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH AC11>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE139>
+PHRASE136
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE139>
+ <DEAD UV?7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP14 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE143>
+ <CONS AC11 () = TEMP52>
+ <JUMP + PHRASE144>
+PHRASE143
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP52>
+PHRASE144
+ <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG146
+ <INTGO>
+ <EMPTY? TEMP52 + TAG140>
+ <NTH1 TEMP52 = STACK>
+ <REST1 TEMP52 = TEMP52>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG146>
+TAG140
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+PHRASE139
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP52 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE151>
+ <CONS AC11 () = TEMP14>
+ <DEAD AC11>
+ <JUMP + PHRASE152>
+PHRASE151
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP14>
+PHRASE152
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
+TAG154
+ <INTGO>
+ <EMPTY? TEMP14 + TAG148>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
+ <JUMP + TAG154>
+TAG148
+ <CALL '\1aOCEMIT TEMP52>
+ <DEAD TEMP52>
+ <FRAME '\1aALTER-AC>
+ <PUSH NAC12>
+ <PUSH VAL10>
+ <CALL '\1aALTER-AC 2>
+ <JUMP + PHRASE199>
+PHRASE122
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <DEAD V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = NAC12>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC12>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC12>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + BOOL162>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT9>
+ <CALL '\1aWILL-DIE? 1 = TEMP52>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> + BOOL165>
+ <DEAD TEMP52>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT9 () = STACK>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2 = TEMP52>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE169>
+ <DEAD TEMP52>
+BOOL165
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP52>
+ <NTHUV TEMP52 5 = TEMP52>
+ <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE169>
+ <DEAD TEMP52>
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE169>
+BOOL162
+ <SET AC11 %<> (TYPE FALSE)>
+PHRASE169
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH NAC12>
+ <SET TEMP14 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE172>
+ <CONS AC11 () = TEMP52>
+ <JUMP + PHRASE173>
+PHRASE172
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP52>
+PHRASE173
+ <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG175
+ <INTGO>
+ <EMPTY? TEMP52 + TAG170>
+ <NTH1 TEMP52 = STACK>
+ <REST1 TEMP52 = TEMP52>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG175>
+TAG170
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE178>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE178>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH AC11>
+ <PUSH 1>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE181>
+PHRASE178
+ <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE181>
+ <DEAD UV?7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP52 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE185>
+ <CONS AC11 () = TEMP14>
+ <JUMP + PHRASE186>
+PHRASE185
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP14>
+PHRASE186
+ <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
+TAG188
+ <INTGO>
+ <EMPTY? TEMP14 + TAG182>
+ <NTH1 TEMP14 = STACK>
+ <REST1 TEMP14 = TEMP14>
+ <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
+ <JUMP + TAG188>
+TAG182
+ <CALL '\1aOCEMIT TEMP52>
+ <DEAD TEMP52>
+PHRASE181
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADD>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP14 2 (TYPE FIX)>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE193>
+ <CONS AC11 () = TEMP52>
+ <DEAD AC11>
+ <JUMP + PHRASE194>
+PHRASE193
+ <FRAME '\1aOBJ-VAL>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <CALL '\1aOBJ-VAL 1 = TEMP52>
+PHRASE194
+ <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
+TAG196
+ <INTGO>
+ <EMPTY? TEMP52 + TAG190>
+ <NTH1 TEMP52 = STACK>
+ <REST1 TEMP52 = TEMP52>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG196>
+TAG190
+ <CALL '\1aOCEMIT TEMP14>
+ <DEAD TEMP14>
+ <VEQUAL? VAL10 'STACK + PHRASE199>
+ <FRAME '\1aALTER-AC>
+ <PUSH NAC12>
+ <PUSH VAL10>
+ <CALL '\1aALTER-AC 2>
+PHRASE199
+ <VEQUAL? VAL10 'STACK + TAG203>
+ <DEAD VAL10>
+ <RETURN %<>>
+TAG203
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH NAC12>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC12>
+ <DEAD NAC12>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE208>
+ <GVAL 'STACK-DEPTH = TEMP52>
+ <ADD TEMP52 2 = TEMP52 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP52>
+ <SET TEMP14 TEMP52>
+ <DEAD TEMP52>
+PHRASE208
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aRESTUV!-MIMOC>\r\r
+#WORD *36571173164*
+<GFCN \1aEMPUV?!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP V6 TEMP11 TAG7:ATOM (JUMP8 'JUMPE) (TRN9 'TRNN) AC10 TEMP24:FIX TEMP23>
+ <INTGO>
+ <NTHL L5 1 = V6>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TAG7 (TYPE ATOM)>
+ <DEAD TEMP11>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP11 1 = TEMP11>
+ <EQUAL? TEMP11 '- - PHRASE13>
+ <DEAD TEMP11>
+ <SET JUMP8 'JUMPN (TYPE ATOM)>
+ <SET TRN9 'TRNE (TYPE ATOM)>
+PHRASE13
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH TAG7>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aIN-AC?>
+ <PUSH V6>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = AC10>
+ <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME '\1aOCEMIT>
+ <PUSH TRN9>
+ <DEAD TRN9>
+ <PUSH AC10>
+ <DEAD AC10>
+ <PUSH 262143>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE16
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'O*>
+ <SET TEMP24 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH V6>
+ <DEAD V6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP23 + TAG22 TEMP24>
+ <LOOP (TEMP23 TYPE VALUE LENGTH) (TEMP24 VALUE)>
+TAG26
+ <INTGO>
+ <EMPTY? TEMP23 + TAG22>
+ <NTH1 TEMP23 = STACK>
+ <REST1 TEMP23 = TEMP23>
+ <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG22
+ <DEAD TEMP23>
+ <CALL '\1aOCEMIT TEMP24>
+ <DEAD TEMP24>
+ <FRAME '\1aOCEMIT>
+ <PUSH JUMP8>
+ <DEAD JUMP8>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <PUSH TAG7>
+ <DEAD TAG7>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aEMPUV?!-MIMOC>
+#WORD *14306165044*
+<GFCN \1aLENUV!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
+ <TEMP V6 TEMP9 VAL7:ATOM TEMP13>
+ <INTGO>
+ <NTHL L5 1 = V6>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP9>
+ <VEQUAL? VAL7 'STACK - PHRASE11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP9 + TAG12 TEMP13>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG15
+ <INTGO>
+ <EMPTY? TEMP9 + TAG12>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG12
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
+ <DEAD TEMP13>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <DEAD TEMP13>
+PHRASE18
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <PUSH 'O*>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH V6>
+ <DEAD V6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG19 TEMP9>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG21
+ <INTGO>
+ <EMPTY? TEMP13 + TAG19>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG21>
+TAG19
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE26>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE11
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = VAL7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH VAL7>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH V6>
+ <DEAD V6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG28 TEMP9>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP13 + TAG28>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG28
+ <CALL '\1aOCEMIT TEMP9>
+ <DEAD TEMP9>
+ <FRAME '\1aGET-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aGET-AC 1 = TEMP9>
+ <PUTUV TEMP9 6 'FIX>
+PHRASE26
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aLENUV!-MIMOC>
+#WORD *17543033221*
+<GFCN \1aNTHUB!-MIMOC ("VALUE" <OR AC FALSE> ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aNTHUS!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aNTHUS!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aNTHUB!-MIMOC>
+#WORD *24576427673*
+<GFCN \1aNTHUS!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" <OR ATOM FALSE>) L6 BYTES?7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP V8 TEMP14 AMT9 VAL10:ATOM AC11 TEMP27 TEMP29>
+ <INTGO>
+ <NTHL L6 1 = V8>
+ <RESTL L6 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = AMT9>
+ <DEAD TEMP14>
+ <RESTL L6 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = VAL10 (TYPE ATOM)>
+ <DEAD TEMP14>
+ <FRAME '\1aPUTPROP>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH 'DONE>
+ <CALL '\1aPUTPROP 2 = TEMP14>
+ <SETG 'REMEMBER-STRING %<>>
+ <SETG 'DIE-LATER %<>>
+ <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE17>
+ <VEQUAL? VAL10 V8 + PHRASE17>
+ <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE17>
+ <FRAME '\1aSTRING-PUT-NTH-LOOK-AHEAD>
+ <PUSH V8>
+ <PUSH 'NTH>
+ <PUSH VAL10>
+ <PUSH BYTES?7>
+ <PUSH AMT9>
+ <CALL '\1aSTRING-PUT-NTH-LOOK-AHEAD 5 = TEMP14>
+PHRASE17
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG22>
+ <RETURN %<>>
+TAG22
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'FUNNY-VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE24>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP27>
+ <PUTUV TEMP27 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP27>
+ <SET AMT9 1 (TYPE FIX)>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP27>
+ <GVAL 'AC-STAMP = TEMP29>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP29>
+ <PUTUV TEMP27 4 TEMP29 (TYPE FIX)>
+ <DEAD TEMP27 TEMP29>
+ <JUMP + PHRASE59>
+PHRASE24
+ <EQUAL? AMT9 1 + PHRASE30>
+ <EQUAL? AMT9 2 + PHRASE30>
+ <FRAME '\1aLOAD-AC>
+ <PUSH AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aLOAD-AC 2 = AC11>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC11>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE37>
+ <DEAD TEMP27>
+ <SET TEMP27 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE38>
+PHRASE37
+ <SET TEMP27 'ADJBP (TYPE ATOM)>
+PHRASE38
+ <PUSH TEMP27>
+ <DEAD TEMP27>
+ <PUSH AC11>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP27 + TAG35 TEMP29>
+ <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG40
+ <INTGO>
+ <EMPTY? TEMP27 + TAG35>
+ <NTH1 TEMP27 = STACK>
+ <REST1 TEMP27 = TEMP27>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG35
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <JUMP + PHRASE59>
+PHRASE30
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE42>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH V8>
+ <CALL '\1aWILL-DIE? 1 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> - BOOL45>
+ <DEAD TEMP29>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <NTHUV TEMP29 5 = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL45>
+ <DEAD TEMP29>
+ <VEQUAL? V8 VAL10 + BOOL45>
+ <GVAL 'DIE-LATER = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP29>
+BOOL45
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <GVAL 'AC-STAMP = TEMP27>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP27>
+ <PUTUV TEMP29 4 TEMP27 (TYPE FIX)>
+ <DEAD TEMP29 TEMP27>
+ <JUMP + PHRASE59>
+PHRASE42
+ <GVAL 'REMEMBER-STRING = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE50>
+ <DEAD TEMP29>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE52>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC11>
+ <CALL '\1aFLUSH-AC 1>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <GVAL 'AC-STAMP = TEMP27>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP27>
+ <PUTUV TEMP29 4 TEMP27 (TYPE FIX)>
+ <DEAD TEMP29 TEMP27>
+ <JUMP + PHRASE55>
+PHRASE52
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = AC11>
+PHRASE55
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+ <JUMP + PHRASE59>
+PHRASE50
+ <SET AC11 %<> (TYPE FALSE)>
+PHRASE59
+ <VEQUAL? VAL10 'STACK - PHRASE61>
+ <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE63>
+ <DEAD BYTES?7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP27 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FIX>
+ <SCALL '\1aTYPE-WORD 1 = TEMP29 + TAG64 TEMP27>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
+TAG66
+ <INTGO>
+ <EMPTY? TEMP29 + TAG64>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <JUMP + TAG66>
+TAG64
+ <CALL '\1aOCEMIT TEMP27>
+ <DEAD TEMP27>
+ <JUMP + PHRASE68>
+PHRASE63
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'CHARACTER>
+ <SCALL '\1aTYPE-WORD 1 = TEMP27 + TAG69 TEMP29>
+ <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG71
+ <INTGO>
+ <EMPTY? TEMP27 + TAG69>
+ <NTH1 TEMP27 = STACK>
+ <REST1 TEMP27 = TEMP27>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG71>
+TAG69
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+PHRASE68
+ <GVAL 'WINNING-VICTIM = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE74>
+ <DEAD TEMP29>
+ <GVAL 'STACK-DEPTH = TEMP29>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP29>
+ <DEAD TEMP29>
+PHRASE74
+ <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE76>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O*>
+ <SET TEMP27 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG77 TEMP27>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
+TAG79
+ <INTGO>
+ <EMPTY? TEMP29 + TAG77>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <JUMP + TAG79>
+TAG77
+ <CALL '\1aOCEMIT TEMP27>
+ <DEAD TEMP27>
+ <SET AC11 'O* (TYPE ATOM)>
+PHRASE76
+ <FRAME '\1aDNTH>
+ <PUSH 'O*>
+ <PUSH AC11>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <CALL '\1aDNTH 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP27>
+ <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE84>
+ <DEAD TEMP27>
+ <GVAL 'STACK-DEPTH = TEMP27>
+ <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP27>
+ <DEAD TEMP27>
+PHRASE84
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP27>
+ <PUTUV TEMP27 3 'DUMMY (TYPE ATOM)>
+ <DEAD TEMP27>
+ <JUMP + PHRASE100>
+PHRASE61
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL10>
+ <DEAD VAL10>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = TEMP14>
+ <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE89>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP14>
+ <CALL '\1aNEXT-AC 1 = AC11>
+ <PUSH AC11>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP27 + TAG90 TEMP29>
+ <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG93
+ <INTGO>
+ <EMPTY? TEMP27 + TAG90>
+ <NTH1 TEMP27 = STACK>
+ <REST1 TEMP27 = TEMP27>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG93>
+TAG90
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+PHRASE89
+ <FRAME '\1aDNTH>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP14>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH AC11>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <CALL '\1aDNTH 3>
+ <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE98>
+ <DEAD BYTES?7>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP14>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 6 'FIX>
+ <DEAD TEMP29>
+ <JUMP + PHRASE100>
+PHRASE98
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP14>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 6 'CHARACTER>
+ <DEAD TEMP29>
+PHRASE100
+ <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG108>
+ <EQUAL? AC11 TEMP14 - TAG107>
+ <RETURN %<>>
+TAG107
+ <FRAME '\1aNEXT-AC>
+ <PUSH TEMP14>
+ <DEAD TEMP14>
+ <CALL '\1aNEXT-AC 1 = TEMP29>
+ <EQUAL? AC11 TEMP29 - TAG108>
+ <DEAD TEMP29>
+ <RETURN %<>>
+TAG108
+ <GVAL 'REMEMBER-STRING = TEMP29>
+ <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE111>
+ <DEAD TEMP29>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 2 V8>
+ <DEAD V8>
+ <PUTUV TEMP29 3 'FUNNY-VALUE (TYPE ATOM)>
+ <PUTUV TEMP29 5 %<>>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+PHRASE111
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aGET-AC 1 = TEMP29>
+ <PUTUV TEMP29 3 'DUMMY (TYPE ATOM)>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+ <END \1aNTHUS!-MIMOC>
+#WORD *26773504066*
+<GFCN \1aDNTH ("VALUE" ANY ATOM ATOM <OR ATOM FIX>) AC15 AC26 AMT7>
+ <TEMP TEMP15>
+ <INTGO>
+ <EQUAL? AMT7 1 + BOOL10>
+ <EQUAL? AMT7 2 - PHRASE9>
+BOOL10
+ <EQUAL? AMT7 2 - PHRASE12>
+ <DEAD AMT7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IBP>
+ <PUSH 'O*>
+ <PUSH AC26>
+ <CALL '\1aOCEMIT 3>
+PHRASE12
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ILDB>
+ <PUSH AC15>
+ <PUSH AC26>
+ <CALL '\1aOCEMIT 3 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+PHRASE9
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LDB>
+ <PUSH AC15>
+ <DEAD AC15>
+ <PUSH AC26>
+ <DEAD AC26>
+ <CALL '\1aOCEMIT 3 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aDNTH>
+#WORD *4347526630*
+<GFCN \1aPUTUS!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY) L6 BYTES?7>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP V8 TEMP15 AMT9 VAL10 (AC11 %<>) TEMP33 TAC14>
+ <INTGO>
+ <NTHL L6 1 = V8>
+ <RESTL L6 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = AMT9>
+ <DEAD TEMP15>
+ <RESTL L6 1 = TEMP15 (TYPE LIST)>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <NTHL TEMP15 1 = VAL10>
+ <DEAD TEMP15>
+ <FRAME '\1aPUTPROP>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH 'DONE>
+ <CALL '\1aPUTPROP 2 = TEMP15>
+ <SETG 'REMEMBER-STRING %<>>
+ <SETG 'DIE-LATER %<>>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
+ <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE18>
+ <FRAME '\1aSTRING-PUT-NTH-LOOK-AHEAD>
+ <PUSH V8>
+ <PUSH 'PUT>
+ <PUSH VAL10>
+ <PUSH BYTES?7>
+ <DEAD BYTES?7>
+ <PUSH AMT9>
+ <CALL '\1aSTRING-PUT-NTH-LOOK-AHEAD 5 = TEMP15>
+PHRASE18
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG23>
+ <DEAD TEMP15>
+ <RETURN %<>>
+TAG23
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'FUNNY-VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> - BOOL26>
+ <EQUAL? AMT9 1 + BOOL26>
+ <EQUAL? AMT9 2 - PHRASE25>
+BOOL26
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <PUTUV TEMP15 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP15>
+ <SET AMT9 1 (TYPE FIX)>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <GVAL 'AC-STAMP = TEMP33>
+ <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP33>
+ <PUTUV TEMP15 4 TEMP33 (TYPE FIX)>
+ <DEAD TEMP15 TEMP33>
+ <JUMP + PHRASE51>
+PHRASE29
+ <FRAME '\1aIN-AC?>
+ <PUSH V8>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE34>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH V8>
+ <CALL '\1aWILL-DIE? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL37>
+ <DEAD TEMP15>
+ <GVAL 'DIE-LATER = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE34>
+ <DEAD TEMP15>
+BOOL37
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <GVAL 'AC-STAMP = TEMP33>
+ <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP33>
+ <PUTUV TEMP15 4 TEMP33 (TYPE FIX)>
+ <DEAD TEMP15 TEMP33>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC11>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+ <JUMP + PHRASE51>
+PHRASE34
+ <GVAL 'REMEMBER-STRING = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP15>
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH V8>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TAC14>
+ <PUSH TAC14>
+ <CALL '\1aNEXT-AC 1 = AC11>
+ <GVAL 'DIE-LATER = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE46>
+ <DEAD TEMP15>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH V8>
+ <CALL '\1aWILL-DIE? 1 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE46>
+ <DEAD TEMP33>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TAC14>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE46
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC14>
+ <DEAD TAC14>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE51>
+PHRASE42
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET AC11 'O* (TYPE ATOM)>
+ <PUSH AC11>
+ <SET TEMP33 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG52 TEMP33>
+ <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP33 VALUE)>
+TAG56
+ <INTGO>
+ <EMPTY? TEMP15 + TAG52>
+ <NTH1 TEMP15 = STACK>
+ <REST1 TEMP15 = TEMP15>
+ <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
+ <JUMP + TAG56>
+TAG52
+ <CALL '\1aOCEMIT TEMP33>
+ <DEAD TEMP33>
+PHRASE51
+ <EQUAL? AMT9 2 - PHRASE59>
+ <DEAD AMT9>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IBP>
+ <PUSH 'O*>
+ <PUSH AC11>
+ <CALL '\1aOCEMIT 3>
+PHRASE59
+ <FRAME '\1aIN-AC?>
+ <PUSH VAL10>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE68>
+ <TYPE? VAL10 <TYPE-CODE ATOM> - PHRASE63>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL10>
+ <CALL '\1aWILL-DIE? 1 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE63>
+ <DEAD TEMP33>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL10>
+ <DEAD VAL10>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP15>
+ <JUMP + PHRASE68>
+PHRASE63
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL10>
+ <DEAD VAL10>
+ <PUSH 'VALUE>
+ <SET TEMP15 'O1* (TYPE ATOM)>
+ <PUSH TEMP15>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE68
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDPB>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH AC11>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'REMEMBER-STRING = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE72>
+ <DEAD TEMP33>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aGET-AC 1 = TEMP33>
+ <PUTUV TEMP33 5 %<>>
+ <PUTUV TEMP33 2 V8>
+ <DEAD V8>
+ <PUTUV TEMP33 3 'FUNNY-VALUE (TYPE ATOM)>
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+PHRASE72
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aGET-AC 1 = TEMP33>
+ <PUTUV TEMP33 3 'DUMMY (TYPE ATOM)>
+ <RETURN TEMP33>
+ <DEAD TEMP33>
+PHRASE25
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT9>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TAC14>
+ <TYPE? TAC14 <TYPE-CODE FALSE> + BOOL80>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TAC14>
+ <CALL '\1aNEXT-AC 1 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> - BOOL79>
+BOOL80
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC11>
+ <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE78>
+BOOL79
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH AMT9>
+ <CALL '\1aWILL-DIE? 1 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE85>
+ <DEAD TEMP33>
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS AMT9 () = STACK>
+ <DEAD AMT9>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+ <JUMP + PHRASE88>
+PHRASE85
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP33>
+ <NTHUV TEMP33 5 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE88>
+ <DEAD TEMP33>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aOCEMIT 3>
+ <SET AC11 'O1* (TYPE ATOM)>
+PHRASE88
+ <VEQUAL? AC11 'O1* + PHRASE102>
+ <TYPE? TAC14 <TYPE-CODE FALSE> + PHRASE94>
+ <FRAME '\1aGET-AC>
+ <PUSH TAC14>
+ <CALL '\1aGET-AC 1 = TEMP33>
+ <GVAL 'AC-STAMP = TEMP15>
+ <PUTUV TEMP33 4 TEMP15 (TYPE FIX)>
+ <DEAD TEMP33 TEMP15>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH TAC14>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+ <JUMP + PHRASE97>
+PHRASE94
+ <FRAME '\1aFLUSH-AC>
+ <PUSH AC11>
+ <CALL '\1aFLUSH-AC 1>
+PHRASE97
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <CALL '\1aGET-AC 1 = TEMP33>
+ <GVAL 'AC-STAMP = TEMP15>
+ <PUTUV TEMP33 4 TEMP15 (TYPE FIX)>
+ <DEAD TEMP33 TEMP15>
+ <JUMP + PHRASE102>
+PHRASE78
+ <GVAL 'REMEMBER-STRING = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE100>
+ <DEAD TEMP33>
+ <FRAME '\1aLOAD-AC>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <PUSH 'VALUE>
+ <CALL '\1aLOAD-AC 2 = AC11>
+ <JUMP + PHRASE102>
+PHRASE100
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH AMT9>
+ <DEAD AMT9>
+ <PUSH 'VALUE>
+ <SET AC11 'O1* (TYPE ATOM)>
+ <PUSH AC11>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE102
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE106>
+ <DEAD TEMP33>
+ <SET TEMP33 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE107>
+PHRASE106
+ <SET TEMP33 'ADJBP (TYPE ATOM)>
+PHRASE107
+ <PUSH TEMP33>
+ <DEAD TEMP33>
+ <PUSH AC11>
+ <SET TEMP15 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH V8>
+ <SCALL '\1aOBJ-VAL 1 = TEMP33 + TAG104 TEMP15>
+ <LOOP (TEMP33 TYPE VALUE LENGTH) (TEMP15 VALUE)>
+TAG109
+ <INTGO>
+ <EMPTY? TEMP33 + TAG104>
+ <NTH1 TEMP33 = STACK>
+ <REST1 TEMP33 = TEMP33>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG109>
+TAG104
+ <CALL '\1aOCEMIT TEMP15>
+ <DEAD TEMP15>
+ <TYPE? VAL10 <TYPE-CODE ATOM> - PHRASE112>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL10>
+ <CALL '\1aWILL-DIE? 1 = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE112>
+ <DEAD TEMP15>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH VAL10>
+ <DEAD VAL10>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP15>
+ <JUMP + PHRASE117>
+PHRASE112
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH VAL10>
+ <DEAD VAL10>
+ <PUSH 'VALUE>
+ <SET TEMP15 'O* (TYPE ATOM)>
+ <PUSH TEMP15>
+ <CALL '\1aGET-INTO-ACS 3>
+PHRASE117
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DPB>
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH AC11>
+ <CALL '\1aOCEMIT 3>
+ <VEQUAL? AC11 'O1* - TAG122>
+ <RETURN %<>>
+TAG122
+ <TYPE? TAC14 <TYPE-CODE FALSE> + PHRASE124>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH TAC14>
+ <DEAD TAC14>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE126>
+PHRASE124
+ <FRAME '\1aMUNGED-AC>
+ <PUSH AC11>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE126
+ <GVAL 'REMEMBER-STRING = TEMP15>
+ <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE129>
+ <FRAME '\1aGET-AC>
+ <PUSH AC11>
+ <DEAD AC11>
+ <CALL '\1aGET-AC 1 = TEMP15>
+ <PUTUV TEMP15 5 %<>>
+ <PUTUV TEMP15 2 V8>
+ <DEAD V8>
+ <PUTUV TEMP15 3 'FUNNY-VALUE (TYPE ATOM)>
+PHRASE129
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aPUTUS!-MIMOC>\r\r
+#WORD *17743051221*
+<GFCN \1aPUTUB!-MIMOC ("VALUE" <OR AC FALSE> ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aPUTUS!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aPUTUS!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPUTUB!-MIMOC>
+#WORD *23455014302*
+<GFCN \1aRESTUS!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" <OR ATOM FALSE> ANY ANY ANY) L14 BYTES?15 OTH-VAL16 OP17 DEAD?18>
+ <OPT-DISPATCH 1 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
+OPT9
+ <PUSH %<>>
+OPT10
+ <PUSH %<>>
+OPT11
+ <PUSH #T$UNBOUND 0>
+OPT12
+ <PUSH #T$UNBOUND 0>
+OPT13
+ <TEMP STR19:ATOM TEMP25 AMT20 VAL21:ATOM (OTH-AC23 %<>) NAC24 TEMP38>
+ <INTGO>
+ <NTHL L14 1 = STR19 (TYPE ATOM)>
+ <RESTL L14 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = AMT20>
+ <DEAD TEMP25>
+ <RESTL L14 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = VAL21 (TYPE ATOM)>
+ <DEAD TEMP25>
+ <FRAME '\1aPUTPROP>
+ <PUSH L14>
+ <PUSH 'DONE>
+ <CALL '\1aPUTPROP 2 = NAC24>
+ <TYPE? NAC24 <TYPE-CODE FALSE> - PHRASE28>
+ <EQUAL? AMT20 1 - PHRASE28>
+ <VEQUAL? STR19 VAL21 + PHRASE28>
+ <TYPE? OTH-VAL16 <TYPE-CODE FALSE> - PHRASE28>
+ <FRAME '\1aSTRING-REST-LOOK-AHEAD>
+ <PUSH L14>
+ <DEAD L14>
+ <PUSH STR19>
+ <PUSH VAL21>
+ <PUSH BYTES?15>
+ <CALL '\1aSTRING-REST-LOOK-AHEAD 4 = NAC24>
+ <JUMP + PHRASE49>
+PHRASE28
+ <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE49>
+ <EQUAL? OP17 'PUT - PHRASE49>
+ <FRAME '\1aIN-AC?>
+ <PUSH OTH-VAL16>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = OTH-AC23>
+ <TYPE? OTH-AC23 <TYPE-CODE FALSE> + PHRASE35>
+ <FRAME '\1aGET-AC>
+ <PUSH OTH-AC23>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <GVAL 'AC-STAMP = TEMP38>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP38>
+ <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
+ <DEAD TEMP25 TEMP38>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OTH-AC23>
+ <DEAD OTH-AC23>
+ <CALL '\1aNEXT-AC 1 = OTH-AC23>
+ <PUSH OTH-AC23>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <GVAL 'AC-STAMP = TEMP38>
+ <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
+ <DEAD TEMP25 TEMP38>
+ <JUMP + PHRASE49>
+PHRASE35
+ <FRAME '\1aIN-AC?>
+ <PUSH OTH-VAL16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = OTH-AC23>
+ <TYPE? OTH-AC23 <TYPE-CODE FALSE> + PHRASE41>
+ <FRAME '\1aGET-AC>
+ <PUSH OTH-AC23>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <GVAL 'AC-STAMP = TEMP38>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP38>
+ <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
+ <DEAD TEMP25 TEMP38>
+ <JUMP + PHRASE49>
+PHRASE41
+ <TYPE? OTH-VAL16 <TYPE-CODE ATOM> - PHRASE44>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <SET OTH-AC23 'O* (TYPE ATOM)>
+ <PUSH OTH-AC23>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH OTH-VAL16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG45 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG47
+ <INTGO>
+ <EMPTY? TEMP25 + TAG45>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG47>
+TAG45
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <JUMP + PHRASE49>
+PHRASE44
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <SET OTH-AC23 'O* (TYPE ATOM)>
+ <PUSH OTH-AC23>
+ <CHTYPE OTH-VAL16 <TYPE-CODE FIX> = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE49
+ <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE52>
+ <SET VAL21 'T (TYPE ATOM)>
+ <JUMP + PHRASE264>
+PHRASE52
+ <EQUAL? AMT20 1 - PHRASE53>
+ <FRAME '\1aIN-AC?>
+ <PUSH STR19>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE53>
+ <DEAD TEMP38>
+ <VEQUAL? STR19 VAL21 - PHRASE53>
+ <FRAME '\1aIN-AC?>
+ <PUSH STR19>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = NAC24>
+ <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE57>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC24>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <NTHUV TEMP38 5 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE57>
+ <DEAD TEMP38>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC24>
+ <DEAD NAC24>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE57
+ <FRAME '\1aIN-AC?>
+ <PUSH STR19>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = NAC24>
+ <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE63>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC24>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <NTHUV TEMP38 5 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE63>
+ <DEAD TEMP38>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC24>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE63
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SOS>
+ <PUSH 'O*>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH STR19>
+ <SCALL '\1aOBJ-TYP 1 = TEMP38 + TAG68 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG70
+ <INTGO>
+ <EMPTY? TEMP38 + TAG68>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG70>
+TAG68
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE73>
+ <EQUAL? OP17 'PUT - PHRASE75>
+ <DEAD OP17>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDPB>
+ <PUSH OTH-AC23>
+ <DEAD OTH-AC23>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG76 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG78
+ <INTGO>
+ <EMPTY? TEMP25 + TAG76>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG78>
+TAG76
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <JUMP + PHRASE264>
+PHRASE75
+ <EQUAL? OTH-VAL16 'STACK - PHRASE80>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ILDB>
+ <PUSH 'O*>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG81 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG83
+ <INTGO>
+ <EMPTY? TEMP38 + TAG81>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG83>
+TAG81
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE88>
+ <DEAD BYTES?15>
+ <SET AMT20 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE90>
+PHRASE88
+ <SET AMT20 'CHARACTER (TYPE ATOM)>
+PHRASE90
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <SCALL '\1aTYPE-WORD 1 = TEMP25 + TAG85 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG91
+ <INTGO>
+ <EMPTY? TEMP25 + TAG85>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG91>
+TAG85
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE264>
+ <DEAD TEMP38>
+ <GVAL 'STACK-DEPTH = TEMP38>
+ <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP38>
+ <DEAD TEMP38>
+ <JUMP + PHRASE264>
+PHRASE80
+ <FRAME '\1aASSIGN-AC>
+ <PUSH OTH-VAL16>
+ <DEAD OTH-VAL16>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = OTH-AC23>
+ <FRAME '\1aGET-AC>
+ <PUSH OTH-AC23>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE100>
+ <DEAD BYTES?15>
+ <SET TEMP25 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE101>
+PHRASE100
+ <SET TEMP25 'CHARACTER (TYPE ATOM)>
+PHRASE101
+ <PUTUV TEMP38 6 TEMP25>
+ <DEAD TEMP38 TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ILDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OTH-AC23>
+ <DEAD OTH-AC23>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG102 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG105
+ <INTGO>
+ <EMPTY? TEMP38 + TAG102>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG105>
+TAG102
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <JUMP + PHRASE264>
+PHRASE73
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IBP>
+ <PUSH 'O*>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG108 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG110
+ <INTGO>
+ <EMPTY? TEMP25 + TAG108>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG110>
+TAG108
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <JUMP + PHRASE264>
+PHRASE53
+ <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE112>
+ <VEQUAL? AMT20 1 - PHRASE114 (TYPE FIX)>
+ <FRAME '\1aLOAD-AC>
+ <PUSH STR19>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = NAC24>
+ <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + BOOL120>
+ <EQUAL? OP17 'PUT + BOOL120>
+ <EQUAL? OTH-VAL16 'STACK - PHRASE129>
+BOOL120
+ <TYPE? DEAD?18 <TYPE-CODE UNBOUND> + BOOL124>
+ <TYPE? DEAD?18 <TYPE-CODE FALSE> - PHRASE122>
+BOOL124
+ <TYPE? DEAD?18 <TYPE-CODE UNBOUND> - BOOL125>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH STR19>
+ <CALL '\1aWILL-DIE? 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE122>
+ <DEAD TEMP38>
+BOOL125
+ <VEQUAL? STR19 VAL21 + PHRASE122>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC24>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE122
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC24>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <JUMP + PHRASE129>
+PHRASE114
+ <FRAME '\1aLOAD-AC>
+ <PUSH STR19>
+ <PUSH 'TYPE>
+ <CALL '\1aLOAD-AC 2 = NAC24>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH STR19>
+ <CALL '\1aWILL-DIE? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE132>
+ <DEAD TEMP25>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC24>
+ <CALL '\1aFLUSH-AC 1>
+PHRASE132
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC24>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE129
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUBI>
+ <PUSH NAC24>
+ <PUSH AMT20>
+ <CALL '\1aOCEMIT 3>
+ <VEQUAL? AMT20 1 - PHRASE138 (TYPE FIX)>
+ <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE142>
+ <EQUAL? OP17 'PUT - PHRASE144>
+ <DEAD OP17>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IDPB>
+ <PUSH OTH-AC23>
+ <DEAD OTH-AC23>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE196>
+PHRASE144
+ <EQUAL? OTH-VAL16 'STACK - PHRASE147>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ILDB>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET AMT20 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE153>
+ <DEAD BYTES?15>
+ <SET TEMP38 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE155>
+PHRASE153
+ <SET TEMP38 'CHARACTER (TYPE ATOM)>
+PHRASE155
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <SCALL '\1aTYPE-WORD 1 = TEMP25 + TAG150 AMT20>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (AMT20 VALUE)>
+TAG156
+ <INTGO>
+ <EMPTY? TEMP25 + TAG150>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD AMT20 1 = AMT20 (TYPE FIX)>
+ <JUMP + TAG156>
+TAG150
+ <CALL '\1aOCEMIT AMT20>
+ <DEAD AMT20>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = AMT20>
+ <TYPE? AMT20 <TYPE-CODE FALSE> + PHRASE196>
+ <DEAD AMT20>
+ <GVAL 'STACK-DEPTH = AMT20>
+ <ADD AMT20 2 = AMT20 (TYPE FIX)>
+ <SETG 'STACK-DEPTH AMT20>
+ <DEAD AMT20>
+ <JUMP + PHRASE196>
+PHRASE147
+ <TYPE? DEAD?18 <TYPE-CODE UNBOUND> + BOOL165>
+ <TYPE? DEAD?18 <TYPE-CODE FALSE> - PHRASE163>
+BOOL165
+ <TYPE? DEAD?18 <TYPE-CODE UNBOUND> - BOOL166>
+ <DEAD DEAD?18>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH STR19>
+ <CALL '\1aWILL-DIE? 1 = AMT20>
+ <TYPE? AMT20 <TYPE-CODE FALSE> - PHRASE163>
+ <DEAD AMT20>
+BOOL166
+ <VEQUAL? STR19 VAL21 + PHRASE163>
+ <DEAD STR19>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH NAC24>
+ <PUSH 'T>
+ <CALL '\1aFLUSH-AC 2>
+PHRASE163
+ <FRAME '\1aMUNGED-AC>
+ <PUSH NAC24>
+ <PUSH 'T>
+ <CALL '\1aMUNGED-AC 2>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH OTH-VAL16>
+ <DEAD OTH-VAL16>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = OTH-AC23>
+ <FRAME '\1aGET-AC>
+ <PUSH OTH-AC23>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE173>
+ <DEAD BYTES?15>
+ <SET TEMP38 'FIX (TYPE ATOM)>
+ <JUMP + PHRASE174>
+PHRASE173
+ <SET TEMP38 'CHARACTER (TYPE ATOM)>
+PHRASE174
+ <PUTUV TEMP25 6 TEMP38>
+ <DEAD TEMP25 TEMP38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ILDB>
+ <FRAME '\1aNEXT-AC>
+ <PUSH OTH-AC23>
+ <DEAD OTH-AC23>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE196>
+PHRASE142
+ <FRAME '\1aOCEMIT>
+ <PUSH 'IBP>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE196>
+PHRASE138
+ <FRAME '\1aIN-AC?>
+ <PUSH STR19>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = TEMP38>
+ <EQUAL? TEMP25 TEMP38 - PHRASE181>
+ <DEAD TEMP25 TEMP38>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <NTHUV TEMP38 5 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE181>
+ <DEAD TEMP38>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH STR19>
+ <DEAD STR19>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE193>
+ <DEAD TEMP38>
+ <SET TEMP38 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE194>
+PHRASE193
+ <SET TEMP38 'ADJBP (TYPE ATOM)>
+PHRASE194
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 'O*>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE196>
+PHRASE181
+ <FRAME '\1aFLUSH-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE205>
+ <DEAD TEMP38>
+ <SET TEMP38 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE206>
+PHRASE205
+ <SET TEMP38 'ADJBP (TYPE ATOM)>
+PHRASE206
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG203 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG209
+ <INTGO>
+ <EMPTY? TEMP38 + TAG203>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG209>
+TAG203
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+PHRASE196
+ <FRAME '\1aCLEAN-ACS>
+ <PUSH VAL21>
+ <CALL '\1aCLEAN-ACS 1>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC24>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 5 'T>
+ <PUTUV TEMP25 2 VAL21>
+ <PUTUV TEMP25 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 5 'T>
+ <PUTUV TEMP25 2 VAL21>
+ <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
+ <DEAD TEMP25>
+ <JUMP + PHRASE264>
+PHRASE112
+ <VEQUAL? AMT20 VAL21 - PHRASE215>
+ <FRAME '\1aIN-AC?>
+ <PUSH AMT20>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = OTH-AC23>
+ <TYPE? OTH-AC23 <TYPE-CODE FALSE> - PHRASE218>
+ <FRAME '\1aLOAD-AC>
+ <PUSH AMT20>
+ <PUSH 'VALUE>
+ <CALL '\1aLOAD-AC 2 = OTH-AC23>
+PHRASE218
+ <FRAME '\1aGETPROP>
+ <PUSH OTH-AC23>
+ <PUSH 'AC-PAIR>
+ <CALL '\1aGETPROP 2 = NAC24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH NAC24>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH STR19>
+ <SCALL '\1aOBJ-TYP 1 = TEMP25 + TAG221 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG223
+ <INTGO>
+ <EMPTY? TEMP25 + TAG221>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG223>
+TAG221
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH NAC24>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG225 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG227
+ <INTGO>
+ <EMPTY? TEMP38 + TAG225>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG227>
+TAG225
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE231>
+ <DEAD TEMP25>
+ <SET TEMP25 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE232>
+PHRASE231
+ <SET TEMP25 'ADJBP (TYPE ATOM)>
+PHRASE232
+ <PUSH TEMP25>
+ <DEAD TEMP25>
+ <PUSH OTH-AC23>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG229 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG234
+ <INTGO>
+ <EMPTY? TEMP25 + TAG229>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG234>
+TAG229
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC24>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 5 'T>
+ <PUTUV TEMP38 2 VAL21>
+ <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
+ <DEAD TEMP38>
+ <FRAME '\1aGET-AC>
+ <PUSH OTH-AC23>
+ <DEAD OTH-AC23>
+ <CALL '\1aGET-AC 1 = TEMP38>
+ <PUTUV TEMP38 5 'T>
+ <PUTUV TEMP38 2 VAL21>
+ <DEAD TEMP38>
+ <JUMP + PHRASE264>
+PHRASE215
+ <VEQUAL? VAL21 STR19 - PHRASE238>
+ <FRAME '\1aLOAD-AC>
+ <PUSH STR19>
+ <PUSH 'TYPE>
+ <CALL '\1aLOAD-AC 2 = NAC24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH NAC24>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT20>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG240 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG242
+ <INTGO>
+ <EMPTY? TEMP38 + TAG240>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG242>
+TAG240
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aFLUSH-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aMUNGED-AC 1>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG248 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG251
+ <INTGO>
+ <EMPTY? TEMP25 + TAG248>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG251>
+TAG248
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE255>
+ <DEAD TEMP38>
+ <SET TEMP38 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE256>
+PHRASE255
+ <SET TEMP38 'ADJBP (TYPE ATOM)>
+PHRASE256
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG253 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG259
+ <INTGO>
+ <EMPTY? TEMP38 + TAG253>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG259>
+TAG253
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC24>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 5 'T>
+ <PUTUV TEMP25 2 VAL21>
+ <DEAD TEMP25>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 5 'T>
+ <PUTUV TEMP25 2 VAL21>
+ <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
+ <GVAL 'AC-STAMP = TEMP38>
+ <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
+ <DEAD TEMP25 TEMP38>
+ <JUMP + PHRASE264>
+PHRASE238
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL21>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = NAC24>
+ <FRAME '\1aIN-AC?>
+ <PUSH STR19>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <EQUAL? TEMP25 NAC24 + PHRASE267>
+ <DEAD TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH NAC24>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH STR19>
+ <SCALL '\1aOBJ-TYP 1 = TEMP25 + TAG269 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG271
+ <INTGO>
+ <EMPTY? TEMP25 + TAG269>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG271>
+TAG269
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+PHRASE267
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SUB>
+ <PUSH NAC24>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT20>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG273 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG275
+ <INTGO>
+ <EMPTY? TEMP38 + TAG273>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG275>
+TAG273
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP38 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH AMT20>
+ <DEAD AMT20>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG277 TEMP38>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
+TAG280
+ <INTGO>
+ <EMPTY? TEMP25 + TAG277>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
+ <JUMP + TAG280>
+TAG277
+ <CALL '\1aOCEMIT TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aOCEMIT>
+ <GVAL 'ADJBP-HACK = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE284>
+ <DEAD TEMP38>
+ <SET TEMP38 'MADJBP (TYPE ATOM)>
+ <JUMP + PHRASE285>
+PHRASE284
+ <SET TEMP38 'ADJBP (TYPE ATOM)>
+PHRASE285
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SET TEMP25 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH STR19>
+ <DEAD STR19>
+ <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG282 TEMP25>
+ <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
+TAG288
+ <INTGO>
+ <EMPTY? TEMP38 + TAG282>
+ <NTH1 TEMP38 = STACK>
+ <REST1 TEMP38 = TEMP38>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <JUMP + TAG288>
+TAG282
+ <CALL '\1aOCEMIT TEMP25>
+ <DEAD TEMP25>
+PHRASE264
+ <VEQUAL? VAL21 'STACK + TAG292>
+ <DEAD VAL21>
+ <RETURN %<>>
+TAG292
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH NAC24>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH NAC24>
+ <DEAD NAC24>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE297>
+ <GVAL 'STACK-DEPTH = TEMP38>
+ <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP38>
+ <SET TEMP25 TEMP38>
+ <DEAD TEMP38>
+PHRASE297
+ <RETURN TEMP25>
+ <DEAD TEMP25>
+ <END \1aRESTUS!-MIMOC>\r\r
+#WORD *35103036523*
+<GFCN \1aRESTUB!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aRESTUS!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aRESTUS!-MIMOC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aRESTUB!-MIMOC>
+<SETG LENU!-MIMOC ,LENUV!-MIMOC>
+
+<SETG LENUS!-MIMOC ,LENUV!-MIMOC>
+
+<SETG LENUB!-MIMOC ,LENUV!-MIMOC>
+
+<SETG LENUU!-MIMOC ,LENUV!-MIMOC>
+
+<SETG EMPU?!-MIMOC ,EMPUV?!-MIMOC>
+
+<SETG EMPUU?!-MIMOC ,EMPUV?!-MIMOC>
+
+<SETG EMPUS?!-MIMOC ,EMPUV?!-MIMOC>
+
+<SETG EMPUB?!-MIMOC ,EMPUV?!-MIMOC>
+
+<SETG LENR!-MIMOC ,LENUV!-MIMOC>
+
+#WORD *7127312635*
+<GFCN \1aEMPR?!-MIMOC ("VALUE" ATOM ANY) L5>
+ <TEMP>
+ <INTGO>
+ <RETURN 'T>
+ <END \1aEMPR?!-MIMOC>
+#WORD *31051077700*
+<GFCN \1aGVAL!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ATM6 TEMP12 VAL7:ATOM (XGL10 %<>) RATM11 TEMP20 TEMP21 TEMP22>
+ <INTGO>
+ <NTHL L5 1 = ATM6>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP12>
+ <SET RATM11 ATM6>
+ <TYPE? ATM6 <TYPE-CODE FORM> - PHRASE14>
+ <RESTL ATM6 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
+ <CHTYPE TEMP12 <TYPE-CODE XGLOC> = XGL10>
+ <DEAD TEMP12>
+ <NTHL ATM6 1 = RATM11 (TYPE ATOM)>
+PHRASE14
+ <GVAL 'GVAL-CAREFUL = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
+ <DEAD TEMP12>
+ <NTHR RATM11 3 = TEMP12 (RECORD-TYPE ATOM)>
+ <DEAD RATM11>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP12 "M$$BINDID" + PHRASE16>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET RATM11 "M$$BINDID" (TYPE STRING)>
+ <LENUS TEMP12 = TEMP20 (TYPE FIX)>
+ <VEQUAL? TEMP20 9 - TAG18>
+ <LOOP (TEMP12 VALUE LENGTH) (RATM11 VALUE LENGTH) (TEMP20 VALUE)>
+TAG23
+ <NTHUS TEMP12 1 = TEMP21>
+ <NTHUS RATM11 1 = TEMP22>
+ <VEQUAL? TEMP21 TEMP22 - TAG18>
+ <DEAD TEMP21 TEMP22>
+ <RESTUS TEMP12 1 = TEMP12 (TYPE STRING)>
+ <RESTUS RATM11 1 = RATM11 (TYPE STRING)>
+ <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
+ <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
+ <JUMP + PHRASE16>
+ <ENDIF "STRING-EQUAL?">
+TAG18
+ <VEQUAL? XGL10 0 + PHRASE25>
+ <FRAME '\1aSAVE-ACS>
+ <CALL '\1aSAVE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH '@>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH XGL10>
+ <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG27 TEMP12>
+ <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG29
+ <INTGO>
+ <EMPTY? RATM11 + TAG27>
+ <NTH1 RATM11 = STACK>
+ <REST1 RATM11 = RATM11>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG27
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'GVERR>
+ <SET RATM11 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH XGL10>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG31 RATM11>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (RATM11 VALUE)>
+TAG33
+ <INTGO>
+ <EMPTY? TEMP12 + TAG31>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD RATM11 1 = RATM11 (TYPE FIX)>
+ <JUMP + TAG33>
+TAG31
+ <CALL '\1aOCEMIT RATM11>
+ <DEAD RATM11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'A1*>
+ <PUSH '@>
+ <SET TEMP12 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH XGL10>
+ <DEAD XGL10>
+ <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG35 TEMP12>
+ <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG37
+ <INTGO>
+ <EMPTY? RATM11 + TAG35>
+ <NTH1 RATM11 = STACK>
+ <REST1 RATM11 = RATM11>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG37>
+TAG35
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <JUMP + PHRASE51>
+PHRASE25
+ <FRAME '\1aIN-AC?>
+ <PUSH ATM6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE39>
+ <EQUAL? VAL7 ATM6 + BOOL43>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ATM6>
+ <CALL '\1aWILL-DIE? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE42>
+ <DEAD TEMP12>
+BOOL43
+ <FRAME '\1aDEAD!-MIMOC>
+ <CONS ATM6 () = STACK>
+ <DEAD ATM6>
+ <PUSH 'T>
+ <CALL '\1aDEAD!-MIMOC 2>
+PHRASE42
+ <FRAME '\1aSAVE-ACS>
+ <CALL '\1aSAVE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPE>
+ <CONS TEMP22 () = STACK>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH '@>
+ <CONS TEMP22 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'GVERR>
+ <PUSH TEMP22>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'A1*>
+ <PUSH '@>
+ <CONS TEMP22 () = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE51>
+PHRASE39
+ <FRAME '\1aSAVE-ACS>
+ <CALL '\1aSAVE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPE>
+ <PUSH 'T*>
+ <PUSH '@>
+ <SET RATM11 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ATM6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG53 RATM11>
+ <LOOP (TEMP12 TYPE VALUE LENGTH) (RATM11 VALUE)>
+TAG55
+ <INTGO>
+ <EMPTY? TEMP12 + TAG53>
+ <NTH1 TEMP12 = STACK>
+ <REST1 TEMP12 = TEMP12>
+ <ADD RATM11 1 = RATM11 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG53
+ <CALL '\1aOCEMIT RATM11>
+ <DEAD RATM11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'GVERR>
+ <SET TEMP12 1 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG58 TEMP12>
+ <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG60
+ <INTGO>
+ <EMPTY? RATM11 + TAG58>
+ <NTH1 RATM11 = STACK>
+ <REST1 RATM11 = RATM11>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG60>
+TAG58
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'A1*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+PHRASE51
+ <FRAME '\1aPUSHJ-VAL>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aPUSHJ-VAL 1 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE16
+ <VEQUAL? VAL7 'STACK - PHRASE64>
+ <VEQUAL? XGL10 0 + PHRASE66>
+ <GVAL 'BOOT-MODE = RATM11>
+ <TYPE? RATM11 <TYPE-CODE FALSE> - PHRASE66>
+ <DEAD RATM11>
+ <FRAME '\1aSMASH-AC>
+ <SET TEMP22 'T* (TYPE ATOM)>
+ <PUSH TEMP22>
+ <PUSH XGL10>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <JUMP + PHRASE70>
+PHRASE66
+ <FRAME '\1aIN-AC?>
+ <PUSH ATM6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE70>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP22>
+PHRASE70
+ <GVAL 'BOOT-MODE = RATM11>
+ <TYPE? RATM11 <TYPE-CODE FALSE> - BOOL75>
+ <DEAD RATM11>
+ <TYPE? XGL10 <TYPE-CODE FALSE> - PHRASE74>
+ <DEAD XGL10>
+BOOL75
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'T*>
+ <CONS TEMP22 () = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+PHRASE74
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 1>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE95>
+ <GVAL 'STACK-DEPTH = RATM11>
+ <ADD RATM11 2 = RATM11 (TYPE FIX)>
+ <SETG 'STACK-DEPTH RATM11>
+ <RETURN RATM11>
+ <DEAD RATM11>
+PHRASE64
+ <GVAL 'BOOT-MODE = RATM11>
+ <TYPE? RATM11 <TYPE-CODE FALSE> + PHRASE84>
+ <DEAD RATM11>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = VAL7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH '@>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = RATM11>
+ <PUTUV RATM11 3 'DUMMY (TYPE ATOM)>
+ <RETURN RATM11>
+ <DEAD RATM11>
+PHRASE84
+ <VEQUAL? XGL10 0 + PHRASE89>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = VAL7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH '@>
+ <SET TEMP22 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH XGL10>
+ <DEAD XGL10>
+ <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG91 TEMP22>
+ <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG93
+ <INTGO>
+ <EMPTY? RATM11 + TAG91>
+ <NTH1 RATM11 = STACK>
+ <REST1 RATM11 = RATM11>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG93>
+TAG91
+ <CALL '\1aOCEMIT TEMP22 = TEMP12>
+ <DEAD TEMP22>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE89
+ <FRAME '\1aIN-AC?>
+ <PUSH ATM6>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL96>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP22>
+BOOL96
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <CALL '\1aASSIGN-AC 2 = VAL7>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH '@>
+ <CONS TEMP22 () = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+PHRASE95
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aGVAL!-MIMOC>\r\r
+#WORD *20277270537*
+<GFCN \1aSETG!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP ATM6:FORM TEMP9 AC8>
+ <INTGO>
+ <NTHL L5 1 = ATM6 (TYPE FORM)>
+ <RESTL L5 1 = TEMP9 (TYPE LIST)>
+ <DEAD L5>
+ <NTHL TEMP9 1 = TEMP9>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = AC8>
+ <GVAL 'BOOT-MODE = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP9>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ATM6>
+ <DEAD ATM6>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH AC8>
+ <DEAD AC8>
+ <PUSH '@>
+ <PUSH (T*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = TEMP9>
+ <PUTUV TEMP9 3 'DUMMY (TYPE ATOM)>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+PHRASE12
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH AC8>
+ <DEAD AC8>
+ <PUSH '@>
+ <SET AC8 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL ATM6 1 = TEMP9 (TYPE LIST)>
+ <DEAD ATM6>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <CHTYPE TEMP9 <TYPE-CODE XGLOC> = STACK>
+ <DEAD TEMP9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG17 AC8>
+ <LOOP (TEMP9 TYPE VALUE LENGTH) (AC8 VALUE)>
+TAG22
+ <INTGO>
+ <EMPTY? TEMP9 + TAG17>
+ <NTH1 TEMP9 = STACK>
+ <REST1 TEMP9 = TEMP9>
+ <ADD AC8 1 = AC8 (TYPE FIX)>
+ <JUMP + TAG22>
+TAG17
+ <CALL '\1aOCEMIT AC8 = TEMP9>
+ <DEAD AC8>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aSETG!-MIMOC>
+<GDECL (NTHR-TABLE PUTR-TABLE) <VECTOR [REST ATOM]>>
+
+<SETG NTHR-TABLE '[LBIND LBIND-NTH LBIND LBIND-NTH GBIND LBIND-NTH GBIND LBIND-NTH ATOM ATOM-NTH ATOM ATOM-NTH LVAL ATOM-NTH GVAL ATOM-NTH OBLIST ATOM-NTH OBLIST ATOM-NTH FRAME FRAME-NTH FRAME FRAME-NTH]>
+
+<SETG PUTR-TABLE '[LBIND LBIND-PUT LBIND LBIND-PUT GBIND LBIND-PUT GBIND LBIND-PUT ATOM ATOM-PUT ATOM ATOM-PUT LVAL ATOM-PUT GVAL ATOM-PUT OBLIST ATOM-PUT OBLIST ATOM-PUT FRAME FRAME-PUT FRAME FRAME-PUT]>
+
+#WORD *31132147264*
+<GFCN \1aFRAME-PUT ("VALUE" ANY LIST) L5>
+ <TEMP ARG16 TEMP11 ARG27 TEMP20>
+ <INTGO>
+ <NTHL L5 1 = ARG16>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = ARG27>
+ <DEAD TEMP11>
+ <RESTL L5 1 = TEMP11 (TYPE LIST)>
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <NTHL TEMP11 1 = TEMP11>
+ <EQUAL? ARG27 1 + PHRASE13>
+ <DEAD ARG27>
+ <FRAME '\1aPUTR!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aPUTR!-MIMOC 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE13
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG27>
+ <TYPE? ARG27 <TYPE-CODE FALSE> - PHRASE23>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG16>
+ <CALL '\1aWILL-DIE? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE18>
+ <DEAD TEMP20>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = ARG27>
+ <JUMP + PHRASE23>
+PHRASE18
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = ARG27>
+PHRASE23
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP11>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG16>
+ <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE31>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TEMP11>
+ <CALL '\1aWILL-DIE? 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> - BOOL28>
+ <DEAD TEMP20>
+ <TYPE? TEMP11 <TYPE-CODE ATOM> + PHRASE27>
+BOOL28
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = ARG16>
+ <JUMP + PHRASE31>
+PHRASE27
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH ARG27>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <GVAL 'AC-STAMP = ARG16>
+ <ADD ARG16 1 = ARG16 (TYPE FIX)>
+ <SETG 'AC-STAMP ARG16>
+ <PUTUV TEMP20 4 ARG16 (TYPE FIX)>
+ <DEAD TEMP20 ARG16>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = ARG16>
+PHRASE31
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 0>
+ <CONS ARG27 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <EQUAL? ARG27 'T* + TAG39>
+ <DEAD ARG27>
+ <RETURN %<>>
+TAG39
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = TEMP20>
+ <PUTUV TEMP20 3 'DUMMY (TYPE ATOM)>
+ <RETURN TEMP20>
+ <DEAD TEMP20>
+ <END \1aFRAME-PUT>
+#WORD *15052434156*
+<GFCN \1aFRAME-NTH ("VALUE" ANY LIST) L5>
+ <TEMP ARG16 TEMP12 ARG27:FIX VAL8:ATOM XAC11>
+ <INTGO>
+ <NTHL L5 1 = ARG16>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = VAL8 (TYPE ATOM)>
+ <DEAD TEMP12>
+ <VEQUAL? ARG27 1 + PHRASE14 (TYPE FIX)>
+ <VEQUAL? ARG27 5 + PHRASE14 (TYPE FIX)>
+ <VEQUAL? ARG27 7 + PHRASE14 (TYPE FIX)>
+ <FRAME '\1aNTHR!-MIMOC>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <CALL '\1aNTHR!-MIMOC 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE14
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = XAC11>
+ <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE21>
+ <VEQUAL? XAC11 'O* + PHRASE21>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC11>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <GVAL 'AC-STAMP = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP12>
+ <PUTUV ARG16 4 TEMP12 (TYPE FIX)>
+ <DEAD ARG16 TEMP12>
+ <SETG 'FIRST-AC %<>>
+ <SET ARG16 XAC11>
+ <DEAD XAC11>
+ <JUMP + PHRASE31>
+PHRASE21
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG16>
+ <CALL '\1aWILL-DIE? 1 = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE27>
+ <DEAD TEMP12>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = ARG16>
+ <JUMP + PHRASE31>
+PHRASE27
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = ARG16>
+PHRASE31
+ <SET TEMP12 ARG16>
+ <DEAD ARG16>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = XAC11>
+ <VEQUAL? ARG27 1 - PHRASE35 (TYPE FIX)>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC11>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <PUTUV ARG16 6 'MSUBR>
+ <DEAD ARG16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CONS TEMP12 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE49>
+PHRASE35
+ <VEQUAL? ARG27 5 - PHRASE41 (TYPE FIX)>
+ <DEAD ARG27>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC11>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <PUTUV ARG16 6 'FRAME>
+ <DEAD ARG16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 3>
+ <CONS TEMP12 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPL>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <CALL '\1aNEXT-AC 1 = ARG16>
+ <CONS ARG16 () = STACK>
+ <DEAD ARG16>
+ <CALL '\1aOCEMIT 2>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ADDI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 4>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE49>
+PHRASE41
+ <FRAME '\1aGET-AC>
+ <PUSH XAC11>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <PUTUV ARG16 6 'LBIND>
+ <DEAD ARG16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRZ>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 4>
+ <CONS TEMP12 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLLI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CONS TEMP12 () = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE49
+ <VEQUAL? TEMP12 'T* - PHRASE56>
+ <DEAD TEMP12>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <PUTUV ARG16 3 'DUMMY (TYPE ATOM)>
+ <DEAD ARG16>
+PHRASE56
+ <VEQUAL? VAL8 'STACK + TAG60>
+ <DEAD VAL8>
+ <RETURN %<>>
+TAG60
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP12 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC11>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <NTHUV ARG16 6 = STACK>
+ <DEAD ARG16>
+ <SCALL '\1aTYPE-WORD 1 = ARG16 + TAG61 TEMP12>
+ <LOOP (ARG16 TYPE VALUE LENGTH) (TEMP12 VALUE)>
+TAG65
+ <INTGO>
+ <EMPTY? ARG16 + TAG61>
+ <NTH1 ARG16 = STACK>
+ <REST1 ARG16 = ARG16>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <JUMP + TAG65>
+TAG61
+ <CALL '\1aOCEMIT TEMP12>
+ <DEAD TEMP12>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH XAC11>
+ <DEAD XAC11>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP12>
+ <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE70>
+ <GVAL 'STACK-DEPTH = TEMP12>
+ <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP12>
+PHRASE70
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aFRAME-NTH>\r\r
+#WORD *10502555040*
+<GFCN \1aLBIND-NTH ("VALUE" ANY LIST) L5>
+ <TEMP ARG16 TEMP13 ARG27:FIX VAL8:ATOM XAC11 TEMP26 AC9:ATOM>
+ <INTGO>
+ <NTHL L5 1 = ARG16>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = ARG27 (TYPE FIX)>
+ <DEAD TEMP13>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = VAL8 (TYPE ATOM)>
+ <DEAD TEMP13>
+ <GRTR? ARG27 6 + BOOL16 (TYPE FIX)>
+ <LESS? ARG27 1 - PHRASE15 (TYPE FIX)>
+BOOL16
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'OUT-OF-BOUNDS!-ERRORS>
+ <PUSH 'NTHR>
+ <PUSH 'LBIND>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <CALL '\1aMIMOCERR 4 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE15
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = XAC11>
+ <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE22>
+ <VEQUAL? XAC11 'O* + PHRASE22>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC11>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <GVAL 'AC-STAMP = TEMP13>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP13>
+ <PUTUV TEMP26 4 TEMP13 (TYPE FIX)>
+ <DEAD TEMP26 TEMP13>
+ <SETG 'FIRST-AC %<>>
+ <JUMP + PHRASE36>
+PHRASE22
+ <VEQUAL? ARG27 1 - PHRASE28 (TYPE FIX)>
+ <VEQUAL? VAL8 'STACK + PHRASE28>
+ <SET XAC11 %<> (TYPE FALSE)>
+ <JUMP + PHRASE36>
+PHRASE28
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG16>
+ <CALL '\1aWILL-DIE? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE32>
+ <DEAD TEMP26>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG16>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = XAC11>
+ <JUMP + PHRASE36>
+PHRASE32
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <SET XAC11 'T* (TYPE ATOM)>
+PHRASE36
+ <VEQUAL? VAL8 'STACK + PHRASE44>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC9>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = TEMP26>
+ <EQUAL? TEMP26 XAC11 - PHRASE44>
+ <DEAD TEMP26>
+ <EQUAL? VAL8 ARG16 - PHRASE44>
+ <FRAME '\1aGET-AC>
+ <PUSH AC9>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <PUTUV TEMP26 6 %<>>
+ <DEAD TEMP26>
+PHRASE44
+ <VEQUAL? ARG27 1 - PHRASE49 (TYPE FIX)>
+ <VEQUAL? VAL8 'STACK - PHRASE53>
+ <DEAD VAL8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <CONS XAC11 () = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 1>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE60>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE53
+ <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE58>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH AC9>
+ <DEAD AC9>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 3 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE58
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH AC9>
+ <DEAD AC9>
+ <PUSH '@>
+ <SET TEMP26 3 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG61 TEMP26>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG63
+ <INTGO>
+ <EMPTY? TEMP13 + TAG61>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG63>
+TAG61
+ <CALL '\1aOCEMIT TEMP26 = TEMP13>
+ <DEAD TEMP26>
+PHRASE60
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE49
+ <VEQUAL? ARG27 3 - PHRASE65 (TYPE FIX)>
+ <VEQUAL? VAL8 'STACK - PHRASE67>
+ <DEAD VAL8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 3>
+ <CONS XAC11 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 4>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE72>
+ <GVAL 'STACK-DEPTH = TEMP26>
+ <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP26>
+ <RETURN TEMP26>
+ <DEAD TEMP26>
+PHRASE67
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH AC9>
+ <DEAD AC9>
+ <PUSH 3>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4 = TEMP13>
+PHRASE72
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE65
+ <SET TEMP26 [2 6] (TYPE VECTOR)>
+ <LOOP (ARG27 VALUE) (TEMP26 LENGTH VALUE)>
+TAG76
+ <NTHUV TEMP26 1 = TEMP13>
+ <VEQUAL? TEMP13 ARG27 + TAG75>
+ <DEAD TEMP13>
+ <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
+ <EMPUV? TEMP26 - TAG76>
+ <JUMP + PHRASE74>
+TAG75
+ <VEQUAL? VAL8 'STACK - PHRASE79>
+ <DEAD VAL8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <NTHUV [%<> ATOM %<> %<> %<> FIX] ARG27 = STACK>
+ <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG80 TEMP13>
+ <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG82
+ <INTGO>
+ <EMPTY? TEMP26 + TAG80>
+ <NTH1 TEMP26 = STACK>
+ <REST1 TEMP26 = TEMP26>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG82>
+TAG80
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <NTHUV [%<> 2 %<> %<> %<> 7] ARG27 = STACK>
+ <DEAD ARG27>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE87>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE79
+ <FRAME '\1aGET-AC>
+ <PUSH AC9>
+ <CALL '\1aGET-AC 1 = TEMP13>
+ <NTHUV [%<> ATOM %<> %<> %<> FIX] ARG27 = TEMP26>
+ <PUTUV TEMP13 6 TEMP26>
+ <DEAD TEMP13 TEMP26>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <NTHUV [%<> 2 %<> %<> %<> 7] ARG27 = STACK>
+ <DEAD ARG27>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4 = TEMP13>
+PHRASE87
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+PHRASE74
+ <VEQUAL? VAL8 'STACK - PHRASE93>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL8>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC9>
+PHRASE93
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'BRANCH-FALSE>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aEXTRAMEM 2 = ARG16>
+ <TYPE? ARG16 <TYPE-CODE FALSE> + PHRASE96>
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <RESTL ARG16 1 = TEMP13 (TYPE LIST)>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+PHRASE96
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC9>
+ <SET TEMP26 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'LBIND>
+ <SCALL '\1aTYPE-WORD 1 = TEMP13 + TAG99 TEMP26>
+ <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG101
+ <INTGO>
+ <EMPTY? TEMP13 + TAG99>
+ <NTH1 TEMP13 = STACK>
+ <REST1 TEMP13 = TEMP13>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG101>
+TAG99
+ <CALL '\1aOCEMIT TEMP26>
+ <DEAD TEMP26>
+ <TYPE? ARG16 <TYPE-CODE FALSE> + PHRASE104>
+ <FRAME '\1aOCEMIT>
+ <RESTL ARG16 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
+ <VEQUAL? TEMP26 '+ - PHRASE107>
+ <DEAD TEMP26>
+ <SET TEMP26 'SKIPN (TYPE ATOM)>
+ <JUMP + PHRASE108>
+PHRASE107
+ <SET TEMP26 'SKIPE (TYPE ATOM)>
+PHRASE108
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <NTHUV [%<> %<> %<> 5 6 %<>] ARG27 = STACK>
+ <DEAD ARG27>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <RESTL ARG16 1 = TEMP26 (TYPE LIST)>
+ <DEAD ARG16>
+ <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
+ <NTHL TEMP26 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP26>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <SETG 'NEXT-FLUSH 1>
+ <JUMP + PHRASE112>
+PHRASE104
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <NTHUV [%<> %<> %<> 5 6 %<>] ARG27 = STACK>
+ <DEAD ARG27>
+ <CONS XAC11 () = STACK>
+ <DEAD XAC11>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC9>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG115 TEMP13>
+ <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG117
+ <INTGO>
+ <EMPTY? TEMP26 + TAG115>
+ <NTH1 TEMP26 = STACK>
+ <REST1 TEMP26 = TEMP26>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG117>
+TAG115
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+PHRASE112
+ <VEQUAL? VAL8 'STACK + TAG121>
+ <DEAD VAL8>
+ <RETURN %<>>
+TAG121
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC9>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE126>
+ <GVAL 'STACK-DEPTH = TEMP13>
+ <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP13>
+PHRASE126
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aLBIND-NTH>
+#WORD *31244672063*
+<GFCN \1aLBIND-PUT ("VALUE" ANY LIST) L5>
+ <TEMP ARG16 TEMP12 ARG27:FIX TEMP25 TEMP26>
+ <INTGO>
+ <NTHL L5 1 = ARG16>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <GRTR? ARG27 6 + BOOL15 (TYPE FIX)>
+ <LESS? ARG27 1 - PHRASE14 (TYPE FIX)>
+BOOL15
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'OUT-OF-BOUNDS!-ERRORS>
+ <PUSH 'NTHR>
+ <PUSH 'LBIND>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <CALL '\1aMIMOCERR 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE14
+ <SET TEMP25 [1 3] (TYPE VECTOR)>
+ <LOOP (ARG27 VALUE) (TEMP25 LENGTH VALUE)>
+TAG23
+ <NTHUV TEMP25 1 = TEMP26>
+ <VEQUAL? TEMP26 ARG27 + TAG22>
+ <DEAD TEMP26>
+ <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
+ <EMPUV? TEMP25 - TAG23>
+ <JUMP + PHRASE21>
+TAG22
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = TEMP25>
+ <JUMP + PHRASE36>
+PHRASE21
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE28>
+ <FRAME '\1aGET-AC>
+ <PUSH TEMP25>
+ <CALL '\1aGET-AC 1 = TEMP26>
+ <GVAL 'AC-STAMP = TEMP12>
+ <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP12>
+ <PUTUV TEMP26 4 TEMP12 (TYPE FIX)>
+ <DEAD TEMP26 TEMP12>
+ <SETG 'FIRST-AC %<>>
+ <JUMP + PHRASE36>
+PHRASE28
+ <TYPE? TEMP12 <TYPE-CODE ATOM> - BOOL33>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TEMP12>
+ <CALL '\1aWILL-DIE? 1 = TEMP26>
+ <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP26>
+BOOL33
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = TEMP25>
+ <JUMP + PHRASE36>
+PHRASE32
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP25>
+PHRASE36
+ <SET TEMP12 TEMP25>
+ <DEAD TEMP25>
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE42>
+ <EQUAL? ARG16 1 - PHRASE41>
+ <SET TEMP25 %<> (TYPE FALSE)>
+ <JUMP + PHRASE42>
+PHRASE41
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aGET-AC>
+ <PUSH 'T*>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <PUTUV TEMP25 3 'DUMMY (TYPE ATOM)>
+ <DEAD TEMP25>
+ <SET TEMP25 'T* (TYPE ATOM)>
+PHRASE42
+ <VEQUAL? ARG27 1 - PHRASE46 (TYPE FIX)>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE50>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CONS TEMP25 () = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aOCEMIT 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE50
+ <FRAME '\1aDMOVEM>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH '@>
+ <SET TEMP26 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG53 TEMP26>
+ <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP26 VALUE)>
+TAG55
+ <INTGO>
+ <EMPTY? TEMP25 + TAG53>
+ <NTH1 TEMP25 = STACK>
+ <REST1 TEMP25 = TEMP25>
+ <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG53
+ <CALL '\1aDMOVEM TEMP26 = TEMP12>
+ <DEAD TEMP26>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE46
+ <VEQUAL? ARG27 3 - PHRASE57 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 3>
+ <CONS TEMP25 () = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE57
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <NTHUV [%<> 2 %<> 5 6 7] ARG27 = STACK>
+ <DEAD ARG27>
+ <CONS TEMP25 () = STACK>
+ <DEAD TEMP25>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aLBIND-PUT>
+#WORD *14507230520*
+<GFCN \1aATOM-NTH ("VALUE" ANY LIST) L4>
+ <TEMP (ARG15 %<>) TEMP22 ARG26:FIX VAL7:ATOM (LAB12 %<>) (WD16 %<>) (AC-T118 %<>) (WD120 %<>) (AC-T221 %<>) XAC10 TEMP35 AC8 EX11 LBL14>
+ <INTGO>
+ <NTHL L4 1 = ARG15>
+ <RESTL L4 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = ARG26 (TYPE FIX)>
+ <DEAD TEMP22>
+ <RESTL L4 1 = TEMP22 (TYPE LIST)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = VAL7 (TYPE ATOM)>
+ <DEAD TEMP22>
+ <GRTR? ARG26 5 + BOOL25 (TYPE FIX)>
+ <LESS? ARG26 1 - PHRASE24 (TYPE FIX)>
+BOOL25
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'OUT-OF-BOUNDS!-ERRORS>
+ <PUSH 'NTHR>
+ <PUSH 'ATOM>
+ <PUSH ARG26>
+ <DEAD ARG26>
+ <CALL '\1aMIMOCERR 4 = TEMP22>
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+PHRASE24
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG15>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = XAC10>
+ <TYPE? XAC10 <TYPE-CODE FALSE> + PHRASE31>
+ <VEQUAL? XAC10 'O* + PHRASE31>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC10>
+ <CALL '\1aGET-AC 1 = TEMP35>
+ <GVAL 'AC-STAMP = TEMP22>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP22>
+ <PUTUV TEMP35 4 TEMP22 (TYPE FIX)>
+ <DEAD TEMP35 TEMP22>
+ <SETG 'FIRST-AC %<>>
+ <SET TEMP35 XAC10>
+ <DEAD XAC10>
+ <JUMP + PHRASE41>
+PHRASE31
+ <FRAME '\1aWILL-DIE?>
+ <PUSH ARG15>
+ <CALL '\1aWILL-DIE? 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE37>
+ <DEAD TEMP22>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = TEMP35>
+ <JUMP + PHRASE41>
+PHRASE37
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG15>
+ <DEAD ARG15>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <SET TEMP35 'T* (TYPE ATOM)>
+PHRASE41
+ <SET XAC10 TEMP35>
+ <DEAD TEMP35>
+ <VEQUAL? ARG26 3 - PHRASE46 (TYPE FIX)>
+ <VEQUAL? VAL7 'STACK - PHRASE48>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 2>
+ <CONS XAC10 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'STRING>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLM>
+ <PUSH 'O*>
+ <PUSH (TP*)>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH 3>
+ <CONS XAC10 () = STACK>
+ <DEAD XAC10>
+ <CALL '\1aOCEMIT 4>
+ <GVAL 'WINNING-VICTIM = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE56>
+ <GVAL 'STACK-DEPTH = TEMP35>
+ <ADD TEMP35 2 = TEMP35 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP35>
+ <RETURN TEMP35>
+ <DEAD TEMP35>
+PHRASE48
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH AC8>
+ <PUSH 2>
+ <CONS XAC10 () = STACK>
+ <DEAD XAC10>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLI>
+ <PUSH AC8>
+ <DEAD AC8>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'STRING>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <CALL '\1aOCEMIT 3 = TEMP22>
+PHRASE56
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+PHRASE46
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'BRANCH-FALSE>
+ <PUSH L4>
+ <CALL '\1aEXTRAMEM 2 = EX11>
+ <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE63>
+ <RESTL EX11 1 = TEMP35 (TYPE LIST)>
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = LAB12 (TYPE ATOM)>
+ <DEAD TEMP35>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL7>
+ <GEN-LVAL 'MIML = TEMP22>
+ <REST1 TEMP22 = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aWILL-DIE? 2 = WD120>
+ <SET TEMP35 WD120>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + BOOL65>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL7>
+ <GVAL LAB12 = TEMP22>
+ <NTHUV TEMP22 7 = STACK (TYPE LIST)>
+ <DEAD TEMP22>
+ <CALL '\1aWILL-DIE? 2 = TEMP35>
+BOOL65
+ <SET WD16 TEMP35>
+ <DEAD TEMP35>
+PHRASE63
+ <FRAME '\1aEXTRAMEM>
+ <PUSH 'TYPE>
+ <PUSH L4>
+ <DEAD L4>
+ <CALL '\1aEXTRAMEM 2 = ARG15>
+ <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE72>
+ <FRAME '\1aASSIGN-AC>
+ <PUSH VAL7>
+ <PUSH 'BOTH>
+ <PUSH 'T>
+ <CALL '\1aASSIGN-AC 3 = AC8>
+ <JUMP + PHRASE74>
+PHRASE72
+ <SET AC8 %<> (TYPE FALSE)>
+PHRASE74
+ <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE76>
+ <VEQUAL? ARG26 5 - PHRASE76 (TYPE FIX)>
+ <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE82>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC8>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'TYPE-C>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE82>
+PHRASE76
+ <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE82>
+ <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE82>
+ <TYPE? ARG15 <TYPE-CODE FALSE> - PHRASE82>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH AC8>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <NTHUV [GBIND LBIND %<> OBLIST] ARG26 = STACK>
+ <SCALL '\1aTYPE-WORD 1 = TEMP35 + TAG84 TEMP22>
+ <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG86
+ <INTGO>
+ <EMPTY? TEMP35 + TAG84>
+ <NTH1 TEMP35 = STACK>
+ <REST1 TEMP35 = TEMP35>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG86>
+TAG84
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+PHRASE82
+ <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE89>
+ <TYPE? WD16 <TYPE-CODE FALSE> - BOOL91>
+ <VEQUAL? ARG26 5 - BOOL91 (TYPE FIX)>
+ <RESTL EX11 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
+ <VEQUAL? TEMP22 '+ - PHRASE89>
+ <DEAD TEMP22>
+BOOL91
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH LAB12>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH XAC10>
+ <CALL '\1aLABEL-UPDATE-ACS 4 = TEMP35>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 5 'T>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 5 'T>
+ <DEAD TEMP22>
+ <NTH1 TEMP35 = TEMP22>
+ <EQUAL? TEMP22 XAC10 + PHRASE97>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <NTH1 TEMP35 = XAC10>
+ <DEAD TEMP35>
+ <PUSH XAC10>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <NTHUV TEMP22 4 = AC-T118 (TYPE FIX)>
+ <DEAD TEMP22>
+PHRASE97
+ <FRAME '\1aOCEMIT>
+ <RESTL EX11 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
+ <VEQUAL? TEMP22 '+ - PHRASE101>
+ <DEAD TEMP22>
+ <VEQUAL? ARG26 5 - PHRASE103 (TYPE FIX)>
+ <SET TEMP22 'SKIPGE (TYPE ATOM)>
+ <JUMP + PHRASE106>
+PHRASE103
+ <SET TEMP22 'SKIPN (TYPE ATOM)>
+ <JUMP + PHRASE106>
+PHRASE101
+ <VEQUAL? ARG26 5 - PHRASE105 (TYPE FIX)>
+ <SET TEMP22 'SKIPL (TYPE ATOM)>
+ <JUMP + PHRASE106>
+PHRASE105
+ <SET TEMP22 'SKIPE (TYPE ATOM)>
+PHRASE106
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <TYPE? WD16 <TYPE-CODE FALSE> + PHRASE108>
+ <DEAD WD16>
+ <SET TEMP22 'O* (TYPE ATOM)>
+ <JUMP + PHRASE109>
+PHRASE108
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = TEMP22>
+PHRASE109
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <NTHUV [0 1 %<> 4 2] ARG26 = STACK>
+ <CONS XAC10 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <VEQUAL? ARG26 5 - PHRASE112 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH LAB12>
+ <DEAD LAB12>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+ <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE121>
+ <RESTL EX11 1 = TEMP22 (TYPE LIST)>
+ <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
+ <VEQUAL? TEMP22 '+ - PHRASE121>
+ <DEAD TEMP22>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZS>
+ <PUSH 'O*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE121>
+PHRASE112
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JRST>
+ <FRAME '\1aXJUMP>
+ <PUSH LAB12>
+ <DEAD LAB12>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 2>
+PHRASE121
+ <TYPE? AC-T118 <TYPE-CODE FALSE> + PHRASE125>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC10>
+ <DEAD XAC10>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 4 AC-T118 (TYPE FIX)>
+ <DEAD TEMP22 AC-T118>
+PHRASE125
+ <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE132>
+ <DEAD WD120>
+ <RESTL EX11 1 = TEMP22 (TYPE LIST)>
+ <DEAD EX11>
+ <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
+ <VEQUAL? TEMP22 '+ - PHRASE130>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <NTHUV [GBIND LBIND T OBLIST TYPE-C] ARG26 = TEMP35 (TYPE ATOM)>
+ <DEAD ARG26>
+ <PUTUV TEMP22 6 TEMP35>
+ <DEAD TEMP22 TEMP35>
+ <JUMP + PHRASE132>
+PHRASE130
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 6 'FALSE>
+ <DEAD TEMP22>
+PHRASE132
+ <SETG 'NEXT-FLUSH 1>
+ <JUMP + PHRASE187>
+PHRASE89
+ <VEQUAL? ARG26 5 - PHRASE134 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 2>
+ <CONS XAC10 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE138>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 2 VAL7>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 2 VAL7>
+ <DEAD TEMP22>
+ <TYPE? WD120 <TYPE-CODE FALSE> + PHRASE143>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 6 'TYPE-C>
+ <DEAD TEMP22>
+ <JUMP + PHRASE145>
+PHRASE143
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC8>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'TYPE-C>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE145
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <PUSH LAB12>
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH XAC10>
+ <PUSH AC8>
+ <CALL '\1aLABEL-UPDATE-ACS 5 = TEMP35>
+ <NTH1 TEMP35 = TEMP22>
+ <EQUAL? TEMP22 XAC10 + PHRASE150>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <NTH1 TEMP35 = XAC10>
+ <PUSH XAC10>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <NTHUV TEMP22 4 = AC-T118 (TYPE FIX)>
+ <DEAD TEMP22>
+PHRASE150
+ <FRAME '\1aNTH>
+ <PUSH TEMP35>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = TEMP22>
+ <EQUAL? TEMP22 AC8 + PHRASE153>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNTH>
+ <PUSH TEMP35>
+ <DEAD TEMP35>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = AC8>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <NTHUV TEMP22 4 = AC-T221 (TYPE FIX)>
+ <DEAD TEMP22>
+PHRASE153
+ <SETG 'NEXT-FLUSH 1>
+PHRASE138
+ <TYPE? ARG15 <TYPE-CODE FALSE> - PHRASE173>
+ <DEAD ARG15>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'JUMPGE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <FRAME '\1aXJUMP>
+ <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE163>
+ <SET TEMP22 LAB12>
+ <DEAD LAB12>
+ <JUMP + PHRASE164>
+PHRASE163
+ <FRAME '\1aGENLBL>
+ <PUSH "FOO">
+ <CALL '\1aGENLBL 1 = LBL14>
+ <SET TEMP22 LBL14>
+PHRASE164
+ <PUSH TEMP22>
+ <DEAD TEMP22>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE167>
+ <DEAD WD120>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 0>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC8>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE167
+ <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE173>
+ <DEAD EX11>
+ <FRAME '\1aLABEL>
+ <PUSH LBL14>
+ <DEAD LBL14>
+ <CALL '\1aLABEL 1>
+PHRASE173
+ <TYPE? AC-T118 <TYPE-CODE FALSE> + PHRASE176>
+ <FRAME '\1aGET-AC>
+ <PUSH XAC10>
+ <DEAD XAC10>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 4 AC-T118 (TYPE FIX)>
+ <DEAD TEMP22 AC-T118>
+PHRASE176
+ <TYPE? AC-T221 <TYPE-CODE FALSE> + PHRASE187>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 4 AC-T221 (TYPE FIX)>
+ <DEAD TEMP22>
+ <FRAME '\1aGET-AC>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <PUTUV TEMP22 4 AC-T221 (TYPE FIX)>
+ <DEAD TEMP22 AC-T221>
+ <JUMP + PHRASE187>
+PHRASE134
+ <TYPE? ARG15 <TYPE-CODE FALSE> + PHRASE183>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <NTHUV [0 1 %<> 4] ARG26 = STACK>
+ <DEAD ARG26>
+ <CONS XAC10 () = STACK>
+ <DEAD XAC10>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aGET-AC>
+ <PUSH AC8>
+ <CALL '\1aGET-AC 1 = TEMP22>
+ <RESTL ARG15 1 = TEMP35 (TYPE LIST)>
+ <DEAD ARG15>
+ <NTHL TEMP35 1 = TEMP35>
+ <PUTUV TEMP22 6 TEMP35>
+ <DEAD TEMP22 TEMP35>
+ <JUMP + PHRASE187>
+PHRASE183
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SKIPN>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <NTHUV [0 1 %<> 4] ARG26 = STACK>
+ <DEAD ARG26>
+ <CONS XAC10 () = STACK>
+ <DEAD XAC10>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVSI>
+ <PUSH AC8>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+PHRASE187
+ <VEQUAL? VAL7 'STACK + TAG194>
+ <DEAD VAL7>
+ <RETURN %<>>
+TAG194
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <PUSH AC8>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <FRAME '\1aNEXT-AC>
+ <PUSH AC8>
+ <DEAD AC8>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <GVAL 'WINNING-VICTIM = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
+ <GVAL 'STACK-DEPTH = TEMP22>
+ <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP22>
+PHRASE199
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aATOM-NTH>
+#WORD *7175671772*
+<GFCN \1aEXTRAMEM ("VALUE" <OR FALSE <LIST ANY>> ATOM LIST) NAM5 LST6>
+ <TEMP TEMP16 TEMP13:LIST ITM18 TEMP26>
+ <INTGO>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <SET TEMP13 LST6 (TYPE LIST)>
+ <DEAD LST6>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <NTHL TEMP13 1 = ITM18>
+ <TYPE? ITM18 <TYPE-CODE LIST> + TAG22>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG22
+ <EMPL? ITM18 + TAG25>
+ <RESTL ITM18 1 = TEMP26 (TYPE LIST)>
+ <EMPL? TEMP26 - TAG24>
+ <DEAD TEMP26>
+TAG25
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG24
+ <NTHL ITM18 1 = TEMP26>
+ <EQUAL? TEMP26 NAM5 + TAG27>
+ <DEAD TEMP26>
+ <SET TEMP16 %<> (TYPE FALSE)>
+ <JUMP + PHRASE20>
+TAG27
+ <RETURN ITM18>
+ <DEAD ITM18>
+PHRASE20
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <DEAD NAM5 TEMP13>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+ <END \1aEXTRAMEM>
+#WORD *24472426211*
+<GFCN \1aATOM-PUT ("VALUE" ANY LIST) L5>
+ <TEMP ARG16 TEMP12 ARG27:FIX AC111 TEMP25 NAC10>
+ <INTGO>
+ <NTHL L5 1 = ARG16>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
+ <DEAD TEMP12>
+ <RESTL L5 1 = TEMP12 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <GRTR? ARG27 5 + BOOL15 (TYPE FIX)>
+ <LESS? ARG27 1 - PHRASE14 (TYPE FIX)>
+BOOL15
+ <FRAME '\1aMIMOCERR>
+ <PUSH 'OUT-OF-BOUNDS!-ERRORS>
+ <PUSH 'NTHR>
+ <PUSH 'LBIND>
+ <PUSH ARG27>
+ <DEAD ARG27>
+ <CALL '\1aMIMOCERR 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE14
+ <FRAME '\1aIN-AC?>
+ <PUSH ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC111>
+ <TYPE? AC111 <TYPE-CODE FALSE> + PHRASE21>
+ <FRAME '\1aGET-AC>
+ <PUSH AC111>
+ <CALL '\1aGET-AC 1 = ARG16>
+ <GVAL 'AC-STAMP = TEMP25>
+ <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
+ <SETG 'AC-STAMP TEMP25>
+ <PUTUV ARG16 4 TEMP25 (TYPE FIX)>
+ <DEAD ARG16 TEMP25>
+ <SETG 'FIRST-AC %<>>
+ <SET ARG16 AC111>
+ <DEAD AC111>
+ <JUMP + PHRASE26>
+PHRASE21
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'T*>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aFLUSH-AC>
+ <PUSH 'T*>
+ <CALL '\1aFLUSH-AC 1>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'T*>
+ <CALL '\1aMUNGED-AC 1>
+ <SET ARG16 'T* (TYPE ATOM)>
+PHRASE26
+ <SET NAC10 ARG16>
+ <DEAD ARG16>
+ <VEQUAL? ARG27 3 - PHRASE31 (TYPE FIX)>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = ARG16>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRRM>
+ <PUSH ARG16>
+ <PUSH 2>
+ <CONS NAC10 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <FRAME '\1aNEXT-AC>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH 3>
+ <CONS NAC10 () = STACK>
+ <DEAD NAC10>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE31
+ <VEQUAL? ARG27 5 - PHRASE36 (TYPE FIX)>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH TEMP12>
+ <CALL '\1aPRIMTYPE 1 = ARG16>
+ <VEQUAL? ARG16 'WORD + BOOL39>
+ <DEAD ARG16>
+ <FRAME '\1aPRIMTYPE>
+ <PUSH TEMP12>
+ <CALL '\1aPRIMTYPE 1 = ARG16>
+ <VEQUAL? ARG16 'FIX - PHRASE38>
+ <DEAD ARG16>
+BOOL39
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG16>
+ <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE44>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = ARG16>
+PHRASE44
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLM>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 2>
+ <CONS NAC10 () = STACK>
+ <DEAD NAC10>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE38
+ <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE47>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROS>
+ <PUSH 'O*>
+ <PUSH 2>
+ <CONS NAC10 () = STACK>
+ <DEAD NAC10>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE47
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG16>
+ <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE52>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = ARG16>
+PHRASE52
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLM>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <PUSH 2>
+ <CONS NAC10 () = STACK>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP12>
+ <PUSH 'TYPE>
+ <CALL '\1aIN-AC? 2 = AC111>
+ <TYPE? AC111 <TYPE-CODE FALSE> + PHRASE56>
+ <FRAME '\1aLOAD-TYPE>
+ <PUSH 'O*>
+ <CONS AC111 () = STACK>
+ <DEAD AC111>
+ <CALL '\1aLOAD-TYPE 2>
+ <FRAME '\1aMUNGED-AC>
+ <PUSH 'O*>
+ <CALL '\1aMUNGED-AC 1>
+ <JUMP + PHRASE60>
+PHRASE56
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'TYPECODE>
+ <CALL '\1aSMASH-AC 3>
+PHRASE60
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAIN>
+ <PUSH 'O*>
+ <FRAME '\1aTYPE-CODE>
+ <PUSH 'FALSE>
+ <CALL '\1aTYPE-CODE 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROS>
+ <PUSH 'O*>
+ <PUSH 2>
+ <CONS NAC10 () = STACK>
+ <DEAD NAC10>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE36
+ <FRAME '\1aIN-AC?>
+ <PUSH TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = ARG16>
+ <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE72>
+ <TYPE? TEMP12 <TYPE-CODE ATOM> - BOOL69>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TEMP12>
+ <CALL '\1aWILL-DIE? 1 = TEMP25>
+ <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE68>
+ <DEAD TEMP25>
+BOOL69
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'O*>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'VALUE>
+ <CALL '\1aSMASH-AC 3 = ARG16>
+ <JUMP + PHRASE72>
+PHRASE68
+ <SETG 'FIRST-AC %<>>
+ <FRAME '\1aGET-AC>
+ <PUSH NAC10>
+ <CALL '\1aGET-AC 1 = TEMP25>
+ <GVAL 'AC-STAMP = ARG16>
+ <ADD ARG16 1 = ARG16 (TYPE FIX)>
+ <SETG 'AC-STAMP ARG16>
+ <PUTUV TEMP25 4 ARG16 (TYPE FIX)>
+ <DEAD TEMP25 ARG16>
+ <FRAME '\1aNEXT-AC>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 'BOTH>
+ <CALL '\1aLOAD-AC 2 = STACK>
+ <CALL '\1aNEXT-AC 1 = ARG16>
+PHRASE72
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH ARG16>
+ <DEAD ARG16>
+ <NTHUV [0 1 %<> 4] ARG27 = STACK>
+ <DEAD ARG27>
+ <CONS NAC10 () = STACK>
+ <DEAD NAC10>
+ <CALL '\1aOCEMIT 4 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aATOM-PUT>
+#WORD *10752271360*
+<GFCN \1aNTHR!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 NOGP9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP ARG110 TEMP14 ARG211 TEMP18:FIX T12 M13 TEMP24 TEMP29>
+ <INTGO>
+ <NTHL L8 1 = ARG110>
+ <RESTL L8 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = ARG211>
+ <DEAD TEMP14>
+ <TYPE? NOGP9 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD NOGP9>
+ <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE16>
+ <SET TEMP14 L8>
+ <SET TEMP18 5 (TYPE FIX)>
+ <LOOP (TEMP14 VALUE) (TEMP18 VALUE)>
+TAG19
+ <EMPL? TEMP14 + PHRASE16>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
+ <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
+ <DEAD TEMP14 TEMP18>
+ <NTHL L8 5 = T12>
+ <TYPE? T12 <TYPE-CODE LIST> - PHRASE16>
+ <NTHL T12 1 = TEMP14>
+ <EQUAL? TEMP14 'RECORD-TYPE - PHRASE16>
+ <DEAD TEMP14>
+ <RESTL T12 1 = TEMP14 (TYPE LIST)>
+ <DEAD T12>
+ <NTHL TEMP14 1 = TEMP14>
+ <GVAL 'NTHR-TABLE = M13>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG20>
+ <EMPUV? M13 + TAG20>
+ <LOOP (TEMP14 VALUE) (M13 LENGTH VALUE)>
+TAG22
+ <NTHUV M13 1 = TEMP24>
+ <VEQUAL? TEMP24 TEMP14 + TAG21>
+ <DEAD TEMP24>
+ <RESTUV M13 1 = M13 (TYPE VECTOR)>
+ <EMPUV? M13 - TAG22>
+TAG20
+ <DEAD M13 TEMP14>
+ <SET M13 %<> (TYPE FALSE)>
+TAG21
+ <TYPE? M13 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME>
+ <NTHUV M13 2 = M13 (TYPE ATOM)>
+ <GVAL M13 = M13>
+ <PUSH L8>
+ <ACALL M13 1 = M13>
+ <RETURN M13>
+ <DEAD M13>
+PHRASE16
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG110>
+ <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG28 TEMP29>
+ <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG31
+ <INTGO>
+ <EMPTY? TEMP24 + TAG28>
+ <NTH1 TEMP24 = STACK>
+ <REST1 TEMP24 = TEMP24>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG31>
+TAG28
+ <DEAD TEMP24>
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP24 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG211>
+ <DEAD ARG211>
+ <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG33 TEMP24>
+ <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP24 VALUE)>
+TAG35
+ <INTGO>
+ <EMPTY? TEMP29 + TAG33>
+ <NTH1 TEMP29 = STACK>
+ <REST1 TEMP29 = TEMP29>
+ <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
+ <JUMP + TAG35>
+TAG33
+ <DEAD TEMP29>
+ <CALL '\1aOCEMIT TEMP24>
+ <DEAD TEMP24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZ>
+ <PUSH 'A1*>
+ <SET TEMP29 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH ARG110>
+ <DEAD ARG110>
+ <SCALL '\1aOBJ-TYP 1 = TEMP24 + TAG37 TEMP29>
+ <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP29 VALUE)>
+TAG39
+ <INTGO>
+ <EMPTY? TEMP24 + TAG37>
+ <NTH1 TEMP24 = STACK>
+ <REST1 TEMP24 = TEMP24>
+ <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
+ <JUMP + TAG39>
+TAG37
+ <DEAD TEMP24>
+ <CALL '\1aOCEMIT TEMP29>
+ <DEAD TEMP29>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ANDI>
+ <PUSH 'A1*>
+ <PUSH 65535>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH 'A1*>
+ <PUSH -6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'NTHR>
+ <RESTL L8 1 = TEMP29 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
+ <NTHL TEMP29 1 = STACK>
+ <DEAD TEMP29>
+ <CALL '\1aPUSHJ 2 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aNTHR!-MIMOC>
+#WORD *34003552460*
+<GFCN \1aPUTR!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 NOGP9>
+ <OPT-DISPATCH 1 %<> OPT6 OPT7>
+OPT6
+ <PUSH %<>>
+OPT7
+ <TEMP ARG110 TEMP14 ARG211 TEMP18:FIX T12 M13 TEMP24 TEMP30>
+ <INTGO>
+ <NTHL L8 1 = ARG110>
+ <RESTL L8 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = ARG211>
+ <DEAD TEMP14>
+ <TYPE? NOGP9 <TYPE-CODE FALSE> - PHRASE16>
+ <DEAD NOGP9>
+ <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE16>
+ <SET TEMP14 L8>
+ <SET TEMP18 4 (TYPE FIX)>
+ <LOOP (TEMP14 VALUE) (TEMP18 VALUE)>
+TAG19
+ <EMPL? TEMP14 + PHRASE16>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
+ <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
+ <DEAD TEMP14 TEMP18>
+ <RESTL L8 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
+ <NTHL TEMP14 1 = T12>
+ <DEAD TEMP14>
+ <TYPE? T12 <TYPE-CODE LIST> - PHRASE16>
+ <NTHL T12 1 = TEMP14>
+ <EQUAL? TEMP14 'RECORD-TYPE - PHRASE16>
+ <DEAD TEMP14>
+ <RESTL T12 1 = TEMP14 (TYPE LIST)>
+ <DEAD T12>
+ <NTHL TEMP14 1 = TEMP14>
+ <GVAL 'PUTR-TABLE = M13>
+ <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG20>
+ <EMPUV? M13 + TAG20>
+ <LOOP (TEMP14 VALUE) (M13 LENGTH VALUE)>
+TAG22
+ <NTHUV M13 1 = TEMP24>
+ <VEQUAL? TEMP24 TEMP14 + TAG21>
+ <DEAD TEMP24>
+ <RESTUV M13 1 = M13 (TYPE VECTOR)>
+ <EMPUV? M13 - TAG22>
+TAG20
+ <DEAD M13 TEMP14>
+ <SET M13 %<> (TYPE FALSE)>
+TAG21
+ <TYPE? M13 <TYPE-CODE FALSE> + PHRASE16>
+ <FRAME>
+ <NTHUV M13 2 = M13 (TYPE ATOM)>
+ <GVAL M13 = M13>
+ <PUSH L8>
+ <ACALL M13 1 = M13>
+ <RETURN M13>
+ <DEAD M13>
+PHRASE16
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <FRAME '\1aSMASH-AC>
+ <PUSH 'C1*>
+ <RESTL L8 1 = TEMP24 (TYPE LIST)>
+ <DEAD L8>
+ <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = STACK>
+ <DEAD TEMP24>
+ <PUSH 'BOTH>
+ <CALL '\1aSMASH-AC 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP30 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG110>
+ <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG29 TEMP30>
+ <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
+TAG32
+ <INTGO>
+ <EMPTY? TEMP24 + TAG29>
+ <NTH1 TEMP24 = STACK>
+ <REST1 TEMP24 = TEMP24>
+ <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
+ <JUMP + TAG32>
+TAG29
+ <DEAD TEMP24>
+ <CALL '\1aOCEMIT TEMP30>
+ <DEAD TEMP30>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP24 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ARG211>
+ <DEAD ARG211>
+ <SCALL '\1aOBJ-VAL 1 = TEMP30 + TAG34 TEMP24>
+ <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP24 VALUE)>
+TAG36
+ <INTGO>
+ <EMPTY? TEMP30 + TAG34>
+ <NTH1 TEMP30 = STACK>
+ <REST1 TEMP30 = TEMP30>
+ <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
+ <JUMP + TAG36>
+TAG34
+ <DEAD TEMP30>
+ <CALL '\1aOCEMIT TEMP24>
+ <DEAD TEMP24>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HLRZ>
+ <PUSH 'A1*>
+ <SET TEMP30 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH ARG110>
+ <DEAD ARG110>
+ <SCALL '\1aOBJ-TYP 1 = TEMP24 + TAG38 TEMP30>
+ <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
+TAG40
+ <INTGO>
+ <EMPTY? TEMP24 + TAG38>
+ <NTH1 TEMP24 = STACK>
+ <REST1 TEMP24 = TEMP24>
+ <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
+ <JUMP + TAG40>
+TAG38
+ <DEAD TEMP24>
+ <CALL '\1aOCEMIT TEMP30>
+ <DEAD TEMP30>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'ANDI>
+ <PUSH 'A1*>
+ <PUSH 65535>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'LSH>
+ <PUSH 'A1*>
+ <PUSH -6>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'B2*>
+ <PUSH 'C1*>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'PUTR>
+ <CALL '\1aPUSHJ 1 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aPUTR!-MIMOC>
+#WORD *6256713076*
+<GFCN \1aLIST!-MIMOC ("VALUE" ANY <LIST ANY ANY ANY>) L5>
+ <TEMP TEMP10 TEMP13>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <NTHL L5 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FIX> - PHRASE8>
+ <DEAD TEMP10>
+ <NTHL L5 1 = TEMP10 (TYPE FIX)>
+ <GRTR? TEMP10 262143 + PHRASE8 (TYPE FIX)>
+ <DEAD TEMP10>
+ <GVAL 'WINNING-VICTIM = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE12>
+ <DEAD TEMP10>
+ <GVAL 'STACK-DEPTH = TEMP10>
+ <NTHL L5 1 = TEMP13 (TYPE FIX)>
+ <LSH TEMP13 1 = TEMP13 (TYPE FIX)>
+ <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
+ <DEAD TEMP13>
+ <SETG 'STACK-DEPTH TEMP10>
+ <DEAD TEMP10>
+PHRASE12
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <NTHL L5 1 = STACK (TYPE FIX)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE15>
+PHRASE8
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP13 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <NTHL L5 1 = STACK>
+ <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG16 TEMP13>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP13 VALUE)>
+TAG18
+ <INTGO>
+ <EMPTY? TEMP10 + TAG16>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
+ <JUMP + TAG18>
+TAG16
+ <DEAD TEMP10>
+ <CALL '\1aOCEMIT TEMP13>
+ <DEAD TEMP13>
+PHRASE15
+ <FRAME '\1aPUSHJ>
+ <PUSH 'LIST>
+ <RESTL L5 1 = TEMP13 (TYPE LIST)>
+ <DEAD L5>
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = STACK>
+ <DEAD TEMP13>
+ <CALL '\1aPUSHJ 2 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aLIST!-MIMOC>
+#WORD *35666037175*
+<GFCN \1aUBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aDO-UBLOCK>
+ <PUSH 'UBLOCK>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH %<>>
+ <PUSH 'T>
+ <CALL '\1aDO-UBLOCK 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aUBLOCK!-MIMOC>
+#WORD *5334173053*
+<GFCN \1aUUBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aDO-UBLOCK>
+ <PUSH 'UUBLOCK>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aDO-UBLOCK 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aUUBLOCK!-MIMOC>
+#WORD *32430063075*
+<GFCN \1aSBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aDO-UBLOCK>
+ <PUSH 'SBLOCK>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <PUSH 'T>
+ <CALL '\1aDO-UBLOCK 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aSBLOCK!-MIMOC>
+#WORD *2162127153*
+<GFCN \1aUSBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
+ <TEMP TEMP7>
+ <INTGO>
+ <FRAME '\1aDO-UBLOCK>
+ <PUSH 'USBLOCK>
+ <PUSH L5>
+ <DEAD L5>
+ <PUSH 'T>
+ <PUSH %<>>
+ <CALL '\1aDO-UBLOCK 4 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aUSBLOCK!-MIMOC>
+#WORD *34662471145*
+<GFCN \1aDO-UBLOCK ("VALUE" ANY ANY LIST ANY ANY) NAM5 L6 STACK?7 INIT?8>
+ <TEMP ATM9 TEMP20 TEMP22 NITMS10:FIX NWRDS11:FIX TEMP53>
+ <INTGO>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <NTHL L6 1 = ATM9>
+ <TYPE? ATM9 <TYPE-CODE FIX> - PHRASE14>
+ <GRTR? ATM9 262143 + PHRASE14 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <PUSH ATM9>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE26>
+PHRASE14
+ <TYPE? ATM9 <TYPE-CODE ATOM> + BOOL18>
+ <TYPE? ATM9 <TYPE-CODE FORM> - PHRASE17>
+ <EMPL? ATM9 + PHRASE17 (TYPE FORM)>
+ <NTHL ATM9 1 = TEMP20>
+ <EQUAL? TEMP20 'QUOTE - PHRASE17>
+ <DEAD TEMP20>
+ <RESTL ATM9 1 = ATM9 (TYPE LIST)>
+ <NTHL ATM9 1 = ATM9>
+ <TYPE? ATM9 <TYPE-CODE ATOM> - PHRASE17>
+BOOL18
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH ATM9>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP20 + TAG21 TEMP22>
+ <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG24
+ <INTGO>
+ <EMPTY? TEMP20 + TAG21>
+ <NTH1 TEMP20 = STACK>
+ <REST1 TEMP20 = TEMP20>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG24>
+TAG21
+ <DEAD TEMP20>
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+ <JUMP + PHRASE26>
+PHRASE17
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP20 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ATM9>
+ <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG27 TEMP20>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP20 VALUE)>
+TAG29
+ <INTGO>
+ <EMPTY? TEMP22 + TAG27>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
+ <JUMP + TAG29>
+TAG27
+ <DEAD TEMP22>
+ <CALL '\1aOCEMIT TEMP20>
+ <DEAD TEMP20>
+PHRASE26
+ <RESTL L6 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FIX> - PHRASE32>
+ <DEAD TEMP20>
+ <RESTL L6 1 = TEMP20 (TYPE LIST)>
+ <NTHL TEMP20 1 = NITMS10 (TYPE FIX)>
+ <DEAD TEMP20>
+ <GRTR? NITMS10 262143 + PHRASE32 (TYPE FIX)>
+ <TYPE? ATM9 <TYPE-CODE ATOM> - PHRASE35>
+ <NTHR ATM9 5 = ATM9 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
+ <CHTYPE ATM9 <TYPE-CODE FIX> = ATM9>
+PHRASE35
+ <AND ATM9 7 = ATM9>
+ <VEQUAL? ATM9 4 - PHRASE37 (TYPE FIX)>
+ <ADD NITMS10 3 = TEMP20 (TYPE FIX)>
+ <DIV TEMP20 4 = NWRDS11 (TYPE FIX)>
+ <DEAD TEMP20>
+ <JUMP + PHRASE40>
+PHRASE37
+ <VEQUAL? ATM9 5 - PHRASE38 (TYPE FIX)>
+ <ADD NITMS10 4 = TEMP20 (TYPE FIX)>
+ <DIV TEMP20 5 = NWRDS11 (TYPE FIX)>
+ <DEAD TEMP20>
+ <JUMP + PHRASE40>
+PHRASE38
+ <VEQUAL? ATM9 6 - PHRASE39 (TYPE FIX)>
+ <DEAD ATM9>
+ <SET NWRDS11 NITMS10>
+ <JUMP + PHRASE40>
+PHRASE39
+ <LSH NITMS10 1 = NWRDS11 (TYPE FIX)>
+PHRASE40
+ <GVAL 'WINNING-VICTIM = TEMP20>
+ <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE48>
+ <DEAD TEMP20>
+ <TYPE? STACK?7 <TYPE-CODE FALSE> - PHRASE44>
+ <TYPE? INIT?8 <TYPE-CODE FALSE> + PHRASE44>
+ <GVAL 'STACK-DEPTH = TEMP20>
+ <LSH NITMS10 1 = TEMP22 (TYPE FIX)>
+ <SUB TEMP20 TEMP22 = TEMP20 (TYPE FIX)>
+ <DEAD TEMP22>
+ <SETG 'STACK-DEPTH TEMP20>
+ <DEAD TEMP20>
+ <JUMP + PHRASE48>
+PHRASE44
+ <TYPE? STACK?7 <TYPE-CODE FALSE> + PHRASE46>
+ <TYPE? INIT?8 <TYPE-CODE FALSE> - PHRASE46>
+ <DEAD INIT?8>
+ <GVAL 'STACK-DEPTH = TEMP20>
+ <ADD TEMP20 NWRDS11 = TEMP20 (TYPE FIX)>
+ <DEAD NWRDS11>
+ <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP20>
+ <DEAD TEMP20>
+ <JUMP + PHRASE48>
+PHRASE46
+ <TYPE? STACK?7 <TYPE-CODE FALSE> + PHRASE48>
+ <DEAD STACK?7>
+ <SUB 0 NITMS10 = TEMP20 (TYPE FIX)>
+ <GVAL 'STACK-DEPTH = TEMP22>
+ <ADD TEMP20 TEMP22 = TEMP20 (TYPE FIX)>
+ <DEAD TEMP22>
+ <ADD TEMP20 NWRDS11 = TEMP20 (TYPE FIX)>
+ <DEAD NWRDS11>
+ <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP20>
+ <DEAD TEMP20>
+PHRASE48
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH NITMS10>
+ <DEAD NITMS10>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE50>
+PHRASE32
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O2*>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <RESTL L6 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG51 TEMP22>
+ <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG54
+ <INTGO>
+ <EMPTY? TEMP20 + TAG51>
+ <NTH1 TEMP20 = STACK>
+ <REST1 TEMP20 = TEMP20>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG54>
+TAG51
+ <DEAD TEMP20>
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+PHRASE50
+ <FRAME '\1aPUSHJ>
+ <PUSH NAM5>
+ <DEAD NAM5>
+ <RESTL L6 1 = TEMP53 (TYPE LIST)>
+ <DEAD L6>
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
+ <NTHL TEMP53 1 = STACK>
+ <DEAD TEMP53>
+ <CALL '\1aPUSHJ 2 = TEMP53>
+ <RETURN TEMP53>
+ <DEAD TEMP53>
+ <END \1aDO-UBLOCK>\r\r
+#WORD *26743130756*
+<GFCN \1aRECORD!-MIMOC ("VALUE" ANY LIST) L5>
+ <TEMP TYP6 TEMP16 TEMP22 LL36:LIST CNT37:FIX SD40:FIX ITM38>
+ <INTGO>
+ <NTHL L5 1 = TYP6>
+ <FRAME '\1aUPDATE-ACS>
+ <CALL '\1aUPDATE-ACS 0>
+ <TYPE? TYP6 <TYPE-CODE FORM> - PHRASE14>
+ <EMPL? TYP6 + PHRASE14>
+ <RESTL TYP6 1 = TEMP16 (TYPE LIST)>
+ <EMPL? TEMP16 + PHRASE14>
+ <DEAD TEMP16>
+ <NTHL TYP6 1 = TEMP16>
+ <EQUAL? TEMP16 'QUOTE - PHRASE14>
+ <DEAD TEMP16>
+ <RESTL TYP6 1 = TEMP16 (TYPE LIST)>
+ <NTHL TEMP16 1 = TEMP16>
+ <EQUAL? TEMP16 'ATOM + BOOL19>
+ <EQUAL? TEMP16 'LBIND + BOOL19>
+ <EQUAL? TEMP16 'GBIND - PHRASE18>
+BOOL19
+ <FRAME '\1aEXPLICIT-MAKE-RECORD>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <PUSH L5>
+ <DEAD L5>
+ <CALL '\1aEXPLICIT-MAKE-RECORD 2>
+ <RETURN 'T>
+PHRASE18
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <RESTL TYP6 1 = TYP6 (TYPE LIST)>
+ <NTHL TYP6 1 = STACK>
+ <DEAD TYP6>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP16 + TAG21 TEMP22>
+ <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG25
+ <INTGO>
+ <EMPTY? TEMP16 + TAG21>
+ <NTH1 TEMP16 = STACK>
+ <REST1 TEMP16 = TEMP16>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG21
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+ <JUMP + PHRASE30>
+PHRASE14
+ <TYPE? TYP6 <TYPE-CODE FIX> - PHRASE27>
+ <GRTR? TYP6 262143 + PHRASE27 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE30>
+PHRASE27
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVE>
+ <PUSH 'O1*>
+ <SET TEMP16 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH TYP6>
+ <DEAD TYP6>
+ <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG31 TEMP16>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP16 VALUE)>
+TAG33
+ <INTGO>
+ <EMPTY? TEMP22 + TAG31>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
+ <JUMP + TAG33>
+TAG31
+ <CALL '\1aOCEMIT TEMP16>
+ <DEAD TEMP16>
+PHRASE30
+ <RESTL L5 1 = LL36 (TYPE LIST)>
+ <SET CNT37 0 (TYPE FIX)>
+ <GVAL 'WINNING-VICTIM = TEMP16>
+ <SET TEMP22 TEMP16>
+ <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL41>
+ <GVAL 'STACK-DEPTH = TEMP22>
+BOOL41
+ <SET SD40 TEMP22>
+ <DEAD TEMP22>
+ <LOOP>
+AGAIN42
+ <INTGO>
+ <NTHL LL36 1 = ITM38>
+ <EQUAL? ITM38 '= - PHRASE44>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH CNT37>
+ <DEAD CNT37>
+ <CALL '\1aOCEMIT 3>
+ <SETG 'STACK-DEPTH SD40>
+ <DEAD SD40>
+ <JUMP + EXIT35>
+PHRASE44
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TYP6 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH ITM38>
+ <SCALL '\1aOBJ-TYP 1 = TEMP22 + TAG47 TYP6>
+ <LOOP (TEMP22 TYPE VALUE LENGTH) (TYP6 VALUE)>
+TAG49
+ <INTGO>
+ <EMPTY? TEMP22 + TAG47>
+ <NTH1 TEMP22 = STACK>
+ <REST1 TEMP22 = TEMP22>
+ <ADD TYP6 1 = TYP6 (TYPE FIX)>
+ <JUMP + TAG49>
+TAG47
+ <CALL '\1aOCEMIT TYP6>
+ <DEAD TYP6>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE52>
+ <GVAL 'STACK-DEPTH = TYP6>
+ <ADD TYP6 1 = TYP6 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TYP6>
+ <DEAD TYP6>
+PHRASE52
+ <FRAME '\1aOCEMIT>
+ <PUSH 'PUSH>
+ <PUSH 'TP*>
+ <SET TEMP22 2 (TYPE FIX)>
+ <SFRAME 'OBJ-VAL>
+ <PUSH ITM38>
+ <DEAD ITM38>
+ <SCALL '\1aOBJ-VAL 1 = TYP6 + TAG53 TEMP22>
+ <LOOP (TYP6 TYPE VALUE LENGTH) (TEMP22 VALUE)>
+TAG55
+ <INTGO>
+ <EMPTY? TYP6 + TAG53>
+ <NTH1 TYP6 = STACK>
+ <REST1 TYP6 = TYP6>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <JUMP + TAG55>
+TAG53
+ <CALL '\1aOCEMIT TEMP22>
+ <DEAD TEMP22>
+ <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE58>
+ <GVAL 'STACK-DEPTH = TEMP22>
+ <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
+ <SETG 'STACK-DEPTH TEMP22>
+ <DEAD TEMP22>
+PHRASE58
+ <ADD CNT37 1 = CNT37 (TYPE FIX)>
+ <RESTL LL36 1 = LL36 (TYPE LIST)>
+ <JUMP + AGAIN42>
+EXIT35
+ <FRAME '\1aPUSHJ>
+ <PUSH 'RECORD>
+ <SET TEMP22 L5>
+ <DEAD L5>
+ <LOOP (TEMP22 VALUE)>
+TAG60
+ <RESTL TEMP22 1 = TYP6 (TYPE LIST)>
+ <EMPL? TYP6 + TAG61>
+ <SET TEMP22 TYP6>
+ <DEAD TYP6>
+ <JUMP + TAG60>
+TAG61
+ <NTHL TEMP22 1 = STACK>
+ <DEAD TEMP22>
+ <CALL '\1aPUSHJ 2 = TYP6>
+ <RETURN TYP6>
+ <DEAD TYP6>
+ <END \1aRECORD!-MIMOC>
+#WORD *31725115662*
+<GFCN \1aEXPLICIT-MAKE-RECORD ("VALUE" ANY ANY ANY) TYP5 L6>
+ <TEMP TEMP11 TEMP10>
+ <INTGO>
+ <EQUAL? TYP5 'ATOM - PHRASE8>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH 'ATOM>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP10 + TAG9 TEMP11>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG13
+ <INTGO>
+ <EMPTY? TEMP10 + TAG9>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG13>
+TAG9
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH 5>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'C1*>
+ <PUSH 10>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'IRECORD>
+ <CALL '\1aPUSHJ 1>
+ <FRAME '\1aPUT-ELEMENTS>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH 0>
+ <PUSH 1>
+ <PUSH (2 3)>
+ <PUSH 4>
+ <PUSH -2>
+ <CALL '\1aPUT-ELEMENTS 6 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE8
+ <EQUAL? TYP5 'GBIND - PHRASE19>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <SET TEMP11 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH 'GBIND>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP10 + TAG20 TEMP11>
+ <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
+TAG23
+ <INTGO>
+ <EMPTY? TEMP10 + TAG20>
+ <NTH1 TEMP10 = STACK>
+ <REST1 TEMP10 = TEMP10>
+ <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
+ <JUMP + TAG23>
+TAG20
+ <CALL '\1aOCEMIT TEMP11>
+ <DEAD TEMP11>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH 5>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'C1*>
+ <PUSH 10>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'IRECORD>
+ <CALL '\1aPUSHJ 1>
+ <FRAME '\1aPUT-ELEMENTS>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH (0 1)>
+ <PUSH 2>
+ <PUSH (3 4)>
+ <CALL '\1aPUT-ELEMENTS 4 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+PHRASE19
+ <EQUAL? TYP5 'LBIND + TAG30>
+ <DEAD TYP5>
+ <RETURN %<>>
+TAG30
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O1*>
+ <SET TEMP10 2 (TYPE FIX)>
+ <SFRAME 'TYPE-CODE>
+ <PUSH 'LBIND>
+ <PUSH 'T>
+ <SCALL '\1aTYPE-CODE 2 = TEMP11 + TAG31 TEMP10>
+ <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP10 VALUE)>
+TAG33
+ <INTGO>
+ <EMPTY? TEMP11 + TAG31>
+ <NTH1 TEMP11 = STACK>
+ <REST1 TEMP11 = TEMP11>
+ <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
+ <JUMP + TAG33>
+TAG31
+ <CALL '\1aOCEMIT TEMP10>
+ <DEAD TEMP10>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'O2*>
+ <PUSH 8>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEI>
+ <PUSH 'C1*>
+ <PUSH 16>
+ <CALL '\1aOCEMIT 3>
+ <FRAME '\1aPUSHJ>
+ <PUSH 'IRECORD>
+ <CALL '\1aPUSHJ 1>
+ <FRAME '\1aPUT-ELEMENTS>
+ <PUSH L6>
+ <DEAD L6>
+ <PUSH (0 1)>
+ <PUSH 2>
+ <PUSH (3 4)>
+ <PUSH 5>
+ <PUSH 6>
+ <PUSH 7>
+ <CALL '\1aPUT-ELEMENTS 7 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aEXPLICIT-MAKE-RECORD>
+#WORD *22604025774*
+<GFCN \1aPUT-ELEMENTS ("VALUE" ANY LIST "TUPLE" <TUPLE [REST <OR FIX <LIST FIX FIX>>]>) L5>
+ <MAKTUP TUP6 TEMP11 VAL7 (B-USED8 %<>) (C-USED9 %<>) TEMP24:LIST OFFS26 TEMP35 TEMP57 = TUP6>
+ <INTGO>
+ <SET VAL7 L5>
+ <LOOP (VAL7 VALUE)>
+TAG10
+ <RESTL VAL7 1 = TEMP11 (TYPE LIST)>
+ <EMPL? TEMP11 + TAG12>
+ <SET VAL7 TEMP11>
+ <DEAD TEMP11>
+ <JUMP + TAG10>
+TAG12
+ <NTHL VAL7 1 = VAL7>
+ <RESTL L5 1 = TEMP24 (TYPE LIST)>
+ <DEAD L5>
+ <CHTYPE TUP6 <TYPE-CODE VECTOR> = TEMP11>
+ <DEAD TUP6>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? TEMP24 + MAPAP17>
+ <EMPUV? TEMP11 + MAPAP17>
+ <NTHL TEMP24 1 = TUP6>
+ <NTHUV TEMP11 1 = OFFS26>
+ <TYPE? TUP6 <TYPE-CODE ATOM> - PHRASE29>
+ <EQUAL? TUP6 VAL7 + PHRASE31>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH TUP6>
+ <CALL '\1aWILL-DIE? 1 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE31>
+ <DEAD TEMP35>
+ <TYPE? B-USED8 <TYPE-CODE FALSE> - BOOL37>
+ <SET B-USED8 'T (TYPE ATOM)>
+ <JUMP + BOOL36>
+BOOL37
+ <TYPE? C-USED9 <TYPE-CODE FALSE> - PHRASE31>
+ <SET C-USED9 'T (TYPE ATOM)>
+BOOL36
+ <TYPE? C-USED9 <TYPE-CODE FALSE> + PHRASE40>
+ <FRAME '\1aLOAD-AC>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <PUSH 'BOTH>
+ <PUSH %<>>
+ <PUSH %<>>
+ <FRAME '\1aGET-AC>
+ <SET TUP6 'C1* (TYPE ATOM)>
+ <PUSH TUP6>
+ <CALL '\1aGET-AC 1 = STACK>
+ <FRAME '\1aGET-AC>
+ <PUSH 'C2*>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 6>
+ <JUMP + PHRASE44>
+PHRASE40
+ <FRAME '\1aLOAD-AC>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <PUSH 'BOTH>
+ <PUSH %<>>
+ <PUSH %<>>
+ <FRAME '\1aGET-AC>
+ <SET TUP6 'B1* (TYPE ATOM)>
+ <PUSH TUP6>
+ <CALL '\1aGET-AC 1 = STACK>
+ <FRAME '\1aGET-AC>
+ <PUSH 'B2*>
+ <CALL '\1aGET-AC 1 = STACK>
+ <CALL '\1aLOAD-AC 6>
+PHRASE44
+ <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE49>
+ <LESS? OFFS26 0 - PHRASE51 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLM>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TUP6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <SUB 0 OFFS26 = STACK (TYPE FIX)>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMN>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <SET TEMP35 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG56 TEMP35>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
+TAG60
+ <INTGO>
+ <EMPTY? TEMP57 + TAG56>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG60>
+TAG56
+ <CALL '\1aOCEMIT TEMP35>
+ <DEAD TEMP35>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROS>
+ <SUB 0 OFFS26 = STACK (TYPE FIX)>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE120>
+PHRASE51
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <FRAME '\1aNEXT-AC>
+ <PUSH TUP6>
+ <CALL '\1aNEXT-AC 1 = STACK>
+ <PUSH OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMN>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <SET TEMP57 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP35 + TAG66 TEMP57>
+ <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG68
+ <INTGO>
+ <EMPTY? TEMP35 + TAG66>
+ <NTH1 TEMP35 = STACK>
+ <REST1 TEMP35 = TEMP35>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG68>
+TAG66
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH OFFS26>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE120>
+PHRASE49
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <NTHL OFFS26 1 = STACK>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE120>
+PHRASE31
+ <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE73>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'O1*>
+ <SET TEMP35 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP57 + TAG74 TEMP35>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
+TAG76
+ <INTGO>
+ <EMPTY? TEMP57 + TAG74>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG76>
+TAG74
+ <CALL '\1aOCEMIT TEMP35>
+ <DEAD TEMP35>
+ <LESS? OFFS26 0 - PHRASE79 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLM>
+ <PUSH 'O2*>
+ <SUB 0 OFFS26 = STACK (TYPE FIX)>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMN>
+ <PUSH 'O1*>
+ <SET TEMP57 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP35 + TAG83 TEMP57>
+ <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG85
+ <INTGO>
+ <EMPTY? TEMP35 + TAG83>
+ <NTH1 TEMP35 = STACK>
+ <REST1 TEMP35 = TEMP35>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG85>
+TAG83
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROS>
+ <SUB 0 OFFS26 = STACK (TYPE FIX)>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE120>
+PHRASE79
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH 'O2*>
+ <PUSH OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'CAMN>
+ <PUSH 'O1*>
+ <SET TEMP35 2 (TYPE FIX)>
+ <SFRAME 'TYPE-WORD>
+ <PUSH 'FALSE>
+ <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG90 TEMP35>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
+TAG92
+ <INTGO>
+ <EMPTY? TEMP57 + TAG90>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG92>
+TAG90
+ <CALL '\1aOCEMIT TEMP35>
+ <DEAD TEMP35>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH OFFS26>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE120>
+PHRASE73
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'O1*>
+ <SET TEMP57 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP35 + TAG96 TEMP57>
+ <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
+TAG98
+ <INTGO>
+ <EMPTY? TEMP35 + TAG96>
+ <NTH1 TEMP35 = STACK>
+ <REST1 TEMP35 = TEMP35>
+ <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
+ <JUMP + TAG98>
+TAG96
+ <CALL '\1aOCEMIT TEMP57>
+ <DEAD TEMP57>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH 'O1*>
+ <NTHL OFFS26 1 = STACK>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE120>
+PHRASE29
+ <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE101>
+ <TYPE? TUP6 <TYPE-CODE FALSE> - PHRASE103>
+ <LESS? OFFS26 0 - PHRASE105 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRROS>
+ <SUB 0 OFFS26 = STACK (TYPE FIX)>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE120>
+PHRASE105
+ <FRAME '\1aOCEMIT>
+ <PUSH 'SETZM>
+ <PUSH OFFS26>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 3>
+ <JUMP + PHRASE120>
+PHRASE103
+ <FRAME '\1aGET-INTO-ACS>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <PUSH 'VALUE>
+ <PUSH 'O*>
+ <CALL '\1aGET-INTO-ACS 3>
+ <LESS? OFFS26 0 - PHRASE114 (TYPE FIX)>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'HRLM>
+ <PUSH 'O*>
+ <SUB 0 OFFS26 = STACK (TYPE FIX)>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE120>
+PHRASE114
+ <FRAME '\1aOCEMIT>
+ <PUSH 'MOVEM>
+ <PUSH 'O*>
+ <PUSH OFFS26>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+ <JUMP + PHRASE120>
+PHRASE101
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVE>
+ <PUSH 'O1*>
+ <SET TEMP35 2 (TYPE FIX)>
+ <SFRAME 'OBJ-TYP>
+ <PUSH TUP6>
+ <DEAD TUP6>
+ <SCALL '\1aOBJ-TYP 1 = TEMP57 + TAG121 TEMP35>
+ <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
+TAG123
+ <INTGO>
+ <EMPTY? TEMP57 + TAG121>
+ <NTH1 TEMP57 = STACK>
+ <REST1 TEMP57 = TEMP57>
+ <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
+ <JUMP + TAG123>
+TAG121
+ <CALL '\1aOCEMIT TEMP35>
+ <DEAD TEMP35>
+ <FRAME '\1aOCEMIT>
+ <PUSH 'DMOVEM>
+ <PUSH 'O1*>
+ <NTHL OFFS26 1 = STACK>
+ <DEAD OFFS26>
+ <PUSH (A2*)>
+ <CALL '\1aOCEMIT 4>
+PHRASE120
+ <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
+ <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
+ <JUMP + MAP14>
+MAPAP17
+ <FRAME '\1aPUSHJ-VAL>
+ <PUSH VAL7>
+ <DEAD VAL7>
+ <CALL '\1aPUSHJ-VAL 1 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPUT-ELEMENTS>\r\r
+#WORD *37523704512*
+<GFCN \1aNTH-PUT-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> LIST STRING ANY ANY ANY) OL4 INS5 STRUC6 AMT7 VAL8>
+ <TEMP (AC9 %<>) L10:LIST (DEAD?13 %<>) TEMP26 NXT11 TEMP32 TEMP33 TEMP34 TEMP35>
+ <INTGO>
+ <GEN-LVAL 'MIML = AC9>
+ <RESTL AC9 1 = L10 (TYPE LIST)>
+ <DEAD AC9>
+ <CHTYPE L10 <TYPE-CODE LIST> = L10>
+ <SET AC9 L10>
+ <SET TEMP26 4 (TYPE FIX)>
+ <LOOP (AC9 VALUE) (TEMP26 VALUE)>
+TAG27
+ <EMPL? AC9 + PHRASE24>
+ <RESTL AC9 1 = AC9 (TYPE LIST)>
+ <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
+ <GRTR? TEMP26 0 + TAG27 (TYPE FIX)>
+ <NTHL L10 1 = NXT11>
+ <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE24>
+ <SET AC9 NXT11>
+ <SET TEMP26 5 (TYPE FIX)>
+ <LOOP (AC9 VALUE) (TEMP26 VALUE)>
+TAG29
+ <EMPL? AC9 + PHRASE24>
+ <RESTL AC9 1 = AC9 (TYPE LIST)>
+ <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
+ <GRTR? TEMP26 0 + TAG29 (TYPE FIX)>
+ <NTHL NXT11 1 = AC9 (TYPE ATOM)>
+ <NTHR AC9 3 = TEMP26 (RECORD-TYPE ATOM)>
+ <DEAD AC9>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "ADD" + BOOL30>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET AC9 TEMP26>
+ <SET TEMP32 "ADD" (TYPE STRING)>
+ <LENUS AC9 = TEMP33 (TYPE FIX)>
+ <VEQUAL? TEMP33 3 - TAG31>
+ <LOOP (AC9 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP33 VALUE)>
+TAG36
+ <NTHUS AC9 1 = TEMP34>
+ <NTHUS TEMP32 1 = TEMP35>
+ <VEQUAL? TEMP34 TEMP35 - TAG31>
+ <DEAD TEMP34 TEMP35>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
+ <GRTR? TEMP33 0 + TAG36 (TYPE FIX)>
+ <JUMP + BOOL30>
+ <ENDIF "STRING-EQUAL?">
+TAG31
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "SUB" - PHRASE24>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP32 TEMP26>
+ <SET AC9 "SUB" (TYPE STRING)>
+ <LENUS TEMP32 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 3 - PHRASE24>
+ <LOOP (TEMP32 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP35 VALUE)>
+TAG38
+ <NTHUS TEMP32 1 = TEMP34>
+ <NTHUS AC9 1 = TEMP33>
+ <VEQUAL? TEMP34 TEMP33 - PHRASE24>
+ <DEAD TEMP34 TEMP33>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
+ <GRTR? TEMP35 0 + TAG38 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+BOOL30
+ <RESTL NXT11 1 = AC9 (TYPE LIST)>
+ <NTHL AC9 1 = AC9>
+ <EQUAL? AC9 VAL8 - PHRASE24>
+ <DEAD AC9>
+ <RESTL NXT11 1 = AC9 (TYPE LIST)>
+ <RESTL AC9 1 = AC9 (TYPE LIST)>
+ <NTHL AC9 1 = AC9>
+ <EQUAL? AC9 1 - PHRASE24>
+ <DEAD AC9>
+ <NTHL NXT11 5 = AC9>
+ <DEAD NXT11>
+ <EQUAL? AC9 VAL8 - PHRASE24>
+ <DEAD AC9>
+ <RESTL L10 1 = AC9 (TYPE LIST)>
+ <NTHL AC9 1 = NXT11>
+ <DEAD AC9>
+ <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE24>
+ <SET AC9 NXT11>
+ <SET TEMP32 4 (TYPE FIX)>
+ <LOOP (AC9 VALUE) (TEMP32 VALUE)>
+TAG39
+ <EMPL? AC9 + PHRASE24>
+ <RESTL AC9 1 = AC9 (TYPE LIST)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG39 (TYPE FIX)>
+ <NTHL NXT11 1 = AC9 (TYPE ATOM)>
+ <NTHR AC9 3 = AC9 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? AC9 INS5 - PHRASE24>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 INS5>
+ <LENUS AC9 = TEMP34 (TYPE FIX)>
+ <LENUS TEMP33 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP34 TEMP32 - PHRASE24>
+ <DEAD TEMP32>
+ <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
+TAG42
+ <NTHUS AC9 1 = TEMP32>
+ <NTHUS TEMP33 1 = TEMP35>
+ <VEQUAL? TEMP32 TEMP35 - PHRASE24>
+ <DEAD TEMP32 TEMP35>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG42 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 STRUC6 - PHRASE24>
+ <DEAD TEMP33 STRUC6>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 AMT7 - PHRASE24>
+ <DEAD TEMP33 AMT7>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 VAL8 - PHRASE24>
+ <DEAD TEMP33>
+ <SETG 'NEXT-FLUSH 2>
+ <RESTL L10 1 = TEMP33 (TYPE LIST)>
+ <DEAD L10>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = NXT11>
+ <DEAD TEMP33>
+ <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE44>
+ <EMPL? NXT11 + PHRASE44>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <EMPL? TEMP33 + PHRASE44>
+ <DEAD TEMP33>
+ <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
+ <NTHR TEMP33 3 = TEMP33 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP33 "DEAD" - PHRASE44>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET AC9 "DEAD" (TYPE STRING)>
+ <LENUS TEMP33 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 4 - PHRASE44>
+ <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP35 VALUE)>
+TAG47
+ <NTHUS TEMP33 1 = TEMP32>
+ <NTHUS AC9 1 = TEMP34>
+ <VEQUAL? TEMP32 TEMP34 - PHRASE44>
+ <DEAD TEMP32 TEMP34>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
+ <GRTR? TEMP35 0 + TAG47 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RESTL NXT11 1 = AC9 (TYPE LIST)>
+ <DEAD NXT11>
+ <CHTYPE AC9 <TYPE-CODE LIST> = AC9>
+ <TYPE VAL8 = TEMP33>
+ <EMPL? AC9 + PHRASE44>
+ <LOOP (VAL8 VALUE) (TEMP33 VALUE) (AC9 VALUE)>
+TAG49
+ <NTHL AC9 1 = TEMP34>
+ <TYPE? TEMP34 TEMP33 - TAG50>
+ <VEQUAL? TEMP34 VAL8 + TAG48>
+ <DEAD TEMP34>
+TAG50
+ <RESTL AC9 1 = AC9 (TYPE LIST)>
+ <EMPL? AC9 - TAG49>
+ <JUMP + PHRASE44>
+TAG48
+ <SET DEAD?13 'T (TYPE ATOM)>
+PHRASE44
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTL" - PHRASE52>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET AC9 INS5>
+ <SET TEMP33 "PUTL" (TYPE STRING)>
+ <LENUS AC9 = TEMP34 (TYPE FIX)>
+ <VEQUAL? TEMP34 4 - PHRASE52>
+ <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
+TAG54
+ <NTHUS AC9 1 = TEMP32>
+ <NTHUS TEMP33 1 = NXT11>
+ <VEQUAL? TEMP32 NXT11 - PHRASE52>
+ <DEAD TEMP32 NXT11>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG54 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aNTHL!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "ADD" - PHRASE57>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 TEMP26>
+ <DEAD TEMP26>
+ <SET AC9 "ADD" (TYPE STRING)>
+ <LENUS TEMP33 = NXT11 (TYPE FIX)>
+ <VEQUAL? NXT11 3 - PHRASE57>
+ <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (NXT11 VALUE)>
+TAG59
+ <NTHUS TEMP33 1 = TEMP32>
+ <NTHUS AC9 1 = TEMP34>
+ <VEQUAL? TEMP32 TEMP34 - PHRASE57>
+ <DEAD TEMP32 TEMP34>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <SUB NXT11 1 = NXT11 (TYPE FIX)>
+ <GRTR? NXT11 0 + TAG59 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <SET AC9 'AOS (TYPE ATOM)>
+ <JUMP + PHRASE60>
+PHRASE57
+ <SET AC9 'SOS (TYPE ATOM)>
+PHRASE60
+ <PUSH AC9>
+ <DEAD AC9>
+ <VEQUAL? DEAD?13 0 - TAG61>
+ <DEAD DEAD?13>
+ <SET AC9 'T (TYPE ATOM)>
+ <JUMP + TAG62>
+TAG61
+ <SET AC9 %<> (TYPE FALSE)>
+TAG62
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aNTHL!-MIMOC 3>
+ <RETURN 'T>
+PHRASE52
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTUU" - TAG65>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET AC9 INS5>
+ <DEAD INS5>
+ <SET TEMP33 "PUTUU" (TYPE STRING)>
+ <LENUS AC9 = TEMP34 (TYPE FIX)>
+ <VEQUAL? TEMP34 5 - TAG65>
+ <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
+TAG67
+ <NTHUS AC9 1 = TEMP32>
+ <NTHUS TEMP33 1 = NXT11>
+ <VEQUAL? TEMP32 NXT11 - TAG65>
+ <DEAD TEMP32 NXT11>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG67 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <PUSH 'T>
+ <JUMP + TAG68>
+TAG65
+ <PUSH %<>>
+TAG68
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "ADD" - PHRASE70>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 TEMP26>
+ <DEAD TEMP26>
+ <SET AC9 "ADD" (TYPE STRING)>
+ <LENUS TEMP33 = NXT11 (TYPE FIX)>
+ <VEQUAL? NXT11 3 - PHRASE70>
+ <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (NXT11 VALUE)>
+TAG72
+ <NTHUS TEMP33 1 = TEMP32>
+ <NTHUS AC9 1 = TEMP34>
+ <VEQUAL? TEMP32 TEMP34 - PHRASE70>
+ <DEAD TEMP32 TEMP34>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <SUB NXT11 1 = NXT11 (TYPE FIX)>
+ <GRTR? NXT11 0 + TAG72 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <SET AC9 'AOS (TYPE ATOM)>
+ <JUMP + PHRASE73>
+PHRASE70
+ <SET AC9 'SOS (TYPE ATOM)>
+PHRASE73
+ <PUSH AC9>
+ <DEAD AC9>
+ <VEQUAL? DEAD?13 0 - TAG74>
+ <DEAD DEAD?13>
+ <SET AC9 'T (TYPE ATOM)>
+ <JUMP + TAG75>
+TAG74
+ <SET AC9 %<> (TYPE FALSE)>
+TAG75
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aNTHUV!-MIMOC 4>
+ <RETURN 'T>
+PHRASE24
+ <SET TEMP33 L10>
+ <SET TEMP34 4 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (TEMP34 VALUE)>
+TAG78
+ <EMPL? TEMP33 + PHRASE76>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG78 (TYPE FIX)>
+ <NTHL L10 1 = NXT11>
+ <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE76>
+ <SET TEMP33 NXT11>
+ <SET TEMP32 4 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
+TAG79
+ <EMPL? TEMP33 + PHRASE76>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG79 (TYPE FIX)>
+ <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
+ <NTHR TEMP33 3 = TEMP26 (RECORD-TYPE ATOM)>
+ <DEAD TEMP33>
+ <LENUS TEMP26 = TEMP33 (TYPE FIX)>
+ <VEQUAL? TEMP33 5 - BOOL81 (TYPE FIX)>
+ <DEAD TEMP33>
+ <FRAME '\1aMEMBER>
+ <PUSH "LENU">
+ <PUSH TEMP26>
+ <CALL '\1aMEMBER 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL81>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 VAL8 - BOOL81>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 VAL8 + BOOL83>
+ <DEAD TEMP33>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <PUSH L10>
+ <CALL '\1aWILL-DIE? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL81>
+ <DEAD TEMP33>
+BOOL83
+ <RESTL L10 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = AC9>
+ <DEAD TEMP33>
+ <TYPE? AC9 <TYPE-CODE FORM> - PHRASE86>
+ <SET TEMP33 AC9>
+ <SET TEMP26 5 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (TEMP26 VALUE)>
+TAG89
+ <EMPL? TEMP33 + PHRASE86>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
+ <GRTR? TEMP26 0 + TAG89 (TYPE FIX)>
+ <FRAME '\1aLOOKUP>
+ <NTHL AC9 1 = TEMP33 (TYPE ATOM)>
+ <NTHR TEMP33 3 = STACK (RECORD-TYPE ATOM)>
+ <DEAD TEMP33>
+ <GVAL 'MIMOC-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = TEMP33>
+ <GVAL 'COMPARERS = DEAD?13>
+ <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE86>
+ <EMPUV? DEAD?13 + PHRASE86>
+ <LOOP (TEMP33 VALUE) (DEAD?13 LENGTH VALUE)>
+TAG91
+ <NTHUV DEAD?13 1 = TEMP32>
+ <VEQUAL? TEMP32 TEMP33 + TAG90>
+ <DEAD TEMP32>
+ <RESTUV DEAD?13 1 = DEAD?13 (TYPE VECTOR)>
+ <EMPUV? DEAD?13 - TAG91>
+ <JUMP + PHRASE86>
+TAG90
+ <RESTL NXT11 1 = DEAD?13 (TYPE LIST)>
+ <RESTL DEAD?13 1 = DEAD?13 (TYPE LIST)>
+ <RESTL DEAD?13 1 = DEAD?13 (TYPE LIST)>
+ <NTHL DEAD?13 1 = DEAD?13>
+ <RESTL AC9 1 = TEMP33 (TYPE LIST)>
+ <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
+ <TYPE DEAD?13 = TEMP32>
+ <EMPL? TEMP33 + PHRASE86>
+ <LOOP (DEAD?13 VALUE) (TEMP32 VALUE) (TEMP33 VALUE)>
+TAG97
+ <NTHL TEMP33 1 = TEMP34>
+ <TYPE? TEMP34 TEMP32 - TAG98>
+ <VEQUAL? TEMP34 DEAD?13 + TAG96>
+ <DEAD TEMP34>
+TAG98
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <EMPL? TEMP33 - TAG97>
+ <JUMP + PHRASE86>
+TAG96
+ <FRAME '\1aWILL-DIE?>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <RESTL L10 1 = STACK (TYPE LIST)>
+ <DEAD L10>
+ <CALL '\1aWILL-DIE? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD TEMP33>
+ <FRAME '\1aWILL-DIE?>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <CHTYPE AC9 <TYPE-CODE LIST> = TEMP33>
+ <DEAD AC9>
+ <LOOP>
+MAP103
+ <INTGO>
+ <EMPL? TEMP33 + MAPAP106>
+ <SET L10 TEMP33>
+ <NTHL L10 1 = AC9>
+ <EQUAL? AC9 '+ + BOOL113>
+ <EQUAL? AC9 '- - PHRASE112>
+ <DEAD AC9>
+BOOL113
+ <RESTL L10 1 = AC9 (TYPE LIST)>
+ <DEAD L10>
+ <NTHL AC9 1 = TEMP34 (TYPE ATOM)>
+ <DEAD AC9>
+ <JUMP + MAPAP106>
+PHRASE112
+ <RESTL L10 1 = AC9 (TYPE LIST)>
+ <DEAD L10>
+ <EMPL? AC9 + TAG117 (TYPE LIST)>
+ <DEAD AC9>
+ <SET TEMP34 %<> (TYPE FALSE)>
+ <JUMP + PHRASE116>
+TAG117
+ <FRAME '\1aERROR>
+ <PUSH 'HUH?!-ERRORS>
+ <CALL '\1aERROR 1 = TEMP34>
+PHRASE116
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <JUMP + MAP103>
+MAPAP106
+ <GVAL TEMP34 = TEMP33>
+ <DEAD TEMP34>
+ <NTHUV TEMP33 7 = STACK (TYPE LIST)>
+ <DEAD TEMP33>
+ <CALL '\1aWILL-DIE? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE86>
+ <DEAD TEMP33>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTL" - PHRASE120>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 INS5>
+ <DEAD INS5>
+ <SET TEMP34 "PUTL" (TYPE STRING)>
+ <LENUS TEMP33 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 4 - PHRASE120>
+ <LOOP (TEMP33 VALUE LENGTH) (TEMP34 VALUE LENGTH) (TEMP32 VALUE)>
+TAG122
+ <NTHUS TEMP33 1 = AC9>
+ <NTHUS TEMP34 1 = DEAD?13>
+ <VEQUAL? AC9 DEAD?13 - PHRASE120>
+ <DEAD AC9 DEAD?13>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG122 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aNTHL!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH 'HRRZ>
+ <PUSH %<>>
+ <CALL '\1aNTHL!-MIMOC 3>
+ <SETG 'NEXT-FLUSH 1>
+ <JUMP + PHRASE124>
+PHRASE120
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH %<>>
+ <PUSH 'HRRZ>
+ <PUSH %<>>
+ <CALL '\1aNTHUV!-MIMOC 4>
+ <SETG 'NEXT-FLUSH 1>
+PHRASE124
+ <FRAME '\1aGET-AC>
+ <PUSH 'O*>
+ <CALL '\1aGET-AC 1 = TEMP34>
+ <PUTUV TEMP34 3 'VALUE (TYPE ATOM)>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <PUTUV TEMP34 2 TEMP33>
+ <DEAD TEMP34 TEMP33>
+ <RETURN 'T>
+PHRASE86
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTL" - PHRASE129>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP34 INS5>
+ <DEAD INS5>
+ <SET TEMP33 "PUTL" (TYPE STRING)>
+ <LENUS TEMP34 = DEAD?13 (TYPE FIX)>
+ <VEQUAL? DEAD?13 4 - PHRASE129>
+ <LOOP (TEMP34 VALUE LENGTH) (TEMP33 VALUE LENGTH) (DEAD?13 VALUE)>
+TAG131
+ <NTHUS TEMP34 1 = AC9>
+ <NTHUS TEMP33 1 = TEMP32>
+ <VEQUAL? AC9 TEMP32 - PHRASE129>
+ <DEAD AC9 TEMP32>
+ <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
+ <GRTR? DEAD?13 0 + TAG131 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aNTHL!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH 'HRRZ>
+ <PUSH 'T>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aNTHL!-MIMOC 4>
+ <SETG 'NEXT-FLUSH 1>
+ <RETURN 'T>
+PHRASE129
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH %<>>
+ <PUSH 'HRRZ>
+ <PUSH 'T>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aNTHUV!-MIMOC 5>
+ <SETG 'NEXT-FLUSH 1>
+ <RETURN 'T>
+BOOL81
+ <LENUS TEMP26 = TEMP33 (TYPE FIX)>
+ <VEQUAL? TEMP33 6 - PHRASE76 (TYPE FIX)>
+ <DEAD TEMP33>
+ <FRAME '\1aMEMBER>
+ <PUSH "EMPU">
+ <PUSH TEMP26>
+ <DEAD TEMP26>
+ <CALL '\1aMEMBER 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE76>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 VAL8 - PHRASE76>
+ <DEAD TEMP33>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <PUSH L10>
+ <CALL '\1aWILL-DIE? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE76>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 'COMPERR + BOOL138>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <RESTL L10 1 = TEMP34 (TYPE LIST)>
+ <TYPE TEMP33 = TEMP32>
+ <EMPL? TEMP34 + PHRASE76>
+ <LOOP (TEMP33 VALUE) (TEMP32 VALUE) (TEMP34 VALUE)>
+TAG142
+ <NTHL TEMP34 1 = AC9>
+ <TYPE? AC9 TEMP32 - TAG143>
+ <VEQUAL? AC9 TEMP33 + TAG141>
+ <DEAD AC9>
+TAG143
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <EMPL? TEMP34 - TAG142>
+ <JUMP + PHRASE76>
+TAG141
+ <SET AC9 TEMP34>
+ <DEAD TEMP34>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <PUSH AC9>
+ <DEAD AC9>
+ <CALL '\1aWILL-DIE? 2 = TEMP34>
+ <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE76>
+ <DEAD TEMP34>
+BOOL138
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTL" - PHRASE148>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP32 INS5>
+ <DEAD INS5>
+ <SET TEMP33 "PUTL" (TYPE STRING)>
+ <LENUS TEMP32 = AC9 (TYPE FIX)>
+ <VEQUAL? AC9 4 - PHRASE148>
+ <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
+TAG151
+ <NTHUS TEMP32 1 = DEAD?13>
+ <NTHUS TEMP33 1 = TEMP34>
+ <VEQUAL? DEAD?13 TEMP34 - PHRASE148>
+ <DEAD DEAD?13 TEMP34>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB AC9 1 = AC9 (TYPE FIX)>
+ <GRTR? AC9 0 + TAG151 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aNTHL!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH 'HRRZ>
+ <PUSH %<>>
+ <CALL '\1aNTHL!-MIMOC 3>
+ <SETG 'NEXT-FLUSH 1>
+ <JUMP + PHRASE153>
+PHRASE148
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH %<>>
+ <PUSH 'HRRZ>
+ <PUSH %<>>
+ <CALL '\1aNTHUV!-MIMOC 4>
+ <SETG 'NEXT-FLUSH 1>
+PHRASE153
+ <FRAME '\1aLABEL-UPDATE-ACS>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <PUSH %<>>
+ <CALL '\1aLABEL-UPDATE-ACS 2>
+ <FRAME '\1aOCEMIT>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 '+ - PHRASE158>
+ <DEAD TEMP33>
+ <SET TEMP33 'JUMPE (TYPE ATOM)>
+ <JUMP + PHRASE159>
+PHRASE158
+ <SET TEMP33 'JUMPN (TYPE ATOM)>
+PHRASE159
+ <PUSH TEMP33>
+ <DEAD TEMP33>
+ <PUSH 'O*>
+ <FRAME '\1aXJUMP>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <CALL '\1aXJUMP 1 = STACK>
+ <CALL '\1aOCEMIT 3>
+ <RETURN 'T>
+PHRASE76
+ <SET TEMP33 L10>
+ <SET TEMP32 4 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
+TAG163
+ <EMPL? TEMP33 + PHRASE161>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG163 (TYPE FIX)>
+ <NTHL L10 1 = NXT11>
+ <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE161>
+ <SET TEMP33 NXT11>
+ <SET TEMP34 5 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (TEMP34 VALUE)>
+TAG164
+ <EMPL? TEMP33 + PHRASE161>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG164 (TYPE FIX)>
+ <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
+ <NTHR TEMP33 3 = TEMP26 (RECORD-TYPE ATOM)>
+ <DEAD TEMP33>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "VEQUAL?" + BOOL165>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 TEMP26>
+ <SET DEAD?13 "VEQUAL?" (TYPE STRING)>
+ <LENUS TEMP33 = AC9 (TYPE FIX)>
+ <VEQUAL? AC9 7 - TAG166>
+ <LOOP (TEMP33 VALUE LENGTH) (DEAD?13 VALUE LENGTH) (AC9 VALUE)>
+TAG170
+ <NTHUS TEMP33 1 = TEMP32>
+ <NTHUS DEAD?13 1 = TEMP34>
+ <VEQUAL? TEMP32 TEMP34 - TAG166>
+ <DEAD TEMP32 TEMP34>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS DEAD?13 1 = DEAD?13 (TYPE STRING)>
+ <SUB AC9 1 = AC9 (TYPE FIX)>
+ <GRTR? AC9 0 + TAG170 (TYPE FIX)>
+ <JUMP + BOOL165>
+ <ENDIF "STRING-EQUAL?">
+TAG166
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "EQUAL?" - PHRASE161>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET DEAD?13 TEMP26>
+ <SET TEMP33 "EQUAL?" (TYPE STRING)>
+ <LENUS DEAD?13 = TEMP34 (TYPE FIX)>
+ <VEQUAL? TEMP34 6 - PHRASE161>
+ <LOOP (DEAD?13 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
+TAG172
+ <NTHUS DEAD?13 1 = TEMP32>
+ <NTHUS TEMP33 1 = AC9>
+ <VEQUAL? TEMP32 AC9 - PHRASE161>
+ <DEAD TEMP32 AC9>
+ <RESTUS DEAD?13 1 = DEAD?13 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG172 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+BOOL165
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 VAL8 + BOOL173>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 VAL8 - PHRASE161>
+ <DEAD TEMP33>
+ <FRAME '\1aFORM>
+ <NTHL NXT11 1 = STACK (TYPE ATOM)>
+ <PUSH VAL8>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = STACK>
+ <DEAD TEMP33>
+ <SET DEAD?13 3 (TYPE FIX)>
+ <RESTL NXT11 1 = AC9 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL AC9 1 = AC9 (TYPE LIST)>
+ <RESTL AC9 1 = TEMP33 (TYPE LIST)>
+ <DEAD AC9>
+ <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
+ <LOOP (TEMP33 VALUE) (DEAD?13 VALUE)>
+TAG176
+ <INTGO>
+ <EMPL? TEMP33 + TAG175>
+ <NTHL TEMP33 1 = STACK>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <ADD DEAD?13 1 = DEAD?13 (TYPE FIX)>
+ <JUMP + TAG176>
+TAG175
+ <CALL '\1aFORM DEAD?13 = NXT11>
+ <DEAD DEAD?13>
+BOOL173
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = DEAD?13>
+ <DEAD TEMP33>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <GEN-SET 'DIR TEMP33>
+ <DEAD TEMP33>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "VEQUAL?" - PHRASE185>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 TEMP26>
+ <SET AC9 "VEQUAL?" (TYPE STRING)>
+ <LENUS TEMP33 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 7 - PHRASE185>
+ <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP32 VALUE)>
+TAG188
+ <NTHUS TEMP33 1 = TEMP34>
+ <NTHUS AC9 1 = TEMP35>
+ <VEQUAL? TEMP34 TEMP35 - PHRASE185>
+ <DEAD TEMP34 TEMP35>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG188 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aIN-AC?>
+ <PUSH DEAD?13>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = AC9>
+ <TYPE? AC9 <TYPE-CODE FALSE> - BOOL195>
+ <DEAD AC9>
+ <JUMP + PHRASE190>
+PHRASE185
+ <FRAME '\1aIN-AC?>
+ <PUSH DEAD?13>
+ <PUSH 'BOTH>
+ <CALL '\1aIN-AC? 2 = AC9>
+ <TYPE? AC9 <TYPE-CODE FALSE> - BOOL195>
+ <DEAD AC9>
+PHRASE190
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP26 "VEQUAL?" - PHRASE161>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET AC9 TEMP26>
+ <DEAD TEMP26>
+ <SET TEMP33 "VEQUAL?" (TYPE STRING)>
+ <LENUS AC9 = TEMP35 (TYPE FIX)>
+ <VEQUAL? TEMP35 7 - PHRASE161>
+ <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP35 VALUE)>
+TAG194
+ <NTHUS AC9 1 = TEMP34>
+ <NTHUS TEMP33 1 = TEMP32>
+ <VEQUAL? TEMP34 TEMP32 - PHRASE161>
+ <DEAD TEMP34 TEMP32>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
+ <GRTR? TEMP35 0 + TAG194 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aPRIMTYPE>
+ <PUSH DEAD?13>
+ <CALL '\1aPRIMTYPE 1 = TEMP33>
+ <VEQUAL? TEMP33 'FIX - BOOL196>
+ <DEAD TEMP33>
+ <VEQUAL? DEAD?13 0 + BOOL195 (TYPE FIX)>
+BOOL196
+ <FRAME '\1aPRIMTYPE>
+ <PUSH DEAD?13>
+ <CALL '\1aPRIMTYPE 1 = TEMP33>
+ <VEQUAL? TEMP33 'LIST - PHRASE161>
+ <DEAD TEMP33>
+ <EMPL? DEAD?13 - PHRASE161 (TYPE LIST)>
+ <DEAD DEAD?13>
+BOOL195
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <PUSH L10>
+ <CALL '\1aWILL-DIE? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE161>
+ <DEAD TEMP33>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <FRAME '\1aFIND-LABEL>
+ <NTHL NXT11 5 = STACK>
+ <CALL '\1aFIND-LABEL 1 = TEMP33>
+ <NTHUV TEMP33 7 = STACK (TYPE LIST)>
+ <DEAD TEMP33>
+ <CALL '\1aWILL-DIE? 2 = TEMP33>
+ <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE161>
+ <DEAD TEMP33>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTL" - PHRASE206>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 INS5>
+ <SET AC9 "PUTL" (TYPE STRING)>
+ <LENUS TEMP33 = TEMP32 (TYPE FIX)>
+ <VEQUAL? TEMP32 4 - PHRASE206>
+ <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP32 VALUE)>
+TAG208
+ <NTHUS TEMP33 1 = TEMP34>
+ <NTHUS AC9 1 = DEAD?13>
+ <VEQUAL? TEMP34 DEAD?13 - PHRASE206>
+ <DEAD TEMP34 DEAD?13>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG208 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aNTHL!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH NXT11>
+ <DEAD NXT11>
+ <PUSH %<>>
+ <CALL '\1aNTHL!-MIMOC 3>
+ <SETG 'NEXT-FLUSH 1>
+ <RETURN 'T>
+PHRASE206
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTUU" - TAG212>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET AC9 INS5>
+ <DEAD INS5>
+ <SET TEMP33 "PUTUU" (TYPE STRING)>
+ <LENUS AC9 = DEAD?13 (TYPE FIX)>
+ <VEQUAL? DEAD?13 5 - TAG212>
+ <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (DEAD?13 VALUE)>
+TAG214
+ <NTHUS AC9 1 = TEMP34>
+ <NTHUS TEMP33 1 = TEMP32>
+ <VEQUAL? TEMP34 TEMP32 - TAG212>
+ <DEAD TEMP34 TEMP32>
+ <RESTUS AC9 1 = AC9 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
+ <GRTR? DEAD?13 0 + TAG214 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <PUSH 'T>
+ <JUMP + TAG215>
+TAG212
+ <PUSH %<>>
+TAG215
+ <PUSH NXT11>
+ <DEAD NXT11>
+ <PUSH %<>>
+ <CALL '\1aNTHUV!-MIMOC 4>
+ <SETG 'NEXT-FLUSH 1>
+ <RETURN 'T>
+PHRASE161
+ <SET TEMP33 L10>
+ <SET AC9 4 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (AC9 VALUE)>
+TAG219
+ <EMPL? TEMP33 + TAG220>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB AC9 1 = AC9 (TYPE FIX)>
+ <GRTR? AC9 0 + TAG219 (TYPE FIX)>
+ <JUMP + TAG218>
+TAG220
+ <RETURN %<>>
+TAG218
+ <NTHL L10 1 = NXT11>
+ <TYPE? NXT11 <TYPE-CODE FORM> + TAG221>
+ <RETURN %<>>
+TAG221
+ <SET TEMP33 NXT11>
+ <SET TEMP32 5 (TYPE FIX)>
+ <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
+TAG224
+ <EMPL? TEMP33 + TAG225>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
+ <GRTR? TEMP32 0 + TAG224 (TYPE FIX)>
+ <JUMP + TAG223>
+TAG225
+ <RETURN %<>>
+TAG223
+ <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
+ <NTHR TEMP33 3 = TEMP33 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP33 "TYPE?" + TAG226>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP34 "TYPE?" (TYPE STRING)>
+ <LENUS TEMP33 = AC9 (TYPE FIX)>
+ <VEQUAL? AC9 5 - TAG227>
+ <LOOP (TEMP33 VALUE LENGTH) (TEMP34 VALUE LENGTH) (AC9 VALUE)>
+TAG231
+ <NTHUS TEMP33 1 = DEAD?13>
+ <NTHUS TEMP34 1 = TEMP32>
+ <VEQUAL? DEAD?13 TEMP32 - TAG227>
+ <DEAD DEAD?13 TEMP32>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
+ <SUB AC9 1 = AC9 (TYPE FIX)>
+ <GRTR? AC9 0 + TAG231 (TYPE FIX)>
+ <JUMP + TAG226>
+ <ENDIF "STRING-EQUAL?">
+TAG227
+ <RETURN %<>>
+TAG226
+ <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
+ <NTHL TEMP34 1 = TEMP34>
+ <EQUAL? TEMP34 VAL8 + TAG232>
+ <DEAD TEMP34>
+ <RETURN %<>>
+TAG232
+ <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <NTHL TEMP34 1 = TEMP35>
+ <DEAD TEMP34>
+ <TYPE? TEMP35 <TYPE-CODE FIX> + TAG233>
+ <RETURN %<>>
+TAG233
+ <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <NTHL TEMP34 1 = TEMP34>
+ <EQUAL? TEMP34 '- + TAG235>
+ <DEAD TEMP34>
+ <RETURN %<>>
+TAG235
+ <NTHL NXT11 5 = TEMP26>
+ <DEAD NXT11>
+ <SET AC9 TEMP26>
+ <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE216>
+ <RESTL L10 1 = TEMP34 (TYPE LIST)>
+ <NTHL TEMP34 1 = NXT11>
+ <DEAD TEMP34>
+ <TYPE? NXT11 <TYPE-CODE FORM> + TAG236>
+ <RETURN %<>>
+TAG236
+ <SET TEMP34 NXT11>
+ <SET TEMP33 5 (TYPE FIX)>
+ <LOOP (TEMP34 VALUE) (TEMP33 VALUE)>
+TAG239
+ <EMPL? TEMP34 + TAG240>
+ <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
+ <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
+ <GRTR? TEMP33 0 + TAG239 (TYPE FIX)>
+ <JUMP + TAG238>
+TAG240
+ <RETURN %<>>
+TAG238
+ <NTHL NXT11 1 = TEMP34 (TYPE ATOM)>
+ <NTHR TEMP34 3 = TEMP34 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP34 "VEQUAL?" + TAG241>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP32 "VEQUAL?" (TYPE STRING)>
+ <LENUS TEMP34 = DEAD?13 (TYPE FIX)>
+ <VEQUAL? DEAD?13 7 - TAG242>
+ <LOOP (TEMP34 VALUE LENGTH) (TEMP32 VALUE LENGTH) (DEAD?13 VALUE)>
+TAG245
+ <NTHUS TEMP34 1 = AC9>
+ <NTHUS TEMP32 1 = TEMP33>
+ <VEQUAL? AC9 TEMP33 - TAG242>
+ <DEAD AC9 TEMP33>
+ <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
+ <GRTR? DEAD?13 0 + TAG245 (TYPE FIX)>
+ <JUMP + TAG241>
+ <ENDIF "STRING-EQUAL?">
+TAG242
+ <RETURN %<>>
+TAG241
+ <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = TEMP32>
+ <EQUAL? TEMP32 VAL8 + BOOL246>
+ <DEAD TEMP32>
+ <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = TEMP32>
+ <EQUAL? TEMP32 VAL8 + TAG248>
+ <DEAD TEMP32>
+ <RETURN %<>>
+TAG248
+ <FRAME '\1aFORM>
+ <NTHL NXT11 1 = STACK (TYPE ATOM)>
+ <PUSH VAL8>
+ <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = STACK>
+ <DEAD TEMP32>
+ <SET TEMP34 3 (TYPE FIX)>
+ <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
+ <DEAD NXT11>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP32 (TYPE LIST)>
+ <DEAD TEMP33>
+ <CHTYPE TEMP32 <TYPE-CODE LIST> = TEMP32>
+ <LOOP (TEMP32 VALUE) (TEMP34 VALUE)>
+TAG250
+ <INTGO>
+ <EMPL? TEMP32 + TAG249>
+ <NTHL TEMP32 1 = STACK>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <ADD TEMP34 1 = TEMP34 (TYPE FIX)>
+ <JUMP + TAG250>
+TAG249
+ <CALL '\1aFORM TEMP34 = NXT11>
+ <DEAD TEMP34>
+BOOL246
+ <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = DEAD?13>
+ <DEAD TEMP32>
+ <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = TEMP32>
+ <EQUAL? TEMP32 '+ - TAG254>
+ <DEAD TEMP32>
+ <SET AC9 'T (TYPE ATOM)>
+ <JUMP + TAG255>
+TAG254
+ <SET AC9 %<> (TYPE FALSE)>
+TAG255
+ <VEQUAL? AC9 0 + PHRASE216>
+ <TYPE? DEAD?13 <TYPE-CODE ATOM> - BOOL257>
+ <FRAME '\1aIN-AC?>
+ <PUSH DEAD?13>
+ <PUSH 'VALUE>
+ <CALL '\1aIN-AC? 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL257>
+ <DEAD TEMP32>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <RESTL L10 1 = STACK (TYPE LIST)>
+ <CALL '\1aWILL-DIE? 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL257>
+ <DEAD TEMP32>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH VAL8>
+ <DEAD VAL8>
+ <FRAME '\1aFIND-LABEL>
+ <NTHL NXT11 5 = STACK>
+ <CALL '\1aFIND-LABEL 1 = TEMP32>
+ <NTHUV TEMP32 7 = STACK (TYPE LIST)>
+ <DEAD TEMP32>
+ <CALL '\1aWILL-DIE? 2 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG271>
+ <DEAD TEMP32>
+BOOL257
+ <FRAME '\1aPRIMTYPE>
+ <PUSH DEAD?13>
+ <CALL '\1aPRIMTYPE 1 = TEMP32>
+ <VEQUAL? TEMP32 'FIX - BOOL264>
+ <DEAD TEMP32>
+ <VEQUAL? DEAD?13 0 + TAG271 (TYPE FIX)>
+BOOL264
+ <FRAME '\1aPRIMTYPE>
+ <PUSH DEAD?13>
+ <CALL '\1aPRIMTYPE 1 = TEMP32>
+ <VEQUAL? TEMP32 'LIST + TAG269>
+ <DEAD TEMP32>
+ <RETURN %<>>
+TAG269
+ <EMPL? DEAD?13 + TAG271 (TYPE LIST)>
+ <DEAD DEAD?13>
+ <RETURN %<>>
+TAG271
+ <RESTL L10 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = TEMP32>
+ <EQUAL? TEMP32 TEMP26 + TAG281>
+ <DEAD TEMP32>
+ <RESTL L10 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = TEMP32>
+ <TYPE? TEMP32 <TYPE-CODE FORM> + TAG274>
+ <DEAD TEMP32>
+ <RETURN %<>>
+TAG274
+ <RESTL L10 1 = TEMP32 (TYPE LIST)>
+ <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
+ <NTHL TEMP32 1 = TEMP32 (TYPE FORM)>
+ <NTHL TEMP32 1 = TEMP32 (TYPE ATOM)>
+ <NTHR TEMP32 3 = TEMP32 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP32 "DEAD" + TAG276>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 "DEAD" (TYPE STRING)>
+ <LENUS TEMP32 = AC9 (TYPE FIX)>
+ <VEQUAL? AC9 4 - TAG277>
+ <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
+TAG280
+ <NTHUS TEMP32 1 = DEAD?13>
+ <NTHUS TEMP33 1 = TEMP34>
+ <VEQUAL? DEAD?13 TEMP34 - TAG277>
+ <DEAD DEAD?13 TEMP34>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB AC9 1 = AC9 (TYPE FIX)>
+ <GRTR? AC9 0 + TAG280 (TYPE FIX)>
+ <JUMP + TAG276>
+ <ENDIF "STRING-EQUAL?">
+TAG277
+ <RETURN %<>>
+TAG276
+ <RESTL L10 1 = TEMP33 (TYPE LIST)>
+ <DEAD L10>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
+ <NTHL TEMP33 1 = TEMP33>
+ <EQUAL? TEMP33 TEMP26 + TAG281>
+ <DEAD TEMP33 TEMP26>
+ <RETURN %<>>
+TAG281
+ <SETG 'NEXT-FLUSH 2>
+ <CONS TEMP35 NXT11 = TEMP33>
+ <DEAD TEMP35 NXT11>
+ <CONS 'TYPE? TEMP33 = TEMP33>
+ <CHTYPE TEMP33 <TYPE-CODE FORM> = NXT11>
+ <DEAD TEMP33>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTL" - PHRASE283>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP33 INS5>
+ <SET TEMP32 "PUTL" (TYPE STRING)>
+ <LENUS TEMP33 = TEMP34 (TYPE FIX)>
+ <VEQUAL? TEMP34 4 - PHRASE283>
+ <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP34 VALUE)>
+TAG285
+ <NTHUS TEMP33 1 = DEAD?13>
+ <NTHUS TEMP32 1 = AC9>
+ <VEQUAL? DEAD?13 AC9 - PHRASE283>
+ <DEAD DEAD?13 AC9>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
+ <GRTR? TEMP34 0 + TAG285 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aNTHL!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <PUSH NXT11>
+ <DEAD NXT11>
+ <PUSH %<>>
+ <CALL '\1aNTHL!-MIMOC 3>
+ <JUMP + PHRASE287>
+PHRASE283
+ <FRAME '\1aNTHUV!-MIMOC>
+ <PUSH OL4>
+ <DEAD OL4>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INS5 "PUTUU" - TAG289>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP32 INS5>
+ <DEAD INS5>
+ <SET TEMP33 "PUTUU" (TYPE STRING)>
+ <LENUS TEMP32 = AC9 (TYPE FIX)>
+ <VEQUAL? AC9 5 - TAG289>
+ <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
+TAG291
+ <NTHUS TEMP32 1 = DEAD?13>
+ <NTHUS TEMP33 1 = TEMP34>
+ <VEQUAL? DEAD?13 TEMP34 - TAG289>
+ <DEAD DEAD?13 TEMP34>
+ <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
+ <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
+ <SUB AC9 1 = AC9 (TYPE FIX)>
+ <GRTR? AC9 0 + TAG291 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <PUSH 'T>
+ <JUMP + TAG292>
+TAG289
+ <PUSH %<>>
+TAG292
+ <PUSH NXT11>
+ <DEAD NXT11>
+ <PUSH %<>>
+ <CALL '\1aNTHUV!-MIMOC 4>
+PHRASE287
+ <SET AC9 'T (TYPE ATOM)>
+PHRASE216
+ <RETURN AC9>
+ <DEAD AC9>
+ <END \1aNTH-PUT-LOOK-AHEAD>
+#WORD *22445107601*
+<GFCN \1aSTRING-PUT-NTH-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ATOM ATOM ANY ANY FIX) STR4 PUT-OR-NTH5 VAL6 BYTES?7 AMT8>
+ <TEMP (STACK-OK?9 'T) TEMP11 L10:LIST TEMP22 TEMP35 NM26:STRING TEMP36 TEMP37 TEMP38 TEMP39>
+ <INTGO>
+ <GEN-LVAL 'MIML = TEMP11>
+ <RESTL TEMP11 1 = L10 (TYPE LIST)>
+ <DEAD TEMP11>
+ <CHTYPE L10 <TYPE-CODE LIST> = L10>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <SET TEMP11 L10 (TYPE LIST)>
+ <DEAD L10>
+ <LOOP>
+MAP15
+ <INTGO>
+ <EMPL? TEMP11 + MAPAP18>
+ <SET L10 TEMP11>
+ <NTHL L10 1 = TEMP22>
+ <TYPE? TEMP22 <TYPE-CODE ATOM> - PHRASE29>
+ <RETURN %<>>
+PHRASE29
+ <NTHL TEMP22 1 = TEMP35 (TYPE ATOM)>
+ <NTHR TEMP35 3 = NM26 (RECORD-TYPE ATOM)>
+ <DEAD TEMP35>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "CALL" + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP35 NM26>
+ <SET TEMP36 "CALL" (TYPE STRING)>
+ <LENUS TEMP35 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 4 - TAG34>
+ <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
+TAG40
+ <NTHUS TEMP35 1 = TEMP38>
+ <NTHUS TEMP36 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - TAG34>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG40 (TYPE FIX)>
+ <JUMP + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+TAG34
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "FRAME" + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM26>
+ <SET TEMP35 "FRAME" (TYPE STRING)>
+ <LENUS TEMP36 = TEMP39 (TYPE FIX)>
+ <VEQUAL? TEMP39 5 - TAG41>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
+TAG43
+ <NTHUS TEMP36 1 = TEMP38>
+ <NTHUS TEMP35 1 = TEMP37>
+ <VEQUAL? TEMP38 TEMP37 - TAG41>
+ <DEAD TEMP38 TEMP37>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
+ <GRTR? TEMP39 0 + TAG43 (TYPE FIX)>
+ <JUMP + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+TAG41
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "SFRAME" + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP35 NM26>
+ <SET TEMP36 "SFRAME" (TYPE STRING)>
+ <LENUS TEMP35 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 6 - TAG44>
+ <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
+TAG46
+ <NTHUS TEMP35 1 = TEMP38>
+ <NTHUS TEMP36 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - TAG44>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG46 (TYPE FIX)>
+ <JUMP + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+TAG44
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "SCALL" + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM26>
+ <SET TEMP35 "SCALL" (TYPE STRING)>
+ <LENUS TEMP36 = TEMP39 (TYPE FIX)>
+ <VEQUAL? TEMP39 5 - TAG47>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
+TAG49
+ <NTHUS TEMP36 1 = TEMP38>
+ <NTHUS TEMP35 1 = TEMP37>
+ <VEQUAL? TEMP38 TEMP37 - TAG47>
+ <DEAD TEMP38 TEMP37>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
+ <GRTR? TEMP39 0 + TAG49 (TYPE FIX)>
+ <JUMP + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+TAG47
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "ACALL" + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP35 NM26>
+ <SET TEMP36 "ACALL" (TYPE STRING)>
+ <LENUS TEMP35 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 5 - TAG50>
+ <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
+TAG52
+ <NTHUS TEMP35 1 = TEMP38>
+ <NTHUS TEMP36 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - TAG50>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG52 (TYPE FIX)>
+ <JUMP + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+TAG50
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "PUSH" + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM26>
+ <SET TEMP35 "PUSH" (TYPE STRING)>
+ <LENUS TEMP36 = TEMP39 (TYPE FIX)>
+ <VEQUAL? TEMP39 4 - TAG53>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
+TAG55
+ <NTHUS TEMP36 1 = TEMP38>
+ <NTHUS TEMP35 1 = TEMP37>
+ <VEQUAL? TEMP38 TEMP37 - TAG53>
+ <DEAD TEMP38 TEMP37>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
+ <GRTR? TEMP39 0 + TAG55 (TYPE FIX)>
+ <JUMP + BOOL33>
+ <ENDIF "STRING-EQUAL?">
+TAG53
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "ADJ" - PHRASE32>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP35 NM26>
+ <DEAD NM26>
+ <SET TEMP36 "ADJ" (TYPE STRING)>
+ <LENUS TEMP35 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 3 - PHRASE32>
+ <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
+TAG57
+ <NTHUS TEMP35 1 = TEMP38>
+ <NTHUS TEMP36 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - PHRASE32>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG57 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+BOOL33
+ <SET STACK-OK?9 %<> (TYPE FALSE)>
+PHRASE32
+ <NTHL TEMP22 1 = TEMP36 (TYPE ATOM)>
+ <NTHR TEMP36 3 = NM26 (RECORD-TYPE ATOM)>
+ <DEAD TEMP36>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "RESTUS" - BOOL62>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM26>
+ <SET TEMP35 "RESTUS" (TYPE STRING)>
+ <LENUS TEMP36 = TEMP39 (TYPE FIX)>
+ <VEQUAL? TEMP39 6 - BOOL62>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
+TAG64
+ <NTHUS TEMP36 1 = TEMP38>
+ <NTHUS TEMP35 1 = TEMP37>
+ <VEQUAL? TEMP38 TEMP37 - BOOL62>
+ <DEAD TEMP38 TEMP37>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
+ <GRTR? TEMP39 0 + TAG64 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL61>
+BOOL62
+ <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE59>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 "RESTUB" - PHRASE59>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP35 NM26>
+ <SET TEMP36 "RESTUB" (TYPE STRING)>
+ <LENUS TEMP35 = TEMP37 (TYPE FIX)>
+ <VEQUAL? TEMP37 6 - PHRASE59>
+ <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
+TAG67
+ <NTHUS TEMP35 1 = TEMP38>
+ <NTHUS TEMP36 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - PHRASE59>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG67 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+BOOL61
+ <VEQUAL? AMT8 1 - PHRASE59 (TYPE FIX)>
+ <RESTL TEMP22 1 = TEMP36 (TYPE LIST)>
+ <NTHL TEMP36 1 = TEMP36>
+ <EQUAL? TEMP36 STR4 - PHRASE59>
+ <DEAD TEMP36>
+ <RESTL TEMP22 1 = TEMP36 (TYPE LIST)>
+ <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
+ <NTHL TEMP36 1 = TEMP36>
+ <EQUAL? TEMP36 1 - PHRASE59>
+ <DEAD TEMP36>
+ <VEQUAL? STACK-OK?9 0 - PHRASE71>
+ <DEAD STACK-OK?9>
+ <SET TEMP36 TEMP22>
+ <LOOP (TEMP36 VALUE)>
+TAG74
+ <NTHL TEMP36 1 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG75>
+ <VEQUAL? TEMP35 'STACK + TAG73>
+ <DEAD TEMP35>
+TAG75
+ <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
+ <EMPL? TEMP36 - TAG74>
+ <JUMP + PHRASE71>
+TAG73
+ <RETURN %<>>
+PHRASE71
+ <FRAME '\1aRESTUS!-MIMOC>
+ <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
+ <CHTYPE TEMP35 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP35>
+ <PUSH BYTES?7>
+ <DEAD BYTES?7>
+ <PUSH VAL6>
+ <DEAD VAL6>
+ <PUSH PUT-OR-NTH5>
+ <DEAD PUT-OR-NTH5>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH STR4>
+ <DEAD STR4>
+ <PUSH L10>
+ <DEAD L10>
+ <CALL '\1aWILL-DIE? 2 = STACK>
+ <CALL '\1aRESTUS!-MIMOC 5>
+ <FRAME '\1aPUTPROP>
+ <RESTL TEMP22 1 = TEMP39 (TYPE LIST)>
+ <DEAD TEMP22>
+ <CHTYPE TEMP39 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP39>
+ <PUSH 'DONE>
+ <PUSH 'T>
+ <CALL '\1aPUTPROP 3>
+ <RETURN 'T>
+PHRASE59
+ <VEQUAL? PUT-OR-NTH5 'PUT - BOOL83>
+ <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL85>
+ <SET TEMP35 "PUTUB" (TYPE STRING)>
+ <JUMP + BOOL81>
+BOOL85
+ <SET TEMP35 "PUTUS" (TYPE STRING)>
+ <JUMP + BOOL81>
+BOOL83
+ <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL86>
+ <SET TEMP35 "NTHUB" (TYPE STRING)>
+ <JUMP + BOOL81>
+BOOL86
+ <SET TEMP35 "NTHUS" (TYPE STRING)>
+BOOL81
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM26 TEMP35 - PHRASE79>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM26>
+ <DEAD NM26>
+ <LENUS TEMP36 = TEMP37 (TYPE FIX)>
+ <LENUS TEMP35 = TEMP38 (TYPE FIX)>
+ <VEQUAL? TEMP37 TEMP38 - PHRASE79>
+ <DEAD TEMP38>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP37 VALUE)>
+TAG91
+ <NTHUS TEMP36 1 = TEMP38>
+ <NTHUS TEMP35 1 = TEMP39>
+ <VEQUAL? TEMP38 TEMP39 - PHRASE79>
+ <DEAD TEMP38 TEMP39>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
+ <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
+ <GRTR? TEMP37 0 + TAG91 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35>
+ <EQUAL? TEMP35 STR4 - PHRASE79>
+ <DEAD TEMP35>
+ <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
+ <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
+ <NTHL TEMP35 1 = TEMP35>
+ <ADD AMT8 1 = TEMP36 (TYPE FIX)>
+ <EQUAL? TEMP35 TEMP36 - PHRASE79>
+ <DEAD TEMP35 TEMP36>
+ <VEQUAL? STACK-OK?9 0 - PHRASE93>
+ <DEAD STACK-OK?9>
+ <SET TEMP36 TEMP22>
+ <DEAD TEMP22>
+ <LOOP (TEMP36 VALUE)>
+TAG96
+ <NTHL TEMP36 1 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG97>
+ <VEQUAL? TEMP35 'STACK + TAG95>
+ <DEAD TEMP35>
+TAG97
+ <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
+ <EMPL? TEMP36 - TAG96>
+ <JUMP + PHRASE93>
+TAG95
+ <RETURN %<>>
+PHRASE93
+ <SETG 'REMEMBER-STRING 'T>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH STR4>
+ <DEAD STR4>
+ <PUSH L10>
+ <DEAD L10>
+ <CALL '\1aWILL-DIE? 2 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE99>
+ <DEAD TEMP35>
+ <SETG 'DIE-LATER 'T>
+PHRASE99
+ <RETURN %<>>
+PHRASE79
+ <SET TEMP39 TEMP22>
+ <LOOP (STR4 VALUE) (TEMP39 VALUE)>
+TAG104
+ <NTHL TEMP39 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG105>
+ <VEQUAL? TEMP38 STR4 + TAG119>
+ <DEAD TEMP38>
+TAG105
+ <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 - TAG104>
+ <SET TEMP39 TEMP22>
+ <LOOP (TEMP39 VALUE)>
+TAG107
+ <NTHL TEMP39 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG108>
+ <VEQUAL? TEMP38 '+ + TAG119>
+ <DEAD TEMP38>
+TAG108
+ <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 - TAG107>
+ <SET TEMP39 TEMP22>
+ <LOOP (TEMP39 VALUE)>
+TAG110
+ <NTHL TEMP39 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG111>
+ <VEQUAL? TEMP38 '- + TAG119>
+ <DEAD TEMP38>
+TAG111
+ <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 - TAG110>
+ <SET TEMP35 TEMP22>
+ <LOOP (TEMP35 VALUE)>
+TAG113
+ <RESTL TEMP35 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 + TAG114>
+ <SET TEMP35 TEMP39>
+ <DEAD TEMP39>
+ <JUMP + TAG113>
+TAG114
+ <NTHL TEMP35 1 = TEMP35>
+ <TYPE? TEMP35 <TYPE-CODE LIST> - PHRASE101>
+ <SET TEMP39 TEMP35>
+ <EMPL? TEMP39 + TAG116>
+ <LOOP (TEMP39 VALUE)>
+TAG117
+ <NTHL TEMP39 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG118>
+ <VEQUAL? TEMP38 '+ + TAG119>
+ <DEAD TEMP38>
+TAG118
+ <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 - TAG117>
+TAG116
+ <SET TEMP39 TEMP35>
+ <DEAD TEMP35>
+ <EMPL? TEMP39 + PHRASE101>
+ <LOOP (TEMP39 VALUE)>
+TAG120
+ <NTHL TEMP39 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG121>
+ <VEQUAL? TEMP38 '- + TAG119>
+ <DEAD TEMP38>
+TAG121
+ <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
+ <EMPL? TEMP39 - TAG120>
+ <JUMP + PHRASE101>
+TAG119
+ <RETURN %<>>
+PHRASE101
+ <CHTYPE TEMP22 <TYPE-CODE LIST> = TEMP22>
+ <LOOP (TEMP22 VALUE)>
+TAG125
+ <NTHL TEMP22 1 = TEMP38>
+ <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG126>
+ <VEQUAL? TEMP38 'STACK + TAG124>
+ <DEAD TEMP38>
+TAG126
+ <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
+ <EMPL? TEMP22 - TAG125>
+ <SET TEMP22 %<> (TYPE FALSE)>
+ <JUMP + PHRASE122>
+TAG124
+ <SET STACK-OK?9 %<> (TYPE FALSE)>
+ <SET TEMP22 STACK-OK?9>
+PHRASE122
+ <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
+ <JUMP + MAP15>
+MAPAP18
+ <RETURN TEMP22>
+ <DEAD TEMP22>
+ <END \1aSTRING-PUT-NTH-LOOK-AHEAD>
+#WORD *2142473301*
+<GFCN \1aSTRING-REST-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ANY ATOM ANY ANY) RINS4 STR5 VAL6 BYTES?7>
+ <TEMP TEMP10 L8:LIST (PUT?9 %<>) TEMP21 LL23:LIST TEMP36 NM25:STRING TEMP37 TEMP38 TEMP39 TEMP40>
+ <INTGO>
+ <GEN-LVAL 'MIML = TEMP10>
+ <RESTL TEMP10 1 = L8 (TYPE LIST)>
+ <DEAD TEMP10>
+ <CHTYPE L8 <TYPE-CODE LIST> = L8>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <SET TEMP10 L8 (TYPE LIST)>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? TEMP10 + MAPAP17>
+ <SET LL23 TEMP10>
+ <NTHL LL23 1 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE ATOM> - PHRASE29>
+ <RETURN %<>>
+PHRASE29
+ <NTHL TEMP21 1 = TEMP36 (TYPE ATOM)>
+ <NTHR TEMP36 3 = NM25 (RECORD-TYPE ATOM)>
+ <DEAD TEMP36>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM25 "NTHUS" + BOOL34>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM25>
+ <SET TEMP37 "NTHUS" (TYPE STRING)>
+ <LENUS TEMP36 = TEMP38 (TYPE FIX)>
+ <VEQUAL? TEMP38 5 - TAG35>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP37 VALUE LENGTH) (TEMP38 VALUE)>
+TAG41
+ <NTHUS TEMP36 1 = TEMP39>
+ <NTHUS TEMP37 1 = TEMP40>
+ <VEQUAL? TEMP39 TEMP40 - TAG35>
+ <DEAD TEMP39 TEMP40>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP37 1 = TEMP37 (TYPE STRING)>
+ <SUB TEMP38 1 = TEMP38 (TYPE FIX)>
+ <GRTR? TEMP38 0 + TAG41 (TYPE FIX)>
+ <JUMP + BOOL34>
+ <ENDIF "STRING-EQUAL?">
+TAG35
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM25 "PUTUS" - PHRASE32>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP37 NM25>
+ <SET TEMP36 "PUTUS" (TYPE STRING)>
+ <LENUS TEMP37 = TEMP40 (TYPE FIX)>
+ <VEQUAL? TEMP40 5 - PHRASE32>
+ <LOOP (TEMP37 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP40 VALUE)>
+TAG44
+ <NTHUS TEMP37 1 = TEMP39>
+ <NTHUS TEMP36 1 = TEMP38>
+ <VEQUAL? TEMP39 TEMP38 - PHRASE32>
+ <DEAD TEMP39>
+ <RESTUS TEMP37 1 = TEMP37 (TYPE STRING)>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
+ <GRTR? TEMP40 0 + TAG44 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <SET PUT?9 'T (TYPE ATOM)>
+BOOL34
+ <RESTL TEMP21 1 = TEMP36 (TYPE LIST)>
+ <NTHL TEMP36 1 = TEMP36>
+ <EQUAL? TEMP36 STR5 - PHRASE32>
+ <DEAD TEMP36>
+ <RESTL TEMP21 1 = TEMP36 (TYPE LIST)>
+ <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
+ <NTHL TEMP36 1 = TEMP36>
+ <EQUAL? TEMP36 1 - PHRASE32>
+ <DEAD TEMP36>
+ <VEQUAL? PUT?9 0 + PHRASE48>
+ <RESTL TEMP21 1 = TEMP38 (TYPE LIST)>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <NTHL TEMP38 1 = TEMP36>
+ <DEAD TEMP38>
+ <JUMP + PHRASE49>
+PHRASE48
+ <NTHL TEMP21 5 = TEMP36>
+PHRASE49
+ <SET TEMP40 %<> (TYPE FALSE)>
+ <SET TEMP38 L8 (TYPE LIST)>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? TEMP38 + MAPAP54>
+ <NTHL TEMP38 1 = TEMP37>
+ <VEQUAL? TEMP37 TEMP21 - PHRASE61>
+ <SET TEMP36 'T (TYPE ATOM)>
+ <JUMP + MAPEX53>
+PHRASE61
+ <RESTL TEMP37 1 = TEMP40 (TYPE LIST)>
+ <DEAD TEMP37>
+ <CHTYPE TEMP40 <TYPE-CODE LIST> = TEMP40>
+ <TYPE TEMP36 = TEMP39>
+ <EMPL? TEMP40 + TAG65>
+ <LOOP (TEMP36 VALUE) (TEMP39 VALUE) (TEMP40 VALUE)>
+TAG67
+ <NTHL TEMP40 1 = TEMP37>
+ <TYPE? TEMP37 TEMP39 - TAG68>
+ <VEQUAL? TEMP37 TEMP36 + TAG66>
+ <DEAD TEMP37>
+TAG68
+ <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
+ <EMPL? TEMP40 - TAG67>
+TAG65
+ <SET TEMP40 %<> (TYPE FALSE)>
+ <JUMP + PHRASE64>
+TAG66
+ <SET TEMP36 %<> (TYPE FALSE)>
+ <JUMP + MAPEX53>
+PHRASE64
+ <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
+ <JUMP + MAP51>
+MAPAP54
+ <SET TEMP36 TEMP40>
+ <DEAD TEMP40>
+MAPEX53
+ <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE32>
+ <DEAD TEMP36>
+ <FRAME '\1aRESTUS!-MIMOC>
+ <PUSH RINS4>
+ <DEAD RINS4>
+ <PUSH BYTES?7>
+ <DEAD BYTES?7>
+ <NTHL TEMP21 5 = STACK>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? NM25 "PUTUS" - PHRASE73>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP36 NM25>
+ <DEAD NM25>
+ <SET TEMP38 "PUTUS" (TYPE STRING)>
+ <LENUS TEMP36 = TEMP40 (TYPE FIX)>
+ <VEQUAL? TEMP40 5 - PHRASE73>
+ <LOOP (TEMP36 VALUE LENGTH) (TEMP38 VALUE LENGTH) (TEMP40 VALUE)>
+TAG74
+ <NTHUS TEMP36 1 = TEMP39>
+ <NTHUS TEMP38 1 = TEMP37>
+ <VEQUAL? TEMP39 TEMP37 - PHRASE73>
+ <DEAD TEMP39>
+ <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
+ <RESTUS TEMP38 1 = TEMP38 (TYPE STRING)>
+ <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
+ <GRTR? TEMP40 0 + TAG74 (TYPE FIX)>
+ <ENDIF "STRING-EQUAL?">
+ <SET TEMP38 'PUT (TYPE ATOM)>
+ <JUMP + COND72>
+PHRASE73
+ <SET TEMP38 'NTH (TYPE ATOM)>
+COND72
+ <PUSH TEMP38>
+ <DEAD TEMP38>
+ <FRAME '\1aWILL-DIE?>
+ <PUSH STR5>
+ <DEAD STR5>
+ <PUSH LL23>
+ <DEAD LL23>
+ <CALL '\1aWILL-DIE? 2 = STACK>
+ <CALL '\1aRESTUS!-MIMOC 5>
+ <FRAME '\1aPUTPROP>
+ <RESTL TEMP21 1 = TEMP38 (TYPE LIST)>
+ <DEAD TEMP21>
+ <CHTYPE TEMP38 <TYPE-CODE LIST> = STACK>
+ <DEAD TEMP38>
+ <PUSH 'DONE>
+ <PUSH 'T>
+ <CALL '\1aPUTPROP 3>
+ <RETURN 'T>
+PHRASE32
+ <SET TEMP37 TEMP21>
+ <LOOP (STR5 VALUE) (TEMP37 VALUE)>
+TAG80
+ <NTHL TEMP37 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG81>
+ <VEQUAL? TEMP39 STR5 + TAG98>
+ <DEAD TEMP39>
+TAG81
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 - TAG80>
+ <SET TEMP37 TEMP21>
+ <LOOP (TEMP37 VALUE)>
+TAG83
+ <NTHL TEMP37 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG84>
+ <VEQUAL? TEMP39 '+ + TAG98>
+ <DEAD TEMP39>
+TAG84
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 - TAG83>
+ <SET TEMP37 TEMP21>
+ <LOOP (TEMP37 VALUE)>
+TAG86
+ <NTHL TEMP37 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG87>
+ <VEQUAL? TEMP39 '- + TAG98>
+ <DEAD TEMP39>
+TAG87
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 - TAG86>
+ <LOOP (TEMP21 VALUE)>
+TAG89
+ <RESTL TEMP21 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 + TAG90>
+ <SET TEMP21 TEMP37>
+ <DEAD TEMP37>
+ <JUMP + TAG89>
+TAG90
+ <NTHL TEMP21 1 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE LIST> + TAG91>
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <JUMP + PHRASE77>
+TAG91
+ <SET TEMP37 TEMP21>
+ <EMPL? TEMP37 + TAG94>
+ <LOOP (TEMP37 VALUE)>
+TAG95
+ <NTHL TEMP37 1 = TEMP39>
+ <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG96>
+ <VEQUAL? TEMP39 '+ + TAG98>
+ <DEAD TEMP39>
+TAG96
+ <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
+ <EMPL? TEMP37 - TAG95>
+TAG94
+ <EMPL? TEMP21 + TAG97>
+ <LOOP (TEMP21 VALUE)>
+TAG99
+ <NTHL TEMP21 1 = TEMP37>
+ <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG100>
+ <VEQUAL? TEMP37 '- + TAG98>
+ <DEAD TEMP37>
+TAG100
+ <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
+ <EMPL? TEMP21 - TAG99>
+TAG97
+ <SET TEMP21 %<> (TYPE FALSE)>
+ <JUMP + PHRASE77>
+TAG98
+ <RETURN %<>>
+PHRASE77
+ <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
+ <JUMP + MAP14>
+MAPAP17
+ <RETURN TEMP21>
+ <DEAD TEMP21>
+ <END \1aSTRING-REST-
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff