diff --git a/c/scheme48.h b/c/scheme48.h
index 5b9411a..0bdbe53 100644
--- a/c/scheme48.h
+++ b/c/scheme48.h
@@ -51,6 +51,30 @@ extern unsigned long	s48_extract_unsigned_integer(s48_value);
 extern s48_value	s48_enter_double(double);
 extern double		s48_extract_double(s48_value);
 extern s48_value	s48_cons(s48_value, s48_value);
+extern s48_value        s48_list_1(s48_value);
+extern s48_value        s48_list_2(s48_value, s48_value);
+extern s48_value        s48_list_3(s48_value, s48_value, s48_value);
+extern s48_value        s48_list_4(s48_value, s48_value, s48_value, s48_value);
+extern s48_value        s48_list_5(s48_value, s48_value, s48_value, s48_value,
+				   s48_value);
+extern s48_value        s48_list_6(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value);
+extern s48_value        s48_list_7(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value, s48_value);
+extern s48_value        s48_list_8(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value, s48_value, s48_value);
+extern s48_value        s48_list_9(s48_value, s48_value, s48_value, s48_value,
+				   s48_value, s48_value, s48_value, s48_value,
+				   s48_value);
+extern s48_value        s48_list_10(s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value);
+extern s48_value        s48_list_11(s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value);
+extern s48_value        s48_list_12(s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value,
+				    s48_value, s48_value, s48_value, s48_value);
 extern s48_value	s48_enter_string(char *);
 extern char *		s48_extract_string(s48_value);
 extern s48_value	s48_enter_substring(char *, int);
diff --git a/c/scheme48heap.c b/c/scheme48heap.c
index a196758..d6a7d23 100644
--- a/c/scheme48heap.c
+++ b/c/scheme48heap.c
@@ -31,7 +31,7 @@ long s48_find_all(long);
 long s48_read_image(void);
 long s48_find_all_records(long);
 long s48_trace_locationsB(char *, char *);
-void s48_do_gc(void);
+long s48_do_gc(void);
 long s48_trace_stob_contentsB(long);
 void s48_begin_collection(void);
 long s48_trace_value(long);
@@ -1673,7 +1673,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
             if ((3 == (3 & descriptor_225X))) {
               a_226X = ((char *) (-3 + descriptor_225X));
               if ((a_226X < (Sfrom_beginS))) {
-                goto L7063;}
+                goto L7061;}
               else {
                 if ((a_226X < (Sfrom_endS))) {
                   new_thing_227X = copy_weak_pointer(thing_218X, frontier_217X, &frontier_228X);
@@ -1681,11 +1681,11 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
                   arg0K1 = frontier_228X;
                   goto L6483;}
                 else {
-                  goto L7063;}}}
+                  goto L7061;}}}
             else {
-              goto L7063;}}
+              goto L7061;}}
           else {
-            goto L7063;}}}
+            goto L7061;}}}
       else {
         arg0K0 = next_219X;
         arg0K1 = frontier_217X;
@@ -1701,7 +1701,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
   arg0K0 = next_219X;
   arg0K1 = frontier_230X;
   goto L6442;}
- L7063: {
+ L7061: {
   *((long *) frontier_217X) = h_224X;
   data_addr_231X = frontier_217X + 4;
   new_232X = 3 + (((long) data_addr_231X));
@@ -1711,7 +1711,7 @@ long s48_trace_locationsB(char * start_214X, char * end_215X)
   arg0K1 = (data_addr_231X + (-4 & (3 + ((long)(((unsigned long)h_224X)>>8)))));
   goto L6483;}
 }
-void s48_do_gc(void)
+long s48_do_gc(void)
 {
   char * arg0K0;
   char * end_234X;
@@ -1724,13 +1724,16 @@ void s48_do_gc(void)
   s48_trace_locationsB(start_233X, end_234X);
   if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
     ps_error("GC error: ran out of space in new heap", 0);
-    return clean_weak_pointers();}
+    goto L6721;}
   else {
     if ((end_234X < (s48_ShpS))) {
       arg0K0 = end_234X;
       goto L6698;}
     else {
-      return clean_weak_pointers();}}}
+      goto L6721;}}}
+ L6721: {
+  clean_weak_pointers();
+  return 0;}
 }
 long s48_trace_stob_contentsB(long stob_235X)
 {
@@ -1773,15 +1776,15 @@ void s48_begin_collection(void)
     sizes_243X = Simpure_sizesS;
     count_244X = Simpure_area_countS;
     arg1K0 = 0;
-    goto L6813;}
+    goto L6814;}
   else {
     return;}}
- L6813: {
+ L6814: {
   i_245X = arg1K0;
   if ((i_245X < count_244X)) {
     s48_trace_locationsB((*(areas_242X + i_245X)), ((*(areas_242X + i_245X)) + (*(sizes_243X + i_245X))));
     arg1K0 = (1 + i_245X);
-    goto L6813;}
+    goto L6814;}
   else {
     return;}}
 }
@@ -1805,8 +1808,8 @@ long s48_trace_value(long stob_246X)
   char v_248X;
   long stob_247X;
  {  arg1K0 = stob_247X;
-  goto L7254;}
- L7254: {
+  goto L7252;}
+ L7252: {
   stob_247X = arg1K0;
   if ((Swriting_imagePS)) {
     v_248X = gc_recordP(stob_246X);
@@ -1817,16 +1820,16 @@ long s48_trace_value(long stob_246X)
         if ((1 == (*((long *) ((((char *) (-3 + type_249X))) + 4))))) {
           note_undumpableB(stob_246X);
           arg1K0 = (*((long *) ((((char *) (-3 + stob_246X))) + 4)));
-          goto L7254;}
+          goto L7252;}
         else {
-          goto L6841;}}
+          goto L6842;}}
       else {
-        goto L6841;}}
+        goto L6842;}}
     else {
-      goto L6841;}}
+      goto L6842;}}
   else {
-    goto L6841;}}
- L6841: {
+    goto L6842;}}
+ L6842: {
   if ((3 == (3 & stob_246X))) {
     a_251X = ((char *) (-3 + stob_246X));
     if ((a_251X < (Sfrom_beginS))) {
@@ -1838,7 +1841,7 @@ long s48_trace_value(long stob_246X)
         if ((3 == (3 & h_253X))) {
           arg1K0 = h_253X;
           arg0K1 = frontier_252X;
-          goto L6863;}
+          goto L6864;}
         else {
           if ((1074 == h_253X)) {
             descriptor_254X = *((long *) (((char *) (-3 + stob_246X))));
@@ -1851,7 +1854,7 @@ long s48_trace_value(long stob_246X)
                   new_thing_256X = copy_weak_pointer(stob_246X, frontier_252X, &new_hp_257X);
                   arg1K0 = new_thing_256X;
                   arg0K1 = new_hp_257X;
-                  goto L6863;}
+                  goto L6864;}
                 else {
                   goto L4194;}}}
             else {
@@ -1862,7 +1865,7 @@ long s48_trace_value(long stob_246X)
         return stob_246X;}}}
   else {
     return stob_246X;}}
- L6863: {
+ L6864: {
   new_thing_258X = arg1K0;
   new_hp_259X = arg0K1;
   s48_ShpS = new_hp_259X;
@@ -1875,7 +1878,7 @@ long s48_trace_value(long stob_246X)
   memcpy((void *)data_addr_260X, (void *)(((char *) (-3 + stob_246X))),((long)(((unsigned long)h_253X)>>8)));
   arg1K0 = new_261X;
   arg0K1 = (data_addr_260X + (-4 & (3 + ((long)(((unsigned long)h_253X)>>8)))));
-  goto L6863;}
+  goto L6864;}
 }
 long s48_write_image(long resume_proc_262X, FILE * port_263X)
 {
@@ -1966,23 +1969,22 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
   exported_bindings_272X = s48_trace_value(v_271X);
   resume_proc_273X = s48_trace_value(resume_proc_262X);
   arg0K0 = (Snewspace_beginS);
-  goto L6984;}
- L6984: {
+  goto L6990;}
+ L6990: {
   start_274X = arg0K0;
   end_275X = s48_ShpS;
   s48_trace_locationsB(start_274X, end_275X);
   if (((((((s48_SlimitS) - (s48_ShpS)))>>2)) < 0)) {
     ps_error("GC error: ran out of space in new heap", 0);
-    clean_weak_pointers();
-    goto L6953;}
+    goto L6981;}
   else {
     if ((end_275X < (s48_ShpS))) {
       arg0K0 = end_275X;
-      goto L6984;}
+      goto L6990;}
     else {
-      clean_weak_pointers();
-      goto L6953;}}}
- L6953: {
+      goto L6981;}}}
+ L6981: {
+  clean_weak_pointers();
   s48_mark_traced_channels_closedB();
   symbols_276X = s48_copy_symbol_table();
   Sfinding_typeS = 8;
@@ -2034,7 +2036,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
  L5866: {
   s48_ShpS = start_hp_277X;
   arg1K0 = 1;
-  goto L7003;}
+  goto L7005;}
  L5929: {
   i_287X = arg1K0;
   if ((i_287X < count_286X)) {
@@ -2054,8 +2056,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
  L5855: {
   *((long *) start_hp_277X) = (10 + (((((s48_ShpS) - (start_hp_277X + 4)))<<8)));
   arg1K0 = (3 + (((long) (start_hp_277X + 4))));
-  goto L7003;}
- L7003: {
+  goto L7005;}
+ L7005: {
   resumer_records_289X = arg1K0;
   imported_bindings_290X = s48_cleaned_imported_bindings();
   if ((1 == resumer_records_289X)) {
diff --git a/c/scheme48vm.c b/c/scheme48vm.c
index ad44bcf..049e8c1 100644
--- a/c/scheme48vm.c
+++ b/c/scheme48vm.c
@@ -20,8 +20,8 @@ void s48_set_extension_valueB(long);
 void s48_note_event(void);
 void s48_set_os_signal(long, long);
 long s48_exported_bindings(void);
-char * s48_set_gc_roots_baseB(void);
-char s48_release_gc_roots_baseB(char *);
+char * s48_set_gc_roots_baseB(char **);
+char s48_release_gc_roots_baseB(char *, char *);
 void s48_disable_interruptsB(void);
 void s48_push_gc_rootsB(char *, long);
 void s48_register_gc_rootB(char *);
@@ -103,28 +103,28 @@ static char add_more_channels(long index_5X)
   y_7X = 8 + (Snumber_of_channelsS);
   if ((x_6X < y_7X)) {
     arg0K0 = y_7X;
-    goto L2377;}
+    goto L2378;}
   else {
     arg0K0 = x_6X;
-    goto L2377;}}
- L2377: {
+    goto L2378;}}
+ L2378: {
   new_count_8X = arg0K0;
   new_vm_channels_9X = (long*)malloc(sizeof(long) * new_count_8X);
   if ((NULL == new_vm_channels_9X)) {
     return 0;}
   else {
     arg0K0 = 0;
-    goto L2389;}}
- L2389: {
+    goto L2390;}}
+ L2390: {
   i_10X = arg0K0;
   if ((i_10X == (Snumber_of_channelsS))) {
     arg0K0 = (Snumber_of_channelsS);
-    goto L2404;}
+    goto L2405;}
   else {
     *(new_vm_channels_9X + i_10X) = (*((Svm_channelsS) + i_10X));
     arg0K0 = (1 + i_10X);
-    goto L2389;}}
- L2404: {
+    goto L2390;}}
+ L2405: {
   i_11X = arg0K0;
   if ((i_11X == new_count_8X)) {
     free((Svm_channelsS));
@@ -134,7 +134,7 @@ static char add_more_channels(long index_5X)
   else {
     *(new_vm_channels_9X + i_11X) = 1;
     arg0K0 = (1 + i_11X);
-    goto L2404;}}
+    goto L2405;}}
 }
 static void enqueue_channelB(long index_12X, long status_13X)
 {
@@ -179,25 +179,25 @@ static long close_channelB(long channel_19X)
   if ((5 == x_21X)) {
     v_22X = ps_abort_fd_op(os_index_20X);
     enqueue_channelB(os_index_20X, v_22X);
-    goto L8008;}
+    goto L8009;}
   else {
-    goto L8008;}}
- L8008: {
+    goto L8009;}}
+ L8009: {
   v_23X = *((long *) (((char *) (-3 + channel_19X))));
   if ((4 == v_23X)) {
-    goto L8023;}
+    goto L8024;}
   else {
     if ((12 == (*((long *) (((char *) (-3 + channel_19X))))))) {
-      goto L8023;}
+      goto L8024;}
     else {
       v_24X = ps_close_fd(os_index_20X);
       arg0K0 = v_24X;
-      goto L8030;}}}
- L8023: {
+      goto L8031;}}}
+ L8024: {
   v_25X = ps_close_fd(os_index_20X);
   arg0K0 = v_25X;
-  goto L8030;}
- L8030: {
+  goto L8031;}
+ L8031: {
   status_26X = arg0K0;
   *((Svm_channelsS) + os_index_20X) = 1;
   addr_27X = ((char *) (-3 + channel_19X));
@@ -237,13 +237,13 @@ static long enter_string(char *string_33X, long key_34X)
   string_38X = 3 + (((long) (addr_37X + 4)));
   *((unsigned char *) ((((char *) (-3 + string_38X))) + z_35X)) = 0;
   arg0K0 = 0;
-  goto L9538;}
- L9538: {
+  goto L9539;}
+ L9539: {
   i_39X = arg0K0;
   if ((i_39X < z_35X)) {
     *((unsigned char *) ((((char *) (-3 + string_38X))) + i_39X)) = ((*(string_33X + i_39X)));
     arg0K0 = (1 + i_39X);
-    goto L9538;}
+    goto L9539;}
   else {
     return string_38X;}}
 }
@@ -264,8 +264,8 @@ static char HcleanerB2170(long table_40X)
   long table_41X;
  {  table_41X = s48_trace_value(table_40X);
   arg0K0 = 0;
-  goto L9728;}
- L9728: {
+  goto L9729;}
+ L9729: {
   i_42X = arg0K0;
   temp_43X = 1024 == i_42X;
   if (temp_43X) {
@@ -274,8 +274,8 @@ static char HcleanerB2170(long table_40X)
     foo_44X = *((long *) ((((char *) (-3 + table_41X))) + (((i_42X)<<2))));
     arg0K0 = foo_44X;
     arg0K1 = 1;
-    goto L9748;}}
- L9748: {
+    goto L9749;}}
+ L9749: {
   foo_45X = arg0K0;
   okay_46X = arg0K1;
   if ((1 == foo_45X)) {
@@ -283,7 +283,7 @@ static char HcleanerB2170(long table_40X)
     S48_WRITE_BARRIER(table_41X, addr_47X, okay_46X);
     *((long *) addr_47X) = okay_46X;
     arg0K0 = (1 + i_42X);
-    goto L9728;}
+    goto L9729;}
   else {
     v_48X = s48_extantP(foo_45X);
     if (v_48X) {
@@ -292,15 +292,15 @@ static char HcleanerB2170(long table_40X)
       S48_WRITE_BARRIER(new_foo_49X, addr_50X, okay_46X);
       *((long *) addr_50X) = okay_46X;
       arg0K0 = new_foo_49X;
-      goto L9753;}
+      goto L9754;}
     else {
       arg0K0 = okay_46X;
-      goto L9753;}}}
- L9753: {
+      goto L9754;}}}
+ L9754: {
   v_51X = arg0K0;
   arg0K0 = (*((long *) ((((char *) (-3 + foo_45X))) + 4)));
   arg0K1 = v_51X;
-  goto L9748;}
+  goto L9749;}
 }
 static void push_exception_continuationB(long exception_52X, long instruction_size_53X)
 {
@@ -326,22 +326,22 @@ static void push_exception_continuationB(long exception_52X, long instruction_si
   Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_55X))))))));
   arg1K0 = ((SstackS) + 4);
   arg0K1 = 0;
-  goto L9961;}
- L9961: {
+  goto L9962;}
+ L9962: {
   p_56X = arg1K0;
   i_57X = arg0K1;
   if ((2 == (3 & (*((long *) p_56X))))) {
     if ((22 == (*((long *) p_56X)))) {
       arg0K0 = (-1 + i_57X);
-      goto L9902;}
+      goto L9903;}
     else {
       arg0K0 = i_57X;
-      goto L9902;}}
+      goto L9903;}}
   else {
     arg1K0 = (p_56X + 4);
     arg0K1 = (1 + i_57X);
-    goto L9961;}}
- L9902: {
+    goto L9962;}}
+ L9903: {
   v_58X = arg0K0;
   push_continuationB((Scode_pointerS), v_58X);
   *((long *) (SstackS)) = (((opcode_54X)<<2));
@@ -358,15 +358,15 @@ static long make_registered_channel(long mode_59X, long id_60X, long os_index_61
   char temp_63X;
  {  temp_63X = os_index_61X < (Snumber_of_channelsS);
   if (temp_63X) {
-    goto L10829;}
+    goto L10830;}
   else {
     x_64X = add_more_channels(os_index_61X);
     if (x_64X) {
-      goto L10829;}
+      goto L10830;}
     else {
       *TT0 = 9;
       return 1;}}}
- L10829: {
+ L10830: {
   if ((1 == (*((Svm_channelsS) + os_index_61X)))) {
     addr_65X = ALLOCATE_SPACE(5, 24);
     *((long *) addr_65X) = 5142;
@@ -394,17 +394,17 @@ static long channel_close_error(long status_67X, long index_68X, long id_69X)
   if ((3 == (3 & id_69X))) {
     if ((16 == (31 & ((((*((long *) ((((char *) (-3 + id_69X))) + -4))))>>2))))) {
       ps_write_string((((char *)(((char *) (-3 + id_69X))))), (stderr));
-      goto L11475;}
+      goto L11476;}
     else {
-      goto L11469;}}
+      goto L11470;}}
   else {
-    goto L11469;}}
- L11475: {
+    goto L11470;}}
+ L11476: {
   PS_WRITE_CHAR(10, (stderr), v_70X)
   return v_70X;}
- L11469: {
+ L11470: {
   ps_write_integer((((index_68X)>>2)), (stderr));
-  goto L11475;}
+  goto L11476;}
 }
 static void HtopD8911(void)
 {
@@ -455,17 +455,17 @@ static void HtopD8911(void)
   long length_72X;
   char * frame_71X;
  {  arg1K0 = (Sexternal_root_stackS);
-  goto L6267;}
- L6267: {
+  goto L6268;}
+ L6268: {
   frame_71X = arg1K0;
   if ((frame_71X == NULL)) {
     arg1K0 = (Spermanent_external_rootsS);
-    goto L6293;}
+    goto L6294;}
   else {
     length_72X = *((long *) frame_71X);
     arg0K0 = 0;
-    goto L6275;}}
- L6293: {
+    goto L6276;}}
+ L6294: {
   frame_73X = arg1K0;
   if ((frame_73X == NULL)) {
     s48_initializing_gc_root();
@@ -499,25 +499,25 @@ static void HtopD8911(void)
     v_87X = s48_trace_value((Sos_signal_argumentS));
     Sos_signal_argumentS = v_87X;
     arg0K0 = (Sfinalizer_alistS);
-    goto L5301;}
+    goto L5302;}
   else {
     cell_88X = ((char *) (*((long *) (frame_73X + 4))));
     x2_89X = s48_trace_value((*((long *) cell_88X)));
     *((long *) cell_88X) = x2_89X;
     arg1K0 = (((char *) (*((long *) frame_73X))));
-    goto L6293;}}
- L6275: {
+    goto L6294;}}
+ L6276: {
   i_90X = arg0K0;
   if ((i_90X == length_72X)) {
     arg1K0 = (((char *) (*((long *) (frame_71X + 4)))));
-    goto L6267;}
+    goto L6268;}
   else {
     cell_91X = ((char *) (*((long *) (frame_71X + (8 + (((i_90X)<<2)))))));
     x2_92X = s48_trace_value((*((long *) cell_91X)));
     *((long *) cell_91X) = x2_92X;
     arg0K0 = (1 + i_90X);
-    goto L6275;}}
- L5301: {
+    goto L6276;}}
+ L5302: {
   alist_93X = arg0K0;
   if ((25 == alist_93X)) {
     env_94X = s48_trace_value((SenvS));
@@ -528,22 +528,22 @@ static void HtopD8911(void)
     Spending_channels_tailS = v_96X;
     if ((Sstack_warningPS)) {
       arg1K0 = (Sstack_beginS);
-      goto L5895;}
+      goto L5896;}
     else {
-      goto L5928;}}
+      goto L5929;}}
   else {
     pair_97X = *((long *) (((char *) (-3 + alist_93X))));
     x_98X = s48_extantP((*((long *) (((char *) (-3 + pair_97X))))));
     if (x_98X) {
-      goto L5326;}
+      goto L5327;}
     else {
       s48_trace_stob_contentsB((*((long *) (((char *) (-3 + pair_97X))))));
-      goto L5326;}}}
- L5895: {
+      goto L5327;}}}
+ L5896: {
   a_99X = arg1K0;
   if ((252645135 == (*((long *) a_99X)))) {
     arg1K0 = (a_99X + 4);
-    goto L5895;}
+    goto L5896;}
   else {
     unused_100X = (((a_99X - (Sstack_beginS)))>>2);
     if ((unused_100X < 30)) {
@@ -555,103 +555,103 @@ static void HtopD8911(void)
       { long ignoreXX;
       PS_WRITE_CHAR(10, (stderr), ignoreXX) }
       Sstack_warningPS = 0;
-      goto L5928;}
+      goto L5929;}
     else {
-      goto L5928;}}}
- L5928: {
+      goto L5929;}}}
+ L5929: {
   arg1K0 = ((SstackS) + 4);
   arg0K1 = 0;
-  goto L5993;}
- L5326: {
+  goto L5994;}
+ L5327: {
   val_101X = s48_trace_value((*((long *) ((((char *) (-3 + pair_97X))) + 4))));
   addr_102X = (((char *) (-3 + pair_97X))) + 4;
   S48_WRITE_BARRIER(pair_97X, addr_102X, val_101X);
   *((long *) addr_102X) = val_101X;
   arg0K0 = (*((long *) ((((char *) (-3 + alist_93X))) + 4)));
-  goto L5301;}
- L5993: {
+  goto L5302;}
+ L5994: {
   p_103X = arg1K0;
   i_104X = arg0K1;
   if ((2 == (3 & (*((long *) p_103X))))) {
     if ((22 == (*((long *) p_103X)))) {
       arg0K0 = (-1 + i_104X);
-      goto L5930;}
+      goto L5931;}
     else {
       arg0K0 = i_104X;
-      goto L5930;}}
+      goto L5931;}}
   else {
     arg1K0 = (p_103X + 4);
     arg0K1 = (1 + i_104X);
-    goto L5993;}}
- L5930: {
+    goto L5994;}}
+ L5931: {
   arg_count_105X = arg0K0;
   s48_trace_locationsB(((SstackS) + 4), ((SstackS) + (4 + (((arg_count_105X)<<2)))));
   p_106X = SenvS;
   if ((3 == (3 & p_106X))) {
     if ((p_106X < (((long) (Sstack_beginS))))) {
-      goto L5946;}
+      goto L5947;}
     else {
       if (((((long) (Sstack_endS))) < p_106X)) {
-        goto L5946;}
+        goto L5947;}
       else {
         env_107X = SenvS;
         arg0K0 = env_107X;
-        goto L6106;}}}
+        goto L6107;}}}
   else {
-    goto L5946;}}
- L5946: {
+    goto L5947;}}
+ L5947: {
   v_108X = s48_trace_value((SenvS));
   SenvS = v_108X;
-  goto L5951;}
- L6106: {
+  goto L5952;}
+ L6107: {
   env_109X = arg0K0;
   if ((3 == (3 & env_109X))) {
     if ((env_109X < (((long) (Sstack_beginS))))) {
-      goto L5951;}
+      goto L5952;}
     else {
       if (((((long) (Sstack_endS))) < env_109X)) {
-        goto L5951;}
+        goto L5952;}
       else {
         s48_trace_stob_contentsB(env_109X);
         arg0K0 = (*((long *) (((char *) (-3 + env_109X)))));
-        goto L6106;}}}
+        goto L6107;}}}
   else {
-    goto L5951;}}
- L5951: {
+    goto L5952;}}
+ L5952: {
   arg0K0 = (ScontS);
   arg0K1 = 0;
-  goto L5956;}
- L5956: {
+  goto L5957;}
+ L5957: {
   cont_110X = arg0K0;
   last_env_111X = arg0K1;
   env_112X = *((long *) ((((char *) (-3 + cont_110X))) + 12));
   s48_trace_stob_contentsB(cont_110X);
   if ((env_112X == last_env_111X)) {
-    goto L5974;}
+    goto L5975;}
   else {
     arg0K0 = env_112X;
-    goto L6061;}}
- L5974: {
+    goto L6062;}}
+ L5975: {
   if ((cont_110X == (Sbottom_of_stackS))) {
     return;}
   else {
     arg0K0 = (*((long *) (((char *) (-3 + cont_110X)))));
     arg0K1 = env_112X;
-    goto L5956;}}
- L6061: {
+    goto L5957;}}
+ L6062: {
   env_113X = arg0K0;
   if ((3 == (3 & env_113X))) {
     if ((env_113X < (((long) (Sstack_beginS))))) {
-      goto L5974;}
+      goto L5975;}
     else {
       if (((((long) (Sstack_endS))) < env_113X)) {
-        goto L5974;}
+        goto L5975;}
       else {
         s48_trace_stob_contentsB(env_113X);
         arg0K0 = (*((long *) (((char *) (-3 + env_113X)))));
-        goto L6061;}}}
+        goto L6062;}}}
   else {
-    goto L5974;}}
+    goto L5975;}}
 }
 static long Hlookup2112(long table_114X, long string_115X, long key_116X)
 {
@@ -671,20 +671,20 @@ static long Hlookup2112(long table_114X, long string_115X, long key_116X)
  {  n_117X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_115X))) + -4))))>>8));
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L13096;}
- L13096: {
+  goto L13097;}
+ L13097: {
   i_118X = arg0K0;
   h_119X = arg0K1;
   if ((i_118X < n_117X)) {
     arg0K0 = (1 + i_118X);
     arg0K1 = (h_119X + (((*((unsigned char *) ((((char *) (-3 + string_115X))) + i_118X))))));
-    goto L13096;}
+    goto L13097;}
   else {
     index_120X = 1023 & h_119X;
     bucket_121X = *((long *) ((((char *) (-3 + table_114X))) + (((index_120X)<<2))));
     arg0K0 = bucket_121X;
-    goto L13064;}}
- L13064: {
+    goto L13065;}}
+ L13065: {
   foo_122X = arg0K0;
   if ((1 == foo_122X)) {
     addr_123X = ALLOCATE_SPACE(13, 20);
@@ -705,12 +705,12 @@ static long Hlookup2112(long table_114X, long string_115X, long key_116X)
       if (((!memcmp((void *)(((char *) (-3 + s2_126X))), (void *)(((char *) (-3 + string_115X))),len_127X)))) {
         return foo_122X;}
       else {
-        goto L13080;}}
+        goto L13081;}}
     else {
-      goto L13080;}}}
- L13080: {
+      goto L13081;}}}
+ L13081: {
   arg0K0 = (*((long *) ((((char *) (-3 + foo_122X))) + 12)));
-  goto L13064;}
+  goto L13065;}
 }
 static long Hlookup2093(long table_128X, long string_129X, long key_130X)
 {
@@ -730,20 +730,20 @@ static long Hlookup2093(long table_128X, long string_129X, long key_130X)
  {  n_131X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_129X))) + -4))))>>8));
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L13221;}
- L13221: {
+  goto L13222;}
+ L13222: {
   i_132X = arg0K0;
   h_133X = arg0K1;
   if ((i_132X < n_131X)) {
     arg0K0 = (1 + i_132X);
     arg0K1 = (h_133X + (((*((unsigned char *) ((((char *) (-3 + string_129X))) + i_132X))))));
-    goto L13221;}
+    goto L13222;}
   else {
     index_134X = 1023 & h_133X;
     bucket_135X = *((long *) ((((char *) (-3 + table_128X))) + (((index_134X)<<2))));
     arg0K0 = bucket_135X;
-    goto L13189;}}
- L13189: {
+    goto L13190;}}
+ L13190: {
   foo_136X = arg0K0;
   if ((1 == foo_136X)) {
     addr_137X = ALLOCATE_SPACE(13, 20);
@@ -764,12 +764,12 @@ static long Hlookup2093(long table_128X, long string_129X, long key_130X)
       if (((!memcmp((void *)(((char *) (-3 + s2_140X))), (void *)(((char *) (-3 + string_129X))),len_141X)))) {
         return foo_136X;}
       else {
-        goto L13205;}}
+        goto L13206;}}
     else {
-      goto L13205;}}}
- L13205: {
+      goto L13206;}}}
+ L13206: {
   arg0K0 = (*((long *) ((((char *) (-3 + foo_136X))) + 12)));
-  goto L13189;}
+  goto L13190;}
 }
 static void HtopD8904(void)
 {
@@ -813,8 +813,8 @@ static void HtopD8904(void)
   arg0K0 = (Sfinalizer_alistS);
   arg0K1 = 25;
   arg0K2 = 25;
-  goto L7734;}
- L7734: {
+  goto L7735;}
+ L7735: {
   alist_145X = arg0K0;
   okay_146X = arg0K1;
   goners_147X = arg0K2;
@@ -823,10 +823,10 @@ static void HtopD8904(void)
     l2_148X = Sfinalize_theseS;
     if ((25 == goners_147X)) {
       arg0K0 = l2_148X;
-      goto L7742;}
+      goto L7743;}
     else {
       arg0K0 = goners_147X;
-      goto L7795;}}
+      goto L7796;}}
   else {
     alist_149X = s48_trace_value(alist_145X);
     pair_150X = s48_trace_value((*((long *) (((char *) (-3 + alist_149X))))));
@@ -847,7 +847,7 @@ static void HtopD8904(void)
       arg0K0 = next_152X;
       arg0K1 = alist_149X;
       arg0K2 = goners_147X;
-      goto L7734;}
+      goto L7735;}
     else {
       addr_158X = (((char *) (-3 + alist_149X))) + 4;
       S48_WRITE_BARRIER(alist_149X, addr_158X, goners_147X);
@@ -855,24 +855,24 @@ static void HtopD8904(void)
       arg0K0 = next_152X;
       arg0K1 = okay_146X;
       arg0K2 = alist_149X;
-      goto L7734;}}}
- L7742: {
+      goto L7735;}}}
+ L7743: {
   v_159X = arg0K0;
   Sfinalize_theseS = v_159X;
   arg0K0 = 0;
-  goto L12528;}
- L7795: {
+  goto L12529;}
+ L7796: {
   l_160X = arg0K0;
   if ((25 == (*((long *) ((((char *) (-3 + l_160X))) + 4))))) {
     addr_161X = (((char *) (-3 + l_160X))) + 4;
     S48_WRITE_BARRIER(l_160X, addr_161X, l2_148X);
     *((long *) addr_161X) = l2_148X;
     arg0K0 = goners_147X;
-    goto L7742;}
+    goto L7743;}
   else {
     arg0K0 = (*((long *) ((((char *) (-3 + l_160X))) + 4)));
-    goto L7795;}}
- L12528: {
+    goto L7796;}}
+ L12529: {
   i_162X = arg0K0;
   if ((i_162X == (Snumber_of_channelsS))) {
     Spending_interruptsS = (4 | (Spending_interruptsS));
@@ -889,58 +889,58 @@ static void HtopD8904(void)
   else {
     channel_163X = *((Svm_channelsS) + i_162X);
     if ((1 == channel_163X)) {
-      goto L12564;}
+      goto L12565;}
     else {
       header_164X = *((long *) ((((char *) (-3 + channel_163X))) + -4));
       if ((3 == (3 & header_164X))) {
         arg0K0 = header_164X;
-        goto L12557;}
+        goto L12558;}
       else {
         if ((0 == (*((long *) (((char *) (-3 + channel_163X))))))) {
           arg0K0 = 1;
-          goto L12557;}
+          goto L12558;}
         else {
           id_165X = *((long *) ((((char *) (-3 + channel_163X))) + 4));
           if ((0 == (3 & id_165X))) {
             arg0K0 = id_165X;
-            goto L12240;}
+            goto L12241;}
           else {
             if ((3 == (3 & (*((long *) ((((char *) (-3 + id_165X))) + -4)))))) {
               arg0K0 = (*((long *) ((((char *) (-3 + id_165X))) + -4)));
-              goto L12240;}
+              goto L12241;}
             else {
               arg0K0 = id_165X;
-              goto L12240;}}}}}}}
- L12564: {
+              goto L12241;}}}}}}}
+ L12565: {
   arg0K0 = (1 + i_162X);
-  goto L12528;}
- L12557: {
+  goto L12529;}
+ L12558: {
   new_166X = arg0K0;
   *((Svm_channelsS) + i_162X) = new_166X;
-  goto L12564;}
- L12240: {
+  goto L12565;}
+ L12241: {
   id_167X = arg0K0;
   status_168X = close_channelB(channel_163X);
   if ((status_168X == NO_ERRORS)) {
-    goto L12255;}
+    goto L12256;}
   else {
     channel_close_error(status_168X, (*((long *) ((((char *) (-3 + channel_163X))) + 8))), id_167X);
-    goto L12255;}}
- L12255: {
+    goto L12256;}}
+ L12256: {
   ps_write_string("Channel closed: ", (stderr));
   if ((0 == (3 & id_167X))) {
     ps_write_integer((((id_167X)>>2)), (stderr));
-    goto L12273;}
+    goto L12274;}
   else {
     ps_write_string((((char *)(((char *) (-3 + id_167X))))), (stderr));
-    goto L12273;}}
- L12273: {
+    goto L12274;}}
+ L12274: {
   ps_write_string(" ", (stderr));
   ps_write_integer(((((*((long *) ((((char *) (-3 + channel_163X))) + 8))))>>2)), (stderr));
   { long ignoreXX;
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
   arg0K0 = 1;
-  goto L12557;}
+  goto L12558;}
 }
 static long collect_saving_temps(long value0_169X, long value1_170X, long *TT0)
 {
@@ -981,20 +981,21 @@ long s48_exported_bindings(void)
 
  {  return (Sexported_bindingsS);}
 }
-char * s48_set_gc_roots_baseB(void)
+char * s48_set_gc_roots_baseB(char * *TT0)
 {
   char * old_base_176X;
  {  old_base_176X = Sexternal_root_stack_baseS;
   Sexternal_root_stack_baseS = (Sexternal_root_stackS);
+  *TT0 = (Sexternal_root_stackS);
   return old_base_176X;}
 }
-char s48_release_gc_roots_baseB(char * old_base_177X)
+char s48_release_gc_roots_baseB(char * old_base_177X, char * old_stack_178X)
 {
-  char okayP_178X;
- {  okayP_178X = (Sexternal_root_stackS) == (Sexternal_root_stack_baseS);
+  char okayP_179X;
+ {  okayP_179X = (Sexternal_root_stackS) == (Sexternal_root_stack_baseS);
   Sexternal_root_stack_baseS = old_base_177X;
-  Sexternal_root_stackS = old_base_177X;
-  return okayP_178X;}
+  Sexternal_root_stackS = old_stack_178X;
+  return okayP_179X;}
 }
 void s48_disable_interruptsB(void)
 {
@@ -1003,56 +1004,56 @@ void s48_disable_interruptsB(void)
   Senabled_interruptsS = 0;
   return;}
 }
-void s48_push_gc_rootsB(char * frame_179X, long n_180X)
+void s48_push_gc_rootsB(char * frame_180X, long n_181X)
 {
 
- {  *((long *) frame_179X) = n_180X;
-  *((long *) (frame_179X + 4)) = (((long) (Sexternal_root_stackS)));
-  Sexternal_root_stackS = frame_179X;
+ {  *((long *) frame_180X) = n_181X;
+  *((long *) (frame_180X + 4)) = (((long) (Sexternal_root_stackS)));
+  Sexternal_root_stackS = frame_180X;
   return;}
 }
-void s48_register_gc_rootB(char * loc_addr_181X)
+void s48_register_gc_rootB(char * loc_addr_182X)
 {
-  char * frame_182X;
- {  frame_182X = (char *)malloc(8);
-  if ((frame_182X == NULL)) {
+  char * frame_183X;
+ {  frame_183X = (char *)malloc(8);
+  if ((frame_183X == NULL)) {
     ps_error("out of memory registering a global root", 0);
-    goto L3187;}
+    goto L3188;}
   else {
-    goto L3187;}}
- L3187: {
-  *((long *) frame_182X) = (((long) (Spermanent_external_rootsS)));
-  *((long *) (frame_182X + 4)) = (((long) loc_addr_181X));
-  Spermanent_external_rootsS = frame_182X;
+    goto L3188;}}
+ L3188: {
+  *((long *) frame_183X) = (((long) (Spermanent_external_rootsS)));
+  *((long *) (frame_183X + 4)) = (((long) loc_addr_182X));
+  Spermanent_external_rootsS = frame_183X;
   return;}
 }
-void s48_stack_setB(long x_183X, long value_184X)
+void s48_stack_setB(long x_184X, long value_185X)
 {
 
- {  *((long *) ((SstackS) + (4 + (((x_183X)<<2))))) = value_184X;
+ {  *((long *) ((SstackS) + (4 + (((x_184X)<<2))))) = value_185X;
   return;}
 }
-long s48_stack_ref(long i_185X)
+long s48_stack_ref(long i_186X)
 {
 
- {  return (*((long *) ((SstackS) + (4 + (((i_185X)<<2))))));}
+ {  return (*((long *) ((SstackS) + (4 + (((i_186X)<<2))))));}
 }
-void s48_push(long x_186X)
+void s48_push(long x_187X)
 {
 
- {  *((long *) (SstackS)) = x_186X;
+ {  *((long *) (SstackS)) = x_187X;
   SstackS = ((SstackS) + -4);
   return;}
 }
-long s48_resetup_external_exception(long new_why_187X, long additional_nargs_188X)
+long s48_resetup_external_exception(long new_why_188X, long additional_nargs_189X)
 {
-  long old_why_190X;
-  long old_nargs_189X;
- {  old_nargs_189X = Sexternal_exception_nargsS;
-  old_why_190X = *((long *) ((SstackS) + (4 + (((old_nargs_189X)<<2)))));
-  *((long *) ((SstackS) + (4 + (((old_nargs_189X)<<2))))) = (((new_why_187X)<<2));
-  Sexternal_exception_nargsS = (old_nargs_189X + additional_nargs_188X);
-  return old_why_190X;}
+  long old_why_191X;
+  long old_nargs_190X;
+ {  old_nargs_190X = Sexternal_exception_nargsS;
+  old_why_191X = *((long *) ((SstackS) + (4 + (((old_nargs_190X)<<2)))));
+  *((long *) ((SstackS) + (4 + (((old_nargs_190X)<<2))))) = (((new_why_188X)<<2));
+  Sexternal_exception_nargsS = (old_nargs_190X + additional_nargs_189X);
+  return old_why_191X;}
 }
 void s48_enable_interruptsB(void)
 {
@@ -1081,197 +1082,197 @@ char s48_pop_gc_rootsB(void)
 void s48_mark_traced_channels_closedB(void)
 {
   long arg0K0;
+  char * addr_197X;
   char * addr_196X;
-  char * addr_195X;
-  long descriptor_194X;
-  long header_193X;
-  long channel_192X;
-  long i_191X;
+  long descriptor_195X;
+  long header_194X;
+  long channel_193X;
+  long i_192X;
  {  arg0K0 = 0;
-  goto L6344;}
- L6344: {
-  i_191X = arg0K0;
-  if ((i_191X == (Snumber_of_channelsS))) {
+  goto L6345;}
+ L6345: {
+  i_192X = arg0K0;
+  if ((i_192X == (Snumber_of_channelsS))) {
     return;}
   else {
-    channel_192X = *((Svm_channelsS) + i_191X);
-    if ((1 == channel_192X)) {
-      goto L6404;}
+    channel_193X = *((Svm_channelsS) + i_192X);
+    if ((1 == channel_193X)) {
+      goto L6405;}
     else {
-      header_193X = *((long *) ((((char *) (-3 + channel_192X))) + -4));
-      if ((3 == (3 & header_193X))) {
+      header_194X = *((long *) ((((char *) (-3 + channel_193X))) + -4));
+      if ((3 == (3 & header_194X))) {
         ps_write_string("Channel closed in dumped image: ", (stderr));
-        descriptor_194X = *((long *) ((((char *) (-3 + channel_192X))) + 4));
-        if ((0 == (3 & descriptor_194X))) {
-          ps_write_integer(((((*((long *) ((((char *) (-3 + channel_192X))) + 4))))>>2)), (stderr));
-          goto L6390;}
+        descriptor_195X = *((long *) ((((char *) (-3 + channel_193X))) + 4));
+        if ((0 == (3 & descriptor_195X))) {
+          ps_write_integer(((((*((long *) ((((char *) (-3 + channel_193X))) + 4))))>>2)), (stderr));
+          goto L6391;}
         else {
-          ps_write_string((((char *)(((char *) (-3 + (*((long *) ((((char *) (-3 + channel_192X))) + 4)))))))), (stderr));
-          goto L6390;}}
+          ps_write_string((((char *)(((char *) (-3 + (*((long *) ((((char *) (-3 + channel_193X))) + 4)))))))), (stderr));
+          goto L6391;}}
       else {
-        goto L6404;}}}}
- L6404: {
-  arg0K0 = (1 + i_191X);
-  goto L6344;}
- L6390: {
+        goto L6405;}}}}
+ L6405: {
+  arg0K0 = (1 + i_192X);
+  goto L6345;}
+ L6391: {
   { long ignoreXX;
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-  addr_195X = ((char *) (-3 + header_193X));
-  S48_WRITE_BARRIER(header_193X, addr_195X, 0);
-  *((long *) addr_195X) = 0;
-  addr_196X = (((char *) (-3 + header_193X))) + 8;
-  S48_WRITE_BARRIER(header_193X, addr_196X, -4);
-  *((long *) addr_196X) = -4;
-  goto L6404;}
+  addr_196X = ((char *) (-3 + header_194X));
+  S48_WRITE_BARRIER(header_194X, addr_196X, 0);
+  *((long *) addr_196X) = 0;
+  addr_197X = (((char *) (-3 + header_194X))) + 8;
+  S48_WRITE_BARRIER(header_194X, addr_197X, -4);
+  *((long *) addr_197X) = -4;
+  goto L6405;}
 }
-long s48_set_channel_os_index(long channel_197X, long os_index_198X)
+long s48_set_channel_os_index(long channel_198X, long os_index_199X)
 {
-  char * addr_205X;
-  long val_204X;
-  long v_203X;
-  long x_202X;
-  long old_index_201X;
-  char x_200X;
-  char temp_199X;
- {  temp_199X = os_index_198X < (Snumber_of_channelsS);
-  if (temp_199X) {
-    goto L7913;}
+  char * addr_206X;
+  long val_205X;
+  long v_204X;
+  long x_203X;
+  long old_index_202X;
+  char x_201X;
+  char temp_200X;
+ {  temp_200X = os_index_199X < (Snumber_of_channelsS);
+  if (temp_200X) {
+    goto L7914;}
   else {
-    x_200X = add_more_channels(os_index_198X);
-    if (x_200X) {
-      goto L7913;}
+    x_201X = add_more_channels(os_index_199X);
+    if (x_201X) {
+      goto L7914;}
     else {
       return 36;}}}
- L7913: {
-  if ((1 == (*((Svm_channelsS) + os_index_198X)))) {
-    old_index_201X = (((*((long *) ((((char *) (-3 + channel_197X))) + 8))))>>2);
-    x_202X = *((long *) ((((char *) (-3 + channel_197X))) + 16));
-    if ((5 == x_202X)) {
-      v_203X = ps_abort_fd_op(old_index_201X);
-      enqueue_channelB(old_index_201X, v_203X);
-      goto L7899;}
+ L7914: {
+  if ((1 == (*((Svm_channelsS) + os_index_199X)))) {
+    old_index_202X = (((*((long *) ((((char *) (-3 + channel_198X))) + 8))))>>2);
+    x_203X = *((long *) ((((char *) (-3 + channel_198X))) + 16));
+    if ((5 == x_203X)) {
+      v_204X = ps_abort_fd_op(old_index_202X);
+      enqueue_channelB(old_index_202X, v_204X);
+      goto L7900;}
     else {
-      goto L7899;}}
+      goto L7900;}}
   else {
     return 44;}}
- L7899: {
-  *((Svm_channelsS) + old_index_201X) = 1;
-  *((Svm_channelsS) + os_index_198X) = channel_197X;
-  val_204X = ((os_index_198X)<<2);
-  addr_205X = (((char *) (-3 + channel_197X))) + 8;
-  S48_WRITE_BARRIER(channel_197X, addr_205X, val_204X);
-  *((long *) addr_205X) = val_204X;
+ L7900: {
+  *((Svm_channelsS) + old_index_202X) = 1;
+  *((Svm_channelsS) + os_index_199X) = channel_198X;
+  val_205X = ((os_index_199X)<<2);
+  addr_206X = (((char *) (-3 + channel_198X))) + 8;
+  S48_WRITE_BARRIER(channel_198X, addr_206X, val_205X);
+  *((long *) addr_206X) = val_205X;
   return 5;}
 }
 long s48_cleaned_imported_bindings(void)
 {
   long arg0K1;
   long arg0K0;
-  long v_219X;
-  char * addr_218X;
-  long entry_217X;
-  char * addr_216X;
-  long new_foo_215X;
-  char v_214X;
-  char * addr_213X;
-  long okay_212X;
-  long foo_211X;
-  long i_210X;
-  long foo_209X;
-  long i_208X;
+  long v_220X;
+  char * addr_219X;
+  long entry_218X;
+  char * addr_217X;
+  long new_foo_216X;
+  char v_215X;
+  char * addr_214X;
+  long okay_213X;
+  long foo_212X;
+  long i_211X;
+  long foo_210X;
+  long i_209X;
+  long table_208X;
   long table_207X;
-  long table_206X;
- {  table_206X = s48_trace_value((Simported_bindingsS));
-  table_207X = s48_trace_value(table_206X);
+ {  table_207X = s48_trace_value((Simported_bindingsS));
+  table_208X = s48_trace_value(table_207X);
   arg0K0 = 0;
-  goto L8590;}
- L8590: {
-  i_208X = arg0K0;
-  if ((1024 == i_208X)) {
+  goto L8591;}
+ L8591: {
+  i_209X = arg0K0;
+  if ((1024 == i_209X)) {
     arg0K0 = 0;
-    goto L9679;}
+    goto L9680;}
   else {
-    foo_209X = *((long *) ((((char *) (-3 + table_207X))) + (((i_208X)<<2))));
-    arg0K0 = foo_209X;
+    foo_210X = *((long *) ((((char *) (-3 + table_208X))) + (((i_209X)<<2))));
+    arg0K0 = foo_210X;
     arg0K1 = 1;
-    goto L8610;}}
- L9679: {
-  i_210X = arg0K0;
-  if ((1024 == i_210X)) {
-    return table_206X;}
+    goto L8611;}}
+ L9680: {
+  i_211X = arg0K0;
+  if ((1024 == i_211X)) {
+    return table_207X;}
   else {
-    arg0K0 = (*((long *) ((((char *) (-3 + table_206X))) + (((i_210X)<<2)))));
-    goto L9687;}}
- L8610: {
-  foo_211X = arg0K0;
-  okay_212X = arg0K1;
-  if ((1 == foo_211X)) {
-    addr_213X = (((char *) (-3 + table_207X))) + (((i_208X)<<2));
-    S48_WRITE_BARRIER(table_207X, addr_213X, okay_212X);
-    *((long *) addr_213X) = okay_212X;
-    arg0K0 = (1 + i_208X);
-    goto L8590;}
+    arg0K0 = (*((long *) ((((char *) (-3 + table_207X))) + (((i_211X)<<2)))));
+    goto L9688;}}
+ L8611: {
+  foo_212X = arg0K0;
+  okay_213X = arg0K1;
+  if ((1 == foo_212X)) {
+    addr_214X = (((char *) (-3 + table_208X))) + (((i_209X)<<2));
+    S48_WRITE_BARRIER(table_208X, addr_214X, okay_213X);
+    *((long *) addr_214X) = okay_213X;
+    arg0K0 = (1 + i_209X);
+    goto L8591;}
   else {
-    v_214X = s48_extantP(foo_211X);
-    if (v_214X) {
-      new_foo_215X = s48_trace_value(foo_211X);
-      addr_216X = (((char *) (-3 + new_foo_215X))) + 12;
-      S48_WRITE_BARRIER(new_foo_215X, addr_216X, okay_212X);
-      *((long *) addr_216X) = okay_212X;
-      arg0K0 = new_foo_215X;
-      goto L8615;}
+    v_215X = s48_extantP(foo_212X);
+    if (v_215X) {
+      new_foo_216X = s48_trace_value(foo_212X);
+      addr_217X = (((char *) (-3 + new_foo_216X))) + 12;
+      S48_WRITE_BARRIER(new_foo_216X, addr_217X, okay_213X);
+      *((long *) addr_217X) = okay_213X;
+      arg0K0 = new_foo_216X;
+      goto L8616;}
     else {
-      arg0K0 = okay_212X;
-      goto L8615;}}}
- L9687: {
-  entry_217X = arg0K0;
-  if ((1 == entry_217X)) {
-    arg0K0 = (1 + i_210X);
-    goto L9679;}
+      arg0K0 = okay_213X;
+      goto L8616;}}}
+ L9688: {
+  entry_218X = arg0K0;
+  if ((1 == entry_218X)) {
+    arg0K0 = (1 + i_211X);
+    goto L9680;}
   else {
-    addr_218X = (((char *) (-3 + entry_217X))) + 8;
-    S48_WRITE_BARRIER(entry_217X, addr_218X, 529);
-    *((long *) addr_218X) = 529;
-    arg0K0 = (*((long *) ((((char *) (-3 + entry_217X))) + 12)));
-    goto L9687;}}
- L8615: {
-  v_219X = arg0K0;
-  arg0K0 = (*((long *) ((((char *) (-3 + foo_211X))) + 12)));
-  arg0K1 = v_219X;
-  goto L8610;}
+    addr_219X = (((char *) (-3 + entry_218X))) + 8;
+    S48_WRITE_BARRIER(entry_218X, addr_219X, 529);
+    *((long *) addr_219X) = 529;
+    arg0K0 = (*((long *) ((((char *) (-3 + entry_218X))) + 12)));
+    goto L9688;}}
+ L8616: {
+  v_220X = arg0K0;
+  arg0K0 = (*((long *) ((((char *) (-3 + foo_212X))) + 12)));
+  arg0K1 = v_220X;
+  goto L8611;}
 }
 long s48_copy_symbol_table(void)
 {
-  long new_220X;
- {  new_220X = s48_trace_value((Sthe_symbol_tableS));
-  HcleanerB2170(new_220X);
-  return new_220X;}
+  long new_221X;
+ {  new_221X = s48_trace_value((Sthe_symbol_tableS));
+  HcleanerB2170(new_221X);
+  return new_221X;}
 }
-void s48_setup_external_exception(long why_221X, long nargs_222X)
+void s48_setup_external_exception(long why_222X, long nargs_223X)
 {
 
- {  push_exception_continuationB(why_221X, 1);
-  if ((10 < nargs_222X)) {
+ {  push_exception_continuationB(why_222X, 1);
+  if ((10 < nargs_223X)) {
     ps_error("too many arguments from external exception", 0);
-    goto L11031;}
+    goto L11032;}
   else {
-    goto L11031;}}
- L11031: {
-  Sexternal_exception_nargsS = nargs_222X;
+    goto L11032;}}
+ L11032: {
+  Sexternal_exception_nargsS = nargs_223X;
   Sexternal_exceptionPS = 1;
   return;}
 }
-void s48_close_channel(long os_index_223X)
+void s48_close_channel(long os_index_224X)
 {
-  long obj_224X;
- {  if ((os_index_223X < 0)) {
+  long obj_225X;
+ {  if ((os_index_224X < 0)) {
     return;}
   else {
-    if ((os_index_223X < (Snumber_of_channelsS))) {
-      obj_224X = *((Svm_channelsS) + os_index_223X);
-      if ((3 == (3 & obj_224X))) {
-        if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_224X))) + -4))))>>2))))) {
-          close_channelB((*((Svm_channelsS) + os_index_223X)));
+    if ((os_index_224X < (Snumber_of_channelsS))) {
+      obj_225X = *((Svm_channelsS) + os_index_224X);
+      if ((3 == (3 & obj_225X))) {
+        if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_225X))) + -4))))>>2))))) {
+          close_channelB((*((Svm_channelsS) + os_index_224X)));
           return;}
         else {
           return;}}
@@ -1283,582 +1284,582 @@ void s48_close_channel(long os_index_223X)
 char s48_warn_about_undefined_imported_bindings(void)
 {
   long arg0K0;
-  long name_230X;
-  long entry_229X;
-  char temp_228X;
-  long i_227X;
-  long table_226X;
-  FILE * out_225X;
- {  out_225X = stderr;
-  table_226X = Simported_bindingsS;
+  long name_231X;
+  long entry_230X;
+  char temp_229X;
+  long i_228X;
+  long table_227X;
+  FILE * out_226X;
+ {  out_226X = stderr;
+  table_227X = Simported_bindingsS;
   arg0K0 = 0;
-  goto L11571;}
- L11571: {
-  i_227X = arg0K0;
-  temp_228X = 1024 == i_227X;
-  if (temp_228X) {
-    return temp_228X;}
+  goto L11572;}
+ L11572: {
+  i_228X = arg0K0;
+  temp_229X = 1024 == i_228X;
+  if (temp_229X) {
+    return temp_229X;}
   else {
-    arg0K0 = (*((long *) ((((char *) (-3 + table_226X))) + (((i_227X)<<2)))));
-    goto L11579;}}
- L11579: {
-  entry_229X = arg0K0;
-  if ((1 == entry_229X)) {
-    arg0K0 = (1 + i_227X);
-    goto L11571;}
+    arg0K0 = (*((long *) ((((char *) (-3 + table_227X))) + (((i_228X)<<2)))));
+    goto L11580;}}
+ L11580: {
+  entry_230X = arg0K0;
+  if ((1 == entry_230X)) {
+    arg0K0 = (1 + i_228X);
+    goto L11572;}
   else {
-    if ((17 == (255 & (*((long *) ((((char *) (-3 + entry_229X))) + 8)))))) {
-      name_230X = *((long *) (((char *) (-3 + entry_229X))));
-      ps_write_string("undefined imported name ", out_225X);
-      if ((3 == (3 & name_230X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_230X))) + -4))))>>2))))) {
-          ps_write_string((((char *)(((char *) (-3 + name_230X))))), out_225X);
-          goto L11559;}
+    if ((17 == (255 & (*((long *) ((((char *) (-3 + entry_230X))) + 8)))))) {
+      name_231X = *((long *) (((char *) (-3 + entry_230X))));
+      ps_write_string("undefined imported name ", out_226X);
+      if ((3 == (3 & name_231X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_231X))) + -4))))>>2))))) {
+          ps_write_string((((char *)(((char *) (-3 + name_231X))))), out_226X);
+          goto L11560;}
         else {
-          goto L11557;}}
+          goto L11558;}}
       else {
-        goto L11557;}}
+        goto L11558;}}
     else {
-      goto L11582;}}}
- L11559: {
+      goto L11583;}}}
+ L11560: {
   { long ignoreXX;
-  PS_WRITE_CHAR(10, out_225X, ignoreXX) }
-  goto L11582;}
- L11557: {
-  ps_write_string("<invalid name>", out_225X);
-  goto L11559;}
- L11582: {
-  arg0K0 = (*((long *) ((((char *) (-3 + entry_229X))) + 12)));
-  goto L11579;}
+  PS_WRITE_CHAR(10, out_226X, ignoreXX) }
+  goto L11583;}
+ L11558: {
+  ps_write_string("<invalid name>", out_226X);
+  goto L11560;}
+ L11583: {
+  arg0K0 = (*((long *) ((((char *) (-3 + entry_230X))) + 12)));
+  goto L11580;}
 }
-void s48_define_exported_binding(char *name_231X, long value_232X)
+void s48_define_exported_binding(char *name_232X, long value_233X)
 {
   char arg2K0;
   long arg0K2;
   long arg0K1;
   long arg0K0;
-  char * addr_245X;
-  long x_244X;
-  long name_243X;
-  long value_242X;
-  long key_241X;
-  long temp_240X;
-  long key_239X;
-  char okayP_238X;
-  char v_237X;
-  long temp1_236X;
-  long temp0_235X;
-  char v_234X;
-  long space_233X;
- {  space_233X = 6 + ((((4 + (strlen((char *) name_231X))))>>2));
-  v_234X = AVAILABLEp(space_233X);
-  if (v_234X) {
+  char * addr_246X;
+  long x_245X;
+  long name_244X;
+  long value_243X;
+  long key_242X;
+  long temp_241X;
+  long key_240X;
+  char okayP_239X;
+  char v_238X;
+  long temp1_237X;
+  long temp0_236X;
+  char v_235X;
+  long space_234X;
+ {  space_234X = 6 + ((((4 + (strlen((char *) name_232X))))>>2));
+  v_235X = AVAILABLEp(space_234X);
+  if (v_235X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    arg0K2 = value_232X;
-    goto L14351;}
+    arg0K2 = value_233X;
+    goto L14352;}
   else {
-    temp0_235X = collect_saving_temps(value_232X, 1, &temp1_236X);
-    v_237X = AVAILABLEp(space_233X);
-    if (v_237X) {
+    temp0_236X = collect_saving_temps(value_233X, 1, &temp1_237X);
+    v_238X = AVAILABLEp(space_234X);
+    if (v_238X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      arg0K2 = temp0_235X;
-      goto L14351;}
+      arg0K2 = temp0_236X;
+      goto L14352;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      arg0K2 = temp0_235X;
-      goto L14351;}}}
- L14351: {
-  okayP_238X = arg2K0;
-  key_239X = arg0K1;
-  temp_240X = arg0K2;
-  if (okayP_238X) {
-    arg0K0 = key_239X;
-    arg0K1 = temp_240X;
-    goto L14332;}
+      arg0K2 = temp0_236X;
+      goto L14352;}}}
+ L14352: {
+  okayP_239X = arg2K0;
+  key_240X = arg0K1;
+  temp_241X = arg0K2;
+  if (okayP_239X) {
+    arg0K0 = key_240X;
+    arg0K1 = temp_241X;
+    goto L14333;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_239X;
-    arg0K1 = temp_240X;
-    goto L14332;}}
- L14332: {
-  key_241X = arg0K0;
-  value_242X = arg0K1;
-  name_243X = enter_string(name_231X, key_241X);
-  x_244X = Hlookup2093((Simported_bindingsS), name_243X, key_241X);
-  addr_245X = (((char *) (-3 + x_244X))) + 8;
-  S48_WRITE_BARRIER(x_244X, addr_245X, value_242X);
-  *((long *) addr_245X) = value_242X;
+    arg0K0 = key_240X;
+    arg0K1 = temp_241X;
+    goto L14333;}}
+ L14333: {
+  key_242X = arg0K0;
+  value_243X = arg0K1;
+  name_244X = enter_string(name_232X, key_242X);
+  x_245X = Hlookup2093((Simported_bindingsS), name_244X, key_242X);
+  addr_246X = (((char *) (-3 + x_245X))) + 8;
+  S48_WRITE_BARRIER(x_245X, addr_246X, value_243X);
+  *((long *) addr_246X) = value_243X;
   return;}
 }
-long s48_add_channel(long mode_246X, long id_247X, long os_index_248X)
+long s48_add_channel(long mode_247X, long id_248X, long os_index_249X)
 {
   char arg2K0;
   long arg0K1;
   long arg0K0;
-  long status_256X;
-  long channel_255X;
-  long v_254X;
-  long key_253X;
-  char okayP_252X;
-  char v_251X;
-  long temp1_250X;
-  char v_249X;
- {  v_249X = AVAILABLEp(6);
-  if (v_249X) {
+  long status_257X;
+  long channel_256X;
+  long v_255X;
+  long key_254X;
+  char okayP_253X;
+  char v_252X;
+  long temp1_251X;
+  char v_250X;
+ {  v_250X = AVAILABLEp(6);
+  if (v_250X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    goto L14740;}
+    goto L14741;}
   else {
-    collect_saving_temps(1, 1, &temp1_250X);
-    v_251X = AVAILABLEp(6);
-    if (v_251X) {
+    collect_saving_temps(1, 1, &temp1_251X);
+    v_252X = AVAILABLEp(6);
+    if (v_252X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L14740;}
+      goto L14741;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      goto L14740;}}}
- L14740: {
-  okayP_252X = arg2K0;
-  key_253X = arg0K1;
-  if (okayP_252X) {
-    arg0K0 = key_253X;
-    goto L14723;}
+      goto L14741;}}}
+ L14741: {
+  okayP_253X = arg2K0;
+  key_254X = arg0K1;
+  if (okayP_253X) {
+    arg0K0 = key_254X;
+    goto L14724;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_253X;
-    goto L14723;}}
- L14723: {
-  v_254X = arg0K0;
-  channel_255X = make_registered_channel((((mode_246X)>>2)), id_247X, os_index_248X, v_254X, &status_256X);
-  if ((3 == (3 & channel_255X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_255X))) + -4))))>>2))))) {
-      return channel_255X;}
+    arg0K0 = key_254X;
+    goto L14724;}}
+ L14724: {
+  v_255X = arg0K0;
+  channel_256X = make_registered_channel((((mode_247X)>>2)), id_248X, os_index_249X, v_255X, &status_257X);
+  if ((3 == (3 & channel_256X))) {
+    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_256X))) + -4))))>>2))))) {
+      return channel_256X;}
     else {
-      goto L14734;}}
+      goto L14735;}}
   else {
-    goto L14734;}}
- L14734: {
-  return (((status_256X)<<2));}
+    goto L14735;}}
+ L14735: {
+  return (((status_257X)<<2));}
 }
-long s48_get_imported_binding(char *name_257X)
+long s48_get_imported_binding(char *name_258X)
 {
   char arg2K0;
   long arg0K1;
   long arg0K0;
-  long name_265X;
+  long name_266X;
+  long key_265X;
   long key_264X;
-  long key_263X;
-  char okayP_262X;
-  char v_261X;
-  long temp1_260X;
-  char v_259X;
-  long space_258X;
- {  space_258X = 6 + ((((4 + (strlen((char *) name_257X))))>>2));
-  v_259X = AVAILABLEp(space_258X);
-  if (v_259X) {
+  char okayP_263X;
+  char v_262X;
+  long temp1_261X;
+  char v_260X;
+  long space_259X;
+ {  space_259X = 6 + ((((4 + (strlen((char *) name_258X))))>>2));
+  v_260X = AVAILABLEp(space_259X);
+  if (v_260X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    goto L15429;}
+    goto L15430;}
   else {
-    collect_saving_temps(1, 1, &temp1_260X);
-    v_261X = AVAILABLEp(space_258X);
-    if (v_261X) {
+    collect_saving_temps(1, 1, &temp1_261X);
+    v_262X = AVAILABLEp(space_259X);
+    if (v_262X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L15429;}
+      goto L15430;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      goto L15429;}}}
- L15429: {
-  okayP_262X = arg2K0;
-  key_263X = arg0K1;
-  if (okayP_262X) {
-    arg0K0 = key_263X;
-    goto L15416;}
+      goto L15430;}}}
+ L15430: {
+  okayP_263X = arg2K0;
+  key_264X = arg0K1;
+  if (okayP_263X) {
+    arg0K0 = key_264X;
+    goto L15417;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_263X;
-    goto L15416;}}
- L15416: {
-  key_264X = arg0K0;
-  name_265X = enter_string(name_257X, key_264X);
-  return Hlookup2112((Sexported_bindingsS), name_265X, key_264X);}
+    arg0K0 = key_264X;
+    goto L15417;}}
+ L15417: {
+  key_265X = arg0K0;
+  name_266X = enter_string(name_258X, key_265X);
+  return Hlookup2112((Sexported_bindingsS), name_266X, key_265X);}
 }
-long s48_allocate_stob(long type_266X, long size_267X)
+long s48_allocate_stob(long type_267X, long size_268X)
 {
-  char * addr_271X;
-  char v_270X;
-  long temp1_269X;
-  char v_268X;
- {  v_268X = AVAILABLEp(size_267X);
-  if (v_268X) {
-    goto L15724;}
+  char * addr_272X;
+  char v_271X;
+  long temp1_270X;
+  char v_269X;
+ {  v_269X = AVAILABLEp(size_268X);
+  if (v_269X) {
+    goto L15725;}
   else {
-    collect_saving_temps(1, 1, &temp1_269X);
-    v_270X = AVAILABLEp(size_267X);
-    if (v_270X) {
-      goto L15724;}
+    collect_saving_temps(1, 1, &temp1_270X);
+    v_271X = AVAILABLEp(size_268X);
+    if (v_271X) {
+      goto L15725;}
     else {
       ps_error("Scheme48 heap overflow", 0);
-      goto L15724;}}}
- L15724: {
-  addr_271X = ALLOCATE_SPACE(type_266X, (4 + size_267X));
-  *((long *) addr_271X) = (2 + (((((((size_267X)<<6)) + type_266X))<<2)));
-  return (3 + (((long) (addr_271X + 4))));}
+      goto L15725;}}}
+ L15725: {
+  addr_272X = ALLOCATE_SPACE(type_267X, (4 + size_268X));
+  *((long *) addr_272X) = (2 + (((((((size_268X)<<6)) + type_267X))<<2)));
+  return (3 + (((long) (addr_272X + 4))));}
 }
-void s48_initialize_vm(char * stack_begin_272X, long stack_size_273X)
+void s48_initialize_vm(char * stack_begin_273X, long stack_size_274X)
 {
   char arg2K0;
   char * arg1K0;
   long arg0K2;
   long arg0K1;
   long arg0K0;
-  char * addr_344X;
-  long code_343X;
-  long temp_342X;
+  char * addr_345X;
+  long code_344X;
+  long temp_343X;
+  char * addr_342X;
   char * addr_341X;
   char * addr_340X;
-  char * addr_339X;
-  long code_338X;
-  long temp_337X;
+  long code_339X;
+  long temp_338X;
+  char * addr_337X;
   char * addr_336X;
-  char * addr_335X;
-  char v_334X;
-  long temp1_333X;
-  char v_332X;
-  long cont_331X;
-  char * addr_330X;
-  long code_329X;
-  long temp_328X;
+  char v_335X;
+  long temp1_334X;
+  char v_333X;
+  long cont_332X;
+  char * addr_331X;
+  long code_330X;
+  long temp_329X;
+  char * addr_328X;
   char * addr_327X;
-  char * addr_326X;
-  char v_325X;
-  long temp1_324X;
-  char v_323X;
-  char * a_322X;
-  long size_321X;
-  char * start_320X;
-  char * stack_319X;
-  long v_318X;
-  char * addr_317X;
-  long i_316X;
+  char v_326X;
+  long temp1_325X;
+  char v_324X;
+  char * a_323X;
+  long size_322X;
+  char * start_321X;
+  char * stack_320X;
+  long v_319X;
+  char * addr_318X;
+  long i_317X;
+  char * addr_316X;
   char * addr_315X;
-  char * addr_314X;
-  long val_313X;
-  long index_312X;
-  long h_311X;
-  long i_310X;
-  long table_309X;
-  char * addr_308X;
-  long v_307X;
-  char * addr_306X;
-  long i_305X;
-  long n_304X;
-  long string_303X;
-  long foo_302X;
-  long table_301X;
-  long i_300X;
-  long table_299X;
-  char * addr_298X;
-  long exported_bindings_297X;
-  long imported_bindings_296X;
-  long n_295X;
-  long symbols_294X;
-  long temp1_293X;
-  long temp0_292X;
-  char okayP_291X;
-  char * addr_290X;
-  long maybe_289X;
-  long v_288X;
-  long maybe_287X;
-  long i_286X;
-  char v_285X;
-  long temp1_284X;
-  long temp0_283X;
-  char v_282X;
-  long imported_bindings_281X;
-  long exported_bindings_280X;
-  long table_279X;
-  char * addr_278X;
-  char v_277X;
-  long temp1_276X;
-  char v_275X;
-  long symbol_table_274X;
- {  symbol_table_274X = s48_initial_symbols();
-  if ((symbol_table_274X == 1)) {
-    v_275X = AVAILABLEp(1025);
-    if (v_275X) {
-      goto L15455;}
+  long val_314X;
+  long index_313X;
+  long h_312X;
+  long i_311X;
+  long table_310X;
+  char * addr_309X;
+  long v_308X;
+  char * addr_307X;
+  long i_306X;
+  long n_305X;
+  long string_304X;
+  long foo_303X;
+  long table_302X;
+  long i_301X;
+  long table_300X;
+  char * addr_299X;
+  long exported_bindings_298X;
+  long imported_bindings_297X;
+  long n_296X;
+  long symbols_295X;
+  long temp1_294X;
+  long temp0_293X;
+  char okayP_292X;
+  char * addr_291X;
+  long maybe_290X;
+  long v_289X;
+  long maybe_288X;
+  long i_287X;
+  char v_286X;
+  long temp1_285X;
+  long temp0_284X;
+  char v_283X;
+  long imported_bindings_282X;
+  long exported_bindings_281X;
+  long table_280X;
+  char * addr_279X;
+  char v_278X;
+  long temp1_277X;
+  char v_276X;
+  long symbol_table_275X;
+ {  symbol_table_275X = s48_initial_symbols();
+  if ((symbol_table_275X == 1)) {
+    v_276X = AVAILABLEp(1025);
+    if (v_276X) {
+      goto L15456;}
     else {
-      collect_saving_temps(1, 1, &temp1_276X);
-      v_277X = AVAILABLEp(1025);
-      if (v_277X) {
-        goto L15455;}
+      collect_saving_temps(1, 1, &temp1_277X);
+      v_278X = AVAILABLEp(1025);
+      if (v_278X) {
+        goto L15456;}
       else {
         ps_error("Scheme48 heap overflow", 0);
-        goto L15455;}}}
+        goto L15456;}}}
   else {
-    Sthe_symbol_tableS = symbol_table_274X;
-    goto L15847;}}
- L15455: {
-  addr_278X = ALLOCATE_SPACE(2, 4100);
-  *((long *) addr_278X) = 1048586;
-  table_279X = 3 + (((long) (addr_278X + 4)));
+    Sthe_symbol_tableS = symbol_table_275X;
+    goto L15848;}}
+ L15456: {
+  addr_279X = ALLOCATE_SPACE(2, 4100);
+  *((long *) addr_279X) = 1048586;
+  table_280X = 3 + (((long) (addr_279X + 4)));
   arg0K0 = 0;
-  goto L15530;}
- L15847: {
-  exported_bindings_280X = s48_initial_exported_bindings();
-  imported_bindings_281X = s48_initial_imported_bindings();
-  v_282X = AVAILABLEp(2050);
-  if (v_282X) {
+  goto L15531;}
+ L15848: {
+  exported_bindings_281X = s48_initial_exported_bindings();
+  imported_bindings_282X = s48_initial_imported_bindings();
+  v_283X = AVAILABLEp(2050);
+  if (v_283X) {
     arg2K0 = 1;
-    arg0K1 = imported_bindings_281X;
-    arg0K2 = exported_bindings_280X;
-    goto L14433;}
+    arg0K1 = imported_bindings_282X;
+    arg0K2 = exported_bindings_281X;
+    goto L14434;}
   else {
-    temp0_283X = collect_saving_temps(imported_bindings_281X, exported_bindings_280X, &temp1_284X);
-    v_285X = AVAILABLEp(2050);
-    if (v_285X) {
+    temp0_284X = collect_saving_temps(imported_bindings_282X, exported_bindings_281X, &temp1_285X);
+    v_286X = AVAILABLEp(2050);
+    if (v_286X) {
       arg2K0 = 1;
-      arg0K1 = temp0_283X;
-      arg0K2 = temp1_284X;
-      goto L14433;}
+      arg0K1 = temp0_284X;
+      arg0K2 = temp1_285X;
+      goto L14434;}
     else {
       arg2K0 = 0;
-      arg0K1 = temp0_283X;
-      arg0K2 = temp1_284X;
-      goto L14433;}}}
- L15530: {
-  i_286X = arg0K0;
-  if ((1024 == i_286X)) {
-    Sthe_symbol_tableS = table_279X;
-    maybe_287X = s48_find_all(1);
-    if ((maybe_287X == 1)) {
-      collect_saving_temps(0, 0, &v_288X);
-      maybe_289X = s48_find_all(1);
-      if ((maybe_289X == 1)) {
+      arg0K1 = temp0_284X;
+      arg0K2 = temp1_285X;
+      goto L14434;}}}
+ L15531: {
+  i_287X = arg0K0;
+  if ((1024 == i_287X)) {
+    Sthe_symbol_tableS = table_280X;
+    maybe_288X = s48_find_all(1);
+    if ((maybe_288X == 1)) {
+      collect_saving_temps(0, 0, &v_289X);
+      maybe_290X = s48_find_all(1);
+      if ((maybe_290X == 1)) {
         ps_error("insufficient heap space to build symbol table", 0);
-        arg0K0 = maybe_289X;
-        goto L15484;}
+        arg0K0 = maybe_290X;
+        goto L15485;}
       else {
-        arg0K0 = maybe_289X;
-        goto L15484;}}
+        arg0K0 = maybe_290X;
+        goto L15485;}}
     else {
-      arg0K0 = maybe_287X;
-      goto L15484;}}
+      arg0K0 = maybe_288X;
+      goto L15485;}}
   else {
-    addr_290X = (((char *) (-3 + table_279X))) + (((i_286X)<<2));
-    S48_WRITE_BARRIER(table_279X, addr_290X, 1);
-    *((long *) addr_290X) = 1;
-    arg0K0 = (1 + i_286X);
-    goto L15530;}}
- L14433: {
-  okayP_291X = arg2K0;
-  temp0_292X = arg0K1;
-  temp1_293X = arg0K2;
-  if (okayP_291X) {
-    arg0K0 = temp0_292X;
-    arg0K1 = temp1_293X;
-    goto L14394;}
+    addr_291X = (((char *) (-3 + table_280X))) + (((i_287X)<<2));
+    S48_WRITE_BARRIER(table_280X, addr_291X, 1);
+    *((long *) addr_291X) = 1;
+    arg0K0 = (1 + i_287X);
+    goto L15531;}}
+ L14434: {
+  okayP_292X = arg2K0;
+  temp0_293X = arg0K1;
+  temp1_294X = arg0K2;
+  if (okayP_292X) {
+    arg0K0 = temp0_293X;
+    arg0K1 = temp1_294X;
+    goto L14395;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = temp0_292X;
-    arg0K1 = temp1_293X;
-    goto L14394;}}
- L15484: {
-  symbols_294X = arg0K0;
-  n_295X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + symbols_294X))) + -4))))>>8))))>>2);
+    arg0K0 = temp0_293X;
+    arg0K1 = temp1_294X;
+    goto L14395;}}
+ L15485: {
+  symbols_295X = arg0K0;
+  n_296X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + symbols_295X))) + -4))))>>8))))>>2);
   arg0K0 = 0;
-  goto L15551;}
- L14394: {
-  imported_bindings_296X = arg0K0;
-  exported_bindings_297X = arg0K1;
-  if ((1 == imported_bindings_296X)) {
-    addr_298X = ALLOCATE_SPACE(2, 4100);
-    *((long *) addr_298X) = 1048586;
-    table_299X = 3 + (((long) (addr_298X + 4)));
+  goto L15552;}
+ L14395: {
+  imported_bindings_297X = arg0K0;
+  exported_bindings_298X = arg0K1;
+  if ((1 == imported_bindings_297X)) {
+    addr_299X = ALLOCATE_SPACE(2, 4100);
+    *((long *) addr_299X) = 1048586;
+    table_300X = 3 + (((long) (addr_299X + 4)));
     arg0K0 = 0;
-    goto L14495;}
+    goto L14496;}
   else {
-    arg0K0 = imported_bindings_296X;
-    goto L14409;}}
- L15551: {
-  i_300X = arg0K0;
-  if ((i_300X == n_295X)) {
-    goto L15847;}
+    arg0K0 = imported_bindings_297X;
+    goto L14410;}}
+ L15552: {
+  i_301X = arg0K0;
+  if ((i_301X == n_296X)) {
+    goto L15848;}
   else {
-    table_301X = Sthe_symbol_tableS;
-    foo_302X = *((long *) ((((char *) (-3 + symbols_294X))) + (((i_300X)<<2))));
-    string_303X = *((long *) (((char *) (-3 + foo_302X))));
-    n_304X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_303X))) + -4))))>>8));
+    table_302X = Sthe_symbol_tableS;
+    foo_303X = *((long *) ((((char *) (-3 + symbols_295X))) + (((i_301X)<<2))));
+    string_304X = *((long *) (((char *) (-3 + foo_303X))));
+    n_305X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_304X))) + -4))))>>8));
     arg0K0 = 0;
     arg0K1 = 0;
-    goto L13018;}}
- L14495: {
-  i_305X = arg0K0;
-  if ((1024 == i_305X)) {
-    arg0K0 = table_299X;
-    goto L14409;}
+    goto L13019;}}
+ L14496: {
+  i_306X = arg0K0;
+  if ((1024 == i_306X)) {
+    arg0K0 = table_300X;
+    goto L14410;}
   else {
-    addr_306X = (((char *) (-3 + table_299X))) + (((i_305X)<<2));
-    S48_WRITE_BARRIER(table_299X, addr_306X, 1);
-    *((long *) addr_306X) = 1;
-    arg0K0 = (1 + i_305X);
-    goto L14495;}}
- L14409: {
-  v_307X = arg0K0;
-  Simported_bindingsS = v_307X;
-  if ((1 == exported_bindings_297X)) {
-    addr_308X = ALLOCATE_SPACE(2, 4100);
-    *((long *) addr_308X) = 1048586;
-    table_309X = 3 + (((long) (addr_308X + 4)));
+    addr_307X = (((char *) (-3 + table_300X))) + (((i_306X)<<2));
+    S48_WRITE_BARRIER(table_300X, addr_307X, 1);
+    *((long *) addr_307X) = 1;
+    arg0K0 = (1 + i_306X);
+    goto L14496;}}
+ L14410: {
+  v_308X = arg0K0;
+  Simported_bindingsS = v_308X;
+  if ((1 == exported_bindings_298X)) {
+    addr_309X = ALLOCATE_SPACE(2, 4100);
+    *((long *) addr_309X) = 1048586;
+    table_310X = 3 + (((long) (addr_309X + 4)));
     arg0K0 = 0;
-    goto L14472;}
+    goto L14473;}
   else {
-    arg0K0 = exported_bindings_297X;
-    goto L14422;}}
- L13018: {
-  i_310X = arg0K0;
-  h_311X = arg0K1;
-  if ((i_310X < n_304X)) {
-    arg0K0 = (1 + i_310X);
-    arg0K1 = (h_311X + (((*((unsigned char *) ((((char *) (-3 + string_303X))) + i_310X))))));
-    goto L13018;}
+    arg0K0 = exported_bindings_298X;
+    goto L14423;}}
+ L13019: {
+  i_311X = arg0K0;
+  h_312X = arg0K1;
+  if ((i_311X < n_305X)) {
+    arg0K0 = (1 + i_311X);
+    arg0K1 = (h_312X + (((*((unsigned char *) ((((char *) (-3 + string_304X))) + i_311X))))));
+    goto L13019;}
   else {
-    index_312X = 1023 & h_311X;
-    val_313X = *((long *) ((((char *) (-3 + table_301X))) + (((index_312X)<<2))));
-    addr_314X = (((char *) (-3 + foo_302X))) + 4;
-    S48_WRITE_BARRIER(foo_302X, addr_314X, val_313X);
-    *((long *) addr_314X) = val_313X;
-    addr_315X = (((char *) (-3 + table_301X))) + (((index_312X)<<2));
-    S48_WRITE_BARRIER(table_301X, addr_315X, foo_302X);
-    *((long *) addr_315X) = foo_302X;
-    arg0K0 = (1 + i_300X);
-    goto L15551;}}
- L14472: {
-  i_316X = arg0K0;
-  if ((1024 == i_316X)) {
-    arg0K0 = table_309X;
-    goto L14422;}
+    index_313X = 1023 & h_312X;
+    val_314X = *((long *) ((((char *) (-3 + table_302X))) + (((index_313X)<<2))));
+    addr_315X = (((char *) (-3 + foo_303X))) + 4;
+    S48_WRITE_BARRIER(foo_303X, addr_315X, val_314X);
+    *((long *) addr_315X) = val_314X;
+    addr_316X = (((char *) (-3 + table_302X))) + (((index_313X)<<2));
+    S48_WRITE_BARRIER(table_302X, addr_316X, foo_303X);
+    *((long *) addr_316X) = foo_303X;
+    arg0K0 = (1 + i_301X);
+    goto L15552;}}
+ L14473: {
+  i_317X = arg0K0;
+  if ((1024 == i_317X)) {
+    arg0K0 = table_310X;
+    goto L14423;}
   else {
-    addr_317X = (((char *) (-3 + table_309X))) + (((i_316X)<<2));
-    S48_WRITE_BARRIER(table_309X, addr_317X, 1);
-    *((long *) addr_317X) = 1;
-    arg0K0 = (1 + i_316X);
-    goto L14472;}}
- L14422: {
-  v_318X = arg0K0;
-  Sexported_bindingsS = v_318X;
-  if ((stack_size_273X < 8131)) {
-    stack_319X = (char *)malloc(32524);
-    if ((stack_319X == NULL)) {
+    addr_318X = (((char *) (-3 + table_310X))) + (((i_317X)<<2));
+    S48_WRITE_BARRIER(table_310X, addr_318X, 1);
+    *((long *) addr_318X) = 1;
+    arg0K0 = (1 + i_317X);
+    goto L14473;}}
+ L14423: {
+  v_319X = arg0K0;
+  Sexported_bindingsS = v_319X;
+  if ((stack_size_274X < 8131)) {
+    stack_320X = (char *)malloc(32524);
+    if ((stack_320X == NULL)) {
       ps_error("out of memory, unable to continue", 0);
-      arg1K0 = stack_319X;
+      arg1K0 = stack_320X;
       arg0K1 = 8131;
-      goto L14941;}
+      goto L14942;}
     else {
-      arg1K0 = stack_319X;
+      arg1K0 = stack_320X;
       arg0K1 = 8131;
-      goto L14941;}}
+      goto L14942;}}
   else {
-    arg1K0 = stack_begin_272X;
-    arg0K1 = stack_size_273X;
-    goto L14941;}}
- L14941: {
-  start_320X = arg1K0;
-  size_321X = arg0K1;
-  Sstack_beginS = start_320X;
-  Sstack_endS = (start_320X + (((size_321X)<<2)));
+    arg1K0 = stack_begin_273X;
+    arg0K1 = stack_size_274X;
+    goto L14942;}}
+ L14942: {
+  start_321X = arg1K0;
+  size_322X = arg0K1;
+  Sstack_beginS = start_321X;
+  Sstack_endS = (start_321X + (((size_322X)<<2)));
   Sstack_limitS = ((Sstack_beginS) + 524);
   SstackS = ((Sstack_endS) + -4);
   ScontS = 1;
   SenvS = 17;
-  arg1K0 = start_320X;
-  goto L14973;}
- L14973: {
-  a_322X = arg1K0;
-  if ((a_322X == (Sstack_endS))) {
-    v_323X = AVAILABLEp(5);
-    if (v_323X) {
-      goto L14990;}
+  arg1K0 = start_321X;
+  goto L14974;}
+ L14974: {
+  a_323X = arg1K0;
+  if ((a_323X == (Sstack_endS))) {
+    v_324X = AVAILABLEp(5);
+    if (v_324X) {
+      goto L14991;}
     else {
-      collect_saving_temps(1, 1, &temp1_324X);
-      v_325X = AVAILABLEp(5);
-      if (v_325X) {
-        goto L14990;}
+      collect_saving_temps(1, 1, &temp1_325X);
+      v_326X = AVAILABLEp(5);
+      if (v_326X) {
+        goto L14991;}
       else {
         ps_error("Scheme48 heap overflow", 0);
-        goto L14990;}}}
+        goto L14991;}}}
   else {
-    *((long *) a_322X) = 252645135;
-    arg1K0 = (a_322X + 4);
-    goto L14973;}}
- L14990: {
-  addr_326X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_326X) = 582;
-  addr_327X = ALLOCATE_SPACE(11, 12);
-  *((long *) addr_327X) = 2094;
-  temp_328X = 3 + (((long) (addr_327X + 4)));
-  code_329X = 3 + (((long) (addr_326X + 4)));
-  addr_330X = ((char *) (-3 + temp_328X));
-  S48_WRITE_BARRIER(temp_328X, addr_330X, code_329X);
-  *((long *) addr_330X) = code_329X;
-  *((unsigned char *) (((char *) (-3 + code_329X)))) = 23;
-  *((unsigned char *) ((((char *) (-3 + code_329X))) + 1)) = 31;
+    *((long *) a_323X) = 252645135;
+    arg1K0 = (a_323X + 4);
+    goto L14974;}}
+ L14991: {
+  addr_327X = ALLOCATE_SPACE(17, 6);
+  *((long *) addr_327X) = 582;
+  addr_328X = ALLOCATE_SPACE(11, 12);
+  *((long *) addr_328X) = 2094;
+  temp_329X = 3 + (((long) (addr_328X + 4)));
+  code_330X = 3 + (((long) (addr_327X + 4)));
+  addr_331X = ((char *) (-3 + temp_329X));
+  S48_WRITE_BARRIER(temp_329X, addr_331X, code_330X);
+  *((long *) addr_331X) = code_330X;
+  *((unsigned char *) (((char *) (-3 + code_330X)))) = 23;
+  *((unsigned char *) ((((char *) (-3 + code_330X))) + 1)) = 31;
   SstackS = ((SstackS) + -20);
   *((long *) ((SstackS) + 4)) = 4262;
-  cont_331X = 3 + (((long) ((SstackS) + 8)));
-  *((long *) ((((char *) (-3 + cont_331X))) + 4)) = 0;
-  *((long *) ((((char *) (-3 + cont_331X))) + 8)) = temp_328X;
-  *((long *) ((((char *) (-3 + cont_331X))) + 12)) = (SenvS);
-  *((long *) (((char *) (-3 + cont_331X)))) = (ScontS);
-  ScontS = cont_331X;
+  cont_332X = 3 + (((long) ((SstackS) + 8)));
+  *((long *) ((((char *) (-3 + cont_332X))) + 4)) = 0;
+  *((long *) ((((char *) (-3 + cont_332X))) + 8)) = temp_329X;
+  *((long *) ((((char *) (-3 + cont_332X))) + 12)) = (SenvS);
+  *((long *) (((char *) (-3 + cont_332X)))) = (ScontS);
+  ScontS = cont_332X;
   Sbottom_of_stackS = (ScontS);
-  v_332X = AVAILABLEp(5);
-  if (v_332X) {
-    goto L15169;}
+  v_333X = AVAILABLEp(5);
+  if (v_333X) {
+    goto L15170;}
   else {
-    collect_saving_temps(1, 1, &temp1_333X);
-    v_334X = AVAILABLEp(5);
-    if (v_334X) {
-      goto L15169;}
+    collect_saving_temps(1, 1, &temp1_334X);
+    v_335X = AVAILABLEp(5);
+    if (v_335X) {
+      goto L15170;}
     else {
       ps_error("Scheme48 heap overflow", 0);
-      goto L15169;}}}
- L15169: {
-  addr_335X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_335X) = 582;
-  addr_336X = ALLOCATE_SPACE(11, 12);
-  *((long *) addr_336X) = 2094;
-  temp_337X = 3 + (((long) (addr_336X + 4)));
-  code_338X = 3 + (((long) (addr_335X + 4)));
-  addr_339X = ((char *) (-3 + temp_337X));
-  S48_WRITE_BARRIER(temp_337X, addr_339X, code_338X);
-  *((long *) addr_339X) = code_338X;
-  *((unsigned char *) (((char *) (-3 + code_338X)))) = 34;
-  *((unsigned char *) ((((char *) (-3 + code_338X))) + 1)) = 141;
-  Sinterrupt_templateS = temp_337X;
-  addr_340X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_340X) = 582;
-  addr_341X = ALLOCATE_SPACE(11, 12);
-  *((long *) addr_341X) = 2094;
-  temp_342X = 3 + (((long) (addr_341X + 4)));
-  code_343X = 3 + (((long) (addr_340X + 4)));
-  addr_344X = ((char *) (-3 + temp_342X));
-  S48_WRITE_BARRIER(temp_342X, addr_344X, code_343X);
-  *((long *) addr_344X) = code_343X;
-  *((unsigned char *) (((char *) (-3 + code_343X)))) = 138;
-  *((unsigned char *) ((((char *) (-3 + code_343X))) + 1)) = 124;
-  Sexception_templateS = temp_342X;
+      goto L15170;}}}
+ L15170: {
+  addr_336X = ALLOCATE_SPACE(17, 6);
+  *((long *) addr_336X) = 582;
+  addr_337X = ALLOCATE_SPACE(11, 12);
+  *((long *) addr_337X) = 2094;
+  temp_338X = 3 + (((long) (addr_337X + 4)));
+  code_339X = 3 + (((long) (addr_336X + 4)));
+  addr_340X = ((char *) (-3 + temp_338X));
+  S48_WRITE_BARRIER(temp_338X, addr_340X, code_339X);
+  *((long *) addr_340X) = code_339X;
+  *((unsigned char *) (((char *) (-3 + code_339X)))) = 34;
+  *((unsigned char *) ((((char *) (-3 + code_339X))) + 1)) = 141;
+  Sinterrupt_templateS = temp_338X;
+  addr_341X = ALLOCATE_SPACE(17, 6);
+  *((long *) addr_341X) = 582;
+  addr_342X = ALLOCATE_SPACE(11, 12);
+  *((long *) addr_342X) = 2094;
+  temp_343X = 3 + (((long) (addr_342X + 4)));
+  code_344X = 3 + (((long) (addr_341X + 4)));
+  addr_345X = ((char *) (-3 + temp_343X));
+  S48_WRITE_BARRIER(temp_343X, addr_345X, code_344X);
+  *((long *) addr_345X) = code_344X;
+  *((unsigned char *) (((char *) (-3 + code_344X)))) = 138;
+  *((unsigned char *) ((((char *) (-3 + code_344X))) + 1)) = 124;
+  Sexception_templateS = temp_343X;
   return;}
 }
-long s48_restart(long proc_345X, long nargs_346X)
+long s48_restart(long proc_346X, long nargs_347X)
 {
   char * arg1K1;
   char * arg1K0;
@@ -1904,817 +1905,818 @@ long s48_restart(long proc_345X, long nargs_346X)
   int check_events_return_tag;
   char check_events0_return_value;
   int loseD0_return_tag;
-  long status_347X;
-  long list_348X;
-  long marker_349X;
-  long cont_350X;
-  long list_351X;
-  long length_352X;
-  long start_353X;
-  long count_354X;
-  long env_355X;
-  long cont_356X;
-  long key_357X;
-  long reason_358X;
-  long env_359X;
-  long key_360X;
-  long reason_361X;
-  long key_362X;
-  long list_363X;
-  long count_364X;
-  long wants_stack_args_365X;
-  long stack_arg_count_366X;
-  long list_args_367X;
-  long list_arg_count_368X;
-  char *message_369X;
-  long pc_1296X;
-  long tem_1295X;
-  long cont_1294X;
-  long i_1293X;
-  long string_1292X;
-  char * addr_1291X;
+  long status_348X;
+  long list_349X;
+  long marker_350X;
+  long cont_351X;
+  long list_352X;
+  long length_353X;
+  long start_354X;
+  long count_355X;
+  long env_356X;
+  long cont_357X;
+  long key_358X;
+  long reason_359X;
+  long env_360X;
+  long key_361X;
+  long reason_362X;
+  long key_363X;
+  long list_364X;
+  long count_365X;
+  long wants_stack_args_366X;
+  long stack_arg_count_367X;
+  long list_args_368X;
+  long list_arg_count_369X;
+  char *message_370X;
+  long pc_1297X;
+  long tem_1296X;
+  long cont_1295X;
+  long i_1294X;
+  long string_1293X;
+  char * addr_1292X;
+  long len_1291X;
   long len_1290X;
-  long len_1289X;
-  long x_1288X;
-  char *string_1287X;
-  char move_slowP_1286X;
-  long slow_1285X;
-  long len_1284X;
-  long fast_1283X;
-  long v_1282X;
-  char *v_1281X;
+  long x_1289X;
+  char *string_1288X;
+  char move_slowP_1287X;
+  long slow_1286X;
+  long len_1285X;
+  long fast_1284X;
+  long v_1283X;
+  char *v_1282X;
+  long v_1281X;
   long v_1280X;
-  long v_1279X;
-  long obj_1278X;
-  long env_1277X;
-  long thread_1276X;
-  long v_1275X;
-  long new_cont_1274X;
-  char * top_1273X;
-  char * addr_1272X;
-  long x_1271X;
-  char * addr_1270X;
-  long a_1269X;
-  long last_1268X;
-  long l_1267X;
-  long x_1266X;
-  char * addr_1265X;
-  long a_1264X;
-  long list_1263X;
-  long temp_1262X;
-  char okayP_1261X;
-  char v_1260X;
-  long temp1_1259X;
-  long temp0_1258X;
-  char v_1257X;
-  long space_1256X;
-  long x_1255X;
-  char * addr_1254X;
-  long a_1253X;
-  long count_1252X;
-  long args_1251X;
-  long start_1250X;
-  long temp_1249X;
-  char okayP_1248X;
-  char v_1247X;
-  long temp1_1246X;
-  long temp0_1245X;
-  char v_1244X;
-  long space_1243X;
-  long env_1242X;
-  long cont_1241X;
-  char * addr_1240X;
-  long new_1239X;
-  long p_1238X;
-  long env_1237X;
-  long top_1236X;
-  char * addr_1235X;
-  long new_1234X;
-  char * data_addr_1233X;
-  char * addr_1232X;
-  long header_1231X;
-  long new_1230X;
-  char * data_addr_1229X;
-  char * addr_1228X;
-  long header_1227X;
-  long p_1226X;
-  long previous_1225X;
-  long cont_1224X;
-  long end_1223X;
-  long v_1222X;
-  long p_1221X;
-  char * arg_1220X;
-  char * loc_1219X;
-  long stob_1218X;
-  char * top_1217X;
-  long arg_count_1216X;
-  long i_1215X;
-  char * p_1214X;
-  long v_1213X;
-  long l_1212X;
-  long i_1211X;
-  long key_1210X;
-  char okayP_1209X;
-  long list_1208X;
-  char v_1207X;
-  long temp1_1206X;
-  char v_1205X;
-  long space_1204X;
-  long x_1203X;
-  long v_1202X;
-  long x_1201X;
-  long v_1200X;
-  long count_1199X;
-  long x_1198X;
-  long v_1197X;
-  long status_1196X;
-  long channel_1195X;
-  long type_1194X;
-  char v_1193X;
-  long template_1192X;
-  char not_firstP_1191X;
-  long cont_1190X;
-  char not_firstP_1189X;
-  FILE * out_1188X;
-  long current_template_1187X;
-  long why_1186X;
+  long obj_1279X;
+  long env_1278X;
+  long thread_1277X;
+  long v_1276X;
+  long new_cont_1275X;
+  char * top_1274X;
+  char * addr_1273X;
+  long x_1272X;
+  char * addr_1271X;
+  long a_1270X;
+  long last_1269X;
+  long l_1268X;
+  long x_1267X;
+  char * addr_1266X;
+  long a_1265X;
+  long list_1264X;
+  long temp_1263X;
+  char okayP_1262X;
+  char v_1261X;
+  long temp1_1260X;
+  long temp0_1259X;
+  char v_1258X;
+  long space_1257X;
+  long x_1256X;
+  char * addr_1255X;
+  long a_1254X;
+  long count_1253X;
+  long args_1252X;
+  long start_1251X;
+  long temp_1250X;
+  char okayP_1249X;
+  char v_1248X;
+  long temp1_1247X;
+  long temp0_1246X;
+  char v_1245X;
+  long space_1244X;
+  long env_1243X;
+  long cont_1242X;
+  char * addr_1241X;
+  long new_1240X;
+  long p_1239X;
+  long env_1238X;
+  long top_1237X;
+  char * addr_1236X;
+  long new_1235X;
+  char * data_addr_1234X;
+  char * addr_1233X;
+  long header_1232X;
+  long new_1231X;
+  char * data_addr_1230X;
+  char * addr_1229X;
+  long header_1228X;
+  long p_1227X;
+  long previous_1226X;
+  long cont_1225X;
+  long end_1224X;
+  long v_1223X;
+  long p_1222X;
+  char * arg_1221X;
+  char * loc_1220X;
+  long stob_1219X;
+  char * top_1218X;
+  long arg_count_1217X;
+  long i_1216X;
+  char * p_1215X;
+  long v_1214X;
+  long l_1213X;
+  long i_1212X;
+  long key_1211X;
+  char okayP_1210X;
+  long list_1209X;
+  char v_1208X;
+  long temp1_1207X;
+  char v_1206X;
+  long space_1205X;
+  long x_1204X;
+  long v_1203X;
+  long x_1202X;
+  long v_1201X;
+  long count_1200X;
+  long x_1199X;
+  long v_1198X;
+  long status_1197X;
+  long channel_1196X;
+  long type_1195X;
+  char v_1194X;
+  long template_1193X;
+  char not_firstP_1192X;
+  long cont_1191X;
+  char not_firstP_1190X;
+  FILE * out_1189X;
+  long current_template_1188X;
+  long why_1187X;
+  long x_1186X;
   long x_1185X;
   long x_1184X;
-  long x_1183X;
-  char * addr_1182X;
-  long status_1181X;
-  char pendingP_1180X;
-  char eofP_1179X;
-  long got_1178X;
-  long length_1177X;
-  long v_1176X;
-  long obj_1175X;
-  long reason_1174X;
-  long status_1173X;
+  char * addr_1183X;
+  long status_1182X;
+  char pendingP_1181X;
+  char eofP_1180X;
+  long got_1179X;
+  long length_1178X;
+  long v_1177X;
+  long obj_1176X;
+  long reason_1175X;
+  long status_1174X;
+  long v_1173X;
   long v_1172X;
-  long v_1171X;
-  long key_1170X;
-  char okayP_1169X;
-  char v_1168X;
-  char * addr_1167X;
-  long value_1166X;
-  long offset_1165X;
-  long i_1164X;
-  long count_1163X;
-  long y_1162X;
-  char * addr_1161X;
-  long val_1160X;
-  char * addr_1159X;
-  long value_1158X;
-  long len_1157X;
-  long s2_1156X;
-  long foo_1155X;
-  long previous_foo_1154X;
-  long val_1153X;
-  long x_1152X;
-  char * addr_1151X;
-  long status_1150X;
-  char pendingP_1149X;
-  long got_1148X;
-  long length_1147X;
-  long count_1146X;
-  long start_1145X;
-  char waitP_1144X;
-  long x_1143X;
-  long status_1142X;
-  long channel_1141X;
+  long key_1171X;
+  char okayP_1170X;
+  char v_1169X;
+  char * addr_1168X;
+  long value_1167X;
+  long offset_1166X;
+  long i_1165X;
+  long count_1164X;
+  long y_1163X;
+  char * addr_1162X;
+  long val_1161X;
+  char * addr_1160X;
+  long value_1159X;
+  long len_1158X;
+  long s2_1157X;
+  long foo_1156X;
+  long previous_foo_1155X;
+  long val_1154X;
+  long x_1153X;
+  char * addr_1152X;
+  long status_1151X;
+  char pendingP_1150X;
+  long got_1149X;
+  long length_1148X;
+  long count_1147X;
+  long start_1146X;
+  char waitP_1145X;
+  long x_1144X;
+  long status_1143X;
+  long channel_1142X;
+  long v_1141X;
   long v_1140X;
   long v_1139X;
-  long v_1138X;
-  long reason_1137X;
-  long channel_1136X;
-  long index_1135X;
-  long val_1134X;
-  long final_stack_arg_count_1133X;
-  char v_1132X;
-  long temp1_1131X;
-  char v_1130X;
-  long space_1129X;
-  long stack_arg_count_1128X;
-  long stack_slots_1127X;
-  char x_1126X;
-  long channel_1125X;
-  long obj_1124X;
-  long arg_count_1123X;
-  long count_1122X;
-  long i_1121X;
-  long env_1120X;
-  long value_1119X;
-  char *v_1118X;
-  long y_1117X;
-  long i_1116X;
-  long l_1115X;
-  long bucket_1114X;
-  long index_1113X;
-  long h_1112X;
-  long i_1111X;
+  long reason_1138X;
+  long channel_1137X;
+  long index_1136X;
+  long val_1135X;
+  long final_stack_arg_count_1134X;
+  char v_1133X;
+  long temp1_1132X;
+  char v_1131X;
+  long space_1130X;
+  long stack_arg_count_1129X;
+  long stack_slots_1128X;
+  char x_1127X;
+  long channel_1126X;
+  long obj_1125X;
+  long arg_count_1124X;
+  long count_1123X;
+  long i_1122X;
+  long env_1121X;
+  long value_1120X;
+  char *v_1119X;
+  long y_1118X;
+  long i_1117X;
+  long l_1116X;
+  long bucket_1115X;
+  long index_1114X;
+  long h_1113X;
+  long i_1112X;
+  long v_1111X;
   long v_1110X;
-  long v_1109X;
-  long x_1108X;
-  long status_1107X;
-  long reason_1106X;
-  long v_1105X;
-  long val_1104X;
-  long reason_1103X;
-  long x_1102X;
-  long obj_1101X;
+  long x_1109X;
+  long status_1108X;
+  long reason_1107X;
+  long v_1106X;
+  long val_1105X;
+  long reason_1104X;
+  long x_1103X;
+  long obj_1102X;
+  long v_1101X;
   long v_1100X;
-  long v_1099X;
-  long len_1098X;
-  long s2_1097X;
-  char * addr_1096X;
-  long x_1095X;
-  char * addr_1094X;
-  long foo_1093X;
-  long rest_list_1092X;
-  long i_1091X;
-  long n_1090X;
-  long args_1089X;
-  long skip_1088X;
-  long template_1087X;
-  long stack_arg_count_1086X;
+  long len_1099X;
+  long s2_1098X;
+  char * addr_1097X;
+  long x_1096X;
+  char * addr_1095X;
+  long foo_1094X;
+  long rest_list_1093X;
+  long i_1092X;
+  long n_1091X;
+  long args_1090X;
+  long skip_1089X;
+  long template_1088X;
+  long stack_arg_count_1087X;
+  long skip_1086X;
   long skip_1085X;
-  long skip_1084X;
-  long template_1083X;
-  long stack_arg_count_1082X;
-  long skip_1081X;
-  char * addr_1080X;
-  long next_1079X;
-  long channel_1078X;
-  long m_1077X;
-  long i_1076X;
-  long value_1075X;
-  long back_1074X;
-  long env_1073X;
-  long offset_1072X;
-  long i_1071X;
-  long x_1070X;
-  char * addr_1069X;
-  long a_1068X;
-  long env_1067X;
-  long v_1066X;
-  long p_1065X;
-  long key_1064X;
-  long string_1063X;
-  char * addr_1062X;
-  long len_1061X;
-  long n_1060X;
-  long table_1059X;
-  long x_1058X;
-  long arg2_1057X;
-  long key_1056X;
-  char temp_1055X;
-  char minutesP_1054X;
+  long template_1084X;
+  long stack_arg_count_1083X;
+  long skip_1082X;
+  char * addr_1081X;
+  long next_1080X;
+  long channel_1079X;
+  long m_1078X;
+  long i_1077X;
+  long value_1076X;
+  long back_1075X;
+  long env_1074X;
+  long offset_1073X;
+  long i_1072X;
+  long x_1071X;
+  char * addr_1070X;
+  long a_1069X;
+  long env_1068X;
+  long v_1067X;
+  long p_1066X;
+  long key_1065X;
+  long string_1064X;
+  char * addr_1063X;
+  long len_1062X;
+  long n_1061X;
+  long table_1060X;
+  long x_1059X;
+  long arg2_1058X;
+  long key_1057X;
+  char temp_1056X;
+  char minutesP_1055X;
+  long status_1054X;
   long status_1053X;
-  long status_1052X;
-  long undumpable_count_1051X;
-  long undumpables_1050X;
+  long undumpable_count_1052X;
+  long undumpables_1051X;
+  long status_1050X;
   long status_1049X;
   long status_1048X;
   long status_1047X;
-  long status_1046X;
-  FILE * port_1045X;
-  char x_1044X;
-  long comment_string_1043X;
-  long obj_1042X;
-  long arg3_1041X;
-  long arg2_1040X;
-  long key_1039X;
-  long x_1038X;
-  char * addr_1037X;
-  long channel_1036X;
-  long res_1035X;
-  long i_1034X;
+  FILE * port_1046X;
+  char x_1045X;
+  long comment_string_1044X;
+  long obj_1043X;
+  long arg3_1042X;
+  long arg2_1041X;
+  long key_1040X;
+  long x_1039X;
+  char * addr_1038X;
+  long channel_1037X;
+  long res_1036X;
+  long i_1035X;
+  char * addr_1034X;
   char * addr_1033X;
-  char * addr_1032X;
-  long val_1031X;
-  long x_1030X;
-  long status_1029X;
-  char readyP_1028X;
-  long channel_1027X;
-  long obj_1026X;
-  long key_1025X;
-  char v_1024X;
-  long channel_1023X;
-  long count_1022X;
-  long start_1021X;
-  long obj_1020X;
-  long arg4_1019X;
-  long arg3_1018X;
-  long arg2_1017X;
-  long key_1016X;
-  long arg5_1015X;
-  long arg4_1014X;
-  long arg3_1013X;
-  long arg2_1012X;
-  long key_1011X;
-  long x_1010X;
-  long status_1009X;
-  long channel_1008X;
-  long obj_1007X;
-  long key_1006X;
-  long mode_1005X;
-  long arg2_1004X;
-  long key_1003X;
-  long bucket_1002X;
-  long index_1001X;
-  long h_1000X;
+  long val_1032X;
+  long x_1031X;
+  long status_1030X;
+  char readyP_1029X;
+  long channel_1028X;
+  long obj_1027X;
+  long key_1026X;
+  char v_1025X;
+  long channel_1024X;
+  long count_1023X;
+  long start_1022X;
+  long obj_1021X;
+  long arg4_1020X;
+  long arg3_1019X;
+  long arg2_1018X;
+  long key_1017X;
+  long arg5_1016X;
+  long arg4_1015X;
+  long arg3_1014X;
+  long arg2_1013X;
+  long key_1012X;
+  long x_1011X;
+  long status_1010X;
+  long channel_1009X;
+  long obj_1008X;
+  long key_1007X;
+  long mode_1006X;
+  long arg2_1005X;
+  long key_1004X;
+  long bucket_1003X;
+  long index_1002X;
+  long h_1001X;
+  long i_1000X;
   long i_999X;
   long i_998X;
-  long i_997X;
-  char * addr_996X;
+  char * addr_997X;
+  long i_996X;
   long i_995X;
   long i_994X;
-  long i_993X;
-  long c_992X;
-  long b_991X;
-  long c_990X;
-  long b_989X;
-  char x_988X;
-  long c_987X;
-  long b_986X;
-  long c_985X;
-  long mid_c_984X;
+  long c_993X;
+  long b_992X;
+  long c_991X;
+  long b_990X;
+  char x_989X;
+  long c_988X;
+  long b_987X;
+  long c_986X;
+  long mid_c_985X;
+  long v_984X;
   long v_983X;
-  long v_982X;
-  long lo_c_981X;
-  long hi_b_980X;
-  long hi_a_979X;
-  long lo_b_978X;
-  long lo_a_977X;
-  long b_976X;
+  long lo_c_982X;
+  long hi_b_981X;
+  long hi_a_980X;
+  long lo_b_979X;
+  long lo_a_978X;
+  long b_977X;
+  long v_976X;
   long v_975X;
-  long v_974X;
-  long args_973X;
-  long next_972X;
-  long next_op_971X;
-  long cont_970X;
-  long index_969X;
-  long length_968X;
-  long wants_stack_args_967X;
+  long args_974X;
+  long next_973X;
+  long next_op_972X;
+  long cont_971X;
+  long index_970X;
+  long length_969X;
+  long wants_stack_args_968X;
+  long skip_967X;
   long skip_966X;
-  long skip_965X;
-  long stack_space_964X;
-  long protocol_963X;
-  long index_962X;
-  long length_961X;
-  long wants_stack_args_960X;
+  long stack_space_965X;
+  long protocol_964X;
+  long index_963X;
+  long length_962X;
+  long wants_stack_args_961X;
+  long skip_960X;
   long skip_959X;
-  long skip_958X;
-  long stack_space_957X;
-  long protocol_956X;
-  long n_955X;
-  long tem_954X;
-  long stack_arg_count_953X;
+  long stack_space_958X;
+  long protocol_957X;
+  long n_956X;
+  long tem_955X;
+  long stack_arg_count_954X;
+  long v_953X;
   long v_952X;
-  long v_951X;
-  long key_950X;
-  long start_i_949X;
-  long temp_948X;
-  char okayP_947X;
-  long key_946X;
-  char okayP_945X;
+  long key_951X;
+  long start_i_950X;
+  long temp_949X;
+  char okayP_948X;
+  long key_947X;
+  char okayP_946X;
+  long obj_945X;
   long obj_944X;
-  long obj_943X;
-  long type_942X;
-  long thing_941X;
-  long stuff_940X;
-  char * addr_939X;
-  long val_938X;
-  long x_937X;
-  long i_936X;
-  long b_935X;
-  long p_934X;
-  long port_933X;
-  long Kchar_932X;
-  long x_931X;
-  long i_930X;
-  long b_929X;
+  long type_943X;
+  long thing_942X;
+  long stuff_941X;
+  char * addr_940X;
+  long val_939X;
+  long x_938X;
+  long i_937X;
+  long b_936X;
+  long p_935X;
+  long port_934X;
+  long Kchar_933X;
+  long x_932X;
+  long i_931X;
+  long b_930X;
+  long p_929X;
   long p_928X;
-  long p_927X;
-  long port_926X;
-  char * addr_925X;
-  long val_924X;
-  long x_923X;
-  long i_922X;
-  long b_921X;
+  long port_927X;
+  char * addr_926X;
+  long val_925X;
+  long x_924X;
+  long i_923X;
+  long b_922X;
+  long p_921X;
   long p_920X;
-  long p_919X;
-  long port_918X;
-  long list_917X;
-  long head_916X;
-  char move_slowP_915X;
-  long slow_914X;
-  long list_913X;
-  long n_912X;
-  long arg2_911X;
-  long val_910X;
-  long mseconds_909X;
-  long seconds_908X;
-  long option_907X;
-  long key_906X;
-  char okayP_905X;
-  long result_904X;
-  char * args_903X;
-  long name_902X;
-  long proc_901X;
-  long rest_list_900X;
-  long x_899X;
-  long tem_898X;
-  long pc_897X;
-  long v_896X;
-  long value_895X;
-  long vector_894X;
-  long type_893X;
-  char firstP_892X;
-  long v_891X;
-  long vector_890X;
-  char firstP_889X;
-  long x_888X;
-  char * addr_887X;
-  long b_886X;
-  long x_885X;
-  char * addr_884X;
-  long proc_883X;
-  long stob_882X;
-  long h_881X;
-  long i_880X;
-  long key_879X;
-  char okayP_878X;
-  long y_877X;
-  long n_876X;
-  char * addr_875X;
-  long prev_874X;
-  long ch_873X;
-  long val_872X;
-  long key_871X;
-  char okayP_870X;
-  long key_869X;
-  char okayP_868X;
-  long key_867X;
-  char okayP_866X;
-  long key_865X;
-  char okayP_864X;
-  long key_863X;
-  char okayP_862X;
-  long val_861X;
+  long port_919X;
+  long list_918X;
+  long head_917X;
+  char move_slowP_916X;
+  long slow_915X;
+  long list_914X;
+  long n_913X;
+  long arg2_912X;
+  long val_911X;
+  long mseconds_910X;
+  long seconds_909X;
+  long option_908X;
+  long key_907X;
+  char okayP_906X;
+  long result_905X;
+  char * args_904X;
+  long name_903X;
+  long proc_902X;
+  long rest_list_901X;
+  long x_900X;
+  long tem_899X;
+  long pc_898X;
+  long v_897X;
+  long value_896X;
+  long vector_895X;
+  long type_894X;
+  char firstP_893X;
+  long v_892X;
+  long vector_891X;
+  char firstP_890X;
+  long x_889X;
+  char * addr_888X;
+  long b_887X;
+  long x_886X;
+  char * addr_885X;
+  long proc_884X;
+  long stob_883X;
+  long h_882X;
+  long i_881X;
+  long key_880X;
+  char okayP_879X;
+  long y_878X;
+  long n_877X;
+  char * addr_876X;
+  long prev_875X;
+  long ch_874X;
+  long val_873X;
+  long key_872X;
+  char okayP_871X;
+  long key_870X;
+  char okayP_869X;
+  long key_868X;
+  char okayP_867X;
+  long key_866X;
+  char okayP_865X;
+  long key_864X;
+  char okayP_863X;
+  long val_862X;
+  char * addr_861X;
   char * addr_860X;
-  char * addr_859X;
-  long val_858X;
-  long n_857X;
-  long string_856X;
-  long table_855X;
-  long obj_854X;
-  long string_853X;
-  char * addr_852X;
-  long len_851X;
-  long vector_850X;
-  char * addr_849X;
-  long value_848X;
-  char * addr_847X;
-  long len_846X;
-  long init_845X;
-  char okayP_844X;
-  long rest_list_843X;
-  long stack_nargs_842X;
-  long new_841X;
-  char * addr_840X;
-  long len_839X;
-  long type_838X;
-  long new_837X;
-  char * addr_836X;
-  long len_835X;
-  long type_834X;
-  long value_833X;
+  long val_859X;
+  long n_858X;
+  long string_857X;
+  long table_856X;
+  long obj_855X;
+  long string_854X;
+  char * addr_853X;
+  long len_852X;
+  long vector_851X;
+  char * addr_850X;
+  long value_849X;
+  char * addr_848X;
+  long len_847X;
+  long init_846X;
+  char okayP_845X;
+  long rest_list_844X;
+  long stack_nargs_843X;
+  long new_842X;
+  char * addr_841X;
+  long len_840X;
+  long type_839X;
+  long new_838X;
+  char * addr_837X;
+  long len_836X;
+  long type_835X;
+  long value_834X;
+  long val_833X;
   long val_832X;
   long val_831X;
   long val_830X;
-  long val_829X;
-  long r_828X;
-  long n_827X;
+  long r_829X;
+  long n_828X;
+  long a_827X;
   long a_826X;
-  long a_825X;
+  long val_825X;
   long val_824X;
   long val_823X;
   long val_822X;
   long val_821X;
-  long val_820X;
+  long a_820X;
   long a_819X;
-  long a_818X;
+  long val_818X;
   long val_817X;
-  long val_816X;
+  long delta_816X;
   long delta_815X;
-  long delta_814X;
-  long offset_813X;
-  long key_812X;
-  char okayP_811X;
-  char v_810X;
-  long tem_809X;
-  long key_808X;
-  char okayP_807X;
-  long list_arg_count_806X;
-  long list_args_805X;
-  long stack_nargs_804X;
-  long obj_803X;
-  char * addr_802X;
-  long list_args_801X;
-  long follower_800X;
-  long list_799X;
-  long args_798X;
-  long list_arg_count_797X;
-  char okayP_796X;
-  long stack_nargs_795X;
-  long list_args_794X;
-  long total_arg_count_793X;
-  long code_792X;
+  long offset_814X;
+  long key_813X;
+  char okayP_812X;
+  char v_811X;
+  long tem_810X;
+  long key_809X;
+  char okayP_808X;
+  long list_arg_count_807X;
+  long list_args_806X;
+  long stack_nargs_805X;
+  long obj_804X;
+  char * addr_803X;
+  long list_args_802X;
+  long follower_801X;
+  long list_800X;
+  long args_799X;
+  long list_arg_count_798X;
+  char okayP_797X;
+  long stack_nargs_796X;
+  long list_args_795X;
+  long total_arg_count_794X;
+  long code_793X;
+  long obj_792X;
   long obj_791X;
-  long obj_790X;
-  long list_arg_count_789X;
-  long list_args_788X;
-  long stack_arg_count_787X;
-  long obj_786X;
-  char * arg_785X;
-  char * loc_784X;
-  long args_783X;
+  long list_arg_count_790X;
+  long list_args_789X;
+  long stack_arg_count_788X;
+  long obj_787X;
+  char * arg_786X;
+  char * loc_785X;
+  long args_784X;
+  long v_783X;
   long v_782X;
   long v_781X;
-  long v_780X;
-  long list_arg_count_779X;
-  long list_args_778X;
-  long stack_arg_count_777X;
-  long exception_776X;
-  long code_775X;
-  long stack_arg_count_774X;
-  char v_773X;
-  long key_772X;
-  char okayP_771X;
-  long key_770X;
-  char okayP_769X;
-  char * addr_768X;
-  long value_767X;
-  long v_766X;
-  long new_env_765X;
-  char * addr_764X;
-  long len_763X;
-  char v_762X;
-  long temp1_761X;
-  long temp0_760X;
-  char v_759X;
-  long env_758X;
-  char v_757X;
-  long temp1_756X;
-  char v_755X;
-  long space_754X;
-  char * addr_753X;
-  long value_752X;
-  long index_751X;
-  long i_750X;
-  long env_749X;
-  long i_748X;
-  long env_747X;
-  long i_746X;
-  long env_745X;
-  long obj_744X;
-  long opcode_743X;
-  long nargs_742X;
-  FILE * out_741X;
-  long x_740X;
+  long list_arg_count_780X;
+  long list_args_779X;
+  long stack_arg_count_778X;
+  long exception_777X;
+  long code_776X;
+  long stack_arg_count_775X;
+  char v_774X;
+  long key_773X;
+  char okayP_772X;
+  long key_771X;
+  char okayP_770X;
+  char * addr_769X;
+  long value_768X;
+  long v_767X;
+  long new_env_766X;
+  char * addr_765X;
+  long len_764X;
+  char v_763X;
+  long temp1_762X;
+  long temp0_761X;
+  char v_760X;
+  long env_759X;
+  char v_758X;
+  long temp1_757X;
+  char v_756X;
+  long space_755X;
+  char * addr_754X;
+  long value_753X;
+  long index_752X;
+  long i_751X;
+  long env_750X;
+  long i_749X;
+  long env_748X;
+  long i_747X;
+  long env_746X;
+  long obj_745X;
+  long opcode_744X;
+  long nargs_743X;
+  FILE * out_742X;
+  long x_741X;
+  long v_740X;
   long v_739X;
   long v_738X;
   long v_737X;
   long v_736X;
   long v_735X;
   long v_734X;
-  long v_733X;
-  long count_732X;
-  long to_index_731X;
-  long from_index_730X;
-  long arg5_729X;
-  long arg4_728X;
-  long arg3_727X;
-  long arg2_726X;
-  char * addr_725X;
-  long len_724X;
-  long value_723X;
-  long index_722X;
-  long arg4_721X;
-  long arg3_720X;
-  long arg2_719X;
-  long len_718X;
-  long index_717X;
-  long arg3_716X;
-  long arg2_715X;
-  long list_714X;
-  long thing_713X;
-  char v_712X;
-  long temp1_711X;
-  char v_710X;
-  long space_709X;
-  long len_708X;
-  long x_707X;
-  long obj_706X;
-  long arg2_705X;
-  long x_704X;
-  long arg2_703X;
-  long status_702X;
-  long value_701X;
-  long key_700X;
-  long arg2_699X;
-  long mseconds_698X;
-  long seconds_697X;
-  long mseconds_696X;
-  long seconds_695X;
-  long x_694X;
-  long other_693X;
-  long option_692X;
-  long arg2_691X;
-  long x_690X;
-  long arg2_689X;
-  char v_688X;
-  long temp1_687X;
-  char v_686X;
-  long rest_list_685X;
-  long p_684X;
-  long nargs_683X;
-  long x_682X;
-  long arg2_681X;
+  long count_733X;
+  long to_index_732X;
+  long from_index_731X;
+  long arg5_730X;
+  long arg4_729X;
+  long arg3_728X;
+  long arg2_727X;
+  char * addr_726X;
+  long len_725X;
+  long value_724X;
+  long index_723X;
+  long arg4_722X;
+  long arg3_721X;
+  long arg2_720X;
+  long len_719X;
+  long index_718X;
+  long arg3_717X;
+  long arg2_716X;
+  long list_715X;
+  long thing_714X;
+  char v_713X;
+  long temp1_712X;
+  char v_711X;
+  long space_710X;
+  long len_709X;
+  long x_708X;
+  long obj_707X;
+  long arg2_706X;
+  long x_705X;
+  long arg2_704X;
+  long status_703X;
+  long value_702X;
+  long key_701X;
+  long arg2_700X;
+  long mseconds_699X;
+  long seconds_698X;
+  long mseconds_697X;
+  long seconds_696X;
+  long x_695X;
+  long other_694X;
+  long option_693X;
+  long arg2_692X;
+  long x_691X;
+  long arg2_690X;
+  char v_689X;
+  long temp1_688X;
+  char v_687X;
+  long rest_list_686X;
+  long p_685X;
+  long nargs_684X;
+  long x_683X;
+  long arg2_682X;
+  long p_681X;
   long p_680X;
   long p_679X;
-  long p_678X;
-  long old_677X;
-  long temp_676X;
-  long obj_675X;
-  long p_674X;
-  long template_673X;
-  long p_672X;
-  long temp_671X;
-  long obj_670X;
-  long x_669X;
-  long type_668X;
-  long x_667X;
-  long bytes_666X;
-  long x_665X;
-  long other_664X;
-  long key_663X;
-  long arg2_662X;
-  char v_661X;
-  long temp1_660X;
-  char v_659X;
-  long n_658X;
-  long x_657X;
-  long obj_656X;
-  long v_655X;
-  char v_654X;
-  long temp1_653X;
-  char v_652X;
-  long x_651X;
-  char v_650X;
-  long temp1_649X;
-  char v_648X;
-  long space_647X;
-  char * addr_646X;
-  long next_645X;
-  long channel_644X;
-  long n_643X;
-  char * addr_642X;
-  long head_641X;
-  long channel_640X;
-  long obj_639X;
-  char v_638X;
-  long temp1_637X;
+  long old_678X;
+  long temp_677X;
+  long obj_676X;
+  long p_675X;
+  long template_674X;
+  long p_673X;
+  long temp_672X;
+  long obj_671X;
+  long x_670X;
+  long type_669X;
+  long x_668X;
+  long bytes_667X;
+  long x_666X;
+  long other_665X;
+  long key_664X;
+  long arg2_663X;
+  char v_662X;
+  long temp1_661X;
+  char v_660X;
+  long n_659X;
+  long x_658X;
+  long obj_657X;
+  long v_656X;
+  char v_655X;
+  long temp1_654X;
+  char v_653X;
+  long x_652X;
+  char v_651X;
+  long temp1_650X;
+  char v_649X;
+  long space_648X;
+  char * addr_647X;
+  long next_646X;
+  long channel_645X;
+  long n_644X;
+  char * addr_643X;
+  long head_642X;
+  long channel_641X;
+  long obj_640X;
+  char v_639X;
+  long temp1_638X;
+  char v_637X;
   char v_636X;
-  char v_635X;
-  long temp1_634X;
+  long temp1_635X;
+  char v_634X;
   char v_633X;
-  char v_632X;
-  long temp1_631X;
+  long temp1_632X;
+  char v_631X;
   char v_630X;
-  char v_629X;
-  long temp1_628X;
+  long temp1_629X;
+  char v_628X;
   char v_627X;
-  char v_626X;
-  long temp1_625X;
-  char v_624X;
+  long temp1_626X;
+  char v_625X;
+  long x_624X;
   long x_623X;
   long x_622X;
-  long x_621X;
-  long arg2_620X;
-  long descriptor_619X;
-  long x_618X;
-  long obj_617X;
-  char v_616X;
-  long temp1_615X;
-  char v_614X;
-  long len_613X;
-  char Kchar_612X;
-  long index_611X;
-  long arg3_610X;
-  long arg2_609X;
-  long len_608X;
-  long index_607X;
-  long arg2_606X;
-  long obj_605X;
-  char v_604X;
-  long temp1_603X;
-  char v_602X;
-  long size_601X;
-  char init_600X;
-  long len_599X;
-  long arg2_598X;
-  long len_597X;
-  long Kchar_596X;
-  long index_595X;
-  long arg3_594X;
-  long arg2_593X;
-  long len_592X;
-  long index_591X;
-  long arg2_590X;
-  long obj_589X;
-  char v_588X;
-  long temp1_587X;
-  char v_586X;
-  long size_585X;
-  long init_584X;
-  long len_583X;
-  long arg2_582X;
-  char * addr_581X;
-  long index_580X;
-  long len_579X;
-  long type_578X;
-  long value_577X;
-  long stob_576X;
-  long arg2_575X;
-  long index_574X;
-  long len_573X;
-  long type_572X;
-  long index_571X;
-  long stob_570X;
-  char v_569X;
-  long temp1_568X;
-  long temp0_567X;
-  char v_566X;
-  long size_565X;
-  long len_564X;
-  long type_563X;
-  long init_562X;
-  long len_561X;
-  char * addr_560X;
-  long type_559X;
-  long offset_558X;
-  long value_557X;
-  long stob_556X;
-  long type_555X;
-  long offset_554X;
-  long stob_553X;
-  char v_552X;
-  long temp1_551X;
-  char v_550X;
-  long space_549X;
-  long len_548X;
-  char v_547X;
-  long temp1_546X;
-  char v_545X;
-  long space_544X;
-  long len_543X;
-  long type_542X;
-  long stob_541X;
-  long type_540X;
+  long arg2_621X;
+  long descriptor_620X;
+  long x_619X;
+  long obj_618X;
+  char v_617X;
+  long temp1_616X;
+  char v_615X;
+  long len_614X;
+  char Kchar_613X;
+  long index_612X;
+  long arg3_611X;
+  long arg2_610X;
+  long len_609X;
+  long index_608X;
+  long arg2_607X;
+  long obj_606X;
+  char v_605X;
+  long temp1_604X;
+  char v_603X;
+  long size_602X;
+  char init_601X;
+  long len_600X;
+  long arg2_599X;
+  long len_598X;
+  long Kchar_597X;
+  long index_596X;
+  long arg3_595X;
+  long arg2_594X;
+  long len_593X;
+  long index_592X;
+  long arg2_591X;
+  long obj_590X;
+  char v_589X;
+  long temp1_588X;
+  char v_587X;
+  long size_586X;
+  long init_585X;
+  long len_584X;
+  long arg2_583X;
+  char * addr_582X;
+  long index_581X;
+  long len_580X;
+  long type_579X;
+  long value_578X;
+  long stob_577X;
+  long arg2_576X;
+  long index_575X;
+  long len_574X;
+  long type_573X;
+  long index_572X;
+  long stob_571X;
+  char v_570X;
+  long temp1_569X;
+  long temp0_568X;
+  char v_567X;
+  long size_566X;
+  long len_565X;
+  long type_564X;
+  long init_563X;
+  long len_562X;
+  char * addr_561X;
+  long type_560X;
+  long offset_559X;
+  long value_558X;
+  long stob_557X;
+  long type_556X;
+  long offset_555X;
+  long stob_554X;
+  char v_553X;
+  long temp1_552X;
+  char v_551X;
+  long space_550X;
+  long len_549X;
+  char v_548X;
+  long temp1_547X;
+  char v_546X;
+  long space_545X;
+  long len_544X;
+  long type_543X;
+  long stob_542X;
+  long type_541X;
+  long x_540X;
   long x_539X;
   long x_538X;
   long x_537X;
-  long x_536X;
-  long arg2_535X;
-  long x_534X;
-  long arg2_533X;
+  long arg2_536X;
+  long x_535X;
+  long arg2_534X;
+  long x_533X;
   long x_532X;
-  long x_531X;
-  long result_530X;
+  long result_531X;
+  long x_530X;
   long x_529X;
-  long x_528X;
-  long count_527X;
-  long value_526X;
-  long y_525X;
+  long count_528X;
+  long value_527X;
+  long y_526X;
+  long x_525X;
   long x_524X;
-  long x_523X;
-  long arg2_522X;
-  long x_521X;
-  long arg2_520X;
-  long x_519X;
-  long arg2_518X;
+  long arg2_523X;
+  long x_522X;
+  long arg2_521X;
+  long x_520X;
+  long arg2_519X;
+  long x_518X;
   long x_517X;
-  long x_516X;
-  long arg2_515X;
-  long x_514X;
-  long arg2_513X;
-  long x_512X;
-  long arg2_511X;
+  long arg2_516X;
+  long x_515X;
+  long arg2_514X;
+  long x_513X;
+  long arg2_512X;
+  long n_511X;
   long n_510X;
-  long n_509X;
+  long x_509X;
   long x_508X;
   long x_507X;
   long x_506X;
@@ -2728,345 +2730,344 @@ long s48_restart(long proc_345X, long nargs_346X)
   long x_498X;
   long x_497X;
   long x_496X;
-  long x_495X;
-  long a_494X;
-  long y_493X;
-  long x_492X;
-  long b_491X;
-  long a_490X;
-  long x_489X;
-  long arg2_488X;
-  long x_487X;
-  long arg2_486X;
-  long x_485X;
-  long arg2_484X;
-  long x_483X;
-  long arg2_482X;
-  long x_481X;
-  long arg2_480X;
-  long x_479X;
-  long arg2_478X;
-  long b_477X;
-  long a_476X;
-  long x_475X;
-  long arg2_474X;
-  long z_473X;
-  long y_472X;
-  long x_471X;
-  long b_470X;
-  long a_469X;
-  long x_468X;
-  long arg2_467X;
-  long z_466X;
-  long y_465X;
+  long a_495X;
+  long y_494X;
+  long x_493X;
+  long b_492X;
+  long a_491X;
+  long x_490X;
+  long arg2_489X;
+  long x_488X;
+  long arg2_487X;
+  long x_486X;
+  long arg2_485X;
+  long x_484X;
+  long arg2_483X;
+  long x_482X;
+  long arg2_481X;
+  long x_480X;
+  long arg2_479X;
+  long b_478X;
+  long a_477X;
+  long x_476X;
+  long arg2_475X;
+  long z_474X;
+  long y_473X;
+  long x_472X;
+  long b_471X;
+  long a_470X;
+  long x_469X;
+  long arg2_468X;
+  long z_467X;
+  long y_466X;
+  long x_465X;
   long x_464X;
   long x_463X;
   long x_462X;
-  long x_461X;
+  long n_461X;
   long n_460X;
   long n_459X;
   long n_458X;
-  long n_457X;
+  long x_457X;
   long x_456X;
-  long x_455X;
-  long arg2_454X;
-  long rest_list_453X;
-  long x_452X;
-  long rest_list_451X;
-  long stack_nargs_450X;
-  long arg0_449X;
-  long arg1_448X;
-  long rest_list_447X;
-  long arg0_446X;
-  long stack_nargs_445X;
-  long index_444X;
-  long val_443X;
-  long max_442X;
-  long p_441X;
-  char v_440X;
-  long temp1_439X;
-  char v_438X;
+  long arg2_455X;
+  long rest_list_454X;
+  long x_453X;
+  long rest_list_452X;
+  long stack_nargs_451X;
+  long arg0_450X;
+  long arg1_449X;
+  long rest_list_448X;
+  long arg0_447X;
+  long stack_nargs_446X;
+  long index_445X;
+  long val_444X;
+  long max_443X;
+  long p_442X;
+  char v_441X;
+  long temp1_440X;
+  char v_439X;
+  long space_438X;
   long space_437X;
-  long space_436X;
-  long index_435X;
-  long v_434X;
-  char v_433X;
-  long temp1_432X;
-  char v_431X;
-  long space_430X;
-  long code_429X;
-  long tem_428X;
-  long stack_nargs_427X;
-  long p_426X;
-  long obj_425X;
-  long consumer_424X;
-  long cont_423X;
-  long rest_list_422X;
-  long proc_421X;
-  long stack_nargs_420X;
-  long args_419X;
-  long length_418X;
-  char okayP_417X;
-  long list_args_416X;
-  long stob_415X;
-  char * top_of_args_414X;
-  long nargs_413X;
-  long obj_412X;
-  long stack_arg_count_411X;
-  char v_410X;
-  long temp1_409X;
-  char v_408X;
-  long space_407X;
-  long code_406X;
-  long template_405X;
-  long obj_404X;
-  long stack_arg_count_403X;
-  long cont_402X;
-  char v_401X;
-  long temp1_400X;
-  char v_399X;
-  long space_398X;
-  char v_397X;
-  long temp1_396X;
-  char v_395X;
-  long space_394X;
-  long total_count_393X;
-  long p_392X;
-  long v_391X;
-  char * addr_390X;
-  long val_389X;
+  long index_436X;
+  long v_435X;
+  char v_434X;
+  long temp1_433X;
+  char v_432X;
+  long space_431X;
+  long code_430X;
+  long tem_429X;
+  long stack_nargs_428X;
+  long p_427X;
+  long obj_426X;
+  long consumer_425X;
+  long cont_424X;
+  long rest_list_423X;
+  long proc_422X;
+  long stack_nargs_421X;
+  long args_420X;
+  long length_419X;
+  char okayP_418X;
+  long list_args_417X;
+  long stob_416X;
+  char * top_of_args_415X;
+  long nargs_414X;
+  long obj_413X;
+  long stack_arg_count_412X;
+  char v_411X;
+  long temp1_410X;
+  char v_409X;
+  long space_408X;
+  long code_407X;
+  long template_406X;
+  long obj_405X;
+  long stack_arg_count_404X;
+  long cont_403X;
+  char v_402X;
+  long temp1_401X;
+  char v_400X;
+  long space_399X;
+  char v_398X;
+  long temp1_397X;
+  char v_396X;
+  long space_395X;
+  long total_count_394X;
+  long p_393X;
+  long v_392X;
+  char * addr_391X;
+  long val_390X;
+  long location_389X;
   long location_388X;
-  long location_387X;
-  long env_386X;
-  long back_385X;
-  long env_384X;
-  long back_383X;
-  long env_382X;
-  long back_381X;
-  long count_380X;
-  char * code_pointer_379X;
-  long code_378X;
-  char * addr_377X;
-  long proc_376X;
-  long temp_375X;
-  char okayP_374X;
-  char v_373X;
-  long temp1_372X;
-  long temp0_371X;
-  char v_370X;
- {  v_370X = AVAILABLEp(2);
-  if (v_370X) {
+  long env_387X;
+  long back_386X;
+  long env_385X;
+  long back_384X;
+  long env_383X;
+  long back_382X;
+  long count_381X;
+  char * code_pointer_380X;
+  long code_379X;
+  char * addr_378X;
+  long proc_377X;
+  long temp_376X;
+  char okayP_375X;
+  char v_374X;
+  long temp1_373X;
+  long temp0_372X;
+  char v_371X;
+ {  v_371X = AVAILABLEp(2);
+  if (v_371X) {
     arg2K0 = 1;
-    arg0K1 = proc_345X;
-    goto L19388;}
+    arg0K1 = proc_346X;
+    goto L19389;}
   else {
-    temp0_371X = collect_saving_temps(proc_345X, 1, &temp1_372X);
-    v_373X = AVAILABLEp(2);
-    if (v_373X) {
+    temp0_372X = collect_saving_temps(proc_346X, 1, &temp1_373X);
+    v_374X = AVAILABLEp(2);
+    if (v_374X) {
       arg2K0 = 1;
-      arg0K1 = temp0_371X;
-      goto L19388;}
+      arg0K1 = temp0_372X;
+      goto L19389;}
     else {
       arg2K0 = 0;
-      arg0K1 = temp0_371X;
-      goto L19388;}}}
- L19388: {
-  okayP_374X = arg2K0;
-  temp_375X = arg0K1;
-  if (okayP_374X) {
-    arg0K0 = temp_375X;
-    goto L19359;}
+      arg0K1 = temp0_372X;
+      goto L19389;}}}
+ L19389: {
+  okayP_375X = arg2K0;
+  temp_376X = arg0K1;
+  if (okayP_375X) {
+    arg0K0 = temp_376X;
+    goto L19360;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = temp_375X;
-    goto L19359;}}
- L19359: {
-  proc_376X = arg0K0;
-  addr_377X = ALLOCATE_SPACE(17, 6);
-  *((long *) addr_377X) = 582;
-  code_378X = 3 + (((long) (addr_377X + 4)));
-  *((unsigned char *) (((char *) (-3 + code_378X)))) = 24;
-  *((unsigned char *) ((((char *) (-3 + code_378X))) + 1)) = nargs_346X;
-  Scode_pointerS = (((char *) (-3 + code_378X)));
-  SvalS = proc_376X;
+    arg0K0 = temp_376X;
+    goto L19360;}}
+ L19360: {
+  proc_377X = arg0K0;
+  addr_378X = ALLOCATE_SPACE(17, 6);
+  *((long *) addr_378X) = 582;
+  code_379X = 3 + (((long) (addr_378X + 4)));
+  *((unsigned char *) (((char *) (-3 + code_379X)))) = 24;
+  *((unsigned char *) ((((char *) (-3 + code_379X))) + 1)) = nargs_347X;
+  Scode_pointerS = (((char *) (-3 + code_379X)));
+  SvalS = proc_377X;
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L18451: {
-  code_pointer_379X = arg1K0;
-  switch ((*((unsigned char *) code_pointer_379X))) {
+  goto L18452;}
+ L18452: {
+  code_pointer_380X = arg1K0;
+  switch ((*((unsigned char *) code_pointer_380X))) {
     case 0 : 
     case 146 : {
       push_exception_continuationB(15, 1);
       arg0K0 = 0;
-      goto L16678;}
+      goto L16679;}
       break;
     case 1 : {
-      count_380X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
+      count_381X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
       *((long *) (SstackS)) = (SenvS);
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (1034 + (((count_380X)<<10)));
+      *((long *) (SstackS)) = (1034 + (((count_381X)<<10)));
       SstackS = ((SstackS) + -4);
       SenvS = (3 + (((long) ((SstackS) + 8))));
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 2 : {
       SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))));
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 3 : {
       SvalS = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 4 : {
-      back_381X = *((unsigned char *) ((Scode_pointerS) + 1));
-      env_382X = SenvS;
-      arg0K0 = env_382X;
-      arg0K1 = back_381X;
-      goto L23845;}
+      back_382X = *((unsigned char *) ((Scode_pointerS) + 1));
+      env_383X = SenvS;
+      arg0K0 = env_383X;
+      arg0K1 = back_382X;
+      goto L23846;}
       break;
     case 5 : {
       SvalS = (*((long *) ((((char *) (-3 + (SenvS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 2);
         arg0K0 = 0;
-        goto L16678;}
+        goto L16679;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 2);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 6 : {
       SvalS = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (SenvS))))))))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 2);
         arg0K0 = 0;
-        goto L16678;}
+        goto L16679;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 2);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 7 : {
       SvalS = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SenvS)))))))))))))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 2);
         arg0K0 = 0;
-        goto L16678;}
+        goto L16679;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 2);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 8 : {
-      back_383X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
-      env_384X = SenvS;
-      arg0K0 = env_384X;
-      arg0K1 = back_383X;
-      goto L20260;}
+      back_384X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
+      env_385X = SenvS;
+      arg0K0 = env_385X;
+      arg0K1 = back_384X;
+      goto L20261;}
       break;
     case 9 : {
-      back_385X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
-      env_386X = SenvS;
-      arg0K0 = env_386X;
-      arg0K1 = back_385X;
-      goto L20198;}
+      back_386X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
+      env_387X = SenvS;
+      arg0K0 = env_387X;
+      arg0K1 = back_386X;
+      goto L20199;}
       break;
     case 10 : {
-      location_387X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
-      SvalS = (*((long *) ((((char *) (-3 + location_387X))) + 4)));
+      location_388X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
+      SvalS = (*((long *) ((((char *) (-3 + location_388X))) + 4)));
       if ((17 == (255 & (SvalS)))) {
         push_exception_continuationB(1, 3);
-        *((long *) (SstackS)) = location_387X;
+        *((long *) (SstackS)) = location_388X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}
+        goto L16679;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 11 : {
-      location_388X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
-      if ((273 == (*((long *) ((((char *) (-3 + location_388X))) + 4))))) {
+      location_389X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
+      if ((273 == (*((long *) ((((char *) (-3 + location_389X))) + 4))))) {
         push_exception_continuationB(1, 3);
-        *((long *) (SstackS)) = location_388X;
+        *((long *) (SstackS)) = location_389X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}
+        goto L16679;}
       else {
-        val_389X = SvalS;
-        addr_390X = (((char *) (-3 + location_388X))) + 4;
-        S48_WRITE_BARRIER(location_388X, addr_390X, val_389X);
-        *((long *) addr_390X) = val_389X;
+        val_390X = SvalS;
+        addr_391X = (((char *) (-3 + location_389X))) + 4;
+        S48_WRITE_BARRIER(location_389X, addr_391X, val_390X);
+        *((long *) addr_391X) = val_390X;
         SvalS = 13;
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 12 : {
-      v_391X = *((unsigned char *) ((Scode_pointerS) + 3));
-      if ((0 == v_391X)) {
-        p_392X = SenvS;
-        if ((3 == (3 & p_392X))) {
-          if ((p_392X < (((long) (Sstack_beginS))))) {
+      v_392X = *((unsigned char *) ((Scode_pointerS) + 3));
+      if ((0 == v_392X)) {
+        p_393X = SenvS;
+        if ((3 == (3 & p_393X))) {
+          if ((p_393X < (((long) (Sstack_beginS))))) {
             arg0K0 = 0;
-            goto L20977;}
+            goto L20978;}
           else {
-            if (((((long) (Sstack_endS))) < p_392X)) {
+            if (((((long) (Sstack_endS))) < p_393X)) {
               arg0K0 = 0;
-              goto L20977;}
+              goto L20978;}
             else {
               arg0K0 = ((Sstack_endS) - (Sstack_beginS));
-              goto L20977;}}}
+              goto L20978;}}}
         else {
           arg0K0 = 0;
-          goto L20977;}}
+          goto L20978;}}
       else {
         arg0K0 = (SvalS);
-        goto L20984;}}
+        goto L20985;}}
       break;
     case 13 : {
-      total_count_393X = *((unsigned char *) ((Scode_pointerS) + 2));
-      space_394X = 1 + total_count_393X;
-      v_395X = AVAILABLEp(space_394X);
-      if (v_395X) {
-        goto L20779;}
+      total_count_394X = *((unsigned char *) ((Scode_pointerS) + 2));
+      space_395X = 1 + total_count_394X;
+      v_396X = AVAILABLEp(space_395X);
+      if (v_396X) {
+        goto L20780;}
       else {
-        collect_saving_temps(1, 1, &temp1_396X);
-        v_397X = AVAILABLEp(space_394X);
-        if (v_397X) {
-          goto L20779;}
+        collect_saving_temps(1, 1, &temp1_397X);
+        v_398X = AVAILABLEp(space_395X);
+        if (v_398X) {
+          goto L20780;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L20779;}}}
+          goto L20780;}}}
       break;
     case 14 : {
       *((long *) (SstackS)) = (SvalS);
       SstackS = ((SstackS) + -4);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 15 : {
       SvalS = (*((long *) ((((char *) (-3 + (SenvS)))) + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2)))));
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 3);
         arg0K0 = 0;
-        goto L16678;}
+        goto L16679;}
       else {
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 16 : {
       *((long *) (SstackS)) = (SvalS);
@@ -3075,4278 +3076,4278 @@ long s48_restart(long proc_345X, long nargs_346X)
       if ((529 == (SvalS))) {
         push_exception_continuationB(0, 3);
         arg0K0 = 0;
-        goto L16678;}
+        goto L16679;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 17 : {
       SstackS = ((SstackS) + 4);
       SvalS = (*((long *) (SstackS)));
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 18 : {
       SvalS = (*((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))));
       Scode_pointerS = ((Scode_pointerS) + 2);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 19 : {
       *((long *) ((SstackS) + (4 + ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<2))))) = (SvalS);
       Scode_pointerS = ((Scode_pointerS) + 2);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 20 : {
       push_continuationB(((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), (*((unsigned char *) ((Scode_pointerS) + 3))));
       Scode_pointerS = ((Scode_pointerS) + 4);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 21 : {
       push_continuationB(((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))))), (((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))));
       Scode_pointerS = ((Scode_pointerS) + 5);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 22 : {
-      space_398X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
-      v_399X = AVAILABLEp(space_398X);
-      if (v_399X) {
+      space_399X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
+      v_400X = AVAILABLEp(space_399X);
+      if (v_400X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L20705;}
+        goto L20706;}
       else {
-        collect_saving_temps(1, 1, &temp1_400X);
-        v_401X = AVAILABLEp(space_398X);
-        if (v_401X) {
+        collect_saving_temps(1, 1, &temp1_401X);
+        v_402X = AVAILABLEp(space_399X);
+        if (v_402X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L20705;}
+          goto L20706;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L20705;}}}
+          goto L20706;}}}
       break;
     case 23 : {
-      cont_402X = *((long *) (((char *) (-3 + (Sbottom_of_stackS)))));
-      if ((3 == (3 & cont_402X))) {
-        if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_402X))) + -4))))>>2))))) {
-          if ((3 == (3 & cont_402X))) {
-            if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_402X))) + -4))))>>2))))) {
-              merged_arg0K0 = cont_402X;
+      cont_403X = *((long *) (((char *) (-3 + (Sbottom_of_stackS)))));
+      if ((3 == (3 & cont_403X))) {
+        if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_403X))) + -4))))>>2))))) {
+          if ((3 == (3 & cont_403X))) {
+            if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_403X))) + -4))))>>2))))) {
+              merged_arg0K0 = cont_403X;
               copy_continuation_from_heapB_return_tag = 0;
               goto copy_continuation_from_heapB;
              copy_continuation_from_heapB_return_0:
-              goto L19860;}
+              goto L19861;}
             else {
-              goto L19895;}}
+              goto L19896;}}
           else {
-            goto L19895;}}
+            goto L19896;}}
         else {
-          goto L19861;}}
+          goto L19862;}}
       else {
-        goto L19861;}}
+        goto L19862;}}
       break;
     case 24 : {
-      stack_arg_count_403X = *((unsigned char *) ((Scode_pointerS) + 1));
-      obj_404X = SvalS;
-      if ((3 == (3 & obj_404X))) {
-        if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_404X))) + -4))))>>2))))) {
-          template_405X = *((long *) (((char *) (-3 + (SvalS)))));
-          code_406X = *((long *) (((char *) (-3 + template_405X))));
-          if ((stack_arg_count_403X == (*((unsigned char *) ((((char *) (-3 + code_406X))) + 1))))) {
-            StemplateS = template_405X;
+      stack_arg_count_404X = *((unsigned char *) ((Scode_pointerS) + 1));
+      obj_405X = SvalS;
+      if ((3 == (3 & obj_405X))) {
+        if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_405X))) + -4))))>>2))))) {
+          template_406X = *((long *) (((char *) (-3 + (SvalS)))));
+          code_407X = *((long *) (((char *) (-3 + template_406X))));
+          if ((stack_arg_count_404X == (*((unsigned char *) ((((char *) (-3 + code_407X))) + 1))))) {
+            StemplateS = template_406X;
             SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4)));
-            Scode_pointerS = ((((char *) (-3 + code_406X))) + 2);
+            Scode_pointerS = ((((char *) (-3 + code_407X))) + 2);
             if (((SstackS) < (Sstack_limitS))) {
-              space_407X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
-              v_408X = AVAILABLEp(space_407X);
-              if (v_408X) {
+              space_408X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
+              v_409X = AVAILABLEp(space_408X);
+              if (v_409X) {
                 arg2K0 = 1;
                 arg0K1 = 0;
-                goto L19221;}
+                goto L19222;}
               else {
-                collect_saving_temps(1, 1, &temp1_409X);
-                v_410X = AVAILABLEp(space_407X);
-                if (v_410X) {
+                collect_saving_temps(1, 1, &temp1_410X);
+                v_411X = AVAILABLEp(space_408X);
+                if (v_411X) {
                   arg2K0 = 1;
                   arg0K1 = 0;
-                  goto L19221;}
+                  goto L19222;}
                 else {
                   arg2K0 = 0;
                   arg0K1 = 0;
-                  goto L19221;}}}
+                  goto L19222;}}}
             else {
-              goto L19133;}}
+              goto L19134;}}
           else {
-            arg0K0 = stack_arg_count_403X;
-            goto L16079;}}
+            arg0K0 = stack_arg_count_404X;
+            goto L16080;}}
         else {
           arg0K0 = 3;
-          arg0K1 = stack_arg_count_403X;
+          arg0K1 = stack_arg_count_404X;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17174;}}
+          goto L17175;}}
       else {
         arg0K0 = 3;
-        arg0K1 = stack_arg_count_403X;
+        arg0K1 = stack_arg_count_404X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17174;}}
+        goto L17175;}}
       break;
     case 25 : {
-      stack_arg_count_411X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
-      obj_412X = SvalS;
-      if ((3 == (3 & obj_412X))) {
-        if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_412X))) + -4))))>>2))))) {
-          arg0K0 = stack_arg_count_411X;
-          goto L16079;}
+      stack_arg_count_412X = ((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)));
+      obj_413X = SvalS;
+      if ((3 == (3 & obj_413X))) {
+        if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_413X))) + -4))))>>2))))) {
+          arg0K0 = stack_arg_count_412X;
+          goto L16080;}
         else {
           arg0K0 = 3;
-          arg0K1 = stack_arg_count_411X;
+          arg0K1 = stack_arg_count_412X;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17174;}}
+          goto L17175;}}
       else {
         arg0K0 = 3;
-        arg0K1 = stack_arg_count_411X;
+        arg0K1 = stack_arg_count_412X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17174;}}
+        goto L17175;}}
       break;
     case 26 : {
-      nargs_413X = *((unsigned char *) ((Scode_pointerS) + 1));
-      top_of_args_414X = SstackS;
-      stob_415X = ScontS;
-      arg1K0 = ((((char *) (-3 + stob_415X))) + -8);
-      arg1K1 = (top_of_args_414X + (((nargs_413X)<<2)));
-      goto L17641;}
+      nargs_414X = *((unsigned char *) ((Scode_pointerS) + 1));
+      top_of_args_415X = SstackS;
+      stob_416X = ScontS;
+      arg1K0 = ((((char *) (-3 + stob_416X))) + -8);
+      arg1K1 = (top_of_args_415X + (((nargs_414X)<<2)));
+      goto L17642;}
       break;
     case 27 : {
       SstackS = ((SstackS) + 4);
-      list_args_416X = *((long *) (SstackS));
-      merged_arg0K0 = list_args_416X;
+      list_args_417X = *((long *) (SstackS));
+      merged_arg0K0 = list_args_417X;
       okay_argument_list_return_tag = 0;
       goto okay_argument_list;
      okay_argument_list_return_0:
-      okayP_417X = okay_argument_list0_return_value;
-      length_418X = okay_argument_list1_return_value;
-      if (okayP_417X) {
+      okayP_418X = okay_argument_list0_return_value;
+      length_419X = okay_argument_list1_return_value;
+      if (okayP_418X) {
         arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
-        arg0K1 = list_args_416X;
-        arg0K2 = length_418X;
-        goto L17679;}
+        arg0K1 = list_args_417X;
+        arg0K2 = length_419X;
+        goto L17680;}
       else {
-        *((long *) (SstackS)) = list_args_416X;
+        *((long *) (SstackS)) = list_args_417X;
         SstackS = ((SstackS) + -4);
         merged_arg0K0 = 25;
         merged_arg0K1 = (1 + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
         pop_args_GlistS_return_tag = 0;
         goto pop_args_GlistS;
        pop_args_GlistS_return_0:
-        args_419X = pop_args_GlistS0_return_value;
+        args_420X = pop_args_GlistS0_return_value;
         push_exception_continuationB(5, 0);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = args_419X;
+        *((long *) (SstackS)) = args_420X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 28 : {
       SstackS = ((SstackS) + 4);
       SstackS = ((SstackS) + 4);
-      stack_nargs_420X = (((*((long *) (SstackS))))>>2);
-      proc_421X = *((long *) ((SstackS) + (4 + (((stack_nargs_420X)<<2)))));
-      *((long *) ((SstackS) + (4 + (((stack_nargs_420X)<<2))))) = 1;
+      stack_nargs_421X = (((*((long *) (SstackS))))>>2);
+      proc_422X = *((long *) ((SstackS) + (4 + (((stack_nargs_421X)<<2)))));
+      *((long *) ((SstackS) + (4 + (((stack_nargs_421X)<<2))))) = 1;
       SstackS = ((SstackS) + 4);
-      rest_list_422X = *((long *) (SstackS));
-      if ((25 == rest_list_422X)) {
+      rest_list_423X = *((long *) (SstackS));
+      if ((25 == rest_list_423X)) {
         SstackS = ((SstackS) + 4);
         arg0K0 = (*((long *) (SstackS)));
-        arg0K1 = (-2 + stack_nargs_420X);
-        goto L11286;}
+        arg0K1 = (-2 + stack_nargs_421X);
+        goto L11287;}
       else {
-        if ((25 == (*((long *) ((((char *) (-3 + rest_list_422X))) + 4))))) {
-          arg0K0 = (*((long *) (((char *) (-3 + rest_list_422X)))));
-          arg0K1 = (-1 + stack_nargs_420X);
-          goto L11286;}
+        if ((25 == (*((long *) ((((char *) (-3 + rest_list_423X))) + 4))))) {
+          arg0K0 = (*((long *) (((char *) (-3 + rest_list_423X)))));
+          arg0K1 = (-1 + stack_nargs_421X);
+          goto L11287;}
         else {
-          arg0K0 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + rest_list_422X))) + 4)))))) + 4)));
-          arg0K1 = rest_list_422X;
-          goto L11327;}}}
+          arg0K0 = (*((long *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + rest_list_423X))) + 4)))))) + 4)));
+          arg0K1 = rest_list_423X;
+          goto L11328;}}}
       break;
     case 29 : {
       SstackS = ((SstackS) + 4);
-      cont_423X = *((long *) (SstackS));
-      if ((3 == (3 & cont_423X))) {
-        if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_423X))) + -4))))>>2))))) {
-          merged_arg0K0 = cont_423X;
+      cont_424X = *((long *) (SstackS));
+      if ((3 == (3 & cont_424X))) {
+        if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_424X))) + -4))))>>2))))) {
+          merged_arg0K0 = cont_424X;
           copy_continuation_from_heapB_return_tag = 1;
           goto copy_continuation_from_heapB;
          copy_continuation_from_heapB_return_1:
-          goto L17584;}
+          goto L17585;}
         else {
-          goto L17591;}}
+          goto L17592;}}
       else {
-        goto L17591;}}
+        goto L17592;}}
       break;
     case 30 : {
       SstackS = ((SstackS) + 4);
-      consumer_424X = *((long *) (SstackS));
+      consumer_425X = *((long *) (SstackS));
       *((long *) (SstackS)) = (SvalS);
       SstackS = ((SstackS) + -4);
-      SvalS = consumer_424X;
-      obj_425X = SvalS;
-      if ((3 == (3 & obj_425X))) {
-        if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_425X))) + -4))))>>2))))) {
+      SvalS = consumer_425X;
+      obj_426X = SvalS;
+      if ((3 == (3 & obj_426X))) {
+        if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_426X))) + -4))))>>2))))) {
           arg0K0 = 1;
-          goto L16079;}
+          goto L16080;}
         else {
           arg0K0 = 3;
           arg0K1 = 1;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17174;}}
+          goto L17175;}}
       else {
         arg0K0 = 3;
         arg0K1 = 1;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17174;}}
+        goto L17175;}}
       break;
     case 31 : {
       pop_continuationB_return_tag = 0;
       goto pop_continuationB;
      pop_continuationB_return_0:
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 32 : {
       arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2))));
       arg0K1 = 25;
       arg0K2 = 0;
-      goto L20440;}
+      goto L20441;}
       break;
     case 33 : {
       SstackS = ((SstackS) + 4);
-      p_426X = *((long *) (SstackS));
+      p_427X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      stack_nargs_427X = (((*((long *) (SstackS))))>>2);
+      stack_nargs_428X = (((*((long *) (SstackS))))>>2);
       SstackS = ((SstackS) + 4);
-      arg0K0 = stack_nargs_427X;
+      arg0K0 = stack_nargs_428X;
       arg0K1 = (*((long *) (SstackS)));
-      arg0K2 = ((((p_426X)>>2)) - stack_nargs_427X);
-      goto L20440;}
+      arg0K2 = ((((p_427X)>>2)) - stack_nargs_428X);
+      goto L20441;}
       break;
     case 34 : {
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 35 : {
-      tem_428X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
-      StemplateS = tem_428X;
-      Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_428X))))))));
+      tem_429X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
+      StemplateS = tem_429X;
+      Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_429X))))))));
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 36 : {
-      code_429X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))))))));
-      if ((0 == (*((unsigned char *) ((((char *) (-3 + code_429X))) + 1))))) {
+      code_430X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))))))));
+      if ((0 == (*((unsigned char *) ((((char *) (-3 + code_430X))) + 1))))) {
         if (((SstackS) < (Sstack_limitS))) {
-          space_430X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
-          v_431X = AVAILABLEp(space_430X);
-          if (v_431X) {
+          space_431X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
+          v_432X = AVAILABLEp(space_431X);
+          if (v_432X) {
             arg2K0 = 1;
             arg0K1 = 0;
-            goto L18957;}
+            goto L18958;}
           else {
-            collect_saving_temps(1, 1, &temp1_432X);
-            v_433X = AVAILABLEp(space_430X);
-            if (v_433X) {
+            collect_saving_temps(1, 1, &temp1_433X);
+            v_434X = AVAILABLEp(space_431X);
+            if (v_434X) {
               arg2K0 = 1;
               arg0K1 = 0;
-              goto L18957;}
+              goto L18958;}
             else {
               arg2K0 = 0;
               arg0K1 = 0;
-              goto L18957;}}}
+              goto L18958;}}}
         else {
-          goto L18830;}}
+          goto L18831;}}
       else {
-        v_434X = *((unsigned char *) ((((char *) (-3 + code_429X))) + 1));
-        if ((66 == v_434X)) {
-          if ((0 == (*((unsigned char *) ((((char *) (-3 + code_429X))) + (-3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + code_429X))) + -4))))>>8)))))))) {
-            index_435X = -2 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + code_429X))) + -4))))>>8));
-            space_436X = ((((*((unsigned char *) ((((char *) (-3 + code_429X))) + index_435X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_429X))) + (1 + index_435X))));
-            if ((space_436X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-              goto L18830;}
+        v_435X = *((unsigned char *) ((((char *) (-3 + code_430X))) + 1));
+        if ((66 == v_435X)) {
+          if ((0 == (*((unsigned char *) ((((char *) (-3 + code_430X))) + (-3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + code_430X))) + -4))))>>8)))))))) {
+            index_436X = -2 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + code_430X))) + -4))))>>8));
+            space_437X = ((((*((unsigned char *) ((((char *) (-3 + code_430X))) + index_436X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_430X))) + (1 + index_436X))));
+            if ((space_437X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
+              goto L18831;}
             else {
-              space_437X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
-              v_438X = AVAILABLEp(space_437X);
-              if (v_438X) {
+              space_438X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
+              v_439X = AVAILABLEp(space_438X);
+              if (v_439X) {
                 arg2K0 = 1;
                 arg0K1 = 0;
-                goto L19013;}
+                goto L19014;}
               else {
-                collect_saving_temps(1, 1, &temp1_439X);
-                v_440X = AVAILABLEp(space_437X);
-                if (v_440X) {
+                collect_saving_temps(1, 1, &temp1_440X);
+                v_441X = AVAILABLEp(space_438X);
+                if (v_441X) {
                   arg2K0 = 1;
                   arg0K1 = 0;
-                  goto L19013;}
+                  goto L19014;}
                 else {
                   arg2K0 = 0;
                   arg0K1 = 0;
-                  goto L19013;}}}}
+                  goto L19014;}}}}
           else {
-            goto L18875;}}
+            goto L18876;}}
         else {
-          goto L18875;}}}
+          goto L18876;}}}
       break;
     case 37 : {
       if ((1 == (SvalS))) {
         Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         Scode_pointerS = ((Scode_pointerS) + 3);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
       break;
     case 38 : {
       Scode_pointerS = ((Scode_pointerS) + (((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))));
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 39 : {
       if ((0 == (3 & (SvalS)))) {
-        p_441X = SvalS;
-        max_442X = *((unsigned char *) ((Scode_pointerS) + 1));
-        val_443X = ((p_441X)>>2);
-        if ((val_443X < 0)) {
-          goto L18731;}
+        p_442X = SvalS;
+        max_443X = *((unsigned char *) ((Scode_pointerS) + 1));
+        val_444X = ((p_442X)>>2);
+        if ((val_444X < 0)) {
+          goto L18732;}
         else {
-          if ((val_443X < max_442X)) {
-            index_444X = 1 + (((val_443X)<<1));
-            arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + (1 + index_444X)))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_444X)))));
-            goto L18733;}
+          if ((val_444X < max_443X)) {
+            index_445X = 1 + (((val_444X)<<1));
+            arg0K0 = (((((*((unsigned char *) ((Scode_pointerS) + (1 + index_445X)))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + (2 + index_445X)))));
+            goto L18734;}
           else {
-            goto L18731;}}}
+            goto L18732;}}}
       else {
         push_exception_continuationB(5, 0);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 40 : {
-      stack_nargs_445X = (((*((long *) ((SstackS) + 4))))>>2);
-      if ((0 == stack_nargs_445X)) {
-        arg0_446X = *((long *) ((SstackS) + 12));
-        rest_list_447X = *((long *) ((SstackS) + 8));
-        *((long *) (SstackS)) = arg0_446X;
+      stack_nargs_446X = (((*((long *) ((SstackS) + 4))))>>2);
+      if ((0 == stack_nargs_446X)) {
+        arg0_447X = *((long *) ((SstackS) + 12));
+        rest_list_448X = *((long *) ((SstackS) + 8));
+        *((long *) (SstackS)) = arg0_447X;
         SstackS = ((SstackS) + -4);
-        SvalS = (*((long *) (((char *) (-3 + rest_list_447X)))));
-        goto L19763;}
+        SvalS = (*((long *) (((char *) (-3 + rest_list_448X)))));
+        goto L19764;}
       else {
-        arg1_448X = *((long *) ((SstackS) + (4 + (((stack_nargs_445X)<<2)))));
-        arg0_449X = *((long *) ((SstackS) + (8 + (((stack_nargs_445X)<<2)))));
-        *((long *) ((SstackS) + (8 + (((stack_nargs_445X)<<2))))) = 1;
-        *((long *) ((SstackS) + 4)) = (-4 + (((stack_nargs_445X)<<2)));
-        *((long *) (SstackS)) = arg0_449X;
+        arg1_449X = *((long *) ((SstackS) + (4 + (((stack_nargs_446X)<<2)))));
+        arg0_450X = *((long *) ((SstackS) + (8 + (((stack_nargs_446X)<<2)))));
+        *((long *) ((SstackS) + (8 + (((stack_nargs_446X)<<2))))) = 1;
+        *((long *) ((SstackS) + 4)) = (-4 + (((stack_nargs_446X)<<2)));
+        *((long *) (SstackS)) = arg0_450X;
         SstackS = ((SstackS) + -4);
-        SvalS = arg1_448X;
-        goto L19763;}}
+        SvalS = arg1_449X;
+        goto L19764;}}
       break;
     case 41 : {
-      stack_nargs_450X = (((*((long *) ((SstackS) + 4))))>>2);
-      if ((stack_nargs_450X == 0)) {
-        rest_list_451X = *((long *) ((SstackS) + 8));
-        if ((25 == (*((long *) ((((char *) (-3 + rest_list_451X))) + 4))))) {
+      stack_nargs_451X = (((*((long *) ((SstackS) + 4))))>>2);
+      if ((stack_nargs_451X == 0)) {
+        rest_list_452X = *((long *) ((SstackS) + 8));
+        if ((25 == (*((long *) ((((char *) (-3 + rest_list_452X))) + 4))))) {
           arg0K0 = 1;
-          goto L18629;}
+          goto L18630;}
         else {
-          *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_451X))) + 4)));
+          *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_452X))) + 4)));
           *((long *) ((SstackS) + 12)) = (SvalS);
           arg0K0 = -2;
-          goto L18629;}}
+          goto L18630;}}
       else {
-        if ((stack_nargs_450X == 1)) {
+        if ((stack_nargs_451X == 1)) {
           if ((25 == (*((long *) ((SstackS) + 8))))) {
             arg0K0 = 1;
-            goto L18629;}
+            goto L18630;}
           else {
             *((long *) ((SstackS) + 4)) = 0;
             *((long *) ((SstackS) + 12)) = (SvalS);
             arg0K0 = -2;
-            goto L18629;}}
+            goto L18630;}}
         else {
-          *((long *) ((SstackS) + (8 + (((stack_nargs_450X)<<2))))) = (SvalS);
+          *((long *) ((SstackS) + (8 + (((stack_nargs_451X)<<2))))) = (SvalS);
           arg0K0 = -2;
-          goto L18629;}}}
+          goto L18630;}}}
       break;
     case 42 : {
       if ((1 == (SvalS))) {
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
-        x_452X = (((*((long *) ((SstackS) + 4))))>>2);
-        if ((x_452X == 0)) {
-          rest_list_453X = *((long *) ((SstackS) + 8));
-          if ((25 == (*((long *) ((((char *) (-3 + rest_list_453X))) + 4))))) {
+        x_453X = (((*((long *) ((SstackS) + 4))))>>2);
+        if ((x_453X == 0)) {
+          rest_list_454X = *((long *) ((SstackS) + 8));
+          if ((25 == (*((long *) ((((char *) (-3 + rest_list_454X))) + 4))))) {
             arg0K0 = 1;
-            goto L19654;}
+            goto L19655;}
           else {
-            *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_453X))) + 4)));
-            *((long *) ((SstackS) + 12)) = (*((long *) (((char *) (-3 + rest_list_453X)))));
+            *((long *) ((SstackS) + 8)) = (*((long *) ((((char *) (-3 + rest_list_454X))) + 4)));
+            *((long *) ((SstackS) + 12)) = (*((long *) (((char *) (-3 + rest_list_454X)))));
             arg0K0 = -2;
-            goto L19654;}}
+            goto L19655;}}
         else {
-          if ((x_452X == 1)) {
+          if ((x_453X == 1)) {
             if ((25 == (*((long *) ((SstackS) + 8))))) {
               arg0K0 = 1;
-              goto L19654;}
+              goto L19655;}
             else {
               *((long *) ((SstackS) + 4)) = 0;
               arg0K0 = -2;
-              goto L19654;}}
+              goto L19655;}}
           else {
             arg0K0 = -2;
-            goto L19654;}}}}
+            goto L19655;}}}}
       break;
     case 43 : {
       SstackS = ((SstackS) + 4);
-      arg2_454X = *((long *) (SstackS));
-      x_455X = SvalS;
-      if ((arg2_454X == x_455X)) {
+      arg2_455X = *((long *) (SstackS));
+      x_456X = SvalS;
+      if ((arg2_455X == x_456X)) {
         arg0K0 = 5;
-        goto L38236;}
+        goto L38237;}
       else {
         arg0K0 = 1;
-        goto L38236;}}
+        goto L38237;}}
       break;
     case 44 : {
-      x_456X = SvalS;
-      if ((0 == (3 & x_456X))) {
+      x_457X = SvalS;
+      if ((0 == (3 & x_457X))) {
         arg0K0 = 5;
-        goto L38248;}
+        goto L38249;}
       else {
-        if ((3 == (3 & x_456X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) {
+        if ((3 == (3 & x_457X))) {
+          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
             arg0K0 = 5;
-            goto L38248;}
+            goto L38249;}
           else {
-            goto L10634;}}
+            goto L10635;}}
         else {
-          goto L10634;}}}
+          goto L10635;}}}
       break;
     case 45 : {
-      n_457X = SvalS;
-      if ((0 == (3 & n_457X))) {
-        goto L28412;}
-      else {
-        if ((3 == (3 & n_457X))) {
-          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_457X))) + -4))))>>2))))) {
-            goto L28412;}
-          else {
-            goto L28413;}}
-        else {
-          goto L28413;}}}
-      break;
-    case 46 : {
       n_458X = SvalS;
       if ((0 == (3 & n_458X))) {
-        goto L28569;}
+        goto L28413;}
       else {
         if ((3 == (3 & n_458X))) {
           if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
-            goto L28569;}
+            goto L28413;}
           else {
-            goto L28544;}}
+            goto L28414;}}
         else {
-          goto L28544;}}}
+          goto L28414;}}}
       break;
-    case 47 : {
+    case 46 : {
       n_459X = SvalS;
       if ((0 == (3 & n_459X))) {
-        goto L28768;}
+        goto L28570;}
       else {
         if ((3 == (3 & n_459X))) {
           if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
-            goto L28768;}
+            goto L28570;}
           else {
-            goto L28743;}}
+            goto L28545;}}
         else {
-          goto L28743;}}}
+          goto L28545;}}}
       break;
-    case 48 : {
+    case 47 : {
       n_460X = SvalS;
       if ((0 == (3 & n_460X))) {
-        goto L28967;}
+        goto L28769;}
       else {
         if ((3 == (3 & n_460X))) {
           if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
-            goto L28967;}
+            goto L28769;}
           else {
-            goto L28942;}}
+            goto L28744;}}
         else {
-          goto L28942;}}}
+          goto L28744;}}}
+      break;
+    case 48 : {
+      n_461X = SvalS;
+      if ((0 == (3 & n_461X))) {
+        goto L28968;}
+      else {
+        if ((3 == (3 & n_461X))) {
+          if ((19 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+            goto L28968;}
+          else {
+            goto L28943;}}
+        else {
+          goto L28943;}}}
       break;
     case 49 : {
-      x_461X = SvalS;
-      if ((0 == (3 & x_461X))) {
+      x_462X = SvalS;
+      if ((0 == (3 & x_462X))) {
         SvalS = 5;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_461X;
+        *((long *) (SstackS)) = x_462X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 50 : {
-      x_462X = SvalS;
-      push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = x_462X;
-      SstackS = ((SstackS) + -4);
-      arg0K0 = 1;
-      goto L16678;}
-      break;
-    case 51 : {
       x_463X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_463X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
+      break;
+    case 51 : {
+      x_464X = SvalS;
+      push_exception_continuationB(5, 1);
+      *((long *) (SstackS)) = x_464X;
+      SstackS = ((SstackS) + -4);
+      arg0K0 = 1;
+      goto L16679;}
       break;
     case 52 : {
       SstackS = ((SstackS) + 4);
-      x_464X = *((long *) (SstackS));
-      y_465X = SvalS;
-      if ((0 == (3 & (x_464X | y_465X)))) {
-        z_466X = (((x_464X)>>2)) + (((y_465X)>>2));
-        if ((536870911 < z_466X)) {
+      x_465X = *((long *) (SstackS));
+      y_466X = SvalS;
+      if ((0 == (3 & (x_465X | y_466X)))) {
+        z_467X = (((x_465X)>>2)) + (((y_466X)>>2));
+        if ((536870911 < z_467X)) {
           push_exception_continuationB(5, 1);
-          *((long *) (SstackS)) = x_464X;
+          *((long *) (SstackS)) = x_465X;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = y_465X;
+          *((long *) (SstackS)) = y_466X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}
+          goto L16679;}
         else {
-          if ((z_466X < -536870912)) {
+          if ((z_467X < -536870912)) {
             push_exception_continuationB(5, 1);
-            *((long *) (SstackS)) = x_464X;
+            *((long *) (SstackS)) = x_465X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = y_465X;
+            *((long *) (SstackS)) = y_466X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}
+            goto L16679;}
           else {
-            SvalS = (((z_466X)<<2));
+            SvalS = (((z_467X)<<2));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}}
+            goto L18452;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_464X;
+        *((long *) (SstackS)) = x_465X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = y_465X;
+        *((long *) (SstackS)) = y_466X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 53 : {
       SstackS = ((SstackS) + 4);
-      arg2_467X = *((long *) (SstackS));
-      x_468X = SvalS;
-      if ((0 == (3 & (arg2_467X | x_468X)))) {
-        a_469X = ((arg2_467X)>>2);
-        b_470X = ((x_468X)>>2);
-        if ((a_469X < 0)) {
-          arg0K0 = (0 - a_469X);
-          goto L6787;}
+      arg2_468X = *((long *) (SstackS));
+      x_469X = SvalS;
+      if ((0 == (3 & (arg2_468X | x_469X)))) {
+        a_470X = ((arg2_468X)>>2);
+        b_471X = ((x_469X)>>2);
+        if ((a_470X < 0)) {
+          arg0K0 = (0 - a_470X);
+          goto L6788;}
         else {
-          arg0K0 = a_469X;
-          goto L6787;}}
+          arg0K0 = a_470X;
+          goto L6788;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_467X;
+        *((long *) (SstackS)) = arg2_468X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_468X;
+        *((long *) (SstackS)) = x_469X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 54 : {
       SstackS = ((SstackS) + 4);
-      x_471X = *((long *) (SstackS));
-      y_472X = SvalS;
-      if ((0 == (3 & (x_471X | y_472X)))) {
-        z_473X = (((x_471X)>>2)) - (((y_472X)>>2));
-        if ((536870911 < z_473X)) {
+      x_472X = *((long *) (SstackS));
+      y_473X = SvalS;
+      if ((0 == (3 & (x_472X | y_473X)))) {
+        z_474X = (((x_472X)>>2)) - (((y_473X)>>2));
+        if ((536870911 < z_474X)) {
           push_exception_continuationB(5, 1);
-          *((long *) (SstackS)) = x_471X;
+          *((long *) (SstackS)) = x_472X;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = y_472X;
+          *((long *) (SstackS)) = y_473X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}
+          goto L16679;}
         else {
-          if ((z_473X < -536870912)) {
+          if ((z_474X < -536870912)) {
             push_exception_continuationB(5, 1);
-            *((long *) (SstackS)) = x_471X;
+            *((long *) (SstackS)) = x_472X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = y_472X;
+            *((long *) (SstackS)) = y_473X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}
+            goto L16679;}
           else {
-            SvalS = (((z_473X)<<2));
+            SvalS = (((z_474X)<<2));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}}
+            goto L18452;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_471X;
+        *((long *) (SstackS)) = x_472X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = y_472X;
+        *((long *) (SstackS)) = y_473X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 55 : {
       SstackS = ((SstackS) + 4);
-      arg2_474X = *((long *) (SstackS));
-      x_475X = SvalS;
-      if ((0 == (3 & (arg2_474X | x_475X)))) {
-        if ((0 == x_475X)) {
+      arg2_475X = *((long *) (SstackS));
+      x_476X = SvalS;
+      if ((0 == (3 & (arg2_475X | x_476X)))) {
+        if ((0 == x_476X)) {
           push_exception_continuationB(5, 1);
-          *((long *) (SstackS)) = arg2_474X;
+          *((long *) (SstackS)) = arg2_475X;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = x_475X;
+          *((long *) (SstackS)) = x_476X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}
+          goto L16679;}
         else {
-          a_476X = ((arg2_474X)>>2);
-          b_477X = ((x_475X)>>2);
-          if ((a_476X < 0)) {
-            arg0K0 = (0 - a_476X);
-            goto L7068;}
+          a_477X = ((arg2_475X)>>2);
+          b_478X = ((x_476X)>>2);
+          if ((a_477X < 0)) {
+            arg0K0 = (0 - a_477X);
+            goto L7069;}
           else {
-            arg0K0 = a_476X;
-            goto L7068;}}}
+            arg0K0 = a_477X;
+            goto L7069;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_474X;
+        *((long *) (SstackS)) = arg2_475X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_475X;
+        *((long *) (SstackS)) = x_476X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 56 : {
       SstackS = ((SstackS) + 4);
-      arg2_478X = *((long *) (SstackS));
-      x_479X = SvalS;
-      if ((0 == (3 & (arg2_478X | x_479X)))) {
-        if ((arg2_478X == x_479X)) {
+      arg2_479X = *((long *) (SstackS));
+      x_480X = SvalS;
+      if ((0 == (3 & (arg2_479X | x_480X)))) {
+        if ((arg2_479X == x_480X)) {
           arg0K0 = 5;
-          goto L31877;}
+          goto L31878;}
         else {
           arg0K0 = 1;
-          goto L31877;}}
+          goto L31878;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_478X;
+        *((long *) (SstackS)) = arg2_479X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_479X;
+        *((long *) (SstackS)) = x_480X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 57 : {
       SstackS = ((SstackS) + 4);
-      arg2_480X = *((long *) (SstackS));
-      x_481X = SvalS;
-      if ((0 == (3 & (arg2_480X | x_481X)))) {
-        if ((arg2_480X < x_481X)) {
+      arg2_481X = *((long *) (SstackS));
+      x_482X = SvalS;
+      if ((0 == (3 & (arg2_481X | x_482X)))) {
+        if ((arg2_481X < x_482X)) {
           arg0K0 = 5;
-          goto L31955;}
+          goto L31956;}
         else {
           arg0K0 = 1;
-          goto L31955;}}
+          goto L31956;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_480X;
+        *((long *) (SstackS)) = arg2_481X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_481X;
+        *((long *) (SstackS)) = x_482X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 58 : {
       SstackS = ((SstackS) + 4);
-      arg2_482X = *((long *) (SstackS));
-      x_483X = SvalS;
-      if ((0 == (3 & (arg2_482X | x_483X)))) {
-        if ((x_483X < arg2_482X)) {
+      arg2_483X = *((long *) (SstackS));
+      x_484X = SvalS;
+      if ((0 == (3 & (arg2_483X | x_484X)))) {
+        if ((x_484X < arg2_483X)) {
           arg0K0 = 5;
-          goto L32033;}
+          goto L32034;}
         else {
           arg0K0 = 1;
-          goto L32033;}}
+          goto L32034;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_482X;
+        *((long *) (SstackS)) = arg2_483X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_483X;
+        *((long *) (SstackS)) = x_484X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 59 : {
       SstackS = ((SstackS) + 4);
-      arg2_484X = *((long *) (SstackS));
-      x_485X = SvalS;
-      if ((0 == (3 & (arg2_484X | x_485X)))) {
-        if ((x_485X < arg2_484X)) {
+      arg2_485X = *((long *) (SstackS));
+      x_486X = SvalS;
+      if ((0 == (3 & (arg2_485X | x_486X)))) {
+        if ((x_486X < arg2_485X)) {
           arg0K0 = 1;
-          goto L32111;}
+          goto L32112;}
         else {
           arg0K0 = 5;
-          goto L32111;}}
+          goto L32112;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_484X;
+        *((long *) (SstackS)) = arg2_485X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_485X;
+        *((long *) (SstackS)) = x_486X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 60 : {
       SstackS = ((SstackS) + 4);
-      arg2_486X = *((long *) (SstackS));
-      x_487X = SvalS;
-      if ((0 == (3 & (arg2_486X | x_487X)))) {
-        if ((arg2_486X < x_487X)) {
+      arg2_487X = *((long *) (SstackS));
+      x_488X = SvalS;
+      if ((0 == (3 & (arg2_487X | x_488X)))) {
+        if ((arg2_487X < x_488X)) {
           arg0K0 = 1;
-          goto L32189;}
+          goto L32190;}
         else {
           arg0K0 = 5;
-          goto L32189;}}
+          goto L32190;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_486X;
+        *((long *) (SstackS)) = arg2_487X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_487X;
+        *((long *) (SstackS)) = x_488X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 61 : {
       SstackS = ((SstackS) + 4);
-      arg2_488X = *((long *) (SstackS));
-      x_489X = SvalS;
-      if ((0 == (3 & (arg2_488X | x_489X)))) {
-        if ((0 == x_489X)) {
+      arg2_489X = *((long *) (SstackS));
+      x_490X = SvalS;
+      if ((0 == (3 & (arg2_489X | x_490X)))) {
+        if ((0 == x_490X)) {
           push_exception_continuationB(5, 1);
-          *((long *) (SstackS)) = arg2_488X;
+          *((long *) (SstackS)) = arg2_489X;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = x_489X;
+          *((long *) (SstackS)) = x_490X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}
+          goto L16679;}
         else {
-          a_490X = ((arg2_488X)>>2);
-          b_491X = ((x_489X)>>2);
-          if ((a_490X < 0)) {
-            arg0K0 = (0 - a_490X);
-            goto L7245;}
+          a_491X = ((arg2_489X)>>2);
+          b_492X = ((x_490X)>>2);
+          if ((a_491X < 0)) {
+            arg0K0 = (0 - a_491X);
+            goto L7246;}
           else {
-            arg0K0 = a_490X;
-            goto L7245;}}}
+            arg0K0 = a_491X;
+            goto L7246;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_488X;
+        *((long *) (SstackS)) = arg2_489X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_489X;
+        *((long *) (SstackS)) = x_490X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 62 : {
       SstackS = ((SstackS) + 4);
-      x_492X = *((long *) (SstackS));
-      y_493X = SvalS;
-      if ((0 == (3 & (x_492X | y_493X)))) {
-        if ((0 == y_493X)) {
+      x_493X = *((long *) (SstackS));
+      y_494X = SvalS;
+      if ((0 == (3 & (x_493X | y_494X)))) {
+        if ((0 == y_494X)) {
           push_exception_continuationB(5, 1);
-          *((long *) (SstackS)) = x_492X;
+          *((long *) (SstackS)) = x_493X;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = y_493X;
+          *((long *) (SstackS)) = y_494X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}
+          goto L16679;}
         else {
-          a_494X = ((x_492X)>>2);
-          if ((a_494X < 0)) {
-            arg0K0 = (0 - a_494X);
-            goto L25359;}
+          a_495X = ((x_493X)>>2);
+          if ((a_495X < 0)) {
+            arg0K0 = (0 - a_495X);
+            goto L25360;}
           else {
-            arg0K0 = a_494X;
-            goto L25359;}}}
+            arg0K0 = a_495X;
+            goto L25360;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_492X;
+        *((long *) (SstackS)) = x_493X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = y_493X;
+        *((long *) (SstackS)) = y_494X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 63 : {
-      x_495X = SvalS;
-      if ((0 == (3 & x_495X))) {
-        SvalS = x_495X;
-        Scode_pointerS = ((Scode_pointerS) + 1);
-        arg1K0 = (Scode_pointerS);
-        goto L18451;}
-      else {
-        push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_495X;
-        SstackS = ((SstackS) + -4);
-        arg0K0 = 1;
-        goto L16678;}}
-      break;
-    case 64 : {
       x_496X = SvalS;
       if ((0 == (3 & x_496X))) {
         SvalS = x_496X;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_496X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
-    case 65 : {
+    case 64 : {
       x_497X = SvalS;
       if ((0 == (3 & x_497X))) {
-        SvalS = 4;
+        SvalS = x_497X;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_497X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
-    case 66 : {
+    case 65 : {
       x_498X = SvalS;
       if ((0 == (3 & x_498X))) {
-        SvalS = x_498X;
+        SvalS = 4;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_498X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
-    case 67 : {
+    case 66 : {
       x_499X = SvalS;
       if ((0 == (3 & x_499X))) {
-        SvalS = 0;
+        SvalS = x_499X;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = x_499X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
+      break;
+    case 67 : {
+      x_500X = SvalS;
+      if ((0 == (3 & x_500X))) {
+        SvalS = 0;
+        Scode_pointerS = ((Scode_pointerS) + 1);
+        arg1K0 = (Scode_pointerS);
+        goto L18452;}
+      else {
+        push_exception_continuationB(5, 1);
+        *((long *) (SstackS)) = x_500X;
+        SstackS = ((SstackS) + -4);
+        arg0K0 = 1;
+        goto L16679;}}
       break;
     case 68 : {
-      x_500X = SvalS;
-      push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = x_500X;
-      SstackS = ((SstackS) + -4);
-      arg0K0 = 1;
-      goto L16678;}
-      break;
-    case 69 : {
       x_501X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_501X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
-    case 70 : {
+    case 69 : {
       x_502X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_502X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
-    case 71 : {
+    case 70 : {
       x_503X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_503X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
-    case 72 : {
+    case 71 : {
       x_504X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_504X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
-    case 73 : {
+    case 72 : {
       x_505X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_505X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
-    case 74 : {
+    case 73 : {
       x_506X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_506X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
-    case 75 : {
+    case 74 : {
       x_507X = SvalS;
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = x_507X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
+      break;
+    case 75 : {
+      x_508X = SvalS;
+      push_exception_continuationB(5, 1);
+      *((long *) (SstackS)) = x_508X;
+      SstackS = ((SstackS) + -4);
+      arg0K0 = 1;
+      goto L16679;}
       break;
     case 76 : {
-      x_508X = SvalS;
-      if ((0 == (3 & x_508X))) {
-        if ((x_508X < 0)) {
-          goto L38505;}
+      x_509X = SvalS;
+      if ((0 == (3 & x_509X))) {
+        if ((x_509X < 0)) {
+          goto L38506;}
         else {
           SvalS = 0;
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}}
+          goto L18452;}}
       else {
-        goto L38505;}}
+        goto L38506;}}
       break;
     case 77 : {
-      n_509X = SvalS;
-      if ((0 == (3 & n_509X))) {
-        n_510X = ((n_509X)>>2);
-        if ((n_510X < 0)) {
-          arg0K0 = (0 - n_510X);
-          goto L25645;}
+      n_510X = SvalS;
+      if ((0 == (3 & n_510X))) {
+        n_511X = ((n_510X)>>2);
+        if ((n_511X < 0)) {
+          arg0K0 = (0 - n_511X);
+          goto L25646;}
         else {
-          arg0K0 = n_510X;
-          goto L25645;}}
+          arg0K0 = n_511X;
+          goto L25646;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = n_509X;
+        *((long *) (SstackS)) = n_510X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 78 : {
       SstackS = ((SstackS) + 4);
-      arg2_511X = *((long *) (SstackS));
-      x_512X = SvalS;
+      arg2_512X = *((long *) (SstackS));
+      x_513X = SvalS;
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_511X;
+      *((long *) (SstackS)) = arg2_512X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = x_512X;
+      *((long *) (SstackS)) = x_513X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
       break;
     case 79 : {
       SstackS = ((SstackS) + 4);
-      arg2_513X = *((long *) (SstackS));
-      x_514X = SvalS;
+      arg2_514X = *((long *) (SstackS));
+      x_515X = SvalS;
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_513X;
+      *((long *) (SstackS)) = arg2_514X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = x_514X;
+      *((long *) (SstackS)) = x_515X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
       break;
     case 80 : {
       SstackS = ((SstackS) + 4);
-      arg2_515X = *((long *) (SstackS));
-      x_516X = SvalS;
+      arg2_516X = *((long *) (SstackS));
+      x_517X = SvalS;
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_515X;
+      *((long *) (SstackS)) = arg2_516X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = x_516X;
+      *((long *) (SstackS)) = x_517X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
       break;
     case 81 : {
-      x_517X = SvalS;
-      if ((0 == (3 & x_517X))) {
-        SvalS = (~ (3 | x_517X));
+      x_518X = SvalS;
+      if ((0 == (3 & x_518X))) {
+        SvalS = (~ (3 | x_518X));
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_517X;
+        *((long *) (SstackS)) = x_518X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 82 : {
       SstackS = ((SstackS) + 4);
-      arg2_518X = *((long *) (SstackS));
-      x_519X = SvalS;
-      if ((0 == (3 & (arg2_518X | x_519X)))) {
-        SvalS = (arg2_518X & x_519X);
+      arg2_519X = *((long *) (SstackS));
+      x_520X = SvalS;
+      if ((0 == (3 & (arg2_519X | x_520X)))) {
+        SvalS = (arg2_519X & x_520X);
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_518X;
+        *((long *) (SstackS)) = arg2_519X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_519X;
+        *((long *) (SstackS)) = x_520X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 83 : {
       SstackS = ((SstackS) + 4);
-      arg2_520X = *((long *) (SstackS));
-      x_521X = SvalS;
-      if ((0 == (3 & (arg2_520X | x_521X)))) {
-        SvalS = (arg2_520X | x_521X);
+      arg2_521X = *((long *) (SstackS));
+      x_522X = SvalS;
+      if ((0 == (3 & (arg2_521X | x_522X)))) {
+        SvalS = (arg2_521X | x_522X);
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_520X;
+        *((long *) (SstackS)) = arg2_521X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_521X;
+        *((long *) (SstackS)) = x_522X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 84 : {
       SstackS = ((SstackS) + 4);
-      arg2_522X = *((long *) (SstackS));
-      x_523X = SvalS;
-      if ((0 == (3 & (arg2_522X | x_523X)))) {
-        SvalS = (arg2_522X ^ x_523X);
+      arg2_523X = *((long *) (SstackS));
+      x_524X = SvalS;
+      if ((0 == (3 & (arg2_523X | x_524X)))) {
+        SvalS = (arg2_523X ^ x_524X);
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_522X;
+        *((long *) (SstackS)) = arg2_523X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_523X;
+        *((long *) (SstackS)) = x_524X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 85 : {
       SstackS = ((SstackS) + 4);
-      x_524X = *((long *) (SstackS));
-      y_525X = SvalS;
-      if ((0 == (3 & (x_524X | y_525X)))) {
-        value_526X = ((x_524X)>>2);
-        count_527X = ((y_525X)>>2);
-        if ((count_527X < 0)) {
-          PS_SHIFT_RIGHT(value_526X, (0 - count_527X), x_528X)
-          SvalS = (((x_528X)<<2));
+      x_525X = *((long *) (SstackS));
+      y_526X = SvalS;
+      if ((0 == (3 & (x_525X | y_526X)))) {
+        value_527X = ((x_525X)>>2);
+        count_528X = ((y_526X)>>2);
+        if ((count_528X < 0)) {
+          PS_SHIFT_RIGHT(value_527X, (0 - count_528X), x_529X)
+          SvalS = (((x_529X)<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          PS_SHIFT_LEFT(value_526X, count_527X, x_529X)
-          result_530X = (((((x_529X)<<2)))>>2);
-          PS_SHIFT_RIGHT(result_530X, count_527X, x_531X)
-          if ((value_526X == x_531X)) {
-            if ((value_526X < 0)) {
-              if ((result_530X < 0)) {
-                goto L25924;}
+          PS_SHIFT_LEFT(value_527X, count_528X, x_530X)
+          result_531X = (((((x_530X)<<2)))>>2);
+          PS_SHIFT_RIGHT(result_531X, count_528X, x_532X)
+          if ((value_527X == x_532X)) {
+            if ((value_527X < 0)) {
+              if ((result_531X < 0)) {
+                goto L25925;}
               else {
                 push_exception_continuationB(5, 1);
-                *((long *) (SstackS)) = x_524X;
+                *((long *) (SstackS)) = x_525X;
                 SstackS = ((SstackS) + -4);
-                *((long *) (SstackS)) = y_525X;
+                *((long *) (SstackS)) = y_526X;
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16678;}}
+                goto L16679;}}
             else {
-              if ((result_530X < 0)) {
+              if ((result_531X < 0)) {
                 push_exception_continuationB(5, 1);
-                *((long *) (SstackS)) = x_524X;
+                *((long *) (SstackS)) = x_525X;
                 SstackS = ((SstackS) + -4);
-                *((long *) (SstackS)) = y_525X;
+                *((long *) (SstackS)) = y_526X;
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16678;}
+                goto L16679;}
               else {
-                goto L25924;}}}
+                goto L25925;}}}
           else {
             push_exception_continuationB(5, 1);
-            *((long *) (SstackS)) = x_524X;
+            *((long *) (SstackS)) = x_525X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = y_525X;
+            *((long *) (SstackS)) = y_526X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}}}
+            goto L16679;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = x_524X;
+        *((long *) (SstackS)) = x_525X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = y_525X;
+        *((long *) (SstackS)) = y_526X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 86 : {
-      x_532X = SvalS;
-      if ((9 == (255 & x_532X))) {
+      x_533X = SvalS;
+      if ((9 == (255 & x_533X))) {
         arg0K0 = 5;
-        goto L38593;}
+        goto L38594;}
       else {
         arg0K0 = 1;
-        goto L38593;}}
+        goto L38594;}}
       break;
     case 87 : {
       SstackS = ((SstackS) + 4);
-      arg2_533X = *((long *) (SstackS));
-      if ((9 == (255 & arg2_533X))) {
+      arg2_534X = *((long *) (SstackS));
+      if ((9 == (255 & arg2_534X))) {
         if ((9 == (255 & (SvalS)))) {
-          x_534X = SvalS;
-          if ((arg2_533X == x_534X)) {
+          x_535X = SvalS;
+          if ((arg2_534X == x_535X)) {
             arg0K0 = 5;
-            goto L28187;}
+            goto L28188;}
           else {
             arg0K0 = 1;
-            goto L28187;}}
+            goto L28188;}}
         else {
-          goto L28160;}}
+          goto L28161;}}
       else {
-        goto L28160;}}
+        goto L28161;}}
       break;
     case 88 : {
       SstackS = ((SstackS) + 4);
-      arg2_535X = *((long *) (SstackS));
-      if ((9 == (255 & arg2_535X))) {
+      arg2_536X = *((long *) (SstackS));
+      if ((9 == (255 & arg2_536X))) {
         if ((9 == (255 & (SvalS)))) {
-          x_536X = SvalS;
-          if ((arg2_535X < x_536X)) {
+          x_537X = SvalS;
+          if ((arg2_536X < x_537X)) {
             arg0K0 = 5;
-            goto L28097;}
+            goto L28098;}
           else {
             arg0K0 = 1;
-            goto L28097;}}
+            goto L28098;}}
         else {
-          goto L28070;}}
+          goto L28071;}}
       else {
-        goto L28070;}}
+        goto L28071;}}
       break;
     case 89 : {
       if ((9 == (255 & (SvalS)))) {
         SvalS = (((((((((SvalS))>>8)))))<<2));
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 90 : {
       if ((0 == (3 & (SvalS)))) {
-        x_537X = (((SvalS))>>2);
-        if ((255 < x_537X)) {
-          goto L32881;}
+        x_538X = (((SvalS))>>2);
+        if ((255 < x_538X)) {
+          goto L32882;}
         else {
-          if ((x_537X < 0)) {
-            goto L32881;}
+          if ((x_538X < 0)) {
+            goto L32882;}
           else {
-            SvalS = (9 + (((((x_537X)))<<8)));
+            SvalS = (9 + (((((x_538X)))<<8)));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}}
+            goto L18452;}}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 91 : {
-      x_538X = SvalS;
-      if ((21 == x_538X)) {
+      x_539X = SvalS;
+      if ((21 == x_539X)) {
         arg0K0 = 5;
-        goto L38622;}
+        goto L38623;}
       else {
         arg0K0 = 1;
-        goto L38622;}}
+        goto L38623;}}
       break;
     case 92 : {
-      x_539X = SvalS;
-      type_540X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((3 == (3 & x_539X))) {
-        if (((31 & ((((*((long *) ((((char *) (-3 + x_539X))) + -4))))>>2))) == type_540X)) {
+      x_540X = SvalS;
+      type_541X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((3 == (3 & x_540X))) {
+        if (((31 & ((((*((long *) ((((char *) (-3 + x_540X))) + -4))))>>2))) == type_541X)) {
           arg0K0 = 5;
-          goto L38636;}
+          goto L38637;}
         else {
           arg0K0 = 1;
-          goto L38636;}}
+          goto L38637;}}
       else {
         arg0K0 = 1;
-        goto L38636;}}
+        goto L38637;}}
       break;
     case 93 : {
-      stob_541X = SvalS;
-      type_542X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((3 == (3 & stob_541X))) {
-        if (((31 & ((((*((long *) ((((char *) (-3 + stob_541X))) + -4))))>>2))) == type_542X)) {
-          SvalS = (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_541X))) + -4))))>>8))));
+      stob_542X = SvalS;
+      type_543X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((3 == (3 & stob_542X))) {
+        if (((31 & ((((*((long *) ((((char *) (-3 + stob_542X))) + -4))))>>2))) == type_543X)) {
+          SvalS = (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_542X))) + -4))))>>8))));
           Scode_pointerS = ((Scode_pointerS) + 2);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          goto L21242;}}
+          goto L21243;}}
       else {
-        goto L21242;}}
+        goto L21243;}}
       break;
     case 94 : {
-      len_543X = *((unsigned char *) ((Scode_pointerS) + 1));
-      space_544X = 4 + (((len_543X)<<2));
-      v_545X = AVAILABLEp(space_544X);
-      if (v_545X) {
-        goto L21314;}
+      len_544X = *((unsigned char *) ((Scode_pointerS) + 1));
+      space_545X = 4 + (((len_544X)<<2));
+      v_546X = AVAILABLEp(space_545X);
+      if (v_546X) {
+        goto L21315;}
       else {
-        collect_saving_temps(1, 1, &temp1_546X);
-        v_547X = AVAILABLEp(space_544X);
-        if (v_547X) {
-          goto L21314;}
+        collect_saving_temps(1, 1, &temp1_547X);
+        v_548X = AVAILABLEp(space_545X);
+        if (v_548X) {
+          goto L21315;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L21314;}}}
+          goto L21315;}}}
       break;
     case 95 : {
       SstackS = ((SstackS) + 4);
-      len_548X = (((*((long *) (SstackS))))>>2);
-      space_549X = 4 + (((len_548X)<<2));
-      v_550X = AVAILABLEp(space_549X);
-      if (v_550X) {
-        goto L21496;}
+      len_549X = (((*((long *) (SstackS))))>>2);
+      space_550X = 4 + (((len_549X)<<2));
+      v_551X = AVAILABLEp(space_550X);
+      if (v_551X) {
+        goto L21497;}
       else {
-        collect_saving_temps(1, 1, &temp1_551X);
-        v_552X = AVAILABLEp(space_549X);
-        if (v_552X) {
-          goto L21496;}
+        collect_saving_temps(1, 1, &temp1_552X);
+        v_553X = AVAILABLEp(space_550X);
+        if (v_553X) {
+          goto L21497;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L21496;}}}
+          goto L21497;}}}
       break;
     case 96 : {
-      stob_553X = SvalS;
-      offset_554X = *((unsigned char *) ((Scode_pointerS) + 2));
-      type_555X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((3 == (3 & stob_553X))) {
-        if (((31 & ((((*((long *) ((((char *) (-3 + stob_553X))) + -4))))>>2))) == type_555X)) {
-          SvalS = (*((long *) ((((char *) (-3 + stob_553X))) + (((offset_554X)<<2)))));
+      stob_554X = SvalS;
+      offset_555X = *((unsigned char *) ((Scode_pointerS) + 2));
+      type_556X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((3 == (3 & stob_554X))) {
+        if (((31 & ((((*((long *) ((((char *) (-3 + stob_554X))) + -4))))>>2))) == type_556X)) {
+          SvalS = (*((long *) ((((char *) (-3 + stob_554X))) + (((offset_555X)<<2)))));
           Scode_pointerS = ((Scode_pointerS) + 3);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          goto L21706;}}
+          goto L21707;}}
       else {
-        goto L21706;}}
+        goto L21707;}}
       break;
     case 97 : {
       SstackS = ((SstackS) + 4);
-      stob_556X = *((long *) (SstackS));
-      value_557X = SvalS;
-      offset_558X = *((unsigned char *) ((Scode_pointerS) + 2));
-      type_559X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((3 == (3 & stob_556X))) {
-        if (((31 & ((((*((long *) ((((char *) (-3 + stob_556X))) + -4))))>>2))) == type_559X)) {
-          if ((3 == (3 & stob_556X))) {
-            if ((0 == (128 & (*((long *) ((((char *) (-3 + stob_556X))) + -4)))))) {
-              addr_560X = (((char *) (-3 + stob_556X))) + (((offset_558X)<<2));
-              S48_WRITE_BARRIER(stob_556X, addr_560X, value_557X);
-              *((long *) addr_560X) = value_557X;
+      stob_557X = *((long *) (SstackS));
+      value_558X = SvalS;
+      offset_559X = *((unsigned char *) ((Scode_pointerS) + 2));
+      type_560X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((3 == (3 & stob_557X))) {
+        if (((31 & ((((*((long *) ((((char *) (-3 + stob_557X))) + -4))))>>2))) == type_560X)) {
+          if ((3 == (3 & stob_557X))) {
+            if ((0 == (128 & (*((long *) ((((char *) (-3 + stob_557X))) + -4)))))) {
+              addr_561X = (((char *) (-3 + stob_557X))) + (((offset_559X)<<2));
+              S48_WRITE_BARRIER(stob_557X, addr_561X, value_558X);
+              *((long *) addr_561X) = value_558X;
               SvalS = 13;
               Scode_pointerS = ((Scode_pointerS) + 3);
               arg1K0 = (Scode_pointerS);
-              goto L18451;}
+              goto L18452;}
             else {
-              goto L21809;}}
+              goto L21810;}}
           else {
-            goto L21809;}}
+            goto L21810;}}
         else {
-          goto L21809;}}
+          goto L21810;}}
       else {
-        goto L21809;}}
+        goto L21810;}}
       break;
     case 98 : {
       SstackS = ((SstackS) + 4);
-      len_561X = *((long *) (SstackS));
-      init_562X = SvalS;
-      type_563X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((0 == (3 & len_561X))) {
-        len_564X = ((len_561X)>>2);
-        size_565X = 1 + len_564X;
-        if ((len_564X < 0)) {
-          goto L21994;}
+      len_562X = *((long *) (SstackS));
+      init_563X = SvalS;
+      type_564X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((0 == (3 & len_562X))) {
+        len_565X = ((len_562X)>>2);
+        size_566X = 1 + len_565X;
+        if ((len_565X < 0)) {
+          goto L21995;}
         else {
-          if ((4194305 < size_565X)) {
-            goto L21994;}
+          if ((4194305 < size_566X)) {
+            goto L21995;}
           else {
-            v_566X = AVAILABLEp(size_565X);
-            if (v_566X) {
+            v_567X = AVAILABLEp(size_566X);
+            if (v_567X) {
               arg2K0 = 1;
-              arg0K1 = init_562X;
-              goto L22012;}
+              arg0K1 = init_563X;
+              goto L22013;}
             else {
-              temp0_567X = collect_saving_temps(init_562X, 1, &temp1_568X);
-              v_569X = AVAILABLEp(size_565X);
-              if (v_569X) {
+              temp0_568X = collect_saving_temps(init_563X, 1, &temp1_569X);
+              v_570X = AVAILABLEp(size_566X);
+              if (v_570X) {
                 arg2K0 = 1;
-                arg0K1 = temp0_567X;
-                goto L22012;}
+                arg0K1 = temp0_568X;
+                goto L22013;}
               else {
                 arg2K0 = 0;
-                arg0K1 = temp0_567X;
-                goto L22012;}}}}}
+                arg0K1 = temp0_568X;
+                goto L22013;}}}}}
       else {
         push_exception_continuationB(5, 2);
-        *((long *) (SstackS)) = (((type_563X)<<2));
+        *((long *) (SstackS)) = (((type_564X)<<2));
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = len_561X;
+        *((long *) (SstackS)) = len_562X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = init_562X;
+        *((long *) (SstackS)) = init_563X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 3;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 99 : {
       SstackS = ((SstackS) + 4);
-      stob_570X = *((long *) (SstackS));
-      index_571X = SvalS;
-      type_572X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((0 == (3 & index_571X))) {
-        if ((3 == (3 & stob_570X))) {
-          if (((31 & ((((*((long *) ((((char *) (-3 + stob_570X))) + -4))))>>2))) == type_572X)) {
-            len_573X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_570X))) + -4))))>>8))))>>2);
-            index_574X = ((index_571X)>>2);
-            if ((index_574X < 0)) {
-              goto L22290;}
+      stob_571X = *((long *) (SstackS));
+      index_572X = SvalS;
+      type_573X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((0 == (3 & index_572X))) {
+        if ((3 == (3 & stob_571X))) {
+          if (((31 & ((((*((long *) ((((char *) (-3 + stob_571X))) + -4))))>>2))) == type_573X)) {
+            len_574X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_571X))) + -4))))>>8))))>>2);
+            index_575X = ((index_572X)>>2);
+            if ((index_575X < 0)) {
+              goto L22291;}
             else {
-              if ((index_574X < len_573X)) {
-                SvalS = (*((long *) ((((char *) (-3 + stob_570X))) + (-4 & index_571X))));
+              if ((index_575X < len_574X)) {
+                SvalS = (*((long *) ((((char *) (-3 + stob_571X))) + (-4 & index_572X))));
                 Scode_pointerS = ((Scode_pointerS) + 2);
                 arg1K0 = (Scode_pointerS);
-                goto L18451;}
+                goto L18452;}
               else {
-                goto L22290;}}}
+                goto L22291;}}}
           else {
-            goto L22267;}}
+            goto L22268;}}
         else {
-          goto L22267;}}
+          goto L22268;}}
       else {
-        goto L22267;}}
+        goto L22268;}}
       break;
     case 100 : {
       SstackS = ((SstackS) + 4);
-      arg2_575X = *((long *) (SstackS));
+      arg2_576X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      stob_576X = *((long *) (SstackS));
-      value_577X = SvalS;
-      type_578X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((0 == (3 & arg2_575X))) {
-        if ((3 == (3 & stob_576X))) {
-          if (((31 & ((((*((long *) ((((char *) (-3 + stob_576X))) + -4))))>>2))) == type_578X)) {
-            if ((3 == (3 & stob_576X))) {
-              if ((0 == (128 & (*((long *) ((((char *) (-3 + stob_576X))) + -4)))))) {
-                len_579X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_576X))) + -4))))>>8))))>>2);
-                index_580X = ((arg2_575X)>>2);
-                if ((index_580X < 0)) {
-                  goto L22530;}
+      stob_577X = *((long *) (SstackS));
+      value_578X = SvalS;
+      type_579X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((0 == (3 & arg2_576X))) {
+        if ((3 == (3 & stob_577X))) {
+          if (((31 & ((((*((long *) ((((char *) (-3 + stob_577X))) + -4))))>>2))) == type_579X)) {
+            if ((3 == (3 & stob_577X))) {
+              if ((0 == (128 & (*((long *) ((((char *) (-3 + stob_577X))) + -4)))))) {
+                len_580X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + stob_577X))) + -4))))>>8))))>>2);
+                index_581X = ((arg2_576X)>>2);
+                if ((index_581X < 0)) {
+                  goto L22531;}
                 else {
-                  if ((index_580X < len_579X)) {
-                    addr_581X = (((char *) (-3 + stob_576X))) + (-4 & arg2_575X);
-                    S48_WRITE_BARRIER(stob_576X, addr_581X, value_577X);
-                    *((long *) addr_581X) = value_577X;
+                  if ((index_581X < len_580X)) {
+                    addr_582X = (((char *) (-3 + stob_577X))) + (-4 & arg2_576X);
+                    S48_WRITE_BARRIER(stob_577X, addr_582X, value_578X);
+                    *((long *) addr_582X) = value_578X;
                     SvalS = 13;
                     Scode_pointerS = ((Scode_pointerS) + 2);
                     arg1K0 = (Scode_pointerS);
-                    goto L18451;}
+                    goto L18452;}
                   else {
-                    goto L22530;}}}
+                    goto L22531;}}}
               else {
-                goto L22505;}}
+                goto L22506;}}
             else {
-              goto L22505;}}
+              goto L22506;}}
           else {
-            goto L22505;}}
+            goto L22506;}}
         else {
-          goto L22505;}}
+          goto L22506;}}
       else {
-        goto L22505;}}
+        goto L22506;}}
       break;
     case 101 : {
       SstackS = ((SstackS) + 4);
-      arg2_582X = *((long *) (SstackS));
-      if ((0 == (3 & (arg2_582X | (SvalS))))) {
-        len_583X = ((arg2_582X)>>2);
-        init_584X = (((SvalS))>>2);
-        size_585X = 1 + ((((3 + len_583X))>>2));
-        if ((len_583X < 0)) {
-          goto L26095;}
+      arg2_583X = *((long *) (SstackS));
+      if ((0 == (3 & (arg2_583X | (SvalS))))) {
+        len_584X = ((arg2_583X)>>2);
+        init_585X = (((SvalS))>>2);
+        size_586X = 1 + ((((3 + len_584X))>>2));
+        if ((len_584X < 0)) {
+          goto L26096;}
         else {
-          if ((4194305 < size_585X)) {
-            goto L26095;}
+          if ((4194305 < size_586X)) {
+            goto L26096;}
           else {
-            v_586X = AVAILABLEp(size_585X);
-            if (v_586X) {
-              goto L26187;}
+            v_587X = AVAILABLEp(size_586X);
+            if (v_587X) {
+              goto L26188;}
             else {
-              collect_saving_temps(1, 1, &temp1_587X);
-              v_588X = AVAILABLEp(size_585X);
-              if (v_588X) {
-                goto L26187;}
+              collect_saving_temps(1, 1, &temp1_588X);
+              v_589X = AVAILABLEp(size_586X);
+              if (v_589X) {
+                goto L26188;}
               else {
                 push_exception_continuationB(8, 1);
-                *((long *) (SstackS)) = (((len_583X)<<2));
+                *((long *) (SstackS)) = (((len_584X)<<2));
                 SstackS = ((SstackS) + -4);
-                *((long *) (SstackS)) = (((init_584X)<<2));
+                *((long *) (SstackS)) = (((init_585X)<<2));
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16678;}}}}}
+                goto L16679;}}}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_582X;
+        *((long *) (SstackS)) = arg2_583X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 102 : {
-      obj_589X = SvalS;
-      if ((3 == (3 & obj_589X))) {
-        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_589X))) + -4))))>>2))))) {
+      obj_590X = SvalS;
+      if ((3 == (3 & obj_590X))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + obj_590X))) + -4))))>>2))))) {
           SvalS = (((((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8)))<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          goto L36448;}}
+          goto L36449;}}
       else {
-        goto L36448;}}
+        goto L36449;}}
       break;
     case 103 : {
       SstackS = ((SstackS) + 4);
-      arg2_590X = *((long *) (SstackS));
-      if ((3 == (3 & arg2_590X))) {
-        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_590X))) + -4))))>>2))))) {
+      arg2_591X = *((long *) (SstackS));
+      if ((3 == (3 & arg2_591X))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg2_591X))) + -4))))>>2))))) {
           if ((0 == (3 & (SvalS)))) {
-            index_591X = (((SvalS))>>2);
-            len_592X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_590X))) + -4))))>>8);
-            if ((index_591X < 0)) {
-              goto L32987;}
+            index_592X = (((SvalS))>>2);
+            len_593X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_591X))) + -4))))>>8);
+            if ((index_592X < 0)) {
+              goto L32988;}
             else {
-              if ((index_591X < len_592X)) {
-                SvalS = ((((*((unsigned char *) ((((char *) (-3 + arg2_590X))) + index_591X))))<<2));
+              if ((index_592X < len_593X)) {
+                SvalS = ((((*((unsigned char *) ((((char *) (-3 + arg2_591X))) + index_592X))))<<2));
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18451;}
+                goto L18452;}
               else {
-                goto L32987;}}}
+                goto L32988;}}}
           else {
-            goto L36024;}}
+            goto L36025;}}
         else {
-          goto L36024;}}
+          goto L36025;}}
       else {
-        goto L36024;}}
+        goto L36025;}}
       break;
     case 104 : {
       SstackS = ((SstackS) + 4);
-      arg2_593X = *((long *) (SstackS));
+      arg2_594X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg3_594X = *((long *) (SstackS));
-      if ((3 == (3 & arg3_594X))) {
-        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_594X))) + -4))))>>2))))) {
-          if ((0 == (3 & (arg2_593X | (SvalS))))) {
-            index_595X = ((arg2_593X)>>2);
-            Kchar_596X = (((SvalS))>>2);
-            if ((3 == (3 & arg3_594X))) {
-              if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_594X))) + -4)))))) {
-                len_597X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_594X))) + -4))))>>8);
-                if ((index_595X < 0)) {
-                  goto L29935;}
+      arg3_595X = *((long *) (SstackS));
+      if ((3 == (3 & arg3_595X))) {
+        if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg3_595X))) + -4))))>>2))))) {
+          if ((0 == (3 & (arg2_594X | (SvalS))))) {
+            index_596X = ((arg2_594X)>>2);
+            Kchar_597X = (((SvalS))>>2);
+            if ((3 == (3 & arg3_595X))) {
+              if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_595X))) + -4)))))) {
+                len_598X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_595X))) + -4))))>>8);
+                if ((index_596X < 0)) {
+                  goto L29936;}
                 else {
-                  if ((index_595X < len_597X)) {
-                    *((unsigned char *) ((((char *) (-3 + arg3_594X))) + index_595X)) = Kchar_596X;
+                  if ((index_596X < len_598X)) {
+                    *((unsigned char *) ((((char *) (-3 + arg3_595X))) + index_596X)) = Kchar_597X;
                     SvalS = 13;
                     Scode_pointerS = ((Scode_pointerS) + 1);
                     arg1K0 = (Scode_pointerS);
-                    goto L18451;}
+                    goto L18452;}
                   else {
-                    goto L29935;}}}
+                    goto L29936;}}}
               else {
-                goto L29914;}}
+                goto L29915;}}
             else {
-              goto L29914;}}
+              goto L29915;}}
           else {
-            goto L34436;}}
+            goto L34437;}}
         else {
-          goto L34436;}}
+          goto L34437;}}
       else {
-        goto L34436;}}
+        goto L34437;}}
       break;
     case 105 : {
       SstackS = ((SstackS) + 4);
-      arg2_598X = *((long *) (SstackS));
-      if ((0 == (3 & arg2_598X))) {
+      arg2_599X = *((long *) (SstackS));
+      if ((0 == (3 & arg2_599X))) {
         if ((9 == (255 & (SvalS)))) {
-          len_599X = ((arg2_598X)>>2);
-          init_600X = ((((SvalS))>>8));
-          size_601X = 1 + ((((4 + len_599X))>>2));
-          if ((len_599X < 0)) {
-            goto L26329;}
+          len_600X = ((arg2_599X)>>2);
+          init_601X = ((((SvalS))>>8));
+          size_602X = 1 + ((((4 + len_600X))>>2));
+          if ((len_600X < 0)) {
+            goto L26330;}
           else {
-            if ((4194305 < size_601X)) {
-              goto L26329;}
+            if ((4194305 < size_602X)) {
+              goto L26330;}
             else {
-              v_602X = AVAILABLEp(size_601X);
-              if (v_602X) {
-                goto L26421;}
+              v_603X = AVAILABLEp(size_602X);
+              if (v_603X) {
+                goto L26422;}
               else {
-                collect_saving_temps(1, 1, &temp1_603X);
-                v_604X = AVAILABLEp(size_601X);
-                if (v_604X) {
-                  goto L26421;}
+                collect_saving_temps(1, 1, &temp1_604X);
+                v_605X = AVAILABLEp(size_602X);
+                if (v_605X) {
+                  goto L26422;}
                 else {
                   push_exception_continuationB(8, 1);
-                  *((long *) (SstackS)) = (((len_599X)<<2));
+                  *((long *) (SstackS)) = (((len_600X)<<2));
                   SstackS = ((SstackS) + -4);
-                  *((long *) (SstackS)) = (9 + ((((init_600X))<<8)));
+                  *((long *) (SstackS)) = (9 + ((((init_601X))<<8)));
                   SstackS = ((SstackS) + -4);
                   arg0K0 = 2;
-                  goto L16678;}}}}}
+                  goto L16679;}}}}}
         else {
-          goto L33068;}}
+          goto L33069;}}
       else {
-        goto L33068;}}
+        goto L33069;}}
       break;
     case 106 : {
-      obj_605X = SvalS;
-      if ((3 == (3 & obj_605X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_605X))) + -4))))>>2))))) {
+      obj_606X = SvalS;
+      if ((3 == (3 & obj_606X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_606X))) + -4))))>>2))))) {
           SvalS = (-4 + (((((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8)))<<2)));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          goto L36498;}}
+          goto L36499;}}
       else {
-        goto L36498;}}
+        goto L36499;}}
       break;
     case 107 : {
       SstackS = ((SstackS) + 4);
-      arg2_606X = *((long *) (SstackS));
-      if ((3 == (3 & arg2_606X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_606X))) + -4))))>>2))))) {
+      arg2_607X = *((long *) (SstackS));
+      if ((3 == (3 & arg2_607X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_607X))) + -4))))>>2))))) {
           if ((0 == (3 & (SvalS)))) {
-            index_607X = (((SvalS))>>2);
-            len_608X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_606X))) + -4))))>>8));
-            if ((index_607X < 0)) {
-              goto L33131;}
+            index_608X = (((SvalS))>>2);
+            len_609X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_607X))) + -4))))>>8));
+            if ((index_608X < 0)) {
+              goto L33132;}
             else {
-              if ((index_607X < len_608X)) {
-                SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + arg2_606X))) + index_607X))))))<<8)));
+              if ((index_608X < len_609X)) {
+                SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + arg2_607X))) + index_608X))))))<<8)));
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18451;}
+                goto L18452;}
               else {
-                goto L33131;}}}
+                goto L33132;}}}
           else {
-            goto L36120;}}
+            goto L36121;}}
         else {
-          goto L36120;}}
+          goto L36121;}}
       else {
-        goto L36120;}}
+        goto L36121;}}
       break;
     case 108 : {
       SstackS = ((SstackS) + 4);
-      arg2_609X = *((long *) (SstackS));
+      arg2_610X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg3_610X = *((long *) (SstackS));
-      if ((3 == (3 & arg3_610X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_610X))) + -4))))>>2))))) {
-          if ((0 == (3 & arg2_609X))) {
+      arg3_611X = *((long *) (SstackS));
+      if ((3 == (3 & arg3_611X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_611X))) + -4))))>>2))))) {
+          if ((0 == (3 & arg2_610X))) {
             if ((9 == (255 & (SvalS)))) {
-              index_611X = ((arg2_609X)>>2);
-              Kchar_612X = ((((SvalS))>>8));
-              if ((3 == (3 & arg3_610X))) {
-                if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_610X))) + -4)))))) {
-                  len_613X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_610X))) + -4))))>>8));
-                  if ((index_611X < 0)) {
-                    goto L30090;}
+              index_612X = ((arg2_610X)>>2);
+              Kchar_613X = ((((SvalS))>>8));
+              if ((3 == (3 & arg3_611X))) {
+                if ((0 == (128 & (*((long *) ((((char *) (-3 + arg3_611X))) + -4)))))) {
+                  len_614X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_611X))) + -4))))>>8));
+                  if ((index_612X < 0)) {
+                    goto L30091;}
                   else {
-                    if ((index_611X < len_613X)) {
-                      *((unsigned char *) ((((char *) (-3 + arg3_610X))) + index_611X)) = (Kchar_612X);
+                    if ((index_612X < len_614X)) {
+                      *((unsigned char *) ((((char *) (-3 + arg3_611X))) + index_612X)) = (Kchar_613X);
                       SvalS = 13;
                       Scode_pointerS = ((Scode_pointerS) + 1);
                       arg1K0 = (Scode_pointerS);
-                      goto L18451;}
+                      goto L18452;}
                     else {
-                      goto L30090;}}}
+                      goto L30091;}}}
                 else {
-                  goto L30069;}}
+                  goto L30070;}}
               else {
-                goto L30069;}}
+                goto L30070;}}
             else {
-              goto L34562;}}
+              goto L34563;}}
           else {
-            goto L34562;}}
+            goto L34563;}}
         else {
-          goto L34562;}}
+          goto L34563;}}
       else {
-        goto L34562;}}
+        goto L34563;}}
       break;
     case 109 : {
-      v_614X = AVAILABLEp(3);
-      if (v_614X) {
-        goto L24499;}
+      v_615X = AVAILABLEp(3);
+      if (v_615X) {
+        goto L24500;}
       else {
-        collect_saving_temps(1, 1, &temp1_615X);
-        v_616X = AVAILABLEp(3);
-        if (v_616X) {
-          goto L24499;}
+        collect_saving_temps(1, 1, &temp1_616X);
+        v_617X = AVAILABLEp(3);
+        if (v_617X) {
+          goto L24500;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L24499;}}}
+          goto L24500;}}}
       break;
     case 110 : {
-      obj_617X = SvalS;
-      if ((3 == (3 & obj_617X))) {
-        if ((4 == (31 & ((((*((long *) ((((char *) (-3 + obj_617X))) + -4))))>>2))))) {
-          x_618X = SvalS;
-          descriptor_619X = *((long *) ((((char *) (-3 + x_618X))) + 4));
-          if ((17 == (255 & descriptor_619X))) {
-            if ((529 == (*((long *) ((((char *) (-3 + x_618X))) + 4))))) {
+      obj_618X = SvalS;
+      if ((3 == (3 & obj_618X))) {
+        if ((4 == (31 & ((((*((long *) ((((char *) (-3 + obj_618X))) + -4))))>>2))))) {
+          x_619X = SvalS;
+          descriptor_620X = *((long *) ((((char *) (-3 + x_619X))) + 4));
+          if ((17 == (255 & descriptor_620X))) {
+            if ((529 == (*((long *) ((((char *) (-3 + x_619X))) + 4))))) {
               arg0K0 = 5;
-              goto L34109;}
+              goto L34110;}
             else {
               arg0K0 = 1;
-              goto L34109;}}
+              goto L34110;}}
           else {
             arg0K0 = 5;
-            goto L34109;}}
+            goto L34110;}}
         else {
-          goto L34090;}}
+          goto L34091;}}
       else {
-        goto L34090;}}
+        goto L34091;}}
       break;
     case 111 : {
       SstackS = ((SstackS) + 4);
-      arg2_620X = *((long *) (SstackS));
-      if ((3 == (3 & arg2_620X))) {
-        if ((4 == (31 & ((((*((long *) ((((char *) (-3 + arg2_620X))) + -4))))>>2))))) {
-          x_621X = SvalS;
-          if ((1 == x_621X)) {
-            goto L29677;}
+      arg2_621X = *((long *) (SstackS));
+      if ((3 == (3 & arg2_621X))) {
+        if ((4 == (31 & ((((*((long *) ((((char *) (-3 + arg2_621X))) + -4))))>>2))))) {
+          x_622X = SvalS;
+          if ((1 == x_622X)) {
+            goto L29678;}
           else {
-            if ((5 == x_621X)) {
-              goto L29677;}
+            if ((5 == x_622X)) {
+              goto L29678;}
             else {
-              goto L29684;}}}
+              goto L29685;}}}
         else {
-          goto L29684;}}
+          goto L29685;}}
       else {
-        goto L29684;}}
+        goto L29685;}}
       break;
     case 112 : {
-      x_622X = SvalS;
-      if ((3 == (3 & x_622X))) {
-        if ((0 == (128 & (*((long *) ((((char *) (-3 + x_622X))) + -4)))))) {
-          arg0K0 = 1;
-          goto L38708;}
-        else {
-          arg0K0 = 5;
-          goto L38708;}}
-      else {
-        arg0K0 = 5;
-        goto L38708;}}
-      break;
-    case 113 : {
       x_623X = SvalS;
       if ((3 == (3 & x_623X))) {
         if ((0 == (128 & (*((long *) ((((char *) (-3 + x_623X))) + -4)))))) {
-          *((long *) ((((char *) (-3 + x_623X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_623X))) + -4))));
-          goto L33213;}
+          arg0K0 = 1;
+          goto L38709;}
         else {
-          goto L33213;}}
+          arg0K0 = 5;
+          goto L38709;}}
       else {
-        goto L33213;}}
+        arg0K0 = 5;
+        goto L38709;}}
+      break;
+    case 113 : {
+      x_624X = SvalS;
+      if ((3 == (3 & x_624X))) {
+        if ((0 == (128 & (*((long *) ((((char *) (-3 + x_624X))) + -4)))))) {
+          *((long *) ((((char *) (-3 + x_624X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_624X))) + -4))));
+          goto L33214;}
+        else {
+          goto L33214;}}
+      else {
+        goto L33214;}}
       break;
     case 114 : {
-      v_624X = AVAILABLEp(72);
-      if (v_624X) {
+      v_625X = AVAILABLEp(72);
+      if (v_625X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L33264;}
+        goto L33265;}
       else {
-        collect_saving_temps(1, 1, &temp1_625X);
-        v_626X = AVAILABLEp(72);
-        if (v_626X) {
+        collect_saving_temps(1, 1, &temp1_626X);
+        v_627X = AVAILABLEp(72);
+        if (v_627X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L33264;}
+          goto L33265;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L33264;}}}
+          goto L33265;}}}
       break;
     case 115 : {
-      v_627X = AVAILABLEp(66);
-      if (v_627X) {
+      v_628X = AVAILABLEp(66);
+      if (v_628X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L34680;}
+        goto L34681;}
       else {
-        collect_saving_temps(1, 1, &temp1_628X);
-        v_629X = AVAILABLEp(66);
-        if (v_629X) {
+        collect_saving_temps(1, 1, &temp1_629X);
+        v_630X = AVAILABLEp(66);
+        if (v_630X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L34680;}
+          goto L34681;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L34680;}}}
+          goto L34681;}}}
       break;
     case 116 : {
-      v_630X = AVAILABLEp(66);
-      if (v_630X) {
+      v_631X = AVAILABLEp(66);
+      if (v_631X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L37552;}
+        goto L37553;}
       else {
-        collect_saving_temps(1, 1, &temp1_631X);
-        v_632X = AVAILABLEp(66);
-        if (v_632X) {
+        collect_saving_temps(1, 1, &temp1_632X);
+        v_633X = AVAILABLEp(66);
+        if (v_633X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L37552;}
+          goto L37553;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L37552;}}}
+          goto L37553;}}}
       break;
     case 117 : {
-      v_633X = AVAILABLEp(66);
-      if (v_633X) {
+      v_634X = AVAILABLEp(66);
+      if (v_634X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L37812;}
+        goto L37813;}
       else {
-        collect_saving_temps(1, 1, &temp1_634X);
-        v_635X = AVAILABLEp(66);
-        if (v_635X) {
+        collect_saving_temps(1, 1, &temp1_635X);
+        v_636X = AVAILABLEp(66);
+        if (v_636X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L37812;}
+          goto L37813;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L37812;}}}
+          goto L37813;}}}
       break;
     case 118 : {
-      v_636X = AVAILABLEp(66);
-      if (v_636X) {
+      v_637X = AVAILABLEp(66);
+      if (v_637X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L34165;}
+        goto L34166;}
       else {
-        collect_saving_temps(1, 1, &temp1_637X);
-        v_638X = AVAILABLEp(66);
-        if (v_638X) {
+        collect_saving_temps(1, 1, &temp1_638X);
+        v_639X = AVAILABLEp(66);
+        if (v_639X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L34165;}
+          goto L34166;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L34165;}}}
+          goto L34166;}}}
       break;
     case 119 : {
-      obj_639X = SvalS;
-      if ((3 == (3 & obj_639X))) {
-        if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_639X))) + -4))))>>2))))) {
-          channel_640X = SvalS;
-          head_641X = Spending_channels_headS;
-          if ((1 == head_641X)) {
-            addr_642X = (((char *) (-3 + channel_640X))) + 16;
-            S48_WRITE_BARRIER(channel_640X, addr_642X, 1);
-            *((long *) addr_642X) = 1;
-            n_643X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_640X))) + 8))))>>2)));
-            arg0K0 = (((n_643X)<<2));
-            goto L33335;}
+      obj_640X = SvalS;
+      if ((3 == (3 & obj_640X))) {
+        if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_640X))) + -4))))>>2))))) {
+          channel_641X = SvalS;
+          head_642X = Spending_channels_headS;
+          if ((1 == head_642X)) {
+            addr_643X = (((char *) (-3 + channel_641X))) + 16;
+            S48_WRITE_BARRIER(channel_641X, addr_643X, 1);
+            *((long *) addr_643X) = 1;
+            n_644X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_641X))) + 8))))>>2)));
+            arg0K0 = (((n_644X)<<2));
+            goto L33336;}
           else {
-            if ((channel_640X == head_641X)) {
-              channel_644X = Spending_channels_headS;
-              next_645X = *((long *) ((((char *) (-3 + channel_644X))) + 12));
-              Spending_channels_headS = next_645X;
-              addr_646X = (((char *) (-3 + channel_644X))) + 12;
-              S48_WRITE_BARRIER(channel_644X, addr_646X, 1);
-              *((long *) addr_646X) = 1;
-              if ((1 == next_645X)) {
+            if ((channel_641X == head_642X)) {
+              channel_645X = Spending_channels_headS;
+              next_646X = *((long *) ((((char *) (-3 + channel_645X))) + 12));
+              Spending_channels_headS = next_646X;
+              addr_647X = (((char *) (-3 + channel_645X))) + 12;
+              S48_WRITE_BARRIER(channel_645X, addr_647X, 1);
+              *((long *) addr_647X) = 1;
+              if ((1 == next_646X)) {
                 Spending_channels_tailS = 1;
-                goto L8185;}
+                goto L8186;}
               else {
-                goto L8185;}}
+                goto L8186;}}
             else {
-              arg0K0 = (*((long *) ((((char *) (-3 + head_641X))) + 12)));
-              arg0K1 = head_641X;
-              goto L8191;}}}
+              arg0K0 = (*((long *) ((((char *) (-3 + head_642X))) + 12)));
+              arg0K1 = head_642X;
+              goto L8192;}}}
         else {
-          goto L33318;}}
+          goto L33319;}}
       else {
-        goto L33318;}}
+        goto L33319;}}
       break;
     case 120 : {
-      space_647X = 3 * (Snumber_of_channelsS);
-      v_648X = AVAILABLEp(space_647X);
-      if (v_648X) {
-        goto L14790;}
+      space_648X = 3 * (Snumber_of_channelsS);
+      v_649X = AVAILABLEp(space_648X);
+      if (v_649X) {
+        goto L14791;}
       else {
-        collect_saving_temps(1, 1, &temp1_649X);
-        v_650X = AVAILABLEp(space_647X);
-        if (v_650X) {
-          goto L14790;}
+        collect_saving_temps(1, 1, &temp1_650X);
+        v_651X = AVAILABLEp(space_648X);
+        if (v_651X) {
+          goto L14791;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L14790;}}}
+          goto L14791;}}}
       break;
     case 121 : {
       SvalS = 529;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 122 : {
       SvalS = 13;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 123 : {
-      x_651X = SvalS;
+      x_652X = SvalS;
       push_exception_continuationB(16, 1);
-      *((long *) (SstackS)) = x_651X;
+      *((long *) (SstackS)) = x_652X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
       break;
     case 124 : {
       SvalS = 1;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 125 : {
       SvalS = 21;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 126 : {
-      v_652X = AVAILABLEp(66);
-      if (v_652X) {
+      v_653X = AVAILABLEp(66);
+      if (v_653X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L34781;}
+        goto L34782;}
       else {
-        collect_saving_temps(1, 1, &temp1_653X);
-        v_654X = AVAILABLEp(66);
-        if (v_654X) {
+        collect_saving_temps(1, 1, &temp1_654X);
+        v_655X = AVAILABLEp(66);
+        if (v_655X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L34781;}
+          goto L34782;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L34781;}}}
+          goto L34782;}}}
       break;
     case 127 : {
       SvalS = 13;
-      collect_saving_temps(0, 0, &v_655X);
+      collect_saving_temps(0, 0, &v_656X);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 128 : {
-      obj_656X = SvalS;
-      if ((3 == (3 & obj_656X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_656X))) + -4))))>>2))))) {
-          x_657X = SvalS;
-          n_658X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_657X))) + -4))))>>8));
+      obj_657X = SvalS;
+      if ((3 == (3 & obj_657X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_657X))) + -4))))>>2))))) {
+          x_658X = SvalS;
+          n_659X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_658X))) + -4))))>>8));
           arg0K0 = 0;
           arg0K1 = 0;
-          goto L35613;}
+          goto L35614;}
         else {
-          goto L35590;}}
+          goto L35591;}}
       else {
-        goto L35590;}}
+        goto L35591;}}
       break;
     case 129 : {
-      v_659X = AVAILABLEp(6);
-      if (v_659X) {
-        goto L38776;}
+      v_660X = AVAILABLEp(6);
+      if (v_660X) {
+        goto L38777;}
       else {
-        collect_saving_temps(1, 1, &temp1_660X);
-        v_661X = AVAILABLEp(6);
-        if (v_661X) {
-          goto L38776;}
+        collect_saving_temps(1, 1, &temp1_661X);
+        v_662X = AVAILABLEp(6);
+        if (v_662X) {
+          goto L38777;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L38776;}}}
+          goto L38777;}}}
       break;
     case 130 : {
       SstackS = ((SstackS) + 4);
-      arg2_662X = *((long *) (SstackS));
-      if ((0 == (3 & arg2_662X))) {
-        key_663X = ((arg2_662X)>>2);
-        other_664X = SvalS;
-        if ((5 == key_663X)) {
-          SvalS = (-4 & other_664X);
+      arg2_663X = *((long *) (SstackS));
+      if ((0 == (3 & arg2_663X))) {
+        key_664X = ((arg2_663X)>>2);
+        other_665X = SvalS;
+        if ((5 == key_664X)) {
+          SvalS = (-4 & other_665X);
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          if ((0 == key_663X)) {
-            x_665X = s48_available();
-            SvalS = (((x_665X)<<2));
+          if ((0 == key_664X)) {
+            x_666X = s48_available();
+            SvalS = (((x_666X)<<2));
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}
+            goto L18452;}
           else {
-            if ((1 == key_663X)) {
-              bytes_666X = s48_heap_size();
-              SvalS = (-4 & (3 + bytes_666X));
+            if ((1 == key_664X)) {
+              bytes_667X = s48_heap_size();
+              SvalS = (-4 & (3 + bytes_667X));
               Scode_pointerS = ((Scode_pointerS) + 1);
               arg1K0 = (Scode_pointerS);
-              goto L18451;}
+              goto L18452;}
             else {
-              if ((2 == key_663X)) {
+              if ((2 == key_664X)) {
                 SvalS = (((((Sstack_endS) - (Sstack_beginS)))<<2));
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18451;}
+                goto L18452;}
               else {
-                if ((3 == key_663X)) {
-                  x_667X = s48_gc_count();
-                  SvalS = (((x_667X)<<2));
+                if ((3 == key_664X)) {
+                  x_668X = s48_gc_count();
+                  SvalS = (((x_668X)<<2));
                   Scode_pointerS = ((Scode_pointerS) + 1);
                   arg1K0 = (Scode_pointerS);
-                  goto L18451;}
+                  goto L18452;}
                 else {
-                  if ((4 == key_663X)) {
+                  if ((4 == key_664X)) {
                     push_exception_continuationB(15, 1);
-                    *((long *) (SstackS)) = (((key_663X)<<2));
+                    *((long *) (SstackS)) = (((key_664X)<<2));
                     SstackS = ((SstackS) + -4);
-                    *((long *) (SstackS)) = other_664X;
+                    *((long *) (SstackS)) = other_665X;
                     SstackS = ((SstackS) + -4);
                     arg0K0 = 2;
-                    goto L16678;}
+                    goto L16679;}
                   else {
                     push_exception_continuationB(18, 1);
-                    *((long *) (SstackS)) = (((key_663X)<<2));
+                    *((long *) (SstackS)) = (((key_664X)<<2));
                     SstackS = ((SstackS) + -4);
-                    *((long *) (SstackS)) = other_664X;
+                    *((long *) (SstackS)) = other_665X;
                     SstackS = ((SstackS) + -4);
                     arg0K0 = 2;
-                    goto L16678;}}}}}}}
+                    goto L16679;}}}}}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_662X;
+        *((long *) (SstackS)) = arg2_663X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 131 : {
       if ((0 == (3 & (SvalS)))) {
-        type_668X = (((SvalS))>>2);
+        type_669X = (((SvalS))>>2);
         arg2K0 = 1;
-        goto L33426;}
+        goto L33427;}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 132 : {
-      x_669X = SvalS;
+      x_670X = SvalS;
       arg2K0 = 1;
-      arg0K1 = x_669X;
-      goto L38826;}
+      arg0K1 = x_670X;
+      goto L38827;}
       break;
     case 133 : {
       SvalS = (Scurrent_threadS);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 134 : {
       Scurrent_threadS = (SvalS);
       SvalS = 13;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 135 : {
       SvalS = (Ssession_dataS);
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 136 : {
       Ssession_dataS = (SvalS);
       SvalS = 13;
       Scode_pointerS = ((Scode_pointerS) + 1);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 137 : {
-      obj_670X = SvalS;
-      if ((3 == (3 & obj_670X))) {
-        if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_670X))) + -4))))>>2))))) {
+      obj_671X = SvalS;
+      if ((3 == (3 & obj_671X))) {
+        if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_671X))) + -4))))>>2))))) {
           if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 161)) {
-            goto L20583;}
+            goto L20584;}
           else {
-            temp_671X = Sexception_handlersS;
+            temp_672X = Sexception_handlersS;
             Sexception_handlersS = (SvalS);
-            SvalS = temp_671X;
+            SvalS = temp_672X;
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}
+            goto L18452;}}
         else {
-          goto L20583;}}
+          goto L20584;}}
       else {
-        goto L20583;}}
+        goto L20584;}}
       break;
     case 138 : {
       SstackS = ((SstackS) + 4);
-      p_672X = *((long *) (SstackS));
+      p_673X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      template_673X = *((long *) (SstackS));
+      template_674X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
       SstackS = ((SstackS) + 4);
-      p_674X = *((long *) (SstackS));
-      StemplateS = template_673X;
-      Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_673X)))))))) + ((((((((((p_672X)>>2)) + (((p_674X)>>2))))<<2)))>>2)));
+      p_675X = *((long *) (SstackS));
+      StemplateS = template_674X;
+      Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_674X)))))))) + ((((((((((p_673X)>>2)) + (((p_675X)>>2))))<<2)))>>2)));
       arg1K0 = (Scode_pointerS);
-      goto L18451;}
+      goto L18452;}
       break;
     case 139 : {
-      obj_675X = SvalS;
-      if ((3 == (3 & obj_675X))) {
-        if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_675X))) + -4))))>>2))))) {
+      obj_676X = SvalS;
+      if ((3 == (3 & obj_676X))) {
+        if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_676X))) + -4))))>>2))))) {
           if ((((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + (SvalS)))) + -4))))>>8))))>>2)) < 5)) {
-            goto L19507;}
+            goto L19508;}
           else {
-            temp_676X = Sinterrupt_handlersS;
+            temp_677X = Sinterrupt_handlersS;
             Sinterrupt_handlersS = (SvalS);
-            SvalS = temp_676X;
+            SvalS = temp_677X;
             Scode_pointerS = ((Scode_pointerS) + 1);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}
+            goto L18452;}}
         else {
-          goto L19507;}}
+          goto L19508;}}
       else {
-        goto L19507;}}
+        goto L19508;}}
       break;
     case 140 : {
-      old_677X = Senabled_interruptsS;
-      p_678X = SvalS;
-      Senabled_interruptsS = (((p_678X)>>2));
-      if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
-        s48_Spending_interruptPS = 0;
-        if ((s48_Spending_eventsPS)) {
-          s48_Spending_interruptPS = 1;
-          goto L38867;}
-        else {
-          goto L38867;}}
-      else {
-        s48_Spending_interruptPS = 1;
-        goto L38867;}}
-      break;
-    case 141 : {
-      SstackS = ((SstackS) + 4);
-      p_679X = *((long *) (SstackS));
+      old_678X = Senabled_interruptsS;
+      p_679X = SvalS;
       Senabled_interruptsS = (((p_679X)>>2));
       if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
         s48_Spending_interruptPS = 0;
         if ((s48_Spending_eventsPS)) {
           s48_Spending_interruptPS = 1;
-          goto L18465;}
+          goto L38868;}
         else {
-          goto L18465;}}
+          goto L38868;}}
       else {
         s48_Spending_interruptPS = 1;
-        goto L18465;}}
+        goto L38868;}}
+      break;
+    case 141 : {
+      SstackS = ((SstackS) + 4);
+      p_680X = *((long *) (SstackS));
+      Senabled_interruptsS = (((p_680X)>>2));
+      if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
+        s48_Spending_interruptPS = 0;
+        if ((s48_Spending_eventsPS)) {
+          s48_Spending_interruptPS = 1;
+          goto L18466;}
+        else {
+          goto L18466;}}
+      else {
+        s48_Spending_interruptPS = 1;
+        goto L18466;}}
       break;
     case 142 : {
       if ((0 == (3 & (SvalS)))) {
-        p_680X = SvalS;
+        p_681X = SvalS;
         Spending_interruptsS = (-2 & (Spending_interruptsS));
         if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
           s48_Spending_interruptPS = 0;
           if ((s48_Spending_eventsPS)) {
             s48_Spending_interruptPS = 1;
-            goto L37372;}
+            goto L37373;}
           else {
-            goto L37372;}}
+            goto L37373;}}
         else {
           s48_Spending_interruptPS = 1;
-          goto L37372;}}
+          goto L37373;}}
       else {
         push_exception_continuationB(5, 1);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 143 : {
       SstackS = ((SstackS) + 4);
-      arg2_681X = *((long *) (SstackS));
-      if ((0 == (3 & arg2_681X))) {
-        x_682X = SvalS;
-        if ((1 == x_682X)) {
-          goto L34309;}
+      arg2_682X = *((long *) (SstackS));
+      if ((0 == (3 & arg2_682X))) {
+        x_683X = SvalS;
+        if ((1 == x_683X)) {
+          goto L34310;}
         else {
-          if ((5 == x_682X)) {
-            goto L34309;}
+          if ((5 == x_683X)) {
+            goto L34310;}
           else {
-            goto L34314;}}}
+            goto L34315;}}}
       else {
-        goto L34314;}}
+        goto L34315;}}
       break;
     case 144 : {
       SstackS = ((SstackS) + 4);
-      nargs_683X = (((*((long *) (SstackS))))>>2);
+      nargs_684X = (((*((long *) (SstackS))))>>2);
       SstackS = ((SstackS) + 4);
-      p_684X = *((long *) (SstackS));
+      p_685X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      rest_list_685X = *((long *) (SstackS));
-      if ((14 < nargs_683X)) {
+      rest_list_686X = *((long *) (SstackS));
+      if ((14 < nargs_684X)) {
         push_exception_continuationB(20, 1);
-        *((long *) (SstackS)) = (*((long *) ((SstackS) + (-4 & p_684X))));
+        *((long *) (SstackS)) = (*((long *) ((SstackS) + (-4 & p_685X))));
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = nargs_683X;
+        *((long *) (SstackS)) = nargs_684X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}
+        goto L16679;}
       else {
-        arg0K0 = rest_list_685X;
-        goto L22802;}}
+        arg0K0 = rest_list_686X;
+        goto L22803;}}
       break;
     case 145 : {
-      v_686X = AVAILABLEp(5);
-      if (v_686X) {
+      v_687X = AVAILABLEp(5);
+      if (v_687X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L33535;}
+        goto L33536;}
       else {
-        collect_saving_temps(1, 1, &temp1_687X);
-        v_688X = AVAILABLEp(5);
-        if (v_688X) {
+        collect_saving_temps(1, 1, &temp1_688X);
+        v_689X = AVAILABLEp(5);
+        if (v_689X) {
           arg2K0 = 1;
           arg0K1 = 0;
-          goto L33535;}
+          goto L33536;}
         else {
           arg2K0 = 0;
           arg0K1 = 0;
-          goto L33535;}}}
+          goto L33536;}}}
       break;
     case 147 : {
       SstackS = ((SstackS) + 4);
-      arg2_689X = *((long *) (SstackS));
-      if ((3 == (3 & arg2_689X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_689X))) + -4))))>>2))))) {
-          x_690X = SvalS;
-          if ((1 == x_690X)) {
-            goto L23926;}
+      arg2_690X = *((long *) (SstackS));
+      if ((3 == (3 & arg2_690X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>2))))) {
+          x_691X = SvalS;
+          if ((1 == x_691X)) {
+            goto L23927;}
           else {
-            if ((5 == x_690X)) {
-              goto L23926;}
+            if ((5 == x_691X)) {
+              goto L23927;}
             else {
-              goto L23931;}}}
+              goto L23932;}}}
         else {
-          goto L23931;}}
+          goto L23932;}}
       else {
-        goto L23931;}}
+        goto L23932;}}
       break;
     case 148 : {
       SstackS = ((SstackS) + 4);
-      arg2_691X = *((long *) (SstackS));
-      if ((0 == (3 & arg2_691X))) {
-        option_692X = ((arg2_691X)>>2);
-        other_693X = SvalS;
-        if ((2 == option_692X)) {
-          x_694X = CHEAP_TIME();
-          SvalS = (((x_694X)<<2));
+      arg2_692X = *((long *) (SstackS));
+      if ((0 == (3 & arg2_692X))) {
+        option_693X = ((arg2_692X)>>2);
+        other_694X = SvalS;
+        if ((2 == option_693X)) {
+          x_695X = CHEAP_TIME();
+          SvalS = (((x_695X)<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          if ((0 == option_692X)) {
-            seconds_695X = s48_run_time(&mseconds_696X);
-            arg0K0 = option_692X;
-            arg0K1 = seconds_695X;
-            arg0K2 = mseconds_696X;
-            goto L35524;}
+          if ((0 == option_693X)) {
+            seconds_696X = s48_run_time(&mseconds_697X);
+            arg0K0 = option_693X;
+            arg0K1 = seconds_696X;
+            arg0K2 = mseconds_697X;
+            goto L35525;}
           else {
-            if ((1 == option_692X)) {
-              seconds_697X = s48_real_time(&mseconds_698X);
-              arg0K0 = option_692X;
-              arg0K1 = seconds_697X;
-              arg0K2 = mseconds_698X;
-              goto L35524;}
+            if ((1 == option_693X)) {
+              seconds_698X = s48_real_time(&mseconds_699X);
+              arg0K0 = option_693X;
+              arg0K1 = seconds_698X;
+              arg0K2 = mseconds_699X;
+              goto L35525;}
             else {
               push_exception_continuationB(18, 1);
-              *((long *) (SstackS)) = (((option_692X)<<2));
+              *((long *) (SstackS)) = (((option_693X)<<2));
               SstackS = ((SstackS) + -4);
-              *((long *) (SstackS)) = other_693X;
+              *((long *) (SstackS)) = other_694X;
               SstackS = ((SstackS) + -4);
               arg0K0 = 2;
-              goto L16678;}}}}
+              goto L16679;}}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_691X;
+        *((long *) (SstackS)) = arg2_692X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 149 : {
       SstackS = ((SstackS) + 4);
-      arg2_699X = *((long *) (SstackS));
-      if ((0 == (3 & arg2_699X))) {
-        key_700X = ((arg2_699X)>>2);
-        value_701X = SvalS;
-        status_702X = s48_extended_vm(key_700X, value_701X);
-        if ((0 == status_702X)) {
+      arg2_700X = *((long *) (SstackS));
+      if ((0 == (3 & arg2_700X))) {
+        key_701X = ((arg2_700X)>>2);
+        value_702X = SvalS;
+        status_703X = s48_extended_vm(key_701X, value_702X);
+        if ((0 == status_703X)) {
           SvalS = (s48_Sextension_valueS);
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
-          if ((1 == status_702X)) {
+          if ((1 == status_703X)) {
             push_exception_continuationB(23, 1);
-            *((long *) (SstackS)) = (((key_700X)<<2));
+            *((long *) (SstackS)) = (((key_701X)<<2));
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = value_701X;
+            *((long *) (SstackS)) = value_702X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}
+            goto L16679;}
           else {
             push_exception_continuationB(24, 1);
-            *((long *) (SstackS)) = (((key_700X)<<2));
+            *((long *) (SstackS)) = (((key_701X)<<2));
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = value_701X;
+            *((long *) (SstackS)) = value_702X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}}}
+            goto L16679;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_699X;
+        *((long *) (SstackS)) = arg2_700X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 150 : {
       SstackS = ((SstackS) + 4);
-      arg2_703X = *((long *) (SstackS));
-      x_704X = SvalS;
+      arg2_704X = *((long *) (SstackS));
+      x_705X = SvalS;
       Senabled_interruptsS = -1;
       if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
         s48_Spending_interruptPS = 0;
         if ((s48_Spending_eventsPS)) {
           s48_Spending_interruptPS = 1;
-          goto L38927;}
+          goto L38928;}
         else {
-          goto L38927;}}
+          goto L38928;}}
       else {
         s48_Spending_interruptPS = 1;
-        goto L38927;}}
+        goto L38928;}}
       break;
     case 151 : {
       SstackS = ((SstackS) + 4);
-      arg2_705X = *((long *) (SstackS));
-      if ((3 == (3 & arg2_705X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_705X))) + -4))))>>2))))) {
-          obj_706X = SvalS;
-          if ((3 == (3 & obj_706X))) {
-            if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_706X))) + -4))))>>2))))) {
-              x_707X = SvalS;
-              len_708X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_705X))) + -4))))>>8);
-              if ((len_708X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_707X))) + -4))))>>8)))) {
-                if (((!memcmp((void *)(((char *) (-3 + x_707X))), (void *)(((char *) (-3 + arg2_705X))),len_708X)))) {
+      arg2_706X = *((long *) (SstackS));
+      if ((3 == (3 & arg2_706X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_706X))) + -4))))>>2))))) {
+          obj_707X = SvalS;
+          if ((3 == (3 & obj_707X))) {
+            if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_707X))) + -4))))>>2))))) {
+              x_708X = SvalS;
+              len_709X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_706X))) + -4))))>>8);
+              if ((len_709X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + x_708X))) + -4))))>>8)))) {
+                if (((!memcmp((void *)(((char *) (-3 + x_708X))), (void *)(((char *) (-3 + arg2_706X))),len_709X)))) {
                   arg0K0 = 5;
-                  goto L27863;}
+                  goto L27864;}
                 else {
                   arg0K0 = 1;
-                  goto L27863;}}
+                  goto L27864;}}
               else {
                 arg0K0 = 1;
-                goto L27863;}}
+                goto L27864;}}
             else {
-              goto L27830;}}
+              goto L27831;}}
           else {
-            goto L27830;}}
+            goto L27831;}}
         else {
-          goto L27830;}}
+          goto L27831;}}
       else {
-        goto L27830;}}
+        goto L27831;}}
       break;
     case 152 : {
-      space_709X = 1 + ((((4 + ((((SvalS))>>2))))>>2));
-      v_710X = AVAILABLEp(space_709X);
-      if (v_710X) {
-        goto L33744;}
+      space_710X = 1 + ((((4 + ((((SvalS))>>2))))>>2));
+      v_711X = AVAILABLEp(space_710X);
+      if (v_711X) {
+        goto L33745;}
       else {
-        collect_saving_temps(1, 1, &temp1_711X);
-        v_712X = AVAILABLEp(space_709X);
-        if (v_712X) {
-          goto L33744;}
+        collect_saving_temps(1, 1, &temp1_712X);
+        v_713X = AVAILABLEp(space_710X);
+        if (v_713X) {
+          goto L33745;}
         else {
           ps_error("Scheme48 heap overflow", 0);
-          goto L33744;}}}
+          goto L33745;}}}
       break;
     case 153 : {
       SstackS = ((SstackS) + 4);
-      thing_713X = *((long *) (SstackS));
-      list_714X = SvalS;
-      arg0K0 = list_714X;
-      arg0K1 = list_714X;
+      thing_714X = *((long *) (SstackS));
+      list_715X = SvalS;
+      arg0K0 = list_715X;
+      arg0K1 = list_715X;
       arg2K2 = 1;
-      goto L29332;}
+      goto L29333;}
       break;
     case 154 : {
       SstackS = ((SstackS) + 4);
-      arg2_715X = *((long *) (SstackS));
+      arg2_716X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg3_716X = *((long *) (SstackS));
+      arg3_717X = *((long *) (SstackS));
       if ((0 == (3 & (SvalS)))) {
-        index_717X = (((SvalS))>>2);
-        if ((3 == (3 & arg3_716X))) {
-          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg3_716X))) + -4))))>>2))))) {
-            if ((arg2_715X == (*((long *) (((char *) (-3 + arg3_716X))))))) {
-              len_718X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_716X))) + -4))))>>8))))>>2);
-              if ((index_717X < 0)) {
-                goto L27536;}
+        index_718X = (((SvalS))>>2);
+        if ((3 == (3 & arg3_717X))) {
+          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg3_717X))) + -4))))>>2))))) {
+            if ((arg2_716X == (*((long *) (((char *) (-3 + arg3_717X))))))) {
+              len_719X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_717X))) + -4))))>>8))))>>2);
+              if ((index_718X < 0)) {
+                goto L27537;}
               else {
-                if ((index_717X < len_718X)) {
-                  SvalS = (*((long *) ((((char *) (-3 + arg3_716X))) + (((index_717X)<<2)))));
+                if ((index_718X < len_719X)) {
+                  SvalS = (*((long *) ((((char *) (-3 + arg3_717X))) + (((index_718X)<<2)))));
                   Scode_pointerS = ((Scode_pointerS) + 1);
                   arg1K0 = (Scode_pointerS);
-                  goto L18451;}
+                  goto L18452;}
                 else {
-                  goto L27536;}}}
+                  goto L27537;}}}
             else {
-              goto L27556;}}
+              goto L27557;}}
           else {
-            goto L27556;}}
+            goto L27557;}}
         else {
-          goto L27556;}}
+          goto L27557;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg3_716X;
+        *((long *) (SstackS)) = arg3_717X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = arg2_715X;
+        *((long *) (SstackS)) = arg2_716X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 3;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 155 : {
       SstackS = ((SstackS) + 4);
-      arg2_719X = *((long *) (SstackS));
+      arg2_720X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg3_720X = *((long *) (SstackS));
+      arg3_721X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg4_721X = *((long *) (SstackS));
-      if ((0 == (3 & arg2_719X))) {
-        index_722X = ((arg2_719X)>>2);
-        value_723X = SvalS;
-        if ((3 == (3 & arg4_721X))) {
-          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg4_721X))) + -4))))>>2))))) {
-            if ((arg3_720X == (*((long *) (((char *) (-3 + arg4_721X))))))) {
-              if ((3 == (3 & arg4_721X))) {
-                if ((0 == (128 & (*((long *) ((((char *) (-3 + arg4_721X))) + -4)))))) {
-                  len_724X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_721X))) + -4))))>>8))))>>2);
-                  if ((index_722X < 0)) {
-                    goto L30837;}
+      arg4_722X = *((long *) (SstackS));
+      if ((0 == (3 & arg2_720X))) {
+        index_723X = ((arg2_720X)>>2);
+        value_724X = SvalS;
+        if ((3 == (3 & arg4_722X))) {
+          if ((8 == (31 & ((((*((long *) ((((char *) (-3 + arg4_722X))) + -4))))>>2))))) {
+            if ((arg3_721X == (*((long *) (((char *) (-3 + arg4_722X))))))) {
+              if ((3 == (3 & arg4_722X))) {
+                if ((0 == (128 & (*((long *) ((((char *) (-3 + arg4_722X))) + -4)))))) {
+                  len_725X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_722X))) + -4))))>>8))))>>2);
+                  if ((index_723X < 0)) {
+                    goto L30838;}
                   else {
-                    if ((index_722X < len_724X)) {
-                      addr_725X = (((char *) (-3 + arg4_721X))) + (((index_722X)<<2));
-                      S48_WRITE_BARRIER(arg4_721X, addr_725X, value_723X);
-                      *((long *) addr_725X) = value_723X;
+                    if ((index_723X < len_725X)) {
+                      addr_726X = (((char *) (-3 + arg4_722X))) + (((index_723X)<<2));
+                      S48_WRITE_BARRIER(arg4_722X, addr_726X, value_724X);
+                      *((long *) addr_726X) = value_724X;
                       SvalS = 13;
                       Scode_pointerS = ((Scode_pointerS) + 1);
                       arg1K0 = (Scode_pointerS);
-                      goto L18451;}
+                      goto L18452;}
                     else {
-                      goto L30837;}}}
+                      goto L30838;}}}
                 else {
-                  goto L30859;}}
+                  goto L30860;}}
               else {
-                goto L30859;}}
+                goto L30860;}}
             else {
-              goto L30859;}}
+              goto L30860;}}
           else {
-            goto L30859;}}
+            goto L30860;}}
         else {
-          goto L30859;}}
+          goto L30860;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg4_721X;
+        *((long *) (SstackS)) = arg4_722X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = arg3_720X;
+        *((long *) (SstackS)) = arg3_721X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = arg2_719X;
+        *((long *) (SstackS)) = arg2_720X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 4;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 156 : {
       SstackS = ((SstackS) + 4);
-      arg2_726X = *((long *) (SstackS));
+      arg2_727X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg3_727X = *((long *) (SstackS));
+      arg3_728X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg4_728X = *((long *) (SstackS));
+      arg4_729X = *((long *) (SstackS));
       SstackS = ((SstackS) + 4);
-      arg5_729X = *((long *) (SstackS));
-      if ((0 == (3 & ((arg4_728X | arg2_726X) | (SvalS))))) {
-        from_index_730X = ((arg4_728X)>>2);
-        to_index_731X = ((arg2_726X)>>2);
-        count_732X = (((SvalS))>>2);
-        if ((3 == (3 & arg5_729X))) {
-          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) {
-            goto L31088;}
+      arg5_730X = *((long *) (SstackS));
+      if ((0 == (3 & ((arg4_729X | arg2_727X) | (SvalS))))) {
+        from_index_731X = ((arg4_729X)>>2);
+        to_index_732X = ((arg2_727X)>>2);
+        count_733X = (((SvalS))>>2);
+        if ((3 == (3 & arg5_730X))) {
+          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+            goto L31089;}
           else {
-            goto L31083;}}
+            goto L31084;}}
         else {
-          goto L31083;}}
+          goto L31084;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg5_729X;
+        *((long *) (SstackS)) = arg5_730X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = arg4_728X;
+        *((long *) (SstackS)) = arg4_729X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = arg3_727X;
+        *((long *) (SstackS)) = arg3_728X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = arg2_726X;
+        *((long *) (SstackS)) = arg2_727X;
         SstackS = ((SstackS) + -4);
         *((long *) (SstackS)) = (SvalS);
         SstackS = ((SstackS) + -4);
         arg0K0 = 5;
-        goto L16678;}}
+        goto L16679;}}
       break;
     case 157 : {
-      v_733X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((0 == v_733X)) {
+      v_734X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((0 == v_734X)) {
         arg0K0 = (SvalS);
-        goto L23058;}
+        goto L23059;}
       else {
         merged_arg0K0 = 0;
         get_current_port_return_tag = 0;
         goto get_current_port;
        get_current_port_return_0:
-        v_734X = get_current_port0_return_value;
-        arg0K0 = v_734X;
-        goto L23058;}}
+        v_735X = get_current_port0_return_value;
+        arg0K0 = v_735X;
+        goto L23059;}}
       break;
     case 158 : {
-      v_735X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((0 == v_735X)) {
+      v_736X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((0 == v_736X)) {
         arg0K0 = (SvalS);
-        goto L23278;}
+        goto L23279;}
       else {
         merged_arg0K0 = 0;
         get_current_port_return_tag = 1;
         goto get_current_port;
        get_current_port_return_1:
-        v_736X = get_current_port0_return_value;
-        arg0K0 = v_736X;
-        goto L23278;}}
+        v_737X = get_current_port0_return_value;
+        arg0K0 = v_737X;
+        goto L23279;}}
       break;
     case 159 : {
-      v_737X = *((unsigned char *) ((Scode_pointerS) + 1));
-      if ((0 == v_737X)) {
-        v_738X = SvalS;
+      v_738X = *((unsigned char *) ((Scode_pointerS) + 1));
+      if ((0 == v_738X)) {
+        v_739X = SvalS;
         SstackS = ((SstackS) + 4);
         arg0K0 = (*((long *) (SstackS)));
-        arg0K1 = v_738X;
-        goto L23491;}
+        arg0K1 = v_739X;
+        goto L23492;}
       else {
         merged_arg0K0 = 4;
         get_current_port_return_tag = 2;
         goto get_current_port;
        get_current_port_return_2:
-        v_739X = get_current_port0_return_value;
+        v_740X = get_current_port0_return_value;
         arg0K0 = (SvalS);
-        arg0K1 = v_739X;
-        goto L23491;}}
+        arg0K1 = v_740X;
+        goto L23492;}}
       break;
     case 160 : {
-      x_740X = SvalS;
-      out_741X = stderr;
-      arg0K0 = x_740X;
-      goto L29585;}
+      x_741X = SvalS;
+      out_742X = stderr;
+      arg0K0 = x_741X;
+      goto L29586;}
       break;
   }}
- L16678: {
-  nargs_742X = arg0K0;
-  opcode_743X = (((*((long *) ((SstackS) + (8 + (((nargs_742X)<<2)))))))>>2);
-  obj_744X = Sexception_handlersS;
-  if ((3 == (3 & obj_744X))) {
-    if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_744X))) + -4))))>>2))))) {
-      goto L16737;}
+ L16679: {
+  nargs_743X = arg0K0;
+  opcode_744X = (((*((long *) ((SstackS) + (8 + (((nargs_743X)<<2)))))))>>2);
+  obj_745X = Sexception_handlersS;
+  if ((3 == (3 & obj_745X))) {
+    if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_745X))) + -4))))>>2))))) {
+      goto L16738;}
     else {
-      goto L16810;}}
+      goto L16811;}}
   else {
-    goto L16810;}}
- L23845: {
-  env_745X = arg0K0;
-  i_746X = arg0K1;
-  if ((0 == i_746X)) {
-    SvalS = (*((long *) ((((char *) (-3 + env_745X))) + ((((*((unsigned char *) ((Scode_pointerS) + 2))))<<2)))));
+    goto L16811;}}
+ L23846: {
+  env_746X = arg0K0;
+  i_747X = arg0K1;
+  if ((0 == i_747X)) {
+    SvalS = (*((long *) ((((char *) (-3 + env_746X))) + ((((*((unsigned char *) ((Scode_pointerS) + 2))))<<2)))));
     if ((529 == (SvalS))) {
       push_exception_continuationB(0, 3);
       arg0K0 = 0;
-      goto L16678;}
+      goto L16679;}
     else {
       Scode_pointerS = ((Scode_pointerS) + 3);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}}
+      goto L18452;}}
   else {
-    arg0K0 = (*((long *) (((char *) (-3 + env_745X)))));
-    arg0K1 = (-1 + i_746X);
-    goto L23845;}}
- L20260: {
-  env_747X = arg0K0;
-  i_748X = arg0K1;
-  if ((0 == i_748X)) {
-    SvalS = (*((long *) ((((char *) (-3 + env_747X))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))))<<2)))));
+    arg0K0 = (*((long *) (((char *) (-3 + env_746X)))));
+    arg0K1 = (-1 + i_747X);
+    goto L23846;}}
+ L20261: {
+  env_748X = arg0K0;
+  i_749X = arg0K1;
+  if ((0 == i_749X)) {
+    SvalS = (*((long *) ((((char *) (-3 + env_748X))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)))))<<2)))));
     if ((529 == (SvalS))) {
       push_exception_continuationB(0, 5);
       arg0K0 = 0;
-      goto L16678;}
+      goto L16679;}
     else {
       Scode_pointerS = ((Scode_pointerS) + 5);
       arg1K0 = (Scode_pointerS);
-      goto L18451;}}
+      goto L18452;}}
   else {
-    arg0K0 = (*((long *) (((char *) (-3 + env_747X)))));
-    arg0K1 = (-1 + i_748X);
-    goto L20260;}}
- L20198: {
-  env_749X = arg0K0;
-  i_750X = arg0K1;
-  if ((0 == i_750X)) {
-    index_751X = ((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
-    value_752X = SvalS;
-    addr_753X = (((char *) (-3 + env_749X))) + (((index_751X)<<2));
-    S48_WRITE_BARRIER(env_749X, addr_753X, value_752X);
-    *((long *) addr_753X) = value_752X;
+    arg0K0 = (*((long *) (((char *) (-3 + env_748X)))));
+    arg0K1 = (-1 + i_749X);
+    goto L20261;}}
+ L20199: {
+  env_750X = arg0K0;
+  i_751X = arg0K1;
+  if ((0 == i_751X)) {
+    index_752X = ((((*((unsigned char *) ((Scode_pointerS) + 3))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 4)));
+    value_753X = SvalS;
+    addr_754X = (((char *) (-3 + env_750X))) + (((index_752X)<<2));
+    S48_WRITE_BARRIER(env_750X, addr_754X, value_753X);
+    *((long *) addr_754X) = value_753X;
     SvalS = 13;
     Scode_pointerS = ((Scode_pointerS) + 5);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    arg0K0 = (*((long *) (((char *) (-3 + env_749X)))));
-    arg0K1 = (-1 + i_750X);
-    goto L20198;}}
- L20977: {
-  space_754X = arg0K0;
-  v_755X = AVAILABLEp(space_754X);
-  if (v_755X) {
+    arg0K0 = (*((long *) (((char *) (-3 + env_750X)))));
+    arg0K1 = (-1 + i_751X);
+    goto L20199;}}
+ L20978: {
+  space_755X = arg0K0;
+  v_756X = AVAILABLEp(space_755X);
+  if (v_756X) {
     arg2K0 = 1;
     arg0K1 = 0;
-    goto L21051;}
+    goto L21052;}
   else {
-    collect_saving_temps(1, 1, &temp1_756X);
-    v_757X = AVAILABLEp(space_754X);
-    if (v_757X) {
+    collect_saving_temps(1, 1, &temp1_757X);
+    v_758X = AVAILABLEp(space_755X);
+    if (v_758X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L21051;}
+      goto L21052;}
     else {
       arg2K0 = 0;
       arg0K1 = 0;
-      goto L21051;}}}
- L20984: {
-  env_758X = arg0K0;
-  v_759X = AVAILABLEp(3);
-  if (v_759X) {
+      goto L21052;}}}
+ L20985: {
+  env_759X = arg0K0;
+  v_760X = AVAILABLEp(3);
+  if (v_760X) {
     arg2K0 = 1;
-    arg0K1 = env_758X;
-    goto L21009;}
+    arg0K1 = env_759X;
+    goto L21010;}
   else {
-    temp0_760X = collect_saving_temps(env_758X, 1, &temp1_761X);
-    v_762X = AVAILABLEp(3);
-    if (v_762X) {
+    temp0_761X = collect_saving_temps(env_759X, 1, &temp1_762X);
+    v_763X = AVAILABLEp(3);
+    if (v_763X) {
       arg2K0 = 1;
-      arg0K1 = temp0_760X;
-      goto L21009;}
+      arg0K1 = temp0_761X;
+      goto L21010;}
     else {
       arg2K0 = 0;
-      arg0K1 = temp0_760X;
-      goto L21009;}}}
- L20779: {
-  len_763X = ((total_count_393X)<<2);
-  addr_764X = ALLOCATE_SPACE(2, (4 + len_763X));
-  *((long *) addr_764X) = (10 + (((len_763X)<<8)));
-  new_env_765X = 3 + (((long) (addr_764X + 4)));
-  v_766X = *((unsigned char *) ((Scode_pointerS) + 1));
-  if ((0 == v_766X)) {
+      arg0K1 = temp0_761X;
+      goto L21010;}}}
+ L20780: {
+  len_764X = ((total_count_394X)<<2);
+  addr_765X = ALLOCATE_SPACE(2, (4 + len_764X));
+  *((long *) addr_765X) = (10 + (((len_764X)<<8)));
+  new_env_766X = 3 + (((long) (addr_765X + 4)));
+  v_767X = *((unsigned char *) ((Scode_pointerS) + 1));
+  if ((0 == v_767X)) {
     arg0K0 = 0;
-    goto L20793;}
+    goto L20794;}
   else {
-    value_767X = SvalS;
-    addr_768X = ((char *) (-3 + new_env_765X));
-    S48_WRITE_BARRIER(new_env_765X, addr_768X, value_767X);
-    *((long *) addr_768X) = value_767X;
+    value_768X = SvalS;
+    addr_769X = ((char *) (-3 + new_env_766X));
+    S48_WRITE_BARRIER(new_env_766X, addr_769X, value_768X);
+    *((long *) addr_769X) = value_768X;
     arg0K0 = 1;
-    goto L20793;}}
- L20705: {
-  okayP_769X = arg2K0;
-  key_770X = arg0K1;
-  if (okayP_769X) {
-    arg0K0 = key_770X;
-    goto L20693;}
+    goto L20794;}}
+ L20706: {
+  okayP_770X = arg2K0;
+  key_771X = arg0K1;
+  if (okayP_770X) {
+    arg0K0 = key_771X;
+    goto L20694;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_770X;
-    goto L20693;}}
- L19860: {
+    arg0K0 = key_771X;
+    goto L20694;}}
+ L19861: {
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L19895: {
+  goto L18452;}
+ L19896: {
   SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
-  *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_402X;
+  *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_403X;
   ScontS = (Sbottom_of_stackS);
-  goto L19860;}
- L19861: {
-  if ((1 == cont_402X)) {
+  goto L19861;}
+ L19862: {
+  if ((1 == cont_403X)) {
     if ((0 == (3 & (SvalS)))) {
       s48_Scallback_return_stack_blockS = 1;
       return ((((SvalS))>>2));}
     else {
-      goto L19876;}}
+      goto L19877;}}
   else {
-    goto L19876;}}
- L19221: {
-  okayP_771X = arg2K0;
-  key_772X = arg0K1;
-  if (okayP_771X) {
-    arg0K0 = key_772X;
-    goto L19176;}
+    goto L19877;}}
+ L19222: {
+  okayP_772X = arg2K0;
+  key_773X = arg0K1;
+  if (okayP_772X) {
+    arg0K0 = key_773X;
+    goto L19177;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_772X;
-    goto L19176;}}
- L19133: {
+    arg0K0 = key_773X;
+    goto L19177;}}
+ L19134: {
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
       check_events_return_tag = 0;
       goto check_events;
      check_events_return_0:
-      v_773X = check_events0_return_value;
-      if (v_773X) {
-        arg0K0 = stack_arg_count_403X;
-        goto L16907;}
+      v_774X = check_events0_return_value;
+      if (v_774X) {
+        arg0K0 = stack_arg_count_404X;
+        goto L16908;}
       else {
-        goto L19137;}}
+        goto L19138;}}
     else {
-      arg0K0 = stack_arg_count_403X;
-      goto L16907;}}
+      arg0K0 = stack_arg_count_404X;
+      goto L16908;}}
   else {
-    goto L19137;}}
- L16079: {
-  stack_arg_count_774X = arg0K0;
-  code_775X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS))))))))));
-  arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_775X))) + 1)));
+    goto L19138;}}
+ L16080: {
+  stack_arg_count_775X = arg0K0;
+  code_776X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS))))))))));
+  arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_776X))) + 1)));
   arg0K1 = 64;
-  goto L16093;}
- L17174: {
-  exception_776X = arg0K0;
-  stack_arg_count_777X = arg0K1;
-  list_args_778X = arg0K2;
-  list_arg_count_779X = arg0K3;
+  goto L16094;}
+ L17175: {
+  exception_777X = arg0K0;
+  stack_arg_count_778X = arg0K1;
+  list_args_779X = arg0K2;
+  list_arg_count_780X = arg0K3;
   if (((StemplateS) == (SvalS))) {
     if ((0 < (Slosing_opcodeS))) {
       ps_error("wrong number of arguments to exception handler", 1, (Slosing_opcodeS));
-      return v_780X;}
+      return v_781X;}
     else {
       ps_error("wrong number of arguments to interrupt handler", 1, (0 - (Slosing_opcodeS)));
-      return v_781X;}}
+      return v_782X;}}
   else {
-    merged_arg0K0 = list_args_778X;
-    merged_arg0K1 = list_arg_count_779X;
+    merged_arg0K0 = list_args_779X;
+    merged_arg0K1 = list_arg_count_780X;
     copy_listS_return_tag = 0;
     goto copy_listS;
    copy_listS_return_0:
-    v_782X = copy_listS0_return_value;
-    merged_arg0K0 = v_782X;
-    merged_arg0K1 = stack_arg_count_777X;
+    v_783X = copy_listS0_return_value;
+    merged_arg0K0 = v_783X;
+    merged_arg0K1 = stack_arg_count_778X;
     pop_args_GlistS_return_tag = 1;
     goto pop_args_GlistS;
    pop_args_GlistS_return_1:
-    args_783X = pop_args_GlistS0_return_value;
-    push_exception_continuationB(exception_776X, 0);
+    args_784X = pop_args_GlistS0_return_value;
+    push_exception_continuationB(exception_777X, 0);
     *((long *) (SstackS)) = (SvalS);
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = args_783X;
+    *((long *) (SstackS)) = args_784X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L17641: {
-  loc_784X = arg1K0;
-  arg_785X = arg1K1;
-  if ((top_of_args_414X < arg_785X)) {
-    *((long *) loc_784X) = (*((long *) arg_785X));
-    arg1K0 = (loc_784X + -4);
-    arg1K1 = (arg_785X + -4);
-    goto L17641;}
+    goto L16679;}}
+ L17642: {
+  loc_785X = arg1K0;
+  arg_786X = arg1K1;
+  if ((top_of_args_415X < arg_786X)) {
+    *((long *) loc_785X) = (*((long *) arg_786X));
+    arg1K0 = (loc_785X + -4);
+    arg1K1 = (arg_786X + -4);
+    goto L17642;}
   else {
-    SstackS = loc_784X;
-    obj_786X = SvalS;
-    if ((3 == (3 & obj_786X))) {
-      if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_786X))) + -4))))>>2))))) {
-        arg0K0 = nargs_413X;
-        goto L16079;}
+    SstackS = loc_785X;
+    obj_787X = SvalS;
+    if ((3 == (3 & obj_787X))) {
+      if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_787X))) + -4))))>>2))))) {
+        arg0K0 = nargs_414X;
+        goto L16080;}
       else {
         arg0K0 = 3;
-        arg0K1 = nargs_413X;
+        arg0K1 = nargs_414X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17174;}}
+        goto L17175;}}
     else {
       arg0K0 = 3;
-      arg0K1 = nargs_413X;
+      arg0K1 = nargs_414X;
       arg0K2 = 25;
       arg0K3 = 0;
-      goto L17174;}}}
- L17679: {
-  stack_arg_count_787X = arg0K0;
-  list_args_788X = arg0K1;
-  list_arg_count_789X = arg0K2;
-  if ((0 == list_arg_count_789X)) {
-    obj_790X = SvalS;
-    if ((3 == (3 & obj_790X))) {
-      if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_790X))) + -4))))>>2))))) {
-        arg0K0 = stack_arg_count_787X;
-        goto L16079;}
-      else {
-        arg0K0 = 3;
-        arg0K1 = stack_arg_count_787X;
-        arg0K2 = 25;
-        arg0K3 = 0;
-        goto L17174;}}
-    else {
-      arg0K0 = 3;
-      arg0K1 = stack_arg_count_787X;
-      arg0K2 = 25;
-      arg0K3 = 0;
-      goto L17174;}}
-  else {
+      goto L17175;}}}
+ L17680: {
+  stack_arg_count_788X = arg0K0;
+  list_args_789X = arg0K1;
+  list_arg_count_790X = arg0K2;
+  if ((0 == list_arg_count_790X)) {
     obj_791X = SvalS;
     if ((3 == (3 & obj_791X))) {
       if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_791X))) + -4))))>>2))))) {
-        code_792X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS))))))))));
-        total_arg_count_793X = stack_arg_count_787X + list_arg_count_789X;
-        arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_792X))) + 1)));
-        arg0K1 = 64;
-        goto L16370;}
+        arg0K0 = stack_arg_count_788X;
+        goto L16080;}
       else {
         arg0K0 = 3;
-        arg0K1 = stack_arg_count_787X;
-        arg0K2 = list_args_788X;
-        arg0K3 = list_arg_count_789X;
-        goto L17174;}}
+        arg0K1 = stack_arg_count_788X;
+        arg0K2 = 25;
+        arg0K3 = 0;
+        goto L17175;}}
     else {
       arg0K0 = 3;
-      arg0K1 = stack_arg_count_787X;
-      arg0K2 = list_args_788X;
-      arg0K3 = list_arg_count_789X;
-      goto L17174;}}}
- L11286: {
-  list_args_794X = arg0K0;
-  stack_nargs_795X = arg0K1;
-  merged_arg0K0 = list_args_794X;
+      arg0K1 = stack_arg_count_788X;
+      arg0K2 = 25;
+      arg0K3 = 0;
+      goto L17175;}}
+  else {
+    obj_792X = SvalS;
+    if ((3 == (3 & obj_792X))) {
+      if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_792X))) + -4))))>>2))))) {
+        code_793X = *((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + (SvalS))))))))));
+        total_arg_count_794X = stack_arg_count_788X + list_arg_count_790X;
+        arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_793X))) + 1)));
+        arg0K1 = 64;
+        goto L16371;}
+      else {
+        arg0K0 = 3;
+        arg0K1 = stack_arg_count_788X;
+        arg0K2 = list_args_789X;
+        arg0K3 = list_arg_count_790X;
+        goto L17175;}}
+    else {
+      arg0K0 = 3;
+      arg0K1 = stack_arg_count_788X;
+      arg0K2 = list_args_789X;
+      arg0K3 = list_arg_count_790X;
+      goto L17175;}}}
+ L11287: {
+  list_args_795X = arg0K0;
+  stack_nargs_796X = arg0K1;
+  merged_arg0K0 = list_args_795X;
   okay_argument_list_return_tag = 1;
   goto okay_argument_list;
  okay_argument_list_return_1:
-  okayP_796X = okay_argument_list0_return_value;
-  list_arg_count_797X = okay_argument_list1_return_value;
-  if (okayP_796X) {
-    SvalS = proc_421X;
-    arg0K0 = stack_nargs_795X;
-    arg0K1 = list_args_794X;
-    arg0K2 = list_arg_count_797X;
-    goto L17679;}
+  okayP_797X = okay_argument_list0_return_value;
+  list_arg_count_798X = okay_argument_list1_return_value;
+  if (okayP_797X) {
+    SvalS = proc_422X;
+    arg0K0 = stack_nargs_796X;
+    arg0K1 = list_args_795X;
+    arg0K2 = list_arg_count_798X;
+    goto L17680;}
   else {
-    *((long *) (SstackS)) = list_args_794X;
+    *((long *) (SstackS)) = list_args_795X;
     SstackS = ((SstackS) + -4);
     merged_arg0K0 = 25;
-    merged_arg0K1 = (1 + stack_nargs_795X);
+    merged_arg0K1 = (1 + stack_nargs_796X);
     pop_args_GlistS_return_tag = 2;
     goto pop_args_GlistS;
    pop_args_GlistS_return_2:
-    args_798X = pop_args_GlistS0_return_value;
+    args_799X = pop_args_GlistS0_return_value;
     SstackS = ((SstackS) + 4);
     push_exception_continuationB(5, 0);
-    *((long *) (SstackS)) = proc_421X;
+    *((long *) (SstackS)) = proc_422X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = args_798X;
+    *((long *) (SstackS)) = args_799X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L11327: {
-  list_799X = arg0K0;
-  follower_800X = arg0K1;
-  if ((25 == list_799X)) {
-    list_args_801X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + follower_800X))) + 4)))))));
-    addr_802X = (((char *) (-3 + follower_800X))) + 4;
-    S48_WRITE_BARRIER(follower_800X, addr_802X, list_args_801X);
-    *((long *) addr_802X) = list_args_801X;
-    arg0K0 = rest_list_422X;
-    arg0K1 = (-1 + stack_nargs_420X);
-    goto L11286;}
+    goto L16679;}}
+ L11328: {
+  list_800X = arg0K0;
+  follower_801X = arg0K1;
+  if ((25 == list_800X)) {
+    list_args_802X = *((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + follower_801X))) + 4)))))));
+    addr_803X = (((char *) (-3 + follower_801X))) + 4;
+    S48_WRITE_BARRIER(follower_801X, addr_803X, list_args_802X);
+    *((long *) addr_803X) = list_args_802X;
+    arg0K0 = rest_list_423X;
+    arg0K1 = (-1 + stack_nargs_421X);
+    goto L11287;}
   else {
-    arg0K0 = (*((long *) ((((char *) (-3 + list_799X))) + 4)));
-    arg0K1 = (*((long *) ((((char *) (-3 + follower_800X))) + 4)));
-    goto L11327;}}
- L17584: {
-  obj_803X = SvalS;
-  if ((3 == (3 & obj_803X))) {
-    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_803X))) + -4))))>>2))))) {
+    arg0K0 = (*((long *) ((((char *) (-3 + list_800X))) + 4)));
+    arg0K1 = (*((long *) ((((char *) (-3 + follower_801X))) + 4)));
+    goto L11328;}}
+ L17585: {
+  obj_804X = SvalS;
+  if ((3 == (3 & obj_804X))) {
+    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_804X))) + -4))))>>2))))) {
       arg0K0 = 0;
-      goto L16079;}
+      goto L16080;}
     else {
       arg0K0 = 3;
       arg0K1 = 0;
       arg0K2 = 25;
       arg0K3 = 0;
-      goto L17174;}}
+      goto L17175;}}
   else {
     arg0K0 = 3;
     arg0K1 = 0;
     arg0K2 = 25;
     arg0K3 = 0;
-    goto L17174;}}
- L17591: {
+    goto L17175;}}
+ L17592: {
   SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
-  *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_423X;
+  *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = cont_424X;
   ScontS = (Sbottom_of_stackS);
-  goto L17584;}
- L20440: {
-  stack_nargs_804X = arg0K0;
-  list_args_805X = arg0K1;
-  list_arg_count_806X = arg0K2;
-  if ((1 == stack_nargs_804X)) {
+  goto L17585;}
+ L20441: {
+  stack_nargs_805X = arg0K0;
+  list_args_806X = arg0K1;
+  list_arg_count_807X = arg0K2;
+  if ((1 == stack_nargs_805X)) {
     SstackS = ((SstackS) + 4);
     SvalS = (*((long *) (SstackS)));
     pop_continuationB_return_tag = 1;
     goto pop_continuationB;
    pop_continuationB_return_1:
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
     if (((ScontS) == (Sbottom_of_stackS))) {
       arg0K0 = (*((long *) (((char *) (-3 + (Sbottom_of_stackS))))));
-      goto L20451;}
+      goto L20452;}
     else {
       arg0K0 = (ScontS);
-      goto L20451;}}}
- L18957: {
-  okayP_807X = arg2K0;
-  key_808X = arg0K1;
-  if (okayP_807X) {
-    arg0K0 = key_808X;
-    goto L18945;}
+      goto L20452;}}}
+ L18958: {
+  okayP_808X = arg2K0;
+  key_809X = arg0K1;
+  if (okayP_808X) {
+    arg0K0 = key_809X;
+    goto L18946;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_808X;
-    goto L18945;}}
- L18830: {
-  tem_809X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
-  StemplateS = tem_809X;
-  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_809X)))))))) + 2);
+    arg0K0 = key_809X;
+    goto L18946;}}
+ L18831: {
+  tem_810X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
+  StemplateS = tem_810X;
+  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_810X)))))))) + 2);
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
       check_events_return_tag = 1;
       goto check_events;
      check_events_return_1:
-      v_810X = check_events0_return_value;
-      if (v_810X) {
-        goto L18839;}
+      v_811X = check_events0_return_value;
+      if (v_811X) {
+        goto L18840;}
       else {
-        goto L18842;}}
+        goto L18843;}}
     else {
-      goto L18839;}}
+      goto L18840;}}
   else {
-    goto L18842;}}
- L19013: {
-  okayP_811X = arg2K0;
-  key_812X = arg0K1;
-  if (okayP_811X) {
-    arg0K0 = key_812X;
-    goto L19000;}
+    goto L18843;}}
+ L19014: {
+  okayP_812X = arg2K0;
+  key_813X = arg0K1;
+  if (okayP_812X) {
+    arg0K0 = key_813X;
+    goto L19001;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_812X;
-    goto L19000;}}
- L18875: {
+    arg0K0 = key_813X;
+    goto L19001;}}
+ L18876: {
   push_exception_continuationB(5, 4);
   *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2)))));
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L18731: {
-  arg0K0 = (2 + (((max_442X)<<1)));
-  goto L18733;}
- L18733: {
-  offset_813X = arg0K0;
-  Scode_pointerS = ((Scode_pointerS) + offset_813X);
+  goto L16679;}
+ L18732: {
+  arg0K0 = (2 + (((max_443X)<<1)));
+  goto L18734;}
+ L18734: {
+  offset_814X = arg0K0;
+  Scode_pointerS = ((Scode_pointerS) + offset_814X);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L19763: {
+  goto L18452;}
+ L19764: {
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L18629: {
-  delta_814X = arg0K0;
-  Scode_pointerS = ((Scode_pointerS) + delta_814X);
-  arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L19654: {
+  goto L18452;}
+ L18630: {
   delta_815X = arg0K0;
   Scode_pointerS = ((Scode_pointerS) + delta_815X);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L38236: {
-  val_816X = arg0K0;
-  SvalS = val_816X;
-  Scode_pointerS = ((Scode_pointerS) + 1);
+  goto L18452;}
+ L19655: {
+  delta_816X = arg0K0;
+  Scode_pointerS = ((Scode_pointerS) + delta_816X);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L38248: {
+  goto L18452;}
+ L38237: {
   val_817X = arg0K0;
   SvalS = val_817X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L10634: {
-  if ((3 == (3 & x_456X))) {
-    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) {
+  goto L18452;}
+ L38249: {
+  val_818X = arg0K0;
+  SvalS = val_818X;
+  Scode_pointerS = ((Scode_pointerS) + 1);
+  arg1K0 = (Scode_pointerS);
+  goto L18452;}
+ L10635: {
+  if ((3 == (3 & x_457X))) {
+    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
       arg0K0 = 5;
-      goto L38248;}
+      goto L38249;}
     else {
-      goto L10640;}}
+      goto L10641;}}
   else {
-    goto L10640;}}
- L28412: {
+    goto L10641;}}
+ L28413: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28413: {
-  if ((3 == (3 & n_457X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_457X))) + -4))))>>2))))) {
+  goto L18452;}
+ L28414: {
+  if ((3 == (3 & n_458X))) {
+    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = n_457X;
+      *((long *) (SstackS)) = n_458X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
     else {
-      goto L28417;}}
+      goto L28418;}}
   else {
-    goto L28417;}}
- L28569: {
+    goto L28418;}}
+ L28570: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28544: {
-  if ((3 == (3 & n_458X))) {
-    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
-      goto L28569;}
-    else {
-      goto L28558;}}
-  else {
-    goto L28558;}}
- L28768: {
-  SvalS = 5;
-  Scode_pointerS = ((Scode_pointerS) + 1);
-  arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28743: {
+  goto L18452;}
+ L28545: {
   if ((3 == (3 & n_459X))) {
     if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
-      goto L28768;}
+      goto L28570;}
     else {
-      goto L28757;}}
+      goto L28559;}}
   else {
-    goto L28757;}}
- L28967: {
+    goto L28559;}}
+ L28769: {
   SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28942: {
+  goto L18452;}
+ L28744: {
   if ((3 == (3 & n_460X))) {
     if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
-      goto L28967;}
+      goto L28769;}
     else {
-      goto L28956;}}
+      goto L28758;}}
   else {
-    goto L28956;}}
- L6787: {
-  a_818X = arg0K0;
-  if ((b_470X < 0)) {
-    arg0K0 = (0 - b_470X);
-    goto L6791;}
-  else {
-    arg0K0 = b_470X;
-    goto L6791;}}
- L7068: {
-  a_819X = arg0K0;
-  if ((b_477X < 0)) {
-    arg0K0 = (0 - b_477X);
-    goto L7072;}
-  else {
-    arg0K0 = b_477X;
-    goto L7072;}}
- L31877: {
-  val_820X = arg0K0;
-  SvalS = val_820X;
+    goto L28758;}}
+ L28968: {
+  SvalS = 5;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L31955: {
+  goto L18452;}
+ L28943: {
+  if ((3 == (3 & n_461X))) {
+    if ((7 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+      goto L28968;}
+    else {
+      goto L28957;}}
+  else {
+    goto L28957;}}
+ L6788: {
+  a_819X = arg0K0;
+  if ((b_471X < 0)) {
+    arg0K0 = (0 - b_471X);
+    goto L6792;}
+  else {
+    arg0K0 = b_471X;
+    goto L6792;}}
+ L7069: {
+  a_820X = arg0K0;
+  if ((b_478X < 0)) {
+    arg0K0 = (0 - b_478X);
+    goto L7073;}
+  else {
+    arg0K0 = b_478X;
+    goto L7073;}}
+ L31878: {
   val_821X = arg0K0;
   SvalS = val_821X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L32033: {
+  goto L18452;}
+ L31956: {
   val_822X = arg0K0;
   SvalS = val_822X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L32111: {
+  goto L18452;}
+ L32034: {
   val_823X = arg0K0;
   SvalS = val_823X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L32189: {
+  goto L18452;}
+ L32112: {
   val_824X = arg0K0;
   SvalS = val_824X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L7245: {
-  a_825X = arg0K0;
-  if ((b_491X < 0)) {
-    arg0K0 = (0 - b_491X);
-    goto L7249;}
-  else {
-    arg0K0 = b_491X;
-    goto L7249;}}
- L25359: {
+  goto L18452;}
+ L32190: {
+  val_825X = arg0K0;
+  SvalS = val_825X;
+  Scode_pointerS = ((Scode_pointerS) + 1);
+  arg1K0 = (Scode_pointerS);
+  goto L18452;}
+ L7246: {
   a_826X = arg0K0;
-  n_827X = ((y_493X)>>2);
-  if ((n_827X < 0)) {
-    arg0K0 = (0 - n_827X);
-    goto L25361;}
+  if ((b_492X < 0)) {
+    arg0K0 = (0 - b_492X);
+    goto L7250;}
   else {
-    arg0K0 = n_827X;
-    goto L25361;}}
- L38505: {
+    arg0K0 = b_492X;
+    goto L7250;}}
+ L25360: {
+  a_827X = arg0K0;
+  n_828X = ((y_494X)>>2);
+  if ((n_828X < 0)) {
+    arg0K0 = (0 - n_828X);
+    goto L25362;}
+  else {
+    arg0K0 = n_828X;
+    goto L25362;}}
+ L38506: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = x_508X;
+  *((long *) (SstackS)) = x_509X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L25645: {
-  r_828X = arg0K0;
-  if ((536870911 < r_828X)) {
+  goto L16679;}
+ L25646: {
+  r_829X = arg0K0;
+  if ((536870911 < r_829X)) {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = n_509X;
+    *((long *) (SstackS)) = n_510X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 1;
-    goto L16678;}
+    goto L16679;}
   else {
-    SvalS = (((r_828X)<<2));
+    SvalS = (((r_829X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L25924: {
-  SvalS = (((result_530X)<<2));
+    goto L18452;}}
+ L25925: {
+  SvalS = (((result_531X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L38593: {
-  val_829X = arg0K0;
-  SvalS = val_829X;
-  Scode_pointerS = ((Scode_pointerS) + 1);
-  arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28187: {
+  goto L18452;}
+ L38594: {
   val_830X = arg0K0;
   SvalS = val_830X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28160: {
-  push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_533X;
-  SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (SvalS);
-  SstackS = ((SstackS) + -4);
-  arg0K0 = 2;
-  goto L16678;}
- L28097: {
+  goto L18452;}
+ L28188: {
   val_831X = arg0K0;
   SvalS = val_831X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28070: {
+  goto L18452;}
+ L28161: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_535X;
+  *((long *) (SstackS)) = arg2_534X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L32881: {
-  push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = (((x_537X)<<2));
-  SstackS = ((SstackS) + -4);
-  arg0K0 = 1;
-  goto L16678;}
- L38622: {
+  goto L16679;}
+ L28098: {
   val_832X = arg0K0;
   SvalS = val_832X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L38636: {
-  value_833X = arg0K0;
-  SvalS = value_833X;
+  goto L18452;}
+ L28071: {
+  push_exception_continuationB(5, 1);
+  *((long *) (SstackS)) = arg2_536X;
+  SstackS = ((SstackS) + -4);
+  *((long *) (SstackS)) = (SvalS);
+  SstackS = ((SstackS) + -4);
+  arg0K0 = 2;
+  goto L16679;}
+ L32882: {
+  push_exception_continuationB(5, 1);
+  *((long *) (SstackS)) = (((x_538X)<<2));
+  SstackS = ((SstackS) + -4);
+  arg0K0 = 1;
+  goto L16679;}
+ L38623: {
+  val_833X = arg0K0;
+  SvalS = val_833X;
+  Scode_pointerS = ((Scode_pointerS) + 1);
+  arg1K0 = (Scode_pointerS);
+  goto L18452;}
+ L38637: {
+  value_834X = arg0K0;
+  SvalS = value_834X;
   Scode_pointerS = ((Scode_pointerS) + 2);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L21242: {
+  goto L18452;}
+ L21243: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = stob_541X;
+  *((long *) (SstackS)) = stob_542X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_542X)<<2));
+  *((long *) (SstackS)) = (((type_543X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L21314: {
-  type_834X = *((unsigned char *) ((Scode_pointerS) + 2));
-  len_835X = ((len_543X)<<2);
-  addr_836X = ALLOCATE_SPACE(type_834X, (4 + len_835X));
-  *((long *) addr_836X) = (2 + (((((((len_835X)<<6)) + type_834X))<<2)));
-  new_837X = 3 + (((long) (addr_836X + 4)));
-  if ((len_543X < 1)) {
-    goto L21349;}
+  goto L16679;}
+ L21315: {
+  type_835X = *((unsigned char *) ((Scode_pointerS) + 2));
+  len_836X = ((len_544X)<<2);
+  addr_837X = ALLOCATE_SPACE(type_835X, (4 + len_836X));
+  *((long *) addr_837X) = (2 + (((((((len_836X)<<6)) + type_835X))<<2)));
+  new_838X = 3 + (((long) (addr_837X + 4)));
+  if ((len_544X < 1)) {
+    goto L21350;}
   else {
-    *((long *) ((((char *) (-3 + new_837X))) + (-4 + (((len_543X)<<2))))) = (SvalS);
-    arg0K0 = (-2 + len_543X);
-    goto L21333;}}
- L21496: {
-  type_838X = *((unsigned char *) ((Scode_pointerS) + 1));
-  len_839X = ((len_548X)<<2);
-  addr_840X = ALLOCATE_SPACE(type_838X, (4 + len_839X));
-  *((long *) addr_840X) = (2 + (((((((len_839X)<<6)) + type_838X))<<2)));
-  new_841X = 3 + (((long) (addr_840X + 4)));
+    *((long *) ((((char *) (-3 + new_838X))) + (-4 + (((len_544X)<<2))))) = (SvalS);
+    arg0K0 = (-2 + len_544X);
+    goto L21334;}}
+ L21497: {
+  type_839X = *((unsigned char *) ((Scode_pointerS) + 1));
+  len_840X = ((len_549X)<<2);
+  addr_841X = ALLOCATE_SPACE(type_839X, (4 + len_840X));
+  *((long *) addr_841X) = (2 + (((((((len_840X)<<6)) + type_839X))<<2)));
+  new_842X = 3 + (((long) (addr_841X + 4)));
   SstackS = ((SstackS) + 4);
-  stack_nargs_842X = (((*((long *) (SstackS))))>>2);
+  stack_nargs_843X = (((*((long *) (SstackS))))>>2);
   SstackS = ((SstackS) + 4);
-  rest_list_843X = *((long *) (SstackS));
-  arg0K0 = (-1 + stack_nargs_842X);
-  goto L21518;}
- L21706: {
+  rest_list_844X = *((long *) (SstackS));
+  arg0K0 = (-1 + stack_nargs_843X);
+  goto L21519;}
+ L21707: {
   push_exception_continuationB(5, 3);
-  *((long *) (SstackS)) = stob_553X;
+  *((long *) (SstackS)) = stob_554X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_555X)<<2));
+  *((long *) (SstackS)) = (((type_556X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((offset_554X)<<2));
+  *((long *) (SstackS)) = (((offset_555X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L21809: {
+  goto L16679;}
+ L21810: {
   push_exception_continuationB(5, 3);
-  *((long *) (SstackS)) = stob_556X;
+  *((long *) (SstackS)) = stob_557X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_559X)<<2));
+  *((long *) (SstackS)) = (((type_560X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((offset_558X)<<2));
+  *((long *) (SstackS)) = (((offset_559X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = value_557X;
+  *((long *) (SstackS)) = value_558X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L21994: {
+  goto L16679;}
+ L21995: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = (((type_563X)<<2));
+  *((long *) (SstackS)) = (((type_564X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((len_564X)<<2));
+  *((long *) (SstackS)) = (((len_565X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = init_562X;
+  *((long *) (SstackS)) = init_563X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L22012: {
-  okayP_844X = arg2K0;
-  init_845X = arg0K1;
-  if (okayP_844X) {
-    len_846X = ((len_564X)<<2);
-    addr_847X = ALLOCATE_SPACE(type_563X, (4 + len_846X));
-    *((long *) addr_847X) = (2 + (((((((len_846X)<<6)) + type_563X))<<2)));
-    value_848X = 3 + (((long) (addr_847X + 4)));
-    arg0K0 = (-1 + len_564X);
-    goto L22041;}
+  goto L16679;}
+ L22013: {
+  okayP_845X = arg2K0;
+  init_846X = arg0K1;
+  if (okayP_845X) {
+    len_847X = ((len_565X)<<2);
+    addr_848X = ALLOCATE_SPACE(type_564X, (4 + len_847X));
+    *((long *) addr_848X) = (2 + (((((((len_847X)<<6)) + type_564X))<<2)));
+    value_849X = 3 + (((long) (addr_848X + 4)));
+    arg0K0 = (-1 + len_565X);
+    goto L22042;}
   else {
     push_exception_continuationB(8, 2);
-    *((long *) (SstackS)) = (((type_563X)<<2));
+    *((long *) (SstackS)) = (((type_564X)<<2));
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = (((len_564X)<<2));
+    *((long *) (SstackS)) = (((len_565X)<<2));
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = init_845X;
+    *((long *) (SstackS)) = init_846X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 3;
-    goto L16678;}}
- L22290: {
+    goto L16679;}}
+ L22291: {
   push_exception_continuationB(7, 2);
-  *((long *) (SstackS)) = stob_570X;
+  *((long *) (SstackS)) = stob_571X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_572X)<<2));
+  *((long *) (SstackS)) = (((type_573X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = index_571X;
+  *((long *) (SstackS)) = index_572X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L22267: {
+  goto L16679;}
+ L22268: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = stob_570X;
+  *((long *) (SstackS)) = stob_571X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_572X)<<2));
+  *((long *) (SstackS)) = (((type_573X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = index_571X;
+  *((long *) (SstackS)) = index_572X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L22530: {
+  goto L16679;}
+ L22531: {
   push_exception_continuationB(7, 2);
-  *((long *) (SstackS)) = stob_576X;
+  *((long *) (SstackS)) = stob_577X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_578X)<<2));
+  *((long *) (SstackS)) = (((type_579X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_575X;
+  *((long *) (SstackS)) = arg2_576X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = value_577X;
+  *((long *) (SstackS)) = value_578X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L22505: {
+  goto L16679;}
+ L22506: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = stob_576X;
+  *((long *) (SstackS)) = stob_577X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((type_578X)<<2));
+  *((long *) (SstackS)) = (((type_579X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_575X;
+  *((long *) (SstackS)) = arg2_576X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = value_577X;
+  *((long *) (SstackS)) = value_578X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L26095: {
+  goto L16679;}
+ L26096: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = (((len_583X)<<2));
+  *((long *) (SstackS)) = (((len_584X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((init_584X)<<2));
+  *((long *) (SstackS)) = (((init_585X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L26187: {
-  addr_849X = ALLOCATE_SPACE(17, (4 + len_583X));
-  *((long *) addr_849X) = (70 + (((len_583X)<<8)));
-  vector_850X = 3 + (((long) (addr_849X + 4)));
-  arg0K0 = (-1 + len_583X);
-  goto L26136;}
- L36448: {
+  goto L16679;}
+ L26188: {
+  addr_850X = ALLOCATE_SPACE(17, (4 + len_584X));
+  *((long *) addr_850X) = (70 + (((len_584X)<<8)));
+  vector_851X = 3 + (((long) (addr_850X + 4)));
+  arg0K0 = (-1 + len_584X);
+  goto L26137;}
+ L36449: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L32987: {
+  goto L16679;}
+ L32988: {
   push_exception_continuationB(7, 1);
-  *((long *) (SstackS)) = arg2_590X;
+  *((long *) (SstackS)) = arg2_591X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_591X)<<2));
+  *((long *) (SstackS)) = (((index_592X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L36024: {
+  goto L16679;}
+ L36025: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_590X;
+  *((long *) (SstackS)) = arg2_591X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L29935: {
+  goto L16679;}
+ L29936: {
   push_exception_continuationB(7, 1);
-  *((long *) (SstackS)) = arg3_594X;
+  *((long *) (SstackS)) = arg3_595X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_595X)<<2));
+  *((long *) (SstackS)) = (((index_596X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((Kchar_596X)<<2));
+  *((long *) (SstackS)) = (((Kchar_597X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L29914: {
+  goto L16679;}
+ L29915: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg3_594X;
+  *((long *) (SstackS)) = arg3_595X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_595X)<<2));
+  *((long *) (SstackS)) = (((index_596X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((Kchar_596X)<<2));
+  *((long *) (SstackS)) = (((Kchar_597X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L34436: {
+  goto L16679;}
+ L34437: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg3_594X;
+  *((long *) (SstackS)) = arg3_595X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_593X;
+  *((long *) (SstackS)) = arg2_594X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L26329: {
+  goto L16679;}
+ L26330: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = (((len_599X)<<2));
+  *((long *) (SstackS)) = (((len_600X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (9 + ((((init_600X))<<8)));
+  *((long *) (SstackS)) = (9 + ((((init_601X))<<8)));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L26421: {
-  len_851X = 1 + len_599X;
-  addr_852X = ALLOCATE_SPACE(16, (4 + len_851X));
-  *((long *) addr_852X) = (66 + (((len_851X)<<8)));
-  string_853X = 3 + (((long) (addr_852X + 4)));
-  *((unsigned char *) ((((char *) (-3 + string_853X))) + len_599X)) = 0;
-  arg0K0 = (-1 + len_599X);
-  goto L26370;}
- L33068: {
+  goto L16679;}
+ L26422: {
+  len_852X = 1 + len_600X;
+  addr_853X = ALLOCATE_SPACE(16, (4 + len_852X));
+  *((long *) addr_853X) = (66 + (((len_852X)<<8)));
+  string_854X = 3 + (((long) (addr_853X + 4)));
+  *((unsigned char *) ((((char *) (-3 + string_854X))) + len_600X)) = 0;
+  arg0K0 = (-1 + len_600X);
+  goto L26371;}
+ L33069: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_598X;
+  *((long *) (SstackS)) = arg2_599X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L36498: {
+  goto L16679;}
+ L36499: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L33131: {
+  goto L16679;}
+ L33132: {
   push_exception_continuationB(7, 1);
-  *((long *) (SstackS)) = arg2_606X;
+  *((long *) (SstackS)) = arg2_607X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_607X)<<2));
+  *((long *) (SstackS)) = (((index_608X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L36120: {
+  goto L16679;}
+ L36121: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_606X;
+  *((long *) (SstackS)) = arg2_607X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L30090: {
+  goto L16679;}
+ L30091: {
   push_exception_continuationB(7, 1);
-  *((long *) (SstackS)) = arg3_610X;
+  *((long *) (SstackS)) = arg3_611X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_611X)<<2));
+  *((long *) (SstackS)) = (((index_612X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (9 + ((((Kchar_612X))<<8)));
+  *((long *) (SstackS)) = (9 + ((((Kchar_613X))<<8)));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L30069: {
+  goto L16679;}
+ L30070: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg3_610X;
+  *((long *) (SstackS)) = arg3_611X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_611X)<<2));
+  *((long *) (SstackS)) = (((index_612X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (9 + ((((Kchar_612X))<<8)));
+  *((long *) (SstackS)) = (9 + ((((Kchar_613X))<<8)));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L34562: {
+  goto L16679;}
+ L34563: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg3_610X;
+  *((long *) (SstackS)) = arg3_611X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_609X;
+  *((long *) (SstackS)) = arg2_610X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L24499: {
-  obj_854X = SvalS;
-  if ((3 == (3 & obj_854X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_854X))) + -4))))>>2))))) {
-      table_855X = Sthe_symbol_tableS;
-      string_856X = SvalS;
-      n_857X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_856X))) + -4))))>>8));
+  goto L16679;}
+ L24500: {
+  obj_855X = SvalS;
+  if ((3 == (3 & obj_855X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_855X))) + -4))))>>2))))) {
+      table_856X = Sthe_symbol_tableS;
+      string_857X = SvalS;
+      n_858X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + string_857X))) + -4))))>>8));
       arg0K0 = 0;
       arg0K1 = 0;
-      goto L13346;}
+      goto L13347;}
     else {
-      goto L24509;}}
+      goto L24510;}}
   else {
-    goto L24509;}}
- L34109: {
-  val_858X = arg0K0;
-  SvalS = val_858X;
+    goto L24510;}}
+ L34110: {
+  val_859X = arg0K0;
+  SvalS = val_859X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L34090: {
+  goto L18452;}
+ L34091: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L29677: {
+  goto L16679;}
+ L29678: {
   if ((1 == (SvalS))) {
-    addr_859X = (((char *) (-3 + arg2_620X))) + 4;
-    S48_WRITE_BARRIER(arg2_620X, addr_859X, 273);
-    *((long *) addr_859X) = 273;
-    goto L29683;}
+    addr_860X = (((char *) (-3 + arg2_621X))) + 4;
+    S48_WRITE_BARRIER(arg2_621X, addr_860X, 273);
+    *((long *) addr_860X) = 273;
+    goto L29684;}
   else {
-    if ((17 == (255 & (*((long *) ((((char *) (-3 + arg2_620X))) + 4)))))) {
-      addr_860X = (((char *) (-3 + arg2_620X))) + 4;
-      S48_WRITE_BARRIER(arg2_620X, addr_860X, 529);
-      *((long *) addr_860X) = 529;
-      goto L29683;}
+    if ((17 == (255 & (*((long *) ((((char *) (-3 + arg2_621X))) + 4)))))) {
+      addr_861X = (((char *) (-3 + arg2_621X))) + 4;
+      S48_WRITE_BARRIER(arg2_621X, addr_861X, 529);
+      *((long *) addr_861X) = 529;
+      goto L29684;}
     else {
-      goto L29683;}}}
- L29684: {
+      goto L29684;}}}
+ L29685: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_620X;
+  *((long *) (SstackS)) = arg2_621X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L38708: {
-  val_861X = arg0K0;
-  SvalS = val_861X;
+  goto L16679;}
+ L38709: {
+  val_862X = arg0K0;
+  SvalS = val_862X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L33213: {
-  SvalS = x_623X;
+  goto L18452;}
+ L33214: {
+  SvalS = x_624X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L33264: {
-  okayP_862X = arg2K0;
-  key_863X = arg0K1;
-  if (okayP_862X) {
-    arg0K0 = key_863X;
-    goto L33230;}
+  goto L18452;}
+ L33265: {
+  okayP_863X = arg2K0;
+  key_864X = arg0K1;
+  if (okayP_863X) {
+    arg0K0 = key_864X;
+    goto L33231;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_863X;
-    goto L33230;}}
- L34680: {
-  okayP_864X = arg2K0;
-  key_865X = arg0K1;
-  if (okayP_864X) {
-    arg0K0 = key_865X;
-    goto L34662;}
+    arg0K0 = key_864X;
+    goto L33231;}}
+ L34681: {
+  okayP_865X = arg2K0;
+  key_866X = arg0K1;
+  if (okayP_865X) {
+    arg0K0 = key_866X;
+    goto L34663;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_865X;
-    goto L34662;}}
- L37552: {
-  okayP_866X = arg2K0;
-  key_867X = arg0K1;
-  if (okayP_866X) {
-    arg0K0 = key_867X;
-    goto L37482;}
+    arg0K0 = key_866X;
+    goto L34663;}}
+ L37553: {
+  okayP_867X = arg2K0;
+  key_868X = arg0K1;
+  if (okayP_867X) {
+    arg0K0 = key_868X;
+    goto L37483;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_867X;
-    goto L37482;}}
- L37812: {
-  okayP_868X = arg2K0;
-  key_869X = arg0K1;
-  if (okayP_868X) {
-    arg0K0 = key_869X;
-    goto L37754;}
+    arg0K0 = key_868X;
+    goto L37483;}}
+ L37813: {
+  okayP_869X = arg2K0;
+  key_870X = arg0K1;
+  if (okayP_869X) {
+    arg0K0 = key_870X;
+    goto L37755;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_869X;
-    goto L37754;}}
- L34165: {
-  okayP_870X = arg2K0;
-  key_871X = arg0K1;
-  if (okayP_870X) {
-    arg0K0 = key_871X;
-    goto L34147;}
+    arg0K0 = key_870X;
+    goto L37755;}}
+ L34166: {
+  okayP_871X = arg2K0;
+  key_872X = arg0K1;
+  if (okayP_871X) {
+    arg0K0 = key_872X;
+    goto L34148;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_871X;
-    goto L34147;}}
- L33335: {
-  val_872X = arg0K0;
-  SvalS = val_872X;
+    arg0K0 = key_872X;
+    goto L34148;}}
+ L33336: {
+  val_873X = arg0K0;
+  SvalS = val_873X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L8185: {
-  arg0K0 = (*((long *) ((((char *) (-3 + channel_640X))) + 16)));
-  goto L33335;}
- L8191: {
-  ch_873X = arg0K0;
-  prev_874X = arg0K1;
-  if ((1 == ch_873X)) {
-    addr_875X = (((char *) (-3 + channel_640X))) + 16;
-    S48_WRITE_BARRIER(channel_640X, addr_875X, 1);
-    *((long *) addr_875X) = 1;
-    n_876X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_640X))) + 8))))>>2)));
-    arg0K0 = (((n_876X)<<2));
-    goto L33335;}
+  goto L18452;}
+ L8186: {
+  arg0K0 = (*((long *) ((((char *) (-3 + channel_641X))) + 16)));
+  goto L33336;}
+ L8192: {
+  ch_874X = arg0K0;
+  prev_875X = arg0K1;
+  if ((1 == ch_874X)) {
+    addr_876X = (((char *) (-3 + channel_641X))) + 16;
+    S48_WRITE_BARRIER(channel_641X, addr_876X, 1);
+    *((long *) addr_876X) = 1;
+    n_877X = ps_abort_fd_op(((((*((long *) ((((char *) (-3 + channel_641X))) + 8))))>>2)));
+    arg0K0 = (((n_877X)<<2));
+    goto L33336;}
   else {
-    if ((ch_873X == channel_640X)) {
-      y_877X = Spending_channels_tailS;
-      if ((ch_873X == y_877X)) {
-        Spending_channels_tailS = prev_874X;
-        goto L8215;}
+    if ((ch_874X == channel_641X)) {
+      y_878X = Spending_channels_tailS;
+      if ((ch_874X == y_878X)) {
+        Spending_channels_tailS = prev_875X;
+        goto L8216;}
       else {
-        goto L8215;}}
+        goto L8216;}}
     else {
-      arg0K0 = (*((long *) ((((char *) (-3 + ch_873X))) + 12)));
-      arg0K1 = ch_873X;
-      goto L8191;}}}
- L33318: {
+      arg0K0 = (*((long *) ((((char *) (-3 + ch_874X))) + 12)));
+      arg0K1 = ch_874X;
+      goto L8192;}}}
+ L33319: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L14790: {
+  goto L16679;}
+ L14791: {
   arg0K0 = (-1 + (Snumber_of_channelsS));
   arg0K1 = 25;
-  goto L14797;}
- L34781: {
-  okayP_878X = arg2K0;
-  key_879X = arg0K1;
-  if (okayP_878X) {
-    arg0K0 = key_879X;
-    goto L34735;}
+  goto L14798;}
+ L34782: {
+  okayP_879X = arg2K0;
+  key_880X = arg0K1;
+  if (okayP_879X) {
+    arg0K0 = key_880X;
+    goto L34736;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_879X;
-    goto L34735;}}
- L35613: {
-  i_880X = arg0K0;
-  h_881X = arg0K1;
-  if ((i_880X < n_658X)) {
-    arg0K0 = (1 + i_880X);
-    arg0K1 = (h_881X + (((*((unsigned char *) ((((char *) (-3 + x_657X))) + i_880X))))));
-    goto L35613;}
+    arg0K0 = key_880X;
+    goto L34736;}}
+ L35614: {
+  i_881X = arg0K0;
+  h_882X = arg0K1;
+  if ((i_881X < n_659X)) {
+    arg0K0 = (1 + i_881X);
+    arg0K1 = (h_882X + (((*((unsigned char *) ((((char *) (-3 + x_658X))) + i_881X))))));
+    goto L35614;}
   else {
-    SvalS = (((h_881X)<<2));
+    SvalS = (((h_882X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L35590: {
+    goto L18452;}}
+ L35591: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L38776: {
+  goto L16679;}
+ L38777: {
   SstackS = ((SstackS) + 4);
-  stob_882X = *((long *) (SstackS));
-  proc_883X = SvalS;
-  if ((3 == (3 & stob_882X))) {
-    if ((3 == (3 & proc_883X))) {
-      if ((3 == (31 & ((((*((long *) ((((char *) (-3 + proc_883X))) + -4))))>>2))))) {
-        addr_884X = ALLOCATE_SPACE(0, 12);
-        *((long *) addr_884X) = 2050;
-        x_885X = 3 + (((long) (addr_884X + 4)));
-        *((long *) (((char *) (-3 + x_885X)))) = stob_882X;
-        *((long *) ((((char *) (-3 + x_885X))) + 4)) = proc_883X;
-        b_886X = Sfinalizer_alistS;
-        addr_887X = ALLOCATE_SPACE(0, 12);
-        *((long *) addr_887X) = 2050;
-        x_888X = 3 + (((long) (addr_887X + 4)));
-        *((long *) (((char *) (-3 + x_888X)))) = x_885X;
-        *((long *) ((((char *) (-3 + x_888X))) + 4)) = b_886X;
-        Sfinalizer_alistS = x_888X;
+  stob_883X = *((long *) (SstackS));
+  proc_884X = SvalS;
+  if ((3 == (3 & stob_883X))) {
+    if ((3 == (3 & proc_884X))) {
+      if ((3 == (31 & ((((*((long *) ((((char *) (-3 + proc_884X))) + -4))))>>2))))) {
+        addr_885X = ALLOCATE_SPACE(0, 12);
+        *((long *) addr_885X) = 2050;
+        x_886X = 3 + (((long) (addr_885X + 4)));
+        *((long *) (((char *) (-3 + x_886X)))) = stob_883X;
+        *((long *) ((((char *) (-3 + x_886X))) + 4)) = proc_884X;
+        b_887X = Sfinalizer_alistS;
+        addr_888X = ALLOCATE_SPACE(0, 12);
+        *((long *) addr_888X) = 2050;
+        x_889X = 3 + (((long) (addr_888X + 4)));
+        *((long *) (((char *) (-3 + x_889X)))) = x_886X;
+        *((long *) ((((char *) (-3 + x_889X))) + 4)) = b_887X;
+        Sfinalizer_alistS = x_889X;
         SvalS = 13;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
-        goto L30696;}}
+        goto L30697;}}
     else {
-      goto L30696;}}
+      goto L30697;}}
   else {
-    goto L30696;}}
- L33426: {
-  firstP_889X = arg2K0;
-  vector_890X = s48_find_all(type_668X);
-  if ((1 == vector_890X)) {
-    if (firstP_889X) {
-      collect_saving_temps(0, 0, &v_891X);
+    goto L30697;}}
+ L33427: {
+  firstP_890X = arg2K0;
+  vector_891X = s48_find_all(type_669X);
+  if ((1 == vector_891X)) {
+    if (firstP_890X) {
+      collect_saving_temps(0, 0, &v_892X);
       arg2K0 = 0;
-      goto L33426;}
+      goto L33427;}
     else {
       push_exception_continuationB(8, 1);
-      *((long *) (SstackS)) = (((type_668X)<<2));
+      *((long *) (SstackS)) = (((type_669X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}}
+      goto L16679;}}
   else {
-    SvalS = vector_890X;
+    SvalS = vector_891X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L38826: {
-  firstP_892X = arg2K0;
-  type_893X = arg0K1;
-  vector_894X = s48_find_all_records(type_893X);
-  if ((1 == vector_894X)) {
-    if (firstP_892X) {
-      value_895X = collect_saving_temps(type_893X, 0, &v_896X);
+    goto L18452;}}
+ L38827: {
+  firstP_893X = arg2K0;
+  type_894X = arg0K1;
+  vector_895X = s48_find_all_records(type_894X);
+  if ((1 == vector_895X)) {
+    if (firstP_893X) {
+      value_896X = collect_saving_temps(type_894X, 0, &v_897X);
       arg2K0 = 0;
-      arg0K1 = value_895X;
-      goto L38826;}
+      arg0K1 = value_896X;
+      goto L38827;}
     else {
       push_exception_continuationB(8, 1);
-      *((long *) (SstackS)) = type_893X;
+      *((long *) (SstackS)) = type_894X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}}
+      goto L16679;}}
   else {
-    SvalS = vector_894X;
+    SvalS = vector_895X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L20583: {
+    goto L18452;}}
+ L20584: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L19507: {
+  goto L16679;}
+ L19508: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L38867: {
-  SvalS = (((old_677X)<<2));
+  goto L16679;}
+ L38868: {
+  SvalS = (((old_678X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L18465: {
+  goto L18452;}
+ L18466: {
   SstackS = ((SstackS) + 4);
-  pc_897X = *((long *) (SstackS));
+  pc_898X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  tem_898X = *((long *) (SstackS));
-  StemplateS = tem_898X;
-  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_898X)))))))) + (((pc_897X)>>2)));
+  tem_899X = *((long *) (SstackS));
+  StemplateS = tem_899X;
+  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_899X)))))))) + (((pc_898X)>>2)));
   SstackS = ((SstackS) + 4);
   SvalS = (*((long *) (SstackS)));
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L37372: {
-  x_899X = s48_schedule_alarm_interrupt((((p_680X)>>2)));
-  SvalS = (((x_899X)<<2));
+  goto L18452;}
+ L37373: {
+  x_900X = s48_schedule_alarm_interrupt((((p_681X)>>2)));
+  SvalS = (((x_900X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L34309: {
+  goto L18452;}
+ L34310: {
   if ((1 == (SvalS))) {
     arg2K0 = 0;
-    goto L34313;}
+    goto L34314;}
   else {
     arg2K0 = 1;
-    goto L34313;}}
- L34314: {
+    goto L34314;}}
+ L34315: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_681X;
+  *((long *) (SstackS)) = arg2_682X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L22802: {
-  rest_list_900X = arg0K0;
-  if ((25 == rest_list_900X)) {
-    proc_901X = *((long *) ((SstackS) + (((nargs_683X)<<2))));
-    name_902X = *((long *) ((SstackS) + (-4 + (((nargs_683X)<<2)))));
-    args_903X = (SstackS) + 4;
-    *((long *) (SstackS)) = (10 + (((nargs_683X)<<10)));
+  goto L16679;}
+ L22803: {
+  rest_list_901X = arg0K0;
+  if ((25 == rest_list_901X)) {
+    proc_902X = *((long *) ((SstackS) + (((nargs_684X)<<2))));
+    name_903X = *((long *) ((SstackS) + (-4 + (((nargs_684X)<<2)))));
+    args_904X = (SstackS) + 4;
+    *((long *) (SstackS)) = (10 + (((nargs_684X)<<10)));
     SstackS = ((SstackS) + -4);
-    if ((3 == (3 & name_902X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_902X))) + -4))))>>2))))) {
-        if ((3 == (3 & proc_901X))) {
-          if ((17 == (31 & ((((*((long *) ((((char *) (-3 + proc_901X))) + -4))))>>2))))) {
-            if ((4 == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + proc_901X))) + -4))))>>8)))) {
-              result_904X = s48_external_call(proc_901X, name_902X, (-2 + nargs_683X), args_903X);
+    if ((3 == (3 & name_903X))) {
+      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + name_903X))) + -4))))>>2))))) {
+        if ((3 == (3 & proc_902X))) {
+          if ((17 == (31 & ((((*((long *) ((((char *) (-3 + proc_902X))) + -4))))>>2))))) {
+            if ((4 == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + proc_902X))) + -4))))>>8)))) {
+              result_905X = s48_external_call(proc_902X, name_903X, (-2 + nargs_684X), args_904X);
               if ((Sexternal_exceptionPS)) {
                 Sexternal_exceptionPS = 0;
                 arg0K0 = (Sexternal_exception_nargsS);
-                goto L16678;}
+                goto L16679;}
               else {
-                SvalS = result_904X;
+                SvalS = result_905X;
                 Scode_pointerS = ((Scode_pointerS) + 1);
                 arg1K0 = (Scode_pointerS);
-                goto L18451;}}
+                goto L18452;}}
             else {
-              goto L22862;}}
+              goto L22863;}}
           else {
-            goto L22862;}}
+            goto L22863;}}
         else {
-          goto L22862;}}
+          goto L22863;}}
       else {
-        goto L22862;}}
+        goto L22863;}}
     else {
-      goto L22862;}}
+      goto L22863;}}
   else {
-    *((long *) (SstackS)) = (*((long *) (((char *) (-3 + rest_list_900X)))));
+    *((long *) (SstackS)) = (*((long *) (((char *) (-3 + rest_list_901X)))));
     SstackS = ((SstackS) + -4);
-    arg0K0 = (*((long *) ((((char *) (-3 + rest_list_900X))) + 4)));
-    goto L22802;}}
- L33535: {
-  okayP_905X = arg2K0;
-  key_906X = arg0K1;
-  if (okayP_905X) {
-    arg0K0 = key_906X;
-    goto L33501;}
+    arg0K0 = (*((long *) ((((char *) (-3 + rest_list_901X))) + 4)));
+    goto L22803;}}
+ L33536: {
+  okayP_906X = arg2K0;
+  key_907X = arg0K1;
+  if (okayP_906X) {
+    arg0K0 = key_907X;
+    goto L33502;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_906X;
-    goto L33501;}}
- L23926: {
+    arg0K0 = key_907X;
+    goto L33502;}}
+ L23927: {
   if ((1 == (SvalS))) {
     arg0K0 = (Sexported_bindingsS);
-    goto L23959;}
+    goto L23960;}
   else {
     arg0K0 = (Simported_bindingsS);
-    goto L23959;}}
- L23931: {
+    goto L23960;}}
+ L23932: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_689X;
+  *((long *) (SstackS)) = arg2_690X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L35524: {
-  option_907X = arg0K0;
-  seconds_908X = arg0K1;
-  mseconds_909X = arg0K2;
-  if ((536869 < seconds_908X)) {
+  goto L16679;}
+ L35525: {
+  option_908X = arg0K0;
+  seconds_909X = arg0K1;
+  mseconds_910X = arg0K2;
+  if ((536869 < seconds_909X)) {
     push_exception_continuationB(6, 1);
-    *((long *) (SstackS)) = (((option_907X)<<2));
+    *((long *) (SstackS)) = (((option_908X)<<2));
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = (((seconds_908X)<<2));
+    *((long *) (SstackS)) = (((seconds_909X)<<2));
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = (((mseconds_909X)<<2));
+    *((long *) (SstackS)) = (((mseconds_910X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 3;
-    goto L16678;}
+    goto L16679;}
   else {
-    SvalS = (((((1000 * seconds_908X) + mseconds_909X))<<2));
+    SvalS = (((((1000 * seconds_909X) + mseconds_910X))<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L38927: {
-  s48_Scallback_return_stack_blockS = arg2_703X;
-  return x_704X;}
- L27863: {
-  val_910X = arg0K0;
-  SvalS = val_910X;
+    goto L18452;}}
+ L38928: {
+  s48_Scallback_return_stack_blockS = arg2_704X;
+  return x_705X;}
+ L27864: {
+  val_911X = arg0K0;
+  SvalS = val_911X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L27830: {
+  goto L18452;}
+ L27831: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_705X;
+  *((long *) (SstackS)) = arg2_706X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L33744: {
+  goto L16679;}
+ L33745: {
   SstackS = ((SstackS) + 4);
-  arg2_911X = *((long *) (SstackS));
+  arg2_912X = *((long *) (SstackS));
   if ((0 == (3 & (SvalS)))) {
-    n_912X = (((SvalS))>>2);
-    if ((3 == (3 & arg2_911X))) {
-      if ((0 == (31 & ((((*((long *) ((((char *) (-3 + arg2_911X))) + -4))))>>2))))) {
-        goto L27390;}
+    n_913X = (((SvalS))>>2);
+    if ((3 == (3 & arg2_912X))) {
+      if ((0 == (31 & ((((*((long *) ((((char *) (-3 + arg2_912X))) + -4))))>>2))))) {
+        goto L27391;}
       else {
-        goto L27342;}}
+        goto L27343;}}
     else {
-      goto L27342;}}
+      goto L27343;}}
   else {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_911X;
+    *((long *) (SstackS)) = arg2_912X;
     SstackS = ((SstackS) + -4);
     *((long *) (SstackS)) = (SvalS);
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L29332: {
-  list_913X = arg0K0;
-  slow_914X = arg0K1;
-  move_slowP_915X = arg2K2;
-  if ((25 == list_913X)) {
+    goto L16679;}}
+ L29333: {
+  list_914X = arg0K0;
+  slow_915X = arg0K1;
+  move_slowP_916X = arg2K2;
+  if ((25 == list_914X)) {
     SvalS = 1;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    if ((3 == (3 & list_913X))) {
-      if ((0 == (31 & ((((*((long *) ((((char *) (-3 + list_913X))) + -4))))>>2))))) {
-        head_916X = *((long *) (((char *) (-3 + list_913X))));
-        if ((3 == (3 & head_916X))) {
-          if ((0 == (31 & ((((*((long *) ((((char *) (-3 + head_916X))) + -4))))>>2))))) {
-            if (((*((long *) (((char *) (-3 + head_916X))))) == thing_713X)) {
-              SvalS = head_916X;
+    if ((3 == (3 & list_914X))) {
+      if ((0 == (31 & ((((*((long *) ((((char *) (-3 + list_914X))) + -4))))>>2))))) {
+        head_917X = *((long *) (((char *) (-3 + list_914X))));
+        if ((3 == (3 & head_917X))) {
+          if ((0 == (31 & ((((*((long *) ((((char *) (-3 + head_917X))) + -4))))>>2))))) {
+            if (((*((long *) (((char *) (-3 + head_917X))))) == thing_714X)) {
+              SvalS = head_917X;
               Scode_pointerS = ((Scode_pointerS) + 1);
               arg1K0 = (Scode_pointerS);
-              goto L18451;}
+              goto L18452;}
             else {
-              list_917X = *((long *) ((((char *) (-3 + list_913X))) + 4));
-              if ((list_917X == slow_914X)) {
+              list_918X = *((long *) ((((char *) (-3 + list_914X))) + 4));
+              if ((list_918X == slow_915X)) {
                 push_exception_continuationB(5, 1);
-                *((long *) (SstackS)) = thing_713X;
+                *((long *) (SstackS)) = thing_714X;
                 SstackS = ((SstackS) + -4);
-                *((long *) (SstackS)) = list_714X;
+                *((long *) (SstackS)) = list_715X;
                 SstackS = ((SstackS) + -4);
                 arg0K0 = 2;
-                goto L16678;}
+                goto L16679;}
               else {
-                if (move_slowP_915X) {
-                  arg0K0 = list_917X;
-                  arg0K1 = (*((long *) ((((char *) (-3 + slow_914X))) + 4)));
+                if (move_slowP_916X) {
+                  arg0K0 = list_918X;
+                  arg0K1 = (*((long *) ((((char *) (-3 + slow_915X))) + 4)));
                   arg2K2 = 0;
-                  goto L29332;}
+                  goto L29333;}
                 else {
-                  arg0K0 = list_917X;
-                  arg0K1 = slow_914X;
+                  arg0K0 = list_918X;
+                  arg0K1 = slow_915X;
                   arg2K2 = 1;
-                  goto L29332;}}}}
+                  goto L29333;}}}}
           else {
             push_exception_continuationB(5, 1);
-            *((long *) (SstackS)) = thing_713X;
+            *((long *) (SstackS)) = thing_714X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = list_714X;
+            *((long *) (SstackS)) = list_715X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}}
+            goto L16679;}}
         else {
           push_exception_continuationB(5, 1);
-          *((long *) (SstackS)) = thing_713X;
+          *((long *) (SstackS)) = thing_714X;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = list_714X;
+          *((long *) (SstackS)) = list_715X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}}
+          goto L16679;}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = thing_713X;
+        *((long *) (SstackS)) = thing_714X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = list_714X;
+        *((long *) (SstackS)) = list_715X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
     else {
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = thing_713X;
+      *((long *) (SstackS)) = thing_714X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = list_714X;
+      *((long *) (SstackS)) = list_715X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}}}
- L27536: {
+      goto L16679;}}}
+ L27537: {
   push_exception_continuationB(7, 1);
-  *((long *) (SstackS)) = arg3_716X;
+  *((long *) (SstackS)) = arg3_717X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_715X;
+  *((long *) (SstackS)) = arg2_716X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_717X)<<2));
+  *((long *) (SstackS)) = (((index_718X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L27556: {
+  goto L16679;}
+ L27557: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg3_716X;
+  *((long *) (SstackS)) = arg3_717X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_715X;
+  *((long *) (SstackS)) = arg2_716X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_717X)<<2));
+  *((long *) (SstackS)) = (((index_718X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L30837: {
+  goto L16679;}
+ L30838: {
   push_exception_continuationB(7, 1);
-  *((long *) (SstackS)) = arg4_721X;
+  *((long *) (SstackS)) = arg4_722X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg3_720X;
+  *((long *) (SstackS)) = arg3_721X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_722X)<<2));
+  *((long *) (SstackS)) = (((index_723X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = value_723X;
+  *((long *) (SstackS)) = value_724X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L30859: {
+  goto L16679;}
+ L30860: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg4_721X;
+  *((long *) (SstackS)) = arg4_722X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg3_720X;
+  *((long *) (SstackS)) = arg3_721X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((index_722X)<<2));
+  *((long *) (SstackS)) = (((index_723X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = value_723X;
+  *((long *) (SstackS)) = value_724X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L31088: {
-  if ((3 == (3 & arg5_729X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) {
-      goto L31101;}
+  goto L16679;}
+ L31089: {
+  if ((3 == (3 & arg5_730X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+      goto L31102;}
     else {
-      goto L31096;}}
+      goto L31097;}}
   else {
-    goto L31096;}}
- L31083: {
-  if ((3 == (3 & arg5_729X))) {
-    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) {
-      goto L31088;}
+    goto L31097;}}
+ L31084: {
+  if ((3 == (3 & arg5_730X))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+      goto L31089;}
     else {
-      goto L31155;}}
+      goto L31156;}}
   else {
-    goto L31155;}}
- L23058: {
-  port_918X = arg0K0;
-  if ((3 == (3 & port_918X))) {
-    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_918X))) + -4))))>>2))))) {
-      if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_918X))) + 4))))>>2))))) {
-        goto L23118;}
+    goto L31156;}}
+ L23059: {
+  port_919X = arg0K0;
+  if ((3 == (3 & port_919X))) {
+    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_919X))) + -4))))>>2))))) {
+      if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_919X))) + 4))))>>2))))) {
+        goto L23119;}
       else {
-        p_919X = *((long *) ((((char *) (-3 + port_918X))) + 24));
-        p_920X = *((long *) ((((char *) (-3 + port_918X))) + 28));
-        b_921X = *((long *) ((((char *) (-3 + port_918X))) + 20));
-        i_922X = ((p_919X)>>2);
-        x_923X = *((long *) ((((char *) (-3 + port_918X))) + 12));
-        if ((5 == x_923X)) {
-          goto L23098;}
+        p_920X = *((long *) ((((char *) (-3 + port_919X))) + 24));
+        p_921X = *((long *) ((((char *) (-3 + port_919X))) + 28));
+        b_922X = *((long *) ((((char *) (-3 + port_919X))) + 20));
+        i_923X = ((p_920X)>>2);
+        x_924X = *((long *) ((((char *) (-3 + port_919X))) + 12));
+        if ((5 == x_924X)) {
+          goto L23099;}
         else {
-          if ((i_922X == (((p_920X)>>2)))) {
-            goto L23098;}
+          if ((i_923X == (((p_921X)>>2)))) {
+            goto L23099;}
           else {
-            val_924X = 4 + (((i_922X)<<2));
-            addr_925X = (((char *) (-3 + port_918X))) + 24;
-            S48_WRITE_BARRIER(port_918X, addr_925X, val_924X);
-            *((long *) addr_925X) = val_924X;
-            SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_921X))) + i_922X))))))<<8)));
+            val_925X = 4 + (((i_923X)<<2));
+            addr_926X = (((char *) (-3 + port_919X))) + 24;
+            S48_WRITE_BARRIER(port_919X, addr_926X, val_925X);
+            *((long *) addr_926X) = val_925X;
+            SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_922X))) + i_923X))))))<<8)));
             Scode_pointerS = ((Scode_pointerS) + 2);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}}}
+            goto L18452;}}}}
     else {
-      goto L23118;}}
+      goto L23119;}}
   else {
-    goto L23118;}}
- L23278: {
-  port_926X = arg0K0;
-  if ((3 == (3 & port_926X))) {
-    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_926X))) + -4))))>>2))))) {
-      if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_926X))) + 4))))>>2))))) {
-        goto L23338;}
+    goto L23119;}}
+ L23279: {
+  port_927X = arg0K0;
+  if ((3 == (3 & port_927X))) {
+    if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_927X))) + -4))))>>2))))) {
+      if ((0 == (4 & ((((*((long *) ((((char *) (-3 + port_927X))) + 4))))>>2))))) {
+        goto L23339;}
       else {
-        p_927X = *((long *) ((((char *) (-3 + port_926X))) + 24));
-        p_928X = *((long *) ((((char *) (-3 + port_926X))) + 28));
-        b_929X = *((long *) ((((char *) (-3 + port_926X))) + 20));
-        i_930X = ((p_927X)>>2);
-        x_931X = *((long *) ((((char *) (-3 + port_926X))) + 12));
-        if ((5 == x_931X)) {
-          goto L23318;}
+        p_928X = *((long *) ((((char *) (-3 + port_927X))) + 24));
+        p_929X = *((long *) ((((char *) (-3 + port_927X))) + 28));
+        b_930X = *((long *) ((((char *) (-3 + port_927X))) + 20));
+        i_931X = ((p_928X)>>2);
+        x_932X = *((long *) ((((char *) (-3 + port_927X))) + 12));
+        if ((5 == x_932X)) {
+          goto L23319;}
         else {
-          if ((i_930X == (((p_928X)>>2)))) {
-            goto L23318;}
+          if ((i_931X == (((p_929X)>>2)))) {
+            goto L23319;}
           else {
-            SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_929X))) + i_930X))))))<<8)));
+            SvalS = (9 + ((((((*((unsigned char *) ((((char *) (-3 + b_930X))) + i_931X))))))<<8)));
             Scode_pointerS = ((Scode_pointerS) + 2);
             arg1K0 = (Scode_pointerS);
-            goto L18451;}}}}
+            goto L18452;}}}}
     else {
-      goto L23338;}}
+      goto L23339;}}
   else {
-    goto L23338;}}
- L23491: {
-  Kchar_932X = arg0K0;
-  port_933X = arg0K1;
-  if ((9 == (255 & Kchar_932X))) {
-    if ((3 == (3 & port_933X))) {
-      if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_933X))) + -4))))>>2))))) {
-        if ((0 == (8 & ((((*((long *) ((((char *) (-3 + port_933X))) + 4))))>>2))))) {
-          goto L23552;}
+    goto L23339;}}
+ L23492: {
+  Kchar_933X = arg0K0;
+  port_934X = arg0K1;
+  if ((9 == (255 & Kchar_933X))) {
+    if ((3 == (3 & port_934X))) {
+      if ((6 == (31 & ((((*((long *) ((((char *) (-3 + port_934X))) + -4))))>>2))))) {
+        if ((0 == (8 & ((((*((long *) ((((char *) (-3 + port_934X))) + 4))))>>2))))) {
+          goto L23553;}
         else {
-          p_934X = *((long *) ((((char *) (-3 + port_933X))) + 24));
-          b_935X = *((long *) ((((char *) (-3 + port_933X))) + 20));
-          i_936X = ((p_934X)>>2);
-          x_937X = *((long *) ((((char *) (-3 + port_933X))) + 12));
-          if ((5 == x_937X)) {
-            goto L23534;}
+          p_935X = *((long *) ((((char *) (-3 + port_934X))) + 24));
+          b_936X = *((long *) ((((char *) (-3 + port_934X))) + 20));
+          i_937X = ((p_935X)>>2);
+          x_938X = *((long *) ((((char *) (-3 + port_934X))) + 12));
+          if ((5 == x_938X)) {
+            goto L23535;}
           else {
-            if ((i_936X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + b_935X))) + -4))))>>8)))) {
-              goto L23534;}
+            if ((i_937X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + b_936X))) + -4))))>>8)))) {
+              goto L23535;}
             else {
-              val_938X = 4 + (((i_936X)<<2));
-              addr_939X = (((char *) (-3 + port_933X))) + 24;
-              S48_WRITE_BARRIER(port_933X, addr_939X, val_938X);
-              *((long *) addr_939X) = val_938X;
-              *((unsigned char *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + port_933X))) + 20)))))) + i_936X)) = (((((Kchar_932X)>>8))));
+              val_939X = 4 + (((i_937X)<<2));
+              addr_940X = (((char *) (-3 + port_934X))) + 24;
+              S48_WRITE_BARRIER(port_934X, addr_940X, val_939X);
+              *((long *) addr_940X) = val_939X;
+              *((unsigned char *) ((((char *) (-3 + (*((long *) ((((char *) (-3 + port_934X))) + 20)))))) + i_937X)) = (((((Kchar_933X)>>8))));
               SvalS = 13;
               Scode_pointerS = ((Scode_pointerS) + 2);
               arg1K0 = (Scode_pointerS);
-              goto L18451;}}}}
+              goto L18452;}}}}
       else {
-        goto L23552;}}
+        goto L23553;}}
     else {
-      goto L23552;}}
+      goto L23553;}}
   else {
-    goto L23552;}}
- L29585: {
-  stuff_940X = arg0K0;
-  if ((3 == (3 & stuff_940X))) {
-    if ((0 == (31 & ((((*((long *) ((((char *) (-3 + stuff_940X))) + -4))))>>2))))) {
-      thing_941X = *((long *) (((char *) (-3 + stuff_940X))));
-      if ((0 == (3 & thing_941X))) {
-        ps_write_integer((((thing_941X)>>2)), out_741X);
-        goto L29591;}
+    goto L23553;}}
+ L29586: {
+  stuff_941X = arg0K0;
+  if ((3 == (3 & stuff_941X))) {
+    if ((0 == (31 & ((((*((long *) ((((char *) (-3 + stuff_941X))) + -4))))>>2))))) {
+      thing_942X = *((long *) (((char *) (-3 + stuff_941X))));
+      if ((0 == (3 & thing_942X))) {
+        ps_write_integer((((thing_942X)>>2)), out_742X);
+        goto L29592;}
       else {
-        if ((9 == (255 & thing_941X))) {
-          ps_write_string("#\\", out_741X);
+        if ((9 == (255 & thing_942X))) {
+          ps_write_string("#\\", out_742X);
           { long ignoreXX;
-          PS_WRITE_CHAR(((((thing_941X)>>8))), out_741X, ignoreXX) }
-          goto L29591;}
+          PS_WRITE_CHAR(((((thing_942X)>>8))), out_742X, ignoreXX) }
+          goto L29592;}
         else {
-          if ((3 == (3 & thing_941X))) {
-            if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) {
-              if ((0 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>8))))>>2)))) {
-                type_942X = *((long *) (((char *) (-3 + thing_941X))));
-                if ((3 == (3 & type_942X))) {
-                  if ((8 == (31 & ((((*((long *) ((((char *) (-3 + type_942X))) + -4))))>>2))))) {
-                    if ((2 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + type_942X))) + -4))))>>8))))>>2)))) {
-                      obj_943X = *((long *) ((((char *) (-3 + type_942X))) + 8));
-                      if ((3 == (3 & obj_943X))) {
-                        if ((1 == (31 & ((((*((long *) ((((char *) (-3 + obj_943X))) + -4))))>>2))))) {
-                          ps_write_string("#{", out_741X);
-                          ps_write_string((((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_941X)))))))) + 8))))))))))))), out_741X);
+          if ((3 == (3 & thing_942X))) {
+            if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
+              if ((0 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>8))))>>2)))) {
+                type_943X = *((long *) (((char *) (-3 + thing_942X))));
+                if ((3 == (3 & type_943X))) {
+                  if ((8 == (31 & ((((*((long *) ((((char *) (-3 + type_943X))) + -4))))>>2))))) {
+                    if ((2 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + type_943X))) + -4))))>>8))))>>2)))) {
+                      obj_944X = *((long *) ((((char *) (-3 + type_943X))) + 8));
+                      if ((3 == (3 & obj_944X))) {
+                        if ((1 == (31 & ((((*((long *) ((((char *) (-3 + obj_944X))) + -4))))>>2))))) {
+                          ps_write_string("#{", out_742X);
+                          ps_write_string((((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + thing_942X)))))))) + 8))))))))))))), out_742X);
                           { long ignoreXX;
-                          PS_WRITE_CHAR(125, out_741X, ignoreXX) }
-                          goto L29591;}
+                          PS_WRITE_CHAR(125, out_742X, ignoreXX) }
+                          goto L29592;}
                         else {
-                          goto L11663;}}
+                          goto L11664;}}
                       else {
-                        goto L11663;}}
+                        goto L11664;}}
                     else {
-                      goto L11663;}}
+                      goto L11664;}}
                   else {
-                    goto L11663;}}
+                    goto L11664;}}
                 else {
-                  goto L11663;}}
+                  goto L11664;}}
               else {
-                goto L11663;}}
+                goto L11664;}}
             else {
-              goto L11663;}}
+              goto L11664;}}
           else {
-            goto L11663;}}}}
+            goto L11664;}}}}
     else {
-      goto L29576;}}
+      goto L29577;}}
   else {
-    goto L29576;}}
- L16737: {
-  SvalS = (*((long *) ((((char *) (-3 + (Sexception_handlersS)))) + (((opcode_743X)<<2)))));
-  obj_944X = SvalS;
-  if ((3 == (3 & obj_944X))) {
-    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_944X))) + -4))))>>2))))) {
-      goto L16754;}
+    goto L29577;}}
+ L16738: {
+  SvalS = (*((long *) ((((char *) (-3 + (Sexception_handlersS)))) + (((opcode_744X)<<2)))));
+  obj_945X = SvalS;
+  if ((3 == (3 & obj_945X))) {
+    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_945X))) + -4))))>>2))))) {
+      goto L16755;}
     else {
-      goto L16824;}}
+      goto L16825;}}
   else {
-    goto L16824;}}
- L16810: {
+    goto L16825;}}
+ L16811: {
   merged_arg3K0 = "exception-handlers is not a vector";
   loseD0_return_tag = 0;
   goto loseD0;
  loseD0_return_0:
-  goto L16737;}
- L21051: {
-  okayP_945X = arg2K0;
-  key_946X = arg0K1;
-  if (okayP_945X) {
-    arg0K0 = key_946X;
-    goto L20979;}
+  goto L16738;}
+ L21052: {
+  okayP_946X = arg2K0;
+  key_947X = arg0K1;
+  if (okayP_946X) {
+    arg0K0 = key_947X;
+    goto L20980;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_946X;
-    goto L20979;}}
- L21009: {
-  okayP_947X = arg2K0;
-  temp_948X = arg0K1;
-  if (okayP_947X) {
-    arg0K0 = temp_948X;
-    goto L20990;}
+    arg0K0 = key_947X;
+    goto L20980;}}
+ L21010: {
+  okayP_948X = arg2K0;
+  temp_949X = arg0K1;
+  if (okayP_948X) {
+    arg0K0 = temp_949X;
+    goto L20991;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = temp_948X;
-    goto L20990;}}
- L20793: {
-  start_i_949X = arg0K0;
-  arg0K0 = start_i_949X;
+    arg0K0 = temp_949X;
+    goto L20991;}}
+ L20794: {
+  start_i_950X = arg0K0;
+  arg0K0 = start_i_950X;
   arg0K1 = 2;
   arg0K2 = (SenvS);
-  goto L20801;}
- L20693: {
-  key_950X = arg0K0;
+  goto L20802;}
+ L20694: {
+  key_951X = arg0K0;
   if ((1 == (ScontS))) {
     arg0K0 = 1;
-    goto L20697;}
+    goto L20698;}
   else {
-    merged_arg0K0 = key_950X;
+    merged_arg0K0 = key_951X;
     merged_arg0K1 = 2;
     really_preserve_continuation_return_tag = 0;
     goto really_preserve_continuation;
    really_preserve_continuation_return_0:
-    v_951X = really_preserve_continuation0_return_value;
-    arg0K0 = v_951X;
-    goto L20697;}}
- L19876: {
+    v_952X = really_preserve_continuation0_return_value;
+    arg0K0 = v_952X;
+    goto L20698;}}
+ L19877: {
   SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
   *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = 1;
   ScontS = (Sbottom_of_stackS);
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = cont_402X;
+  *((long *) (SstackS)) = cont_403X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L19176: {
-  v_952X = arg0K0;
-  merged_arg0K0 = v_952X;
+  goto L16679;}
+ L19177: {
+  v_953X = arg0K0;
+  merged_arg0K0 = v_953X;
   copy_stack_into_heap_return_tag = 0;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_0:
   if (((SstackS) < (Sstack_limitS))) {
     ps_error("Couldn't get default procedure space (how can this happen?)", 0);
-    goto L19133;}
+    goto L19134;}
   else {
-    goto L19133;}}
- L16907: {
-  stack_arg_count_953X = arg0K0;
+    goto L19134;}}
+ L16908: {
+  stack_arg_count_954X = arg0K0;
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (StemplateS);
@@ -7355,1062 +7356,1062 @@ long s48_restart(long proc_345X, long nargs_346X)
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
   SstackS = ((SstackS) + -4);
-  tem_954X = Sinterrupt_templateS;
-  StemplateS = tem_954X;
-  Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_954X))))))));
-  push_continuationB((Scode_pointerS), (4 + stack_arg_count_953X));
-  n_955X = (Spending_interruptsS) & (Senabled_interruptsS);
+  tem_955X = Sinterrupt_templateS;
+  StemplateS = tem_955X;
+  Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_955X))))))));
+  push_continuationB((Scode_pointerS), (4 + stack_arg_count_954X));
+  n_956X = (Spending_interruptsS) & (Senabled_interruptsS);
   arg0K0 = 0;
   arg0K1 = 1;
-  goto L17012;}
- L19137: {
+  goto L17013;}
+ L19138: {
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L16093: {
-  protocol_956X = arg0K0;
-  stack_space_957X = arg0K1;
-  if ((68 == protocol_956X)) {
-    if ((stack_arg_count_774X < 3)) {
-      skip_958X = *((unsigned char *) ((((char *) (-3 + code_775X))) + (2 + stack_arg_count_774X)));
-      if ((0 == skip_958X)) {
-        arg0K0 = 4;
-        arg0K1 = stack_arg_count_774X;
-        arg0K2 = 25;
-        arg0K3 = 0;
-        goto L17174;}
-      else {
-        arg0K0 = skip_958X;
-        arg0K1 = stack_arg_count_774X;
-        goto L16097;}}
-    else {
-      skip_959X = *((unsigned char *) ((((char *) (-3 + code_775X))) + 5));
+  goto L18452;}
+ L16094: {
+  protocol_957X = arg0K0;
+  stack_space_958X = arg0K1;
+  if ((68 == protocol_957X)) {
+    if ((stack_arg_count_775X < 3)) {
+      skip_959X = *((unsigned char *) ((((char *) (-3 + code_776X))) + (2 + stack_arg_count_775X)));
       if ((0 == skip_959X)) {
         arg0K0 = 4;
-        arg0K1 = stack_arg_count_774X;
+        arg0K1 = stack_arg_count_775X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17174;}
+        goto L17175;}
       else {
         arg0K0 = skip_959X;
-        goto L16120;}}}
-  else {
-    if ((67 == protocol_956X)) {
-      if ((stack_arg_count_774X < (*((unsigned char *) ((((char *) (-3 + code_775X))) + 2))))) {
+        arg0K1 = stack_arg_count_775X;
+        goto L16098;}}
+    else {
+      skip_960X = *((unsigned char *) ((((char *) (-3 + code_776X))) + 5));
+      if ((0 == skip_960X)) {
         arg0K0 = 4;
-        arg0K1 = stack_arg_count_774X;
+        arg0K1 = stack_arg_count_775X;
         arg0K2 = 25;
         arg0K3 = 0;
-        goto L17174;}
+        goto L17175;}
+      else {
+        arg0K0 = skip_960X;
+        goto L16121;}}}
+  else {
+    if ((67 == protocol_957X)) {
+      if ((stack_arg_count_775X < (*((unsigned char *) ((((char *) (-3 + code_776X))) + 2))))) {
+        arg0K0 = 4;
+        arg0K1 = stack_arg_count_775X;
+        arg0K2 = 25;
+        arg0K3 = 0;
+        goto L17175;}
       else {
         arg0K0 = 3;
-        goto L16120;}}
+        goto L16121;}}
     else {
-      if ((65 == protocol_956X)) {
-        wants_stack_args_960X = ((((*((unsigned char *) ((((char *) (-3 + code_775X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_775X))) + 3)));
-        if ((stack_arg_count_774X < wants_stack_args_960X)) {
+      if ((65 == protocol_957X)) {
+        wants_stack_args_961X = ((((*((unsigned char *) ((((char *) (-3 + code_776X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_776X))) + 3)));
+        if ((stack_arg_count_775X < wants_stack_args_961X)) {
           arg0K0 = 4;
-          arg0K1 = stack_arg_count_774X;
+          arg0K1 = stack_arg_count_775X;
           arg0K2 = 25;
           arg0K3 = 0;
-          goto L17174;}
+          goto L17175;}
         else {
-          merged_arg0K0 = wants_stack_args_960X;
-          merged_arg0K1 = stack_arg_count_774X;
+          merged_arg0K0 = wants_stack_args_961X;
+          merged_arg0K1 = stack_arg_count_775X;
           merged_arg0K2 = 25;
           merged_arg0K3 = 0;
           rest_list_setup_return_tag = 0;
           goto rest_list_setup;
          rest_list_setup_return_0:
           arg0K0 = 4;
-          arg0K1 = (1 + wants_stack_args_960X);
-          goto L16097;}}
+          arg0K1 = (1 + wants_stack_args_961X);
+          goto L16098;}}
       else {
-        if ((63 < protocol_956X)) {
-          if ((64 == protocol_956X)) {
-            if (((((((*((unsigned char *) ((((char *) (-3 + code_775X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_775X))) + 3)))) == stack_arg_count_774X)) {
+        if ((63 < protocol_957X)) {
+          if ((64 == protocol_957X)) {
+            if (((((((*((unsigned char *) ((((char *) (-3 + code_776X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_776X))) + 3)))) == stack_arg_count_775X)) {
               arg0K0 = 4;
-              arg0K1 = stack_arg_count_774X;
-              goto L16097;}
+              arg0K1 = stack_arg_count_775X;
+              goto L16098;}
             else {
               arg0K0 = 4;
-              arg0K1 = stack_arg_count_774X;
+              arg0K1 = stack_arg_count_775X;
               arg0K2 = 25;
               arg0K3 = 0;
-              goto L17174;}}
+              goto L17175;}}
           else {
-            if ((66 == protocol_956X)) {
-              length_961X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_775X))) + -4))))>>8);
-              index_962X = -2 + length_961X;
-              arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_775X))) + (-3 + length_961X))));
-              arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_775X))) + index_962X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_775X))) + (1 + index_962X)))));
-              goto L16093;}
+            if ((66 == protocol_957X)) {
+              length_962X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_776X))) + -4))))>>8);
+              index_963X = -2 + length_962X;
+              arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_776X))) + (-3 + length_962X))));
+              arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_776X))) + index_963X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_776X))) + (1 + index_963X)))));
+              goto L16094;}
             else {
-              ps_error("unknown protocol", 1, protocol_956X);
+              ps_error("unknown protocol", 1, protocol_957X);
               arg0K0 = 4;
-              arg0K1 = stack_arg_count_774X;
+              arg0K1 = stack_arg_count_775X;
               arg0K2 = 25;
               arg0K3 = 0;
-              goto L17174;}}}
+              goto L17175;}}}
         else {
-          if ((protocol_956X == stack_arg_count_774X)) {
+          if ((protocol_957X == stack_arg_count_775X)) {
             arg0K0 = 2;
-            arg0K1 = stack_arg_count_774X;
-            goto L16097;}
+            arg0K1 = stack_arg_count_775X;
+            goto L16098;}
           else {
             arg0K0 = 4;
-            arg0K1 = stack_arg_count_774X;
+            arg0K1 = stack_arg_count_775X;
             arg0K2 = 25;
             arg0K3 = 0;
-            goto L17174;}}}}}}
- L16370: {
-  protocol_963X = arg0K0;
-  stack_space_964X = arg0K1;
-  if ((68 == protocol_963X)) {
-    if ((total_arg_count_793X < 3)) {
-      skip_965X = *((unsigned char *) ((((char *) (-3 + code_792X))) + (2 + total_arg_count_793X)));
-      if ((0 == skip_965X)) {
+            goto L17175;}}}}}}
+ L16371: {
+  protocol_964X = arg0K0;
+  stack_space_965X = arg0K1;
+  if ((68 == protocol_964X)) {
+    if ((total_arg_count_794X < 3)) {
+      skip_966X = *((unsigned char *) ((((char *) (-3 + code_793X))) + (2 + total_arg_count_794X)));
+      if ((0 == skip_966X)) {
         arg0K0 = 4;
-        arg0K1 = stack_arg_count_787X;
-        arg0K2 = list_args_788X;
-        arg0K3 = list_arg_count_789X;
-        goto L17174;}
+        arg0K1 = stack_arg_count_788X;
+        arg0K2 = list_args_789X;
+        arg0K3 = list_arg_count_790X;
+        goto L17175;}
       else {
-        merged_arg0K0 = list_args_788X;
-        merged_arg0K1 = list_arg_count_789X;
+        merged_arg0K0 = list_args_789X;
+        merged_arg0K1 = list_arg_count_790X;
         push_list_return_tag = 0;
         goto push_list;
        push_list_return_0:
-        arg0K0 = skip_965X;
-        arg0K1 = total_arg_count_793X;
-        goto L16374;}}
-    else {
-      skip_966X = *((unsigned char *) ((((char *) (-3 + code_792X))) + 5));
-      if ((0 == skip_966X)) {
-        arg0K0 = 4;
-        arg0K1 = stack_arg_count_787X;
-        arg0K2 = list_args_788X;
-        arg0K3 = list_arg_count_789X;
-        goto L17174;}
-      else {
         arg0K0 = skip_966X;
-        goto L16399;}}}
-  else {
-    if ((67 == protocol_963X)) {
-      if ((total_arg_count_793X < (*((unsigned char *) ((((char *) (-3 + code_792X))) + 2))))) {
+        arg0K1 = total_arg_count_794X;
+        goto L16375;}}
+    else {
+      skip_967X = *((unsigned char *) ((((char *) (-3 + code_793X))) + 5));
+      if ((0 == skip_967X)) {
         arg0K0 = 4;
-        arg0K1 = stack_arg_count_787X;
-        arg0K2 = list_args_788X;
-        arg0K3 = list_arg_count_789X;
-        goto L17174;}
+        arg0K1 = stack_arg_count_788X;
+        arg0K2 = list_args_789X;
+        arg0K3 = list_arg_count_790X;
+        goto L17175;}
+      else {
+        arg0K0 = skip_967X;
+        goto L16400;}}}
+  else {
+    if ((67 == protocol_964X)) {
+      if ((total_arg_count_794X < (*((unsigned char *) ((((char *) (-3 + code_793X))) + 2))))) {
+        arg0K0 = 4;
+        arg0K1 = stack_arg_count_788X;
+        arg0K2 = list_args_789X;
+        arg0K3 = list_arg_count_790X;
+        goto L17175;}
       else {
         arg0K0 = 3;
-        goto L16399;}}
+        goto L16400;}}
     else {
-      if ((63 < protocol_963X)) {
-        if ((65 == protocol_963X)) {
-          wants_stack_args_967X = ((((*((unsigned char *) ((((char *) (-3 + code_792X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_792X))) + 3)));
-          if ((total_arg_count_793X < wants_stack_args_967X)) {
+      if ((63 < protocol_964X)) {
+        if ((65 == protocol_964X)) {
+          wants_stack_args_968X = ((((*((unsigned char *) ((((char *) (-3 + code_793X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_793X))) + 3)));
+          if ((total_arg_count_794X < wants_stack_args_968X)) {
             arg0K0 = 4;
-            arg0K1 = stack_arg_count_787X;
-            arg0K2 = list_args_788X;
-            arg0K3 = list_arg_count_789X;
-            goto L17174;}
+            arg0K1 = stack_arg_count_788X;
+            arg0K2 = list_args_789X;
+            arg0K3 = list_arg_count_790X;
+            goto L17175;}
           else {
-            merged_arg0K0 = wants_stack_args_967X;
-            merged_arg0K1 = stack_arg_count_787X;
-            merged_arg0K2 = list_args_788X;
-            merged_arg0K3 = list_arg_count_789X;
+            merged_arg0K0 = wants_stack_args_968X;
+            merged_arg0K1 = stack_arg_count_788X;
+            merged_arg0K2 = list_args_789X;
+            merged_arg0K3 = list_arg_count_790X;
             rest_list_setup_return_tag = 1;
             goto rest_list_setup;
            rest_list_setup_return_1:
             arg0K0 = 4;
-            arg0K1 = (1 + wants_stack_args_967X);
-            goto L16374;}}
+            arg0K1 = (1 + wants_stack_args_968X);
+            goto L16375;}}
         else {
-          if ((64 == protocol_963X)) {
-            if (((((((*((unsigned char *) ((((char *) (-3 + code_792X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_792X))) + 3)))) == total_arg_count_793X)) {
-              merged_arg0K0 = list_args_788X;
-              merged_arg0K1 = list_arg_count_789X;
+          if ((64 == protocol_964X)) {
+            if (((((((*((unsigned char *) ((((char *) (-3 + code_793X))) + 2))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_793X))) + 3)))) == total_arg_count_794X)) {
+              merged_arg0K0 = list_args_789X;
+              merged_arg0K1 = list_arg_count_790X;
               push_list_return_tag = 1;
               goto push_list;
              push_list_return_1:
               arg0K0 = 4;
-              arg0K1 = total_arg_count_793X;
-              goto L16374;}
+              arg0K1 = total_arg_count_794X;
+              goto L16375;}
             else {
               arg0K0 = 4;
-              arg0K1 = stack_arg_count_787X;
-              arg0K2 = list_args_788X;
-              arg0K3 = list_arg_count_789X;
-              goto L17174;}}
+              arg0K1 = stack_arg_count_788X;
+              arg0K2 = list_args_789X;
+              arg0K3 = list_arg_count_790X;
+              goto L17175;}}
           else {
-            if ((66 == protocol_963X)) {
-              length_968X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_792X))) + -4))))>>8);
-              index_969X = -2 + length_968X;
-              arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_792X))) + (-3 + length_968X))));
-              arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_792X))) + index_969X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_792X))) + (1 + index_969X)))));
-              goto L16370;}
+            if ((66 == protocol_964X)) {
+              length_969X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + code_793X))) + -4))))>>8);
+              index_970X = -2 + length_969X;
+              arg0K0 = (*((unsigned char *) ((((char *) (-3 + code_793X))) + (-3 + length_969X))));
+              arg0K1 = (((((*((unsigned char *) ((((char *) (-3 + code_793X))) + index_970X))))<<8)) + (*((unsigned char *) ((((char *) (-3 + code_793X))) + (1 + index_970X)))));
+              goto L16371;}
             else {
-              ps_error("unknown protocol", 1, protocol_963X);
+              ps_error("unknown protocol", 1, protocol_964X);
               arg0K0 = 4;
-              arg0K1 = stack_arg_count_787X;
-              arg0K2 = list_args_788X;
-              arg0K3 = list_arg_count_789X;
-              goto L17174;}}}}
+              arg0K1 = stack_arg_count_788X;
+              arg0K2 = list_args_789X;
+              arg0K3 = list_arg_count_790X;
+              goto L17175;}}}}
       else {
-        if ((protocol_963X == total_arg_count_793X)) {
-          merged_arg0K0 = list_args_788X;
-          merged_arg0K1 = list_arg_count_789X;
+        if ((protocol_964X == total_arg_count_794X)) {
+          merged_arg0K0 = list_args_789X;
+          merged_arg0K1 = list_arg_count_790X;
           push_list_return_tag = 2;
           goto push_list;
          push_list_return_2:
           arg0K0 = 2;
-          arg0K1 = total_arg_count_793X;
-          goto L16374;}
+          arg0K1 = total_arg_count_794X;
+          goto L16375;}
         else {
           arg0K0 = 4;
-          arg0K1 = stack_arg_count_787X;
-          arg0K2 = list_args_788X;
-          arg0K3 = list_arg_count_789X;
-          goto L17174;}}}}}
- L20451: {
-  cont_970X = arg0K0;
-  if ((3 == (3 & cont_970X))) {
-    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_970X))) + -4))))>>2))))) {
-      next_op_971X = *((unsigned char *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + cont_970X))) + 8))))))))))) + ((((*((long *) ((((char *) (-3 + cont_970X))) + 4))))>>2))));
-      if ((34 == next_op_971X)) {
+          arg0K1 = stack_arg_count_788X;
+          arg0K2 = list_args_789X;
+          arg0K3 = list_arg_count_790X;
+          goto L17175;}}}}}
+ L20452: {
+  cont_971X = arg0K0;
+  if ((3 == (3 & cont_971X))) {
+    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_971X))) + -4))))>>2))))) {
+      next_op_972X = *((unsigned char *) ((((char *) (-3 + (*((long *) (((char *) (-3 + (*((long *) ((((char *) (-3 + cont_971X))) + 8))))))))))) + ((((*((long *) ((((char *) (-3 + cont_971X))) + 4))))>>2))));
+      if ((34 == next_op_972X)) {
         pop_continuationB_return_tag = 2;
         goto pop_continuationB;
        pop_continuationB_return_2:
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
-        if ((30 == next_op_971X)) {
-          next_972X = *((long *) (((char *) (-3 + (ScontS)))));
+        if ((30 == next_op_972X)) {
+          next_973X = *((long *) (((char *) (-3 + (ScontS)))));
           if (((ScontS) == (Sbottom_of_stackS))) {
-            *((long *) (((char *) (-3 + (ScontS))))) = (*((long *) (((char *) (-3 + next_972X)))));
-            goto L19295;}
+            *((long *) (((char *) (-3 + (ScontS))))) = (*((long *) (((char *) (-3 + next_973X)))));
+            goto L19296;}
           else {
-            ScontS = next_972X;
-            goto L19295;}}
+            ScontS = next_973X;
+            goto L19296;}}
         else {
-          merged_arg0K0 = list_args_805X;
-          merged_arg0K1 = stack_nargs_804X;
+          merged_arg0K0 = list_args_806X;
+          merged_arg0K1 = stack_nargs_805X;
           pop_args_GlistS_return_tag = 3;
           goto pop_args_GlistS;
          pop_args_GlistS_return_3:
-          args_973X = pop_args_GlistS0_return_value;
+          args_974X = pop_args_GlistS0_return_value;
           push_exception_continuationB(4, 0);
           *((long *) (SstackS)) = 1;
           SstackS = ((SstackS) + -4);
-          *((long *) (SstackS)) = args_973X;
+          *((long *) (SstackS)) = args_974X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}}}
+          goto L16679;}}}
     else {
-      goto L20457;}}
+      goto L20458;}}
   else {
-    goto L20457;}}
- L18945: {
-  v_974X = arg0K0;
-  merged_arg0K0 = v_974X;
+    goto L20458;}}
+ L18946: {
+  v_975X = arg0K0;
+  merged_arg0K0 = v_975X;
   copy_stack_into_heap_return_tag = 1;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_1:
   if (((SstackS) < (Sstack_limitS))) {
     ps_error("Couldn't get default procedure space (how can this happen?)", 0);
-    goto L18830;}
+    goto L18831;}
   else {
-    goto L18830;}}
- L18839: {
+    goto L18831;}}
+ L18840: {
   arg0K0 = (*((unsigned char *) ((Scode_pointerS) + 3)));
-  goto L16907;}
- L18842: {
+  goto L16908;}
+ L18843: {
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L19000: {
-  v_975X = arg0K0;
-  merged_arg0K0 = v_975X;
+  goto L18452;}
+ L19001: {
+  v_976X = arg0K0;
+  merged_arg0K0 = v_976X;
   copy_stack_into_heap_return_tag = 2;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_2:
-  if ((space_436X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L18830;}
+  if ((space_437X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
+    goto L18831;}
   else {
     ps_error("VM's stack is too small (how can this happen?)", 0);
-    goto L18830;}}
- L10640: {
-  if ((3 == (3 & x_456X))) {
-    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) {
+    goto L18831;}}
+ L10641: {
+  if ((3 == (3 & x_457X))) {
+    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
       arg0K0 = 5;
-      goto L38248;}
+      goto L38249;}
     else {
-      goto L10646;}}
+      goto L10647;}}
   else {
-    goto L10646;}}
- L28417: {
+    goto L10647;}}
+ L28418: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28558: {
-  if ((3 == (3 & n_458X))) {
-    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
-      goto L28569;}
-    else {
-      goto L28570;}}
-  else {
-    goto L28570;}}
- L28757: {
+  goto L18452;}
+ L28559: {
   if ((3 == (3 & n_459X))) {
     if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
-      goto L28768;}
+      goto L28570;}
     else {
-      goto L28769;}}
+      goto L28571;}}
   else {
-    goto L28769;}}
- L28956: {
+    goto L28571;}}
+ L28758: {
   if ((3 == (3 & n_460X))) {
     if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
-      goto L28967;}
+      goto L28769;}
     else {
-      goto L28968;}}
+      goto L28770;}}
   else {
-    goto L28968;}}
- L6791: {
-  b_976X = arg0K0;
-  lo_a_977X = 65535 & a_818X;
-  lo_b_978X = 65535 & b_976X;
-  hi_a_979X = 65535 & (((a_818X)>>16));
-  hi_b_980X = 65535 & (((b_976X)>>16));
-  lo_c_981X = SMALL_MULTIPLY(lo_a_977X, lo_b_978X);
-  v_982X = SMALL_MULTIPLY(lo_b_978X, hi_a_979X);
-  v_983X = SMALL_MULTIPLY(lo_a_977X, hi_b_980X);
-  mid_c_984X = v_983X + v_982X;
-  c_985X = lo_c_981X + (((mid_c_984X)<<16));
-  if ((0 < hi_a_979X)) {
-    if ((0 < hi_b_980X)) {
+    goto L28770;}}
+ L28957: {
+  if ((3 == (3 & n_461X))) {
+    if ((18 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+      goto L28968;}
+    else {
+      goto L28969;}}
+  else {
+    goto L28969;}}
+ L6792: {
+  b_977X = arg0K0;
+  lo_a_978X = 65535 & a_819X;
+  lo_b_979X = 65535 & b_977X;
+  hi_a_980X = 65535 & (((a_819X)>>16));
+  hi_b_981X = 65535 & (((b_977X)>>16));
+  lo_c_982X = SMALL_MULTIPLY(lo_a_978X, lo_b_979X);
+  v_983X = SMALL_MULTIPLY(lo_b_979X, hi_a_980X);
+  v_984X = SMALL_MULTIPLY(lo_a_978X, hi_b_981X);
+  mid_c_985X = v_984X + v_983X;
+  c_986X = lo_c_982X + (((mid_c_985X)<<16));
+  if ((0 < hi_a_980X)) {
+    if ((0 < hi_b_981X)) {
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_467X;
+      *((long *) (SstackS)) = arg2_468X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = x_468X;
+      *((long *) (SstackS)) = x_469X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
     else {
-      goto L6833;}}
+      goto L6834;}}
   else {
-    goto L6833;}}
- L7072: {
-  b_986X = arg0K0;
-  c_987X = a_819X / b_986X;
-  x_988X = 0 == (a_819X % b_986X);
-  if (x_988X) {
-    if ((a_476X < 0)) {
-      if ((b_477X < 0)) {
+    goto L6834;}}
+ L7073: {
+  b_987X = arg0K0;
+  c_988X = a_820X / b_987X;
+  x_989X = 0 == (a_820X % b_987X);
+  if (x_989X) {
+    if ((a_477X < 0)) {
+      if ((b_478X < 0)) {
+        goto L7128;}
+      else {
+        goto L7127;}}
+    else {
+      if ((b_478X < 0)) {
         goto L7127;}
       else {
-        goto L7126;}}
-    else {
-      if ((b_477X < 0)) {
-        goto L7126;}
-      else {
-        goto L7127;}}}
+        goto L7128;}}}
   else {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_474X;
+    *((long *) (SstackS)) = arg2_475X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = x_475X;
+    *((long *) (SstackS)) = x_476X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L7249: {
-  b_989X = arg0K0;
-  c_990X = a_825X / b_989X;
-  if ((a_490X < 0)) {
-    if ((b_491X < 0)) {
+    goto L16679;}}
+ L7250: {
+  b_990X = arg0K0;
+  c_991X = a_826X / b_990X;
+  if ((a_491X < 0)) {
+    if ((b_492X < 0)) {
+      goto L7296;}
+    else {
+      goto L7295;}}
+  else {
+    if ((b_492X < 0)) {
       goto L7295;}
     else {
-      goto L7294;}}
+      goto L7296;}}}
+ L25362: {
+  b_992X = arg0K0;
+  c_993X = a_827X % b_992X;
+  if ((a_495X < 0)) {
+    arg0K0 = (0 - c_993X);
+    goto L25366;}
   else {
-    if ((b_491X < 0)) {
-      goto L7294;}
-    else {
-      goto L7295;}}}
- L25361: {
-  b_991X = arg0K0;
-  c_992X = a_826X % b_991X;
-  if ((a_494X < 0)) {
-    arg0K0 = (0 - c_992X);
-    goto L25365;}
-  else {
-    arg0K0 = c_992X;
-    goto L25365;}}
- L21349: {
-  SvalS = new_837X;
+    arg0K0 = c_993X;
+    goto L25366;}}
+ L21350: {
+  SvalS = new_838X;
   Scode_pointerS = ((Scode_pointerS) + 3);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L21333: {
-  i_993X = arg0K0;
-  if ((i_993X < 0)) {
-    goto L21349;}
-  else {
-    SstackS = ((SstackS) + 4);
-    *((long *) ((((char *) (-3 + new_837X))) + (((i_993X)<<2)))) = (*((long *) (SstackS)));
-    arg0K0 = (-1 + i_993X);
-    goto L21333;}}
- L21518: {
+  goto L18452;}
+ L21334: {
   i_994X = arg0K0;
   if ((i_994X < 0)) {
-    arg0K0 = stack_nargs_842X;
-    arg0K1 = rest_list_843X;
-    goto L21536;}
+    goto L21350;}
   else {
     SstackS = ((SstackS) + 4);
-    *((long *) ((((char *) (-3 + new_841X))) + (((i_994X)<<2)))) = (*((long *) (SstackS)));
+    *((long *) ((((char *) (-3 + new_838X))) + (((i_994X)<<2)))) = (*((long *) (SstackS)));
     arg0K0 = (-1 + i_994X);
-    goto L21518;}}
- L22041: {
+    goto L21334;}}
+ L21519: {
   i_995X = arg0K0;
   if ((i_995X < 0)) {
-    SvalS = value_848X;
+    arg0K0 = stack_nargs_843X;
+    arg0K1 = rest_list_844X;
+    goto L21537;}
+  else {
+    SstackS = ((SstackS) + 4);
+    *((long *) ((((char *) (-3 + new_842X))) + (((i_995X)<<2)))) = (*((long *) (SstackS)));
+    arg0K0 = (-1 + i_995X);
+    goto L21519;}}
+ L22042: {
+  i_996X = arg0K0;
+  if ((i_996X < 0)) {
+    SvalS = value_849X;
     Scode_pointerS = ((Scode_pointerS) + 2);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    addr_996X = (((char *) (-3 + value_848X))) + (((i_995X)<<2));
-    S48_WRITE_BARRIER(value_848X, addr_996X, init_845X);
-    *((long *) addr_996X) = init_845X;
-    arg0K0 = (-1 + i_995X);
-    goto L22041;}}
- L26136: {
-  i_997X = arg0K0;
-  if ((i_997X < 0)) {
-    SvalS = vector_850X;
-    Scode_pointerS = ((Scode_pointerS) + 1);
-    arg1K0 = (Scode_pointerS);
-    goto L18451;}
-  else {
-    *((unsigned char *) ((((char *) (-3 + vector_850X))) + i_997X)) = init_584X;
-    arg0K0 = (-1 + i_997X);
-    goto L26136;}}
- L26370: {
+    addr_997X = (((char *) (-3 + value_849X))) + (((i_996X)<<2));
+    S48_WRITE_BARRIER(value_849X, addr_997X, init_846X);
+    *((long *) addr_997X) = init_846X;
+    arg0K0 = (-1 + i_996X);
+    goto L22042;}}
+ L26137: {
   i_998X = arg0K0;
   if ((i_998X < 0)) {
-    SvalS = string_853X;
+    SvalS = vector_851X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    *((unsigned char *) ((((char *) (-3 + string_853X))) + i_998X)) = (init_600X);
+    *((unsigned char *) ((((char *) (-3 + vector_851X))) + i_998X)) = init_585X;
     arg0K0 = (-1 + i_998X);
-    goto L26370;}}
- L13346: {
+    goto L26137;}}
+ L26371: {
   i_999X = arg0K0;
-  h_1000X = arg0K1;
-  if ((i_999X < n_857X)) {
-    arg0K0 = (1 + i_999X);
-    arg0K1 = (h_1000X + (((*((unsigned char *) ((((char *) (-3 + string_856X))) + i_999X))))));
-    goto L13346;}
+  if ((i_999X < 0)) {
+    SvalS = string_854X;
+    Scode_pointerS = ((Scode_pointerS) + 1);
+    arg1K0 = (Scode_pointerS);
+    goto L18452;}
   else {
-    index_1001X = 1023 & h_1000X;
-    bucket_1002X = *((long *) ((((char *) (-3 + table_855X))) + (((index_1001X)<<2))));
-    arg0K0 = bucket_1002X;
-    goto L13314;}}
- L24509: {
+    *((unsigned char *) ((((char *) (-3 + string_854X))) + i_999X)) = (init_601X);
+    arg0K0 = (-1 + i_999X);
+    goto L26371;}}
+ L13347: {
+  i_1000X = arg0K0;
+  h_1001X = arg0K1;
+  if ((i_1000X < n_858X)) {
+    arg0K0 = (1 + i_1000X);
+    arg0K1 = (h_1001X + (((*((unsigned char *) ((((char *) (-3 + string_857X))) + i_1000X))))));
+    goto L13347;}
+  else {
+    index_1002X = 1023 & h_1001X;
+    bucket_1003X = *((long *) ((((char *) (-3 + table_856X))) + (((index_1002X)<<2))));
+    arg0K0 = bucket_1003X;
+    goto L13315;}}
+ L24510: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L29683: {
+  goto L16679;}
+ L29684: {
   SvalS = 13;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L33230: {
-  key_1003X = arg0K0;
+  goto L18452;}
+ L33231: {
+  key_1004X = arg0K0;
   SstackS = ((SstackS) + 4);
-  arg2_1004X = *((long *) (SstackS));
+  arg2_1005X = *((long *) (SstackS));
   if ((0 == (3 & (SvalS)))) {
-    mode_1005X = (((SvalS))>>2);
-    if ((1 == mode_1005X)) {
-      goto L26794;}
+    mode_1006X = (((SvalS))>>2);
+    if ((1 == mode_1006X)) {
+      goto L26795;}
     else {
-      if ((2 == mode_1005X)) {
-        goto L26794;}
+      if ((2 == mode_1006X)) {
+        goto L26795;}
       else {
-        if ((3 == mode_1005X)) {
-          goto L26794;}
+        if ((3 == mode_1006X)) {
+          goto L26795;}
         else {
-          if ((4 == mode_1005X)) {
-            goto L26794;}
+          if ((4 == mode_1006X)) {
+            goto L26795;}
           else {
             push_exception_continuationB(5, 1);
-            *((long *) (SstackS)) = arg2_1004X;
+            *((long *) (SstackS)) = arg2_1005X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = (((mode_1005X)<<2));
+            *((long *) (SstackS)) = (((mode_1006X)<<2));
             SstackS = ((SstackS) + -4);
             arg0K0 = 2;
-            goto L16678;}}}}}
+            goto L16679;}}}}}
   else {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_1004X;
+    *((long *) (SstackS)) = arg2_1005X;
     SstackS = ((SstackS) + -4);
     *((long *) (SstackS)) = (SvalS);
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L34662: {
-  key_1006X = arg0K0;
-  obj_1007X = SvalS;
-  if ((3 == (3 & obj_1007X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1007X))) + -4))))>>2))))) {
-      channel_1008X = SvalS;
-      if ((0 == (*((long *) (((char *) (-3 + channel_1008X))))))) {
+    goto L16679;}}
+ L34663: {
+  key_1007X = arg0K0;
+  obj_1008X = SvalS;
+  if ((3 == (3 & obj_1008X))) {
+    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1008X))) + -4))))>>2))))) {
+      channel_1009X = SvalS;
+      if ((0 == (*((long *) (((char *) (-3 + channel_1009X))))))) {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = channel_1008X;
+        *((long *) (SstackS)) = channel_1009X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}
+        goto L16679;}
       else {
-        status_1009X = close_channelB(channel_1008X);
-        if ((status_1009X == NO_ERRORS)) {
+        status_1010X = close_channelB(channel_1009X);
+        if ((status_1010X == NO_ERRORS)) {
           SvalS = 13;
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}
+          goto L18452;}
         else {
           push_exception_continuationB(25, 1);
-          *((long *) (SstackS)) = channel_1008X;
+          *((long *) (SstackS)) = channel_1009X;
           SstackS = ((SstackS) + -4);
-          merged_arg0K0 = status_1009X;
-          merged_arg0K1 = key_1006X;
+          merged_arg0K0 = status_1010X;
+          merged_arg0K1 = key_1007X;
           get_error_string_return_tag = 0;
           goto get_error_string;
          get_error_string_return_0:
-          x_1010X = get_error_string0_return_value;
-          *((long *) (SstackS)) = x_1010X;
+          x_1011X = get_error_string0_return_value;
+          *((long *) (SstackS)) = x_1011X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}}}
+          goto L16679;}}}
     else {
-      goto L34670;}}
+      goto L34671;}}
   else {
-    goto L34670;}}
- L37482: {
-  key_1011X = arg0K0;
+    goto L34671;}}
+ L37483: {
+  key_1012X = arg0K0;
   SstackS = ((SstackS) + 4);
-  arg2_1012X = *((long *) (SstackS));
+  arg2_1013X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  arg3_1013X = *((long *) (SstackS));
+  arg3_1014X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  arg4_1014X = *((long *) (SstackS));
+  arg4_1015X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  arg5_1015X = *((long *) (SstackS));
-  if ((0 == (3 & (arg4_1014X | arg3_1013X)))) {
-    if ((1 == arg2_1012X)) {
-      goto L37514;}
+  arg5_1016X = *((long *) (SstackS));
+  if ((0 == (3 & (arg4_1015X | arg3_1014X)))) {
+    if ((1 == arg2_1013X)) {
+      goto L37515;}
     else {
-      if ((5 == arg2_1012X)) {
-        goto L37514;}
+      if ((5 == arg2_1013X)) {
+        goto L37515;}
       else {
-        goto L37534;}}}
+        goto L37535;}}}
   else {
-    goto L37534;}}
- L37754: {
-  key_1016X = arg0K0;
+    goto L37535;}}
+ L37755: {
+  key_1017X = arg0K0;
   SstackS = ((SstackS) + 4);
-  arg2_1017X = *((long *) (SstackS));
+  arg2_1018X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  arg3_1018X = *((long *) (SstackS));
+  arg3_1019X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  arg4_1019X = *((long *) (SstackS));
-  if ((0 == (3 & (arg3_1018X | arg2_1017X)))) {
-    obj_1020X = SvalS;
-    if ((3 == (3 & obj_1020X))) {
-      if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1020X))) + -4))))>>2))))) {
-        start_1021X = ((arg3_1018X)>>2);
-        count_1022X = ((arg2_1017X)>>2);
-        channel_1023X = SvalS;
-        v_1024X = 8 == (*((long *) (((char *) (-3 + channel_1023X)))));
-        if (v_1024X) {
-          if ((3 == (3 & arg4_1019X))) {
-            if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>2))))) {
-              goto L37065;}
+  arg4_1020X = *((long *) (SstackS));
+  if ((0 == (3 & (arg3_1019X | arg2_1018X)))) {
+    obj_1021X = SvalS;
+    if ((3 == (3 & obj_1021X))) {
+      if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1021X))) + -4))))>>2))))) {
+        start_1022X = ((arg3_1019X)>>2);
+        count_1023X = ((arg2_1018X)>>2);
+        channel_1024X = SvalS;
+        v_1025X = 8 == (*((long *) (((char *) (-3 + channel_1024X)))));
+        if (v_1025X) {
+          if ((3 == (3 & arg4_1020X))) {
+            if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
+              goto L37066;}
             else {
-              goto L37057;}}
+              goto L37058;}}
           else {
-            goto L37057;}}
+            goto L37058;}}
         else {
           arg0K0 = 5;
-          goto L36948;}}
+          goto L36949;}}
       else {
-        goto L37796;}}
+        goto L37797;}}
     else {
-      goto L37796;}}
+      goto L37797;}}
   else {
-    goto L37796;}}
- L34147: {
-  key_1025X = arg0K0;
-  obj_1026X = SvalS;
-  if ((3 == (3 & obj_1026X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1026X))) + -4))))>>2))))) {
-      channel_1027X = SvalS;
-      if ((0 == (*((long *) (((char *) (-3 + channel_1027X))))))) {
+    goto L37797;}}
+ L34148: {
+  key_1026X = arg0K0;
+  obj_1027X = SvalS;
+  if ((3 == (3 & obj_1027X))) {
+    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1027X))) + -4))))>>2))))) {
+      channel_1028X = SvalS;
+      if ((0 == (*((long *) (((char *) (-3 + channel_1028X))))))) {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = channel_1027X;
+        *((long *) (SstackS)) = channel_1028X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 1;
-        goto L16678;}
+        goto L16679;}
       else {
-        readyP_1028X = ps_check_fd(((((*((long *) ((((char *) (-3 + channel_1027X))) + 8))))>>2)), (4 == (*((long *) (((char *) (-3 + channel_1027X)))))), &status_1029X);
-        if ((status_1029X == NO_ERRORS)) {
-          if (readyP_1028X) {
+        readyP_1029X = ps_check_fd(((((*((long *) ((((char *) (-3 + channel_1028X))) + 8))))>>2)), (4 == (*((long *) (((char *) (-3 + channel_1028X)))))), &status_1030X);
+        if ((status_1030X == NO_ERRORS)) {
+          if (readyP_1029X) {
             arg0K0 = 5;
-            goto L29269;}
+            goto L29270;}
           else {
             arg0K0 = 1;
-            goto L29269;}}
+            goto L29270;}}
         else {
           push_exception_continuationB(25, 1);
-          *((long *) (SstackS)) = channel_1027X;
+          *((long *) (SstackS)) = channel_1028X;
           SstackS = ((SstackS) + -4);
-          merged_arg0K0 = status_1029X;
-          merged_arg0K1 = key_1025X;
+          merged_arg0K0 = status_1030X;
+          merged_arg0K1 = key_1026X;
           get_error_string_return_tag = 1;
           goto get_error_string;
          get_error_string_return_1:
-          x_1030X = get_error_string0_return_value;
-          *((long *) (SstackS)) = x_1030X;
+          x_1031X = get_error_string0_return_value;
+          *((long *) (SstackS)) = x_1031X;
           SstackS = ((SstackS) + -4);
           arg0K0 = 2;
-          goto L16678;}}}
+          goto L16679;}}}
     else {
-      goto L34155;}}
+      goto L34156;}}
   else {
-    goto L34155;}}
- L8215: {
-  val_1031X = *((long *) ((((char *) (-3 + ch_873X))) + 12));
-  addr_1032X = (((char *) (-3 + prev_874X))) + 12;
-  S48_WRITE_BARRIER(prev_874X, addr_1032X, val_1031X);
-  *((long *) addr_1032X) = val_1031X;
-  addr_1033X = (((char *) (-3 + ch_873X))) + 12;
-  S48_WRITE_BARRIER(ch_873X, addr_1033X, 1);
-  *((long *) addr_1033X) = 1;
-  arg0K0 = (*((long *) ((((char *) (-3 + ch_873X))) + 16)));
-  goto L33335;}
- L14797: {
-  i_1034X = arg0K0;
-  res_1035X = arg0K1;
-  if ((-1 == i_1034X)) {
-    SvalS = res_1035X;
+    goto L34156;}}
+ L8216: {
+  val_1032X = *((long *) ((((char *) (-3 + ch_874X))) + 12));
+  addr_1033X = (((char *) (-3 + prev_875X))) + 12;
+  S48_WRITE_BARRIER(prev_875X, addr_1033X, val_1032X);
+  *((long *) addr_1033X) = val_1032X;
+  addr_1034X = (((char *) (-3 + ch_874X))) + 12;
+  S48_WRITE_BARRIER(ch_874X, addr_1034X, 1);
+  *((long *) addr_1034X) = 1;
+  arg0K0 = (*((long *) ((((char *) (-3 + ch_874X))) + 16)));
+  goto L33336;}
+ L14798: {
+  i_1035X = arg0K0;
+  res_1036X = arg0K1;
+  if ((-1 == i_1035X)) {
+    SvalS = res_1036X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    channel_1036X = *((Svm_channelsS) + i_1034X);
-    if ((3 == (3 & channel_1036X))) {
-      if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_1036X))) + -4))))>>2))))) {
-        addr_1037X = ALLOCATE_SPACE(0, 12);
-        *((long *) addr_1037X) = 2050;
-        x_1038X = 3 + (((long) (addr_1037X + 4)));
-        *((long *) (((char *) (-3 + x_1038X)))) = channel_1036X;
-        *((long *) ((((char *) (-3 + x_1038X))) + 4)) = res_1035X;
-        arg0K0 = x_1038X;
-        goto L14811;}
+    channel_1037X = *((Svm_channelsS) + i_1035X);
+    if ((3 == (3 & channel_1037X))) {
+      if ((5 == (31 & ((((*((long *) ((((char *) (-3 + channel_1037X))) + -4))))>>2))))) {
+        addr_1038X = ALLOCATE_SPACE(0, 12);
+        *((long *) addr_1038X) = 2050;
+        x_1039X = 3 + (((long) (addr_1038X + 4)));
+        *((long *) (((char *) (-3 + x_1039X)))) = channel_1037X;
+        *((long *) ((((char *) (-3 + x_1039X))) + 4)) = res_1036X;
+        arg0K0 = x_1039X;
+        goto L14812;}
       else {
-        arg0K0 = res_1035X;
-        goto L14811;}}
+        arg0K0 = res_1036X;
+        goto L14812;}}
     else {
-      arg0K0 = res_1035X;
-      goto L14811;}}}
- L34735: {
-  key_1039X = arg0K0;
+      arg0K0 = res_1036X;
+      goto L14812;}}}
+ L34736: {
+  key_1040X = arg0K0;
   SstackS = ((SstackS) + 4);
-  arg2_1040X = *((long *) (SstackS));
+  arg2_1041X = *((long *) (SstackS));
   SstackS = ((SstackS) + 4);
-  arg3_1041X = *((long *) (SstackS));
-  if ((3 == (3 & arg3_1041X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_1041X))) + -4))))>>2))))) {
-      obj_1042X = SvalS;
-      if ((3 == (3 & obj_1042X))) {
-        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_1042X))) + -4))))>>2))))) {
-          comment_string_1043X = SvalS;
-          x_1044X = s48_image_writing_okayP();
-          if (x_1044X) {
-            port_1045X = ps_open_output_file((((char *)(((char *) (-3 + arg3_1041X))))), &status_1046X);
-            if ((status_1046X == NO_ERRORS)) {
-              status_1047X = ps_write_string((((char *)(((char *) (-3 + comment_string_1043X))))), port_1045X);
-              if ((status_1047X == NO_ERRORS)) {
-                status_1048X = s48_write_image(arg2_1040X, port_1045X);
-                if ((status_1048X == NO_ERRORS)) {
-                  status_1049X = ps_close(port_1045X);
-                  if ((status_1049X == NO_ERRORS)) {
-                    undumpables_1050X = s48_undumpable_records(&undumpable_count_1051X);
-                    if ((0 == undumpable_count_1051X)) {
+  arg3_1042X = *((long *) (SstackS));
+  if ((3 == (3 & arg3_1042X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_1042X))) + -4))))>>2))))) {
+      obj_1043X = SvalS;
+      if ((3 == (3 & obj_1043X))) {
+        if ((16 == (31 & ((((*((long *) ((((char *) (-3 + obj_1043X))) + -4))))>>2))))) {
+          comment_string_1044X = SvalS;
+          x_1045X = s48_image_writing_okayP();
+          if (x_1045X) {
+            port_1046X = ps_open_output_file((((char *)(((char *) (-3 + arg3_1042X))))), &status_1047X);
+            if ((status_1047X == NO_ERRORS)) {
+              status_1048X = ps_write_string((((char *)(((char *) (-3 + comment_string_1044X))))), port_1046X);
+              if ((status_1048X == NO_ERRORS)) {
+                status_1049X = s48_write_image(arg2_1041X, port_1046X);
+                if ((status_1049X == NO_ERRORS)) {
+                  status_1050X = ps_close(port_1046X);
+                  if ((status_1050X == NO_ERRORS)) {
+                    undumpables_1051X = s48_undumpable_records(&undumpable_count_1052X);
+                    if ((0 == undumpable_count_1052X)) {
                       SvalS = 13;
                       Scode_pointerS = ((Scode_pointerS) + 1);
                       arg1K0 = (Scode_pointerS);
-                      goto L18451;}
+                      goto L18452;}
                     else {
                       push_exception_continuationB(26, 1);
-                      *((long *) (SstackS)) = arg3_1041X;
+                      *((long *) (SstackS)) = arg3_1042X;
                       SstackS = ((SstackS) + -4);
-                      *((long *) (SstackS)) = arg2_1040X;
+                      *((long *) (SstackS)) = arg2_1041X;
                       SstackS = ((SstackS) + -4);
-                      *((long *) (SstackS)) = comment_string_1043X;
+                      *((long *) (SstackS)) = comment_string_1044X;
                       SstackS = ((SstackS) + -4);
-                      *((long *) (SstackS)) = undumpables_1050X;
+                      *((long *) (SstackS)) = undumpables_1051X;
                       SstackS = ((SstackS) + -4);
-                      *((long *) (SstackS)) = (((undumpable_count_1051X)<<2));
+                      *((long *) (SstackS)) = (((undumpable_count_1052X)<<2));
                       SstackS = ((SstackS) + -4);
                       arg0K0 = 5;
-                      goto L16678;}}
+                      goto L16679;}}
                   else {
                     arg0K0 = 25;
-                    arg0K1 = status_1049X;
-                    goto L30317;}}
+                    arg0K1 = status_1050X;
+                    goto L30318;}}
                 else {
-                  status_1052X = ps_close(port_1045X);
-                  if ((status_1052X == NO_ERRORS)) {
+                  status_1053X = ps_close(port_1046X);
+                  if ((status_1053X == NO_ERRORS)) {
                     arg0K0 = 25;
-                    arg0K1 = status_1048X;
-                    goto L30317;}
+                    arg0K1 = status_1049X;
+                    goto L30318;}
                   else {
                     ps_write_string("Unable to close image file", (stderr));
                     { long ignoreXX;
                     PS_WRITE_CHAR(10, (stderr), ignoreXX) }
                     arg0K0 = 25;
-                    arg0K1 = status_1048X;
-                    goto L30317;}}}
+                    arg0K1 = status_1049X;
+                    goto L30318;}}}
               else {
-                status_1053X = ps_close(port_1045X);
-                if ((status_1053X == NO_ERRORS)) {
+                status_1054X = ps_close(port_1046X);
+                if ((status_1054X == NO_ERRORS)) {
                   arg0K0 = 25;
-                  arg0K1 = status_1047X;
-                  goto L30317;}
+                  arg0K1 = status_1048X;
+                  goto L30318;}
                 else {
                   ps_write_string("Unable to close image file", (stderr));
                   { long ignoreXX;
                   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
                   arg0K0 = 25;
-                  arg0K1 = status_1047X;
-                  goto L30317;}}}
+                  arg0K1 = status_1048X;
+                  goto L30318;}}}
             else {
               arg0K0 = 10;
-              arg0K1 = status_1046X;
-              goto L30317;}}
+              arg0K1 = status_1047X;
+              goto L30318;}}
           else {
             push_exception_continuationB(15, 1);
-            *((long *) (SstackS)) = arg3_1041X;
+            *((long *) (SstackS)) = arg3_1042X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = arg2_1040X;
+            *((long *) (SstackS)) = arg2_1041X;
             SstackS = ((SstackS) + -4);
-            *((long *) (SstackS)) = comment_string_1043X;
+            *((long *) (SstackS)) = comment_string_1044X;
             SstackS = ((SstackS) + -4);
             arg0K0 = 3;
-            goto L16678;}}
+            goto L16679;}}
         else {
-          goto L34767;}}
+          goto L34768;}}
       else {
-        goto L34767;}}
+        goto L34768;}}
     else {
-      goto L34767;}}
+      goto L34768;}}
   else {
-    goto L34767;}}
- L30696: {
+    goto L34768;}}
+ L30697: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = stob_882X;
+  *((long *) (SstackS)) = stob_883X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = proc_883X;
+  *((long *) (SstackS)) = proc_884X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L34313: {
-  minutesP_1054X = arg2K0;
+  goto L16679;}
+ L34314: {
+  minutesP_1055X = arg2K0;
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
       check_events_return_tag = 2;
       goto check_events;
      check_events_return_2:
-      temp_1055X = check_events0_return_value;
-      if (temp_1055X) {
-        goto L34339;}
+      temp_1056X = check_events0_return_value;
+      if (temp_1056X) {
+        goto L34340;}
       else {
-        goto L34344;}}
+        goto L34345;}}
     else {
-      goto L34339;}}
+      goto L34340;}}
   else {
-    goto L34344;}}
- L22862: {
+    goto L34345;}}
+ L22863: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = proc_901X;
+  *((long *) (SstackS)) = proc_902X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = name_902X;
+  *((long *) (SstackS)) = name_903X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L33501: {
-  key_1056X = arg0K0;
+  goto L16679;}
+ L33502: {
+  key_1057X = arg0K0;
   SstackS = ((SstackS) + 4);
-  arg2_1057X = *((long *) (SstackS));
-  if ((3 == (3 & arg2_1057X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1057X))) + -4))))>>2))))) {
-      x_1058X = SvalS;
-      if ((1 == x_1058X)) {
-        goto L33518;}
+  arg2_1058X = *((long *) (SstackS));
+  if ((3 == (3 & arg2_1058X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1058X))) + -4))))>>2))))) {
+      x_1059X = SvalS;
+      if ((1 == x_1059X)) {
+        goto L33519;}
       else {
-        if ((5 == x_1058X)) {
-          goto L33518;}
+        if ((5 == x_1059X)) {
+          goto L33519;}
         else {
-          goto L33523;}}}
+          goto L33524;}}}
     else {
-      goto L33523;}}
+      goto L33524;}}
   else {
-    goto L33523;}}
- L23959: {
-  table_1059X = arg0K0;
-  n_1060X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_689X))) + -4))))>>8));
+    goto L33524;}}
+ L23960: {
+  table_1060X = arg0K0;
+  n_1061X = -1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>8));
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L12893;}
- L27390: {
-  len_1061X = 1 + n_912X;
-  addr_1062X = ALLOCATE_SPACE(16, (4 + len_1061X));
-  *((long *) addr_1062X) = (66 + (((len_1061X)<<8)));
-  string_1063X = 3 + (((long) (addr_1062X + 4)));
-  *((unsigned char *) ((((char *) (-3 + string_1063X))) + n_912X)) = 0;
-  arg0K0 = arg2_911X;
-  arg0K1 = (-1 + n_912X);
-  goto L27367;}
- L27342: {
-  if ((25 == arg2_911X)) {
-    goto L27390;}
+  goto L12894;}
+ L27391: {
+  len_1062X = 1 + n_913X;
+  addr_1063X = ALLOCATE_SPACE(16, (4 + len_1062X));
+  *((long *) addr_1063X) = (66 + (((len_1062X)<<8)));
+  string_1064X = 3 + (((long) (addr_1063X + 4)));
+  *((unsigned char *) ((((char *) (-3 + string_1064X))) + n_913X)) = 0;
+  arg0K0 = arg2_912X;
+  arg0K1 = (-1 + n_913X);
+  goto L27368;}
+ L27343: {
+  if ((25 == arg2_912X)) {
+    goto L27391;}
   else {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_911X;
+    *((long *) (SstackS)) = arg2_912X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = (((n_912X)<<2));
+    *((long *) (SstackS)) = (((n_913X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L31101: {
-  if ((from_index_730X < 0)) {
-    goto L31155;}
+    goto L16679;}}
+ L31102: {
+  if ((from_index_731X < 0)) {
+    goto L31156;}
   else {
-    if ((to_index_731X < 0)) {
-      goto L31155;}
+    if ((to_index_732X < 0)) {
+      goto L31156;}
     else {
-      if ((count_732X < 0)) {
-        goto L31155;}
+      if ((count_733X < 0)) {
+        goto L31156;}
       else {
-        if ((3 == (3 & arg5_729X))) {
-          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) {
-            arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>8)));
-            goto L31122;}
+        if ((3 == (3 & arg5_730X))) {
+          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+            arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>8)));
+            goto L31123;}
           else {
-            goto L31118;}}
+            goto L31119;}}
         else {
-          goto L31118;}}}}}
- L31096: {
-  if ((3 == (3 & arg5_729X))) {
-    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>2))))) {
-      goto L31101;}
+          goto L31119;}}}}}
+ L31097: {
+  if ((3 == (3 & arg5_730X))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>2))))) {
+      goto L31102;}
     else {
-      goto L31155;}}
+      goto L31156;}}
   else {
-    goto L31155;}}
- L31155: {
+    goto L31156;}}
+ L31156: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg5_729X;
+  *((long *) (SstackS)) = arg5_730X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((from_index_730X)<<2));
+  *((long *) (SstackS)) = (((from_index_731X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg3_727X;
+  *((long *) (SstackS)) = arg3_728X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((to_index_731X)<<2));
+  *((long *) (SstackS)) = (((to_index_732X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((count_732X)<<2));
+  *((long *) (SstackS)) = (((count_733X)<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 5;
-  goto L16678;}
- L23118: {
+  goto L16679;}
+ L23119: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = port_918X;
+  *((long *) (SstackS)) = port_919X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L23098: {
+  goto L16679;}
+ L23099: {
   push_exception_continuationB(14, 2);
-  *((long *) (SstackS)) = port_918X;
+  *((long *) (SstackS)) = port_919X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L23338: {
+  goto L16679;}
+ L23339: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = port_926X;
+  *((long *) (SstackS)) = port_927X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L23318: {
+  goto L16679;}
+ L23319: {
   push_exception_continuationB(14, 2);
-  *((long *) (SstackS)) = port_926X;
+  *((long *) (SstackS)) = port_927X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L23552: {
+  goto L16679;}
+ L23553: {
   push_exception_continuationB(5, 2);
-  *((long *) (SstackS)) = Kchar_932X;
+  *((long *) (SstackS)) = Kchar_933X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = port_933X;
+  *((long *) (SstackS)) = port_934X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L23534: {
+  goto L16679;}
+ L23535: {
   push_exception_continuationB(14, 2);
-  *((long *) (SstackS)) = Kchar_932X;
+  *((long *) (SstackS)) = Kchar_933X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = port_933X;
+  *((long *) (SstackS)) = port_934X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L29591: {
-  arg0K0 = (*((long *) ((((char *) (-3 + stuff_940X))) + 4)));
-  goto L29585;}
- L11663: {
-  if ((3 == (3 & thing_941X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) {
-      arg3K0 = (((char *)(((char *) (-3 + thing_941X)))));
-      goto L11705;}
+  goto L16679;}
+ L29592: {
+  arg0K0 = (*((long *) ((((char *) (-3 + stuff_941X))) + 4)));
+  goto L29586;}
+ L11664: {
+  if ((3 == (3 & thing_942X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
+      arg3K0 = (((char *)(((char *) (-3 + thing_942X)))));
+      goto L11706;}
     else {
-      goto L11671;}}
+      goto L11672;}}
   else {
-    goto L11671;}}
- L29576: {
+    goto L11672;}}
+ L29577: {
   { long ignoreXX;
-  PS_WRITE_CHAR(10, out_741X, ignoreXX) }
+  PS_WRITE_CHAR(10, out_742X, ignoreXX) }
   SvalS = 13;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L16754: {
+  goto L18452;}
+ L16755: {
   StemplateS = (SvalS);
-  Slosing_opcodeS = opcode_743X;
-  arg0K0 = (2 + nargs_742X);
-  goto L16079;}
- L16824: {
+  Slosing_opcodeS = opcode_744X;
+  arg0K0 = (2 + nargs_743X);
+  goto L16080;}
+ L16825: {
   merged_arg3K0 = "exception handler is not a closure";
   loseD0_return_tag = 1;
   goto loseD0;
  loseD0_return_1:
-  goto L16754;}
- L20979: {
-  key_1064X = arg0K0;
-  p_1065X = SenvS;
-  if ((3 == (3 & p_1065X))) {
-    if ((p_1065X < (((long) (Sstack_beginS))))) {
-      goto L21074;}
+  goto L16755;}
+ L20980: {
+  key_1065X = arg0K0;
+  p_1066X = SenvS;
+  if ((3 == (3 & p_1066X))) {
+    if ((p_1066X < (((long) (Sstack_beginS))))) {
+      goto L21075;}
     else {
-      if (((((long) (Sstack_endS))) < p_1065X)) {
-        goto L21074;}
+      if (((((long) (Sstack_endS))) < p_1066X)) {
+        goto L21075;}
       else {
         merged_arg0K0 = (SenvS);
         merged_arg0K1 = (ScontS);
-        merged_arg0K2 = key_1064X;
+        merged_arg0K2 = key_1065X;
         merged_arg0K3 = 0;
         save_env_in_heap_return_tag = 0;
         goto save_env_in_heap;
        save_env_in_heap_return_0:
-        v_1066X = save_env_in_heap0_return_value;
-        SenvS = v_1066X;
-        goto L21074;}}}
+        v_1067X = save_env_in_heap0_return_value;
+        SenvS = v_1067X;
+        goto L21075;}}}
   else {
-    goto L21074;}}
- L20990: {
-  env_1067X = arg0K0;
-  a_1068X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
-  addr_1069X = ALLOCATE_SPACE(3, 12);
-  *((long *) addr_1069X) = 2062;
-  x_1070X = 3 + (((long) (addr_1069X + 4)));
-  *((long *) (((char *) (-3 + x_1070X)))) = a_1068X;
-  *((long *) ((((char *) (-3 + x_1070X))) + 4)) = env_1067X;
-  if ((3 == (3 & x_1070X))) {
-    if ((0 == (128 & (*((long *) ((((char *) (-3 + x_1070X))) + -4)))))) {
-      *((long *) ((((char *) (-3 + x_1070X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_1070X))) + -4))));
-      arg0K0 = x_1070X;
-      goto L20998;}
+    goto L21075;}}
+ L20991: {
+  env_1068X = arg0K0;
+  a_1069X = *((long *) ((((char *) (-3 + (StemplateS)))) + ((((((((*((unsigned char *) ((Scode_pointerS) + 1))))<<8)) + (*((unsigned char *) ((Scode_pointerS) + 2)))))<<2))));
+  addr_1070X = ALLOCATE_SPACE(3, 12);
+  *((long *) addr_1070X) = 2062;
+  x_1071X = 3 + (((long) (addr_1070X + 4)));
+  *((long *) (((char *) (-3 + x_1071X)))) = a_1069X;
+  *((long *) ((((char *) (-3 + x_1071X))) + 4)) = env_1068X;
+  if ((3 == (3 & x_1071X))) {
+    if ((0 == (128 & (*((long *) ((((char *) (-3 + x_1071X))) + -4)))))) {
+      *((long *) ((((char *) (-3 + x_1071X))) + -4)) = (128 | (*((long *) ((((char *) (-3 + x_1071X))) + -4))));
+      arg0K0 = x_1071X;
+      goto L20999;}
     else {
-      arg0K0 = x_1070X;
-      goto L20998;}}
+      arg0K0 = x_1071X;
+      goto L20999;}}
   else {
-    arg0K0 = x_1070X;
-    goto L20998;}}
- L20801: {
-  i_1071X = arg0K0;
-  offset_1072X = arg0K1;
-  env_1073X = arg0K2;
-  if ((i_1071X == total_count_393X)) {
-    SvalS = new_env_765X;
-    Scode_pointerS = ((Scode_pointerS) + (1 + offset_1072X));
+    arg0K0 = x_1071X;
+    goto L20999;}}
+ L20802: {
+  i_1072X = arg0K0;
+  offset_1073X = arg0K1;
+  env_1074X = arg0K2;
+  if ((i_1072X == total_count_394X)) {
+    SvalS = new_env_766X;
+    Scode_pointerS = ((Scode_pointerS) + (1 + offset_1073X));
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    back_1074X = *((unsigned char *) ((Scode_pointerS) + (1 + offset_1072X)));
-    arg0K0 = env_1073X;
-    arg0K1 = back_1074X;
-    goto L20897;}}
- L20697: {
-  value_1075X = arg0K0;
-  SvalS = value_1075X;
+    back_1075X = *((unsigned char *) ((Scode_pointerS) + (1 + offset_1073X)));
+    arg0K0 = env_1074X;
+    arg0K1 = back_1075X;
+    goto L20898;}}
+ L20698: {
+  value_1076X = arg0K0;
+  SvalS = value_1076X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L17012: {
-  i_1076X = arg0K0;
-  m_1077X = arg0K1;
-  if ((0 == (n_955X & m_1077X))) {
-    arg0K0 = (1 + i_1076X);
-    arg0K1 = (((m_1077X)<<1));
-    goto L17012;}
+  goto L18452;}
+ L17013: {
+  i_1077X = arg0K0;
+  m_1078X = arg0K1;
+  if ((0 == (n_956X & m_1078X))) {
+    arg0K0 = (1 + i_1077X);
+    arg0K1 = (((m_1078X)<<1));
+    goto L17013;}
   else {
-    Spending_interruptsS = ((Spending_interruptsS) & (~ m_1077X));
-    if ((i_1076X == 0)) {
+    Spending_interruptsS = ((Spending_interruptsS) & (~ m_1078X));
+    if ((i_1077X == 0)) {
       *((long *) (SstackS)) = (Sinterrupted_templateS);
       SstackS = ((SstackS) + -4);
       Sinterrupted_templateS = 1;
       *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16931;}
+      goto L16932;}
     else {
-      if ((i_1076X == 2)) {
+      if ((i_1077X == 2)) {
         *((long *) (SstackS)) = (Sfinalize_theseS);
         SstackS = ((SstackS) + -4);
         Sfinalize_theseS = 25;
         *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16931;}
+        goto L16932;}
       else {
-        if ((i_1076X == 3)) {
-          channel_1078X = Spending_channels_headS;
-          next_1079X = *((long *) ((((char *) (-3 + channel_1078X))) + 12));
-          Spending_channels_headS = next_1079X;
-          addr_1080X = (((char *) (-3 + channel_1078X))) + 12;
-          S48_WRITE_BARRIER(channel_1078X, addr_1080X, 1);
-          *((long *) addr_1080X) = 1;
-          if ((1 == next_1079X)) {
+        if ((i_1077X == 3)) {
+          channel_1079X = Spending_channels_headS;
+          next_1080X = *((long *) ((((char *) (-3 + channel_1079X))) + 12));
+          Spending_channels_headS = next_1080X;
+          addr_1081X = (((char *) (-3 + channel_1079X))) + 12;
+          S48_WRITE_BARRIER(channel_1079X, addr_1081X, 1);
+          *((long *) addr_1081X) = 1;
+          if ((1 == next_1080X)) {
             Spending_channels_tailS = 1;
-            arg0K0 = channel_1078X;
-            goto L8376;}
+            arg0K0 = channel_1079X;
+            goto L8377;}
           else {
-            arg0K0 = channel_1078X;
-            goto L8376;}}
+            arg0K0 = channel_1079X;
+            goto L8377;}}
         else {
-          if ((i_1076X == 4)) {
+          if ((i_1077X == 4)) {
             *((long *) (SstackS)) = (Sos_signal_typeS);
             SstackS = ((SstackS) + -4);
             *((long *) (SstackS)) = (Sos_signal_argumentS);
@@ -8420,1172 +8421,1172 @@ long s48_restart(long proc_345X, long nargs_346X)
             *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
             SstackS = ((SstackS) + -4);
             arg0K0 = 3;
-            goto L16931;}
+            goto L16932;}
           else {
             *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
             SstackS = ((SstackS) + -4);
             arg0K0 = 1;
-            goto L16931;}}}}}}
- L16097: {
-  skip_1081X = arg0K0;
-  stack_arg_count_1082X = arg0K1;
-  template_1083X = *((long *) (((char *) (-3 + (SvalS)))));
-  StemplateS = template_1083X;
-  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1083X)))))))) + skip_1081X);
+            goto L16932;}}}}}}
+ L16098: {
+  skip_1082X = arg0K0;
+  stack_arg_count_1083X = arg0K1;
+  template_1084X = *((long *) (((char *) (-3 + (SvalS)))));
+  StemplateS = template_1084X;
+  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1084X)))))))) + skip_1082X);
   SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4)));
-  arg0K0 = stack_space_957X;
-  arg0K1 = stack_arg_count_1082X;
-  goto L15987;}
- L16120: {
-  skip_1084X = arg0K0;
+  arg0K0 = stack_space_958X;
+  arg0K1 = stack_arg_count_1083X;
+  goto L15988;}
+ L16121: {
+  skip_1085X = arg0K0;
   *((long *) (SstackS)) = 25;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((stack_arg_count_774X)<<2));
+  *((long *) (SstackS)) = (((stack_arg_count_775X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((stack_arg_count_774X)<<2));
+  *((long *) (SstackS)) = (((stack_arg_count_775X)<<2));
   SstackS = ((SstackS) + -4);
-  arg0K0 = skip_1084X;
-  arg0K1 = (3 + stack_arg_count_774X);
-  goto L16097;}
- L16374: {
-  skip_1085X = arg0K0;
-  stack_arg_count_1086X = arg0K1;
-  template_1087X = *((long *) (((char *) (-3 + (SvalS)))));
-  StemplateS = template_1087X;
-  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1087X)))))))) + skip_1085X);
+  arg0K0 = skip_1085X;
+  arg0K1 = (3 + stack_arg_count_775X);
+  goto L16098;}
+ L16375: {
+  skip_1086X = arg0K0;
+  stack_arg_count_1087X = arg0K1;
+  template_1088X = *((long *) (((char *) (-3 + (SvalS)))));
+  StemplateS = template_1088X;
+  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + template_1088X)))))))) + skip_1086X);
   SenvS = (*((long *) ((((char *) (-3 + (SvalS)))) + 4)));
-  arg0K0 = stack_space_964X;
-  arg0K1 = stack_arg_count_1086X;
-  goto L15987;}
- L16399: {
-  skip_1088X = arg0K0;
-  if ((total_arg_count_793X < 3)) {
-    arg0K0 = total_arg_count_793X;
-    goto L16407;}
+  arg0K0 = stack_space_965X;
+  arg0K1 = stack_arg_count_1087X;
+  goto L15988;}
+ L16400: {
+  skip_1089X = arg0K0;
+  if ((total_arg_count_794X < 3)) {
+    arg0K0 = total_arg_count_794X;
+    goto L16408;}
   else {
-    if ((2 < stack_arg_count_787X)) {
-      arg0K0 = stack_arg_count_787X;
-      goto L16407;}
+    if ((2 < stack_arg_count_788X)) {
+      arg0K0 = stack_arg_count_788X;
+      goto L16408;}
     else {
       arg0K0 = 2;
-      goto L16407;}}}
- L19295: {
-  SvalS = (*((long *) ((((char *) (-3 + cont_970X))) + 16)));
-  arg0K0 = stack_nargs_804X;
-  arg0K1 = list_args_805X;
-  arg0K2 = list_arg_count_806X;
-  goto L17679;}
- L20457: {
-  merged_arg0K0 = list_args_805X;
-  merged_arg0K1 = stack_nargs_804X;
+      goto L16408;}}}
+ L19296: {
+  SvalS = (*((long *) ((((char *) (-3 + cont_971X))) + 16)));
+  arg0K0 = stack_nargs_805X;
+  arg0K1 = list_args_806X;
+  arg0K2 = list_arg_count_807X;
+  goto L17680;}
+ L20458: {
+  merged_arg0K0 = list_args_806X;
+  merged_arg0K1 = stack_nargs_805X;
   pop_args_GlistS_return_tag = 4;
   goto pop_args_GlistS;
  pop_args_GlistS_return_4:
-  args_1089X = pop_args_GlistS0_return_value;
+  args_1090X = pop_args_GlistS0_return_value;
   push_exception_continuationB(4, 0);
   *((long *) (SstackS)) = 1;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = args_1089X;
+  *((long *) (SstackS)) = args_1090X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L10646: {
-  if ((3 == (3 & x_456X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + x_456X))) + -4))))>>2))))) {
+  goto L16679;}
+ L10647: {
+  if ((3 == (3 & x_457X))) {
+    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + x_457X))) + -4))))>>2))))) {
       arg0K0 = 5;
-      goto L38248;}
+      goto L38249;}
     else {
       arg0K0 = 1;
-      goto L38248;}}
+      goto L38249;}}
   else {
     arg0K0 = 1;
-    goto L38248;}}
- L28570: {
-  if ((3 == (3 & n_458X))) {
-    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_458X))) + -4))))>>2))))) {
-      push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = n_458X;
-      SstackS = ((SstackS) + -4);
-      arg0K0 = 1;
-      goto L16678;}
-    else {
-      goto L28574;}}
-  else {
-    goto L28574;}}
- L28769: {
+    goto L38249;}}
+ L28571: {
   if ((3 == (3 & n_459X))) {
     if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_459X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = n_459X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
     else {
-      goto L28773;}}
+      goto L28575;}}
   else {
-    goto L28773;}}
- L28968: {
+    goto L28575;}}
+ L28770: {
   if ((3 == (3 & n_460X))) {
     if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_460X))) + -4))))>>2))))) {
       push_exception_continuationB(5, 1);
       *((long *) (SstackS)) = n_460X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 1;
-      goto L16678;}
+      goto L16679;}
     else {
-      goto L28972;}}
+      goto L28774;}}
   else {
-    goto L28972;}}
- L6833: {
-  if ((536870911 < lo_c_981X)) {
+    goto L28774;}}
+ L28969: {
+  if ((3 == (3 & n_461X))) {
+    if ((10 == (31 & ((((*((long *) ((((char *) (-3 + n_461X))) + -4))))>>2))))) {
+      push_exception_continuationB(5, 1);
+      *((long *) (SstackS)) = n_461X;
+      SstackS = ((SstackS) + -4);
+      arg0K0 = 1;
+      goto L16679;}
+    else {
+      goto L28973;}}
+  else {
+    goto L28973;}}
+ L6834: {
+  if ((536870911 < lo_c_982X)) {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_467X;
+    *((long *) (SstackS)) = arg2_468X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = x_468X;
+    *((long *) (SstackS)) = x_469X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}
+    goto L16679;}
   else {
-    if ((lo_c_981X < 0)) {
+    if ((lo_c_982X < 0)) {
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_467X;
+      *((long *) (SstackS)) = arg2_468X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = x_468X;
+      *((long *) (SstackS)) = x_469X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
     else {
-      if ((8192 < mid_c_984X)) {
+      if ((8192 < mid_c_985X)) {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_467X;
+        *((long *) (SstackS)) = arg2_468X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = x_468X;
+        *((long *) (SstackS)) = x_469X;
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}
+        goto L16679;}
       else {
-        if ((a_469X < 0)) {
-          if ((b_470X < 0)) {
-            goto L6860;}
+        if ((a_470X < 0)) {
+          if ((b_471X < 0)) {
+            goto L6861;}
           else {
-            goto L6867;}}
+            goto L6868;}}
         else {
-          if ((b_470X < 0)) {
-            goto L6867;}
+          if ((b_471X < 0)) {
+            goto L6868;}
           else {
-            goto L6860;}}}}}}
+            goto L6861;}}}}}}
+ L7128: {
+  if ((536870911 < c_988X)) {
+    push_exception_continuationB(5, 1);
+    *((long *) (SstackS)) = arg2_475X;
+    SstackS = ((SstackS) + -4);
+    *((long *) (SstackS)) = x_476X;
+    SstackS = ((SstackS) + -4);
+    arg0K0 = 2;
+    goto L16679;}
+  else {
+    SvalS = (((c_988X)<<2));
+    Scode_pointerS = ((Scode_pointerS) + 1);
+    arg1K0 = (Scode_pointerS);
+    goto L18452;}}
  L7127: {
-  if ((536870911 < c_987X)) {
-    push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_474X;
-    SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = x_475X;
-    SstackS = ((SstackS) + -4);
-    arg0K0 = 2;
-    goto L16678;}
-  else {
-    SvalS = (((c_987X)<<2));
-    Scode_pointerS = ((Scode_pointerS) + 1);
-    arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L7126: {
-  SvalS = ((((0 - c_987X))<<2));
+  SvalS = ((((0 - c_988X))<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
+  goto L18452;}
+ L7296: {
+  if ((536870911 < c_991X)) {
+    push_exception_continuationB(5, 1);
+    *((long *) (SstackS)) = arg2_489X;
+    SstackS = ((SstackS) + -4);
+    *((long *) (SstackS)) = x_490X;
+    SstackS = ((SstackS) + -4);
+    arg0K0 = 2;
+    goto L16679;}
+  else {
+    SvalS = (((c_991X)<<2));
+    Scode_pointerS = ((Scode_pointerS) + 1);
+    arg1K0 = (Scode_pointerS);
+    goto L18452;}}
  L7295: {
-  if ((536870911 < c_990X)) {
-    push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_488X;
-    SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = x_489X;
-    SstackS = ((SstackS) + -4);
-    arg0K0 = 2;
-    goto L16678;}
-  else {
-    SvalS = (((c_990X)<<2));
-    Scode_pointerS = ((Scode_pointerS) + 1);
-    arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L7294: {
-  SvalS = ((((0 - c_990X))<<2));
+  SvalS = ((((0 - c_991X))<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L25365: {
-  n_1090X = arg0K0;
-  SvalS = (((n_1090X)<<2));
+  goto L18452;}
+ L25366: {
+  n_1091X = arg0K0;
+  SvalS = (((n_1091X)<<2));
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L21536: {
-  i_1091X = arg0K0;
-  rest_list_1092X = arg0K1;
-  if ((25 == rest_list_1092X)) {
-    SvalS = new_841X;
+  goto L18452;}
+ L21537: {
+  i_1092X = arg0K0;
+  rest_list_1093X = arg0K1;
+  if ((25 == rest_list_1093X)) {
+    SvalS = new_842X;
     Scode_pointerS = ((Scode_pointerS) + 2);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    *((long *) ((((char *) (-3 + new_841X))) + (((i_1091X)<<2)))) = (*((long *) (((char *) (-3 + rest_list_1092X)))));
-    arg0K0 = (1 + i_1091X);
-    arg0K1 = (*((long *) ((((char *) (-3 + rest_list_1092X))) + 4)));
-    goto L21536;}}
- L13314: {
-  foo_1093X = arg0K0;
-  if ((1 == foo_1093X)) {
-    addr_1094X = ALLOCATE_SPACE(1, 12);
-    *((long *) addr_1094X) = 2054;
-    x_1095X = 3 + (((long) (addr_1094X + 4)));
-    *((long *) (((char *) (-3 + x_1095X)))) = string_856X;
-    *((long *) ((((char *) (-3 + x_1095X))) + 4)) = bucket_1002X;
-    addr_1096X = (((char *) (-3 + table_855X))) + (((index_1001X)<<2));
-    S48_WRITE_BARRIER(table_855X, addr_1096X, x_1095X);
-    *((long *) addr_1096X) = x_1095X;
-    arg0K0 = x_1095X;
-    goto L24550;}
+    *((long *) ((((char *) (-3 + new_842X))) + (((i_1092X)<<2)))) = (*((long *) (((char *) (-3 + rest_list_1093X)))));
+    arg0K0 = (1 + i_1092X);
+    arg0K1 = (*((long *) ((((char *) (-3 + rest_list_1093X))) + 4)));
+    goto L21537;}}
+ L13315: {
+  foo_1094X = arg0K0;
+  if ((1 == foo_1094X)) {
+    addr_1095X = ALLOCATE_SPACE(1, 12);
+    *((long *) addr_1095X) = 2054;
+    x_1096X = 3 + (((long) (addr_1095X + 4)));
+    *((long *) (((char *) (-3 + x_1096X)))) = string_857X;
+    *((long *) ((((char *) (-3 + x_1096X))) + 4)) = bucket_1003X;
+    addr_1097X = (((char *) (-3 + table_856X))) + (((index_1002X)<<2));
+    S48_WRITE_BARRIER(table_856X, addr_1097X, x_1096X);
+    *((long *) addr_1097X) = x_1096X;
+    arg0K0 = x_1096X;
+    goto L24551;}
   else {
-    s2_1097X = *((long *) (((char *) (-3 + foo_1093X))));
-    len_1098X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + string_856X))) + -4))))>>8);
-    if ((len_1098X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1097X))) + -4))))>>8)))) {
-      if (((!memcmp((void *)(((char *) (-3 + s2_1097X))), (void *)(((char *) (-3 + string_856X))),len_1098X)))) {
-        arg0K0 = foo_1093X;
-        goto L24550;}
+    s2_1098X = *((long *) (((char *) (-3 + foo_1094X))));
+    len_1099X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + string_857X))) + -4))))>>8);
+    if ((len_1099X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1098X))) + -4))))>>8)))) {
+      if (((!memcmp((void *)(((char *) (-3 + s2_1098X))), (void *)(((char *) (-3 + string_857X))),len_1099X)))) {
+        arg0K0 = foo_1094X;
+        goto L24551;}
       else {
-        goto L13330;}}
+        goto L13331;}}
     else {
-      goto L13330;}}}
- L26794: {
-  if ((0 == (3 & arg2_1004X))) {
-    if (((((arg2_1004X)>>2)) < 0)) {
+      goto L13331;}}}
+ L26795: {
+  if ((0 == (3 & arg2_1005X))) {
+    if (((((arg2_1005X)>>2)) < 0)) {
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_1004X;
+      *((long *) (SstackS)) = arg2_1005X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((mode_1005X)<<2));
+      *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
     else {
-      arg0K0 = (((arg2_1004X)>>2));
-      goto L26614;}}
+      arg0K0 = (((arg2_1005X)>>2));
+      goto L26615;}}
   else {
-    if ((3 == (3 & arg2_1004X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1004X))) + -4))))>>2))))) {
-        if ((1 == mode_1005X)) {
-          goto L26672;}
+    if ((3 == (3 & arg2_1005X))) {
+      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1005X))) + -4))))>>2))))) {
+        if ((1 == mode_1006X)) {
+          goto L26673;}
         else {
-          if ((3 == mode_1005X)) {
-            goto L26672;}
+          if ((3 == mode_1006X)) {
+            goto L26673;}
           else {
-            v_1099X = ps_open_fd((((char *)(((char *) (-3 + arg2_1004X))))), 0, &v_1100X);
-            arg0K0 = v_1099X;
-            arg0K1 = v_1100X;
-            goto L26685;}}}
+            v_1100X = ps_open_fd((((char *)(((char *) (-3 + arg2_1005X))))), 0, &v_1101X);
+            arg0K0 = v_1100X;
+            arg0K1 = v_1101X;
+            goto L26686;}}}
       else {
         push_exception_continuationB(5, 1);
-        *((long *) (SstackS)) = arg2_1004X;
+        *((long *) (SstackS)) = arg2_1005X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = (((mode_1005X)<<2));
+        *((long *) (SstackS)) = (((mode_1006X)<<2));
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
     else {
       push_exception_continuationB(5, 1);
-      *((long *) (SstackS)) = arg2_1004X;
+      *((long *) (SstackS)) = arg2_1005X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((mode_1005X)<<2));
+      *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}}}
- L34670: {
+      goto L16679;}}}
+ L34671: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L37514: {
-  obj_1101X = SvalS;
-  if ((3 == (3 & obj_1101X))) {
-    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1101X))) + -4))))>>2))))) {
-      x_1102X = SvalS;
-      if ((1 == arg2_1012X)) {
+  goto L16679;}
+ L37515: {
+  obj_1102X = SvalS;
+  if ((3 == (3 & obj_1102X))) {
+    if ((5 == (31 & ((((*((long *) ((((char *) (-3 + obj_1102X))) + -4))))>>2))))) {
+      x_1103X = SvalS;
+      if ((1 == arg2_1013X)) {
         arg2K0 = 0;
-        goto L37531;}
+        goto L37532;}
       else {
         arg2K0 = 1;
-        goto L37531;}}
+        goto L37532;}}
     else {
-      goto L37534;}}
+      goto L37535;}}
   else {
-    goto L37534;}}
- L37534: {
+    goto L37535;}}
+ L37535: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg5_1015X;
+  *((long *) (SstackS)) = arg5_1016X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg4_1014X;
+  *((long *) (SstackS)) = arg4_1015X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg3_1013X;
+  *((long *) (SstackS)) = arg3_1014X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_1012X;
+  *((long *) (SstackS)) = arg2_1013X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 5;
-  goto L16678;}
- L37065: {
-  if ((3 == (3 & arg4_1019X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>2))))) {
-      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>8)));
-      goto L37077;}
+  goto L16679;}
+ L37066: {
+  if ((3 == (3 & arg4_1020X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
+      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>8)));
+      goto L37078;}
     else {
-      goto L37073;}}
+      goto L37074;}}
   else {
-    goto L37073;}}
- L37057: {
-  if ((3 == (3 & arg4_1019X))) {
-    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>2))))) {
-      goto L37065;}
+    goto L37074;}}
+ L37058: {
+  if ((3 == (3 & arg4_1020X))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>2))))) {
+      goto L37066;}
     else {
       arg0K0 = 5;
-      goto L36948;}}
+      goto L36949;}}
   else {
     arg0K0 = 5;
-    goto L36948;}}
- L36948: {
-  reason_1103X = arg0K0;
-  push_exception_continuationB(reason_1103X, 1);
-  *((long *) (SstackS)) = arg4_1019X;
+    goto L36949;}}
+ L36949: {
+  reason_1104X = arg0K0;
+  push_exception_continuationB(reason_1104X, 1);
+  *((long *) (SstackS)) = arg4_1020X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((start_1021X)<<2));
+  *((long *) (SstackS)) = (((start_1022X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((count_1022X)<<2));
+  *((long *) (SstackS)) = (((count_1023X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = channel_1023X;
+  *((long *) (SstackS)) = channel_1024X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L37796: {
+  goto L16679;}
+ L37797: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg4_1019X;
+  *((long *) (SstackS)) = arg4_1020X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg3_1018X;
+  *((long *) (SstackS)) = arg3_1019X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_1017X;
+  *((long *) (SstackS)) = arg2_1018X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L29269: {
-  val_1104X = arg0K0;
-  SvalS = val_1104X;
+  goto L16679;}
+ L29270: {
+  val_1105X = arg0K0;
+  SvalS = val_1105X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L34155: {
+  goto L18452;}
+ L34156: {
   push_exception_continuationB(5, 1);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 1;
-  goto L16678;}
- L14811: {
-  v_1105X = arg0K0;
-  arg0K0 = (-1 + i_1034X);
-  arg0K1 = v_1105X;
-  goto L14797;}
- L30317: {
-  reason_1106X = arg0K0;
-  status_1107X = arg0K1;
-  push_exception_continuationB(reason_1106X, 1);
-  *((long *) (SstackS)) = arg3_1041X;
+  goto L16679;}
+ L14812: {
+  v_1106X = arg0K0;
+  arg0K0 = (-1 + i_1035X);
+  arg0K1 = v_1106X;
+  goto L14798;}
+ L30318: {
+  reason_1107X = arg0K0;
+  status_1108X = arg0K1;
+  push_exception_continuationB(reason_1107X, 1);
+  *((long *) (SstackS)) = arg3_1042X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_1040X;
+  *((long *) (SstackS)) = arg2_1041X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = comment_string_1043X;
+  *((long *) (SstackS)) = comment_string_1044X;
   SstackS = ((SstackS) + -4);
-  merged_arg0K0 = status_1107X;
-  merged_arg0K1 = key_1039X;
+  merged_arg0K0 = status_1108X;
+  merged_arg0K1 = key_1040X;
   get_error_string_return_tag = 2;
   goto get_error_string;
  get_error_string_return_2:
-  x_1108X = get_error_string0_return_value;
-  *((long *) (SstackS)) = x_1108X;
+  x_1109X = get_error_string0_return_value;
+  *((long *) (SstackS)) = x_1109X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 4;
-  goto L16678;}
- L34767: {
+  goto L16679;}
+ L34768: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg3_1041X;
+  *((long *) (SstackS)) = arg3_1042X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = arg2_1040X;
+  *((long *) (SstackS)) = arg2_1041X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16678;}
- L34339: {
+  goto L16679;}
+ L34340: {
   SvalS = 13;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L34344: {
+  goto L18452;}
+ L34345: {
   if ((0 == (Spending_interruptsS))) {
-    s48_wait_for_event((((arg2_681X)>>2)), minutesP_1054X);
-    goto L34339;}
+    s48_wait_for_event((((arg2_682X)>>2)), minutesP_1055X);
+    goto L34340;}
   else {
-    goto L34339;}}
- L33518: {
+    goto L34340;}}
+ L33519: {
   if ((1 == (SvalS))) {
-    v_1109X = Hlookup2112((Sexported_bindingsS), arg2_1057X, key_1056X);
-    arg0K0 = v_1109X;
-    goto L33575;}
-  else {
-    v_1110X = Hlookup2093((Simported_bindingsS), arg2_1057X, key_1056X);
+    v_1110X = Hlookup2112((Sexported_bindingsS), arg2_1058X, key_1057X);
     arg0K0 = v_1110X;
-    goto L33575;}}
- L33523: {
+    goto L33576;}
+  else {
+    v_1111X = Hlookup2093((Simported_bindingsS), arg2_1058X, key_1057X);
+    arg0K0 = v_1111X;
+    goto L33576;}}
+ L33524: {
   push_exception_continuationB(5, 1);
-  *((long *) (SstackS)) = arg2_1057X;
+  *((long *) (SstackS)) = arg2_1058X;
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = (SvalS);
   SstackS = ((SstackS) + -4);
   arg0K0 = 2;
-  goto L16678;}
- L12893: {
-  i_1111X = arg0K0;
-  h_1112X = arg0K1;
-  if ((i_1111X < n_1060X)) {
-    arg0K0 = (1 + i_1111X);
-    arg0K1 = (h_1112X + (((*((unsigned char *) ((((char *) (-3 + arg2_689X))) + i_1111X))))));
-    goto L12893;}
+  goto L16679;}
+ L12894: {
+  i_1112X = arg0K0;
+  h_1113X = arg0K1;
+  if ((i_1112X < n_1061X)) {
+    arg0K0 = (1 + i_1112X);
+    arg0K1 = (h_1113X + (((*((unsigned char *) ((((char *) (-3 + arg2_690X))) + i_1112X))))));
+    goto L12894;}
   else {
-    index_1113X = 1023 & h_1112X;
-    bucket_1114X = *((long *) ((((char *) (-3 + table_1059X))) + (((index_1113X)<<2))));
+    index_1114X = 1023 & h_1113X;
+    bucket_1115X = *((long *) ((((char *) (-3 + table_1060X))) + (((index_1114X)<<2))));
     arg0K0 = 1;
-    arg0K1 = bucket_1114X;
-    goto L12857;}}
- L27367: {
-  l_1115X = arg0K0;
-  i_1116X = arg0K1;
-  if ((i_1116X < 0)) {
-    SvalS = string_1063X;
+    arg0K1 = bucket_1115X;
+    goto L12858;}}
+ L27368: {
+  l_1116X = arg0K0;
+  i_1117X = arg0K1;
+  if ((i_1117X < 0)) {
+    SvalS = string_1064X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}
+    goto L18452;}
   else {
-    *((unsigned char *) ((((char *) (-3 + string_1063X))) + i_1116X)) = ((((((*((long *) (((char *) (-3 + l_1115X))))))>>8))));
-    arg0K0 = (*((long *) ((((char *) (-3 + l_1115X))) + 4)));
-    arg0K1 = (-1 + i_1116X);
-    goto L27367;}}
- L31122: {
-  y_1117X = arg0K0;
-  if ((y_1117X < (from_index_730X + count_732X))) {
-    goto L31155;}
+    *((unsigned char *) ((((char *) (-3 + string_1064X))) + i_1117X)) = ((((((*((long *) (((char *) (-3 + l_1116X))))))>>8))));
+    arg0K0 = (*((long *) ((((char *) (-3 + l_1116X))) + 4)));
+    arg0K1 = (-1 + i_1117X);
+    goto L27368;}}
+ L31123: {
+  y_1118X = arg0K0;
+  if ((y_1118X < (from_index_731X + count_733X))) {
+    goto L31156;}
   else {
-    if ((3 == (3 & arg3_727X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_727X))) + -4))))>>2))))) {
-        arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_727X))) + -4))))>>8)));
-        goto L31137;}
+    if ((3 == (3 & arg3_728X))) {
+      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>2))))) {
+        arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>8)));
+        goto L31138;}
       else {
-        goto L31133;}}
+        goto L31134;}}
     else {
-      goto L31133;}}}
- L31118: {
-  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_729X))) + -4))))>>8));
-  goto L31122;}
- L11705: {
-  v_1118X = arg3K0;
-  ps_write_string(v_1118X, out_741X);
-  goto L29591;}
- L11671: {
-  if ((3 == (3 & thing_941X))) {
-    if ((1 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) {
-      arg3K0 = (((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + thing_941X))))))))));
-      goto L11705;}
+      goto L31134;}}}
+ L31119: {
+  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_730X))) + -4))))>>8));
+  goto L31123;}
+ L11706: {
+  v_1119X = arg3K0;
+  ps_write_string(v_1119X, out_742X);
+  goto L29592;}
+ L11672: {
+  if ((3 == (3 & thing_942X))) {
+    if ((1 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
+      arg3K0 = (((char *)(((char *) (-3 + (*((long *) (((char *) (-3 + thing_942X))))))))));
+      goto L11706;}
     else {
-      goto L11679;}}
+      goto L11680;}}
   else {
-    goto L11679;}}
- L21074: {
+    goto L11680;}}
+ L21075: {
   arg0K0 = (SenvS);
-  goto L20984;}
- L20998: {
-  value_1119X = arg0K0;
-  SvalS = value_1119X;
+  goto L20985;}
+ L20999: {
+  value_1120X = arg0K0;
+  SvalS = value_1120X;
   Scode_pointerS = ((Scode_pointerS) + 4);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L20897: {
-  env_1120X = arg0K0;
-  i_1121X = arg0K1;
-  if ((0 == i_1121X)) {
-    count_1122X = *((unsigned char *) ((Scode_pointerS) + (2 + offset_1072X)));
-    arg0K0 = count_1122X;
-    arg0K1 = i_1071X;
-    arg0K2 = (2 + offset_1072X);
-    goto L20818;}
+  goto L18452;}
+ L20898: {
+  env_1121X = arg0K0;
+  i_1122X = arg0K1;
+  if ((0 == i_1122X)) {
+    count_1123X = *((unsigned char *) ((Scode_pointerS) + (2 + offset_1073X)));
+    arg0K0 = count_1123X;
+    arg0K1 = i_1072X;
+    arg0K2 = (2 + offset_1073X);
+    goto L20819;}
   else {
-    arg0K0 = (*((long *) (((char *) (-3 + env_1120X)))));
-    arg0K1 = (-1 + i_1121X);
-    goto L20897;}}
- L16931: {
-  arg_count_1123X = arg0K0;
-  obj_1124X = Sinterrupt_handlersS;
-  if ((3 == (3 & obj_1124X))) {
-    if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_1124X))) + -4))))>>2))))) {
-      goto L16945;}
+    arg0K0 = (*((long *) (((char *) (-3 + env_1121X)))));
+    arg0K1 = (-1 + i_1122X);
+    goto L20898;}}
+ L16932: {
+  arg_count_1124X = arg0K0;
+  obj_1125X = Sinterrupt_handlersS;
+  if ((3 == (3 & obj_1125X))) {
+    if ((2 == (31 & ((((*((long *) ((((char *) (-3 + obj_1125X))) + -4))))>>2))))) {
+      goto L16946;}
     else {
-      goto L17025;}}
+      goto L17026;}}
   else {
-    goto L17025;}}
- L8376: {
-  channel_1125X = arg0K0;
-  x_1126X = 1 == (Spending_channels_headS);
-  if (x_1126X) {
-    goto L8390;}
+    goto L17026;}}
+ L8377: {
+  channel_1126X = arg0K0;
+  x_1127X = 1 == (Spending_channels_headS);
+  if (x_1127X) {
+    goto L8391;}
   else {
     Spending_interruptsS = (8 | (Spending_interruptsS));
     if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
       s48_Spending_interruptPS = 0;
       if ((s48_Spending_eventsPS)) {
         s48_Spending_interruptPS = 1;
-        goto L8390;}
+        goto L8391;}
       else {
-        goto L8390;}}
+        goto L8391;}}
     else {
       s48_Spending_interruptPS = 1;
-      goto L8390;}}}
- L15987: {
-  stack_slots_1127X = arg0K0;
-  stack_arg_count_1128X = arg0K1;
-  if ((stack_slots_1127X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15989;}
+      goto L8391;}}}
+ L15988: {
+  stack_slots_1128X = arg0K0;
+  stack_arg_count_1129X = arg0K1;
+  if ((stack_slots_1128X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
+    goto L15990;}
   else {
-    space_1129X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
-    v_1130X = AVAILABLEp(space_1129X);
-    if (v_1130X) {
+    space_1130X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
+    v_1131X = AVAILABLEp(space_1130X);
+    if (v_1131X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L16046;}
+      goto L16047;}
     else {
-      collect_saving_temps(1, 1, &temp1_1131X);
-      v_1132X = AVAILABLEp(space_1129X);
-      if (v_1132X) {
+      collect_saving_temps(1, 1, &temp1_1132X);
+      v_1133X = AVAILABLEp(space_1130X);
+      if (v_1133X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L16046;}
+        goto L16047;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L16046;}}}}
- L16407: {
-  final_stack_arg_count_1133X = arg0K0;
-  if ((stack_arg_count_787X < final_stack_arg_count_1133X)) {
-    arg0K0 = final_stack_arg_count_1133X;
-    goto L16411;}
+        goto L16047;}}}}
+ L16408: {
+  final_stack_arg_count_1134X = arg0K0;
+  if ((stack_arg_count_788X < final_stack_arg_count_1134X)) {
+    arg0K0 = final_stack_arg_count_1134X;
+    goto L16412;}
   else {
-    arg0K0 = stack_arg_count_787X;
-    goto L16411;}}
- L28574: {
+    arg0K0 = stack_arg_count_788X;
+    goto L16412;}}
+ L28575: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28773: {
+  goto L18452;}
+ L28774: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L28972: {
+  goto L18452;}
+ L28973: {
   SvalS = 1;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L6860: {
-  if ((536870911 < c_985X)) {
+  goto L18452;}
+ L6861: {
+  if ((536870911 < c_986X)) {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_467X;
+    *((long *) (SstackS)) = arg2_468X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = x_468X;
+    *((long *) (SstackS)) = x_469X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}
+    goto L16679;}
   else {
-    SvalS = (((c_985X)<<2));
+    SvalS = (((c_986X)<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L6867: {
-  if ((536870912 < c_985X)) {
+    goto L18452;}}
+ L6868: {
+  if ((536870912 < c_986X)) {
     push_exception_continuationB(5, 1);
-    *((long *) (SstackS)) = arg2_467X;
+    *((long *) (SstackS)) = arg2_468X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = x_468X;
+    *((long *) (SstackS)) = x_469X;
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}
+    goto L16679;}
   else {
-    SvalS = ((((0 - c_985X))<<2));
+    SvalS = ((((0 - c_986X))<<2));
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L24550: {
-  val_1134X = arg0K0;
-  SvalS = val_1134X;
+    goto L18452;}}
+ L24551: {
+  val_1135X = arg0K0;
+  SvalS = val_1135X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L13330: {
-  arg0K0 = (*((long *) ((((char *) (-3 + foo_1093X))) + 4)));
-  goto L13314;}
- L26614: {
-  index_1135X = arg0K0;
-  channel_1136X = make_registered_channel(mode_1005X, arg2_1004X, index_1135X, key_1003X, &reason_1137X);
-  if ((1 == channel_1136X)) {
-    if ((3 == (3 & arg2_1004X))) {
-      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1004X))) + -4))))>>2))))) {
-        if ((1 == mode_1005X)) {
-          goto L26729;}
+  goto L18452;}
+ L13331: {
+  arg0K0 = (*((long *) ((((char *) (-3 + foo_1094X))) + 4)));
+  goto L13315;}
+ L26615: {
+  index_1136X = arg0K0;
+  channel_1137X = make_registered_channel(mode_1006X, arg2_1005X, index_1136X, key_1004X, &reason_1138X);
+  if ((1 == channel_1137X)) {
+    if ((3 == (3 & arg2_1005X))) {
+      if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg2_1005X))) + -4))))>>2))))) {
+        if ((1 == mode_1006X)) {
+          goto L26730;}
         else {
-          if ((3 == mode_1005X)) {
-            goto L26729;}
+          if ((3 == mode_1006X)) {
+            goto L26730;}
           else {
-            v_1138X = ps_close_fd(index_1135X);
-            arg0K0 = v_1138X;
-            goto L26724;}}}
+            v_1139X = ps_close_fd(index_1136X);
+            arg0K0 = v_1139X;
+            goto L26725;}}}
       else {
-        push_exception_continuationB(reason_1137X, 1);
-        *((long *) (SstackS)) = arg2_1004X;
+        push_exception_continuationB(reason_1138X, 1);
+        *((long *) (SstackS)) = arg2_1005X;
         SstackS = ((SstackS) + -4);
-        *((long *) (SstackS)) = (((mode_1005X)<<2));
+        *((long *) (SstackS)) = (((mode_1006X)<<2));
         SstackS = ((SstackS) + -4);
         arg0K0 = 2;
-        goto L16678;}}
+        goto L16679;}}
     else {
-      push_exception_continuationB(reason_1137X, 1);
-      *((long *) (SstackS)) = arg2_1004X;
+      push_exception_continuationB(reason_1138X, 1);
+      *((long *) (SstackS)) = arg2_1005X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((mode_1005X)<<2));
+      *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}}
+      goto L16679;}}
   else {
-    SvalS = channel_1136X;
+    SvalS = channel_1137X;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L26672: {
-  v_1139X = ps_open_fd((((char *)(((char *) (-3 + arg2_1004X))))), 1, &v_1140X);
-  arg0K0 = v_1139X;
-  arg0K1 = v_1140X;
-  goto L26685;}
- L26685: {
-  channel_1141X = arg0K0;
-  status_1142X = arg0K1;
-  if ((status_1142X == NO_ERRORS)) {
-    arg0K0 = channel_1141X;
-    goto L26614;}
+    goto L18452;}}
+ L26673: {
+  v_1140X = ps_open_fd((((char *)(((char *) (-3 + arg2_1005X))))), 1, &v_1141X);
+  arg0K0 = v_1140X;
+  arg0K1 = v_1141X;
+  goto L26686;}
+ L26686: {
+  channel_1142X = arg0K0;
+  status_1143X = arg0K1;
+  if ((status_1143X == NO_ERRORS)) {
+    arg0K0 = channel_1142X;
+    goto L26615;}
   else {
-    if ((status_1142X == ENOENT)) {
+    if ((status_1143X == ENOENT)) {
       push_exception_continuationB(10, 1);
-      *((long *) (SstackS)) = arg2_1004X;
+      *((long *) (SstackS)) = arg2_1005X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((mode_1005X)<<2));
+      *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
       arg0K0 = 2;
-      goto L16678;}
+      goto L16679;}
     else {
       push_exception_continuationB(25, 1);
-      *((long *) (SstackS)) = arg2_1004X;
+      *((long *) (SstackS)) = arg2_1005X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((mode_1005X)<<2));
+      *((long *) (SstackS)) = (((mode_1006X)<<2));
       SstackS = ((SstackS) + -4);
-      merged_arg0K0 = status_1142X;
-      merged_arg0K1 = key_1003X;
+      merged_arg0K0 = status_1143X;
+      merged_arg0K1 = key_1004X;
       get_error_string_return_tag = 3;
       goto get_error_string;
      get_error_string_return_3:
-      x_1143X = get_error_string0_return_value;
-      *((long *) (SstackS)) = x_1143X;
+      x_1144X = get_error_string0_return_value;
+      *((long *) (SstackS)) = x_1144X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 3;
-      goto L16678;}}}
- L37531: {
-  waitP_1144X = arg2K0;
-  start_1145X = ((arg4_1014X)>>2);
-  count_1146X = ((arg3_1013X)>>2);
-  if ((4 == (*((long *) (((char *) (-3 + x_1102X))))))) {
-    if ((3 == (3 & arg5_1015X))) {
-      if ((0 == (128 & (*((long *) ((((char *) (-3 + arg5_1015X))) + -4)))))) {
-        if ((3 == (3 & arg5_1015X))) {
-          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>2))))) {
-            goto L36667;}
+      goto L16679;}}}
+ L37532: {
+  waitP_1145X = arg2K0;
+  start_1146X = ((arg4_1015X)>>2);
+  count_1147X = ((arg3_1014X)>>2);
+  if ((4 == (*((long *) (((char *) (-3 + x_1103X))))))) {
+    if ((3 == (3 & arg5_1016X))) {
+      if ((0 == (128 & (*((long *) ((((char *) (-3 + arg5_1016X))) + -4)))))) {
+        if ((3 == (3 & arg5_1016X))) {
+          if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
+            goto L36668;}
           else {
-            goto L36659;}}
+            goto L36660;}}
         else {
-          goto L36659;}}
+          goto L36660;}}
       else {
         arg0K0 = 5;
-        goto L36550;}}
+        goto L36551;}}
     else {
       arg0K0 = 5;
-      goto L36550;}}
+      goto L36551;}}
   else {
     arg0K0 = 5;
-    goto L36550;}}
- L37077: {
-  length_1147X = arg0K0;
-  if ((length_1147X < (start_1021X + count_1022X))) {
+    goto L36551;}}
+ L37078: {
+  length_1148X = arg0K0;
+  if ((length_1148X < (start_1022X + count_1023X))) {
     arg0K0 = 7;
-    goto L36948;}
+    goto L36949;}
   else {
-    got_1148X = ps_write_fd(((((*((long *) ((((char *) (-3 + channel_1023X))) + 8))))>>2)), ((((char *) (-3 + arg4_1019X))) + start_1021X), count_1022X, &pendingP_1149X, &status_1150X);
-    if ((status_1150X == NO_ERRORS)) {
-      if (pendingP_1149X) {
-        addr_1151X = (((char *) (-3 + channel_1023X))) + 16;
-        S48_WRITE_BARRIER(channel_1023X, addr_1151X, 5);
-        *((long *) addr_1151X) = 5;
+    got_1149X = ps_write_fd(((((*((long *) ((((char *) (-3 + channel_1024X))) + 8))))>>2)), ((((char *) (-3 + arg4_1020X))) + start_1022X), count_1023X, &pendingP_1150X, &status_1151X);
+    if ((status_1151X == NO_ERRORS)) {
+      if (pendingP_1150X) {
+        addr_1152X = (((char *) (-3 + channel_1024X))) + 16;
+        S48_WRITE_BARRIER(channel_1024X, addr_1152X, 5);
+        *((long *) addr_1152X) = 5;
         s48_Spending_interruptPS = 0;
         Senabled_interruptsS = 0;
         arg0K0 = 13;
-        goto L36948;}
+        goto L36949;}
       else {
-        SvalS = (((got_1148X)<<2));
+        SvalS = (((got_1149X)<<2));
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}}
+        goto L18452;}}
     else {
       push_exception_continuationB(25, 1);
-      *((long *) (SstackS)) = arg4_1019X;
+      *((long *) (SstackS)) = arg4_1020X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((start_1021X)<<2));
+      *((long *) (SstackS)) = (((start_1022X)<<2));
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((count_1022X)<<2));
+      *((long *) (SstackS)) = (((count_1023X)<<2));
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = channel_1023X;
+      *((long *) (SstackS)) = channel_1024X;
       SstackS = ((SstackS) + -4);
-      merged_arg0K0 = status_1150X;
-      merged_arg0K1 = key_1016X;
+      merged_arg0K0 = status_1151X;
+      merged_arg0K1 = key_1017X;
       get_error_string_return_tag = 4;
       goto get_error_string;
      get_error_string_return_4:
-      x_1152X = get_error_string0_return_value;
-      *((long *) (SstackS)) = x_1152X;
+      x_1153X = get_error_string0_return_value;
+      *((long *) (SstackS)) = x_1153X;
       SstackS = ((SstackS) + -4);
       arg0K0 = 5;
-      goto L16678;}}}
- L37073: {
-  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1019X))) + -4))))>>8));
-  goto L37077;}
- L33575: {
-  val_1153X = arg0K0;
-  SvalS = val_1153X;
+      goto L16679;}}}
+ L37074: {
+  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg4_1020X))) + -4))))>>8));
+  goto L37078;}
+ L33576: {
+  val_1154X = arg0K0;
+  SvalS = val_1154X;
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L12857: {
-  previous_foo_1154X = arg0K0;
-  foo_1155X = arg0K1;
-  if ((1 == foo_1155X)) {
-    goto L23961;}
+  goto L18452;}
+ L12858: {
+  previous_foo_1155X = arg0K0;
+  foo_1156X = arg0K1;
+  if ((1 == foo_1156X)) {
+    goto L23962;}
   else {
-    s2_1156X = *((long *) (((char *) (-3 + foo_1155X))));
-    len_1157X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_689X))) + -4))))>>8);
-    if ((len_1157X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1156X))) + -4))))>>8)))) {
-      if (((!memcmp((void *)(((char *) (-3 + s2_1156X))), (void *)(((char *) (-3 + arg2_689X))),len_1157X)))) {
-        if ((1 == previous_foo_1154X)) {
-          value_1158X = *((long *) ((((char *) (-3 + foo_1155X))) + 12));
-          addr_1159X = (((char *) (-3 + table_1059X))) + (((index_1113X)<<2));
-          S48_WRITE_BARRIER(table_1059X, addr_1159X, value_1158X);
-          *((long *) addr_1159X) = value_1158X;
-          goto L23961;}
+    s2_1157X = *((long *) (((char *) (-3 + foo_1156X))));
+    len_1158X = (long)(((unsigned long)(*((long *) ((((char *) (-3 + arg2_690X))) + -4))))>>8);
+    if ((len_1158X == ((long)(((unsigned long)(*((long *) ((((char *) (-3 + s2_1157X))) + -4))))>>8)))) {
+      if (((!memcmp((void *)(((char *) (-3 + s2_1157X))), (void *)(((char *) (-3 + arg2_690X))),len_1158X)))) {
+        if ((1 == previous_foo_1155X)) {
+          value_1159X = *((long *) ((((char *) (-3 + foo_1156X))) + 12));
+          addr_1160X = (((char *) (-3 + table_1060X))) + (((index_1114X)<<2));
+          S48_WRITE_BARRIER(table_1060X, addr_1160X, value_1159X);
+          *((long *) addr_1160X) = value_1159X;
+          goto L23962;}
         else {
-          val_1160X = *((long *) ((((char *) (-3 + foo_1155X))) + 12));
-          addr_1161X = (((char *) (-3 + previous_foo_1154X))) + 12;
-          S48_WRITE_BARRIER(previous_foo_1154X, addr_1161X, val_1160X);
-          *((long *) addr_1161X) = val_1160X;
-          goto L23961;}}
+          val_1161X = *((long *) ((((char *) (-3 + foo_1156X))) + 12));
+          addr_1162X = (((char *) (-3 + previous_foo_1155X))) + 12;
+          S48_WRITE_BARRIER(previous_foo_1155X, addr_1162X, val_1161X);
+          *((long *) addr_1162X) = val_1161X;
+          goto L23962;}}
       else {
-        goto L12919;}}
+        goto L12920;}}
     else {
-      goto L12919;}}}
- L31137: {
-  y_1162X = arg0K0;
-  if ((y_1162X < (to_index_731X + count_732X))) {
-    goto L31155;}
+      goto L12920;}}}
+ L31138: {
+  y_1163X = arg0K0;
+  if ((y_1163X < (to_index_732X + count_733X))) {
+    goto L31156;}
   else {
-    memcpy((void *)((((char *) (-3 + arg3_727X))) + to_index_731X), (void *)((((char *) (-3 + arg5_729X))) + from_index_730X),count_732X);
+    memcpy((void *)((((char *) (-3 + arg3_728X))) + to_index_732X), (void *)((((char *) (-3 + arg5_730X))) + from_index_731X),count_733X);
     SvalS = 13;
     Scode_pointerS = ((Scode_pointerS) + 1);
     arg1K0 = (Scode_pointerS);
-    goto L18451;}}
- L31133: {
-  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_727X))) + -4))))>>8));
-  goto L31137;}
- L11679: {
-  if ((1 == thing_941X)) {
-    goto L11682;}
+    goto L18452;}}
+ L31134: {
+  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg3_728X))) + -4))))>>8));
+  goto L31138;}
+ L11680: {
+  if ((1 == thing_942X)) {
+    goto L11683;}
   else {
-    if ((5 == thing_941X)) {
-      goto L11682;}
+    if ((5 == thing_942X)) {
+      goto L11683;}
     else {
-      if ((25 == thing_941X)) {
+      if ((25 == thing_942X)) {
         arg3K0 = "()";
-        goto L11705;}
+        goto L11706;}
       else {
-        if ((3 == (3 & thing_941X))) {
-          if ((0 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) {
+        if ((3 == (3 & thing_942X))) {
+          if ((0 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
             arg3K0 = "(...)";
-            goto L11705;}
+            goto L11706;}
           else {
-            goto L11695;}}
+            goto L11696;}}
         else {
-          goto L11695;}}}}}
- L20818: {
-  count_1163X = arg0K0;
-  i_1164X = arg0K1;
-  offset_1165X = arg0K2;
-  if ((0 == count_1163X)) {
-    arg0K0 = i_1164X;
-    arg0K1 = offset_1165X;
-    arg0K2 = env_1120X;
-    goto L20801;}
+          goto L11696;}}}}}
+ L20819: {
+  count_1164X = arg0K0;
+  i_1165X = arg0K1;
+  offset_1166X = arg0K2;
+  if ((0 == count_1164X)) {
+    arg0K0 = i_1165X;
+    arg0K1 = offset_1166X;
+    arg0K2 = env_1121X;
+    goto L20802;}
   else {
-    value_1166X = *((long *) ((((char *) (-3 + env_1120X))) + ((((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1165X)))))<<2))));
-    addr_1167X = (((char *) (-3 + new_env_765X))) + (((i_1164X)<<2));
-    S48_WRITE_BARRIER(new_env_765X, addr_1167X, value_1166X);
-    *((long *) addr_1167X) = value_1166X;
-    arg0K0 = (-1 + count_1163X);
-    arg0K1 = (1 + i_1164X);
-    arg0K2 = (1 + offset_1165X);
-    goto L20818;}}
- L16945: {
+    value_1167X = *((long *) ((((char *) (-3 + env_1121X))) + ((((*((unsigned char *) ((Scode_pointerS) + (1 + offset_1166X)))))<<2))));
+    addr_1168X = (((char *) (-3 + new_env_766X))) + (((i_1165X)<<2));
+    S48_WRITE_BARRIER(new_env_766X, addr_1168X, value_1167X);
+    *((long *) addr_1168X) = value_1167X;
+    arg0K0 = (-1 + count_1164X);
+    arg0K1 = (1 + i_1165X);
+    arg0K2 = (1 + offset_1166X);
+    goto L20819;}}
+ L16946: {
   Senabled_interruptsS = 0;
   if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
     s48_Spending_interruptPS = 0;
     if ((s48_Spending_eventsPS)) {
       s48_Spending_interruptPS = 1;
-      goto L16947;}
+      goto L16948;}
     else {
-      goto L16947;}}
+      goto L16948;}}
   else {
     s48_Spending_interruptPS = 1;
-    goto L16947;}}
- L17025: {
+    goto L16948;}}
+ L17026: {
   ps_error("interrupt handler is not a vector", 0);
-  goto L16945;}
- L8390: {
-  *((long *) (SstackS)) = channel_1125X;
+  goto L16946;}
+ L8391: {
+  *((long *) (SstackS)) = channel_1126X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + channel_1125X))) + 16)));
+  *((long *) (SstackS)) = (*((long *) ((((char *) (-3 + channel_1126X))) + 16)));
   SstackS = ((SstackS) + -4);
   *((long *) (SstackS)) = ((((Senabled_interruptsS))<<2));
   SstackS = ((SstackS) + -4);
   arg0K0 = 3;
-  goto L16931;}
- L15989: {
+  goto L16932;}
+ L15990: {
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
       check_events_return_tag = 3;
       goto check_events;
      check_events_return_3:
-      v_1168X = check_events0_return_value;
-      if (v_1168X) {
-        arg0K0 = stack_arg_count_1128X;
-        goto L16907;}
+      v_1169X = check_events0_return_value;
+      if (v_1169X) {
+        arg0K0 = stack_arg_count_1129X;
+        goto L16908;}
       else {
-        goto L15993;}}
+        goto L15994;}}
     else {
-      arg0K0 = stack_arg_count_1128X;
-      goto L16907;}}
+      arg0K0 = stack_arg_count_1129X;
+      goto L16908;}}
   else {
-    goto L15993;}}
- L16046: {
-  okayP_1169X = arg2K0;
-  key_1170X = arg0K1;
-  if (okayP_1169X) {
-    arg0K0 = key_1170X;
-    goto L16000;}
+    goto L15994;}}
+ L16047: {
+  okayP_1170X = arg2K0;
+  key_1171X = arg0K1;
+  if (okayP_1170X) {
+    arg0K0 = key_1171X;
+    goto L16001;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_1170X;
-    goto L16000;}}
- L16411: {
-  v_1171X = arg0K0;
-  merged_arg0K0 = v_1171X;
-  merged_arg0K1 = stack_arg_count_787X;
-  merged_arg0K2 = list_args_788X;
-  merged_arg0K3 = list_arg_count_789X;
+    arg0K0 = key_1171X;
+    goto L16001;}}
+ L16412: {
+  v_1172X = arg0K0;
+  merged_arg0K0 = v_1172X;
+  merged_arg0K1 = stack_arg_count_788X;
+  merged_arg0K2 = list_args_789X;
+  merged_arg0K3 = list_arg_count_790X;
   rest_list_setup_return_tag = 2;
   goto rest_list_setup;
  rest_list_setup_return_2:
-  *((long *) (SstackS)) = (((final_stack_arg_count_1133X)<<2));
+  *((long *) (SstackS)) = (((final_stack_arg_count_1134X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((total_arg_count_793X)<<2));
+  *((long *) (SstackS)) = (((total_arg_count_794X)<<2));
   SstackS = ((SstackS) + -4);
-  arg0K0 = skip_1088X;
-  arg0K1 = (3 + final_stack_arg_count_1133X);
-  goto L16374;}
- L26729: {
-  v_1172X = ps_close_fd(index_1135X);
-  arg0K0 = v_1172X;
-  goto L26724;}
- L26724: {
-  status_1173X = arg0K0;
-  if ((status_1173X == NO_ERRORS)) {
-    push_exception_continuationB(reason_1137X, 1);
-    *((long *) (SstackS)) = arg2_1004X;
+  arg0K0 = skip_1089X;
+  arg0K1 = (3 + final_stack_arg_count_1134X);
+  goto L16375;}
+ L26730: {
+  v_1173X = ps_close_fd(index_1136X);
+  arg0K0 = v_1173X;
+  goto L26725;}
+ L26725: {
+  status_1174X = arg0K0;
+  if ((status_1174X == NO_ERRORS)) {
+    push_exception_continuationB(reason_1138X, 1);
+    *((long *) (SstackS)) = arg2_1005X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = (((mode_1005X)<<2));
+    *((long *) (SstackS)) = (((mode_1006X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}
+    goto L16679;}
   else {
-    channel_close_error(status_1173X, index_1135X, arg2_1004X);
-    push_exception_continuationB(reason_1137X, 1);
-    *((long *) (SstackS)) = arg2_1004X;
+    channel_close_error(status_1174X, index_1136X, arg2_1005X);
+    push_exception_continuationB(reason_1138X, 1);
+    *((long *) (SstackS)) = arg2_1005X;
     SstackS = ((SstackS) + -4);
-    *((long *) (SstackS)) = (((mode_1005X)<<2));
+    *((long *) (SstackS)) = (((mode_1006X)<<2));
     SstackS = ((SstackS) + -4);
     arg0K0 = 2;
-    goto L16678;}}
- L36667: {
-  if ((3 == (3 & arg5_1015X))) {
-    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>2))))) {
-      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>8)));
-      goto L36679;}
+    goto L16679;}}
+ L36668: {
+  if ((3 == (3 & arg5_1016X))) {
+    if ((16 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
+      arg0K0 = (-1 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>8)));
+      goto L36680;}
     else {
-      goto L36675;}}
+      goto L36676;}}
   else {
-    goto L36675;}}
- L36659: {
-  if ((3 == (3 & arg5_1015X))) {
-    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>2))))) {
-      goto L36667;}
+    goto L36676;}}
+ L36660: {
+  if ((3 == (3 & arg5_1016X))) {
+    if ((17 == (31 & ((((*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>2))))) {
+      goto L36668;}
     else {
       arg0K0 = 5;
-      goto L36550;}}
+      goto L36551;}}
   else {
     arg0K0 = 5;
-    goto L36550;}}
- L36550: {
-  reason_1174X = arg0K0;
-  push_exception_continuationB(reason_1174X, 1);
-  *((long *) (SstackS)) = arg5_1015X;
+    goto L36551;}}
+ L36551: {
+  reason_1175X = arg0K0;
+  push_exception_continuationB(reason_1175X, 1);
+  *((long *) (SstackS)) = arg5_1016X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((start_1145X)<<2));
+  *((long *) (SstackS)) = (((start_1146X)<<2));
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = (((count_1146X)<<2));
+  *((long *) (SstackS)) = (((count_1147X)<<2));
   SstackS = ((SstackS) + -4);
-  if (waitP_1144X) {
+  if (waitP_1145X) {
     arg0K0 = 5;
-    goto L36565;}
+    goto L36566;}
   else {
     arg0K0 = 1;
-    goto L36565;}}
- L23961: {
+    goto L36566;}}
+ L23962: {
   Scode_pointerS = ((Scode_pointerS) + 1);
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L12919: {
-  arg0K0 = foo_1155X;
-  arg0K1 = (*((long *) ((((char *) (-3 + foo_1155X))) + 12)));
-  goto L12857;}
- L11682: {
-  if ((1 == thing_941X)) {
+  goto L18452;}
+ L12920: {
+  arg0K0 = foo_1156X;
+  arg0K1 = (*((long *) ((((char *) (-3 + foo_1156X))) + 12)));
+  goto L12858;}
+ L11683: {
+  if ((1 == thing_942X)) {
     arg3K0 = "#f";
-    goto L11705;}
+    goto L11706;}
   else {
     arg3K0 = "#t";
-    goto L11705;}}
- L11695: {
-  if ((3 == (3 & thing_941X))) {
-    if ((2 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) {
+    goto L11706;}}
+ L11696: {
+  if ((3 == (3 & thing_942X))) {
+    if ((2 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
       arg3K0 = "#(...)";
-      goto L11705;}
+      goto L11706;}
     else {
-      goto L11699;}}
+      goto L11700;}}
   else {
-    goto L11699;}}
- L16947: {
-  SvalS = (*((long *) ((((char *) (-3 + (Sinterrupt_handlersS)))) + (((i_1076X)<<2)))));
-  obj_1175X = SvalS;
-  if ((3 == (3 & obj_1175X))) {
-    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_1175X))) + -4))))>>2))))) {
-      goto L16964;}
+    goto L11700;}}
+ L16948: {
+  SvalS = (*((long *) ((((char *) (-3 + (Sinterrupt_handlersS)))) + (((i_1077X)<<2)))));
+  obj_1176X = SvalS;
+  if ((3 == (3 & obj_1176X))) {
+    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + obj_1176X))) + -4))))>>2))))) {
+      goto L16965;}
     else {
-      goto L17050;}}
+      goto L17051;}}
   else {
-    goto L17050;}}
- L15993: {
+    goto L17051;}}
+ L15994: {
   arg1K0 = (Scode_pointerS);
-  goto L18451;}
- L16000: {
-  v_1176X = arg0K0;
-  merged_arg0K0 = v_1176X;
+  goto L18452;}
+ L16001: {
+  v_1177X = arg0K0;
+  merged_arg0K0 = v_1177X;
   copy_stack_into_heap_return_tag = 3;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_3:
-  if ((stack_slots_1127X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15989;}
+  if ((stack_slots_1128X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
+    goto L15990;}
   else {
     ps_error("VM's stack is too small (how can this happen?)", 0);
-    goto L15989;}}
- L36679: {
-  length_1177X = arg0K0;
-  if ((length_1177X < (start_1145X + count_1146X))) {
+    goto L15990;}}
+ L36680: {
+  length_1178X = arg0K0;
+  if ((length_1178X < (start_1146X + count_1147X))) {
     arg0K0 = 7;
-    goto L36550;}
+    goto L36551;}
   else {
-    got_1178X = ps_read_fd(((((*((long *) ((((char *) (-3 + x_1102X))) + 8))))>>2)), ((((char *) (-3 + arg5_1015X))) + start_1145X), count_1146X, waitP_1144X, &eofP_1179X, &pendingP_1180X, &status_1181X);
-    if ((status_1181X == NO_ERRORS)) {
-      if (eofP_1179X) {
+    got_1179X = ps_read_fd(((((*((long *) ((((char *) (-3 + x_1103X))) + 8))))>>2)), ((((char *) (-3 + arg5_1016X))) + start_1146X), count_1147X, waitP_1145X, &eofP_1180X, &pendingP_1181X, &status_1182X);
+    if ((status_1182X == NO_ERRORS)) {
+      if (eofP_1180X) {
         SvalS = 21;
         Scode_pointerS = ((Scode_pointerS) + 1);
         arg1K0 = (Scode_pointerS);
-        goto L18451;}
+        goto L18452;}
       else {
-        if (pendingP_1180X) {
-          addr_1182X = (((char *) (-3 + x_1102X))) + 16;
-          S48_WRITE_BARRIER(x_1102X, addr_1182X, 5);
-          *((long *) addr_1182X) = 5;
+        if (pendingP_1181X) {
+          addr_1183X = (((char *) (-3 + x_1103X))) + 16;
+          S48_WRITE_BARRIER(x_1103X, addr_1183X, 5);
+          *((long *) addr_1183X) = 5;
           s48_Spending_interruptPS = 0;
           Senabled_interruptsS = 0;
           arg0K0 = 13;
-          goto L36550;}
+          goto L36551;}
         else {
-          SvalS = (((got_1178X)<<2));
+          SvalS = (((got_1179X)<<2));
           Scode_pointerS = ((Scode_pointerS) + 1);
           arg1K0 = (Scode_pointerS);
-          goto L18451;}}}
+          goto L18452;}}}
     else {
       push_exception_continuationB(25, 1);
-      *((long *) (SstackS)) = arg5_1015X;
+      *((long *) (SstackS)) = arg5_1016X;
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((start_1145X)<<2));
+      *((long *) (SstackS)) = (((start_1146X)<<2));
       SstackS = ((SstackS) + -4);
-      *((long *) (SstackS)) = (((count_1146X)<<2));
+      *((long *) (SstackS)) = (((count_1147X)<<2));
       SstackS = ((SstackS) + -4);
-      if (waitP_1144X) {
+      if (waitP_1145X) {
         arg0K0 = 5;
-        goto L36602;}
+        goto L36603;}
       else {
         arg0K0 = 1;
-        goto L36602;}}}}
- L36675: {
-  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1015X))) + -4))))>>8));
-  goto L36679;}
- L36565: {
-  x_1183X = arg0K0;
-  *((long *) (SstackS)) = x_1183X;
-  SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = x_1102X;
-  SstackS = ((SstackS) + -4);
-  arg0K0 = 5;
-  goto L16678;}
- L11699: {
-  if ((3 == (3 & thing_941X))) {
-    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + thing_941X))) + -4))))>>2))))) {
-      arg3K0 = "#{procedure}";
-      goto L11705;}
-    else {
-      arg3K0 = "???";
-      goto L11705;}}
-  else {
-    arg3K0 = "???";
-    goto L11705;}}
- L16964: {
-  StemplateS = (SvalS);
-  Slosing_opcodeS = (0 - i_1076X);
-  arg0K0 = arg_count_1123X;
-  goto L16079;}
- L17050: {
-  ps_error("interrupt handler is not a closure", 1, i_1076X);
-  goto L16964;}
- L36602: {
+        goto L36603;}}}}
+ L36676: {
+  arg0K0 = ((long)(((unsigned long)(*((long *) ((((char *) (-3 + arg5_1016X))) + -4))))>>8));
+  goto L36680;}
+ L36566: {
   x_1184X = arg0K0;
   *((long *) (SstackS)) = x_1184X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = x_1102X;
+  *((long *) (SstackS)) = x_1103X;
   SstackS = ((SstackS) + -4);
-  merged_arg0K0 = status_1181X;
-  merged_arg0K1 = key_1011X;
+  arg0K0 = 5;
+  goto L16679;}
+ L11700: {
+  if ((3 == (3 & thing_942X))) {
+    if ((3 == (31 & ((((*((long *) ((((char *) (-3 + thing_942X))) + -4))))>>2))))) {
+      arg3K0 = "#{procedure}";
+      goto L11706;}
+    else {
+      arg3K0 = "???";
+      goto L11706;}}
+  else {
+    arg3K0 = "???";
+    goto L11706;}}
+ L16965: {
+  StemplateS = (SvalS);
+  Slosing_opcodeS = (0 - i_1077X);
+  arg0K0 = arg_count_1124X;
+  goto L16080;}
+ L17051: {
+  ps_error("interrupt handler is not a closure", 1, i_1077X);
+  goto L16965;}
+ L36603: {
+  x_1185X = arg0K0;
+  *((long *) (SstackS)) = x_1185X;
+  SstackS = ((SstackS) + -4);
+  *((long *) (SstackS)) = x_1103X;
+  SstackS = ((SstackS) + -4);
+  merged_arg0K0 = status_1182X;
+  merged_arg0K1 = key_1012X;
   get_error_string_return_tag = 5;
   goto get_error_string;
  get_error_string_return_5:
-  x_1185X = get_error_string0_return_value;
-  *((long *) (SstackS)) = x_1185X;
+  x_1186X = get_error_string0_return_value;
+  *((long *) (SstackS)) = x_1186X;
   SstackS = ((SstackS) + -4);
   arg0K0 = 6;
-  goto L16678;}
+  goto L16679;}
  loseD0: {
-  message_369X = merged_arg3K0;{
-  why_1186X = (((*((long *) ((SstackS) + (4 + (((nargs_742X)<<2)))))))>>2);
+  message_370X = merged_arg3K0;{
+  why_1187X = (((*((long *) ((SstackS) + (4 + (((nargs_743X)<<2)))))))>>2);
   ps_write_string("Template UIDs: ", (stderr));
-  current_template_1187X = StemplateS;
-  out_1188X = stderr;
-  if ((0 == (3 & (*((long *) ((((char *) (-3 + current_template_1187X))) + 4)))))) {
-    if ((current_template_1187X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) {
+  current_template_1188X = StemplateS;
+  out_1189X = stderr;
+  if ((0 == (3 & (*((long *) ((((char *) (-3 + current_template_1188X))) + 4)))))) {
+    if ((current_template_1188X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) {
       arg2K0 = 0;
-      goto L10530;}
+      goto L10531;}
     else {
-      ps_write_integer(((((*((long *) ((((char *) (-3 + current_template_1187X))) + 4))))>>2)), out_1188X);
+      ps_write_integer(((((*((long *) ((((char *) (-3 + current_template_1188X))) + 4))))>>2)), out_1189X);
       arg2K0 = 1;
-      goto L10530;}}
+      goto L10531;}}
   else {
     arg2K0 = 0;
-    goto L10530;}}
- L10530: {
-  not_firstP_1189X = arg2K0;
+    goto L10531;}}
+ L10531: {
+  not_firstP_1190X = arg2K0;
   arg0K0 = (ScontS);
-  arg2K1 = not_firstP_1189X;
-  goto L10537;}
- L10537: {
-  cont_1190X = arg0K0;
-  not_firstP_1191X = arg2K1;
-  if ((3 == (3 & cont_1190X))) {
-    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_1190X))) + -4))))>>2))))) {
-      template_1192X = *((long *) ((((char *) (-3 + cont_1190X))) + 8));
-      if ((0 == (3 & (*((long *) ((((char *) (-3 + template_1192X))) + 4)))))) {
-        if ((template_1192X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) {
-          arg2K0 = not_firstP_1191X;
-          goto L10546;}
+  arg2K1 = not_firstP_1190X;
+  goto L10538;}
+ L10538: {
+  cont_1191X = arg0K0;
+  not_firstP_1192X = arg2K1;
+  if ((3 == (3 & cont_1191X))) {
+    if ((9 == (31 & ((((*((long *) ((((char *) (-3 + cont_1191X))) + -4))))>>2))))) {
+      template_1193X = *((long *) ((((char *) (-3 + cont_1191X))) + 8));
+      if ((0 == (3 & (*((long *) ((((char *) (-3 + template_1193X))) + 4)))))) {
+        if ((template_1193X == (*((long *) ((((char *) (-3 + (Sbottom_of_stackS)))) + 8))))) {
+          arg2K0 = not_firstP_1192X;
+          goto L10547;}
         else {
-          if (not_firstP_1191X) {
-            ps_write_string(" <- ", out_1188X);
-            goto L10585;}
+          if (not_firstP_1192X) {
+            ps_write_string(" <- ", out_1189X);
+            goto L10586;}
           else {
-            goto L10585;}}}
+            goto L10586;}}}
       else {
-        arg2K0 = not_firstP_1191X;
-        goto L10546;}}
+        arg2K0 = not_firstP_1192X;
+        goto L10547;}}
     else {
-      goto L16697;}}
+      goto L16698;}}
   else {
-    goto L16697;}}
- L10546: {
-  v_1193X = arg2K0;
-  arg0K0 = (*((long *) (((char *) (-3 + cont_1190X)))));
-  arg2K1 = v_1193X;
-  goto L10537;}
- L10585: {
-  ps_write_integer(((((*((long *) ((((char *) (-3 + template_1192X))) + 4))))>>2)), out_1188X);
+    goto L16698;}}
+ L10547: {
+  v_1194X = arg2K0;
+  arg0K0 = (*((long *) (((char *) (-3 + cont_1191X)))));
+  arg2K1 = v_1194X;
+  goto L10538;}
+ L10586: {
+  ps_write_integer(((((*((long *) ((((char *) (-3 + template_1193X))) + 4))))>>2)), out_1189X);
   arg2K0 = 1;
-  goto L10546;}
- L16697: {
+  goto L10547;}
+ L16698: {
   { long ignoreXX;
   PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-  if ((why_1186X == 1)) {
-    if ((0 == (3 & (*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_742X)<<2))))))))))))) {
-      ps_error(message_369X, 3, opcode_743X, why_1186X, ((((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_742X)<<2)))))))))))>>2)));
+  if ((why_1187X == 1)) {
+    if ((0 == (3 & (*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_743X)<<2))))))))))))) {
+      ps_error(message_370X, 3, opcode_744X, why_1187X, ((((*((long *) (((char *) (-3 + (*((long *) ((SstackS) + (((nargs_743X)<<2)))))))))))>>2)));
       goto loseD0_return;}
     else {
-      goto L16721;}}
+      goto L16722;}}
   else {
-    goto L16721;}}
- L16721: {
-  ps_error(message_369X, 2, opcode_743X, why_1186X);
+    goto L16722;}}
+ L16722: {
+  ps_error(message_370X, 2, opcode_744X, why_1187X);
   goto loseD0_return;}
  loseD0_return:
   switch (loseD0_return_tag) {
@@ -9594,71 +9595,71 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  check_events: {
-{ goto L40005;}
- L40005: {
-  type_1194X = s48_get_next_event(&channel_1195X, &status_1196X);
-  if ((type_1194X == ALARM_EVENT)) {
+{ goto L40006;}
+ L40006: {
+  type_1195X = s48_get_next_event(&channel_1196X, &status_1197X);
+  if ((type_1195X == ALARM_EVENT)) {
     if ((1 == (Sinterrupted_templateS))) {
       Sinterrupted_templateS = (StemplateS);
       arg0K0 = 1;
-      goto L15882;}
+      goto L15883;}
     else {
       arg0K0 = 1;
-      goto L15882;}}
+      goto L15883;}}
   else {
-    if ((type_1194X == KEYBOARD_INTERRUPT_EVENT)) {
+    if ((type_1195X == KEYBOARD_INTERRUPT_EVENT)) {
       arg0K0 = 2;
-      goto L15882;}
+      goto L15883;}
     else {
-      if ((type_1194X == IO_COMPLETION_EVENT)) {
-        enqueue_channelB(channel_1195X, status_1196X);
+      if ((type_1195X == IO_COMPLETION_EVENT)) {
+        enqueue_channelB(channel_1196X, status_1197X);
         arg0K0 = 8;
-        goto L15882;}
+        goto L15883;}
       else {
-        if ((type_1194X == OS_SIGNAL_EVENT)) {
+        if ((type_1195X == OS_SIGNAL_EVENT)) {
           arg0K0 = 16;
-          goto L15882;}
+          goto L15883;}
         else {
-          if ((type_1194X == NO_EVENT)) {
+          if ((type_1195X == NO_EVENT)) {
             arg0K0 = 0;
-            goto L15882;}
+            goto L15883;}
           else {
-            if ((type_1194X == ERROR_EVENT)) {
+            if ((type_1195X == ERROR_EVENT)) {
               ps_write_string("OS error while getting event", (stderr));
               { long ignoreXX;
               PS_WRITE_CHAR(10, (stderr), ignoreXX) }
-              ps_write_string((ps_error_string(status_1196X)), (stderr));
+              ps_write_string((ps_error_string(status_1197X)), (stderr));
               { long ignoreXX;
               PS_WRITE_CHAR(10, (stderr), ignoreXX) }
               arg0K0 = 0;
-              goto L15882;}
+              goto L15883;}
             else {
               ps_write_string("unknown type of event", (stderr));
               { long ignoreXX;
               PS_WRITE_CHAR(10, (stderr), ignoreXX) }
               arg0K0 = 0;
-              goto L15882;}}}}}}}
- L15882: {
-  v_1197X = arg0K0;
-  Spending_interruptsS = (v_1197X | (Spending_interruptsS));
-  if ((type_1194X == NO_EVENT)) {
+              goto L15883;}}}}}}}
+ L15883: {
+  v_1198X = arg0K0;
+  Spending_interruptsS = (v_1198X | (Spending_interruptsS));
+  if ((type_1195X == NO_EVENT)) {
     if ((0 == ((Spending_interruptsS) & (Senabled_interruptsS)))) {
       s48_Spending_interruptPS = 0;
       if ((s48_Spending_eventsPS)) {
         s48_Spending_interruptPS = 1;
-        goto L15909;}
+        goto L15910;}
       else {
-        goto L15909;}}
+        goto L15910;}}
     else {
       s48_Spending_interruptPS = 1;
-      goto L15909;}}
+      goto L15910;}}
   else {
-    goto L40005;}}
- L15909: {
+    goto L40006;}}
+ L15910: {
   if ((s48_Spending_interruptPS)) {
     if ((s48_Spending_eventsPS)) {
       s48_Spending_eventsPS = 0;
-      goto L40005;}
+      goto L40006;}
     else {
       check_events0_return_value = 1;
       goto check_events_return;}}
@@ -9674,52 +9675,52 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  rest_list_setup: {
-  wants_stack_args_365X = merged_arg0K0;
-  stack_arg_count_366X = merged_arg0K1;
-  list_args_367X = merged_arg0K2;
-  list_arg_count_368X = merged_arg0K3;{
-  if ((stack_arg_count_366X == wants_stack_args_365X)) {
-    merged_arg0K0 = list_args_367X;
-    merged_arg0K1 = list_arg_count_368X;
+  wants_stack_args_366X = merged_arg0K0;
+  stack_arg_count_367X = merged_arg0K1;
+  list_args_368X = merged_arg0K2;
+  list_arg_count_369X = merged_arg0K3;{
+  if ((stack_arg_count_367X == wants_stack_args_366X)) {
+    merged_arg0K0 = list_args_368X;
+    merged_arg0K1 = list_arg_count_369X;
     copy_listS_return_tag = 1;
     goto copy_listS;
    copy_listS_return_1:
-    x_1198X = copy_listS0_return_value;
-    *((long *) (SstackS)) = x_1198X;
+    x_1199X = copy_listS0_return_value;
+    *((long *) (SstackS)) = x_1199X;
     SstackS = ((SstackS) + -4);
     goto rest_list_setup_return;}
   else {
-    if ((stack_arg_count_366X < wants_stack_args_365X)) {
-      count_1199X = wants_stack_args_365X - stack_arg_count_366X;
-      merged_arg0K0 = list_args_367X;
-      merged_arg0K1 = count_1199X;
+    if ((stack_arg_count_367X < wants_stack_args_366X)) {
+      count_1200X = wants_stack_args_366X - stack_arg_count_367X;
+      merged_arg0K0 = list_args_368X;
+      merged_arg0K1 = count_1200X;
       push_list_return_tag = 3;
       goto push_list;
      push_list_return_3:
-      v_1200X = push_list0_return_value;
-      merged_arg0K0 = v_1200X;
-      merged_arg0K1 = (list_arg_count_368X - count_1199X);
+      v_1201X = push_list0_return_value;
+      merged_arg0K0 = v_1201X;
+      merged_arg0K1 = (list_arg_count_369X - count_1200X);
       copy_listS_return_tag = 2;
       goto copy_listS;
      copy_listS_return_2:
-      x_1201X = copy_listS0_return_value;
-      *((long *) (SstackS)) = x_1201X;
+      x_1202X = copy_listS0_return_value;
+      *((long *) (SstackS)) = x_1202X;
       SstackS = ((SstackS) + -4);
       goto rest_list_setup_return;}
     else {
-      merged_arg0K0 = list_args_367X;
-      merged_arg0K1 = list_arg_count_368X;
+      merged_arg0K0 = list_args_368X;
+      merged_arg0K1 = list_arg_count_369X;
       copy_listS_return_tag = 3;
       goto copy_listS;
      copy_listS_return_3:
-      v_1202X = copy_listS0_return_value;
-      merged_arg0K0 = v_1202X;
-      merged_arg0K1 = (stack_arg_count_366X - wants_stack_args_365X);
+      v_1203X = copy_listS0_return_value;
+      merged_arg0K0 = v_1203X;
+      merged_arg0K1 = (stack_arg_count_367X - wants_stack_args_366X);
       pop_args_GlistS_return_tag = 5;
       goto pop_args_GlistS;
      pop_args_GlistS_return_5:
-      x_1203X = pop_args_GlistS0_return_value;
-      *((long *) (SstackS)) = x_1203X;
+      x_1204X = pop_args_GlistS0_return_value;
+      *((long *) (SstackS)) = x_1204X;
       SstackS = ((SstackS) + -4);
       goto rest_list_setup_return;}}}
  rest_list_setup_return:
@@ -9730,69 +9731,69 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  push_list: {
-  list_363X = merged_arg0K0;
-  count_364X = merged_arg0K1;{
-  *((long *) (SstackS)) = list_363X;
+  list_364X = merged_arg0K0;
+  count_365X = merged_arg0K1;{
+  *((long *) (SstackS)) = list_364X;
   SstackS = ((SstackS) + -4);
-  if ((count_364X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15298;}
+  if ((count_365X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
+    goto L15299;}
   else {
-    space_1204X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
-    v_1205X = AVAILABLEp(space_1204X);
-    if (v_1205X) {
+    space_1205X = 1 + (((((Sstack_endS) - (SstackS)))>>2));
+    v_1206X = AVAILABLEp(space_1205X);
+    if (v_1206X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L15382;}
+      goto L15383;}
     else {
-      collect_saving_temps(1, 1, &temp1_1206X);
-      v_1207X = AVAILABLEp(space_1204X);
-      if (v_1207X) {
+      collect_saving_temps(1, 1, &temp1_1207X);
+      v_1208X = AVAILABLEp(space_1205X);
+      if (v_1208X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L15382;}
+        goto L15383;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L15382;}}}}
- L15298: {
+        goto L15383;}}}}
+ L15299: {
   SstackS = ((SstackS) + 4);
-  list_1208X = *((long *) (SstackS));
-  arg0K0 = count_364X;
-  arg0K1 = list_1208X;
-  goto L15307;}
- L15382: {
-  okayP_1209X = arg2K0;
-  key_1210X = arg0K1;
-  if (okayP_1209X) {
-    arg0K0 = key_1210X;
-    goto L15333;}
+  list_1209X = *((long *) (SstackS));
+  arg0K0 = count_365X;
+  arg0K1 = list_1209X;
+  goto L15308;}
+ L15383: {
+  okayP_1210X = arg2K0;
+  key_1211X = arg0K1;
+  if (okayP_1210X) {
+    arg0K0 = key_1211X;
+    goto L15334;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_1210X;
-    goto L15333;}}
- L15307: {
-  i_1211X = arg0K0;
-  l_1212X = arg0K1;
-  if ((0 < i_1211X)) {
-    *((long *) (SstackS)) = (*((long *) (((char *) (-3 + l_1212X)))));
+    arg0K0 = key_1211X;
+    goto L15334;}}
+ L15308: {
+  i_1212X = arg0K0;
+  l_1213X = arg0K1;
+  if ((0 < i_1212X)) {
+    *((long *) (SstackS)) = (*((long *) (((char *) (-3 + l_1213X)))));
     SstackS = ((SstackS) + -4);
-    arg0K0 = (-1 + i_1211X);
-    arg0K1 = (*((long *) ((((char *) (-3 + l_1212X))) + 4)));
-    goto L15307;}
+    arg0K0 = (-1 + i_1212X);
+    arg0K1 = (*((long *) ((((char *) (-3 + l_1213X))) + 4)));
+    goto L15308;}
   else {
-    push_list0_return_value = l_1212X;
+    push_list0_return_value = l_1213X;
     goto push_list_return;}}
- L15333: {
-  v_1213X = arg0K0;
-  merged_arg0K0 = v_1213X;
+ L15334: {
+  v_1214X = arg0K0;
+  merged_arg0K0 = v_1214X;
   copy_stack_into_heap_return_tag = 4;
   goto copy_stack_into_heap;
  copy_stack_into_heap_return_4:
-  if ((count_364X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
-    goto L15298;}
+  if ((count_365X < (64 + (((((SstackS) - (Sstack_limitS)))>>2))))) {
+    goto L15299;}
   else {
     ps_error("VM's stack is too small (how can this happen?)", 0);
-    goto L15298;}}
+    goto L15299;}}
  push_list_return:
   switch (push_list_return_tag) {
   case 0: goto push_list_return_0;
@@ -9802,51 +9803,51 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  copy_stack_into_heap: {
-  key_362X = merged_arg0K0;{
+  key_363X = merged_arg0K0;{
   arg1K0 = ((SstackS) + 4);
   arg0K1 = 0;
-  goto L13527;}
- L13527: {
-  p_1214X = arg1K0;
-  i_1215X = arg0K1;
-  if ((2 == (3 & (*((long *) p_1214X))))) {
-    if ((22 == (*((long *) p_1214X)))) {
-      arg0K0 = (-1 + i_1215X);
-      goto L13514;}
+  goto L13528;}
+ L13528: {
+  p_1215X = arg1K0;
+  i_1216X = arg0K1;
+  if ((2 == (3 & (*((long *) p_1215X))))) {
+    if ((22 == (*((long *) p_1215X)))) {
+      arg0K0 = (-1 + i_1216X);
+      goto L13515;}
     else {
-      arg0K0 = i_1215X;
-      goto L13514;}}
+      arg0K0 = i_1216X;
+      goto L13515;}}
   else {
-    arg1K0 = (p_1214X + 4);
-    arg0K1 = (1 + i_1215X);
-    goto L13527;}}
- L13514: {
-  arg_count_1216X = arg0K0;
-  top_1217X = SstackS;
+    arg1K0 = (p_1215X + 4);
+    arg0K1 = (1 + i_1216X);
+    goto L13528;}}
+ L13515: {
+  arg_count_1217X = arg0K0;
+  top_1218X = SstackS;
   if ((1 == (ScontS))) {
-    goto L13519;}
+    goto L13520;}
   else {
-    merged_arg0K0 = key_362X;
+    merged_arg0K0 = key_363X;
     merged_arg0K1 = 1;
     really_preserve_continuation_return_tag = 1;
     goto really_preserve_continuation;
    really_preserve_continuation_return_1:
-    goto L13519;}}
- L13519: {
-  stob_1218X = ScontS;
-  arg1K0 = ((((char *) (-3 + stob_1218X))) + -8);
-  arg1K1 = (top_1217X + (((arg_count_1216X)<<2)));
-  goto L13552;}
- L13552: {
-  loc_1219X = arg1K0;
-  arg_1220X = arg1K1;
-  if ((top_1217X < arg_1220X)) {
-    *((long *) loc_1219X) = (*((long *) arg_1220X));
-    arg1K0 = (loc_1219X + -4);
-    arg1K1 = (arg_1220X + -4);
-    goto L13552;}
+    goto L13520;}}
+ L13520: {
+  stob_1219X = ScontS;
+  arg1K0 = ((((char *) (-3 + stob_1219X))) + -8);
+  arg1K1 = (top_1218X + (((arg_count_1217X)<<2)));
+  goto L13553;}
+ L13553: {
+  loc_1220X = arg1K0;
+  arg_1221X = arg1K1;
+  if ((top_1218X < arg_1221X)) {
+    *((long *) loc_1220X) = (*((long *) arg_1221X));
+    arg1K0 = (loc_1220X + -4);
+    arg1K1 = (arg_1221X + -4);
+    goto L13553;}
   else {
-    SstackS = loc_1219X;
+    SstackS = loc_1220X;
     goto copy_stack_into_heap_return;}}
  copy_stack_into_heap_return:
   switch (copy_stack_into_heap_return_tag) {
@@ -9858,71 +9859,71 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  really_preserve_continuation: {
-  key_360X = merged_arg0K0;
-  reason_361X = merged_arg0K1;{
-  p_1221X = SenvS;
-  if ((3 == (3 & p_1221X))) {
-    if ((p_1221X < (((long) (Sstack_beginS))))) {
-      goto L12703;}
+  key_361X = merged_arg0K0;
+  reason_362X = merged_arg0K1;{
+  p_1222X = SenvS;
+  if ((3 == (3 & p_1222X))) {
+    if ((p_1222X < (((long) (Sstack_beginS))))) {
+      goto L12704;}
     else {
-      if (((((long) (Sstack_endS))) < p_1221X)) {
-        goto L12703;}
+      if (((((long) (Sstack_endS))) < p_1222X)) {
+        goto L12704;}
       else {
         merged_arg0K0 = (SenvS);
         merged_arg0K1 = (ScontS);
-        merged_arg0K2 = key_360X;
-        merged_arg0K3 = reason_361X;
+        merged_arg0K2 = key_361X;
+        merged_arg0K3 = reason_362X;
         save_env_in_heap_return_tag = 1;
         goto save_env_in_heap;
        save_env_in_heap_return_1:
-        v_1222X = save_env_in_heap0_return_value;
-        SenvS = v_1222X;
-        goto L12703;}}}
+        v_1223X = save_env_in_heap0_return_value;
+        SenvS = v_1223X;
+        goto L12704;}}}
   else {
-    goto L12703;}}
- L12703: {
-  end_1223X = *((long *) (((char *) (-3 + (Sbottom_of_stackS)))));
+    goto L12704;}}
+ L12704: {
+  end_1224X = *((long *) (((char *) (-3 + (Sbottom_of_stackS)))));
   arg0K0 = (ScontS);
   arg0K1 = (Sbottom_of_stackS);
-  goto L12656;}
- L12656: {
-  cont_1224X = arg0K0;
-  previous_1225X = arg0K1;
-  if ((cont_1224X == (Sbottom_of_stackS))) {
-    *((long *) (((char *) (-3 + previous_1225X)))) = end_1223X;
+  goto L12657;}
+ L12657: {
+  cont_1225X = arg0K0;
+  previous_1226X = arg0K1;
+  if ((cont_1225X == (Sbottom_of_stackS))) {
+    *((long *) (((char *) (-3 + previous_1226X)))) = end_1224X;
     ScontS = (Sbottom_of_stackS);
     really_preserve_continuation0_return_value = (*((long *) (((char *) (-3 + (Sbottom_of_stackS))))));
     goto really_preserve_continuation_return;}
   else {
-    p_1226X = *((long *) ((((char *) (-3 + cont_1224X))) + 12));
-    if ((3 == (3 & p_1226X))) {
-      if ((p_1226X < (((long) (Sstack_beginS))))) {
-        goto L12674;}
+    p_1227X = *((long *) ((((char *) (-3 + cont_1225X))) + 12));
+    if ((3 == (3 & p_1227X))) {
+      if ((p_1227X < (((long) (Sstack_beginS))))) {
+        goto L12675;}
       else {
-        if (((((long) (Sstack_endS))) < p_1226X)) {
-          goto L12674;}
+        if (((((long) (Sstack_endS))) < p_1227X)) {
+          goto L12675;}
         else {
-          merged_arg0K0 = (*((long *) ((((char *) (-3 + cont_1224X))) + 12)));
-          merged_arg0K1 = cont_1224X;
-          merged_arg0K2 = key_360X;
-          merged_arg0K3 = reason_361X;
+          merged_arg0K0 = (*((long *) ((((char *) (-3 + cont_1225X))) + 12)));
+          merged_arg0K1 = cont_1225X;
+          merged_arg0K2 = key_361X;
+          merged_arg0K3 = reason_362X;
           save_env_in_heap_return_tag = 2;
           goto save_env_in_heap;
          save_env_in_heap_return_2:
-          goto L12674;}}}
+          goto L12675;}}}
     else {
-      goto L12674;}}}
- L12674: {
-  header_1227X = *((long *) ((((char *) (-3 + cont_1224X))) + -4));
-  addr_1228X = ALLOCATE_SPACE((31 & (((header_1227X)>>2))), (4 + ((long)(((unsigned long)header_1227X)>>8))));
-  data_addr_1229X = addr_1228X + 4;
-  *((long *) addr_1228X) = header_1227X;
-  memcpy((void *)data_addr_1229X, (void *)(((char *) (-3 + cont_1224X))),((long)(((unsigned long)header_1227X)>>8)));
-  new_1230X = 3 + (((long) data_addr_1229X));
-  *((long *) (((char *) (-3 + previous_1225X)))) = new_1230X;
-  arg0K0 = (*((long *) (((char *) (-3 + new_1230X)))));
-  arg0K1 = new_1230X;
-  goto L12656;}
+      goto L12675;}}}
+ L12675: {
+  header_1228X = *((long *) ((((char *) (-3 + cont_1225X))) + -4));
+  addr_1229X = ALLOCATE_SPACE((31 & (((header_1228X)>>2))), (4 + ((long)(((unsigned long)header_1228X)>>8))));
+  data_addr_1230X = addr_1229X + 4;
+  *((long *) addr_1229X) = header_1228X;
+  memcpy((void *)data_addr_1230X, (void *)(((char *) (-3 + cont_1225X))),((long)(((unsigned long)header_1228X)>>8)));
+  new_1231X = 3 + (((long) data_addr_1230X));
+  *((long *) (((char *) (-3 + previous_1226X)))) = new_1231X;
+  arg0K0 = (*((long *) (((char *) (-3 + new_1231X)))));
+  arg0K1 = new_1231X;
+  goto L12657;}
  really_preserve_continuation_return:
   switch (really_preserve_continuation_return_tag) {
   case 0: goto really_preserve_continuation_return_0;
@@ -9930,18 +9931,18 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  copy_env: {
-  env_359X = merged_arg0K0;{
-  header_1231X = *((long *) ((((char *) (-3 + env_359X))) + -4));
-  addr_1232X = ALLOCATE_SPACE((31 & (((header_1231X)>>2))), (4 + ((long)(((unsigned long)header_1231X)>>8))));
-  data_addr_1233X = addr_1232X + 4;
-  *((long *) addr_1232X) = header_1231X;
-  memcpy((void *)data_addr_1233X, (void *)(((char *) (-3 + env_359X))),((long)(((unsigned long)header_1231X)>>8)));
-  new_1234X = 3 + (((long) data_addr_1233X));
-  addr_1235X = ((char *) (-3 + env_359X));
-  S48_WRITE_BARRIER(env_359X, addr_1235X, 22);
-  *((long *) addr_1235X) = 22;
-  *((long *) ((((char *) (-3 + env_359X))) + -4)) = new_1234X;
-  copy_env0_return_value = new_1234X;
+  env_360X = merged_arg0K0;{
+  header_1232X = *((long *) ((((char *) (-3 + env_360X))) + -4));
+  addr_1233X = ALLOCATE_SPACE((31 & (((header_1232X)>>2))), (4 + ((long)(((unsigned long)header_1232X)>>8))));
+  data_addr_1234X = addr_1233X + 4;
+  *((long *) addr_1233X) = header_1232X;
+  memcpy((void *)data_addr_1234X, (void *)(((char *) (-3 + env_360X))),((long)(((unsigned long)header_1232X)>>8)));
+  new_1235X = 3 + (((long) data_addr_1234X));
+  addr_1236X = ((char *) (-3 + env_360X));
+  S48_WRITE_BARRIER(env_360X, addr_1236X, 22);
+  *((long *) addr_1236X) = 22;
+  *((long *) ((((char *) (-3 + env_360X))) + -4)) = new_1235X;
+  copy_env0_return_value = new_1235X;
   goto copy_env_return;}
  copy_env_return:
   switch (copy_env_return_tag) {
@@ -9950,59 +9951,59 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  save_env_in_heap: {
-  env_355X = merged_arg0K0;
-  cont_356X = merged_arg0K1;
-  key_357X = merged_arg0K2;
-  reason_358X = merged_arg0K3;{
-  merged_arg0K0 = env_355X;
-  merged_arg0K1 = key_357X;
-  merged_arg0K2 = reason_358X;
+  env_356X = merged_arg0K0;
+  cont_357X = merged_arg0K1;
+  key_358X = merged_arg0K2;
+  reason_359X = merged_arg0K3;{
+  merged_arg0K0 = env_356X;
+  merged_arg0K1 = key_358X;
+  merged_arg0K2 = reason_359X;
   copy_env_return_tag = 0;
   goto copy_env;
  copy_env_return_0:
-  top_1236X = copy_env0_return_value;
-  arg0K0 = top_1236X;
-  goto L11935;}
- L11935: {
-  env_1237X = arg0K0;
-  p_1238X = *((long *) (((char *) (-3 + env_1237X))));
-  if ((3 == (3 & p_1238X))) {
-    if ((p_1238X < (((long) (Sstack_beginS))))) {
-      goto L11954;}
+  top_1237X = copy_env0_return_value;
+  arg0K0 = top_1237X;
+  goto L11936;}
+ L11936: {
+  env_1238X = arg0K0;
+  p_1239X = *((long *) (((char *) (-3 + env_1238X))));
+  if ((3 == (3 & p_1239X))) {
+    if ((p_1239X < (((long) (Sstack_beginS))))) {
+      goto L11955;}
     else {
-      if (((((long) (Sstack_endS))) < p_1238X)) {
-        goto L11954;}
+      if (((((long) (Sstack_endS))) < p_1239X)) {
+        goto L11955;}
       else {
-        merged_arg0K0 = (*((long *) (((char *) (-3 + env_1237X)))));
-        merged_arg0K1 = key_357X;
-        merged_arg0K2 = reason_358X;
+        merged_arg0K0 = (*((long *) (((char *) (-3 + env_1238X)))));
+        merged_arg0K1 = key_358X;
+        merged_arg0K2 = reason_359X;
         copy_env_return_tag = 1;
         goto copy_env;
        copy_env_return_1:
-        new_1239X = copy_env0_return_value;
-        addr_1240X = ((char *) (-3 + env_1237X));
-        S48_WRITE_BARRIER(env_1237X, addr_1240X, new_1239X);
-        *((long *) addr_1240X) = new_1239X;
-        arg0K0 = new_1239X;
-        goto L11935;}}}
+        new_1240X = copy_env0_return_value;
+        addr_1241X = ((char *) (-3 + env_1238X));
+        S48_WRITE_BARRIER(env_1238X, addr_1241X, new_1240X);
+        *((long *) addr_1241X) = new_1240X;
+        arg0K0 = new_1240X;
+        goto L11936;}}}
   else {
-    goto L11954;}}
- L11954: {
-  arg0K0 = cont_356X;
-  goto L11958;}
- L11958: {
-  cont_1241X = arg0K0;
-  env_1242X = *((long *) ((((char *) (-3 + cont_1241X))) + 12));
-  if ((3 == (3 & env_1242X))) {
-    if ((3 == (3 & (*((long *) ((((char *) (-3 + env_1242X))) + -4)))))) {
-      *((long *) ((((char *) (-3 + cont_1241X))) + 12)) = (*((long *) ((((char *) (-3 + env_1242X))) + -4)));
-      arg0K0 = (*((long *) (((char *) (-3 + cont_1241X)))));
-      goto L11958;}
+    goto L11955;}}
+ L11955: {
+  arg0K0 = cont_357X;
+  goto L11959;}
+ L11959: {
+  cont_1242X = arg0K0;
+  env_1243X = *((long *) ((((char *) (-3 + cont_1242X))) + 12));
+  if ((3 == (3 & env_1243X))) {
+    if ((3 == (3 & (*((long *) ((((char *) (-3 + env_1243X))) + -4)))))) {
+      *((long *) ((((char *) (-3 + cont_1242X))) + 12)) = (*((long *) ((((char *) (-3 + env_1243X))) + -4)));
+      arg0K0 = (*((long *) (((char *) (-3 + cont_1242X)))));
+      goto L11959;}
     else {
-      save_env_in_heap0_return_value = top_1236X;
+      save_env_in_heap0_return_value = top_1237X;
       goto save_env_in_heap_return;}}
   else {
-    save_env_in_heap0_return_value = top_1236X;
+    save_env_in_heap0_return_value = top_1237X;
     goto save_env_in_heap_return;}}
  save_env_in_heap_return:
   switch (save_env_in_heap_return_tag) {
@@ -10012,57 +10013,57 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  pop_args_GlistS: {
-  start_353X = merged_arg0K0;
-  count_354X = merged_arg0K1;{
-  space_1243X = 3 * count_354X;
-  v_1244X = AVAILABLEp(space_1243X);
-  if (v_1244X) {
+  start_354X = merged_arg0K0;
+  count_355X = merged_arg0K1;{
+  space_1244X = 3 * count_355X;
+  v_1245X = AVAILABLEp(space_1244X);
+  if (v_1245X) {
     arg2K0 = 1;
-    arg0K1 = start_353X;
-    goto L14273;}
+    arg0K1 = start_354X;
+    goto L14274;}
   else {
-    temp0_1245X = collect_saving_temps(start_353X, 1, &temp1_1246X);
-    v_1247X = AVAILABLEp(space_1243X);
-    if (v_1247X) {
+    temp0_1246X = collect_saving_temps(start_354X, 1, &temp1_1247X);
+    v_1248X = AVAILABLEp(space_1244X);
+    if (v_1248X) {
       arg2K0 = 1;
-      arg0K1 = temp0_1245X;
-      goto L14273;}
+      arg0K1 = temp0_1246X;
+      goto L14274;}
     else {
       arg2K0 = 0;
-      arg0K1 = temp0_1245X;
-      goto L14273;}}}
- L14273: {
-  okayP_1248X = arg2K0;
-  temp_1249X = arg0K1;
-  if (okayP_1248X) {
-    arg0K0 = temp_1249X;
-    goto L14247;}
+      arg0K1 = temp0_1246X;
+      goto L14274;}}}
+ L14274: {
+  okayP_1249X = arg2K0;
+  temp_1250X = arg0K1;
+  if (okayP_1249X) {
+    arg0K0 = temp_1250X;
+    goto L14248;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = temp_1249X;
-    goto L14247;}}
- L14247: {
-  start_1250X = arg0K0;
-  arg0K0 = start_1250X;
-  arg0K1 = count_354X;
-  goto L14256;}
- L14256: {
-  args_1251X = arg0K0;
-  count_1252X = arg0K1;
-  if ((0 == count_1252X)) {
-    pop_args_GlistS0_return_value = args_1251X;
+    arg0K0 = temp_1250X;
+    goto L14248;}}
+ L14248: {
+  start_1251X = arg0K0;
+  arg0K0 = start_1251X;
+  arg0K1 = count_355X;
+  goto L14257;}
+ L14257: {
+  args_1252X = arg0K0;
+  count_1253X = arg0K1;
+  if ((0 == count_1253X)) {
+    pop_args_GlistS0_return_value = args_1252X;
     goto pop_args_GlistS_return;}
   else {
     SstackS = ((SstackS) + 4);
-    a_1253X = *((long *) (SstackS));
-    addr_1254X = ALLOCATE_SPACE(0, 12);
-    *((long *) addr_1254X) = 2050;
-    x_1255X = 3 + (((long) (addr_1254X + 4)));
-    *((long *) (((char *) (-3 + x_1255X)))) = a_1253X;
-    *((long *) ((((char *) (-3 + x_1255X))) + 4)) = args_1251X;
-    arg0K0 = x_1255X;
-    arg0K1 = (-1 + count_1252X);
-    goto L14256;}}
+    a_1254X = *((long *) (SstackS));
+    addr_1255X = ALLOCATE_SPACE(0, 12);
+    *((long *) addr_1255X) = 2050;
+    x_1256X = 3 + (((long) (addr_1255X + 4)));
+    *((long *) (((char *) (-3 + x_1256X)))) = a_1254X;
+    *((long *) ((((char *) (-3 + x_1256X))) + 4)) = args_1252X;
+    arg0K0 = x_1256X;
+    arg0K1 = (-1 + count_1253X);
+    goto L14257;}}
  pop_args_GlistS_return:
   switch (pop_args_GlistS_return_tag) {
   case 0: goto pop_args_GlistS_return_0;
@@ -10074,69 +10075,69 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  copy_listS: {
-  list_351X = merged_arg0K0;
-  length_352X = merged_arg0K1;{
-  if ((0 == length_352X)) {
+  list_352X = merged_arg0K0;
+  length_353X = merged_arg0K1;{
+  if ((0 == length_353X)) {
     copy_listS0_return_value = 25;
     goto copy_listS_return;}
   else {
-    space_1256X = 3 * length_352X;
-    v_1257X = AVAILABLEp(space_1256X);
-    if (v_1257X) {
+    space_1257X = 3 * length_353X;
+    v_1258X = AVAILABLEp(space_1257X);
+    if (v_1258X) {
       arg2K0 = 1;
-      arg0K1 = list_351X;
-      goto L14152;}
+      arg0K1 = list_352X;
+      goto L14153;}
     else {
-      temp0_1258X = collect_saving_temps(list_351X, 1, &temp1_1259X);
-      v_1260X = AVAILABLEp(space_1256X);
-      if (v_1260X) {
+      temp0_1259X = collect_saving_temps(list_352X, 1, &temp1_1260X);
+      v_1261X = AVAILABLEp(space_1257X);
+      if (v_1261X) {
         arg2K0 = 1;
-        arg0K1 = temp0_1258X;
-        goto L14152;}
+        arg0K1 = temp0_1259X;
+        goto L14153;}
       else {
         arg2K0 = 0;
-        arg0K1 = temp0_1258X;
-        goto L14152;}}}}
- L14152: {
-  okayP_1261X = arg2K0;
-  temp_1262X = arg0K1;
-  if (okayP_1261X) {
-    arg0K0 = temp_1262X;
-    goto L14110;}
+        arg0K1 = temp0_1259X;
+        goto L14153;}}}}
+ L14153: {
+  okayP_1262X = arg2K0;
+  temp_1263X = arg0K1;
+  if (okayP_1262X) {
+    arg0K0 = temp_1263X;
+    goto L14111;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = temp_1262X;
-    goto L14110;}}
- L14110: {
-  list_1263X = arg0K0;
-  a_1264X = *((long *) (((char *) (-3 + list_1263X))));
-  addr_1265X = ALLOCATE_SPACE(0, 12);
-  *((long *) addr_1265X) = 2050;
-  x_1266X = 3 + (((long) (addr_1265X + 4)));
-  *((long *) (((char *) (-3 + x_1266X)))) = a_1264X;
-  *((long *) ((((char *) (-3 + x_1266X))) + 4)) = 25;
-  arg0K0 = (*((long *) ((((char *) (-3 + list_1263X))) + 4)));
-  arg0K1 = x_1266X;
-  goto L14125;}
- L14125: {
-  l_1267X = arg0K0;
-  last_1268X = arg0K1;
-  if ((25 == l_1267X)) {
-    copy_listS0_return_value = x_1266X;
+    arg0K0 = temp_1263X;
+    goto L14111;}}
+ L14111: {
+  list_1264X = arg0K0;
+  a_1265X = *((long *) (((char *) (-3 + list_1264X))));
+  addr_1266X = ALLOCATE_SPACE(0, 12);
+  *((long *) addr_1266X) = 2050;
+  x_1267X = 3 + (((long) (addr_1266X + 4)));
+  *((long *) (((char *) (-3 + x_1267X)))) = a_1265X;
+  *((long *) ((((char *) (-3 + x_1267X))) + 4)) = 25;
+  arg0K0 = (*((long *) ((((char *) (-3 + list_1264X))) + 4)));
+  arg0K1 = x_1267X;
+  goto L14126;}
+ L14126: {
+  l_1268X = arg0K0;
+  last_1269X = arg0K1;
+  if ((25 == l_1268X)) {
+    copy_listS0_return_value = x_1267X;
     goto copy_listS_return;}
   else {
-    a_1269X = *((long *) (((char *) (-3 + l_1267X))));
-    addr_1270X = ALLOCATE_SPACE(0, 12);
-    *((long *) addr_1270X) = 2050;
-    x_1271X = 3 + (((long) (addr_1270X + 4)));
-    *((long *) (((char *) (-3 + x_1271X)))) = a_1269X;
-    *((long *) ((((char *) (-3 + x_1271X))) + 4)) = 25;
-    addr_1272X = (((char *) (-3 + last_1268X))) + 4;
-    S48_WRITE_BARRIER(last_1268X, addr_1272X, x_1271X);
-    *((long *) addr_1272X) = x_1271X;
-    arg0K0 = (*((long *) ((((char *) (-3 + l_1267X))) + 4)));
-    arg0K1 = x_1271X;
-    goto L14125;}}
+    a_1270X = *((long *) (((char *) (-3 + l_1268X))));
+    addr_1271X = ALLOCATE_SPACE(0, 12);
+    *((long *) addr_1271X) = 2050;
+    x_1272X = 3 + (((long) (addr_1271X + 4)));
+    *((long *) (((char *) (-3 + x_1272X)))) = a_1270X;
+    *((long *) ((((char *) (-3 + x_1272X))) + 4)) = 25;
+    addr_1273X = (((char *) (-3 + last_1269X))) + 4;
+    S48_WRITE_BARRIER(last_1269X, addr_1273X, x_1272X);
+    *((long *) addr_1273X) = x_1272X;
+    arg0K0 = (*((long *) ((((char *) (-3 + l_1268X))) + 4)));
+    arg0K1 = x_1272X;
+    goto L14126;}}
  copy_listS_return:
   switch (copy_listS_return_tag) {
   case 0: goto copy_listS_return_0;
@@ -10146,16 +10147,16 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  copy_continuation_from_heapB: {
-  cont_350X = merged_arg0K0;{
-  top_1273X = (((char *) (-3 + (Sbottom_of_stackS)))) + (-8 - (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_350X))) + -4))))>>8)))));
-  new_cont_1274X = 3 + (((long) (top_1273X + 4)));
-  SstackS = (top_1273X + -4);
-  ScontS = new_cont_1274X;
-  v_1275X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_350X))) + -4))))>>8))))>>2);
-  memcpy((void *)top_1273X, (void *)((((char *) (-3 + cont_350X))) + -4),(4 + (((v_1275X)<<2))));
-  *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = (*((long *) (((char *) (-3 + new_cont_1274X)))));
-  *((long *) (((char *) (-3 + new_cont_1274X)))) = (Sbottom_of_stackS);
-  copy_continuation_from_heapB0_return_value = new_cont_1274X;
+  cont_351X = merged_arg0K0;{
+  top_1274X = (((char *) (-3 + (Sbottom_of_stackS)))) + (-8 - (-4 & (3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_351X))) + -4))))>>8)))));
+  new_cont_1275X = 3 + (((long) (top_1274X + 4)));
+  SstackS = (top_1274X + -4);
+  ScontS = new_cont_1275X;
+  v_1276X = (((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + cont_351X))) + -4))))>>8))))>>2);
+  memcpy((void *)top_1274X, (void *)((((char *) (-3 + cont_351X))) + -4),(4 + (((v_1276X)<<2))));
+  *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = (*((long *) (((char *) (-3 + new_cont_1275X)))));
+  *((long *) (((char *) (-3 + new_cont_1275X)))) = (Sbottom_of_stackS);
+  copy_continuation_from_heapB0_return_value = new_cont_1275X;
   goto copy_continuation_from_heapB_return;}
  copy_continuation_from_heapB_return:
   switch (copy_continuation_from_heapB_return_tag) {
@@ -10164,60 +10165,60 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  get_current_port: {
-  marker_349X = merged_arg0K0;{
-  thread_1276X = Scurrent_threadS;
-  if ((3 == (3 & thread_1276X))) {
-    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thread_1276X))) + -4))))>>2))))) {
-      if ((1 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thread_1276X))) + -4))))>>8))))>>2)))) {
-        arg0K0 = (*((long *) ((((char *) (-3 + thread_1276X))) + 4)));
-        goto L10226;}
+  marker_350X = merged_arg0K0;{
+  thread_1277X = Scurrent_threadS;
+  if ((3 == (3 & thread_1277X))) {
+    if ((8 == (31 & ((((*((long *) ((((char *) (-3 + thread_1277X))) + -4))))>>2))))) {
+      if ((1 < ((((3 + ((long)(((unsigned long)(*((long *) ((((char *) (-3 + thread_1277X))) + -4))))>>8))))>>2)))) {
+        arg0K0 = (*((long *) ((((char *) (-3 + thread_1277X))) + 4)));
+        goto L10227;}
       else {
-        goto L10276;}}
+        goto L10277;}}
     else {
-      goto L10276;}}
+      goto L10277;}}
   else {
-    goto L10276;}}
- L10226: {
-  env_1277X = arg0K0;
-  if ((3 == (3 & env_1277X))) {
-    if ((0 == (31 & ((((*((long *) ((((char *) (-3 + env_1277X))) + -4))))>>2))))) {
-      obj_1278X = *((long *) (((char *) (-3 + env_1277X))));
-      if ((3 == (3 & obj_1278X))) {
-        if ((0 == (31 & ((((*((long *) ((((char *) (-3 + obj_1278X))) + -4))))>>2))))) {
-          if ((marker_349X == (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + env_1277X)))))))))))) {
-            get_current_port0_return_value = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + env_1277X)))))))) + 4)));
+    goto L10277;}}
+ L10227: {
+  env_1278X = arg0K0;
+  if ((3 == (3 & env_1278X))) {
+    if ((0 == (31 & ((((*((long *) ((((char *) (-3 + env_1278X))) + -4))))>>2))))) {
+      obj_1279X = *((long *) (((char *) (-3 + env_1278X))));
+      if ((3 == (3 & obj_1279X))) {
+        if ((0 == (31 & ((((*((long *) ((((char *) (-3 + obj_1279X))) + -4))))>>2))))) {
+          if ((marker_350X == (*((long *) (((char *) (-3 + (*((long *) (((char *) (-3 + env_1278X)))))))))))) {
+            get_current_port0_return_value = (*((long *) ((((char *) (-3 + (*((long *) (((char *) (-3 + env_1278X)))))))) + 4)));
             goto get_current_port_return;}
           else {
-            arg0K0 = (*((long *) ((((char *) (-3 + env_1277X))) + 4)));
-            goto L10226;}}
+            arg0K0 = (*((long *) ((((char *) (-3 + env_1278X))) + 4)));
+            goto L10227;}}
         else {
-          goto L10298;}}
+          goto L10299;}}
       else {
-        goto L10298;}}
+        goto L10299;}}
     else {
-      goto L10298;}}
+      goto L10299;}}
   else {
-    goto L10298;}}
- L10276: {
+    goto L10299;}}
+ L10277: {
   ps_error("current thread is not a record", 0);
-  get_current_port0_return_value = v_1279X;
+  get_current_port0_return_value = v_1280X;
   goto get_current_port_return;}
- L10298: {
-  if ((25 == env_1277X)) {
-    if (((((marker_349X)>>2)) == 1)) {
+ L10299: {
+  if ((25 == env_1278X)) {
+    if (((((marker_350X)>>2)) == 1)) {
       arg3K0 = "dynamic environment doesn't have current-output-port";
-      goto L10252;}
+      goto L10253;}
     else {
       arg3K0 = "dynamic environment doesn't have current-input-port";
-      goto L10252;}}
+      goto L10253;}}
   else {
     ps_error("dynamic environment is not a proper list", 0);
-    get_current_port0_return_value = v_1280X;
+    get_current_port0_return_value = v_1281X;
     goto get_current_port_return;}}
- L10252: {
-  v_1281X = arg3K0;
-  ps_error(v_1281X, 0);
-  get_current_port0_return_value = v_1282X;
+ L10253: {
+  v_1282X = arg3K0;
+  ps_error(v_1282X, 0);
+  get_current_port0_return_value = v_1283X;
   goto get_current_port_return;}
  get_current_port_return:
   switch (get_current_port_return_tag) {
@@ -10227,41 +10228,41 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  okay_argument_list: {
-  list_348X = merged_arg0K0;{
-  arg0K0 = list_348X;
+  list_349X = merged_arg0K0;{
+  arg0K0 = list_349X;
   arg0K1 = 0;
-  arg0K2 = list_348X;
+  arg0K2 = list_349X;
   arg2K3 = 0;
-  goto L10093;}
- L10093: {
-  fast_1283X = arg0K0;
-  len_1284X = arg0K1;
-  slow_1285X = arg0K2;
-  move_slowP_1286X = arg2K3;
-  if ((25 == fast_1283X)) {
+  goto L10094;}
+ L10094: {
+  fast_1284X = arg0K0;
+  len_1285X = arg0K1;
+  slow_1286X = arg0K2;
+  move_slowP_1287X = arg2K3;
+  if ((25 == fast_1284X)) {
     okay_argument_list0_return_value = 1;
-    okay_argument_list1_return_value = len_1284X;
+    okay_argument_list1_return_value = len_1285X;
     goto okay_argument_list_return;}
   else {
-    if ((3 == (3 & fast_1283X))) {
-      if ((0 == (31 & ((((*((long *) ((((char *) (-3 + fast_1283X))) + -4))))>>2))))) {
-        if (move_slowP_1286X) {
-          if ((fast_1283X == slow_1285X)) {
+    if ((3 == (3 & fast_1284X))) {
+      if ((0 == (31 & ((((*((long *) ((((char *) (-3 + fast_1284X))) + -4))))>>2))))) {
+        if (move_slowP_1287X) {
+          if ((fast_1284X == slow_1286X)) {
             okay_argument_list0_return_value = 0;
             okay_argument_list1_return_value = 0;
             goto okay_argument_list_return;}
           else {
-            arg0K0 = (*((long *) ((((char *) (-3 + fast_1283X))) + 4)));
-            arg0K1 = (1 + len_1284X);
-            arg0K2 = (*((long *) ((((char *) (-3 + slow_1285X))) + 4)));
+            arg0K0 = (*((long *) ((((char *) (-3 + fast_1284X))) + 4)));
+            arg0K1 = (1 + len_1285X);
+            arg0K2 = (*((long *) ((((char *) (-3 + slow_1286X))) + 4)));
             arg2K3 = 0;
-            goto L10093;}}
+            goto L10094;}}
         else {
-          arg0K0 = (*((long *) ((((char *) (-3 + fast_1283X))) + 4)));
-          arg0K1 = (1 + len_1284X);
-          arg0K2 = slow_1285X;
+          arg0K0 = (*((long *) ((((char *) (-3 + fast_1284X))) + 4)));
+          arg0K1 = (1 + len_1285X);
+          arg0K2 = slow_1286X;
           arg2K3 = 1;
-          goto L10093;}}
+          goto L10094;}}
       else {
         okay_argument_list0_return_value = 0;
         okay_argument_list1_return_value = 0;
@@ -10277,33 +10278,33 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  get_error_string: {
-  status_347X = merged_arg0K0;{
-  string_1287X = ps_error_string(status_347X);
-  x_1288X = strlen((char *) string_1287X);
-  if ((x_1288X < 256)) {
-    arg0K0 = x_1288X;
-    goto L9601;}
+  status_348X = merged_arg0K0;{
+  string_1288X = ps_error_string(status_348X);
+  x_1289X = strlen((char *) string_1288X);
+  if ((x_1289X < 256)) {
+    arg0K0 = x_1289X;
+    goto L9602;}
   else {
     arg0K0 = 256;
-    goto L9601;}}
- L9601: {
-  len_1289X = arg0K0;
-  len_1290X = 1 + len_1289X;
-  addr_1291X = ALLOCATE_SPACE(16, (4 + len_1290X));
-  *((long *) addr_1291X) = (66 + (((len_1290X)<<8)));
-  string_1292X = 3 + (((long) (addr_1291X + 4)));
-  *((unsigned char *) ((((char *) (-3 + string_1292X))) + len_1289X)) = 0;
+    goto L9602;}}
+ L9602: {
+  len_1290X = arg0K0;
+  len_1291X = 1 + len_1290X;
+  addr_1292X = ALLOCATE_SPACE(16, (4 + len_1291X));
+  *((long *) addr_1292X) = (66 + (((len_1291X)<<8)));
+  string_1293X = 3 + (((long) (addr_1292X + 4)));
+  *((unsigned char *) ((((char *) (-3 + string_1293X))) + len_1290X)) = 0;
   arg0K0 = 0;
-  goto L9611;}
- L9611: {
-  i_1293X = arg0K0;
-  if ((i_1293X == len_1289X)) {
-    get_error_string0_return_value = string_1292X;
+  goto L9612;}
+ L9612: {
+  i_1294X = arg0K0;
+  if ((i_1294X == len_1290X)) {
+    get_error_string0_return_value = string_1293X;
     goto get_error_string_return;}
   else {
-    *((unsigned char *) ((((char *) (-3 + string_1292X))) + i_1293X)) = ((*(string_1287X + i_1293X)));
-    arg0K0 = (1 + i_1293X);
-    goto L9611;}}
+    *((unsigned char *) ((((char *) (-3 + string_1293X))) + i_1294X)) = ((*(string_1288X + i_1294X)));
+    arg0K0 = (1 + i_1294X);
+    goto L9612;}}
  get_error_string_return:
   switch (get_error_string_return_tag) {
   case 0: goto get_error_string_return_0;
@@ -10315,14 +10316,14 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
  pop_continuationB: {
-{ cont_1294X = ScontS;
-  tem_1295X = *((long *) ((((char *) (-3 + cont_1294X))) + 8));
-  pc_1296X = *((long *) ((((char *) (-3 + cont_1294X))) + 4));
-  StemplateS = tem_1295X;
-  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_1295X)))))))) + (((pc_1296X)>>2)));
-  SenvS = (*((long *) ((((char *) (-3 + cont_1294X))) + 12)));
-  ScontS = (*((long *) (((char *) (-3 + cont_1294X)))));
-  SstackS = ((((char *) (-3 + cont_1294X))) + 12);
+{ cont_1295X = ScontS;
+  tem_1296X = *((long *) ((((char *) (-3 + cont_1295X))) + 8));
+  pc_1297X = *((long *) ((((char *) (-3 + cont_1295X))) + 4));
+  StemplateS = tem_1296X;
+  Scode_pointerS = ((((char *) (-3 + (*((long *) (((char *) (-3 + tem_1296X)))))))) + (((pc_1297X)>>2)));
+  SenvS = (*((long *) ((((char *) (-3 + cont_1295X))) + 12)));
+  ScontS = (*((long *) (((char *) (-3 + cont_1295X)))));
+  SstackS = ((((char *) (-3 + cont_1295X))) + 12);
   goto pop_continuationB_return;}
  pop_continuationB_return:
   switch (pop_continuationB_return_tag) {
@@ -10332,67 +10333,67 @@ long s48_restart(long proc_345X, long nargs_346X)
   }}
 
 }
-long s48_call_startup_procedure(char **startup_vector_1297X, long startup_vector_length_1298X)
+long s48_call_startup_procedure(char **startup_vector_1298X, long startup_vector_length_1299X)
 {
   char arg2K0;
   long arg0K1;
   long arg0K0;
-  long v_1347X;
+  long v_1348X;
+  long x_1347X;
   long x_1346X;
-  long x_1345X;
-  char * addr_1344X;
-  long b_1343X;
-  long channel_1342X;
-  long x_1341X;
-  char * addr_1340X;
-  long b_1339X;
-  long channel_1338X;
-  long x_1337X;
-  char * addr_1336X;
-  long b_1335X;
-  long channel_1334X;
+  char * addr_1345X;
+  long b_1344X;
+  long channel_1343X;
+  long x_1342X;
+  char * addr_1341X;
+  long b_1340X;
+  long channel_1339X;
+  long x_1338X;
+  char * addr_1337X;
+  long b_1336X;
+  long channel_1335X;
+  long key_1334X;
   long key_1333X;
-  long key_1332X;
-  char okayP_1331X;
-  char v_1330X;
-  long temp1_1329X;
-  char v_1328X;
-  long space_1327X;
-  long i_1326X;
-  long length_1325X;
-  long *v_1324X;
+  char okayP_1332X;
+  char v_1331X;
+  long temp1_1330X;
+  char v_1329X;
+  long space_1328X;
+  long i_1327X;
+  long length_1326X;
+  long *v_1325X;
+  long v_1324X;
   long v_1323X;
-  long v_1322X;
-  long y_1321X;
-  long x_1320X;
-  long v_1319X;
-  long x_1318X;
-  long y_1317X;
-  char * addr_1316X;
-  long value_1315X;
-  long x_1314X;
-  long y_1313X;
-  long i_1312X;
-  long vector_1311X;
-  char * addr_1310X;
-  long len_1309X;
+  long y_1322X;
+  long x_1321X;
+  long v_1320X;
+  long x_1319X;
+  long y_1318X;
+  char * addr_1317X;
+  long value_1316X;
+  long x_1315X;
+  long y_1314X;
+  long i_1313X;
+  long vector_1312X;
+  char * addr_1311X;
+  long len_1310X;
+  long key_1309X;
   long key_1308X;
-  long key_1307X;
-  char okayP_1306X;
-  char v_1305X;
-  long temp1_1304X;
-  char v_1303X;
-  long space_1302X;
-  long size_1301X;
-  long i_1300X;
-  long tem_1299X;
+  char okayP_1307X;
+  char v_1306X;
+  long temp1_1305X;
+  char v_1304X;
+  long space_1303X;
+  long size_1302X;
+  long i_1301X;
+  long tem_1300X;
  {  SstackS = ((((char *) (-3 + (Sbottom_of_stackS)))) + -8);
   *((long *) (((char *) (-3 + (Sbottom_of_stackS))))) = 1;
   ScontS = (Sbottom_of_stackS);
   SenvS = 13;
-  tem_1299X = Sinterrupt_templateS;
-  StemplateS = tem_1299X;
-  Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_1299X))))))));
+  tem_1300X = Sinterrupt_templateS;
+  StemplateS = tem_1300X;
+  Scode_pointerS = (((char *) (-3 + (*((long *) (((char *) (-3 + tem_1300X))))))));
   SvalS = 13;
   Scurrent_threadS = 25;
   Ssession_dataS = 25;
@@ -10406,187 +10407,187 @@ long s48_call_startup_procedure(char **startup_vector_1297X, long startup_vector
   Sinterrupted_templateS = 1;
   arg0K0 = 0;
   arg0K1 = 0;
-  goto L15616;}
- L15616: {
-  i_1300X = arg0K0;
-  size_1301X = arg0K1;
-  if ((i_1300X == startup_vector_length_1298X)) {
-    space_1302X = 1 + (size_1301X + startup_vector_length_1298X);
-    v_1303X = AVAILABLEp(space_1302X);
-    if (v_1303X) {
+  goto L15617;}
+ L15617: {
+  i_1301X = arg0K0;
+  size_1302X = arg0K1;
+  if ((i_1301X == startup_vector_length_1299X)) {
+    space_1303X = 1 + (size_1302X + startup_vector_length_1299X);
+    v_1304X = AVAILABLEp(space_1303X);
+    if (v_1304X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L15653;}
+      goto L15654;}
     else {
-      collect_saving_temps(1, 1, &temp1_1304X);
-      v_1305X = AVAILABLEp(space_1302X);
-      if (v_1305X) {
+      collect_saving_temps(1, 1, &temp1_1305X);
+      v_1306X = AVAILABLEp(space_1303X);
+      if (v_1306X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L15653;}
+        goto L15654;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L15653;}}}
+        goto L15654;}}}
   else {
-    arg0K0 = (1 + i_1300X);
-    arg0K1 = (1 + (size_1301X + ((((4 + (strlen((char *) (*(startup_vector_1297X + i_1300X))))))>>2))));
-    goto L15616;}}
- L15653: {
-  okayP_1306X = arg2K0;
-  key_1307X = arg0K1;
-  if (okayP_1306X) {
-    arg0K0 = key_1307X;
-    goto L15631;}
+    arg0K0 = (1 + i_1301X);
+    arg0K1 = (1 + (size_1302X + ((((4 + (strlen((char *) (*(startup_vector_1298X + i_1301X))))))>>2))));
+    goto L15617;}}
+ L15654: {
+  okayP_1307X = arg2K0;
+  key_1308X = arg0K1;
+  if (okayP_1307X) {
+    arg0K0 = key_1308X;
+    goto L15632;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_1307X;
-    goto L15631;}}
- L15631: {
-  key_1308X = arg0K0;
-  len_1309X = ((startup_vector_length_1298X)<<2);
-  addr_1310X = ALLOCATE_SPACE(2, (4 + len_1309X));
-  *((long *) addr_1310X) = (10 + (((len_1309X)<<8)));
-  vector_1311X = 3 + (((long) (addr_1310X + 4)));
+    arg0K0 = key_1308X;
+    goto L15632;}}
+ L15632: {
+  key_1309X = arg0K0;
+  len_1310X = ((startup_vector_length_1299X)<<2);
+  addr_1311X = ALLOCATE_SPACE(2, (4 + len_1310X));
+  *((long *) addr_1311X) = (10 + (((len_1310X)<<8)));
+  vector_1312X = 3 + (((long) (addr_1311X + 4)));
   arg0K0 = 0;
-  goto L15689;}
- L15689: {
-  i_1312X = arg0K0;
-  if ((i_1312X == startup_vector_length_1298X)) {
-    *((long *) (SstackS)) = vector_1311X;
+  goto L15690;}
+ L15690: {
+  i_1313X = arg0K0;
+  if ((i_1313X == startup_vector_length_1299X)) {
+    *((long *) (SstackS)) = vector_1312X;
     SstackS = ((SstackS) + -4);
-    y_1313X = fileno((stderr));
-    x_1314X = fileno((stdout));
-    if ((x_1314X < y_1313X)) {
-      arg0K0 = y_1313X;
-      goto L14525;}
+    y_1314X = fileno((stderr));
+    x_1315X = fileno((stdout));
+    if ((x_1315X < y_1314X)) {
+      arg0K0 = y_1314X;
+      goto L14526;}
     else {
-      arg0K0 = x_1314X;
-      goto L14525;}}
+      arg0K0 = x_1315X;
+      goto L14526;}}
   else {
-    value_1315X = enter_string((*(startup_vector_1297X + i_1312X)), key_1308X);
-    addr_1316X = (((char *) (-3 + vector_1311X))) + (((i_1312X)<<2));
-    S48_WRITE_BARRIER(vector_1311X, addr_1316X, value_1315X);
-    *((long *) addr_1316X) = value_1315X;
-    arg0K0 = (1 + i_1312X);
-    goto L15689;}}
- L14525: {
-  y_1317X = arg0K0;
-  x_1318X = fileno((stdin));
-  if ((x_1318X < y_1317X)) {
-    arg0K0 = y_1317X;
-    goto L14527;}
+    value_1316X = enter_string((*(startup_vector_1298X + i_1313X)), key_1309X);
+    addr_1317X = (((char *) (-3 + vector_1312X))) + (((i_1313X)<<2));
+    S48_WRITE_BARRIER(vector_1312X, addr_1317X, value_1316X);
+    *((long *) addr_1317X) = value_1316X;
+    arg0K0 = (1 + i_1313X);
+    goto L15690;}}
+ L14526: {
+  y_1318X = arg0K0;
+  x_1319X = fileno((stdin));
+  if ((x_1319X < y_1318X)) {
+    arg0K0 = y_1318X;
+    goto L14528;}
   else {
-    arg0K0 = x_1318X;
-    goto L14527;}}
- L14527: {
-  v_1319X = arg0K0;
-  x_1320X = Snumber_of_channelsS;
-  y_1321X = 1 + v_1319X;
-  if ((x_1320X < y_1321X)) {
-    arg0K0 = y_1321X;
-    goto L14529;}
+    arg0K0 = x_1319X;
+    goto L14528;}}
+ L14528: {
+  v_1320X = arg0K0;
+  x_1321X = Snumber_of_channelsS;
+  y_1322X = 1 + v_1320X;
+  if ((x_1321X < y_1322X)) {
+    arg0K0 = y_1322X;
+    goto L14530;}
   else {
-    arg0K0 = x_1320X;
-    goto L14529;}}
- L14529: {
-  v_1322X = arg0K0;
-  Snumber_of_channelsS = v_1322X;
-  v_1323X = fileno((stdin));
+    arg0K0 = x_1321X;
+    goto L14530;}}
+ L14530: {
+  v_1323X = arg0K0;
+  Snumber_of_channelsS = v_1323X;
+  v_1324X = fileno((stdin));
   Svm_channelsS = ((long*)malloc(sizeof(long) * (Snumber_of_channelsS)));
   Spending_channels_headS = 1;
   Spending_channels_tailS = 1;
   if ((NULL == (Svm_channelsS))) {
     ps_error("out of memory, unable to continue", 0);
-    goto L14551;}
+    goto L14552;}
   else {
-    goto L14551;}}
- L14551: {
-  v_1324X = Svm_channelsS;
-  length_1325X = Snumber_of_channelsS;
+    goto L14552;}}
+ L14552: {
+  v_1325X = Svm_channelsS;
+  length_1326X = Snumber_of_channelsS;
   arg0K0 = 0;
-  goto L14599;}
- L14599: {
-  i_1326X = arg0K0;
-  if ((i_1326X < length_1325X)) {
-    *(v_1324X + i_1326X) = 1;
-    arg0K0 = (1 + i_1326X);
-    goto L14599;}
+  goto L14600;}
+ L14600: {
+  i_1327X = arg0K0;
+  if ((i_1327X < length_1326X)) {
+    *(v_1325X + i_1327X) = 1;
+    arg0K0 = (1 + i_1327X);
+    goto L14600;}
   else {
-    space_1327X = 3 * (7 + ((((4 + (strlen((char *) "standard output"))))>>2)));
-    v_1328X = AVAILABLEp(space_1327X);
-    if (v_1328X) {
+    space_1328X = 3 * (7 + ((((4 + (strlen((char *) "standard output"))))>>2)));
+    v_1329X = AVAILABLEp(space_1328X);
+    if (v_1329X) {
       arg2K0 = 1;
       arg0K1 = 0;
-      goto L14613;}
+      goto L14614;}
     else {
-      collect_saving_temps(1, 1, &temp1_1329X);
-      v_1330X = AVAILABLEp(space_1327X);
-      if (v_1330X) {
+      collect_saving_temps(1, 1, &temp1_1330X);
+      v_1331X = AVAILABLEp(space_1328X);
+      if (v_1331X) {
         arg2K0 = 1;
         arg0K1 = 0;
-        goto L14613;}
+        goto L14614;}
       else {
         arg2K0 = 0;
         arg0K1 = 0;
-        goto L14613;}}}}
- L14613: {
-  okayP_1331X = arg2K0;
-  key_1332X = arg0K1;
-  if (okayP_1331X) {
-    arg0K0 = key_1332X;
-    goto L14557;}
+        goto L14614;}}}}
+ L14614: {
+  okayP_1332X = arg2K0;
+  key_1333X = arg0K1;
+  if (okayP_1332X) {
+    arg0K0 = key_1333X;
+    goto L14558;}
   else {
     ps_error("Scheme48 heap overflow", 0);
-    arg0K0 = key_1332X;
-    goto L14557;}}
- L14557: {
-  key_1333X = arg0K0;
-  channel_1334X = fileno((stdin));
-  b_1335X = enter_string("standard input", key_1333X);
-  addr_1336X = ALLOCATE_SPACE(5, 24);
-  *((long *) addr_1336X) = 5142;
-  x_1337X = 3 + (((long) (addr_1336X + 4)));
-  *((long *) (((char *) (-3 + x_1337X)))) = 4;
-  *((long *) ((((char *) (-3 + x_1337X))) + 4)) = b_1335X;
-  *((long *) ((((char *) (-3 + x_1337X))) + 8)) = (((channel_1334X)<<2));
-  *((long *) ((((char *) (-3 + x_1337X))) + 12)) = 1;
-  *((long *) ((((char *) (-3 + x_1337X))) + 16)) = 1;
-  *((Svm_channelsS) + channel_1334X) = x_1337X;
-  channel_1338X = fileno((stderr));
-  b_1339X = enter_string("standard error", key_1333X);
-  addr_1340X = ALLOCATE_SPACE(5, 24);
-  *((long *) addr_1340X) = 5142;
-  x_1341X = 3 + (((long) (addr_1340X + 4)));
-  *((long *) (((char *) (-3 + x_1341X)))) = 8;
-  *((long *) ((((char *) (-3 + x_1341X))) + 4)) = b_1339X;
-  *((long *) ((((char *) (-3 + x_1341X))) + 8)) = (((channel_1338X)<<2));
-  *((long *) ((((char *) (-3 + x_1341X))) + 12)) = 1;
-  *((long *) ((((char *) (-3 + x_1341X))) + 16)) = 1;
-  *((Svm_channelsS) + channel_1338X) = x_1341X;
-  channel_1342X = fileno((stdout));
-  b_1343X = enter_string("standard output", key_1333X);
-  addr_1344X = ALLOCATE_SPACE(5, 24);
-  *((long *) addr_1344X) = 5142;
-  x_1345X = 3 + (((long) (addr_1344X + 4)));
-  *((long *) (((char *) (-3 + x_1345X)))) = 8;
-  *((long *) ((((char *) (-3 + x_1345X))) + 4)) = b_1343X;
-  *((long *) ((((char *) (-3 + x_1345X))) + 8)) = (((channel_1342X)<<2));
-  *((long *) ((((char *) (-3 + x_1345X))) + 12)) = 1;
-  *((long *) ((((char *) (-3 + x_1345X))) + 16)) = 1;
-  *((Svm_channelsS) + channel_1342X) = x_1345X;
-  *((long *) (SstackS)) = x_1337X;
+    arg0K0 = key_1333X;
+    goto L14558;}}
+ L14558: {
+  key_1334X = arg0K0;
+  channel_1335X = fileno((stdin));
+  b_1336X = enter_string("standard input", key_1334X);
+  addr_1337X = ALLOCATE_SPACE(5, 24);
+  *((long *) addr_1337X) = 5142;
+  x_1338X = 3 + (((long) (addr_1337X + 4)));
+  *((long *) (((char *) (-3 + x_1338X)))) = 4;
+  *((long *) ((((char *) (-3 + x_1338X))) + 4)) = b_1336X;
+  *((long *) ((((char *) (-3 + x_1338X))) + 8)) = (((channel_1335X)<<2));
+  *((long *) ((((char *) (-3 + x_1338X))) + 12)) = 1;
+  *((long *) ((((char *) (-3 + x_1338X))) + 16)) = 1;
+  *((Svm_channelsS) + channel_1335X) = x_1338X;
+  channel_1339X = fileno((stderr));
+  b_1340X = enter_string("standard error", key_1334X);
+  addr_1341X = ALLOCATE_SPACE(5, 24);
+  *((long *) addr_1341X) = 5142;
+  x_1342X = 3 + (((long) (addr_1341X + 4)));
+  *((long *) (((char *) (-3 + x_1342X)))) = 8;
+  *((long *) ((((char *) (-3 + x_1342X))) + 4)) = b_1340X;
+  *((long *) ((((char *) (-3 + x_1342X))) + 8)) = (((channel_1339X)<<2));
+  *((long *) ((((char *) (-3 + x_1342X))) + 12)) = 1;
+  *((long *) ((((char *) (-3 + x_1342X))) + 16)) = 1;
+  *((Svm_channelsS) + channel_1339X) = x_1342X;
+  channel_1343X = fileno((stdout));
+  b_1344X = enter_string("standard output", key_1334X);
+  addr_1345X = ALLOCATE_SPACE(5, 24);
+  *((long *) addr_1345X) = 5142;
+  x_1346X = 3 + (((long) (addr_1345X + 4)));
+  *((long *) (((char *) (-3 + x_1346X)))) = 8;
+  *((long *) ((((char *) (-3 + x_1346X))) + 4)) = b_1344X;
+  *((long *) ((((char *) (-3 + x_1346X))) + 8)) = (((channel_1343X)<<2));
+  *((long *) ((((char *) (-3 + x_1346X))) + 12)) = 1;
+  *((long *) ((((char *) (-3 + x_1346X))) + 16)) = 1;
+  *((Svm_channelsS) + channel_1343X) = x_1346X;
+  *((long *) (SstackS)) = x_1338X;
   SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = x_1345X;
-  SstackS = ((SstackS) + -4);
-  *((long *) (SstackS)) = x_1341X;
-  SstackS = ((SstackS) + -4);
-  x_1346X = s48_resumer_records();
   *((long *) (SstackS)) = x_1346X;
   SstackS = ((SstackS) + -4);
+  *((long *) (SstackS)) = x_1342X;
+  SstackS = ((SstackS) + -4);
+  x_1347X = s48_resumer_records();
+  *((long *) (SstackS)) = x_1347X;
+  SstackS = ((SstackS) + -4);
   s48_initialization_completeB();
-  v_1347X = s48_startup_procedure();
-  return s48_restart(v_1347X, 5);}
+  v_1348X = s48_startup_procedure();
+  return s48_restart(v_1348X, 5);}
 }void
 s48_init(void)
 {