[SCM] Lisaac compiler branch, master, updated. a3721cb0162917f306932031365d609afe69dced

Benoit Sonntag sonntag at icps.u-strasbg.fr
Wed Jul 29 22:47:13 UTC 2009


The following commit has been merged in the master branch:
commit a3721cb0162917f306932031365d609afe69dced
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date:   Thu Jul 30 00:47:08 2009 +0200

    Shorter limit inherit ok

diff --git a/bin/shorter.c b/bin/shorter.c
index 6d22249..edee747 100644
--- a/bin/shorter.c
+++ b/bin/shorter.c
@@ -424,8 +424,18 @@ struct ITM_SLOT_OPERATOR_struct {
 __ITM_SLOT_OPERATOR ITM_SLOT_OPERATOR_={__ITM_SLOT_OPERATOR__};
 #define ITM_SLOT_OPERATOR__ (&ITM_SLOT_OPERATOR_)
 
+// SECTION_
+#define __SECTION___ 25
+typedef struct SECTION__struct __SECTION_;
+struct SECTION__struct {
+  void *name__CZDC;
+  void *type_list__RXFC;
+};
+__SECTION_ SECTION__;
+#define SECTION___ (&SECTION__)
+
 // HASHED_DICTIONARY_NODE[ENTRY,ABSTRACT_STRING]
-#define __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ 25
+#define __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ 26
 typedef struct HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo;
 struct HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_struct {
   void *key__R1S;
@@ -436,7 +446,7 @@ __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo HASHED_DICTIONARY_NODEoENTRYxABS
 #define HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_)
 
 // HASHED_DICTIONARY[ENTRY,ABSTRACT_STRING]
-#define __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ 26
+#define __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ 27
 typedef struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo;
 struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct {
   __INTEGER capacity__A1S;
@@ -447,7 +457,7 @@ __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo HASHED_DICTIONARYoENTRYxABSTRACT_STRI
 #define HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_)
 
 // LINKED_COLLECTION[STRING_CONSTANT]
-#define __LINKED_COLLECTIONoSTRING_CONSTANTo__ 27
+#define __LINKED_COLLECTIONoSTRING_CONSTANTo__ 28
 typedef struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct __LINKED_COLLECTIONoSTRING_CONSTANTo;
 struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct {
   __INTEGER upper__5CD;
@@ -456,7 +466,7 @@ __LINKED_COLLECTIONoSTRING_CONSTANTo LINKED_COLLECTIONoSTRING_CONSTANTo_;
 #define LINKED_COLLECTIONoSTRING_CONSTANTo__ (&LINKED_COLLECTIONoSTRING_CONSTANTo_)
 
 // LINKED_LIST[STRING_CONSTANT]
-#define __LINKED_LISToSTRING_CONSTANTo__ 28
+#define __LINKED_LISToSTRING_CONSTANTo__ 29
 typedef struct LINKED_LISToSTRING_CONSTANTo_struct __LINKED_LISToSTRING_CONSTANTo;
 struct LINKED_LISToSTRING_CONSTANTo_struct {
   __LINKED_COLLECTIONoSTRING_CONSTANTo parent_linked_collection__LD;
@@ -469,7 +479,7 @@ __LINKED_LISToSTRING_CONSTANTo LINKED_LISToSTRING_CONSTANTo_;
 #define LINKED_LISToSTRING_CONSTANTo__ (&LINKED_LISToSTRING_CONSTANTo_)
 
 // PARSER
-#define __PARSER__ 29
+#define __PARSER__ 30
 typedef struct PARSER_struct __PARSER;
 struct PARSER_struct {
   void *Nothing;
@@ -478,7 +488,7 @@ __PARSER PARSER_;
 #define PARSER__ (&PARSER_)
 
 // ITM_ARGUMENT
-#define __ITM_ARGUMENT__ 30
+#define __ITM_ARGUMENT__ 31
 typedef struct ITM_ARGUMENT_struct __ITM_ARGUMENT;
 struct ITM_ARGUMENT_struct {
   __ITM_OBJECT parent_itm_code__S4M;
@@ -487,7 +497,7 @@ __ITM_ARGUMENT ITM_ARGUMENT_;
 #define ITM_ARGUMENT__ (&ITM_ARGUMENT_)
 
 // ARRAYED_COLLECTION[ITM_ARGUMENT]
-#define __ARRAYED_COLLECTIONoITM_ARGUMENTo__ 31
+#define __ARRAYED_COLLECTIONoITM_ARGUMENTo__ 32
 typedef struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct __ARRAYED_COLLECTIONoITM_ARGUMENTo;
 struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct {
   __INTEGER upper__45GC;
@@ -498,7 +508,7 @@ __ARRAYED_COLLECTIONoITM_ARGUMENTo ARRAYED_COLLECTIONoITM_ARGUMENTo_;
 #define ARRAYED_COLLECTIONoITM_ARGUMENTo__ (&ARRAYED_COLLECTIONoITM_ARGUMENTo_)
 
 // FAST_ARRAY[ITM_ARGUMENT]
-#define __FAST_ARRAYoITM_ARGUMENTo__ 32
+#define __FAST_ARRAYoITM_ARGUMENTo__ 33
 typedef struct FAST_ARRAYoITM_ARGUMENTo_struct __FAST_ARRAYoITM_ARGUMENTo;
 struct FAST_ARRAYoITM_ARGUMENTo_struct {
   __ARRAYED_COLLECTIONoITM_ARGUMENTo parent_arrayed_collection__FCZB;
@@ -537,7 +547,7 @@ __ITM_RESULT ITM_RESULT_={__ITM_RESULT__};
 #define ITM_RESULT__ (&ITM_RESULT_)
 
 // HASHED_DICTIONARY_NODE[ITM_SLOT,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ 33
+#define __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ 34
 typedef struct HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo;
 struct HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_struct {
   void *key__PBGC;
@@ -548,7 +558,7 @@ __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoITM_SL
 #define HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_)
 
 // HASHED_DICTIONARY[ITM_SLOT,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ 34
+#define __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ 35
 typedef struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo;
 struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct {
   __INTEGER capacity__24BC;
@@ -558,32 +568,8 @@ struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct {
 __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_;
 #define HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_)
 
-// ITM_ARG
-#define __ITM_ARG__ 13
-typedef struct ITM_ARG_struct __ITM_ARG;
-struct ITM_ARG_struct {
-  unsigned long __id;
-  __ITM_ARGUMENT parent_itm_argument__ZHHB;
-  void *name__10HC;
-  void *type__20HC;
-};
-__ITM_ARG ITM_ARG_={__ITM_ARG__};
-#define ITM_ARG__ (&ITM_ARG_)
-
-// ITM_ARGS
-#define __ITM_ARGS__ 14
-typedef struct ITM_ARGS_struct __ITM_ARGS;
-struct ITM_ARGS_struct {
-  unsigned long __id;
-  __ITM_ARGUMENT parent_itm_argument__B5EE;
-  void *type__O1OF;
-  void *name__N1OF;
-};
-__ITM_ARGS ITM_ARGS_={__ITM_ARGS__};
-#define ITM_ARGS__ (&ITM_ARGS_)
-
 // ITM_TYPE_BLOCK
-#define __ITM_TYPE_BLOCK__ 15
+#define __ITM_TYPE_BLOCK__ 13
 typedef struct ITM_TYPE_BLOCK_struct __ITM_TYPE_BLOCK;
 struct ITM_TYPE_BLOCK_struct {
   unsigned long __id;
@@ -594,7 +580,7 @@ __ITM_TYPE_BLOCK ITM_TYPE_BLOCK_={__ITM_TYPE_BLOCK__};
 #define ITM_TYPE_BLOCK__ (&ITM_TYPE_BLOCK_)
 
 // ITM_TYPE_SIMPLE
-#define __ITM_TYPE_SIMPLE__ 16
+#define __ITM_TYPE_SIMPLE__ 14
 typedef struct ITM_TYPE_SIMPLE_struct __ITM_TYPE_SIMPLE;
 struct ITM_TYPE_SIMPLE_struct {
   unsigned long __id;
@@ -604,7 +590,7 @@ __ITM_TYPE_SIMPLE ITM_TYPE_SIMPLE_={__ITM_TYPE_SIMPLE__};
 #define ITM_TYPE_SIMPLE__ (&ITM_TYPE_SIMPLE_)
 
 // ITM_TYPE_STYLE
-#define __ITM_TYPE_STYLE__ 17
+#define __ITM_TYPE_STYLE__ 15
 typedef struct ITM_TYPE_STYLE_struct __ITM_TYPE_STYLE;
 struct ITM_TYPE_STYLE_struct {
   unsigned long __id;
@@ -615,7 +601,7 @@ __ITM_TYPE_STYLE ITM_TYPE_STYLE_={__ITM_TYPE_STYLE__};
 #define ITM_TYPE_STYLE__ (&ITM_TYPE_STYLE_)
 
 // ITM_TYPE_GENERIC
-#define __ITM_TYPE_GENERIC__ 18
+#define __ITM_TYPE_GENERIC__ 16
 typedef struct ITM_TYPE_GENERIC_struct __ITM_TYPE_GENERIC;
 struct ITM_TYPE_GENERIC_struct {
   unsigned long __id;
@@ -625,19 +611,32 @@ struct ITM_TYPE_GENERIC_struct {
 __ITM_TYPE_GENERIC ITM_TYPE_GENERIC_={__ITM_TYPE_GENERIC__};
 #define ITM_TYPE_GENERIC__ (&ITM_TYPE_GENERIC_)
 
-// FILE_UNIX
-#define __FILE_UNIX__ 19
-typedef struct FILE_UNIX_struct __FILE_UNIX;
-struct FILE_UNIX_struct {
+// ITM_ARG
+#define __ITM_ARG__ 17
+typedef struct ITM_ARG_struct __ITM_ARG;
+struct ITM_ARG_struct {
   unsigned long __id;
-  __ENTRY_UNIX parent_entry_unix__2CF;
-  __POINTER stream__EJRD;
+  __ITM_ARGUMENT parent_itm_argument__ZHHB;
+  void *name__10HC;
+  void *type__20HC;
 };
-__FILE_UNIX FILE_UNIX_={__FILE_UNIX__};
-#define FILE_UNIX__ (&FILE_UNIX_)
+__ITM_ARG ITM_ARG_={__ITM_ARG__};
+#define ITM_ARG__ (&ITM_ARG_)
+
+// ITM_ARGS
+#define __ITM_ARGS__ 18
+typedef struct ITM_ARGS_struct __ITM_ARGS;
+struct ITM_ARGS_struct {
+  unsigned long __id;
+  __ITM_ARGUMENT parent_itm_argument__DDFE;
+  void *type__MBPF;
+  void *name__LBPF;
+};
+__ITM_ARGS ITM_ARGS_={__ITM_ARGS__};
+#define ITM_ARGS__ (&ITM_ARGS_)
 
 // ITM_TYPE_PARAMETER
-#define __ITM_TYPE_PARAMETER__ 20
+#define __ITM_TYPE_PARAMETER__ 19
 typedef struct ITM_TYPE_PARAMETER_struct __ITM_TYPE_PARAMETER;
 struct ITM_TYPE_PARAMETER_struct {
   unsigned long __id;
@@ -646,8 +645,19 @@ struct ITM_TYPE_PARAMETER_struct {
 __ITM_TYPE_PARAMETER ITM_TYPE_PARAMETER_={__ITM_TYPE_PARAMETER__};
 #define ITM_TYPE_PARAMETER__ (&ITM_TYPE_PARAMETER_)
 
+// FILE_UNIX
+#define __FILE_UNIX__ 20
+typedef struct FILE_UNIX_struct __FILE_UNIX;
+struct FILE_UNIX_struct {
+  unsigned long __id;
+  __ENTRY_UNIX parent_entry_unix__2CF;
+  __POINTER stream__EJRD;
+};
+__FILE_UNIX FILE_UNIX_={__FILE_UNIX__};
+#define FILE_UNIX__ (&FILE_UNIX_)
+
 // ARRAYED_COLLECTION[ITM_TYPE_PARAMETER]
-#define __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__ 35
+#define __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__ 36
 typedef struct ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_struct __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo;
 struct ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_struct {
   __INTEGER upper__WBBC;
@@ -658,7 +668,7 @@ __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_
 #define ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__ (&ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_)
 
 // FAST_ARRAY[ITM_TYPE_PARAMETER]
-#define __FAST_ARRAYoITM_TYPE_PARAMETERo__ 36
+#define __FAST_ARRAYoITM_TYPE_PARAMETERo__ 37
 typedef struct FAST_ARRAYoITM_TYPE_PARAMETERo_struct __FAST_ARRAYoITM_TYPE_PARAMETERo;
 struct FAST_ARRAYoITM_TYPE_PARAMETERo_struct {
   __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo parent_arrayed_collection__TME;
@@ -667,7 +677,7 @@ __FAST_ARRAYoITM_TYPE_PARAMETERo FAST_ARRAYoITM_TYPE_PARAMETERo_;
 #define FAST_ARRAYoITM_TYPE_PARAMETERo__ (&FAST_ARRAYoITM_TYPE_PARAMETERo_)
 
 // LIP_CODE
-#define __LIP_CODE__ 37
+#define __LIP_CODE__ 38
 typedef struct LIP_CODE_struct __LIP_CODE;
 struct LIP_CODE_struct {
   __ITM_OBJECT parent_itm_object__5DE;
@@ -693,8 +703,8 @@ typedef struct LIP_CALL_struct __LIP_CALL;
 struct LIP_CALL_struct {
   unsigned long __id;
   __LIP_CODE parent_lip_code__314B;
-  void *argument__H1TE;
-  void *name__S1TE;
+  void *argument__15TE;
+  void *name__GAUE;
 };
 __LIP_CALL LIP_CALL_={__LIP_CALL__};
 #define LIP_CALL__ (&LIP_CALL_)
@@ -718,13 +728,13 @@ typedef struct LIP_PRINT_struct __LIP_PRINT;
 struct LIP_PRINT_struct {
   unsigned long __id;
   __LIP_CODE parent_lip_code__QPYC;
-  void *message__W5TE;
+  void *message__KEUE;
 };
 __LIP_PRINT LIP_PRINT_={__LIP_PRINT__};
 #define LIP_PRINT__ (&LIP_PRINT_)
 
 // HASHED_SET_NODE[STRING_CONSTANT]
-#define __HASHED_SET_NODEoSTRING_CONSTANTo__ 38
+#define __HASHED_SET_NODEoSTRING_CONSTANTo__ 39
 typedef struct HASHED_SET_NODEoSTRING_CONSTANTo_struct __HASHED_SET_NODEoSTRING_CONSTANTo;
 struct HASHED_SET_NODEoSTRING_CONSTANTo_struct {
   void *item__1EV;
@@ -734,7 +744,7 @@ __HASHED_SET_NODEoSTRING_CONSTANTo HASHED_SET_NODEoSTRING_CONSTANTo_;
 #define HASHED_SET_NODEoSTRING_CONSTANTo__ (&HASHED_SET_NODEoSTRING_CONSTANTo_)
 
 // HASHED_SET[STRING_CONSTANT]
-#define __HASHED_SEToSTRING_CONSTANTo__ 39
+#define __HASHED_SEToSTRING_CONSTANTo__ 40
 typedef struct HASHED_SEToSTRING_CONSTANTo_struct __HASHED_SEToSTRING_CONSTANTo;
 struct HASHED_SEToSTRING_CONSTANTo_struct {
   __INTEGER capacity__KIT;
@@ -745,7 +755,7 @@ __HASHED_SEToSTRING_CONSTANTo HASHED_SEToSTRING_CONSTANTo_;
 #define HASHED_SEToSTRING_CONSTANTo__ (&HASHED_SEToSTRING_CONSTANTo_)
 
 // ITM_CODE
-#define __ITM_CODE__ 40
+#define __ITM_CODE__ 41
 typedef struct ITM_CODE_struct __ITM_CODE;
 struct ITM_CODE_struct {
   __ITM_OBJECT parent_itm_object__XDE;
@@ -754,7 +764,7 @@ __ITM_CODE ITM_CODE_;
 #define ITM_CODE__ (&ITM_CODE_)
 
 // ARRAYED_COLLECTION[ITM_CODE]
-#define __ARRAYED_COLLECTIONoITM_CODEo__ 41
+#define __ARRAYED_COLLECTIONoITM_CODEo__ 42
 typedef struct ARRAYED_COLLECTIONoITM_CODEo_struct __ARRAYED_COLLECTIONoITM_CODEo;
 struct ARRAYED_COLLECTIONoITM_CODEo_struct {
   __INTEGER upper__2HL;
@@ -765,7 +775,7 @@ __ARRAYED_COLLECTIONoITM_CODEo ARRAYED_COLLECTIONoITM_CODEo_;
 #define ARRAYED_COLLECTIONoITM_CODEo__ (&ARRAYED_COLLECTIONoITM_CODEo_)
 
 // FAST_ARRAY[ITM_CODE]
-#define __FAST_ARRAYoITM_CODEo__ 42
+#define __FAST_ARRAYoITM_CODEo__ 43
 typedef struct FAST_ARRAYoITM_CODEo_struct __FAST_ARRAYoITM_CODEo;
 struct FAST_ARRAYoITM_CODEo_struct {
   __ARRAYED_COLLECTIONoITM_CODEo parent_arrayed_collection__RTF;
@@ -774,7 +784,7 @@ __FAST_ARRAYoITM_CODEo FAST_ARRAYoITM_CODEo_;
 #define FAST_ARRAYoITM_CODEo__ (&FAST_ARRAYoITM_CODEo_)
 
 // ARRAYED_COLLECTION[LIP_CODE]
-#define __ARRAYED_COLLECTIONoLIP_CODEo__ 43
+#define __ARRAYED_COLLECTIONoLIP_CODEo__ 44
 typedef struct ARRAYED_COLLECTIONoLIP_CODEo_struct __ARRAYED_COLLECTIONoLIP_CODEo;
 struct ARRAYED_COLLECTIONoLIP_CODEo_struct {
   __INTEGER upper__2DQD;
@@ -785,7 +795,7 @@ __ARRAYED_COLLECTIONoLIP_CODEo ARRAYED_COLLECTIONoLIP_CODEo_;
 #define ARRAYED_COLLECTIONoLIP_CODEo__ (&ARRAYED_COLLECTIONoLIP_CODEo_)
 
 // FAST_ARRAY[LIP_CODE]
-#define __FAST_ARRAYoLIP_CODEo__ 44
+#define __FAST_ARRAYoLIP_CODEo__ 45
 typedef struct FAST_ARRAYoLIP_CODEo_struct __FAST_ARRAYoLIP_CODEo;
 struct FAST_ARRAYoLIP_CODEo_struct {
   __ARRAYED_COLLECTIONoLIP_CODEo parent_arrayed_collection__NLYC;
@@ -794,7 +804,7 @@ __FAST_ARRAYoLIP_CODEo FAST_ARRAYoLIP_CODEo_;
 #define FAST_ARRAYoLIP_CODEo__ (&FAST_ARRAYoLIP_CODEo_)
 
 // HASHED_DICTIONARY_NODE[LIP_SLOT_DATA,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo__ 45
+#define __HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo__ 46
 typedef struct HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo;
 struct HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_struct {
   void *Nothing;
@@ -803,7 +813,7 @@ __HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoL
 #define HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_)
 
 // HASHED_DICTIONARY[LIP_SLOT_DATA,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__ 46
+#define __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__ 47
 typedef struct HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo;
 struct HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_struct {
   __INTEGER capacity__3URD;
@@ -842,7 +852,7 @@ __LIP_UNARY LIP_UNARY_={__LIP_UNARY__};
 typedef struct LIP_INTEGER_struct __LIP_INTEGER;
 struct LIP_INTEGER_struct {
   unsigned long __id;
-  __INTEGER value__1X2F;
+  __INTEGER value__0B3F;
 };
 __LIP_INTEGER LIP_INTEGER_={__LIP_INTEGER__};
 #define LIP_INTEGER__ (&LIP_INTEGER_)
@@ -852,13 +862,13 @@ __LIP_INTEGER LIP_INTEGER_={__LIP_INTEGER__};
 typedef struct LIP_STRING_struct __LIP_STRING;
 struct LIP_STRING_struct {
   unsigned long __id;
-  void *value__52TE;
+  void *value__TBUE;
 };
 __LIP_STRING LIP_STRING_={__LIP_STRING__};
 #define LIP_STRING__ (&LIP_STRING_)
 
 // ITM_LOCAL
-#define __ITM_LOCAL__ 47
+#define __ITM_LOCAL__ 48
 typedef struct ITM_LOCAL_struct __ITM_LOCAL;
 struct ITM_LOCAL_struct {
   __ITM_OBJECT parent_itm_object__50H;
@@ -868,7 +878,7 @@ __ITM_LOCAL ITM_LOCAL_;
 #define ITM_LOCAL__ (&ITM_LOCAL_)
 
 // ARRAYED_COLLECTION[ITM_LOCAL]
-#define __ARRAYED_COLLECTIONoITM_LOCALo__ 48
+#define __ARRAYED_COLLECTIONoITM_LOCALo__ 49
 typedef struct ARRAYED_COLLECTIONoITM_LOCALo_struct __ARRAYED_COLLECTIONoITM_LOCALo;
 struct ARRAYED_COLLECTIONoITM_LOCALo_struct {
   __INTEGER upper__10K;
@@ -879,7 +889,7 @@ __ARRAYED_COLLECTIONoITM_LOCALo ARRAYED_COLLECTIONoITM_LOCALo_;
 #define ARRAYED_COLLECTIONoITM_LOCALo__ (&ARRAYED_COLLECTIONoITM_LOCALo_)
 
 // FAST_ARRAY[ITM_LOCAL]
-#define __FAST_ARRAYoITM_LOCALo__ 49
+#define __FAST_ARRAYoITM_LOCALo__ 50
 typedef struct FAST_ARRAYoITM_LOCALo_struct __FAST_ARRAYoITM_LOCALo;
 struct FAST_ARRAYoITM_LOCALo_struct {
   __ARRAYED_COLLECTIONoITM_LOCALo parent_arrayed_collection__E1H;
@@ -888,7 +898,7 @@ __FAST_ARRAYoITM_LOCALo FAST_ARRAYoITM_LOCALo_;
 #define FAST_ARRAYoITM_LOCALo__ (&FAST_ARRAYoITM_LOCALo_)
 
 // NUMERIC
-#define __NUMERIC__ 50
+#define __NUMERIC__ 51
 typedef struct NUMERIC_struct __NUMERIC;
 struct NUMERIC_struct {
   void *Nothing;
@@ -897,7 +907,7 @@ __NUMERIC NUMERIC_;
 #define NUMERIC__ (&NUMERIC_)
 
 // OBJECT
-#define __OBJECT__ 51
+#define __OBJECT__ 52
 typedef struct OBJECT_struct __OBJECT;
 struct OBJECT_struct {
   void *Nothing;
@@ -906,7 +916,7 @@ __OBJECT OBJECT_;
 #define OBJECT__ (&OBJECT_)
 
 // SYSTEM
-#define __SYSTEM__ 52
+#define __SYSTEM__ 53
 typedef struct SYSTEM_struct __SYSTEM;
 struct SYSTEM_struct {
   void *Nothing;
@@ -915,7 +925,7 @@ __SYSTEM SYSTEM_;
 #define SYSTEM__ (&SYSTEM_)
 
 // ALIAS_STR
-#define __ALIAS_STR__ 53
+#define __ALIAS_STR__ 54
 typedef struct ALIAS_STR_struct __ALIAS_STR;
 struct ALIAS_STR_struct {
   void *Nothing;
@@ -924,7 +934,7 @@ __ALIAS_STR ALIAS_STR_;
 #define ALIAS_STR__ (&ALIAS_STR_)
 
 // ANY
-#define __ANY__ 54
+#define __ANY__ 55
 typedef struct ANY_struct __ANY;
 struct ANY_struct {
   void *Nothing;
@@ -933,7 +943,7 @@ __ANY ANY_;
 #define ANY__ (&ANY_)
 
 // ANY_OPTION
-#define __ANY_OPTION__ 55
+#define __ANY_OPTION__ 56
 typedef struct ANY_OPTION_struct __ANY_OPTION;
 struct ANY_OPTION_struct {
   void *Nothing;
@@ -945,7 +955,7 @@ __ANY_OPTION ANY_OPTION_;
 #define FALSE__ 0
 
 // SHORTER
-#define __SHORTER__ 56
+#define __SHORTER__ 57
 typedef struct SHORTER_struct __SHORTER;
 struct SHORTER_struct {
   void *Nothing;
@@ -954,7 +964,7 @@ __SHORTER SHORTER_;
 #define SHORTER__ (&SHORTER_)
 
 // FILE_SYSTEM
-#define __FILE_SYSTEM__ 57
+#define __FILE_SYSTEM__ 58
 typedef struct FILE_SYSTEM_struct __FILE_SYSTEM;
 struct FILE_SYSTEM_struct {
   void *parent_directory__OFD;
@@ -964,7 +974,7 @@ __FILE_SYSTEM FILE_SYSTEM_;
 #define FILE_SYSTEM__ (&FILE_SYSTEM_)
 
 // HASHED_DICTIONARY_NODE[PROTOTYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ 58
+#define __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ 59
 typedef struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo;
 struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct {
   void *key__BOBC;
@@ -975,7 +985,7 @@ __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoPROTO
 #define HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_)
 
 // HASHED_DICTIONARY[PROTOTYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ 59
+#define __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ 60
 typedef struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo;
 struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct {
   __INTEGER capacity__QNBC;
@@ -986,7 +996,7 @@ __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARYoPROTOTYPExSTRIN
 #define HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_)
 
 // ARRAYED_COLLECTION[PROTOTYPE]
-#define __ARRAYED_COLLECTIONoPROTOTYPEo__ 60
+#define __ARRAYED_COLLECTIONoPROTOTYPEo__ 61
 typedef struct ARRAYED_COLLECTIONoPROTOTYPEo_struct __ARRAYED_COLLECTIONoPROTOTYPEo;
 struct ARRAYED_COLLECTIONoPROTOTYPEo_struct {
   __INTEGER upper__HJ;
@@ -997,7 +1007,7 @@ __ARRAYED_COLLECTIONoPROTOTYPEo ARRAYED_COLLECTIONoPROTOTYPEo_;
 #define ARRAYED_COLLECTIONoPROTOTYPEo__ (&ARRAYED_COLLECTIONoPROTOTYPEo_)
 
 // FAST_ARRAY[PROTOTYPE]
-#define __FAST_ARRAYoPROTOTYPEo__ 61
+#define __FAST_ARRAYoPROTOTYPEo__ 62
 typedef struct FAST_ARRAYoPROTOTYPEo_struct __FAST_ARRAYoPROTOTYPEo;
 struct FAST_ARRAYoPROTOTYPEo_struct {
   __ARRAYED_COLLECTIONoPROTOTYPEo parent_arrayed_collection__AJ;
@@ -1006,7 +1016,7 @@ __FAST_ARRAYoPROTOTYPEo FAST_ARRAYoPROTOTYPEo_;
 #define FAST_ARRAYoPROTOTYPEo__ (&FAST_ARRAYoPROTOTYPEo_)
 
 // FS_MIN
-#define __FS_MIN__ 62
+#define __FS_MIN__ 63
 typedef struct FS_MIN_struct __FS_MIN;
 struct FS_MIN_struct {
   void *Nothing;
@@ -1015,7 +1025,7 @@ __FS_MIN FS_MIN_;
 #define FS_MIN__ (&FS_MIN_)
 
 // LINKED_LIST_NODE[STRING_CONSTANT]
-#define __LINKED_LIST_NODEoSTRING_CONSTANTo__ 63
+#define __LINKED_LIST_NODEoSTRING_CONSTANTo__ 64
 typedef struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct __LINKED_LIST_NODEoSTRING_CONSTANTo;
 struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct {
   void *item__0VHD;
@@ -1025,7 +1035,7 @@ __LINKED_LIST_NODEoSTRING_CONSTANTo LINKED_LIST_NODEoSTRING_CONSTANTo_;
 #define LINKED_LIST_NODEoSTRING_CONSTANTo__ (&LINKED_LIST_NODEoSTRING_CONSTANTo_)
 
 // TYPE
-#define __TYPE__ 64
+#define __TYPE__ 65
 typedef struct TYPE_struct __TYPE;
 struct TYPE_struct {
   void *Nothing;
@@ -1034,7 +1044,7 @@ __TYPE TYPE_;
 #define TYPE__ (&TYPE_)
 
 // ARRAYED_COLLECTION[SLOT]
-#define __ARRAYED_COLLECTIONoSLOTo__ 65
+#define __ARRAYED_COLLECTIONoSLOTo__ 66
 typedef struct ARRAYED_COLLECTIONoSLOTo_struct __ARRAYED_COLLECTIONoSLOTo;
 struct ARRAYED_COLLECTIONoSLOTo_struct {
   __INTEGER capacity__UES;
@@ -1043,7 +1053,7 @@ __ARRAYED_COLLECTIONoSLOTo ARRAYED_COLLECTIONoSLOTo_;
 #define ARRAYED_COLLECTIONoSLOTo__ (&ARRAYED_COLLECTIONoSLOTo_)
 
 // FAST_ARRAY[SLOT]
-#define __FAST_ARRAYoSLOTo__ 66
+#define __FAST_ARRAYoSLOTo__ 67
 typedef struct FAST_ARRAYoSLOTo_struct __FAST_ARRAYoSLOTo;
 struct FAST_ARRAYoSLOTo_struct {
   __ARRAYED_COLLECTIONoSLOTo parent_arrayed_collection__V5;
@@ -1052,39 +1062,39 @@ __FAST_ARRAYoSLOTo FAST_ARRAYoSLOTo_;
 #define FAST_ARRAYoSLOTo__ (&FAST_ARRAYoSLOTo_)
 
 // LINKED_COLLECTION[ENTRY]
-#define __LINKED_COLLECTIONoENTRYo__ 67
+#define __LINKED_COLLECTIONoENTRYo__ 68
 typedef struct LINKED_COLLECTIONoENTRYo_struct __LINKED_COLLECTIONoENTRYo;
 struct LINKED_COLLECTIONoENTRYo_struct {
-  __INTEGER upper__TI3D;
+  __INTEGER upper__VM3D;
 };
 __LINKED_COLLECTIONoENTRYo LINKED_COLLECTIONoENTRYo_;
 #define LINKED_COLLECTIONoENTRYo__ (&LINKED_COLLECTIONoENTRYo_)
 
 // LINKED_LIST[ENTRY]
-#define __LINKED_LISToENTRYo__ 68
+#define __LINKED_LISToENTRYo__ 69
 typedef struct LINKED_LISToENTRYo_struct __LINKED_LISToENTRYo;
 struct LINKED_LISToENTRYo_struct {
   __LINKED_COLLECTIONoENTRYo parent_linked_collection__HFRD;
-  __INTEGER mem_idx__VWVE;
-  void *first_link__OWVE;
-  void *mem_lnk__WWVE;
-  void *last_link__XWVE;
+  __INTEGER mem_idx__J1VE;
+  void *first_link__C1VE;
+  void *mem_lnk__K1VE;
+  void *last_link__L1VE;
 };
 __LINKED_LISToENTRYo LINKED_LISToENTRYo_;
 #define LINKED_LISToENTRYo__ (&LINKED_LISToENTRYo_)
 
 // LINKED_LIST_NODE[ENTRY]
-#define __LINKED_LIST_NODEoENTRYo__ 69
+#define __LINKED_LIST_NODEoENTRYo__ 70
 typedef struct LINKED_LIST_NODEoENTRYo_struct __LINKED_LIST_NODEoENTRYo;
 struct LINKED_LIST_NODEoENTRYo_struct {
-  void *item__OJWE;
-  void *next__V0EF;
+  void *item__FOWE;
+  void *next__05EF;
 };
 __LINKED_LIST_NODEoENTRYo LINKED_LIST_NODEoENTRYo_;
 #define LINKED_LIST_NODEoENTRYo__ (&LINKED_LIST_NODEoENTRYo_)
 
 // ARRAYED_COLLECTION[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ 70
+#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ 71
 typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo;
 struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct {
   __INTEGER upper__FVV;
@@ -1095,7 +1105,7 @@ __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo ARRAYED_COLLECTIONoFAST_ARRAYoIT
 #define ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_)
 
 // FAST_ARRAY[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ 71
+#define __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ 72
 typedef struct FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_struct __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo;
 struct FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_struct {
   __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo parent_arrayed_collection__JUP;
@@ -1104,7 +1114,7 @@ __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_;
 #define FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ (&FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_)
 
 // ALIAS_ARRAY[ITM_TYPE_MONO]
-#define __ALIAS_ARRAYoITM_TYPE_MONOo__ 72
+#define __ALIAS_ARRAYoITM_TYPE_MONOo__ 73
 typedef struct ALIAS_ARRAYoITM_TYPE_MONOo_struct __ALIAS_ARRAYoITM_TYPE_MONOo;
 struct ALIAS_ARRAYoITM_TYPE_MONOo_struct {
   void *Nothing;
@@ -1113,7 +1123,7 @@ __ALIAS_ARRAYoITM_TYPE_MONOo ALIAS_ARRAYoITM_TYPE_MONOo_;
 #define ALIAS_ARRAYoITM_TYPE_MONOo__ (&ALIAS_ARRAYoITM_TYPE_MONOo_)
 
 // HASHED_SET_NODE[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ 73
+#define __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ 74
 typedef struct HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo;
 struct HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_struct {
   void *item__CAW;
@@ -1123,7 +1133,7 @@ __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo HASHED_SET_NODEoFAST_ARRAYoITM_TYPE
 #define HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_)
 
 // HASHED_SET[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ 74
+#define __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ 75
 typedef struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo;
 struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct {
   __INTEGER capacity__R5V;
@@ -1134,7 +1144,7 @@ __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_;
 #define HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_)
 
 // ARRAYED_COLLECTION[ITM_TYPE_MULTI]
-#define __ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ 75
+#define __ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ 76
 typedef struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct __ARRAYED_COLLECTIONoITM_TYPE_MULTIo;
 struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct {
   __INTEGER upper__WJP;
@@ -1145,7 +1155,7 @@ __ARRAYED_COLLECTIONoITM_TYPE_MULTIo ARRAYED_COLLECTIONoITM_TYPE_MULTIo_;
 #define ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ (&ARRAYED_COLLECTIONoITM_TYPE_MULTIo_)
 
 // FAST_ARRAY[ITM_TYPE_MULTI]
-#define __FAST_ARRAYoITM_TYPE_MULTIo__ 76
+#define __FAST_ARRAYoITM_TYPE_MULTIo__ 77
 typedef struct FAST_ARRAYoITM_TYPE_MULTIo_struct __FAST_ARRAYoITM_TYPE_MULTIo;
 struct FAST_ARRAYoITM_TYPE_MULTIo_struct {
   __ARRAYED_COLLECTIONoITM_TYPE_MULTIo parent_arrayed_collection__MJP;
@@ -1154,7 +1164,7 @@ __FAST_ARRAYoITM_TYPE_MULTIo FAST_ARRAYoITM_TYPE_MULTIo_;
 #define FAST_ARRAYoITM_TYPE_MULTIo__ (&FAST_ARRAYoITM_TYPE_MULTIo_)
 
 // ARRAYED_COLLECTION[ITM_TYPE_BLOCK]
-#define __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__ 77
+#define __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__ 78
 typedef struct ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_struct __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo;
 struct ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_struct {
   __INTEGER upper__IMN;
@@ -1165,7 +1175,7 @@ __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_;
 #define ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__ (&ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_)
 
 // FAST_ARRAY[ITM_TYPE_BLOCK]
-#define __FAST_ARRAYoITM_TYPE_BLOCKo__ 78
+#define __FAST_ARRAYoITM_TYPE_BLOCKo__ 79
 typedef struct FAST_ARRAYoITM_TYPE_BLOCKo_struct __FAST_ARRAYoITM_TYPE_BLOCKo;
 struct FAST_ARRAYoITM_TYPE_BLOCKo_struct {
   __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo parent_arrayed_collection__4LN;
@@ -1174,7 +1184,7 @@ __FAST_ARRAYoITM_TYPE_BLOCKo FAST_ARRAYoITM_TYPE_BLOCKo_;
 #define FAST_ARRAYoITM_TYPE_BLOCKo__ (&FAST_ARRAYoITM_TYPE_BLOCKo_)
 
 // ITM_CONSTANT
-#define __ITM_CONSTANT__ 79
+#define __ITM_CONSTANT__ 80
 typedef struct ITM_CONSTANT_struct __ITM_CONSTANT;
 struct ITM_CONSTANT_struct {
   __ITM_CODE parent_itm_code__1VF;
@@ -1223,7 +1233,7 @@ __ITM_STRING ITM_STRING_={__ITM_STRING__};
 #define ITM_STRING__ (&ITM_STRING_)
 
 // ARRAYED_COLLECTION[ITM_TYPE_GENERIC]
-#define __ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ 80
+#define __ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ 81
 typedef struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct __ARRAYED_COLLECTIONoITM_TYPE_GENERICo;
 struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct {
   __INTEGER upper__AYP;
@@ -1234,7 +1244,7 @@ __ARRAYED_COLLECTIONoITM_TYPE_GENERICo ARRAYED_COLLECTIONoITM_TYPE_GENERICo_;
 #define ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ (&ARRAYED_COLLECTIONoITM_TYPE_GENERICo_)
 
 // FAST_ARRAY[ITM_TYPE_GENERIC]
-#define __FAST_ARRAYoITM_TYPE_GENERICo__ 81
+#define __FAST_ARRAYoITM_TYPE_GENERICo__ 82
 typedef struct FAST_ARRAYoITM_TYPE_GENERICo_struct __FAST_ARRAYoITM_TYPE_GENERICo;
 struct FAST_ARRAYoITM_TYPE_GENERICo_struct {
   __ARRAYED_COLLECTIONoITM_TYPE_GENERICo parent_arrayed_collection__WXP;
@@ -1243,7 +1253,7 @@ __FAST_ARRAYoITM_TYPE_GENERICo FAST_ARRAYoITM_TYPE_GENERICo_;
 #define FAST_ARRAYoITM_TYPE_GENERICo__ (&FAST_ARRAYoITM_TYPE_GENERICo_)
 
 // ARRAYED_COLLECTION[ITM_TYPE_STYLE]
-#define __ARRAYED_COLLECTIONoITM_TYPE_STYLEo__ 82
+#define __ARRAYED_COLLECTIONoITM_TYPE_STYLEo__ 83
 typedef struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct __ARRAYED_COLLECTIONoITM_TYPE_STYLEo;
 struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct {
   __INTEGER upper__POR;
@@ -1254,7 +1264,7 @@ __ARRAYED_COLLECTIONoITM_TYPE_STYLEo ARRAYED_COLLECTIONoITM_TYPE_STYLEo_;
 #define ARRAYED_COLLECTIONoITM_TYPE_STYLEo__ (&ARRAYED_COLLECTIONoITM_TYPE_STYLEo_)
 
 // FAST_ARRAY[ITM_TYPE_STYLE]
-#define __FAST_ARRAYoITM_TYPE_STYLEo__ 83
+#define __FAST_ARRAYoITM_TYPE_STYLEo__ 84
 typedef struct FAST_ARRAYoITM_TYPE_STYLEo_struct __FAST_ARRAYoITM_TYPE_STYLEo;
 struct FAST_ARRAYoITM_TYPE_STYLEo_struct {
   __ARRAYED_COLLECTIONoITM_TYPE_STYLEo parent_arrayed_collection__FOR;
@@ -1273,7 +1283,7 @@ __ITM_LIST ITM_LIST_={__ITM_LIST__};
 #define ITM_LIST__ (&ITM_LIST_)
 
 // ARRAYED_COLLECTION[FAST_ARRAY[ITM_LOCAL]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ 84
+#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ 85
 typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo;
 struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct {
   __INTEGER upper__J1T;
@@ -1284,7 +1294,7 @@ __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_LO
 #define ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_)
 
 // FAST_ARRAY[FAST_ARRAY[ITM_LOCAL]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__ 85
+#define __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__ 86
 typedef struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo;
 struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct {
   __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo parent_arrayed_collection__URI;
@@ -1293,7 +1303,7 @@ __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_;
 #define FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__ (&FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_)
 
 // ALIAS_ARRAY[ITM_LOCAL]
-#define __ALIAS_ARRAYoITM_LOCALo__ 86
+#define __ALIAS_ARRAYoITM_LOCALo__ 87
 typedef struct ALIAS_ARRAYoITM_LOCALo_struct __ALIAS_ARRAYoITM_LOCALo;
 struct ALIAS_ARRAYoITM_LOCALo_struct {
   void *Nothing;
@@ -1302,7 +1312,7 @@ __ALIAS_ARRAYoITM_LOCALo ALIAS_ARRAYoITM_LOCALo_;
 #define ALIAS_ARRAYoITM_LOCALo__ (&ALIAS_ARRAYoITM_LOCALo_)
 
 // ARRAYED_COLLECTION[FAST_ARRAY[ITM_CODE]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ 87
+#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ 88
 typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo;
 struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct {
   __INTEGER upper__IWT;
@@ -1313,7 +1323,7 @@ __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_COD
 #define ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_)
 
 // FAST_ARRAY[FAST_ARRAY[ITM_CODE]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_CODEoo__ 88
+#define __FAST_ARRAYoFAST_ARRAYoITM_CODEoo__ 89
 typedef struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct __FAST_ARRAYoFAST_ARRAYoITM_CODEoo;
 struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct {
   __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo parent_arrayed_collection__A4H;
@@ -1322,7 +1332,7 @@ __FAST_ARRAYoFAST_ARRAYoITM_CODEoo FAST_ARRAYoFAST_ARRAYoITM_CODEoo_;
 #define FAST_ARRAYoFAST_ARRAYoITM_CODEoo__ (&FAST_ARRAYoFAST_ARRAYoITM_CODEoo_)
 
 // ALIAS_ARRAY[ITM_CODE]
-#define __ALIAS_ARRAYoITM_CODEo__ 89
+#define __ALIAS_ARRAYoITM_CODEo__ 90
 typedef struct ALIAS_ARRAYoITM_CODEo_struct __ALIAS_ARRAYoITM_CODEo;
 struct ALIAS_ARRAYoITM_CODEo_struct {
   void *Nothing;
@@ -1331,7 +1341,7 @@ __ALIAS_ARRAYoITM_CODEo ALIAS_ARRAYoITM_CODEo_;
 #define ALIAS_ARRAYoITM_CODEo__ (&ALIAS_ARRAYoITM_CODEo_)
 
 // ARRAYED_COLLECTION[FAST_ARRAY[STRING_CONSTANT]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ 90
+#define __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ 91
 typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo;
 struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct {
   __INTEGER upper__0SU;
@@ -1342,7 +1352,7 @@ __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo ARRAYED_COLLECTIONoFAST_ARRAYo
 #define ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_)
 
 // FAST_ARRAY[FAST_ARRAY[STRING_CONSTANT]]
-#define __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ 91
+#define __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ 92
 typedef struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo;
 struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct {
   __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo parent_arrayed_collection__J5K;
@@ -1351,7 +1361,7 @@ __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANTo
 #define FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ (&FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_)
 
 // ALIAS_ARRAY[STRING_CONSTANT]
-#define __ALIAS_ARRAYoSTRING_CONSTANTo__ 92
+#define __ALIAS_ARRAYoSTRING_CONSTANTo__ 93
 typedef struct ALIAS_ARRAYoSTRING_CONSTANTo_struct __ALIAS_ARRAYoSTRING_CONSTANTo;
 struct ALIAS_ARRAYoSTRING_CONSTANTo_struct {
   void *Nothing;
@@ -1390,7 +1400,7 @@ __ITM_PROTOTYPE ITM_PROTOTYPE_={__ITM_PROTOTYPE__};
 #define ITM_PROTOTYPE__ (&ITM_PROTOTYPE_)
 
 // ITM_WRITE
-#define __ITM_WRITE__ 93
+#define __ITM_WRITE__ 94
 typedef struct ITM_WRITE_struct __ITM_WRITE;
 struct ITM_WRITE_struct {
   __ITM_CODE parent_itm_code__LDJ;
@@ -1480,7 +1490,7 @@ __ITM_OLD ITM_OLD_={__ITM_OLD__};
 #define ITM_OLD__ (&ITM_OLD_)
 
 // ITM_EXTERN
-#define __ITM_EXTERN__ 94
+#define __ITM_EXTERN__ 95
 typedef struct ITM_EXTERN_struct __ITM_EXTERN;
 struct ITM_EXTERN_struct {
   __ITM_CODE parent_itm_code__O4M;
@@ -1530,62 +1540,62 @@ __ITM_READ_ARGS ITM_READ_ARGS_={__ITM_READ_ARGS__};
 #define ITM_READ_ARGS__ (&ITM_READ_ARGS_)
 
 // HASHED_SET_NODE[FAST_ARRAY[STRING_CONSTANT]]
-#define __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ 95
+#define __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ 96
 typedef struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo;
 struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct {
-  void *item__TDPF;
-  void *next__5DPF;
+  void *item__RJPF;
+  void *next__3JPF;
 };
 __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_;
 #define HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ (&HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_)
 
 // HASHED_SET[FAST_ARRAY[STRING_CONSTANT]]
-#define __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ 96
+#define __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ 97
 typedef struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo;
 struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct {
-  __INTEGER capacity__CDPF;
-  __INTEGER count__ZHPF;
-  void **buckets__HDPF;
+  __INTEGER capacity__AJPF;
+  __INTEGER count__XNPF;
+  void **buckets__FJPF;
 };
 __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_;
 #define HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ (&HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_)
 
 // ARRAYED_COLLECTION[LIP_INTEGER]
-#define __ARRAYED_COLLECTIONoLIP_INTEGERo__ 97
+#define __ARRAYED_COLLECTIONoLIP_INTEGERo__ 98
 typedef struct ARRAYED_COLLECTIONoLIP_INTEGERo_struct __ARRAYED_COLLECTIONoLIP_INTEGERo;
 struct ARRAYED_COLLECTIONoLIP_INTEGERo_struct {
-  __INTEGER upper__4TWE;
-  __INTEGER capacity__LVWE;
-  void **storage__WVWE;
+  __INTEGER upper__BWWE;
+  __INTEGER capacity__D0WE;
+  void **storage__O0WE;
 };
 __ARRAYED_COLLECTIONoLIP_INTEGERo ARRAYED_COLLECTIONoLIP_INTEGERo_;
 #define ARRAYED_COLLECTIONoLIP_INTEGERo__ (&ARRAYED_COLLECTIONoLIP_INTEGERo_)
 
 // FAST_ARRAY[LIP_INTEGER]
-#define __FAST_ARRAYoLIP_INTEGERo__ 98
+#define __FAST_ARRAYoLIP_INTEGERo__ 99
 typedef struct FAST_ARRAYoLIP_INTEGERo_struct __FAST_ARRAYoLIP_INTEGERo;
 struct FAST_ARRAYoLIP_INTEGERo_struct {
-  __ARRAYED_COLLECTIONoLIP_INTEGERo parent_arrayed_collection__ZFSE;
+  __ARRAYED_COLLECTIONoLIP_INTEGERo parent_arrayed_collection__DKSE;
 };
 __FAST_ARRAYoLIP_INTEGERo FAST_ARRAYoLIP_INTEGERo_;
 #define FAST_ARRAYoLIP_INTEGERo__ (&FAST_ARRAYoLIP_INTEGERo_)
 
 // ARRAYED_COLLECTION[LIP_STRING]
-#define __ARRAYED_COLLECTIONoLIP_STRINGo__ 99
+#define __ARRAYED_COLLECTIONoLIP_STRINGo__ 100
 typedef struct ARRAYED_COLLECTIONoLIP_STRINGo_struct __ARRAYED_COLLECTIONoLIP_STRINGo;
 struct ARRAYED_COLLECTIONoLIP_STRINGo_struct {
-  __INTEGER upper__NSOF;
-  __INTEGER capacity__UYOF;
-  void **storage__5YOF;
+  __INTEGER upper__4XOF;
+  __INTEGER capacity__S4OF;
+  void **storage__34OF;
 };
 __ARRAYED_COLLECTIONoLIP_STRINGo ARRAYED_COLLECTIONoLIP_STRINGo_;
 #define ARRAYED_COLLECTIONoLIP_STRINGo__ (&ARRAYED_COLLECTIONoLIP_STRINGo_)
 
 // FAST_ARRAY[LIP_STRING]
-#define __FAST_ARRAYoLIP_STRINGo__ 100
+#define __FAST_ARRAYoLIP_STRINGo__ 101
 typedef struct FAST_ARRAYoLIP_STRINGo_struct __FAST_ARRAYoLIP_STRINGo;
 struct FAST_ARRAYoLIP_STRINGo_struct {
-  __ARRAYED_COLLECTIONoLIP_STRINGo parent_arrayed_collection__W2EF;
+  __ARRAYED_COLLECTIONoLIP_STRINGo parent_arrayed_collection__0BFF;
 };
 __FAST_ARRAYoLIP_STRINGo FAST_ARRAYoLIP_STRINGo_;
 #define FAST_ARRAYoLIP_STRINGo__ (&FAST_ARRAYoLIP_STRINGo_)
@@ -1608,14 +1618,14 @@ __LIP_BOOLEAN LIP_BOOLEAN_={__LIP_BOOLEAN__};
 typedef struct LIP_VALUE_struct __LIP_VALUE;
 struct LIP_VALUE_struct {
   unsigned long __id;
-  __LIP_CODE parent_lip_code__0DFE;
-  void *value__RFUE;
+  __LIP_CODE parent_lip_code__2HFE;
+  void *value__FKUE;
 };
 __LIP_VALUE LIP_VALUE_={__LIP_VALUE__};
 #define LIP_VALUE__ (&LIP_VALUE_)
 
 // ARRAYED_COLLECTION[FAST_ARRAY[LIP_CODE]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__ 101
+#define __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__ 102
 typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo;
 struct ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_struct {
   __INTEGER upper__POTD;
@@ -1626,7 +1636,7 @@ __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo ARRAYED_COLLECTIONoFAST_ARRAYoLIP_COD
 #define ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_)
 
 // FAST_ARRAY[FAST_ARRAY[LIP_CODE]]
-#define __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__ 102
+#define __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__ 103
 typedef struct FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_struct __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo;
 struct FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_struct {
   __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo parent_arrayed_collection__FKID;
@@ -1635,7 +1645,7 @@ __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_;
 #define FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__ (&FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_)
 
 // ALIAS_ARRAY[LIP_CODE]
-#define __ALIAS_ARRAYoLIP_CODEo__ 103
+#define __ALIAS_ARRAYoLIP_CODEo__ 104
 typedef struct ALIAS_ARRAYoLIP_CODEo_struct __ALIAS_ARRAYoLIP_CODEo;
 struct ALIAS_ARRAYoLIP_CODEo_struct {
   void *Nothing;
@@ -1644,7 +1654,7 @@ __ALIAS_ARRAYoLIP_CODEo ALIAS_ARRAYoLIP_CODEo_;
 #define ALIAS_ARRAYoLIP_CODEo__ (&ALIAS_ARRAYoLIP_CODEo_)
 
 // INPUT_STREAM
-#define __INPUT_STREAM__ 104
+#define __INPUT_STREAM__ 105
 typedef struct INPUT_STREAM_struct __INPUT_STREAM;
 struct INPUT_STREAM_struct {
   void *Nothing;
@@ -1653,7 +1663,7 @@ __INPUT_STREAM INPUT_STREAM_;
 #define INPUT_STREAM__ (&INPUT_STREAM_)
 
 // STD_INPUT
-#define __STD_INPUT__ 105
+#define __STD_INPUT__ 106
 typedef struct STD_INPUT_struct __STD_INPUT;
 struct STD_INPUT_struct {
   void *Nothing;
@@ -1662,7 +1672,7 @@ __STD_INPUT STD_INPUT_;
 #define STD_INPUT__ (&STD_INPUT_)
 
 // LIP_SLOT_DATA
-#define __LIP_SLOT_DATA__ 106
+#define __LIP_SLOT_DATA__ 107
 typedef struct LIP_SLOT_DATA_struct __LIP_SLOT_DATA;
 struct LIP_SLOT_DATA_struct {
   void *Nothing;
@@ -1671,27 +1681,27 @@ __LIP_SLOT_DATA LIP_SLOT_DATA_;
 #define LIP_SLOT_DATA__ (&LIP_SLOT_DATA_)
 
 // ARRAYED_COLLECTION[LIP_SLOT_DATA]
-#define __ARRAYED_COLLECTIONoLIP_SLOT_DATAo__ 107
+#define __ARRAYED_COLLECTIONoLIP_SLOT_DATAo__ 108
 typedef struct ARRAYED_COLLECTIONoLIP_SLOT_DATAo_struct __ARRAYED_COLLECTIONoLIP_SLOT_DATAo;
 struct ARRAYED_COLLECTIONoLIP_SLOT_DATAo_struct {
-  __INTEGER upper__W0OF;
-  __INTEGER capacity__3APF;
-  void **storage__IBPF;
+  __INTEGER upper__UAPF;
+  __INTEGER capacity__1GPF;
+  void **storage__GHPF;
 };
 __ARRAYED_COLLECTIONoLIP_SLOT_DATAo ARRAYED_COLLECTIONoLIP_SLOT_DATAo_;
 #define ARRAYED_COLLECTIONoLIP_SLOT_DATAo__ (&ARRAYED_COLLECTIONoLIP_SLOT_DATAo_)
 
 // FAST_ARRAY[LIP_SLOT_DATA]
-#define __FAST_ARRAYoLIP_SLOT_DATAo__ 108
+#define __FAST_ARRAYoLIP_SLOT_DATAo__ 109
 typedef struct FAST_ARRAYoLIP_SLOT_DATAo_struct __FAST_ARRAYoLIP_SLOT_DATAo;
 struct FAST_ARRAYoLIP_SLOT_DATAo_struct {
-  __ARRAYED_COLLECTIONoLIP_SLOT_DATAo parent_arrayed_collection__QEUE;
+  __ARRAYED_COLLECTIONoLIP_SLOT_DATAo parent_arrayed_collection__EJUE;
 };
 __FAST_ARRAYoLIP_SLOT_DATAo FAST_ARRAYoLIP_SLOT_DATAo_;
 #define FAST_ARRAYoLIP_SLOT_DATAo__ (&FAST_ARRAYoLIP_SLOT_DATAo_)
 
 // LIP_SLOT_CODE
-#define __LIP_SLOT_CODE__ 109
+#define __LIP_SLOT_CODE__ 110
 typedef struct LIP_SLOT_CODE_struct __LIP_SLOT_CODE;
 struct LIP_SLOT_CODE_struct {
   void *Nothing;
@@ -1700,27 +1710,27 @@ __LIP_SLOT_CODE LIP_SLOT_CODE_;
 #define LIP_SLOT_CODE__ (&LIP_SLOT_CODE_)
 
 // ARRAYED_COLLECTION[LIP_SLOT_CODE]
-#define __ARRAYED_COLLECTIONoLIP_SLOT_CODEo__ 110
+#define __ARRAYED_COLLECTIONoLIP_SLOT_CODEo__ 111
 typedef struct ARRAYED_COLLECTIONoLIP_SLOT_CODEo_struct __ARRAYED_COLLECTIONoLIP_SLOT_CODEo;
 struct ARRAYED_COLLECTIONoLIP_SLOT_CODEo_struct {
-  __INTEGER upper__3XJF;
-  __INTEGER capacity__41OF;
-  void **storage__J2OF;
+  __INTEGER upper__C3JF;
+  __INTEGER capacity__2BPF;
+  void **storage__HCPF;
 };
 __ARRAYED_COLLECTIONoLIP_SLOT_CODEo ARRAYED_COLLECTIONoLIP_SLOT_CODEo_;
 #define ARRAYED_COLLECTIONoLIP_SLOT_CODEo__ (&ARRAYED_COLLECTIONoLIP_SLOT_CODEo_)
 
 // FAST_ARRAY[LIP_SLOT_CODE]
-#define __FAST_ARRAYoLIP_SLOT_CODEo__ 111
+#define __FAST_ARRAYoLIP_SLOT_CODEo__ 112
 typedef struct FAST_ARRAYoLIP_SLOT_CODEo_struct __FAST_ARRAYoLIP_SLOT_CODEo;
 struct FAST_ARRAYoLIP_SLOT_CODEo_struct {
-  __ARRAYED_COLLECTIONoLIP_SLOT_CODEo parent_arrayed_collection__TXJF;
+  __ARRAYED_COLLECTIONoLIP_SLOT_CODEo parent_arrayed_collection__Y2JF;
 };
 __FAST_ARRAYoLIP_SLOT_CODEo FAST_ARRAYoLIP_SLOT_CODEo_;
 #define FAST_ARRAYoLIP_SLOT_CODEo__ (&FAST_ARRAYoLIP_SLOT_CODEo_)
 
 // HASHED_DICTIONARY_NODE[SECTION_,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ 112
+#define __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ 113
 typedef struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo;
 struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct {
   void *key__OPEC;
@@ -1731,7 +1741,7 @@ __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARY_NODEoSECTIO
 #define HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_)
 
 // HASHED_DICTIONARY[SECTION_,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ 113
+#define __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ 114
 typedef struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo;
 struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct {
   __INTEGER capacity__3OEC;
@@ -1741,15 +1751,6 @@ struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct {
 __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_;
 #define HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_)
 
-// SECTION_
-#define __SECTION___ 114
-typedef struct SECTION__struct __SECTION_;
-struct SECTION__struct {
-  void *name__CZDC;
-};
-__SECTION_ SECTION__;
-#define SECTION___ (&SECTION__)
-
 // HASHED_DICTIONARY_NODE[SECTION_,FAST_ARRAY[ITM_TYPE_MONO]]
 #define __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ 115
 typedef struct HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo;
@@ -1805,9 +1806,9 @@ __ALIAS_ARRAYoITM_ARGUMENTo ALIAS_ARRAYoITM_ARGUMENTo_;
 #define __ARRAYED_COLLECTIONoITM_SLOTo__ 120
 typedef struct ARRAYED_COLLECTIONoITM_SLOTo_struct __ARRAYED_COLLECTIONoITM_SLOTo;
 struct ARRAYED_COLLECTIONoITM_SLOTo_struct {
-  __INTEGER upper__21XD;
-  __INTEGER capacity__SMVE;
-  void **storage__MZVE;
+  __INTEGER upper__M2XD;
+  __INTEGER capacity__GRVE;
+  void **storage__A4VE;
 };
 __ARRAYED_COLLECTIONoITM_SLOTo ARRAYED_COLLECTIONoITM_SLOTo_;
 #define ARRAYED_COLLECTIONoITM_SLOTo__ (&ARRAYED_COLLECTIONoITM_SLOTo_)
@@ -1882,6 +1883,8 @@ void *string_tmp__TED;
 void *string_tmp2__Z0AC;
 void *alias__EFD;
 void *string_tmp3__50AC;
+void *bucket_name__DVOB;
+void *bucket_list__4WOB;
 void *short_dico__QD;
 void *object__JBC;
 void *source__PBC;
@@ -1917,10 +1920,10 @@ void *type_null__5UN;
 void *dico__GOR;
 void *dico__XXP;
 void *list_data__OONC;
-void *stack__REUE;
-void *list_method__UXJF;
-void *storage__0FSE;
-void *storage__X2EF;
+void *stack__FJUE;
+void *list_method__Z2JF;
+void *storage__EKSE;
+void *storage__1BFF;
 __UINTEGER_32 clone_allocation_size__3SB;
 __POINTER get_begin_memory__ICQB;
 void *list__FK;
@@ -1929,7 +1932,7 @@ void *string_tmp__VH;
 void *output_code__SI;
 void *output_decl__3FE;
 void *string_tmp2__BAJ;
-void *path_file__A2VF;
+void *path_file__PDWF;
 __BOOLEAN is_short_recursive__JB;
 __BOOLEAN is_shorter2__VI;
 __BOOLEAN is_shorter__5Y;
@@ -1950,16 +1953,14 @@ void *bucket__2VP;
 void *free_list__VRI;
 void *free_list__B4H;
 void *free_list__K5K;
-void *empty_list__WHLF;
-void *bucket__AILF;
-void *true__5TKF;
+void *empty_list__GNLF;
+void *bucket__QNLF;
+void *true__GZKF;
 void *free_list__GKID;
-__INTEGER last_integer__JDUE;
-void *last_string__1DUE;
-__BOOLEAN push_back_flag__NTLF;
-__CHARACTER memory__0ALF;
-void *bucket_name__DVOB;
-void *bucket_list__4WOB;
+__INTEGER last_integer__3HUE;
+void *last_string__PIUE;
+__BOOLEAN push_back_flag__3YLF;
+__CHARACTER memory__BGLF;
 void *free_list__WU1B;
 
 //==========================//
@@ -2122,7 +2123,7 @@ __STRING_CONSTANT __string_149={__STRING_CONSTANT__,18,"directory_list_end"};
 __STRING_CONSTANT __string_150={__STRING_CONSTANT__,15,"file_list_begin"};
 __STRING_CONSTANT __string_151={__STRING_CONSTANT__,14,"file_list_item"};
 __STRING_CONSTANT __string_152={__STRING_CONSTANT__,13,"file_list_end"};
-__STRING_CONSTANT __string_153={__STRING_CONSTANT__,1793,"------------------\
+__STRING_CONSTANT __string_153={__STRING_CONSTANT__,1979,"------------------\
 ----------------------------------------------\n--                   Lisaac \
 source Shorter                    --\n--            LORIA - LSIIT - ULP - CN\
 RS - FRANCE             --\n--         Benoit SONNTAG - sonntag at icps.u-stras\
@@ -2137,16 +2138,19 @@ _file[.li]> [Options]                       \n                              \
 lude code source                    \n  -r               : recursive builder\
  documentation        \n  -f <format_file> : formatting description file    \
         \n                     (see `/lisaac/shorter/')               \n  -d\
-               : Lisaac doc style (no -c)               \n                  \
+               : Lisaac doc style (no -c, -r)           \n                  \
                                           \nExamples:                       \
                             \n  * Output format file:                       \
               \n    shorter -c -p -f latex hello_world.li                   \
 \n                                                            \n  * Build ht\
 ml documentation:                               \n    shorter -r -f html ~/l\
 isaac/lib                         \n                                        \
-                    \nBug report:                                           \
-      \n            post in : https://gna.org/bugs/?group=isaac     \n      \
-      mail to : sonntag at icps.u-strasbg.fr             \n"};
+                    \n  * Build html documentation style JavaDoc:           \
+      \n    shorter -d -f javadoc ~/lisaac/lib                         \n   \
+                                                         \nBug report:      \
+                                           \n            post in : https://g\
+na.org/bugs/?group=isaac     \n            mail to : sonntag at icps.u-strasbg.\
+fr             \n"};
 __STRING_CONSTANT __string_154={__STRING_CONSTANT__,8,"shorter/"};
 __STRING_CONSTANT __string_155={__STRING_CONSTANT__,3,".li"};
 __STRING_CONSTANT __string_156={__STRING_CONSTANT__,20,"Error: File format `"};
@@ -2167,105 +2171,109 @@ __STRING_CONSTANT __string_166={__STRING_CONSTANT__,13,"\' not found.\n"};
 __STRING_CONSTANT __string_167={__STRING_CONSTANT__,12,"\' not open.\n"};
 __STRING_CONSTANT __string_168={__STRING_CONSTANT__,14,"directory_list"};
 __STRING_CONSTANT __string_169={__STRING_CONSTANT__,9,"file_list"};
-__STRING_CONSTANT __string_170={__STRING_CONSTANT__,15,"Inherit Summary"};
-__STRING_CONSTANT __string_171={__STRING_CONSTANT__,14," No developed."};
-__STRING_CONSTANT __string_172={__STRING_CONSTANT__,6,"create"};
-__STRING_CONSTANT __string_173={__STRING_CONSTANT__,19,"Constructor Summary"};
-__STRING_CONSTANT __string_174={__STRING_CONSTANT__,12,"Slot Summary"};
-__STRING_CONSTANT __string_175={__STRING_CONSTANT__,14,"Inherit Detail"};
-__STRING_CONSTANT __string_176={__STRING_CONSTANT__,7," line #"};
-__STRING_CONSTANT __string_177={__STRING_CONSTANT__,8,"Profile:"};
-__STRING_CONSTANT __string_178={__STRING_CONSTANT__,12,"Description:"};
-__STRING_CONSTANT __string_179={__STRING_CONSTANT__,11,"Parameters:"};
-__STRING_CONSTANT __string_180={__STRING_CONSTANT__,10,"Contracts:"};
-__STRING_CONSTANT __string_181={__STRING_CONSTANT__,9,"See also:"};
-__STRING_CONSTANT __string_182={__STRING_CONSTANT__,18,"Constructor Detail"};
-__STRING_CONSTANT __string_183={__STRING_CONSTANT__,11,"Slot Detail"};
-__STRING_CONSTANT __string_184={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-__STRING_CONSTANT __string_185={__STRING_CONSTANT__,4,"_add"};
-__STRING_CONSTANT __string_186={__STRING_CONSTANT__,4,"_sub"};
-__STRING_CONSTANT __string_187={__STRING_CONSTANT__,9,"_logicnot"};
-__STRING_CONSTANT __string_188={__STRING_CONSTANT__,4,"_not"};
-__STRING_CONSTANT __string_189={__STRING_CONSTANT__,4,"_div"};
-__STRING_CONSTANT __string_190={__STRING_CONSTANT__,4,"_mul"};
-__STRING_CONSTANT __string_191={__STRING_CONSTANT__,4,"_xor"};
-__STRING_CONSTANT __string_192={__STRING_CONSTANT__,4,"_mod"};
-__STRING_CONSTANT __string_193={__STRING_CONSTANT__,8,"_greater"};
-__STRING_CONSTANT __string_194={__STRING_CONSTANT__,5,"_less"};
-__STRING_CONSTANT __string_195={__STRING_CONSTANT__,6,"_equal"};
-__STRING_CONSTANT __string_196={__STRING_CONSTANT__,7,"_notdiv"};
-__STRING_CONSTANT __string_197={__STRING_CONSTANT__,3,"_or"};
-__STRING_CONSTANT __string_198={__STRING_CONSTANT__,4,"_and"};
-__STRING_CONSTANT __string_199={__STRING_CONSTANT__,7,"_dollar"};
-__STRING_CONSTANT __string_200={__STRING_CONSTANT__,6,"_diese"};
-__STRING_CONSTANT __string_201={__STRING_CONSTANT__,3,"_at"};
-__STRING_CONSTANT __string_202={__STRING_CONSTANT__,4,"_ask"};
-__STRING_CONSTANT __string_203={__STRING_CONSTANT__,26,"End of comment not f\
+__STRING_CONSTANT __string_170={__STRING_CONSTANT__,22,"Inherit/Insert Summa\
+ry"};
+__STRING_CONSTANT __string_171={__STRING_CONSTANT__,7,"inherit"};
+__STRING_CONSTANT __string_172={__STRING_CONSTANT__,6,"insert"};
+__STRING_CONSTANT __string_173={__STRING_CONSTANT__,14," No developed."};
+__STRING_CONSTANT __string_174={__STRING_CONSTANT__,6,"create"};
+__STRING_CONSTANT __string_175={__STRING_CONSTANT__,19,"Constructor Summary"};
+__STRING_CONSTANT __string_176={__STRING_CONSTANT__,12,"Slot Summary"};
+__STRING_CONSTANT __string_177={__STRING_CONSTANT__,21,"Inherit/Insert Detail"};
+__STRING_CONSTANT __string_178={__STRING_CONSTANT__,7," line #"};
+__STRING_CONSTANT __string_179={__STRING_CONSTANT__,8,"Section:"};
+__STRING_CONSTANT __string_180={__STRING_CONSTANT__,8,"Profile:"};
+__STRING_CONSTANT __string_181={__STRING_CONSTANT__,12,"Description:"};
+__STRING_CONSTANT __string_182={__STRING_CONSTANT__,11,"Parameters:"};
+__STRING_CONSTANT __string_183={__STRING_CONSTANT__,10,"Contracts:"};
+__STRING_CONSTANT __string_184={__STRING_CONSTANT__,9,"See also:"};
+__STRING_CONSTANT __string_185={__STRING_CONSTANT__,18,"Constructor Detail"};
+__STRING_CONSTANT __string_186={__STRING_CONSTANT__,11,"Slot Detail"};
+__STRING_CONSTANT __string_187={__STRING_CONSTANT__,19,"Not enough memory.\n"};
+__STRING_CONSTANT __string_188={__STRING_CONSTANT__,4,"_add"};
+__STRING_CONSTANT __string_189={__STRING_CONSTANT__,4,"_sub"};
+__STRING_CONSTANT __string_190={__STRING_CONSTANT__,9,"_logicnot"};
+__STRING_CONSTANT __string_191={__STRING_CONSTANT__,4,"_not"};
+__STRING_CONSTANT __string_192={__STRING_CONSTANT__,4,"_div"};
+__STRING_CONSTANT __string_193={__STRING_CONSTANT__,4,"_mul"};
+__STRING_CONSTANT __string_194={__STRING_CONSTANT__,4,"_xor"};
+__STRING_CONSTANT __string_195={__STRING_CONSTANT__,4,"_mod"};
+__STRING_CONSTANT __string_196={__STRING_CONSTANT__,8,"_greater"};
+__STRING_CONSTANT __string_197={__STRING_CONSTANT__,5,"_less"};
+__STRING_CONSTANT __string_198={__STRING_CONSTANT__,6,"_equal"};
+__STRING_CONSTANT __string_199={__STRING_CONSTANT__,7,"_notdiv"};
+__STRING_CONSTANT __string_200={__STRING_CONSTANT__,3,"_or"};
+__STRING_CONSTANT __string_201={__STRING_CONSTANT__,4,"_and"};
+__STRING_CONSTANT __string_202={__STRING_CONSTANT__,7,"_dollar"};
+__STRING_CONSTANT __string_203={__STRING_CONSTANT__,6,"_diese"};
+__STRING_CONSTANT __string_204={__STRING_CONSTANT__,3,"_at"};
+__STRING_CONSTANT __string_205={__STRING_CONSTANT__,4,"_ask"};
+__STRING_CONSTANT __string_206={__STRING_CONSTANT__,26,"End of comment not f\
 ound !"};
-__STRING_CONSTANT __string_204={__STRING_CONSTANT__,24,"Identifier is incorr\
+__STRING_CONSTANT __string_207={__STRING_CONSTANT__,24,"Identifier is incorr\
 ect."};
-__STRING_CONSTANT __string_205={__STRING_CONSTANT__,22,"Line counter overflo\
+__STRING_CONSTANT __string_208={__STRING_CONSTANT__,22,"Line counter overflo\
 w."};
-__STRING_CONSTANT __string_206={__STRING_CONSTANT__,40,"Column counter overf\
+__STRING_CONSTANT __string_209={__STRING_CONSTANT__,40,"Column counter overf\
 low (line too long)."};
-__STRING_CONSTANT __string_207={__STRING_CONSTANT__,20,"--SYNTAX-----------\n"};
-__STRING_CONSTANT __string_208={__STRING_CONSTANT__,20,"--SEMANTIC---------\n"};
-__STRING_CONSTANT __string_209={__STRING_CONSTANT__,20,"--WARNING----------\n"};
-__STRING_CONSTANT __string_210={__STRING_CONSTANT__,20,"--MESSAGE----------\n"};
-__STRING_CONSTANT __string_211={__STRING_CONSTANT__,6,"\nLine "};
-__STRING_CONSTANT __string_212={__STRING_CONSTANT__,8," column "};
-__STRING_CONSTANT __string_213={__STRING_CONSTANT__,4," in "};
-__STRING_CONSTANT __string_214={__STRING_CONSTANT__,3,"):\n"};
-__STRING_CONSTANT __string_215={__STRING_CONSTANT__,2,"^\n"};
-__STRING_CONSTANT __string_216={__STRING_CONSTANT__,21,"Variable not `token'."};
-__STRING_CONSTANT __string_217={__STRING_CONSTANT__,13,"Crash system."};
-__STRING_CONSTANT __string_218={__STRING_CONSTANT__,1,"."};
-__STRING_CONSTANT __string_219={__STRING_CONSTANT__,20,"Warning: directory `"};
-__STRING_CONSTANT __string_220={__STRING_CONSTANT__,36,"Error: Double defini\
+__STRING_CONSTANT __string_210={__STRING_CONSTANT__,20,"--SYNTAX-----------\n"};
+__STRING_CONSTANT __string_211={__STRING_CONSTANT__,20,"--SEMANTIC---------\n"};
+__STRING_CONSTANT __string_212={__STRING_CONSTANT__,20,"--WARNING----------\n"};
+__STRING_CONSTANT __string_213={__STRING_CONSTANT__,20,"--MESSAGE----------\n"};
+__STRING_CONSTANT __string_214={__STRING_CONSTANT__,6,"\nLine "};
+__STRING_CONSTANT __string_215={__STRING_CONSTANT__,8," column "};
+__STRING_CONSTANT __string_216={__STRING_CONSTANT__,4," in "};
+__STRING_CONSTANT __string_217={__STRING_CONSTANT__,3,"):\n"};
+__STRING_CONSTANT __string_218={__STRING_CONSTANT__,2,"^\n"};
+__STRING_CONSTANT __string_219={__STRING_CONSTANT__,21,"Variable not `token'."};
+__STRING_CONSTANT __string_220={__STRING_CONSTANT__,13,"Crash system."};
+__STRING_CONSTANT __string_221={__STRING_CONSTANT__,1,"."};
+__STRING_CONSTANT __string_222={__STRING_CONSTANT__,20,"Warning: directory `"};
+__STRING_CONSTANT __string_223={__STRING_CONSTANT__,36,"Error: Double defini\
 tion prototype:\n"};
-__STRING_CONSTANT __string_221={__STRING_CONSTANT__,4,".txt"};
-__STRING_CONSTANT __string_222={__STRING_CONSTANT__,12,"Error: File "};
-__STRING_CONSTANT __string_223={__STRING_CONSTANT__,18," is not created !\n"};
-__STRING_CONSTANT __string_224={__STRING_CONSTANT__,15," is not open !\n"};
-__STRING_CONSTANT __string_225={__STRING_CONSTANT__,20,"`Section' is needed."};
-__STRING_CONSTANT __string_226={__STRING_CONSTANT__,27,"Section `Header' is \
+__STRING_CONSTANT __string_224={__STRING_CONSTANT__,4,".txt"};
+__STRING_CONSTANT __string_225={__STRING_CONSTANT__,12,"Error: File "};
+__STRING_CONSTANT __string_226={__STRING_CONSTANT__,18," is not created !\n"};
+__STRING_CONSTANT __string_227={__STRING_CONSTANT__,15," is not open !\n"};
+__STRING_CONSTANT __string_228={__STRING_CONSTANT__,20,"`Section' is needed."};
+__STRING_CONSTANT __string_229={__STRING_CONSTANT__,27,"Section `Header' is \
 needed."};
-__STRING_CONSTANT __string_227={__STRING_CONSTANT__,22,"Slot `name' not foun\
+__STRING_CONSTANT __string_230={__STRING_CONSTANT__,22,"Slot `name' not foun\
 d."};
-__STRING_CONSTANT __string_228={__STRING_CONSTANT__,23,"Incorrect type secti\
+__STRING_CONSTANT __string_231={__STRING_CONSTANT__,23,"Incorrect type secti\
 on."};
-__STRING_CONSTANT __string_229={__STRING_CONSTANT__,50,"`Section Inherit/Ins\
+__STRING_CONSTANT __string_232={__STRING_CONSTANT__,50,"`Section Inherit/Ins\
 ert' must to be first section."};
-__STRING_CONSTANT __string_230={__STRING_CONSTANT__,78,"`Section Inherit' is\
+__STRING_CONSTANT __string_233={__STRING_CONSTANT__,78,"`Section Inherit' is\
  not possible with Expanded object (Use `Section Insert')."};
-__STRING_CONSTANT __string_231={__STRING_CONSTANT__,31,"No argument for inte\
+__STRING_CONSTANT __string_234={__STRING_CONSTANT__,31,"No argument for inte\
 rrupt slot."};
-__STRING_CONSTANT __string_232={__STRING_CONSTANT__,33,"No argument for inhe\
+__STRING_CONSTANT __string_235={__STRING_CONSTANT__,33,"No argument for inhe\
 ritance slot."};
-__STRING_CONSTANT __string_233={__STRING_CONSTANT__,27,"Incorrect slot decla\
+__STRING_CONSTANT __string_236={__STRING_CONSTANT__,27,"Incorrect slot decla\
 ration."};
-__STRING_CONSTANT __string_234={__STRING_CONSTANT__,22,"Incorrect result typ\
+__STRING_CONSTANT __string_237={__STRING_CONSTANT__,22,"Incorrect result typ\
 e."};
-__STRING_CONSTANT __string_235={__STRING_CONSTANT__,20,"Added ')' is needed."};
-__STRING_CONSTANT __string_236={__STRING_CONSTANT__,36,"Incorrect type for i\
+__STRING_CONSTANT __string_238={__STRING_CONSTANT__,20,"Added ')' is needed."};
+__STRING_CONSTANT __string_239={__STRING_CONSTANT__,36,"Incorrect type for i\
 nheritance slot."};
-__STRING_CONSTANT __string_237={__STRING_CONSTANT__,21,"Incorrect expression."};
-__STRING_CONSTANT __string_238={__STRING_CONSTANT__,7,"__init_"};
-__STRING_CONSTANT __string_239={__STRING_CONSTANT__,10,"Added ';'."};
-__STRING_CONSTANT __string_240={__STRING_CONSTANT__,24,"Double slot declarat\
+__STRING_CONSTANT __string_240={__STRING_CONSTANT__,21,"Incorrect expression."};
+__STRING_CONSTANT __string_241={__STRING_CONSTANT__,7,"__init_"};
+__STRING_CONSTANT __string_242={__STRING_CONSTANT__,10,"Added ';'."};
+__STRING_CONSTANT __string_243={__STRING_CONSTANT__,24,"Double slot declarat\
 ion."};
-__STRING_CONSTANT __string_241={__STRING_CONSTANT__,38,"Invariant: Sorry, No\
+__STRING_CONSTANT __string_244={__STRING_CONSTANT__,38,"Invariant: Sorry, No\
 t yet implemented."};
-__STRING_CONSTANT __string_242={__STRING_CONSTANT__,9,"Postfix '"};
-__STRING_CONSTANT __string_243={__STRING_CONSTANT__,7,"Infix '"};
-__STRING_CONSTANT __string_244={__STRING_CONSTANT__,8,"Prefix '"};
-__STRING_CONSTANT __string_245={__STRING_CONSTANT__,1,"+"};
-__STRING_CONSTANT __string_246={__STRING_CONSTANT__,1,"-"};
-__STRING_CONSTANT __string_247={__STRING_CONSTANT__,29,"Unterminated string \
+__STRING_CONSTANT __string_245={__STRING_CONSTANT__,9,"Postfix '"};
+__STRING_CONSTANT __string_246={__STRING_CONSTANT__,7,"Infix '"};
+__STRING_CONSTANT __string_247={__STRING_CONSTANT__,8,"Prefix '"};
+__STRING_CONSTANT __string_248={__STRING_CONSTANT__,1,"+"};
+__STRING_CONSTANT __string_249={__STRING_CONSTANT__,1,"-"};
+__STRING_CONSTANT __string_250={__STRING_CONSTANT__,29,"Unterminated string \
 constant."};
-__STRING_CONSTANT __string_248={__STRING_CONSTANT__,27,"Incorrect style slot\
+__STRING_CONSTANT __string_251={__STRING_CONSTANT__,27,"Incorrect style slot\
  ('-')."};
-__STRING_CONSTANT __string_249={__STRING_CONSTANT__,2509,"#include <pthread.\
+__STRING_CONSTANT __string_252={__STRING_CONSTANT__,2509,"#include <pthread.\
 h>\n#include <limits.h>\n\nvoid print_char(char car);\nint die_with_code(int\
  code);\n\nstatic pthread_key_t current_thread;\nstatic pthread_attr_t threa\
 d_attr;\npthread_t c_thread;\nint thread_counter;\n\nstatic char thread_stac\
@@ -2301,128 +2309,128 @@ stack[thread_counter++],PTHREAD_STACK_MIN);\n    if ((thread_counter>512) ||\
 while (*msg != 0) print_char(*(msg++));\n      die_with_code(1);\n    };\n  \
 } else {\n    node->object = obj;\n    pthread_mutex_unlock(&node->mutex);\n\
   };\n};\n\n"};
-__STRING_CONSTANT __string_250={__STRING_CONSTANT__,11,"Added ':='."};
-__STRING_CONSTANT __string_251={__STRING_CONSTANT__,31,"Prototype identifier\
+__STRING_CONSTANT __string_253={__STRING_CONSTANT__,11,"Added ':='."};
+__STRING_CONSTANT __string_254={__STRING_CONSTANT__,31,"Prototype identifier\
  is needed."};
-__STRING_CONSTANT __string_252={__STRING_CONSTANT__,34,"Incorrect name (file\
+__STRING_CONSTANT __string_255={__STRING_CONSTANT__,34,"Incorrect name (file\
 name != name)."};
-__STRING_CONSTANT __string_253={__STRING_CONSTANT__,24,"Object can't be gene\
+__STRING_CONSTANT __string_256={__STRING_CONSTANT__,24,"Object can't be gene\
 ric."};
-__STRING_CONSTANT __string_254={__STRING_CONSTANT__,10,"Added ':'."};
-__STRING_CONSTANT __string_255={__STRING_CONSTANT__,12,"Type needed."};
-__STRING_CONSTANT __string_256={__STRING_CONSTANT__,27,"Sorry, not yet imple\
+__STRING_CONSTANT __string_257={__STRING_CONSTANT__,10,"Added ':'."};
+__STRING_CONSTANT __string_258={__STRING_CONSTANT__,12,"Type needed."};
+__STRING_CONSTANT __string_259={__STRING_CONSTANT__,27,"Sorry, not yet imple\
 mented."};
-__STRING_CONSTANT __string_257={__STRING_CONSTANT__,36,"Identifier parameter\
+__STRING_CONSTANT __string_260={__STRING_CONSTANT__,36,"Identifier parameter\
  type is needed."};
-__STRING_CONSTANT __string_258={__STRING_CONSTANT__,10,"Added ')'."};
-__STRING_CONSTANT __string_259={__STRING_CONSTANT__,28,"Invalid generic list\
+__STRING_CONSTANT __string_261={__STRING_CONSTANT__,10,"Added ')'."};
+__STRING_CONSTANT __string_262={__STRING_CONSTANT__,28,"Invalid generic list\
  number."};
-__STRING_CONSTANT __string_260={__STRING_CONSTANT__,34,"Slot `name' must to \
+__STRING_CONSTANT __string_263={__STRING_CONSTANT__,34,"Slot `name' must to \
 be first slot."};
-__STRING_CONSTANT __string_261={__STRING_CONSTANT__,20,"Incorrect type list."};
-__STRING_CONSTANT __string_262={__STRING_CONSTANT__,19,"Incorrect external."};
-__STRING_CONSTANT __string_263={__STRING_CONSTANT__,3,"// "};
-__STRING_CONSTANT __string_264={__STRING_CONSTANT__,15,"Incorrect expr."};
-__STRING_CONSTANT __string_265={__STRING_CONSTANT__,33,"Double `default' slo\
+__STRING_CONSTANT __string_264={__STRING_CONSTANT__,20,"Incorrect type list."};
+__STRING_CONSTANT __string_265={__STRING_CONSTANT__,19,"Incorrect external."};
+__STRING_CONSTANT __string_266={__STRING_CONSTANT__,3,"// "};
+__STRING_CONSTANT __string_267={__STRING_CONSTANT__,15,"Incorrect expr."};
+__STRING_CONSTANT __string_268={__STRING_CONSTANT__,33,"Double `default' slo\
 t definition."};
-__STRING_CONSTANT __string_266={__STRING_CONSTANT__,30,"Double `type' slot d\
+__STRING_CONSTANT __string_269={__STRING_CONSTANT__,30,"Double `type' slot d\
 efinition."};
-__STRING_CONSTANT __string_267={__STRING_CONSTANT__,17,"Incorrect number."};
-__STRING_CONSTANT __string_268={__STRING_CONSTANT__,21,"Added '<-' is needed."};
-__STRING_CONSTANT __string_269={__STRING_CONSTANT__,20,"Added '(' is needed."};
-__STRING_CONSTANT __string_270={__STRING_CONSTANT__,17,"Unreachable code."};
-__STRING_CONSTANT __string_271={__STRING_CONSTANT__,17,"Incorrect string."};
-__STRING_CONSTANT __string_272={__STRING_CONSTANT__,15,"Incorrect slot."};
-__STRING_CONSTANT __string_273={__STRING_CONSTANT__,59,"For a section, the p\
+__STRING_CONSTANT __string_270={__STRING_CONSTANT__,17,"Incorrect number."};
+__STRING_CONSTANT __string_271={__STRING_CONSTANT__,21,"Added '<-' is needed."};
+__STRING_CONSTANT __string_272={__STRING_CONSTANT__,20,"Added '(' is needed."};
+__STRING_CONSTANT __string_273={__STRING_CONSTANT__,17,"Unreachable code."};
+__STRING_CONSTANT __string_274={__STRING_CONSTANT__,17,"Incorrect string."};
+__STRING_CONSTANT __string_275={__STRING_CONSTANT__,15,"Incorrect slot."};
+__STRING_CONSTANT __string_276={__STRING_CONSTANT__,59,"For a section, the p\
 rototype name only (without '['...']')."};
-__STRING_CONSTANT __string_274={__STRING_CONSTANT__,14,"Slot deferred."};
-__STRING_CONSTANT __string_275={__STRING_CONSTANT__,15,"Incorrect type."};
-__STRING_CONSTANT __string_276={__STRING_CONSTANT__,22,"Type `SELF' is neede\
+__STRING_CONSTANT __string_277={__STRING_CONSTANT__,14,"Slot deferred."};
+__STRING_CONSTANT __string_278={__STRING_CONSTANT__,15,"Incorrect type."};
+__STRING_CONSTANT __string_279={__STRING_CONSTANT__,22,"Type `SELF' is neede\
 d."};
-__STRING_CONSTANT __string_277={__STRING_CONSTANT__,20,"Added ':' is needed."};
-__STRING_CONSTANT __string_278={__STRING_CONSTANT__,30,"Incorrect argument i\
+__STRING_CONSTANT __string_280={__STRING_CONSTANT__,20,"Added ':' is needed."};
+__STRING_CONSTANT __string_281={__STRING_CONSTANT__,30,"Incorrect argument i\
 dentifier."};
-__STRING_CONSTANT __string_279={__STRING_CONSTANT__,24,"Incorrect argument t\
+__STRING_CONSTANT __string_282={__STRING_CONSTANT__,24,"Incorrect argument t\
 ype."};
-__STRING_CONSTANT __string_280={__STRING_CONSTANT__,30,"Incorrect argument d\
+__STRING_CONSTANT __string_283={__STRING_CONSTANT__,30,"Incorrect argument d\
 efinition."};
-__STRING_CONSTANT __string_281={__STRING_CONSTANT__,19,"Operator is needed."};
-__STRING_CONSTANT __string_282={__STRING_CONSTANT__,19,"Incorrect operator."};
-__STRING_CONSTANT __string_283={__STRING_CONSTANT__,10,"Added `''."};
-__STRING_CONSTANT __string_284={__STRING_CONSTANT__,29,"Operator declaration\
+__STRING_CONSTANT __string_284={__STRING_CONSTANT__,19,"Operator is needed."};
+__STRING_CONSTANT __string_285={__STRING_CONSTANT__,19,"Incorrect operator."};
+__STRING_CONSTANT __string_286={__STRING_CONSTANT__,10,"Added `''."};
+__STRING_CONSTANT __string_287={__STRING_CONSTANT__,29,"Operator declaration\
  invalid."};
-__STRING_CONSTANT __string_285={__STRING_CONSTANT__,39,"Not associativity fo\
+__STRING_CONSTANT __string_288={__STRING_CONSTANT__,39,"Not associativity fo\
 r postfix operator."};
-__STRING_CONSTANT __string_286={__STRING_CONSTANT__,38,"Not associativity fo\
+__STRING_CONSTANT __string_289={__STRING_CONSTANT__,38,"Not associativity fo\
 r prefix operator."};
-__STRING_CONSTANT __string_287={__STRING_CONSTANT__,32,"Incorrect in `Sectio\
+__STRING_CONSTANT __string_290={__STRING_CONSTANT__,32,"Incorrect in `Sectio\
 n External'."};
-__STRING_CONSTANT __string_288={__STRING_CONSTANT__,7,"Added '"};
-__STRING_CONSTANT __string_289={__STRING_CONSTANT__,2,"'."};
-__STRING_CONSTANT __string_290={__STRING_CONSTANT__,10,"Added '}'."};
-__STRING_CONSTANT __string_291={__STRING_CONSTANT__,27,"`Expanded' is not po\
+__STRING_CONSTANT __string_291={__STRING_CONSTANT__,7,"Added '"};
+__STRING_CONSTANT __string_292={__STRING_CONSTANT__,2,"'."};
+__STRING_CONSTANT __string_293={__STRING_CONSTANT__,10,"Added '}'."};
+__STRING_CONSTANT __string_294={__STRING_CONSTANT__,27,"`Expanded' is not po\
 ssible."};
-__STRING_CONSTANT __string_292={__STRING_CONSTANT__,10,"Added ']'."};
-__STRING_CONSTANT __string_293={__STRING_CONSTANT__,45,"Impossible '<-' styl\
+__STRING_CONSTANT __string_295={__STRING_CONSTANT__,10,"Added ']'."};
+__STRING_CONSTANT __string_296={__STRING_CONSTANT__,45,"Impossible '<-' styl\
 e assignment with vector."};
-__STRING_CONSTANT __string_294={__STRING_CONSTANT__,28,"Sorry, Not yet imple\
+__STRING_CONSTANT __string_297={__STRING_CONSTANT__,28,"Sorry, Not yet imple\
 mented !"};
-__STRING_CONSTANT __string_295={__STRING_CONSTANT__,1,"{"};
-__STRING_CONSTANT __string_296={__STRING_CONSTANT__,1,"}"};
-__STRING_CONSTANT __string_297={__STRING_CONSTANT__,24,"Unknown escape seque\
+__STRING_CONSTANT __string_298={__STRING_CONSTANT__,1,"{"};
+__STRING_CONSTANT __string_299={__STRING_CONSTANT__,1,"}"};
+__STRING_CONSTANT __string_300={__STRING_CONSTANT__,24,"Unknown escape seque\
 nce."};
-__STRING_CONSTANT __string_298={__STRING_CONSTANT__,39,"Invalid range charac\
+__STRING_CONSTANT __string_301={__STRING_CONSTANT__,39,"Invalid range charac\
 ter number [0,255]."};
-__STRING_CONSTANT __string_299={__STRING_CONSTANT__,23,"Character '\' is nee\
+__STRING_CONSTANT __string_302={__STRING_CONSTANT__,23,"Character '\' is nee\
 ded."};
-__STRING_CONSTANT __string_300={__STRING_CONSTANT__,24,"Incorrect Result num\
+__STRING_CONSTANT __string_303={__STRING_CONSTANT__,24,"Incorrect Result num\
 ber."};
-__STRING_CONSTANT __string_301={__STRING_CONSTANT__,25,"Incorrect live type \
+__STRING_CONSTANT __string_304={__STRING_CONSTANT__,25,"Incorrect live type \
 list."};
-__STRING_CONSTANT __string_302={__STRING_CONSTANT__,23,"Incorrect octal numb\
+__STRING_CONSTANT __string_305={__STRING_CONSTANT__,23,"Incorrect octal numb\
 er."};
-__STRING_CONSTANT __string_303={__STRING_CONSTANT__,24,"Incorrect binary num\
+__STRING_CONSTANT __string_306={__STRING_CONSTANT__,24,"Incorrect binary num\
 ber."};
-__STRING_CONSTANT __string_304={__STRING_CONSTANT__,25,"Incorrect decimal nu\
+__STRING_CONSTANT __string_307={__STRING_CONSTANT__,25,"Incorrect decimal nu\
 mber."};
-__STRING_CONSTANT __string_305={__STRING_CONSTANT__,6,"Slot `"};
-__STRING_CONSTANT __string_306={__STRING_CONSTANT__,12,"' not found."};
-__STRING_CONSTANT __string_307={__STRING_CONSTANT__,30,"No argument for `exi\
+__STRING_CONSTANT __string_308={__STRING_CONSTANT__,6,"Slot `"};
+__STRING_CONSTANT __string_309={__STRING_CONSTANT__,12,"' not found."};
+__STRING_CONSTANT __string_310={__STRING_CONSTANT__,30,"No argument for `exi\
 t' method."};
-__STRING_CONSTANT __string_308={__STRING_CONSTANT__,23,"String argument need\
+__STRING_CONSTANT __string_311={__STRING_CONSTANT__,23,"String argument need\
 ed."};
-__STRING_CONSTANT __string_309={__STRING_CONSTANT__,17,"Invalid argument."};
-__STRING_CONSTANT __string_310={__STRING_CONSTANT__,21,"No expression result."};
-__STRING_CONSTANT __string_311={__STRING_CONSTANT__,15,"BOOLEAN needed."};
-__STRING_CONSTANT __string_312={__STRING_CONSTANT__,18,"!@#$%^&<|*-+=~/?\\>"};
-__STRING_CONSTANT __string_313={__STRING_CONSTANT__,22,"Prototype name neede\
+__STRING_CONSTANT __string_312={__STRING_CONSTANT__,17,"Invalid argument."};
+__STRING_CONSTANT __string_313={__STRING_CONSTANT__,21,"No expression result."};
+__STRING_CONSTANT __string_314={__STRING_CONSTANT__,15,"BOOLEAN needed."};
+__STRING_CONSTANT __string_315={__STRING_CONSTANT__,18,"!@#$%^&<|*-+=~/?\\>"};
+__STRING_CONSTANT __string_316={__STRING_CONSTANT__,22,"Prototype name neede\
 d."};
-__STRING_CONSTANT __string_314={__STRING_CONSTANT__,30,"1) Sorry, not yet im\
+__STRING_CONSTANT __string_317={__STRING_CONSTANT__,30,"1) Sorry, not yet im\
 plemented."};
-__STRING_CONSTANT __string_315={__STRING_CONSTANT__,30,"2) Sorry, not yet im\
+__STRING_CONSTANT __string_318={__STRING_CONSTANT__,30,"2) Sorry, not yet im\
 plemented."};
-__STRING_CONSTANT __string_316={__STRING_CONSTANT__,7,"Style `"};
-__STRING_CONSTANT __string_317={__STRING_CONSTANT__,32,"' for parameter type\
+__STRING_CONSTANT __string_319={__STRING_CONSTANT__,7,"Style `"};
+__STRING_CONSTANT __string_320={__STRING_CONSTANT__,32,"' for parameter type\
  is ignored."};
-__STRING_CONSTANT __string_318={__STRING_CONSTANT__,10,"' ignored."};
-__STRING_CONSTANT __string_319={__STRING_CONSTANT__,21,"Incorrect identifier."};
-__STRING_CONSTANT __string_320={__STRING_CONSTANT__,21,"Incorrect local type."};
-__STRING_CONSTANT __string_321={__STRING_CONSTANT__,27,"Incorrect `Old' expr\
+__STRING_CONSTANT __string_321={__STRING_CONSTANT__,10,"' ignored."};
+__STRING_CONSTANT __string_322={__STRING_CONSTANT__,21,"Incorrect identifier."};
+__STRING_CONSTANT __string_323={__STRING_CONSTANT__,21,"Incorrect local type."};
+__STRING_CONSTANT __string_324={__STRING_CONSTANT__,27,"Incorrect `Old' expr\
 ession."};
-__STRING_CONSTANT __string_322={__STRING_CONSTANT__,18,"Incorrect message."};
-__STRING_CONSTANT __string_323={__STRING_CONSTANT__,22,"Incorrect real numbe\
+__STRING_CONSTANT __string_325={__STRING_CONSTANT__,18,"Incorrect message."};
+__STRING_CONSTANT __string_326={__STRING_CONSTANT__,22,"Incorrect real numbe\
 r."};
-__STRING_CONSTANT __string_324={__STRING_CONSTANT__,28,"Character constant t\
+__STRING_CONSTANT __string_327={__STRING_CONSTANT__,28,"Character constant t\
 oo long."};
-__STRING_CONSTANT __string_325={__STRING_CONSTANT__,32,"Unterminated charact\
+__STRING_CONSTANT __string_328={__STRING_CONSTANT__,32,"Unterminated charact\
 er constant."};
-__STRING_CONSTANT __string_326={__STRING_CONSTANT__,37,"Incorrect multiple r\
+__STRING_CONSTANT __string_329={__STRING_CONSTANT__,37,"Incorrect multiple r\
 esult expression."};
-__STRING_CONSTANT __string_327={__STRING_CONSTANT__,36,"Error in INPUT_STREA\
+__STRING_CONSTANT __string_330={__STRING_CONSTANT__,36,"Error in INPUT_STREA\
 M.read_integer.\n"};
-__STRING_CONSTANT __string_328={__STRING_CONSTANT__,21,"Incorrect directory `"};
-__STRING_CONSTANT __string_329={__STRING_CONSTANT__,19,"Incorrect argument."};
-__STRING_CONSTANT __string_330={__STRING_CONSTANT__,15,"Type incorrect."};
+__STRING_CONSTANT __string_331={__STRING_CONSTANT__,21,"Incorrect directory `"};
+__STRING_CONSTANT __string_332={__STRING_CONSTANT__,19,"Incorrect argument."};
+__STRING_CONSTANT __string_333={__STRING_CONSTANT__,15,"Type incorrect."};
 
 //==========================//
 // FUNCTION HEADER          //
@@ -2456,16 +2464,16 @@ static void** create__EHQB(__INTEGER nb_elements__GHQB);
 static void** create__U1PB(__INTEGER nb_elements__W1PB);
 static void** create__53ZB(__INTEGER nb_elements__B4ZB);
 static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__BHRC(__INTEGER new_count__DHRC);
-static void** create__KDTF(__INTEGER nb_elements__MDTF);
-static void** create__YMFF(__INTEGER nb_elements__0MFF);
-static void** create__CFXF(__INTEGER nb_elements__EFXF);
-static void** create__I0IE(__INTEGER nb_elements__K0IE);
+static void** create__ZKTF(__INTEGER nb_elements__1KTF);
+static void** create__3RFF(__INTEGER nb_elements__5RFF);
+static void** create__SNXF(__INTEGER nb_elements__UNXF);
+static void** create__K4IE(__INTEGER nb_elements__M4IE);
 static void* new_page__OA5();
 static void to_busy__index__TTFC(__MEMORY *Self__UTFC,__UINTEGER_32 sz__VTFC,__UINTEGER_32 idx__WTFC);
 static void** create__31XC(__INTEGER nb_elements__51XC);
 static void** create__ABYC(__INTEGER nb_elements__CBYC);
 static void** create__ELBD(__INTEGER nb_elements__GLBD);
-static void** create__5FEF(__INTEGER nb_elements__BGEF);
+static void** create__ILEF(__INTEGER nb_elements__KLEF);
 static void** create__BK2(__INTEGER nb_elements__DK2);
 static void add__IYR(__HASHED_SEToABSTRACT_STRINGo *Self__JYR,void *e__KYR);
 static void* operator__name__WGB(void *op__ZGB);
@@ -2499,17 +2507,18 @@ static void* at__QL4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CON
 static void go_on__CBC(void *obj__EBC);
 static void put__to__like__1ZXD(void *tok__3ZXD,void *buf__4ZXD,void *key__5ZXD);
 static void shorter_get_all_slot_in__E1XD(__PROTOTYPE *Self__F1XD,void *lst__G1XD);
-static void pretty_name_in__IA3F(__ITM_SLOT *Self__JA3F,void *buffer__KA3F);
-static void pretty_name_in__3B3F(__ITM_SLOT_OPERATOR *Self__4B3F,void *buffer__5B3F);
-static void get_all_comment_slot__in__FW2E(__PROTOTYPE *Self__GW2E,void *n__HW2E,void *buf__IW2E);
+static void pretty_name_in__AJ3F(__ITM_SLOT *Self__BJ3F,void *buffer__CJ3F);
+static void pretty_name_in__VK3F(__ITM_SLOT_OPERATOR *Self__WK3F,void *buffer__XK3F);
+static void get_all_comment_slot__in__302E(__PROTOTYPE *Self__402E,void *n__502E,void *buf__A12E);
 static void append_in__OIH(__UINTEGER_32 Self__PIH,void *buffer__QIH);
-static void shorter_profile_in__UD3F(__ITM_SLOT *Self__VD3F,void *buf__WD3F);
-static void shorter_profile_in__RE3F(__ITM_SLOT_OPERATOR *Self__SE3F,void *buf__TE3F);
+static void append_in__MM3F(__SECTION_ *Self__NM3F,void *buf__OM3F);
+static void shorter_profile_in__ON3F(__ITM_SLOT *Self__PN3F,void *buf__QN3F);
+static void shorter_profile_in__LO3F(__ITM_SLOT_OPERATOR *Self__MO3F,void *buf__NO3F);
 static __CHARACTER* create__BMEB(__INTEGER nb_elements__DMEB);
 static __POINTER realloc_dynamic__old_size__new_size__RELC(__POINTER p__TELC,__UINTEGER_32 old_sz__UELC,__UINTEGER_32 new_sz__VELC);
 static void** create__TBRB(__INTEGER nb_elements__VBRB);
 static void* fast_reference_at__Y1T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__Z1T,void *k__01T);
-static void** create__PHHE(__INTEGER nb_elements__RHHE);
+static void** create__RLHE(__INTEGER nb_elements__TLHE);
 static __BOOLEAN has__1PW(__HASHED_SEToABSTRACT_STRINGo *Self__2PW,void *e__3PW);
 static void increase_capacity__4RNB(__HASHED_SEToABSTRACT_STRINGo *Self__5RNB);
 static void put_string__YHF(void *s__0HF);
@@ -2522,10 +2531,10 @@ static void* physical_get_entry__YW0C(void *new_path__0W0C);
 static void** create__VY1C(__INTEGER nb_elements__XY1C);
 static void** create__3QSC(__INTEGER nb_elements__5QSC);
 static void short__token__to__LBD(void *key__NBD,__INTEGER beg__OBD,__INTEGER end__PBD);
-static __INTEGER first_substring_index__RDZE(__STRING *Self__SDZE);
+static __INTEGER first_substring_index__JIZE(__STRING *Self__KIZE);
 static __BOOLEAN read_string__LFQ();
-static void reduce_path__Y42E(void *st__042E);
-static void* item__DVPE(__DIRECTORY_UNIX *Self__EVPE,__INTEGER i__FVPE);
+static void reduce_path__BE3E(void *st__DE3E);
+static void* item__FZPE(__DIRECTORY_UNIX *Self__GZPE,__INTEGER i__HZPE);
 static void* item__Y0ND(__LINKED_LISToSTRING_CONSTANTo *Self__Z0ND,__INTEGER i__00ND);
 static void** create__T23(__INTEGER nb_elements__V23);
 static __BOOLEAN read_word__QPF(void *st__SPF);
@@ -2551,21 +2560,23 @@ static __POSITION position__FD5B(__ITM_EXPRESSION *Self__GD5B);
 static __POSITION position__FJHC(__ITM_RESULT *Self__GJHC);
 static void fast_put__to__BOGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__COGC,void *v__DOGC,void *k__EOGC);
 static void* fast_reference_at__QAGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__RAGC,void *k__SAGC);
-static void* fast_reference_at__E34D(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__F34D,void *k__G34D);
-static void put__to__like__PT5F(void *tok__RT5F,void *buf__ST5F,void *key__TT5F);
-static void shorter_in__QQ5F(__ITM_ARG *Self__RQ5F,void *buf__SQ5F);
-static void shorter_in__HR5F(__ITM_ARGS *Self__IR5F,void *buf__JR5F);
-static void put__to__like__QCFG(void *tok__SCFG,void *buf__TCFG,void *key__UCFG);
-static void put__to__like__HEFG(void *tok__JEFG,void *buf__KEFG,void *key__LEFG);
-static void shorter_raw_in__U1DG(__ITM_TYPE_MULTI *Self__V1DG,void *buf__W1DG);
-static void shorter_in__YVBG(__ITM_TYPE_BLOCK *Self__ZVBG,void *buf__0VBG);
-static void shorter_in__AXBG(__ITM_TYPE_GENERIC *Self__BXBG,void *buf__CXBG);
-static void put__to__like__MGFG(void *tok__OGFG,void *buf__PGFG,void *key__QGFG);
-static void put__to__like__X1BG(void *tok__Z1BG,void *buf__01BG,void *key__11BG);
+static void* fast_reference_at__GB5D(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__HB5D,void *k__IB5D);
+static void append_in__OGPD(__ITM_TYPE_BLOCK *Self__PGPD,void *buffer__QGPD);
+static void append_in__SHPD(__ITM_TYPE_GENERIC *Self__THPD,void *buffer__UHPD);
+static void put__to__like__U25F(void *tok__W25F,void *buf__X25F,void *key__Y25F);
+static void shorter_in__VZ5F(__ITM_ARG *Self__WZ5F,void *buf__XZ5F);
+static void shorter_in__M05F(__ITM_ARGS *Self__N05F,void *buf__O05F);
+static void shorter_in__S3BG(__ITM_TYPE_PARAMETER *Self__T3BG,void *buf__U3BG);
+static void shorter_in__D4BG(__ITM_TYPE_SIMPLE *Self__E4BG,void *buf__F4BG);
+static void shorter_raw_in__JIEG(__ITM_TYPE_MULTI *Self__KIEG,void *buf__LIEG);
+static void shorter_in__U4BG(__ITM_TYPE_BLOCK *Self__V4BG,void *buf__W4BG);
+static void shorter_in__25BG(__ITM_TYPE_GENERIC *Self__35BG,void *buf__45BG);
+static void put__to__like__MGEG(void *tok__OGEG,void *buf__PGEG,void *key__QGEG);
+static void put__to__like__DECG(void *tok__FECG,void *buf__GECG,void *key__HECG);
 static void set_path__ONT(__DIRECTORY_UNIX *Self__PNT,void *n__QNT);
 static void set_path__JOT(__FILE_UNIX *Self__KOT,void *n__LOT);
 static void insert_string__to__0XU(__STRING *Self__1XU,void *s__2XU,__INTEGER i__3XU);
-static void read_escape_character__R1JF();
+static void read_escape_character__WAKF();
 static __BOOLEAN read_cap_identifier__SZJ();
 static void add_last__SBBC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__TBBC,void *element__UBBC);
 static __BOOLEAN read_external__ATO();
@@ -2573,22 +2584,20 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M);
 static __BOOLEAN read_integer__A2P();
 static void* readlip_expr__JTPB();
 static void run__QGFC(__LIP_AFFECT *Self__RGFC);
-static void run__50TE(__LIP_CALL *Self__A1TE);
+static void run__T5TE(__LIP_CALL *Self__U5TE);
 static void run__2CQD(__LIP_IF *Self__3CQD);
-static void run__T5TE(__LIP_PRINT *Self__U5TE);
+static void run__HEUE(__LIP_PRINT *Self__IEUE);
 static void add_last__0NV(__FAST_ARRAYoITM_TYPE_MONOo *Self__1NV,void *element__2NV);
 static void* alias__GVP(void *tmp__IVP);
 static void add__CMHB(__HASHED_SEToSTRING_CONSTANTo *Self__DMHB,void *e__EMHB);
 static void add_last__RBPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__SBPD,void *element__TBPD);
 static void free__0S5(void *tmp__2S5);
 static void free__2MQ(void *tmp__4MQ);
-static __INTEGER hash_code__DNQF(__FAST_ARRAYoSTRING_CONSTANTo *Self__ENQF);
+static __INTEGER hash_code__BTQF(__FAST_ARRAYoSTRING_CONSTANTo *Self__CTQF);
 static void copy__22RD(__FAST_ARRAYoSTRING_CONSTANTo *Self__32RD,void *other__42RD);
 static __BOOLEAN read_operator__HNM();
 static void* operator__name__3DO(void *typ__5DO,void *op__AEO);
 static void append_in__SIBC(__ITM_TYPE_MULTI *Self__TIBC,void *buffer__UIBC);
-static void append_in__OGPD(__ITM_TYPE_BLOCK *Self__PGPD,void *buffer__QGPD);
-static void append_in__SHPD(__ITM_TYPE_GENERIC *Self__THPD,void *buffer__UHPD);
 static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON);
 static void read_def_local__30H(__PARSER *Self__40H);
 static __FAST_ARRAYoITM_CODEo* create_with_capacity__SVI(__INTEGER new_count__UVI);
@@ -2598,11 +2607,12 @@ static __BOOLEAN fast_has__3DV(__HASHED_SEToSTRING_CONSTANTo *Self__4DV,void *e_
 static void restore_context__TDL();
 static void* read_expr_message__0VL(__PARSER *Self__1VL);
 static void free__YVI(void *tmp__0VI);
-static void put__to__like__UUEG(void *tok__WUEG,void *buf__XUEG,void *key__YUEG);
-static void put__to__like__YZBG(void *tok__0ZBG,void *buf__1ZBG,void *key__2ZBG);
-static void put__to__like__GWDG(void *tok__IWDG,void *buf__JWDG);
-static void put__to__like__SYDG(void *tok__UYDG,void *buf__VYDG,void *key__WYDG);
-static __BOOLEAN is_hexadecimal_digit__AOJE(__CHARACTER Self__BOJE);
+static void display_raw__TLIC(__ITM_TYPE_MULTI *Self__ULIC,void *buffer__VLIC);
+static void put__to__like__PBFG(void *tok__RBFG,void *buf__SBFG,void *key__TBFG);
+static void put__to__like__FCCG(void *tok__HCCG,void *buf__ICCG,void *key__JCCG);
+static void put__to__like__YBEG(void *tok__0BEG,void *buf__1BEG);
+static void put__to__like__EEEG(void *tok__GEEG,void *buf__HEEG,void *key__IEEG);
+static __BOOLEAN is_hexadecimal_digit__CSJE(__CHARACTER Self__DSJE);
 static void* read_constant__1QO();
 static void* read_group__JBHB(__PARSER *Self__KBHB);
 static void* readlip_expr_operator__MOZB(__PARSER *Self__NOZB);
@@ -2612,16 +2622,15 @@ static void* copy__ILID(void *tmp__KLID);
 static void* fast_reference_at__OURD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__PURD,void *k__QURD);
 static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD);
 static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD);
-static void* run_expr__RBUE(__LIP_CALL *Self__SBUE);
-static void* get__QFSE(__LIP_INTEGER *Self__RFSE,__INTEGER i__SFSE);
-static void* get__N2EF(__LIP_STRING *Self__O2EF,void *str__P2EF);
-static void free__TM2F(__LIP_INTEGER *Self__UM2F);
-static void free__BNGG(__LIP_STRING *Self__CNGG);
-static void load_directory__is_recursive__Q0VF(__LIP_CALL *Self__R0VF,void *path__S0VF,__BOOLEAN is_rec__T0VF);
-static void append_in__LUGG(__LIP_STRING *Self__MUGG,void *str__NUGG);
-static void print_positif__JXJG(__INTEGER Self__KXJG);
+static void* run_expr__FGUE(__LIP_CALL *Self__GGUE);
+static void* get__0JSE(__LIP_INTEGER *Self__1JSE,__INTEGER i__2JSE);
+static void* get__RBFF(__LIP_STRING *Self__SBFF,void *str__TBFF);
+static void free__SW2F(__LIP_INTEGER *Self__TW2F);
+static void free__EVGG(__LIP_STRING *Self__FVGG);
+static void load_directory__is_recursive__5BWF(__LIP_CALL *Self__ACWF,void *path__BCWF,__BOOLEAN is_rec__CCWF);
+static void append_in__C2GG(__LIP_STRING *Self__D2GG,void *str__E2GG);
+static void print_positif__Z4JG(__INTEGER Self__04JG);
 static __BOOLEAN has__TLMB(__HASHED_SEToSTRING_CONSTANTo *Self__ULMB,void *e__VLMB);
-static void display_raw__TLIC(__ITM_TYPE_MULTI *Self__ULIC,void *buffer__VLIC);
 static __FAST_ARRAYoITM_LOCALo* create_with_capacity__QJK(__INTEGER new_count__SJK);
 static void add_last__F2U(__FAST_ARRAYoITM_LOCALo *Self__G2U,void *element__H2U);
 static void free__WJK(void *tmp__YJK);
@@ -2629,12 +2638,12 @@ static void* copy__53J(void *tmp__B4J);
 static void** create__HTQB(__INTEGER nb_elements__JTQB);
 static void* read_send_msg__M4N(__PARSER *Self__N4N,void *first_arg__O4N);
 static void* readlip_expr_cmp__A11B(__PARSER *Self__B11B);
-static void** create__UUIE(__INTEGER nb_elements__WUIE);
+static void** create__WYIE(__INTEGER nb_elements__YYIE);
 static void** create__HRQB(__INTEGER nb_elements__JRQB);
 static void* read_argument__TOP(__PARSER *Self__UOP);
 static void* readlip_expr_binary__3N3B(__PARSER *Self__4N3B);
 static void* readlip_expr_unary__4Z4B(__PARSER *Self__5Z4B);
-static void* readlip_expr_base__PCFE(__PARSER *Self__QCFE);
+static void* readlip_expr_base__RGFE(__PARSER *Self__SGFE);
 
 //==========================//
 // SOURCE CODE              //
@@ -2643,221 +2652,224 @@ static void* readlip_expr_base__PCFE(__PARSER *Self__QCFE);
 int main(int argc,char **argv)
 {
   void *str__DHD,*cmd__1Y;
-  __INTEGER new_count__NQIH,typ_id__GQIH,Self__HHF,limit_up__IHF;
-  __INTEGER idx__ANGH,i__IOEB,typ_id__BUG,new_capacity__DKY;
+  __INTEGER new_count__GYIH,typ_id__5XIH,Self__HHF,limit_up__IHF;
+  __INTEGER idx__NVGH,i__IOEB,typ_id__BUG,new_capacity__DKY;
   __INTEGER typ_id__I4DB,new_capacity__KVJC,typ_id__KNJ,typ_id__RNH;
   __INTEGER new_capacity__DMY,typ_id__TOC,new_capacity__ALX,typ_id__H0Q;
   __INTEGER typ_id__EER,new_capacity__0I1,typ_id__USQ,typ_id__00O;
   __INTEGER typ_id__B3Q,typ_id__PLK,new_capacity__HFZ,typ_id__RWQ;
   __INTEGER typ_id__NVR,typ_id__MIK,typ_id__V4J,typ_id__LLM;
-  __INTEGER typ_id__5BNF,new_capacity__KSQF,typ_id__H4F,typ_id__0ATE;
-  __INTEGER typ_id__0MLF,typ_id__AYMF,typ_id__5UMD,typ_id__QVED;
-  __INTEGER new_capacity__TAXD,Self__5XXE,typ_id__2SMF,Self__QY4F;
-  __INTEGER typ_id__3DMF,Self__JX4F,typ_id__K3YB,new_capacity__AGOC;
-  __INTEGER typ_id__PAZB,new_capacity__1JOC,typ_id__JK5B,typ_id__CAIE;
-  __INTEGER typ_id__JUB,new_capacity__2ZW,j__2Y,idx__5KC,typ_id__FNGH;
-  __INTEGER typ_id__KHKB,result__PNGH,__tmp__RNGH,Self__SNGH;
-  __INTEGER result__UNGH,__tmp__WNGH,Self__XNGH,idx__AQEB,idx__4HZB;
-  __INTEGER new_capacity__5HZB,i__AIZB,result__ZNGH,__tmp__1NGH;
-  __INTEGER Self__2NGH,typ_id__NKZB,typ_id__AOGH,typ_id__KOGH;
-  __INTEGER typ_id__UOGH,typ_id__GPED,typ_id__SYB,Self__FLWD;
-  __INTEGER typ_id__U2B,typ_id__4OGH,typ_id__G4B,result__IPGH;
-  __INTEGER __tmp__KPGH,Self__LPGH,result__NPGH,__tmp__PPGH,Self__QPGH;
-  __INTEGER result__WPGH,__tmp__YPGH,Self__ZPGH,result__1PGH;
-  __INTEGER __tmp__3PGH,Self__4PGH,result__EQGH,__tmp__GQGH,Self__HQGH;
-  __INTEGER result__JQGH,__tmp__LQGH,Self__MQGH,i__SEDH,j__UEDH;
-  __INTEGER Self__MNFH,result__OQGH,__tmp__QQGH,Self__RQGH,result__XQGH;
-  __INTEGER __tmp__ZQGH,Self__0QGH,result__2QGH,__tmp__4QGH,Self__5QGH;
-  __INTEGER i__4EDH,j__AFDH,Self__YNFH,result__BRGH,__tmp__DRGH;
-  __INTEGER Self__ERGH,result__GRGH,__tmp__IRGH,Self__JRGH,i1__Z4IH;
-  __INTEGER i2__04IH,__tmp__NRGH,Self__PRGH,result__URGH,len__ZRGH;
-  __INTEGER __tmp__0RGH,__tmp__2RGH,Self__3RGH,result__WSC,n__GOFH;
-  __INTEGER Self__44IH,Self__C1QC,limit_up__D1QC,__tmp__IAYD,Self__GA5D;
-  __INTEGER __tmp__RDYD,Self__YA5D,i__D5IH,__tmp__0GYD,Self__KB5D;
-  __INTEGER i__I5IH,__tmp__DKYD,Self__2B5D,__tmp__JMYD,Self__LC5D;
-  __INTEGER i__N5IH,__tmp__POYD,Self__0C5D,i__S5IH;
-  __POINTER ptr__FQIH,ptr_table__PQIH,next__OQIH,result__QQIH;
-  __POINTER ptr_table__UQIH,next__TQIH,result__VQIH,ptr__2TG;
-  __POINTER ptr_table__ZQIH,next__YQIH,result__0QIH,ptr_table__4QIH;
-  __POINTER next__3QIH,result__5QIH,ptr__D4DB,ptr_table__DRIH;
-  __POINTER next__CRIH,result__ERIH,ptr_table__IRIH,next__HRIH;
-  __POINTER result__JRIH,ptr__FNJ,ptr_table__NRIH,next__MRIH;
-  __POINTER result__ORIH,ptr_table__SRIH,next__RRIH,result__TRIH;
-  __POINTER ptr__MNH,ptr_table__XRIH,next__WRIH,result__YRIH;
-  __POINTER ptr_table__2RIH,next__1RIH,result__3RIH,ptr__OOC;
-  __POINTER ptr_table__BSIH,next__ASIH,result__CSIH,ptr_table__GSIH;
-  __POINTER next__FSIH,result__HSIH,ptr__C0Q,ptr_table__LSIH,next__KSIH;
-  __POINTER result__MSIH,ptr_table__QSIH,next__PSIH,result__RSIH;
-  __POINTER ptr__5DR,ptr_table__VSIH,next__USIH,result__WSIH;
-  __POINTER ptr_table__0SIH,next__ZSIH,result__1SIH,ptr__PSQ;
-  __POINTER ptr_table__5SIH,next__4SIH,result__ATIH,ptr_table__ETIH;
-  __POINTER next__DTIH,result__FTIH,ptr__V0O,ptr_table__JTIH,next__ITIH;
-  __POINTER result__KTIH,ptr_table__OTIH,next__NTIH,result__PTIH;
-  __POINTER ptr__22Q,ptr_table__TTIH,next__STIH,result__UTIH;
-  __POINTER ptr_table__YTIH,next__XTIH,result__ZTIH,ptr__KLK;
-  __POINTER ptr_table__3TIH,next__2TIH,result__4TIH,ptr_table__CUIH;
-  __POINTER next__BUIH,result__DUIH,ptr__MWQ,ptr_table__HUIH,next__GUIH;
-  __POINTER result__IUIH,ptr_table__MUIH,next__LUIH,result__NUIH;
-  __POINTER ptr__IVR,ptr_table__RUIH,next__QUIH,result__SUIH;
-  __POINTER ptr_table__WUIH,next__VUIH,result__XUIH,ptr__HIK;
-  __POINTER ptr_table__1UIH,next__0UIH,result__2UIH,ptr_table__AVIH;
-  __POINTER next__5UIH,result__BVIH,ptr__Q4J,ptr_table__FVIH,next__EVIH;
-  __POINTER result__GVIH,ptr_table__KVIH,next__JVIH,result__LVIH;
-  __POINTER ptr__GLM,ptr_table__PVIH,next__OVIH,result__QVIH;
-  __POINTER ptr_table__UVIH,next__TVIH,result__VVIH,ptr__0BNF;
-  __POINTER ptr_table__ZVIH,next__YVIH,result__0VIH,ptr_table__4VIH;
-  __POINTER next__3VIH,result__5VIH,ptr__C4F,ptr_table__DWIH,next__CWIH;
-  __POINTER result__EWIH,ptr_table__IWIH,next__HWIH,result__JWIH;
-  __POINTER ptr__VATE,ptr_table__NWIH,next__MWIH,result__OWIH;
-  __POINTER ptr_table__SWIH,next__RWIH,result__TWIH,ptr__VMLF;
-  __POINTER ptr_table__XWIH,next__WWIH,result__YWIH,ptr_table__2WIH;
-  __POINTER next__1WIH,result__3WIH,ptr__1XMF,ptr_table__BXIH;
-  __POINTER next__AXIH,result__CXIH,ptr_table__GXIH,next__FXIH;
-  __POINTER result__HXIH,ptr__0UMD,ptr_table__LXIH,next__KXIH;
-  __POINTER result__MXIH,ptr_table__QXIH,next__PXIH,result__RXIH;
-  __POINTER ptr__LVED,ptr_table__VXIH,next__UXIH,result__WXIH;
-  __POINTER ptr_table__0XIH,next__ZXIH,result__1XIH,result__FBDH;
-  __POINTER ptr_table__5XIH,next__4XIH,result__AYIH,ptr__XSMF;
-  __POINTER ptr_table__HYIH,next__GYIH,result__IYIH,ptr_table__MYIH;
-  __POINTER next__LYIH,result__NYIH,result__NBDH,ptr_table__RYIH;
-  __POINTER next__QYIH,result__SYIH,ptr__YDMF,ptr_table__ZYIH;
-  __POINTER next__YYIH,result__0YIH,ptr_table__4YIH,next__3YIH;
-  __POINTER result__5YIH,result__VBDH,ptr_table__DZIH,next__CZIH;
-  __POINTER result__EZIH,ptr__F3YB,ptr_table__LZIH,next__KZIH;
-  __POINTER result__MZIH,ptr_table__QZIH,next__PZIH,result__RZIH;
-  __POINTER ptr__KAZB,ptr_table__VZIH,next__UZIH,result__WZIH;
-  __POINTER ptr_table__0ZIH,next__ZZIH,result__1ZIH,ptr__EK5B;
-  __POINTER ptr_table__5ZIH,next__4ZIH,result__A0IH,ptr_table__E0IH;
-  __POINTER next__D0IH,result__F0IH,ptr__35HE,ptr_table__J0IH;
-  __POINTER next__I0IH,result__K0IH,ptr_table__O0IH,next__N0IH;
-  __POINTER result__P0IH,ptr__EUB,ptr_table__T0IH,next__S0IH;
-  __POINTER result__U0IH,ptr_table__Y0IH,next__X0IH,result__Z0IH;
-  __POINTER ptr__ENGH,ptr_table__30IH,next__20IH,result__40IH;
-  __POINTER ptr_table__C1IH,next__B1IH,result__D1IH,ptr__FHKB;
-  __POINTER ptr_table__K1IH,next__J1IH,result__L1IH,ptr_table__P1IH;
-  __POINTER next__O1IH,result__Q1IH,ptr__IKZB,ptr_table__U1IH;
-  __POINTER next__T1IH,result__V1IH,ptr_table__Z1IH,next__Y1IH;
-  __POINTER result__01IH,ptr__5NGH,ptr_table__41IH,next__31IH;
-  __POINTER result__51IH,ptr_table__D2IH,next__C2IH,result__E2IH;
-  __POINTER ptr__JOGH,ptr_table__I2IH,next__H2IH,result__J2IH;
-  __POINTER ptr_table__N2IH,next__M2IH,result__O2IH,ptr__TOGH;
-  __POINTER ptr_table__V2IH,next__U2IH,result__W2IH,ptr_table__02IH;
-  __POINTER next__Z2IH,result__12IH,ptr__BPED,ptr_table__52IH;
-  __POINTER next__42IH,result__A3IH,ptr_table__E3IH,next__D3IH;
-  __POINTER result__F3IH,ptr__NYB,ptr_table__J3IH,next__I3IH;
-  __POINTER result__K3IH,ptr_table__O3IH,next__N3IH,result__P3IH;
-  __POINTER result__3DDH,ptr_table__T3IH,next__S3IH,result__U3IH;
-  __POINTER ptr__P2B,ptr_table__13IH,next__03IH,result__23IH;
-  __POINTER ptr_table__A4IH,next__53IH,result__B4IH,ptr__3OGH;
-  __POINTER ptr_table__F4IH,next__E4IH,result__G4IH,ptr_table__K4IH;
-  __POINTER next__J4IH,result__L4IH,ptr__B4B,ptr_table__P4IH,next__O4IH;
-  __POINTER result__Q4IH,ptr_table__U4IH,next__T4IH,result__V4IH;
-  __UINTEGER_32 sz__HQIH,a__IQIH,new_size__JQIH,t__KQIH,a__LQIH;
-  __UINTEGER_32 new_size__XQIH,lab_type__WQIH,sz__4TG,a__1DFH;
-  __UINTEGER_32 new_size__2DFH,t__AEFH,a__5DFH,new_size__BRIH;
-  __UINTEGER_32 lab_type__ARIH,sz__F4DB,a__DEFH,new_size__EEFH,t__IEFH;
-  __UINTEGER_32 a__HEFH,new_size__LRIH,lab_type__KRIH,sz__HNJ,a__LEFH;
-  __UINTEGER_32 new_size__MEFH,t__QEFH,a__PEFH,new_size__VRIH;
-  __UINTEGER_32 lab_type__URIH,sz__ONH,a__TEFH,new_size__UEFH,t__YEFH;
-  __UINTEGER_32 a__XEFH,new_size__5RIH,lab_type__4RIH,sz__QOC,a__1EFH;
-  __UINTEGER_32 new_size__2EFH,t__AFFH,a__5EFH,new_size__JSIH;
-  __UINTEGER_32 lab_type__ISIH,sz__E0Q,a__DFFH,new_size__EFFH,t__IFFH;
-  __UINTEGER_32 a__HFFH,new_size__TSIH,lab_type__SSIH,sz__BER,a__LFFH;
-  __UINTEGER_32 new_size__MFFH,t__QFFH,a__PFFH,new_size__3SIH;
-  __UINTEGER_32 lab_type__2SIH,sz__RSQ,a__TFFH,new_size__UFFH,t__YFFH;
-  __UINTEGER_32 a__XFFH,new_size__HTIH,lab_type__GTIH,sz__X0O,a__1FFH;
-  __UINTEGER_32 new_size__2FFH,t__AGFH,a__5FFH,new_size__RTIH;
-  __UINTEGER_32 lab_type__QTIH,sz__42Q,a__DGFH,new_size__EGFH,t__IGFH;
-  __UINTEGER_32 a__HGFH,new_size__1TIH,lab_type__0TIH,sz__MLK,a__LGFH;
-  __UINTEGER_32 new_size__MGFH,t__QGFH,a__PGFH,new_size__FUIH;
-  __UINTEGER_32 lab_type__EUIH,sz__OWQ,a__BMDH,new_size__CMDH,t__GMDH;
-  __UINTEGER_32 a__FMDH,new_size__PUIH,lab_type__OUIH,sz__KVR,a__TGFH;
-  __UINTEGER_32 new_size__UGFH,t__YGFH,a__XGFH,new_size__ZUIH;
-  __UINTEGER_32 lab_type__YUIH,sz__JIK,a__1GFH,new_size__2GFH,t__AHFH;
-  __UINTEGER_32 a__5GFH,new_size__DVIH,lab_type__CVIH,sz__S4J,a__DHFH;
-  __UINTEGER_32 new_size__EHFH,t__IHFH,a__HHFH,new_size__NVIH;
-  __UINTEGER_32 lab_type__MVIH,sz__ILM,a__LHFH,new_size__MHFH,t__QHFH;
-  __UINTEGER_32 a__PHFH,new_size__XVIH,lab_type__WVIH,sz__2BNF,a__THFH;
-  __UINTEGER_32 new_size__UHFH,t__YHFH,a__XHFH,new_size__BWIH;
-  __UINTEGER_32 lab_type__AWIH,sz__E4F,a__LHDH,new_size__0XG,t__DZG;
-  __UINTEGER_32 a__RHDH,new_size__LWIH,lab_type__KWIH,sz__XATE,a__1HFH;
-  __UINTEGER_32 new_size__2HFH,t__AIFH,a__5HFH,new_size__VWIH;
-  __UINTEGER_32 lab_type__UWIH,sz__XMLF,a__DIFH,new_size__EIFH,t__IIFH;
-  __UINTEGER_32 a__HIFH,new_size__5WIH,lab_type__4WIH,sz__3XMF,a__LIFH;
-  __UINTEGER_32 new_size__MIFH,t__QIFH,a__PIFH,new_size__JXIH;
-  __UINTEGER_32 lab_type__IXIH,sz__2UMD,a__TIFH,new_size__UIFH,t__YIFH;
-  __UINTEGER_32 a__XIFH,new_size__TXIH,lab_type__SXIH,sz__NVED,a__1IFH;
-  __UINTEGER_32 new_size__2IFH,t__AJFH,a__5IFH,new_size__3XIH;
-  __UINTEGER_32 lab_type__2XIH,sz__GBDH,a__LBDH,new_size__HBDH;
-  __UINTEGER_32 new_size2__IBDH,a__DJFH,new_size__EJFH,sz__ZSMF,a__KJFH;
-  __UINTEGER_32 new_size__LJFH,t__PJFH,a__OJFH,new_size__PYIH;
-  __UINTEGER_32 lab_type__OYIH,sz__OBDH,a__TBDH,new_size__PBDH;
-  __UINTEGER_32 new_size2__QBDH,a__SJFH,new_size__TJFH,sz__0DMF,a__ZJFH;
-  __UINTEGER_32 new_size__0JFH,t__4JFH,a__3JFH,new_size__BZIH;
-  __UINTEGER_32 lab_type__AZIH,sz__WBDH,a__1BDH,new_size__XBDH;
-  __UINTEGER_32 new_size2__YBDH,a__BKFH,new_size__CKFH,sz__H3YB,a__IKFH;
-  __UINTEGER_32 new_size__JKFH,t__NKFH,a__MKFH,new_size__TZIH;
-  __UINTEGER_32 lab_type__SZIH,sz__MAZB,a__QKFH,new_size__RKFH,t__VKFH;
-  __UINTEGER_32 a__UKFH,new_size__3ZIH,lab_type__2ZIH,sz__GK5B,a__YKFH;
-  __UINTEGER_32 new_size__ZKFH,t__3KFH,a__2KFH,new_size__H0IH;
-  __UINTEGER_32 lab_type__G0IH,sz__55HE,a__ALFH,new_size__BLFH,t__FLFH;
-  __UINTEGER_32 a__ELFH,new_size__R0IH,lab_type__Q0IH,sz__GUB,a__ILFH;
-  __UINTEGER_32 new_size__JLFH,t__NLFH,a__MLFH,new_size__10IH;
-  __UINTEGER_32 lab_type__00IH,sz__GNGH,a__HNGH,new_size__INGH,t__JNGH;
-  __UINTEGER_32 a__KNGH,new_size__F1IH,lab_type__E1IH,sz__HHKB,a__RLFH;
-  __UINTEGER_32 new_size__SLFH,t__WLFH,a__VLFH,new_size__S1IH;
-  __UINTEGER_32 lab_type__R1IH,sz__KKZB,a__2LFH,new_size__3LFH,t__BMFH;
-  __UINTEGER_32 a__AMFH,new_size__21IH,lab_type__11IH,sz__BOGH,a__COGH;
-  __UINTEGER_32 new_size__DOGH,t__EOGH,a__FOGH,new_size__G2IH;
-  __UINTEGER_32 lab_type__F2IH,sz__LOGH,a__MOGH,new_size__NOGH,t__OOGH;
-  __UINTEGER_32 a__POGH,new_size__Q2IH,lab_type__P2IH,sz__VOGH,a__WOGH;
-  __UINTEGER_32 new_size__XOGH,t__YOGH,a__ZOGH,new_size__32IH;
-  __UINTEGER_32 lab_type__22IH,sz__DPED,a__HCEH,new_size__ICEH,t__MCEH;
-  __UINTEGER_32 a__LCEH,new_size__H3IH,lab_type__G3IH,sz__PYB,a__KMFH;
-  __UINTEGER_32 new_size__LMFH,t__PMFH,a__OMFH,new_size__R3IH;
-  __UINTEGER_32 lab_type__Q3IH,sz__4DDH,a__DEDH,new_size__5DDH;
-  __UINTEGER_32 new_size2__AEDH,a__SMFH,new_size__TMFH,sz__R2B,a__ZMFH;
-  __UINTEGER_32 new_size__0MFH,t__4MFH,a__3MFH,new_size__D4IH;
-  __UINTEGER_32 lab_type__C4IH,sz__5OGH,a__APGH,new_size__BPGH,t__CPGH;
-  __UINTEGER_32 a__DPGH,new_size__N4IH,lab_type__M4IH,sz__D4B,a__SWDH;
-  __UINTEGER_32 new_size__TWDH,t__XWDH,a__WWDH,new_size__X4IH;
-  __UINTEGER_32 lab_type__W4IH;
-  __STRING *Self__GOEB,*new__UWZG,*new__WWZG,*Self__REDH,*Self__3EDH;
-  __STRING *Self__LRGH,*Self__DOFH,*Self__FOFH,*Self__34IH;
+  __INTEGER typ_id__VHNF,new_capacity__IYQF,typ_id__H4F,typ_id__LFTE;
+  __INTEGER typ_id__KSLF,typ_id__W3MF,typ_id__5UMD,typ_id__QVED;
+  __INTEGER new_capacity__TAXD,Self__X2XE,typ_id__SYMF,Self__GC5F;
+  __INTEGER typ_id__RJMF,Self__5A5F,typ_id__K3YB,new_capacity__AGOC;
+  __INTEGER typ_id__PAZB,new_capacity__1JOC,typ_id__JK5B,typ_id__EEIE;
+  __INTEGER typ_id__JUB,new_capacity__2ZW,j__2Y,idx__5KC,typ_id__SVGH;
+  __INTEGER typ_id__KHKB,result__2VGH,__tmp__4VGH,Self__5VGH;
+  __INTEGER result__BWGH,__tmp__DWGH,Self__EWGH,idx__AQEB,idx__4HZB;
+  __INTEGER new_capacity__5HZB,i__AIZB,result__GWGH,__tmp__IWGH;
+  __INTEGER Self__JWGH,typ_id__NKZB,typ_id__NWGH,typ_id__XWGH;
+  __INTEGER typ_id__BXGH,typ_id__GPED,typ_id__SYB,Self__FLWD;
+  __INTEGER typ_id__U2B,typ_id__LXGH,typ_id__G4B,result__VXGH;
+  __INTEGER __tmp__XXGH,Self__YXGH,result__0XGH,__tmp__2XGH,Self__3XGH;
+  __INTEGER result__DYGH,__tmp__FYGH,Self__GYGH,result__IYGH;
+  __INTEGER __tmp__KYGH,Self__LYGH,result__RYGH,__tmp__TYGH,Self__UYGH;
+  __INTEGER result__WYGH,__tmp__YYGH,Self__ZYGH,i__WNDH,j__YNDH;
+  __INTEGER Self__TVFH,result__1YGH,__tmp__3YGH,Self__4YGH,result__EZGH;
+  __INTEGER __tmp__GZGH,Self__HZGH,result__JZGH,__tmp__LZGH,Self__MZGH;
+  __INTEGER i__CODH,j__EODH,Self__5VFH,result__OZGH,__tmp__QZGH;
+  __INTEGER Self__RZGH,result__TZGH,__tmp__VZGH,Self__WZGH,i1__SGJH;
+  __INTEGER i2__TGJH,__tmp__0ZGH,Self__2ZGH,result__B0GH,len__G0GH;
+  __INTEGER __tmp__H0GH,__tmp__J0GH,Self__K0GH,result__WSC,n__NWFH;
+  __INTEGER Self__XGJH,Self__C1QC,limit_up__D1QC,__tmp__TBYD,Self__IE5D;
+  __INTEGER i__2GJH,i__BHJH,__tmp__RFYD,Self__0E5D,i__GHJH,i__LHJH;
+  __INTEGER i__QHJH,__tmp__PJYD,Self__MF5D,i__VHJH,i__0HJH,i__5HJH;
+  __INTEGER __tmp__NNYD,Self__4F5D,__tmp__1PYD,Self__NG5D,i__EIJH;
+  __INTEGER __tmp__JSYD,Self__2G5D,i__JIJH;
+  __POINTER ptr__4XIH,ptr_table__IYIH,next__HYIH,result__JYIH;
+  __POINTER ptr_table__NYIH,next__MYIH,result__OYIH,ptr__2TG;
+  __POINTER ptr_table__SYIH,next__RYIH,result__TYIH,ptr_table__XYIH;
+  __POINTER next__WYIH,result__YYIH,ptr__D4DB,ptr_table__2YIH;
+  __POINTER next__1YIH,result__3YIH,ptr_table__BZIH,next__AZIH;
+  __POINTER result__CZIH,ptr__FNJ,ptr_table__GZIH,next__FZIH;
+  __POINTER result__HZIH,ptr_table__LZIH,next__KZIH,result__MZIH;
+  __POINTER ptr__MNH,ptr_table__QZIH,next__PZIH,result__RZIH;
+  __POINTER ptr_table__VZIH,next__UZIH,result__WZIH,ptr__OOC;
+  __POINTER ptr_table__0ZIH,next__ZZIH,result__1ZIH,ptr_table__5ZIH;
+  __POINTER next__4ZIH,result__A0IH,ptr__C0Q,ptr_table__E0IH,next__D0IH;
+  __POINTER result__F0IH,ptr_table__J0IH,next__I0IH,result__K0IH;
+  __POINTER ptr__5DR,ptr_table__O0IH,next__N0IH,result__P0IH;
+  __POINTER ptr_table__T0IH,next__S0IH,result__U0IH,ptr__PSQ;
+  __POINTER ptr_table__Y0IH,next__X0IH,result__Z0IH,ptr_table__30IH;
+  __POINTER next__20IH,result__40IH,ptr__V0O,ptr_table__C1IH,next__B1IH;
+  __POINTER result__D1IH,ptr_table__H1IH,next__G1IH,result__I1IH;
+  __POINTER ptr__22Q,ptr_table__M1IH,next__L1IH,result__N1IH;
+  __POINTER ptr_table__R1IH,next__Q1IH,result__S1IH,ptr__KLK;
+  __POINTER ptr_table__W1IH,next__V1IH,result__X1IH,ptr_table__11IH;
+  __POINTER next__01IH,result__21IH,ptr__MWQ,ptr_table__A2IH,next__51IH;
+  __POINTER result__B2IH,ptr_table__F2IH,next__E2IH,result__G2IH;
+  __POINTER ptr__IVR,ptr_table__K2IH,next__J2IH,result__L2IH;
+  __POINTER ptr_table__P2IH,next__O2IH,result__Q2IH,ptr__HIK;
+  __POINTER ptr_table__U2IH,next__T2IH,result__V2IH,ptr_table__Z2IH;
+  __POINTER next__Y2IH,result__02IH,ptr__Q4J,ptr_table__42IH,next__32IH;
+  __POINTER result__52IH,ptr_table__D3IH,next__C3IH,result__E3IH;
+  __POINTER ptr__GLM,ptr_table__I3IH,next__H3IH,result__J3IH;
+  __POINTER ptr_table__N3IH,next__M3IH,result__O3IH,ptr__QHNF;
+  __POINTER ptr_table__S3IH,next__R3IH,result__T3IH,ptr_table__X3IH;
+  __POINTER next__W3IH,result__Y3IH,ptr__C4F,ptr_table__23IH,next__13IH;
+  __POINTER result__33IH,ptr_table__B4IH,next__A4IH,result__C4IH;
+  __POINTER ptr__GFTE,ptr_table__G4IH,next__F4IH,result__H4IH;
+  __POINTER ptr_table__L4IH,next__K4IH,result__M4IH,ptr__FSLF;
+  __POINTER ptr_table__Q4IH,next__P4IH,result__R4IH,ptr_table__V4IH;
+  __POINTER next__U4IH,result__W4IH,ptr__R3MF,ptr_table__04IH;
+  __POINTER next__Z4IH,result__14IH,ptr_table__54IH,next__44IH;
+  __POINTER result__A5IH,ptr__0UMD,ptr_table__E5IH,next__D5IH;
+  __POINTER result__F5IH,ptr_table__J5IH,next__I5IH,result__K5IH;
+  __POINTER ptr__LVED,ptr_table__O5IH,next__N5IH,result__P5IH;
+  __POINTER ptr_table__T5IH,next__S5IH,result__U5IH,result__JKDH;
+  __POINTER ptr_table__Y5IH,next__X5IH,result__Z5IH,ptr__NYMF;
+  __POINTER ptr_table__AAJH,next__55IH,result__BAJH,ptr_table__FAJH;
+  __POINTER next__EAJH,result__GAJH,result__RKDH,ptr_table__KAJH;
+  __POINTER next__JAJH,result__LAJH,ptr__MJMF,ptr_table__SAJH;
+  __POINTER next__RAJH,result__TAJH,ptr_table__XAJH,next__WAJH;
+  __POINTER result__YAJH,result__ZKDH,ptr_table__2AJH,next__1AJH;
+  __POINTER result__3AJH,ptr__F3YB,ptr_table__EBJH,next__DBJH;
+  __POINTER result__FBJH,ptr_table__JBJH,next__IBJH,result__KBJH;
+  __POINTER ptr__KAZB,ptr_table__OBJH,next__NBJH,result__PBJH;
+  __POINTER ptr_table__TBJH,next__SBJH,result__UBJH,ptr__EK5B;
+  __POINTER ptr_table__YBJH,next__XBJH,result__ZBJH,ptr_table__3BJH;
+  __POINTER next__2BJH,result__4BJH,ptr__5DIE,ptr_table__CCJH;
+  __POINTER next__BCJH,result__DCJH,ptr_table__HCJH,next__GCJH;
+  __POINTER result__ICJH,ptr__EUB,ptr_table__MCJH,next__LCJH;
+  __POINTER result__NCJH,ptr_table__RCJH,next__QCJH,result__SCJH;
+  __POINTER ptr__RVGH,ptr_table__WCJH,next__VCJH,result__XCJH;
+  __POINTER ptr_table__1CJH,next__0CJH,result__2CJH,ptr__FHKB;
+  __POINTER ptr_table__DDJH,next__CDJH,result__EDJH,ptr_table__IDJH;
+  __POINTER next__HDJH,result__JDJH,ptr__IKZB,ptr_table__NDJH;
+  __POINTER next__MDJH,result__ODJH,ptr_table__SDJH,next__RDJH;
+  __POINTER result__TDJH,ptr__MWGH,ptr_table__XDJH,next__WDJH;
+  __POINTER result__YDJH,ptr_table__2DJH,next__1DJH,result__3DJH;
+  __POINTER ptr__WWGH,ptr_table__BEJH,next__AEJH,result__CEJH;
+  __POINTER ptr_table__GEJH,next__FEJH,result__HEJH,ptr__AXGH;
+  __POINTER ptr_table__OEJH,next__NEJH,result__PEJH,ptr_table__TEJH;
+  __POINTER next__SEJH,result__UEJH,ptr__BPED,ptr_table__YEJH;
+  __POINTER next__XEJH,result__ZEJH,ptr_table__3EJH,next__2EJH;
+  __POINTER result__4EJH,ptr__NYB,ptr_table__CFJH,next__BFJH;
+  __POINTER result__DFJH,ptr_table__HFJH,next__GFJH,result__IFJH;
+  __POINTER result__BNDH,ptr_table__MFJH,next__LFJH,result__NFJH;
+  __POINTER ptr__P2B,ptr_table__UFJH,next__TFJH,result__VFJH;
+  __POINTER ptr_table__ZFJH,next__YFJH,result__0FJH,ptr__KXGH;
+  __POINTER ptr_table__4FJH,next__3FJH,result__5FJH,ptr_table__DGJH;
+  __POINTER next__CGJH,result__EGJH,ptr__B4B,ptr_table__IGJH,next__HGJH;
+  __POINTER result__JGJH,ptr_table__NGJH,next__MGJH,result__OGJH;
+  __UINTEGER_32 sz__AYIH,a__BYIH,new_size__CYIH,t__DYIH,a__EYIH;
+  __UINTEGER_32 new_size__QYIH,lab_type__PYIH,sz__4TG,a__CMFH;
+  __UINTEGER_32 new_size__DMFH,t__HMFH,a__GMFH,new_size__0YIH;
+  __UINTEGER_32 lab_type__ZYIH,sz__F4DB,a__KMFH,new_size__LMFH,t__PMFH;
+  __UINTEGER_32 a__OMFH,new_size__EZIH,lab_type__DZIH,sz__HNJ,a__SMFH;
+  __UINTEGER_32 new_size__TMFH,t__XMFH,a__WMFH,new_size__OZIH;
+  __UINTEGER_32 lab_type__NZIH,sz__ONH,a__0MFH,new_size__1MFH,t__5MFH;
+  __UINTEGER_32 a__4MFH,new_size__YZIH,lab_type__XZIH,sz__QOC,a__CNFH;
+  __UINTEGER_32 new_size__DNFH,t__HNFH,a__GNFH,new_size__C0IH;
+  __UINTEGER_32 lab_type__B0IH,sz__E0Q,a__KNFH,new_size__LNFH,t__PNFH;
+  __UINTEGER_32 a__ONFH,new_size__M0IH,lab_type__L0IH,sz__BER,a__SNFH;
+  __UINTEGER_32 new_size__TNFH,t__XNFH,a__WNFH,new_size__W0IH;
+  __UINTEGER_32 lab_type__V0IH,sz__RSQ,a__0NFH,new_size__1NFH,t__5NFH;
+  __UINTEGER_32 a__4NFH,new_size__A1IH,lab_type__50IH,sz__X0O,a__COFH;
+  __UINTEGER_32 new_size__DOFH,t__HOFH,a__GOFH,new_size__K1IH;
+  __UINTEGER_32 lab_type__J1IH,sz__42Q,a__KOFH,new_size__LOFH,t__POFH;
+  __UINTEGER_32 a__OOFH,new_size__U1IH,lab_type__T1IH,sz__MLK,a__SOFH;
+  __UINTEGER_32 new_size__TOFH,t__XOFH,a__WOFH,new_size__41IH;
+  __UINTEGER_32 lab_type__31IH,sz__OWQ,a__FVDH,new_size__GVDH,t__KVDH;
+  __UINTEGER_32 a__JVDH,new_size__I2IH,lab_type__H2IH,sz__KVR,a__0OFH;
+  __UINTEGER_32 new_size__1OFH,t__5OFH,a__4OFH,new_size__S2IH;
+  __UINTEGER_32 lab_type__R2IH,sz__JIK,a__CPFH,new_size__DPFH,t__HPFH;
+  __UINTEGER_32 a__GPFH,new_size__22IH,lab_type__12IH,sz__S4J,a__KPFH;
+  __UINTEGER_32 new_size__LPFH,t__PPFH,a__OPFH,new_size__G3IH;
+  __UINTEGER_32 lab_type__F3IH,sz__ILM,a__SPFH,new_size__TPFH,t__XPFH;
+  __UINTEGER_32 a__WPFH,new_size__Q3IH,lab_type__P3IH,sz__SHNF,a__0PFH;
+  __UINTEGER_32 new_size__1PFH,t__5PFH,a__4PFH,new_size__03IH;
+  __UINTEGER_32 lab_type__Z3IH,sz__E4F,a__PQDH,new_size__0XG,t__DZG;
+  __UINTEGER_32 a__VQDH,new_size__E4IH,lab_type__D4IH,sz__IFTE,a__CQFH;
+  __UINTEGER_32 new_size__DQFH,t__HQFH,a__GQFH,new_size__O4IH;
+  __UINTEGER_32 lab_type__N4IH,sz__HSLF,a__KQFH,new_size__LQFH,t__PQFH;
+  __UINTEGER_32 a__OQFH,new_size__Y4IH,lab_type__X4IH,sz__T3MF,a__SQFH;
+  __UINTEGER_32 new_size__TQFH,t__XQFH,a__WQFH,new_size__C5IH;
+  __UINTEGER_32 lab_type__B5IH,sz__2UMD,a__0QFH,new_size__1QFH,t__5QFH;
+  __UINTEGER_32 a__4QFH,new_size__M5IH,lab_type__L5IH,sz__NVED,a__CRFH;
+  __UINTEGER_32 new_size__DRFH,t__HRFH,a__GRFH,new_size__W5IH;
+  __UINTEGER_32 lab_type__V5IH,sz__KKDH,a__PKDH,new_size__LKDH;
+  __UINTEGER_32 new_size2__MKDH,a__KRFH,new_size__LRFH,sz__PYMF,a__RRFH;
+  __UINTEGER_32 new_size__SRFH,t__WRFH,a__VRFH,new_size__IAJH;
+  __UINTEGER_32 lab_type__HAJH,sz__SKDH,a__XKDH,new_size__TKDH;
+  __UINTEGER_32 new_size2__UKDH,a__ZRFH,new_size__0RFH,sz__OJMF,a__ASFH;
+  __UINTEGER_32 new_size__BSFH,t__FSFH,a__ESFH,new_size__0AJH;
+  __UINTEGER_32 lab_type__ZAJH,sz__0KDH,a__5KDH,new_size__1KDH;
+  __UINTEGER_32 new_size2__2KDH,a__ISFH,new_size__JSFH,sz__H3YB,a__PSFH;
+  __UINTEGER_32 new_size__QSFH,t__USFH,a__TSFH,new_size__MBJH;
+  __UINTEGER_32 lab_type__LBJH,sz__MAZB,a__XSFH,new_size__YSFH,t__2SFH;
+  __UINTEGER_32 a__1SFH,new_size__WBJH,lab_type__VBJH,sz__GK5B,a__5SFH;
+  __UINTEGER_32 new_size__ATFH,t__ETFH,a__DTFH,new_size__ACJH;
+  __UINTEGER_32 lab_type__5BJH,sz__BEIE,a__HTFH,new_size__ITFH,t__MTFH;
+  __UINTEGER_32 a__LTFH,new_size__KCJH,lab_type__JCJH,sz__GUB,a__PTFH;
+  __UINTEGER_32 new_size__QTFH,t__UTFH,a__TTFH,new_size__UCJH;
+  __UINTEGER_32 lab_type__TCJH,sz__TVGH,a__UVGH,new_size__VVGH,t__WVGH;
+  __UINTEGER_32 a__XVGH,new_size__4CJH,lab_type__3CJH,sz__HHKB,a__YTFH;
+  __UINTEGER_32 new_size__ZTFH,t__3TFH,a__2TFH,new_size__LDJH;
+  __UINTEGER_32 lab_type__KDJH,sz__KKZB,a__DUFH,new_size__EUFH,t__IUFH;
+  __UINTEGER_32 a__HUFH,new_size__VDJH,lab_type__UDJH,sz__OWGH,a__PWGH;
+  __UINTEGER_32 new_size__QWGH,t__RWGH,a__SWGH,new_size__5DJH;
+  __UINTEGER_32 lab_type__4DJH,sz__YWGH,a__ZWGH,new_size__0WGH,t__1WGH;
+  __UINTEGER_32 a__2WGH,new_size__JEJH,lab_type__IEJH,sz__CXGH,a__DXGH;
+  __UINTEGER_32 new_size__EXGH,t__FXGH,a__GXGH,new_size__WEJH;
+  __UINTEGER_32 lab_type__VEJH,sz__DPED,a__WLEH,new_size__XLEH,t__1LEH;
+  __UINTEGER_32 a__0LEH,new_size__AFJH,lab_type__5EJH,sz__PYB,a__RUFH;
+  __UINTEGER_32 new_size__SUFH,t__WUFH,a__VUFH,new_size__KFJH;
+  __UINTEGER_32 lab_type__JFJH,sz__CNDH,a__HNDH,new_size__DNDH;
+  __UINTEGER_32 new_size2__ENDH,a__ZUFH,new_size__0UFH,sz__R2B,a__AVFH;
+  __UINTEGER_32 new_size__BVFH,t__FVFH,a__EVFH,new_size__2FJH;
+  __UINTEGER_32 lab_type__1FJH,sz__MXGH,a__NXGH,new_size__OXGH,t__PXGH;
+  __UINTEGER_32 a__QXGH,new_size__GGJH,lab_type__FGJH,sz__D4B,a__W5DH;
+  __UINTEGER_32 new_size__X5DH,t__15DH,a__05DH,new_size__QGJH;
+  __UINTEGER_32 lab_type__PGJH;
+  __STRING *Self__GOEB,*new__CA0G,*new__EA0G,*Self__VNDH,*Self__BODH;
+  __STRING *Self__YZGH,*Self__KWFH,*Self__MWFH,*Self__WGJH;
   __ITM_TYPE_PARAMETER *result__LWQ,*Self__L3V;
-  __LIP_BOOLEAN *result__0XMF;
-  void *result__DYIH,*result__VYIH,*result__HZIH,*result__X3IH;
-  void *txt__1,*fmt_name__KNC,*k__MNGH,*__tmp__2ND,*k__YPEB;
-  void *element__GMFH,*i__HOGH,*element__AUEC,*i__1OGH,*__tmp__4B;
-  void *__tmp__2H,*__tmp__1BYD,*__tmp__RCYD,*__tmp__SKTD,*__tmp__EFYD;
-  void *__tmp__0FYD,*__tmp__2KTD,*__tmp__NIYD,*__tmp__DJYD,*__tmp__PLYD;
-  void *__tmp__2LTD,*__tmp__VNYD,*__tmp__GMTD,*__tmp__1PYD;
+  __LIP_BOOLEAN *result__Q3MF;
+  void *result__25IH,*result__OAJH,*result__ABJH,*result__QFJH;
+  void *txt__1,*fmt_name__KNC,*k__ZVGH,*__tmp__2ND,*k__YPEB;
+  void *element__NUFH,*i__UWGH,*element__AUEC,*i__IXGH,*__tmp__4B;
+  void *__tmp__2H,*__tmp__GDYD,*__tmp__TDYD,*__tmp__2DYD,*__tmp__REYD;
+  void *__tmp__SKTD,*__tmp__EHYD,*__tmp__RHYD,*__tmp__0HYD,*__tmp__PIYD;
+  void *__tmp__2KTD,*__tmp__CLYD,*__tmp__PLYD,*__tmp__YLYD,*__tmp__NMYD;
+  void *__tmp__BPYD,*__tmp__2LTD,*__tmp__PRYD,*__tmp__GMTD,*__tmp__3TYD;
   void *p__AB;
-  __STRING_CONSTANT *result__DNGH,*Self__NWS,*Self__OLFH,*Self__ENS;
-  __STRING_CONSTANT *Self__QNGH,*Self__VNGH,*Self__0NGH,*Self__TWZG;
-  __STRING_CONSTANT *Self__VWZG,*Self__14IH,*Self__F5IH,*Self__K5IH;
-  __STRING_CONSTANT *Self__P5IH,*Self__U5IH;
-  __POSITION pos__ISZG,pos__SSZG,pos__EUZG,pos__GUZG,pos__IUZG;
-  __POSITION pos__KUZG,pos__MUZG,__tmp__5KYD,__tmp__ELYD,__tmp__FNYD;
-  __POSITION __tmp__KNYD,__tmp__LPYD,__tmp__QPYD;
-  __TYPE_ID *result__2OGH,*result__A4B;
+  __STRING_CONSTANT *result__QVGH,*Self__NWS,*Self__VTFH,*Self__ENS;
+  __STRING_CONSTANT *Self__3VGH,*Self__CWGH,*Self__HWGH,*Self__BA0G;
+  __STRING_CONSTANT *Self__DA0G,*Self__UGJH,*Self__4GJH,*Self__DHJH;
+  __STRING_CONSTANT *Self__IHJH,*Self__NHJH,*Self__SHJH,*Self__XHJH;
+  __STRING_CONSTANT *Self__2HJH,*Self__BIJH,*Self__GIJH,*Self__LIJH;
+  __POSITION pos__W1ZG,pos__A2ZG,pos__S3ZG,pos__U3ZG,pos__W3ZG;
+  __POSITION pos__Y3ZG,pos__03ZG,__tmp__JOYD,__tmp__OOYD,__tmp__XQYD;
+  __POSITION __tmp__2QYD,__tmp__FTYD,__tmp__KTYD;
+  __TYPE_ID *result__JXGH,*result__A4B;
   void *ent__TB;
   __DIRECTORY_UNIX *Self__IISD;
   void *dir__KISD,*dir__SISD,*__tmp__AD,*dir__SB;
   __FILE_UNIX *Self__4IRD;
   __PROTOTYPE *Self__WJTD;
-  void *s__EAYD,*s__NDYD,*s__WGYD,*s__5JYD,*s__FMYD,*s__LOYD;
-  void *__tmp__IKTD,*__tmp__FBYD,*__tmp__OEYD,*__tmp__ELTD,*__tmp__XHYD;
-  void *__tmp__SLTD,*__tmp__OMTD;
-  __SECTION_ *Self__HK0G,*Self__IK0G,*Self__JK0G,*Self__KK0G,*Self__LK0G;
-  __SECTION_ *Self__MK0G,*Self__PK0G;
-  void *__tmp__TBYD,*__tmp__2EYD,*__tmp__FIYD;
-  void *__tmp__VBYD,*ts__SBYD,*__tmp__4EYD,*ts__1EYD,*__tmp__HIYD;
-  void *ts__EIYD;
-  __CHARACTER *arg__CHD,*Self__BNGH,*p__HOEB,*path__4Y,*Self__TKC;
-  __CHARACTER *Self__NNFH,*model__ONFH,*Self__ZNFH,*model__0NFH;
-  __CHARACTER *__tmp__MRGH,*Self__ORGH;
-  __FAST_ARRAYoSTRINGo *result__EQIH,*Self__MQIH,*result__B4F,*Self__DGT;
+  void *s__PBYD,*s__NFYD,*s__LJYD,*s__JNYD,*s__XPYD,*s__FSYD;
+  void *__tmp__IKTD,*__tmp__QCYD,*__tmp__OGYD,*__tmp__ELTD,*__tmp__MKYD;
+  void *__tmp__SLTD,*__tmp__XOYD,*__tmp__FRYD,*__tmp__OMTD,*__tmp__TTYD;
+  __SECTION_ *Self__3T0G,*Self__4T0G,*Self__5T0G,*Self__AU0G,*Self__BU0G;
+  __SECTION_ *Self__CU0G,*Self__FU0G;
+  void *__tmp__4CYD,*__tmp__2GYD,*__tmp__0KYD;
+  void *__tmp__ADYD,*ts__3CYD,*__tmp__4GYD,*ts__1GYD,*__tmp__2KYD;
+  void *ts__ZKYD;
+  __CHARACTER *arg__CHD,*Self__OVGH,*p__HOEB,*path__4Y,*Self__TKC;
+  __CHARACTER *Self__UVFH,*model__VVFH,*Self__AWFH,*model__BWFH;
+  __CHARACTER *__tmp__ZZGH,*Self__1ZGH;
+  __FAST_ARRAYoSTRINGo *result__3XIH,*Self__FYIH,*result__B4F,*Self__DGT;
   void *result__BHD;
   __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *result__1TG,*Self__YIT;
   __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *result__C4DB;
@@ -2865,19 +2877,19 @@ int main(int argc,char **argv)
   __FAST_ARRAYoPROTOTYPEo *result__ENJ,*Self__UCU;
   __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__LNH;
   __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__5MT;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__LNGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__YVGH;
   __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__WPEB;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__EPGH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__5MFH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__SPGH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__DNFH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__AQGH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__HNFH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__RXGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__GVFH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__5XGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__KVFH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__NYGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__OVFH;
   __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__3VVB;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__TQGH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__TNFH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__AZGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__0VFH;
   __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__NCT;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__5NFH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__GWFH;
   __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *result__NOC,*Self__OPS;
   __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *result__B0Q,*Self__X3V;
   __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *result__4DR,*Self__JFW;
@@ -2890,49 +2902,52 @@ int main(int argc,char **argv)
   __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *result__GIK,*Self__TIU;
   __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *result__P4J,*Self__IFU;
   __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *result__FLM,*Self__WUU;
-  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *result__ZBNF,*Self__ZFPF;
-  __FAST_ARRAYoLIP_INTEGERo *result__UATE,*Self__CVWE;
-  __FAST_ARRAYoLIP_STRINGo *result__UMLF,*Self__LYOF;
+  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *result__PHNF,*Self__XLPF;
+  __FAST_ARRAYoLIP_INTEGERo *result__FFTE,*Self__0ZWE;
+  __FAST_ARRAYoLIP_STRINGo *result__ESLF,*Self__J4OF;
   __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *result__ZUMD,*Self__KFUD;
   __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *result__KVED;
   __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__SLSD;
-  void **Result__TRHE;
-  __FAST_ARRAYoLIP_SLOT_DATAo *result__WSMF,*Self__UAPF;
-  void **Result__42ZF;
-  __FAST_ARRAYoLIP_SLOT_CODEo *result__XDMF,*Self__V1OF;
-  void **Result__FYZF;
+  void **Result__VVHE;
+  __FAST_ARRAYoLIP_SLOT_DATAo *result__MYMF,*Self__SGPF;
+  void **Result__EG0F;
+  __FAST_ARRAYoLIP_SLOT_CODEo *result__LJMF,*Self__TBPF;
+  void **Result__LB0F;
   __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *result__E3YB;
   __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__CXFC;
   __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__JAZB;
   __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__B0FC;
   __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *result__DK5B,*Self__PKHC;
-  __FAST_ARRAYoITM_SLOTo *result__25HE,*Self__ZYVE;
+  __FAST_ARRAYoITM_SLOTo *result__4DIE,*Self__N3VE;
   __HASHED_SEToABSTRACT_STRINGo *result__DUB,*Self__HCS;
   __BOOLEAN __tmp__I0,__tmp__D1,result__55NB,__tmp__R1,result__RAOB;
   __BOOLEAN __tmp__51,result__DBOB,__tmp__M2,result__VBOB,__tmp__P4;
-  __BOOLEAN result__G1IH,result__ISEB,result__R2IH,result__1GG;
-  __BOOLEAN __tmp__JC,__tmp__FC,__tmp__UC,result__Y4IH;
-  __BOOLEAN is_first_cur__DAYD,__tmp__CCYD,__tmp__5BYD,__tmp__FCYD;
-  __BOOLEAN is_first_cur__MDYD,result__C5IH,__tmp__LFYD,__tmp__IFYD;
-  __BOOLEAN __tmp__OFYD,is_first_cur__VGYD,result__H5IH,__tmp__JLTD;
-  __BOOLEAN __tmp__UIYD,__tmp__RIYD,__tmp__XIYD,is_first__4JYD;
-  __BOOLEAN is_first__EMYD,result__M5IH,is_first__KOYD,result__R5IH;
+  __BOOLEAN result__5CJH,result__ISEB,result__KEJH,result__1GG;
+  __BOOLEAN __tmp__JC,__tmp__FC,__tmp__UC,result__RGJH;
+  __BOOLEAN is_first_cur__OBYD,__tmp__NDYD,__tmp__KDYD,result__1GJH;
+  __BOOLEAN __tmp__BEYD,result__AHJH,__tmp__CEYD,__tmp__FEYD;
+  __BOOLEAN is_first_cur__MFYD,result__FHJH,__tmp__LHYD,__tmp__IHYD;
+  __BOOLEAN result__KHJH,__tmp__5HYD,result__PHJH,__tmp__AIYD;
+  __BOOLEAN __tmp__DIYD,is_first_cur__KJYD,result__UHJH,__tmp__JLTD;
+  __BOOLEAN __tmp__JLYD,__tmp__GLYD,result__ZHJH,__tmp__3LYD;
+  __BOOLEAN result__4HJH,__tmp__4LYD,__tmp__BMYD,is_first__INYD;
+  __BOOLEAN is_first__WPYD,result__DIJH,is_first__ESYD,result__IIJH;
   __BOOLEAN __tmp__TMTD;
-  __CHARACTER result__H1IH,result__S2IH,result__3SBH,result__GKBH;
-  __CHARACTER Self__54IH,result__A5IH,__tmp__MBYD,__tmp__VEYD;
-  __CHARACTER __tmp__4HYD;
-  __LINKED_LISToSTRING_CONSTANTo *result__EHKB,*Self__HMFH,*Self__5TEC;
-  void *node__NNGH,*node__BQEB,*node1__CIZB,*node2__DIZB,*__tmp__OREB;
-  void *node__GPGH,*node__BNFH,*node__UPGH,*node__FNFH,*node__CQGH;
-  void *node__JNFH,*node__HWVB,*node__VQGH,*node__VNFH,*node__YCT;
-  void *node__BOFH;
+  __CHARACTER result__ADJH,result__LEJH,result__K2BH,result__ETBH;
+  __CHARACTER Self__YGJH,result__ZGJH,__tmp__XCYD,__tmp__VGYD;
+  __CHARACTER __tmp__TKYD;
+  __LINKED_LISToSTRING_CONSTANTo *result__EHKB,*Self__OUFH,*Self__5TEC;
+  void *node__0VGH,*node__BQEB,*node1__CIZB,*node2__DIZB,*__tmp__OREB;
+  void *node__TXGH,*node__IVFH,*node__BYGH,*node__MVFH,*node__PYGH;
+  void *node__QVFH,*node__HWVB,*node__CZGH,*node__2VFH,*node__YCT;
+  void *node__IWFH;
   void **old_buckets__BIZB;
   __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__HKZB;
   __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__1DGC;
   void *def__GSEB;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__4NGH,*Self__GOGH;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__IOGH,*Self__QOGH;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__SOGH,*Self__0OGH;
+  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__LWGH,*Self__TWGH;
+  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__VWGH,*Self__3WGH;
+  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__5WGH,*Self__HXGH;
   __LINKED_LIST_NODEoSTRING_CONSTANTo *result__APED,*Self__ALSD;
   __FAST_ARRAYoSLOTo *result__MYB,*Self__LES;
   void **Result__MI1C;
@@ -2969,93 +2984,93 @@ int main(int argc,char **argv)
   FAST_ARRAYoSTRINGo__->parent_arrayed_collection__DKC=(*ARRAYED_COLLECTIONoSTRINGo__);
   arg__CHD=NULL;
   str__DHD=NULL;
-  new_count__NQIH=((__INTEGER )(arg_count));
-  result__EQIH=NULL;
-  ptr__FQIH=((__POINTER )(NULL));
-  typ_id__GQIH= 0;
-  sz__HQIH=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
-  if ((sz__HQIH ==  0)) {
-    result__EQIH=FAST_ARRAYoSTRINGo__;
+  new_count__GYIH=((__INTEGER )(arg_count));
+  result__3XIH=NULL;
+  ptr__4XIH=((__POINTER )(NULL));
+  typ_id__5XIH= 0;
+  sz__AYIH=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
+  if ((sz__AYIH ==  0)) {
+    result__3XIH=FAST_ARRAYoSTRINGo__;
   } else {
-    typ_id__GQIH=__FAST_ARRAYoSTRINGo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__HQIH);
-    if ((typ_id__GQIH == (__INTEGER)(-  1))) {
-      a__IQIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__JQIH=(__UINTEGER_32)((__UINTEGER_32)(sz__HQIH + a__IQIH) & (__UINTEGER_32)(~ a__IQIH));
-      ptr_table__PQIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JQIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__OQIH=((__POINTER )(NULL));
-      result__QQIH=((__POINTER *)ptr_table__PQIH)[ 0];
-      if ((result__QQIH == (void *)NULL)) {
-        result__QQIH=new_lab__MRJ(new_size__JQIH);
-        next__OQIH=(void *)((unsigned long)result__QQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JQIH)));
-        ((__POINTER *)next__OQIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__PQIH)[ 0]=next__OQIH;
-      } else {
-        next__OQIH=((__POINTER *)result__QQIH)[ 0];
-        if ((next__OQIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QQIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JQIH <<  1)) <=  4096)) {
-            next__OQIH=(void *)((unsigned long)result__QQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JQIH)));
-          } else {
-            next__OQIH=new_lab__MRJ(new_size__JQIH);
-          };
-          ((__POINTER *)next__OQIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PQIH)[ 0]=next__OQIH;
-        } else {
-          ((__POINTER *)result__QQIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__QQIH=next__OQIH;
-        };
-      };
-      ptr__FQIH=result__QQIH;
-    } else {
-      t__KQIH=((__UINTEGER_32 )typ_id__GQIH);
-      a__LQIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XQIH=(__UINTEGER_32)((__UINTEGER_32)(sz__HQIH + a__LQIH) & (__UINTEGER_32)(~ a__LQIH));
-      ptr_table__UQIH=((__POINTER )(&(table_type[(t__KQIH)])));
-      lab_type__WQIH=(__UINTEGER_32)(t__KQIH |  1);
-      next__TQIH=((__POINTER )(NULL));
-      result__VQIH=((__POINTER *)ptr_table__UQIH)[ 0];
-      if ((result__VQIH == (void *)NULL)) {
-        result__VQIH=new_lab__MRJ(lab_type__WQIH);
-        next__TQIH=(void *)((unsigned long)result__VQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQIH)));
-        ((__POINTER *)next__TQIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__UQIH)[ 0]=next__TQIH;
-      } else {
-        next__TQIH=((__POINTER *)result__VQIH)[ 0];
-        if ((next__TQIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VQIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XQIH <<  1)) <=  4096)) {
-            next__TQIH=(void *)((unsigned long)result__VQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQIH)));
-          } else {
-            next__TQIH=new_lab__MRJ(lab_type__WQIH);
-          };
-          ((__POINTER *)next__TQIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UQIH)[ 0]=next__TQIH;
-        } else {
-          ((__POINTER *)result__VQIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__VQIH=next__TQIH;
-        };
-      };
-      ptr__FQIH=result__VQIH;
-    };
-    result__EQIH=((__FAST_ARRAYoSTRINGo *)ptr__FQIH);
-    *(result__EQIH) = *(FAST_ARRAYoSTRINGo__);
-  };
-  Self__MQIH=((__FAST_ARRAYoSTRINGo *)result__EQIH);
-  if ((Self__MQIH->parent_arrayed_collection__DKC.capacity__MGT < new_count__NQIH)) {
-    Self__MQIH->parent_arrayed_collection__DKC.storage__XGT=create__ZFRB(new_count__NQIH);
-    Self__MQIH->parent_arrayed_collection__DKC.capacity__MGT=new_count__NQIH;
-  };
-  Self__MQIH->parent_arrayed_collection__DKC.upper__GKC=(__INTEGER)(-  1);
-  result__BHD=result__EQIH;
+    typ_id__5XIH=__FAST_ARRAYoSTRINGo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__AYIH);
+    if ((typ_id__5XIH == (__INTEGER)(-  1))) {
+      a__BYIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__CYIH=(__UINTEGER_32)((__UINTEGER_32)(sz__AYIH + a__BYIH) & (__UINTEGER_32)(~ a__BYIH));
+      ptr_table__IYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CYIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__HYIH=((__POINTER )(NULL));
+      result__JYIH=((__POINTER *)ptr_table__IYIH)[ 0];
+      if ((result__JYIH == (void *)NULL)) {
+        result__JYIH=new_lab__MRJ(new_size__CYIH);
+        next__HYIH=(void *)((unsigned long)result__JYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CYIH)));
+        ((__POINTER *)next__HYIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__IYIH)[ 0]=next__HYIH;
+      } else {
+        next__HYIH=((__POINTER *)result__JYIH)[ 0];
+        if ((next__HYIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CYIH <<  1)) <=  4096)) {
+            next__HYIH=(void *)((unsigned long)result__JYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CYIH)));
+          } else {
+            next__HYIH=new_lab__MRJ(new_size__CYIH);
+          };
+          ((__POINTER *)next__HYIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__IYIH)[ 0]=next__HYIH;
+        } else {
+          ((__POINTER *)result__JYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__JYIH=next__HYIH;
+        };
+      };
+      ptr__4XIH=result__JYIH;
+    } else {
+      t__DYIH=((__UINTEGER_32 )typ_id__5XIH);
+      a__EYIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__QYIH=(__UINTEGER_32)((__UINTEGER_32)(sz__AYIH + a__EYIH) & (__UINTEGER_32)(~ a__EYIH));
+      ptr_table__NYIH=((__POINTER )(&(table_type[(t__DYIH)])));
+      lab_type__PYIH=(__UINTEGER_32)(t__DYIH |  1);
+      next__MYIH=((__POINTER )(NULL));
+      result__OYIH=((__POINTER *)ptr_table__NYIH)[ 0];
+      if ((result__OYIH == (void *)NULL)) {
+        result__OYIH=new_lab__MRJ(lab_type__PYIH);
+        next__MYIH=(void *)((unsigned long)result__OYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QYIH)));
+        ((__POINTER *)next__MYIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__NYIH)[ 0]=next__MYIH;
+      } else {
+        next__MYIH=((__POINTER *)result__OYIH)[ 0];
+        if ((next__MYIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QYIH <<  1)) <=  4096)) {
+            next__MYIH=(void *)((unsigned long)result__OYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QYIH)));
+          } else {
+            next__MYIH=new_lab__MRJ(lab_type__PYIH);
+          };
+          ((__POINTER *)next__MYIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__NYIH)[ 0]=next__MYIH;
+        } else {
+          ((__POINTER *)result__OYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__OYIH=next__MYIH;
+        };
+      };
+      ptr__4XIH=result__OYIH;
+    };
+    result__3XIH=((__FAST_ARRAYoSTRINGo *)ptr__4XIH);
+    *(result__3XIH) = *(FAST_ARRAYoSTRINGo__);
+  };
+  Self__FYIH=((__FAST_ARRAYoSTRINGo *)result__3XIH);
+  if ((Self__FYIH->parent_arrayed_collection__DKC.capacity__MGT < new_count__GYIH)) {
+    Self__FYIH->parent_arrayed_collection__DKC.storage__XGT=create__ZFRB(new_count__GYIH);
+    Self__FYIH->parent_arrayed_collection__DKC.capacity__MGT=new_count__GYIH;
+  };
+  Self__FYIH->parent_arrayed_collection__DKC.upper__GKC=(__INTEGER)(-  1);
+  result__BHD=result__3XIH;
   Self__HHF= 0;
   limit_up__IHF=(__INTEGER)(((__INTEGER )(arg_count)) -  1);
   while ((Self__HHF <= limit_up__IHF)) {
     arg__CHD=((__CHARACTER *)(arg_vector[(Self__HHF)]));
-    Self__BNGH=((__CHARACTER *)arg__CHD);
-    idx__ANGH= 0;
-    while ((! ((idx__ANGH >  1024) || ('\0' == Self__BNGH[idx__ANGH])))) {
-      idx__ANGH=(__INTEGER)(idx__ANGH +  1);
+    Self__OVGH=((__CHARACTER *)arg__CHD);
+    idx__NVGH= 0;
+    while ((! ((idx__NVGH >  1024) || ('\0' == Self__OVGH[idx__NVGH])))) {
+      idx__NVGH=(__INTEGER)(idx__NVGH +  1);
     };
-    str__DHD=create__NBB(idx__ANGH);
+    str__DHD=create__NBB(idx__NVGH);
     Self__GOEB=((__STRING *)str__DHD);
     p__HOEB=arg__CHD;
     i__IOEB= 0;
@@ -3096,61 +3111,61 @@ int main(int argc,char **argv)
     typ_id__BUG=__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__4TG);
     if ((typ_id__BUG == (__INTEGER)(-  1))) {
-      a__1DFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2DFH=(__UINTEGER_32)((__UINTEGER_32)(sz__4TG + a__1DFH) & (__UINTEGER_32)(~ a__1DFH));
-      ptr_table__ZQIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2DFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__YQIH=((__POINTER )(NULL));
-      result__0QIH=((__POINTER *)ptr_table__ZQIH)[ 0];
-      if ((result__0QIH == (void *)NULL)) {
-        result__0QIH=new_lab__MRJ(new_size__2DFH);
-        next__YQIH=(void *)((unsigned long)result__0QIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2DFH)));
-        ((__POINTER *)next__YQIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZQIH)[ 0]=next__YQIH;
+      a__CMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__DMFH=(__UINTEGER_32)((__UINTEGER_32)(sz__4TG + a__CMFH) & (__UINTEGER_32)(~ a__CMFH));
+      ptr_table__SYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DMFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__RYIH=((__POINTER )(NULL));
+      result__TYIH=((__POINTER *)ptr_table__SYIH)[ 0];
+      if ((result__TYIH == (void *)NULL)) {
+        result__TYIH=new_lab__MRJ(new_size__DMFH);
+        next__RYIH=(void *)((unsigned long)result__TYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DMFH)));
+        ((__POINTER *)next__RYIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__SYIH)[ 0]=next__RYIH;
       } else {
-        next__YQIH=((__POINTER *)result__0QIH)[ 0];
-        if ((next__YQIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0QIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2DFH <<  1)) <=  4096)) {
-            next__YQIH=(void *)((unsigned long)result__0QIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2DFH)));
+        next__RYIH=((__POINTER *)result__TYIH)[ 0];
+        if ((next__RYIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DMFH <<  1)) <=  4096)) {
+            next__RYIH=(void *)((unsigned long)result__TYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DMFH)));
           } else {
-            next__YQIH=new_lab__MRJ(new_size__2DFH);
+            next__RYIH=new_lab__MRJ(new_size__DMFH);
           };
-          ((__POINTER *)next__YQIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZQIH)[ 0]=next__YQIH;
+          ((__POINTER *)next__RYIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__SYIH)[ 0]=next__RYIH;
         } else {
-          ((__POINTER *)result__0QIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__0QIH=next__YQIH;
+          ((__POINTER *)result__TYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__TYIH=next__RYIH;
         };
       };
-      ptr__2TG=result__0QIH;
+      ptr__2TG=result__TYIH;
     } else {
-      t__AEFH=((__UINTEGER_32 )typ_id__BUG);
-      a__5DFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__BRIH=(__UINTEGER_32)((__UINTEGER_32)(sz__4TG + a__5DFH) & (__UINTEGER_32)(~ a__5DFH));
-      ptr_table__4QIH=((__POINTER )(&(table_type[(t__AEFH)])));
-      lab_type__ARIH=(__UINTEGER_32)(t__AEFH |  1);
-      next__3QIH=((__POINTER )(NULL));
-      result__5QIH=((__POINTER *)ptr_table__4QIH)[ 0];
-      if ((result__5QIH == (void *)NULL)) {
-        result__5QIH=new_lab__MRJ(lab_type__ARIH);
-        next__3QIH=(void *)((unsigned long)result__5QIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BRIH)));
-        ((__POINTER *)next__3QIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4QIH)[ 0]=next__3QIH;
+      t__HMFH=((__UINTEGER_32 )typ_id__BUG);
+      a__GMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__0YIH=(__UINTEGER_32)((__UINTEGER_32)(sz__4TG + a__GMFH) & (__UINTEGER_32)(~ a__GMFH));
+      ptr_table__XYIH=((__POINTER )(&(table_type[(t__HMFH)])));
+      lab_type__ZYIH=(__UINTEGER_32)(t__HMFH |  1);
+      next__WYIH=((__POINTER )(NULL));
+      result__YYIH=((__POINTER *)ptr_table__XYIH)[ 0];
+      if ((result__YYIH == (void *)NULL)) {
+        result__YYIH=new_lab__MRJ(lab_type__ZYIH);
+        next__WYIH=(void *)((unsigned long)result__YYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0YIH)));
+        ((__POINTER *)next__WYIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__XYIH)[ 0]=next__WYIH;
       } else {
-        next__3QIH=((__POINTER *)result__5QIH)[ 0];
-        if ((next__3QIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5QIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BRIH <<  1)) <=  4096)) {
-            next__3QIH=(void *)((unsigned long)result__5QIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BRIH)));
+        next__WYIH=((__POINTER *)result__YYIH)[ 0];
+        if ((next__WYIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0YIH <<  1)) <=  4096)) {
+            next__WYIH=(void *)((unsigned long)result__YYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0YIH)));
           } else {
-            next__3QIH=new_lab__MRJ(lab_type__ARIH);
+            next__WYIH=new_lab__MRJ(lab_type__ZYIH);
           };
-          ((__POINTER *)next__3QIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4QIH)[ 0]=next__3QIH;
+          ((__POINTER *)next__WYIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__XYIH)[ 0]=next__WYIH;
         } else {
-          ((__POINTER *)result__5QIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3QIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5QIH=next__3QIH;
+          ((__POINTER *)result__YYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__YYIH=next__WYIH;
         };
       };
-      ptr__2TG=result__5QIH;
+      ptr__2TG=result__YYIH;
     };
     result__1TG=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)ptr__2TG);
     *(result__1TG) = *(HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__);
@@ -3184,61 +3199,61 @@ int main(int argc,char **argv)
     typ_id__I4DB=__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__F4DB);
     if ((typ_id__I4DB == (__INTEGER)(-  1))) {
-      a__DEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__F4DB + a__DEFH) & (__UINTEGER_32)(~ a__DEFH));
-      ptr_table__DRIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__CRIH=((__POINTER )(NULL));
-      result__ERIH=((__POINTER *)ptr_table__DRIH)[ 0];
-      if ((result__ERIH == (void *)NULL)) {
-        result__ERIH=new_lab__MRJ(new_size__EEFH);
-        next__CRIH=(void *)((unsigned long)result__ERIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EEFH)));
-        ((__POINTER *)next__CRIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DRIH)[ 0]=next__CRIH;
+      a__KMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__LMFH=(__UINTEGER_32)((__UINTEGER_32)(sz__F4DB + a__KMFH) & (__UINTEGER_32)(~ a__KMFH));
+      ptr_table__2YIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LMFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__1YIH=((__POINTER )(NULL));
+      result__3YIH=((__POINTER *)ptr_table__2YIH)[ 0];
+      if ((result__3YIH == (void *)NULL)) {
+        result__3YIH=new_lab__MRJ(new_size__LMFH);
+        next__1YIH=(void *)((unsigned long)result__3YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LMFH)));
+        ((__POINTER *)next__1YIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__2YIH)[ 0]=next__1YIH;
       } else {
-        next__CRIH=((__POINTER *)result__ERIH)[ 0];
-        if ((next__CRIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ERIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EEFH <<  1)) <=  4096)) {
-            next__CRIH=(void *)((unsigned long)result__ERIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EEFH)));
+        next__1YIH=((__POINTER *)result__3YIH)[ 0];
+        if ((next__1YIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3YIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LMFH <<  1)) <=  4096)) {
+            next__1YIH=(void *)((unsigned long)result__3YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LMFH)));
           } else {
-            next__CRIH=new_lab__MRJ(new_size__EEFH);
+            next__1YIH=new_lab__MRJ(new_size__LMFH);
           };
-          ((__POINTER *)next__CRIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DRIH)[ 0]=next__CRIH;
+          ((__POINTER *)next__1YIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__2YIH)[ 0]=next__1YIH;
         } else {
-          ((__POINTER *)result__ERIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ERIH=next__CRIH;
+          ((__POINTER *)result__3YIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1YIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__3YIH=next__1YIH;
         };
       };
-      ptr__D4DB=result__ERIH;
+      ptr__D4DB=result__3YIH;
     } else {
-      t__IEFH=((__UINTEGER_32 )typ_id__I4DB);
-      a__HEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__LRIH=(__UINTEGER_32)((__UINTEGER_32)(sz__F4DB + a__HEFH) & (__UINTEGER_32)(~ a__HEFH));
-      ptr_table__IRIH=((__POINTER )(&(table_type[(t__IEFH)])));
-      lab_type__KRIH=(__UINTEGER_32)(t__IEFH |  1);
-      next__HRIH=((__POINTER )(NULL));
-      result__JRIH=((__POINTER *)ptr_table__IRIH)[ 0];
-      if ((result__JRIH == (void *)NULL)) {
-        result__JRIH=new_lab__MRJ(lab_type__KRIH);
-        next__HRIH=(void *)((unsigned long)result__JRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRIH)));
-        ((__POINTER *)next__HRIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__IRIH)[ 0]=next__HRIH;
+      t__PMFH=((__UINTEGER_32 )typ_id__I4DB);
+      a__OMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__EZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__F4DB + a__OMFH) & (__UINTEGER_32)(~ a__OMFH));
+      ptr_table__BZIH=((__POINTER )(&(table_type[(t__PMFH)])));
+      lab_type__DZIH=(__UINTEGER_32)(t__PMFH |  1);
+      next__AZIH=((__POINTER )(NULL));
+      result__CZIH=((__POINTER *)ptr_table__BZIH)[ 0];
+      if ((result__CZIH == (void *)NULL)) {
+        result__CZIH=new_lab__MRJ(lab_type__DZIH);
+        next__AZIH=(void *)((unsigned long)result__CZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EZIH)));
+        ((__POINTER *)next__AZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__BZIH)[ 0]=next__AZIH;
       } else {
-        next__HRIH=((__POINTER *)result__JRIH)[ 0];
-        if ((next__HRIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JRIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LRIH <<  1)) <=  4096)) {
-            next__HRIH=(void *)((unsigned long)result__JRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRIH)));
+        next__AZIH=((__POINTER *)result__CZIH)[ 0];
+        if ((next__AZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EZIH <<  1)) <=  4096)) {
+            next__AZIH=(void *)((unsigned long)result__CZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EZIH)));
           } else {
-            next__HRIH=new_lab__MRJ(lab_type__KRIH);
+            next__AZIH=new_lab__MRJ(lab_type__DZIH);
           };
-          ((__POINTER *)next__HRIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__IRIH)[ 0]=next__HRIH;
+          ((__POINTER *)next__AZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__BZIH)[ 0]=next__AZIH;
         } else {
-          ((__POINTER *)result__JRIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__JRIH=next__HRIH;
+          ((__POINTER *)result__CZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__CZIH=next__AZIH;
         };
       };
-      ptr__D4DB=result__JRIH;
+      ptr__D4DB=result__CZIH;
     };
     result__C4DB=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)ptr__D4DB);
     *(result__C4DB) = *(HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__);
@@ -3274,61 +3289,61 @@ int main(int argc,char **argv)
     typ_id__KNJ=__FAST_ARRAYoPROTOTYPEo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__HNJ);
     if ((typ_id__KNJ == (__INTEGER)(-  1))) {
-      a__LEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__MEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNJ + a__LEFH) & (__UINTEGER_32)(~ a__LEFH));
-      ptr_table__NRIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__MRIH=((__POINTER )(NULL));
-      result__ORIH=((__POINTER *)ptr_table__NRIH)[ 0];
-      if ((result__ORIH == (void *)NULL)) {
-        result__ORIH=new_lab__MRJ(new_size__MEFH);
-        next__MRIH=(void *)((unsigned long)result__ORIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MEFH)));
-        ((__POINTER *)next__MRIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NRIH)[ 0]=next__MRIH;
-      } else {
-        next__MRIH=((__POINTER *)result__ORIH)[ 0];
-        if ((next__MRIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ORIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MEFH <<  1)) <=  4096)) {
-            next__MRIH=(void *)((unsigned long)result__ORIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MEFH)));
-          } else {
-            next__MRIH=new_lab__MRJ(new_size__MEFH);
+      a__SMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TMFH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNJ + a__SMFH) & (__UINTEGER_32)(~ a__SMFH));
+      ptr_table__GZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TMFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__FZIH=((__POINTER )(NULL));
+      result__HZIH=((__POINTER *)ptr_table__GZIH)[ 0];
+      if ((result__HZIH == (void *)NULL)) {
+        result__HZIH=new_lab__MRJ(new_size__TMFH);
+        next__FZIH=(void *)((unsigned long)result__HZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TMFH)));
+        ((__POINTER *)next__FZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__GZIH)[ 0]=next__FZIH;
+      } else {
+        next__FZIH=((__POINTER *)result__HZIH)[ 0];
+        if ((next__FZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TMFH <<  1)) <=  4096)) {
+            next__FZIH=(void *)((unsigned long)result__HZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TMFH)));
+          } else {
+            next__FZIH=new_lab__MRJ(new_size__TMFH);
           };
-          ((__POINTER *)next__MRIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NRIH)[ 0]=next__MRIH;
+          ((__POINTER *)next__FZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__GZIH)[ 0]=next__FZIH;
         } else {
-          ((__POINTER *)result__ORIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ORIH=next__MRIH;
+          ((__POINTER *)result__HZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__HZIH=next__FZIH;
         };
       };
-      ptr__FNJ=result__ORIH;
+      ptr__FNJ=result__HZIH;
     } else {
-      t__QEFH=((__UINTEGER_32 )typ_id__KNJ);
-      a__PEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__VRIH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNJ + a__PEFH) & (__UINTEGER_32)(~ a__PEFH));
-      ptr_table__SRIH=((__POINTER )(&(table_type[(t__QEFH)])));
-      lab_type__URIH=(__UINTEGER_32)(t__QEFH |  1);
-      next__RRIH=((__POINTER )(NULL));
-      result__TRIH=((__POINTER *)ptr_table__SRIH)[ 0];
-      if ((result__TRIH == (void *)NULL)) {
-        result__TRIH=new_lab__MRJ(lab_type__URIH);
-        next__RRIH=(void *)((unsigned long)result__TRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRIH)));
-        ((__POINTER *)next__RRIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SRIH)[ 0]=next__RRIH;
+      t__XMFH=((__UINTEGER_32 )typ_id__KNJ);
+      a__WMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__OZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNJ + a__WMFH) & (__UINTEGER_32)(~ a__WMFH));
+      ptr_table__LZIH=((__POINTER )(&(table_type[(t__XMFH)])));
+      lab_type__NZIH=(__UINTEGER_32)(t__XMFH |  1);
+      next__KZIH=((__POINTER )(NULL));
+      result__MZIH=((__POINTER *)ptr_table__LZIH)[ 0];
+      if ((result__MZIH == (void *)NULL)) {
+        result__MZIH=new_lab__MRJ(lab_type__NZIH);
+        next__KZIH=(void *)((unsigned long)result__MZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZIH)));
+        ((__POINTER *)next__KZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__LZIH)[ 0]=next__KZIH;
       } else {
-        next__RRIH=((__POINTER *)result__TRIH)[ 0];
-        if ((next__RRIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TRIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VRIH <<  1)) <=  4096)) {
-            next__RRIH=(void *)((unsigned long)result__TRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRIH)));
+        next__KZIH=((__POINTER *)result__MZIH)[ 0];
+        if ((next__KZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OZIH <<  1)) <=  4096)) {
+            next__KZIH=(void *)((unsigned long)result__MZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZIH)));
           } else {
-            next__RRIH=new_lab__MRJ(lab_type__URIH);
+            next__KZIH=new_lab__MRJ(lab_type__NZIH);
           };
-          ((__POINTER *)next__RRIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__SRIH)[ 0]=next__RRIH;
+          ((__POINTER *)next__KZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__LZIH)[ 0]=next__KZIH;
         } else {
-          ((__POINTER *)result__TRIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__TRIH=next__RRIH;
+          ((__POINTER *)result__MZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__MZIH=next__KZIH;
         };
       };
-      ptr__FNJ=result__TRIH;
+      ptr__FNJ=result__MZIH;
     };
     result__ENJ=((__FAST_ARRAYoPROTOTYPEo *)ptr__FNJ);
     *(result__ENJ) = *(FAST_ARRAYoPROTOTYPEo__);
@@ -3382,61 +3397,61 @@ int main(int argc,char **argv)
     typ_id__RNH=__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ONH);
     if ((typ_id__RNH == (__INTEGER)(-  1))) {
-      a__TEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ONH + a__TEFH) & (__UINTEGER_32)(~ a__TEFH));
-      ptr_table__XRIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__WRIH=((__POINTER )(NULL));
-      result__YRIH=((__POINTER *)ptr_table__XRIH)[ 0];
-      if ((result__YRIH == (void *)NULL)) {
-        result__YRIH=new_lab__MRJ(new_size__UEFH);
-        next__WRIH=(void *)((unsigned long)result__YRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UEFH)));
-        ((__POINTER *)next__WRIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__XRIH)[ 0]=next__WRIH;
-      } else {
-        next__WRIH=((__POINTER *)result__YRIH)[ 0];
-        if ((next__WRIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YRIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UEFH <<  1)) <=  4096)) {
-            next__WRIH=(void *)((unsigned long)result__YRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UEFH)));
-          } else {
-            next__WRIH=new_lab__MRJ(new_size__UEFH);
+      a__0MFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__1MFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ONH + a__0MFH) & (__UINTEGER_32)(~ a__0MFH));
+      ptr_table__QZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1MFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__PZIH=((__POINTER )(NULL));
+      result__RZIH=((__POINTER *)ptr_table__QZIH)[ 0];
+      if ((result__RZIH == (void *)NULL)) {
+        result__RZIH=new_lab__MRJ(new_size__1MFH);
+        next__PZIH=(void *)((unsigned long)result__RZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1MFH)));
+        ((__POINTER *)next__PZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__QZIH)[ 0]=next__PZIH;
+      } else {
+        next__PZIH=((__POINTER *)result__RZIH)[ 0];
+        if ((next__PZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1MFH <<  1)) <=  4096)) {
+            next__PZIH=(void *)((unsigned long)result__RZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1MFH)));
+          } else {
+            next__PZIH=new_lab__MRJ(new_size__1MFH);
           };
-          ((__POINTER *)next__WRIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__XRIH)[ 0]=next__WRIH;
+          ((__POINTER *)next__PZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__QZIH)[ 0]=next__PZIH;
         } else {
-          ((__POINTER *)result__YRIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__YRIH=next__WRIH;
+          ((__POINTER *)result__RZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__RZIH=next__PZIH;
         };
       };
-      ptr__MNH=result__YRIH;
+      ptr__MNH=result__RZIH;
     } else {
-      t__YEFH=((__UINTEGER_32 )typ_id__RNH);
-      a__XEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5RIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ONH + a__XEFH) & (__UINTEGER_32)(~ a__XEFH));
-      ptr_table__2RIH=((__POINTER )(&(table_type[(t__YEFH)])));
-      lab_type__4RIH=(__UINTEGER_32)(t__YEFH |  1);
-      next__1RIH=((__POINTER )(NULL));
-      result__3RIH=((__POINTER *)ptr_table__2RIH)[ 0];
-      if ((result__3RIH == (void *)NULL)) {
-        result__3RIH=new_lab__MRJ(lab_type__4RIH);
-        next__1RIH=(void *)((unsigned long)result__3RIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RIH)));
-        ((__POINTER *)next__1RIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__2RIH)[ 0]=next__1RIH;
+      t__5MFH=((__UINTEGER_32 )typ_id__RNH);
+      a__4MFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__YZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ONH + a__4MFH) & (__UINTEGER_32)(~ a__4MFH));
+      ptr_table__VZIH=((__POINTER )(&(table_type[(t__5MFH)])));
+      lab_type__XZIH=(__UINTEGER_32)(t__5MFH |  1);
+      next__UZIH=((__POINTER )(NULL));
+      result__WZIH=((__POINTER *)ptr_table__VZIH)[ 0];
+      if ((result__WZIH == (void *)NULL)) {
+        result__WZIH=new_lab__MRJ(lab_type__XZIH);
+        next__UZIH=(void *)((unsigned long)result__WZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YZIH)));
+        ((__POINTER *)next__UZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__VZIH)[ 0]=next__UZIH;
       } else {
-        next__1RIH=((__POINTER *)result__3RIH)[ 0];
-        if ((next__1RIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3RIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5RIH <<  1)) <=  4096)) {
-            next__1RIH=(void *)((unsigned long)result__3RIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RIH)));
+        next__UZIH=((__POINTER *)result__WZIH)[ 0];
+        if ((next__UZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YZIH <<  1)) <=  4096)) {
+            next__UZIH=(void *)((unsigned long)result__WZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YZIH)));
           } else {
-            next__1RIH=new_lab__MRJ(lab_type__4RIH);
+            next__UZIH=new_lab__MRJ(lab_type__XZIH);
           };
-          ((__POINTER *)next__1RIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2RIH)[ 0]=next__1RIH;
+          ((__POINTER *)next__UZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__VZIH)[ 0]=next__UZIH;
         } else {
-          ((__POINTER *)result__3RIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1RIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__3RIH=next__1RIH;
+          ((__POINTER *)result__WZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__WZIH=next__UZIH;
         };
       };
-      ptr__MNH=result__3RIH;
+      ptr__MNH=result__WZIH;
     };
     result__LNH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__MNH);
     *(result__LNH) = *(HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
@@ -3479,61 +3494,61 @@ int main(int argc,char **argv)
     typ_id__TOC=__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__QOC);
     if ((typ_id__TOC == (__INTEGER)(-  1))) {
-      a__1EFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2EFH=(__UINTEGER_32)((__UINTEGER_32)(sz__QOC + a__1EFH) & (__UINTEGER_32)(~ a__1EFH));
-      ptr_table__BSIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2EFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ASIH=((__POINTER )(NULL));
-      result__CSIH=((__POINTER *)ptr_table__BSIH)[ 0];
-      if ((result__CSIH == (void *)NULL)) {
-        result__CSIH=new_lab__MRJ(new_size__2EFH);
-        next__ASIH=(void *)((unsigned long)result__CSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2EFH)));
-        ((__POINTER *)next__ASIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BSIH)[ 0]=next__ASIH;
-      } else {
-        next__ASIH=((__POINTER *)result__CSIH)[ 0];
-        if ((next__ASIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2EFH <<  1)) <=  4096)) {
-            next__ASIH=(void *)((unsigned long)result__CSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2EFH)));
-          } else {
-            next__ASIH=new_lab__MRJ(new_size__2EFH);
-          };
-          ((__POINTER *)next__ASIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BSIH)[ 0]=next__ASIH;
-        } else {
-          ((__POINTER *)result__CSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ASIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__CSIH=next__ASIH;
-        };
-      };
-      ptr__OOC=result__CSIH;
-    } else {
-      t__AFFH=((__UINTEGER_32 )typ_id__TOC);
-      a__5EFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__JSIH=(__UINTEGER_32)((__UINTEGER_32)(sz__QOC + a__5EFH) & (__UINTEGER_32)(~ a__5EFH));
-      ptr_table__GSIH=((__POINTER )(&(table_type[(t__AFFH)])));
-      lab_type__ISIH=(__UINTEGER_32)(t__AFFH |  1);
-      next__FSIH=((__POINTER )(NULL));
-      result__HSIH=((__POINTER *)ptr_table__GSIH)[ 0];
-      if ((result__HSIH == (void *)NULL)) {
-        result__HSIH=new_lab__MRJ(lab_type__ISIH);
-        next__FSIH=(void *)((unsigned long)result__HSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JSIH)));
-        ((__POINTER *)next__FSIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GSIH)[ 0]=next__FSIH;
+      a__CNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__DNFH=(__UINTEGER_32)((__UINTEGER_32)(sz__QOC + a__CNFH) & (__UINTEGER_32)(~ a__CNFH));
+      ptr_table__0ZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DNFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__ZZIH=((__POINTER )(NULL));
+      result__1ZIH=((__POINTER *)ptr_table__0ZIH)[ 0];
+      if ((result__1ZIH == (void *)NULL)) {
+        result__1ZIH=new_lab__MRJ(new_size__DNFH);
+        next__ZZIH=(void *)((unsigned long)result__1ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DNFH)));
+        ((__POINTER *)next__ZZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__0ZIH)[ 0]=next__ZZIH;
       } else {
-        next__FSIH=((__POINTER *)result__HSIH)[ 0];
-        if ((next__FSIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JSIH <<  1)) <=  4096)) {
-            next__FSIH=(void *)((unsigned long)result__HSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JSIH)));
+        next__ZZIH=((__POINTER *)result__1ZIH)[ 0];
+        if ((next__ZZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1ZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DNFH <<  1)) <=  4096)) {
+            next__ZZIH=(void *)((unsigned long)result__1ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DNFH)));
           } else {
-            next__FSIH=new_lab__MRJ(lab_type__ISIH);
+            next__ZZIH=new_lab__MRJ(new_size__DNFH);
           };
-          ((__POINTER *)next__FSIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GSIH)[ 0]=next__FSIH;
+          ((__POINTER *)next__ZZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__0ZIH)[ 0]=next__ZZIH;
         } else {
-          ((__POINTER *)result__HSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__HSIH=next__FSIH;
+          ((__POINTER *)result__1ZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__1ZIH=next__ZZIH;
+        };
+      };
+      ptr__OOC=result__1ZIH;
+    } else {
+      t__HNFH=((__UINTEGER_32 )typ_id__TOC);
+      a__GNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__C0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__QOC + a__GNFH) & (__UINTEGER_32)(~ a__GNFH));
+      ptr_table__5ZIH=((__POINTER )(&(table_type[(t__HNFH)])));
+      lab_type__B0IH=(__UINTEGER_32)(t__HNFH |  1);
+      next__4ZIH=((__POINTER )(NULL));
+      result__A0IH=((__POINTER *)ptr_table__5ZIH)[ 0];
+      if ((result__A0IH == (void *)NULL)) {
+        result__A0IH=new_lab__MRJ(lab_type__B0IH);
+        next__4ZIH=(void *)((unsigned long)result__A0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C0IH)));
+        ((__POINTER *)next__4ZIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__5ZIH)[ 0]=next__4ZIH;
+      } else {
+        next__4ZIH=((__POINTER *)result__A0IH)[ 0];
+        if ((next__4ZIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__C0IH <<  1)) <=  4096)) {
+            next__4ZIH=(void *)((unsigned long)result__A0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C0IH)));
+          } else {
+            next__4ZIH=new_lab__MRJ(lab_type__B0IH);
+          };
+          ((__POINTER *)next__4ZIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__5ZIH)[ 0]=next__4ZIH;
+        } else {
+          ((__POINTER *)result__A0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4ZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__A0IH=next__4ZIH;
         };
       };
-      ptr__OOC=result__HSIH;
+      ptr__OOC=result__A0IH;
     };
     result__NOC=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)ptr__OOC);
     *(result__NOC) = *(HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__);
@@ -3556,14 +3571,14 @@ int main(int argc,char **argv)
   directory_list__YB=NULL;
   file_list__0B=NULL;
   current_list__2B=NULL;
-  LINKED_COLLECTIONoENTRYo__->upper__TI3D= 0;
+  LINKED_COLLECTIONoENTRYo__->upper__VM3D= 0;
   LINKED_LISToENTRYo__->parent_linked_collection__HFRD=(*LINKED_COLLECTIONoENTRYo__);
-  LINKED_LISToENTRYo__->first_link__OWVE=NULL;
-  LINKED_LISToENTRYo__->mem_idx__VWVE= 0;
-  LINKED_LISToENTRYo__->mem_lnk__WWVE=NULL;
-  LINKED_LISToENTRYo__->last_link__XWVE=NULL;
-  LINKED_LIST_NODEoENTRYo__->item__OJWE=NULL;
-  LINKED_LIST_NODEoENTRYo__->next__V0EF=NULL;
+  LINKED_LISToENTRYo__->first_link__C1VE=NULL;
+  LINKED_LISToENTRYo__->mem_idx__J1VE= 0;
+  LINKED_LISToENTRYo__->mem_lnk__K1VE=NULL;
+  LINKED_LISToENTRYo__->last_link__L1VE=NULL;
+  LINKED_LIST_NODEoENTRYo__->item__FOWE=NULL;
+  LINKED_LIST_NODEoENTRYo__->next__05EF=NULL;
   FILE_UNIX__->stream__EJRD=((__POINTER )(NULL));
   proto_input__BI=NULL;
   HASHED_SEToSTRING_CONSTANTo__->buckets__PEV=NULL;
@@ -3591,61 +3606,61 @@ int main(int argc,char **argv)
     typ_id__H0Q=__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__E0Q);
     if ((typ_id__H0Q == (__INTEGER)(-  1))) {
-      a__DFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__E0Q + a__DFFH) & (__UINTEGER_32)(~ a__DFFH));
-      ptr_table__LSIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__KSIH=((__POINTER )(NULL));
-      result__MSIH=((__POINTER *)ptr_table__LSIH)[ 0];
-      if ((result__MSIH == (void *)NULL)) {
-        result__MSIH=new_lab__MRJ(new_size__EFFH);
-        next__KSIH=(void *)((unsigned long)result__MSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EFFH)));
-        ((__POINTER *)next__KSIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LSIH)[ 0]=next__KSIH;
+      a__KNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__LNFH=(__UINTEGER_32)((__UINTEGER_32)(sz__E0Q + a__KNFH) & (__UINTEGER_32)(~ a__KNFH));
+      ptr_table__E0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LNFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__D0IH=((__POINTER )(NULL));
+      result__F0IH=((__POINTER *)ptr_table__E0IH)[ 0];
+      if ((result__F0IH == (void *)NULL)) {
+        result__F0IH=new_lab__MRJ(new_size__LNFH);
+        next__D0IH=(void *)((unsigned long)result__F0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LNFH)));
+        ((__POINTER *)next__D0IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__E0IH)[ 0]=next__D0IH;
       } else {
-        next__KSIH=((__POINTER *)result__MSIH)[ 0];
-        if ((next__KSIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EFFH <<  1)) <=  4096)) {
-            next__KSIH=(void *)((unsigned long)result__MSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EFFH)));
+        next__D0IH=((__POINTER *)result__F0IH)[ 0];
+        if ((next__D0IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LNFH <<  1)) <=  4096)) {
+            next__D0IH=(void *)((unsigned long)result__F0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LNFH)));
           } else {
-            next__KSIH=new_lab__MRJ(new_size__EFFH);
+            next__D0IH=new_lab__MRJ(new_size__LNFH);
           };
-          ((__POINTER *)next__KSIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LSIH)[ 0]=next__KSIH;
+          ((__POINTER *)next__D0IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__E0IH)[ 0]=next__D0IH;
         } else {
-          ((__POINTER *)result__MSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__MSIH=next__KSIH;
+          ((__POINTER *)result__F0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__F0IH=next__D0IH;
         };
       };
-      ptr__C0Q=result__MSIH;
+      ptr__C0Q=result__F0IH;
     } else {
-      t__IFFH=((__UINTEGER_32 )typ_id__H0Q);
-      a__HFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TSIH=(__UINTEGER_32)((__UINTEGER_32)(sz__E0Q + a__HFFH) & (__UINTEGER_32)(~ a__HFFH));
-      ptr_table__QSIH=((__POINTER )(&(table_type[(t__IFFH)])));
-      lab_type__SSIH=(__UINTEGER_32)(t__IFFH |  1);
-      next__PSIH=((__POINTER )(NULL));
-      result__RSIH=((__POINTER *)ptr_table__QSIH)[ 0];
-      if ((result__RSIH == (void *)NULL)) {
-        result__RSIH=new_lab__MRJ(lab_type__SSIH);
-        next__PSIH=(void *)((unsigned long)result__RSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSIH)));
-        ((__POINTER *)next__PSIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QSIH)[ 0]=next__PSIH;
+      t__PNFH=((__UINTEGER_32 )typ_id__H0Q);
+      a__ONFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__M0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__E0Q + a__ONFH) & (__UINTEGER_32)(~ a__ONFH));
+      ptr_table__J0IH=((__POINTER )(&(table_type[(t__PNFH)])));
+      lab_type__L0IH=(__UINTEGER_32)(t__PNFH |  1);
+      next__I0IH=((__POINTER )(NULL));
+      result__K0IH=((__POINTER *)ptr_table__J0IH)[ 0];
+      if ((result__K0IH == (void *)NULL)) {
+        result__K0IH=new_lab__MRJ(lab_type__L0IH);
+        next__I0IH=(void *)((unsigned long)result__K0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M0IH)));
+        ((__POINTER *)next__I0IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__J0IH)[ 0]=next__I0IH;
       } else {
-        next__PSIH=((__POINTER *)result__RSIH)[ 0];
-        if ((next__PSIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TSIH <<  1)) <=  4096)) {
-            next__PSIH=(void *)((unsigned long)result__RSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSIH)));
+        next__I0IH=((__POINTER *)result__K0IH)[ 0];
+        if ((next__I0IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__M0IH <<  1)) <=  4096)) {
+            next__I0IH=(void *)((unsigned long)result__K0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M0IH)));
           } else {
-            next__PSIH=new_lab__MRJ(lab_type__SSIH);
+            next__I0IH=new_lab__MRJ(lab_type__L0IH);
           };
-          ((__POINTER *)next__PSIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QSIH)[ 0]=next__PSIH;
+          ((__POINTER *)next__I0IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__J0IH)[ 0]=next__I0IH;
         } else {
-          ((__POINTER *)result__RSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__RSIH=next__PSIH;
+          ((__POINTER *)result__K0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__K0IH=next__I0IH;
         };
       };
-      ptr__C0Q=result__RSIH;
+      ptr__C0Q=result__K0IH;
     };
     result__B0Q=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__C0Q);
     *(result__B0Q) = *(FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__);
@@ -3671,61 +3686,61 @@ int main(int argc,char **argv)
     typ_id__EER=__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__BER);
     if ((typ_id__EER == (__INTEGER)(-  1))) {
-      a__LFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__MFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__BER + a__LFFH) & (__UINTEGER_32)(~ a__LFFH));
-      ptr_table__VSIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__USIH=((__POINTER )(NULL));
-      result__WSIH=((__POINTER *)ptr_table__VSIH)[ 0];
-      if ((result__WSIH == (void *)NULL)) {
-        result__WSIH=new_lab__MRJ(new_size__MFFH);
-        next__USIH=(void *)((unsigned long)result__WSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MFFH)));
-        ((__POINTER *)next__USIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VSIH)[ 0]=next__USIH;
+      a__SNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TNFH=(__UINTEGER_32)((__UINTEGER_32)(sz__BER + a__SNFH) & (__UINTEGER_32)(~ a__SNFH));
+      ptr_table__O0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TNFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__N0IH=((__POINTER )(NULL));
+      result__P0IH=((__POINTER *)ptr_table__O0IH)[ 0];
+      if ((result__P0IH == (void *)NULL)) {
+        result__P0IH=new_lab__MRJ(new_size__TNFH);
+        next__N0IH=(void *)((unsigned long)result__P0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TNFH)));
+        ((__POINTER *)next__N0IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__O0IH)[ 0]=next__N0IH;
       } else {
-        next__USIH=((__POINTER *)result__WSIH)[ 0];
-        if ((next__USIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MFFH <<  1)) <=  4096)) {
-            next__USIH=(void *)((unsigned long)result__WSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MFFH)));
+        next__N0IH=((__POINTER *)result__P0IH)[ 0];
+        if ((next__N0IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TNFH <<  1)) <=  4096)) {
+            next__N0IH=(void *)((unsigned long)result__P0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TNFH)));
           } else {
-            next__USIH=new_lab__MRJ(new_size__MFFH);
+            next__N0IH=new_lab__MRJ(new_size__TNFH);
           };
-          ((__POINTER *)next__USIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VSIH)[ 0]=next__USIH;
+          ((__POINTER *)next__N0IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__O0IH)[ 0]=next__N0IH;
         } else {
-          ((__POINTER *)result__WSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__USIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WSIH=next__USIH;
+          ((__POINTER *)result__P0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__P0IH=next__N0IH;
         };
       };
-      ptr__5DR=result__WSIH;
+      ptr__5DR=result__P0IH;
     } else {
-      t__QFFH=((__UINTEGER_32 )typ_id__EER);
-      a__PFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__3SIH=(__UINTEGER_32)((__UINTEGER_32)(sz__BER + a__PFFH) & (__UINTEGER_32)(~ a__PFFH));
-      ptr_table__0SIH=((__POINTER )(&(table_type[(t__QFFH)])));
-      lab_type__2SIH=(__UINTEGER_32)(t__QFFH |  1);
-      next__ZSIH=((__POINTER )(NULL));
-      result__1SIH=((__POINTER *)ptr_table__0SIH)[ 0];
-      if ((result__1SIH == (void *)NULL)) {
-        result__1SIH=new_lab__MRJ(lab_type__2SIH);
-        next__ZSIH=(void *)((unsigned long)result__1SIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3SIH)));
-        ((__POINTER *)next__ZSIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0SIH)[ 0]=next__ZSIH;
+      t__XNFH=((__UINTEGER_32 )typ_id__EER);
+      a__WNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__W0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__BER + a__WNFH) & (__UINTEGER_32)(~ a__WNFH));
+      ptr_table__T0IH=((__POINTER )(&(table_type[(t__XNFH)])));
+      lab_type__V0IH=(__UINTEGER_32)(t__XNFH |  1);
+      next__S0IH=((__POINTER )(NULL));
+      result__U0IH=((__POINTER *)ptr_table__T0IH)[ 0];
+      if ((result__U0IH == (void *)NULL)) {
+        result__U0IH=new_lab__MRJ(lab_type__V0IH);
+        next__S0IH=(void *)((unsigned long)result__U0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W0IH)));
+        ((__POINTER *)next__S0IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__T0IH)[ 0]=next__S0IH;
       } else {
-        next__ZSIH=((__POINTER *)result__1SIH)[ 0];
-        if ((next__ZSIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1SIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3SIH <<  1)) <=  4096)) {
-            next__ZSIH=(void *)((unsigned long)result__1SIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3SIH)));
+        next__S0IH=((__POINTER *)result__U0IH)[ 0];
+        if ((next__S0IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__W0IH <<  1)) <=  4096)) {
+            next__S0IH=(void *)((unsigned long)result__U0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W0IH)));
           } else {
-            next__ZSIH=new_lab__MRJ(lab_type__2SIH);
+            next__S0IH=new_lab__MRJ(lab_type__V0IH);
           };
-          ((__POINTER *)next__ZSIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0SIH)[ 0]=next__ZSIH;
+          ((__POINTER *)next__S0IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__T0IH)[ 0]=next__S0IH;
         } else {
-          ((__POINTER *)result__1SIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1SIH=next__ZSIH;
+          ((__POINTER *)result__U0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__U0IH=next__S0IH;
         };
       };
-      ptr__5DR=result__1SIH;
+      ptr__5DR=result__U0IH;
     };
     result__4DR=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)ptr__5DR);
     *(result__4DR) = *(HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__);
@@ -3755,61 +3770,61 @@ int main(int argc,char **argv)
     typ_id__USQ=__FAST_ARRAYoITM_TYPE_MULTIo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__RSQ);
     if ((typ_id__USQ == (__INTEGER)(-  1))) {
-      a__TFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__RSQ + a__TFFH) & (__UINTEGER_32)(~ a__TFFH));
-      ptr_table__5SIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__4SIH=((__POINTER )(NULL));
-      result__ATIH=((__POINTER *)ptr_table__5SIH)[ 0];
-      if ((result__ATIH == (void *)NULL)) {
-        result__ATIH=new_lab__MRJ(new_size__UFFH);
-        next__4SIH=(void *)((unsigned long)result__ATIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UFFH)));
-        ((__POINTER *)next__4SIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__5SIH)[ 0]=next__4SIH;
+      a__0NFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__1NFH=(__UINTEGER_32)((__UINTEGER_32)(sz__RSQ + a__0NFH) & (__UINTEGER_32)(~ a__0NFH));
+      ptr_table__Y0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1NFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__X0IH=((__POINTER )(NULL));
+      result__Z0IH=((__POINTER *)ptr_table__Y0IH)[ 0];
+      if ((result__Z0IH == (void *)NULL)) {
+        result__Z0IH=new_lab__MRJ(new_size__1NFH);
+        next__X0IH=(void *)((unsigned long)result__Z0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1NFH)));
+        ((__POINTER *)next__X0IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Y0IH)[ 0]=next__X0IH;
       } else {
-        next__4SIH=((__POINTER *)result__ATIH)[ 0];
-        if ((next__4SIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ATIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UFFH <<  1)) <=  4096)) {
-            next__4SIH=(void *)((unsigned long)result__ATIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UFFH)));
+        next__X0IH=((__POINTER *)result__Z0IH)[ 0];
+        if ((next__X0IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1NFH <<  1)) <=  4096)) {
+            next__X0IH=(void *)((unsigned long)result__Z0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1NFH)));
           } else {
-            next__4SIH=new_lab__MRJ(new_size__UFFH);
+            next__X0IH=new_lab__MRJ(new_size__1NFH);
           };
-          ((__POINTER *)next__4SIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5SIH)[ 0]=next__4SIH;
+          ((__POINTER *)next__X0IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__Y0IH)[ 0]=next__X0IH;
         } else {
-          ((__POINTER *)result__ATIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4SIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ATIH=next__4SIH;
+          ((__POINTER *)result__Z0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__Z0IH=next__X0IH;
         };
       };
-      ptr__PSQ=result__ATIH;
+      ptr__PSQ=result__Z0IH;
     } else {
-      t__YFFH=((__UINTEGER_32 )typ_id__USQ);
-      a__XFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__RSQ + a__XFFH) & (__UINTEGER_32)(~ a__XFFH));
-      ptr_table__ETIH=((__POINTER )(&(table_type[(t__YFFH)])));
-      lab_type__GTIH=(__UINTEGER_32)(t__YFFH |  1);
-      next__DTIH=((__POINTER )(NULL));
-      result__FTIH=((__POINTER *)ptr_table__ETIH)[ 0];
-      if ((result__FTIH == (void *)NULL)) {
-        result__FTIH=new_lab__MRJ(lab_type__GTIH);
-        next__DTIH=(void *)((unsigned long)result__FTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTIH)));
-        ((__POINTER *)next__DTIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ETIH)[ 0]=next__DTIH;
+      t__5NFH=((__UINTEGER_32 )typ_id__USQ);
+      a__4NFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__A1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__RSQ + a__4NFH) & (__UINTEGER_32)(~ a__4NFH));
+      ptr_table__30IH=((__POINTER )(&(table_type[(t__5NFH)])));
+      lab_type__50IH=(__UINTEGER_32)(t__5NFH |  1);
+      next__20IH=((__POINTER )(NULL));
+      result__40IH=((__POINTER *)ptr_table__30IH)[ 0];
+      if ((result__40IH == (void *)NULL)) {
+        result__40IH=new_lab__MRJ(lab_type__50IH);
+        next__20IH=(void *)((unsigned long)result__40IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A1IH)));
+        ((__POINTER *)next__20IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__30IH)[ 0]=next__20IH;
       } else {
-        next__DTIH=((__POINTER *)result__FTIH)[ 0];
-        if ((next__DTIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HTIH <<  1)) <=  4096)) {
-            next__DTIH=(void *)((unsigned long)result__FTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTIH)));
+        next__20IH=((__POINTER *)result__40IH)[ 0];
+        if ((next__20IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__40IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__A1IH <<  1)) <=  4096)) {
+            next__20IH=(void *)((unsigned long)result__40IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A1IH)));
           } else {
-            next__DTIH=new_lab__MRJ(lab_type__GTIH);
+            next__20IH=new_lab__MRJ(lab_type__50IH);
           };
-          ((__POINTER *)next__DTIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ETIH)[ 0]=next__DTIH;
+          ((__POINTER *)next__20IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__30IH)[ 0]=next__20IH;
         } else {
-          ((__POINTER *)result__FTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__FTIH=next__DTIH;
+          ((__POINTER *)result__40IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__20IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__40IH=next__20IH;
         };
       };
-      ptr__PSQ=result__FTIH;
+      ptr__PSQ=result__40IH;
     };
     result__OSQ=((__FAST_ARRAYoITM_TYPE_MULTIo *)ptr__PSQ);
     *(result__OSQ) = *(FAST_ARRAYoITM_TYPE_MULTIo__);
@@ -3839,61 +3854,61 @@ int main(int argc,char **argv)
     typ_id__00O=__FAST_ARRAYoITM_TYPE_BLOCKo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__X0O);
     if ((typ_id__00O == (__INTEGER)(-  1))) {
-      a__1FFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2FFH=(__UINTEGER_32)((__UINTEGER_32)(sz__X0O + a__1FFH) & (__UINTEGER_32)(~ a__1FFH));
-      ptr_table__JTIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2FFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ITIH=((__POINTER )(NULL));
-      result__KTIH=((__POINTER *)ptr_table__JTIH)[ 0];
-      if ((result__KTIH == (void *)NULL)) {
-        result__KTIH=new_lab__MRJ(new_size__2FFH);
-        next__ITIH=(void *)((unsigned long)result__KTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2FFH)));
-        ((__POINTER *)next__ITIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__JTIH)[ 0]=next__ITIH;
-      } else {
-        next__ITIH=((__POINTER *)result__KTIH)[ 0];
-        if ((next__ITIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2FFH <<  1)) <=  4096)) {
-            next__ITIH=(void *)((unsigned long)result__KTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2FFH)));
-          } else {
-            next__ITIH=new_lab__MRJ(new_size__2FFH);
+      a__COFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__DOFH=(__UINTEGER_32)((__UINTEGER_32)(sz__X0O + a__COFH) & (__UINTEGER_32)(~ a__COFH));
+      ptr_table__C1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DOFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__B1IH=((__POINTER )(NULL));
+      result__D1IH=((__POINTER *)ptr_table__C1IH)[ 0];
+      if ((result__D1IH == (void *)NULL)) {
+        result__D1IH=new_lab__MRJ(new_size__DOFH);
+        next__B1IH=(void *)((unsigned long)result__D1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DOFH)));
+        ((__POINTER *)next__B1IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__C1IH)[ 0]=next__B1IH;
+      } else {
+        next__B1IH=((__POINTER *)result__D1IH)[ 0];
+        if ((next__B1IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DOFH <<  1)) <=  4096)) {
+            next__B1IH=(void *)((unsigned long)result__D1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DOFH)));
+          } else {
+            next__B1IH=new_lab__MRJ(new_size__DOFH);
           };
-          ((__POINTER *)next__ITIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__JTIH)[ 0]=next__ITIH;
+          ((__POINTER *)next__B1IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__C1IH)[ 0]=next__B1IH;
         } else {
-          ((__POINTER *)result__KTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ITIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__KTIH=next__ITIH;
+          ((__POINTER *)result__D1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__D1IH=next__B1IH;
         };
       };
-      ptr__V0O=result__KTIH;
+      ptr__V0O=result__D1IH;
     } else {
-      t__AGFH=((__UINTEGER_32 )typ_id__00O);
-      a__5FFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__RTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__X0O + a__5FFH) & (__UINTEGER_32)(~ a__5FFH));
-      ptr_table__OTIH=((__POINTER )(&(table_type[(t__AGFH)])));
-      lab_type__QTIH=(__UINTEGER_32)(t__AGFH |  1);
-      next__NTIH=((__POINTER )(NULL));
-      result__PTIH=((__POINTER *)ptr_table__OTIH)[ 0];
-      if ((result__PTIH == (void *)NULL)) {
-        result__PTIH=new_lab__MRJ(lab_type__QTIH);
-        next__NTIH=(void *)((unsigned long)result__PTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RTIH)));
-        ((__POINTER *)next__NTIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__OTIH)[ 0]=next__NTIH;
+      t__HOFH=((__UINTEGER_32 )typ_id__00O);
+      a__GOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__K1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__X0O + a__GOFH) & (__UINTEGER_32)(~ a__GOFH));
+      ptr_table__H1IH=((__POINTER )(&(table_type[(t__HOFH)])));
+      lab_type__J1IH=(__UINTEGER_32)(t__HOFH |  1);
+      next__G1IH=((__POINTER )(NULL));
+      result__I1IH=((__POINTER *)ptr_table__H1IH)[ 0];
+      if ((result__I1IH == (void *)NULL)) {
+        result__I1IH=new_lab__MRJ(lab_type__J1IH);
+        next__G1IH=(void *)((unsigned long)result__I1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K1IH)));
+        ((__POINTER *)next__G1IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__H1IH)[ 0]=next__G1IH;
       } else {
-        next__NTIH=((__POINTER *)result__PTIH)[ 0];
-        if ((next__NTIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RTIH <<  1)) <=  4096)) {
-            next__NTIH=(void *)((unsigned long)result__PTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RTIH)));
+        next__G1IH=((__POINTER *)result__I1IH)[ 0];
+        if ((next__G1IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__K1IH <<  1)) <=  4096)) {
+            next__G1IH=(void *)((unsigned long)result__I1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K1IH)));
           } else {
-            next__NTIH=new_lab__MRJ(lab_type__QTIH);
+            next__G1IH=new_lab__MRJ(lab_type__J1IH);
           };
-          ((__POINTER *)next__NTIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__OTIH)[ 0]=next__NTIH;
+          ((__POINTER *)next__G1IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__H1IH)[ 0]=next__G1IH;
         } else {
-          ((__POINTER *)result__PTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__PTIH=next__NTIH;
+          ((__POINTER *)result__I1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__I1IH=next__G1IH;
         };
       };
-      ptr__V0O=result__PTIH;
+      ptr__V0O=result__I1IH;
     };
     result__U0O=((__FAST_ARRAYoITM_TYPE_BLOCKo *)ptr__V0O);
     *(result__U0O) = *(FAST_ARRAYoITM_TYPE_BLOCKo__);
@@ -3925,61 +3940,61 @@ int main(int argc,char **argv)
     typ_id__B3Q=__FAST_ARRAYoITM_TYPE_GENERICo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__42Q);
     if ((typ_id__B3Q == (__INTEGER)(-  1))) {
-      a__DGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EGFH=(__UINTEGER_32)((__UINTEGER_32)(sz__42Q + a__DGFH) & (__UINTEGER_32)(~ a__DGFH));
-      ptr_table__TTIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EGFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__STIH=((__POINTER )(NULL));
-      result__UTIH=((__POINTER *)ptr_table__TTIH)[ 0];
-      if ((result__UTIH == (void *)NULL)) {
-        result__UTIH=new_lab__MRJ(new_size__EGFH);
-        next__STIH=(void *)((unsigned long)result__UTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EGFH)));
-        ((__POINTER *)next__STIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__TTIH)[ 0]=next__STIH;
+      a__KOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__LOFH=(__UINTEGER_32)((__UINTEGER_32)(sz__42Q + a__KOFH) & (__UINTEGER_32)(~ a__KOFH));
+      ptr_table__M1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LOFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__L1IH=((__POINTER )(NULL));
+      result__N1IH=((__POINTER *)ptr_table__M1IH)[ 0];
+      if ((result__N1IH == (void *)NULL)) {
+        result__N1IH=new_lab__MRJ(new_size__LOFH);
+        next__L1IH=(void *)((unsigned long)result__N1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOFH)));
+        ((__POINTER *)next__L1IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__M1IH)[ 0]=next__L1IH;
       } else {
-        next__STIH=((__POINTER *)result__UTIH)[ 0];
-        if ((next__STIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EGFH <<  1)) <=  4096)) {
-            next__STIH=(void *)((unsigned long)result__UTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EGFH)));
+        next__L1IH=((__POINTER *)result__N1IH)[ 0];
+        if ((next__L1IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LOFH <<  1)) <=  4096)) {
+            next__L1IH=(void *)((unsigned long)result__N1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOFH)));
           } else {
-            next__STIH=new_lab__MRJ(new_size__EGFH);
+            next__L1IH=new_lab__MRJ(new_size__LOFH);
           };
-          ((__POINTER *)next__STIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__TTIH)[ 0]=next__STIH;
+          ((__POINTER *)next__L1IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__M1IH)[ 0]=next__L1IH;
         } else {
-          ((__POINTER *)result__UTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__STIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__UTIH=next__STIH;
+          ((__POINTER *)result__N1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__N1IH=next__L1IH;
         };
       };
-      ptr__22Q=result__UTIH;
+      ptr__22Q=result__N1IH;
     } else {
-      t__IGFH=((__UINTEGER_32 )typ_id__B3Q);
-      a__HGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__1TIH=(__UINTEGER_32)((__UINTEGER_32)(sz__42Q + a__HGFH) & (__UINTEGER_32)(~ a__HGFH));
-      ptr_table__YTIH=((__POINTER )(&(table_type[(t__IGFH)])));
-      lab_type__0TIH=(__UINTEGER_32)(t__IGFH |  1);
-      next__XTIH=((__POINTER )(NULL));
-      result__ZTIH=((__POINTER *)ptr_table__YTIH)[ 0];
-      if ((result__ZTIH == (void *)NULL)) {
-        result__ZTIH=new_lab__MRJ(lab_type__0TIH);
-        next__XTIH=(void *)((unsigned long)result__ZTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1TIH)));
-        ((__POINTER *)next__XTIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__YTIH)[ 0]=next__XTIH;
+      t__POFH=((__UINTEGER_32 )typ_id__B3Q);
+      a__OOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__U1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__42Q + a__OOFH) & (__UINTEGER_32)(~ a__OOFH));
+      ptr_table__R1IH=((__POINTER )(&(table_type[(t__POFH)])));
+      lab_type__T1IH=(__UINTEGER_32)(t__POFH |  1);
+      next__Q1IH=((__POINTER )(NULL));
+      result__S1IH=((__POINTER *)ptr_table__R1IH)[ 0];
+      if ((result__S1IH == (void *)NULL)) {
+        result__S1IH=new_lab__MRJ(lab_type__T1IH);
+        next__Q1IH=(void *)((unsigned long)result__S1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U1IH)));
+        ((__POINTER *)next__Q1IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__R1IH)[ 0]=next__Q1IH;
       } else {
-        next__XTIH=((__POINTER *)result__ZTIH)[ 0];
-        if ((next__XTIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1TIH <<  1)) <=  4096)) {
-            next__XTIH=(void *)((unsigned long)result__ZTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1TIH)));
+        next__Q1IH=((__POINTER *)result__S1IH)[ 0];
+        if ((next__Q1IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__U1IH <<  1)) <=  4096)) {
+            next__Q1IH=(void *)((unsigned long)result__S1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U1IH)));
           } else {
-            next__XTIH=new_lab__MRJ(lab_type__0TIH);
+            next__Q1IH=new_lab__MRJ(lab_type__T1IH);
           };
-          ((__POINTER *)next__XTIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__YTIH)[ 0]=next__XTIH;
+          ((__POINTER *)next__Q1IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__R1IH)[ 0]=next__Q1IH;
         } else {
-          ((__POINTER *)result__ZTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ZTIH=next__XTIH;
+          ((__POINTER *)result__S1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__S1IH=next__Q1IH;
         };
       };
-      ptr__22Q=result__ZTIH;
+      ptr__22Q=result__S1IH;
     };
     result__12Q=((__FAST_ARRAYoITM_TYPE_GENERICo *)ptr__22Q);
     *(result__12Q) = *(FAST_ARRAYoITM_TYPE_GENERICo__);
@@ -4004,61 +4019,61 @@ int main(int argc,char **argv)
     typ_id__PLK=__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__MLK);
     if ((typ_id__PLK == (__INTEGER)(-  1))) {
-      a__LGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__MGFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLK + a__LGFH) & (__UINTEGER_32)(~ a__LGFH));
-      ptr_table__3TIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MGFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__2TIH=((__POINTER )(NULL));
-      result__4TIH=((__POINTER *)ptr_table__3TIH)[ 0];
-      if ((result__4TIH == (void *)NULL)) {
-        result__4TIH=new_lab__MRJ(new_size__MGFH);
-        next__2TIH=(void *)((unsigned long)result__4TIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MGFH)));
-        ((__POINTER *)next__2TIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__3TIH)[ 0]=next__2TIH;
+      a__SOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TOFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLK + a__SOFH) & (__UINTEGER_32)(~ a__SOFH));
+      ptr_table__W1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TOFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__V1IH=((__POINTER )(NULL));
+      result__X1IH=((__POINTER *)ptr_table__W1IH)[ 0];
+      if ((result__X1IH == (void *)NULL)) {
+        result__X1IH=new_lab__MRJ(new_size__TOFH);
+        next__V1IH=(void *)((unsigned long)result__X1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TOFH)));
+        ((__POINTER *)next__V1IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__W1IH)[ 0]=next__V1IH;
       } else {
-        next__2TIH=((__POINTER *)result__4TIH)[ 0];
-        if ((next__2TIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4TIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MGFH <<  1)) <=  4096)) {
-            next__2TIH=(void *)((unsigned long)result__4TIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MGFH)));
+        next__V1IH=((__POINTER *)result__X1IH)[ 0];
+        if ((next__V1IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TOFH <<  1)) <=  4096)) {
+            next__V1IH=(void *)((unsigned long)result__X1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TOFH)));
           } else {
-            next__2TIH=new_lab__MRJ(new_size__MGFH);
+            next__V1IH=new_lab__MRJ(new_size__TOFH);
           };
-          ((__POINTER *)next__2TIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3TIH)[ 0]=next__2TIH;
+          ((__POINTER *)next__V1IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__W1IH)[ 0]=next__V1IH;
         } else {
-          ((__POINTER *)result__4TIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2TIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__4TIH=next__2TIH;
+          ((__POINTER *)result__X1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__X1IH=next__V1IH;
         };
       };
-      ptr__KLK=result__4TIH;
+      ptr__KLK=result__X1IH;
     } else {
-      t__QGFH=((__UINTEGER_32 )typ_id__PLK);
-      a__PGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__FUIH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLK + a__PGFH) & (__UINTEGER_32)(~ a__PGFH));
-      ptr_table__CUIH=((__POINTER )(&(table_type[(t__QGFH)])));
-      lab_type__EUIH=(__UINTEGER_32)(t__QGFH |  1);
-      next__BUIH=((__POINTER )(NULL));
-      result__DUIH=((__POINTER *)ptr_table__CUIH)[ 0];
-      if ((result__DUIH == (void *)NULL)) {
-        result__DUIH=new_lab__MRJ(lab_type__EUIH);
-        next__BUIH=(void *)((unsigned long)result__DUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FUIH)));
-        ((__POINTER *)next__BUIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__CUIH)[ 0]=next__BUIH;
+      t__XOFH=((__UINTEGER_32 )typ_id__PLK);
+      a__WOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__41IH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLK + a__WOFH) & (__UINTEGER_32)(~ a__WOFH));
+      ptr_table__11IH=((__POINTER )(&(table_type[(t__XOFH)])));
+      lab_type__31IH=(__UINTEGER_32)(t__XOFH |  1);
+      next__01IH=((__POINTER )(NULL));
+      result__21IH=((__POINTER *)ptr_table__11IH)[ 0];
+      if ((result__21IH == (void *)NULL)) {
+        result__21IH=new_lab__MRJ(lab_type__31IH);
+        next__01IH=(void *)((unsigned long)result__21IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__41IH)));
+        ((__POINTER *)next__01IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__11IH)[ 0]=next__01IH;
       } else {
-        next__BUIH=((__POINTER *)result__DUIH)[ 0];
-        if ((next__BUIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FUIH <<  1)) <=  4096)) {
-            next__BUIH=(void *)((unsigned long)result__DUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FUIH)));
+        next__01IH=((__POINTER *)result__21IH)[ 0];
+        if ((next__01IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__21IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__41IH <<  1)) <=  4096)) {
+            next__01IH=(void *)((unsigned long)result__21IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__41IH)));
           } else {
-            next__BUIH=new_lab__MRJ(lab_type__EUIH);
+            next__01IH=new_lab__MRJ(lab_type__31IH);
           };
-          ((__POINTER *)next__BUIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CUIH)[ 0]=next__BUIH;
+          ((__POINTER *)next__01IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__11IH)[ 0]=next__01IH;
         } else {
-          ((__POINTER *)result__DUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__DUIH=next__BUIH;
+          ((__POINTER *)result__21IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__01IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__21IH=next__01IH;
         };
       };
-      ptr__KLK=result__DUIH;
+      ptr__KLK=result__21IH;
     };
     result__JLK=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__KLK);
     *(result__JLK) = *(HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
@@ -4082,61 +4097,61 @@ int main(int argc,char **argv)
     typ_id__RWQ=-1;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OWQ);
     if ((typ_id__RWQ == (__INTEGER)(-  1))) {
-      a__BMDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__CMDH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWQ + a__BMDH) & (__UINTEGER_32)(~ a__BMDH));
-      ptr_table__HUIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CMDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__GUIH=((__POINTER )(NULL));
-      result__IUIH=((__POINTER *)ptr_table__HUIH)[ 0];
-      if ((result__IUIH == (void *)NULL)) {
-        result__IUIH=new_lab__MRJ(new_size__CMDH);
-        next__GUIH=(void *)((unsigned long)result__IUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CMDH)));
-        ((__POINTER *)next__GUIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__HUIH)[ 0]=next__GUIH;
+      a__FVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__GVDH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWQ + a__FVDH) & (__UINTEGER_32)(~ a__FVDH));
+      ptr_table__A2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GVDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__51IH=((__POINTER )(NULL));
+      result__B2IH=((__POINTER *)ptr_table__A2IH)[ 0];
+      if ((result__B2IH == (void *)NULL)) {
+        result__B2IH=new_lab__MRJ(new_size__GVDH);
+        next__51IH=(void *)((unsigned long)result__B2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GVDH)));
+        ((__POINTER *)next__51IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__A2IH)[ 0]=next__51IH;
       } else {
-        next__GUIH=((__POINTER *)result__IUIH)[ 0];
-        if ((next__GUIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CMDH <<  1)) <=  4096)) {
-            next__GUIH=(void *)((unsigned long)result__IUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CMDH)));
+        next__51IH=((__POINTER *)result__B2IH)[ 0];
+        if ((next__51IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GVDH <<  1)) <=  4096)) {
+            next__51IH=(void *)((unsigned long)result__B2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GVDH)));
           } else {
-            next__GUIH=new_lab__MRJ(new_size__CMDH);
+            next__51IH=new_lab__MRJ(new_size__GVDH);
           };
-          ((__POINTER *)next__GUIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HUIH)[ 0]=next__GUIH;
+          ((__POINTER *)next__51IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__A2IH)[ 0]=next__51IH;
         } else {
-          ((__POINTER *)result__IUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__IUIH=next__GUIH;
+          ((__POINTER *)result__B2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__51IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__B2IH=next__51IH;
         };
       };
-      ptr__MWQ=result__IUIH;
+      ptr__MWQ=result__B2IH;
     } else {
-      t__GMDH=((__UINTEGER_32 )typ_id__RWQ);
-      a__FMDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PUIH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWQ + a__FMDH) & (__UINTEGER_32)(~ a__FMDH));
-      ptr_table__MUIH=((__POINTER )(&(table_type[(t__GMDH)])));
-      lab_type__OUIH=(__UINTEGER_32)(t__GMDH |  1);
-      next__LUIH=((__POINTER )(NULL));
-      result__NUIH=((__POINTER *)ptr_table__MUIH)[ 0];
-      if ((result__NUIH == (void *)NULL)) {
-        result__NUIH=new_lab__MRJ(lab_type__OUIH);
-        next__LUIH=(void *)((unsigned long)result__NUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PUIH)));
-        ((__POINTER *)next__LUIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MUIH)[ 0]=next__LUIH;
+      t__KVDH=((__UINTEGER_32 )typ_id__RWQ);
+      a__JVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__I2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWQ + a__JVDH) & (__UINTEGER_32)(~ a__JVDH));
+      ptr_table__F2IH=((__POINTER )(&(table_type[(t__KVDH)])));
+      lab_type__H2IH=(__UINTEGER_32)(t__KVDH |  1);
+      next__E2IH=((__POINTER )(NULL));
+      result__G2IH=((__POINTER *)ptr_table__F2IH)[ 0];
+      if ((result__G2IH == (void *)NULL)) {
+        result__G2IH=new_lab__MRJ(lab_type__H2IH);
+        next__E2IH=(void *)((unsigned long)result__G2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I2IH)));
+        ((__POINTER *)next__E2IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__F2IH)[ 0]=next__E2IH;
       } else {
-        next__LUIH=((__POINTER *)result__NUIH)[ 0];
-        if ((next__LUIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PUIH <<  1)) <=  4096)) {
-            next__LUIH=(void *)((unsigned long)result__NUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PUIH)));
+        next__E2IH=((__POINTER *)result__G2IH)[ 0];
+        if ((next__E2IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__I2IH <<  1)) <=  4096)) {
+            next__E2IH=(void *)((unsigned long)result__G2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I2IH)));
           } else {
-            next__LUIH=new_lab__MRJ(lab_type__OUIH);
+            next__E2IH=new_lab__MRJ(lab_type__H2IH);
           };
-          ((__POINTER *)next__LUIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MUIH)[ 0]=next__LUIH;
+          ((__POINTER *)next__E2IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__F2IH)[ 0]=next__E2IH;
         } else {
-          ((__POINTER *)result__NUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__NUIH=next__LUIH;
+          ((__POINTER *)result__G2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__G2IH=next__E2IH;
         };
       };
-      ptr__MWQ=result__NUIH;
+      ptr__MWQ=result__G2IH;
     };
     result__LWQ=((__ITM_TYPE_PARAMETER *)ptr__MWQ);
     *(result__LWQ) = *(ITM_TYPE_PARAMETER__);
@@ -4159,61 +4174,61 @@ int main(int argc,char **argv)
     typ_id__NVR=__FAST_ARRAYoITM_TYPE_STYLEo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__KVR);
     if ((typ_id__NVR == (__INTEGER)(-  1))) {
-      a__TGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UGFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KVR + a__TGFH) & (__UINTEGER_32)(~ a__TGFH));
-      ptr_table__RUIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UGFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__QUIH=((__POINTER )(NULL));
-      result__SUIH=((__POINTER *)ptr_table__RUIH)[ 0];
-      if ((result__SUIH == (void *)NULL)) {
-        result__SUIH=new_lab__MRJ(new_size__UGFH);
-        next__QUIH=(void *)((unsigned long)result__SUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UGFH)));
-        ((__POINTER *)next__QUIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RUIH)[ 0]=next__QUIH;
+      a__0OFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__1OFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KVR + a__0OFH) & (__UINTEGER_32)(~ a__0OFH));
+      ptr_table__K2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1OFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__J2IH=((__POINTER )(NULL));
+      result__L2IH=((__POINTER *)ptr_table__K2IH)[ 0];
+      if ((result__L2IH == (void *)NULL)) {
+        result__L2IH=new_lab__MRJ(new_size__1OFH);
+        next__J2IH=(void *)((unsigned long)result__L2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1OFH)));
+        ((__POINTER *)next__J2IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__K2IH)[ 0]=next__J2IH;
       } else {
-        next__QUIH=((__POINTER *)result__SUIH)[ 0];
-        if ((next__QUIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UGFH <<  1)) <=  4096)) {
-            next__QUIH=(void *)((unsigned long)result__SUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UGFH)));
+        next__J2IH=((__POINTER *)result__L2IH)[ 0];
+        if ((next__J2IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1OFH <<  1)) <=  4096)) {
+            next__J2IH=(void *)((unsigned long)result__L2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1OFH)));
           } else {
-            next__QUIH=new_lab__MRJ(new_size__UGFH);
+            next__J2IH=new_lab__MRJ(new_size__1OFH);
           };
-          ((__POINTER *)next__QUIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RUIH)[ 0]=next__QUIH;
+          ((__POINTER *)next__J2IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__K2IH)[ 0]=next__J2IH;
         } else {
-          ((__POINTER *)result__SUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__SUIH=next__QUIH;
+          ((__POINTER *)result__L2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__L2IH=next__J2IH;
         };
       };
-      ptr__IVR=result__SUIH;
+      ptr__IVR=result__L2IH;
     } else {
-      t__YGFH=((__UINTEGER_32 )typ_id__NVR);
-      a__XGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ZUIH=(__UINTEGER_32)((__UINTEGER_32)(sz__KVR + a__XGFH) & (__UINTEGER_32)(~ a__XGFH));
-      ptr_table__WUIH=((__POINTER )(&(table_type[(t__YGFH)])));
-      lab_type__YUIH=(__UINTEGER_32)(t__YGFH |  1);
-      next__VUIH=((__POINTER )(NULL));
-      result__XUIH=((__POINTER *)ptr_table__WUIH)[ 0];
-      if ((result__XUIH == (void *)NULL)) {
-        result__XUIH=new_lab__MRJ(lab_type__YUIH);
-        next__VUIH=(void *)((unsigned long)result__XUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZUIH)));
-        ((__POINTER *)next__VUIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__WUIH)[ 0]=next__VUIH;
+      t__5OFH=((__UINTEGER_32 )typ_id__NVR);
+      a__4OFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__S2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__KVR + a__4OFH) & (__UINTEGER_32)(~ a__4OFH));
+      ptr_table__P2IH=((__POINTER )(&(table_type[(t__5OFH)])));
+      lab_type__R2IH=(__UINTEGER_32)(t__5OFH |  1);
+      next__O2IH=((__POINTER )(NULL));
+      result__Q2IH=((__POINTER *)ptr_table__P2IH)[ 0];
+      if ((result__Q2IH == (void *)NULL)) {
+        result__Q2IH=new_lab__MRJ(lab_type__R2IH);
+        next__O2IH=(void *)((unsigned long)result__Q2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S2IH)));
+        ((__POINTER *)next__O2IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__P2IH)[ 0]=next__O2IH;
       } else {
-        next__VUIH=((__POINTER *)result__XUIH)[ 0];
-        if ((next__VUIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZUIH <<  1)) <=  4096)) {
-            next__VUIH=(void *)((unsigned long)result__XUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZUIH)));
+        next__O2IH=((__POINTER *)result__Q2IH)[ 0];
+        if ((next__O2IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__S2IH <<  1)) <=  4096)) {
+            next__O2IH=(void *)((unsigned long)result__Q2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S2IH)));
           } else {
-            next__VUIH=new_lab__MRJ(lab_type__YUIH);
+            next__O2IH=new_lab__MRJ(lab_type__R2IH);
           };
-          ((__POINTER *)next__VUIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WUIH)[ 0]=next__VUIH;
+          ((__POINTER *)next__O2IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__P2IH)[ 0]=next__O2IH;
         } else {
-          ((__POINTER *)result__XUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__XUIH=next__VUIH;
+          ((__POINTER *)result__Q2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__Q2IH=next__O2IH;
         };
       };
-      ptr__IVR=result__XUIH;
+      ptr__IVR=result__Q2IH;
     };
     result__HVR=((__FAST_ARRAYoITM_TYPE_STYLEo *)ptr__IVR);
     *(result__HVR) = *(FAST_ARRAYoITM_TYPE_STYLEo__);
@@ -4251,61 +4266,61 @@ int main(int argc,char **argv)
     typ_id__MIK=__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__JIK);
     if ((typ_id__MIK == (__INTEGER)(-  1))) {
-      a__1GFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2GFH=(__UINTEGER_32)((__UINTEGER_32)(sz__JIK + a__1GFH) & (__UINTEGER_32)(~ a__1GFH));
-      ptr_table__1UIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2GFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__0UIH=((__POINTER )(NULL));
-      result__2UIH=((__POINTER *)ptr_table__1UIH)[ 0];
-      if ((result__2UIH == (void *)NULL)) {
-        result__2UIH=new_lab__MRJ(new_size__2GFH);
-        next__0UIH=(void *)((unsigned long)result__2UIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2GFH)));
-        ((__POINTER *)next__0UIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1UIH)[ 0]=next__0UIH;
+      a__CPFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__DPFH=(__UINTEGER_32)((__UINTEGER_32)(sz__JIK + a__CPFH) & (__UINTEGER_32)(~ a__CPFH));
+      ptr_table__U2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DPFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__T2IH=((__POINTER )(NULL));
+      result__V2IH=((__POINTER *)ptr_table__U2IH)[ 0];
+      if ((result__V2IH == (void *)NULL)) {
+        result__V2IH=new_lab__MRJ(new_size__DPFH);
+        next__T2IH=(void *)((unsigned long)result__V2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DPFH)));
+        ((__POINTER *)next__T2IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__U2IH)[ 0]=next__T2IH;
       } else {
-        next__0UIH=((__POINTER *)result__2UIH)[ 0];
-        if ((next__0UIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2UIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2GFH <<  1)) <=  4096)) {
-            next__0UIH=(void *)((unsigned long)result__2UIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2GFH)));
+        next__T2IH=((__POINTER *)result__V2IH)[ 0];
+        if ((next__T2IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DPFH <<  1)) <=  4096)) {
+            next__T2IH=(void *)((unsigned long)result__V2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DPFH)));
           } else {
-            next__0UIH=new_lab__MRJ(new_size__2GFH);
+            next__T2IH=new_lab__MRJ(new_size__DPFH);
           };
-          ((__POINTER *)next__0UIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1UIH)[ 0]=next__0UIH;
+          ((__POINTER *)next__T2IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__U2IH)[ 0]=next__T2IH;
         } else {
-          ((__POINTER *)result__2UIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0UIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__2UIH=next__0UIH;
+          ((__POINTER *)result__V2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__V2IH=next__T2IH;
         };
       };
-      ptr__HIK=result__2UIH;
+      ptr__HIK=result__V2IH;
     } else {
-      t__AHFH=((__UINTEGER_32 )typ_id__MIK);
-      a__5GFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__DVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__JIK + a__5GFH) & (__UINTEGER_32)(~ a__5GFH));
-      ptr_table__AVIH=((__POINTER )(&(table_type[(t__AHFH)])));
-      lab_type__CVIH=(__UINTEGER_32)(t__AHFH |  1);
-      next__5UIH=((__POINTER )(NULL));
-      result__BVIH=((__POINTER *)ptr_table__AVIH)[ 0];
-      if ((result__BVIH == (void *)NULL)) {
-        result__BVIH=new_lab__MRJ(lab_type__CVIH);
-        next__5UIH=(void *)((unsigned long)result__BVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DVIH)));
-        ((__POINTER *)next__5UIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__AVIH)[ 0]=next__5UIH;
+      t__HPFH=((__UINTEGER_32 )typ_id__MIK);
+      a__GPFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__22IH=(__UINTEGER_32)((__UINTEGER_32)(sz__JIK + a__GPFH) & (__UINTEGER_32)(~ a__GPFH));
+      ptr_table__Z2IH=((__POINTER )(&(table_type[(t__HPFH)])));
+      lab_type__12IH=(__UINTEGER_32)(t__HPFH |  1);
+      next__Y2IH=((__POINTER )(NULL));
+      result__02IH=((__POINTER *)ptr_table__Z2IH)[ 0];
+      if ((result__02IH == (void *)NULL)) {
+        result__02IH=new_lab__MRJ(lab_type__12IH);
+        next__Y2IH=(void *)((unsigned long)result__02IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__22IH)));
+        ((__POINTER *)next__Y2IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Z2IH)[ 0]=next__Y2IH;
       } else {
-        next__5UIH=((__POINTER *)result__BVIH)[ 0];
-        if ((next__5UIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DVIH <<  1)) <=  4096)) {
-            next__5UIH=(void *)((unsigned long)result__BVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DVIH)));
+        next__Y2IH=((__POINTER *)result__02IH)[ 0];
+        if ((next__Y2IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__02IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__22IH <<  1)) <=  4096)) {
+            next__Y2IH=(void *)((unsigned long)result__02IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__22IH)));
           } else {
-            next__5UIH=new_lab__MRJ(lab_type__CVIH);
+            next__Y2IH=new_lab__MRJ(lab_type__12IH);
           };
-          ((__POINTER *)next__5UIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AVIH)[ 0]=next__5UIH;
+          ((__POINTER *)next__Y2IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__Z2IH)[ 0]=next__Y2IH;
         } else {
-          ((__POINTER *)result__BVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5UIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__BVIH=next__5UIH;
+          ((__POINTER *)result__02IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__02IH=next__Y2IH;
         };
       };
-      ptr__HIK=result__BVIH;
+      ptr__HIK=result__02IH;
     };
     result__GIK=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)ptr__HIK);
     *(result__GIK) = *(FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__);
@@ -4339,61 +4354,61 @@ int main(int argc,char **argv)
     typ_id__V4J=__FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__S4J);
     if ((typ_id__V4J == (__INTEGER)(-  1))) {
-      a__DHFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EHFH=(__UINTEGER_32)((__UINTEGER_32)(sz__S4J + a__DHFH) & (__UINTEGER_32)(~ a__DHFH));
-      ptr_table__FVIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EHFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__EVIH=((__POINTER )(NULL));
-      result__GVIH=((__POINTER *)ptr_table__FVIH)[ 0];
-      if ((result__GVIH == (void *)NULL)) {
-        result__GVIH=new_lab__MRJ(new_size__EHFH);
-        next__EVIH=(void *)((unsigned long)result__GVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EHFH)));
-        ((__POINTER *)next__EVIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FVIH)[ 0]=next__EVIH;
+      a__KPFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__LPFH=(__UINTEGER_32)((__UINTEGER_32)(sz__S4J + a__KPFH) & (__UINTEGER_32)(~ a__KPFH));
+      ptr_table__42IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LPFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__32IH=((__POINTER )(NULL));
+      result__52IH=((__POINTER *)ptr_table__42IH)[ 0];
+      if ((result__52IH == (void *)NULL)) {
+        result__52IH=new_lab__MRJ(new_size__LPFH);
+        next__32IH=(void *)((unsigned long)result__52IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LPFH)));
+        ((__POINTER *)next__32IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__42IH)[ 0]=next__32IH;
       } else {
-        next__EVIH=((__POINTER *)result__GVIH)[ 0];
-        if ((next__EVIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EHFH <<  1)) <=  4096)) {
-            next__EVIH=(void *)((unsigned long)result__GVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EHFH)));
+        next__32IH=((__POINTER *)result__52IH)[ 0];
+        if ((next__32IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__52IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LPFH <<  1)) <=  4096)) {
+            next__32IH=(void *)((unsigned long)result__52IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LPFH)));
           } else {
-            next__EVIH=new_lab__MRJ(new_size__EHFH);
+            next__32IH=new_lab__MRJ(new_size__LPFH);
           };
-          ((__POINTER *)next__EVIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FVIH)[ 0]=next__EVIH;
+          ((__POINTER *)next__32IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__42IH)[ 0]=next__32IH;
         } else {
-          ((__POINTER *)result__GVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__GVIH=next__EVIH;
+          ((__POINTER *)result__52IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__32IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__52IH=next__32IH;
         };
       };
-      ptr__Q4J=result__GVIH;
+      ptr__Q4J=result__52IH;
     } else {
-      t__IHFH=((__UINTEGER_32 )typ_id__V4J);
-      a__HHFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__NVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__S4J + a__HHFH) & (__UINTEGER_32)(~ a__HHFH));
-      ptr_table__KVIH=((__POINTER )(&(table_type[(t__IHFH)])));
-      lab_type__MVIH=(__UINTEGER_32)(t__IHFH |  1);
-      next__JVIH=((__POINTER )(NULL));
-      result__LVIH=((__POINTER *)ptr_table__KVIH)[ 0];
-      if ((result__LVIH == (void *)NULL)) {
-        result__LVIH=new_lab__MRJ(lab_type__MVIH);
-        next__JVIH=(void *)((unsigned long)result__LVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NVIH)));
-        ((__POINTER *)next__JVIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KVIH)[ 0]=next__JVIH;
+      t__PPFH=((__UINTEGER_32 )typ_id__V4J);
+      a__OPFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__G3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__S4J + a__OPFH) & (__UINTEGER_32)(~ a__OPFH));
+      ptr_table__D3IH=((__POINTER )(&(table_type[(t__PPFH)])));
+      lab_type__F3IH=(__UINTEGER_32)(t__PPFH |  1);
+      next__C3IH=((__POINTER )(NULL));
+      result__E3IH=((__POINTER *)ptr_table__D3IH)[ 0];
+      if ((result__E3IH == (void *)NULL)) {
+        result__E3IH=new_lab__MRJ(lab_type__F3IH);
+        next__C3IH=(void *)((unsigned long)result__E3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G3IH)));
+        ((__POINTER *)next__C3IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__D3IH)[ 0]=next__C3IH;
       } else {
-        next__JVIH=((__POINTER *)result__LVIH)[ 0];
-        if ((next__JVIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NVIH <<  1)) <=  4096)) {
-            next__JVIH=(void *)((unsigned long)result__LVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NVIH)));
+        next__C3IH=((__POINTER *)result__E3IH)[ 0];
+        if ((next__C3IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__G3IH <<  1)) <=  4096)) {
+            next__C3IH=(void *)((unsigned long)result__E3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G3IH)));
           } else {
-            next__JVIH=new_lab__MRJ(lab_type__MVIH);
+            next__C3IH=new_lab__MRJ(lab_type__F3IH);
           };
-          ((__POINTER *)next__JVIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KVIH)[ 0]=next__JVIH;
+          ((__POINTER *)next__C3IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__D3IH)[ 0]=next__C3IH;
         } else {
-          ((__POINTER *)result__LVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__LVIH=next__JVIH;
+          ((__POINTER *)result__E3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__E3IH=next__C3IH;
         };
       };
-      ptr__Q4J=result__LVIH;
+      ptr__Q4J=result__E3IH;
     };
     result__P4J=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)ptr__Q4J);
     *(result__P4J) = *(FAST_ARRAYoFAST_ARRAYoITM_CODEoo__);
@@ -4423,61 +4438,61 @@ int main(int argc,char **argv)
     typ_id__LLM=__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ILM);
     if ((typ_id__LLM == (__INTEGER)(-  1))) {
-      a__LHFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__MHFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILM + a__LHFH) & (__UINTEGER_32)(~ a__LHFH));
-      ptr_table__PVIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MHFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__OVIH=((__POINTER )(NULL));
-      result__QVIH=((__POINTER *)ptr_table__PVIH)[ 0];
-      if ((result__QVIH == (void *)NULL)) {
-        result__QVIH=new_lab__MRJ(new_size__MHFH);
-        next__OVIH=(void *)((unsigned long)result__QVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MHFH)));
-        ((__POINTER *)next__OVIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__PVIH)[ 0]=next__OVIH;
+      a__SPFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TPFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILM + a__SPFH) & (__UINTEGER_32)(~ a__SPFH));
+      ptr_table__I3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TPFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__H3IH=((__POINTER )(NULL));
+      result__J3IH=((__POINTER *)ptr_table__I3IH)[ 0];
+      if ((result__J3IH == (void *)NULL)) {
+        result__J3IH=new_lab__MRJ(new_size__TPFH);
+        next__H3IH=(void *)((unsigned long)result__J3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPFH)));
+        ((__POINTER *)next__H3IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__I3IH)[ 0]=next__H3IH;
       } else {
-        next__OVIH=((__POINTER *)result__QVIH)[ 0];
-        if ((next__OVIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MHFH <<  1)) <=  4096)) {
-            next__OVIH=(void *)((unsigned long)result__QVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MHFH)));
+        next__H3IH=((__POINTER *)result__J3IH)[ 0];
+        if ((next__H3IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TPFH <<  1)) <=  4096)) {
+            next__H3IH=(void *)((unsigned long)result__J3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPFH)));
           } else {
-            next__OVIH=new_lab__MRJ(new_size__MHFH);
+            next__H3IH=new_lab__MRJ(new_size__TPFH);
           };
-          ((__POINTER *)next__OVIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PVIH)[ 0]=next__OVIH;
+          ((__POINTER *)next__H3IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__I3IH)[ 0]=next__H3IH;
         } else {
-          ((__POINTER *)result__QVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__QVIH=next__OVIH;
+          ((__POINTER *)result__J3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__J3IH=next__H3IH;
         };
       };
-      ptr__GLM=result__QVIH;
+      ptr__GLM=result__J3IH;
     } else {
-      t__QHFH=((__UINTEGER_32 )typ_id__LLM);
-      a__PHFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILM + a__PHFH) & (__UINTEGER_32)(~ a__PHFH));
-      ptr_table__UVIH=((__POINTER )(&(table_type[(t__QHFH)])));
-      lab_type__WVIH=(__UINTEGER_32)(t__QHFH |  1);
-      next__TVIH=((__POINTER )(NULL));
-      result__VVIH=((__POINTER *)ptr_table__UVIH)[ 0];
-      if ((result__VVIH == (void *)NULL)) {
-        result__VVIH=new_lab__MRJ(lab_type__WVIH);
-        next__TVIH=(void *)((unsigned long)result__VVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XVIH)));
-        ((__POINTER *)next__TVIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__UVIH)[ 0]=next__TVIH;
+      t__XPFH=((__UINTEGER_32 )typ_id__LLM);
+      a__WPFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__Q3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILM + a__WPFH) & (__UINTEGER_32)(~ a__WPFH));
+      ptr_table__N3IH=((__POINTER )(&(table_type[(t__XPFH)])));
+      lab_type__P3IH=(__UINTEGER_32)(t__XPFH |  1);
+      next__M3IH=((__POINTER )(NULL));
+      result__O3IH=((__POINTER *)ptr_table__N3IH)[ 0];
+      if ((result__O3IH == (void *)NULL)) {
+        result__O3IH=new_lab__MRJ(lab_type__P3IH);
+        next__M3IH=(void *)((unsigned long)result__O3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q3IH)));
+        ((__POINTER *)next__M3IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__N3IH)[ 0]=next__M3IH;
       } else {
-        next__TVIH=((__POINTER *)result__VVIH)[ 0];
-        if ((next__TVIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XVIH <<  1)) <=  4096)) {
-            next__TVIH=(void *)((unsigned long)result__VVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XVIH)));
+        next__M3IH=((__POINTER *)result__O3IH)[ 0];
+        if ((next__M3IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q3IH <<  1)) <=  4096)) {
+            next__M3IH=(void *)((unsigned long)result__O3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q3IH)));
           } else {
-            next__TVIH=new_lab__MRJ(lab_type__WVIH);
+            next__M3IH=new_lab__MRJ(lab_type__P3IH);
           };
-          ((__POINTER *)next__TVIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UVIH)[ 0]=next__TVIH;
+          ((__POINTER *)next__M3IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__N3IH)[ 0]=next__M3IH;
         } else {
-          ((__POINTER *)result__VVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__VVIH=next__TVIH;
+          ((__POINTER *)result__O3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__O3IH=next__M3IH;
         };
       };
-      ptr__GLM=result__VVIH;
+      ptr__GLM=result__O3IH;
     };
     result__FLM=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)ptr__GLM);
     *(result__FLM) = *(FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__);
@@ -4513,90 +4528,90 @@ int main(int argc,char **argv)
   ITM_ARG__->parent_itm_argument__ZHHB=(*ITM_ARGUMENT__);
   ITM_ARG__->name__10HC=NULL;
   ITM_ARG__->type__20HC=NULL;
-  empty_list__WHLF=create_with_capacity__BHRC( 0);
-  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->buckets__HDPF=NULL;
-  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->capacity__CDPF= 0;
-  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->count__ZHPF= 0;
-  result__ZBNF=NULL;
-  ptr__0BNF=((__POINTER )(NULL));
-  typ_id__5BNF= 0;
-  sz__2BNF=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo));
-  if ((sz__2BNF ==  0)) {
-    result__ZBNF=HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
+  empty_list__GNLF=create_with_capacity__BHRC( 0);
+  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->buckets__FJPF=NULL;
+  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->capacity__AJPF= 0;
+  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->count__XNPF= 0;
+  result__PHNF=NULL;
+  ptr__QHNF=((__POINTER )(NULL));
+  typ_id__VHNF= 0;
+  sz__SHNF=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo));
+  if ((sz__SHNF ==  0)) {
+    result__PHNF=HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
   } else {
-    typ_id__5BNF=__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__2BNF);
-    if ((typ_id__5BNF == (__INTEGER)(-  1))) {
-      a__THFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UHFH=(__UINTEGER_32)((__UINTEGER_32)(sz__2BNF + a__THFH) & (__UINTEGER_32)(~ a__THFH));
-      ptr_table__ZVIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UHFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__YVIH=((__POINTER )(NULL));
-      result__0VIH=((__POINTER *)ptr_table__ZVIH)[ 0];
-      if ((result__0VIH == (void *)NULL)) {
-        result__0VIH=new_lab__MRJ(new_size__UHFH);
-        next__YVIH=(void *)((unsigned long)result__0VIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHFH)));
-        ((__POINTER *)next__YVIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZVIH)[ 0]=next__YVIH;
-      } else {
-        next__YVIH=((__POINTER *)result__0VIH)[ 0];
-        if ((next__YVIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0VIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UHFH <<  1)) <=  4096)) {
-            next__YVIH=(void *)((unsigned long)result__0VIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHFH)));
-          } else {
-            next__YVIH=new_lab__MRJ(new_size__UHFH);
-          };
-          ((__POINTER *)next__YVIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZVIH)[ 0]=next__YVIH;
-        } else {
-          ((__POINTER *)result__0VIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__0VIH=next__YVIH;
-        };
-      };
-      ptr__0BNF=result__0VIH;
-    } else {
-      t__YHFH=((__UINTEGER_32 )typ_id__5BNF);
-      a__XHFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__BWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__2BNF + a__XHFH) & (__UINTEGER_32)(~ a__XHFH));
-      ptr_table__4VIH=((__POINTER )(&(table_type[(t__YHFH)])));
-      lab_type__AWIH=(__UINTEGER_32)(t__YHFH |  1);
-      next__3VIH=((__POINTER )(NULL));
-      result__5VIH=((__POINTER *)ptr_table__4VIH)[ 0];
-      if ((result__5VIH == (void *)NULL)) {
-        result__5VIH=new_lab__MRJ(lab_type__AWIH);
-        next__3VIH=(void *)((unsigned long)result__5VIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BWIH)));
-        ((__POINTER *)next__3VIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4VIH)[ 0]=next__3VIH;
-      } else {
-        next__3VIH=((__POINTER *)result__5VIH)[ 0];
-        if ((next__3VIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5VIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BWIH <<  1)) <=  4096)) {
-            next__3VIH=(void *)((unsigned long)result__5VIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BWIH)));
-          } else {
-            next__3VIH=new_lab__MRJ(lab_type__AWIH);
-          };
-          ((__POINTER *)next__3VIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4VIH)[ 0]=next__3VIH;
-        } else {
-          ((__POINTER *)result__5VIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3VIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5VIH=next__3VIH;
-        };
-      };
-      ptr__0BNF=result__5VIH;
-    };
-    result__ZBNF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)ptr__0BNF);
-    *(result__ZBNF) = *(HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__);
-  };
-  Self__ZFPF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)result__ZBNF);
-  new_capacity__KSQF=prime_number_ceiling__X41( 53);
-  Self__ZFPF->buckets__HDPF=create__KDTF(new_capacity__KSQF);
-  Self__ZFPF->capacity__CDPF=new_capacity__KSQF;
-  Self__ZFPF->count__ZHPF= 0;
-  bucket__AILF=result__ZBNF;
-  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->item__TDPF=NULL;
-  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->next__5DPF=NULL;
-  ITM_ARGS__->parent_itm_argument__B5EE=(*ITM_ARGUMENT__);
-  ITM_ARGS__->name__N1OF=NULL;
-  ITM_ARGS__->type__O1OF=NULL;
+    typ_id__VHNF=__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SHNF);
+    if ((typ_id__VHNF == (__INTEGER)(-  1))) {
+      a__0PFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__1PFH=(__UINTEGER_32)((__UINTEGER_32)(sz__SHNF + a__0PFH) & (__UINTEGER_32)(~ a__0PFH));
+      ptr_table__S3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1PFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__R3IH=((__POINTER )(NULL));
+      result__T3IH=((__POINTER *)ptr_table__S3IH)[ 0];
+      if ((result__T3IH == (void *)NULL)) {
+        result__T3IH=new_lab__MRJ(new_size__1PFH);
+        next__R3IH=(void *)((unsigned long)result__T3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1PFH)));
+        ((__POINTER *)next__R3IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__S3IH)[ 0]=next__R3IH;
+      } else {
+        next__R3IH=((__POINTER *)result__T3IH)[ 0];
+        if ((next__R3IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1PFH <<  1)) <=  4096)) {
+            next__R3IH=(void *)((unsigned long)result__T3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1PFH)));
+          } else {
+            next__R3IH=new_lab__MRJ(new_size__1PFH);
+          };
+          ((__POINTER *)next__R3IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__S3IH)[ 0]=next__R3IH;
+        } else {
+          ((__POINTER *)result__T3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__T3IH=next__R3IH;
+        };
+      };
+      ptr__QHNF=result__T3IH;
+    } else {
+      t__5PFH=((__UINTEGER_32 )typ_id__VHNF);
+      a__4PFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__03IH=(__UINTEGER_32)((__UINTEGER_32)(sz__SHNF + a__4PFH) & (__UINTEGER_32)(~ a__4PFH));
+      ptr_table__X3IH=((__POINTER )(&(table_type[(t__5PFH)])));
+      lab_type__Z3IH=(__UINTEGER_32)(t__5PFH |  1);
+      next__W3IH=((__POINTER )(NULL));
+      result__Y3IH=((__POINTER *)ptr_table__X3IH)[ 0];
+      if ((result__Y3IH == (void *)NULL)) {
+        result__Y3IH=new_lab__MRJ(lab_type__Z3IH);
+        next__W3IH=(void *)((unsigned long)result__Y3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__03IH)));
+        ((__POINTER *)next__W3IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__X3IH)[ 0]=next__W3IH;
+      } else {
+        next__W3IH=((__POINTER *)result__Y3IH)[ 0];
+        if ((next__W3IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__03IH <<  1)) <=  4096)) {
+            next__W3IH=(void *)((unsigned long)result__Y3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__03IH)));
+          } else {
+            next__W3IH=new_lab__MRJ(lab_type__Z3IH);
+          };
+          ((__POINTER *)next__W3IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__X3IH)[ 0]=next__W3IH;
+        } else {
+          ((__POINTER *)result__Y3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__Y3IH=next__W3IH;
+        };
+      };
+      ptr__QHNF=result__Y3IH;
+    };
+    result__PHNF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)ptr__QHNF);
+    *(result__PHNF) = *(HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__);
+  };
+  Self__XLPF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)result__PHNF);
+  new_capacity__IYQF=prime_number_ceiling__X41( 53);
+  Self__XLPF->buckets__FJPF=create__ZKTF(new_capacity__IYQF);
+  Self__XLPF->capacity__AJPF=new_capacity__IYQF;
+  Self__XLPF->count__XNPF= 0;
+  bucket__QNLF=result__PHNF;
+  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->item__RJPF=NULL;
+  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->next__3JPF=NULL;
+  ITM_ARGS__->parent_itm_argument__DDFE=(*ITM_ARGUMENT__);
+  ITM_ARGS__->name__LBPF=NULL;
+  ITM_ARGS__->type__MBPF=NULL;
   ITM_EXTERNAL_TYPE__->is_persistant__MHN=FALSE__;
   result__B4F=NULL;
   ptr__C4F=((__POINTER )(NULL));
@@ -4608,61 +4623,61 @@ int main(int argc,char **argv)
     typ_id__H4F=__FAST_ARRAYoSTRINGo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__E4F);
     if ((typ_id__H4F == (__INTEGER)(-  1))) {
-      a__LHDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0XG=(__UINTEGER_32)((__UINTEGER_32)(sz__E4F + a__LHDH) & (__UINTEGER_32)(~ a__LHDH));
-      ptr_table__DWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0XG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__CWIH=((__POINTER )(NULL));
-      result__EWIH=((__POINTER *)ptr_table__DWIH)[ 0];
-      if ((result__EWIH == (void *)NULL)) {
-        result__EWIH=new_lab__MRJ(new_size__0XG);
-        next__CWIH=(void *)((unsigned long)result__EWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0XG)));
-        ((__POINTER *)next__CWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DWIH)[ 0]=next__CWIH;
+      a__PQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__0XG=(__UINTEGER_32)((__UINTEGER_32)(sz__E4F + a__PQDH) & (__UINTEGER_32)(~ a__PQDH));
+      ptr_table__23IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0XG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__13IH=((__POINTER )(NULL));
+      result__33IH=((__POINTER *)ptr_table__23IH)[ 0];
+      if ((result__33IH == (void *)NULL)) {
+        result__33IH=new_lab__MRJ(new_size__0XG);
+        next__13IH=(void *)((unsigned long)result__33IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0XG)));
+        ((__POINTER *)next__13IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__23IH)[ 0]=next__13IH;
       } else {
-        next__CWIH=((__POINTER *)result__EWIH)[ 0];
-        if ((next__CWIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0XG <<  1)) <=  4096)) {
-            next__CWIH=(void *)((unsigned long)result__EWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0XG)));
+        next__13IH=((__POINTER *)result__33IH)[ 0];
+        if ((next__13IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__33IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0XG <<  1)) <=  4096)) {
+            next__13IH=(void *)((unsigned long)result__33IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0XG)));
           } else {
-            next__CWIH=new_lab__MRJ(new_size__0XG);
+            next__13IH=new_lab__MRJ(new_size__0XG);
           };
-          ((__POINTER *)next__CWIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DWIH)[ 0]=next__CWIH;
+          ((__POINTER *)next__13IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__23IH)[ 0]=next__13IH;
         } else {
-          ((__POINTER *)result__EWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__EWIH=next__CWIH;
+          ((__POINTER *)result__33IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__13IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__33IH=next__13IH;
         };
       };
-      ptr__C4F=result__EWIH;
+      ptr__C4F=result__33IH;
     } else {
       t__DZG=((__UINTEGER_32 )typ_id__H4F);
-      a__RHDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__LWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__E4F + a__RHDH) & (__UINTEGER_32)(~ a__RHDH));
-      ptr_table__IWIH=((__POINTER )(&(table_type[(t__DZG)])));
-      lab_type__KWIH=(__UINTEGER_32)(t__DZG |  1);
-      next__HWIH=((__POINTER )(NULL));
-      result__JWIH=((__POINTER *)ptr_table__IWIH)[ 0];
-      if ((result__JWIH == (void *)NULL)) {
-        result__JWIH=new_lab__MRJ(lab_type__KWIH);
-        next__HWIH=(void *)((unsigned long)result__JWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LWIH)));
-        ((__POINTER *)next__HWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__IWIH)[ 0]=next__HWIH;
+      a__VQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__E4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__E4F + a__VQDH) & (__UINTEGER_32)(~ a__VQDH));
+      ptr_table__B4IH=((__POINTER )(&(table_type[(t__DZG)])));
+      lab_type__D4IH=(__UINTEGER_32)(t__DZG |  1);
+      next__A4IH=((__POINTER )(NULL));
+      result__C4IH=((__POINTER *)ptr_table__B4IH)[ 0];
+      if ((result__C4IH == (void *)NULL)) {
+        result__C4IH=new_lab__MRJ(lab_type__D4IH);
+        next__A4IH=(void *)((unsigned long)result__C4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E4IH)));
+        ((__POINTER *)next__A4IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__B4IH)[ 0]=next__A4IH;
       } else {
-        next__HWIH=((__POINTER *)result__JWIH)[ 0];
-        if ((next__HWIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LWIH <<  1)) <=  4096)) {
-            next__HWIH=(void *)((unsigned long)result__JWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LWIH)));
+        next__A4IH=((__POINTER *)result__C4IH)[ 0];
+        if ((next__A4IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__E4IH <<  1)) <=  4096)) {
+            next__A4IH=(void *)((unsigned long)result__C4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E4IH)));
           } else {
-            next__HWIH=new_lab__MRJ(lab_type__KWIH);
+            next__A4IH=new_lab__MRJ(lab_type__D4IH);
           };
-          ((__POINTER *)next__HWIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__IWIH)[ 0]=next__HWIH;
+          ((__POINTER *)next__A4IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__B4IH)[ 0]=next__A4IH;
         } else {
-          ((__POINTER *)result__JWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__JWIH=next__HWIH;
+          ((__POINTER *)result__C4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__C4IH=next__A4IH;
         };
       };
-      ptr__C4F=result__JWIH;
+      ptr__C4F=result__C4IH;
     };
     result__B4F=((__FAST_ARRAYoSTRINGo *)ptr__C4F);
     *(result__B4F) = *(FAST_ARRAYoSTRINGo__);
@@ -4682,244 +4697,244 @@ int main(int argc,char **argv)
   LIP_UNARY__->operator__M2QD='\0';
   LIP_UNARY__->value__J2QD=NULL;
   LIP_CALL__->parent_lip_code__314B=(*LIP_CODE__);
-  LIP_CALL__->name__S1TE=NULL;
-  LIP_CALL__->argument__H1TE=NULL;
-  ARRAYED_COLLECTIONoLIP_INTEGERo__->upper__4TWE= 0;
-  ARRAYED_COLLECTIONoLIP_INTEGERo__->capacity__LVWE= 0;
-  ARRAYED_COLLECTIONoLIP_INTEGERo__->storage__WVWE=NULL;
-  FAST_ARRAYoLIP_INTEGERo__->parent_arrayed_collection__ZFSE=(*ARRAYED_COLLECTIONoLIP_INTEGERo__);
-  result__UATE=NULL;
-  ptr__VATE=((__POINTER )(NULL));
-  typ_id__0ATE= 0;
-  sz__XATE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_INTEGERo));
-  if ((sz__XATE ==  0)) {
-    result__UATE=FAST_ARRAYoLIP_INTEGERo__;
+  LIP_CALL__->name__GAUE=NULL;
+  LIP_CALL__->argument__15TE=NULL;
+  ARRAYED_COLLECTIONoLIP_INTEGERo__->upper__BWWE= 0;
+  ARRAYED_COLLECTIONoLIP_INTEGERo__->capacity__D0WE= 0;
+  ARRAYED_COLLECTIONoLIP_INTEGERo__->storage__O0WE=NULL;
+  FAST_ARRAYoLIP_INTEGERo__->parent_arrayed_collection__DKSE=(*ARRAYED_COLLECTIONoLIP_INTEGERo__);
+  result__FFTE=NULL;
+  ptr__GFTE=((__POINTER )(NULL));
+  typ_id__LFTE= 0;
+  sz__IFTE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_INTEGERo));
+  if ((sz__IFTE ==  0)) {
+    result__FFTE=FAST_ARRAYoLIP_INTEGERo__;
   } else {
-    typ_id__0ATE=__FAST_ARRAYoLIP_INTEGERo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XATE);
-    if ((typ_id__0ATE == (__INTEGER)(-  1))) {
-      a__1HFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2HFH=(__UINTEGER_32)((__UINTEGER_32)(sz__XATE + a__1HFH) & (__UINTEGER_32)(~ a__1HFH));
-      ptr_table__NWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2HFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__MWIH=((__POINTER )(NULL));
-      result__OWIH=((__POINTER *)ptr_table__NWIH)[ 0];
-      if ((result__OWIH == (void *)NULL)) {
-        result__OWIH=new_lab__MRJ(new_size__2HFH);
-        next__MWIH=(void *)((unsigned long)result__OWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2HFH)));
-        ((__POINTER *)next__MWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NWIH)[ 0]=next__MWIH;
-      } else {
-        next__MWIH=((__POINTER *)result__OWIH)[ 0];
-        if ((next__MWIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2HFH <<  1)) <=  4096)) {
-            next__MWIH=(void *)((unsigned long)result__OWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2HFH)));
-          } else {
-            next__MWIH=new_lab__MRJ(new_size__2HFH);
-          };
-          ((__POINTER *)next__MWIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NWIH)[ 0]=next__MWIH;
-        } else {
-          ((__POINTER *)result__OWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__OWIH=next__MWIH;
-        };
-      };
-      ptr__VATE=result__OWIH;
-    } else {
-      t__AIFH=((__UINTEGER_32 )typ_id__0ATE);
-      a__5HFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__VWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XATE + a__5HFH) & (__UINTEGER_32)(~ a__5HFH));
-      ptr_table__SWIH=((__POINTER )(&(table_type[(t__AIFH)])));
-      lab_type__UWIH=(__UINTEGER_32)(t__AIFH |  1);
-      next__RWIH=((__POINTER )(NULL));
-      result__TWIH=((__POINTER *)ptr_table__SWIH)[ 0];
-      if ((result__TWIH == (void *)NULL)) {
-        result__TWIH=new_lab__MRJ(lab_type__UWIH);
-        next__RWIH=(void *)((unsigned long)result__TWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VWIH)));
-        ((__POINTER *)next__RWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SWIH)[ 0]=next__RWIH;
-      } else {
-        next__RWIH=((__POINTER *)result__TWIH)[ 0];
-        if ((next__RWIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VWIH <<  1)) <=  4096)) {
-            next__RWIH=(void *)((unsigned long)result__TWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VWIH)));
-          } else {
-            next__RWIH=new_lab__MRJ(lab_type__UWIH);
-          };
-          ((__POINTER *)next__RWIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__SWIH)[ 0]=next__RWIH;
-        } else {
-          ((__POINTER *)result__TWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__TWIH=next__RWIH;
-        };
-      };
-      ptr__VATE=result__TWIH;
-    };
-    result__UATE=((__FAST_ARRAYoLIP_INTEGERo *)ptr__VATE);
-    *(result__UATE) = *(FAST_ARRAYoLIP_INTEGERo__);
-  };
-  Self__CVWE=((__FAST_ARRAYoLIP_INTEGERo *)result__UATE);
-  if ((Self__CVWE->parent_arrayed_collection__ZFSE.capacity__LVWE <  10)) {
-    Self__CVWE->parent_arrayed_collection__ZFSE.storage__WVWE=create__YMFF( 10);
-    Self__CVWE->parent_arrayed_collection__ZFSE.capacity__LVWE= 10;
-  };
-  Self__CVWE->parent_arrayed_collection__ZFSE.upper__4TWE=(__INTEGER)(-  1);
-  storage__0FSE=result__UATE;
-  LIP_INTEGER__->value__1X2F= 0;
-  ARRAYED_COLLECTIONoLIP_STRINGo__->upper__NSOF= 0;
-  ARRAYED_COLLECTIONoLIP_STRINGo__->capacity__UYOF= 0;
-  ARRAYED_COLLECTIONoLIP_STRINGo__->storage__5YOF=NULL;
-  FAST_ARRAYoLIP_STRINGo__->parent_arrayed_collection__W2EF=(*ARRAYED_COLLECTIONoLIP_STRINGo__);
-  result__UMLF=NULL;
-  ptr__VMLF=((__POINTER )(NULL));
-  typ_id__0MLF= 0;
-  sz__XMLF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_STRINGo));
-  if ((sz__XMLF ==  0)) {
-    result__UMLF=FAST_ARRAYoLIP_STRINGo__;
+    typ_id__LFTE=__FAST_ARRAYoLIP_INTEGERo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__IFTE);
+    if ((typ_id__LFTE == (__INTEGER)(-  1))) {
+      a__CQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__DQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__IFTE + a__CQFH) & (__UINTEGER_32)(~ a__CQFH));
+      ptr_table__G4IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__F4IH=((__POINTER )(NULL));
+      result__H4IH=((__POINTER *)ptr_table__G4IH)[ 0];
+      if ((result__H4IH == (void *)NULL)) {
+        result__H4IH=new_lab__MRJ(new_size__DQFH);
+        next__F4IH=(void *)((unsigned long)result__H4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DQFH)));
+        ((__POINTER *)next__F4IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__G4IH)[ 0]=next__F4IH;
+      } else {
+        next__F4IH=((__POINTER *)result__H4IH)[ 0];
+        if ((next__F4IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DQFH <<  1)) <=  4096)) {
+            next__F4IH=(void *)((unsigned long)result__H4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DQFH)));
+          } else {
+            next__F4IH=new_lab__MRJ(new_size__DQFH);
+          };
+          ((__POINTER *)next__F4IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__G4IH)[ 0]=next__F4IH;
+        } else {
+          ((__POINTER *)result__H4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__H4IH=next__F4IH;
+        };
+      };
+      ptr__GFTE=result__H4IH;
+    } else {
+      t__HQFH=((__UINTEGER_32 )typ_id__LFTE);
+      a__GQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__O4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__IFTE + a__GQFH) & (__UINTEGER_32)(~ a__GQFH));
+      ptr_table__L4IH=((__POINTER )(&(table_type[(t__HQFH)])));
+      lab_type__N4IH=(__UINTEGER_32)(t__HQFH |  1);
+      next__K4IH=((__POINTER )(NULL));
+      result__M4IH=((__POINTER *)ptr_table__L4IH)[ 0];
+      if ((result__M4IH == (void *)NULL)) {
+        result__M4IH=new_lab__MRJ(lab_type__N4IH);
+        next__K4IH=(void *)((unsigned long)result__M4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O4IH)));
+        ((__POINTER *)next__K4IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__L4IH)[ 0]=next__K4IH;
+      } else {
+        next__K4IH=((__POINTER *)result__M4IH)[ 0];
+        if ((next__K4IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__O4IH <<  1)) <=  4096)) {
+            next__K4IH=(void *)((unsigned long)result__M4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O4IH)));
+          } else {
+            next__K4IH=new_lab__MRJ(lab_type__N4IH);
+          };
+          ((__POINTER *)next__K4IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__L4IH)[ 0]=next__K4IH;
+        } else {
+          ((__POINTER *)result__M4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__K4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__M4IH=next__K4IH;
+        };
+      };
+      ptr__GFTE=result__M4IH;
+    };
+    result__FFTE=((__FAST_ARRAYoLIP_INTEGERo *)ptr__GFTE);
+    *(result__FFTE) = *(FAST_ARRAYoLIP_INTEGERo__);
+  };
+  Self__0ZWE=((__FAST_ARRAYoLIP_INTEGERo *)result__FFTE);
+  if ((Self__0ZWE->parent_arrayed_collection__DKSE.capacity__D0WE <  10)) {
+    Self__0ZWE->parent_arrayed_collection__DKSE.storage__O0WE=create__3RFF( 10);
+    Self__0ZWE->parent_arrayed_collection__DKSE.capacity__D0WE= 10;
+  };
+  Self__0ZWE->parent_arrayed_collection__DKSE.upper__BWWE=(__INTEGER)(-  1);
+  storage__EKSE=result__FFTE;
+  LIP_INTEGER__->value__0B3F= 0;
+  ARRAYED_COLLECTIONoLIP_STRINGo__->upper__4XOF= 0;
+  ARRAYED_COLLECTIONoLIP_STRINGo__->capacity__S4OF= 0;
+  ARRAYED_COLLECTIONoLIP_STRINGo__->storage__34OF=NULL;
+  FAST_ARRAYoLIP_STRINGo__->parent_arrayed_collection__0BFF=(*ARRAYED_COLLECTIONoLIP_STRINGo__);
+  result__ESLF=NULL;
+  ptr__FSLF=((__POINTER )(NULL));
+  typ_id__KSLF= 0;
+  sz__HSLF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_STRINGo));
+  if ((sz__HSLF ==  0)) {
+    result__ESLF=FAST_ARRAYoLIP_STRINGo__;
   } else {
-    typ_id__0MLF=__FAST_ARRAYoLIP_STRINGo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XMLF);
-    if ((typ_id__0MLF == (__INTEGER)(-  1))) {
-      a__DIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMLF + a__DIFH) & (__UINTEGER_32)(~ a__DIFH));
-      ptr_table__XWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__WWIH=((__POINTER )(NULL));
-      result__YWIH=((__POINTER *)ptr_table__XWIH)[ 0];
-      if ((result__YWIH == (void *)NULL)) {
-        result__YWIH=new_lab__MRJ(new_size__EIFH);
-        next__WWIH=(void *)((unsigned long)result__YWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIFH)));
-        ((__POINTER *)next__WWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__XWIH)[ 0]=next__WWIH;
-      } else {
-        next__WWIH=((__POINTER *)result__YWIH)[ 0];
-        if ((next__WWIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EIFH <<  1)) <=  4096)) {
-            next__WWIH=(void *)((unsigned long)result__YWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIFH)));
-          } else {
-            next__WWIH=new_lab__MRJ(new_size__EIFH);
-          };
-          ((__POINTER *)next__WWIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__XWIH)[ 0]=next__WWIH;
-        } else {
-          ((__POINTER *)result__YWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__YWIH=next__WWIH;
-        };
-      };
-      ptr__VMLF=result__YWIH;
-    } else {
-      t__IIFH=((__UINTEGER_32 )typ_id__0MLF);
-      a__HIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5WIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMLF + a__HIFH) & (__UINTEGER_32)(~ a__HIFH));
-      ptr_table__2WIH=((__POINTER )(&(table_type[(t__IIFH)])));
-      lab_type__4WIH=(__UINTEGER_32)(t__IIFH |  1);
-      next__1WIH=((__POINTER )(NULL));
-      result__3WIH=((__POINTER *)ptr_table__2WIH)[ 0];
-      if ((result__3WIH == (void *)NULL)) {
-        result__3WIH=new_lab__MRJ(lab_type__4WIH);
-        next__1WIH=(void *)((unsigned long)result__3WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5WIH)));
-        ((__POINTER *)next__1WIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__2WIH)[ 0]=next__1WIH;
-      } else {
-        next__1WIH=((__POINTER *)result__3WIH)[ 0];
-        if ((next__1WIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3WIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5WIH <<  1)) <=  4096)) {
-            next__1WIH=(void *)((unsigned long)result__3WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5WIH)));
-          } else {
-            next__1WIH=new_lab__MRJ(lab_type__4WIH);
-          };
-          ((__POINTER *)next__1WIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2WIH)[ 0]=next__1WIH;
-        } else {
-          ((__POINTER *)result__3WIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1WIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__3WIH=next__1WIH;
-        };
-      };
-      ptr__VMLF=result__3WIH;
-    };
-    result__UMLF=((__FAST_ARRAYoLIP_STRINGo *)ptr__VMLF);
-    *(result__UMLF) = *(FAST_ARRAYoLIP_STRINGo__);
-  };
-  Self__LYOF=((__FAST_ARRAYoLIP_STRINGo *)result__UMLF);
-  if ((Self__LYOF->parent_arrayed_collection__W2EF.capacity__UYOF <  10)) {
-    Self__LYOF->parent_arrayed_collection__W2EF.storage__5YOF=create__CFXF( 10);
-    Self__LYOF->parent_arrayed_collection__W2EF.capacity__UYOF= 10;
-  };
-  Self__LYOF->parent_arrayed_collection__W2EF.upper__NSOF=(__INTEGER)(-  1);
-  storage__X2EF=result__UMLF;
-  LIP_STRING__->value__52TE=NULL;
+    typ_id__KSLF=__FAST_ARRAYoLIP_STRINGo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__HSLF);
+    if ((typ_id__KSLF == (__INTEGER)(-  1))) {
+      a__KQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__LQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__HSLF + a__KQFH) & (__UINTEGER_32)(~ a__KQFH));
+      ptr_table__Q4IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__P4IH=((__POINTER )(NULL));
+      result__R4IH=((__POINTER *)ptr_table__Q4IH)[ 0];
+      if ((result__R4IH == (void *)NULL)) {
+        result__R4IH=new_lab__MRJ(new_size__LQFH);
+        next__P4IH=(void *)((unsigned long)result__R4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LQFH)));
+        ((__POINTER *)next__P4IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Q4IH)[ 0]=next__P4IH;
+      } else {
+        next__P4IH=((__POINTER *)result__R4IH)[ 0];
+        if ((next__P4IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LQFH <<  1)) <=  4096)) {
+            next__P4IH=(void *)((unsigned long)result__R4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LQFH)));
+          } else {
+            next__P4IH=new_lab__MRJ(new_size__LQFH);
+          };
+          ((__POINTER *)next__P4IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__Q4IH)[ 0]=next__P4IH;
+        } else {
+          ((__POINTER *)result__R4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__P4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__R4IH=next__P4IH;
+        };
+      };
+      ptr__FSLF=result__R4IH;
+    } else {
+      t__PQFH=((__UINTEGER_32 )typ_id__KSLF);
+      a__OQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__Y4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__HSLF + a__OQFH) & (__UINTEGER_32)(~ a__OQFH));
+      ptr_table__V4IH=((__POINTER )(&(table_type[(t__PQFH)])));
+      lab_type__X4IH=(__UINTEGER_32)(t__PQFH |  1);
+      next__U4IH=((__POINTER )(NULL));
+      result__W4IH=((__POINTER *)ptr_table__V4IH)[ 0];
+      if ((result__W4IH == (void *)NULL)) {
+        result__W4IH=new_lab__MRJ(lab_type__X4IH);
+        next__U4IH=(void *)((unsigned long)result__W4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y4IH)));
+        ((__POINTER *)next__U4IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__V4IH)[ 0]=next__U4IH;
+      } else {
+        next__U4IH=((__POINTER *)result__W4IH)[ 0];
+        if ((next__U4IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Y4IH <<  1)) <=  4096)) {
+            next__U4IH=(void *)((unsigned long)result__W4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y4IH)));
+          } else {
+            next__U4IH=new_lab__MRJ(lab_type__X4IH);
+          };
+          ((__POINTER *)next__U4IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__V4IH)[ 0]=next__U4IH;
+        } else {
+          ((__POINTER *)result__W4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__U4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__W4IH=next__U4IH;
+        };
+      };
+      ptr__FSLF=result__W4IH;
+    };
+    result__ESLF=((__FAST_ARRAYoLIP_STRINGo *)ptr__FSLF);
+    *(result__ESLF) = *(FAST_ARRAYoLIP_STRINGo__);
+  };
+  Self__J4OF=((__FAST_ARRAYoLIP_STRINGo *)result__ESLF);
+  if ((Self__J4OF->parent_arrayed_collection__0BFF.capacity__S4OF <  10)) {
+    Self__J4OF->parent_arrayed_collection__0BFF.storage__34OF=create__SNXF( 10);
+    Self__J4OF->parent_arrayed_collection__0BFF.capacity__S4OF= 10;
+  };
+  Self__J4OF->parent_arrayed_collection__0BFF.upper__4XOF=(__INTEGER)(-  1);
+  storage__1BFF=result__ESLF;
+  LIP_STRING__->value__TBUE=NULL;
   LIP_BOOLEAN__->value__PDQD=FALSE__;
-  result__0XMF=NULL;
-  ptr__1XMF=((__POINTER )(NULL));
-  typ_id__AYMF= 0;
-  sz__3XMF=((__UINTEGER_32 )sizeof(__LIP_BOOLEAN));
-  if ((sz__3XMF ==  0)) {
-    result__0XMF=LIP_BOOLEAN__;
+  result__Q3MF=NULL;
+  ptr__R3MF=((__POINTER )(NULL));
+  typ_id__W3MF= 0;
+  sz__T3MF=((__UINTEGER_32 )sizeof(__LIP_BOOLEAN));
+  if ((sz__T3MF ==  0)) {
+    result__Q3MF=LIP_BOOLEAN__;
   } else {
-    typ_id__AYMF=-1;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__3XMF);
-    if ((typ_id__AYMF == (__INTEGER)(-  1))) {
-      a__LIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__MIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__3XMF + a__LIFH) & (__UINTEGER_32)(~ a__LIFH));
-      ptr_table__BXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__AXIH=((__POINTER )(NULL));
-      result__CXIH=((__POINTER *)ptr_table__BXIH)[ 0];
-      if ((result__CXIH == (void *)NULL)) {
-        result__CXIH=new_lab__MRJ(new_size__MIFH);
-        next__AXIH=(void *)((unsigned long)result__CXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MIFH)));
-        ((__POINTER *)next__AXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BXIH)[ 0]=next__AXIH;
-      } else {
-        next__AXIH=((__POINTER *)result__CXIH)[ 0];
-        if ((next__AXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MIFH <<  1)) <=  4096)) {
-            next__AXIH=(void *)((unsigned long)result__CXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MIFH)));
-          } else {
-            next__AXIH=new_lab__MRJ(new_size__MIFH);
-          };
-          ((__POINTER *)next__AXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BXIH)[ 0]=next__AXIH;
-        } else {
-          ((__POINTER *)result__CXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__CXIH=next__AXIH;
-        };
-      };
-      ptr__1XMF=result__CXIH;
-    } else {
-      t__QIFH=((__UINTEGER_32 )typ_id__AYMF);
-      a__PIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__JXIH=(__UINTEGER_32)((__UINTEGER_32)(sz__3XMF + a__PIFH) & (__UINTEGER_32)(~ a__PIFH));
-      ptr_table__GXIH=((__POINTER )(&(table_type[(t__QIFH)])));
-      lab_type__IXIH=(__UINTEGER_32)(t__QIFH |  1);
-      next__FXIH=((__POINTER )(NULL));
-      result__HXIH=((__POINTER *)ptr_table__GXIH)[ 0];
-      if ((result__HXIH == (void *)NULL)) {
-        result__HXIH=new_lab__MRJ(lab_type__IXIH);
-        next__FXIH=(void *)((unsigned long)result__HXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JXIH)));
-        ((__POINTER *)next__FXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GXIH)[ 0]=next__FXIH;
-      } else {
-        next__FXIH=((__POINTER *)result__HXIH)[ 0];
-        if ((next__FXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JXIH <<  1)) <=  4096)) {
-            next__FXIH=(void *)((unsigned long)result__HXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JXIH)));
-          } else {
-            next__FXIH=new_lab__MRJ(lab_type__IXIH);
-          };
-          ((__POINTER *)next__FXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GXIH)[ 0]=next__FXIH;
-        } else {
-          ((__POINTER *)result__HXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__HXIH=next__FXIH;
-        };
-      };
-      ptr__1XMF=result__HXIH;
-    };
-    result__0XMF=((__LIP_BOOLEAN *)ptr__1XMF);
-    *(result__0XMF) = *(LIP_BOOLEAN__);
-  };
-  ((__LIP_BOOLEAN *)result__0XMF)->value__PDQD=TRUE__;
-  true__5TKF=result__0XMF;
-  LIP_VALUE__->parent_lip_code__0DFE=(*LIP_CODE__);
-  LIP_VALUE__->value__RFUE=NULL;
+    typ_id__W3MF=-1;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__T3MF);
+    if ((typ_id__W3MF == (__INTEGER)(-  1))) {
+      a__SQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3MF + a__SQFH) & (__UINTEGER_32)(~ a__SQFH));
+      ptr_table__04IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__Z4IH=((__POINTER )(NULL));
+      result__14IH=((__POINTER *)ptr_table__04IH)[ 0];
+      if ((result__14IH == (void *)NULL)) {
+        result__14IH=new_lab__MRJ(new_size__TQFH);
+        next__Z4IH=(void *)((unsigned long)result__14IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TQFH)));
+        ((__POINTER *)next__Z4IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__04IH)[ 0]=next__Z4IH;
+      } else {
+        next__Z4IH=((__POINTER *)result__14IH)[ 0];
+        if ((next__Z4IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__14IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TQFH <<  1)) <=  4096)) {
+            next__Z4IH=(void *)((unsigned long)result__14IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TQFH)));
+          } else {
+            next__Z4IH=new_lab__MRJ(new_size__TQFH);
+          };
+          ((__POINTER *)next__Z4IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__04IH)[ 0]=next__Z4IH;
+        } else {
+          ((__POINTER *)result__14IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Z4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__14IH=next__Z4IH;
+        };
+      };
+      ptr__R3MF=result__14IH;
+    } else {
+      t__XQFH=((__UINTEGER_32 )typ_id__W3MF);
+      a__WQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__C5IH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3MF + a__WQFH) & (__UINTEGER_32)(~ a__WQFH));
+      ptr_table__54IH=((__POINTER )(&(table_type[(t__XQFH)])));
+      lab_type__B5IH=(__UINTEGER_32)(t__XQFH |  1);
+      next__44IH=((__POINTER )(NULL));
+      result__A5IH=((__POINTER *)ptr_table__54IH)[ 0];
+      if ((result__A5IH == (void *)NULL)) {
+        result__A5IH=new_lab__MRJ(lab_type__B5IH);
+        next__44IH=(void *)((unsigned long)result__A5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C5IH)));
+        ((__POINTER *)next__44IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__54IH)[ 0]=next__44IH;
+      } else {
+        next__44IH=((__POINTER *)result__A5IH)[ 0];
+        if ((next__44IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__C5IH <<  1)) <=  4096)) {
+            next__44IH=(void *)((unsigned long)result__A5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C5IH)));
+          } else {
+            next__44IH=new_lab__MRJ(lab_type__B5IH);
+          };
+          ((__POINTER *)next__44IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__54IH)[ 0]=next__44IH;
+        } else {
+          ((__POINTER *)result__A5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__44IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__A5IH=next__44IH;
+        };
+      };
+      ptr__R3MF=result__A5IH;
+    };
+    result__Q3MF=((__LIP_BOOLEAN *)ptr__R3MF);
+    *(result__Q3MF) = *(LIP_BOOLEAN__);
+  };
+  ((__LIP_BOOLEAN *)result__Q3MF)->value__PDQD=TRUE__;
+  true__GZKF=result__Q3MF;
+  LIP_VALUE__->parent_lip_code__2HFE=(*LIP_CODE__);
+  LIP_VALUE__->value__FKUE=NULL;
   LIP_BINARY__->parent_lip_code__2PZB=(*LIP_CODE__);
   LIP_BINARY__->left__MZQD=NULL;
   LIP_BINARY__->right__PZQD=NULL;
@@ -4945,68 +4960,68 @@ int main(int argc,char **argv)
     typ_id__5UMD=__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__2UMD);
     if ((typ_id__5UMD == (__INTEGER)(-  1))) {
-      a__TIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__2UMD + a__TIFH) & (__UINTEGER_32)(~ a__TIFH));
-      ptr_table__LXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__KXIH=((__POINTER )(NULL));
-      result__MXIH=((__POINTER *)ptr_table__LXIH)[ 0];
-      if ((result__MXIH == (void *)NULL)) {
-        result__MXIH=new_lab__MRJ(new_size__UIFH);
-        next__KXIH=(void *)((unsigned long)result__MXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UIFH)));
-        ((__POINTER *)next__KXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LXIH)[ 0]=next__KXIH;
+      a__0QFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__1QFH=(__UINTEGER_32)((__UINTEGER_32)(sz__2UMD + a__0QFH) & (__UINTEGER_32)(~ a__0QFH));
+      ptr_table__E5IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1QFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__D5IH=((__POINTER )(NULL));
+      result__F5IH=((__POINTER *)ptr_table__E5IH)[ 0];
+      if ((result__F5IH == (void *)NULL)) {
+        result__F5IH=new_lab__MRJ(new_size__1QFH);
+        next__D5IH=(void *)((unsigned long)result__F5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1QFH)));
+        ((__POINTER *)next__D5IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__E5IH)[ 0]=next__D5IH;
       } else {
-        next__KXIH=((__POINTER *)result__MXIH)[ 0];
-        if ((next__KXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UIFH <<  1)) <=  4096)) {
-            next__KXIH=(void *)((unsigned long)result__MXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UIFH)));
+        next__D5IH=((__POINTER *)result__F5IH)[ 0];
+        if ((next__D5IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1QFH <<  1)) <=  4096)) {
+            next__D5IH=(void *)((unsigned long)result__F5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1QFH)));
           } else {
-            next__KXIH=new_lab__MRJ(new_size__UIFH);
+            next__D5IH=new_lab__MRJ(new_size__1QFH);
           };
-          ((__POINTER *)next__KXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LXIH)[ 0]=next__KXIH;
+          ((__POINTER *)next__D5IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__E5IH)[ 0]=next__D5IH;
         } else {
-          ((__POINTER *)result__MXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__MXIH=next__KXIH;
+          ((__POINTER *)result__F5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D5IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__F5IH=next__D5IH;
         };
       };
-      ptr__0UMD=result__MXIH;
+      ptr__0UMD=result__F5IH;
     } else {
-      t__YIFH=((__UINTEGER_32 )typ_id__5UMD);
-      a__XIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TXIH=(__UINTEGER_32)((__UINTEGER_32)(sz__2UMD + a__XIFH) & (__UINTEGER_32)(~ a__XIFH));
-      ptr_table__QXIH=((__POINTER )(&(table_type[(t__YIFH)])));
-      lab_type__SXIH=(__UINTEGER_32)(t__YIFH |  1);
-      next__PXIH=((__POINTER )(NULL));
-      result__RXIH=((__POINTER *)ptr_table__QXIH)[ 0];
-      if ((result__RXIH == (void *)NULL)) {
-        result__RXIH=new_lab__MRJ(lab_type__SXIH);
-        next__PXIH=(void *)((unsigned long)result__RXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TXIH)));
-        ((__POINTER *)next__PXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QXIH)[ 0]=next__PXIH;
+      t__5QFH=((__UINTEGER_32 )typ_id__5UMD);
+      a__4QFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__M5IH=(__UINTEGER_32)((__UINTEGER_32)(sz__2UMD + a__4QFH) & (__UINTEGER_32)(~ a__4QFH));
+      ptr_table__J5IH=((__POINTER )(&(table_type[(t__5QFH)])));
+      lab_type__L5IH=(__UINTEGER_32)(t__5QFH |  1);
+      next__I5IH=((__POINTER )(NULL));
+      result__K5IH=((__POINTER *)ptr_table__J5IH)[ 0];
+      if ((result__K5IH == (void *)NULL)) {
+        result__K5IH=new_lab__MRJ(lab_type__L5IH);
+        next__I5IH=(void *)((unsigned long)result__K5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M5IH)));
+        ((__POINTER *)next__I5IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__J5IH)[ 0]=next__I5IH;
       } else {
-        next__PXIH=((__POINTER *)result__RXIH)[ 0];
-        if ((next__PXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TXIH <<  1)) <=  4096)) {
-            next__PXIH=(void *)((unsigned long)result__RXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TXIH)));
+        next__I5IH=((__POINTER *)result__K5IH)[ 0];
+        if ((next__I5IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__M5IH <<  1)) <=  4096)) {
+            next__I5IH=(void *)((unsigned long)result__K5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M5IH)));
           } else {
-            next__PXIH=new_lab__MRJ(lab_type__SXIH);
+            next__I5IH=new_lab__MRJ(lab_type__L5IH);
           };
-          ((__POINTER *)next__PXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QXIH)[ 0]=next__PXIH;
+          ((__POINTER *)next__I5IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__J5IH)[ 0]=next__I5IH;
         } else {
-          ((__POINTER *)result__RXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__RXIH=next__PXIH;
+          ((__POINTER *)result__K5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I5IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__K5IH=next__I5IH;
         };
       };
-      ptr__0UMD=result__RXIH;
+      ptr__0UMD=result__K5IH;
     };
     result__ZUMD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)ptr__0UMD);
     *(result__ZUMD) = *(FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__);
   };
   Self__KFUD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)result__ZUMD);
   if ((Self__KFUD->parent_arrayed_collection__FKID.capacity__QAUD <  5)) {
-    Self__KFUD->parent_arrayed_collection__FKID.storage__MBUD=create__I0IE( 5);
+    Self__KFUD->parent_arrayed_collection__FKID.storage__MBUD=create__K4IE( 5);
     Self__KFUD->parent_arrayed_collection__FKID.capacity__QAUD= 5;
   };
   Self__KFUD->parent_arrayed_collection__FKID.upper__POTD=(__INTEGER)(-  1);
@@ -5016,7 +5031,7 @@ int main(int argc,char **argv)
   LIP_IF__->then__WDQD=NULL;
   LIP_IF__->else__NEQD=NULL;
   LIP_PRINT__->parent_lip_code__QPYC=(*LIP_CODE__);
-  LIP_PRINT__->message__W5TE=NULL;
+  LIP_PRINT__->message__KEUE=NULL;
   HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__->buckets__CVRD=NULL;
   HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__->capacity__3URD= 0;
   result__KVED=NULL;
@@ -5029,385 +5044,385 @@ int main(int argc,char **argv)
     typ_id__QVED=__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NVED);
     if ((typ_id__QVED == (__INTEGER)(-  1))) {
-      a__1IFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2IFH=(__UINTEGER_32)((__UINTEGER_32)(sz__NVED + a__1IFH) & (__UINTEGER_32)(~ a__1IFH));
-      ptr_table__VXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2IFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__UXIH=((__POINTER )(NULL));
-      result__WXIH=((__POINTER *)ptr_table__VXIH)[ 0];
-      if ((result__WXIH == (void *)NULL)) {
-        result__WXIH=new_lab__MRJ(new_size__2IFH);
-        next__UXIH=(void *)((unsigned long)result__WXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2IFH)));
-        ((__POINTER *)next__UXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VXIH)[ 0]=next__UXIH;
+      a__CRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__DRFH=(__UINTEGER_32)((__UINTEGER_32)(sz__NVED + a__CRFH) & (__UINTEGER_32)(~ a__CRFH));
+      ptr_table__O5IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DRFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__N5IH=((__POINTER )(NULL));
+      result__P5IH=((__POINTER *)ptr_table__O5IH)[ 0];
+      if ((result__P5IH == (void *)NULL)) {
+        result__P5IH=new_lab__MRJ(new_size__DRFH);
+        next__N5IH=(void *)((unsigned long)result__P5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DRFH)));
+        ((__POINTER *)next__N5IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__O5IH)[ 0]=next__N5IH;
       } else {
-        next__UXIH=((__POINTER *)result__WXIH)[ 0];
-        if ((next__UXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2IFH <<  1)) <=  4096)) {
-            next__UXIH=(void *)((unsigned long)result__WXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2IFH)));
+        next__N5IH=((__POINTER *)result__P5IH)[ 0];
+        if ((next__N5IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DRFH <<  1)) <=  4096)) {
+            next__N5IH=(void *)((unsigned long)result__P5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DRFH)));
           } else {
-            next__UXIH=new_lab__MRJ(new_size__2IFH);
+            next__N5IH=new_lab__MRJ(new_size__DRFH);
           };
-          ((__POINTER *)next__UXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VXIH)[ 0]=next__UXIH;
+          ((__POINTER *)next__N5IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__O5IH)[ 0]=next__N5IH;
         } else {
-          ((__POINTER *)result__WXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WXIH=next__UXIH;
+          ((__POINTER *)result__P5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N5IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__P5IH=next__N5IH;
         };
       };
-      ptr__LVED=result__WXIH;
+      ptr__LVED=result__P5IH;
     } else {
-      t__AJFH=((__UINTEGER_32 )typ_id__QVED);
-      a__5IFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__3XIH=(__UINTEGER_32)((__UINTEGER_32)(sz__NVED + a__5IFH) & (__UINTEGER_32)(~ a__5IFH));
-      ptr_table__0XIH=((__POINTER )(&(table_type[(t__AJFH)])));
-      lab_type__2XIH=(__UINTEGER_32)(t__AJFH |  1);
-      next__ZXIH=((__POINTER )(NULL));
-      result__1XIH=((__POINTER *)ptr_table__0XIH)[ 0];
-      if ((result__1XIH == (void *)NULL)) {
-        result__1XIH=new_lab__MRJ(lab_type__2XIH);
-        next__ZXIH=(void *)((unsigned long)result__1XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XIH)));
-        ((__POINTER *)next__ZXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0XIH)[ 0]=next__ZXIH;
+      t__HRFH=((__UINTEGER_32 )typ_id__QVED);
+      a__GRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__W5IH=(__UINTEGER_32)((__UINTEGER_32)(sz__NVED + a__GRFH) & (__UINTEGER_32)(~ a__GRFH));
+      ptr_table__T5IH=((__POINTER )(&(table_type[(t__HRFH)])));
+      lab_type__V5IH=(__UINTEGER_32)(t__HRFH |  1);
+      next__S5IH=((__POINTER )(NULL));
+      result__U5IH=((__POINTER *)ptr_table__T5IH)[ 0];
+      if ((result__U5IH == (void *)NULL)) {
+        result__U5IH=new_lab__MRJ(lab_type__V5IH);
+        next__S5IH=(void *)((unsigned long)result__U5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W5IH)));
+        ((__POINTER *)next__S5IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__T5IH)[ 0]=next__S5IH;
       } else {
-        next__ZXIH=((__POINTER *)result__1XIH)[ 0];
-        if ((next__ZXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1XIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3XIH <<  1)) <=  4096)) {
-            next__ZXIH=(void *)((unsigned long)result__1XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3XIH)));
+        next__S5IH=((__POINTER *)result__U5IH)[ 0];
+        if ((next__S5IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__W5IH <<  1)) <=  4096)) {
+            next__S5IH=(void *)((unsigned long)result__U5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W5IH)));
           } else {
-            next__ZXIH=new_lab__MRJ(lab_type__2XIH);
+            next__S5IH=new_lab__MRJ(lab_type__V5IH);
           };
-          ((__POINTER *)next__ZXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0XIH)[ 0]=next__ZXIH;
+          ((__POINTER *)next__S5IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__T5IH)[ 0]=next__S5IH;
         } else {
-          ((__POINTER *)result__1XIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1XIH=next__ZXIH;
+          ((__POINTER *)result__U5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S5IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__U5IH=next__S5IH;
         };
       };
-      ptr__LVED=result__1XIH;
+      ptr__LVED=result__U5IH;
     };
     result__KVED=((__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *)ptr__LVED);
     *(result__KVED) = *(HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__);
   };
   Self__SLSD=((__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *)result__KVED);
   new_capacity__TAXD=prime_number_ceiling__X41( 193);
-  sz__GBDH=((__UINTEGER_32 )(__INTEGER)(new_capacity__TAXD * ((__INTEGER )(sizeof(void *)))));
-  result__FBDH=((__POINTER )(NULL));
-  a__LBDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__HBDH=(__UINTEGER_32)((__UINTEGER_32)(sz__GBDH + a__LBDH) & (__UINTEGER_32)(~ a__LBDH));
-  new_size2__IBDH=(__UINTEGER_32)(new_size__HBDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__IBDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__DJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__EJFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__IBDH + a__DJFH) & (__UINTEGER_32)(~ a__DJFH));
-    ptr_table__5XIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__4XIH=((__POINTER )(NULL));
-    result__AYIH=((__POINTER *)ptr_table__5XIH)[ 0];
-    if ((result__AYIH == (void *)NULL)) {
-      result__AYIH=new_lab__MRJ(new_size__EJFH);
-      next__4XIH=(void *)((unsigned long)result__AYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EJFH)));
-      ((__POINTER *)next__4XIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__5XIH)[ 0]=next__4XIH;
-    } else {
-      next__4XIH=((__POINTER *)result__AYIH)[ 0];
-      if ((next__4XIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EJFH <<  1)) <=  4096)) {
-          next__4XIH=(void *)((unsigned long)result__AYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EJFH)));
-        } else {
-          next__4XIH=new_lab__MRJ(new_size__EJFH);
-        };
-        ((__POINTER *)next__4XIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__5XIH)[ 0]=next__4XIH;
-      } else {
-        ((__POINTER *)result__AYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4XIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__AYIH=next__4XIH;
-      };
-    };
-    ((__POINTER *)result__AYIH)[ 0]=((__POINTER ) 3);
-    result__FBDH=(void *)((unsigned long)result__AYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__KKDH=((__UINTEGER_32 )(__INTEGER)(new_capacity__TAXD * ((__INTEGER )(sizeof(void *)))));
+  result__JKDH=((__POINTER )(NULL));
+  a__PKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__LKDH=(__UINTEGER_32)((__UINTEGER_32)(sz__KKDH + a__PKDH) & (__UINTEGER_32)(~ a__PKDH));
+  new_size2__MKDH=(__UINTEGER_32)(new_size__LKDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__MKDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__KRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__LRFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__MKDH + a__KRFH) & (__UINTEGER_32)(~ a__KRFH));
+    ptr_table__Y5IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LRFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__X5IH=((__POINTER )(NULL));
+    result__Z5IH=((__POINTER *)ptr_table__Y5IH)[ 0];
+    if ((result__Z5IH == (void *)NULL)) {
+      result__Z5IH=new_lab__MRJ(new_size__LRFH);
+      next__X5IH=(void *)((unsigned long)result__Z5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRFH)));
+      ((__POINTER *)next__X5IH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__Y5IH)[ 0]=next__X5IH;
+    } else {
+      next__X5IH=((__POINTER *)result__Z5IH)[ 0];
+      if ((next__X5IH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LRFH <<  1)) <=  4096)) {
+          next__X5IH=(void *)((unsigned long)result__Z5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRFH)));
+        } else {
+          next__X5IH=new_lab__MRJ(new_size__LRFH);
+        };
+        ((__POINTER *)next__X5IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Y5IH)[ 0]=next__X5IH;
+      } else {
+        ((__POINTER *)result__Z5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X5IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__Z5IH=next__X5IH;
+      };
+    };
+    ((__POINTER *)result__Z5IH)[ 0]=((__POINTER ) 3);
+    result__JKDH=(void *)((unsigned long)result__Z5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__DYIH=first_free__XDVB;
-    while ((((void *)result__DYIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__DYIH)->map_size_and_id__ITB &  4294967292LU) < new_size__HBDH))) {
-      result__DYIH=((__MEMORY *)result__DYIH)->map_next_free__JTB;
+    result__25IH=first_free__XDVB;
+    while ((((void *)result__25IH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__25IH)->map_size_and_id__ITB &  4294967292LU) < new_size__LKDH))) {
+      result__25IH=((__MEMORY *)result__25IH)->map_next_free__JTB;
     };
-    if (((void *)result__DYIH == (void *)NULL)) {
-      result__DYIH=new_page__OA5();
+    if (((void *)result__25IH == (void *)NULL)) {
+      result__25IH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__DYIH,new_size__HBDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__DYIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__FBDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__DYIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__25IH,new_size__LKDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__25IH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__JKDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__25IH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__TRHE=((void **)result__FBDH);
-  Self__5XXE=(__INTEGER)(new_capacity__TAXD -  1);
-  while ((Self__5XXE >=  0)) {
-    Result__TRHE[Self__5XXE]=NULL;
-    Self__5XXE=(__INTEGER)(Self__5XXE -  1);
+  Result__VVHE=((void **)result__JKDH);
+  Self__X2XE=(__INTEGER)(new_capacity__TAXD -  1);
+  while ((Self__X2XE >=  0)) {
+    Result__VVHE[Self__X2XE]=NULL;
+    Self__X2XE=(__INTEGER)(Self__X2XE -  1);
   };
-  Self__SLSD->buckets__CVRD=Result__TRHE;
+  Self__SLSD->buckets__CVRD=Result__VVHE;
   Self__SLSD->capacity__3URD=new_capacity__TAXD;
   list_data__OONC=result__KVED;
-  push_back_flag__NTLF=FALSE__;
-  memory__0ALF='\0';
-  last_integer__JDUE= 0;
-  last_string__1DUE=create__NBB( 1024);
-  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->upper__W0OF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->capacity__3APF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->storage__IBPF=NULL;
-  FAST_ARRAYoLIP_SLOT_DATAo__->parent_arrayed_collection__QEUE=(*ARRAYED_COLLECTIONoLIP_SLOT_DATAo__);
-  result__WSMF=NULL;
-  ptr__XSMF=((__POINTER )(NULL));
-  typ_id__2SMF= 0;
-  sz__ZSMF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_DATAo));
-  if ((sz__ZSMF ==  0)) {
-    result__WSMF=FAST_ARRAYoLIP_SLOT_DATAo__;
+  push_back_flag__3YLF=FALSE__;
+  memory__BGLF='\0';
+  last_integer__3HUE= 0;
+  last_string__PIUE=create__NBB( 1024);
+  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->upper__UAPF= 0;
+  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->capacity__1GPF= 0;
+  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->storage__GHPF=NULL;
+  FAST_ARRAYoLIP_SLOT_DATAo__->parent_arrayed_collection__EJUE=(*ARRAYED_COLLECTIONoLIP_SLOT_DATAo__);
+  result__MYMF=NULL;
+  ptr__NYMF=((__POINTER )(NULL));
+  typ_id__SYMF= 0;
+  sz__PYMF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_DATAo));
+  if ((sz__PYMF ==  0)) {
+    result__MYMF=FAST_ARRAYoLIP_SLOT_DATAo__;
   } else {
-    typ_id__2SMF=__FAST_ARRAYoLIP_SLOT_DATAo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ZSMF);
-    if ((typ_id__2SMF == (__INTEGER)(-  1))) {
-      a__KJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__LJFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSMF + a__KJFH) & (__UINTEGER_32)(~ a__KJFH));
-      ptr_table__HYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__GYIH=((__POINTER )(NULL));
-      result__IYIH=((__POINTER *)ptr_table__HYIH)[ 0];
-      if ((result__IYIH == (void *)NULL)) {
-        result__IYIH=new_lab__MRJ(new_size__LJFH);
-        next__GYIH=(void *)((unsigned long)result__IYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LJFH)));
-        ((__POINTER *)next__GYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__HYIH)[ 0]=next__GYIH;
-      } else {
-        next__GYIH=((__POINTER *)result__IYIH)[ 0];
-        if ((next__GYIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LJFH <<  1)) <=  4096)) {
-            next__GYIH=(void *)((unsigned long)result__IYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LJFH)));
-          } else {
-            next__GYIH=new_lab__MRJ(new_size__LJFH);
-          };
-          ((__POINTER *)next__GYIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HYIH)[ 0]=next__GYIH;
-        } else {
-          ((__POINTER *)result__IYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__IYIH=next__GYIH;
-        };
-      };
-      ptr__XSMF=result__IYIH;
-    } else {
-      t__PJFH=((__UINTEGER_32 )typ_id__2SMF);
-      a__OJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PYIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSMF + a__OJFH) & (__UINTEGER_32)(~ a__OJFH));
-      ptr_table__MYIH=((__POINTER )(&(table_type[(t__PJFH)])));
-      lab_type__OYIH=(__UINTEGER_32)(t__PJFH |  1);
-      next__LYIH=((__POINTER )(NULL));
-      result__NYIH=((__POINTER *)ptr_table__MYIH)[ 0];
-      if ((result__NYIH == (void *)NULL)) {
-        result__NYIH=new_lab__MRJ(lab_type__OYIH);
-        next__LYIH=(void *)((unsigned long)result__NYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PYIH)));
-        ((__POINTER *)next__LYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MYIH)[ 0]=next__LYIH;
-      } else {
-        next__LYIH=((__POINTER *)result__NYIH)[ 0];
-        if ((next__LYIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PYIH <<  1)) <=  4096)) {
-            next__LYIH=(void *)((unsigned long)result__NYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PYIH)));
-          } else {
-            next__LYIH=new_lab__MRJ(lab_type__OYIH);
-          };
-          ((__POINTER *)next__LYIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MYIH)[ 0]=next__LYIH;
-        } else {
-          ((__POINTER *)result__NYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__NYIH=next__LYIH;
-        };
-      };
-      ptr__XSMF=result__NYIH;
-    };
-    result__WSMF=((__FAST_ARRAYoLIP_SLOT_DATAo *)ptr__XSMF);
-    *(result__WSMF) = *(FAST_ARRAYoLIP_SLOT_DATAo__);
-  };
-  Self__UAPF=((__FAST_ARRAYoLIP_SLOT_DATAo *)result__WSMF);
-  if ((Self__UAPF->parent_arrayed_collection__QEUE.capacity__3APF <  8)) {
-    sz__OBDH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) <<  3));
-    result__NBDH=((__POINTER )(NULL));
-    a__TBDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__PBDH=(__UINTEGER_32)((__UINTEGER_32)(sz__OBDH + a__TBDH) & (__UINTEGER_32)(~ a__TBDH));
-    new_size2__QBDH=(__UINTEGER_32)(new_size__PBDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__QBDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__SJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TJFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__QBDH + a__SJFH) & (__UINTEGER_32)(~ a__SJFH));
-      ptr_table__RYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__QYIH=((__POINTER )(NULL));
-      result__SYIH=((__POINTER *)ptr_table__RYIH)[ 0];
-      if ((result__SYIH == (void *)NULL)) {
-        result__SYIH=new_lab__MRJ(new_size__TJFH);
-        next__QYIH=(void *)((unsigned long)result__SYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TJFH)));
-        ((__POINTER *)next__QYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RYIH)[ 0]=next__QYIH;
-      } else {
-        next__QYIH=((__POINTER *)result__SYIH)[ 0];
-        if ((next__QYIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SYIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TJFH <<  1)) <=  4096)) {
-            next__QYIH=(void *)((unsigned long)result__SYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TJFH)));
-          } else {
-            next__QYIH=new_lab__MRJ(new_size__TJFH);
-          };
-          ((__POINTER *)next__QYIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RYIH)[ 0]=next__QYIH;
-        } else {
-          ((__POINTER *)result__SYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__SYIH=next__QYIH;
-        };
-      };
-      ((__POINTER *)result__SYIH)[ 0]=((__POINTER ) 3);
-      result__NBDH=(void *)((unsigned long)result__SYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__VYIH=first_free__XDVB;
-      while ((((void *)result__VYIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__VYIH)->map_size_and_id__ITB &  4294967292LU) < new_size__PBDH))) {
-        result__VYIH=((__MEMORY *)result__VYIH)->map_next_free__JTB;
-      };
-      if (((void *)result__VYIH == (void *)NULL)) {
-        result__VYIH=new_page__OA5();
-      };
-      to_busy__index__TTFC(result__VYIH,new_size__PBDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__VYIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-      result__NBDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__VYIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    Result__42ZF=((void **)result__NBDH);
-    Self__QY4F= 7;
-    while ((Self__QY4F >=  0)) {
-      Result__42ZF[Self__QY4F]=NULL;
-      Self__QY4F=(__INTEGER)(Self__QY4F -  1);
-    };
-    Self__UAPF->parent_arrayed_collection__QEUE.storage__IBPF=Result__42ZF;
-    Self__UAPF->parent_arrayed_collection__QEUE.capacity__3APF= 8;
-  };
-  Self__UAPF->parent_arrayed_collection__QEUE.upper__W0OF=(__INTEGER)(-  1);
-  stack__REUE=result__WSMF;
-  path_file__A2VF=create_with_capacity__BHRC( 3000);
-  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->upper__3XJF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->capacity__41OF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->storage__J2OF=NULL;
-  FAST_ARRAYoLIP_SLOT_CODEo__->parent_arrayed_collection__TXJF=(*ARRAYED_COLLECTIONoLIP_SLOT_CODEo__);
-  result__XDMF=NULL;
-  ptr__YDMF=((__POINTER )(NULL));
-  typ_id__3DMF= 0;
-  sz__0DMF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_CODEo));
-  if ((sz__0DMF ==  0)) {
-    result__XDMF=FAST_ARRAYoLIP_SLOT_CODEo__;
+    typ_id__SYMF=__FAST_ARRAYoLIP_SLOT_DATAo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__PYMF);
+    if ((typ_id__SYMF == (__INTEGER)(-  1))) {
+      a__RRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__SRFH=(__UINTEGER_32)((__UINTEGER_32)(sz__PYMF + a__RRFH) & (__UINTEGER_32)(~ a__RRFH));
+      ptr_table__AAJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SRFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__55IH=((__POINTER )(NULL));
+      result__BAJH=((__POINTER *)ptr_table__AAJH)[ 0];
+      if ((result__BAJH == (void *)NULL)) {
+        result__BAJH=new_lab__MRJ(new_size__SRFH);
+        next__55IH=(void *)((unsigned long)result__BAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SRFH)));
+        ((__POINTER *)next__55IH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__AAJH)[ 0]=next__55IH;
+      } else {
+        next__55IH=((__POINTER *)result__BAJH)[ 0];
+        if ((next__55IH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BAJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SRFH <<  1)) <=  4096)) {
+            next__55IH=(void *)((unsigned long)result__BAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SRFH)));
+          } else {
+            next__55IH=new_lab__MRJ(new_size__SRFH);
+          };
+          ((__POINTER *)next__55IH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__AAJH)[ 0]=next__55IH;
+        } else {
+          ((__POINTER *)result__BAJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__55IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__BAJH=next__55IH;
+        };
+      };
+      ptr__NYMF=result__BAJH;
+    } else {
+      t__WRFH=((__UINTEGER_32 )typ_id__SYMF);
+      a__VRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__IAJH=(__UINTEGER_32)((__UINTEGER_32)(sz__PYMF + a__VRFH) & (__UINTEGER_32)(~ a__VRFH));
+      ptr_table__FAJH=((__POINTER )(&(table_type[(t__WRFH)])));
+      lab_type__HAJH=(__UINTEGER_32)(t__WRFH |  1);
+      next__EAJH=((__POINTER )(NULL));
+      result__GAJH=((__POINTER *)ptr_table__FAJH)[ 0];
+      if ((result__GAJH == (void *)NULL)) {
+        result__GAJH=new_lab__MRJ(lab_type__HAJH);
+        next__EAJH=(void *)((unsigned long)result__GAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAJH)));
+        ((__POINTER *)next__EAJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__FAJH)[ 0]=next__EAJH;
+      } else {
+        next__EAJH=((__POINTER *)result__GAJH)[ 0];
+        if ((next__EAJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GAJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IAJH <<  1)) <=  4096)) {
+            next__EAJH=(void *)((unsigned long)result__GAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAJH)));
+          } else {
+            next__EAJH=new_lab__MRJ(lab_type__HAJH);
+          };
+          ((__POINTER *)next__EAJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__FAJH)[ 0]=next__EAJH;
+        } else {
+          ((__POINTER *)result__GAJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EAJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__GAJH=next__EAJH;
+        };
+      };
+      ptr__NYMF=result__GAJH;
+    };
+    result__MYMF=((__FAST_ARRAYoLIP_SLOT_DATAo *)ptr__NYMF);
+    *(result__MYMF) = *(FAST_ARRAYoLIP_SLOT_DATAo__);
+  };
+  Self__SGPF=((__FAST_ARRAYoLIP_SLOT_DATAo *)result__MYMF);
+  if ((Self__SGPF->parent_arrayed_collection__EJUE.capacity__1GPF <  8)) {
+    sz__SKDH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) <<  3));
+    result__RKDH=((__POINTER )(NULL));
+    a__XKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__TKDH=(__UINTEGER_32)((__UINTEGER_32)(sz__SKDH + a__XKDH) & (__UINTEGER_32)(~ a__XKDH));
+    new_size2__UKDH=(__UINTEGER_32)(new_size__TKDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+    if ((new_size2__UKDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+      a__ZRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__0RFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__UKDH + a__ZRFH) & (__UINTEGER_32)(~ a__ZRFH));
+      ptr_table__KAJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0RFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__JAJH=((__POINTER )(NULL));
+      result__LAJH=((__POINTER *)ptr_table__KAJH)[ 0];
+      if ((result__LAJH == (void *)NULL)) {
+        result__LAJH=new_lab__MRJ(new_size__0RFH);
+        next__JAJH=(void *)((unsigned long)result__LAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RFH)));
+        ((__POINTER *)next__JAJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__KAJH)[ 0]=next__JAJH;
+      } else {
+        next__JAJH=((__POINTER *)result__LAJH)[ 0];
+        if ((next__JAJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LAJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0RFH <<  1)) <=  4096)) {
+            next__JAJH=(void *)((unsigned long)result__LAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RFH)));
+          } else {
+            next__JAJH=new_lab__MRJ(new_size__0RFH);
+          };
+          ((__POINTER *)next__JAJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__KAJH)[ 0]=next__JAJH;
+        } else {
+          ((__POINTER *)result__LAJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JAJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__LAJH=next__JAJH;
+        };
+      };
+      ((__POINTER *)result__LAJH)[ 0]=((__POINTER ) 3);
+      result__RKDH=(void *)((unsigned long)result__LAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+    } else {
+      result__OAJH=first_free__XDVB;
+      while ((((void *)result__OAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__OAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__TKDH))) {
+        result__OAJH=((__MEMORY *)result__OAJH)->map_next_free__JTB;
+      };
+      if (((void *)result__OAJH == (void *)NULL)) {
+        result__OAJH=new_page__OA5();
+      };
+      to_busy__index__TTFC(result__OAJH,new_size__TKDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__OAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+      result__RKDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__OAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    };
+    Result__EG0F=((void **)result__RKDH);
+    Self__GC5F= 7;
+    while ((Self__GC5F >=  0)) {
+      Result__EG0F[Self__GC5F]=NULL;
+      Self__GC5F=(__INTEGER)(Self__GC5F -  1);
+    };
+    Self__SGPF->parent_arrayed_collection__EJUE.storage__GHPF=Result__EG0F;
+    Self__SGPF->parent_arrayed_collection__EJUE.capacity__1GPF= 8;
+  };
+  Self__SGPF->parent_arrayed_collection__EJUE.upper__UAPF=(__INTEGER)(-  1);
+  stack__FJUE=result__MYMF;
+  path_file__PDWF=create_with_capacity__BHRC( 3000);
+  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->upper__C3JF= 0;
+  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->capacity__2BPF= 0;
+  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->storage__HCPF=NULL;
+  FAST_ARRAYoLIP_SLOT_CODEo__->parent_arrayed_collection__Y2JF=(*ARRAYED_COLLECTIONoLIP_SLOT_CODEo__);
+  result__LJMF=NULL;
+  ptr__MJMF=((__POINTER )(NULL));
+  typ_id__RJMF= 0;
+  sz__OJMF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_CODEo));
+  if ((sz__OJMF ==  0)) {
+    result__LJMF=FAST_ARRAYoLIP_SLOT_CODEo__;
   } else {
-    typ_id__3DMF=__FAST_ARRAYoLIP_SLOT_CODEo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__0DMF);
-    if ((typ_id__3DMF == (__INTEGER)(-  1))) {
-      a__ZJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0JFH=(__UINTEGER_32)((__UINTEGER_32)(sz__0DMF + a__ZJFH) & (__UINTEGER_32)(~ a__ZJFH));
-      ptr_table__ZYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0JFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__YYIH=((__POINTER )(NULL));
-      result__0YIH=((__POINTER *)ptr_table__ZYIH)[ 0];
-      if ((result__0YIH == (void *)NULL)) {
-        result__0YIH=new_lab__MRJ(new_size__0JFH);
-        next__YYIH=(void *)((unsigned long)result__0YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JFH)));
-        ((__POINTER *)next__YYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZYIH)[ 0]=next__YYIH;
-      } else {
-        next__YYIH=((__POINTER *)result__0YIH)[ 0];
-        if ((next__YYIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0YIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0JFH <<  1)) <=  4096)) {
-            next__YYIH=(void *)((unsigned long)result__0YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JFH)));
-          } else {
-            next__YYIH=new_lab__MRJ(new_size__0JFH);
-          };
-          ((__POINTER *)next__YYIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZYIH)[ 0]=next__YYIH;
-        } else {
-          ((__POINTER *)result__0YIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__0YIH=next__YYIH;
-        };
-      };
-      ptr__YDMF=result__0YIH;
-    } else {
-      t__4JFH=((__UINTEGER_32 )typ_id__3DMF);
-      a__3JFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__BZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__0DMF + a__3JFH) & (__UINTEGER_32)(~ a__3JFH));
-      ptr_table__4YIH=((__POINTER )(&(table_type[(t__4JFH)])));
-      lab_type__AZIH=(__UINTEGER_32)(t__4JFH |  1);
-      next__3YIH=((__POINTER )(NULL));
-      result__5YIH=((__POINTER *)ptr_table__4YIH)[ 0];
-      if ((result__5YIH == (void *)NULL)) {
-        result__5YIH=new_lab__MRJ(lab_type__AZIH);
-        next__3YIH=(void *)((unsigned long)result__5YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BZIH)));
-        ((__POINTER *)next__3YIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4YIH)[ 0]=next__3YIH;
-      } else {
-        next__3YIH=((__POINTER *)result__5YIH)[ 0];
-        if ((next__3YIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5YIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BZIH <<  1)) <=  4096)) {
-            next__3YIH=(void *)((unsigned long)result__5YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BZIH)));
-          } else {
-            next__3YIH=new_lab__MRJ(lab_type__AZIH);
-          };
-          ((__POINTER *)next__3YIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4YIH)[ 0]=next__3YIH;
-        } else {
-          ((__POINTER *)result__5YIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3YIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5YIH=next__3YIH;
-        };
-      };
-      ptr__YDMF=result__5YIH;
-    };
-    result__XDMF=((__FAST_ARRAYoLIP_SLOT_CODEo *)ptr__YDMF);
-    *(result__XDMF) = *(FAST_ARRAYoLIP_SLOT_CODEo__);
-  };
-  Self__V1OF=((__FAST_ARRAYoLIP_SLOT_CODEo *)result__XDMF);
-  if ((Self__V1OF->parent_arrayed_collection__TXJF.capacity__41OF <  32)) {
-    sz__WBDH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) <<  5));
-    result__VBDH=((__POINTER )(NULL));
-    a__1BDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__XBDH=(__UINTEGER_32)((__UINTEGER_32)(sz__WBDH + a__1BDH) & (__UINTEGER_32)(~ a__1BDH));
-    new_size2__YBDH=(__UINTEGER_32)(new_size__XBDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__YBDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__BKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__CKFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__YBDH + a__BKFH) & (__UINTEGER_32)(~ a__BKFH));
-      ptr_table__DZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__CZIH=((__POINTER )(NULL));
-      result__EZIH=((__POINTER *)ptr_table__DZIH)[ 0];
-      if ((result__EZIH == (void *)NULL)) {
-        result__EZIH=new_lab__MRJ(new_size__CKFH);
-        next__CZIH=(void *)((unsigned long)result__EZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CKFH)));
-        ((__POINTER *)next__CZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DZIH)[ 0]=next__CZIH;
-      } else {
-        next__CZIH=((__POINTER *)result__EZIH)[ 0];
-        if ((next__CZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CKFH <<  1)) <=  4096)) {
-            next__CZIH=(void *)((unsigned long)result__EZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CKFH)));
-          } else {
-            next__CZIH=new_lab__MRJ(new_size__CKFH);
-          };
-          ((__POINTER *)next__CZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DZIH)[ 0]=next__CZIH;
-        } else {
-          ((__POINTER *)result__EZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__EZIH=next__CZIH;
-        };
-      };
-      ((__POINTER *)result__EZIH)[ 0]=((__POINTER ) 3);
-      result__VBDH=(void *)((unsigned long)result__EZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__HZIH=first_free__XDVB;
-      while ((((void *)result__HZIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__HZIH)->map_size_and_id__ITB &  4294967292LU) < new_size__XBDH))) {
-        result__HZIH=((__MEMORY *)result__HZIH)->map_next_free__JTB;
-      };
-      if (((void *)result__HZIH == (void *)NULL)) {
-        result__HZIH=new_page__OA5();
-      };
-      to_busy__index__TTFC(result__HZIH,new_size__XBDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__HZIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-      result__VBDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HZIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    Result__FYZF=((void **)result__VBDH);
-    Self__JX4F= 31;
-    while ((Self__JX4F >=  0)) {
-      Result__FYZF[Self__JX4F]=NULL;
-      Self__JX4F=(__INTEGER)(Self__JX4F -  1);
-    };
-    Self__V1OF->parent_arrayed_collection__TXJF.storage__J2OF=Result__FYZF;
-    Self__V1OF->parent_arrayed_collection__TXJF.capacity__41OF= 32;
-  };
-  Self__V1OF->parent_arrayed_collection__TXJF.upper__3XJF=(__INTEGER)(-  1);
-  list_method__UXJF=result__XDMF;
+    typ_id__RJMF=__FAST_ARRAYoLIP_SLOT_CODEo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OJMF);
+    if ((typ_id__RJMF == (__INTEGER)(-  1))) {
+      a__ASFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__BSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__OJMF + a__ASFH) & (__UINTEGER_32)(~ a__ASFH));
+      ptr_table__SAJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__RAJH=((__POINTER )(NULL));
+      result__TAJH=((__POINTER *)ptr_table__SAJH)[ 0];
+      if ((result__TAJH == (void *)NULL)) {
+        result__TAJH=new_lab__MRJ(new_size__BSFH);
+        next__RAJH=(void *)((unsigned long)result__TAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BSFH)));
+        ((__POINTER *)next__RAJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__SAJH)[ 0]=next__RAJH;
+      } else {
+        next__RAJH=((__POINTER *)result__TAJH)[ 0];
+        if ((next__RAJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TAJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BSFH <<  1)) <=  4096)) {
+            next__RAJH=(void *)((unsigned long)result__TAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BSFH)));
+          } else {
+            next__RAJH=new_lab__MRJ(new_size__BSFH);
+          };
+          ((__POINTER *)next__RAJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__SAJH)[ 0]=next__RAJH;
+        } else {
+          ((__POINTER *)result__TAJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RAJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__TAJH=next__RAJH;
+        };
+      };
+      ptr__MJMF=result__TAJH;
+    } else {
+      t__FSFH=((__UINTEGER_32 )typ_id__RJMF);
+      a__ESFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__0AJH=(__UINTEGER_32)((__UINTEGER_32)(sz__OJMF + a__ESFH) & (__UINTEGER_32)(~ a__ESFH));
+      ptr_table__XAJH=((__POINTER )(&(table_type[(t__FSFH)])));
+      lab_type__ZAJH=(__UINTEGER_32)(t__FSFH |  1);
+      next__WAJH=((__POINTER )(NULL));
+      result__YAJH=((__POINTER *)ptr_table__XAJH)[ 0];
+      if ((result__YAJH == (void *)NULL)) {
+        result__YAJH=new_lab__MRJ(lab_type__ZAJH);
+        next__WAJH=(void *)((unsigned long)result__YAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0AJH)));
+        ((__POINTER *)next__WAJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__XAJH)[ 0]=next__WAJH;
+      } else {
+        next__WAJH=((__POINTER *)result__YAJH)[ 0];
+        if ((next__WAJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YAJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0AJH <<  1)) <=  4096)) {
+            next__WAJH=(void *)((unsigned long)result__YAJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0AJH)));
+          } else {
+            next__WAJH=new_lab__MRJ(lab_type__ZAJH);
+          };
+          ((__POINTER *)next__WAJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__XAJH)[ 0]=next__WAJH;
+        } else {
+          ((__POINTER *)result__YAJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WAJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__YAJH=next__WAJH;
+        };
+      };
+      ptr__MJMF=result__YAJH;
+    };
+    result__LJMF=((__FAST_ARRAYoLIP_SLOT_CODEo *)ptr__MJMF);
+    *(result__LJMF) = *(FAST_ARRAYoLIP_SLOT_CODEo__);
+  };
+  Self__TBPF=((__FAST_ARRAYoLIP_SLOT_CODEo *)result__LJMF);
+  if ((Self__TBPF->parent_arrayed_collection__Y2JF.capacity__2BPF <  32)) {
+    sz__0KDH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) <<  5));
+    result__ZKDH=((__POINTER )(NULL));
+    a__5KDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__1KDH=(__UINTEGER_32)((__UINTEGER_32)(sz__0KDH + a__5KDH) & (__UINTEGER_32)(~ a__5KDH));
+    new_size2__2KDH=(__UINTEGER_32)(new_size__1KDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+    if ((new_size2__2KDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+      a__ISFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__JSFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__2KDH + a__ISFH) & (__UINTEGER_32)(~ a__ISFH));
+      ptr_table__2AJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__1AJH=((__POINTER )(NULL));
+      result__3AJH=((__POINTER *)ptr_table__2AJH)[ 0];
+      if ((result__3AJH == (void *)NULL)) {
+        result__3AJH=new_lab__MRJ(new_size__JSFH);
+        next__1AJH=(void *)((unsigned long)result__3AJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JSFH)));
+        ((__POINTER *)next__1AJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__2AJH)[ 0]=next__1AJH;
+      } else {
+        next__1AJH=((__POINTER *)result__3AJH)[ 0];
+        if ((next__1AJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3AJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JSFH <<  1)) <=  4096)) {
+            next__1AJH=(void *)((unsigned long)result__3AJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JSFH)));
+          } else {
+            next__1AJH=new_lab__MRJ(new_size__JSFH);
+          };
+          ((__POINTER *)next__1AJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__2AJH)[ 0]=next__1AJH;
+        } else {
+          ((__POINTER *)result__3AJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1AJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__3AJH=next__1AJH;
+        };
+      };
+      ((__POINTER *)result__3AJH)[ 0]=((__POINTER ) 3);
+      result__ZKDH=(void *)((unsigned long)result__3AJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+    } else {
+      result__ABJH=first_free__XDVB;
+      while ((((void *)result__ABJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__ABJH)->map_size_and_id__ITB &  4294967292LU) < new_size__1KDH))) {
+        result__ABJH=((__MEMORY *)result__ABJH)->map_next_free__JTB;
+      };
+      if (((void *)result__ABJH == (void *)NULL)) {
+        result__ABJH=new_page__OA5();
+      };
+      to_busy__index__TTFC(result__ABJH,new_size__1KDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__ABJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+      result__ZKDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ABJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    };
+    Result__LB0F=((void **)result__ZKDH);
+    Self__5A5F= 31;
+    while ((Self__5A5F >=  0)) {
+      Result__LB0F[Self__5A5F]=NULL;
+      Self__5A5F=(__INTEGER)(Self__5A5F -  1);
+    };
+    Self__TBPF->parent_arrayed_collection__Y2JF.storage__HCPF=Result__LB0F;
+    Self__TBPF->parent_arrayed_collection__Y2JF.capacity__2BPF= 32;
+  };
+  Self__TBPF->parent_arrayed_collection__Y2JF.upper__C3JF=(__INTEGER)(-  1);
+  list_method__Z2JF=result__LJMF;
   HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->buckets__CPEC=NULL;
   HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->capacity__3OEC= 0;
   HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->count__5YFC= 0;
@@ -5421,61 +5436,61 @@ int main(int argc,char **argv)
     typ_id__K3YB=__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__H3YB);
     if ((typ_id__K3YB == (__INTEGER)(-  1))) {
-      a__IKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__JKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__H3YB + a__IKFH) & (__UINTEGER_32)(~ a__IKFH));
-      ptr_table__LZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__KZIH=((__POINTER )(NULL));
-      result__MZIH=((__POINTER *)ptr_table__LZIH)[ 0];
-      if ((result__MZIH == (void *)NULL)) {
-        result__MZIH=new_lab__MRJ(new_size__JKFH);
-        next__KZIH=(void *)((unsigned long)result__MZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKFH)));
-        ((__POINTER *)next__KZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LZIH)[ 0]=next__KZIH;
+      a__PSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__QSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__H3YB + a__PSFH) & (__UINTEGER_32)(~ a__PSFH));
+      ptr_table__EBJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__DBJH=((__POINTER )(NULL));
+      result__FBJH=((__POINTER *)ptr_table__EBJH)[ 0];
+      if ((result__FBJH == (void *)NULL)) {
+        result__FBJH=new_lab__MRJ(new_size__QSFH);
+        next__DBJH=(void *)((unsigned long)result__FBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QSFH)));
+        ((__POINTER *)next__DBJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__EBJH)[ 0]=next__DBJH;
       } else {
-        next__KZIH=((__POINTER *)result__MZIH)[ 0];
-        if ((next__KZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JKFH <<  1)) <=  4096)) {
-            next__KZIH=(void *)((unsigned long)result__MZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKFH)));
+        next__DBJH=((__POINTER *)result__FBJH)[ 0];
+        if ((next__DBJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FBJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QSFH <<  1)) <=  4096)) {
+            next__DBJH=(void *)((unsigned long)result__FBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QSFH)));
           } else {
-            next__KZIH=new_lab__MRJ(new_size__JKFH);
+            next__DBJH=new_lab__MRJ(new_size__QSFH);
           };
-          ((__POINTER *)next__KZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LZIH)[ 0]=next__KZIH;
+          ((__POINTER *)next__DBJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__EBJH)[ 0]=next__DBJH;
         } else {
-          ((__POINTER *)result__MZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__MZIH=next__KZIH;
+          ((__POINTER *)result__FBJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DBJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__FBJH=next__DBJH;
         };
       };
-      ptr__F3YB=result__MZIH;
+      ptr__F3YB=result__FBJH;
     } else {
-      t__NKFH=((__UINTEGER_32 )typ_id__K3YB);
-      a__MKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__H3YB + a__MKFH) & (__UINTEGER_32)(~ a__MKFH));
-      ptr_table__QZIH=((__POINTER )(&(table_type[(t__NKFH)])));
-      lab_type__SZIH=(__UINTEGER_32)(t__NKFH |  1);
-      next__PZIH=((__POINTER )(NULL));
-      result__RZIH=((__POINTER *)ptr_table__QZIH)[ 0];
-      if ((result__RZIH == (void *)NULL)) {
-        result__RZIH=new_lab__MRJ(lab_type__SZIH);
-        next__PZIH=(void *)((unsigned long)result__RZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TZIH)));
-        ((__POINTER *)next__PZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QZIH)[ 0]=next__PZIH;
+      t__USFH=((__UINTEGER_32 )typ_id__K3YB);
+      a__TSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__MBJH=(__UINTEGER_32)((__UINTEGER_32)(sz__H3YB + a__TSFH) & (__UINTEGER_32)(~ a__TSFH));
+      ptr_table__JBJH=((__POINTER )(&(table_type[(t__USFH)])));
+      lab_type__LBJH=(__UINTEGER_32)(t__USFH |  1);
+      next__IBJH=((__POINTER )(NULL));
+      result__KBJH=((__POINTER *)ptr_table__JBJH)[ 0];
+      if ((result__KBJH == (void *)NULL)) {
+        result__KBJH=new_lab__MRJ(lab_type__LBJH);
+        next__IBJH=(void *)((unsigned long)result__KBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MBJH)));
+        ((__POINTER *)next__IBJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__JBJH)[ 0]=next__IBJH;
       } else {
-        next__PZIH=((__POINTER *)result__RZIH)[ 0];
-        if ((next__PZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TZIH <<  1)) <=  4096)) {
-            next__PZIH=(void *)((unsigned long)result__RZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TZIH)));
+        next__IBJH=((__POINTER *)result__KBJH)[ 0];
+        if ((next__IBJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KBJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MBJH <<  1)) <=  4096)) {
+            next__IBJH=(void *)((unsigned long)result__KBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MBJH)));
           } else {
-            next__PZIH=new_lab__MRJ(lab_type__SZIH);
+            next__IBJH=new_lab__MRJ(lab_type__LBJH);
           };
-          ((__POINTER *)next__PZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QZIH)[ 0]=next__PZIH;
+          ((__POINTER *)next__IBJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__JBJH)[ 0]=next__IBJH;
         } else {
-          ((__POINTER *)result__RZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__RZIH=next__PZIH;
+          ((__POINTER *)result__KBJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IBJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__KBJH=next__IBJH;
         };
       };
-      ptr__F3YB=result__RZIH;
+      ptr__F3YB=result__KBJH;
     };
     result__E3YB=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)ptr__F3YB);
     *(result__E3YB) = *(HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__);
@@ -5490,6 +5505,7 @@ int main(int argc,char **argv)
   HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->next__ZPEC=NULL;
   HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->item__BQEC=NULL;
   SECTION___->name__CZDC=NULL;
+  SECTION___->type_list__RXFC=NULL;
   last_section__X0C=NULL;
   PROTOTYPE__->last_slot__O1C=NULL;
   HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->buckets__IREC=NULL;
@@ -5505,61 +5521,61 @@ int main(int argc,char **argv)
     typ_id__PAZB=__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__MAZB);
     if ((typ_id__PAZB == (__INTEGER)(-  1))) {
-      a__QKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__RKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MAZB + a__QKFH) & (__UINTEGER_32)(~ a__QKFH));
-      ptr_table__VZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__UZIH=((__POINTER )(NULL));
-      result__WZIH=((__POINTER *)ptr_table__VZIH)[ 0];
-      if ((result__WZIH == (void *)NULL)) {
-        result__WZIH=new_lab__MRJ(new_size__RKFH);
-        next__UZIH=(void *)((unsigned long)result__WZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RKFH)));
-        ((__POINTER *)next__UZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VZIH)[ 0]=next__UZIH;
+      a__XSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__YSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MAZB + a__XSFH) & (__UINTEGER_32)(~ a__XSFH));
+      ptr_table__OBJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__NBJH=((__POINTER )(NULL));
+      result__PBJH=((__POINTER *)ptr_table__OBJH)[ 0];
+      if ((result__PBJH == (void *)NULL)) {
+        result__PBJH=new_lab__MRJ(new_size__YSFH);
+        next__NBJH=(void *)((unsigned long)result__PBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YSFH)));
+        ((__POINTER *)next__NBJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__OBJH)[ 0]=next__NBJH;
       } else {
-        next__UZIH=((__POINTER *)result__WZIH)[ 0];
-        if ((next__UZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RKFH <<  1)) <=  4096)) {
-            next__UZIH=(void *)((unsigned long)result__WZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RKFH)));
+        next__NBJH=((__POINTER *)result__PBJH)[ 0];
+        if ((next__NBJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PBJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YSFH <<  1)) <=  4096)) {
+            next__NBJH=(void *)((unsigned long)result__PBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YSFH)));
           } else {
-            next__UZIH=new_lab__MRJ(new_size__RKFH);
+            next__NBJH=new_lab__MRJ(new_size__YSFH);
           };
-          ((__POINTER *)next__UZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VZIH)[ 0]=next__UZIH;
+          ((__POINTER *)next__NBJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__OBJH)[ 0]=next__NBJH;
         } else {
-          ((__POINTER *)result__WZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WZIH=next__UZIH;
+          ((__POINTER *)result__PBJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NBJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__PBJH=next__NBJH;
         };
       };
-      ptr__KAZB=result__WZIH;
+      ptr__KAZB=result__PBJH;
     } else {
-      t__VKFH=((__UINTEGER_32 )typ_id__PAZB);
-      a__UKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__3ZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__MAZB + a__UKFH) & (__UINTEGER_32)(~ a__UKFH));
-      ptr_table__0ZIH=((__POINTER )(&(table_type[(t__VKFH)])));
-      lab_type__2ZIH=(__UINTEGER_32)(t__VKFH |  1);
-      next__ZZIH=((__POINTER )(NULL));
-      result__1ZIH=((__POINTER *)ptr_table__0ZIH)[ 0];
-      if ((result__1ZIH == (void *)NULL)) {
-        result__1ZIH=new_lab__MRJ(lab_type__2ZIH);
-        next__ZZIH=(void *)((unsigned long)result__1ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZIH)));
-        ((__POINTER *)next__ZZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0ZIH)[ 0]=next__ZZIH;
+      t__2SFH=((__UINTEGER_32 )typ_id__PAZB);
+      a__1SFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__WBJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MAZB + a__1SFH) & (__UINTEGER_32)(~ a__1SFH));
+      ptr_table__TBJH=((__POINTER )(&(table_type[(t__2SFH)])));
+      lab_type__VBJH=(__UINTEGER_32)(t__2SFH |  1);
+      next__SBJH=((__POINTER )(NULL));
+      result__UBJH=((__POINTER *)ptr_table__TBJH)[ 0];
+      if ((result__UBJH == (void *)NULL)) {
+        result__UBJH=new_lab__MRJ(lab_type__VBJH);
+        next__SBJH=(void *)((unsigned long)result__UBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBJH)));
+        ((__POINTER *)next__SBJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__TBJH)[ 0]=next__SBJH;
       } else {
-        next__ZZIH=((__POINTER *)result__1ZIH)[ 0];
-        if ((next__ZZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1ZIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3ZIH <<  1)) <=  4096)) {
-            next__ZZIH=(void *)((unsigned long)result__1ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZIH)));
+        next__SBJH=((__POINTER *)result__UBJH)[ 0];
+        if ((next__SBJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UBJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WBJH <<  1)) <=  4096)) {
+            next__SBJH=(void *)((unsigned long)result__UBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBJH)));
           } else {
-            next__ZZIH=new_lab__MRJ(lab_type__2ZIH);
+            next__SBJH=new_lab__MRJ(lab_type__VBJH);
           };
-          ((__POINTER *)next__ZZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0ZIH)[ 0]=next__ZZIH;
+          ((__POINTER *)next__SBJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__TBJH)[ 0]=next__SBJH;
         } else {
-          ((__POINTER *)result__1ZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1ZIH=next__ZZIH;
+          ((__POINTER *)result__UBJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SBJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__UBJH=next__SBJH;
         };
       };
-      ptr__KAZB=result__1ZIH;
+      ptr__KAZB=result__UBJH;
     };
     result__JAZB=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__KAZB);
     *(result__JAZB) = *(HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
@@ -5591,61 +5607,61 @@ int main(int argc,char **argv)
     typ_id__JK5B=__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GK5B);
     if ((typ_id__JK5B == (__INTEGER)(-  1))) {
-      a__YKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ZKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__GK5B + a__YKFH) & (__UINTEGER_32)(~ a__YKFH));
-      ptr_table__5ZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__4ZIH=((__POINTER )(NULL));
-      result__A0IH=((__POINTER *)ptr_table__5ZIH)[ 0];
-      if ((result__A0IH == (void *)NULL)) {
-        result__A0IH=new_lab__MRJ(new_size__ZKFH);
-        next__4ZIH=(void *)((unsigned long)result__A0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZKFH)));
-        ((__POINTER *)next__4ZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__5ZIH)[ 0]=next__4ZIH;
+      a__5SFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__ATFH=(__UINTEGER_32)((__UINTEGER_32)(sz__GK5B + a__5SFH) & (__UINTEGER_32)(~ a__5SFH));
+      ptr_table__YBJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ATFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__XBJH=((__POINTER )(NULL));
+      result__ZBJH=((__POINTER *)ptr_table__YBJH)[ 0];
+      if ((result__ZBJH == (void *)NULL)) {
+        result__ZBJH=new_lab__MRJ(new_size__ATFH);
+        next__XBJH=(void *)((unsigned long)result__ZBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ATFH)));
+        ((__POINTER *)next__XBJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__YBJH)[ 0]=next__XBJH;
       } else {
-        next__4ZIH=((__POINTER *)result__A0IH)[ 0];
-        if ((next__4ZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZKFH <<  1)) <=  4096)) {
-            next__4ZIH=(void *)((unsigned long)result__A0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZKFH)));
+        next__XBJH=((__POINTER *)result__ZBJH)[ 0];
+        if ((next__XBJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZBJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ATFH <<  1)) <=  4096)) {
+            next__XBJH=(void *)((unsigned long)result__ZBJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ATFH)));
           } else {
-            next__4ZIH=new_lab__MRJ(new_size__ZKFH);
+            next__XBJH=new_lab__MRJ(new_size__ATFH);
           };
-          ((__POINTER *)next__4ZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5ZIH)[ 0]=next__4ZIH;
+          ((__POINTER *)next__XBJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__YBJH)[ 0]=next__XBJH;
         } else {
-          ((__POINTER *)result__A0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4ZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__A0IH=next__4ZIH;
+          ((__POINTER *)result__ZBJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XBJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__ZBJH=next__XBJH;
         };
       };
-      ptr__EK5B=result__A0IH;
+      ptr__EK5B=result__ZBJH;
     } else {
-      t__3KFH=((__UINTEGER_32 )typ_id__JK5B);
-      a__2KFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__H0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__GK5B + a__2KFH) & (__UINTEGER_32)(~ a__2KFH));
-      ptr_table__E0IH=((__POINTER )(&(table_type[(t__3KFH)])));
-      lab_type__G0IH=(__UINTEGER_32)(t__3KFH |  1);
-      next__D0IH=((__POINTER )(NULL));
-      result__F0IH=((__POINTER *)ptr_table__E0IH)[ 0];
-      if ((result__F0IH == (void *)NULL)) {
-        result__F0IH=new_lab__MRJ(lab_type__G0IH);
-        next__D0IH=(void *)((unsigned long)result__F0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H0IH)));
-        ((__POINTER *)next__D0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__E0IH)[ 0]=next__D0IH;
+      t__ETFH=((__UINTEGER_32 )typ_id__JK5B);
+      a__DTFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__ACJH=(__UINTEGER_32)((__UINTEGER_32)(sz__GK5B + a__DTFH) & (__UINTEGER_32)(~ a__DTFH));
+      ptr_table__3BJH=((__POINTER )(&(table_type[(t__ETFH)])));
+      lab_type__5BJH=(__UINTEGER_32)(t__ETFH |  1);
+      next__2BJH=((__POINTER )(NULL));
+      result__4BJH=((__POINTER *)ptr_table__3BJH)[ 0];
+      if ((result__4BJH == (void *)NULL)) {
+        result__4BJH=new_lab__MRJ(lab_type__5BJH);
+        next__2BJH=(void *)((unsigned long)result__4BJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACJH)));
+        ((__POINTER *)next__2BJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__3BJH)[ 0]=next__2BJH;
       } else {
-        next__D0IH=((__POINTER *)result__F0IH)[ 0];
-        if ((next__D0IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__H0IH <<  1)) <=  4096)) {
-            next__D0IH=(void *)((unsigned long)result__F0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H0IH)));
+        next__2BJH=((__POINTER *)result__4BJH)[ 0];
+        if ((next__2BJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4BJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ACJH <<  1)) <=  4096)) {
+            next__2BJH=(void *)((unsigned long)result__4BJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACJH)));
           } else {
-            next__D0IH=new_lab__MRJ(lab_type__G0IH);
+            next__2BJH=new_lab__MRJ(lab_type__5BJH);
           };
-          ((__POINTER *)next__D0IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__E0IH)[ 0]=next__D0IH;
+          ((__POINTER *)next__2BJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__3BJH)[ 0]=next__2BJH;
         } else {
-          ((__POINTER *)result__F0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__F0IH=next__D0IH;
+          ((__POINTER *)result__4BJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2BJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__4BJH=next__2BJH;
         };
       };
-      ptr__EK5B=result__F0IH;
+      ptr__EK5B=result__4BJH;
     };
     result__DK5B=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)ptr__EK5B);
     *(result__DK5B) = *(FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__);
@@ -5663,86 +5679,86 @@ int main(int argc,char **argv)
   HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->next__0BGC=NULL;
   HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->item__CCGC=NULL;
   PROTOTYPE__->first_slot__CGZB=NULL;
-  ARRAYED_COLLECTIONoITM_SLOTo__->upper__21XD= 0;
-  ARRAYED_COLLECTIONoITM_SLOTo__->capacity__SMVE= 0;
-  ARRAYED_COLLECTIONoITM_SLOTo__->storage__MZVE=NULL;
+  ARRAYED_COLLECTIONoITM_SLOTo__->upper__M2XD= 0;
+  ARRAYED_COLLECTIONoITM_SLOTo__->capacity__GRVE= 0;
+  ARRAYED_COLLECTIONoITM_SLOTo__->storage__A4VE=NULL;
   FAST_ARRAYoITM_SLOTo__->parent_arrayed_collection__4JTD=(*ARRAYED_COLLECTIONoITM_SLOTo__);
-  result__25HE=NULL;
-  ptr__35HE=((__POINTER )(NULL));
-  typ_id__CAIE= 0;
-  sz__55HE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_SLOTo));
-  if ((sz__55HE ==  0)) {
-    result__25HE=FAST_ARRAYoITM_SLOTo__;
+  result__4DIE=NULL;
+  ptr__5DIE=((__POINTER )(NULL));
+  typ_id__EEIE= 0;
+  sz__BEIE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_SLOTo));
+  if ((sz__BEIE ==  0)) {
+    result__4DIE=FAST_ARRAYoITM_SLOTo__;
   } else {
-    typ_id__CAIE=__FAST_ARRAYoITM_SLOTo__;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__55HE);
-    if ((typ_id__CAIE == (__INTEGER)(-  1))) {
-      a__ALFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__BLFH=(__UINTEGER_32)((__UINTEGER_32)(sz__55HE + a__ALFH) & (__UINTEGER_32)(~ a__ALFH));
-      ptr_table__J0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BLFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__I0IH=((__POINTER )(NULL));
-      result__K0IH=((__POINTER *)ptr_table__J0IH)[ 0];
-      if ((result__K0IH == (void *)NULL)) {
-        result__K0IH=new_lab__MRJ(new_size__BLFH);
-        next__I0IH=(void *)((unsigned long)result__K0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BLFH)));
-        ((__POINTER *)next__I0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__J0IH)[ 0]=next__I0IH;
-      } else {
-        next__I0IH=((__POINTER *)result__K0IH)[ 0];
-        if ((next__I0IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BLFH <<  1)) <=  4096)) {
-            next__I0IH=(void *)((unsigned long)result__K0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BLFH)));
-          } else {
-            next__I0IH=new_lab__MRJ(new_size__BLFH);
-          };
-          ((__POINTER *)next__I0IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__J0IH)[ 0]=next__I0IH;
-        } else {
-          ((__POINTER *)result__K0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__K0IH=next__I0IH;
-        };
-      };
-      ptr__35HE=result__K0IH;
-    } else {
-      t__FLFH=((__UINTEGER_32 )typ_id__CAIE);
-      a__ELFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__R0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__55HE + a__ELFH) & (__UINTEGER_32)(~ a__ELFH));
-      ptr_table__O0IH=((__POINTER )(&(table_type[(t__FLFH)])));
-      lab_type__Q0IH=(__UINTEGER_32)(t__FLFH |  1);
-      next__N0IH=((__POINTER )(NULL));
-      result__P0IH=((__POINTER *)ptr_table__O0IH)[ 0];
-      if ((result__P0IH == (void *)NULL)) {
-        result__P0IH=new_lab__MRJ(lab_type__Q0IH);
-        next__N0IH=(void *)((unsigned long)result__P0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R0IH)));
-        ((__POINTER *)next__N0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__O0IH)[ 0]=next__N0IH;
-      } else {
-        next__N0IH=((__POINTER *)result__P0IH)[ 0];
-        if ((next__N0IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__R0IH <<  1)) <=  4096)) {
-            next__N0IH=(void *)((unsigned long)result__P0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R0IH)));
-          } else {
-            next__N0IH=new_lab__MRJ(lab_type__Q0IH);
-          };
-          ((__POINTER *)next__N0IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__O0IH)[ 0]=next__N0IH;
-        } else {
-          ((__POINTER *)result__P0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__P0IH=next__N0IH;
-        };
-      };
-      ptr__35HE=result__P0IH;
-    };
-    result__25HE=((__FAST_ARRAYoITM_SLOTo *)ptr__35HE);
-    *(result__25HE) = *(FAST_ARRAYoITM_SLOTo__);
-  };
-  Self__ZYVE=((__FAST_ARRAYoITM_SLOTo *)result__25HE);
-  if ((Self__ZYVE->parent_arrayed_collection__4JTD.capacity__SMVE <  256)) {
-    Self__ZYVE->parent_arrayed_collection__4JTD.storage__MZVE=create__5FEF( 256);
-    Self__ZYVE->parent_arrayed_collection__4JTD.capacity__SMVE= 256;
-  };
-  Self__ZYVE->parent_arrayed_collection__4JTD.upper__21XD=(__INTEGER)(-  1);
-  list_tmp__5JTD=result__25HE;
+    typ_id__EEIE=__FAST_ARRAYoITM_SLOTo__;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__BEIE);
+    if ((typ_id__EEIE == (__INTEGER)(-  1))) {
+      a__HTFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__ITFH=(__UINTEGER_32)((__UINTEGER_32)(sz__BEIE + a__HTFH) & (__UINTEGER_32)(~ a__HTFH));
+      ptr_table__CCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ITFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__BCJH=((__POINTER )(NULL));
+      result__DCJH=((__POINTER *)ptr_table__CCJH)[ 0];
+      if ((result__DCJH == (void *)NULL)) {
+        result__DCJH=new_lab__MRJ(new_size__ITFH);
+        next__BCJH=(void *)((unsigned long)result__DCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ITFH)));
+        ((__POINTER *)next__BCJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__CCJH)[ 0]=next__BCJH;
+      } else {
+        next__BCJH=((__POINTER *)result__DCJH)[ 0];
+        if ((next__BCJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DCJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ITFH <<  1)) <=  4096)) {
+            next__BCJH=(void *)((unsigned long)result__DCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ITFH)));
+          } else {
+            next__BCJH=new_lab__MRJ(new_size__ITFH);
+          };
+          ((__POINTER *)next__BCJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__CCJH)[ 0]=next__BCJH;
+        } else {
+          ((__POINTER *)result__DCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__DCJH=next__BCJH;
+        };
+      };
+      ptr__5DIE=result__DCJH;
+    } else {
+      t__MTFH=((__UINTEGER_32 )typ_id__EEIE);
+      a__LTFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__KCJH=(__UINTEGER_32)((__UINTEGER_32)(sz__BEIE + a__LTFH) & (__UINTEGER_32)(~ a__LTFH));
+      ptr_table__HCJH=((__POINTER )(&(table_type[(t__MTFH)])));
+      lab_type__JCJH=(__UINTEGER_32)(t__MTFH |  1);
+      next__GCJH=((__POINTER )(NULL));
+      result__ICJH=((__POINTER *)ptr_table__HCJH)[ 0];
+      if ((result__ICJH == (void *)NULL)) {
+        result__ICJH=new_lab__MRJ(lab_type__JCJH);
+        next__GCJH=(void *)((unsigned long)result__ICJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCJH)));
+        ((__POINTER *)next__GCJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__HCJH)[ 0]=next__GCJH;
+      } else {
+        next__GCJH=((__POINTER *)result__ICJH)[ 0];
+        if ((next__GCJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ICJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KCJH <<  1)) <=  4096)) {
+            next__GCJH=(void *)((unsigned long)result__ICJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCJH)));
+          } else {
+            next__GCJH=new_lab__MRJ(lab_type__JCJH);
+          };
+          ((__POINTER *)next__GCJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__HCJH)[ 0]=next__GCJH;
+        } else {
+          ((__POINTER *)result__ICJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__ICJH=next__GCJH;
+        };
+      };
+      ptr__5DIE=result__ICJH;
+    };
+    result__4DIE=((__FAST_ARRAYoITM_SLOTo *)ptr__5DIE);
+    *(result__4DIE) = *(FAST_ARRAYoITM_SLOTo__);
+  };
+  Self__N3VE=((__FAST_ARRAYoITM_SLOTo *)result__4DIE);
+  if ((Self__N3VE->parent_arrayed_collection__4JTD.capacity__GRVE <  256)) {
+    Self__N3VE->parent_arrayed_collection__4JTD.storage__A4VE=create__ILEF( 256);
+    Self__N3VE->parent_arrayed_collection__4JTD.capacity__GRVE= 256;
+  };
+  Self__N3VE->parent_arrayed_collection__4JTD.upper__M2XD=(__INTEGER)(-  1);
+  list_tmp__5JTD=result__4DIE;
   txt__1=NULL;
   p__AB=NULL;
   create__NBB( 255);
@@ -5756,61 +5772,61 @@ int main(int argc,char **argv)
     typ_id__JUB=__HASHED_SEToABSTRACT_STRINGo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GUB);
     if ((typ_id__JUB == (__INTEGER)(-  1))) {
-      a__ILFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__JLFH=(__UINTEGER_32)((__UINTEGER_32)(sz__GUB + a__ILFH) & (__UINTEGER_32)(~ a__ILFH));
-      ptr_table__T0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JLFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__S0IH=((__POINTER )(NULL));
-      result__U0IH=((__POINTER *)ptr_table__T0IH)[ 0];
-      if ((result__U0IH == (void *)NULL)) {
-        result__U0IH=new_lab__MRJ(new_size__JLFH);
-        next__S0IH=(void *)((unsigned long)result__U0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLFH)));
-        ((__POINTER *)next__S0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__T0IH)[ 0]=next__S0IH;
+      a__PTFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__QTFH=(__UINTEGER_32)((__UINTEGER_32)(sz__GUB + a__PTFH) & (__UINTEGER_32)(~ a__PTFH));
+      ptr_table__MCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QTFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__LCJH=((__POINTER )(NULL));
+      result__NCJH=((__POINTER *)ptr_table__MCJH)[ 0];
+      if ((result__NCJH == (void *)NULL)) {
+        result__NCJH=new_lab__MRJ(new_size__QTFH);
+        next__LCJH=(void *)((unsigned long)result__NCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTFH)));
+        ((__POINTER *)next__LCJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__MCJH)[ 0]=next__LCJH;
       } else {
-        next__S0IH=((__POINTER *)result__U0IH)[ 0];
-        if ((next__S0IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JLFH <<  1)) <=  4096)) {
-            next__S0IH=(void *)((unsigned long)result__U0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLFH)));
+        next__LCJH=((__POINTER *)result__NCJH)[ 0];
+        if ((next__LCJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NCJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QTFH <<  1)) <=  4096)) {
+            next__LCJH=(void *)((unsigned long)result__NCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTFH)));
           } else {
-            next__S0IH=new_lab__MRJ(new_size__JLFH);
+            next__LCJH=new_lab__MRJ(new_size__QTFH);
           };
-          ((__POINTER *)next__S0IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__T0IH)[ 0]=next__S0IH;
+          ((__POINTER *)next__LCJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__MCJH)[ 0]=next__LCJH;
         } else {
-          ((__POINTER *)result__U0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__U0IH=next__S0IH;
+          ((__POINTER *)result__NCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__NCJH=next__LCJH;
         };
       };
-      ptr__EUB=result__U0IH;
+      ptr__EUB=result__NCJH;
     } else {
-      t__NLFH=((__UINTEGER_32 )typ_id__JUB);
-      a__MLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__10IH=(__UINTEGER_32)((__UINTEGER_32)(sz__GUB + a__MLFH) & (__UINTEGER_32)(~ a__MLFH));
-      ptr_table__Y0IH=((__POINTER )(&(table_type[(t__NLFH)])));
-      lab_type__00IH=(__UINTEGER_32)(t__NLFH |  1);
-      next__X0IH=((__POINTER )(NULL));
-      result__Z0IH=((__POINTER *)ptr_table__Y0IH)[ 0];
-      if ((result__Z0IH == (void *)NULL)) {
-        result__Z0IH=new_lab__MRJ(lab_type__00IH);
-        next__X0IH=(void *)((unsigned long)result__Z0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10IH)));
-        ((__POINTER *)next__X0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__Y0IH)[ 0]=next__X0IH;
+      t__UTFH=((__UINTEGER_32 )typ_id__JUB);
+      a__TTFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__UCJH=(__UINTEGER_32)((__UINTEGER_32)(sz__GUB + a__TTFH) & (__UINTEGER_32)(~ a__TTFH));
+      ptr_table__RCJH=((__POINTER )(&(table_type[(t__UTFH)])));
+      lab_type__TCJH=(__UINTEGER_32)(t__UTFH |  1);
+      next__QCJH=((__POINTER )(NULL));
+      result__SCJH=((__POINTER *)ptr_table__RCJH)[ 0];
+      if ((result__SCJH == (void *)NULL)) {
+        result__SCJH=new_lab__MRJ(lab_type__TCJH);
+        next__QCJH=(void *)((unsigned long)result__SCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UCJH)));
+        ((__POINTER *)next__QCJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__RCJH)[ 0]=next__QCJH;
       } else {
-        next__X0IH=((__POINTER *)result__Z0IH)[ 0];
-        if ((next__X0IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z0IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__10IH <<  1)) <=  4096)) {
-            next__X0IH=(void *)((unsigned long)result__Z0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10IH)));
+        next__QCJH=((__POINTER *)result__SCJH)[ 0];
+        if ((next__QCJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SCJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UCJH <<  1)) <=  4096)) {
+            next__QCJH=(void *)((unsigned long)result__SCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UCJH)));
           } else {
-            next__X0IH=new_lab__MRJ(lab_type__00IH);
+            next__QCJH=new_lab__MRJ(lab_type__TCJH);
           };
-          ((__POINTER *)next__X0IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__Y0IH)[ 0]=next__X0IH;
+          ((__POINTER *)next__QCJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__RCJH)[ 0]=next__QCJH;
         } else {
-          ((__POINTER *)result__Z0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Z0IH=next__X0IH;
+          ((__POINTER *)result__SCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__SCJH=next__QCJH;
         };
       };
-      ptr__EUB=result__Z0IH;
+      ptr__EUB=result__SCJH;
     };
     result__DUB=((__HASHED_SEToABSTRACT_STRINGo *)ptr__EUB);
     *(result__DUB) = *(HASHED_SEToABSTRACT_STRINGo__);
@@ -6068,82 +6084,82 @@ int main(int argc,char **argv)
     while ((! ((idx__5KC >  1024) || ('\0' == Self__TKC[idx__5KC])))) {
       idx__5KC=(__INTEGER)(idx__5KC +  1);
     };
-    result__DNGH=NULL;
-    ptr__ENGH=((__POINTER )(NULL));
-    typ_id__FNGH= 0;
-    sz__GNGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__GNGH ==  0)) {
-      result__DNGH=STRING_CONSTANT__;
-    } else {
-      typ_id__FNGH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GNGH);
-      if ((typ_id__FNGH == (__INTEGER)(-  1))) {
-        a__HNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__INGH=(__UINTEGER_32)((__UINTEGER_32)(sz__GNGH + a__HNGH) & (__UINTEGER_32)(~ a__HNGH));
-        ptr_table__30IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__INGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__20IH=((__POINTER )(NULL));
-        result__40IH=((__POINTER *)ptr_table__30IH)[ 0];
-        if ((result__40IH == (void *)NULL)) {
-          result__40IH=new_lab__MRJ(new_size__INGH);
-          next__20IH=(void *)((unsigned long)result__40IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__INGH)));
-          ((__POINTER *)next__20IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__30IH)[ 0]=next__20IH;
-        } else {
-          next__20IH=((__POINTER *)result__40IH)[ 0];
-          if ((next__20IH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__40IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__INGH <<  1)) <=  4096)) {
-              next__20IH=(void *)((unsigned long)result__40IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__INGH)));
+    result__QVGH=NULL;
+    ptr__RVGH=((__POINTER )(NULL));
+    typ_id__SVGH= 0;
+    sz__TVGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
+    if ((sz__TVGH ==  0)) {
+      result__QVGH=STRING_CONSTANT__;
+    } else {
+      typ_id__SVGH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__TVGH);
+      if ((typ_id__SVGH == (__INTEGER)(-  1))) {
+        a__UVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__VVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVGH + a__UVGH) & (__UINTEGER_32)(~ a__UVGH));
+        ptr_table__WCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VVGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__VCJH=((__POINTER )(NULL));
+        result__XCJH=((__POINTER *)ptr_table__WCJH)[ 0];
+        if ((result__XCJH == (void *)NULL)) {
+          result__XCJH=new_lab__MRJ(new_size__VVGH);
+          next__VCJH=(void *)((unsigned long)result__XCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VVGH)));
+          ((__POINTER *)next__VCJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__WCJH)[ 0]=next__VCJH;
+        } else {
+          next__VCJH=((__POINTER *)result__XCJH)[ 0];
+          if ((next__VCJH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XCJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VVGH <<  1)) <=  4096)) {
+              next__VCJH=(void *)((unsigned long)result__XCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VVGH)));
             } else {
-              next__20IH=new_lab__MRJ(new_size__INGH);
-            };
-            ((__POINTER *)next__20IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__30IH)[ 0]=next__20IH;
-          } else {
-            ((__POINTER *)result__40IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__20IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__40IH=next__20IH;
-          };
-        };
-        ptr__ENGH=result__40IH;
-      } else {
-        t__JNGH=((__UINTEGER_32 )typ_id__FNGH);
-        a__KNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__F1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__GNGH + a__KNGH) & (__UINTEGER_32)(~ a__KNGH));
-        ptr_table__C1IH=((__POINTER )(&(table_type[(t__JNGH)])));
-        lab_type__E1IH=(__UINTEGER_32)(t__JNGH |  1);
-        next__B1IH=((__POINTER )(NULL));
-        result__D1IH=((__POINTER *)ptr_table__C1IH)[ 0];
-        if ((result__D1IH == (void *)NULL)) {
-          result__D1IH=new_lab__MRJ(lab_type__E1IH);
-          next__B1IH=(void *)((unsigned long)result__D1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F1IH)));
-          ((__POINTER *)next__B1IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__C1IH)[ 0]=next__B1IH;
-        } else {
-          next__B1IH=((__POINTER *)result__D1IH)[ 0];
-          if ((next__B1IH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__F1IH <<  1)) <=  4096)) {
-              next__B1IH=(void *)((unsigned long)result__D1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F1IH)));
+              next__VCJH=new_lab__MRJ(new_size__VVGH);
+            };
+            ((__POINTER *)next__VCJH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__WCJH)[ 0]=next__VCJH;
+          } else {
+            ((__POINTER *)result__XCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__XCJH=next__VCJH;
+          };
+        };
+        ptr__RVGH=result__XCJH;
+      } else {
+        t__WVGH=((__UINTEGER_32 )typ_id__SVGH);
+        a__XVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__4CJH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVGH + a__XVGH) & (__UINTEGER_32)(~ a__XVGH));
+        ptr_table__1CJH=((__POINTER )(&(table_type[(t__WVGH)])));
+        lab_type__3CJH=(__UINTEGER_32)(t__WVGH |  1);
+        next__0CJH=((__POINTER )(NULL));
+        result__2CJH=((__POINTER *)ptr_table__1CJH)[ 0];
+        if ((result__2CJH == (void *)NULL)) {
+          result__2CJH=new_lab__MRJ(lab_type__3CJH);
+          next__0CJH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CJH)));
+          ((__POINTER *)next__0CJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__1CJH)[ 0]=next__0CJH;
+        } else {
+          next__0CJH=((__POINTER *)result__2CJH)[ 0];
+          if ((next__0CJH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2CJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4CJH <<  1)) <=  4096)) {
+              next__0CJH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CJH)));
             } else {
-              next__B1IH=new_lab__MRJ(lab_type__E1IH);
+              next__0CJH=new_lab__MRJ(lab_type__3CJH);
             };
-            ((__POINTER *)next__B1IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__C1IH)[ 0]=next__B1IH;
+            ((__POINTER *)next__0CJH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__1CJH)[ 0]=next__0CJH;
           } else {
-            ((__POINTER *)result__D1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__D1IH=next__B1IH;
+            ((__POINTER *)result__2CJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0CJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__2CJH=next__0CJH;
           };
         };
-        ptr__ENGH=result__D1IH;
+        ptr__RVGH=result__2CJH;
       };
-      result__DNGH=((__STRING_CONSTANT *)ptr__ENGH);
-      *(result__DNGH) = *(STRING_CONSTANT__);
+      result__QVGH=((__STRING_CONSTANT *)ptr__RVGH);
+      *(result__QVGH) = *(STRING_CONSTANT__);
     };
-    Self__NWS=((__STRING_CONSTANT *)result__DNGH);
+    Self__NWS=((__STRING_CONSTANT *)result__QVGH);
     Self__NWS->storage__VQO=path__4Y;
     Self__NWS->count__DD=idx__5KC;
-    copy__ZCS(string_tmp__VH,result__DNGH);
-    Self__OLFH=((__STRING_CONSTANT *)result__DNGH);
-    if ((((__CHARACTER *)Self__OLFH->storage__VQO)[(__INTEGER)(Self__OLFH->count__DD -  1)] != '/')) {
-      Self__ENS=((__STRING_CONSTANT *)result__DNGH);
+    copy__ZCS(string_tmp__VH,result__QVGH);
+    Self__VTFH=((__STRING_CONSTANT *)result__QVGH);
+    if ((((__CHARACTER *)Self__VTFH->storage__VQO)[(__INTEGER)(Self__VTFH->count__DD -  1)] != '/')) {
+      Self__ENS=((__STRING_CONSTANT *)result__QVGH);
       __tmp__P4=(((__CHARACTER *)Self__ENS->storage__VQO)[(__INTEGER)(Self__ENS->count__DD -  1)] != '\\');
     } else {
       __tmp__P4=FALSE__;
@@ -6173,26 +6189,26 @@ int main(int argc,char **argv)
     pos_col__XBC= 0;
     while_do__DKF:
     {
-      result__G1IH=FALSE__;
+      result__5CJH=FALSE__;
       if ((! read_space__3RD())) {
-        result__G1IH=FALSE__;
+        result__5CJH=FALSE__;
       } else {
-        result__H1IH='\0';
+        result__ADJH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__H1IH=((__CHARACTER )(( 0)));
+          result__ADJH=((__CHARACTER )(( 0)));
         } else {
-          result__H1IH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__ADJH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__H1IH == '-')) {
+        if ((result__ADJH == '-')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__G1IH=TRUE__;
+          result__5CJH=TRUE__;
         };
       };
-      if (result__G1IH) {
+      if (result__5CJH) {
         if ((! read_identifier__LAL())) {
-          pos__ISZG=current_position__JXF();
+          pos__W1ZG=current_position__JXF();
           put_error__text__KNG( 0,(&__string_158));
-          put_position__UOG(pos__ISZG);
+          put_position__UOG(pos__W1ZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -6208,86 +6224,86 @@ int main(int argc,char **argv)
           typ_id__KHKB=__LINKED_LISToSTRING_CONSTANTo__;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__HHKB);
           if ((typ_id__KHKB == (__INTEGER)(-  1))) {
-            a__RLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__SLFH=(__UINTEGER_32)((__UINTEGER_32)(sz__HHKB + a__RLFH) & (__UINTEGER_32)(~ a__RLFH));
-            ptr_table__K1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SLFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__J1IH=((__POINTER )(NULL));
-            result__L1IH=((__POINTER *)ptr_table__K1IH)[ 0];
-            if ((result__L1IH == (void *)NULL)) {
-              result__L1IH=new_lab__MRJ(new_size__SLFH);
-              next__J1IH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SLFH)));
-              ((__POINTER *)next__J1IH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__K1IH)[ 0]=next__J1IH;
+            a__YTFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__ZTFH=(__UINTEGER_32)((__UINTEGER_32)(sz__HHKB + a__YTFH) & (__UINTEGER_32)(~ a__YTFH));
+            ptr_table__DDJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZTFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__CDJH=((__POINTER )(NULL));
+            result__EDJH=((__POINTER *)ptr_table__DDJH)[ 0];
+            if ((result__EDJH == (void *)NULL)) {
+              result__EDJH=new_lab__MRJ(new_size__ZTFH);
+              next__CDJH=(void *)((unsigned long)result__EDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZTFH)));
+              ((__POINTER *)next__CDJH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__DDJH)[ 0]=next__CDJH;
             } else {
-              next__J1IH=((__POINTER *)result__L1IH)[ 0];
-              if ((next__J1IH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SLFH <<  1)) <=  4096)) {
-                  next__J1IH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SLFH)));
+              next__CDJH=((__POINTER *)result__EDJH)[ 0];
+              if ((next__CDJH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EDJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZTFH <<  1)) <=  4096)) {
+                  next__CDJH=(void *)((unsigned long)result__EDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZTFH)));
                 } else {
-                  next__J1IH=new_lab__MRJ(new_size__SLFH);
+                  next__CDJH=new_lab__MRJ(new_size__ZTFH);
                 };
-                ((__POINTER *)next__J1IH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__K1IH)[ 0]=next__J1IH;
+                ((__POINTER *)next__CDJH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__DDJH)[ 0]=next__CDJH;
               } else {
-                ((__POINTER *)result__L1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__L1IH=next__J1IH;
+                ((__POINTER *)result__EDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__EDJH=next__CDJH;
               };
             };
-            ptr__FHKB=result__L1IH;
-          } else {
-            t__WLFH=((__UINTEGER_32 )typ_id__KHKB);
-            a__VLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__S1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__HHKB + a__VLFH) & (__UINTEGER_32)(~ a__VLFH));
-            ptr_table__P1IH=((__POINTER )(&(table_type[(t__WLFH)])));
-            lab_type__R1IH=(__UINTEGER_32)(t__WLFH |  1);
-            next__O1IH=((__POINTER )(NULL));
-            result__Q1IH=((__POINTER *)ptr_table__P1IH)[ 0];
-            if ((result__Q1IH == (void *)NULL)) {
-              result__Q1IH=new_lab__MRJ(lab_type__R1IH);
-              next__O1IH=(void *)((unsigned long)result__Q1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S1IH)));
-              ((__POINTER *)next__O1IH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__P1IH)[ 0]=next__O1IH;
+            ptr__FHKB=result__EDJH;
+          } else {
+            t__3TFH=((__UINTEGER_32 )typ_id__KHKB);
+            a__2TFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__LDJH=(__UINTEGER_32)((__UINTEGER_32)(sz__HHKB + a__2TFH) & (__UINTEGER_32)(~ a__2TFH));
+            ptr_table__IDJH=((__POINTER )(&(table_type[(t__3TFH)])));
+            lab_type__KDJH=(__UINTEGER_32)(t__3TFH |  1);
+            next__HDJH=((__POINTER )(NULL));
+            result__JDJH=((__POINTER *)ptr_table__IDJH)[ 0];
+            if ((result__JDJH == (void *)NULL)) {
+              result__JDJH=new_lab__MRJ(lab_type__KDJH);
+              next__HDJH=(void *)((unsigned long)result__JDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LDJH)));
+              ((__POINTER *)next__HDJH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__IDJH)[ 0]=next__HDJH;
             } else {
-              next__O1IH=((__POINTER *)result__Q1IH)[ 0];
-              if ((next__O1IH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__S1IH <<  1)) <=  4096)) {
-                  next__O1IH=(void *)((unsigned long)result__Q1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S1IH)));
+              next__HDJH=((__POINTER *)result__JDJH)[ 0];
+              if ((next__HDJH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JDJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LDJH <<  1)) <=  4096)) {
+                  next__HDJH=(void *)((unsigned long)result__JDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LDJH)));
                 } else {
-                  next__O1IH=new_lab__MRJ(lab_type__R1IH);
+                  next__HDJH=new_lab__MRJ(lab_type__KDJH);
                 };
-                ((__POINTER *)next__O1IH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__P1IH)[ 0]=next__O1IH;
+                ((__POINTER *)next__HDJH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__IDJH)[ 0]=next__HDJH;
               } else {
-                ((__POINTER *)result__Q1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__Q1IH=next__O1IH;
+                ((__POINTER *)result__JDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__JDJH=next__HDJH;
               };
             };
-            ptr__FHKB=result__Q1IH;
+            ptr__FHKB=result__JDJH;
           };
           result__EHKB=((__LINKED_LISToSTRING_CONSTANTo *)ptr__FHKB);
           *(result__EHKB) = *(LINKED_LISToSTRING_CONSTANTo__);
         };
-        Self__LNGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-        k__MNGH=last_string__I0C;
-        Self__QNGH=((__STRING_CONSTANT *)last_string__I0C);
-        result__PNGH= 0;
-        __tmp__RNGH=Self__QNGH->count__DD;
-        Self__SNGH= 1;
-        while ((Self__SNGH <= __tmp__RNGH)) {
-          result__PNGH=(__INTEGER)((__INTEGER)( 5 * result__PNGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__QNGH->storage__VQO)[(__INTEGER)(Self__SNGH -  1)])));
-          Self__SNGH=(__INTEGER)(Self__SNGH +  1);
-        };
-        if ((result__PNGH <  0)) {
-          result__PNGH=(__INTEGER)(~ result__PNGH);
-        };
-        node__NNGH=((void **)Self__LNGH->buckets__5CT)[(__INTEGER)(result__PNGH % Self__LNGH->capacity__0CT)];
-        while ((! (((void *)node__NNGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NNGH)->key__LDT == (void *)k__MNGH)))) {
-          node__NNGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NNGH)->next__WDT;
-        };
-        if (((void *)node__NNGH != (void *)NULL)) {
-          pos__SSZG=current_position__JXF();
+        Self__YVGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+        k__ZVGH=last_string__I0C;
+        Self__3VGH=((__STRING_CONSTANT *)last_string__I0C);
+        result__2VGH= 0;
+        __tmp__4VGH=Self__3VGH->count__DD;
+        Self__5VGH= 1;
+        while ((Self__5VGH <= __tmp__4VGH)) {
+          result__2VGH=(__INTEGER)((__INTEGER)( 5 * result__2VGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__3VGH->storage__VQO)[(__INTEGER)(Self__5VGH -  1)])));
+          Self__5VGH=(__INTEGER)(Self__5VGH +  1);
+        };
+        if ((result__2VGH <  0)) {
+          result__2VGH=(__INTEGER)(~ result__2VGH);
+        };
+        node__0VGH=((void **)Self__YVGH->buckets__5CT)[(__INTEGER)(result__2VGH % Self__YVGH->capacity__0CT)];
+        while ((! (((void *)node__0VGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__0VGH)->key__LDT == (void *)k__ZVGH)))) {
+          node__0VGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__0VGH)->next__WDT;
+        };
+        if (((void *)node__0VGH != (void *)NULL)) {
+          pos__A2ZG=current_position__JXF();
           put_error__text__KNG( 0,(&__string_159));
-          put_position__UOG(pos__SSZG);
+          put_position__UOG(pos__A2ZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -6296,18 +6312,18 @@ int main(int argc,char **argv)
         __tmp__2ND=last_string__I0C;
         Self__WPEB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
         k__YPEB=last_string__I0C;
-        Self__VNGH=((__STRING_CONSTANT *)last_string__I0C);
-        result__UNGH= 0;
-        __tmp__WNGH=Self__VNGH->count__DD;
-        Self__XNGH= 1;
-        while ((Self__XNGH <= __tmp__WNGH)) {
-          result__UNGH=(__INTEGER)((__INTEGER)( 5 * result__UNGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__VNGH->storage__VQO)[(__INTEGER)(Self__XNGH -  1)])));
-          Self__XNGH=(__INTEGER)(Self__XNGH +  1);
-        };
-        if ((result__UNGH <  0)) {
-          result__UNGH=(__INTEGER)(~ result__UNGH);
-        };
-        idx__AQEB=(__INTEGER)(result__UNGH % Self__WPEB->capacity__0CT);
+        Self__CWGH=((__STRING_CONSTANT *)last_string__I0C);
+        result__BWGH= 0;
+        __tmp__DWGH=Self__CWGH->count__DD;
+        Self__EWGH= 1;
+        while ((Self__EWGH <= __tmp__DWGH)) {
+          result__BWGH=(__INTEGER)((__INTEGER)( 5 * result__BWGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__CWGH->storage__VQO)[(__INTEGER)(Self__EWGH -  1)])));
+          Self__EWGH=(__INTEGER)(Self__EWGH +  1);
+        };
+        if ((result__BWGH <  0)) {
+          result__BWGH=(__INTEGER)(~ result__BWGH);
+        };
+        idx__AQEB=(__INTEGER)(result__BWGH % Self__WPEB->capacity__0CT);
         node__BQEB=((void **)Self__WPEB->buckets__5CT)[idx__AQEB];
         while ((! (((void *)node__BQEB == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BQEB)->key__LDT == (void *)k__YPEB)))) {
           node__BQEB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BQEB)->next__WDT;
@@ -6326,25 +6342,25 @@ int main(int argc,char **argv)
               node1__CIZB=((void **)old_buckets__BIZB)[i__AIZB];
               while (((void *)node1__CIZB != (void *)NULL)) {
                 node2__DIZB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__CIZB)->next__WDT;
-                Self__0NGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__CIZB)->key__LDT);
-                result__ZNGH= 0;
-                __tmp__1NGH=Self__0NGH->count__DD;
-                Self__2NGH= 1;
-                while ((Self__2NGH <= __tmp__1NGH)) {
-                  result__ZNGH=(__INTEGER)((__INTEGER)( 5 * result__ZNGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__0NGH->storage__VQO)[(__INTEGER)(Self__2NGH -  1)])));
-                  Self__2NGH=(__INTEGER)(Self__2NGH +  1);
+                Self__HWGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__CIZB)->key__LDT);
+                result__GWGH= 0;
+                __tmp__IWGH=Self__HWGH->count__DD;
+                Self__JWGH= 1;
+                while ((Self__JWGH <= __tmp__IWGH)) {
+                  result__GWGH=(__INTEGER)((__INTEGER)( 5 * result__GWGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__HWGH->storage__VQO)[(__INTEGER)(Self__JWGH -  1)])));
+                  Self__JWGH=(__INTEGER)(Self__JWGH +  1);
                 };
-                if ((result__ZNGH <  0)) {
-                  result__ZNGH=(__INTEGER)(~ result__ZNGH);
+                if ((result__GWGH <  0)) {
+                  result__GWGH=(__INTEGER)(~ result__GWGH);
                 };
-                idx__4HZB=(__INTEGER)(result__ZNGH % Self__WPEB->capacity__0CT);
+                idx__4HZB=(__INTEGER)(result__GWGH % Self__WPEB->capacity__0CT);
                 ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__CIZB)->next__WDT=((void **)Self__WPEB->buckets__5CT)[idx__4HZB];
                 ((void **)Self__WPEB->buckets__5CT)[idx__4HZB]=node1__CIZB;
                 node1__CIZB=node2__DIZB;
               };
               i__AIZB=(__INTEGER)(i__AIZB -  1);
             };
-            idx__AQEB=(__INTEGER)(result__UNGH % new_capacity__5HZB);
+            idx__AQEB=(__INTEGER)(result__BWGH % new_capacity__5HZB);
           };
           __tmp__OREB=((void **)Self__WPEB->buckets__5CT)[idx__AQEB];
           result__HKZB=NULL;
@@ -6357,61 +6373,61 @@ int main(int argc,char **argv)
             typ_id__NKZB=__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__KKZB);
             if ((typ_id__NKZB == (__INTEGER)(-  1))) {
-              a__2LFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3LFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KKZB + a__2LFH) & (__UINTEGER_32)(~ a__2LFH));
-              ptr_table__U1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3LFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__T1IH=((__POINTER )(NULL));
-              result__V1IH=((__POINTER *)ptr_table__U1IH)[ 0];
-              if ((result__V1IH == (void *)NULL)) {
-                result__V1IH=new_lab__MRJ(new_size__3LFH);
-                next__T1IH=(void *)((unsigned long)result__V1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3LFH)));
-                ((__POINTER *)next__T1IH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__U1IH)[ 0]=next__T1IH;
+              a__DUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__EUFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KKZB + a__DUFH) & (__UINTEGER_32)(~ a__DUFH));
+              ptr_table__NDJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EUFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__MDJH=((__POINTER )(NULL));
+              result__ODJH=((__POINTER *)ptr_table__NDJH)[ 0];
+              if ((result__ODJH == (void *)NULL)) {
+                result__ODJH=new_lab__MRJ(new_size__EUFH);
+                next__MDJH=(void *)((unsigned long)result__ODJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EUFH)));
+                ((__POINTER *)next__MDJH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__NDJH)[ 0]=next__MDJH;
               } else {
-                next__T1IH=((__POINTER *)result__V1IH)[ 0];
-                if ((next__T1IH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3LFH <<  1)) <=  4096)) {
-                    next__T1IH=(void *)((unsigned long)result__V1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3LFH)));
+                next__MDJH=((__POINTER *)result__ODJH)[ 0];
+                if ((next__MDJH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ODJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EUFH <<  1)) <=  4096)) {
+                    next__MDJH=(void *)((unsigned long)result__ODJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EUFH)));
                   } else {
-                    next__T1IH=new_lab__MRJ(new_size__3LFH);
+                    next__MDJH=new_lab__MRJ(new_size__EUFH);
                   };
-                  ((__POINTER *)next__T1IH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__U1IH)[ 0]=next__T1IH;
+                  ((__POINTER *)next__MDJH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__NDJH)[ 0]=next__MDJH;
                 } else {
-                  ((__POINTER *)result__V1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__V1IH=next__T1IH;
+                  ((__POINTER *)result__ODJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__ODJH=next__MDJH;
                 };
               };
-              ptr__IKZB=result__V1IH;
+              ptr__IKZB=result__ODJH;
             } else {
-              t__BMFH=((__UINTEGER_32 )typ_id__NKZB);
-              a__AMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__21IH=(__UINTEGER_32)((__UINTEGER_32)(sz__KKZB + a__AMFH) & (__UINTEGER_32)(~ a__AMFH));
-              ptr_table__Z1IH=((__POINTER )(&(table_type[(t__BMFH)])));
-              lab_type__11IH=(__UINTEGER_32)(t__BMFH |  1);
-              next__Y1IH=((__POINTER )(NULL));
-              result__01IH=((__POINTER *)ptr_table__Z1IH)[ 0];
-              if ((result__01IH == (void *)NULL)) {
-                result__01IH=new_lab__MRJ(lab_type__11IH);
-                next__Y1IH=(void *)((unsigned long)result__01IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21IH)));
-                ((__POINTER *)next__Y1IH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__Z1IH)[ 0]=next__Y1IH;
+              t__IUFH=((__UINTEGER_32 )typ_id__NKZB);
+              a__HUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__VDJH=(__UINTEGER_32)((__UINTEGER_32)(sz__KKZB + a__HUFH) & (__UINTEGER_32)(~ a__HUFH));
+              ptr_table__SDJH=((__POINTER )(&(table_type[(t__IUFH)])));
+              lab_type__UDJH=(__UINTEGER_32)(t__IUFH |  1);
+              next__RDJH=((__POINTER )(NULL));
+              result__TDJH=((__POINTER *)ptr_table__SDJH)[ 0];
+              if ((result__TDJH == (void *)NULL)) {
+                result__TDJH=new_lab__MRJ(lab_type__UDJH);
+                next__RDJH=(void *)((unsigned long)result__TDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDJH)));
+                ((__POINTER *)next__RDJH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__SDJH)[ 0]=next__RDJH;
               } else {
-                next__Y1IH=((__POINTER *)result__01IH)[ 0];
-                if ((next__Y1IH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__21IH <<  1)) <=  4096)) {
-                    next__Y1IH=(void *)((unsigned long)result__01IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21IH)));
+                next__RDJH=((__POINTER *)result__TDJH)[ 0];
+                if ((next__RDJH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TDJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VDJH <<  1)) <=  4096)) {
+                    next__RDJH=(void *)((unsigned long)result__TDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDJH)));
                   } else {
-                    next__Y1IH=new_lab__MRJ(lab_type__11IH);
+                    next__RDJH=new_lab__MRJ(lab_type__UDJH);
                   };
-                  ((__POINTER *)next__Y1IH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__Z1IH)[ 0]=next__Y1IH;
+                  ((__POINTER *)next__RDJH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__SDJH)[ 0]=next__RDJH;
                 } else {
-                  ((__POINTER *)result__01IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__01IH=next__Y1IH;
+                  ((__POINTER *)result__TDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__TDJH=next__RDJH;
                 };
               };
-              ptr__IKZB=result__01IH;
+              ptr__IKZB=result__TDJH;
             };
             result__HKZB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__IKZB);
             *(result__HKZB) = *(HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
@@ -6427,9 +6443,9 @@ int main(int argc,char **argv)
           ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BQEB)->item__HY3=result__EHKB;
         };
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__EUZG=current_position__JXF();
+          pos__S3ZG=current_position__JXF();
           put_error__text__KNG( 0,(&__string_160));
-          put_position__UOG(pos__EUZG);
+          put_position__UOG(pos__S3ZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -6439,186 +6455,186 @@ int main(int argc,char **argv)
         result__ISEB=FALSE__;
         if (read_short_elt__LLKB()) {
           result__ISEB=TRUE__;
-          Self__HMFH=((__LINKED_LISToSTRING_CONSTANTo *)result__EHKB);
-          element__GMFH=last_string__I0C;
-          if (((void *)Self__HMFH->first_link__EUEC == (void *)NULL)) {
-            i__HOGH=last_string__I0C;
-            result__4NGH=NULL;
-            ptr__5NGH=((__POINTER )(NULL));
-            typ_id__AOGH= 0;
-            sz__BOGH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-            if ((sz__BOGH ==  0)) {
-              result__4NGH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
+          Self__OUFH=((__LINKED_LISToSTRING_CONSTANTo *)result__EHKB);
+          element__NUFH=last_string__I0C;
+          if (((void *)Self__OUFH->first_link__EUEC == (void *)NULL)) {
+            i__UWGH=last_string__I0C;
+            result__LWGH=NULL;
+            ptr__MWGH=((__POINTER )(NULL));
+            typ_id__NWGH= 0;
+            sz__OWGH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
+            if ((sz__OWGH ==  0)) {
+              result__LWGH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
             } else {
-              typ_id__AOGH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-              clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__BOGH);
-              if ((typ_id__AOGH == (__INTEGER)(-  1))) {
-                a__COGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__DOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__BOGH + a__COGH) & (__UINTEGER_32)(~ a__COGH));
-                ptr_table__41IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__31IH=((__POINTER )(NULL));
-                result__51IH=((__POINTER *)ptr_table__41IH)[ 0];
-                if ((result__51IH == (void *)NULL)) {
-                  result__51IH=new_lab__MRJ(new_size__DOGH);
-                  next__31IH=(void *)((unsigned long)result__51IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DOGH)));
-                  ((__POINTER *)next__31IH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__41IH)[ 0]=next__31IH;
+              typ_id__NWGH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
+              clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OWGH);
+              if ((typ_id__NWGH == (__INTEGER)(-  1))) {
+                a__PWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__QWGH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWGH + a__PWGH) & (__UINTEGER_32)(~ a__PWGH));
+                ptr_table__XDJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QWGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                next__WDJH=((__POINTER )(NULL));
+                result__YDJH=((__POINTER *)ptr_table__XDJH)[ 0];
+                if ((result__YDJH == (void *)NULL)) {
+                  result__YDJH=new_lab__MRJ(new_size__QWGH);
+                  next__WDJH=(void *)((unsigned long)result__YDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QWGH)));
+                  ((__POINTER *)next__WDJH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__XDJH)[ 0]=next__WDJH;
                 } else {
-                  next__31IH=((__POINTER *)result__51IH)[ 0];
-                  if ((next__31IH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__51IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DOGH <<  1)) <=  4096)) {
-                      next__31IH=(void *)((unsigned long)result__51IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DOGH)));
+                  next__WDJH=((__POINTER *)result__YDJH)[ 0];
+                  if ((next__WDJH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YDJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QWGH <<  1)) <=  4096)) {
+                      next__WDJH=(void *)((unsigned long)result__YDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QWGH)));
                     } else {
-                      next__31IH=new_lab__MRJ(new_size__DOGH);
+                      next__WDJH=new_lab__MRJ(new_size__QWGH);
                     };
-                    ((__POINTER *)next__31IH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__41IH)[ 0]=next__31IH;
+                    ((__POINTER *)next__WDJH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__XDJH)[ 0]=next__WDJH;
                   } else {
-                    ((__POINTER *)result__51IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__31IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__51IH=next__31IH;
+                    ((__POINTER *)result__YDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__YDJH=next__WDJH;
                   };
                 };
-                ptr__5NGH=result__51IH;
+                ptr__MWGH=result__YDJH;
               } else {
-                t__EOGH=((__UINTEGER_32 )typ_id__AOGH);
-                a__FOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__G2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__BOGH + a__FOGH) & (__UINTEGER_32)(~ a__FOGH));
-                ptr_table__D2IH=((__POINTER )(&(table_type[(t__EOGH)])));
-                lab_type__F2IH=(__UINTEGER_32)(t__EOGH |  1);
-                next__C2IH=((__POINTER )(NULL));
-                result__E2IH=((__POINTER *)ptr_table__D2IH)[ 0];
-                if ((result__E2IH == (void *)NULL)) {
-                  result__E2IH=new_lab__MRJ(lab_type__F2IH);
-                  next__C2IH=(void *)((unsigned long)result__E2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2IH)));
-                  ((__POINTER *)next__C2IH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__D2IH)[ 0]=next__C2IH;
+                t__RWGH=((__UINTEGER_32 )typ_id__NWGH);
+                a__SWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__5DJH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWGH + a__SWGH) & (__UINTEGER_32)(~ a__SWGH));
+                ptr_table__2DJH=((__POINTER )(&(table_type[(t__RWGH)])));
+                lab_type__4DJH=(__UINTEGER_32)(t__RWGH |  1);
+                next__1DJH=((__POINTER )(NULL));
+                result__3DJH=((__POINTER *)ptr_table__2DJH)[ 0];
+                if ((result__3DJH == (void *)NULL)) {
+                  result__3DJH=new_lab__MRJ(lab_type__4DJH);
+                  next__1DJH=(void *)((unsigned long)result__3DJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5DJH)));
+                  ((__POINTER *)next__1DJH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__2DJH)[ 0]=next__1DJH;
                 } else {
-                  next__C2IH=((__POINTER *)result__E2IH)[ 0];
-                  if ((next__C2IH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__G2IH <<  1)) <=  4096)) {
-                      next__C2IH=(void *)((unsigned long)result__E2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2IH)));
+                  next__1DJH=((__POINTER *)result__3DJH)[ 0];
+                  if ((next__1DJH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3DJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5DJH <<  1)) <=  4096)) {
+                      next__1DJH=(void *)((unsigned long)result__3DJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5DJH)));
                     } else {
-                      next__C2IH=new_lab__MRJ(lab_type__F2IH);
+                      next__1DJH=new_lab__MRJ(lab_type__4DJH);
                     };
-                    ((__POINTER *)next__C2IH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__D2IH)[ 0]=next__C2IH;
+                    ((__POINTER *)next__1DJH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__2DJH)[ 0]=next__1DJH;
                   } else {
-                    ((__POINTER *)result__E2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__E2IH=next__C2IH;
+                    ((__POINTER *)result__3DJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1DJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__3DJH=next__1DJH;
                   };
                 };
-                ptr__5NGH=result__E2IH;
+                ptr__MWGH=result__3DJH;
               };
-              result__4NGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__5NGH);
-              *(result__4NGH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
-            };
-            Self__GOGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__4NGH);
-            Self__GOGH->item__0VHD=i__HOGH;
-            Self__GOGH->next__MOOD=NULL;
-            Self__HMFH->first_link__EUEC=result__4NGH;
-            Self__HMFH->parent_linked_collection__LD.upper__5CD= 1;
-            Self__HMFH->last_link__NUEC=result__4NGH;
-            Self__HMFH->mem_idx__OUEC= 1;
-            Self__HMFH->mem_lnk__QUEC=result__4NGH;
-          } else {
-            result__IOGH=NULL;
-            ptr__JOGH=((__POINTER )(NULL));
-            typ_id__KOGH= 0;
-            sz__LOGH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-            if ((sz__LOGH ==  0)) {
-              result__IOGH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
+              result__LWGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__MWGH);
+              *(result__LWGH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
+            };
+            Self__TWGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__LWGH);
+            Self__TWGH->item__0VHD=i__UWGH;
+            Self__TWGH->next__MOOD=NULL;
+            Self__OUFH->first_link__EUEC=result__LWGH;
+            Self__OUFH->parent_linked_collection__LD.upper__5CD= 1;
+            Self__OUFH->last_link__NUEC=result__LWGH;
+            Self__OUFH->mem_idx__OUEC= 1;
+            Self__OUFH->mem_lnk__QUEC=result__LWGH;
+          } else {
+            result__VWGH=NULL;
+            ptr__WWGH=((__POINTER )(NULL));
+            typ_id__XWGH= 0;
+            sz__YWGH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
+            if ((sz__YWGH ==  0)) {
+              result__VWGH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
             } else {
-              typ_id__KOGH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-              clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__LOGH);
-              if ((typ_id__KOGH == (__INTEGER)(-  1))) {
-                a__MOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__NOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__LOGH + a__MOGH) & (__UINTEGER_32)(~ a__MOGH));
-                ptr_table__I2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__H2IH=((__POINTER )(NULL));
-                result__J2IH=((__POINTER *)ptr_table__I2IH)[ 0];
-                if ((result__J2IH == (void *)NULL)) {
-                  result__J2IH=new_lab__MRJ(new_size__NOGH);
-                  next__H2IH=(void *)((unsigned long)result__J2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NOGH)));
-                  ((__POINTER *)next__H2IH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__I2IH)[ 0]=next__H2IH;
+              typ_id__XWGH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
+              clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YWGH);
+              if ((typ_id__XWGH == (__INTEGER)(-  1))) {
+                a__ZWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__0WGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YWGH + a__ZWGH) & (__UINTEGER_32)(~ a__ZWGH));
+                ptr_table__BEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0WGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                next__AEJH=((__POINTER )(NULL));
+                result__CEJH=((__POINTER *)ptr_table__BEJH)[ 0];
+                if ((result__CEJH == (void *)NULL)) {
+                  result__CEJH=new_lab__MRJ(new_size__0WGH);
+                  next__AEJH=(void *)((unsigned long)result__CEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0WGH)));
+                  ((__POINTER *)next__AEJH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__BEJH)[ 0]=next__AEJH;
                 } else {
-                  next__H2IH=((__POINTER *)result__J2IH)[ 0];
-                  if ((next__H2IH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NOGH <<  1)) <=  4096)) {
-                      next__H2IH=(void *)((unsigned long)result__J2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NOGH)));
+                  next__AEJH=((__POINTER *)result__CEJH)[ 0];
+                  if ((next__AEJH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CEJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0WGH <<  1)) <=  4096)) {
+                      next__AEJH=(void *)((unsigned long)result__CEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0WGH)));
                     } else {
-                      next__H2IH=new_lab__MRJ(new_size__NOGH);
+                      next__AEJH=new_lab__MRJ(new_size__0WGH);
                     };
-                    ((__POINTER *)next__H2IH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__I2IH)[ 0]=next__H2IH;
+                    ((__POINTER *)next__AEJH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__BEJH)[ 0]=next__AEJH;
                   } else {
-                    ((__POINTER *)result__J2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__J2IH=next__H2IH;
+                    ((__POINTER *)result__CEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__CEJH=next__AEJH;
                   };
                 };
-                ptr__JOGH=result__J2IH;
+                ptr__WWGH=result__CEJH;
               } else {
-                t__OOGH=((__UINTEGER_32 )typ_id__KOGH);
-                a__POGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__Q2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__LOGH + a__POGH) & (__UINTEGER_32)(~ a__POGH));
-                ptr_table__N2IH=((__POINTER )(&(table_type[(t__OOGH)])));
-                lab_type__P2IH=(__UINTEGER_32)(t__OOGH |  1);
-                next__M2IH=((__POINTER )(NULL));
-                result__O2IH=((__POINTER *)ptr_table__N2IH)[ 0];
-                if ((result__O2IH == (void *)NULL)) {
-                  result__O2IH=new_lab__MRJ(lab_type__P2IH);
-                  next__M2IH=(void *)((unsigned long)result__O2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2IH)));
-                  ((__POINTER *)next__M2IH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__N2IH)[ 0]=next__M2IH;
+                t__1WGH=((__UINTEGER_32 )typ_id__XWGH);
+                a__2WGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__JEJH=(__UINTEGER_32)((__UINTEGER_32)(sz__YWGH + a__2WGH) & (__UINTEGER_32)(~ a__2WGH));
+                ptr_table__GEJH=((__POINTER )(&(table_type[(t__1WGH)])));
+                lab_type__IEJH=(__UINTEGER_32)(t__1WGH |  1);
+                next__FEJH=((__POINTER )(NULL));
+                result__HEJH=((__POINTER *)ptr_table__GEJH)[ 0];
+                if ((result__HEJH == (void *)NULL)) {
+                  result__HEJH=new_lab__MRJ(lab_type__IEJH);
+                  next__FEJH=(void *)((unsigned long)result__HEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JEJH)));
+                  ((__POINTER *)next__FEJH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__GEJH)[ 0]=next__FEJH;
                 } else {
-                  next__M2IH=((__POINTER *)result__O2IH)[ 0];
-                  if ((next__M2IH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q2IH <<  1)) <=  4096)) {
-                      next__M2IH=(void *)((unsigned long)result__O2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2IH)));
+                  next__FEJH=((__POINTER *)result__HEJH)[ 0];
+                  if ((next__FEJH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HEJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JEJH <<  1)) <=  4096)) {
+                      next__FEJH=(void *)((unsigned long)result__HEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JEJH)));
                     } else {
-                      next__M2IH=new_lab__MRJ(lab_type__P2IH);
+                      next__FEJH=new_lab__MRJ(lab_type__IEJH);
                     };
-                    ((__POINTER *)next__M2IH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__N2IH)[ 0]=next__M2IH;
+                    ((__POINTER *)next__FEJH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__GEJH)[ 0]=next__FEJH;
                   } else {
-                    ((__POINTER *)result__O2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__O2IH=next__M2IH;
+                    ((__POINTER *)result__HEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__HEJH=next__FEJH;
                   };
                 };
-                ptr__JOGH=result__O2IH;
+                ptr__WWGH=result__HEJH;
               };
-              result__IOGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__JOGH);
-              *(result__IOGH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
+              result__VWGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__WWGH);
+              *(result__VWGH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
             };
-            Self__QOGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__IOGH);
-            Self__QOGH->item__0VHD=element__GMFH;
-            Self__QOGH->next__MOOD=NULL;
-            ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__HMFH->last_link__NUEC)->next__MOOD=result__IOGH;
-            Self__HMFH->parent_linked_collection__LD.upper__5CD=(__INTEGER)(Self__HMFH->parent_linked_collection__LD.upper__5CD +  1);
-            Self__HMFH->last_link__NUEC=result__IOGH;
+            Self__3WGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__VWGH);
+            Self__3WGH->item__0VHD=element__NUFH;
+            Self__3WGH->next__MOOD=NULL;
+            ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__OUFH->last_link__NUEC)->next__MOOD=result__VWGH;
+            Self__OUFH->parent_linked_collection__LD.upper__5CD=(__INTEGER)(Self__OUFH->parent_linked_collection__LD.upper__5CD +  1);
+            Self__OUFH->last_link__NUEC=result__VWGH;
           };
           while_do__CSSB:
           {
-            result__R2IH=FALSE__;
+            result__KEJH=FALSE__;
             if ((! read_space__3RD())) {
-              result__R2IH=FALSE__;
+              result__KEJH=FALSE__;
             } else {
-              result__S2IH='\0';
+              result__LEJH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__S2IH=((__CHARACTER )(( 0)));
+                result__LEJH=((__CHARACTER )(( 0)));
               } else {
-                result__S2IH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__LEJH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__S2IH == '+')) {
+              if ((result__LEJH == '+')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__R2IH=TRUE__;
+                result__KEJH=TRUE__;
               };
             };
-            if (result__R2IH) {
+            if (result__KEJH) {
               if ((! read_short_elt__LLKB())) {
-                pos__GUZG=current_position__JXF();
+                pos__U3ZG=current_position__JXF();
                 put_error__text__KNG( 0,(&__string_161));
-                put_position__UOG(pos__GUZG);
+                put_position__UOG(pos__U3ZG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -6627,84 +6643,84 @@ int main(int argc,char **argv)
               Self__5TEC=((__LINKED_LISToSTRING_CONSTANTo *)def__GSEB);
               element__AUEC=last_string__I0C;
               if (((void *)Self__5TEC->first_link__EUEC == (void *)NULL)) {
-                i__1OGH=last_string__I0C;
-                result__SOGH=NULL;
-                ptr__TOGH=((__POINTER )(NULL));
-                typ_id__UOGH= 0;
-                sz__VOGH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-                if ((sz__VOGH ==  0)) {
-                  result__SOGH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
+                i__IXGH=last_string__I0C;
+                result__5WGH=NULL;
+                ptr__AXGH=((__POINTER )(NULL));
+                typ_id__BXGH= 0;
+                sz__CXGH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
+                if ((sz__CXGH ==  0)) {
+                  result__5WGH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
                 } else {
-                  typ_id__UOGH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__VOGH);
-                  if ((typ_id__UOGH == (__INTEGER)(-  1))) {
-                    a__WOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__XOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__VOGH + a__WOGH) & (__UINTEGER_32)(~ a__WOGH));
-                    ptr_table__V2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__U2IH=((__POINTER )(NULL));
-                    result__W2IH=((__POINTER *)ptr_table__V2IH)[ 0];
-                    if ((result__W2IH == (void *)NULL)) {
-                      result__W2IH=new_lab__MRJ(new_size__XOGH);
-                      next__U2IH=(void *)((unsigned long)result__W2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOGH)));
-                      ((__POINTER *)next__U2IH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__V2IH)[ 0]=next__U2IH;
+                  typ_id__BXGH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__CXGH);
+                  if ((typ_id__BXGH == (__INTEGER)(-  1))) {
+                    a__DXGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__EXGH=(__UINTEGER_32)((__UINTEGER_32)(sz__CXGH + a__DXGH) & (__UINTEGER_32)(~ a__DXGH));
+                    ptr_table__OEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EXGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__NEJH=((__POINTER )(NULL));
+                    result__PEJH=((__POINTER *)ptr_table__OEJH)[ 0];
+                    if ((result__PEJH == (void *)NULL)) {
+                      result__PEJH=new_lab__MRJ(new_size__EXGH);
+                      next__NEJH=(void *)((unsigned long)result__PEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EXGH)));
+                      ((__POINTER *)next__NEJH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__OEJH)[ 0]=next__NEJH;
                     } else {
-                      next__U2IH=((__POINTER *)result__W2IH)[ 0];
-                      if ((next__U2IH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W2IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XOGH <<  1)) <=  4096)) {
-                          next__U2IH=(void *)((unsigned long)result__W2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOGH)));
+                      next__NEJH=((__POINTER *)result__PEJH)[ 0];
+                      if ((next__NEJH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PEJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EXGH <<  1)) <=  4096)) {
+                          next__NEJH=(void *)((unsigned long)result__PEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EXGH)));
                         } else {
-                          next__U2IH=new_lab__MRJ(new_size__XOGH);
+                          next__NEJH=new_lab__MRJ(new_size__EXGH);
                         };
-                        ((__POINTER *)next__U2IH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__V2IH)[ 0]=next__U2IH;
+                        ((__POINTER *)next__NEJH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__OEJH)[ 0]=next__NEJH;
                       } else {
-                        ((__POINTER *)result__W2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__U2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__W2IH=next__U2IH;
+                        ((__POINTER *)result__PEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__PEJH=next__NEJH;
                       };
                     };
-                    ptr__TOGH=result__W2IH;
+                    ptr__AXGH=result__PEJH;
                   } else {
-                    t__YOGH=((__UINTEGER_32 )typ_id__UOGH);
-                    a__ZOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__32IH=(__UINTEGER_32)((__UINTEGER_32)(sz__VOGH + a__ZOGH) & (__UINTEGER_32)(~ a__ZOGH));
-                    ptr_table__02IH=((__POINTER )(&(table_type[(t__YOGH)])));
-                    lab_type__22IH=(__UINTEGER_32)(t__YOGH |  1);
-                    next__Z2IH=((__POINTER )(NULL));
-                    result__12IH=((__POINTER *)ptr_table__02IH)[ 0];
-                    if ((result__12IH == (void *)NULL)) {
-                      result__12IH=new_lab__MRJ(lab_type__22IH);
-                      next__Z2IH=(void *)((unsigned long)result__12IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__32IH)));
-                      ((__POINTER *)next__Z2IH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__02IH)[ 0]=next__Z2IH;
+                    t__FXGH=((__UINTEGER_32 )typ_id__BXGH);
+                    a__GXGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__WEJH=(__UINTEGER_32)((__UINTEGER_32)(sz__CXGH + a__GXGH) & (__UINTEGER_32)(~ a__GXGH));
+                    ptr_table__TEJH=((__POINTER )(&(table_type[(t__FXGH)])));
+                    lab_type__VEJH=(__UINTEGER_32)(t__FXGH |  1);
+                    next__SEJH=((__POINTER )(NULL));
+                    result__UEJH=((__POINTER *)ptr_table__TEJH)[ 0];
+                    if ((result__UEJH == (void *)NULL)) {
+                      result__UEJH=new_lab__MRJ(lab_type__VEJH);
+                      next__SEJH=(void *)((unsigned long)result__UEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WEJH)));
+                      ((__POINTER *)next__SEJH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__TEJH)[ 0]=next__SEJH;
                     } else {
-                      next__Z2IH=((__POINTER *)result__12IH)[ 0];
-                      if ((next__Z2IH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__12IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__32IH <<  1)) <=  4096)) {
-                          next__Z2IH=(void *)((unsigned long)result__12IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__32IH)));
+                      next__SEJH=((__POINTER *)result__UEJH)[ 0];
+                      if ((next__SEJH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UEJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WEJH <<  1)) <=  4096)) {
+                          next__SEJH=(void *)((unsigned long)result__UEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WEJH)));
                         } else {
-                          next__Z2IH=new_lab__MRJ(lab_type__22IH);
+                          next__SEJH=new_lab__MRJ(lab_type__VEJH);
                         };
-                        ((__POINTER *)next__Z2IH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__02IH)[ 0]=next__Z2IH;
+                        ((__POINTER *)next__SEJH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__TEJH)[ 0]=next__SEJH;
                       } else {
-                        ((__POINTER *)result__12IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Z2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__12IH=next__Z2IH;
+                        ((__POINTER *)result__UEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__UEJH=next__SEJH;
                       };
                     };
-                    ptr__TOGH=result__12IH;
+                    ptr__AXGH=result__UEJH;
                   };
-                  result__SOGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__TOGH);
-                  *(result__SOGH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
+                  result__5WGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__AXGH);
+                  *(result__5WGH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
                 };
-                Self__0OGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__SOGH);
-                Self__0OGH->item__0VHD=i__1OGH;
-                Self__0OGH->next__MOOD=NULL;
-                Self__5TEC->first_link__EUEC=result__SOGH;
+                Self__HXGH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__5WGH);
+                Self__HXGH->item__0VHD=i__IXGH;
+                Self__HXGH->next__MOOD=NULL;
+                Self__5TEC->first_link__EUEC=result__5WGH;
                 Self__5TEC->parent_linked_collection__LD.upper__5CD= 1;
-                Self__5TEC->last_link__NUEC=result__SOGH;
+                Self__5TEC->last_link__NUEC=result__5WGH;
                 Self__5TEC->mem_idx__OUEC= 1;
-                Self__5TEC->mem_lnk__QUEC=result__SOGH;
+                Self__5TEC->mem_lnk__QUEC=result__5WGH;
               } else {
                 result__APED=NULL;
                 ptr__BPED=((__POINTER )(NULL));
@@ -6716,61 +6732,61 @@ int main(int argc,char **argv)
                   typ_id__GPED=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
                   clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__DPED);
                   if ((typ_id__GPED == (__INTEGER)(-  1))) {
-                    a__HCEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__ICEH=(__UINTEGER_32)((__UINTEGER_32)(sz__DPED + a__HCEH) & (__UINTEGER_32)(~ a__HCEH));
-                    ptr_table__52IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ICEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__42IH=((__POINTER )(NULL));
-                    result__A3IH=((__POINTER *)ptr_table__52IH)[ 0];
-                    if ((result__A3IH == (void *)NULL)) {
-                      result__A3IH=new_lab__MRJ(new_size__ICEH);
-                      next__42IH=(void *)((unsigned long)result__A3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ICEH)));
-                      ((__POINTER *)next__42IH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__52IH)[ 0]=next__42IH;
+                    a__WLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__XLEH=(__UINTEGER_32)((__UINTEGER_32)(sz__DPED + a__WLEH) & (__UINTEGER_32)(~ a__WLEH));
+                    ptr_table__YEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XLEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__XEJH=((__POINTER )(NULL));
+                    result__ZEJH=((__POINTER *)ptr_table__YEJH)[ 0];
+                    if ((result__ZEJH == (void *)NULL)) {
+                      result__ZEJH=new_lab__MRJ(new_size__XLEH);
+                      next__XEJH=(void *)((unsigned long)result__ZEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLEH)));
+                      ((__POINTER *)next__XEJH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__YEJH)[ 0]=next__XEJH;
                     } else {
-                      next__42IH=((__POINTER *)result__A3IH)[ 0];
-                      if ((next__42IH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ICEH <<  1)) <=  4096)) {
-                          next__42IH=(void *)((unsigned long)result__A3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ICEH)));
+                      next__XEJH=((__POINTER *)result__ZEJH)[ 0];
+                      if ((next__XEJH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZEJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XLEH <<  1)) <=  4096)) {
+                          next__XEJH=(void *)((unsigned long)result__ZEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLEH)));
                         } else {
-                          next__42IH=new_lab__MRJ(new_size__ICEH);
+                          next__XEJH=new_lab__MRJ(new_size__XLEH);
                         };
-                        ((__POINTER *)next__42IH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__52IH)[ 0]=next__42IH;
+                        ((__POINTER *)next__XEJH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__YEJH)[ 0]=next__XEJH;
                       } else {
-                        ((__POINTER *)result__A3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__42IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__A3IH=next__42IH;
+                        ((__POINTER *)result__ZEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__ZEJH=next__XEJH;
                       };
                     };
-                    ptr__BPED=result__A3IH;
+                    ptr__BPED=result__ZEJH;
                   } else {
-                    t__MCEH=((__UINTEGER_32 )typ_id__GPED);
-                    a__LCEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__H3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__DPED + a__LCEH) & (__UINTEGER_32)(~ a__LCEH));
-                    ptr_table__E3IH=((__POINTER )(&(table_type[(t__MCEH)])));
-                    lab_type__G3IH=(__UINTEGER_32)(t__MCEH |  1);
-                    next__D3IH=((__POINTER )(NULL));
-                    result__F3IH=((__POINTER *)ptr_table__E3IH)[ 0];
-                    if ((result__F3IH == (void *)NULL)) {
-                      result__F3IH=new_lab__MRJ(lab_type__G3IH);
-                      next__D3IH=(void *)((unsigned long)result__F3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H3IH)));
-                      ((__POINTER *)next__D3IH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__E3IH)[ 0]=next__D3IH;
+                    t__1LEH=((__UINTEGER_32 )typ_id__GPED);
+                    a__0LEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__AFJH=(__UINTEGER_32)((__UINTEGER_32)(sz__DPED + a__0LEH) & (__UINTEGER_32)(~ a__0LEH));
+                    ptr_table__3EJH=((__POINTER )(&(table_type[(t__1LEH)])));
+                    lab_type__5EJH=(__UINTEGER_32)(t__1LEH |  1);
+                    next__2EJH=((__POINTER )(NULL));
+                    result__4EJH=((__POINTER *)ptr_table__3EJH)[ 0];
+                    if ((result__4EJH == (void *)NULL)) {
+                      result__4EJH=new_lab__MRJ(lab_type__5EJH);
+                      next__2EJH=(void *)((unsigned long)result__4EJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AFJH)));
+                      ((__POINTER *)next__2EJH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__3EJH)[ 0]=next__2EJH;
                     } else {
-                      next__D3IH=((__POINTER *)result__F3IH)[ 0];
-                      if ((next__D3IH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__H3IH <<  1)) <=  4096)) {
-                          next__D3IH=(void *)((unsigned long)result__F3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H3IH)));
+                      next__2EJH=((__POINTER *)result__4EJH)[ 0];
+                      if ((next__2EJH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4EJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AFJH <<  1)) <=  4096)) {
+                          next__2EJH=(void *)((unsigned long)result__4EJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AFJH)));
                         } else {
-                          next__D3IH=new_lab__MRJ(lab_type__G3IH);
+                          next__2EJH=new_lab__MRJ(lab_type__5EJH);
                         };
-                        ((__POINTER *)next__D3IH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__E3IH)[ 0]=next__D3IH;
+                        ((__POINTER *)next__2EJH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__3EJH)[ 0]=next__2EJH;
                       } else {
-                        ((__POINTER *)result__F3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__F3IH=next__D3IH;
+                        ((__POINTER *)result__4EJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2EJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__4EJH=next__2EJH;
                       };
                     };
-                    ptr__BPED=result__F3IH;
+                    ptr__BPED=result__4EJH;
                   };
                   result__APED=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__BPED);
                   *(result__APED) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
@@ -6787,9 +6803,9 @@ int main(int argc,char **argv)
           };
         };
         if ((! result__ISEB)) {
-          pos__IUZG=current_position__JXF();
+          pos__W3ZG=current_position__JXF();
           put_error__text__KNG( 0,(&__string_162));
-          put_position__UOG(pos__IUZG);
+          put_position__UOG(pos__W3ZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -6799,21 +6815,21 @@ int main(int argc,char **argv)
         if ((! read_space__3RD())) {
           result__1GG=FALSE__;
         } else {
-          result__3SBH='\0';
+          result__K2BH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__3SBH=((__CHARACTER )(( 0)));
+            result__K2BH=((__CHARACTER )(( 0)));
           } else {
-            result__3SBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__K2BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__3SBH == ';')) {
+          if ((result__K2BH == ';')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
             result__1GG=TRUE__;
           };
         };
         if ((! result__1GG)) {
-          pos__KUZG=current_position__JXF();
+          pos__Y3ZG=current_position__JXF();
           put_error__text__KNG( 2,(&__string_163));
-          put_position__UOG(pos__KUZG);
+          put_position__UOG(pos__Y3ZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -6823,16 +6839,16 @@ int main(int argc,char **argv)
       };
     };
     read_space__3RD();
-    result__GKBH='\0';
+    result__ETBH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__GKBH=((__CHARACTER )(( 0)));
+      result__ETBH=((__CHARACTER )(( 0)));
     } else {
-      result__GKBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__ETBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__GKBH != ((__CHARACTER )(( 0))))) {
-      pos__MUZG=current_position__JXF();
+    if ((result__ETBH != ((__CHARACTER )(( 0))))) {
+      pos__03ZG=current_position__JXF();
       put_error__text__KNG( 0,(&__string_164));
-      put_position__UOG(pos__MUZG);
+      put_position__UOG(pos__03ZG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -6852,112 +6868,112 @@ int main(int argc,char **argv)
     typ_id__SYB=__FAST_ARRAYoSLOTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__PYB);
     if ((typ_id__SYB == (__INTEGER)(-  1))) {
-      a__KMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__LMFH=(__UINTEGER_32)((__UINTEGER_32)(sz__PYB + a__KMFH) & (__UINTEGER_32)(~ a__KMFH));
-      ptr_table__J3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LMFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__I3IH=((__POINTER )(NULL));
-      result__K3IH=((__POINTER *)ptr_table__J3IH)[ 0];
-      if ((result__K3IH == (void *)NULL)) {
-        result__K3IH=new_lab__MRJ(new_size__LMFH);
-        next__I3IH=(void *)((unsigned long)result__K3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LMFH)));
-        ((__POINTER *)next__I3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__J3IH)[ 0]=next__I3IH;
+      a__RUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__SUFH=(__UINTEGER_32)((__UINTEGER_32)(sz__PYB + a__RUFH) & (__UINTEGER_32)(~ a__RUFH));
+      ptr_table__CFJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SUFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__BFJH=((__POINTER )(NULL));
+      result__DFJH=((__POINTER *)ptr_table__CFJH)[ 0];
+      if ((result__DFJH == (void *)NULL)) {
+        result__DFJH=new_lab__MRJ(new_size__SUFH);
+        next__BFJH=(void *)((unsigned long)result__DFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SUFH)));
+        ((__POINTER *)next__BFJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__CFJH)[ 0]=next__BFJH;
       } else {
-        next__I3IH=((__POINTER *)result__K3IH)[ 0];
-        if ((next__I3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LMFH <<  1)) <=  4096)) {
-            next__I3IH=(void *)((unsigned long)result__K3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LMFH)));
+        next__BFJH=((__POINTER *)result__DFJH)[ 0];
+        if ((next__BFJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DFJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SUFH <<  1)) <=  4096)) {
+            next__BFJH=(void *)((unsigned long)result__DFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SUFH)));
           } else {
-            next__I3IH=new_lab__MRJ(new_size__LMFH);
+            next__BFJH=new_lab__MRJ(new_size__SUFH);
           };
-          ((__POINTER *)next__I3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__J3IH)[ 0]=next__I3IH;
+          ((__POINTER *)next__BFJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__CFJH)[ 0]=next__BFJH;
         } else {
-          ((__POINTER *)result__K3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__K3IH=next__I3IH;
+          ((__POINTER *)result__DFJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BFJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__DFJH=next__BFJH;
         };
       };
-      ptr__NYB=result__K3IH;
+      ptr__NYB=result__DFJH;
     } else {
-      t__PMFH=((__UINTEGER_32 )typ_id__SYB);
-      a__OMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__R3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__PYB + a__OMFH) & (__UINTEGER_32)(~ a__OMFH));
-      ptr_table__O3IH=((__POINTER )(&(table_type[(t__PMFH)])));
-      lab_type__Q3IH=(__UINTEGER_32)(t__PMFH |  1);
-      next__N3IH=((__POINTER )(NULL));
-      result__P3IH=((__POINTER *)ptr_table__O3IH)[ 0];
-      if ((result__P3IH == (void *)NULL)) {
-        result__P3IH=new_lab__MRJ(lab_type__Q3IH);
-        next__N3IH=(void *)((unsigned long)result__P3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R3IH)));
-        ((__POINTER *)next__N3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__O3IH)[ 0]=next__N3IH;
+      t__WUFH=((__UINTEGER_32 )typ_id__SYB);
+      a__VUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__KFJH=(__UINTEGER_32)((__UINTEGER_32)(sz__PYB + a__VUFH) & (__UINTEGER_32)(~ a__VUFH));
+      ptr_table__HFJH=((__POINTER )(&(table_type[(t__WUFH)])));
+      lab_type__JFJH=(__UINTEGER_32)(t__WUFH |  1);
+      next__GFJH=((__POINTER )(NULL));
+      result__IFJH=((__POINTER *)ptr_table__HFJH)[ 0];
+      if ((result__IFJH == (void *)NULL)) {
+        result__IFJH=new_lab__MRJ(lab_type__JFJH);
+        next__GFJH=(void *)((unsigned long)result__IFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFJH)));
+        ((__POINTER *)next__GFJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__HFJH)[ 0]=next__GFJH;
       } else {
-        next__N3IH=((__POINTER *)result__P3IH)[ 0];
-        if ((next__N3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__R3IH <<  1)) <=  4096)) {
-            next__N3IH=(void *)((unsigned long)result__P3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R3IH)));
+        next__GFJH=((__POINTER *)result__IFJH)[ 0];
+        if ((next__GFJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IFJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KFJH <<  1)) <=  4096)) {
+            next__GFJH=(void *)((unsigned long)result__IFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFJH)));
           } else {
-            next__N3IH=new_lab__MRJ(lab_type__Q3IH);
+            next__GFJH=new_lab__MRJ(lab_type__JFJH);
           };
-          ((__POINTER *)next__N3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__O3IH)[ 0]=next__N3IH;
+          ((__POINTER *)next__GFJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__HFJH)[ 0]=next__GFJH;
         } else {
-          ((__POINTER *)result__P3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__P3IH=next__N3IH;
+          ((__POINTER *)result__IFJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GFJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__IFJH=next__GFJH;
         };
       };
-      ptr__NYB=result__P3IH;
+      ptr__NYB=result__IFJH;
     };
     result__MYB=((__FAST_ARRAYoSLOTo *)ptr__NYB);
     *(result__MYB) = *(FAST_ARRAYoSLOTo__);
   };
   Self__LES=((__FAST_ARRAYoSLOTo *)result__MYB);
   if ((Self__LES->parent_arrayed_collection__V5.capacity__UES <  1)) {
-    sz__4DDH=((__UINTEGER_32 )((__INTEGER )(sizeof(void *))));
-    result__3DDH=((__POINTER )(NULL));
-    a__DEDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__5DDH=(__UINTEGER_32)((__UINTEGER_32)(sz__4DDH + a__DEDH) & (__UINTEGER_32)(~ a__DEDH));
-    new_size2__AEDH=(__UINTEGER_32)(new_size__5DDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__AEDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__SMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TMFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__AEDH + a__SMFH) & (__UINTEGER_32)(~ a__SMFH));
-      ptr_table__T3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TMFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__S3IH=((__POINTER )(NULL));
-      result__U3IH=((__POINTER *)ptr_table__T3IH)[ 0];
-      if ((result__U3IH == (void *)NULL)) {
-        result__U3IH=new_lab__MRJ(new_size__TMFH);
-        next__S3IH=(void *)((unsigned long)result__U3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TMFH)));
-        ((__POINTER *)next__S3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__T3IH)[ 0]=next__S3IH;
-      } else {
-        next__S3IH=((__POINTER *)result__U3IH)[ 0];
-        if ((next__S3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U3IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TMFH <<  1)) <=  4096)) {
-            next__S3IH=(void *)((unsigned long)result__U3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TMFH)));
-          } else {
-            next__S3IH=new_lab__MRJ(new_size__TMFH);
-          };
-          ((__POINTER *)next__S3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__T3IH)[ 0]=next__S3IH;
-        } else {
-          ((__POINTER *)result__U3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__U3IH=next__S3IH;
-        };
-      };
-      ((__POINTER *)result__U3IH)[ 0]=((__POINTER ) 3);
-      result__3DDH=(void *)((unsigned long)result__U3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__X3IH=first_free__XDVB;
-      while ((((void *)result__X3IH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__X3IH)->map_size_and_id__ITB &  4294967292LU) < new_size__5DDH))) {
-        result__X3IH=((__MEMORY *)result__X3IH)->map_next_free__JTB;
-      };
-      if (((void *)result__X3IH == (void *)NULL)) {
-        result__X3IH=new_page__OA5();
-      };
-      to_busy__index__TTFC(result__X3IH,new_size__5DDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__X3IH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-      result__3DDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__X3IH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    Result__MI1C=((void **)result__3DDH);
+    sz__CNDH=((__UINTEGER_32 )((__INTEGER )(sizeof(void *))));
+    result__BNDH=((__POINTER )(NULL));
+    a__HNDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__DNDH=(__UINTEGER_32)((__UINTEGER_32)(sz__CNDH + a__HNDH) & (__UINTEGER_32)(~ a__HNDH));
+    new_size2__ENDH=(__UINTEGER_32)(new_size__DNDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+    if ((new_size2__ENDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+      a__ZUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__0UFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ENDH + a__ZUFH) & (__UINTEGER_32)(~ a__ZUFH));
+      ptr_table__MFJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0UFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__LFJH=((__POINTER )(NULL));
+      result__NFJH=((__POINTER *)ptr_table__MFJH)[ 0];
+      if ((result__NFJH == (void *)NULL)) {
+        result__NFJH=new_lab__MRJ(new_size__0UFH);
+        next__LFJH=(void *)((unsigned long)result__NFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UFH)));
+        ((__POINTER *)next__LFJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__MFJH)[ 0]=next__LFJH;
+      } else {
+        next__LFJH=((__POINTER *)result__NFJH)[ 0];
+        if ((next__LFJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NFJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0UFH <<  1)) <=  4096)) {
+            next__LFJH=(void *)((unsigned long)result__NFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UFH)));
+          } else {
+            next__LFJH=new_lab__MRJ(new_size__0UFH);
+          };
+          ((__POINTER *)next__LFJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__MFJH)[ 0]=next__LFJH;
+        } else {
+          ((__POINTER *)result__NFJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LFJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__NFJH=next__LFJH;
+        };
+      };
+      ((__POINTER *)result__NFJH)[ 0]=((__POINTER ) 3);
+      result__BNDH=(void *)((unsigned long)result__NFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+    } else {
+      result__QFJH=first_free__XDVB;
+      while ((((void *)result__QFJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__QFJH)->map_size_and_id__ITB &  4294967292LU) < new_size__DNDH))) {
+        result__QFJH=((__MEMORY *)result__QFJH)->map_next_free__JTB;
+      };
+      if (((void *)result__QFJH == (void *)NULL)) {
+        result__QFJH=new_page__OA5();
+      };
+      to_busy__index__TTFC(result__QFJH,new_size__DNDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__QFJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+      result__BNDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__QFJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    };
+    Result__MI1C=((void **)result__BNDH);
     Self__FLWD= 0;
     while ((Self__FLWD >=  0)) {
       Result__MI1C[Self__FLWD]=NULL;
@@ -6980,61 +6996,61 @@ int main(int argc,char **argv)
     typ_id__U2B=__FAST_ARRAYoTYPE_IDo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__R2B);
     if ((typ_id__U2B == (__INTEGER)(-  1))) {
-      a__ZMFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0MFH=(__UINTEGER_32)((__UINTEGER_32)(sz__R2B + a__ZMFH) & (__UINTEGER_32)(~ a__ZMFH));
-      ptr_table__13IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0MFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__03IH=((__POINTER )(NULL));
-      result__23IH=((__POINTER *)ptr_table__13IH)[ 0];
-      if ((result__23IH == (void *)NULL)) {
-        result__23IH=new_lab__MRJ(new_size__0MFH);
-        next__03IH=(void *)((unsigned long)result__23IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0MFH)));
-        ((__POINTER *)next__03IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__13IH)[ 0]=next__03IH;
+      a__AVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__BVFH=(__UINTEGER_32)((__UINTEGER_32)(sz__R2B + a__AVFH) & (__UINTEGER_32)(~ a__AVFH));
+      ptr_table__UFJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BVFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__TFJH=((__POINTER )(NULL));
+      result__VFJH=((__POINTER *)ptr_table__UFJH)[ 0];
+      if ((result__VFJH == (void *)NULL)) {
+        result__VFJH=new_lab__MRJ(new_size__BVFH);
+        next__TFJH=(void *)((unsigned long)result__VFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BVFH)));
+        ((__POINTER *)next__TFJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__UFJH)[ 0]=next__TFJH;
       } else {
-        next__03IH=((__POINTER *)result__23IH)[ 0];
-        if ((next__03IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__23IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0MFH <<  1)) <=  4096)) {
-            next__03IH=(void *)((unsigned long)result__23IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0MFH)));
+        next__TFJH=((__POINTER *)result__VFJH)[ 0];
+        if ((next__TFJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VFJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BVFH <<  1)) <=  4096)) {
+            next__TFJH=(void *)((unsigned long)result__VFJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BVFH)));
           } else {
-            next__03IH=new_lab__MRJ(new_size__0MFH);
+            next__TFJH=new_lab__MRJ(new_size__BVFH);
           };
-          ((__POINTER *)next__03IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__13IH)[ 0]=next__03IH;
+          ((__POINTER *)next__TFJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__UFJH)[ 0]=next__TFJH;
         } else {
-          ((__POINTER *)result__23IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__03IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__23IH=next__03IH;
+          ((__POINTER *)result__VFJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TFJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__VFJH=next__TFJH;
         };
       };
-      ptr__P2B=result__23IH;
+      ptr__P2B=result__VFJH;
     } else {
-      t__4MFH=((__UINTEGER_32 )typ_id__U2B);
-      a__3MFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__D4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__R2B + a__3MFH) & (__UINTEGER_32)(~ a__3MFH));
-      ptr_table__A4IH=((__POINTER )(&(table_type[(t__4MFH)])));
-      lab_type__C4IH=(__UINTEGER_32)(t__4MFH |  1);
-      next__53IH=((__POINTER )(NULL));
-      result__B4IH=((__POINTER *)ptr_table__A4IH)[ 0];
-      if ((result__B4IH == (void *)NULL)) {
-        result__B4IH=new_lab__MRJ(lab_type__C4IH);
-        next__53IH=(void *)((unsigned long)result__B4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D4IH)));
-        ((__POINTER *)next__53IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__A4IH)[ 0]=next__53IH;
+      t__FVFH=((__UINTEGER_32 )typ_id__U2B);
+      a__EVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__2FJH=(__UINTEGER_32)((__UINTEGER_32)(sz__R2B + a__EVFH) & (__UINTEGER_32)(~ a__EVFH));
+      ptr_table__ZFJH=((__POINTER )(&(table_type[(t__FVFH)])));
+      lab_type__1FJH=(__UINTEGER_32)(t__FVFH |  1);
+      next__YFJH=((__POINTER )(NULL));
+      result__0FJH=((__POINTER *)ptr_table__ZFJH)[ 0];
+      if ((result__0FJH == (void *)NULL)) {
+        result__0FJH=new_lab__MRJ(lab_type__1FJH);
+        next__YFJH=(void *)((unsigned long)result__0FJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2FJH)));
+        ((__POINTER *)next__YFJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__ZFJH)[ 0]=next__YFJH;
       } else {
-        next__53IH=((__POINTER *)result__B4IH)[ 0];
-        if ((next__53IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__D4IH <<  1)) <=  4096)) {
-            next__53IH=(void *)((unsigned long)result__B4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D4IH)));
+        next__YFJH=((__POINTER *)result__0FJH)[ 0];
+        if ((next__YFJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0FJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2FJH <<  1)) <=  4096)) {
+            next__YFJH=(void *)((unsigned long)result__0FJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2FJH)));
           } else {
-            next__53IH=new_lab__MRJ(lab_type__C4IH);
+            next__YFJH=new_lab__MRJ(lab_type__1FJH);
           };
-          ((__POINTER *)next__53IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__A4IH)[ 0]=next__53IH;
+          ((__POINTER *)next__YFJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__ZFJH)[ 0]=next__YFJH;
         } else {
-          ((__POINTER *)result__B4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__53IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__B4IH=next__53IH;
+          ((__POINTER *)result__0FJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YFJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__0FJH=next__YFJH;
         };
       };
-      ptr__P2B=result__B4IH;
+      ptr__P2B=result__0FJH;
     };
     result__O2B=((__FAST_ARRAYoTYPE_IDo *)ptr__P2B);
     *(result__O2B) = *(FAST_ARRAYoTYPE_IDo__);
@@ -7046,77 +7062,77 @@ int main(int argc,char **argv)
   };
   Self__KHS->parent_arrayed_collection__UAB.upper__S4R=(__INTEGER)(-  1);
   list_id__WAB=result__O2B;
-  result__2OGH=NULL;
-  ptr__3OGH=((__POINTER )(NULL));
-  typ_id__4OGH= 0;
-  sz__5OGH=((__UINTEGER_32 )sizeof(__TYPE_ID));
-  if ((sz__5OGH ==  0)) {
-    result__2OGH=TYPE_ID__;
+  result__JXGH=NULL;
+  ptr__KXGH=((__POINTER )(NULL));
+  typ_id__LXGH= 0;
+  sz__MXGH=((__UINTEGER_32 )sizeof(__TYPE_ID));
+  if ((sz__MXGH ==  0)) {
+    result__JXGH=TYPE_ID__;
   } else {
-    typ_id__4OGH=-1;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__5OGH);
-    if ((typ_id__4OGH == (__INTEGER)(-  1))) {
-      a__APGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__BPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__5OGH + a__APGH) & (__UINTEGER_32)(~ a__APGH));
-      ptr_table__F4IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__E4IH=((__POINTER )(NULL));
-      result__G4IH=((__POINTER *)ptr_table__F4IH)[ 0];
-      if ((result__G4IH == (void *)NULL)) {
-        result__G4IH=new_lab__MRJ(new_size__BPGH);
-        next__E4IH=(void *)((unsigned long)result__G4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BPGH)));
-        ((__POINTER *)next__E4IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__F4IH)[ 0]=next__E4IH;
-      } else {
-        next__E4IH=((__POINTER *)result__G4IH)[ 0];
-        if ((next__E4IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BPGH <<  1)) <=  4096)) {
-            next__E4IH=(void *)((unsigned long)result__G4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BPGH)));
-          } else {
-            next__E4IH=new_lab__MRJ(new_size__BPGH);
-          };
-          ((__POINTER *)next__E4IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__F4IH)[ 0]=next__E4IH;
-        } else {
-          ((__POINTER *)result__G4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__G4IH=next__E4IH;
-        };
-      };
-      ptr__3OGH=result__G4IH;
-    } else {
-      t__CPGH=((__UINTEGER_32 )typ_id__4OGH);
-      a__DPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__N4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__5OGH + a__DPGH) & (__UINTEGER_32)(~ a__DPGH));
-      ptr_table__K4IH=((__POINTER )(&(table_type[(t__CPGH)])));
-      lab_type__M4IH=(__UINTEGER_32)(t__CPGH |  1);
-      next__J4IH=((__POINTER )(NULL));
-      result__L4IH=((__POINTER *)ptr_table__K4IH)[ 0];
-      if ((result__L4IH == (void *)NULL)) {
-        result__L4IH=new_lab__MRJ(lab_type__M4IH);
-        next__J4IH=(void *)((unsigned long)result__L4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4IH)));
-        ((__POINTER *)next__J4IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__K4IH)[ 0]=next__J4IH;
-      } else {
-        next__J4IH=((__POINTER *)result__L4IH)[ 0];
-        if ((next__J4IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__N4IH <<  1)) <=  4096)) {
-            next__J4IH=(void *)((unsigned long)result__L4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4IH)));
-          } else {
-            next__J4IH=new_lab__MRJ(lab_type__M4IH);
-          };
-          ((__POINTER *)next__J4IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__K4IH)[ 0]=next__J4IH;
-        } else {
-          ((__POINTER *)result__L4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__L4IH=next__J4IH;
-        };
-      };
-      ptr__3OGH=result__L4IH;
-    };
-    result__2OGH=((__TYPE_ID *)ptr__3OGH);
-    *(result__2OGH) = *(TYPE_ID__);
-  };
-  create__with__SQB(((__TYPE_ID *)result__2OGH), 0);
-  add_last__O4R(result__O2B,result__2OGH);
+    typ_id__LXGH=-1;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__MXGH);
+    if ((typ_id__LXGH == (__INTEGER)(-  1))) {
+      a__NXGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__OXGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXGH + a__NXGH) & (__UINTEGER_32)(~ a__NXGH));
+      ptr_table__4FJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OXGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__3FJH=((__POINTER )(NULL));
+      result__5FJH=((__POINTER *)ptr_table__4FJH)[ 0];
+      if ((result__5FJH == (void *)NULL)) {
+        result__5FJH=new_lab__MRJ(new_size__OXGH);
+        next__3FJH=(void *)((unsigned long)result__5FJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OXGH)));
+        ((__POINTER *)next__3FJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__4FJH)[ 0]=next__3FJH;
+      } else {
+        next__3FJH=((__POINTER *)result__5FJH)[ 0];
+        if ((next__3FJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5FJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OXGH <<  1)) <=  4096)) {
+            next__3FJH=(void *)((unsigned long)result__5FJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OXGH)));
+          } else {
+            next__3FJH=new_lab__MRJ(new_size__OXGH);
+          };
+          ((__POINTER *)next__3FJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__4FJH)[ 0]=next__3FJH;
+        } else {
+          ((__POINTER *)result__5FJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3FJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__5FJH=next__3FJH;
+        };
+      };
+      ptr__KXGH=result__5FJH;
+    } else {
+      t__PXGH=((__UINTEGER_32 )typ_id__LXGH);
+      a__QXGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__GGJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXGH + a__QXGH) & (__UINTEGER_32)(~ a__QXGH));
+      ptr_table__DGJH=((__POINTER )(&(table_type[(t__PXGH)])));
+      lab_type__FGJH=(__UINTEGER_32)(t__PXGH |  1);
+      next__CGJH=((__POINTER )(NULL));
+      result__EGJH=((__POINTER *)ptr_table__DGJH)[ 0];
+      if ((result__EGJH == (void *)NULL)) {
+        result__EGJH=new_lab__MRJ(lab_type__FGJH);
+        next__CGJH=(void *)((unsigned long)result__EGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GGJH)));
+        ((__POINTER *)next__CGJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__DGJH)[ 0]=next__CGJH;
+      } else {
+        next__CGJH=((__POINTER *)result__EGJH)[ 0];
+        if ((next__CGJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EGJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GGJH <<  1)) <=  4096)) {
+            next__CGJH=(void *)((unsigned long)result__EGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GGJH)));
+          } else {
+            next__CGJH=new_lab__MRJ(lab_type__FGJH);
+          };
+          ((__POINTER *)next__CGJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__DGJH)[ 0]=next__CGJH;
+        } else {
+          ((__POINTER *)result__EGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CGJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__EGJH=next__CGJH;
+        };
+      };
+      ptr__KXGH=result__EGJH;
+    };
+    result__JXGH=((__TYPE_ID *)ptr__KXGH);
+    *(result__JXGH) = *(TYPE_ID__);
+  };
+  create__with__SQB(((__TYPE_ID *)result__JXGH), 0);
+  add_last__O4R(result__O2B,result__JXGH);
   result__A4B=NULL;
   ptr__B4B=((__POINTER )(NULL));
   typ_id__G4B= 0;
@@ -7127,61 +7143,61 @@ int main(int argc,char **argv)
     typ_id__G4B=-1;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__D4B);
     if ((typ_id__G4B == (__INTEGER)(-  1))) {
-      a__SWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TWDH=(__UINTEGER_32)((__UINTEGER_32)(sz__D4B + a__SWDH) & (__UINTEGER_32)(~ a__SWDH));
-      ptr_table__P4IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TWDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__O4IH=((__POINTER )(NULL));
-      result__Q4IH=((__POINTER *)ptr_table__P4IH)[ 0];
-      if ((result__Q4IH == (void *)NULL)) {
-        result__Q4IH=new_lab__MRJ(new_size__TWDH);
-        next__O4IH=(void *)((unsigned long)result__Q4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TWDH)));
-        ((__POINTER *)next__O4IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__P4IH)[ 0]=next__O4IH;
+      a__W5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__X5DH=(__UINTEGER_32)((__UINTEGER_32)(sz__D4B + a__W5DH) & (__UINTEGER_32)(~ a__W5DH));
+      ptr_table__IGJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X5DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__HGJH=((__POINTER )(NULL));
+      result__JGJH=((__POINTER *)ptr_table__IGJH)[ 0];
+      if ((result__JGJH == (void *)NULL)) {
+        result__JGJH=new_lab__MRJ(new_size__X5DH);
+        next__HGJH=(void *)((unsigned long)result__JGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5DH)));
+        ((__POINTER *)next__HGJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__IGJH)[ 0]=next__HGJH;
       } else {
-        next__O4IH=((__POINTER *)result__Q4IH)[ 0];
-        if ((next__O4IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TWDH <<  1)) <=  4096)) {
-            next__O4IH=(void *)((unsigned long)result__Q4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TWDH)));
+        next__HGJH=((__POINTER *)result__JGJH)[ 0];
+        if ((next__HGJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JGJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__X5DH <<  1)) <=  4096)) {
+            next__HGJH=(void *)((unsigned long)result__JGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5DH)));
           } else {
-            next__O4IH=new_lab__MRJ(new_size__TWDH);
+            next__HGJH=new_lab__MRJ(new_size__X5DH);
           };
-          ((__POINTER *)next__O4IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__P4IH)[ 0]=next__O4IH;
+          ((__POINTER *)next__HGJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__IGJH)[ 0]=next__HGJH;
         } else {
-          ((__POINTER *)result__Q4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Q4IH=next__O4IH;
+          ((__POINTER *)result__JGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HGJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__JGJH=next__HGJH;
         };
       };
-      ptr__B4B=result__Q4IH;
+      ptr__B4B=result__JGJH;
     } else {
-      t__XWDH=((__UINTEGER_32 )typ_id__G4B);
-      a__WWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__X4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__D4B + a__WWDH) & (__UINTEGER_32)(~ a__WWDH));
-      ptr_table__U4IH=((__POINTER )(&(table_type[(t__XWDH)])));
-      lab_type__W4IH=(__UINTEGER_32)(t__XWDH |  1);
-      next__T4IH=((__POINTER )(NULL));
-      result__V4IH=((__POINTER *)ptr_table__U4IH)[ 0];
-      if ((result__V4IH == (void *)NULL)) {
-        result__V4IH=new_lab__MRJ(lab_type__W4IH);
-        next__T4IH=(void *)((unsigned long)result__V4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X4IH)));
-        ((__POINTER *)next__T4IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__U4IH)[ 0]=next__T4IH;
+      t__15DH=((__UINTEGER_32 )typ_id__G4B);
+      a__05DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__QGJH=(__UINTEGER_32)((__UINTEGER_32)(sz__D4B + a__05DH) & (__UINTEGER_32)(~ a__05DH));
+      ptr_table__NGJH=((__POINTER )(&(table_type[(t__15DH)])));
+      lab_type__PGJH=(__UINTEGER_32)(t__15DH |  1);
+      next__MGJH=((__POINTER )(NULL));
+      result__OGJH=((__POINTER *)ptr_table__NGJH)[ 0];
+      if ((result__OGJH == (void *)NULL)) {
+        result__OGJH=new_lab__MRJ(lab_type__PGJH);
+        next__MGJH=(void *)((unsigned long)result__OGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QGJH)));
+        ((__POINTER *)next__MGJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__NGJH)[ 0]=next__MGJH;
       } else {
-        next__T4IH=((__POINTER *)result__V4IH)[ 0];
-        if ((next__T4IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V4IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__X4IH <<  1)) <=  4096)) {
-            next__T4IH=(void *)((unsigned long)result__V4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X4IH)));
+        next__MGJH=((__POINTER *)result__OGJH)[ 0];
+        if ((next__MGJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OGJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QGJH <<  1)) <=  4096)) {
+            next__MGJH=(void *)((unsigned long)result__OGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QGJH)));
           } else {
-            next__T4IH=new_lab__MRJ(lab_type__W4IH);
+            next__MGJH=new_lab__MRJ(lab_type__PGJH);
           };
-          ((__POINTER *)next__T4IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__U4IH)[ 0]=next__T4IH;
+          ((__POINTER *)next__MGJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__NGJH)[ 0]=next__MGJH;
         } else {
-          ((__POINTER *)result__V4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__V4IH=next__T4IH;
+          ((__POINTER *)result__OGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MGJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__OGJH=next__MGJH;
         };
       };
-      ptr__B4B=result__V4IH;
+      ptr__B4B=result__OGJH;
     };
     result__A4B=((__TYPE_ID *)ptr__B4B);
     *(result__A4B) = *(TYPE_ID__);
@@ -7244,139 +7260,139 @@ int main(int argc,char **argv)
     };
     dir__SB=__tmp__AD;
     check_in__begin__4QQC(__tmp__AD,(__INTEGER)(((__STRING_CONSTANT *)((__DIRECTORY_UNIX *)__tmp__AD)->parent_entry_unix__ZED.parent_entry__YED.path__BD)->count__DD +  1));
-    Self__EPGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-    result__IPGH= 0;
-    __tmp__KPGH=((__STRING_CONSTANT *)(&__string_146))->count__DD;
-    Self__LPGH= 1;
-    while ((Self__LPGH <= __tmp__KPGH)) {
-      result__IPGH=(__INTEGER)((__INTEGER)( 5 * result__IPGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_146))->storage__VQO)[(__INTEGER)(Self__LPGH -  1)])));
-      Self__LPGH=(__INTEGER)(Self__LPGH +  1);
-    };
-    if ((result__IPGH <  0)) {
-      result__IPGH=(__INTEGER)(~ result__IPGH);
-    };
-    node__GPGH=((void **)Self__EPGH->buckets__5CT)[(__INTEGER)(result__IPGH % Self__EPGH->capacity__0CT)];
-    while ((! (((void *)node__GPGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__GPGH)->key__LDT == (void *)(&__string_146))))) {
-      node__GPGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__GPGH)->next__WDT;
-    };
-    if (((void *)node__GPGH != (void *)NULL)) {
-      Self__5MFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-      result__NPGH= 0;
-      __tmp__PPGH=((__STRING_CONSTANT *)(&__string_146))->count__DD;
-      Self__QPGH= 1;
-      while ((Self__QPGH <= __tmp__PPGH)) {
-        result__NPGH=(__INTEGER)((__INTEGER)( 5 * result__NPGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_146))->storage__VQO)[(__INTEGER)(Self__QPGH -  1)])));
-        Self__QPGH=(__INTEGER)(Self__QPGH +  1);
-      };
-      if ((result__NPGH <  0)) {
-        result__NPGH=(__INTEGER)(~ result__NPGH);
-      };
-      node__BNFH=((void **)Self__5MFH->buckets__5CT)[(__INTEGER)(result__NPGH % Self__5MFH->capacity__0CT)];
-      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BNFH)->key__LDT != (void *)(&__string_146))) {
-        node__BNFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BNFH)->next__WDT;
-      };
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BNFH)->item__HY3)->first_link__EUEC)->item__0VHD;
-      Self__TWZG=((__STRING_CONSTANT *)txt__1);
-      new__UWZG=create__NBB(Self__TWZG->count__DD);
-      copy__ZCS(new__UWZG,Self__TWZG);
-      save_file__with__PDC(add_ext__EBF((&__string_146)),new__UWZG);
-    };
-    Self__SPGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-    result__WPGH= 0;
-    __tmp__YPGH=((__STRING_CONSTANT *)(&__string_66))->count__DD;
-    Self__ZPGH= 1;
-    while ((Self__ZPGH <= __tmp__YPGH)) {
-      result__WPGH=(__INTEGER)((__INTEGER)( 5 * result__WPGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_66))->storage__VQO)[(__INTEGER)(Self__ZPGH -  1)])));
-      Self__ZPGH=(__INTEGER)(Self__ZPGH +  1);
-    };
-    if ((result__WPGH <  0)) {
-      result__WPGH=(__INTEGER)(~ result__WPGH);
-    };
-    node__UPGH=((void **)Self__SPGH->buckets__5CT)[(__INTEGER)(result__WPGH % Self__SPGH->capacity__0CT)];
-    while ((! (((void *)node__UPGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UPGH)->key__LDT == (void *)(&__string_66))))) {
-      node__UPGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UPGH)->next__WDT;
-    };
-    if (((void *)node__UPGH != (void *)NULL)) {
-      Self__DNFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-      result__1PGH= 0;
-      __tmp__3PGH=((__STRING_CONSTANT *)(&__string_66))->count__DD;
-      Self__4PGH= 1;
-      while ((Self__4PGH <= __tmp__3PGH)) {
-        result__1PGH=(__INTEGER)((__INTEGER)( 5 * result__1PGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_66))->storage__VQO)[(__INTEGER)(Self__4PGH -  1)])));
-        Self__4PGH=(__INTEGER)(Self__4PGH +  1);
-      };
-      if ((result__1PGH <  0)) {
-        result__1PGH=(__INTEGER)(~ result__1PGH);
-      };
-      node__FNFH=((void **)Self__DNFH->buckets__5CT)[(__INTEGER)(result__1PGH % Self__DNFH->capacity__0CT)];
-      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FNFH)->key__LDT != (void *)(&__string_66))) {
-        node__FNFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FNFH)->next__WDT;
-      };
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FNFH)->item__HY3)->first_link__EUEC)->item__0VHD;
-      Self__VWZG=((__STRING_CONSTANT *)txt__1);
-      new__WWZG=create__NBB(Self__VWZG->count__DD);
-      copy__ZCS(new__WWZG,Self__VWZG);
-      save_file__with__PDC(add_ext__EBF((&__string_66)),new__WWZG);
-    };
-    Self__AQGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-    result__EQGH= 0;
-    __tmp__GQGH=((__STRING_CONSTANT *)(&__string_147))->count__DD;
-    Self__HQGH= 1;
-    while ((Self__HQGH <= __tmp__GQGH)) {
-      result__EQGH=(__INTEGER)((__INTEGER)( 5 * result__EQGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_147))->storage__VQO)[(__INTEGER)(Self__HQGH -  1)])));
-      Self__HQGH=(__INTEGER)(Self__HQGH +  1);
-    };
-    if ((result__EQGH <  0)) {
-      result__EQGH=(__INTEGER)(~ result__EQGH);
-    };
-    node__CQGH=((void **)Self__AQGH->buckets__5CT)[(__INTEGER)(result__EQGH % Self__AQGH->capacity__0CT)];
-    while ((! (((void *)node__CQGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__CQGH)->key__LDT == (void *)(&__string_147))))) {
-      node__CQGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__CQGH)->next__WDT;
-    };
-    if (((void *)node__CQGH != (void *)NULL)) {
-      Self__HNFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-      result__JQGH= 0;
-      __tmp__LQGH=((__STRING_CONSTANT *)(&__string_147))->count__DD;
-      Self__MQGH= 1;
-      while ((Self__MQGH <= __tmp__LQGH)) {
-        result__JQGH=(__INTEGER)((__INTEGER)( 5 * result__JQGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_147))->storage__VQO)[(__INTEGER)(Self__MQGH -  1)])));
-        Self__MQGH=(__INTEGER)(Self__MQGH +  1);
-      };
-      if ((result__JQGH <  0)) {
-        result__JQGH=(__INTEGER)(~ result__JQGH);
-      };
-      node__JNFH=((void **)Self__HNFH->buckets__5CT)[(__INTEGER)(result__JQGH % Self__HNFH->capacity__0CT)];
-      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__JNFH)->key__LDT != (void *)(&__string_147))) {
-        node__JNFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__JNFH)->next__WDT;
-      };
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__JNFH)->item__HY3)->first_link__EUEC)->item__0VHD;
-      Self__REDH=((__STRING *)directory_list__YB);
-      i__SEDH=Self__REDH->count__WFC;
-      j__UEDH=((__STRING_CONSTANT *)txt__1)->count__DD;
-      resize__YXZ(Self__REDH,(__INTEGER)(i__SEDH + j__UEDH));
-      if (((i__SEDH >  0) && (j__UEDH >  0))) {
-        move__to__by__BWCC(Self__REDH->storage__BCS, 0,(__INTEGER)(i__SEDH -  1),j__UEDH);
-      };
-      Self__NNFH=((__CHARACTER *)Self__REDH->storage__BCS);
-      model__ONFH=((__STRING_CONSTANT *)txt__1)->storage__VQO;
-      Self__MNFH=(__INTEGER)(j__UEDH -  1);
-      while ((Self__MNFH >=  0)) {
-        Self__NNFH[Self__MNFH]=((__CHARACTER *)model__ONFH)[Self__MNFH];
-        Self__MNFH=(__INTEGER)(Self__MNFH -  1);
+    Self__RXGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+    result__VXGH= 0;
+    __tmp__XXGH=((__STRING_CONSTANT *)(&__string_146))->count__DD;
+    Self__YXGH= 1;
+    while ((Self__YXGH <= __tmp__XXGH)) {
+      result__VXGH=(__INTEGER)((__INTEGER)( 5 * result__VXGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_146))->storage__VQO)[(__INTEGER)(Self__YXGH -  1)])));
+      Self__YXGH=(__INTEGER)(Self__YXGH +  1);
+    };
+    if ((result__VXGH <  0)) {
+      result__VXGH=(__INTEGER)(~ result__VXGH);
+    };
+    node__TXGH=((void **)Self__RXGH->buckets__5CT)[(__INTEGER)(result__VXGH % Self__RXGH->capacity__0CT)];
+    while ((! (((void *)node__TXGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__TXGH)->key__LDT == (void *)(&__string_146))))) {
+      node__TXGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__TXGH)->next__WDT;
+    };
+    if (((void *)node__TXGH != (void *)NULL)) {
+      Self__GVFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+      result__0XGH= 0;
+      __tmp__2XGH=((__STRING_CONSTANT *)(&__string_146))->count__DD;
+      Self__3XGH= 1;
+      while ((Self__3XGH <= __tmp__2XGH)) {
+        result__0XGH=(__INTEGER)((__INTEGER)( 5 * result__0XGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_146))->storage__VQO)[(__INTEGER)(Self__3XGH -  1)])));
+        Self__3XGH=(__INTEGER)(Self__3XGH +  1);
+      };
+      if ((result__0XGH <  0)) {
+        result__0XGH=(__INTEGER)(~ result__0XGH);
+      };
+      node__IVFH=((void **)Self__GVFH->buckets__5CT)[(__INTEGER)(result__0XGH % Self__GVFH->capacity__0CT)];
+      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IVFH)->key__LDT != (void *)(&__string_146))) {
+        node__IVFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IVFH)->next__WDT;
+      };
+      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IVFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+      Self__BA0G=((__STRING_CONSTANT *)txt__1);
+      new__CA0G=create__NBB(Self__BA0G->count__DD);
+      copy__ZCS(new__CA0G,Self__BA0G);
+      save_file__with__PDC(add_ext__EBF((&__string_146)),new__CA0G);
+    };
+    Self__5XGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+    result__DYGH= 0;
+    __tmp__FYGH=((__STRING_CONSTANT *)(&__string_66))->count__DD;
+    Self__GYGH= 1;
+    while ((Self__GYGH <= __tmp__FYGH)) {
+      result__DYGH=(__INTEGER)((__INTEGER)( 5 * result__DYGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_66))->storage__VQO)[(__INTEGER)(Self__GYGH -  1)])));
+      Self__GYGH=(__INTEGER)(Self__GYGH +  1);
+    };
+    if ((result__DYGH <  0)) {
+      result__DYGH=(__INTEGER)(~ result__DYGH);
+    };
+    node__BYGH=((void **)Self__5XGH->buckets__5CT)[(__INTEGER)(result__DYGH % Self__5XGH->capacity__0CT)];
+    while ((! (((void *)node__BYGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BYGH)->key__LDT == (void *)(&__string_66))))) {
+      node__BYGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BYGH)->next__WDT;
+    };
+    if (((void *)node__BYGH != (void *)NULL)) {
+      Self__KVFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+      result__IYGH= 0;
+      __tmp__KYGH=((__STRING_CONSTANT *)(&__string_66))->count__DD;
+      Self__LYGH= 1;
+      while ((Self__LYGH <= __tmp__KYGH)) {
+        result__IYGH=(__INTEGER)((__INTEGER)( 5 * result__IYGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_66))->storage__VQO)[(__INTEGER)(Self__LYGH -  1)])));
+        Self__LYGH=(__INTEGER)(Self__LYGH +  1);
+      };
+      if ((result__IYGH <  0)) {
+        result__IYGH=(__INTEGER)(~ result__IYGH);
+      };
+      node__MVFH=((void **)Self__KVFH->buckets__5CT)[(__INTEGER)(result__IYGH % Self__KVFH->capacity__0CT)];
+      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MVFH)->key__LDT != (void *)(&__string_66))) {
+        node__MVFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MVFH)->next__WDT;
+      };
+      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MVFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+      Self__DA0G=((__STRING_CONSTANT *)txt__1);
+      new__EA0G=create__NBB(Self__DA0G->count__DD);
+      copy__ZCS(new__EA0G,Self__DA0G);
+      save_file__with__PDC(add_ext__EBF((&__string_66)),new__EA0G);
+    };
+    Self__NYGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+    result__RYGH= 0;
+    __tmp__TYGH=((__STRING_CONSTANT *)(&__string_147))->count__DD;
+    Self__UYGH= 1;
+    while ((Self__UYGH <= __tmp__TYGH)) {
+      result__RYGH=(__INTEGER)((__INTEGER)( 5 * result__RYGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_147))->storage__VQO)[(__INTEGER)(Self__UYGH -  1)])));
+      Self__UYGH=(__INTEGER)(Self__UYGH +  1);
+    };
+    if ((result__RYGH <  0)) {
+      result__RYGH=(__INTEGER)(~ result__RYGH);
+    };
+    node__PYGH=((void **)Self__NYGH->buckets__5CT)[(__INTEGER)(result__RYGH % Self__NYGH->capacity__0CT)];
+    while ((! (((void *)node__PYGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__PYGH)->key__LDT == (void *)(&__string_147))))) {
+      node__PYGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__PYGH)->next__WDT;
+    };
+    if (((void *)node__PYGH != (void *)NULL)) {
+      Self__OVFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+      result__WYGH= 0;
+      __tmp__YYGH=((__STRING_CONSTANT *)(&__string_147))->count__DD;
+      Self__ZYGH= 1;
+      while ((Self__ZYGH <= __tmp__YYGH)) {
+        result__WYGH=(__INTEGER)((__INTEGER)( 5 * result__WYGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_147))->storage__VQO)[(__INTEGER)(Self__ZYGH -  1)])));
+        Self__ZYGH=(__INTEGER)(Self__ZYGH +  1);
+      };
+      if ((result__WYGH <  0)) {
+        result__WYGH=(__INTEGER)(~ result__WYGH);
+      };
+      node__QVFH=((void **)Self__OVFH->buckets__5CT)[(__INTEGER)(result__WYGH % Self__OVFH->capacity__0CT)];
+      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__QVFH)->key__LDT != (void *)(&__string_147))) {
+        node__QVFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__QVFH)->next__WDT;
+      };
+      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__QVFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+      Self__VNDH=((__STRING *)directory_list__YB);
+      i__WNDH=Self__VNDH->count__WFC;
+      j__YNDH=((__STRING_CONSTANT *)txt__1)->count__DD;
+      resize__YXZ(Self__VNDH,(__INTEGER)(i__WNDH + j__YNDH));
+      if (((i__WNDH >  0) && (j__YNDH >  0))) {
+        move__to__by__BWCC(Self__VNDH->storage__BCS, 0,(__INTEGER)(i__WNDH -  1),j__YNDH);
+      };
+      Self__UVFH=((__CHARACTER *)Self__VNDH->storage__BCS);
+      model__VVFH=((__STRING_CONSTANT *)txt__1)->storage__VQO;
+      Self__TVFH=(__INTEGER)(j__YNDH -  1);
+      while ((Self__TVFH >=  0)) {
+        Self__UVFH[Self__TVFH]=((__CHARACTER *)model__VVFH)[Self__TVFH];
+        Self__TVFH=(__INTEGER)(Self__TVFH -  1);
       };
     };
     Self__3VVB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-    result__OQGH= 0;
-    __tmp__QQGH=((__STRING_CONSTANT *)(&__string_149))->count__DD;
-    Self__RQGH= 1;
-    while ((Self__RQGH <= __tmp__QQGH)) {
-      result__OQGH=(__INTEGER)((__INTEGER)( 5 * result__OQGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_149))->storage__VQO)[(__INTEGER)(Self__RQGH -  1)])));
-      Self__RQGH=(__INTEGER)(Self__RQGH +  1);
+    result__1YGH= 0;
+    __tmp__3YGH=((__STRING_CONSTANT *)(&__string_149))->count__DD;
+    Self__4YGH= 1;
+    while ((Self__4YGH <= __tmp__3YGH)) {
+      result__1YGH=(__INTEGER)((__INTEGER)( 5 * result__1YGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_149))->storage__VQO)[(__INTEGER)(Self__4YGH -  1)])));
+      Self__4YGH=(__INTEGER)(Self__4YGH +  1);
     };
-    if ((result__OQGH <  0)) {
-      result__OQGH=(__INTEGER)(~ result__OQGH);
+    if ((result__1YGH <  0)) {
+      result__1YGH=(__INTEGER)(~ result__1YGH);
     };
-    node__HWVB=((void **)Self__3VVB->buckets__5CT)[(__INTEGER)(result__OQGH % Self__3VVB->capacity__0CT)];
+    node__HWVB=((void **)Self__3VVB->buckets__5CT)[(__INTEGER)(result__1YGH % Self__3VVB->capacity__0CT)];
     while ((! (((void *)node__HWVB == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__HWVB)->key__LDT,(&__string_149))))) {
       node__HWVB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__HWVB)->next__WDT;
     };
@@ -7385,140 +7401,140 @@ int main(int argc,char **argv)
       append__BOS(directory_list__YB,txt__1);
     };
     save_file__with__PDC(add_ext__EBF((&__string_168)),directory_list__YB);
-    Self__TQGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-    result__XQGH= 0;
-    __tmp__ZQGH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
-    Self__0QGH= 1;
-    while ((Self__0QGH <= __tmp__ZQGH)) {
-      result__XQGH=(__INTEGER)((__INTEGER)( 5 * result__XQGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__0QGH -  1)])));
-      Self__0QGH=(__INTEGER)(Self__0QGH +  1);
-    };
-    if ((result__XQGH <  0)) {
-      result__XQGH=(__INTEGER)(~ result__XQGH);
-    };
-    node__VQGH=((void **)Self__TQGH->buckets__5CT)[(__INTEGER)(result__XQGH % Self__TQGH->capacity__0CT)];
-    while ((! (((void *)node__VQGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VQGH)->key__LDT == (void *)(&__string_150))))) {
-      node__VQGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VQGH)->next__WDT;
-    };
-    if (((void *)node__VQGH != (void *)NULL)) {
-      Self__TNFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-      result__2QGH= 0;
-      __tmp__4QGH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
-      Self__5QGH= 1;
-      while ((Self__5QGH <= __tmp__4QGH)) {
-        result__2QGH=(__INTEGER)((__INTEGER)( 5 * result__2QGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__5QGH -  1)])));
-        Self__5QGH=(__INTEGER)(Self__5QGH +  1);
-      };
-      if ((result__2QGH <  0)) {
-        result__2QGH=(__INTEGER)(~ result__2QGH);
-      };
-      node__VNFH=((void **)Self__TNFH->buckets__5CT)[(__INTEGER)(result__2QGH % Self__TNFH->capacity__0CT)];
-      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VNFH)->key__LDT != (void *)(&__string_150))) {
-        node__VNFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VNFH)->next__WDT;
-      };
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VNFH)->item__HY3)->first_link__EUEC)->item__0VHD;
-      Self__3EDH=((__STRING *)file_list__0B);
-      i__4EDH=Self__3EDH->count__WFC;
-      j__AFDH=((__STRING_CONSTANT *)txt__1)->count__DD;
-      resize__YXZ(Self__3EDH,(__INTEGER)(i__4EDH + j__AFDH));
-      if (((i__4EDH >  0) && (j__AFDH >  0))) {
-        move__to__by__BWCC(Self__3EDH->storage__BCS, 0,(__INTEGER)(i__4EDH -  1),j__AFDH);
-      };
-      Self__ZNFH=((__CHARACTER *)Self__3EDH->storage__BCS);
-      model__0NFH=((__STRING_CONSTANT *)txt__1)->storage__VQO;
-      Self__YNFH=(__INTEGER)(j__AFDH -  1);
-      while ((Self__YNFH >=  0)) {
-        Self__ZNFH[Self__YNFH]=((__CHARACTER *)model__0NFH)[Self__YNFH];
-        Self__YNFH=(__INTEGER)(Self__YNFH -  1);
+    Self__AZGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+    result__EZGH= 0;
+    __tmp__GZGH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
+    Self__HZGH= 1;
+    while ((Self__HZGH <= __tmp__GZGH)) {
+      result__EZGH=(__INTEGER)((__INTEGER)( 5 * result__EZGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__HZGH -  1)])));
+      Self__HZGH=(__INTEGER)(Self__HZGH +  1);
+    };
+    if ((result__EZGH <  0)) {
+      result__EZGH=(__INTEGER)(~ result__EZGH);
+    };
+    node__CZGH=((void **)Self__AZGH->buckets__5CT)[(__INTEGER)(result__EZGH % Self__AZGH->capacity__0CT)];
+    while ((! (((void *)node__CZGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__CZGH)->key__LDT == (void *)(&__string_150))))) {
+      node__CZGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__CZGH)->next__WDT;
+    };
+    if (((void *)node__CZGH != (void *)NULL)) {
+      Self__0VFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+      result__JZGH= 0;
+      __tmp__LZGH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
+      Self__MZGH= 1;
+      while ((Self__MZGH <= __tmp__LZGH)) {
+        result__JZGH=(__INTEGER)((__INTEGER)( 5 * result__JZGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__MZGH -  1)])));
+        Self__MZGH=(__INTEGER)(Self__MZGH +  1);
+      };
+      if ((result__JZGH <  0)) {
+        result__JZGH=(__INTEGER)(~ result__JZGH);
+      };
+      node__2VFH=((void **)Self__0VFH->buckets__5CT)[(__INTEGER)(result__JZGH % Self__0VFH->capacity__0CT)];
+      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2VFH)->key__LDT != (void *)(&__string_150))) {
+        node__2VFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2VFH)->next__WDT;
+      };
+      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2VFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+      Self__BODH=((__STRING *)file_list__0B);
+      i__CODH=Self__BODH->count__WFC;
+      j__EODH=((__STRING_CONSTANT *)txt__1)->count__DD;
+      resize__YXZ(Self__BODH,(__INTEGER)(i__CODH + j__EODH));
+      if (((i__CODH >  0) && (j__EODH >  0))) {
+        move__to__by__BWCC(Self__BODH->storage__BCS, 0,(__INTEGER)(i__CODH -  1),j__EODH);
+      };
+      Self__AWFH=((__CHARACTER *)Self__BODH->storage__BCS);
+      model__BWFH=((__STRING_CONSTANT *)txt__1)->storage__VQO;
+      Self__5VFH=(__INTEGER)(j__EODH -  1);
+      while ((Self__5VFH >=  0)) {
+        Self__AWFH[Self__5VFH]=((__CHARACTER *)model__BWFH)[Self__5VFH];
+        Self__5VFH=(__INTEGER)(Self__5VFH -  1);
       };
     };
     Self__NCT=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-    result__BRGH= 0;
-    __tmp__DRGH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
-    Self__ERGH= 1;
-    while ((Self__ERGH <= __tmp__DRGH)) {
-      result__BRGH=(__INTEGER)((__INTEGER)( 5 * result__BRGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__ERGH -  1)])));
-      Self__ERGH=(__INTEGER)(Self__ERGH +  1);
+    result__OZGH= 0;
+    __tmp__QZGH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
+    Self__RZGH= 1;
+    while ((Self__RZGH <= __tmp__QZGH)) {
+      result__OZGH=(__INTEGER)((__INTEGER)( 5 * result__OZGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__RZGH -  1)])));
+      Self__RZGH=(__INTEGER)(Self__RZGH +  1);
     };
-    if ((result__BRGH <  0)) {
-      result__BRGH=(__INTEGER)(~ result__BRGH);
+    if ((result__OZGH <  0)) {
+      result__OZGH=(__INTEGER)(~ result__OZGH);
     };
-    node__YCT=((void **)Self__NCT->buckets__5CT)[(__INTEGER)(result__BRGH % Self__NCT->capacity__0CT)];
+    node__YCT=((void **)Self__NCT->buckets__5CT)[(__INTEGER)(result__OZGH % Self__NCT->capacity__0CT)];
     while ((! (((void *)node__YCT == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YCT)->key__LDT == (void *)(&__string_152))))) {
       node__YCT=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YCT)->next__WDT;
     };
     if (((void *)node__YCT != (void *)NULL)) {
-      Self__5NFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
-      result__GRGH= 0;
-      __tmp__IRGH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
-      Self__JRGH= 1;
-      while ((Self__JRGH <= __tmp__IRGH)) {
-        result__GRGH=(__INTEGER)((__INTEGER)( 5 * result__GRGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__JRGH -  1)])));
-        Self__JRGH=(__INTEGER)(Self__JRGH +  1);
-      };
-      if ((result__GRGH <  0)) {
-        result__GRGH=(__INTEGER)(~ result__GRGH);
-      };
-      node__BOFH=((void **)Self__5NFH->buckets__5CT)[(__INTEGER)(result__GRGH % Self__5NFH->capacity__0CT)];
-      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BOFH)->key__LDT != (void *)(&__string_152))) {
-        node__BOFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BOFH)->next__WDT;
-      };
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BOFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+      Self__GWFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__LNH);
+      result__TZGH= 0;
+      __tmp__VZGH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
+      Self__WZGH= 1;
+      while ((Self__WZGH <= __tmp__VZGH)) {
+        result__TZGH=(__INTEGER)((__INTEGER)( 5 * result__TZGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__WZGH -  1)])));
+        Self__WZGH=(__INTEGER)(Self__WZGH +  1);
+      };
+      if ((result__TZGH <  0)) {
+        result__TZGH=(__INTEGER)(~ result__TZGH);
+      };
+      node__IWFH=((void **)Self__GWFH->buckets__5CT)[(__INTEGER)(result__TZGH % Self__GWFH->capacity__0CT)];
+      while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IWFH)->key__LDT != (void *)(&__string_152))) {
+        node__IWFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IWFH)->next__WDT;
+      };
+      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IWFH)->item__HY3)->first_link__EUEC)->item__0VHD;
       append__BOS(file_list__0B,txt__1);
     };
     save_file__with__PDC(add_ext__EBF((&__string_169)),file_list__0B);
   } else {
-    Self__14IH=((__STRING_CONSTANT *)input_name__3B);
-    result__Y4IH=FALSE__;
-    i1__Z4IH= 0;
-    i2__04IH= 0;
-    if ((((__STRING_CONSTANT *)(&__string_155))->count__DD <= Self__14IH->count__DD)) {
-      i1__Z4IH=(__INTEGER)((__INTEGER)(Self__14IH->count__DD - ((__STRING_CONSTANT *)(&__string_155))->count__DD) +  1);
-      i2__04IH= 1;
-      while ((! (((i1__Z4IH > Self__14IH->count__DD) || (i2__04IH > ((__STRING_CONSTANT *)(&__string_155))->count__DD)) || (((__CHARACTER *)Self__14IH->storage__VQO)[(__INTEGER)(i1__Z4IH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_155))->storage__VQO)[(__INTEGER)(i2__04IH -  1)])))) {
-        i1__Z4IH=(__INTEGER)(i1__Z4IH +  1);
-        i2__04IH=(__INTEGER)(i2__04IH +  1);
-      };
-      result__Y4IH=(i1__Z4IH > Self__14IH->count__DD);
-    };
-    if ((! result__Y4IH)) {
+    Self__UGJH=((__STRING_CONSTANT *)input_name__3B);
+    result__RGJH=FALSE__;
+    i1__SGJH= 0;
+    i2__TGJH= 0;
+    if ((((__STRING_CONSTANT *)(&__string_155))->count__DD <= Self__UGJH->count__DD)) {
+      i1__SGJH=(__INTEGER)((__INTEGER)(Self__UGJH->count__DD - ((__STRING_CONSTANT *)(&__string_155))->count__DD) +  1);
+      i2__TGJH= 1;
+      while ((! (((i1__SGJH > Self__UGJH->count__DD) || (i2__TGJH > ((__STRING_CONSTANT *)(&__string_155))->count__DD)) || (((__CHARACTER *)Self__UGJH->storage__VQO)[(__INTEGER)(i1__SGJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_155))->storage__VQO)[(__INTEGER)(i2__TGJH -  1)])))) {
+        i1__SGJH=(__INTEGER)(i1__SGJH +  1);
+        i2__TGJH=(__INTEGER)(i2__TGJH +  1);
+      };
+      result__RGJH=(i1__SGJH > Self__UGJH->count__DD);
+    };
+    if ((! result__RGJH)) {
       copy__ZCS(string_tmp__VH,input_name__3B);
       append__BOS(string_tmp__VH,(&__string_155));
       input_name__3B=get__IWB(string_tmp__VH);
     };
     __tmp__2H=input_name__3B;
     copy__ZCS(string_tmp__VH,input_name__3B);
-    Self__LRGH=((__STRING *)string_tmp__VH);
-    __tmp__MRGH=Self__LRGH->storage__BCS;
-    __tmp__NRGH=(__INTEGER)(Self__LRGH->count__WFC -  1);
-    Self__ORGH=((__CHARACTER *)__tmp__MRGH);
-    Self__PRGH=__tmp__NRGH;
-    while ((Self__PRGH >=  0)) {
-      if (('\\' == Self__ORGH[Self__PRGH])) {
-        Self__ORGH[Self__PRGH]='/';
+    Self__YZGH=((__STRING *)string_tmp__VH);
+    __tmp__ZZGH=Self__YZGH->storage__BCS;
+    __tmp__0ZGH=(__INTEGER)(Self__YZGH->count__WFC -  1);
+    Self__1ZGH=((__CHARACTER *)__tmp__ZZGH);
+    Self__2ZGH=__tmp__0ZGH;
+    while ((Self__2ZGH >=  0)) {
+      if (('\\' == Self__1ZGH[Self__2ZGH])) {
+        Self__1ZGH[Self__2ZGH]='/';
       };
-      Self__PRGH=(__INTEGER)(Self__PRGH -  1);
+      Self__2ZGH=(__INTEGER)(Self__2ZGH -  1);
     };
-    result__URGH=((__STRING *)string_tmp__VH)->count__WFC;
-    while ((! ((result__URGH <  1) || (((__CHARACTER *)((__STRING *)string_tmp__VH)->storage__BCS)[(__INTEGER)(result__URGH -  1)] == '/')))) {
-      result__URGH=(__INTEGER)(result__URGH -  1);
+    result__B0GH=((__STRING *)string_tmp__VH)->count__WFC;
+    while ((! ((result__B0GH <  1) || (((__CHARACTER *)((__STRING *)string_tmp__VH)->storage__BCS)[(__INTEGER)(result__B0GH -  1)] == '/')))) {
+      result__B0GH=(__INTEGER)(result__B0GH -  1);
     };
-    if ((result__URGH >=  1)) {
-      Self__DOFH=((__STRING *)string_tmp__VH);
-      if ((result__URGH > Self__DOFH->count__WFC)) {
-        Self__DOFH->count__WFC= 0;
+    if ((result__B0GH >=  1)) {
+      Self__KWFH=((__STRING *)string_tmp__VH);
+      if ((result__B0GH > Self__KWFH->count__WFC)) {
+        Self__KWFH->count__WFC= 0;
       } else {
-        if ((result__URGH >  0)) {
-          len__ZRGH=(__INTEGER)((__INTEGER)(result__URGH -  1) +  1);
-          if ((len__ZRGH >  0)) {
-            __tmp__0RGH=(__INTEGER)(result__URGH +  1);
-            __tmp__2RGH=Self__DOFH->count__WFC;
-            Self__3RGH=__tmp__0RGH;
-            while ((Self__3RGH <= __tmp__2RGH)) {
-              ((__CHARACTER *)Self__DOFH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__3RGH - len__ZRGH) -  1)]=((__CHARACTER *)Self__DOFH->storage__BCS)[(__INTEGER)(Self__3RGH -  1)];
-              Self__3RGH=(__INTEGER)(Self__3RGH +  1);
+        if ((result__B0GH >  0)) {
+          len__G0GH=(__INTEGER)((__INTEGER)(result__B0GH -  1) +  1);
+          if ((len__G0GH >  0)) {
+            __tmp__H0GH=(__INTEGER)(result__B0GH +  1);
+            __tmp__J0GH=Self__KWFH->count__WFC;
+            Self__K0GH=__tmp__H0GH;
+            while ((Self__K0GH <= __tmp__J0GH)) {
+              ((__CHARACTER *)Self__KWFH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__K0GH - len__G0GH) -  1)]=((__CHARACTER *)Self__KWFH->storage__BCS)[(__INTEGER)(Self__K0GH -  1)];
+              Self__K0GH=(__INTEGER)(Self__K0GH +  1);
             };
-            Self__DOFH->count__WFC=(__INTEGER)(Self__DOFH->count__WFC - len__ZRGH);
+            Self__KWFH->count__WFC=(__INTEGER)(Self__KWFH->count__WFC - len__G0GH);
           };
         };
       };
@@ -7527,25 +7543,25 @@ int main(int argc,char **argv)
     while ((! ((result__WSC <  1) || (((__CHARACTER *)((__STRING *)string_tmp__VH)->storage__BCS)[(__INTEGER)(result__WSC -  1)] == '.')))) {
       result__WSC=(__INTEGER)(result__WSC -  1);
     };
-    Self__FOFH=((__STRING *)string_tmp__VH);
-    n__GOFH=(__INTEGER)((__INTEGER)(((__STRING *)string_tmp__VH)->count__WFC - result__WSC) +  1);
-    if ((n__GOFH > Self__FOFH->count__WFC)) {
-      Self__FOFH->count__WFC= 0;
+    Self__MWFH=((__STRING *)string_tmp__VH);
+    n__NWFH=(__INTEGER)((__INTEGER)(((__STRING *)string_tmp__VH)->count__WFC - result__WSC) +  1);
+    if ((n__NWFH > Self__MWFH->count__WFC)) {
+      Self__MWFH->count__WFC= 0;
     } else {
-      Self__FOFH->count__WFC=(__INTEGER)(Self__FOFH->count__WFC - n__GOFH);
+      Self__MWFH->count__WFC=(__INTEGER)(Self__MWFH->count__WFC - n__NWFH);
     };
-    Self__34IH=((__STRING *)string_tmp__VH);
-    Self__44IH=Self__34IH->count__WFC;
-    while ((Self__44IH >=  1)) {
-      Self__54IH=((__CHARACTER *)Self__34IH->storage__BCS)[(__INTEGER)(Self__44IH -  1)];
-      result__A5IH='\0';
-      if (((((__INTEGER_8 )Self__54IH) <  97) || (((__INTEGER_8 )Self__54IH) >  122))) {
-        result__A5IH=Self__54IH;
+    Self__WGJH=((__STRING *)string_tmp__VH);
+    Self__XGJH=Self__WGJH->count__WFC;
+    while ((Self__XGJH >=  1)) {
+      Self__YGJH=((__CHARACTER *)Self__WGJH->storage__BCS)[(__INTEGER)(Self__XGJH -  1)];
+      result__ZGJH='\0';
+      if (((((__INTEGER_8 )Self__YGJH) <  97) || (((__INTEGER_8 )Self__YGJH) >  122))) {
+        result__ZGJH=Self__YGJH;
       } else {
-        result__A5IH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__54IH) -  32))));
+        result__ZGJH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__YGJH) -  32))));
       };
-      ((__CHARACTER *)Self__34IH->storage__BCS)[(__INTEGER)(Self__44IH -  1)]=result__A5IH;
-      Self__44IH=(__INTEGER)(Self__44IH -  1);
+      ((__CHARACTER *)Self__WGJH->storage__BCS)[(__INTEGER)(Self__XGJH -  1)]=result__ZGJH;
+      Self__XGJH=(__INTEGER)(Self__XGJH -  1);
     };
     proto_input__BI=create__name__generic_count__ZAC(__tmp__2H,get__IWB(string_tmp__VH));
     go_on__CBC(proto_input__BI);
@@ -7562,581 +7578,728 @@ int main(int argc,char **argv)
       ((__STRING *)output_code__SI)->count__WFC= 0;
       Self__WJTD=((__PROTOTYPE *)p__AB);
       put__to__like__1ZXD(Self__WJTD->parent_named__5.name__LI,output_code__SI,(&__string_136));
-      ((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD=(__INTEGER)(-  1);
+      ((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD=(__INTEGER)(-  1);
       shorter_get_all_slot_in__E1XD(Self__WJTD,list_tmp__5JTD);
-      s__EAYD=NULL;
-      is_first_cur__DAYD=TRUE__;
-      __tmp__IAYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD;
-      Self__GA5D= 0;
-      while ((Self__GA5D <= __tmp__IAYD)) {
-        s__EAYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__MZVE)[Self__GA5D];
-        if (((struct ___OBJ *)s__EAYD)->__id==__ITM_SLOT__) {
-          __tmp__IKTD=((__ITM_SLOT *)s__EAYD)->id_section__Y1C;
-        } else {
-          __tmp__IKTD=((__ITM_SLOT_OPERATOR *)s__EAYD)->parent_itm_slot__OU5B.id_section__Y1C;
-        };
-        Self__HK0G=((__SECTION_ *)__tmp__IKTD);
-        if ((((void *)Self__HK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__HK0G->name__CZDC == (void *)(&__string_24)))) {
-          if (is_first_cur__DAYD) {
+      s__PBYD=NULL;
+      is_first_cur__OBYD=TRUE__;
+      __tmp__TBYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD;
+      Self__IE5D= 0;
+      while ((Self__IE5D <= __tmp__TBYD)) {
+        s__PBYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__A4VE)[Self__IE5D];
+        if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+          __tmp__IKTD=((__ITM_SLOT *)s__PBYD)->id_section__Y1C;
+        } else {
+          __tmp__IKTD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.id_section__Y1C;
+        };
+        Self__3T0G=((__SECTION_ *)__tmp__IKTD);
+        if ((((void *)Self__3T0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__3T0G->name__CZDC == (void *)(&__string_24)))) {
+          if (is_first_cur__OBYD) {
             put__to__like__1ZXD((&__string_170),output_code__SI,(&__string_137));
-            is_first_cur__DAYD=FALSE__;
+            is_first_cur__OBYD=FALSE__;
           };
           ((__STRING *)string_tmp__VH)->count__WFC= 0;
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__EAYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__IA3F(s__EAYD,string_tmp2__BAJ);
+          if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+            pretty_name_in__AJ3F(s__PBYD,string_tmp2__BAJ);
           } else {
-            pretty_name_in__3B3F(s__EAYD,string_tmp2__BAJ);
+            pretty_name_in__VK3F(s__PBYD,string_tmp2__BAJ);
           };
           put__to__like__1ZXD(string_tmp2__BAJ,string_tmp__VH,(&__string_139));
-          if (((struct ___OBJ *)s__EAYD)->__id==__ITM_SLOT__) {
-            __tmp__FBYD=((__ITM_SLOT *)s__EAYD)->id_section__Y1C;
+          if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+            __tmp__QCYD=((__ITM_SLOT *)s__PBYD)->id_section__Y1C;
           } else {
-            __tmp__FBYD=((__ITM_SLOT_OPERATOR *)s__EAYD)->parent_itm_slot__OU5B.id_section__Y1C;
+            __tmp__QCYD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          Self__IK0G=((__SECTION_ *)__tmp__FBYD);
-          if ((((void *)Self__IK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__IK0G->name__CZDC == (void *)(&__string_24)))) {
-            if (((struct ___OBJ *)s__EAYD)->__id==__ITM_SLOT__) {
-              __tmp__MBYD=((__ITM_SLOT *)s__EAYD)->parent_named__P5.style__BEU;
+          Self__4T0G=((__SECTION_ *)__tmp__QCYD);
+          if ((((void *)Self__4T0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__4T0G->name__CZDC == (void *)(&__string_24)))) {
+            if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+              __tmp__XCYD=((__ITM_SLOT *)s__PBYD)->parent_named__P5.style__BEU;
             } else {
-              __tmp__MBYD=((__ITM_SLOT_OPERATOR *)s__EAYD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
+              __tmp__XCYD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
             };
-            if ((__tmp__MBYD != '+')) {
-              __tmp__CCYD=TRUE__;
+            if ((__tmp__XCYD != '+')) {
+              __tmp__NDYD=TRUE__;
             } else {
-              if (((struct ___OBJ *)s__EAYD)->__id==__ITM_SLOT__) {
-                __tmp__TBYD=((__ITM_SLOT *)s__EAYD)->result_type__04FC;
+              if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+                __tmp__4CYD=((__ITM_SLOT *)s__PBYD)->result_type__04FC;
               } else {
-                __tmp__TBYD=((__ITM_SLOT_OPERATOR *)s__EAYD)->parent_itm_slot__OU5B.result_type__04FC;
+                __tmp__4CYD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.result_type__04FC;
               };
-              if (__tmp__TBYD==NULL) {
-                __tmp__VBYD=NULL;
+              if (__tmp__4CYD==NULL) {
+                __tmp__ADYD=NULL;
               } else {
-                switch (((struct ___OBJ *)__tmp__TBYD)->__id) {
+                switch (((struct ___OBJ *)__tmp__4CYD)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__VBYD=((void *)__tmp__TBYD);
+                  __tmp__ADYD=((void *)__tmp__4CYD);
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
-                  __tmp__VBYD=((void *)__tmp__TBYD);
+                  __tmp__ADYD=((void *)__tmp__4CYD);
                 } break;
                 case __ITM_TYPE_MULTI__: {
-                  __tmp__VBYD=NULL;
+                  __tmp__ADYD=NULL;
                 } break;
                 case __ITM_TYPE_BLOCK__: {
-                  __tmp__VBYD=NULL;
+                  __tmp__ADYD=NULL;
                 } break;
                 case __ITM_TYPE_GENERIC__: {
-                  __tmp__VBYD=((void *)__tmp__TBYD);
+                  __tmp__ADYD=((void *)__tmp__4CYD);
                 } break;
                 case __ITM_TYPE_STYLE__: {
-                  __tmp__VBYD=((void *)__tmp__TBYD);
+                  __tmp__ADYD=((void *)__tmp__4CYD);
                 } break;
                 }
               };
-              ts__SBYD=__tmp__VBYD;
-              if (((void *)__tmp__VBYD == (void *)NULL)) {
-                __tmp__5BYD=TRUE__;
+              ts__3CYD=__tmp__ADYD;
+              if (((void *)__tmp__ADYD == (void *)NULL)) {
+                __tmp__KDYD=TRUE__;
               } else {
-                switch (((struct ___OBJ *)__tmp__VBYD)->__id) {
+                switch (((struct ___OBJ *)__tmp__ADYD)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__1BYD=NULL;
+                  __tmp__GDYD=NULL;
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
-                  __tmp__1BYD=NULL;
+                  __tmp__GDYD=NULL;
                 } break;
                 case __ITM_TYPE_GENERIC__: {
-                  __tmp__1BYD=((__ITM_TYPE_GENERIC *)__tmp__VBYD)->parent_itm_type_style__CSN.style__TYP;
+                  __tmp__GDYD=((__ITM_TYPE_GENERIC *)__tmp__ADYD)->parent_itm_type_style__CSN.style__TYP;
                 } break;
                 case __ITM_TYPE_STYLE__: {
-                  __tmp__1BYD=((__ITM_TYPE_STYLE *)__tmp__VBYD)->style__TYP;
+                  __tmp__GDYD=((__ITM_TYPE_STYLE *)__tmp__ADYD)->style__TYP;
                 } break;
                 };
-                __tmp__5BYD=((void *)__tmp__1BYD != (void *)(&__string_9));
+                __tmp__KDYD=((void *)__tmp__GDYD != (void *)(&__string_9));
               };
-              __tmp__CCYD=__tmp__5BYD;
+              __tmp__NDYD=__tmp__KDYD;
+            };
+            if (__tmp__NDYD) {
+              if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+                __tmp__TDYD=((__ITM_SLOT *)s__PBYD)->parent_named__P5.name__LI;
+              } else {
+                __tmp__TDYD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+              };
+              Self__4GJH=((__STRING_CONSTANT *)__tmp__TDYD);
+              result__1GJH=FALSE__;
+              i__2GJH= 0;
+              if ((((__STRING_CONSTANT *)(&__string_171))->count__DD <= Self__4GJH->count__DD)) {
+                i__2GJH=((__STRING_CONSTANT *)(&__string_171))->count__DD;
+                while ((! ((i__2GJH ==  0) || (((__CHARACTER *)Self__4GJH->storage__VQO)[(__INTEGER)(i__2GJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_171))->storage__VQO)[(__INTEGER)(i__2GJH -  1)])))) {
+                  i__2GJH=(__INTEGER)(i__2GJH -  1);
+                };
+                result__1GJH=(i__2GJH ==  0);
+              };
+              __tmp__BEYD=(! result__1GJH);
+            } else {
+              __tmp__BEYD=FALSE__;
+            };
+            if (__tmp__BEYD) {
+              if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+                __tmp__2DYD=((__ITM_SLOT *)s__PBYD)->parent_named__P5.name__LI;
+              } else {
+                __tmp__2DYD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+              };
+              Self__DHJH=((__STRING_CONSTANT *)__tmp__2DYD);
+              result__AHJH=FALSE__;
+              i__BHJH= 0;
+              if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__DHJH->count__DD)) {
+                i__BHJH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
+                while ((! ((i__BHJH ==  0) || (((__CHARACTER *)Self__DHJH->storage__VQO)[(__INTEGER)(i__BHJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__BHJH -  1)])))) {
+                  i__BHJH=(__INTEGER)(i__BHJH -  1);
+                };
+                result__AHJH=(i__BHJH ==  0);
+              };
+              __tmp__CEYD=(! result__AHJH);
+            } else {
+              __tmp__CEYD=FALSE__;
             };
-            __tmp__FCYD=__tmp__CCYD;
+            __tmp__FEYD=__tmp__CEYD;
           } else {
-            __tmp__FCYD=FALSE__;
+            __tmp__FEYD=FALSE__;
           };
-          if (__tmp__FCYD) {
-            put__to__like__1ZXD((&__string_171),string_tmp__VH,(&__string_135));
+          if (__tmp__FEYD) {
+            put__to__like__1ZXD((&__string_173),string_tmp__VH,(&__string_135));
           };
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__EAYD)->__id==__ITM_SLOT__) {
-            __tmp__RCYD=((__ITM_SLOT *)s__EAYD)->parent_named__P5.name__LI;
+          if (((struct ___OBJ *)s__PBYD)->__id==__ITM_SLOT__) {
+            __tmp__REYD=((__ITM_SLOT *)s__PBYD)->parent_named__P5.name__LI;
           } else {
-            __tmp__RCYD=((__ITM_SLOT_OPERATOR *)s__EAYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+            __tmp__REYD=((__ITM_SLOT_OPERATOR *)s__PBYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
           };
-          get_all_comment_slot__in__FW2E(Self__WJTD,__tmp__RCYD,string_tmp2__BAJ);
+          get_all_comment_slot__in__302E(Self__WJTD,__tmp__REYD,string_tmp2__BAJ);
           put__to__like__1ZXD(string_tmp2__BAJ,string_tmp__VH,(&__string_140));
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_138));
         };
-        Self__GA5D=(__INTEGER)(Self__GA5D +  1);
+        Self__IE5D=(__INTEGER)(Self__IE5D +  1);
       };
-      if ((! is_first_cur__DAYD)) {
+      if ((! is_first_cur__OBYD)) {
         put__to__like__1ZXD(NULL,output_code__SI,(&__string_141));
       };
-      s__NDYD=NULL;
-      is_first_cur__MDYD=TRUE__;
-      __tmp__RDYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD;
-      Self__YA5D= 0;
-      while ((Self__YA5D <= __tmp__RDYD)) {
-        s__NDYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__MZVE)[Self__YA5D];
-        if (((struct ___OBJ *)s__NDYD)->__id==__ITM_SLOT__) {
-          __tmp__SKTD=((__ITM_SLOT *)s__NDYD)->parent_named__P5.name__LI;
+      s__NFYD=NULL;
+      is_first_cur__MFYD=TRUE__;
+      __tmp__RFYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD;
+      Self__0E5D= 0;
+      while ((Self__0E5D <= __tmp__RFYD)) {
+        s__NFYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__A4VE)[Self__0E5D];
+        if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+          __tmp__SKTD=((__ITM_SLOT *)s__NFYD)->parent_named__P5.name__LI;
         } else {
-          __tmp__SKTD=((__ITM_SLOT_OPERATOR *)s__NDYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          __tmp__SKTD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
         };
-        Self__F5IH=((__STRING_CONSTANT *)__tmp__SKTD);
-        result__C5IH=FALSE__;
-        i__D5IH= 0;
-        if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__F5IH->count__DD)) {
-          i__D5IH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
-          while ((! ((i__D5IH ==  0) || (((__CHARACTER *)Self__F5IH->storage__VQO)[(__INTEGER)(i__D5IH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__D5IH -  1)])))) {
-            i__D5IH=(__INTEGER)(i__D5IH -  1);
+        Self__IHJH=((__STRING_CONSTANT *)__tmp__SKTD);
+        result__FHJH=FALSE__;
+        i__GHJH= 0;
+        if ((((__STRING_CONSTANT *)(&__string_174))->count__DD <= Self__IHJH->count__DD)) {
+          i__GHJH=((__STRING_CONSTANT *)(&__string_174))->count__DD;
+          while ((! ((i__GHJH ==  0) || (((__CHARACTER *)Self__IHJH->storage__VQO)[(__INTEGER)(i__GHJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_174))->storage__VQO)[(__INTEGER)(i__GHJH -  1)])))) {
+            i__GHJH=(__INTEGER)(i__GHJH -  1);
           };
-          result__C5IH=(i__D5IH ==  0);
+          result__FHJH=(i__GHJH ==  0);
         };
-        if (result__C5IH) {
-          if (is_first_cur__MDYD) {
-            put__to__like__1ZXD((&__string_173),output_code__SI,(&__string_137));
-            is_first_cur__MDYD=FALSE__;
+        if (result__FHJH) {
+          if (is_first_cur__MFYD) {
+            put__to__like__1ZXD((&__string_175),output_code__SI,(&__string_137));
+            is_first_cur__MFYD=FALSE__;
           };
           ((__STRING *)string_tmp__VH)->count__WFC= 0;
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__NDYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__IA3F(s__NDYD,string_tmp2__BAJ);
+          if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+            pretty_name_in__AJ3F(s__NFYD,string_tmp2__BAJ);
           } else {
-            pretty_name_in__3B3F(s__NDYD,string_tmp2__BAJ);
+            pretty_name_in__VK3F(s__NFYD,string_tmp2__BAJ);
           };
           put__to__like__1ZXD(string_tmp2__BAJ,string_tmp__VH,(&__string_139));
-          if (((struct ___OBJ *)s__NDYD)->__id==__ITM_SLOT__) {
-            __tmp__OEYD=((__ITM_SLOT *)s__NDYD)->id_section__Y1C;
+          if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+            __tmp__OGYD=((__ITM_SLOT *)s__NFYD)->id_section__Y1C;
           } else {
-            __tmp__OEYD=((__ITM_SLOT_OPERATOR *)s__NDYD)->parent_itm_slot__OU5B.id_section__Y1C;
+            __tmp__OGYD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          Self__JK0G=((__SECTION_ *)__tmp__OEYD);
-          if ((((void *)Self__JK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__JK0G->name__CZDC == (void *)(&__string_24)))) {
-            if (((struct ___OBJ *)s__NDYD)->__id==__ITM_SLOT__) {
-              __tmp__VEYD=((__ITM_SLOT *)s__NDYD)->parent_named__P5.style__BEU;
+          Self__5T0G=((__SECTION_ *)__tmp__OGYD);
+          if ((((void *)Self__5T0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__5T0G->name__CZDC == (void *)(&__string_24)))) {
+            if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+              __tmp__VGYD=((__ITM_SLOT *)s__NFYD)->parent_named__P5.style__BEU;
             } else {
-              __tmp__VEYD=((__ITM_SLOT_OPERATOR *)s__NDYD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
+              __tmp__VGYD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
             };
-            if ((__tmp__VEYD != '+')) {
-              __tmp__LFYD=TRUE__;
+            if ((__tmp__VGYD != '+')) {
+              __tmp__LHYD=TRUE__;
             } else {
-              if (((struct ___OBJ *)s__NDYD)->__id==__ITM_SLOT__) {
-                __tmp__2EYD=((__ITM_SLOT *)s__NDYD)->result_type__04FC;
+              if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+                __tmp__2GYD=((__ITM_SLOT *)s__NFYD)->result_type__04FC;
               } else {
-                __tmp__2EYD=((__ITM_SLOT_OPERATOR *)s__NDYD)->parent_itm_slot__OU5B.result_type__04FC;
+                __tmp__2GYD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.result_type__04FC;
               };
-              if (__tmp__2EYD==NULL) {
-                __tmp__4EYD=NULL;
+              if (__tmp__2GYD==NULL) {
+                __tmp__4GYD=NULL;
               } else {
-                switch (((struct ___OBJ *)__tmp__2EYD)->__id) {
+                switch (((struct ___OBJ *)__tmp__2GYD)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__4EYD=((void *)__tmp__2EYD);
+                  __tmp__4GYD=((void *)__tmp__2GYD);
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
-                  __tmp__4EYD=((void *)__tmp__2EYD);
+                  __tmp__4GYD=((void *)__tmp__2GYD);
                 } break;
                 case __ITM_TYPE_MULTI__: {
-                  __tmp__4EYD=NULL;
+                  __tmp__4GYD=NULL;
                 } break;
                 case __ITM_TYPE_BLOCK__: {
-                  __tmp__4EYD=NULL;
+                  __tmp__4GYD=NULL;
                 } break;
                 case __ITM_TYPE_GENERIC__: {
-                  __tmp__4EYD=((void *)__tmp__2EYD);
+                  __tmp__4GYD=((void *)__tmp__2GYD);
                 } break;
                 case __ITM_TYPE_STYLE__: {
-                  __tmp__4EYD=((void *)__tmp__2EYD);
+                  __tmp__4GYD=((void *)__tmp__2GYD);
                 } break;
                 }
               };
-              ts__1EYD=__tmp__4EYD;
-              if (((void *)__tmp__4EYD == (void *)NULL)) {
-                __tmp__IFYD=TRUE__;
+              ts__1GYD=__tmp__4GYD;
+              if (((void *)__tmp__4GYD == (void *)NULL)) {
+                __tmp__IHYD=TRUE__;
               } else {
-                switch (((struct ___OBJ *)__tmp__4EYD)->__id) {
+                switch (((struct ___OBJ *)__tmp__4GYD)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__EFYD=NULL;
+                  __tmp__EHYD=NULL;
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
-                  __tmp__EFYD=NULL;
+                  __tmp__EHYD=NULL;
                 } break;
                 case __ITM_TYPE_GENERIC__: {
-                  __tmp__EFYD=((__ITM_TYPE_GENERIC *)__tmp__4EYD)->parent_itm_type_style__CSN.style__TYP;
+                  __tmp__EHYD=((__ITM_TYPE_GENERIC *)__tmp__4GYD)->parent_itm_type_style__CSN.style__TYP;
                 } break;
                 case __ITM_TYPE_STYLE__: {
-                  __tmp__EFYD=((__ITM_TYPE_STYLE *)__tmp__4EYD)->style__TYP;
+                  __tmp__EHYD=((__ITM_TYPE_STYLE *)__tmp__4GYD)->style__TYP;
                 } break;
                 };
-                __tmp__IFYD=((void *)__tmp__EFYD != (void *)(&__string_9));
+                __tmp__IHYD=((void *)__tmp__EHYD != (void *)(&__string_9));
               };
-              __tmp__LFYD=__tmp__IFYD;
+              __tmp__LHYD=__tmp__IHYD;
             };
-            __tmp__OFYD=__tmp__LFYD;
+            if (__tmp__LHYD) {
+              if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+                __tmp__RHYD=((__ITM_SLOT *)s__NFYD)->parent_named__P5.name__LI;
+              } else {
+                __tmp__RHYD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+              };
+              Self__NHJH=((__STRING_CONSTANT *)__tmp__RHYD);
+              result__KHJH=FALSE__;
+              i__LHJH= 0;
+              if ((((__STRING_CONSTANT *)(&__string_171))->count__DD <= Self__NHJH->count__DD)) {
+                i__LHJH=((__STRING_CONSTANT *)(&__string_171))->count__DD;
+                while ((! ((i__LHJH ==  0) || (((__CHARACTER *)Self__NHJH->storage__VQO)[(__INTEGER)(i__LHJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_171))->storage__VQO)[(__INTEGER)(i__LHJH -  1)])))) {
+                  i__LHJH=(__INTEGER)(i__LHJH -  1);
+                };
+                result__KHJH=(i__LHJH ==  0);
+              };
+              __tmp__5HYD=(! result__KHJH);
+            } else {
+              __tmp__5HYD=FALSE__;
+            };
+            if (__tmp__5HYD) {
+              if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+                __tmp__0HYD=((__ITM_SLOT *)s__NFYD)->parent_named__P5.name__LI;
+              } else {
+                __tmp__0HYD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+              };
+              Self__SHJH=((__STRING_CONSTANT *)__tmp__0HYD);
+              result__PHJH=FALSE__;
+              i__QHJH= 0;
+              if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__SHJH->count__DD)) {
+                i__QHJH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
+                while ((! ((i__QHJH ==  0) || (((__CHARACTER *)Self__SHJH->storage__VQO)[(__INTEGER)(i__QHJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__QHJH -  1)])))) {
+                  i__QHJH=(__INTEGER)(i__QHJH -  1);
+                };
+                result__PHJH=(i__QHJH ==  0);
+              };
+              __tmp__AIYD=(! result__PHJH);
+            } else {
+              __tmp__AIYD=FALSE__;
+            };
+            __tmp__DIYD=__tmp__AIYD;
           } else {
-            __tmp__OFYD=FALSE__;
+            __tmp__DIYD=FALSE__;
           };
-          if (__tmp__OFYD) {
-            put__to__like__1ZXD((&__string_171),string_tmp__VH,(&__string_135));
+          if (__tmp__DIYD) {
+            put__to__like__1ZXD((&__string_173),string_tmp__VH,(&__string_135));
           };
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__NDYD)->__id==__ITM_SLOT__) {
-            __tmp__0FYD=((__ITM_SLOT *)s__NDYD)->parent_named__P5.name__LI;
+          if (((struct ___OBJ *)s__NFYD)->__id==__ITM_SLOT__) {
+            __tmp__PIYD=((__ITM_SLOT *)s__NFYD)->parent_named__P5.name__LI;
           } else {
-            __tmp__0FYD=((__ITM_SLOT_OPERATOR *)s__NDYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+            __tmp__PIYD=((__ITM_SLOT_OPERATOR *)s__NFYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
           };
-          get_all_comment_slot__in__FW2E(Self__WJTD,__tmp__0FYD,string_tmp2__BAJ);
+          get_all_comment_slot__in__302E(Self__WJTD,__tmp__PIYD,string_tmp2__BAJ);
           put__to__like__1ZXD(string_tmp2__BAJ,string_tmp__VH,(&__string_140));
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_138));
         };
-        Self__YA5D=(__INTEGER)(Self__YA5D +  1);
+        Self__0E5D=(__INTEGER)(Self__0E5D +  1);
       };
-      if ((! is_first_cur__MDYD)) {
+      if ((! is_first_cur__MFYD)) {
         put__to__like__1ZXD(NULL,output_code__SI,(&__string_141));
       };
-      s__WGYD=NULL;
-      is_first_cur__VGYD=TRUE__;
-      __tmp__0GYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD;
-      Self__KB5D= 0;
-      while ((Self__KB5D <= __tmp__0GYD)) {
-        s__WGYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__MZVE)[Self__KB5D];
-        if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-          __tmp__2KTD=((__ITM_SLOT *)s__WGYD)->parent_named__P5.name__LI;
+      s__LJYD=NULL;
+      is_first_cur__KJYD=TRUE__;
+      __tmp__PJYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD;
+      Self__MF5D= 0;
+      while ((Self__MF5D <= __tmp__PJYD)) {
+        s__LJYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__A4VE)[Self__MF5D];
+        if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+          __tmp__2KTD=((__ITM_SLOT *)s__LJYD)->parent_named__P5.name__LI;
         } else {
-          __tmp__2KTD=((__ITM_SLOT_OPERATOR *)s__WGYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          __tmp__2KTD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
         };
-        Self__K5IH=((__STRING_CONSTANT *)__tmp__2KTD);
-        result__H5IH=FALSE__;
-        i__I5IH= 0;
-        if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__K5IH->count__DD)) {
-          i__I5IH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
-          while ((! ((i__I5IH ==  0) || (((__CHARACTER *)Self__K5IH->storage__VQO)[(__INTEGER)(i__I5IH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__I5IH -  1)])))) {
-            i__I5IH=(__INTEGER)(i__I5IH -  1);
+        Self__XHJH=((__STRING_CONSTANT *)__tmp__2KTD);
+        result__UHJH=FALSE__;
+        i__VHJH= 0;
+        if ((((__STRING_CONSTANT *)(&__string_174))->count__DD <= Self__XHJH->count__DD)) {
+          i__VHJH=((__STRING_CONSTANT *)(&__string_174))->count__DD;
+          while ((! ((i__VHJH ==  0) || (((__CHARACTER *)Self__XHJH->storage__VQO)[(__INTEGER)(i__VHJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_174))->storage__VQO)[(__INTEGER)(i__VHJH -  1)])))) {
+            i__VHJH=(__INTEGER)(i__VHJH -  1);
           };
-          result__H5IH=(i__I5IH ==  0);
+          result__UHJH=(i__VHJH ==  0);
         };
-        if ((! result__H5IH)) {
-          if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-            __tmp__ELTD=((__ITM_SLOT *)s__WGYD)->id_section__Y1C;
+        if ((! result__UHJH)) {
+          if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+            __tmp__ELTD=((__ITM_SLOT *)s__LJYD)->id_section__Y1C;
           } else {
-            __tmp__ELTD=((__ITM_SLOT_OPERATOR *)s__WGYD)->parent_itm_slot__OU5B.id_section__Y1C;
+            __tmp__ELTD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          Self__KK0G=((__SECTION_ *)__tmp__ELTD);
-          __tmp__JLTD=(! (((void *)Self__KK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__KK0G->name__CZDC == (void *)(&__string_24))));
+          Self__AU0G=((__SECTION_ *)__tmp__ELTD);
+          __tmp__JLTD=(! (((void *)Self__AU0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__AU0G->name__CZDC == (void *)(&__string_24))));
         } else {
           __tmp__JLTD=FALSE__;
         };
         if (__tmp__JLTD) {
-          if (is_first_cur__VGYD) {
-            put__to__like__1ZXD((&__string_174),output_code__SI,(&__string_137));
-            is_first_cur__VGYD=FALSE__;
+          if (is_first_cur__KJYD) {
+            put__to__like__1ZXD((&__string_176),output_code__SI,(&__string_137));
+            is_first_cur__KJYD=FALSE__;
           };
           ((__STRING *)string_tmp__VH)->count__WFC= 0;
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__IA3F(s__WGYD,string_tmp2__BAJ);
+          if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+            pretty_name_in__AJ3F(s__LJYD,string_tmp2__BAJ);
           } else {
-            pretty_name_in__3B3F(s__WGYD,string_tmp2__BAJ);
+            pretty_name_in__VK3F(s__LJYD,string_tmp2__BAJ);
           };
           put__to__like__1ZXD(string_tmp2__BAJ,string_tmp__VH,(&__string_139));
-          if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-            __tmp__XHYD=((__ITM_SLOT *)s__WGYD)->id_section__Y1C;
+          if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+            __tmp__MKYD=((__ITM_SLOT *)s__LJYD)->id_section__Y1C;
           } else {
-            __tmp__XHYD=((__ITM_SLOT_OPERATOR *)s__WGYD)->parent_itm_slot__OU5B.id_section__Y1C;
+            __tmp__MKYD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          Self__LK0G=((__SECTION_ *)__tmp__XHYD);
-          if ((((void *)Self__LK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__LK0G->name__CZDC == (void *)(&__string_24)))) {
-            if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-              __tmp__4HYD=((__ITM_SLOT *)s__WGYD)->parent_named__P5.style__BEU;
+          Self__BU0G=((__SECTION_ *)__tmp__MKYD);
+          if ((((void *)Self__BU0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__BU0G->name__CZDC == (void *)(&__string_24)))) {
+            if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+              __tmp__TKYD=((__ITM_SLOT *)s__LJYD)->parent_named__P5.style__BEU;
             } else {
-              __tmp__4HYD=((__ITM_SLOT_OPERATOR *)s__WGYD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
+              __tmp__TKYD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
             };
-            if ((__tmp__4HYD != '+')) {
-              __tmp__UIYD=TRUE__;
+            if ((__tmp__TKYD != '+')) {
+              __tmp__JLYD=TRUE__;
             } else {
-              if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-                __tmp__FIYD=((__ITM_SLOT *)s__WGYD)->result_type__04FC;
+              if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+                __tmp__0KYD=((__ITM_SLOT *)s__LJYD)->result_type__04FC;
               } else {
-                __tmp__FIYD=((__ITM_SLOT_OPERATOR *)s__WGYD)->parent_itm_slot__OU5B.result_type__04FC;
+                __tmp__0KYD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.result_type__04FC;
               };
-              if (__tmp__FIYD==NULL) {
-                __tmp__HIYD=NULL;
+              if (__tmp__0KYD==NULL) {
+                __tmp__2KYD=NULL;
               } else {
-                switch (((struct ___OBJ *)__tmp__FIYD)->__id) {
+                switch (((struct ___OBJ *)__tmp__0KYD)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__HIYD=((void *)__tmp__FIYD);
+                  __tmp__2KYD=((void *)__tmp__0KYD);
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
-                  __tmp__HIYD=((void *)__tmp__FIYD);
+                  __tmp__2KYD=((void *)__tmp__0KYD);
                 } break;
                 case __ITM_TYPE_MULTI__: {
-                  __tmp__HIYD=NULL;
+                  __tmp__2KYD=NULL;
                 } break;
                 case __ITM_TYPE_BLOCK__: {
-                  __tmp__HIYD=NULL;
+                  __tmp__2KYD=NULL;
                 } break;
                 case __ITM_TYPE_GENERIC__: {
-                  __tmp__HIYD=((void *)__tmp__FIYD);
+                  __tmp__2KYD=((void *)__tmp__0KYD);
                 } break;
                 case __ITM_TYPE_STYLE__: {
-                  __tmp__HIYD=((void *)__tmp__FIYD);
+                  __tmp__2KYD=((void *)__tmp__0KYD);
                 } break;
                 }
               };
-              ts__EIYD=__tmp__HIYD;
-              if (((void *)__tmp__HIYD == (void *)NULL)) {
-                __tmp__RIYD=TRUE__;
+              ts__ZKYD=__tmp__2KYD;
+              if (((void *)__tmp__2KYD == (void *)NULL)) {
+                __tmp__GLYD=TRUE__;
               } else {
-                switch (((struct ___OBJ *)__tmp__HIYD)->__id) {
+                switch (((struct ___OBJ *)__tmp__2KYD)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__NIYD=NULL;
+                  __tmp__CLYD=NULL;
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
-                  __tmp__NIYD=NULL;
+                  __tmp__CLYD=NULL;
                 } break;
                 case __ITM_TYPE_GENERIC__: {
-                  __tmp__NIYD=((__ITM_TYPE_GENERIC *)__tmp__HIYD)->parent_itm_type_style__CSN.style__TYP;
+                  __tmp__CLYD=((__ITM_TYPE_GENERIC *)__tmp__2KYD)->parent_itm_type_style__CSN.style__TYP;
                 } break;
                 case __ITM_TYPE_STYLE__: {
-                  __tmp__NIYD=((__ITM_TYPE_STYLE *)__tmp__HIYD)->style__TYP;
+                  __tmp__CLYD=((__ITM_TYPE_STYLE *)__tmp__2KYD)->style__TYP;
                 } break;
                 };
-                __tmp__RIYD=((void *)__tmp__NIYD != (void *)(&__string_9));
+                __tmp__GLYD=((void *)__tmp__CLYD != (void *)(&__string_9));
+              };
+              __tmp__JLYD=__tmp__GLYD;
+            };
+            if (__tmp__JLYD) {
+              if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+                __tmp__PLYD=((__ITM_SLOT *)s__LJYD)->parent_named__P5.name__LI;
+              } else {
+                __tmp__PLYD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+              };
+              Self__2HJH=((__STRING_CONSTANT *)__tmp__PLYD);
+              result__ZHJH=FALSE__;
+              i__0HJH= 0;
+              if ((((__STRING_CONSTANT *)(&__string_171))->count__DD <= Self__2HJH->count__DD)) {
+                i__0HJH=((__STRING_CONSTANT *)(&__string_171))->count__DD;
+                while ((! ((i__0HJH ==  0) || (((__CHARACTER *)Self__2HJH->storage__VQO)[(__INTEGER)(i__0HJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_171))->storage__VQO)[(__INTEGER)(i__0HJH -  1)])))) {
+                  i__0HJH=(__INTEGER)(i__0HJH -  1);
+                };
+                result__ZHJH=(i__0HJH ==  0);
+              };
+              __tmp__3LYD=(! result__ZHJH);
+            } else {
+              __tmp__3LYD=FALSE__;
+            };
+            if (__tmp__3LYD) {
+              if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+                __tmp__YLYD=((__ITM_SLOT *)s__LJYD)->parent_named__P5.name__LI;
+              } else {
+                __tmp__YLYD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+              };
+              Self__BIJH=((__STRING_CONSTANT *)__tmp__YLYD);
+              result__4HJH=FALSE__;
+              i__5HJH= 0;
+              if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__BIJH->count__DD)) {
+                i__5HJH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
+                while ((! ((i__5HJH ==  0) || (((__CHARACTER *)Self__BIJH->storage__VQO)[(__INTEGER)(i__5HJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__5HJH -  1)])))) {
+                  i__5HJH=(__INTEGER)(i__5HJH -  1);
+                };
+                result__4HJH=(i__5HJH ==  0);
               };
-              __tmp__UIYD=__tmp__RIYD;
+              __tmp__4LYD=(! result__4HJH);
+            } else {
+              __tmp__4LYD=FALSE__;
             };
-            __tmp__XIYD=__tmp__UIYD;
+            __tmp__BMYD=__tmp__4LYD;
           } else {
-            __tmp__XIYD=FALSE__;
+            __tmp__BMYD=FALSE__;
           };
-          if (__tmp__XIYD) {
-            put__to__like__1ZXD((&__string_171),string_tmp__VH,(&__string_135));
+          if (__tmp__BMYD) {
+            put__to__like__1ZXD((&__string_173),string_tmp__VH,(&__string_135));
           };
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__WGYD)->__id==__ITM_SLOT__) {
-            __tmp__DJYD=((__ITM_SLOT *)s__WGYD)->parent_named__P5.name__LI;
+          if (((struct ___OBJ *)s__LJYD)->__id==__ITM_SLOT__) {
+            __tmp__NMYD=((__ITM_SLOT *)s__LJYD)->parent_named__P5.name__LI;
           } else {
-            __tmp__DJYD=((__ITM_SLOT_OPERATOR *)s__WGYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+            __tmp__NMYD=((__ITM_SLOT_OPERATOR *)s__LJYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
           };
-          get_all_comment_slot__in__FW2E(Self__WJTD,__tmp__DJYD,string_tmp2__BAJ);
+          get_all_comment_slot__in__302E(Self__WJTD,__tmp__NMYD,string_tmp2__BAJ);
           put__to__like__1ZXD(string_tmp2__BAJ,string_tmp__VH,(&__string_140));
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_138));
         };
-        Self__KB5D=(__INTEGER)(Self__KB5D +  1);
+        Self__MF5D=(__INTEGER)(Self__MF5D +  1);
       };
-      if ((! is_first_cur__VGYD)) {
+      if ((! is_first_cur__KJYD)) {
         put__to__like__1ZXD(NULL,output_code__SI,(&__string_141));
       };
-      s__5JYD=NULL;
-      is_first__4JYD=TRUE__;
-      __tmp__DKYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD;
-      Self__2B5D= 0;
-      while ((Self__2B5D <= __tmp__DKYD)) {
-        s__5JYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__MZVE)[Self__2B5D];
-        if (((struct ___OBJ *)s__5JYD)->__id==__ITM_SLOT__) {
-          __tmp__SLTD=((__ITM_SLOT *)s__5JYD)->id_section__Y1C;
+      s__JNYD=NULL;
+      is_first__INYD=TRUE__;
+      __tmp__NNYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD;
+      Self__4F5D= 0;
+      while ((Self__4F5D <= __tmp__NNYD)) {
+        s__JNYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__A4VE)[Self__4F5D];
+        if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+          __tmp__SLTD=((__ITM_SLOT *)s__JNYD)->id_section__Y1C;
         } else {
-          __tmp__SLTD=((__ITM_SLOT_OPERATOR *)s__5JYD)->parent_itm_slot__OU5B.id_section__Y1C;
+          __tmp__SLTD=((__ITM_SLOT_OPERATOR *)s__JNYD)->parent_itm_slot__OU5B.id_section__Y1C;
         };
-        Self__MK0G=((__SECTION_ *)__tmp__SLTD);
-        if ((((void *)Self__MK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__MK0G->name__CZDC == (void *)(&__string_24)))) {
-          if (is_first__4JYD) {
-            put__to__like__1ZXD((&__string_175),output_code__SI,(&__string_142));
-            is_first__4JYD=FALSE__;
+        Self__CU0G=((__SECTION_ *)__tmp__SLTD);
+        if ((((void *)Self__CU0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__CU0G->name__CZDC == (void *)(&__string_24)))) {
+          if (is_first__INYD) {
+            put__to__like__1ZXD((&__string_177),output_code__SI,(&__string_142));
+            is_first__INYD=FALSE__;
           };
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__5JYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__IA3F(s__5JYD,string_tmp2__BAJ);
+          if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+            pretty_name_in__AJ3F(s__JNYD,string_tmp2__BAJ);
           } else {
-            pretty_name_in__3B3F(s__5JYD,string_tmp2__BAJ);
+            pretty_name_in__VK3F(s__JNYD,string_tmp2__BAJ);
           };
           put__to__like__1ZXD(string_tmp2__BAJ,output_code__SI,(&__string_143));
-          if (((struct ___OBJ *)s__5JYD)->__id==__ITM_SLOT__) {
-            __tmp__5KYD=((__ITM_SLOT *)s__5JYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
+          if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+            __tmp__JOYD=((__ITM_SLOT *)s__JNYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
           } else {
-            __tmp__5KYD=((__ITM_SLOT_OPERATOR *)s__5JYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
+            __tmp__JOYD=((__ITM_SLOT_OPERATOR *)s__JNYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
           };
-          copy__ZCS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__5KYD)) &  511)])->filename__UPG);
-          append__BOS(string_tmp__VH,(&__string_176));
-          if (((struct ___OBJ *)s__5JYD)->__id==__ITM_SLOT__) {
-            __tmp__ELYD=((__ITM_SLOT *)s__5JYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
+          copy__ZCS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__JOYD)) &  511)])->filename__UPG);
+          append__BOS(string_tmp__VH,(&__string_178));
+          if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+            __tmp__OOYD=((__ITM_SLOT *)s__JNYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
           } else {
-            __tmp__ELYD=((__ITM_SLOT_OPERATOR *)s__5JYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
+            __tmp__OOYD=((__ITM_SLOT_OPERATOR *)s__JNYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
           };
-          append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__ELYD) >>  17),string_tmp__VH);
+          append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__OOYD) >>  17),string_tmp__VH);
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_145));
-          put__to__like__1ZXD((&__string_177),output_code__SI,(&__string_144));
-          if (((struct ___OBJ *)s__5JYD)->__id==__ITM_SLOT__) {
-            shorter_profile_in__UD3F(s__5JYD,output_code__SI);
-          } else {
-            shorter_profile_in__RE3F(s__5JYD,output_code__SI);
-          };
-          put__to__like__1ZXD((&__string_178),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_179),output_code__SI,(&__string_144));
           ((__STRING *)string_tmp__VH)->count__WFC= 0;
-          if (((struct ___OBJ *)s__5JYD)->__id==__ITM_SLOT__) {
-            __tmp__PLYD=((__ITM_SLOT *)s__5JYD)->parent_named__P5.name__LI;
+          if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+            __tmp__XOYD=((__ITM_SLOT *)s__JNYD)->id_section__Y1C;
           } else {
-            __tmp__PLYD=((__ITM_SLOT_OPERATOR *)s__5JYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+            __tmp__XOYD=((__ITM_SLOT_OPERATOR *)s__JNYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          get_all_comment_slot__in__FW2E(Self__WJTD,__tmp__PLYD,string_tmp__VH);
-          put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_128));
-          put__to__like__1ZXD((&__string_179),output_code__SI,(&__string_144));
+          append_in__MM3F(__tmp__XOYD,string_tmp__VH);
+          put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_120));
           put__to__like__1ZXD((&__string_180),output_code__SI,(&__string_144));
+          if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+            shorter_profile_in__ON3F(s__JNYD,output_code__SI);
+          } else {
+            shorter_profile_in__LO3F(s__JNYD,output_code__SI);
+          };
           put__to__like__1ZXD((&__string_181),output_code__SI,(&__string_144));
-        };
-        Self__2B5D=(__INTEGER)(Self__2B5D +  1);
-      };
-      s__FMYD=NULL;
-      is_first__EMYD=TRUE__;
-      __tmp__JMYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD;
-      Self__LC5D= 0;
-      while ((Self__LC5D <= __tmp__JMYD)) {
-        s__FMYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__MZVE)[Self__LC5D];
-        if (((struct ___OBJ *)s__FMYD)->__id==__ITM_SLOT__) {
-          __tmp__2LTD=((__ITM_SLOT *)s__FMYD)->parent_named__P5.name__LI;
-        } else {
-          __tmp__2LTD=((__ITM_SLOT_OPERATOR *)s__FMYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
-        };
-        Self__P5IH=((__STRING_CONSTANT *)__tmp__2LTD);
-        result__M5IH=FALSE__;
-        i__N5IH= 0;
-        if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__P5IH->count__DD)) {
-          i__N5IH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
-          while ((! ((i__N5IH ==  0) || (((__CHARACTER *)Self__P5IH->storage__VQO)[(__INTEGER)(i__N5IH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__N5IH -  1)])))) {
-            i__N5IH=(__INTEGER)(i__N5IH -  1);
+          ((__STRING *)string_tmp__VH)->count__WFC= 0;
+          if (((struct ___OBJ *)s__JNYD)->__id==__ITM_SLOT__) {
+            __tmp__BPYD=((__ITM_SLOT *)s__JNYD)->parent_named__P5.name__LI;
+          } else {
+            __tmp__BPYD=((__ITM_SLOT_OPERATOR *)s__JNYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
           };
-          result__M5IH=(i__N5IH ==  0);
-        };
-        if (result__M5IH) {
-          if (is_first__EMYD) {
-            put__to__like__1ZXD((&__string_182),output_code__SI,(&__string_142));
-            is_first__EMYD=FALSE__;
+          get_all_comment_slot__in__302E(Self__WJTD,__tmp__BPYD,string_tmp__VH);
+          put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_128));
+          put__to__like__1ZXD((&__string_182),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_183),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_184),output_code__SI,(&__string_144));
+        };
+        Self__4F5D=(__INTEGER)(Self__4F5D +  1);
+      };
+      s__XPYD=NULL;
+      is_first__WPYD=TRUE__;
+      __tmp__1PYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD;
+      Self__NG5D= 0;
+      while ((Self__NG5D <= __tmp__1PYD)) {
+        s__XPYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__A4VE)[Self__NG5D];
+        if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+          __tmp__2LTD=((__ITM_SLOT *)s__XPYD)->parent_named__P5.name__LI;
+        } else {
+          __tmp__2LTD=((__ITM_SLOT_OPERATOR *)s__XPYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+        };
+        Self__GIJH=((__STRING_CONSTANT *)__tmp__2LTD);
+        result__DIJH=FALSE__;
+        i__EIJH= 0;
+        if ((((__STRING_CONSTANT *)(&__string_174))->count__DD <= Self__GIJH->count__DD)) {
+          i__EIJH=((__STRING_CONSTANT *)(&__string_174))->count__DD;
+          while ((! ((i__EIJH ==  0) || (((__CHARACTER *)Self__GIJH->storage__VQO)[(__INTEGER)(i__EIJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_174))->storage__VQO)[(__INTEGER)(i__EIJH -  1)])))) {
+            i__EIJH=(__INTEGER)(i__EIJH -  1);
+          };
+          result__DIJH=(i__EIJH ==  0);
+        };
+        if (result__DIJH) {
+          if (is_first__WPYD) {
+            put__to__like__1ZXD((&__string_185),output_code__SI,(&__string_142));
+            is_first__WPYD=FALSE__;
           };
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__FMYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__IA3F(s__FMYD,string_tmp2__BAJ);
+          if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+            pretty_name_in__AJ3F(s__XPYD,string_tmp2__BAJ);
           } else {
-            pretty_name_in__3B3F(s__FMYD,string_tmp2__BAJ);
+            pretty_name_in__VK3F(s__XPYD,string_tmp2__BAJ);
           };
           put__to__like__1ZXD(string_tmp2__BAJ,output_code__SI,(&__string_143));
-          if (((struct ___OBJ *)s__FMYD)->__id==__ITM_SLOT__) {
-            __tmp__FNYD=((__ITM_SLOT *)s__FMYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
+          if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+            __tmp__XQYD=((__ITM_SLOT *)s__XPYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
           } else {
-            __tmp__FNYD=((__ITM_SLOT_OPERATOR *)s__FMYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
+            __tmp__XQYD=((__ITM_SLOT_OPERATOR *)s__XPYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
           };
-          copy__ZCS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__FNYD)) &  511)])->filename__UPG);
-          append__BOS(string_tmp__VH,(&__string_176));
-          if (((struct ___OBJ *)s__FMYD)->__id==__ITM_SLOT__) {
-            __tmp__KNYD=((__ITM_SLOT *)s__FMYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
+          copy__ZCS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__XQYD)) &  511)])->filename__UPG);
+          append__BOS(string_tmp__VH,(&__string_178));
+          if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+            __tmp__2QYD=((__ITM_SLOT *)s__XPYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
           } else {
-            __tmp__KNYD=((__ITM_SLOT_OPERATOR *)s__FMYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
+            __tmp__2QYD=((__ITM_SLOT_OPERATOR *)s__XPYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
           };
-          append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__KNYD) >>  17),string_tmp__VH);
+          append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__2QYD) >>  17),string_tmp__VH);
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_145));
-          put__to__like__1ZXD((&__string_177),output_code__SI,(&__string_144));
-          if (((struct ___OBJ *)s__FMYD)->__id==__ITM_SLOT__) {
-            shorter_profile_in__UD3F(s__FMYD,output_code__SI);
+          put__to__like__1ZXD((&__string_179),output_code__SI,(&__string_144));
+          ((__STRING *)string_tmp__VH)->count__WFC= 0;
+          if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+            __tmp__FRYD=((__ITM_SLOT *)s__XPYD)->id_section__Y1C;
           } else {
-            shorter_profile_in__RE3F(s__FMYD,output_code__SI);
+            __tmp__FRYD=((__ITM_SLOT_OPERATOR *)s__XPYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          put__to__like__1ZXD((&__string_178),output_code__SI,(&__string_144));
+          append_in__MM3F(__tmp__FRYD,string_tmp__VH);
+          put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_120));
+          put__to__like__1ZXD((&__string_180),output_code__SI,(&__string_144));
+          if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+            shorter_profile_in__ON3F(s__XPYD,output_code__SI);
+          } else {
+            shorter_profile_in__LO3F(s__XPYD,output_code__SI);
+          };
+          put__to__like__1ZXD((&__string_181),output_code__SI,(&__string_144));
           ((__STRING *)string_tmp__VH)->count__WFC= 0;
-          if (((struct ___OBJ *)s__FMYD)->__id==__ITM_SLOT__) {
-            __tmp__VNYD=((__ITM_SLOT *)s__FMYD)->parent_named__P5.name__LI;
+          if (((struct ___OBJ *)s__XPYD)->__id==__ITM_SLOT__) {
+            __tmp__PRYD=((__ITM_SLOT *)s__XPYD)->parent_named__P5.name__LI;
           } else {
-            __tmp__VNYD=((__ITM_SLOT_OPERATOR *)s__FMYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+            __tmp__PRYD=((__ITM_SLOT_OPERATOR *)s__XPYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
           };
-          get_all_comment_slot__in__FW2E(Self__WJTD,__tmp__VNYD,string_tmp__VH);
+          get_all_comment_slot__in__302E(Self__WJTD,__tmp__PRYD,string_tmp__VH);
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_128));
-          put__to__like__1ZXD((&__string_179),output_code__SI,(&__string_144));
-          put__to__like__1ZXD((&__string_180),output_code__SI,(&__string_144));
-          put__to__like__1ZXD((&__string_181),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_182),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_183),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_184),output_code__SI,(&__string_144));
         };
-        Self__LC5D=(__INTEGER)(Self__LC5D +  1);
+        Self__NG5D=(__INTEGER)(Self__NG5D +  1);
       };
-      s__LOYD=NULL;
-      is_first__KOYD=TRUE__;
-      __tmp__POYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__21XD;
-      Self__0C5D= 0;
-      while ((Self__0C5D <= __tmp__POYD)) {
-        s__LOYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__MZVE)[Self__0C5D];
-        if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-          __tmp__GMTD=((__ITM_SLOT *)s__LOYD)->parent_named__P5.name__LI;
+      s__FSYD=NULL;
+      is_first__ESYD=TRUE__;
+      __tmp__JSYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.upper__M2XD;
+      Self__2G5D= 0;
+      while ((Self__2G5D <= __tmp__JSYD)) {
+        s__FSYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__5JTD)->parent_arrayed_collection__4JTD.storage__A4VE)[Self__2G5D];
+        if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+          __tmp__GMTD=((__ITM_SLOT *)s__FSYD)->parent_named__P5.name__LI;
         } else {
-          __tmp__GMTD=((__ITM_SLOT_OPERATOR *)s__LOYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          __tmp__GMTD=((__ITM_SLOT_OPERATOR *)s__FSYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
         };
-        Self__U5IH=((__STRING_CONSTANT *)__tmp__GMTD);
-        result__R5IH=FALSE__;
-        i__S5IH= 0;
-        if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__U5IH->count__DD)) {
-          i__S5IH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
-          while ((! ((i__S5IH ==  0) || (((__CHARACTER *)Self__U5IH->storage__VQO)[(__INTEGER)(i__S5IH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__S5IH -  1)])))) {
-            i__S5IH=(__INTEGER)(i__S5IH -  1);
+        Self__LIJH=((__STRING_CONSTANT *)__tmp__GMTD);
+        result__IIJH=FALSE__;
+        i__JIJH= 0;
+        if ((((__STRING_CONSTANT *)(&__string_174))->count__DD <= Self__LIJH->count__DD)) {
+          i__JIJH=((__STRING_CONSTANT *)(&__string_174))->count__DD;
+          while ((! ((i__JIJH ==  0) || (((__CHARACTER *)Self__LIJH->storage__VQO)[(__INTEGER)(i__JIJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_174))->storage__VQO)[(__INTEGER)(i__JIJH -  1)])))) {
+            i__JIJH=(__INTEGER)(i__JIJH -  1);
           };
-          result__R5IH=(i__S5IH ==  0);
+          result__IIJH=(i__JIJH ==  0);
         };
-        if ((! result__R5IH)) {
-          if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-            __tmp__OMTD=((__ITM_SLOT *)s__LOYD)->id_section__Y1C;
+        if ((! result__IIJH)) {
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            __tmp__OMTD=((__ITM_SLOT *)s__FSYD)->id_section__Y1C;
           } else {
-            __tmp__OMTD=((__ITM_SLOT_OPERATOR *)s__LOYD)->parent_itm_slot__OU5B.id_section__Y1C;
+            __tmp__OMTD=((__ITM_SLOT_OPERATOR *)s__FSYD)->parent_itm_slot__OU5B.id_section__Y1C;
           };
-          Self__PK0G=((__SECTION_ *)__tmp__OMTD);
-          __tmp__TMTD=(! (((void *)Self__PK0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__PK0G->name__CZDC == (void *)(&__string_24))));
+          Self__FU0G=((__SECTION_ *)__tmp__OMTD);
+          __tmp__TMTD=(! (((void *)Self__FU0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__FU0G->name__CZDC == (void *)(&__string_24))));
         } else {
           __tmp__TMTD=FALSE__;
         };
         if (__tmp__TMTD) {
-          if (is_first__KOYD) {
-            put__to__like__1ZXD((&__string_183),output_code__SI,(&__string_142));
-            is_first__KOYD=FALSE__;
+          if (is_first__ESYD) {
+            put__to__like__1ZXD((&__string_186),output_code__SI,(&__string_142));
+            is_first__ESYD=FALSE__;
           };
           ((__STRING *)string_tmp2__BAJ)->count__WFC= 0;
-          if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__IA3F(s__LOYD,string_tmp2__BAJ);
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            pretty_name_in__AJ3F(s__FSYD,string_tmp2__BAJ);
           } else {
-            pretty_name_in__3B3F(s__LOYD,string_tmp2__BAJ);
+            pretty_name_in__VK3F(s__FSYD,string_tmp2__BAJ);
           };
           put__to__like__1ZXD(string_tmp2__BAJ,output_code__SI,(&__string_143));
-          if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-            __tmp__LPYD=((__ITM_SLOT *)s__LOYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            __tmp__FTYD=((__ITM_SLOT *)s__FSYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
           } else {
-            __tmp__LPYD=((__ITM_SLOT_OPERATOR *)s__LOYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
+            __tmp__FTYD=((__ITM_SLOT_OPERATOR *)s__FSYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
           };
-          copy__ZCS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__LPYD)) &  511)])->filename__UPG);
-          append__BOS(string_tmp__VH,(&__string_176));
-          if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-            __tmp__QPYD=((__ITM_SLOT *)s__LOYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
+          copy__ZCS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__FTYD)) &  511)])->filename__UPG);
+          append__BOS(string_tmp__VH,(&__string_178));
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            __tmp__KTYD=((__ITM_SLOT *)s__FSYD)->parent_named__P5.parent_itm_object__4.position__NDJ;
           } else {
-            __tmp__QPYD=((__ITM_SLOT_OPERATOR *)s__LOYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
+            __tmp__KTYD=((__ITM_SLOT_OPERATOR *)s__FSYD)->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
           };
-          append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__QPYD) >>  17),string_tmp__VH);
+          append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__KTYD) >>  17),string_tmp__VH);
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_145));
-          put__to__like__1ZXD((&__string_177),output_code__SI,(&__string_144));
-          if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-            shorter_profile_in__UD3F(s__LOYD,output_code__SI);
+          put__to__like__1ZXD((&__string_179),output_code__SI,(&__string_144));
+          ((__STRING *)string_tmp__VH)->count__WFC= 0;
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            __tmp__TTYD=((__ITM_SLOT *)s__FSYD)->id_section__Y1C;
+          } else {
+            __tmp__TTYD=((__ITM_SLOT_OPERATOR *)s__FSYD)->parent_itm_slot__OU5B.id_section__Y1C;
+          };
+          append_in__MM3F(__tmp__TTYD,string_tmp__VH);
+          put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_120));
+          put__to__like__1ZXD((&__string_180),output_code__SI,(&__string_144));
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            shorter_profile_in__ON3F(s__FSYD,output_code__SI);
           } else {
-            shorter_profile_in__RE3F(s__LOYD,output_code__SI);
+            shorter_profile_in__LO3F(s__FSYD,output_code__SI);
           };
-          put__to__like__1ZXD((&__string_178),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_181),output_code__SI,(&__string_144));
           ((__STRING *)string_tmp__VH)->count__WFC= 0;
-          if (((struct ___OBJ *)s__LOYD)->__id==__ITM_SLOT__) {
-            __tmp__1PYD=((__ITM_SLOT *)s__LOYD)->parent_named__P5.name__LI;
+          if (((struct ___OBJ *)s__FSYD)->__id==__ITM_SLOT__) {
+            __tmp__3TYD=((__ITM_SLOT *)s__FSYD)->parent_named__P5.name__LI;
           } else {
-            __tmp__1PYD=((__ITM_SLOT_OPERATOR *)s__LOYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+            __tmp__3TYD=((__ITM_SLOT_OPERATOR *)s__FSYD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
           };
-          get_all_comment_slot__in__FW2E(Self__WJTD,__tmp__1PYD,string_tmp__VH);
+          get_all_comment_slot__in__302E(Self__WJTD,__tmp__3TYD,string_tmp__VH);
           put__to__like__1ZXD(string_tmp__VH,output_code__SI,(&__string_128));
-          put__to__like__1ZXD((&__string_179),output_code__SI,(&__string_144));
-          put__to__like__1ZXD((&__string_180),output_code__SI,(&__string_144));
-          put__to__like__1ZXD((&__string_181),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_182),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_183),output_code__SI,(&__string_144));
+          put__to__like__1ZXD((&__string_184),output_code__SI,(&__string_144));
         };
-        Self__0C5D=(__INTEGER)(Self__0C5D +  1);
+        Self__2G5D=(__INTEGER)(Self__2G5D +  1);
       };
       save_file__with__PDC(add_ext__EBF(((__PROTOTYPE *)p__AB)->parent_named__5.name__LI),output_code__SI);
       Self__C1QC=(__INTEGER)(Self__C1QC +  1);
@@ -8149,10 +8312,10 @@ static __STRING* create__NBB(__INTEGER needed_capacity__PBB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
   __STRING *result__ISB,*Self__JBS;
-  __POINTER ptr__JSB,ptr_table__X5IH,next__W5IH,result__Y5IH;
+  __POINTER ptr__JSB,ptr_table__OIJH,next__NIJH,result__PIJH;
   __POINTER ptr_table__VTH,next__0TH,result__YTH;
   __INTEGER typ_id__PSB;
-  __UINTEGER_32 sz__MSB,a__JOFH,new_size__KOFH,t__OOFH,a__NOFH;
+  __UINTEGER_32 sz__MSB,a__QWFH,new_size__RWFH,t__VWFH,a__UWFH;
   __UINTEGER_32 new_size__UTH,lab_type__WTH;
   result__ISB=NULL;
   ptr__JSB=((__POINTER )(NULL));
@@ -8164,38 +8327,38 @@ static __STRING* create__NBB(__INTEGER needed_capacity__PBB)
     typ_id__PSB=-1;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__MSB);
     if ((typ_id__PSB == (__INTEGER)(-  1))) {
-      a__JOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__KOFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MSB + a__JOFH) & (__UINTEGER_32)(~ a__JOFH));
-      ptr_table__X5IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KOFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__W5IH=((__POINTER )(NULL));
-      result__Y5IH=((__POINTER *)ptr_table__X5IH)[ 0];
-      if ((result__Y5IH == (void *)NULL)) {
-        result__Y5IH=new_lab__MRJ(new_size__KOFH);
-        next__W5IH=(void *)((unsigned long)result__Y5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KOFH)));
-        ((__POINTER *)next__W5IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__X5IH)[ 0]=next__W5IH;
-      } else {
-        next__W5IH=((__POINTER *)result__Y5IH)[ 0];
-        if ((next__W5IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y5IH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KOFH <<  1)) <=  4096)) {
-            next__W5IH=(void *)((unsigned long)result__Y5IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KOFH)));
-          } else {
-            next__W5IH=new_lab__MRJ(new_size__KOFH);
-          };
-          ((__POINTER *)next__W5IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__X5IH)[ 0]=next__W5IH;
-        } else {
-          ((__POINTER *)result__Y5IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W5IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Y5IH=next__W5IH;
-        };
-      };
-      ptr__JSB=result__Y5IH;
-    } else {
-      t__OOFH=((__UINTEGER_32 )typ_id__PSB);
-      a__NOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UTH=(__UINTEGER_32)((__UINTEGER_32)(sz__MSB + a__NOFH) & (__UINTEGER_32)(~ a__NOFH));
-      ptr_table__VTH=((__POINTER )(&(table_type[(t__OOFH)])));
-      lab_type__WTH=(__UINTEGER_32)(t__OOFH |  1);
+      a__QWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__RWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MSB + a__QWFH) & (__UINTEGER_32)(~ a__QWFH));
+      ptr_table__OIJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__NIJH=((__POINTER )(NULL));
+      result__PIJH=((__POINTER *)ptr_table__OIJH)[ 0];
+      if ((result__PIJH == (void *)NULL)) {
+        result__PIJH=new_lab__MRJ(new_size__RWFH);
+        next__NIJH=(void *)((unsigned long)result__PIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RWFH)));
+        ((__POINTER *)next__NIJH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__OIJH)[ 0]=next__NIJH;
+      } else {
+        next__NIJH=((__POINTER *)result__PIJH)[ 0];
+        if ((next__NIJH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PIJH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RWFH <<  1)) <=  4096)) {
+            next__NIJH=(void *)((unsigned long)result__PIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RWFH)));
+          } else {
+            next__NIJH=new_lab__MRJ(new_size__RWFH);
+          };
+          ((__POINTER *)next__NIJH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__OIJH)[ 0]=next__NIJH;
+        } else {
+          ((__POINTER *)result__PIJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NIJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__PIJH=next__NIJH;
+        };
+      };
+      ptr__JSB=result__PIJH;
+    } else {
+      t__VWFH=((__UINTEGER_32 )typ_id__PSB);
+      a__UWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__UTH=(__UINTEGER_32)((__UINTEGER_32)(sz__MSB + a__UWFH) & (__UINTEGER_32)(~ a__UWFH));
+      ptr_table__VTH=((__POINTER )(&(table_type[(t__VWFH)])));
+      lab_type__WTH=(__UINTEGER_32)(t__VWFH |  1);
       next__0TH=((__POINTER )(NULL));
       result__YTH=((__POINTER *)ptr_table__VTH)[ 0];
       if ((result__YTH == (void *)NULL)) {
@@ -8238,8 +8401,8 @@ static __POINTER new_lab__MRJ(__UINTEGER_32 t__ORJ)
 // ({UINTEGER_32}) With resultNo recursive, No inlinable.
 {
   __UINTEGER_32 idx__QRJ,pv__XRJ;
-  void *blc__TRJ,*prev__URJ,*prev__QLCH,*next__RLCH;
-  __MEMORY *Self__0K4G,*Self__PLCH;
+  void *blc__TRJ,*prev__URJ,*prev__2UCH,*next__3UCH;
+  __MEMORY *Self__EU4G,*Self__1UCH;
   __POINTER result__VRJ;
   __BOOLEAN __tmp__XSJ;
   idx__QRJ= 0;
@@ -8263,19 +8426,19 @@ static __POINTER new_lab__MRJ(__UINTEGER_32 t__ORJ)
     blc__TRJ=new_page__OA5();
   };
   ((__MEMORY *)blc__TRJ)->map_size_and_id__ITB=(__UINTEGER_32)(((__MEMORY *)blc__TRJ)->map_size_and_id__ITB -  4096);
-  Self__0K4G=((__MEMORY *)blc__TRJ);
-  result__VRJ=((__POINTER )((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__0K4G) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__0K4G->map_size_and_id__ITB &  4294967292LU))))));
+  Self__EU4G=((__MEMORY *)blc__TRJ);
+  result__VRJ=((__POINTER )((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__EU4G) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__EU4G->map_size_and_id__ITB &  4294967292LU))))));
   if (((__UINTEGER_32)(((__MEMORY *)blc__TRJ)->map_size_and_id__ITB &  4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    Self__PLCH=((__MEMORY *)blc__TRJ);
-    prev__QLCH=Self__PLCH->map_previous_free__KTB;
-    next__RLCH=Self__PLCH->map_next_free__JTB;
-    if (((void *)prev__QLCH == (void *)NULL)) {
-      first_free__XDVB=next__RLCH;
+    Self__1UCH=((__MEMORY *)blc__TRJ);
+    prev__2UCH=Self__1UCH->map_previous_free__KTB;
+    next__3UCH=Self__1UCH->map_next_free__JTB;
+    if (((void *)prev__2UCH == (void *)NULL)) {
+      first_free__XDVB=next__3UCH;
     } else {
-      ((__MEMORY *)prev__QLCH)->map_next_free__JTB=next__RLCH;
+      ((__MEMORY *)prev__2UCH)->map_next_free__JTB=next__3UCH;
     };
-    if (((void *)next__RLCH != (void *)NULL)) {
-      ((__MEMORY *)next__RLCH)->map_previous_free__KTB=prev__QLCH;
+    if (((void *)next__3UCH != (void *)NULL)) {
+      ((__MEMORY *)next__3UCH)->map_previous_free__KTB=prev__2UCH;
     };
     pv__XRJ=((__MEMORY *)blc__TRJ)->map_previous_linear__HTB;
     if ((pv__XRJ !=  4294967295LU)) {
@@ -8291,57 +8454,57 @@ static __POINTER new_lab__MRJ(__UINTEGER_32 t__ORJ)
 static void** create__ZFRB(__INTEGER nb_elements__1FRB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__3DCH,a__J2DH,new_size__4DCH,new_size2__5DCH,a__N2DH;
-  __UINTEGER_32 new_size__O2DH;
-  __POINTER result__2DCH,ptr_table__SDHH,next__RDHH,result__TDHH;
-  void *result__WDHH;
+  __UINTEGER_32 sz__CNCH,a__YFEH,new_size__DNCH,new_size2__ENCH,a__2FEH;
+  __UINTEGER_32 new_size__3FEH;
+  __POINTER result__BNCH,ptr_table__1LHH,next__0LHH,result__2LHH;
+  void *result__5LHH;
   __INTEGER Self__LANC;
   void **Result__BEUB;
-  sz__3DCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__1FRB * ((__INTEGER )(sizeof(void *)))));
-  result__2DCH=((__POINTER )(NULL));
-  a__J2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__4DCH=(__UINTEGER_32)((__UINTEGER_32)(sz__3DCH + a__J2DH) & (__UINTEGER_32)(~ a__J2DH));
-  new_size2__5DCH=(__UINTEGER_32)(new_size__4DCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__5DCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__N2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__O2DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__5DCH + a__N2DH) & (__UINTEGER_32)(~ a__N2DH));
-    ptr_table__SDHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__O2DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__RDHH=((__POINTER )(NULL));
-    result__TDHH=((__POINTER *)ptr_table__SDHH)[ 0];
-    if ((result__TDHH == (void *)NULL)) {
-      result__TDHH=new_lab__MRJ(new_size__O2DH);
-      next__RDHH=(void *)((unsigned long)result__TDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O2DH)));
-      ((__POINTER *)next__RDHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__SDHH)[ 0]=next__RDHH;
-    } else {
-      next__RDHH=((__POINTER *)result__TDHH)[ 0];
-      if ((next__RDHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TDHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__O2DH <<  1)) <=  4096)) {
-          next__RDHH=(void *)((unsigned long)result__TDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__O2DH)));
-        } else {
-          next__RDHH=new_lab__MRJ(new_size__O2DH);
-        };
-        ((__POINTER *)next__RDHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SDHH)[ 0]=next__RDHH;
-      } else {
-        ((__POINTER *)result__TDHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RDHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__TDHH=next__RDHH;
-      };
-    };
-    ((__POINTER *)result__TDHH)[ 0]=((__POINTER ) 3);
-    result__2DCH=(void *)((unsigned long)result__TDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__CNCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__1FRB * ((__INTEGER )(sizeof(void *)))));
+  result__BNCH=((__POINTER )(NULL));
+  a__YFEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__DNCH=(__UINTEGER_32)((__UINTEGER_32)(sz__CNCH + a__YFEH) & (__UINTEGER_32)(~ a__YFEH));
+  new_size2__ENCH=(__UINTEGER_32)(new_size__DNCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__ENCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__2FEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__3FEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ENCH + a__2FEH) & (__UINTEGER_32)(~ a__2FEH));
+    ptr_table__1LHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3FEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__0LHH=((__POINTER )(NULL));
+    result__2LHH=((__POINTER *)ptr_table__1LHH)[ 0];
+    if ((result__2LHH == (void *)NULL)) {
+      result__2LHH=new_lab__MRJ(new_size__3FEH);
+      next__0LHH=(void *)((unsigned long)result__2LHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3FEH)));
+      ((__POINTER *)next__0LHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__1LHH)[ 0]=next__0LHH;
+    } else {
+      next__0LHH=((__POINTER *)result__2LHH)[ 0];
+      if ((next__0LHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2LHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3FEH <<  1)) <=  4096)) {
+          next__0LHH=(void *)((unsigned long)result__2LHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3FEH)));
+        } else {
+          next__0LHH=new_lab__MRJ(new_size__3FEH);
+        };
+        ((__POINTER *)next__0LHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__1LHH)[ 0]=next__0LHH;
+      } else {
+        ((__POINTER *)result__2LHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0LHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__2LHH=next__0LHH;
+      };
+    };
+    ((__POINTER *)result__2LHH)[ 0]=((__POINTER ) 3);
+    result__BNCH=(void *)((unsigned long)result__2LHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__WDHH=first_free__XDVB;
-    while ((((void *)result__WDHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__WDHH)->map_size_and_id__ITB &  4294967292LU) < new_size__4DCH))) {
-      result__WDHH=((__MEMORY *)result__WDHH)->map_next_free__JTB;
+    result__5LHH=first_free__XDVB;
+    while ((((void *)result__5LHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__5LHH)->map_size_and_id__ITB &  4294967292LU) < new_size__DNCH))) {
+      result__5LHH=((__MEMORY *)result__5LHH)->map_next_free__JTB;
     };
-    if (((void *)result__WDHH == (void *)NULL)) {
-      result__WDHH=new_page__OA5();
+    if (((void *)result__5LHH == (void *)NULL)) {
+      result__5LHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__WDHH,new_size__4DCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__WDHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__2DCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__WDHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__5LHH,new_size__DNCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__5LHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__BNCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__5LHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__BEUB=((void **)result__2DCH);
+  Result__BEUB=((void **)result__BNCH);
   Self__LANC=(__INTEGER)(nb_elements__1FRB -  1);
   while ((Self__LANC >=  0)) {
     Result__BEUB[Self__LANC]=NULL;
@@ -8353,8 +8516,8 @@ static void** create__ZFRB(__INTEGER nb_elements__1FRB)
 static void add_last__ZLT(__STRING *Self__0LT,__CHARACTER ch__1LT)
 // ({STRING},{CHARACTER}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__2LT,old_nb_elts__GHDH,upper__SOFH,Self__QOFH;
-  __CHARACTER *Self__FHDH,*new__IHDH;
+  __INTEGER new_capacity__2LT,old_nb_elts__KQDH,upper__ZWFH,Self__XWFH;
+  __CHARACTER *Self__JQDH,*new__MQDH;
   new_capacity__2LT= 0;
   if ((Self__0LT->capacity__YBS <= Self__0LT->count__WFC)) {
     if ((Self__0LT->capacity__YBS ==  0)) {
@@ -8362,16 +8525,16 @@ static void add_last__ZLT(__STRING *Self__0LT,__CHARACTER ch__1LT)
       Self__0LT->storage__BCS=create__BMEB( 32);
     } else {
       new_capacity__2LT=(__INTEGER)(Self__0LT->capacity__YBS <<  1);
-      Self__FHDH=((__CHARACTER *)Self__0LT->storage__BCS);
-      old_nb_elts__GHDH=Self__0LT->capacity__YBS;
-      new__IHDH=((__CHARACTER *)realloc_dynamic__old_size__new_size__RELC(((__POINTER )Self__FHDH),((__UINTEGER_32 )old_nb_elts__GHDH),((__UINTEGER_32 )new_capacity__2LT)));
-      upper__SOFH=(__INTEGER)(new_capacity__2LT -  1);
-      Self__QOFH=old_nb_elts__GHDH;
-      while ((Self__QOFH <= upper__SOFH)) {
-        new__IHDH[Self__QOFH]='\0';
-        Self__QOFH=(__INTEGER)(Self__QOFH +  1);
-      };
-      Self__0LT->storage__BCS=new__IHDH;
+      Self__JQDH=((__CHARACTER *)Self__0LT->storage__BCS);
+      old_nb_elts__KQDH=Self__0LT->capacity__YBS;
+      new__MQDH=((__CHARACTER *)realloc_dynamic__old_size__new_size__RELC(((__POINTER )Self__JQDH),((__UINTEGER_32 )old_nb_elts__KQDH),((__UINTEGER_32 )new_capacity__2LT)));
+      upper__ZWFH=(__INTEGER)(new_capacity__2LT -  1);
+      Self__XWFH=old_nb_elts__KQDH;
+      while ((Self__XWFH <= upper__ZWFH)) {
+        new__MQDH[Self__XWFH]='\0';
+        Self__XWFH=(__INTEGER)(Self__XWFH +  1);
+      };
+      Self__0LT->storage__BCS=new__MQDH;
       Self__0LT->capacity__YBS=new_capacity__2LT;
     };
   };
@@ -8678,57 +8841,57 @@ static __INTEGER prime_number_ceiling__X41(__INTEGER integer__Z41)
 static void** create__XB4(__INTEGER nb_elements__ZB4)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__UHDH,a__ZHDH,new_size__VHDH,new_size2__WHDH,a__3HDH;
-  __UINTEGER_32 new_size__4HDH;
-  __POINTER result__THDH,ptr_table__BSGH,next__ASGH,result__CSGH;
-  void *result__15IH;
+  __UINTEGER_32 sz__YQDH,a__3QDH,new_size__ZQDH,new_size2__0QDH,a__BRDH;
+  __UINTEGER_32 new_size__CRDH;
+  __POINTER result__XQDH,ptr_table__O0GH,next__N0GH,result__P0GH;
+  void *result__SIJH;
   __INTEGER Self__J1JC;
   void **Result__OZEB;
-  sz__UHDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__ZB4 * ((__INTEGER )(sizeof(void *)))));
-  result__THDH=((__POINTER )(NULL));
-  a__ZHDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__VHDH=(__UINTEGER_32)((__UINTEGER_32)(sz__UHDH + a__ZHDH) & (__UINTEGER_32)(~ a__ZHDH));
-  new_size2__WHDH=(__UINTEGER_32)(new_size__VHDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__WHDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__3HDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__4HDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WHDH + a__3HDH) & (__UINTEGER_32)(~ a__3HDH));
-    ptr_table__BSGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4HDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ASGH=((__POINTER )(NULL));
-    result__CSGH=((__POINTER *)ptr_table__BSGH)[ 0];
-    if ((result__CSGH == (void *)NULL)) {
-      result__CSGH=new_lab__MRJ(new_size__4HDH);
-      next__ASGH=(void *)((unsigned long)result__CSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HDH)));
-      ((__POINTER *)next__ASGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__BSGH)[ 0]=next__ASGH;
-    } else {
-      next__ASGH=((__POINTER *)result__CSGH)[ 0];
-      if ((next__ASGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CSGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4HDH <<  1)) <=  4096)) {
-          next__ASGH=(void *)((unsigned long)result__CSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HDH)));
-        } else {
-          next__ASGH=new_lab__MRJ(new_size__4HDH);
-        };
-        ((__POINTER *)next__ASGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BSGH)[ 0]=next__ASGH;
-      } else {
-        ((__POINTER *)result__CSGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ASGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__CSGH=next__ASGH;
-      };
-    };
-    ((__POINTER *)result__CSGH)[ 0]=((__POINTER ) 3);
-    result__THDH=(void *)((unsigned long)result__CSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__YQDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__ZB4 * ((__INTEGER )(sizeof(void *)))));
+  result__XQDH=((__POINTER )(NULL));
+  a__3QDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__ZQDH=(__UINTEGER_32)((__UINTEGER_32)(sz__YQDH + a__3QDH) & (__UINTEGER_32)(~ a__3QDH));
+  new_size2__0QDH=(__UINTEGER_32)(new_size__ZQDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__0QDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__BRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__CRDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0QDH + a__BRDH) & (__UINTEGER_32)(~ a__BRDH));
+    ptr_table__O0GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CRDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__N0GH=((__POINTER )(NULL));
+    result__P0GH=((__POINTER *)ptr_table__O0GH)[ 0];
+    if ((result__P0GH == (void *)NULL)) {
+      result__P0GH=new_lab__MRJ(new_size__CRDH);
+      next__N0GH=(void *)((unsigned long)result__P0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CRDH)));
+      ((__POINTER *)next__N0GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__O0GH)[ 0]=next__N0GH;
+    } else {
+      next__N0GH=((__POINTER *)result__P0GH)[ 0];
+      if ((next__N0GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CRDH <<  1)) <=  4096)) {
+          next__N0GH=(void *)((unsigned long)result__P0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CRDH)));
+        } else {
+          next__N0GH=new_lab__MRJ(new_size__CRDH);
+        };
+        ((__POINTER *)next__N0GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__O0GH)[ 0]=next__N0GH;
+      } else {
+        ((__POINTER *)result__P0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__P0GH=next__N0GH;
+      };
+    };
+    ((__POINTER *)result__P0GH)[ 0]=((__POINTER ) 3);
+    result__XQDH=(void *)((unsigned long)result__P0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__15IH=first_free__XDVB;
-    while ((((void *)result__15IH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__15IH)->map_size_and_id__ITB &  4294967292LU) < new_size__VHDH))) {
-      result__15IH=((__MEMORY *)result__15IH)->map_next_free__JTB;
+    result__SIJH=first_free__XDVB;
+    while ((((void *)result__SIJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__SIJH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZQDH))) {
+      result__SIJH=((__MEMORY *)result__SIJH)->map_next_free__JTB;
     };
-    if (((void *)result__15IH == (void *)NULL)) {
-      result__15IH=new_page__OA5();
+    if (((void *)result__SIJH == (void *)NULL)) {
+      result__SIJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__15IH,new_size__VHDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__15IH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__THDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__15IH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__SIJH,new_size__ZQDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__SIJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__XQDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__SIJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__OZEB=((void **)result__THDH);
+  Result__OZEB=((void **)result__XQDH);
   Self__J1JC=(__INTEGER)(nb_elements__ZB4 -  1);
   while ((Self__J1JC >=  0)) {
     Result__OZEB[Self__J1JC]=NULL;
@@ -8740,57 +8903,57 @@ static void** create__XB4(__INTEGER nb_elements__ZB4)
 static void** create__HITC(__INTEGER nb_elements__JITC)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__AIDH,a__FIDH,new_size__BIDH,new_size2__CIDH,a__JIDH;
-  __UINTEGER_32 new_size__KIDH;
-  __POINTER result__5HDH,ptr_table__GSGH,next__FSGH,result__HSGH;
-  void *result__45IH;
+  __UINTEGER_32 sz__ERDH,a__JRDH,new_size__FRDH,new_size2__GRDH,a__NRDH;
+  __UINTEGER_32 new_size__ORDH;
+  __POINTER result__DRDH,ptr_table__T0GH,next__S0GH,result__U0GH;
+  void *result__VIJH;
   __INTEGER Self__GQWD;
   void **Result__TD3C;
-  sz__AIDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__JITC * ((__INTEGER )(sizeof(void *)))));
-  result__5HDH=((__POINTER )(NULL));
-  a__FIDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__BIDH=(__UINTEGER_32)((__UINTEGER_32)(sz__AIDH + a__FIDH) & (__UINTEGER_32)(~ a__FIDH));
-  new_size2__CIDH=(__UINTEGER_32)(new_size__BIDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__CIDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__JIDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__KIDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__CIDH + a__JIDH) & (__UINTEGER_32)(~ a__JIDH));
-    ptr_table__GSGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KIDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__FSGH=((__POINTER )(NULL));
-    result__HSGH=((__POINTER *)ptr_table__GSGH)[ 0];
-    if ((result__HSGH == (void *)NULL)) {
-      result__HSGH=new_lab__MRJ(new_size__KIDH);
-      next__FSGH=(void *)((unsigned long)result__HSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KIDH)));
-      ((__POINTER *)next__FSGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__GSGH)[ 0]=next__FSGH;
-    } else {
-      next__FSGH=((__POINTER *)result__HSGH)[ 0];
-      if ((next__FSGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HSGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KIDH <<  1)) <=  4096)) {
-          next__FSGH=(void *)((unsigned long)result__HSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KIDH)));
-        } else {
-          next__FSGH=new_lab__MRJ(new_size__KIDH);
-        };
-        ((__POINTER *)next__FSGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GSGH)[ 0]=next__FSGH;
-      } else {
-        ((__POINTER *)result__HSGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FSGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__HSGH=next__FSGH;
-      };
-    };
-    ((__POINTER *)result__HSGH)[ 0]=((__POINTER ) 3);
-    result__5HDH=(void *)((unsigned long)result__HSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__ERDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__JITC * ((__INTEGER )(sizeof(void *)))));
+  result__DRDH=((__POINTER )(NULL));
+  a__JRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__FRDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ERDH + a__JRDH) & (__UINTEGER_32)(~ a__JRDH));
+  new_size2__GRDH=(__UINTEGER_32)(new_size__FRDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__GRDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__NRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__ORDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GRDH + a__NRDH) & (__UINTEGER_32)(~ a__NRDH));
+    ptr_table__T0GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ORDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__S0GH=((__POINTER )(NULL));
+    result__U0GH=((__POINTER *)ptr_table__T0GH)[ 0];
+    if ((result__U0GH == (void *)NULL)) {
+      result__U0GH=new_lab__MRJ(new_size__ORDH);
+      next__S0GH=(void *)((unsigned long)result__U0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ORDH)));
+      ((__POINTER *)next__S0GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__T0GH)[ 0]=next__S0GH;
+    } else {
+      next__S0GH=((__POINTER *)result__U0GH)[ 0];
+      if ((next__S0GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ORDH <<  1)) <=  4096)) {
+          next__S0GH=(void *)((unsigned long)result__U0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ORDH)));
+        } else {
+          next__S0GH=new_lab__MRJ(new_size__ORDH);
+        };
+        ((__POINTER *)next__S0GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__T0GH)[ 0]=next__S0GH;
+      } else {
+        ((__POINTER *)result__U0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__U0GH=next__S0GH;
+      };
+    };
+    ((__POINTER *)result__U0GH)[ 0]=((__POINTER ) 3);
+    result__DRDH=(void *)((unsigned long)result__U0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__45IH=first_free__XDVB;
-    while ((((void *)result__45IH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__45IH)->map_size_and_id__ITB &  4294967292LU) < new_size__BIDH))) {
-      result__45IH=((__MEMORY *)result__45IH)->map_next_free__JTB;
+    result__VIJH=first_free__XDVB;
+    while ((((void *)result__VIJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__VIJH)->map_size_and_id__ITB &  4294967292LU) < new_size__FRDH))) {
+      result__VIJH=((__MEMORY *)result__VIJH)->map_next_free__JTB;
     };
-    if (((void *)result__45IH == (void *)NULL)) {
-      result__45IH=new_page__OA5();
+    if (((void *)result__VIJH == (void *)NULL)) {
+      result__VIJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__45IH,new_size__BIDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__45IH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__5HDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__45IH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__VIJH,new_size__FRDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__VIJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__DRDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__VIJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__TD3C=((void **)result__5HDH);
+  Result__TD3C=((void **)result__DRDH);
   Self__GQWD=(__INTEGER)(nb_elements__JITC -  1);
   while ((Self__GQWD >=  0)) {
     Result__TD3C[Self__GQWD]=NULL;
@@ -8802,57 +8965,57 @@ static void** create__HITC(__INTEGER nb_elements__JITC)
 static void** create__GFSB(__INTEGER nb_elements__IFSB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__MIDH,a__RIDH,new_size__NIDH,new_size2__OIDH,a__VIDH;
-  __UINTEGER_32 new_size__WIDH;
-  __POINTER result__LIDH,ptr_table__LSGH,next__KSGH,result__MSGH;
-  void *result__BAJH;
+  __UINTEGER_32 sz__QRDH,a__VRDH,new_size__RRDH,new_size2__SRDH,a__ZRDH;
+  __UINTEGER_32 new_size__0RDH;
+  __POINTER result__PRDH,ptr_table__Y0GH,next__X0GH,result__Z0GH;
+  void *result__YIJH;
   __INTEGER Self__RHNC;
   void **Result__5JVB;
-  sz__MIDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__IFSB * ((__INTEGER )(sizeof(void *)))));
-  result__LIDH=((__POINTER )(NULL));
-  a__RIDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__NIDH=(__UINTEGER_32)((__UINTEGER_32)(sz__MIDH + a__RIDH) & (__UINTEGER_32)(~ a__RIDH));
-  new_size2__OIDH=(__UINTEGER_32)(new_size__NIDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__OIDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__VIDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__WIDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OIDH + a__VIDH) & (__UINTEGER_32)(~ a__VIDH));
-    ptr_table__LSGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WIDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__KSGH=((__POINTER )(NULL));
-    result__MSGH=((__POINTER *)ptr_table__LSGH)[ 0];
-    if ((result__MSGH == (void *)NULL)) {
-      result__MSGH=new_lab__MRJ(new_size__WIDH);
-      next__KSGH=(void *)((unsigned long)result__MSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WIDH)));
-      ((__POINTER *)next__KSGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__LSGH)[ 0]=next__KSGH;
-    } else {
-      next__KSGH=((__POINTER *)result__MSGH)[ 0];
-      if ((next__KSGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MSGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WIDH <<  1)) <=  4096)) {
-          next__KSGH=(void *)((unsigned long)result__MSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WIDH)));
-        } else {
-          next__KSGH=new_lab__MRJ(new_size__WIDH);
-        };
-        ((__POINTER *)next__KSGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LSGH)[ 0]=next__KSGH;
-      } else {
-        ((__POINTER *)result__MSGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KSGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__MSGH=next__KSGH;
-      };
-    };
-    ((__POINTER *)result__MSGH)[ 0]=((__POINTER ) 3);
-    result__LIDH=(void *)((unsigned long)result__MSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__QRDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__IFSB * ((__INTEGER )(sizeof(void *)))));
+  result__PRDH=((__POINTER )(NULL));
+  a__VRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__RRDH=(__UINTEGER_32)((__UINTEGER_32)(sz__QRDH + a__VRDH) & (__UINTEGER_32)(~ a__VRDH));
+  new_size2__SRDH=(__UINTEGER_32)(new_size__RRDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__SRDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__ZRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__0RDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__SRDH + a__ZRDH) & (__UINTEGER_32)(~ a__ZRDH));
+    ptr_table__Y0GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0RDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__X0GH=((__POINTER )(NULL));
+    result__Z0GH=((__POINTER *)ptr_table__Y0GH)[ 0];
+    if ((result__Z0GH == (void *)NULL)) {
+      result__Z0GH=new_lab__MRJ(new_size__0RDH);
+      next__X0GH=(void *)((unsigned long)result__Z0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RDH)));
+      ((__POINTER *)next__X0GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__Y0GH)[ 0]=next__X0GH;
+    } else {
+      next__X0GH=((__POINTER *)result__Z0GH)[ 0];
+      if ((next__X0GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0RDH <<  1)) <=  4096)) {
+          next__X0GH=(void *)((unsigned long)result__Z0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RDH)));
+        } else {
+          next__X0GH=new_lab__MRJ(new_size__0RDH);
+        };
+        ((__POINTER *)next__X0GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Y0GH)[ 0]=next__X0GH;
+      } else {
+        ((__POINTER *)result__Z0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__Z0GH=next__X0GH;
+      };
+    };
+    ((__POINTER *)result__Z0GH)[ 0]=((__POINTER ) 3);
+    result__PRDH=(void *)((unsigned long)result__Z0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__BAJH=first_free__XDVB;
-    while ((((void *)result__BAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__BAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__NIDH))) {
-      result__BAJH=((__MEMORY *)result__BAJH)->map_next_free__JTB;
+    result__YIJH=first_free__XDVB;
+    while ((((void *)result__YIJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__YIJH)->map_size_and_id__ITB &  4294967292LU) < new_size__RRDH))) {
+      result__YIJH=((__MEMORY *)result__YIJH)->map_next_free__JTB;
     };
-    if (((void *)result__BAJH == (void *)NULL)) {
-      result__BAJH=new_page__OA5();
+    if (((void *)result__YIJH == (void *)NULL)) {
+      result__YIJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__BAJH,new_size__NIDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__BAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__LIDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__BAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__YIJH,new_size__RRDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__YIJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__PRDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__YIJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__5JVB=((void **)result__LIDH);
+  Result__5JVB=((void **)result__PRDH);
   Self__RHNC=(__INTEGER)(nb_elements__IFSB -  1);
   while ((Self__RHNC >=  0)) {
     Result__5JVB[Self__RHNC]=NULL;
@@ -8864,57 +9027,57 @@ static void** create__GFSB(__INTEGER nb_elements__IFSB)
 static void** create__BG4(__INTEGER nb_elements__DG4)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__YIDH,a__3IDH,new_size__ZIDH,new_size2__0IDH,a__BJDH;
-  __UINTEGER_32 new_size__CJDH;
-  __POINTER result__XIDH,ptr_table__QSGH,next__PSGH,result__RSGH;
-  void *result__EAJH;
+  __UINTEGER_32 sz__2RDH,a__BSDH,new_size__3RDH,new_size2__4RDH,a__FSDH;
+  __UINTEGER_32 new_size__GSDH;
+  __POINTER result__1RDH,ptr_table__30GH,next__20GH,result__40GH;
+  void *result__1IJH;
   __INTEGER Self__Q2JC;
   void **Result__P5EB;
-  sz__YIDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__DG4 * ((__INTEGER )(sizeof(void *)))));
-  result__XIDH=((__POINTER )(NULL));
-  a__3IDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ZIDH=(__UINTEGER_32)((__UINTEGER_32)(sz__YIDH + a__3IDH) & (__UINTEGER_32)(~ a__3IDH));
-  new_size2__0IDH=(__UINTEGER_32)(new_size__ZIDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__0IDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__BJDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__CJDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0IDH + a__BJDH) & (__UINTEGER_32)(~ a__BJDH));
-    ptr_table__QSGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CJDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__PSGH=((__POINTER )(NULL));
-    result__RSGH=((__POINTER *)ptr_table__QSGH)[ 0];
-    if ((result__RSGH == (void *)NULL)) {
-      result__RSGH=new_lab__MRJ(new_size__CJDH);
-      next__PSGH=(void *)((unsigned long)result__RSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CJDH)));
-      ((__POINTER *)next__PSGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__QSGH)[ 0]=next__PSGH;
-    } else {
-      next__PSGH=((__POINTER *)result__RSGH)[ 0];
-      if ((next__PSGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CJDH <<  1)) <=  4096)) {
-          next__PSGH=(void *)((unsigned long)result__RSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CJDH)));
-        } else {
-          next__PSGH=new_lab__MRJ(new_size__CJDH);
-        };
-        ((__POINTER *)next__PSGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QSGH)[ 0]=next__PSGH;
-      } else {
-        ((__POINTER *)result__RSGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__RSGH=next__PSGH;
-      };
-    };
-    ((__POINTER *)result__RSGH)[ 0]=((__POINTER ) 3);
-    result__XIDH=(void *)((unsigned long)result__RSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__2RDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__DG4 * ((__INTEGER )(sizeof(void *)))));
+  result__1RDH=((__POINTER )(NULL));
+  a__BSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__3RDH=(__UINTEGER_32)((__UINTEGER_32)(sz__2RDH + a__BSDH) & (__UINTEGER_32)(~ a__BSDH));
+  new_size2__4RDH=(__UINTEGER_32)(new_size__3RDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__4RDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__FSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__GSDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4RDH + a__FSDH) & (__UINTEGER_32)(~ a__FSDH));
+    ptr_table__30GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GSDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__20GH=((__POINTER )(NULL));
+    result__40GH=((__POINTER *)ptr_table__30GH)[ 0];
+    if ((result__40GH == (void *)NULL)) {
+      result__40GH=new_lab__MRJ(new_size__GSDH);
+      next__20GH=(void *)((unsigned long)result__40GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GSDH)));
+      ((__POINTER *)next__20GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__30GH)[ 0]=next__20GH;
+    } else {
+      next__20GH=((__POINTER *)result__40GH)[ 0];
+      if ((next__20GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__40GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GSDH <<  1)) <=  4096)) {
+          next__20GH=(void *)((unsigned long)result__40GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GSDH)));
+        } else {
+          next__20GH=new_lab__MRJ(new_size__GSDH);
+        };
+        ((__POINTER *)next__20GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__30GH)[ 0]=next__20GH;
+      } else {
+        ((__POINTER *)result__40GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__20GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__40GH=next__20GH;
+      };
+    };
+    ((__POINTER *)result__40GH)[ 0]=((__POINTER ) 3);
+    result__1RDH=(void *)((unsigned long)result__40GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__EAJH=first_free__XDVB;
-    while ((((void *)result__EAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__EAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZIDH))) {
-      result__EAJH=((__MEMORY *)result__EAJH)->map_next_free__JTB;
+    result__1IJH=first_free__XDVB;
+    while ((((void *)result__1IJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__1IJH)->map_size_and_id__ITB &  4294967292LU) < new_size__3RDH))) {
+      result__1IJH=((__MEMORY *)result__1IJH)->map_next_free__JTB;
     };
-    if (((void *)result__EAJH == (void *)NULL)) {
-      result__EAJH=new_page__OA5();
+    if (((void *)result__1IJH == (void *)NULL)) {
+      result__1IJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__EAJH,new_size__ZIDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__EAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__XIDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__1IJH,new_size__3RDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__1IJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__1RDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__1IJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__P5EB=((void **)result__XIDH);
+  Result__P5EB=((void **)result__1RDH);
   Self__Q2JC=(__INTEGER)(nb_elements__DG4 -  1);
   while ((Self__Q2JC >=  0)) {
     Result__P5EB[Self__Q2JC]=NULL;
@@ -8926,57 +9089,57 @@ static void** create__BG4(__INTEGER nb_elements__DG4)
 static void** create__MZ2(__INTEGER nb_elements__OZ2)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__EJDH,a__JJDH,new_size__FJDH,new_size2__GJDH,a__NJDH;
-  __UINTEGER_32 new_size__OJDH;
-  __POINTER result__DJDH,ptr_table__VSGH,next__USGH,result__WSGH;
-  void *result__HAJH;
+  __UINTEGER_32 sz__ISDH,a__NSDH,new_size__JSDH,new_size2__KSDH,a__RSDH;
+  __UINTEGER_32 new_size__SSDH;
+  __POINTER result__HSDH,ptr_table__C1GH,next__B1GH,result__D1GH;
+  void *result__4IJH;
   __INTEGER Self__SUJC;
   void **Result__DRDB;
-  sz__EJDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__OZ2 * ((__INTEGER )(sizeof(void *)))));
-  result__DJDH=((__POINTER )(NULL));
-  a__JJDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__FJDH=(__UINTEGER_32)((__UINTEGER_32)(sz__EJDH + a__JJDH) & (__UINTEGER_32)(~ a__JJDH));
-  new_size2__GJDH=(__UINTEGER_32)(new_size__FJDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__GJDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__NJDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__OJDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GJDH + a__NJDH) & (__UINTEGER_32)(~ a__NJDH));
-    ptr_table__VSGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OJDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__USGH=((__POINTER )(NULL));
-    result__WSGH=((__POINTER *)ptr_table__VSGH)[ 0];
-    if ((result__WSGH == (void *)NULL)) {
-      result__WSGH=new_lab__MRJ(new_size__OJDH);
-      next__USGH=(void *)((unsigned long)result__WSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OJDH)));
-      ((__POINTER *)next__USGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__VSGH)[ 0]=next__USGH;
-    } else {
-      next__USGH=((__POINTER *)result__WSGH)[ 0];
-      if ((next__USGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WSGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OJDH <<  1)) <=  4096)) {
-          next__USGH=(void *)((unsigned long)result__WSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OJDH)));
-        } else {
-          next__USGH=new_lab__MRJ(new_size__OJDH);
-        };
-        ((__POINTER *)next__USGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VSGH)[ 0]=next__USGH;
-      } else {
-        ((__POINTER *)result__WSGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__USGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__WSGH=next__USGH;
-      };
-    };
-    ((__POINTER *)result__WSGH)[ 0]=((__POINTER ) 3);
-    result__DJDH=(void *)((unsigned long)result__WSGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__ISDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__OZ2 * ((__INTEGER )(sizeof(void *)))));
+  result__HSDH=((__POINTER )(NULL));
+  a__NSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__JSDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ISDH + a__NSDH) & (__UINTEGER_32)(~ a__NSDH));
+  new_size2__KSDH=(__UINTEGER_32)(new_size__JSDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__KSDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__RSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__SSDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KSDH + a__RSDH) & (__UINTEGER_32)(~ a__RSDH));
+    ptr_table__C1GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SSDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__B1GH=((__POINTER )(NULL));
+    result__D1GH=((__POINTER *)ptr_table__C1GH)[ 0];
+    if ((result__D1GH == (void *)NULL)) {
+      result__D1GH=new_lab__MRJ(new_size__SSDH);
+      next__B1GH=(void *)((unsigned long)result__D1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SSDH)));
+      ((__POINTER *)next__B1GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__C1GH)[ 0]=next__B1GH;
+    } else {
+      next__B1GH=((__POINTER *)result__D1GH)[ 0];
+      if ((next__B1GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SSDH <<  1)) <=  4096)) {
+          next__B1GH=(void *)((unsigned long)result__D1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SSDH)));
+        } else {
+          next__B1GH=new_lab__MRJ(new_size__SSDH);
+        };
+        ((__POINTER *)next__B1GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__C1GH)[ 0]=next__B1GH;
+      } else {
+        ((__POINTER *)result__D1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__D1GH=next__B1GH;
+      };
+    };
+    ((__POINTER *)result__D1GH)[ 0]=((__POINTER ) 3);
+    result__HSDH=(void *)((unsigned long)result__D1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__HAJH=first_free__XDVB;
-    while ((((void *)result__HAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__HAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__FJDH))) {
-      result__HAJH=((__MEMORY *)result__HAJH)->map_next_free__JTB;
+    result__4IJH=first_free__XDVB;
+    while ((((void *)result__4IJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__4IJH)->map_size_and_id__ITB &  4294967292LU) < new_size__JSDH))) {
+      result__4IJH=((__MEMORY *)result__4IJH)->map_next_free__JTB;
     };
-    if (((void *)result__HAJH == (void *)NULL)) {
-      result__HAJH=new_page__OA5();
+    if (((void *)result__4IJH == (void *)NULL)) {
+      result__4IJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__HAJH,new_size__FJDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__HAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__DJDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__4IJH,new_size__JSDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__4IJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__HSDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__4IJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__DRDB=((void **)result__DJDH);
+  Result__DRDB=((void **)result__HSDH);
   Self__SUJC=(__INTEGER)(nb_elements__OZ2 -  1);
   while ((Self__SUJC >=  0)) {
     Result__DRDB[Self__SUJC]=NULL;
@@ -8988,57 +9151,57 @@ static void** create__MZ2(__INTEGER nb_elements__OZ2)
 static void** create__MJRB(__INTEGER nb_elements__OJRB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__QJDH,a__VJDH,new_size__RJDH,new_size2__SJDH,a__ZJDH;
-  __UINTEGER_32 new_size__0JDH;
-  __POINTER result__PJDH,ptr_table__0SGH,next__ZSGH,result__1SGH;
-  void *result__KAJH;
+  __UINTEGER_32 sz__USDH,a__ZSDH,new_size__VSDH,new_size2__WSDH,a__3SDH;
+  __UINTEGER_32 new_size__4SDH;
+  __POINTER result__TSDH,ptr_table__H1GH,next__G1GH,result__I1GH;
+  void *result__BJJH;
   __INTEGER Self__SBNC;
   void **Result__WIUB;
-  sz__QJDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__OJRB * ((__INTEGER )(sizeof(void *)))));
-  result__PJDH=((__POINTER )(NULL));
-  a__VJDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__RJDH=(__UINTEGER_32)((__UINTEGER_32)(sz__QJDH + a__VJDH) & (__UINTEGER_32)(~ a__VJDH));
-  new_size2__SJDH=(__UINTEGER_32)(new_size__RJDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__SJDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__ZJDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__0JDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__SJDH + a__ZJDH) & (__UINTEGER_32)(~ a__ZJDH));
-    ptr_table__0SGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0JDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ZSGH=((__POINTER )(NULL));
-    result__1SGH=((__POINTER *)ptr_table__0SGH)[ 0];
-    if ((result__1SGH == (void *)NULL)) {
-      result__1SGH=new_lab__MRJ(new_size__0JDH);
-      next__ZSGH=(void *)((unsigned long)result__1SGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JDH)));
-      ((__POINTER *)next__ZSGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__0SGH)[ 0]=next__ZSGH;
-    } else {
-      next__ZSGH=((__POINTER *)result__1SGH)[ 0];
-      if ((next__ZSGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1SGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0JDH <<  1)) <=  4096)) {
-          next__ZSGH=(void *)((unsigned long)result__1SGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JDH)));
-        } else {
-          next__ZSGH=new_lab__MRJ(new_size__0JDH);
-        };
-        ((__POINTER *)next__ZSGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0SGH)[ 0]=next__ZSGH;
-      } else {
-        ((__POINTER *)result__1SGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZSGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__1SGH=next__ZSGH;
-      };
-    };
-    ((__POINTER *)result__1SGH)[ 0]=((__POINTER ) 3);
-    result__PJDH=(void *)((unsigned long)result__1SGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__USDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__OJRB * ((__INTEGER )(sizeof(void *)))));
+  result__TSDH=((__POINTER )(NULL));
+  a__ZSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__VSDH=(__UINTEGER_32)((__UINTEGER_32)(sz__USDH + a__ZSDH) & (__UINTEGER_32)(~ a__ZSDH));
+  new_size2__WSDH=(__UINTEGER_32)(new_size__VSDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__WSDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__3SDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__4SDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WSDH + a__3SDH) & (__UINTEGER_32)(~ a__3SDH));
+    ptr_table__H1GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4SDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__G1GH=((__POINTER )(NULL));
+    result__I1GH=((__POINTER *)ptr_table__H1GH)[ 0];
+    if ((result__I1GH == (void *)NULL)) {
+      result__I1GH=new_lab__MRJ(new_size__4SDH);
+      next__G1GH=(void *)((unsigned long)result__I1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4SDH)));
+      ((__POINTER *)next__G1GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__H1GH)[ 0]=next__G1GH;
+    } else {
+      next__G1GH=((__POINTER *)result__I1GH)[ 0];
+      if ((next__G1GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4SDH <<  1)) <=  4096)) {
+          next__G1GH=(void *)((unsigned long)result__I1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4SDH)));
+        } else {
+          next__G1GH=new_lab__MRJ(new_size__4SDH);
+        };
+        ((__POINTER *)next__G1GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__H1GH)[ 0]=next__G1GH;
+      } else {
+        ((__POINTER *)result__I1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__I1GH=next__G1GH;
+      };
+    };
+    ((__POINTER *)result__I1GH)[ 0]=((__POINTER ) 3);
+    result__TSDH=(void *)((unsigned long)result__I1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__KAJH=first_free__XDVB;
-    while ((((void *)result__KAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__KAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__RJDH))) {
-      result__KAJH=((__MEMORY *)result__KAJH)->map_next_free__JTB;
+    result__BJJH=first_free__XDVB;
+    while ((((void *)result__BJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__BJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__VSDH))) {
+      result__BJJH=((__MEMORY *)result__BJJH)->map_next_free__JTB;
     };
-    if (((void *)result__KAJH == (void *)NULL)) {
-      result__KAJH=new_page__OA5();
+    if (((void *)result__BJJH == (void *)NULL)) {
+      result__BJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__KAJH,new_size__RJDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__KAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__PJDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__KAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__BJJH,new_size__VSDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__BJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__TSDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__BJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__WIUB=((void **)result__PJDH);
+  Result__WIUB=((void **)result__TSDH);
   Self__SBNC=(__INTEGER)(nb_elements__OJRB -  1);
   while ((Self__SBNC >=  0)) {
     Result__WIUB[Self__SBNC]=NULL;
@@ -9050,11 +9213,11 @@ static void** create__MJRB(__INTEGER nb_elements__OJRB)
 static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__IFR(__INTEGER new_count__KFR)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __POINTER ptr__GLR,ptr_table__5SGH,next__4SGH,result__ATGH;
-  __POINTER ptr_table__ETGH,next__DTGH,result__FTGH;
+  __POINTER ptr__GLR,ptr_table__M1GH,next__L1GH,result__N1GH;
+  __POINTER ptr_table__R1GH,next__Q1GH,result__S1GH;
   __INTEGER typ_id__LLR;
-  __UINTEGER_32 sz__ILR,a__3JDH,new_size__4JDH,t__CKDH,a__BKDH;
-  __UINTEGER_32 new_size__HTGH,lab_type__GTGH;
+  __UINTEGER_32 sz__ILR,a__BTDH,new_size__CTDH,t__GTDH,a__FTDH;
+  __UINTEGER_32 new_size__U1GH,lab_type__T1GH;
   __FAST_ARRAYoITM_TYPE_MONOo *result__FLR,*Self__5JW;
   result__FLR=NULL;
   ptr__GLR=((__POINTER )(NULL));
@@ -9066,61 +9229,61 @@ static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__IFR(__INTEGER new_coun
     typ_id__LLR=__FAST_ARRAYoITM_TYPE_MONOo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ILR);
     if ((typ_id__LLR == (__INTEGER)(-  1))) {
-      a__3JDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__4JDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILR + a__3JDH) & (__UINTEGER_32)(~ a__3JDH));
-      ptr_table__5SGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4JDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__4SGH=((__POINTER )(NULL));
-      result__ATGH=((__POINTER *)ptr_table__5SGH)[ 0];
-      if ((result__ATGH == (void *)NULL)) {
-        result__ATGH=new_lab__MRJ(new_size__4JDH);
-        next__4SGH=(void *)((unsigned long)result__ATGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4JDH)));
-        ((__POINTER *)next__4SGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__5SGH)[ 0]=next__4SGH;
+      a__BTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__CTDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILR + a__BTDH) & (__UINTEGER_32)(~ a__BTDH));
+      ptr_table__M1GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CTDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__L1GH=((__POINTER )(NULL));
+      result__N1GH=((__POINTER *)ptr_table__M1GH)[ 0];
+      if ((result__N1GH == (void *)NULL)) {
+        result__N1GH=new_lab__MRJ(new_size__CTDH);
+        next__L1GH=(void *)((unsigned long)result__N1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CTDH)));
+        ((__POINTER *)next__L1GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__M1GH)[ 0]=next__L1GH;
       } else {
-        next__4SGH=((__POINTER *)result__ATGH)[ 0];
-        if ((next__4SGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ATGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4JDH <<  1)) <=  4096)) {
-            next__4SGH=(void *)((unsigned long)result__ATGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4JDH)));
+        next__L1GH=((__POINTER *)result__N1GH)[ 0];
+        if ((next__L1GH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CTDH <<  1)) <=  4096)) {
+            next__L1GH=(void *)((unsigned long)result__N1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CTDH)));
           } else {
-            next__4SGH=new_lab__MRJ(new_size__4JDH);
+            next__L1GH=new_lab__MRJ(new_size__CTDH);
           };
-          ((__POINTER *)next__4SGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5SGH)[ 0]=next__4SGH;
+          ((__POINTER *)next__L1GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__M1GH)[ 0]=next__L1GH;
         } else {
-          ((__POINTER *)result__ATGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4SGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ATGH=next__4SGH;
+          ((__POINTER *)result__N1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__N1GH=next__L1GH;
         };
       };
-      ptr__GLR=result__ATGH;
+      ptr__GLR=result__N1GH;
     } else {
-      t__CKDH=((__UINTEGER_32 )typ_id__LLR);
-      a__BKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILR + a__BKDH) & (__UINTEGER_32)(~ a__BKDH));
-      ptr_table__ETGH=((__POINTER )(&(table_type[(t__CKDH)])));
-      lab_type__GTGH=(__UINTEGER_32)(t__CKDH |  1);
-      next__DTGH=((__POINTER )(NULL));
-      result__FTGH=((__POINTER *)ptr_table__ETGH)[ 0];
-      if ((result__FTGH == (void *)NULL)) {
-        result__FTGH=new_lab__MRJ(lab_type__GTGH);
-        next__DTGH=(void *)((unsigned long)result__FTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTGH)));
-        ((__POINTER *)next__DTGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ETGH)[ 0]=next__DTGH;
+      t__GTDH=((__UINTEGER_32 )typ_id__LLR);
+      a__FTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__U1GH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILR + a__FTDH) & (__UINTEGER_32)(~ a__FTDH));
+      ptr_table__R1GH=((__POINTER )(&(table_type[(t__GTDH)])));
+      lab_type__T1GH=(__UINTEGER_32)(t__GTDH |  1);
+      next__Q1GH=((__POINTER )(NULL));
+      result__S1GH=((__POINTER *)ptr_table__R1GH)[ 0];
+      if ((result__S1GH == (void *)NULL)) {
+        result__S1GH=new_lab__MRJ(lab_type__T1GH);
+        next__Q1GH=(void *)((unsigned long)result__S1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U1GH)));
+        ((__POINTER *)next__Q1GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__R1GH)[ 0]=next__Q1GH;
       } else {
-        next__DTGH=((__POINTER *)result__FTGH)[ 0];
-        if ((next__DTGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FTGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HTGH <<  1)) <=  4096)) {
-            next__DTGH=(void *)((unsigned long)result__FTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTGH)));
+        next__Q1GH=((__POINTER *)result__S1GH)[ 0];
+        if ((next__Q1GH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__U1GH <<  1)) <=  4096)) {
+            next__Q1GH=(void *)((unsigned long)result__S1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U1GH)));
           } else {
-            next__DTGH=new_lab__MRJ(lab_type__GTGH);
+            next__Q1GH=new_lab__MRJ(lab_type__T1GH);
           };
-          ((__POINTER *)next__DTGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ETGH)[ 0]=next__DTGH;
+          ((__POINTER *)next__Q1GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__R1GH)[ 0]=next__Q1GH;
         } else {
-          ((__POINTER *)result__FTGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DTGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__FTGH=next__DTGH;
+          ((__POINTER *)result__S1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__S1GH=next__Q1GH;
         };
       };
-      ptr__GLR=result__FTGH;
+      ptr__GLR=result__S1GH;
     };
     result__FLR=((__FAST_ARRAYoITM_TYPE_MONOo *)ptr__GLR);
     *(result__FLR) = *(FAST_ARRAYoITM_TYPE_MONOo__);
@@ -9137,57 +9300,57 @@ static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__IFR(__INTEGER new_coun
 static void** create__1ZBB(__INTEGER nb_elements__3ZBB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__EKDH,a__JKDH,new_size__FKDH,new_size2__GKDH,a__NKDH;
-  __UINTEGER_32 new_size__OKDH;
-  __POINTER result__DKDH,ptr_table__JTGH,next__ITGH,result__KTGH;
-  void *result__NAJH;
+  __UINTEGER_32 sz__ITDH,a__NTDH,new_size__JTDH,new_size2__KTDH,a__RTDH;
+  __UINTEGER_32 new_size__STDH;
+  __POINTER result__HTDH,ptr_table__W1GH,next__V1GH,result__X1GH;
+  void *result__EJJH;
   __INTEGER Self__EMKC;
   void **Result__HYIB;
-  sz__EKDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__3ZBB * ((__INTEGER )(sizeof(void *)))));
-  result__DKDH=((__POINTER )(NULL));
-  a__JKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__FKDH=(__UINTEGER_32)((__UINTEGER_32)(sz__EKDH + a__JKDH) & (__UINTEGER_32)(~ a__JKDH));
-  new_size2__GKDH=(__UINTEGER_32)(new_size__FKDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__GKDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__NKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__OKDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GKDH + a__NKDH) & (__UINTEGER_32)(~ a__NKDH));
-    ptr_table__JTGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OKDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ITGH=((__POINTER )(NULL));
-    result__KTGH=((__POINTER *)ptr_table__JTGH)[ 0];
-    if ((result__KTGH == (void *)NULL)) {
-      result__KTGH=new_lab__MRJ(new_size__OKDH);
-      next__ITGH=(void *)((unsigned long)result__KTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OKDH)));
-      ((__POINTER *)next__ITGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__JTGH)[ 0]=next__ITGH;
-    } else {
-      next__ITGH=((__POINTER *)result__KTGH)[ 0];
-      if ((next__ITGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KTGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OKDH <<  1)) <=  4096)) {
-          next__ITGH=(void *)((unsigned long)result__KTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OKDH)));
-        } else {
-          next__ITGH=new_lab__MRJ(new_size__OKDH);
-        };
-        ((__POINTER *)next__ITGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__JTGH)[ 0]=next__ITGH;
-      } else {
-        ((__POINTER *)result__KTGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ITGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__KTGH=next__ITGH;
-      };
-    };
-    ((__POINTER *)result__KTGH)[ 0]=((__POINTER ) 3);
-    result__DKDH=(void *)((unsigned long)result__KTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__ITDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__3ZBB * ((__INTEGER )(sizeof(void *)))));
+  result__HTDH=((__POINTER )(NULL));
+  a__NTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__JTDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ITDH + a__NTDH) & (__UINTEGER_32)(~ a__NTDH));
+  new_size2__KTDH=(__UINTEGER_32)(new_size__JTDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__KTDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__RTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__STDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KTDH + a__RTDH) & (__UINTEGER_32)(~ a__RTDH));
+    ptr_table__W1GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__STDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__V1GH=((__POINTER )(NULL));
+    result__X1GH=((__POINTER *)ptr_table__W1GH)[ 0];
+    if ((result__X1GH == (void *)NULL)) {
+      result__X1GH=new_lab__MRJ(new_size__STDH);
+      next__V1GH=(void *)((unsigned long)result__X1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__STDH)));
+      ((__POINTER *)next__V1GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__W1GH)[ 0]=next__V1GH;
+    } else {
+      next__V1GH=((__POINTER *)result__X1GH)[ 0];
+      if ((next__V1GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__STDH <<  1)) <=  4096)) {
+          next__V1GH=(void *)((unsigned long)result__X1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__STDH)));
+        } else {
+          next__V1GH=new_lab__MRJ(new_size__STDH);
+        };
+        ((__POINTER *)next__V1GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__W1GH)[ 0]=next__V1GH;
+      } else {
+        ((__POINTER *)result__X1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__X1GH=next__V1GH;
+      };
+    };
+    ((__POINTER *)result__X1GH)[ 0]=((__POINTER ) 3);
+    result__HTDH=(void *)((unsigned long)result__X1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__NAJH=first_free__XDVB;
-    while ((((void *)result__NAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__NAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__FKDH))) {
-      result__NAJH=((__MEMORY *)result__NAJH)->map_next_free__JTB;
+    result__EJJH=first_free__XDVB;
+    while ((((void *)result__EJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__EJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__JTDH))) {
+      result__EJJH=((__MEMORY *)result__EJJH)->map_next_free__JTB;
     };
-    if (((void *)result__NAJH == (void *)NULL)) {
-      result__NAJH=new_page__OA5();
+    if (((void *)result__EJJH == (void *)NULL)) {
+      result__EJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__NAJH,new_size__FKDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__NAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__DKDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__NAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__EJJH,new_size__JTDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__EJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__HTDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__HYIB=((void **)result__DKDH);
+  Result__HYIB=((void **)result__HTDH);
   Self__EMKC=(__INTEGER)(nb_elements__3ZBB -  1);
   while ((Self__EMKC >=  0)) {
     Result__HYIB[Self__EMKC]=NULL;
@@ -9199,57 +9362,57 @@ static void** create__1ZBB(__INTEGER nb_elements__3ZBB)
 static void** create__VLXB(__INTEGER nb_elements__XLXB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__QKDH,a__VKDH,new_size__RKDH,new_size2__SKDH,a__ZKDH;
-  __UINTEGER_32 new_size__0KDH;
-  __POINTER result__PKDH,ptr_table__OTGH,next__NTGH,result__PTGH;
-  void *result__QAJH;
+  __UINTEGER_32 sz__UTDH,a__ZTDH,new_size__VTDH,new_size2__WTDH,a__3TDH;
+  __UINTEGER_32 new_size__4TDH;
+  __POINTER result__TTDH,ptr_table__11GH,next__01GH,result__21GH;
+  void *result__HJJH;
   __INTEGER Self__RZOC;
   void **Result__IX0B;
-  sz__QKDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XLXB * ((__INTEGER )(sizeof(void *)))));
-  result__PKDH=((__POINTER )(NULL));
-  a__VKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__RKDH=(__UINTEGER_32)((__UINTEGER_32)(sz__QKDH + a__VKDH) & (__UINTEGER_32)(~ a__VKDH));
-  new_size2__SKDH=(__UINTEGER_32)(new_size__RKDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__SKDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__ZKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__0KDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__SKDH + a__ZKDH) & (__UINTEGER_32)(~ a__ZKDH));
-    ptr_table__OTGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0KDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__NTGH=((__POINTER )(NULL));
-    result__PTGH=((__POINTER *)ptr_table__OTGH)[ 0];
-    if ((result__PTGH == (void *)NULL)) {
-      result__PTGH=new_lab__MRJ(new_size__0KDH);
-      next__NTGH=(void *)((unsigned long)result__PTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0KDH)));
-      ((__POINTER *)next__NTGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__OTGH)[ 0]=next__NTGH;
-    } else {
-      next__NTGH=((__POINTER *)result__PTGH)[ 0];
-      if ((next__NTGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PTGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0KDH <<  1)) <=  4096)) {
-          next__NTGH=(void *)((unsigned long)result__PTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0KDH)));
-        } else {
-          next__NTGH=new_lab__MRJ(new_size__0KDH);
-        };
-        ((__POINTER *)next__NTGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__OTGH)[ 0]=next__NTGH;
-      } else {
-        ((__POINTER *)result__PTGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__PTGH=next__NTGH;
-      };
-    };
-    ((__POINTER *)result__PTGH)[ 0]=((__POINTER ) 3);
-    result__PKDH=(void *)((unsigned long)result__PTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__UTDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XLXB * ((__INTEGER )(sizeof(void *)))));
+  result__TTDH=((__POINTER )(NULL));
+  a__ZTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__VTDH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTDH + a__ZTDH) & (__UINTEGER_32)(~ a__ZTDH));
+  new_size2__WTDH=(__UINTEGER_32)(new_size__VTDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__WTDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__3TDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__4TDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WTDH + a__3TDH) & (__UINTEGER_32)(~ a__3TDH));
+    ptr_table__11GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4TDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__01GH=((__POINTER )(NULL));
+    result__21GH=((__POINTER *)ptr_table__11GH)[ 0];
+    if ((result__21GH == (void *)NULL)) {
+      result__21GH=new_lab__MRJ(new_size__4TDH);
+      next__01GH=(void *)((unsigned long)result__21GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TDH)));
+      ((__POINTER *)next__01GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__11GH)[ 0]=next__01GH;
+    } else {
+      next__01GH=((__POINTER *)result__21GH)[ 0];
+      if ((next__01GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__21GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4TDH <<  1)) <=  4096)) {
+          next__01GH=(void *)((unsigned long)result__21GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TDH)));
+        } else {
+          next__01GH=new_lab__MRJ(new_size__4TDH);
+        };
+        ((__POINTER *)next__01GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__11GH)[ 0]=next__01GH;
+      } else {
+        ((__POINTER *)result__21GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__01GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__21GH=next__01GH;
+      };
+    };
+    ((__POINTER *)result__21GH)[ 0]=((__POINTER ) 3);
+    result__TTDH=(void *)((unsigned long)result__21GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__QAJH=first_free__XDVB;
-    while ((((void *)result__QAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__QAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__RKDH))) {
-      result__QAJH=((__MEMORY *)result__QAJH)->map_next_free__JTB;
+    result__HJJH=first_free__XDVB;
+    while ((((void *)result__HJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__HJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__VTDH))) {
+      result__HJJH=((__MEMORY *)result__HJJH)->map_next_free__JTB;
     };
-    if (((void *)result__QAJH == (void *)NULL)) {
-      result__QAJH=new_page__OA5();
+    if (((void *)result__HJJH == (void *)NULL)) {
+      result__HJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__QAJH,new_size__RKDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__QAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__PKDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__QAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__HJJH,new_size__VTDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__HJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__TTDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__IX0B=((void **)result__PKDH);
+  Result__IX0B=((void **)result__TTDH);
   Self__RZOC=(__INTEGER)(nb_elements__XLXB -  1);
   while ((Self__RZOC >=  0)) {
     Result__IX0B[Self__RZOC]=NULL;
@@ -9261,57 +9424,57 @@ static void** create__VLXB(__INTEGER nb_elements__XLXB)
 static void** create__QUWB(__INTEGER nb_elements__SUWB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__2KDH,a__BLDH,new_size__3KDH,new_size2__4KDH,a__FLDH;
-  __UINTEGER_32 new_size__GLDH;
-  __POINTER result__1KDH,ptr_table__TTGH,next__STGH,result__UTGH;
-  void *result__TAJH;
+  __UINTEGER_32 sz__AUDH,a__FUDH,new_size__BUDH,new_size2__CUDH,a__JUDH;
+  __UINTEGER_32 new_size__KUDH;
+  __POINTER result__5TDH,ptr_table__A2GH,next__51GH,result__B2GH;
+  void *result__KJJH;
   __INTEGER Self__KYOC;
   void **Result__RJ0B;
-  sz__2KDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__SUWB * ((__INTEGER )(sizeof(void *)))));
-  result__1KDH=((__POINTER )(NULL));
-  a__BLDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__3KDH=(__UINTEGER_32)((__UINTEGER_32)(sz__2KDH + a__BLDH) & (__UINTEGER_32)(~ a__BLDH));
-  new_size2__4KDH=(__UINTEGER_32)(new_size__3KDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__4KDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__FLDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__GLDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4KDH + a__FLDH) & (__UINTEGER_32)(~ a__FLDH));
-    ptr_table__TTGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GLDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__STGH=((__POINTER )(NULL));
-    result__UTGH=((__POINTER *)ptr_table__TTGH)[ 0];
-    if ((result__UTGH == (void *)NULL)) {
-      result__UTGH=new_lab__MRJ(new_size__GLDH);
-      next__STGH=(void *)((unsigned long)result__UTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GLDH)));
-      ((__POINTER *)next__STGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__TTGH)[ 0]=next__STGH;
-    } else {
-      next__STGH=((__POINTER *)result__UTGH)[ 0];
-      if ((next__STGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UTGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GLDH <<  1)) <=  4096)) {
-          next__STGH=(void *)((unsigned long)result__UTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GLDH)));
-        } else {
-          next__STGH=new_lab__MRJ(new_size__GLDH);
-        };
-        ((__POINTER *)next__STGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__TTGH)[ 0]=next__STGH;
-      } else {
-        ((__POINTER *)result__UTGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__STGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__UTGH=next__STGH;
-      };
-    };
-    ((__POINTER *)result__UTGH)[ 0]=((__POINTER ) 3);
-    result__1KDH=(void *)((unsigned long)result__UTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__AUDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__SUWB * ((__INTEGER )(sizeof(void *)))));
+  result__5TDH=((__POINTER )(NULL));
+  a__FUDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__BUDH=(__UINTEGER_32)((__UINTEGER_32)(sz__AUDH + a__FUDH) & (__UINTEGER_32)(~ a__FUDH));
+  new_size2__CUDH=(__UINTEGER_32)(new_size__BUDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__CUDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__JUDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__KUDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__CUDH + a__JUDH) & (__UINTEGER_32)(~ a__JUDH));
+    ptr_table__A2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KUDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__51GH=((__POINTER )(NULL));
+    result__B2GH=((__POINTER *)ptr_table__A2GH)[ 0];
+    if ((result__B2GH == (void *)NULL)) {
+      result__B2GH=new_lab__MRJ(new_size__KUDH);
+      next__51GH=(void *)((unsigned long)result__B2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KUDH)));
+      ((__POINTER *)next__51GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__A2GH)[ 0]=next__51GH;
+    } else {
+      next__51GH=((__POINTER *)result__B2GH)[ 0];
+      if ((next__51GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KUDH <<  1)) <=  4096)) {
+          next__51GH=(void *)((unsigned long)result__B2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KUDH)));
+        } else {
+          next__51GH=new_lab__MRJ(new_size__KUDH);
+        };
+        ((__POINTER *)next__51GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__A2GH)[ 0]=next__51GH;
+      } else {
+        ((__POINTER *)result__B2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__51GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__B2GH=next__51GH;
+      };
+    };
+    ((__POINTER *)result__B2GH)[ 0]=((__POINTER ) 3);
+    result__5TDH=(void *)((unsigned long)result__B2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__TAJH=first_free__XDVB;
-    while ((((void *)result__TAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__TAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__3KDH))) {
-      result__TAJH=((__MEMORY *)result__TAJH)->map_next_free__JTB;
+    result__KJJH=first_free__XDVB;
+    while ((((void *)result__KJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__KJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__BUDH))) {
+      result__KJJH=((__MEMORY *)result__KJJH)->map_next_free__JTB;
     };
-    if (((void *)result__TAJH == (void *)NULL)) {
-      result__TAJH=new_page__OA5();
+    if (((void *)result__KJJH == (void *)NULL)) {
+      result__KJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__TAJH,new_size__3KDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__TAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__1KDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__KJJH,new_size__BUDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__KJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__5TDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__KJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__RJ0B=((void **)result__1KDH);
+  Result__RJ0B=((void **)result__5TDH);
   Self__KYOC=(__INTEGER)(nb_elements__SUWB -  1);
   while ((Self__KYOC >=  0)) {
     Result__RJ0B[Self__KYOC]=NULL;
@@ -9323,57 +9486,57 @@ static void** create__QUWB(__INTEGER nb_elements__SUWB)
 static void** create__PSXB(__INTEGER nb_elements__RSXB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__ILDH,a__NLDH,new_size__JLDH,new_size2__KLDH,a__RLDH;
-  __UINTEGER_32 new_size__SLDH;
-  __POINTER result__HLDH,ptr_table__YTGH,next__XTGH,result__ZTGH;
-  void *result__WAJH;
+  __UINTEGER_32 sz__MUDH,a__RUDH,new_size__NUDH,new_size2__OUDH,a__VUDH;
+  __UINTEGER_32 new_size__WUDH;
+  __POINTER result__LUDH,ptr_table__F2GH,next__E2GH,result__G2GH;
+  void *result__NJJH;
   __INTEGER Self__Y0OC;
   void **Result__440B;
-  sz__ILDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RSXB * ((__INTEGER )(sizeof(void *)))));
-  result__HLDH=((__POINTER )(NULL));
-  a__NLDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__JLDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILDH + a__NLDH) & (__UINTEGER_32)(~ a__NLDH));
-  new_size2__KLDH=(__UINTEGER_32)(new_size__JLDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__KLDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__RLDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__SLDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KLDH + a__RLDH) & (__UINTEGER_32)(~ a__RLDH));
-    ptr_table__YTGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SLDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__XTGH=((__POINTER )(NULL));
-    result__ZTGH=((__POINTER *)ptr_table__YTGH)[ 0];
-    if ((result__ZTGH == (void *)NULL)) {
-      result__ZTGH=new_lab__MRJ(new_size__SLDH);
-      next__XTGH=(void *)((unsigned long)result__ZTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SLDH)));
-      ((__POINTER *)next__XTGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__YTGH)[ 0]=next__XTGH;
-    } else {
-      next__XTGH=((__POINTER *)result__ZTGH)[ 0];
-      if ((next__XTGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZTGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SLDH <<  1)) <=  4096)) {
-          next__XTGH=(void *)((unsigned long)result__ZTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SLDH)));
-        } else {
-          next__XTGH=new_lab__MRJ(new_size__SLDH);
-        };
-        ((__POINTER *)next__XTGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__YTGH)[ 0]=next__XTGH;
-      } else {
-        ((__POINTER *)result__ZTGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XTGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__ZTGH=next__XTGH;
-      };
-    };
-    ((__POINTER *)result__ZTGH)[ 0]=((__POINTER ) 3);
-    result__HLDH=(void *)((unsigned long)result__ZTGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__MUDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RSXB * ((__INTEGER )(sizeof(void *)))));
+  result__LUDH=((__POINTER )(NULL));
+  a__RUDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__NUDH=(__UINTEGER_32)((__UINTEGER_32)(sz__MUDH + a__RUDH) & (__UINTEGER_32)(~ a__RUDH));
+  new_size2__OUDH=(__UINTEGER_32)(new_size__NUDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__OUDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__VUDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__WUDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OUDH + a__VUDH) & (__UINTEGER_32)(~ a__VUDH));
+    ptr_table__F2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WUDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__E2GH=((__POINTER )(NULL));
+    result__G2GH=((__POINTER *)ptr_table__F2GH)[ 0];
+    if ((result__G2GH == (void *)NULL)) {
+      result__G2GH=new_lab__MRJ(new_size__WUDH);
+      next__E2GH=(void *)((unsigned long)result__G2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WUDH)));
+      ((__POINTER *)next__E2GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__F2GH)[ 0]=next__E2GH;
+    } else {
+      next__E2GH=((__POINTER *)result__G2GH)[ 0];
+      if ((next__E2GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WUDH <<  1)) <=  4096)) {
+          next__E2GH=(void *)((unsigned long)result__G2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WUDH)));
+        } else {
+          next__E2GH=new_lab__MRJ(new_size__WUDH);
+        };
+        ((__POINTER *)next__E2GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__F2GH)[ 0]=next__E2GH;
+      } else {
+        ((__POINTER *)result__G2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__G2GH=next__E2GH;
+      };
+    };
+    ((__POINTER *)result__G2GH)[ 0]=((__POINTER ) 3);
+    result__LUDH=(void *)((unsigned long)result__G2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__WAJH=first_free__XDVB;
-    while ((((void *)result__WAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__WAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__JLDH))) {
-      result__WAJH=((__MEMORY *)result__WAJH)->map_next_free__JTB;
+    result__NJJH=first_free__XDVB;
+    while ((((void *)result__NJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__NJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__NUDH))) {
+      result__NJJH=((__MEMORY *)result__NJJH)->map_next_free__JTB;
     };
-    if (((void *)result__WAJH == (void *)NULL)) {
-      result__WAJH=new_page__OA5();
+    if (((void *)result__NJJH == (void *)NULL)) {
+      result__NJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__WAJH,new_size__JLDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__WAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__HLDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__WAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__NJJH,new_size__NUDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__NJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__LUDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__NJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__440B=((void **)result__HLDH);
+  Result__440B=((void **)result__LUDH);
   Self__Y0OC=(__INTEGER)(nb_elements__RSXB -  1);
   while ((Self__Y0OC >=  0)) {
     Result__440B[Self__Y0OC]=NULL;
@@ -9385,57 +9548,57 @@ static void** create__PSXB(__INTEGER nb_elements__RSXB)
 static void** create__VH5(__INTEGER nb_elements__XH5)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__ULDH,a__ZLDH,new_size__VLDH,new_size2__WLDH,a__3LDH;
-  __UINTEGER_32 new_size__4LDH;
-  __POINTER result__TLDH,ptr_table__3TGH,next__2TGH,result__4TGH;
-  void *result__ZAJH;
+  __UINTEGER_32 sz__YUDH,a__3UDH,new_size__ZUDH,new_size2__0UDH,a__BVDH;
+  __UINTEGER_32 new_size__CVDH;
+  __POINTER result__XUDH,ptr_table__K2GH,next__J2GH,result__L2GH;
+  void *result__QJJH;
   __INTEGER Self__NAKC;
   void **Result__OBGB;
-  sz__ULDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XH5 * ((__INTEGER )(sizeof(void *)))));
-  result__TLDH=((__POINTER )(NULL));
-  a__ZLDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__VLDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ULDH + a__ZLDH) & (__UINTEGER_32)(~ a__ZLDH));
-  new_size2__WLDH=(__UINTEGER_32)(new_size__VLDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__WLDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__3LDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__4LDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WLDH + a__3LDH) & (__UINTEGER_32)(~ a__3LDH));
-    ptr_table__3TGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4LDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__2TGH=((__POINTER )(NULL));
-    result__4TGH=((__POINTER *)ptr_table__3TGH)[ 0];
-    if ((result__4TGH == (void *)NULL)) {
-      result__4TGH=new_lab__MRJ(new_size__4LDH);
-      next__2TGH=(void *)((unsigned long)result__4TGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4LDH)));
-      ((__POINTER *)next__2TGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__3TGH)[ 0]=next__2TGH;
-    } else {
-      next__2TGH=((__POINTER *)result__4TGH)[ 0];
-      if ((next__2TGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4TGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4LDH <<  1)) <=  4096)) {
-          next__2TGH=(void *)((unsigned long)result__4TGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4LDH)));
-        } else {
-          next__2TGH=new_lab__MRJ(new_size__4LDH);
-        };
-        ((__POINTER *)next__2TGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__3TGH)[ 0]=next__2TGH;
-      } else {
-        ((__POINTER *)result__4TGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2TGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__4TGH=next__2TGH;
-      };
-    };
-    ((__POINTER *)result__4TGH)[ 0]=((__POINTER ) 3);
-    result__TLDH=(void *)((unsigned long)result__4TGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__YUDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XH5 * ((__INTEGER )(sizeof(void *)))));
+  result__XUDH=((__POINTER )(NULL));
+  a__3UDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__ZUDH=(__UINTEGER_32)((__UINTEGER_32)(sz__YUDH + a__3UDH) & (__UINTEGER_32)(~ a__3UDH));
+  new_size2__0UDH=(__UINTEGER_32)(new_size__ZUDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__0UDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__BVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__CVDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0UDH + a__BVDH) & (__UINTEGER_32)(~ a__BVDH));
+    ptr_table__K2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CVDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__J2GH=((__POINTER )(NULL));
+    result__L2GH=((__POINTER *)ptr_table__K2GH)[ 0];
+    if ((result__L2GH == (void *)NULL)) {
+      result__L2GH=new_lab__MRJ(new_size__CVDH);
+      next__J2GH=(void *)((unsigned long)result__L2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVDH)));
+      ((__POINTER *)next__J2GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__K2GH)[ 0]=next__J2GH;
+    } else {
+      next__J2GH=((__POINTER *)result__L2GH)[ 0];
+      if ((next__J2GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CVDH <<  1)) <=  4096)) {
+          next__J2GH=(void *)((unsigned long)result__L2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVDH)));
+        } else {
+          next__J2GH=new_lab__MRJ(new_size__CVDH);
+        };
+        ((__POINTER *)next__J2GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__K2GH)[ 0]=next__J2GH;
+      } else {
+        ((__POINTER *)result__L2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__L2GH=next__J2GH;
+      };
+    };
+    ((__POINTER *)result__L2GH)[ 0]=((__POINTER ) 3);
+    result__XUDH=(void *)((unsigned long)result__L2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__ZAJH=first_free__XDVB;
-    while ((((void *)result__ZAJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__ZAJH)->map_size_and_id__ITB &  4294967292LU) < new_size__VLDH))) {
-      result__ZAJH=((__MEMORY *)result__ZAJH)->map_next_free__JTB;
+    result__QJJH=first_free__XDVB;
+    while ((((void *)result__QJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__QJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZUDH))) {
+      result__QJJH=((__MEMORY *)result__QJJH)->map_next_free__JTB;
     };
-    if (((void *)result__ZAJH == (void *)NULL)) {
-      result__ZAJH=new_page__OA5();
+    if (((void *)result__QJJH == (void *)NULL)) {
+      result__QJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__ZAJH,new_size__VLDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__ZAJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__TLDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ZAJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__QJJH,new_size__ZUDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__QJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__XUDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__QJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__OBGB=((void **)result__TLDH);
+  Result__OBGB=((void **)result__XUDH);
   Self__NAKC=(__INTEGER)(nb_elements__XH5 -  1);
   while ((Self__NAKC >=  0)) {
     Result__OBGB[Self__NAKC]=NULL;
@@ -9447,30 +9610,30 @@ static void** create__VH5(__INTEGER nb_elements__XH5)
 static void fast_put__to__TOZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__UOZ,void *v__VOZ,void *k__WOZ)
 // ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{ITM_TYPE_PARAMETERxITM_TYPE_SIMPLE},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__X3FH,*Self__23FH;
-  __INTEGER result__W3FH,__tmp__Y3FH,Self__Z3FH,idx__4OZ,idx__RCTB;
-  __INTEGER new_capacity__SCTB,i__TCTB,result__13FH,__tmp__33FH;
-  __INTEGER Self__43FH,typ_id__AFTB;
-  __POINTER ptr__1ETB,ptr_table__CUGH,next__BUGH,result__DUGH;
-  __POINTER ptr_table__HUGH,next__GUGH,result__IUGH;
-  __UINTEGER_32 sz__3ETB,a__K5DH,new_size__L5DH,t__P5DH,a__O5DH;
-  __UINTEGER_32 new_size__KUGH,lab_type__JUGH;
+  __STRING_CONSTANT *Self__EGGH,*Self__JGGH;
+  __INTEGER result__DGGH,__tmp__FGGH,Self__GGGH,idx__4OZ,idx__RCTB;
+  __INTEGER new_capacity__SCTB,i__TCTB,result__IGGH,__tmp__KGGH;
+  __INTEGER Self__LGGH,typ_id__AFTB;
+  __POINTER ptr__1ETB,ptr_table__P2GH,next__O2GH,result__Q2GH;
+  __POINTER ptr_table__U2GH,next__T2GH,result__V2GH;
+  __UINTEGER_32 sz__3ETB,a__ZIEH,new_size__0IEH,t__4IEH,a__3IEH;
+  __UINTEGER_32 new_size__X2GH,lab_type__W2GH;
   void *node__5OZ,*node1__VCTB,*node2__WCTB,*__tmp__MQZ;
   void **old_buckets__UCTB;
   __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__0ETB;
   __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__MXEC;
-  Self__X3FH=((__STRING_CONSTANT *)k__WOZ);
-  result__W3FH= 0;
-  __tmp__Y3FH=Self__X3FH->count__DD;
-  Self__Z3FH= 1;
-  while ((Self__Z3FH <= __tmp__Y3FH)) {
-    result__W3FH=(__INTEGER)((__INTEGER)( 5 * result__W3FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__X3FH->storage__VQO)[(__INTEGER)(Self__Z3FH -  1)])));
-    Self__Z3FH=(__INTEGER)(Self__Z3FH +  1);
-  };
-  if ((result__W3FH <  0)) {
-    result__W3FH=(__INTEGER)(~ result__W3FH);
-  };
-  idx__4OZ=(__INTEGER)(result__W3FH % Self__UOZ->capacity__H2T);
+  Self__EGGH=((__STRING_CONSTANT *)k__WOZ);
+  result__DGGH= 0;
+  __tmp__FGGH=Self__EGGH->count__DD;
+  Self__GGGH= 1;
+  while ((Self__GGGH <= __tmp__FGGH)) {
+    result__DGGH=(__INTEGER)((__INTEGER)( 5 * result__DGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__EGGH->storage__VQO)[(__INTEGER)(Self__GGGH -  1)])));
+    Self__GGGH=(__INTEGER)(Self__GGGH +  1);
+  };
+  if ((result__DGGH <  0)) {
+    result__DGGH=(__INTEGER)(~ result__DGGH);
+  };
+  idx__4OZ=(__INTEGER)(result__DGGH % Self__UOZ->capacity__H2T);
   node__5OZ=((void **)Self__UOZ->buckets__M2T)[idx__4OZ];
   while ((! (((void *)node__5OZ == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__5OZ)->key__Y2T == (void *)k__WOZ)))) {
     node__5OZ=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__5OZ)->next__D3T;
@@ -9489,25 +9652,25 @@ static void fast_put__to__TOZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTAN
         node1__VCTB=((void **)old_buckets__UCTB)[i__TCTB];
         while (((void *)node1__VCTB != (void *)NULL)) {
           node2__WCTB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__VCTB)->next__D3T;
-          Self__23FH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__VCTB)->key__Y2T);
-          result__13FH= 0;
-          __tmp__33FH=Self__23FH->count__DD;
-          Self__43FH= 1;
-          while ((Self__43FH <= __tmp__33FH)) {
-            result__13FH=(__INTEGER)((__INTEGER)( 5 * result__13FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__23FH->storage__VQO)[(__INTEGER)(Self__43FH -  1)])));
-            Self__43FH=(__INTEGER)(Self__43FH +  1);
-          };
-          if ((result__13FH <  0)) {
-            result__13FH=(__INTEGER)(~ result__13FH);
-          };
-          idx__RCTB=(__INTEGER)(result__13FH % Self__UOZ->capacity__H2T);
+          Self__JGGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__VCTB)->key__Y2T);
+          result__IGGH= 0;
+          __tmp__KGGH=Self__JGGH->count__DD;
+          Self__LGGH= 1;
+          while ((Self__LGGH <= __tmp__KGGH)) {
+            result__IGGH=(__INTEGER)((__INTEGER)( 5 * result__IGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__JGGH->storage__VQO)[(__INTEGER)(Self__LGGH -  1)])));
+            Self__LGGH=(__INTEGER)(Self__LGGH +  1);
+          };
+          if ((result__IGGH <  0)) {
+            result__IGGH=(__INTEGER)(~ result__IGGH);
+          };
+          idx__RCTB=(__INTEGER)(result__IGGH % Self__UOZ->capacity__H2T);
           ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__VCTB)->next__D3T=((void **)Self__UOZ->buckets__M2T)[idx__RCTB];
           ((void **)Self__UOZ->buckets__M2T)[idx__RCTB]=node1__VCTB;
           node1__VCTB=node2__WCTB;
         };
         i__TCTB=(__INTEGER)(i__TCTB -  1);
       };
-      idx__4OZ=(__INTEGER)(result__W3FH % new_capacity__SCTB);
+      idx__4OZ=(__INTEGER)(result__DGGH % new_capacity__SCTB);
     };
     __tmp__MQZ=((void **)Self__UOZ->buckets__M2T)[idx__4OZ];
     result__0ETB=NULL;
@@ -9520,61 +9683,61 @@ static void fast_put__to__TOZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTAN
       typ_id__AFTB=__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__3ETB);
       if ((typ_id__AFTB == (__INTEGER)(-  1))) {
-        a__K5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__L5DH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ETB + a__K5DH) & (__UINTEGER_32)(~ a__K5DH));
-        ptr_table__CUGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L5DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__BUGH=((__POINTER )(NULL));
-        result__DUGH=((__POINTER *)ptr_table__CUGH)[ 0];
-        if ((result__DUGH == (void *)NULL)) {
-          result__DUGH=new_lab__MRJ(new_size__L5DH);
-          next__BUGH=(void *)((unsigned long)result__DUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L5DH)));
-          ((__POINTER *)next__BUGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CUGH)[ 0]=next__BUGH;
-        } else {
-          next__BUGH=((__POINTER *)result__DUGH)[ 0];
-          if ((next__BUGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DUGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__L5DH <<  1)) <=  4096)) {
-              next__BUGH=(void *)((unsigned long)result__DUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L5DH)));
+        a__ZIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__0IEH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ETB + a__ZIEH) & (__UINTEGER_32)(~ a__ZIEH));
+        ptr_table__P2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0IEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__O2GH=((__POINTER )(NULL));
+        result__Q2GH=((__POINTER *)ptr_table__P2GH)[ 0];
+        if ((result__Q2GH == (void *)NULL)) {
+          result__Q2GH=new_lab__MRJ(new_size__0IEH);
+          next__O2GH=(void *)((unsigned long)result__Q2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0IEH)));
+          ((__POINTER *)next__O2GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__P2GH)[ 0]=next__O2GH;
+        } else {
+          next__O2GH=((__POINTER *)result__Q2GH)[ 0];
+          if ((next__O2GH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0IEH <<  1)) <=  4096)) {
+              next__O2GH=(void *)((unsigned long)result__Q2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0IEH)));
             } else {
-              next__BUGH=new_lab__MRJ(new_size__L5DH);
-            };
-            ((__POINTER *)next__BUGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CUGH)[ 0]=next__BUGH;
-          } else {
-            ((__POINTER *)result__DUGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BUGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__DUGH=next__BUGH;
-          };
-        };
-        ptr__1ETB=result__DUGH;
-      } else {
-        t__P5DH=((__UINTEGER_32 )typ_id__AFTB);
-        a__O5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__KUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ETB + a__O5DH) & (__UINTEGER_32)(~ a__O5DH));
-        ptr_table__HUGH=((__POINTER )(&(table_type[(t__P5DH)])));
-        lab_type__JUGH=(__UINTEGER_32)(t__P5DH |  1);
-        next__GUGH=((__POINTER )(NULL));
-        result__IUGH=((__POINTER *)ptr_table__HUGH)[ 0];
-        if ((result__IUGH == (void *)NULL)) {
-          result__IUGH=new_lab__MRJ(lab_type__JUGH);
-          next__GUGH=(void *)((unsigned long)result__IUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KUGH)));
-          ((__POINTER *)next__GUGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HUGH)[ 0]=next__GUGH;
-        } else {
-          next__GUGH=((__POINTER *)result__IUGH)[ 0];
-          if ((next__GUGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IUGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KUGH <<  1)) <=  4096)) {
-              next__GUGH=(void *)((unsigned long)result__IUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KUGH)));
+              next__O2GH=new_lab__MRJ(new_size__0IEH);
+            };
+            ((__POINTER *)next__O2GH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__P2GH)[ 0]=next__O2GH;
+          } else {
+            ((__POINTER *)result__Q2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__Q2GH=next__O2GH;
+          };
+        };
+        ptr__1ETB=result__Q2GH;
+      } else {
+        t__4IEH=((__UINTEGER_32 )typ_id__AFTB);
+        a__3IEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__X2GH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ETB + a__3IEH) & (__UINTEGER_32)(~ a__3IEH));
+        ptr_table__U2GH=((__POINTER )(&(table_type[(t__4IEH)])));
+        lab_type__W2GH=(__UINTEGER_32)(t__4IEH |  1);
+        next__T2GH=((__POINTER )(NULL));
+        result__V2GH=((__POINTER *)ptr_table__U2GH)[ 0];
+        if ((result__V2GH == (void *)NULL)) {
+          result__V2GH=new_lab__MRJ(lab_type__W2GH);
+          next__T2GH=(void *)((unsigned long)result__V2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X2GH)));
+          ((__POINTER *)next__T2GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__U2GH)[ 0]=next__T2GH;
+        } else {
+          next__T2GH=((__POINTER *)result__V2GH)[ 0];
+          if ((next__T2GH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__X2GH <<  1)) <=  4096)) {
+              next__T2GH=(void *)((unsigned long)result__V2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X2GH)));
             } else {
-              next__GUGH=new_lab__MRJ(lab_type__JUGH);
+              next__T2GH=new_lab__MRJ(lab_type__W2GH);
             };
-            ((__POINTER *)next__GUGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__HUGH)[ 0]=next__GUGH;
+            ((__POINTER *)next__T2GH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__U2GH)[ 0]=next__T2GH;
           } else {
-            ((__POINTER *)result__IUGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GUGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__IUGH=next__GUGH;
+            ((__POINTER *)result__V2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__V2GH=next__T2GH;
           };
         };
-        ptr__1ETB=result__IUGH;
+        ptr__1ETB=result__V2GH;
       };
       result__0ETB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__1ETB);
       *(result__0ETB) = *(HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
@@ -9594,57 +9757,57 @@ static void fast_put__to__TOZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTAN
 static void** create__1HYB(__INTEGER nb_elements__3HYB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__IMDH,a__NMDH,new_size__JMDH,new_size2__KMDH,a__RMDH;
-  __UINTEGER_32 new_size__SMDH;
-  __POINTER result__HMDH,ptr_table__MUGH,next__LUGH,result__NUGH;
-  void *result__2AJH;
+  __UINTEGER_32 sz__MVDH,a__RVDH,new_size__NVDH,new_size2__OVDH,a__VVDH;
+  __UINTEGER_32 new_size__WVDH;
+  __POINTER result__LVDH,ptr_table__Z2GH,next__Y2GH,result__02GH;
+  void *result__TJJH;
   __INTEGER Self__51OC;
   void **Result__2I1B;
-  sz__IMDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__3HYB * ((__INTEGER )(sizeof(void *)))));
-  result__HMDH=((__POINTER )(NULL));
-  a__NMDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__JMDH=(__UINTEGER_32)((__UINTEGER_32)(sz__IMDH + a__NMDH) & (__UINTEGER_32)(~ a__NMDH));
-  new_size2__KMDH=(__UINTEGER_32)(new_size__JMDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__KMDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__RMDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__SMDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KMDH + a__RMDH) & (__UINTEGER_32)(~ a__RMDH));
-    ptr_table__MUGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SMDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__LUGH=((__POINTER )(NULL));
-    result__NUGH=((__POINTER *)ptr_table__MUGH)[ 0];
-    if ((result__NUGH == (void *)NULL)) {
-      result__NUGH=new_lab__MRJ(new_size__SMDH);
-      next__LUGH=(void *)((unsigned long)result__NUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SMDH)));
-      ((__POINTER *)next__LUGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__MUGH)[ 0]=next__LUGH;
-    } else {
-      next__LUGH=((__POINTER *)result__NUGH)[ 0];
-      if ((next__LUGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NUGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SMDH <<  1)) <=  4096)) {
-          next__LUGH=(void *)((unsigned long)result__NUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SMDH)));
-        } else {
-          next__LUGH=new_lab__MRJ(new_size__SMDH);
-        };
-        ((__POINTER *)next__LUGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MUGH)[ 0]=next__LUGH;
-      } else {
-        ((__POINTER *)result__NUGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LUGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__NUGH=next__LUGH;
-      };
-    };
-    ((__POINTER *)result__NUGH)[ 0]=((__POINTER ) 3);
-    result__HMDH=(void *)((unsigned long)result__NUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__MVDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__3HYB * ((__INTEGER )(sizeof(void *)))));
+  result__LVDH=((__POINTER )(NULL));
+  a__RVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__NVDH=(__UINTEGER_32)((__UINTEGER_32)(sz__MVDH + a__RVDH) & (__UINTEGER_32)(~ a__RVDH));
+  new_size2__OVDH=(__UINTEGER_32)(new_size__NVDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__OVDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__VVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__WVDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OVDH + a__VVDH) & (__UINTEGER_32)(~ a__VVDH));
+    ptr_table__Z2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WVDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__Y2GH=((__POINTER )(NULL));
+    result__02GH=((__POINTER *)ptr_table__Z2GH)[ 0];
+    if ((result__02GH == (void *)NULL)) {
+      result__02GH=new_lab__MRJ(new_size__WVDH);
+      next__Y2GH=(void *)((unsigned long)result__02GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVDH)));
+      ((__POINTER *)next__Y2GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__Z2GH)[ 0]=next__Y2GH;
+    } else {
+      next__Y2GH=((__POINTER *)result__02GH)[ 0];
+      if ((next__Y2GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__02GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WVDH <<  1)) <=  4096)) {
+          next__Y2GH=(void *)((unsigned long)result__02GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVDH)));
+        } else {
+          next__Y2GH=new_lab__MRJ(new_size__WVDH);
+        };
+        ((__POINTER *)next__Y2GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Z2GH)[ 0]=next__Y2GH;
+      } else {
+        ((__POINTER *)result__02GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__02GH=next__Y2GH;
+      };
+    };
+    ((__POINTER *)result__02GH)[ 0]=((__POINTER ) 3);
+    result__LVDH=(void *)((unsigned long)result__02GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__2AJH=first_free__XDVB;
-    while ((((void *)result__2AJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__2AJH)->map_size_and_id__ITB &  4294967292LU) < new_size__JMDH))) {
-      result__2AJH=((__MEMORY *)result__2AJH)->map_next_free__JTB;
+    result__TJJH=first_free__XDVB;
+    while ((((void *)result__TJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__TJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__NVDH))) {
+      result__TJJH=((__MEMORY *)result__TJJH)->map_next_free__JTB;
     };
-    if (((void *)result__2AJH == (void *)NULL)) {
-      result__2AJH=new_page__OA5();
+    if (((void *)result__TJJH == (void *)NULL)) {
+      result__TJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__2AJH,new_size__JMDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__2AJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__HMDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__2AJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__TJJH,new_size__NVDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__TJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__LVDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__2I1B=((void **)result__HMDH);
+  Result__2I1B=((void **)result__LVDH);
   Self__51OC=(__INTEGER)(nb_elements__3HYB -  1);
   while ((Self__51OC >=  0)) {
     Result__2I1B[Self__51OC]=NULL;
@@ -9658,11 +9821,11 @@ static void* get__DTI(void *n__FTI)
 {
   void *result__NTI;
   __ITM_TYPE_SIMPLE *result__LML,*Self__SRU;
-  __POINTER ptr__MML,ptr_table__RUGH,next__QUGH,result__SUGH;
-  __POINTER ptr_table__WUGH,next__VUGH,result__XUGH;
+  __POINTER ptr__MML,ptr_table__42GH,next__32GH,result__52GH;
+  __POINTER ptr_table__D3GH,next__C3GH,result__E3GH;
   __INTEGER typ_id__RML;
-  __UINTEGER_32 sz__OML,a__VMDH,new_size__WMDH,t__0MDH,a__ZMDH;
-  __UINTEGER_32 new_size__ZUGH,lab_type__YUGH;
+  __UINTEGER_32 sz__OML,a__ZVDH,new_size__0VDH,t__4VDH,a__3VDH;
+  __UINTEGER_32 new_size__G3GH,lab_type__F3GH;
   result__NTI=fast_reference_at__Y1T(dico__STI,n__FTI);
   if (((void *)result__NTI == (void *)NULL)) {
     result__LML=NULL;
@@ -9675,61 +9838,61 @@ static void* get__DTI(void *n__FTI)
       typ_id__RML=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OML);
       if ((typ_id__RML == (__INTEGER)(-  1))) {
-        a__VMDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__WMDH=(__UINTEGER_32)((__UINTEGER_32)(sz__OML + a__VMDH) & (__UINTEGER_32)(~ a__VMDH));
-        ptr_table__RUGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WMDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__QUGH=((__POINTER )(NULL));
-        result__SUGH=((__POINTER *)ptr_table__RUGH)[ 0];
-        if ((result__SUGH == (void *)NULL)) {
-          result__SUGH=new_lab__MRJ(new_size__WMDH);
-          next__QUGH=(void *)((unsigned long)result__SUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WMDH)));
-          ((__POINTER *)next__QUGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RUGH)[ 0]=next__QUGH;
-        } else {
-          next__QUGH=((__POINTER *)result__SUGH)[ 0];
-          if ((next__QUGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SUGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WMDH <<  1)) <=  4096)) {
-              next__QUGH=(void *)((unsigned long)result__SUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WMDH)));
+        a__ZVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__0VDH=(__UINTEGER_32)((__UINTEGER_32)(sz__OML + a__ZVDH) & (__UINTEGER_32)(~ a__ZVDH));
+        ptr_table__42GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0VDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__32GH=((__POINTER )(NULL));
+        result__52GH=((__POINTER *)ptr_table__42GH)[ 0];
+        if ((result__52GH == (void *)NULL)) {
+          result__52GH=new_lab__MRJ(new_size__0VDH);
+          next__32GH=(void *)((unsigned long)result__52GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0VDH)));
+          ((__POINTER *)next__32GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__42GH)[ 0]=next__32GH;
+        } else {
+          next__32GH=((__POINTER *)result__52GH)[ 0];
+          if ((next__32GH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__52GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0VDH <<  1)) <=  4096)) {
+              next__32GH=(void *)((unsigned long)result__52GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0VDH)));
             } else {
-              next__QUGH=new_lab__MRJ(new_size__WMDH);
-            };
-            ((__POINTER *)next__QUGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__RUGH)[ 0]=next__QUGH;
-          } else {
-            ((__POINTER *)result__SUGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QUGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__SUGH=next__QUGH;
-          };
-        };
-        ptr__MML=result__SUGH;
-      } else {
-        t__0MDH=((__UINTEGER_32 )typ_id__RML);
-        a__ZMDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ZUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__OML + a__ZMDH) & (__UINTEGER_32)(~ a__ZMDH));
-        ptr_table__WUGH=((__POINTER )(&(table_type[(t__0MDH)])));
-        lab_type__YUGH=(__UINTEGER_32)(t__0MDH |  1);
-        next__VUGH=((__POINTER )(NULL));
-        result__XUGH=((__POINTER *)ptr_table__WUGH)[ 0];
-        if ((result__XUGH == (void *)NULL)) {
-          result__XUGH=new_lab__MRJ(lab_type__YUGH);
-          next__VUGH=(void *)((unsigned long)result__XUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZUGH)));
-          ((__POINTER *)next__VUGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WUGH)[ 0]=next__VUGH;
-        } else {
-          next__VUGH=((__POINTER *)result__XUGH)[ 0];
-          if ((next__VUGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XUGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZUGH <<  1)) <=  4096)) {
-              next__VUGH=(void *)((unsigned long)result__XUGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZUGH)));
+              next__32GH=new_lab__MRJ(new_size__0VDH);
+            };
+            ((__POINTER *)next__32GH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__42GH)[ 0]=next__32GH;
+          } else {
+            ((__POINTER *)result__52GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__32GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__52GH=next__32GH;
+          };
+        };
+        ptr__MML=result__52GH;
+      } else {
+        t__4VDH=((__UINTEGER_32 )typ_id__RML);
+        a__3VDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__G3GH=(__UINTEGER_32)((__UINTEGER_32)(sz__OML + a__3VDH) & (__UINTEGER_32)(~ a__3VDH));
+        ptr_table__D3GH=((__POINTER )(&(table_type[(t__4VDH)])));
+        lab_type__F3GH=(__UINTEGER_32)(t__4VDH |  1);
+        next__C3GH=((__POINTER )(NULL));
+        result__E3GH=((__POINTER *)ptr_table__D3GH)[ 0];
+        if ((result__E3GH == (void *)NULL)) {
+          result__E3GH=new_lab__MRJ(lab_type__F3GH);
+          next__C3GH=(void *)((unsigned long)result__E3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G3GH)));
+          ((__POINTER *)next__C3GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__D3GH)[ 0]=next__C3GH;
+        } else {
+          next__C3GH=((__POINTER *)result__E3GH)[ 0];
+          if ((next__C3GH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__G3GH <<  1)) <=  4096)) {
+              next__C3GH=(void *)((unsigned long)result__E3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G3GH)));
             } else {
-              next__VUGH=new_lab__MRJ(lab_type__YUGH);
+              next__C3GH=new_lab__MRJ(lab_type__F3GH);
             };
-            ((__POINTER *)next__VUGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WUGH)[ 0]=next__VUGH;
+            ((__POINTER *)next__C3GH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__D3GH)[ 0]=next__C3GH;
           } else {
-            ((__POINTER *)result__XUGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VUGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__XUGH=next__VUGH;
+            ((__POINTER *)result__E3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__E3GH=next__C3GH;
           };
         };
-        ptr__MML=result__XUGH;
+        ptr__MML=result__E3GH;
       };
       result__LML=((__ITM_TYPE_SIMPLE *)ptr__MML);
       *(result__LML) = *(ITM_TYPE_SIMPLE__);
@@ -9745,57 +9908,57 @@ static void* get__DTI(void *n__FTI)
 static void** create__EHQB(__INTEGER nb_elements__GHQB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__2MDH,a__BNDH,new_size__3MDH,new_size2__4MDH,a__FNDH;
-  __UINTEGER_32 new_size__GNDH;
-  __POINTER result__1MDH,ptr_table__1UGH,next__0UGH,result__2UGH;
-  void *result__5AJH;
+  __UINTEGER_32 sz__AWDH,a__FWDH,new_size__BWDH,new_size2__CWDH,a__JWDH;
+  __UINTEGER_32 new_size__KWDH;
+  __POINTER result__5VDH,ptr_table__I3GH,next__H3GH,result__J3GH;
+  void *result__WJJH;
   __INTEGER Self__EXMC;
   void **Result__RATB;
-  sz__2MDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__GHQB * ((__INTEGER )(sizeof(void *)))));
-  result__1MDH=((__POINTER )(NULL));
-  a__BNDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__3MDH=(__UINTEGER_32)((__UINTEGER_32)(sz__2MDH + a__BNDH) & (__UINTEGER_32)(~ a__BNDH));
-  new_size2__4MDH=(__UINTEGER_32)(new_size__3MDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__4MDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__FNDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__GNDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4MDH + a__FNDH) & (__UINTEGER_32)(~ a__FNDH));
-    ptr_table__1UGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GNDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__0UGH=((__POINTER )(NULL));
-    result__2UGH=((__POINTER *)ptr_table__1UGH)[ 0];
-    if ((result__2UGH == (void *)NULL)) {
-      result__2UGH=new_lab__MRJ(new_size__GNDH);
-      next__0UGH=(void *)((unsigned long)result__2UGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GNDH)));
-      ((__POINTER *)next__0UGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__1UGH)[ 0]=next__0UGH;
-    } else {
-      next__0UGH=((__POINTER *)result__2UGH)[ 0];
-      if ((next__0UGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2UGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GNDH <<  1)) <=  4096)) {
-          next__0UGH=(void *)((unsigned long)result__2UGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GNDH)));
-        } else {
-          next__0UGH=new_lab__MRJ(new_size__GNDH);
-        };
-        ((__POINTER *)next__0UGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1UGH)[ 0]=next__0UGH;
-      } else {
-        ((__POINTER *)result__2UGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0UGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__2UGH=next__0UGH;
-      };
-    };
-    ((__POINTER *)result__2UGH)[ 0]=((__POINTER ) 3);
-    result__1MDH=(void *)((unsigned long)result__2UGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__AWDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__GHQB * ((__INTEGER )(sizeof(void *)))));
+  result__5VDH=((__POINTER )(NULL));
+  a__FWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__BWDH=(__UINTEGER_32)((__UINTEGER_32)(sz__AWDH + a__FWDH) & (__UINTEGER_32)(~ a__FWDH));
+  new_size2__CWDH=(__UINTEGER_32)(new_size__BWDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__CWDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__JWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__KWDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__CWDH + a__JWDH) & (__UINTEGER_32)(~ a__JWDH));
+    ptr_table__I3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KWDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__H3GH=((__POINTER )(NULL));
+    result__J3GH=((__POINTER *)ptr_table__I3GH)[ 0];
+    if ((result__J3GH == (void *)NULL)) {
+      result__J3GH=new_lab__MRJ(new_size__KWDH);
+      next__H3GH=(void *)((unsigned long)result__J3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KWDH)));
+      ((__POINTER *)next__H3GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__I3GH)[ 0]=next__H3GH;
+    } else {
+      next__H3GH=((__POINTER *)result__J3GH)[ 0];
+      if ((next__H3GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KWDH <<  1)) <=  4096)) {
+          next__H3GH=(void *)((unsigned long)result__J3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KWDH)));
+        } else {
+          next__H3GH=new_lab__MRJ(new_size__KWDH);
+        };
+        ((__POINTER *)next__H3GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__I3GH)[ 0]=next__H3GH;
+      } else {
+        ((__POINTER *)result__J3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__J3GH=next__H3GH;
+      };
+    };
+    ((__POINTER *)result__J3GH)[ 0]=((__POINTER ) 3);
+    result__5VDH=(void *)((unsigned long)result__J3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__5AJH=first_free__XDVB;
-    while ((((void *)result__5AJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__5AJH)->map_size_and_id__ITB &  4294967292LU) < new_size__3MDH))) {
-      result__5AJH=((__MEMORY *)result__5AJH)->map_next_free__JTB;
+    result__WJJH=first_free__XDVB;
+    while ((((void *)result__WJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__WJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__BWDH))) {
+      result__WJJH=((__MEMORY *)result__WJJH)->map_next_free__JTB;
     };
-    if (((void *)result__5AJH == (void *)NULL)) {
-      result__5AJH=new_page__OA5();
+    if (((void *)result__WJJH == (void *)NULL)) {
+      result__WJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__5AJH,new_size__3MDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__5AJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__1MDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__5AJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__WJJH,new_size__BWDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__WJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__5VDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__WJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__RATB=((void **)result__1MDH);
+  Result__RATB=((void **)result__5VDH);
   Self__EXMC=(__INTEGER)(nb_elements__GHQB -  1);
   while ((Self__EXMC >=  0)) {
     Result__RATB[Self__EXMC]=NULL;
@@ -9807,57 +9970,57 @@ static void** create__EHQB(__INTEGER nb_elements__GHQB)
 static void** create__U1PB(__INTEGER nb_elements__W1PB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__INDH,a__NNDH,new_size__JNDH,new_size2__KNDH,a__RNDH;
-  __UINTEGER_32 new_size__SNDH;
-  __POINTER result__HNDH,ptr_table__AVGH,next__5UGH,result__BVGH;
-  void *result__CBJH;
+  __UINTEGER_32 sz__MWDH,a__RWDH,new_size__NWDH,new_size2__OWDH,a__VWDH;
+  __UINTEGER_32 new_size__WWDH;
+  __POINTER result__LWDH,ptr_table__N3GH,next__M3GH,result__O3GH;
+  void *result__ZJJH;
   __INTEGER Self__3VMC;
   void **Result__GYSB;
-  sz__INDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__W1PB * ((__INTEGER )(sizeof(void *)))));
-  result__HNDH=((__POINTER )(NULL));
-  a__NNDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__JNDH=(__UINTEGER_32)((__UINTEGER_32)(sz__INDH + a__NNDH) & (__UINTEGER_32)(~ a__NNDH));
-  new_size2__KNDH=(__UINTEGER_32)(new_size__JNDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__KNDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__RNDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__SNDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KNDH + a__RNDH) & (__UINTEGER_32)(~ a__RNDH));
-    ptr_table__AVGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SNDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__5UGH=((__POINTER )(NULL));
-    result__BVGH=((__POINTER *)ptr_table__AVGH)[ 0];
-    if ((result__BVGH == (void *)NULL)) {
-      result__BVGH=new_lab__MRJ(new_size__SNDH);
-      next__5UGH=(void *)((unsigned long)result__BVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SNDH)));
-      ((__POINTER *)next__5UGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__AVGH)[ 0]=next__5UGH;
-    } else {
-      next__5UGH=((__POINTER *)result__BVGH)[ 0];
-      if ((next__5UGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BVGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SNDH <<  1)) <=  4096)) {
-          next__5UGH=(void *)((unsigned long)result__BVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SNDH)));
-        } else {
-          next__5UGH=new_lab__MRJ(new_size__SNDH);
-        };
-        ((__POINTER *)next__5UGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__AVGH)[ 0]=next__5UGH;
-      } else {
-        ((__POINTER *)result__BVGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5UGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__BVGH=next__5UGH;
-      };
-    };
-    ((__POINTER *)result__BVGH)[ 0]=((__POINTER ) 3);
-    result__HNDH=(void *)((unsigned long)result__BVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__MWDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__W1PB * ((__INTEGER )(sizeof(void *)))));
+  result__LWDH=((__POINTER )(NULL));
+  a__RWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__NWDH=(__UINTEGER_32)((__UINTEGER_32)(sz__MWDH + a__RWDH) & (__UINTEGER_32)(~ a__RWDH));
+  new_size2__OWDH=(__UINTEGER_32)(new_size__NWDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__OWDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__VWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__WWDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OWDH + a__VWDH) & (__UINTEGER_32)(~ a__VWDH));
+    ptr_table__N3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WWDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__M3GH=((__POINTER )(NULL));
+    result__O3GH=((__POINTER *)ptr_table__N3GH)[ 0];
+    if ((result__O3GH == (void *)NULL)) {
+      result__O3GH=new_lab__MRJ(new_size__WWDH);
+      next__M3GH=(void *)((unsigned long)result__O3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WWDH)));
+      ((__POINTER *)next__M3GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__N3GH)[ 0]=next__M3GH;
+    } else {
+      next__M3GH=((__POINTER *)result__O3GH)[ 0];
+      if ((next__M3GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WWDH <<  1)) <=  4096)) {
+          next__M3GH=(void *)((unsigned long)result__O3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WWDH)));
+        } else {
+          next__M3GH=new_lab__MRJ(new_size__WWDH);
+        };
+        ((__POINTER *)next__M3GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__N3GH)[ 0]=next__M3GH;
+      } else {
+        ((__POINTER *)result__O3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__O3GH=next__M3GH;
+      };
+    };
+    ((__POINTER *)result__O3GH)[ 0]=((__POINTER ) 3);
+    result__LWDH=(void *)((unsigned long)result__O3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__CBJH=first_free__XDVB;
-    while ((((void *)result__CBJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__CBJH)->map_size_and_id__ITB &  4294967292LU) < new_size__JNDH))) {
-      result__CBJH=((__MEMORY *)result__CBJH)->map_next_free__JTB;
+    result__ZJJH=first_free__XDVB;
+    while ((((void *)result__ZJJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__ZJJH)->map_size_and_id__ITB &  4294967292LU) < new_size__NWDH))) {
+      result__ZJJH=((__MEMORY *)result__ZJJH)->map_next_free__JTB;
     };
-    if (((void *)result__CBJH == (void *)NULL)) {
-      result__CBJH=new_page__OA5();
+    if (((void *)result__ZJJH == (void *)NULL)) {
+      result__ZJJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__CBJH,new_size__JNDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__CBJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__HNDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__CBJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__ZJJH,new_size__NWDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__ZJJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__LWDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ZJJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__GYSB=((void **)result__HNDH);
+  Result__GYSB=((void **)result__LWDH);
   Self__3VMC=(__INTEGER)(nb_elements__W1PB -  1);
   while ((Self__3VMC >=  0)) {
     Result__GYSB[Self__3VMC]=NULL;
@@ -9869,57 +10032,57 @@ static void** create__U1PB(__INTEGER nb_elements__W1PB)
 static void** create__53ZB(__INTEGER nb_elements__B4ZB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__UNDH,a__ZNDH,new_size__VNDH,new_size2__WNDH,a__3NDH;
-  __UINTEGER_32 new_size__4NDH;
-  __POINTER result__TNDH,ptr_table__FVGH,next__EVGH,result__GVGH;
-  void *result__FBJH;
+  __UINTEGER_32 sz__YWDH,a__3WDH,new_size__ZWDH,new_size2__0WDH,a__BXDH;
+  __UINTEGER_32 new_size__CXDH;
+  __POINTER result__XWDH,ptr_table__S3GH,next__R3GH,result__T3GH;
+  void *result__2JJH;
   __INTEGER Self__L5OC;
   void **Result__BF2B;
-  sz__UNDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__B4ZB * ((__INTEGER )(sizeof(void *)))));
-  result__TNDH=((__POINTER )(NULL));
-  a__ZNDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__VNDH=(__UINTEGER_32)((__UINTEGER_32)(sz__UNDH + a__ZNDH) & (__UINTEGER_32)(~ a__ZNDH));
-  new_size2__WNDH=(__UINTEGER_32)(new_size__VNDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__WNDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__3NDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__4NDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WNDH + a__3NDH) & (__UINTEGER_32)(~ a__3NDH));
-    ptr_table__FVGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4NDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__EVGH=((__POINTER )(NULL));
-    result__GVGH=((__POINTER *)ptr_table__FVGH)[ 0];
-    if ((result__GVGH == (void *)NULL)) {
-      result__GVGH=new_lab__MRJ(new_size__4NDH);
-      next__EVGH=(void *)((unsigned long)result__GVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4NDH)));
-      ((__POINTER *)next__EVGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__FVGH)[ 0]=next__EVGH;
-    } else {
-      next__EVGH=((__POINTER *)result__GVGH)[ 0];
-      if ((next__EVGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GVGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4NDH <<  1)) <=  4096)) {
-          next__EVGH=(void *)((unsigned long)result__GVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4NDH)));
-        } else {
-          next__EVGH=new_lab__MRJ(new_size__4NDH);
-        };
-        ((__POINTER *)next__EVGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FVGH)[ 0]=next__EVGH;
-      } else {
-        ((__POINTER *)result__GVGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EVGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__GVGH=next__EVGH;
-      };
-    };
-    ((__POINTER *)result__GVGH)[ 0]=((__POINTER ) 3);
-    result__TNDH=(void *)((unsigned long)result__GVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__YWDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__B4ZB * ((__INTEGER )(sizeof(void *)))));
+  result__XWDH=((__POINTER )(NULL));
+  a__3WDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__ZWDH=(__UINTEGER_32)((__UINTEGER_32)(sz__YWDH + a__3WDH) & (__UINTEGER_32)(~ a__3WDH));
+  new_size2__0WDH=(__UINTEGER_32)(new_size__ZWDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__0WDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__BXDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__CXDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0WDH + a__BXDH) & (__UINTEGER_32)(~ a__BXDH));
+    ptr_table__S3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CXDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__R3GH=((__POINTER )(NULL));
+    result__T3GH=((__POINTER *)ptr_table__S3GH)[ 0];
+    if ((result__T3GH == (void *)NULL)) {
+      result__T3GH=new_lab__MRJ(new_size__CXDH);
+      next__R3GH=(void *)((unsigned long)result__T3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXDH)));
+      ((__POINTER *)next__R3GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__S3GH)[ 0]=next__R3GH;
+    } else {
+      next__R3GH=((__POINTER *)result__T3GH)[ 0];
+      if ((next__R3GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CXDH <<  1)) <=  4096)) {
+          next__R3GH=(void *)((unsigned long)result__T3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXDH)));
+        } else {
+          next__R3GH=new_lab__MRJ(new_size__CXDH);
+        };
+        ((__POINTER *)next__R3GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__S3GH)[ 0]=next__R3GH;
+      } else {
+        ((__POINTER *)result__T3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__T3GH=next__R3GH;
+      };
+    };
+    ((__POINTER *)result__T3GH)[ 0]=((__POINTER ) 3);
+    result__XWDH=(void *)((unsigned long)result__T3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__FBJH=first_free__XDVB;
-    while ((((void *)result__FBJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__FBJH)->map_size_and_id__ITB &  4294967292LU) < new_size__VNDH))) {
-      result__FBJH=((__MEMORY *)result__FBJH)->map_next_free__JTB;
+    result__2JJH=first_free__XDVB;
+    while ((((void *)result__2JJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__2JJH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZWDH))) {
+      result__2JJH=((__MEMORY *)result__2JJH)->map_next_free__JTB;
     };
-    if (((void *)result__FBJH == (void *)NULL)) {
-      result__FBJH=new_page__OA5();
+    if (((void *)result__2JJH == (void *)NULL)) {
+      result__2JJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__FBJH,new_size__VNDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__FBJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__TNDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__FBJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__2JJH,new_size__ZWDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__2JJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__XWDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__2JJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__BF2B=((void **)result__TNDH);
+  Result__BF2B=((void **)result__XWDH);
   Self__L5OC=(__INTEGER)(nb_elements__B4ZB -  1);
   while ((Self__L5OC >=  0)) {
     Result__BF2B[Self__L5OC]=NULL;
@@ -9931,11 +10094,11 @@ static void** create__53ZB(__INTEGER nb_elements__B4ZB)
 static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__BHRC(__INTEGER new_count__DHRC)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __POINTER ptr__IC1C,ptr_table__KVGH,next__JVGH,result__LVGH;
-  __POINTER ptr_table__PVGH,next__OVGH,result__QVGH;
+  __POINTER ptr__IC1C,ptr_table__X3GH,next__W3GH,result__Y3GH;
+  __POINTER ptr_table__23GH,next__13GH,result__33GH;
   __INTEGER typ_id__NC1C;
-  __UINTEGER_32 sz__KC1C,a__BODH,new_size__CODH,t__GODH,a__FODH;
-  __UINTEGER_32 new_size__SVGH,lab_type__RVGH;
+  __UINTEGER_32 sz__KC1C,a__FXDH,new_size__GXDH,t__KXDH,a__JXDH;
+  __UINTEGER_32 new_size__53GH,lab_type__43GH;
   __FAST_ARRAYoSTRING_CONSTANTo *result__HC1C,*Self__43RD;
   result__HC1C=NULL;
   ptr__IC1C=((__POINTER )(NULL));
@@ -9947,302 +10110,302 @@ static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__BHRC(__INTEGER new_c
     typ_id__NC1C=__FAST_ARRAYoSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__KC1C);
     if ((typ_id__NC1C == (__INTEGER)(-  1))) {
-      a__BODH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__CODH=(__UINTEGER_32)((__UINTEGER_32)(sz__KC1C + a__BODH) & (__UINTEGER_32)(~ a__BODH));
-      ptr_table__KVGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CODH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__JVGH=((__POINTER )(NULL));
-      result__LVGH=((__POINTER *)ptr_table__KVGH)[ 0];
-      if ((result__LVGH == (void *)NULL)) {
-        result__LVGH=new_lab__MRJ(new_size__CODH);
-        next__JVGH=(void *)((unsigned long)result__LVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CODH)));
-        ((__POINTER *)next__JVGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KVGH)[ 0]=next__JVGH;
-      } else {
-        next__JVGH=((__POINTER *)result__LVGH)[ 0];
-        if ((next__JVGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LVGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CODH <<  1)) <=  4096)) {
-            next__JVGH=(void *)((unsigned long)result__LVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CODH)));
-          } else {
-            next__JVGH=new_lab__MRJ(new_size__CODH);
+      a__FXDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__GXDH=(__UINTEGER_32)((__UINTEGER_32)(sz__KC1C + a__FXDH) & (__UINTEGER_32)(~ a__FXDH));
+      ptr_table__X3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GXDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__W3GH=((__POINTER )(NULL));
+      result__Y3GH=((__POINTER *)ptr_table__X3GH)[ 0];
+      if ((result__Y3GH == (void *)NULL)) {
+        result__Y3GH=new_lab__MRJ(new_size__GXDH);
+        next__W3GH=(void *)((unsigned long)result__Y3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GXDH)));
+        ((__POINTER *)next__W3GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__X3GH)[ 0]=next__W3GH;
+      } else {
+        next__W3GH=((__POINTER *)result__Y3GH)[ 0];
+        if ((next__W3GH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GXDH <<  1)) <=  4096)) {
+            next__W3GH=(void *)((unsigned long)result__Y3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GXDH)));
+          } else {
+            next__W3GH=new_lab__MRJ(new_size__GXDH);
           };
-          ((__POINTER *)next__JVGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KVGH)[ 0]=next__JVGH;
+          ((__POINTER *)next__W3GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__X3GH)[ 0]=next__W3GH;
         } else {
-          ((__POINTER *)result__LVGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JVGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__LVGH=next__JVGH;
+          ((__POINTER *)result__Y3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__Y3GH=next__W3GH;
         };
       };
-      ptr__IC1C=result__LVGH;
+      ptr__IC1C=result__Y3GH;
     } else {
-      t__GODH=((__UINTEGER_32 )typ_id__NC1C);
-      a__FODH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__SVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__KC1C + a__FODH) & (__UINTEGER_32)(~ a__FODH));
-      ptr_table__PVGH=((__POINTER )(&(table_type[(t__GODH)])));
-      lab_type__RVGH=(__UINTEGER_32)(t__GODH |  1);
-      next__OVGH=((__POINTER )(NULL));
-      result__QVGH=((__POINTER *)ptr_table__PVGH)[ 0];
-      if ((result__QVGH == (void *)NULL)) {
-        result__QVGH=new_lab__MRJ(lab_type__RVGH);
-        next__OVGH=(void *)((unsigned long)result__QVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SVGH)));
-        ((__POINTER *)next__OVGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__PVGH)[ 0]=next__OVGH;
+      t__KXDH=((__UINTEGER_32 )typ_id__NC1C);
+      a__JXDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__53GH=(__UINTEGER_32)((__UINTEGER_32)(sz__KC1C + a__JXDH) & (__UINTEGER_32)(~ a__JXDH));
+      ptr_table__23GH=((__POINTER )(&(table_type[(t__KXDH)])));
+      lab_type__43GH=(__UINTEGER_32)(t__KXDH |  1);
+      next__13GH=((__POINTER )(NULL));
+      result__33GH=((__POINTER *)ptr_table__23GH)[ 0];
+      if ((result__33GH == (void *)NULL)) {
+        result__33GH=new_lab__MRJ(lab_type__43GH);
+        next__13GH=(void *)((unsigned long)result__33GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53GH)));
+        ((__POINTER *)next__13GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__23GH)[ 0]=next__13GH;
       } else {
-        next__OVGH=((__POINTER *)result__QVGH)[ 0];
-        if ((next__OVGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QVGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SVGH <<  1)) <=  4096)) {
-            next__OVGH=(void *)((unsigned long)result__QVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SVGH)));
+        next__13GH=((__POINTER *)result__33GH)[ 0];
+        if ((next__13GH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__33GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__53GH <<  1)) <=  4096)) {
+            next__13GH=(void *)((unsigned long)result__33GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53GH)));
           } else {
-            next__OVGH=new_lab__MRJ(lab_type__RVGH);
+            next__13GH=new_lab__MRJ(lab_type__43GH);
           };
-          ((__POINTER *)next__OVGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PVGH)[ 0]=next__OVGH;
+          ((__POINTER *)next__13GH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__23GH)[ 0]=next__13GH;
         } else {
-          ((__POINTER *)result__QVGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OVGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__QVGH=next__OVGH;
+          ((__POINTER *)result__33GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__13GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__33GH=next__13GH;
         };
       };
-      ptr__IC1C=result__QVGH;
+      ptr__IC1C=result__33GH;
     };
     result__HC1C=((__FAST_ARRAYoSTRING_CONSTANTo *)ptr__IC1C);
     *(result__HC1C) = *(FAST_ARRAYoSTRING_CONSTANTo__);
   };
   Self__43RD=((__FAST_ARRAYoSTRING_CONSTANTo *)result__HC1C);
   if ((Self__43RD->parent_arrayed_collection__H5I.capacity__WBPD < new_count__DHRC)) {
-    Self__43RD->parent_arrayed_collection__H5I.storage__RCPD=create__PHHE(new_count__DHRC);
+    Self__43RD->parent_arrayed_collection__H5I.storage__RCPD=create__RLHE(new_count__DHRC);
     Self__43RD->parent_arrayed_collection__H5I.capacity__WBPD=new_count__DHRC;
   };
   Self__43RD->parent_arrayed_collection__H5I.upper__15OD=(__INTEGER)(-  1);
   return(result__HC1C);
 }
 
-static void** create__KDTF(__INTEGER nb_elements__MDTF)
+static void** create__ZKTF(__INTEGER nb_elements__1KTF)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__IODH,a__NODH,new_size__JODH,new_size2__KODH,a__RODH;
-  __UINTEGER_32 new_size__SODH;
-  __POINTER result__HODH,ptr_table__UVGH,next__TVGH,result__VVGH;
-  void *result__IBJH;
-  __INTEGER Self__IS4F;
-  void **Result__RRXF;
-  sz__IODH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MDTF * ((__INTEGER )(sizeof(void *)))));
-  result__HODH=((__POINTER )(NULL));
-  a__NODH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__JODH=(__UINTEGER_32)((__UINTEGER_32)(sz__IODH + a__NODH) & (__UINTEGER_32)(~ a__NODH));
-  new_size2__KODH=(__UINTEGER_32)(new_size__JODH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__KODH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__RODH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__SODH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__KODH + a__RODH) & (__UINTEGER_32)(~ a__RODH));
-    ptr_table__UVGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SODH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__TVGH=((__POINTER )(NULL));
-    result__VVGH=((__POINTER *)ptr_table__UVGH)[ 0];
-    if ((result__VVGH == (void *)NULL)) {
-      result__VVGH=new_lab__MRJ(new_size__SODH);
-      next__TVGH=(void *)((unsigned long)result__VVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SODH)));
-      ((__POINTER *)next__TVGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__UVGH)[ 0]=next__TVGH;
-    } else {
-      next__TVGH=((__POINTER *)result__VVGH)[ 0];
-      if ((next__TVGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VVGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SODH <<  1)) <=  4096)) {
-          next__TVGH=(void *)((unsigned long)result__VVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SODH)));
-        } else {
-          next__TVGH=new_lab__MRJ(new_size__SODH);
-        };
-        ((__POINTER *)next__TVGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__UVGH)[ 0]=next__TVGH;
-      } else {
-        ((__POINTER *)result__VVGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TVGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__VVGH=next__TVGH;
-      };
-    };
-    ((__POINTER *)result__VVGH)[ 0]=((__POINTER ) 3);
-    result__HODH=(void *)((unsigned long)result__VVGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  __UINTEGER_32 sz__MXDH,a__RXDH,new_size__NXDH,new_size2__OXDH,a__VXDH;
+  __UINTEGER_32 new_size__WXDH;
+  __POINTER result__LXDH,ptr_table__B4GH,next__A4GH,result__C4GH;
+  void *result__5JJH;
+  __INTEGER Self__414F;
+  void **Result__B0XF;
+  sz__MXDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__1KTF * ((__INTEGER )(sizeof(void *)))));
+  result__LXDH=((__POINTER )(NULL));
+  a__RXDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__NXDH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXDH + a__RXDH) & (__UINTEGER_32)(~ a__RXDH));
+  new_size2__OXDH=(__UINTEGER_32)(new_size__NXDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__OXDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__VXDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__WXDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OXDH + a__VXDH) & (__UINTEGER_32)(~ a__VXDH));
+    ptr_table__B4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WXDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__A4GH=((__POINTER )(NULL));
+    result__C4GH=((__POINTER *)ptr_table__B4GH)[ 0];
+    if ((result__C4GH == (void *)NULL)) {
+      result__C4GH=new_lab__MRJ(new_size__WXDH);
+      next__A4GH=(void *)((unsigned long)result__C4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WXDH)));
+      ((__POINTER *)next__A4GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__B4GH)[ 0]=next__A4GH;
+    } else {
+      next__A4GH=((__POINTER *)result__C4GH)[ 0];
+      if ((next__A4GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WXDH <<  1)) <=  4096)) {
+          next__A4GH=(void *)((unsigned long)result__C4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WXDH)));
+        } else {
+          next__A4GH=new_lab__MRJ(new_size__WXDH);
+        };
+        ((__POINTER *)next__A4GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__B4GH)[ 0]=next__A4GH;
+      } else {
+        ((__POINTER *)result__C4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__C4GH=next__A4GH;
+      };
+    };
+    ((__POINTER *)result__C4GH)[ 0]=((__POINTER ) 3);
+    result__LXDH=(void *)((unsigned long)result__C4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__IBJH=first_free__XDVB;
-    while ((((void *)result__IBJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__IBJH)->map_size_and_id__ITB &  4294967292LU) < new_size__JODH))) {
-      result__IBJH=((__MEMORY *)result__IBJH)->map_next_free__JTB;
+    result__5JJH=first_free__XDVB;
+    while ((((void *)result__5JJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__5JJH)->map_size_and_id__ITB &  4294967292LU) < new_size__NXDH))) {
+      result__5JJH=((__MEMORY *)result__5JJH)->map_next_free__JTB;
     };
-    if (((void *)result__IBJH == (void *)NULL)) {
-      result__IBJH=new_page__OA5();
+    if (((void *)result__5JJH == (void *)NULL)) {
+      result__5JJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__IBJH,new_size__JODH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__IBJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__HODH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__IBJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__5JJH,new_size__NXDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__5JJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__LXDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__5JJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__RRXF=((void **)result__HODH);
-  Self__IS4F=(__INTEGER)(nb_elements__MDTF -  1);
-  while ((Self__IS4F >=  0)) {
-    Result__RRXF[Self__IS4F]=NULL;
-    Self__IS4F=(__INTEGER)(Self__IS4F -  1);
+  Result__B0XF=((void **)result__LXDH);
+  Self__414F=(__INTEGER)(nb_elements__1KTF -  1);
+  while ((Self__414F >=  0)) {
+    Result__B0XF[Self__414F]=NULL;
+    Self__414F=(__INTEGER)(Self__414F -  1);
   };
-  return(Result__RRXF);
+  return(Result__B0XF);
 }
 
-static void** create__YMFF(__INTEGER nb_elements__0MFF)
+static void** create__3RFF(__INTEGER nb_elements__5RFF)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__UODH,a__ZODH,new_size__VODH,new_size2__WODH,a__3ODH;
-  __UINTEGER_32 new_size__4ODH;
-  __POINTER result__TODH,ptr_table__ZVGH,next__YVGH,result__0VGH;
-  void *result__LBJH;
-  __INTEGER Self__0ZPF;
-  void **Result__DSJF;
-  sz__UODH=((__UINTEGER_32 )(__INTEGER)(nb_elements__0MFF * ((__INTEGER )(sizeof(void *)))));
-  result__TODH=((__POINTER )(NULL));
-  a__ZODH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__VODH=(__UINTEGER_32)((__UINTEGER_32)(sz__UODH + a__ZODH) & (__UINTEGER_32)(~ a__ZODH));
-  new_size2__WODH=(__UINTEGER_32)(new_size__VODH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__WODH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__3ODH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__4ODH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WODH + a__3ODH) & (__UINTEGER_32)(~ a__3ODH));
-    ptr_table__ZVGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4ODH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__YVGH=((__POINTER )(NULL));
-    result__0VGH=((__POINTER *)ptr_table__ZVGH)[ 0];
-    if ((result__0VGH == (void *)NULL)) {
-      result__0VGH=new_lab__MRJ(new_size__4ODH);
-      next__YVGH=(void *)((unsigned long)result__0VGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4ODH)));
-      ((__POINTER *)next__YVGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__ZVGH)[ 0]=next__YVGH;
-    } else {
-      next__YVGH=((__POINTER *)result__0VGH)[ 0];
-      if ((next__YVGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0VGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4ODH <<  1)) <=  4096)) {
-          next__YVGH=(void *)((unsigned long)result__0VGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4ODH)));
-        } else {
-          next__YVGH=new_lab__MRJ(new_size__4ODH);
-        };
-        ((__POINTER *)next__YVGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZVGH)[ 0]=next__YVGH;
-      } else {
-        ((__POINTER *)result__0VGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YVGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__0VGH=next__YVGH;
-      };
-    };
-    ((__POINTER *)result__0VGH)[ 0]=((__POINTER ) 3);
-    result__TODH=(void *)((unsigned long)result__0VGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  __UINTEGER_32 sz__YXDH,a__3XDH,new_size__ZXDH,new_size2__0XDH,a__BYDH;
+  __UINTEGER_32 new_size__CYDH;
+  __POINTER result__XXDH,ptr_table__G4GH,next__F4GH,result__H4GH;
+  void *result__CKJH;
+  __INTEGER Self__Y5PF;
+  void **Result__IXJF;
+  sz__YXDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5RFF * ((__INTEGER )(sizeof(void *)))));
+  result__XXDH=((__POINTER )(NULL));
+  a__3XDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__ZXDH=(__UINTEGER_32)((__UINTEGER_32)(sz__YXDH + a__3XDH) & (__UINTEGER_32)(~ a__3XDH));
+  new_size2__0XDH=(__UINTEGER_32)(new_size__ZXDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__0XDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__BYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__CYDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0XDH + a__BYDH) & (__UINTEGER_32)(~ a__BYDH));
+    ptr_table__G4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CYDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__F4GH=((__POINTER )(NULL));
+    result__H4GH=((__POINTER *)ptr_table__G4GH)[ 0];
+    if ((result__H4GH == (void *)NULL)) {
+      result__H4GH=new_lab__MRJ(new_size__CYDH);
+      next__F4GH=(void *)((unsigned long)result__H4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CYDH)));
+      ((__POINTER *)next__F4GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__G4GH)[ 0]=next__F4GH;
+    } else {
+      next__F4GH=((__POINTER *)result__H4GH)[ 0];
+      if ((next__F4GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CYDH <<  1)) <=  4096)) {
+          next__F4GH=(void *)((unsigned long)result__H4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CYDH)));
+        } else {
+          next__F4GH=new_lab__MRJ(new_size__CYDH);
+        };
+        ((__POINTER *)next__F4GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__G4GH)[ 0]=next__F4GH;
+      } else {
+        ((__POINTER *)result__H4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__H4GH=next__F4GH;
+      };
+    };
+    ((__POINTER *)result__H4GH)[ 0]=((__POINTER ) 3);
+    result__XXDH=(void *)((unsigned long)result__H4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__LBJH=first_free__XDVB;
-    while ((((void *)result__LBJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__LBJH)->map_size_and_id__ITB &  4294967292LU) < new_size__VODH))) {
-      result__LBJH=((__MEMORY *)result__LBJH)->map_next_free__JTB;
+    result__CKJH=first_free__XDVB;
+    while ((((void *)result__CKJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__CKJH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZXDH))) {
+      result__CKJH=((__MEMORY *)result__CKJH)->map_next_free__JTB;
     };
-    if (((void *)result__LBJH == (void *)NULL)) {
-      result__LBJH=new_page__OA5();
+    if (((void *)result__CKJH == (void *)NULL)) {
+      result__CKJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__LBJH,new_size__VODH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__LBJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__TODH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__LBJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__CKJH,new_size__ZXDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__CKJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__XXDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__CKJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__DSJF=((void **)result__TODH);
-  Self__0ZPF=(__INTEGER)(nb_elements__0MFF -  1);
-  while ((Self__0ZPF >=  0)) {
-    Result__DSJF[Self__0ZPF]=NULL;
-    Self__0ZPF=(__INTEGER)(Self__0ZPF -  1);
+  Result__IXJF=((void **)result__XXDH);
+  Self__Y5PF=(__INTEGER)(nb_elements__5RFF -  1);
+  while ((Self__Y5PF >=  0)) {
+    Result__IXJF[Self__Y5PF]=NULL;
+    Self__Y5PF=(__INTEGER)(Self__Y5PF -  1);
   };
-  return(Result__DSJF);
+  return(Result__IXJF);
 }
 
-static void** create__CFXF(__INTEGER nb_elements__EFXF)
+static void** create__SNXF(__INTEGER nb_elements__UNXF)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__APDH,a__FPDH,new_size__BPDH,new_size2__CPDH,a__JPDH;
-  __UINTEGER_32 new_size__KPDH;
-  __POINTER result__5ODH,ptr_table__4VGH,next__3VGH,result__5VGH;
-  void *result__OBJH;
-  __INTEGER Self__CW4F;
-  void **Result__SUZF;
-  sz__APDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__EFXF * ((__INTEGER )(sizeof(void *)))));
-  result__5ODH=((__POINTER )(NULL));
-  a__FPDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__BPDH=(__UINTEGER_32)((__UINTEGER_32)(sz__APDH + a__FPDH) & (__UINTEGER_32)(~ a__FPDH));
-  new_size2__CPDH=(__UINTEGER_32)(new_size__BPDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__CPDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__JPDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__KPDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__CPDH + a__JPDH) & (__UINTEGER_32)(~ a__JPDH));
-    ptr_table__4VGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KPDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__3VGH=((__POINTER )(NULL));
-    result__5VGH=((__POINTER *)ptr_table__4VGH)[ 0];
-    if ((result__5VGH == (void *)NULL)) {
-      result__5VGH=new_lab__MRJ(new_size__KPDH);
-      next__3VGH=(void *)((unsigned long)result__5VGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPDH)));
-      ((__POINTER *)next__3VGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__4VGH)[ 0]=next__3VGH;
-    } else {
-      next__3VGH=((__POINTER *)result__5VGH)[ 0];
-      if ((next__3VGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5VGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KPDH <<  1)) <=  4096)) {
-          next__3VGH=(void *)((unsigned long)result__5VGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPDH)));
-        } else {
-          next__3VGH=new_lab__MRJ(new_size__KPDH);
-        };
-        ((__POINTER *)next__3VGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4VGH)[ 0]=next__3VGH;
-      } else {
-        ((__POINTER *)result__5VGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3VGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__5VGH=next__3VGH;
-      };
-    };
-    ((__POINTER *)result__5VGH)[ 0]=((__POINTER ) 3);
-    result__5ODH=(void *)((unsigned long)result__5VGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  __UINTEGER_32 sz__EYDH,a__JYDH,new_size__FYDH,new_size2__GYDH,a__NYDH;
+  __UINTEGER_32 new_size__OYDH;
+  __POINTER result__DYDH,ptr_table__L4GH,next__K4GH,result__M4GH;
+  void *result__FKJH;
+  __INTEGER Self__Y54F;
+  void **Result__Y3ZF;
+  sz__EYDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__UNXF * ((__INTEGER )(sizeof(void *)))));
+  result__DYDH=((__POINTER )(NULL));
+  a__JYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__FYDH=(__UINTEGER_32)((__UINTEGER_32)(sz__EYDH + a__JYDH) & (__UINTEGER_32)(~ a__JYDH));
+  new_size2__GYDH=(__UINTEGER_32)(new_size__FYDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__GYDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__NYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__OYDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GYDH + a__NYDH) & (__UINTEGER_32)(~ a__NYDH));
+    ptr_table__L4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OYDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__K4GH=((__POINTER )(NULL));
+    result__M4GH=((__POINTER *)ptr_table__L4GH)[ 0];
+    if ((result__M4GH == (void *)NULL)) {
+      result__M4GH=new_lab__MRJ(new_size__OYDH);
+      next__K4GH=(void *)((unsigned long)result__M4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OYDH)));
+      ((__POINTER *)next__K4GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__L4GH)[ 0]=next__K4GH;
+    } else {
+      next__K4GH=((__POINTER *)result__M4GH)[ 0];
+      if ((next__K4GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OYDH <<  1)) <=  4096)) {
+          next__K4GH=(void *)((unsigned long)result__M4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OYDH)));
+        } else {
+          next__K4GH=new_lab__MRJ(new_size__OYDH);
+        };
+        ((__POINTER *)next__K4GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__L4GH)[ 0]=next__K4GH;
+      } else {
+        ((__POINTER *)result__M4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__K4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__M4GH=next__K4GH;
+      };
+    };
+    ((__POINTER *)result__M4GH)[ 0]=((__POINTER ) 3);
+    result__DYDH=(void *)((unsigned long)result__M4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__OBJH=first_free__XDVB;
-    while ((((void *)result__OBJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__OBJH)->map_size_and_id__ITB &  4294967292LU) < new_size__BPDH))) {
-      result__OBJH=((__MEMORY *)result__OBJH)->map_next_free__JTB;
+    result__FKJH=first_free__XDVB;
+    while ((((void *)result__FKJH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__FKJH)->map_size_and_id__ITB &  4294967292LU) < new_size__FYDH))) {
+      result__FKJH=((__MEMORY *)result__FKJH)->map_next_free__JTB;
     };
-    if (((void *)result__OBJH == (void *)NULL)) {
-      result__OBJH=new_page__OA5();
+    if (((void *)result__FKJH == (void *)NULL)) {
+      result__FKJH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__OBJH,new_size__BPDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__OBJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__5ODH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__OBJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__FKJH,new_size__FYDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__FKJH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__DYDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__FKJH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__SUZF=((void **)result__5ODH);
-  Self__CW4F=(__INTEGER)(nb_elements__EFXF -  1);
-  while ((Self__CW4F >=  0)) {
-    Result__SUZF[Self__CW4F]=NULL;
-    Self__CW4F=(__INTEGER)(Self__CW4F -  1);
+  Result__Y3ZF=((void **)result__DYDH);
+  Self__Y54F=(__INTEGER)(nb_elements__UNXF -  1);
+  while ((Self__Y54F >=  0)) {
+    Result__Y3ZF[Self__Y54F]=NULL;
+    Self__Y54F=(__INTEGER)(Self__Y54F -  1);
   };
-  return(Result__SUZF);
+  return(Result__Y3ZF);
 }
 
-static void** create__I0IE(__INTEGER nb_elements__K0IE)
+static void** create__K4IE(__INTEGER nb_elements__M4IE)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__SOJB,a__NPDH,new_size__UOJB,new_size2__XOJB,a__RPDH;
-  __UINTEGER_32 new_size__SPDH;
-  __POINTER result__0OJB,ptr_table__DWGH,next__CWGH,result__EWGH;
+  __UINTEGER_32 sz__SOJB,a__RYDH,new_size__UOJB,new_size2__XOJB,a__VYDH;
+  __UINTEGER_32 new_size__WYDH;
+  __POINTER result__0OJB,ptr_table__Q4GH,next__P4GH,result__R4GH;
   void *result__YCVB;
-  __INTEGER Self__DBYE;
-  void **Result__10NE;
-  sz__SOJB=((__UINTEGER_32 )(__INTEGER)(nb_elements__K0IE * ((__INTEGER )(sizeof(void *)))));
+  __INTEGER Self__1FYE;
+  void **Result__34NE;
+  sz__SOJB=((__UINTEGER_32 )(__INTEGER)(nb_elements__M4IE * ((__INTEGER )(sizeof(void *)))));
   result__0OJB=((__POINTER )(NULL));
-  a__NPDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__UOJB=(__UINTEGER_32)((__UINTEGER_32)(sz__SOJB + a__NPDH) & (__UINTEGER_32)(~ a__NPDH));
+  a__RYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__UOJB=(__UINTEGER_32)((__UINTEGER_32)(sz__SOJB + a__RYDH) & (__UINTEGER_32)(~ a__RYDH));
   new_size2__XOJB=(__UINTEGER_32)(new_size__UOJB + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
   if ((new_size2__XOJB <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__RPDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__SPDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XOJB + a__RPDH) & (__UINTEGER_32)(~ a__RPDH));
-    ptr_table__DWGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SPDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__CWGH=((__POINTER )(NULL));
-    result__EWGH=((__POINTER *)ptr_table__DWGH)[ 0];
-    if ((result__EWGH == (void *)NULL)) {
-      result__EWGH=new_lab__MRJ(new_size__SPDH);
-      next__CWGH=(void *)((unsigned long)result__EWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SPDH)));
-      ((__POINTER *)next__CWGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__DWGH)[ 0]=next__CWGH;
+    a__VYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__WYDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XOJB + a__VYDH) & (__UINTEGER_32)(~ a__VYDH));
+    ptr_table__Q4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WYDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__P4GH=((__POINTER )(NULL));
+    result__R4GH=((__POINTER *)ptr_table__Q4GH)[ 0];
+    if ((result__R4GH == (void *)NULL)) {
+      result__R4GH=new_lab__MRJ(new_size__WYDH);
+      next__P4GH=(void *)((unsigned long)result__R4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WYDH)));
+      ((__POINTER *)next__P4GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__Q4GH)[ 0]=next__P4GH;
     } else {
-      next__CWGH=((__POINTER *)result__EWGH)[ 0];
-      if ((next__CWGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EWGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SPDH <<  1)) <=  4096)) {
-          next__CWGH=(void *)((unsigned long)result__EWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SPDH)));
+      next__P4GH=((__POINTER *)result__R4GH)[ 0];
+      if ((next__P4GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WYDH <<  1)) <=  4096)) {
+          next__P4GH=(void *)((unsigned long)result__R4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WYDH)));
         } else {
-          next__CWGH=new_lab__MRJ(new_size__SPDH);
+          next__P4GH=new_lab__MRJ(new_size__WYDH);
         };
-        ((__POINTER *)next__CWGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DWGH)[ 0]=next__CWGH;
+        ((__POINTER *)next__P4GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__Q4GH)[ 0]=next__P4GH;
       } else {
-        ((__POINTER *)result__EWGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CWGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__EWGH=next__CWGH;
+        ((__POINTER *)result__R4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__P4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__R4GH=next__P4GH;
       };
     };
-    ((__POINTER *)result__EWGH)[ 0]=((__POINTER ) 3);
-    result__0OJB=(void *)((unsigned long)result__EWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+    ((__POINTER *)result__R4GH)[ 0]=((__POINTER ) 3);
+    result__0OJB=(void *)((unsigned long)result__R4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
     result__YCVB=first_free__XDVB;
     while ((((void *)result__YCVB != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__YCVB)->map_size_and_id__ITB &  4294967292LU) < new_size__UOJB))) {
@@ -10254,13 +10417,13 @@ static void** create__I0IE(__INTEGER nb_elements__K0IE)
     to_busy__index__TTFC(result__YCVB,new_size__UOJB,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__YCVB)) - (unsigned long)begin_memory__PVH)))) >>  26));
     result__0OJB=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__YCVB)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__10NE=((void **)result__0OJB);
-  Self__DBYE=(__INTEGER)(nb_elements__K0IE -  1);
-  while ((Self__DBYE >=  0)) {
-    Result__10NE[Self__DBYE]=NULL;
-    Self__DBYE=(__INTEGER)(Self__DBYE -  1);
+  Result__34NE=((void **)result__0OJB);
+  Self__1FYE=(__INTEGER)(nb_elements__M4IE -  1);
+  while ((Self__1FYE >=  0)) {
+    Result__34NE[Self__1FYE]=NULL;
+    Self__1FYE=(__INTEGER)(Self__1FYE -  1);
   };
-  return(Result__10NE);
+  return(Result__34NE);
 }
 
 static void* new_page__OA5()
@@ -10289,7 +10452,7 @@ static void* new_page__OA5()
   old_size__RA5=((__UINTEGER_64 )(__UINTEGER_32)(nb_page__4RJ <<  26));
   nb_page__4RJ=(__UINTEGER_32)(nb_page__4RJ +  1);
   if (((__UINTEGER_64)(old_size__RA5 +  67108864) > capacity_max__YA5)) {
-    print__WHD((&__string_184));
+    print__WHD((&__string_187));
     exit(( 1));
   };
   block__XA5=((void *)(void *)((unsigned long)begin_memory__PVH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )old_size__RA5)))));
@@ -10310,7 +10473,7 @@ static void to_busy__index__TTFC(__MEMORY *Self__UTFC,__UINTEGER_32 sz__VTFC,__U
 {
   void *new__3TFC,*prev__JDOC,*next__KDOC;
   __UINTEGER_32 siz__XTFC,new_size__0TFC;
-  __MEMORY *Self__DSCC,*Self__PK4G;
+  __MEMORY *Self__DSCC,*Self__ZT4G;
   new__3TFC=NULL;
   prev__JDOC=Self__UTFC->map_previous_free__KTB;
   next__KDOC=Self__UTFC->map_next_free__JTB;
@@ -10339,8 +10502,8 @@ static void to_busy__index__TTFC(__MEMORY *Self__UTFC,__UINTEGER_32 sz__VTFC,__U
     if (((__UINTEGER_32)(((__MEMORY *)new__3TFC)->map_size_and_id__ITB &  2) !=  0)) {
       last_block[(idx__WTFC)] = (new__3TFC);
     } else {
-      Self__PK4G=((__MEMORY *)new__3TFC);
-      ((__MEMORY *)((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__PK4G) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__PK4G->map_size_and_id__ITB &  4294967292LU))))))->map_previous_linear__HTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__3TFC)) - (unsigned long)begin_memory__PVH))));
+      Self__ZT4G=((__MEMORY *)new__3TFC);
+      ((__MEMORY *)((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__ZT4G) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__ZT4G->map_size_and_id__ITB &  4294967292LU))))))->map_previous_linear__HTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__3TFC)) - (unsigned long)begin_memory__PVH))));
     };
   };
   Self__UTFC->map_size_and_id__ITB=(__UINTEGER_32)(siz__XTFC |  1);
@@ -10349,57 +10512,57 @@ static void to_busy__index__TTFC(__MEMORY *Self__UTFC,__UINTEGER_32 sz__VTFC,__U
 static void** create__31XC(__INTEGER nb_elements__51XC)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__WRBH,a__VPDH,new_size__XRBH,new_size2__YRBH,a__ZPDH;
-  __UINTEGER_32 new_size__0PDH;
-  __POINTER result__VRBH,ptr_table__IWGH,next__HWGH,result__JWGH;
-  void *result__MWGH;
+  __UINTEGER_32 sz__D1BH,a__ZYDH,new_size__E1BH,new_size2__F1BH,a__3YDH;
+  __UINTEGER_32 new_size__4YDH;
+  __POINTER result__C1BH,ptr_table__V4GH,next__U4GH,result__W4GH;
+  void *result__Z4GH;
   __INTEGER Self__FSWD;
   void **Result__5S5C;
-  sz__WRBH=((__UINTEGER_32 )(__INTEGER)(nb_elements__51XC * ((__INTEGER )(sizeof(void *)))));
-  result__VRBH=((__POINTER )(NULL));
-  a__VPDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__XRBH=(__UINTEGER_32)((__UINTEGER_32)(sz__WRBH + a__VPDH) & (__UINTEGER_32)(~ a__VPDH));
-  new_size2__YRBH=(__UINTEGER_32)(new_size__XRBH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__YRBH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__ZPDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__0PDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__YRBH + a__ZPDH) & (__UINTEGER_32)(~ a__ZPDH));
-    ptr_table__IWGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0PDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__HWGH=((__POINTER )(NULL));
-    result__JWGH=((__POINTER *)ptr_table__IWGH)[ 0];
-    if ((result__JWGH == (void *)NULL)) {
-      result__JWGH=new_lab__MRJ(new_size__0PDH);
-      next__HWGH=(void *)((unsigned long)result__JWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0PDH)));
-      ((__POINTER *)next__HWGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__IWGH)[ 0]=next__HWGH;
-    } else {
-      next__HWGH=((__POINTER *)result__JWGH)[ 0];
-      if ((next__HWGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JWGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0PDH <<  1)) <=  4096)) {
-          next__HWGH=(void *)((unsigned long)result__JWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0PDH)));
-        } else {
-          next__HWGH=new_lab__MRJ(new_size__0PDH);
-        };
-        ((__POINTER *)next__HWGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__IWGH)[ 0]=next__HWGH;
-      } else {
-        ((__POINTER *)result__JWGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HWGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__JWGH=next__HWGH;
-      };
-    };
-    ((__POINTER *)result__JWGH)[ 0]=((__POINTER ) 3);
-    result__VRBH=(void *)((unsigned long)result__JWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__D1BH=((__UINTEGER_32 )(__INTEGER)(nb_elements__51XC * ((__INTEGER )(sizeof(void *)))));
+  result__C1BH=((__POINTER )(NULL));
+  a__ZYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__E1BH=(__UINTEGER_32)((__UINTEGER_32)(sz__D1BH + a__ZYDH) & (__UINTEGER_32)(~ a__ZYDH));
+  new_size2__F1BH=(__UINTEGER_32)(new_size__E1BH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__F1BH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__3YDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__4YDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__F1BH + a__3YDH) & (__UINTEGER_32)(~ a__3YDH));
+    ptr_table__V4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4YDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__U4GH=((__POINTER )(NULL));
+    result__W4GH=((__POINTER *)ptr_table__V4GH)[ 0];
+    if ((result__W4GH == (void *)NULL)) {
+      result__W4GH=new_lab__MRJ(new_size__4YDH);
+      next__U4GH=(void *)((unsigned long)result__W4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4YDH)));
+      ((__POINTER *)next__U4GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__V4GH)[ 0]=next__U4GH;
+    } else {
+      next__U4GH=((__POINTER *)result__W4GH)[ 0];
+      if ((next__U4GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4YDH <<  1)) <=  4096)) {
+          next__U4GH=(void *)((unsigned long)result__W4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4YDH)));
+        } else {
+          next__U4GH=new_lab__MRJ(new_size__4YDH);
+        };
+        ((__POINTER *)next__U4GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__V4GH)[ 0]=next__U4GH;
+      } else {
+        ((__POINTER *)result__W4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__U4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__W4GH=next__U4GH;
+      };
+    };
+    ((__POINTER *)result__W4GH)[ 0]=((__POINTER ) 3);
+    result__C1BH=(void *)((unsigned long)result__W4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__MWGH=first_free__XDVB;
-    while ((((void *)result__MWGH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__MWGH)->map_size_and_id__ITB &  4294967292LU) < new_size__XRBH))) {
-      result__MWGH=((__MEMORY *)result__MWGH)->map_next_free__JTB;
+    result__Z4GH=first_free__XDVB;
+    while ((((void *)result__Z4GH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__Z4GH)->map_size_and_id__ITB &  4294967292LU) < new_size__E1BH))) {
+      result__Z4GH=((__MEMORY *)result__Z4GH)->map_next_free__JTB;
     };
-    if (((void *)result__MWGH == (void *)NULL)) {
-      result__MWGH=new_page__OA5();
+    if (((void *)result__Z4GH == (void *)NULL)) {
+      result__Z4GH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__MWGH,new_size__XRBH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__MWGH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__VRBH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__MWGH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__Z4GH,new_size__E1BH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z4GH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__C1BH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z4GH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__5S5C=((void **)result__VRBH);
+  Result__5S5C=((void **)result__C1BH);
   Self__FSWD=(__INTEGER)(nb_elements__51XC -  1);
   while ((Self__FSWD >=  0)) {
     Result__5S5C[Self__FSWD]=NULL;
@@ -10411,57 +10574,57 @@ static void** create__31XC(__INTEGER nb_elements__51XC)
 static void** create__ABYC(__INTEGER nb_elements__CBYC)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__0RBH,a__AQDH,new_size__1RBH,new_size2__2RBH,a__EQDH;
-  __UINTEGER_32 new_size__FQDH;
-  __POINTER result__ZRBH,ptr_table__QWGH,next__PWGH,result__RWGH;
-  void *result__UWGH;
+  __UINTEGER_32 sz__H1BH,a__EZDH,new_size__I1BH,new_size2__J1BH,a__IZDH;
+  __UINTEGER_32 new_size__JZDH;
+  __POINTER result__G1BH,ptr_table__34GH,next__24GH,result__44GH;
+  void *result__B5GH;
   __INTEGER Self__5VWD;
   void **Result__JY5C;
-  sz__0RBH=((__UINTEGER_32 )(__INTEGER)(nb_elements__CBYC * ((__INTEGER )(sizeof(void *)))));
-  result__ZRBH=((__POINTER )(NULL));
-  a__AQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__1RBH=(__UINTEGER_32)((__UINTEGER_32)(sz__0RBH + a__AQDH) & (__UINTEGER_32)(~ a__AQDH));
-  new_size2__2RBH=(__UINTEGER_32)(new_size__1RBH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__2RBH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__EQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__FQDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__2RBH + a__EQDH) & (__UINTEGER_32)(~ a__EQDH));
-    ptr_table__QWGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FQDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__PWGH=((__POINTER )(NULL));
-    result__RWGH=((__POINTER *)ptr_table__QWGH)[ 0];
-    if ((result__RWGH == (void *)NULL)) {
-      result__RWGH=new_lab__MRJ(new_size__FQDH);
-      next__PWGH=(void *)((unsigned long)result__RWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FQDH)));
-      ((__POINTER *)next__PWGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__QWGH)[ 0]=next__PWGH;
-    } else {
-      next__PWGH=((__POINTER *)result__RWGH)[ 0];
-      if ((next__PWGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RWGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FQDH <<  1)) <=  4096)) {
-          next__PWGH=(void *)((unsigned long)result__RWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FQDH)));
-        } else {
-          next__PWGH=new_lab__MRJ(new_size__FQDH);
-        };
-        ((__POINTER *)next__PWGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QWGH)[ 0]=next__PWGH;
-      } else {
-        ((__POINTER *)result__RWGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PWGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__RWGH=next__PWGH;
-      };
-    };
-    ((__POINTER *)result__RWGH)[ 0]=((__POINTER ) 3);
-    result__ZRBH=(void *)((unsigned long)result__RWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__H1BH=((__UINTEGER_32 )(__INTEGER)(nb_elements__CBYC * ((__INTEGER )(sizeof(void *)))));
+  result__G1BH=((__POINTER )(NULL));
+  a__EZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__I1BH=(__UINTEGER_32)((__UINTEGER_32)(sz__H1BH + a__EZDH) & (__UINTEGER_32)(~ a__EZDH));
+  new_size2__J1BH=(__UINTEGER_32)(new_size__I1BH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__J1BH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__IZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__JZDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__J1BH + a__IZDH) & (__UINTEGER_32)(~ a__IZDH));
+    ptr_table__34GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JZDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__24GH=((__POINTER )(NULL));
+    result__44GH=((__POINTER *)ptr_table__34GH)[ 0];
+    if ((result__44GH == (void *)NULL)) {
+      result__44GH=new_lab__MRJ(new_size__JZDH);
+      next__24GH=(void *)((unsigned long)result__44GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JZDH)));
+      ((__POINTER *)next__24GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__34GH)[ 0]=next__24GH;
+    } else {
+      next__24GH=((__POINTER *)result__44GH)[ 0];
+      if ((next__24GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__44GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JZDH <<  1)) <=  4096)) {
+          next__24GH=(void *)((unsigned long)result__44GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JZDH)));
+        } else {
+          next__24GH=new_lab__MRJ(new_size__JZDH);
+        };
+        ((__POINTER *)next__24GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__34GH)[ 0]=next__24GH;
+      } else {
+        ((__POINTER *)result__44GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__24GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__44GH=next__24GH;
+      };
+    };
+    ((__POINTER *)result__44GH)[ 0]=((__POINTER ) 3);
+    result__G1BH=(void *)((unsigned long)result__44GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__UWGH=first_free__XDVB;
-    while ((((void *)result__UWGH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__UWGH)->map_size_and_id__ITB &  4294967292LU) < new_size__1RBH))) {
-      result__UWGH=((__MEMORY *)result__UWGH)->map_next_free__JTB;
+    result__B5GH=first_free__XDVB;
+    while ((((void *)result__B5GH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__B5GH)->map_size_and_id__ITB &  4294967292LU) < new_size__I1BH))) {
+      result__B5GH=((__MEMORY *)result__B5GH)->map_next_free__JTB;
     };
-    if (((void *)result__UWGH == (void *)NULL)) {
-      result__UWGH=new_page__OA5();
+    if (((void *)result__B5GH == (void *)NULL)) {
+      result__B5GH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__UWGH,new_size__1RBH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__UWGH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__ZRBH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__UWGH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__B5GH,new_size__I1BH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__B5GH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__G1BH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__B5GH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__JY5C=((void **)result__ZRBH);
+  Result__JY5C=((void **)result__G1BH);
   Self__5VWD=(__INTEGER)(nb_elements__CBYC -  1);
   while ((Self__5VWD >=  0)) {
     Result__JY5C[Self__5VWD]=NULL;
@@ -10473,57 +10636,57 @@ static void** create__ABYC(__INTEGER nb_elements__CBYC)
 static void** create__ELBD(__INTEGER nb_elements__GLBD)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__4RBH,a__LQDH,new_size__5RBH,new_size2__ASBH,a__PQDH;
-  __UINTEGER_32 new_size__QQDH;
-  __POINTER result__3RBH,ptr_table__YWGH,next__XWGH,result__ZWGH;
-  void *result__2WGH;
+  __UINTEGER_32 sz__L1BH,a__PZDH,new_size__M1BH,new_size2__N1BH,a__TZDH;
+  __UINTEGER_32 new_size__UZDH;
+  __POINTER result__K1BH,ptr_table__F5GH,next__E5GH,result__G5GH;
+  void *result__J5GH;
   __INTEGER Self__KEXD;
   void **Result__BAGD;
-  sz__4RBH=((__UINTEGER_32 )(__INTEGER)(nb_elements__GLBD * ((__INTEGER )(sizeof(void *)))));
-  result__3RBH=((__POINTER )(NULL));
-  a__LQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__5RBH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RBH + a__LQDH) & (__UINTEGER_32)(~ a__LQDH));
-  new_size2__ASBH=(__UINTEGER_32)(new_size__5RBH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__ASBH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__PQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__QQDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ASBH + a__PQDH) & (__UINTEGER_32)(~ a__PQDH));
-    ptr_table__YWGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QQDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__XWGH=((__POINTER )(NULL));
-    result__ZWGH=((__POINTER *)ptr_table__YWGH)[ 0];
-    if ((result__ZWGH == (void *)NULL)) {
-      result__ZWGH=new_lab__MRJ(new_size__QQDH);
-      next__XWGH=(void *)((unsigned long)result__ZWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QQDH)));
-      ((__POINTER *)next__XWGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__YWGH)[ 0]=next__XWGH;
-    } else {
-      next__XWGH=((__POINTER *)result__ZWGH)[ 0];
-      if ((next__XWGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZWGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QQDH <<  1)) <=  4096)) {
-          next__XWGH=(void *)((unsigned long)result__ZWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QQDH)));
-        } else {
-          next__XWGH=new_lab__MRJ(new_size__QQDH);
-        };
-        ((__POINTER *)next__XWGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__YWGH)[ 0]=next__XWGH;
-      } else {
-        ((__POINTER *)result__ZWGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XWGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__ZWGH=next__XWGH;
-      };
-    };
-    ((__POINTER *)result__ZWGH)[ 0]=((__POINTER ) 3);
-    result__3RBH=(void *)((unsigned long)result__ZWGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__L1BH=((__UINTEGER_32 )(__INTEGER)(nb_elements__GLBD * ((__INTEGER )(sizeof(void *)))));
+  result__K1BH=((__POINTER )(NULL));
+  a__PZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__M1BH=(__UINTEGER_32)((__UINTEGER_32)(sz__L1BH + a__PZDH) & (__UINTEGER_32)(~ a__PZDH));
+  new_size2__N1BH=(__UINTEGER_32)(new_size__M1BH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__N1BH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__TZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__UZDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__N1BH + a__TZDH) & (__UINTEGER_32)(~ a__TZDH));
+    ptr_table__F5GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UZDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__E5GH=((__POINTER )(NULL));
+    result__G5GH=((__POINTER *)ptr_table__F5GH)[ 0];
+    if ((result__G5GH == (void *)NULL)) {
+      result__G5GH=new_lab__MRJ(new_size__UZDH);
+      next__E5GH=(void *)((unsigned long)result__G5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UZDH)));
+      ((__POINTER *)next__E5GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__F5GH)[ 0]=next__E5GH;
+    } else {
+      next__E5GH=((__POINTER *)result__G5GH)[ 0];
+      if ((next__E5GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G5GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UZDH <<  1)) <=  4096)) {
+          next__E5GH=(void *)((unsigned long)result__G5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UZDH)));
+        } else {
+          next__E5GH=new_lab__MRJ(new_size__UZDH);
+        };
+        ((__POINTER *)next__E5GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__F5GH)[ 0]=next__E5GH;
+      } else {
+        ((__POINTER *)result__G5GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E5GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__G5GH=next__E5GH;
+      };
+    };
+    ((__POINTER *)result__G5GH)[ 0]=((__POINTER ) 3);
+    result__K1BH=(void *)((unsigned long)result__G5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__2WGH=first_free__XDVB;
-    while ((((void *)result__2WGH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__2WGH)->map_size_and_id__ITB &  4294967292LU) < new_size__5RBH))) {
-      result__2WGH=((__MEMORY *)result__2WGH)->map_next_free__JTB;
+    result__J5GH=first_free__XDVB;
+    while ((((void *)result__J5GH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__J5GH)->map_size_and_id__ITB &  4294967292LU) < new_size__M1BH))) {
+      result__J5GH=((__MEMORY *)result__J5GH)->map_next_free__JTB;
     };
-    if (((void *)result__2WGH == (void *)NULL)) {
-      result__2WGH=new_page__OA5();
+    if (((void *)result__J5GH == (void *)NULL)) {
+      result__J5GH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__2WGH,new_size__5RBH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__2WGH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__3RBH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__2WGH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__J5GH,new_size__M1BH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__J5GH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__K1BH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__J5GH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__BAGD=((void **)result__3RBH);
+  Result__BAGD=((void **)result__K1BH);
   Self__KEXD=(__INTEGER)(nb_elements__GLBD -  1);
   while ((Self__KEXD >=  0)) {
     Result__BAGD[Self__KEXD]=NULL;
@@ -10532,122 +10695,122 @@ static void** create__ELBD(__INTEGER nb_elements__GLBD)
   return(Result__BAGD);
 }
 
-static void** create__5FEF(__INTEGER nb_elements__BGEF)
+static void** create__ILEF(__INTEGER nb_elements__KLEF)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__CSBH,a__WQDH,new_size__DSBH,new_size2__ESBH,a__0QDH;
-  __UINTEGER_32 new_size__1QDH;
-  __POINTER result__BSBH,ptr_table__AXGH,next__5WGH,result__BXGH;
-  void *result__EXGH;
-  __INTEGER Self__VXPF;
-  void **Result__JVIF;
-  sz__CSBH=((__UINTEGER_32 )(__INTEGER)(nb_elements__BGEF * ((__INTEGER )(sizeof(void *)))));
-  result__BSBH=((__POINTER )(NULL));
-  a__WQDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__DSBH=(__UINTEGER_32)((__UINTEGER_32)(sz__CSBH + a__WQDH) & (__UINTEGER_32)(~ a__WQDH));
-  new_size2__ESBH=(__UINTEGER_32)(new_size__DSBH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__ESBH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__0QDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__1QDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ESBH + a__0QDH) & (__UINTEGER_32)(~ a__0QDH));
-    ptr_table__AXGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1QDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__5WGH=((__POINTER )(NULL));
-    result__BXGH=((__POINTER *)ptr_table__AXGH)[ 0];
-    if ((result__BXGH == (void *)NULL)) {
-      result__BXGH=new_lab__MRJ(new_size__1QDH);
-      next__5WGH=(void *)((unsigned long)result__BXGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1QDH)));
-      ((__POINTER *)next__5WGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__AXGH)[ 0]=next__5WGH;
-    } else {
-      next__5WGH=((__POINTER *)result__BXGH)[ 0];
-      if ((next__5WGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BXGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1QDH <<  1)) <=  4096)) {
-          next__5WGH=(void *)((unsigned long)result__BXGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1QDH)));
-        } else {
-          next__5WGH=new_lab__MRJ(new_size__1QDH);
-        };
-        ((__POINTER *)next__5WGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__AXGH)[ 0]=next__5WGH;
-      } else {
-        ((__POINTER *)result__BXGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5WGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__BXGH=next__5WGH;
-      };
-    };
-    ((__POINTER *)result__BXGH)[ 0]=((__POINTER ) 3);
-    result__BSBH=(void *)((unsigned long)result__BXGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  __UINTEGER_32 sz__P1BH,a__0ZDH,new_size__Q1BH,new_size2__R1BH,a__4ZDH;
+  __UINTEGER_32 new_size__5ZDH;
+  __POINTER result__O1BH,ptr_table__N5GH,next__M5GH,result__O5GH;
+  void *result__R5GH;
+  __INTEGER Self__T3PF;
+  void **Result__O0IF;
+  sz__P1BH=((__UINTEGER_32 )(__INTEGER)(nb_elements__KLEF * ((__INTEGER )(sizeof(void *)))));
+  result__O1BH=((__POINTER )(NULL));
+  a__0ZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__Q1BH=(__UINTEGER_32)((__UINTEGER_32)(sz__P1BH + a__0ZDH) & (__UINTEGER_32)(~ a__0ZDH));
+  new_size2__R1BH=(__UINTEGER_32)(new_size__Q1BH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__R1BH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__4ZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__5ZDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__R1BH + a__4ZDH) & (__UINTEGER_32)(~ a__4ZDH));
+    ptr_table__N5GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5ZDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__M5GH=((__POINTER )(NULL));
+    result__O5GH=((__POINTER *)ptr_table__N5GH)[ 0];
+    if ((result__O5GH == (void *)NULL)) {
+      result__O5GH=new_lab__MRJ(new_size__5ZDH);
+      next__M5GH=(void *)((unsigned long)result__O5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ZDH)));
+      ((__POINTER *)next__M5GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__N5GH)[ 0]=next__M5GH;
+    } else {
+      next__M5GH=((__POINTER *)result__O5GH)[ 0];
+      if ((next__M5GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O5GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5ZDH <<  1)) <=  4096)) {
+          next__M5GH=(void *)((unsigned long)result__O5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ZDH)));
+        } else {
+          next__M5GH=new_lab__MRJ(new_size__5ZDH);
+        };
+        ((__POINTER *)next__M5GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__N5GH)[ 0]=next__M5GH;
+      } else {
+        ((__POINTER *)result__O5GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M5GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__O5GH=next__M5GH;
+      };
+    };
+    ((__POINTER *)result__O5GH)[ 0]=((__POINTER ) 3);
+    result__O1BH=(void *)((unsigned long)result__O5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__EXGH=first_free__XDVB;
-    while ((((void *)result__EXGH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__EXGH)->map_size_and_id__ITB &  4294967292LU) < new_size__DSBH))) {
-      result__EXGH=((__MEMORY *)result__EXGH)->map_next_free__JTB;
+    result__R5GH=first_free__XDVB;
+    while ((((void *)result__R5GH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__R5GH)->map_size_and_id__ITB &  4294967292LU) < new_size__Q1BH))) {
+      result__R5GH=((__MEMORY *)result__R5GH)->map_next_free__JTB;
     };
-    if (((void *)result__EXGH == (void *)NULL)) {
-      result__EXGH=new_page__OA5();
+    if (((void *)result__R5GH == (void *)NULL)) {
+      result__R5GH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__EXGH,new_size__DSBH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__EXGH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__BSBH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__EXGH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__R5GH,new_size__Q1BH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__R5GH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__O1BH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__R5GH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__JVIF=((void **)result__BSBH);
-  Self__VXPF=(__INTEGER)(nb_elements__BGEF -  1);
-  while ((Self__VXPF >=  0)) {
-    Result__JVIF[Self__VXPF]=NULL;
-    Self__VXPF=(__INTEGER)(Self__VXPF -  1);
+  Result__O0IF=((void **)result__O1BH);
+  Self__T3PF=(__INTEGER)(nb_elements__KLEF -  1);
+  while ((Self__T3PF >=  0)) {
+    Result__O0IF[Self__T3PF]=NULL;
+    Self__T3PF=(__INTEGER)(Self__T3PF -  1);
   };
-  return(Result__JVIF);
+  return(Result__O0IF);
 }
 
 static void** create__BK2(__INTEGER nb_elements__DK2)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__GSBH,a__BRDH,new_size__HSBH,new_size2__ISBH,a__FRDH;
-  __UINTEGER_32 new_size__GRDH;
-  __POINTER result__FSBH,ptr_table__IXGH,next__HXGH,result__JXGH;
-  void *result__MXGH;
+  __UINTEGER_32 sz__T1BH,a__F0DH,new_size__U1BH,new_size2__V1BH,a__J0DH;
+  __UINTEGER_32 new_size__K0DH;
+  __POINTER result__S1BH,ptr_table__V5GH,next__U5GH,result__W5GH;
+  void *result__Z5GH;
   __INTEGER Self__LTJC;
   void **Result__YADB;
-  sz__GSBH=((__UINTEGER_32 )(__INTEGER)(nb_elements__DK2 * ((__INTEGER )(sizeof(void *)))));
-  result__FSBH=((__POINTER )(NULL));
-  a__BRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__HSBH=(__UINTEGER_32)((__UINTEGER_32)(sz__GSBH + a__BRDH) & (__UINTEGER_32)(~ a__BRDH));
-  new_size2__ISBH=(__UINTEGER_32)(new_size__HSBH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__ISBH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__FRDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__GRDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ISBH + a__FRDH) & (__UINTEGER_32)(~ a__FRDH));
-    ptr_table__IXGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GRDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__HXGH=((__POINTER )(NULL));
-    result__JXGH=((__POINTER *)ptr_table__IXGH)[ 0];
-    if ((result__JXGH == (void *)NULL)) {
-      result__JXGH=new_lab__MRJ(new_size__GRDH);
-      next__HXGH=(void *)((unsigned long)result__JXGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GRDH)));
-      ((__POINTER *)next__HXGH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__IXGH)[ 0]=next__HXGH;
-    } else {
-      next__HXGH=((__POINTER *)result__JXGH)[ 0];
-      if ((next__HXGH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JXGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GRDH <<  1)) <=  4096)) {
-          next__HXGH=(void *)((unsigned long)result__JXGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GRDH)));
-        } else {
-          next__HXGH=new_lab__MRJ(new_size__GRDH);
-        };
-        ((__POINTER *)next__HXGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__IXGH)[ 0]=next__HXGH;
-      } else {
-        ((__POINTER *)result__JXGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HXGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__JXGH=next__HXGH;
-      };
-    };
-    ((__POINTER *)result__JXGH)[ 0]=((__POINTER ) 3);
-    result__FSBH=(void *)((unsigned long)result__JXGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__T1BH=((__UINTEGER_32 )(__INTEGER)(nb_elements__DK2 * ((__INTEGER )(sizeof(void *)))));
+  result__S1BH=((__POINTER )(NULL));
+  a__F0DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__U1BH=(__UINTEGER_32)((__UINTEGER_32)(sz__T1BH + a__F0DH) & (__UINTEGER_32)(~ a__F0DH));
+  new_size2__V1BH=(__UINTEGER_32)(new_size__U1BH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__V1BH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__J0DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__K0DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__V1BH + a__J0DH) & (__UINTEGER_32)(~ a__J0DH));
+    ptr_table__V5GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__K0DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__U5GH=((__POINTER )(NULL));
+    result__W5GH=((__POINTER *)ptr_table__V5GH)[ 0];
+    if ((result__W5GH == (void *)NULL)) {
+      result__W5GH=new_lab__MRJ(new_size__K0DH);
+      next__U5GH=(void *)((unsigned long)result__W5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K0DH)));
+      ((__POINTER *)next__U5GH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__V5GH)[ 0]=next__U5GH;
+    } else {
+      next__U5GH=((__POINTER *)result__W5GH)[ 0];
+      if ((next__U5GH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W5GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__K0DH <<  1)) <=  4096)) {
+          next__U5GH=(void *)((unsigned long)result__W5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K0DH)));
+        } else {
+          next__U5GH=new_lab__MRJ(new_size__K0DH);
+        };
+        ((__POINTER *)next__U5GH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__V5GH)[ 0]=next__U5GH;
+      } else {
+        ((__POINTER *)result__W5GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__U5GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__W5GH=next__U5GH;
+      };
+    };
+    ((__POINTER *)result__W5GH)[ 0]=((__POINTER ) 3);
+    result__S1BH=(void *)((unsigned long)result__W5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__MXGH=first_free__XDVB;
-    while ((((void *)result__MXGH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__MXGH)->map_size_and_id__ITB &  4294967292LU) < new_size__HSBH))) {
-      result__MXGH=((__MEMORY *)result__MXGH)->map_next_free__JTB;
+    result__Z5GH=first_free__XDVB;
+    while ((((void *)result__Z5GH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__Z5GH)->map_size_and_id__ITB &  4294967292LU) < new_size__U1BH))) {
+      result__Z5GH=((__MEMORY *)result__Z5GH)->map_next_free__JTB;
     };
-    if (((void *)result__MXGH == (void *)NULL)) {
-      result__MXGH=new_page__OA5();
+    if (((void *)result__Z5GH == (void *)NULL)) {
+      result__Z5GH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__MXGH,new_size__HSBH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__MXGH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__FSBH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__MXGH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__Z5GH,new_size__U1BH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z5GH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__S1BH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z5GH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__YADB=((void **)result__FSBH);
+  Result__YADB=((void **)result__S1BH);
   Self__LTJC=(__INTEGER)(nb_elements__DK2 -  1);
   while ((Self__LTJC >=  0)) {
     Result__YADB[Self__LTJC]=NULL;
@@ -10659,26 +10822,26 @@ static void** create__BK2(__INTEGER nb_elements__DK2)
 static void add__IYR(__HASHED_SEToABSTRACT_STRINGo *Self__JYR,void *e__KYR)
 // ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER result__PXGH,__tmp__RXGH,Self__SXGH,idx__SYR,typ_id__WXGH;
-  __POINTER ptr__VXGH,ptr_table__AYGH,next__5XGH,result__BYGH;
-  __POINTER ptr_table__FYGH,next__EYGH,result__GYGH;
-  __UINTEGER_32 sz__XXGH,a__YXGH,new_size__ZXGH,t__0XGH,a__1XGH;
-  __UINTEGER_32 new_size__IYGH,lab_type__HYGH;
-  void *node__VYR,*n__4XGH;
-  __HASHED_SET_NODEoABSTRACT_STRINGo *result__UXGH,*Self__2XGH;
+  __INTEGER result__25GH,__tmp__45GH,Self__55GH,idx__SYR,typ_id__DAHH;
+  __POINTER ptr__CAHH,ptr_table__NAHH,next__MAHH,result__OAHH;
+  __POINTER ptr_table__SAHH,next__RAHH,result__TAHH;
+  __UINTEGER_32 sz__EAHH,a__FAHH,new_size__GAHH,t__HAHH,a__IAHH;
+  __UINTEGER_32 new_size__VAHH,lab_type__UAHH;
+  void *node__VYR,*n__LAHH;
+  __HASHED_SET_NODEoABSTRACT_STRINGo *result__BAHH,*Self__JAHH;
   has__1PW(Self__JYR,e__KYR);
   has__1PW(Self__JYR,e__KYR);
-  result__PXGH= 0;
-  __tmp__RXGH=((__STRING_CONSTANT *)e__KYR)->count__DD;
-  Self__SXGH= 1;
-  while ((Self__SXGH <= __tmp__RXGH)) {
-    result__PXGH=(__INTEGER)((__INTEGER)( 5 * result__PXGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)e__KYR)->storage__VQO)[(__INTEGER)(Self__SXGH -  1)])));
-    Self__SXGH=(__INTEGER)(Self__SXGH +  1);
+  result__25GH= 0;
+  __tmp__45GH=((__STRING_CONSTANT *)e__KYR)->count__DD;
+  Self__55GH= 1;
+  while ((Self__55GH <= __tmp__45GH)) {
+    result__25GH=(__INTEGER)((__INTEGER)( 5 * result__25GH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)e__KYR)->storage__VQO)[(__INTEGER)(Self__55GH -  1)])));
+    Self__55GH=(__INTEGER)(Self__55GH +  1);
   };
-  if ((result__PXGH <  0)) {
-    result__PXGH=(__INTEGER)(~ result__PXGH);
+  if ((result__25GH <  0)) {
+    result__25GH=(__INTEGER)(~ result__25GH);
   };
-  idx__SYR=(__INTEGER)(result__PXGH % Self__JYR->capacity__ZYR);
+  idx__SYR=(__INTEGER)(result__25GH % Self__JYR->capacity__ZYR);
   node__VYR=((void **)Self__JYR->buckets__4YR)[idx__SYR];
   while ((! (((void *)node__VYR == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__VYR)->item__KZR,e__KYR)))) {
     node__VYR=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__VYR)->next__WZR;
@@ -10686,83 +10849,83 @@ static void add__IYR(__HASHED_SEToABSTRACT_STRINGo *Self__JYR,void *e__KYR)
   if (((void *)node__VYR == (void *)NULL)) {
     if ((Self__JYR->capacity__ZYR == Self__JYR->count__5ZR)) {
       increase_capacity__4RNB(Self__JYR);
-      idx__SYR=(__INTEGER)(result__PXGH % Self__JYR->capacity__ZYR);
-    };
-    n__4XGH=((void **)Self__JYR->buckets__4YR)[idx__SYR];
-    result__UXGH=NULL;
-    ptr__VXGH=((__POINTER )(NULL));
-    typ_id__WXGH= 0;
-    sz__XXGH=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
-    if ((sz__XXGH ==  0)) {
-      result__UXGH=HASHED_SET_NODEoABSTRACT_STRINGo__;
-    } else {
-      typ_id__WXGH=__HASHED_SET_NODEoABSTRACT_STRINGo__;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XXGH);
-      if ((typ_id__WXGH == (__INTEGER)(-  1))) {
-        a__YXGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ZXGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XXGH + a__YXGH) & (__UINTEGER_32)(~ a__YXGH));
-        ptr_table__AYGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZXGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__5XGH=((__POINTER )(NULL));
-        result__BYGH=((__POINTER *)ptr_table__AYGH)[ 0];
-        if ((result__BYGH == (void *)NULL)) {
-          result__BYGH=new_lab__MRJ(new_size__ZXGH);
-          next__5XGH=(void *)((unsigned long)result__BYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZXGH)));
-          ((__POINTER *)next__5XGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AYGH)[ 0]=next__5XGH;
-        } else {
-          next__5XGH=((__POINTER *)result__BYGH)[ 0];
-          if ((next__5XGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BYGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZXGH <<  1)) <=  4096)) {
-              next__5XGH=(void *)((unsigned long)result__BYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZXGH)));
+      idx__SYR=(__INTEGER)(result__25GH % Self__JYR->capacity__ZYR);
+    };
+    n__LAHH=((void **)Self__JYR->buckets__4YR)[idx__SYR];
+    result__BAHH=NULL;
+    ptr__CAHH=((__POINTER )(NULL));
+    typ_id__DAHH= 0;
+    sz__EAHH=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
+    if ((sz__EAHH ==  0)) {
+      result__BAHH=HASHED_SET_NODEoABSTRACT_STRINGo__;
+    } else {
+      typ_id__DAHH=__HASHED_SET_NODEoABSTRACT_STRINGo__;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__EAHH);
+      if ((typ_id__DAHH == (__INTEGER)(-  1))) {
+        a__FAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__GAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__EAHH + a__FAHH) & (__UINTEGER_32)(~ a__FAHH));
+        ptr_table__NAHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GAHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__MAHH=((__POINTER )(NULL));
+        result__OAHH=((__POINTER *)ptr_table__NAHH)[ 0];
+        if ((result__OAHH == (void *)NULL)) {
+          result__OAHH=new_lab__MRJ(new_size__GAHH);
+          next__MAHH=(void *)((unsigned long)result__OAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GAHH)));
+          ((__POINTER *)next__MAHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__NAHH)[ 0]=next__MAHH;
+        } else {
+          next__MAHH=((__POINTER *)result__OAHH)[ 0];
+          if ((next__MAHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OAHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GAHH <<  1)) <=  4096)) {
+              next__MAHH=(void *)((unsigned long)result__OAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GAHH)));
             } else {
-              next__5XGH=new_lab__MRJ(new_size__ZXGH);
-            };
-            ((__POINTER *)next__5XGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AYGH)[ 0]=next__5XGH;
-          } else {
-            ((__POINTER *)result__BYGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5XGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__BYGH=next__5XGH;
-          };
-        };
-        ptr__VXGH=result__BYGH;
-      } else {
-        t__0XGH=((__UINTEGER_32 )typ_id__WXGH);
-        a__1XGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__IYGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XXGH + a__1XGH) & (__UINTEGER_32)(~ a__1XGH));
-        ptr_table__FYGH=((__POINTER )(&(table_type[(t__0XGH)])));
-        lab_type__HYGH=(__UINTEGER_32)(t__0XGH |  1);
-        next__EYGH=((__POINTER )(NULL));
-        result__GYGH=((__POINTER *)ptr_table__FYGH)[ 0];
-        if ((result__GYGH == (void *)NULL)) {
-          result__GYGH=new_lab__MRJ(lab_type__HYGH);
-          next__EYGH=(void *)((unsigned long)result__GYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IYGH)));
-          ((__POINTER *)next__EYGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FYGH)[ 0]=next__EYGH;
-        } else {
-          next__EYGH=((__POINTER *)result__GYGH)[ 0];
-          if ((next__EYGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GYGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IYGH <<  1)) <=  4096)) {
-              next__EYGH=(void *)((unsigned long)result__GYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IYGH)));
+              next__MAHH=new_lab__MRJ(new_size__GAHH);
+            };
+            ((__POINTER *)next__MAHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__NAHH)[ 0]=next__MAHH;
+          } else {
+            ((__POINTER *)result__OAHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MAHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__OAHH=next__MAHH;
+          };
+        };
+        ptr__CAHH=result__OAHH;
+      } else {
+        t__HAHH=((__UINTEGER_32 )typ_id__DAHH);
+        a__IAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__VAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__EAHH + a__IAHH) & (__UINTEGER_32)(~ a__IAHH));
+        ptr_table__SAHH=((__POINTER )(&(table_type[(t__HAHH)])));
+        lab_type__UAHH=(__UINTEGER_32)(t__HAHH |  1);
+        next__RAHH=((__POINTER )(NULL));
+        result__TAHH=((__POINTER *)ptr_table__SAHH)[ 0];
+        if ((result__TAHH == (void *)NULL)) {
+          result__TAHH=new_lab__MRJ(lab_type__UAHH);
+          next__RAHH=(void *)((unsigned long)result__TAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VAHH)));
+          ((__POINTER *)next__RAHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__SAHH)[ 0]=next__RAHH;
+        } else {
+          next__RAHH=((__POINTER *)result__TAHH)[ 0];
+          if ((next__RAHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TAHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VAHH <<  1)) <=  4096)) {
+              next__RAHH=(void *)((unsigned long)result__TAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VAHH)));
             } else {
-              next__EYGH=new_lab__MRJ(lab_type__HYGH);
+              next__RAHH=new_lab__MRJ(lab_type__UAHH);
             };
-            ((__POINTER *)next__EYGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FYGH)[ 0]=next__EYGH;
+            ((__POINTER *)next__RAHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__SAHH)[ 0]=next__RAHH;
           } else {
-            ((__POINTER *)result__GYGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EYGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__GYGH=next__EYGH;
+            ((__POINTER *)result__TAHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RAHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__TAHH=next__RAHH;
           };
         };
-        ptr__VXGH=result__GYGH;
+        ptr__CAHH=result__TAHH;
       };
-      result__UXGH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__VXGH);
-      *(result__UXGH) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
+      result__BAHH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__CAHH);
+      *(result__BAHH) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
     };
-    Self__2XGH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__UXGH);
-    Self__2XGH->item__KZR=e__KYR;
-    Self__2XGH->next__WZR=n__4XGH;
-    node__VYR=result__UXGH;
-    ((void **)Self__JYR->buckets__4YR)[idx__SYR]=result__UXGH;
+    Self__JAHH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__BAHH);
+    Self__JAHH->item__KZR=e__KYR;
+    Self__JAHH->next__WZR=n__LAHH;
+    node__VYR=result__BAHH;
+    ((void **)Self__JYR->buckets__4YR)[idx__SYR]=result__BAHH;
     Self__JYR->count__5ZR=(__INTEGER)(Self__JYR->count__5ZR +  1);
   };
 }
@@ -10787,7 +10950,7 @@ static void* operator__name__WGB(void *op__ZGB)
   while ((Self__0VB <= __tmp__BHB)) {
     c__1GB=((__CHARACTER *)((__STRING_CONSTANT *)op__ZGB)->storage__VQO)[(__INTEGER)(Self__0VB -  1)];
     if ((c__1GB == '+')) {
-      append__BOS(string_tmp__VH,(&__string_185));
+      append__BOS(string_tmp__VH,(&__string_188));
       __tmp__PHB=TRUE__;
     } else {
       __tmp__PHB=FALSE__;
@@ -10797,7 +10960,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__YFDB=(c__1GB == '-');
       if (result__YFDB) {
-        append__BOS(string_tmp__VH,(&__string_186));
+        append__BOS(string_tmp__VH,(&__string_189));
       };
       __tmp__2HB=result__YFDB;
     };
@@ -10806,7 +10969,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__KGDB=(c__1GB == '~');
       if (result__KGDB) {
-        append__BOS(string_tmp__VH,(&__string_187));
+        append__BOS(string_tmp__VH,(&__string_190));
       };
       __tmp__JIB=result__KGDB;
     };
@@ -10815,7 +10978,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__2GDB=(c__1GB == '!');
       if (result__2GDB) {
-        append__BOS(string_tmp__VH,(&__string_188));
+        append__BOS(string_tmp__VH,(&__string_191));
       };
       __tmp__WIB=result__2GDB;
     };
@@ -10824,7 +10987,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__OHDB=(c__1GB == '/');
       if (result__OHDB) {
-        append__BOS(string_tmp__VH,(&__string_189));
+        append__BOS(string_tmp__VH,(&__string_192));
       };
       __tmp__DJB=result__OHDB;
     };
@@ -10833,7 +10996,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__AIDB=(c__1GB == '*');
       if (result__AIDB) {
-        append__BOS(string_tmp__VH,(&__string_190));
+        append__BOS(string_tmp__VH,(&__string_193));
       };
       __tmp__QJB=result__AIDB;
     };
@@ -10842,7 +11005,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__SIDB=(c__1GB == '^');
       if (result__SIDB) {
-        append__BOS(string_tmp__VH,(&__string_191));
+        append__BOS(string_tmp__VH,(&__string_194));
       };
       __tmp__3JB=result__SIDB;
     };
@@ -10851,7 +11014,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__EJDB=(c__1GB == '%');
       if (result__EJDB) {
-        append__BOS(string_tmp__VH,(&__string_192));
+        append__BOS(string_tmp__VH,(&__string_195));
       };
       __tmp__KKB=result__EJDB;
     };
@@ -10860,7 +11023,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__WJDB=(c__1GB == '>');
       if (result__WJDB) {
-        append__BOS(string_tmp__VH,(&__string_193));
+        append__BOS(string_tmp__VH,(&__string_196));
       };
       __tmp__XKB=result__WJDB;
     };
@@ -10869,7 +11032,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__IKDB=(c__1GB == '<');
       if (result__IKDB) {
-        append__BOS(string_tmp__VH,(&__string_194));
+        append__BOS(string_tmp__VH,(&__string_197));
       };
       __tmp__ELB=result__IKDB;
     };
@@ -10878,7 +11041,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__0KDB=(c__1GB == '=');
       if (result__0KDB) {
-        append__BOS(string_tmp__VH,(&__string_195));
+        append__BOS(string_tmp__VH,(&__string_198));
       };
       __tmp__RLB=result__0KDB;
     };
@@ -10887,7 +11050,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__MLDB=(c__1GB == '\\');
       if (result__MLDB) {
-        append__BOS(string_tmp__VH,(&__string_196));
+        append__BOS(string_tmp__VH,(&__string_199));
       };
       __tmp__4LB=result__MLDB;
     };
@@ -10896,7 +11059,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__4LDB=(c__1GB == '|');
       if (result__4LDB) {
-        append__BOS(string_tmp__VH,(&__string_197));
+        append__BOS(string_tmp__VH,(&__string_200));
       };
       __tmp__LMB=result__4LDB;
     };
@@ -10905,7 +11068,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__QMDB=(c__1GB == '&');
       if (result__QMDB) {
-        append__BOS(string_tmp__VH,(&__string_198));
+        append__BOS(string_tmp__VH,(&__string_201));
       };
       __tmp__YMB=result__QMDB;
     };
@@ -10914,7 +11077,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__CNDB=(c__1GB == '$');
       if (result__CNDB) {
-        append__BOS(string_tmp__VH,(&__string_199));
+        append__BOS(string_tmp__VH,(&__string_202));
       };
       __tmp__FNB=result__CNDB;
     };
@@ -10923,7 +11086,7 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__UNDB=(c__1GB == '#');
       if (result__UNDB) {
-        append__BOS(string_tmp__VH,(&__string_200));
+        append__BOS(string_tmp__VH,(&__string_203));
       };
       __tmp__SNB=result__UNDB;
     };
@@ -10932,13 +11095,13 @@ static void* operator__name__WGB(void *op__ZGB)
     } else {
       result__GODB=(c__1GB == '@');
       if (result__GODB) {
-        append__BOS(string_tmp__VH,(&__string_201));
+        append__BOS(string_tmp__VH,(&__string_204));
       };
       __tmp__5NB=result__GODB;
     };
     if ((! __tmp__5NB)) {
       if ((c__1GB == '?')) {
-        append__BOS(string_tmp__VH,(&__string_202));
+        append__BOS(string_tmp__VH,(&__string_205));
       };
     };
     Self__0VB=(__INTEGER)(Self__0VB +  1);
@@ -10959,20 +11122,20 @@ static void* get__IWB(void *str__KWB)
   void *result__PLS;
   __STRING *Self__BGX;
   __INTEGER result__DGX,__tmp__EGX,Self__NV2,typ_id__HLD,c__QFT;
-  __INTEGER Self__PRFH,result__TYGH,__tmp__VYGH,Self__WYGH,idx__R3S;
+  __INTEGER Self__WZFH,result__ABHH,__tmp__CBHH,Self__DBHH,idx__R3S;
   __INTEGER typ_id__IGJB;
-  __STRING_CONSTANT *result__BLD,*result__YGF,*Self__OFT,*Self__UYGH;
-  __POINTER ptr__CLD,ptr_table__KYGH,next__JYGH,result__LYGH;
-  __POINTER ptr_table__PYGH,next__OYGH,result__QYGH,ptr__DGJB;
-  __POINTER ptr_table__ZYGH,next__YYGH,result__0YGH,ptr_table__4YGH;
-  __POINTER next__3YGH,result__5YGH;
-  __UINTEGER_32 sz__ELD,a__5RDH,new_size__ASDH,t__ESDH,a__DSDH;
-  __UINTEGER_32 new_size__SYGH,lab_type__RYGH,sz__FGJB,a__55DH;
-  __UINTEGER_32 new_size__AAEH,t__EAEH,a__DAEH,new_size__BZGH;
-  __UINTEGER_32 lab_type__AZGH;
+  __STRING_CONSTANT *result__BLD,*result__YGF,*Self__OFT,*Self__BBHH;
+  __POINTER ptr__CLD,ptr_table__XAHH,next__WAHH,result__YAHH;
+  __POINTER ptr_table__2AHH,next__1AHH,result__3AHH,ptr__DGJB;
+  __POINTER ptr_table__GBHH,next__FBHH,result__HBHH,ptr_table__LBHH;
+  __POINTER next__KBHH,result__MBHH;
+  __UINTEGER_32 sz__ELD,a__D1DH,new_size__E1DH,t__I1DH,a__H1DH;
+  __UINTEGER_32 new_size__5AHH,lab_type__4AHH,sz__FGJB,a__OJEH;
+  __UINTEGER_32 new_size__PJEH,t__TJEH,a__SJEH,new_size__OBHH;
+  __UINTEGER_32 lab_type__NBHH;
   __HASHED_SEToABSTRACT_STRINGo *Self__2KS,*Self__I3S;
   void *node__OLS,*node__S3S,*n__HKCB;
-  __CHARACTER *Self__QRFH,*model__RRFH;
+  __CHARACTER *Self__XZFH,*model__YZFH;
   __HASHED_SET_NODEoABSTRACT_STRINGo *result__CGJB,*Self__LADC;
   result__MWB=NULL;
   Self__2KS=((__HASHED_SEToABSTRACT_STRINGo *)list__FK);
@@ -11006,61 +11169,61 @@ static void* get__IWB(void *str__KWB)
       typ_id__HLD=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ELD);
       if ((typ_id__HLD == (__INTEGER)(-  1))) {
-        a__5RDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ASDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ELD + a__5RDH) & (__UINTEGER_32)(~ a__5RDH));
-        ptr_table__KYGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ASDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__JYGH=((__POINTER )(NULL));
-        result__LYGH=((__POINTER *)ptr_table__KYGH)[ 0];
-        if ((result__LYGH == (void *)NULL)) {
-          result__LYGH=new_lab__MRJ(new_size__ASDH);
-          next__JYGH=(void *)((unsigned long)result__LYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASDH)));
-          ((__POINTER *)next__JYGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KYGH)[ 0]=next__JYGH;
-        } else {
-          next__JYGH=((__POINTER *)result__LYGH)[ 0];
-          if ((next__JYGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LYGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ASDH <<  1)) <=  4096)) {
-              next__JYGH=(void *)((unsigned long)result__LYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASDH)));
+        a__D1DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__E1DH=(__UINTEGER_32)((__UINTEGER_32)(sz__ELD + a__D1DH) & (__UINTEGER_32)(~ a__D1DH));
+        ptr_table__XAHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__E1DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__WAHH=((__POINTER )(NULL));
+        result__YAHH=((__POINTER *)ptr_table__XAHH)[ 0];
+        if ((result__YAHH == (void *)NULL)) {
+          result__YAHH=new_lab__MRJ(new_size__E1DH);
+          next__WAHH=(void *)((unsigned long)result__YAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E1DH)));
+          ((__POINTER *)next__WAHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__XAHH)[ 0]=next__WAHH;
+        } else {
+          next__WAHH=((__POINTER *)result__YAHH)[ 0];
+          if ((next__WAHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YAHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__E1DH <<  1)) <=  4096)) {
+              next__WAHH=(void *)((unsigned long)result__YAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E1DH)));
             } else {
-              next__JYGH=new_lab__MRJ(new_size__ASDH);
-            };
-            ((__POINTER *)next__JYGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__KYGH)[ 0]=next__JYGH;
-          } else {
-            ((__POINTER *)result__LYGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JYGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__LYGH=next__JYGH;
-          };
-        };
-        ptr__CLD=result__LYGH;
-      } else {
-        t__ESDH=((__UINTEGER_32 )typ_id__HLD);
-        a__DSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__SYGH=(__UINTEGER_32)((__UINTEGER_32)(sz__ELD + a__DSDH) & (__UINTEGER_32)(~ a__DSDH));
-        ptr_table__PYGH=((__POINTER )(&(table_type[(t__ESDH)])));
-        lab_type__RYGH=(__UINTEGER_32)(t__ESDH |  1);
-        next__OYGH=((__POINTER )(NULL));
-        result__QYGH=((__POINTER *)ptr_table__PYGH)[ 0];
-        if ((result__QYGH == (void *)NULL)) {
-          result__QYGH=new_lab__MRJ(lab_type__RYGH);
-          next__OYGH=(void *)((unsigned long)result__QYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SYGH)));
-          ((__POINTER *)next__OYGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PYGH)[ 0]=next__OYGH;
-        } else {
-          next__OYGH=((__POINTER *)result__QYGH)[ 0];
-          if ((next__OYGH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QYGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SYGH <<  1)) <=  4096)) {
-              next__OYGH=(void *)((unsigned long)result__QYGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SYGH)));
+              next__WAHH=new_lab__MRJ(new_size__E1DH);
+            };
+            ((__POINTER *)next__WAHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__XAHH)[ 0]=next__WAHH;
+          } else {
+            ((__POINTER *)result__YAHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WAHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__YAHH=next__WAHH;
+          };
+        };
+        ptr__CLD=result__YAHH;
+      } else {
+        t__I1DH=((__UINTEGER_32 )typ_id__HLD);
+        a__H1DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__5AHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ELD + a__H1DH) & (__UINTEGER_32)(~ a__H1DH));
+        ptr_table__2AHH=((__POINTER )(&(table_type[(t__I1DH)])));
+        lab_type__4AHH=(__UINTEGER_32)(t__I1DH |  1);
+        next__1AHH=((__POINTER )(NULL));
+        result__3AHH=((__POINTER *)ptr_table__2AHH)[ 0];
+        if ((result__3AHH == (void *)NULL)) {
+          result__3AHH=new_lab__MRJ(lab_type__4AHH);
+          next__1AHH=(void *)((unsigned long)result__3AHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5AHH)));
+          ((__POINTER *)next__1AHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__2AHH)[ 0]=next__1AHH;
+        } else {
+          next__1AHH=((__POINTER *)result__3AHH)[ 0];
+          if ((next__1AHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3AHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5AHH <<  1)) <=  4096)) {
+              next__1AHH=(void *)((unsigned long)result__3AHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5AHH)));
             } else {
-              next__OYGH=new_lab__MRJ(lab_type__RYGH);
+              next__1AHH=new_lab__MRJ(lab_type__4AHH);
             };
-            ((__POINTER *)next__OYGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__PYGH)[ 0]=next__OYGH;
+            ((__POINTER *)next__1AHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__2AHH)[ 0]=next__1AHH;
           } else {
-            ((__POINTER *)result__QYGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OYGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__QYGH=next__OYGH;
+            ((__POINTER *)result__3AHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1AHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__3AHH=next__1AHH;
           };
         };
-        ptr__CLD=result__QYGH;
+        ptr__CLD=result__3AHH;
       };
       result__BLD=((__STRING_CONSTANT *)ptr__CLD);
       *(result__BLD) = *(STRING_CONSTANT__);
@@ -11070,12 +11233,12 @@ static void* get__IWB(void *str__KWB)
     c__QFT=((__STRING *)str__KWB)->count__WFC;
     if ((c__QFT !=  0)) {
       Self__OFT->storage__VQO=create__BMEB((__INTEGER)(c__QFT +  1));
-      Self__QRFH=((__CHARACTER *)Self__OFT->storage__VQO);
-      model__RRFH=((__STRING *)str__KWB)->storage__BCS;
-      Self__PRFH=(__INTEGER)(c__QFT -  1);
-      while ((Self__PRFH >=  0)) {
-        Self__QRFH[Self__PRFH]=((__CHARACTER *)model__RRFH)[Self__PRFH];
-        Self__PRFH=(__INTEGER)(Self__PRFH -  1);
+      Self__XZFH=((__CHARACTER *)Self__OFT->storage__VQO);
+      model__YZFH=((__STRING *)str__KWB)->storage__BCS;
+      Self__WZFH=(__INTEGER)(c__QFT -  1);
+      while ((Self__WZFH >=  0)) {
+        Self__XZFH[Self__WZFH]=((__CHARACTER *)model__YZFH)[Self__WZFH];
+        Self__WZFH=(__INTEGER)(Self__WZFH -  1);
       };
       ((__CHARACTER *)Self__OFT->storage__VQO)[c__QFT]='\0';
       Self__OFT->count__DD=c__QFT;
@@ -11084,18 +11247,18 @@ static void* get__IWB(void *str__KWB)
     Self__I3S=((__HASHED_SEToABSTRACT_STRINGo *)list__FK);
     fast_has__OAY(Self__I3S,result__BLD);
     fast_has__OAY(Self__I3S,result__BLD);
-    Self__UYGH=((__STRING_CONSTANT *)result__BLD);
-    result__TYGH= 0;
-    __tmp__VYGH=Self__UYGH->count__DD;
-    Self__WYGH= 1;
-    while ((Self__WYGH <= __tmp__VYGH)) {
-      result__TYGH=(__INTEGER)((__INTEGER)( 5 * result__TYGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__UYGH->storage__VQO)[(__INTEGER)(Self__WYGH -  1)])));
-      Self__WYGH=(__INTEGER)(Self__WYGH +  1);
-    };
-    if ((result__TYGH <  0)) {
-      result__TYGH=(__INTEGER)(~ result__TYGH);
-    };
-    idx__R3S=(__INTEGER)(result__TYGH % Self__I3S->capacity__ZYR);
+    Self__BBHH=((__STRING_CONSTANT *)result__BLD);
+    result__ABHH= 0;
+    __tmp__CBHH=Self__BBHH->count__DD;
+    Self__DBHH= 1;
+    while ((Self__DBHH <= __tmp__CBHH)) {
+      result__ABHH=(__INTEGER)((__INTEGER)( 5 * result__ABHH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__BBHH->storage__VQO)[(__INTEGER)(Self__DBHH -  1)])));
+      Self__DBHH=(__INTEGER)(Self__DBHH +  1);
+    };
+    if ((result__ABHH <  0)) {
+      result__ABHH=(__INTEGER)(~ result__ABHH);
+    };
+    idx__R3S=(__INTEGER)(result__ABHH % Self__I3S->capacity__ZYR);
     node__S3S=((void **)Self__I3S->buckets__4YR)[idx__R3S];
     while ((! (((void *)node__S3S == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__S3S)->item__KZR == (void *)result__YGF)))) {
       node__S3S=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__S3S)->next__WZR;
@@ -11103,7 +11266,7 @@ static void* get__IWB(void *str__KWB)
     if (((void *)node__S3S == (void *)NULL)) {
       if ((Self__I3S->capacity__ZYR == Self__I3S->count__5ZR)) {
         increase_capacity__4RNB(Self__I3S);
-        idx__R3S=(__INTEGER)(result__TYGH % Self__I3S->capacity__ZYR);
+        idx__R3S=(__INTEGER)(result__ABHH % Self__I3S->capacity__ZYR);
       };
       n__HKCB=((void **)Self__I3S->buckets__4YR)[idx__R3S];
       result__CGJB=NULL;
@@ -11116,61 +11279,61 @@ static void* get__IWB(void *str__KWB)
         typ_id__IGJB=__HASHED_SET_NODEoABSTRACT_STRINGo__;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FGJB);
         if ((typ_id__IGJB == (__INTEGER)(-  1))) {
-          a__55DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__AAEH=(__UINTEGER_32)((__UINTEGER_32)(sz__FGJB + a__55DH) & (__UINTEGER_32)(~ a__55DH));
-          ptr_table__ZYGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AAEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__YYGH=((__POINTER )(NULL));
-          result__0YGH=((__POINTER *)ptr_table__ZYGH)[ 0];
-          if ((result__0YGH == (void *)NULL)) {
-            result__0YGH=new_lab__MRJ(new_size__AAEH);
-            next__YYGH=(void *)((unsigned long)result__0YGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AAEH)));
-            ((__POINTER *)next__YYGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ZYGH)[ 0]=next__YYGH;
-          } else {
-            next__YYGH=((__POINTER *)result__0YGH)[ 0];
-            if ((next__YYGH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0YGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AAEH <<  1)) <=  4096)) {
-                next__YYGH=(void *)((unsigned long)result__0YGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AAEH)));
+          a__OJEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__PJEH=(__UINTEGER_32)((__UINTEGER_32)(sz__FGJB + a__OJEH) & (__UINTEGER_32)(~ a__OJEH));
+          ptr_table__GBHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PJEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__FBHH=((__POINTER )(NULL));
+          result__HBHH=((__POINTER *)ptr_table__GBHH)[ 0];
+          if ((result__HBHH == (void *)NULL)) {
+            result__HBHH=new_lab__MRJ(new_size__PJEH);
+            next__FBHH=(void *)((unsigned long)result__HBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PJEH)));
+            ((__POINTER *)next__FBHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__GBHH)[ 0]=next__FBHH;
+          } else {
+            next__FBHH=((__POINTER *)result__HBHH)[ 0];
+            if ((next__FBHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HBHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PJEH <<  1)) <=  4096)) {
+                next__FBHH=(void *)((unsigned long)result__HBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PJEH)));
               } else {
-                next__YYGH=new_lab__MRJ(new_size__AAEH);
+                next__FBHH=new_lab__MRJ(new_size__PJEH);
               };
-              ((__POINTER *)next__YYGH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__ZYGH)[ 0]=next__YYGH;
+              ((__POINTER *)next__FBHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__GBHH)[ 0]=next__FBHH;
             } else {
-              ((__POINTER *)result__0YGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YYGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__0YGH=next__YYGH;
-            };
-          };
-          ptr__DGJB=result__0YGH;
-        } else {
-          t__EAEH=((__UINTEGER_32 )typ_id__IGJB);
-          a__DAEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__BZGH=(__UINTEGER_32)((__UINTEGER_32)(sz__FGJB + a__DAEH) & (__UINTEGER_32)(~ a__DAEH));
-          ptr_table__4YGH=((__POINTER )(&(table_type[(t__EAEH)])));
-          lab_type__AZGH=(__UINTEGER_32)(t__EAEH |  1);
-          next__3YGH=((__POINTER )(NULL));
-          result__5YGH=((__POINTER *)ptr_table__4YGH)[ 0];
-          if ((result__5YGH == (void *)NULL)) {
-            result__5YGH=new_lab__MRJ(lab_type__AZGH);
-            next__3YGH=(void *)((unsigned long)result__5YGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BZGH)));
-            ((__POINTER *)next__3YGH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__4YGH)[ 0]=next__3YGH;
-          } else {
-            next__3YGH=((__POINTER *)result__5YGH)[ 0];
-            if ((next__3YGH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5YGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BZGH <<  1)) <=  4096)) {
-                next__3YGH=(void *)((unsigned long)result__5YGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BZGH)));
+              ((__POINTER *)result__HBHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FBHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__HBHH=next__FBHH;
+            };
+          };
+          ptr__DGJB=result__HBHH;
+        } else {
+          t__TJEH=((__UINTEGER_32 )typ_id__IGJB);
+          a__SJEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__OBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__FGJB + a__SJEH) & (__UINTEGER_32)(~ a__SJEH));
+          ptr_table__LBHH=((__POINTER )(&(table_type[(t__TJEH)])));
+          lab_type__NBHH=(__UINTEGER_32)(t__TJEH |  1);
+          next__KBHH=((__POINTER )(NULL));
+          result__MBHH=((__POINTER *)ptr_table__LBHH)[ 0];
+          if ((result__MBHH == (void *)NULL)) {
+            result__MBHH=new_lab__MRJ(lab_type__NBHH);
+            next__KBHH=(void *)((unsigned long)result__MBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OBHH)));
+            ((__POINTER *)next__KBHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__LBHH)[ 0]=next__KBHH;
+          } else {
+            next__KBHH=((__POINTER *)result__MBHH)[ 0];
+            if ((next__KBHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MBHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OBHH <<  1)) <=  4096)) {
+                next__KBHH=(void *)((unsigned long)result__MBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OBHH)));
               } else {
-                next__3YGH=new_lab__MRJ(lab_type__AZGH);
+                next__KBHH=new_lab__MRJ(lab_type__NBHH);
               };
-              ((__POINTER *)next__3YGH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__4YGH)[ 0]=next__3YGH;
+              ((__POINTER *)next__KBHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__LBHH)[ 0]=next__KBHH;
             } else {
-              ((__POINTER *)result__5YGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3YGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__5YGH=next__3YGH;
+              ((__POINTER *)result__MBHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KBHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__MBHH=next__KBHH;
             };
           };
-          ptr__DGJB=result__5YGH;
+          ptr__DGJB=result__MBHH;
         };
         result__CGJB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__DGJB);
         *(result__CGJB) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
@@ -11196,8 +11359,8 @@ static void* get__IWB(void *str__KWB)
 static void copy__ZCS(__STRING *Self__0CS,void *other__1CS)
 // ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__2CS,Self__0RFH;
-  __CHARACTER *__tmp__RDS,*__tmp__TDS,*Self__1RFH,*model__2RFH;
+  __INTEGER __tmp__2CS,Self__B0FH;
+  __CHARACTER *__tmp__RDS,*__tmp__TDS,*Self__C0FH,*model__D0FH;
   if (((struct ___OBJ *)other__1CS)->__id==__STRING_CONSTANT__) {
     __tmp__2CS=((__STRING_CONSTANT *)other__1CS)->count__DD;
   } else {
@@ -11215,12 +11378,12 @@ static void copy__ZCS(__STRING *Self__0CS,void *other__1CS)
     } else {
       __tmp__TDS=((__STRING *)other__1CS)->storage__BCS;
     };
-    Self__1RFH=((__CHARACTER *)__tmp__RDS);
-    model__2RFH=__tmp__TDS;
-    Self__0RFH=(__INTEGER)(Self__0CS->count__WFC -  1);
-    while ((Self__0RFH >=  0)) {
-      Self__1RFH[Self__0RFH]=((__CHARACTER *)model__2RFH)[Self__0RFH];
-      Self__0RFH=(__INTEGER)(Self__0RFH -  1);
+    Self__C0FH=((__CHARACTER *)__tmp__RDS);
+    model__D0FH=__tmp__TDS;
+    Self__B0FH=(__INTEGER)(Self__0CS->count__WFC -  1);
+    while ((Self__B0FH >=  0)) {
+      Self__C0FH[Self__B0FH]=((__CHARACTER *)model__D0FH)[Self__B0FH];
+      Self__B0FH=(__INTEGER)(Self__B0FH -  1);
     };
   };
 }
@@ -11229,7 +11392,7 @@ static void append__BOS(__STRING *Self__COS,void *other__DOS)
 // ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
 {
   __INTEGER __tmp__MOS,needed_capacity__FOS,old_nb_elts__Z0DC;
-  __INTEGER upper__ESFH,Self__CSFH,dest__FLBC,src_capacity__GLBC;
+  __INTEGER upper__L0FH,Self__J0FH,dest__FLBC,src_capacity__GLBC;
   __INTEGER i2__WLBC,i1__VLBC;
   __CHARACTER *Self__Y0DC,*new__Q1DC,*__tmp__JPS,*__tmp__KPS,*Self__DLBC;
   __CHARACTER *src__ELBC;
@@ -11247,11 +11410,11 @@ static void append__BOS(__STRING *Self__COS,void *other__DOS)
       Self__Y0DC=((__CHARACTER *)Self__COS->storage__BCS);
       old_nb_elts__Z0DC=Self__COS->capacity__YBS;
       new__Q1DC=((__CHARACTER *)realloc_dynamic__old_size__new_size__RELC(((__POINTER )Self__Y0DC),((__UINTEGER_32 )old_nb_elts__Z0DC),((__UINTEGER_32 )needed_capacity__FOS)));
-      upper__ESFH=(__INTEGER)(needed_capacity__FOS -  1);
-      Self__CSFH=old_nb_elts__Z0DC;
-      while ((Self__CSFH <= upper__ESFH)) {
-        new__Q1DC[Self__CSFH]='\0';
-        Self__CSFH=(__INTEGER)(Self__CSFH +  1);
+      upper__L0FH=(__INTEGER)(needed_capacity__FOS -  1);
+      Self__J0FH=old_nb_elts__Z0DC;
+      while ((Self__J0FH <= upper__L0FH)) {
+        new__Q1DC[Self__J0FH]='\0';
+        Self__J0FH=(__INTEGER)(Self__J0FH +  1);
       };
       Self__COS->storage__BCS=new__Q1DC;
       Self__COS->capacity__YBS=needed_capacity__FOS;
@@ -11280,28 +11443,28 @@ static void append__BOS(__STRING *Self__COS,void *other__DOS)
 static void* parent_directory__OED()
 // () With resultNo recursive, No inlinable.
 {
-  __STRING *Self__JSFH,*Self__CZGH;
+  __STRING *Self__Q0FH,*Self__PBHH;
   void *__tmp__4ED;
   void *__tmp__5ED,*result__SED;
   __CHARACTER *cwd__RED;
   ((__STRING *)string_tmp__TED)->count__WFC= 0;
-  Self__JSFH=((__STRING *)string_tmp__TED);
-  if ((Self__JSFH->capacity__YBS > Self__JSFH->count__WFC)) {
-    ((__CHARACTER *)Self__JSFH->storage__BCS)[Self__JSFH->count__WFC]='\0';
+  Self__Q0FH=((__STRING *)string_tmp__TED);
+  if ((Self__Q0FH->capacity__YBS > Self__Q0FH->count__WFC)) {
+    ((__CHARACTER *)Self__Q0FH->storage__BCS)[Self__Q0FH->count__WFC]='\0';
   } else {
-    add_last__ZLT(Self__JSFH,'\0');
-    Self__JSFH->count__WFC=(__INTEGER)(Self__JSFH->count__WFC -  1);
+    add_last__ZLT(Self__Q0FH,'\0');
+    Self__Q0FH->count__WFC=(__INTEGER)(Self__Q0FH->count__WFC -  1);
   };
-  cwd__RED=Self__JSFH->storage__BCS;
+  cwd__RED=Self__Q0FH->storage__BCS;
   getcwd((cwd__RED),255);
-  Self__CZGH=((__STRING *)string_tmp__TED);
-  Self__CZGH->count__WFC= 0;
-  while ((((__CHARACTER *)cwd__RED)[Self__CZGH->count__WFC] != '\0')) {
-    Self__CZGH->count__WFC=(__INTEGER)(Self__CZGH->count__WFC +  1);
+  Self__PBHH=((__STRING *)string_tmp__TED);
+  Self__PBHH->count__WFC= 0;
+  while ((((__CHARACTER *)cwd__RED)[Self__PBHH->count__WFC] != '\0')) {
+    Self__PBHH->count__WFC=(__INTEGER)(Self__PBHH->count__WFC +  1);
   };
-  if (((void *)Self__CZGH->storage__BCS != (void *)cwd__RED)) {
-    Self__CZGH->storage__BCS=cwd__RED;
-    Self__CZGH->capacity__YBS=(__INTEGER)(Self__CZGH->count__WFC +  1);
+  if (((void *)Self__PBHH->storage__BCS != (void *)cwd__RED)) {
+    Self__PBHH->storage__BCS=cwd__RED;
+    Self__PBHH->capacity__YBS=(__INTEGER)(Self__PBHH->count__WFC +  1);
   };
   __tmp__4ED=physical_get_entry__JCF(string_tmp__TED);
   if (__tmp__4ED==NULL) {
@@ -11327,10 +11490,10 @@ static void* get_entry__T0AC(void *p__V0AC)
 // ({NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
 {
   void *result__X0AC;
-  __INTEGER idx__Y0AC,idx__RZFH,n__WZFH,n__XZFH,__tmp__C3AC;
+  __INTEGER idx__Y0AC,idx__4BGH,n__DCGH,n__ECGH,__tmp__C3AC;
   void *__tmp__JFIC,*__tmp__N3AC,*dir__L3AC;
-  __STRING *Self__FSDH,*Self__VZFH;
-  __CHARACTER *Self__TZFH;
+  __STRING *Self__J1DH,*Self__CCGH;
+  __CHARACTER *Self__ACGH;
   __BOOLEAN __tmp__R2AC,__tmp__22AC;
   result__X0AC=NULL;
   idx__Y0AC= 0;
@@ -11387,26 +11550,26 @@ static void* get_entry__T0AC(void *p__V0AC)
       } else {
         parent_directory__OED();
       };
-      Self__FSDH=((__STRING *)string_tmp2__Z0AC);
-      Self__TZFH=((__CHARACTER *)Self__FSDH->storage__BCS);
-      idx__RZFH=(__INTEGER)(Self__FSDH->count__WFC -  1);
-      while ((! ((idx__RZFH <  0) || ('/' == Self__TZFH[idx__RZFH])))) {
-        idx__RZFH=(__INTEGER)(idx__RZFH -  1);
+      Self__J1DH=((__STRING *)string_tmp2__Z0AC);
+      Self__ACGH=((__CHARACTER *)Self__J1DH->storage__BCS);
+      idx__4BGH=(__INTEGER)(Self__J1DH->count__WFC -  1);
+      while ((! ((idx__4BGH <  0) || ('/' == Self__ACGH[idx__4BGH])))) {
+        idx__4BGH=(__INTEGER)(idx__4BGH -  1);
       };
-      idx__Y0AC=(__INTEGER)( 1 + idx__RZFH);
+      idx__Y0AC=(__INTEGER)( 1 + idx__4BGH);
       if ((idx__Y0AC >  0)) {
         if (FILE_SYSTEM__->parent_directory__PFD==0) {
         } else {
           parent_directory__OED();
         };
-        Self__VZFH=((__STRING *)string_tmp2__Z0AC);
-        n__WZFH=(__INTEGER)(idx__Y0AC -  1);
-        if ((n__WZFH < Self__VZFH->count__WFC)) {
-          n__XZFH=(__INTEGER)(Self__VZFH->count__WFC - n__WZFH);
-          if ((n__XZFH > Self__VZFH->count__WFC)) {
-            Self__VZFH->count__WFC= 0;
+        Self__CCGH=((__STRING *)string_tmp2__Z0AC);
+        n__DCGH=(__INTEGER)(idx__Y0AC -  1);
+        if ((n__DCGH < Self__CCGH->count__WFC)) {
+          n__ECGH=(__INTEGER)(Self__CCGH->count__WFC - n__DCGH);
+          if ((n__ECGH > Self__CCGH->count__WFC)) {
+            Self__CCGH->count__WFC= 0;
           } else {
-            Self__VZFH->count__WFC=(__INTEGER)(Self__VZFH->count__WFC - n__XZFH);
+            Self__CCGH->count__WFC=(__INTEGER)(Self__CCGH->count__WFC - n__ECGH);
           };
         };
       } else {
@@ -11507,30 +11670,30 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
 // ({NULLxSTRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
   __PROTOTYPE *result__1UC,*Self__ATS;
-  __POINTER ptr__2UC,ptr_table__GZGH,next__FZGH,result__HZGH;
-  __POINTER ptr_table__LZGH,next__KZGH,result__MZGH,ptr__GF3;
-  __POINTER ptr_table__ZZGH,next__YZGH,result__0ZGH,ptr_table__4ZGH;
-  __POINTER next__3ZGH,result__5ZGH,ptr__L1GD,ptr_table__I0GH;
-  __POINTER next__H0GH,result__J0GH,ptr_table__N0GH,next__M0GH;
-  __POINTER result__O0GH,file__ETS,ptr__LL3,ptr_table__S0GH,next__R0GH;
-  __POINTER result__T0GH,ptr_table__X0GH,next__W0GH,result__Y0GH;
-  __INTEGER typ_id__BVC,idx__ZZFH,idx__HTS,len__RZGH,__tmp__SZGH;
-  __INTEGER __tmp__UZGH,Self__VZGH,typ_id__LF3,new_capacity__STX;
-  __INTEGER __tmp__WUX,__tmp__BOEC,Self__JPVD,result__C0GH,__tmp__E0GH;
-  __INTEGER Self__F0GH,idx__MNBC,idx__AZGD,new_capacity__BZGD,i__CZGD;
+  __POINTER ptr__2UC,ptr_table__TBHH,next__SBHH,result__UBHH;
+  __POINTER ptr_table__YBHH,next__XBHH,result__ZBHH,ptr__GF3;
+  __POINTER ptr_table__GCHH,next__FCHH,result__HCHH,ptr_table__LCHH;
+  __POINTER next__KCHH,result__MCHH,ptr__L1GD,ptr_table__VCHH;
+  __POINTER next__UCHH,result__WCHH,ptr_table__0CHH,next__ZCHH;
+  __POINTER result__1CHH,file__ETS,ptr__LL3,ptr_table__5CHH,next__4CHH;
+  __POINTER result__ADHH,ptr_table__EDHH,next__DDHH,result__FDHH;
+  __INTEGER typ_id__BVC,idx__GCGH,idx__HTS,len__4BHH,__tmp__5BHH;
+  __INTEGER __tmp__BCHH,Self__CCHH,typ_id__LF3,new_capacity__STX;
+  __INTEGER __tmp__WUX,__tmp__BOEC,Self__JPVD,result__PCHH,__tmp__RCHH;
+  __INTEGER Self__SCHH,idx__MNBC,idx__AZGD,new_capacity__BZGD,i__CZGD;
   __INTEGER result__AOW,__tmp__BOW,Self__XT1,typ_id__Q1GD,result__TWX;
   __INTEGER typ_id__QL3,new_capacity__TMJC;
-  __UINTEGER_32 sz__4UC,a__OSDH,new_size__PSDH,t__TSDH,a__SSDH;
-  __UINTEGER_32 new_size__OZGH,lab_type__NZGH,sz__IF3,a__WSDH;
-  __UINTEGER_32 new_size__XSDH,t__1SDH,a__0SDH,new_size__B0GH;
-  __UINTEGER_32 lab_type__A0GH,sz__N1GD,a__NTDH,new_size__OTDH,t__STDH;
-  __UINTEGER_32 a__RTDH,new_size__Q0GH,lab_type__P0GH,sz__NL3,a__VTDH;
-  __UINTEGER_32 new_size__WTDH,t__0TDH,a__ZTDH,new_size__00GH;
-  __UINTEGER_32 lab_type__Z0GH;
-  __STRING_CONSTANT *Self__YRX,*Self__D0GH,*Self__4NW;
-  __STRING *Self__MSFH,*Self__USFH,*Self__XSFH,*Self__3YS;
+  __UINTEGER_32 sz__4UC,a__S1DH,new_size__T1DH,t__X1DH,a__W1DH;
+  __UINTEGER_32 new_size__1BHH,lab_type__0BHH,sz__IF3,a__01DH;
+  __UINTEGER_32 new_size__11DH,t__51DH,a__41DH,new_size__OCHH;
+  __UINTEGER_32 lab_type__NCHH,sz__N1GD,a__R2DH,new_size__S2DH,t__W2DH;
+  __UINTEGER_32 a__V2DH,new_size__3CHH,lab_type__2CHH,sz__NL3,a__Z2DH;
+  __UINTEGER_32 new_size__02DH,t__42DH,a__32DH,new_size__HDHH;
+  __UINTEGER_32 lab_type__GDHH;
+  __STRING_CONSTANT *Self__YRX,*Self__QCHH,*Self__4NW;
+  __STRING *Self__T0FH,*Self__10FH,*Self__40FH,*Self__3YS;
   void *__tmp__VUS;
-  __CHARACTER *Self__1ZFH,*ptr__2WX;
+  __CHARACTER *Self__ICGH,*ptr__2WX;
   __FAST_ARRAYoITM_TYPE_PARAMETERo *result__FF3,*Self__52BC;
   __FAST_ARRAYoPROTOTYPEo *Self__QTX;
   __BOOLEAN __tmp__AUX;
@@ -11551,61 +11714,61 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
     typ_id__BVC=__PROTOTYPE__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__4UC);
     if ((typ_id__BVC == (__INTEGER)(-  1))) {
-      a__OSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PSDH=(__UINTEGER_32)((__UINTEGER_32)(sz__4UC + a__OSDH) & (__UINTEGER_32)(~ a__OSDH));
-      ptr_table__GZGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PSDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__FZGH=((__POINTER )(NULL));
-      result__HZGH=((__POINTER *)ptr_table__GZGH)[ 0];
-      if ((result__HZGH == (void *)NULL)) {
-        result__HZGH=new_lab__MRJ(new_size__PSDH);
-        next__FZGH=(void *)((unsigned long)result__HZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSDH)));
-        ((__POINTER *)next__FZGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GZGH)[ 0]=next__FZGH;
+      a__S1DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__T1DH=(__UINTEGER_32)((__UINTEGER_32)(sz__4UC + a__S1DH) & (__UINTEGER_32)(~ a__S1DH));
+      ptr_table__TBHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T1DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__SBHH=((__POINTER )(NULL));
+      result__UBHH=((__POINTER *)ptr_table__TBHH)[ 0];
+      if ((result__UBHH == (void *)NULL)) {
+        result__UBHH=new_lab__MRJ(new_size__T1DH);
+        next__SBHH=(void *)((unsigned long)result__UBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T1DH)));
+        ((__POINTER *)next__SBHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__TBHH)[ 0]=next__SBHH;
       } else {
-        next__FZGH=((__POINTER *)result__HZGH)[ 0];
-        if ((next__FZGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HZGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PSDH <<  1)) <=  4096)) {
-            next__FZGH=(void *)((unsigned long)result__HZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSDH)));
+        next__SBHH=((__POINTER *)result__UBHH)[ 0];
+        if ((next__SBHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UBHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__T1DH <<  1)) <=  4096)) {
+            next__SBHH=(void *)((unsigned long)result__UBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T1DH)));
           } else {
-            next__FZGH=new_lab__MRJ(new_size__PSDH);
+            next__SBHH=new_lab__MRJ(new_size__T1DH);
           };
-          ((__POINTER *)next__FZGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GZGH)[ 0]=next__FZGH;
+          ((__POINTER *)next__SBHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__TBHH)[ 0]=next__SBHH;
         } else {
-          ((__POINTER *)result__HZGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FZGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__HZGH=next__FZGH;
+          ((__POINTER *)result__UBHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SBHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__UBHH=next__SBHH;
         };
       };
-      ptr__2UC=result__HZGH;
+      ptr__2UC=result__UBHH;
     } else {
-      t__TSDH=((__UINTEGER_32 )typ_id__BVC);
-      a__SSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__OZGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4UC + a__SSDH) & (__UINTEGER_32)(~ a__SSDH));
-      ptr_table__LZGH=((__POINTER )(&(table_type[(t__TSDH)])));
-      lab_type__NZGH=(__UINTEGER_32)(t__TSDH |  1);
-      next__KZGH=((__POINTER )(NULL));
-      result__MZGH=((__POINTER *)ptr_table__LZGH)[ 0];
-      if ((result__MZGH == (void *)NULL)) {
-        result__MZGH=new_lab__MRJ(lab_type__NZGH);
-        next__KZGH=(void *)((unsigned long)result__MZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZGH)));
-        ((__POINTER *)next__KZGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LZGH)[ 0]=next__KZGH;
+      t__X1DH=((__UINTEGER_32 )typ_id__BVC);
+      a__W1DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__1BHH=(__UINTEGER_32)((__UINTEGER_32)(sz__4UC + a__W1DH) & (__UINTEGER_32)(~ a__W1DH));
+      ptr_table__YBHH=((__POINTER )(&(table_type[(t__X1DH)])));
+      lab_type__0BHH=(__UINTEGER_32)(t__X1DH |  1);
+      next__XBHH=((__POINTER )(NULL));
+      result__ZBHH=((__POINTER *)ptr_table__YBHH)[ 0];
+      if ((result__ZBHH == (void *)NULL)) {
+        result__ZBHH=new_lab__MRJ(lab_type__0BHH);
+        next__XBHH=(void *)((unsigned long)result__ZBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BHH)));
+        ((__POINTER *)next__XBHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__YBHH)[ 0]=next__XBHH;
       } else {
-        next__KZGH=((__POINTER *)result__MZGH)[ 0];
-        if ((next__KZGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MZGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OZGH <<  1)) <=  4096)) {
-            next__KZGH=(void *)((unsigned long)result__MZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZGH)));
+        next__XBHH=((__POINTER *)result__ZBHH)[ 0];
+        if ((next__XBHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZBHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1BHH <<  1)) <=  4096)) {
+            next__XBHH=(void *)((unsigned long)result__ZBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BHH)));
           } else {
-            next__KZGH=new_lab__MRJ(lab_type__NZGH);
+            next__XBHH=new_lab__MRJ(lab_type__0BHH);
           };
-          ((__POINTER *)next__KZGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LZGH)[ 0]=next__KZGH;
+          ((__POINTER *)next__XBHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__YBHH)[ 0]=next__XBHH;
         } else {
-          ((__POINTER *)result__MZGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KZGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__MZGH=next__KZGH;
+          ((__POINTER *)result__ZBHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XBHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__ZBHH=next__XBHH;
         };
       };
-      ptr__2UC=result__MZGH;
+      ptr__2UC=result__ZBHH;
     };
     result__1UC=((__PROTOTYPE *)ptr__2UC);
     *(result__1UC) = *(PROTOTYPE__);
@@ -11614,29 +11777,29 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
   Self__ATS->filename__UPG=f__1AC;
   Self__ATS->parent_named__5.name__LI=n__2AC;
   Self__YRX=((__STRING_CONSTANT *)n__2AC);
-  Self__1ZFH=((__CHARACTER *)Self__YRX->storage__VQO);
-  idx__ZZFH=(__INTEGER)(Self__YRX->count__DD -  1);
-  while ((! ((idx__ZZFH <  0) || ('.' == Self__1ZFH[idx__ZZFH])))) {
-    idx__ZZFH=(__INTEGER)(idx__ZZFH -  1);
+  Self__ICGH=((__CHARACTER *)Self__YRX->storage__VQO);
+  idx__GCGH=(__INTEGER)(Self__YRX->count__DD -  1);
+  while ((! ((idx__GCGH <  0) || ('.' == Self__ICGH[idx__GCGH])))) {
+    idx__GCGH=(__INTEGER)(idx__GCGH -  1);
   };
-  idx__HTS=(__INTEGER)( 1 + idx__ZZFH);
+  idx__HTS=(__INTEGER)( 1 + idx__GCGH);
   if ((idx__HTS !=  0)) {
     copy__ZCS(string_tmp__VH,n__2AC);
-    Self__MSFH=((__STRING *)string_tmp__VH);
-    if ((idx__HTS > Self__MSFH->count__WFC)) {
-      Self__MSFH->count__WFC= 0;
+    Self__T0FH=((__STRING *)string_tmp__VH);
+    if ((idx__HTS > Self__T0FH->count__WFC)) {
+      Self__T0FH->count__WFC= 0;
     } else {
       if ((idx__HTS >  0)) {
-        len__RZGH=(__INTEGER)((__INTEGER)(idx__HTS -  1) +  1);
-        if ((len__RZGH >  0)) {
-          __tmp__SZGH=(__INTEGER)(idx__HTS +  1);
-          __tmp__UZGH=Self__MSFH->count__WFC;
-          Self__VZGH=__tmp__SZGH;
-          while ((Self__VZGH <= __tmp__UZGH)) {
-            ((__CHARACTER *)Self__MSFH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__VZGH - len__RZGH) -  1)]=((__CHARACTER *)Self__MSFH->storage__BCS)[(__INTEGER)(Self__VZGH -  1)];
-            Self__VZGH=(__INTEGER)(Self__VZGH +  1);
+        len__4BHH=(__INTEGER)((__INTEGER)(idx__HTS -  1) +  1);
+        if ((len__4BHH >  0)) {
+          __tmp__5BHH=(__INTEGER)(idx__HTS +  1);
+          __tmp__BCHH=Self__T0FH->count__WFC;
+          Self__CCHH=__tmp__5BHH;
+          while ((Self__CCHH <= __tmp__BCHH)) {
+            ((__CHARACTER *)Self__T0FH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__CCHH - len__4BHH) -  1)]=((__CHARACTER *)Self__T0FH->storage__BCS)[(__INTEGER)(Self__CCHH -  1)];
+            Self__CCHH=(__INTEGER)(Self__CCHH +  1);
           };
-          Self__MSFH->count__WFC=(__INTEGER)(Self__MSFH->count__WFC - len__RZGH);
+          Self__T0FH->count__WFC=(__INTEGER)(Self__T0FH->count__WFC - len__4BHH);
         };
       };
     };
@@ -11654,61 +11817,61 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
     typ_id__LF3=__FAST_ARRAYoITM_TYPE_PARAMETERo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__IF3);
     if ((typ_id__LF3 == (__INTEGER)(-  1))) {
-      a__WSDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XSDH=(__UINTEGER_32)((__UINTEGER_32)(sz__IF3 + a__WSDH) & (__UINTEGER_32)(~ a__WSDH));
-      ptr_table__ZZGH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XSDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__YZGH=((__POINTER )(NULL));
-      result__0ZGH=((__POINTER *)ptr_table__ZZGH)[ 0];
-      if ((result__0ZGH == (void *)NULL)) {
-        result__0ZGH=new_lab__MRJ(new_size__XSDH);
-        next__YZGH=(void *)((unsigned long)result__0ZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XSDH)));
-        ((__POINTER *)next__YZGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZZGH)[ 0]=next__YZGH;
+      a__01DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__11DH=(__UINTEGER_32)((__UINTEGER_32)(sz__IF3 + a__01DH) & (__UINTEGER_32)(~ a__01DH));
+      ptr_table__GCHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__11DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__FCHH=((__POINTER )(NULL));
+      result__HCHH=((__POINTER *)ptr_table__GCHH)[ 0];
+      if ((result__HCHH == (void *)NULL)) {
+        result__HCHH=new_lab__MRJ(new_size__11DH);
+        next__FCHH=(void *)((unsigned long)result__HCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__11DH)));
+        ((__POINTER *)next__FCHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__GCHH)[ 0]=next__FCHH;
       } else {
-        next__YZGH=((__POINTER *)result__0ZGH)[ 0];
-        if ((next__YZGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0ZGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XSDH <<  1)) <=  4096)) {
-            next__YZGH=(void *)((unsigned long)result__0ZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XSDH)));
+        next__FCHH=((__POINTER *)result__HCHH)[ 0];
+        if ((next__FCHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HCHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__11DH <<  1)) <=  4096)) {
+            next__FCHH=(void *)((unsigned long)result__HCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__11DH)));
           } else {
-            next__YZGH=new_lab__MRJ(new_size__XSDH);
+            next__FCHH=new_lab__MRJ(new_size__11DH);
           };
-          ((__POINTER *)next__YZGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZZGH)[ 0]=next__YZGH;
+          ((__POINTER *)next__FCHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__GCHH)[ 0]=next__FCHH;
         } else {
-          ((__POINTER *)result__0ZGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YZGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__0ZGH=next__YZGH;
+          ((__POINTER *)result__HCHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FCHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__HCHH=next__FCHH;
         };
       };
-      ptr__GF3=result__0ZGH;
+      ptr__GF3=result__HCHH;
     } else {
-      t__1SDH=((__UINTEGER_32 )typ_id__LF3);
-      a__0SDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__B0GH=(__UINTEGER_32)((__UINTEGER_32)(sz__IF3 + a__0SDH) & (__UINTEGER_32)(~ a__0SDH));
-      ptr_table__4ZGH=((__POINTER )(&(table_type[(t__1SDH)])));
-      lab_type__A0GH=(__UINTEGER_32)(t__1SDH |  1);
-      next__3ZGH=((__POINTER )(NULL));
-      result__5ZGH=((__POINTER *)ptr_table__4ZGH)[ 0];
-      if ((result__5ZGH == (void *)NULL)) {
-        result__5ZGH=new_lab__MRJ(lab_type__A0GH);
-        next__3ZGH=(void *)((unsigned long)result__5ZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B0GH)));
-        ((__POINTER *)next__3ZGH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4ZGH)[ 0]=next__3ZGH;
+      t__51DH=((__UINTEGER_32 )typ_id__LF3);
+      a__41DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__OCHH=(__UINTEGER_32)((__UINTEGER_32)(sz__IF3 + a__41DH) & (__UINTEGER_32)(~ a__41DH));
+      ptr_table__LCHH=((__POINTER )(&(table_type[(t__51DH)])));
+      lab_type__NCHH=(__UINTEGER_32)(t__51DH |  1);
+      next__KCHH=((__POINTER )(NULL));
+      result__MCHH=((__POINTER *)ptr_table__LCHH)[ 0];
+      if ((result__MCHH == (void *)NULL)) {
+        result__MCHH=new_lab__MRJ(lab_type__NCHH);
+        next__KCHH=(void *)((unsigned long)result__MCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCHH)));
+        ((__POINTER *)next__KCHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__LCHH)[ 0]=next__KCHH;
       } else {
-        next__3ZGH=((__POINTER *)result__5ZGH)[ 0];
-        if ((next__3ZGH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5ZGH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__B0GH <<  1)) <=  4096)) {
-            next__3ZGH=(void *)((unsigned long)result__5ZGH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B0GH)));
+        next__KCHH=((__POINTER *)result__MCHH)[ 0];
+        if ((next__KCHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MCHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OCHH <<  1)) <=  4096)) {
+            next__KCHH=(void *)((unsigned long)result__MCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCHH)));
           } else {
-            next__3ZGH=new_lab__MRJ(lab_type__A0GH);
+            next__KCHH=new_lab__MRJ(lab_type__NCHH);
           };
-          ((__POINTER *)next__3ZGH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4ZGH)[ 0]=next__3ZGH;
+          ((__POINTER *)next__KCHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__LCHH)[ 0]=next__KCHH;
         } else {
-          ((__POINTER *)result__5ZGH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3ZGH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5ZGH=next__3ZGH;
+          ((__POINTER *)result__MCHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KCHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__MCHH=next__KCHH;
         };
       };
-      ptr__GF3=result__5ZGH;
+      ptr__GF3=result__MCHH;
     };
     result__FF3=((__FAST_ARRAYoITM_TYPE_PARAMETERo *)ptr__GF3);
     *(result__FF3) = *(FAST_ARRAYoITM_TYPE_PARAMETERo__);
@@ -11752,18 +11915,18 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
   };
   ((void **)Self__QTX->parent_arrayed_collection__AJ.storage__KTT)[Self__QTX->parent_arrayed_collection__AJ.upper__HJ]=Self__ATS;
   Self__CNBC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PTS);
-  Self__D0GH=((__STRING_CONSTANT *)f__1AC);
-  result__C0GH= 0;
-  __tmp__E0GH=Self__D0GH->count__DD;
-  Self__F0GH= 1;
-  while ((Self__F0GH <= __tmp__E0GH)) {
-    result__C0GH=(__INTEGER)((__INTEGER)( 5 * result__C0GH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__D0GH->storage__VQO)[(__INTEGER)(Self__F0GH -  1)])));
-    Self__F0GH=(__INTEGER)(Self__F0GH +  1);
-  };
-  if ((result__C0GH <  0)) {
-    result__C0GH=(__INTEGER)(~ result__C0GH);
-  };
-  idx__MNBC=(__INTEGER)(result__C0GH % Self__CNBC->capacity__QNBC);
+  Self__QCHH=((__STRING_CONSTANT *)f__1AC);
+  result__PCHH= 0;
+  __tmp__RCHH=Self__QCHH->count__DD;
+  Self__SCHH= 1;
+  while ((Self__SCHH <= __tmp__RCHH)) {
+    result__PCHH=(__INTEGER)((__INTEGER)( 5 * result__PCHH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__QCHH->storage__VQO)[(__INTEGER)(Self__SCHH -  1)])));
+    Self__SCHH=(__INTEGER)(Self__SCHH +  1);
+  };
+  if ((result__PCHH <  0)) {
+    result__PCHH=(__INTEGER)(~ result__PCHH);
+  };
+  idx__MNBC=(__INTEGER)(result__PCHH % Self__CNBC->capacity__QNBC);
   node__ONBC=((void **)Self__CNBC->buckets__VNBC)[idx__MNBC];
   while ((! (((void *)node__ONBC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__ONBC)->key__BOBC == (void *)f__1AC)))) {
     node__ONBC=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__ONBC)->next__MOBC;
@@ -11800,7 +11963,7 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
         };
         i__CZGD=(__INTEGER)(i__CZGD -  1);
       };
-      idx__MNBC=(__INTEGER)(result__C0GH % new_capacity__BZGD);
+      idx__MNBC=(__INTEGER)(result__PCHH % new_capacity__BZGD);
     };
     __tmp__CPBC=((void **)Self__CNBC->buckets__VNBC)[idx__MNBC];
     result__K1GD=NULL;
@@ -11813,61 +11976,61 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
       typ_id__Q1GD=__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__N1GD);
       if ((typ_id__Q1GD == (__INTEGER)(-  1))) {
-        a__NTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__OTDH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1GD + a__NTDH) & (__UINTEGER_32)(~ a__NTDH));
-        ptr_table__I0GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OTDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__H0GH=((__POINTER )(NULL));
-        result__J0GH=((__POINTER *)ptr_table__I0GH)[ 0];
-        if ((result__J0GH == (void *)NULL)) {
-          result__J0GH=new_lab__MRJ(new_size__OTDH);
-          next__H0GH=(void *)((unsigned long)result__J0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTDH)));
-          ((__POINTER *)next__H0GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__I0GH)[ 0]=next__H0GH;
-        } else {
-          next__H0GH=((__POINTER *)result__J0GH)[ 0];
-          if ((next__H0GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OTDH <<  1)) <=  4096)) {
-              next__H0GH=(void *)((unsigned long)result__J0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTDH)));
+        a__R2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__S2DH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1GD + a__R2DH) & (__UINTEGER_32)(~ a__R2DH));
+        ptr_table__VCHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__S2DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__UCHH=((__POINTER )(NULL));
+        result__WCHH=((__POINTER *)ptr_table__VCHH)[ 0];
+        if ((result__WCHH == (void *)NULL)) {
+          result__WCHH=new_lab__MRJ(new_size__S2DH);
+          next__UCHH=(void *)((unsigned long)result__WCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S2DH)));
+          ((__POINTER *)next__UCHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__VCHH)[ 0]=next__UCHH;
+        } else {
+          next__UCHH=((__POINTER *)result__WCHH)[ 0];
+          if ((next__UCHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WCHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__S2DH <<  1)) <=  4096)) {
+              next__UCHH=(void *)((unsigned long)result__WCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S2DH)));
             } else {
-              next__H0GH=new_lab__MRJ(new_size__OTDH);
-            };
-            ((__POINTER *)next__H0GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__I0GH)[ 0]=next__H0GH;
-          } else {
-            ((__POINTER *)result__J0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__J0GH=next__H0GH;
-          };
-        };
-        ptr__L1GD=result__J0GH;
-      } else {
-        t__STDH=((__UINTEGER_32 )typ_id__Q1GD);
-        a__RTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__Q0GH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1GD + a__RTDH) & (__UINTEGER_32)(~ a__RTDH));
-        ptr_table__N0GH=((__POINTER )(&(table_type[(t__STDH)])));
-        lab_type__P0GH=(__UINTEGER_32)(t__STDH |  1);
-        next__M0GH=((__POINTER )(NULL));
-        result__O0GH=((__POINTER *)ptr_table__N0GH)[ 0];
-        if ((result__O0GH == (void *)NULL)) {
-          result__O0GH=new_lab__MRJ(lab_type__P0GH);
-          next__M0GH=(void *)((unsigned long)result__O0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q0GH)));
-          ((__POINTER *)next__M0GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__N0GH)[ 0]=next__M0GH;
-        } else {
-          next__M0GH=((__POINTER *)result__O0GH)[ 0];
-          if ((next__M0GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q0GH <<  1)) <=  4096)) {
-              next__M0GH=(void *)((unsigned long)result__O0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q0GH)));
+              next__UCHH=new_lab__MRJ(new_size__S2DH);
+            };
+            ((__POINTER *)next__UCHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__VCHH)[ 0]=next__UCHH;
+          } else {
+            ((__POINTER *)result__WCHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UCHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__WCHH=next__UCHH;
+          };
+        };
+        ptr__L1GD=result__WCHH;
+      } else {
+        t__W2DH=((__UINTEGER_32 )typ_id__Q1GD);
+        a__V2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__3CHH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1GD + a__V2DH) & (__UINTEGER_32)(~ a__V2DH));
+        ptr_table__0CHH=((__POINTER )(&(table_type[(t__W2DH)])));
+        lab_type__2CHH=(__UINTEGER_32)(t__W2DH |  1);
+        next__ZCHH=((__POINTER )(NULL));
+        result__1CHH=((__POINTER *)ptr_table__0CHH)[ 0];
+        if ((result__1CHH == (void *)NULL)) {
+          result__1CHH=new_lab__MRJ(lab_type__2CHH);
+          next__ZCHH=(void *)((unsigned long)result__1CHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3CHH)));
+          ((__POINTER *)next__ZCHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__0CHH)[ 0]=next__ZCHH;
+        } else {
+          next__ZCHH=((__POINTER *)result__1CHH)[ 0];
+          if ((next__ZCHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1CHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3CHH <<  1)) <=  4096)) {
+              next__ZCHH=(void *)((unsigned long)result__1CHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3CHH)));
             } else {
-              next__M0GH=new_lab__MRJ(lab_type__P0GH);
+              next__ZCHH=new_lab__MRJ(lab_type__2CHH);
             };
-            ((__POINTER *)next__M0GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__N0GH)[ 0]=next__M0GH;
+            ((__POINTER *)next__ZCHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__0CHH)[ 0]=next__ZCHH;
           } else {
-            ((__POINTER *)result__O0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__O0GH=next__M0GH;
+            ((__POINTER *)result__1CHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZCHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__1CHH=next__ZCHH;
           };
         };
-        ptr__L1GD=result__O0GH;
+        ptr__L1GD=result__1CHH;
       };
       result__K1GD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)ptr__L1GD);
       *(result__K1GD) = *(HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__);
@@ -11883,27 +12046,27 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
     ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__ONBC)->item__U3GD=Self__ATS;
   };
   copy__ZCS(string_tmp__KWX,f__1AC);
-  Self__USFH=((__STRING *)string_tmp__KWX);
-  if ((Self__USFH->capacity__YBS > Self__USFH->count__WFC)) {
-    ((__CHARACTER *)Self__USFH->storage__BCS)[Self__USFH->count__WFC]='\0';
+  Self__10FH=((__STRING *)string_tmp__KWX);
+  if ((Self__10FH->capacity__YBS > Self__10FH->count__WFC)) {
+    ((__CHARACTER *)Self__10FH->storage__BCS)[Self__10FH->count__WFC]='\0';
   } else {
-    add_last__ZLT(Self__USFH,'\0');
-    Self__USFH->count__WFC=(__INTEGER)(Self__USFH->count__WFC -  1);
+    add_last__ZLT(Self__10FH,'\0');
+    Self__10FH->count__WFC=(__INTEGER)(Self__10FH->count__WFC -  1);
   };
-  file__ETS=((__POINTER )(fopen((char*)(Self__USFH->storage__BCS),"rb")));
+  file__ETS=((__POINTER )(fopen((char*)(Self__10FH->storage__BCS),"rb")));
   fseek((FILE*)((file__ETS)),0,SEEK_END);
   result__TWX=((__INTEGER )(ftell((FILE *)(file__ETS))));
   fseek((FILE*)((file__ETS)),0,SEEK_SET);
   Self__ATS->source__NBC=create__NBB((__INTEGER)(result__TWX +  1));
   __tmp__VUS=Self__ATS->source__NBC;
-  Self__XSFH=((__STRING *)__tmp__VUS);
-  if ((Self__XSFH->capacity__YBS > Self__XSFH->count__WFC)) {
-    ((__CHARACTER *)Self__XSFH->storage__BCS)[Self__XSFH->count__WFC]='\0';
+  Self__40FH=((__STRING *)__tmp__VUS);
+  if ((Self__40FH->capacity__YBS > Self__40FH->count__WFC)) {
+    ((__CHARACTER *)Self__40FH->storage__BCS)[Self__40FH->count__WFC]='\0';
   } else {
-    add_last__ZLT(Self__XSFH,'\0');
-    Self__XSFH->count__WFC=(__INTEGER)(Self__XSFH->count__WFC -  1);
+    add_last__ZLT(Self__40FH,'\0');
+    Self__40FH->count__WFC=(__INTEGER)(Self__40FH->count__WFC -  1);
   };
-  ptr__2WX=Self__XSFH->storage__BCS;
+  ptr__2WX=Self__40FH->storage__BCS;
   fread((void *)((ptr__2WX)),(size_t)(1), (size_t)((result__TWX)),(FILE*)((file__ETS)));
   ((__CHARACTER *)ptr__2WX)[result__TWX]='\0';
   Self__3YS=((__STRING *)__tmp__VUS);
@@ -11926,61 +12089,61 @@ static __PROTOTYPE* create__name__generic_count__ZAC(void *f__1AC,void *n__2AC)
     typ_id__QL3=__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NL3);
     if ((typ_id__QL3 == (__INTEGER)(-  1))) {
-      a__VTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__WTDH=(__UINTEGER_32)((__UINTEGER_32)(sz__NL3 + a__VTDH) & (__UINTEGER_32)(~ a__VTDH));
-      ptr_table__S0GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WTDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__R0GH=((__POINTER )(NULL));
-      result__T0GH=((__POINTER *)ptr_table__S0GH)[ 0];
-      if ((result__T0GH == (void *)NULL)) {
-        result__T0GH=new_lab__MRJ(new_size__WTDH);
-        next__R0GH=(void *)((unsigned long)result__T0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTDH)));
-        ((__POINTER *)next__R0GH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__S0GH)[ 0]=next__R0GH;
+      a__Z2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__02DH=(__UINTEGER_32)((__UINTEGER_32)(sz__NL3 + a__Z2DH) & (__UINTEGER_32)(~ a__Z2DH));
+      ptr_table__5CHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__02DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__4CHH=((__POINTER )(NULL));
+      result__ADHH=((__POINTER *)ptr_table__5CHH)[ 0];
+      if ((result__ADHH == (void *)NULL)) {
+        result__ADHH=new_lab__MRJ(new_size__02DH);
+        next__4CHH=(void *)((unsigned long)result__ADHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02DH)));
+        ((__POINTER *)next__4CHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__5CHH)[ 0]=next__4CHH;
       } else {
-        next__R0GH=((__POINTER *)result__T0GH)[ 0];
-        if ((next__R0GH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WTDH <<  1)) <=  4096)) {
-            next__R0GH=(void *)((unsigned long)result__T0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTDH)));
+        next__4CHH=((__POINTER *)result__ADHH)[ 0];
+        if ((next__4CHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ADHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__02DH <<  1)) <=  4096)) {
+            next__4CHH=(void *)((unsigned long)result__ADHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02DH)));
           } else {
-            next__R0GH=new_lab__MRJ(new_size__WTDH);
+            next__4CHH=new_lab__MRJ(new_size__02DH);
           };
-          ((__POINTER *)next__R0GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__S0GH)[ 0]=next__R0GH;
+          ((__POINTER *)next__4CHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__5CHH)[ 0]=next__4CHH;
         } else {
-          ((__POINTER *)result__T0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__T0GH=next__R0GH;
+          ((__POINTER *)result__ADHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4CHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__ADHH=next__4CHH;
         };
       };
-      ptr__LL3=result__T0GH;
+      ptr__LL3=result__ADHH;
     } else {
-      t__0TDH=((__UINTEGER_32 )typ_id__QL3);
-      a__ZTDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__00GH=(__UINTEGER_32)((__UINTEGER_32)(sz__NL3 + a__ZTDH) & (__UINTEGER_32)(~ a__ZTDH));
-      ptr_table__X0GH=((__POINTER )(&(table_type[(t__0TDH)])));
-      lab_type__Z0GH=(__UINTEGER_32)(t__0TDH |  1);
-      next__W0GH=((__POINTER )(NULL));
-      result__Y0GH=((__POINTER *)ptr_table__X0GH)[ 0];
-      if ((result__Y0GH == (void *)NULL)) {
-        result__Y0GH=new_lab__MRJ(lab_type__Z0GH);
-        next__W0GH=(void *)((unsigned long)result__Y0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00GH)));
-        ((__POINTER *)next__W0GH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__X0GH)[ 0]=next__W0GH;
+      t__42DH=((__UINTEGER_32 )typ_id__QL3);
+      a__32DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__HDHH=(__UINTEGER_32)((__UINTEGER_32)(sz__NL3 + a__32DH) & (__UINTEGER_32)(~ a__32DH));
+      ptr_table__EDHH=((__POINTER )(&(table_type[(t__42DH)])));
+      lab_type__GDHH=(__UINTEGER_32)(t__42DH |  1);
+      next__DDHH=((__POINTER )(NULL));
+      result__FDHH=((__POINTER *)ptr_table__EDHH)[ 0];
+      if ((result__FDHH == (void *)NULL)) {
+        result__FDHH=new_lab__MRJ(lab_type__GDHH);
+        next__DDHH=(void *)((unsigned long)result__FDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HDHH)));
+        ((__POINTER *)next__DDHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__EDHH)[ 0]=next__DDHH;
       } else {
-        next__W0GH=((__POINTER *)result__Y0GH)[ 0];
-        if ((next__W0GH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y0GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__00GH <<  1)) <=  4096)) {
-            next__W0GH=(void *)((unsigned long)result__Y0GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00GH)));
+        next__DDHH=((__POINTER *)result__FDHH)[ 0];
+        if ((next__DDHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FDHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HDHH <<  1)) <=  4096)) {
+            next__DDHH=(void *)((unsigned long)result__FDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HDHH)));
           } else {
-            next__W0GH=new_lab__MRJ(lab_type__Z0GH);
+            next__DDHH=new_lab__MRJ(lab_type__GDHH);
           };
-          ((__POINTER *)next__W0GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__X0GH)[ 0]=next__W0GH;
+          ((__POINTER *)next__DDHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__EDHH)[ 0]=next__DDHH;
         } else {
-          ((__POINTER *)result__Y0GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W0GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Y0GH=next__W0GH;
+          ((__POINTER *)result__FDHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DDHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__FDHH=next__DDHH;
         };
       };
-      ptr__LL3=result__Y0GH;
+      ptr__LL3=result__FDHH;
     };
     result__KL3=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)ptr__LL3);
     *(result__KL3) = *(HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__);
@@ -11999,22 +12162,22 @@ static __BOOLEAN read_space__3RD()
 // () With resultNo recursive, No inlinable.
 {
   __INTEGER pos2__CSD,short_line__ESD,level_comment__FSD,pos__BSD;
-  __INTEGER posold__ASD,begin__MV1G,end__NV1G,start__20GH,end__10GH;
-  __INTEGER len__30GH,__tmp__40GH,__tmp__A1GH,Self__B1GH,begin__JFMD;
-  __INTEGER start__F1GH,end__E1GH,len__G1GH,__tmp__H1GH,__tmp__J1GH;
-  __INTEGER Self__K1GH;
+  __INTEGER posold__ASD,begin__C51G,end__D51G,start__JDHH,end__IDHH;
+  __INTEGER len__KDHH,__tmp__LDHH,__tmp__NDHH,Self__ODHH,begin__JFMD;
+  __INTEGER start__SDHH,end__RDHH,len__TDHH,__tmp__UDHH,__tmp__WDHH;
+  __INTEGER Self__XDHH;
   void *key__DSD,*__tmp__U2D;
-  __STRING *Self__50GH,*Self__I1GH;
+  __STRING *Self__MDHH,*Self__VDHH;
   void *__tmp__R2D;
-  __POSITION pos__20TG;
-  __CHARACTER result__EXBH,result__RXBH,result__0XBH,result__DYBH;
-  __CHARACTER result__QYBH,result__ZYBH,result__CZBH,result__LZBH;
-  __CHARACTER result__ZZBH,result__C0BH,result__L0BH,result__U0BH;
-  __CHARACTER result__30BH,result__G1BH,result__P1BH,result__21BH;
-  __CHARACTER result__F2BH,result__O2BH,result__12BH,result__I3BH;
-  __CHARACTER result__V3BH,result__Y5E;
-  __BOOLEAN __tmp__IUD,result__FVDH,result__HVDH,__tmp__KZD;
-  __BOOLEAN result__JVDH,__tmp__LZD,__tmp__M1D,__tmp__T5D;
+  __POSITION pos__EEUG;
+  __CHARACTER result__RACH,result__4ACH,result__HBCH,result__QBCH;
+  __CHARACTER result__3BCH,result__GCCH,result__PCCH,result__YCCH;
+  __CHARACTER result__GDCH,result__PDCH,result__YDCH,result__BECH;
+  __CHARACTER result__KECH,result__TECH,result__2ECH,result__JFCH;
+  __CHARACTER result__SFCH,result__1FCH,result__IGCH,result__VGCH;
+  __CHARACTER result__CHCH,result__Y5E;
+  __BOOLEAN __tmp__IUD,result__J4DH,result__L4DH,__tmp__KZD;
+  __BOOLEAN result__N4DH,__tmp__LZD,__tmp__M1D,__tmp__T5D;
   pos2__CSD= 0;
   key__DSD=NULL;
   short_line__ESD= 0;
@@ -12031,32 +12194,32 @@ static __BOOLEAN read_space__3RD()
     };
     until_do__TNI:
     {
-      result__EXBH='\0';
+      result__RACH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__EXBH=((__CHARACTER )(( 0)));
+        result__RACH=((__CHARACTER )(( 0)));
       } else {
-        result__EXBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__RACH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__EXBH == ((__CHARACTER )(( 0))))) {
+      if ((result__RACH == ((__CHARACTER )(( 0))))) {
         __tmp__IUD=TRUE__;
       } else {
-        result__RXBH='\0';
+        result__4ACH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__RXBH=((__CHARACTER )(( 0)));
+          result__4ACH=((__CHARACTER )(( 0)));
         } else {
-          result__RXBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__4ACH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__IUD=(((__INTEGER_8 )result__RXBH) > ((__INTEGER_8 )' '));
+        __tmp__IUD=(((__INTEGER_8 )result__4ACH) > ((__INTEGER_8 )' '));
       };
       if ((! __tmp__IUD)) {
         if (is_shorter__5Y) {
-          result__0XBH='\0';
+          result__HBCH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__0XBH=((__CHARACTER )(( 0)));
+            result__HBCH=((__CHARACTER )(( 0)));
           } else {
-            result__0XBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__HBCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__0XBH == '\n')) {
+          if ((result__HBCH == '\n')) {
             short_line__ESD=(__INTEGER)(short_line__ESD +  1);
             if ((short_line__ESD ==  2)) {
               key_comment_default__ACC=(&__string_127);
@@ -12071,162 +12234,162 @@ static __BOOLEAN read_space__3RD()
       };
     };
     if ((position__SBC < ((__STRING *)source__PBC)->count__WFC)) {
-      result__DYBH='\0';
+      result__QBCH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__DYBH=((__CHARACTER )(( 0)));
+        result__QBCH=((__CHARACTER )(( 0)));
       } else {
-        result__DYBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__QBCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if (((result__DYBH == '/') & (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '/'))) {
+      if (((result__QBCH == '/') & (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '/'))) {
         position__SBC=(__INTEGER)(position__SBC +  2);
         pos2__CSD=position__SBC;
         if (is_shorter__5Y) {
           if (is_active_short__4BC) {
-            begin__MV1G=(__INTEGER)(position__SBC -  2);
-            end__NV1G=(__INTEGER)(position__SBC -  1);
-            Self__50GH=((__STRING *)output_code__SI);
-            start__20GH=(__INTEGER)(begin__MV1G + short_derive__BCC);
-            end__10GH=(__INTEGER)(end__NV1G + short_derive__BCC);
-            len__30GH=(__INTEGER)((__INTEGER)(end__10GH - start__20GH) +  1);
-            if ((len__30GH >  0)) {
-              __tmp__40GH=(__INTEGER)(end__10GH +  1);
-              __tmp__A1GH=Self__50GH->count__WFC;
-              Self__B1GH=__tmp__40GH;
-              while ((Self__B1GH <= __tmp__A1GH)) {
-                ((__CHARACTER *)Self__50GH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__B1GH - len__30GH) -  1)]=((__CHARACTER *)Self__50GH->storage__BCS)[(__INTEGER)(Self__B1GH -  1)];
-                Self__B1GH=(__INTEGER)(Self__B1GH +  1);
+            begin__C51G=(__INTEGER)(position__SBC -  2);
+            end__D51G=(__INTEGER)(position__SBC -  1);
+            Self__MDHH=((__STRING *)output_code__SI);
+            start__JDHH=(__INTEGER)(begin__C51G + short_derive__BCC);
+            end__IDHH=(__INTEGER)(end__D51G + short_derive__BCC);
+            len__KDHH=(__INTEGER)((__INTEGER)(end__IDHH - start__JDHH) +  1);
+            if ((len__KDHH >  0)) {
+              __tmp__LDHH=(__INTEGER)(end__IDHH +  1);
+              __tmp__NDHH=Self__MDHH->count__WFC;
+              Self__ODHH=__tmp__LDHH;
+              while ((Self__ODHH <= __tmp__NDHH)) {
+                ((__CHARACTER *)Self__MDHH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__ODHH - len__KDHH) -  1)]=((__CHARACTER *)Self__MDHH->storage__BCS)[(__INTEGER)(Self__ODHH -  1)];
+                Self__ODHH=(__INTEGER)(Self__ODHH +  1);
               };
-              Self__50GH->count__WFC=(__INTEGER)(Self__50GH->count__WFC - len__30GH);
+              Self__MDHH->count__WFC=(__INTEGER)(Self__MDHH->count__WFC - len__KDHH);
             };
-            short_derive__BCC=(__INTEGER)(short_derive__BCC - (__INTEGER)((__INTEGER)(end__NV1G - begin__MV1G) +  1));
+            short_derive__BCC=(__INTEGER)(short_derive__BCC - (__INTEGER)((__INTEGER)(end__D51G - begin__C51G) +  1));
             while_do__XFMD:
             {
-              result__QYBH='\0';
+              result__3BCH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__QYBH=((__CHARACTER )(( 0)));
+                result__3BCH=((__CHARACTER )(( 0)));
               } else {
-                result__QYBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__3BCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__QYBH == ' ')) {
+              if ((result__3BCH == ' ')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
                 goto while_do__XFMD;
               };
             };
-            result__ZYBH='\0';
+            result__GCCH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__ZYBH=((__CHARACTER )(( 0)));
+              result__GCCH=((__CHARACTER )(( 0)));
             } else {
-              result__ZYBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__GCCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__ZYBH == '*')) {
+            if ((result__GCCH == '*')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
               while_do__PMND:
               {
-                result__CZBH='\0';
+                result__PCCH='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__CZBH=((__CHARACTER )(( 0)));
+                  result__PCCH=((__CHARACTER )(( 0)));
                 } else {
-                  result__CZBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__PCCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                if ((result__CZBH == ' ')) {
+                if ((result__PCCH == ' ')) {
                   position__SBC=(__INTEGER)(position__SBC +  1);
                   goto while_do__PMND;
                 };
               };
-              result__LZBH='\0';
+              result__YCCH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__LZBH=((__CHARACTER )(( 0)));
+                result__YCCH=((__CHARACTER )(( 0)));
               } else {
-                result__LZBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__YCCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              result__FVDH=FALSE__;
-              if ((((__INTEGER_8 )result__LZBH) >= ((__INTEGER_8 )'a'))) {
-                result__FVDH=(((__INTEGER_8 )result__LZBH) <= ((__INTEGER_8 )'z'));
+              result__J4DH=FALSE__;
+              if ((((__INTEGER_8 )result__YCCH) >= ((__INTEGER_8 )'a'))) {
+                result__J4DH=(((__INTEGER_8 )result__YCCH) <= ((__INTEGER_8 )'z'));
               };
-              if (result__FVDH) {
+              if (result__J4DH) {
                 ((__STRING *)string_tmp__VH)->count__WFC= 0;
                 do {
-                  result__ZZBH='\0';
+                  result__GDCH='\0';
                   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                    result__ZZBH=((__CHARACTER )(( 0)));
+                    result__GDCH=((__CHARACTER )(( 0)));
                   } else {
-                    result__ZZBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                    result__GDCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                   };
-                  add_last__ZLT(string_tmp__VH,result__ZZBH);
+                  add_last__ZLT(string_tmp__VH,result__GDCH);
                   position__SBC=(__INTEGER)(position__SBC +  1);
-                  result__C0BH='\0';
+                  result__PDCH='\0';
                   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                    result__C0BH=((__CHARACTER )(( 0)));
+                    result__PDCH=((__CHARACTER )(( 0)));
                   } else {
-                    result__C0BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                    result__PDCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                   };
-                  result__HVDH=FALSE__;
-                  if ((((__INTEGER_8 )result__C0BH) >= ((__INTEGER_8 )'a'))) {
-                    result__HVDH=(((__INTEGER_8 )result__C0BH) <= ((__INTEGER_8 )'z'));
+                  result__L4DH=FALSE__;
+                  if ((((__INTEGER_8 )result__PDCH) >= ((__INTEGER_8 )'a'))) {
+                    result__L4DH=(((__INTEGER_8 )result__PDCH) <= ((__INTEGER_8 )'z'));
                   };
-                  if (result__HVDH) {
+                  if (result__L4DH) {
                     __tmp__KZD=TRUE__;
                   } else {
-                    result__L0BH='\0';
+                    result__YDCH='\0';
                     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                      result__L0BH=((__CHARACTER )(( 0)));
+                      result__YDCH=((__CHARACTER )(( 0)));
                     } else {
-                      result__L0BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                      result__YDCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                     };
-                    result__JVDH=FALSE__;
-                    if ((((__INTEGER_8 )result__L0BH) >= ((__INTEGER_8 )'0'))) {
-                      result__JVDH=(((__INTEGER_8 )result__L0BH) <= ((__INTEGER_8 )'9'));
+                    result__N4DH=FALSE__;
+                    if ((((__INTEGER_8 )result__YDCH) >= ((__INTEGER_8 )'0'))) {
+                      result__N4DH=(((__INTEGER_8 )result__YDCH) <= ((__INTEGER_8 )'9'));
                     };
-                    __tmp__KZD=result__JVDH;
+                    __tmp__KZD=result__N4DH;
                   };
                   if (__tmp__KZD) {
                     __tmp__LZD=TRUE__;
                   } else {
-                    result__U0BH='\0';
+                    result__BECH='\0';
                     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                      result__U0BH=((__CHARACTER )(( 0)));
+                      result__BECH=((__CHARACTER )(( 0)));
                     } else {
-                      result__U0BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                      result__BECH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                     };
-                    __tmp__LZD=(result__U0BH == '_');
+                    __tmp__LZD=(result__BECH == '_');
                   };
                 } while (__tmp__LZD);
-                while_do__BIAE:
+                while_do__DMAE:
                 {
-                  result__30BH='\0';
+                  result__KECH='\0';
                   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                    result__30BH=((__CHARACTER )(( 0)));
+                    result__KECH=((__CHARACTER )(( 0)));
                   } else {
-                    result__30BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                    result__KECH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                   };
-                  if ((result__30BH == ' ')) {
+                  if ((result__KECH == ' ')) {
                     position__SBC=(__INTEGER)(position__SBC +  1);
-                    goto while_do__BIAE;
+                    goto while_do__DMAE;
                   };
                 };
-                result__G1BH='\0';
+                result__TECH='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__G1BH=((__CHARACTER )(( 0)));
+                  result__TECH=((__CHARACTER )(( 0)));
                 } else {
-                  result__G1BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__TECH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                if ((result__G1BH == ':')) {
+                if ((result__TECH == ':')) {
                   position__SBC=(__INTEGER)(position__SBC +  1);
                   key__DSD=get__IWB(string_tmp__VH);
                   begin__JFMD=(__INTEGER)(pos2__CSD +  1);
-                  Self__I1GH=((__STRING *)output_code__SI);
-                  start__F1GH=(__INTEGER)(begin__JFMD + short_derive__BCC);
-                  end__E1GH=(__INTEGER)(position__SBC + short_derive__BCC);
-                  len__G1GH=(__INTEGER)((__INTEGER)(end__E1GH - start__F1GH) +  1);
-                  if ((len__G1GH >  0)) {
-                    __tmp__H1GH=(__INTEGER)(end__E1GH +  1);
-                    __tmp__J1GH=Self__I1GH->count__WFC;
-                    Self__K1GH=__tmp__H1GH;
-                    while ((Self__K1GH <= __tmp__J1GH)) {
-                      ((__CHARACTER *)Self__I1GH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__K1GH - len__G1GH) -  1)]=((__CHARACTER *)Self__I1GH->storage__BCS)[(__INTEGER)(Self__K1GH -  1)];
-                      Self__K1GH=(__INTEGER)(Self__K1GH +  1);
+                  Self__VDHH=((__STRING *)output_code__SI);
+                  start__SDHH=(__INTEGER)(begin__JFMD + short_derive__BCC);
+                  end__RDHH=(__INTEGER)(position__SBC + short_derive__BCC);
+                  len__TDHH=(__INTEGER)((__INTEGER)(end__RDHH - start__SDHH) +  1);
+                  if ((len__TDHH >  0)) {
+                    __tmp__UDHH=(__INTEGER)(end__RDHH +  1);
+                    __tmp__WDHH=Self__VDHH->count__WFC;
+                    Self__XDHH=__tmp__UDHH;
+                    while ((Self__XDHH <= __tmp__WDHH)) {
+                      ((__CHARACTER *)Self__VDHH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__XDHH - len__TDHH) -  1)]=((__CHARACTER *)Self__VDHH->storage__BCS)[(__INTEGER)(Self__XDHH -  1)];
+                      Self__XDHH=(__INTEGER)(Self__XDHH +  1);
                     };
-                    Self__I1GH->count__WFC=(__INTEGER)(Self__I1GH->count__WFC - len__G1GH);
+                    Self__VDHH->count__WFC=(__INTEGER)(Self__VDHH->count__WFC - len__TDHH);
                   };
                   short_derive__BCC=(__INTEGER)(short_derive__BCC - (__INTEGER)((__INTEGER)(position__SBC - begin__JFMD) +  1));
                   pos2__CSD=position__SBC;
@@ -12240,32 +12403,32 @@ static __BOOLEAN read_space__3RD()
         };
         until_do__AACD:
         {
-          result__P1BH='\0';
+          result__2ECH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__P1BH=((__CHARACTER )(( 0)));
+            result__2ECH=((__CHARACTER )(( 0)));
           } else {
-            result__P1BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__2ECH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__P1BH == ((__CHARACTER )(( 0))))) {
+          if ((result__2ECH == ((__CHARACTER )(( 0))))) {
             __tmp__M1D=TRUE__;
           } else {
-            result__21BH='\0';
+            result__JFCH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__21BH=((__CHARACTER )(( 0)));
+              result__JFCH=((__CHARACTER )(( 0)));
             } else {
-              result__21BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__JFCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            __tmp__M1D=(result__21BH == '\n');
+            __tmp__M1D=(result__JFCH == '\n');
           };
           if ((! __tmp__M1D)) {
             if (is_catch_comment__AXC) {
-              result__F2BH='\0';
+              result__SFCH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__F2BH=((__CHARACTER )(( 0)));
+                result__SFCH=((__CHARACTER )(( 0)));
               } else {
-                result__F2BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__SFCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              add_last__ZLT(last_comment__00D,result__F2BH);
+              add_last__ZLT(last_comment__00D,result__SFCH);
             };
             position__SBC=(__INTEGER)(position__SBC +  1);
             goto until_do__AACD;
@@ -12292,31 +12455,31 @@ static __BOOLEAN read_space__3RD()
     };
     if ((position__SBC < ((__STRING *)source__PBC)->count__WFC)) {
       pos2__CSD=position__SBC;
-      result__O2BH='\0';
+      result__1FCH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__O2BH=((__CHARACTER )(( 0)));
+        result__1FCH=((__CHARACTER )(( 0)));
       } else {
-        result__O2BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__1FCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if (((result__O2BH == '/') && (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '*'))) {
+      if (((result__1FCH == '/') && (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '*'))) {
         position__SBC=(__INTEGER)(position__SBC +  2);
         level_comment__FSD= 1;
-        until_do__IQ2D:
+        until_do__KU2D:
         {
-          result__12BH='\0';
+          result__IGCH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__12BH=((__CHARACTER )(( 0)));
+            result__IGCH=((__CHARACTER )(( 0)));
           } else {
-            result__12BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__IGCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((! ((result__12BH == ((__CHARACTER )(( 0)))) || (level_comment__FSD ==  0)))) {
-            result__I3BH='\0';
+          if ((! ((result__IGCH == ((__CHARACTER )(( 0)))) || (level_comment__FSD ==  0)))) {
+            result__VGCH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__I3BH=((__CHARACTER )(( 0)));
+              result__VGCH=((__CHARACTER )(( 0)));
             } else {
-              result__I3BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__VGCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if (((result__I3BH == '/') && (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '*'))) {
+            if (((result__VGCH == '/') && (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '*'))) {
               level_comment__FSD=(__INTEGER)(level_comment__FSD +  1);
               position__SBC=(__INTEGER)(position__SBC +  2);
               __tmp__T5D=TRUE__;
@@ -12324,27 +12487,27 @@ static __BOOLEAN read_space__3RD()
               __tmp__T5D=FALSE__;
             };
             if ((! __tmp__T5D)) {
-              result__V3BH='\0';
+              result__CHCH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__V3BH=((__CHARACTER )(( 0)));
+                result__CHCH=((__CHARACTER )(( 0)));
               } else {
-                result__V3BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__CHCH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if (((result__V3BH == '*') && (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '/'))) {
+              if (((result__CHCH == '*') && (((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)] == '/'))) {
                 level_comment__FSD=(__INTEGER)(level_comment__FSD -  1);
                 position__SBC=(__INTEGER)(position__SBC +  2);
               } else {
                 position__SBC=(__INTEGER)(position__SBC +  1);
               };
             };
-            goto until_do__IQ2D;
+            goto until_do__KU2D;
           };
         };
         if ((level_comment__FSD !=  0)) {
           position__SBC=pos2__CSD;
-          pos__20TG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_203));
-          put_position__UOG(pos__20TG);
+          pos__EEUG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_206));
+          put_position__UOG(pos__EEUG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -12368,102 +12531,102 @@ static __BOOLEAN read_identifier__LAL()
 // () With resultNo recursive, No inlinable.
 {
   __INTEGER posold__PAL,idx__QAL;
-  __POSITION pos__G2ZG;
-  __BOOLEAN result__OAL,__tmp__3AL,result__1TDH,__tmp__NCL,result__3TDH;
-  __BOOLEAN result__5TDH,__tmp__JCL,__tmp__KCL;
-  __CHARACTER result__GTBH,result__UTBH,result__BUBH,result__KUBH;
-  __CHARACTER result__TUBH,result__2UBH;
+  __POSITION pos__UF0G;
+  __BOOLEAN result__OAL,__tmp__3AL,result__52DH,__tmp__NCL,result__B3DH;
+  __BOOLEAN result__D3DH,__tmp__JCL,__tmp__KCL;
+  __CHARACTER result__T2BH,result__B3BH,result__O3BH,result__X3BH;
+  __CHARACTER result__A4BH,result__J4BH;
   result__OAL=FALSE__;
   posold__PAL= 0;
   idx__QAL= 0;
   if ((! read_space__3RD())) {
     __tmp__3AL=TRUE__;
   } else {
-    result__GTBH='\0';
+    result__T2BH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__GTBH=((__CHARACTER )(( 0)));
+      result__T2BH=((__CHARACTER )(( 0)));
     } else {
-      result__GTBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__T2BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    result__1TDH=FALSE__;
-    if ((((__INTEGER_8 )result__GTBH) >= ((__INTEGER_8 )'a'))) {
-      result__1TDH=(((__INTEGER_8 )result__GTBH) <= ((__INTEGER_8 )'z'));
+    result__52DH=FALSE__;
+    if ((((__INTEGER_8 )result__T2BH) >= ((__INTEGER_8 )'a'))) {
+      result__52DH=(((__INTEGER_8 )result__T2BH) <= ((__INTEGER_8 )'z'));
     };
-    __tmp__3AL=(! result__1TDH);
+    __tmp__3AL=(! result__52DH);
   };
   if (__tmp__3AL) {
     result__OAL=FALSE__;
   } else {
     posold__PAL=position__SBC;
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
-    until_do__KEZE:
+    until_do__CJZE:
     {
-      result__UTBH='\0';
+      result__B3BH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__UTBH=((__CHARACTER )(( 0)));
+        result__B3BH=((__CHARACTER )(( 0)));
       } else {
-        result__UTBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__B3BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__UTBH == ((__CHARACTER )(( 0))))) {
+      if ((result__B3BH == ((__CHARACTER )(( 0))))) {
         __tmp__NCL=TRUE__;
       } else {
-        result__BUBH='\0';
+        result__O3BH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__BUBH=((__CHARACTER )(( 0)));
+          result__O3BH=((__CHARACTER )(( 0)));
         } else {
-          result__BUBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__O3BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        result__3TDH=FALSE__;
-        if ((((__INTEGER_8 )result__BUBH) >= ((__INTEGER_8 )'a'))) {
-          result__3TDH=(((__INTEGER_8 )result__BUBH) <= ((__INTEGER_8 )'z'));
+        result__B3DH=FALSE__;
+        if ((((__INTEGER_8 )result__O3BH) >= ((__INTEGER_8 )'a'))) {
+          result__B3DH=(((__INTEGER_8 )result__O3BH) <= ((__INTEGER_8 )'z'));
         };
-        if ((! result__3TDH)) {
-          result__KUBH='\0';
+        if ((! result__B3DH)) {
+          result__X3BH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__KUBH=((__CHARACTER )(( 0)));
+            result__X3BH=((__CHARACTER )(( 0)));
           } else {
-            result__KUBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__X3BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          result__5TDH=FALSE__;
-          if ((((__INTEGER_8 )result__KUBH) >= ((__INTEGER_8 )'0'))) {
-            result__5TDH=(((__INTEGER_8 )result__KUBH) <= ((__INTEGER_8 )'9'));
+          result__D3DH=FALSE__;
+          if ((((__INTEGER_8 )result__X3BH) >= ((__INTEGER_8 )'0'))) {
+            result__D3DH=(((__INTEGER_8 )result__X3BH) <= ((__INTEGER_8 )'9'));
           };
-          __tmp__JCL=(! result__5TDH);
+          __tmp__JCL=(! result__D3DH);
         } else {
           __tmp__JCL=FALSE__;
         };
         if (__tmp__JCL) {
-          result__TUBH='\0';
+          result__A4BH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__TUBH=((__CHARACTER )(( 0)));
+            result__A4BH=((__CHARACTER )(( 0)));
           } else {
-            result__TUBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__A4BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__KCL=(result__TUBH != '_');
+          __tmp__KCL=(result__A4BH != '_');
         } else {
           __tmp__KCL=FALSE__;
         };
         __tmp__NCL=__tmp__KCL;
       };
       if ((! __tmp__NCL)) {
-        result__2UBH='\0';
+        result__J4BH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__2UBH=((__CHARACTER )(( 0)));
+          result__J4BH=((__CHARACTER )(( 0)));
         } else {
-          result__2UBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__J4BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        add_last__ZLT(string_tmp__VH,result__2UBH);
+        add_last__ZLT(string_tmp__VH,result__J4BH);
         position__SBC=(__INTEGER)(position__SBC +  1);
-        goto until_do__KEZE;
+        goto until_do__CJZE;
       };
     };
     if ((((__STRING *)string_tmp__VH)->count__WFC !=  0)) {
-      idx__QAL=first_substring_index__RDZE(string_tmp__VH);
+      idx__QAL=first_substring_index__JIZE(string_tmp__VH);
       if ((idx__QAL !=  0)) {
         position__SBC=(__INTEGER)(posold__PAL + idx__QAL);
-        pos__G2ZG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_204));
-        put_position__UOG(pos__G2ZG);
+        pos__UF0G=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_207));
+        put_position__UOG(pos__UF0G);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -12492,7 +12655,7 @@ static __POSITION current_position__JXF()
   };
   if ((pos_line__WBC >  32767)) {
     result__MXF=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__JBC)->index__VMG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__XBC <<  9))) |  4294836224LU));
-    put_error__text__KNG( 0,(&__string_205));
+    put_error__text__KNG( 0,(&__string_208));
     put_position__UOG(result__MXF);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
@@ -12501,7 +12664,7 @@ static __POSITION current_position__JXF()
   };
   if ((pos_col__XBC >  255)) {
     result__MXF=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__JBC)->index__VMG) |  130560) | ((__UINTEGER_32 )(__INTEGER)(pos_line__WBC <<  17))));
-    put_error__text__KNG( 0,(&__string_206));
+    put_error__text__KNG( 0,(&__string_209));
     put_position__UOG(result__MXF);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
@@ -12517,16 +12680,16 @@ static void put_error__text__KNG(__INTEGER type__MNG,void *txt__NNG)
   type_error__ONG=type__MNG;
   ((__STRING *)msg_err__PNG)->count__WFC= 0;
   if ((type__MNG ==  0)) {
-    append__BOS(msg_err__PNG,(&__string_207));
+    append__BOS(msg_err__PNG,(&__string_210));
   };
   if ((type__MNG ==  1)) {
-    append__BOS(msg_err__PNG,(&__string_208));
+    append__BOS(msg_err__PNG,(&__string_211));
   };
   if ((type__MNG ==  2)) {
-    append__BOS(msg_err__PNG,(&__string_209));
+    append__BOS(msg_err__PNG,(&__string_212));
   };
   if ((type__MNG ==  3)) {
-    append__BOS(msg_err__PNG,(&__string_210));
+    append__BOS(msg_err__PNG,(&__string_213));
   };
   append__BOS(msg_err__PNG,txt__NNG);
 }
@@ -12540,15 +12703,15 @@ static void put_position__UOG(__POSITION Self__VOG)
   __CHARACTER char__4OG;
   c__XOG= 0;
   char__4OG='\0';
-  append__BOS(msg_err__PNG,(&__string_211));
+  append__BOS(msg_err__PNG,(&__string_214));
   append_in__OIH((__UINTEGER_32)(((__UINTEGER_32 )Self__VOG) >>  17),msg_err__PNG);
-  append__BOS(msg_err__PNG,(&__string_212));
+  append__BOS(msg_err__PNG,(&__string_215));
   append_in__OIH((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__VOG) >>  9) &  255),msg_err__PNG);
-  append__BOS(msg_err__PNG,(&__string_213));
+  append__BOS(msg_err__PNG,(&__string_216));
   append__BOS(msg_err__PNG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__VOG)) &  511)])->parent_named__5.name__LI);
   add_last__ZLT(msg_err__PNG,'(');
   append__BOS(msg_err__PNG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__VOG)) &  511)])->filename__UPG);
-  append__BOS(msg_err__PNG,(&__string_214));
+  append__BOS(msg_err__PNG,(&__string_217));
   src__3OG=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__VOG)) &  511)])->source__NBC;
   pos__WOG= 1;
   __tmp__5PG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__VOG) >>  17) -  1);
@@ -12578,7 +12741,7 @@ static void put_position__UOG(__POSITION Self__VOG)
   };
   add_last__ZLT(msg_err__PNG,'\n');
   append__BOS(msg_err__PNG,string_tmp__VH);
-  append__BOS(msg_err__PNG,(&__string_215));
+  append__BOS(msg_err__PNG,(&__string_218));
 }
 
 static __BOOLEAN read_symbol__DXJ(void *st__FXJ)
@@ -12586,7 +12749,7 @@ static __BOOLEAN read_symbol__DXJ(void *st__FXJ)
 {
   __INTEGER posold__HXJ,j__IXJ;
   __BOOLEAN result__JXJ,__tmp__RYJ,__tmp__OYJ;
-  __CHARACTER result__CWBH,result__PWBH;
+  __CHARACTER result__P5BH,result__25BH;
   posold__HXJ= 0;
   j__IXJ= 0;
   result__JXJ=FALSE__;
@@ -12597,25 +12760,25 @@ static __BOOLEAN read_symbol__DXJ(void *st__FXJ)
     j__IXJ= 1;
     until_do__4C5:
     {
-      result__CWBH='\0';
+      result__P5BH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__CWBH=((__CHARACTER )(( 0)));
+        result__P5BH=((__CHARACTER )(( 0)));
       } else {
-        result__CWBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__P5BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__CWBH == ((__CHARACTER )(( 0))))) {
+      if ((result__P5BH == ((__CHARACTER )(( 0))))) {
         __tmp__RYJ=TRUE__;
       } else {
         if ((j__IXJ > ((__STRING_CONSTANT *)st__FXJ)->count__DD)) {
           __tmp__OYJ=TRUE__;
         } else {
-          result__PWBH='\0';
+          result__25BH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__PWBH=((__CHARACTER )(( 0)));
+            result__25BH=((__CHARACTER )(( 0)));
           } else {
-            result__PWBH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__25BH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__OYJ=(result__PWBH != ((__CHARACTER *)((__STRING_CONSTANT *)st__FXJ)->storage__VQO)[(__INTEGER)(j__IXJ -  1)]);
+          __tmp__OYJ=(result__25BH != ((__CHARACTER *)((__STRING_CONSTANT *)st__FXJ)->storage__VQO)[(__INTEGER)(j__IXJ -  1)]);
         };
         __tmp__RYJ=__tmp__OYJ;
       };
@@ -12648,7 +12811,7 @@ static __BOOLEAN read_short_elt__LLKB()
   if (read_identifier__LAL()) {
     if (((void *)last_string__I0C != (void *)(&__string_115))) {
       pos__0IG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_216));
+      put_error__text__KNG( 2,(&__string_219));
       put_position__UOG(pos__0IG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
@@ -12717,29 +12880,29 @@ static __BOOLEAN read_short_elt__LLKB()
 static void fast_put__to__Y1R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__Z1R,void *k__11R)
 // ({HASHED_DICTIONARYoTYPExSTRING_CONSTANTo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER result__3ZFH,__tmp__5ZFH,Self__A0FH,idx__D2R,idx__LUNB;
-  __INTEGER new_capacity__MUNB,i__NUNB,result__C0FH,__tmp__E0FH;
-  __INTEGER Self__F0FH,typ_id__2WNB;
-  __STRING_CONSTANT *Self__D0FH;
-  __POINTER ptr__XWNB,ptr_table__O1GH,next__N1GH,result__P1GH;
-  __POINTER ptr_table__T1GH,next__S1GH,result__U1GH;
-  __UINTEGER_32 sz__ZWNB,a__XVDH,new_size__YVDH,t__2VDH,a__1VDH;
-  __UINTEGER_32 new_size__W1GH,lab_type__V1GH;
+  __INTEGER result__KCGH,__tmp__MCGH,Self__NCGH,idx__D2R,idx__LUNB;
+  __INTEGER new_capacity__MUNB,i__NUNB,result__PCGH,__tmp__RCGH;
+  __INTEGER Self__SCGH,typ_id__2WNB;
+  __STRING_CONSTANT *Self__QCGH;
+  __POINTER ptr__XWNB,ptr_table__1DHH,next__0DHH,result__2DHH;
+  __POINTER ptr_table__AEHH,next__5DHH,result__BEHH;
+  __UINTEGER_32 sz__ZWNB,a__14DH,new_size__24DH,t__A5DH,a__54DH;
+  __UINTEGER_32 new_size__DEHH,lab_type__CEHH;
   void *node__G2R,*node1__PUNB,*node2__QUNB,*__tmp__03R;
   void **old_buckets__OUNB;
   __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *result__WWNB;
   __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *Self__XTDC;
-  result__3ZFH= 0;
-  __tmp__5ZFH=((__STRING_CONSTANT *)k__11R)->count__DD;
-  Self__A0FH= 1;
-  while ((Self__A0FH <= __tmp__5ZFH)) {
-    result__3ZFH=(__INTEGER)((__INTEGER)( 5 * result__3ZFH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)k__11R)->storage__VQO)[(__INTEGER)(Self__A0FH -  1)])));
-    Self__A0FH=(__INTEGER)(Self__A0FH +  1);
+  result__KCGH= 0;
+  __tmp__MCGH=((__STRING_CONSTANT *)k__11R)->count__DD;
+  Self__NCGH= 1;
+  while ((Self__NCGH <= __tmp__MCGH)) {
+    result__KCGH=(__INTEGER)((__INTEGER)( 5 * result__KCGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)k__11R)->storage__VQO)[(__INTEGER)(Self__NCGH -  1)])));
+    Self__NCGH=(__INTEGER)(Self__NCGH +  1);
   };
-  if ((result__3ZFH <  0)) {
-    result__3ZFH=(__INTEGER)(~ result__3ZFH);
+  if ((result__KCGH <  0)) {
+    result__KCGH=(__INTEGER)(~ result__KCGH);
   };
-  idx__D2R=(__INTEGER)(result__3ZFH % Self__Z1R->capacity__I2R);
+  idx__D2R=(__INTEGER)(result__KCGH % Self__Z1R->capacity__I2R);
   node__G2R=((void **)Self__Z1R->buckets__N2R)[idx__D2R];
   while ((! (((void *)node__G2R == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__G2R)->key__Z2R == (void *)k__11R)))) {
     node__G2R=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__G2R)->next__E3R;
@@ -12758,25 +12921,25 @@ static void fast_put__to__Y1R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__Z
         node1__PUNB=((void **)old_buckets__OUNB)[i__NUNB];
         while (((void *)node1__PUNB != (void *)NULL)) {
           node2__QUNB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__PUNB)->next__E3R;
-          Self__D0FH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__PUNB)->key__Z2R);
-          result__C0FH= 0;
-          __tmp__E0FH=Self__D0FH->count__DD;
-          Self__F0FH= 1;
-          while ((Self__F0FH <= __tmp__E0FH)) {
-            result__C0FH=(__INTEGER)((__INTEGER)( 5 * result__C0FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__D0FH->storage__VQO)[(__INTEGER)(Self__F0FH -  1)])));
-            Self__F0FH=(__INTEGER)(Self__F0FH +  1);
-          };
-          if ((result__C0FH <  0)) {
-            result__C0FH=(__INTEGER)(~ result__C0FH);
-          };
-          idx__LUNB=(__INTEGER)(result__C0FH % Self__Z1R->capacity__I2R);
+          Self__QCGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__PUNB)->key__Z2R);
+          result__PCGH= 0;
+          __tmp__RCGH=Self__QCGH->count__DD;
+          Self__SCGH= 1;
+          while ((Self__SCGH <= __tmp__RCGH)) {
+            result__PCGH=(__INTEGER)((__INTEGER)( 5 * result__PCGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__QCGH->storage__VQO)[(__INTEGER)(Self__SCGH -  1)])));
+            Self__SCGH=(__INTEGER)(Self__SCGH +  1);
+          };
+          if ((result__PCGH <  0)) {
+            result__PCGH=(__INTEGER)(~ result__PCGH);
+          };
+          idx__LUNB=(__INTEGER)(result__PCGH % Self__Z1R->capacity__I2R);
           ((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__PUNB)->next__E3R=((void **)Self__Z1R->buckets__N2R)[idx__LUNB];
           ((void **)Self__Z1R->buckets__N2R)[idx__LUNB]=node1__PUNB;
           node1__PUNB=node2__QUNB;
         };
         i__NUNB=(__INTEGER)(i__NUNB -  1);
       };
-      idx__D2R=(__INTEGER)(result__3ZFH % new_capacity__MUNB);
+      idx__D2R=(__INTEGER)(result__KCGH % new_capacity__MUNB);
     };
     __tmp__03R=((void **)Self__Z1R->buckets__N2R)[idx__D2R];
     result__WWNB=NULL;
@@ -12789,61 +12952,61 @@ static void fast_put__to__Y1R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__Z
       typ_id__2WNB=__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ZWNB);
       if ((typ_id__2WNB == (__INTEGER)(-  1))) {
-        a__XVDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__YVDH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWNB + a__XVDH) & (__UINTEGER_32)(~ a__XVDH));
-        ptr_table__O1GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YVDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__N1GH=((__POINTER )(NULL));
-        result__P1GH=((__POINTER *)ptr_table__O1GH)[ 0];
-        if ((result__P1GH == (void *)NULL)) {
-          result__P1GH=new_lab__MRJ(new_size__YVDH);
-          next__N1GH=(void *)((unsigned long)result__P1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVDH)));
-          ((__POINTER *)next__N1GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__O1GH)[ 0]=next__N1GH;
-        } else {
-          next__N1GH=((__POINTER *)result__P1GH)[ 0];
-          if ((next__N1GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YVDH <<  1)) <=  4096)) {
-              next__N1GH=(void *)((unsigned long)result__P1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVDH)));
+        a__14DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__24DH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWNB + a__14DH) & (__UINTEGER_32)(~ a__14DH));
+        ptr_table__1DHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__24DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__0DHH=((__POINTER )(NULL));
+        result__2DHH=((__POINTER *)ptr_table__1DHH)[ 0];
+        if ((result__2DHH == (void *)NULL)) {
+          result__2DHH=new_lab__MRJ(new_size__24DH);
+          next__0DHH=(void *)((unsigned long)result__2DHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__24DH)));
+          ((__POINTER *)next__0DHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__1DHH)[ 0]=next__0DHH;
+        } else {
+          next__0DHH=((__POINTER *)result__2DHH)[ 0];
+          if ((next__0DHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2DHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__24DH <<  1)) <=  4096)) {
+              next__0DHH=(void *)((unsigned long)result__2DHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__24DH)));
             } else {
-              next__N1GH=new_lab__MRJ(new_size__YVDH);
-            };
-            ((__POINTER *)next__N1GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__O1GH)[ 0]=next__N1GH;
-          } else {
-            ((__POINTER *)result__P1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__P1GH=next__N1GH;
-          };
-        };
-        ptr__XWNB=result__P1GH;
-      } else {
-        t__2VDH=((__UINTEGER_32 )typ_id__2WNB);
-        a__1VDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__W1GH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWNB + a__1VDH) & (__UINTEGER_32)(~ a__1VDH));
-        ptr_table__T1GH=((__POINTER )(&(table_type[(t__2VDH)])));
-        lab_type__V1GH=(__UINTEGER_32)(t__2VDH |  1);
-        next__S1GH=((__POINTER )(NULL));
-        result__U1GH=((__POINTER *)ptr_table__T1GH)[ 0];
-        if ((result__U1GH == (void *)NULL)) {
-          result__U1GH=new_lab__MRJ(lab_type__V1GH);
-          next__S1GH=(void *)((unsigned long)result__U1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1GH)));
-          ((__POINTER *)next__S1GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__T1GH)[ 0]=next__S1GH;
-        } else {
-          next__S1GH=((__POINTER *)result__U1GH)[ 0];
-          if ((next__S1GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__W1GH <<  1)) <=  4096)) {
-              next__S1GH=(void *)((unsigned long)result__U1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1GH)));
+              next__0DHH=new_lab__MRJ(new_size__24DH);
+            };
+            ((__POINTER *)next__0DHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__1DHH)[ 0]=next__0DHH;
+          } else {
+            ((__POINTER *)result__2DHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0DHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__2DHH=next__0DHH;
+          };
+        };
+        ptr__XWNB=result__2DHH;
+      } else {
+        t__A5DH=((__UINTEGER_32 )typ_id__2WNB);
+        a__54DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__DEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWNB + a__54DH) & (__UINTEGER_32)(~ a__54DH));
+        ptr_table__AEHH=((__POINTER )(&(table_type[(t__A5DH)])));
+        lab_type__CEHH=(__UINTEGER_32)(t__A5DH |  1);
+        next__5DHH=((__POINTER )(NULL));
+        result__BEHH=((__POINTER *)ptr_table__AEHH)[ 0];
+        if ((result__BEHH == (void *)NULL)) {
+          result__BEHH=new_lab__MRJ(lab_type__CEHH);
+          next__5DHH=(void *)((unsigned long)result__BEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DEHH)));
+          ((__POINTER *)next__5DHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__AEHH)[ 0]=next__5DHH;
+        } else {
+          next__5DHH=((__POINTER *)result__BEHH)[ 0];
+          if ((next__5DHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DEHH <<  1)) <=  4096)) {
+              next__5DHH=(void *)((unsigned long)result__BEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DEHH)));
             } else {
-              next__S1GH=new_lab__MRJ(lab_type__V1GH);
+              next__5DHH=new_lab__MRJ(lab_type__CEHH);
             };
-            ((__POINTER *)next__S1GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__T1GH)[ 0]=next__S1GH;
+            ((__POINTER *)next__5DHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__AEHH)[ 0]=next__5DHH;
           } else {
-            ((__POINTER *)result__U1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__U1GH=next__S1GH;
+            ((__POINTER *)result__BEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5DHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__BEHH=next__5DHH;
           };
         };
-        ptr__XWNB=result__U1GH;
+        ptr__XWNB=result__BEHH;
       };
       result__WWNB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)ptr__XWNB);
       *(result__WWNB) = *(HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__);
@@ -12861,11 +13024,11 @@ static __TYPE_FULL* create__with__SQB(void *typ__UQB,__UINTEGER_8 code__VQB)
 // ({TYPE_NULLxTYPE_VOIDxTYPE_CONTEXTxTYPE_ID},{UINTEGER_8}) With resultNo recursive, No inlinable.
 {
   __TYPE_FULL *result__10B,*Self__UFS;
-  __POINTER ptr__20B,ptr_table__Y1GH,next__X1GH,result__Z1GH;
-  __POINTER ptr_table__31GH,next__21GH,result__41GH;
+  __POINTER ptr__20B,ptr_table__FEHH,next__EEHH,result__GEHH;
+  __POINTER ptr_table__KEHH,next__JEHH,result__LEHH;
   __INTEGER typ_id__B1B;
-  __UINTEGER_32 sz__40B,a__5VDH,new_size__AWDH,t__EWDH,a__DWDH;
-  __UINTEGER_32 new_size__A2GH,lab_type__51GH;
+  __UINTEGER_32 sz__40B,a__D5DH,new_size__E5DH,t__I5DH,a__H5DH;
+  __UINTEGER_32 new_size__NEHH,lab_type__MEHH;
   void *__tmp__AGS,*__tmp__IGS;
   __BOOLEAN __tmp__UGS,__tmp__VGS;
   result__10B=NULL;
@@ -12878,61 +13041,61 @@ static __TYPE_FULL* create__with__SQB(void *typ__UQB,__UINTEGER_8 code__VQB)
     typ_id__B1B=__TYPE_FULL__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__40B);
     if ((typ_id__B1B == (__INTEGER)(-  1))) {
-      a__5VDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__AWDH=(__UINTEGER_32)((__UINTEGER_32)(sz__40B + a__5VDH) & (__UINTEGER_32)(~ a__5VDH));
-      ptr_table__Y1GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AWDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__X1GH=((__POINTER )(NULL));
-      result__Z1GH=((__POINTER *)ptr_table__Y1GH)[ 0];
-      if ((result__Z1GH == (void *)NULL)) {
-        result__Z1GH=new_lab__MRJ(new_size__AWDH);
-        next__X1GH=(void *)((unsigned long)result__Z1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWDH)));
-        ((__POINTER *)next__X1GH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__Y1GH)[ 0]=next__X1GH;
+      a__D5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__E5DH=(__UINTEGER_32)((__UINTEGER_32)(sz__40B + a__D5DH) & (__UINTEGER_32)(~ a__D5DH));
+      ptr_table__FEHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__E5DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__EEHH=((__POINTER )(NULL));
+      result__GEHH=((__POINTER *)ptr_table__FEHH)[ 0];
+      if ((result__GEHH == (void *)NULL)) {
+        result__GEHH=new_lab__MRJ(new_size__E5DH);
+        next__EEHH=(void *)((unsigned long)result__GEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E5DH)));
+        ((__POINTER *)next__EEHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__FEHH)[ 0]=next__EEHH;
       } else {
-        next__X1GH=((__POINTER *)result__Z1GH)[ 0];
-        if ((next__X1GH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z1GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AWDH <<  1)) <=  4096)) {
-            next__X1GH=(void *)((unsigned long)result__Z1GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWDH)));
+        next__EEHH=((__POINTER *)result__GEHH)[ 0];
+        if ((next__EEHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__E5DH <<  1)) <=  4096)) {
+            next__EEHH=(void *)((unsigned long)result__GEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E5DH)));
           } else {
-            next__X1GH=new_lab__MRJ(new_size__AWDH);
+            next__EEHH=new_lab__MRJ(new_size__E5DH);
           };
-          ((__POINTER *)next__X1GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__Y1GH)[ 0]=next__X1GH;
+          ((__POINTER *)next__EEHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__FEHH)[ 0]=next__EEHH;
         } else {
-          ((__POINTER *)result__Z1GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X1GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Z1GH=next__X1GH;
+          ((__POINTER *)result__GEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EEHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__GEHH=next__EEHH;
         };
       };
-      ptr__20B=result__Z1GH;
+      ptr__20B=result__GEHH;
     } else {
-      t__EWDH=((__UINTEGER_32 )typ_id__B1B);
-      a__DWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__A2GH=(__UINTEGER_32)((__UINTEGER_32)(sz__40B + a__DWDH) & (__UINTEGER_32)(~ a__DWDH));
-      ptr_table__31GH=((__POINTER )(&(table_type[(t__EWDH)])));
-      lab_type__51GH=(__UINTEGER_32)(t__EWDH |  1);
-      next__21GH=((__POINTER )(NULL));
-      result__41GH=((__POINTER *)ptr_table__31GH)[ 0];
-      if ((result__41GH == (void *)NULL)) {
-        result__41GH=new_lab__MRJ(lab_type__51GH);
-        next__21GH=(void *)((unsigned long)result__41GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2GH)));
-        ((__POINTER *)next__21GH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__31GH)[ 0]=next__21GH;
+      t__I5DH=((__UINTEGER_32 )typ_id__B1B);
+      a__H5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__NEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__40B + a__H5DH) & (__UINTEGER_32)(~ a__H5DH));
+      ptr_table__KEHH=((__POINTER )(&(table_type[(t__I5DH)])));
+      lab_type__MEHH=(__UINTEGER_32)(t__I5DH |  1);
+      next__JEHH=((__POINTER )(NULL));
+      result__LEHH=((__POINTER *)ptr_table__KEHH)[ 0];
+      if ((result__LEHH == (void *)NULL)) {
+        result__LEHH=new_lab__MRJ(lab_type__MEHH);
+        next__JEHH=(void *)((unsigned long)result__LEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NEHH)));
+        ((__POINTER *)next__JEHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__KEHH)[ 0]=next__JEHH;
       } else {
-        next__21GH=((__POINTER *)result__41GH)[ 0];
-        if ((next__21GH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__41GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__A2GH <<  1)) <=  4096)) {
-            next__21GH=(void *)((unsigned long)result__41GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2GH)));
+        next__JEHH=((__POINTER *)result__LEHH)[ 0];
+        if ((next__JEHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NEHH <<  1)) <=  4096)) {
+            next__JEHH=(void *)((unsigned long)result__LEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NEHH)));
           } else {
-            next__21GH=new_lab__MRJ(lab_type__51GH);
+            next__JEHH=new_lab__MRJ(lab_type__MEHH);
           };
-          ((__POINTER *)next__21GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__31GH)[ 0]=next__21GH;
+          ((__POINTER *)next__JEHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__KEHH)[ 0]=next__JEHH;
         } else {
-          ((__POINTER *)result__41GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__21GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__41GH=next__21GH;
+          ((__POINTER *)result__LEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JEHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__LEHH=next__JEHH;
         };
       };
-      ptr__20B=result__41GH;
+      ptr__20B=result__LEHH;
     };
     result__10B=((__TYPE_FULL *)ptr__20B);
     *(result__10B) = *(TYPE_FULL__);
@@ -12978,7 +13141,7 @@ static __TYPE_FULL* create__with__SQB(void *typ__UQB,__UINTEGER_8 code__VQB)
     __tmp__VGS=FALSE__;
   };
   if ((__tmp__VGS && (! ((__UINTEGER_8)(Self__UFS->flag__YFS &  1) !=  0)))) {
-    print__WHD((&__string_217));
+    print__WHD((&__string_220));
     fputc((int)('\n'),stdout);
     exit(( 1));
   };
@@ -12988,57 +13151,57 @@ static __TYPE_FULL* create__with__SQB(void *typ__UQB,__UINTEGER_8 code__VQB)
 static void** create__CZNB(__INTEGER nb_elements__EZNB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__L4BH,a__HWDH,new_size__M4BH,new_size2__N4BH,a__LWDH;
-  __UINTEGER_32 new_size__MWDH;
-  __POINTER result__K4BH,ptr_table__C2GH,next__B2GH,result__D2GH;
-  void *result__G2GH;
+  __UINTEGER_32 sz__YHCH,a__L5DH,new_size__ZHCH,new_size2__0HCH,a__P5DH;
+  __UINTEGER_32 new_size__Q5DH;
+  __POINTER result__XHCH,ptr_table__PEHH,next__OEHH,result__QEHH;
+  void *result__TEHH;
   __INTEGER Self__1FMC;
   void **Result__F4RB;
-  sz__L4BH=((__UINTEGER_32 )(__INTEGER)(nb_elements__EZNB * ((__INTEGER )(sizeof(void *)))));
-  result__K4BH=((__POINTER )(NULL));
-  a__HWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__M4BH=(__UINTEGER_32)((__UINTEGER_32)(sz__L4BH + a__HWDH) & (__UINTEGER_32)(~ a__HWDH));
-  new_size2__N4BH=(__UINTEGER_32)(new_size__M4BH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__N4BH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__LWDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__MWDH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__N4BH + a__LWDH) & (__UINTEGER_32)(~ a__LWDH));
-    ptr_table__C2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MWDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__B2GH=((__POINTER )(NULL));
-    result__D2GH=((__POINTER *)ptr_table__C2GH)[ 0];
-    if ((result__D2GH == (void *)NULL)) {
-      result__D2GH=new_lab__MRJ(new_size__MWDH);
-      next__B2GH=(void *)((unsigned long)result__D2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MWDH)));
-      ((__POINTER *)next__B2GH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__C2GH)[ 0]=next__B2GH;
-    } else {
-      next__B2GH=((__POINTER *)result__D2GH)[ 0];
-      if ((next__B2GH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MWDH <<  1)) <=  4096)) {
-          next__B2GH=(void *)((unsigned long)result__D2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MWDH)));
-        } else {
-          next__B2GH=new_lab__MRJ(new_size__MWDH);
-        };
-        ((__POINTER *)next__B2GH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__C2GH)[ 0]=next__B2GH;
-      } else {
-        ((__POINTER *)result__D2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__D2GH=next__B2GH;
-      };
-    };
-    ((__POINTER *)result__D2GH)[ 0]=((__POINTER ) 3);
-    result__K4BH=(void *)((unsigned long)result__D2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__YHCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__EZNB * ((__INTEGER )(sizeof(void *)))));
+  result__XHCH=((__POINTER )(NULL));
+  a__L5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__ZHCH=(__UINTEGER_32)((__UINTEGER_32)(sz__YHCH + a__L5DH) & (__UINTEGER_32)(~ a__L5DH));
+  new_size2__0HCH=(__UINTEGER_32)(new_size__ZHCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__0HCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__P5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__Q5DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0HCH + a__P5DH) & (__UINTEGER_32)(~ a__P5DH));
+    ptr_table__PEHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q5DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__OEHH=((__POINTER )(NULL));
+    result__QEHH=((__POINTER *)ptr_table__PEHH)[ 0];
+    if ((result__QEHH == (void *)NULL)) {
+      result__QEHH=new_lab__MRJ(new_size__Q5DH);
+      next__OEHH=(void *)((unsigned long)result__QEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5DH)));
+      ((__POINTER *)next__OEHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__PEHH)[ 0]=next__OEHH;
+    } else {
+      next__OEHH=((__POINTER *)result__QEHH)[ 0];
+      if ((next__OEHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q5DH <<  1)) <=  4096)) {
+          next__OEHH=(void *)((unsigned long)result__QEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5DH)));
+        } else {
+          next__OEHH=new_lab__MRJ(new_size__Q5DH);
+        };
+        ((__POINTER *)next__OEHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__PEHH)[ 0]=next__OEHH;
+      } else {
+        ((__POINTER *)result__QEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OEHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__QEHH=next__OEHH;
+      };
+    };
+    ((__POINTER *)result__QEHH)[ 0]=((__POINTER ) 3);
+    result__XHCH=(void *)((unsigned long)result__QEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__G2GH=first_free__XDVB;
-    while ((((void *)result__G2GH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__G2GH)->map_size_and_id__ITB &  4294967292LU) < new_size__M4BH))) {
-      result__G2GH=((__MEMORY *)result__G2GH)->map_next_free__JTB;
+    result__TEHH=first_free__XDVB;
+    while ((((void *)result__TEHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__TEHH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZHCH))) {
+      result__TEHH=((__MEMORY *)result__TEHH)->map_next_free__JTB;
     };
-    if (((void *)result__G2GH == (void *)NULL)) {
-      result__G2GH=new_page__OA5();
+    if (((void *)result__TEHH == (void *)NULL)) {
+      result__TEHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__G2GH,new_size__M4BH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__G2GH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__K4BH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__G2GH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__TEHH,new_size__ZHCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__TEHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__XHCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__TEHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__F4RB=((void **)result__K4BH);
+  Result__F4RB=((void **)result__XHCH);
   Self__1FMC=(__INTEGER)(nb_elements__EZNB -  1);
   while ((Self__1FMC >=  0)) {
     Result__F4RB[Self__1FMC]=NULL;
@@ -13087,115 +13250,115 @@ static void add_last__O4R(__FAST_ARRAYoTYPE_IDo *Self__P4R,void *element__Q4R)
 static __BOOLEAN open__ZERD(__DIRECTORY_UNIX *Self__0ERD)
 // ({DIRECTORY_UNIX}) With resultNo recursive, No inlinable.
 {
-  __POINTER dirent__AFRD,ptr__QVLE,ptr_table__K2GH,next__J2GH;
-  __POINTER result__L2GH,ptr_table__P2GH,next__O2GH,result__Q2GH;
-  __POINTER dir__4ERD,ptr__Z2GH,ptr_table__D3GH,next__C3GH,result__E3GH;
-  __POINTER ptr_table__I3GH,next__H3GH,result__J3GH,ptr__Q3MF;
-  __POINTER ptr_table__N3GH,next__M3GH,result__O3GH,ptr_table__S3GH;
-  __POINTER next__R3GH,result__T3GH;
-  __INTEGER i__EFRD,typ_id__VVLE,i__U2GH,Self__HTEF,i__LXDH,j__NXDH;
-  __INTEGER Self__2TFH,idx__WF3E,idx__UC3,n__GUTD,n__TBEH,typ_id__02GH;
-  __INTEGER typ_id__V3MF;
-  __UINTEGER_32 sz__SVLE,a__0WDH,new_size__1WDH,t__5WDH,a__4WDH;
-  __UINTEGER_32 new_size__S2GH,lab_type__R2GH,sz__12GH,a__22GH;
-  __UINTEGER_32 new_size__32GH,t__42GH,a__52GH,new_size__L3GH;
-  __UINTEGER_32 lab_type__K3GH,sz__S3MF,a__2CEH,new_size__3CEH,t__BDEH;
-  __UINTEGER_32 a__ADEH,new_size__V3GH,lab_type__U3GH;
-  __STRING *new__YOQE,*Self__5OQE,*Self__Q32E,*Self__KXDH,*Self__ZXSD;
+  __POINTER dirent__AFRD,ptr__SZLE,ptr_table__XEHH,next__WEHH;
+  __POINTER result__YEHH,ptr_table__2EHH,next__1EHH,result__3EHH;
+  __POINTER dir__4ERD,ptr__GFHH,ptr_table__QFHH,next__PFHH,result__RFHH;
+  __POINTER ptr_table__VFHH,next__UFHH,result__WFHH,ptr__GDNF;
+  __POINTER ptr_table__0FHH,next__ZFHH,result__1FHH,ptr_table__5FHH;
+  __POINTER next__4FHH,result__AGHH;
+  __INTEGER i__EFRD,typ_id__XZLE,i__BFHH,Self__MYEF,i__PAEH,j__RAEH;
+  __INTEGER Self__D2FH,idx__5K3E,idx__UC3,n__GUTD,n__CLEH,typ_id__HFHH;
+  __INTEGER typ_id__LDNF;
+  __UINTEGER_32 sz__UZLE,a__45DH,new_size__55DH,t__DAEH,a__CAEH;
+  __UINTEGER_32 new_size__5EHH,lab_type__4EHH,sz__IFHH,a__JFHH;
+  __UINTEGER_32 new_size__KFHH,t__LFHH,a__MFHH,new_size__YFHH;
+  __UINTEGER_32 lab_type__XFHH,sz__IDNF,a__LMEH,new_size__MMEH,t__QMEH;
+  __UINTEGER_32 a__PMEH,new_size__CGHH,lab_type__BGHH;
+  __STRING *new__YSQE,*Self__5SQE,*Self__ZC3E,*Self__OAEH,*Self__ZXSD;
   __STRING *Self__FUTD;
-  void *other__MXDH;
-  void *result__VF3E;
-  void *__tmp__JI3E,*dir__HI3E;
+  void *other__QAEH;
+  void *result__4K3E;
+  void *__tmp__SN3E,*dir__QN3E;
   void *__tmp__THRD;
-  __CHARACTER *n__3ERD,*Self__V2GH,*other__W2GH,*Self__3TFH,*model__4TFH;
+  __CHARACTER *n__3ERD,*Self__CFHH,*other__DFHH,*Self__E2FH,*model__F2FH;
   __CHARACTER *Self__IC3;
-  __BOOLEAN result__DFRD,result__QQRE,__tmp__YH3E;
-  __LINKED_LISToENTRYo *result__PVLE,*Self__MWVE,*Self__CKLF;
-  __LINKED_LIST_NODEoENTRYo *result__Y2GH,*Self__A3GH,*result__P3MF;
-  __LINKED_LIST_NODEoENTRYo *Self__HFPF;
+  __BOOLEAN result__DFRD,result__QURE,__tmp__BN3E;
+  __LINKED_LISToENTRYo *result__RZLE,*Self__A1VE,*Self__SPLF;
+  __LINKED_LIST_NODEoENTRYo *result__FFHH,*Self__NFHH,*result__FDNF;
+  __LINKED_LIST_NODEoENTRYo *Self__FLPF;
   n__3ERD=NULL;
   dirent__AFRD=((__POINTER )(NULL));
   result__DFRD=FALSE__;
   i__EFRD= 0;
   if (((void *)Self__0ERD->parent_directory__0ED.list__IFRD == (void *)NULL)) {
-    result__PVLE=NULL;
-    ptr__QVLE=((__POINTER )(NULL));
-    typ_id__VVLE= 0;
-    sz__SVLE=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
-    if ((sz__SVLE ==  0)) {
-      result__PVLE=LINKED_LISToENTRYo__;
-    } else {
-      typ_id__VVLE=__LINKED_LISToENTRYo__;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SVLE);
-      if ((typ_id__VVLE == (__INTEGER)(-  1))) {
-        a__0WDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__1WDH=(__UINTEGER_32)((__UINTEGER_32)(sz__SVLE + a__0WDH) & (__UINTEGER_32)(~ a__0WDH));
-        ptr_table__K2GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1WDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__J2GH=((__POINTER )(NULL));
-        result__L2GH=((__POINTER *)ptr_table__K2GH)[ 0];
-        if ((result__L2GH == (void *)NULL)) {
-          result__L2GH=new_lab__MRJ(new_size__1WDH);
-          next__J2GH=(void *)((unsigned long)result__L2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1WDH)));
-          ((__POINTER *)next__J2GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__K2GH)[ 0]=next__J2GH;
-        } else {
-          next__J2GH=((__POINTER *)result__L2GH)[ 0];
-          if ((next__J2GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1WDH <<  1)) <=  4096)) {
-              next__J2GH=(void *)((unsigned long)result__L2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1WDH)));
+    result__RZLE=NULL;
+    ptr__SZLE=((__POINTER )(NULL));
+    typ_id__XZLE= 0;
+    sz__UZLE=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
+    if ((sz__UZLE ==  0)) {
+      result__RZLE=LINKED_LISToENTRYo__;
+    } else {
+      typ_id__XZLE=__LINKED_LISToENTRYo__;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__UZLE);
+      if ((typ_id__XZLE == (__INTEGER)(-  1))) {
+        a__45DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__55DH=(__UINTEGER_32)((__UINTEGER_32)(sz__UZLE + a__45DH) & (__UINTEGER_32)(~ a__45DH));
+        ptr_table__XEHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__55DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__WEHH=((__POINTER )(NULL));
+        result__YEHH=((__POINTER *)ptr_table__XEHH)[ 0];
+        if ((result__YEHH == (void *)NULL)) {
+          result__YEHH=new_lab__MRJ(new_size__55DH);
+          next__WEHH=(void *)((unsigned long)result__YEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__55DH)));
+          ((__POINTER *)next__WEHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__XEHH)[ 0]=next__WEHH;
+        } else {
+          next__WEHH=((__POINTER *)result__YEHH)[ 0];
+          if ((next__WEHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__55DH <<  1)) <=  4096)) {
+              next__WEHH=(void *)((unsigned long)result__YEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__55DH)));
             } else {
-              next__J2GH=new_lab__MRJ(new_size__1WDH);
-            };
-            ((__POINTER *)next__J2GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__K2GH)[ 0]=next__J2GH;
-          } else {
-            ((__POINTER *)result__L2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__L2GH=next__J2GH;
-          };
-        };
-        ptr__QVLE=result__L2GH;
-      } else {
-        t__5WDH=((__UINTEGER_32 )typ_id__VVLE);
-        a__4WDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__S2GH=(__UINTEGER_32)((__UINTEGER_32)(sz__SVLE + a__4WDH) & (__UINTEGER_32)(~ a__4WDH));
-        ptr_table__P2GH=((__POINTER )(&(table_type[(t__5WDH)])));
-        lab_type__R2GH=(__UINTEGER_32)(t__5WDH |  1);
-        next__O2GH=((__POINTER )(NULL));
-        result__Q2GH=((__POINTER *)ptr_table__P2GH)[ 0];
-        if ((result__Q2GH == (void *)NULL)) {
-          result__Q2GH=new_lab__MRJ(lab_type__R2GH);
-          next__O2GH=(void *)((unsigned long)result__Q2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S2GH)));
-          ((__POINTER *)next__O2GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__P2GH)[ 0]=next__O2GH;
-        } else {
-          next__O2GH=((__POINTER *)result__Q2GH)[ 0];
-          if ((next__O2GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q2GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__S2GH <<  1)) <=  4096)) {
-              next__O2GH=(void *)((unsigned long)result__Q2GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S2GH)));
+              next__WEHH=new_lab__MRJ(new_size__55DH);
+            };
+            ((__POINTER *)next__WEHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__XEHH)[ 0]=next__WEHH;
+          } else {
+            ((__POINTER *)result__YEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WEHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__YEHH=next__WEHH;
+          };
+        };
+        ptr__SZLE=result__YEHH;
+      } else {
+        t__DAEH=((__UINTEGER_32 )typ_id__XZLE);
+        a__CAEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__5EHH=(__UINTEGER_32)((__UINTEGER_32)(sz__UZLE + a__CAEH) & (__UINTEGER_32)(~ a__CAEH));
+        ptr_table__2EHH=((__POINTER )(&(table_type[(t__DAEH)])));
+        lab_type__4EHH=(__UINTEGER_32)(t__DAEH |  1);
+        next__1EHH=((__POINTER )(NULL));
+        result__3EHH=((__POINTER *)ptr_table__2EHH)[ 0];
+        if ((result__3EHH == (void *)NULL)) {
+          result__3EHH=new_lab__MRJ(lab_type__4EHH);
+          next__1EHH=(void *)((unsigned long)result__3EHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5EHH)));
+          ((__POINTER *)next__1EHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__2EHH)[ 0]=next__1EHH;
+        } else {
+          next__1EHH=((__POINTER *)result__3EHH)[ 0];
+          if ((next__1EHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3EHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5EHH <<  1)) <=  4096)) {
+              next__1EHH=(void *)((unsigned long)result__3EHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5EHH)));
             } else {
-              next__O2GH=new_lab__MRJ(lab_type__R2GH);
+              next__1EHH=new_lab__MRJ(lab_type__4EHH);
             };
-            ((__POINTER *)next__O2GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__P2GH)[ 0]=next__O2GH;
+            ((__POINTER *)next__1EHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__2EHH)[ 0]=next__1EHH;
           } else {
-            ((__POINTER *)result__Q2GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O2GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__Q2GH=next__O2GH;
+            ((__POINTER *)result__3EHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1EHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__3EHH=next__1EHH;
           };
         };
-        ptr__QVLE=result__Q2GH;
+        ptr__SZLE=result__3EHH;
       };
-      result__PVLE=((__LINKED_LISToENTRYo *)ptr__QVLE);
-      *(result__PVLE) = *(LINKED_LISToENTRYo__);
+      result__RZLE=((__LINKED_LISToENTRYo *)ptr__SZLE);
+      *(result__RZLE) = *(LINKED_LISToENTRYo__);
     };
-    Self__0ERD->parent_directory__0ED.list__IFRD=result__PVLE;
+    Self__0ERD->parent_directory__0ED.list__IFRD=result__RZLE;
   } else {
-    Self__MWVE=((__LINKED_LISToENTRYo *)Self__0ERD->parent_directory__0ED.list__IFRD);
-    if (((void *)Self__MWVE->first_link__OWVE != (void *)NULL)) {
-      Self__MWVE->first_link__OWVE=NULL;
-      Self__MWVE->mem_idx__VWVE= 0;
-      Self__MWVE->mem_lnk__WWVE=NULL;
-      Self__MWVE->parent_linked_collection__HFRD.upper__TI3D= 0;
-      Self__MWVE->last_link__XWVE=NULL;
+    Self__A1VE=((__LINKED_LISToENTRYo *)Self__0ERD->parent_directory__0ED.list__IFRD);
+    if (((void *)Self__A1VE->first_link__C1VE != (void *)NULL)) {
+      Self__A1VE->first_link__C1VE=NULL;
+      Self__A1VE->mem_idx__J1VE= 0;
+      Self__A1VE->mem_lnk__K1VE=NULL;
+      Self__A1VE->parent_linked_collection__HFRD.upper__VM3D= 0;
+      Self__A1VE->last_link__L1VE=NULL;
     };
   };
   dir__4ERD=((__POINTER )(opendir((((__STRING_CONSTANT *)Self__0ERD->parent_entry_unix__ZED.parent_entry__YED.path__BD)->storage__VQO))));
@@ -13211,273 +13374,273 @@ static __BOOLEAN open__ZERD(__DIRECTORY_UNIX *Self__0ERD)
           add_last__ZLT(string_tmp__TED,((__CHARACTER *)n__3ERD)[i__EFRD]);
           i__EFRD=(__INTEGER)(i__EFRD +  1);
         };
-        new__YOQE=create__NBB(((__STRING_CONSTANT *)(&__string_218))->count__DD);
-        copy__ZCS(new__YOQE,(&__string_218));
-        Self__5OQE=((__STRING *)string_tmp__TED);
-        result__QQRE=FALSE__;
-        if ((Self__5OQE->count__WFC == new__YOQE->count__WFC)) {
-          if ((Self__5OQE->count__WFC ==  0)) {
-            result__QQRE=TRUE__;
-          } else {
-            Self__V2GH=((__CHARACTER *)Self__5OQE->storage__BCS);
-            other__W2GH=new__YOQE->storage__BCS;
-            i__U2GH=(__INTEGER)(Self__5OQE->count__WFC -  1);
-            while (((i__U2GH >=  0) && (Self__V2GH[i__U2GH] == ((__CHARACTER *)other__W2GH)[i__U2GH]))) {
-              i__U2GH=(__INTEGER)(i__U2GH -  1);
-            };
-            result__QQRE=(i__U2GH <  0);
-          };
-        };
-        if ((! result__QQRE)) {
-          Self__Q32E=((__STRING *)string_tmp__TED);
-          add_last__ZLT(Self__Q32E,' ');
-          Self__HTEF=Self__Q32E->count__WFC;
-          while ((Self__HTEF >=  2)) {
-            ((__CHARACTER *)Self__Q32E->storage__BCS)[(__INTEGER)(Self__HTEF -  1)]=((__CHARACTER *)Self__Q32E->storage__BCS)[(__INTEGER)((__INTEGER)(Self__HTEF -  1) -  1)];
-            Self__HTEF=(__INTEGER)(Self__HTEF -  1);
-          };
-          ((__CHARACTER *)Self__Q32E->storage__BCS)[ 0]='/';
-          Self__KXDH=((__STRING *)string_tmp__TED);
-          other__MXDH=Self__0ERD->parent_entry_unix__ZED.parent_entry__YED.path__BD;
-          i__LXDH=Self__KXDH->count__WFC;
-          j__NXDH=((__STRING_CONSTANT *)other__MXDH)->count__DD;
-          resize__YXZ(Self__KXDH,(__INTEGER)(i__LXDH + j__NXDH));
-          if (((i__LXDH >  0) && (j__NXDH >  0))) {
-            move__to__by__BWCC(Self__KXDH->storage__BCS, 0,(__INTEGER)(i__LXDH -  1),j__NXDH);
-          };
-          Self__3TFH=((__CHARACTER *)Self__KXDH->storage__BCS);
-          model__4TFH=((__STRING_CONSTANT *)other__MXDH)->storage__VQO;
-          Self__2TFH=(__INTEGER)(j__NXDH -  1);
-          while ((Self__2TFH >=  0)) {
-            Self__3TFH[Self__2TFH]=((__CHARACTER *)model__4TFH)[Self__2TFH];
-            Self__2TFH=(__INTEGER)(Self__2TFH -  1);
-          };
-          reduce_path__Y42E(string_tmp__TED);
-          result__VF3E=NULL;
-          idx__WF3E= 0;
+        new__YSQE=create__NBB(((__STRING_CONSTANT *)(&__string_221))->count__DD);
+        copy__ZCS(new__YSQE,(&__string_221));
+        Self__5SQE=((__STRING *)string_tmp__TED);
+        result__QURE=FALSE__;
+        if ((Self__5SQE->count__WFC == new__YSQE->count__WFC)) {
+          if ((Self__5SQE->count__WFC ==  0)) {
+            result__QURE=TRUE__;
+          } else {
+            Self__CFHH=((__CHARACTER *)Self__5SQE->storage__BCS);
+            other__DFHH=new__YSQE->storage__BCS;
+            i__BFHH=(__INTEGER)(Self__5SQE->count__WFC -  1);
+            while (((i__BFHH >=  0) && (Self__CFHH[i__BFHH] == ((__CHARACTER *)other__DFHH)[i__BFHH]))) {
+              i__BFHH=(__INTEGER)(i__BFHH -  1);
+            };
+            result__QURE=(i__BFHH <  0);
+          };
+        };
+        if ((! result__QURE)) {
+          Self__ZC3E=((__STRING *)string_tmp__TED);
+          add_last__ZLT(Self__ZC3E,' ');
+          Self__MYEF=Self__ZC3E->count__WFC;
+          while ((Self__MYEF >=  2)) {
+            ((__CHARACTER *)Self__ZC3E->storage__BCS)[(__INTEGER)(Self__MYEF -  1)]=((__CHARACTER *)Self__ZC3E->storage__BCS)[(__INTEGER)((__INTEGER)(Self__MYEF -  1) -  1)];
+            Self__MYEF=(__INTEGER)(Self__MYEF -  1);
+          };
+          ((__CHARACTER *)Self__ZC3E->storage__BCS)[ 0]='/';
+          Self__OAEH=((__STRING *)string_tmp__TED);
+          other__QAEH=Self__0ERD->parent_entry_unix__ZED.parent_entry__YED.path__BD;
+          i__PAEH=Self__OAEH->count__WFC;
+          j__RAEH=((__STRING_CONSTANT *)other__QAEH)->count__DD;
+          resize__YXZ(Self__OAEH,(__INTEGER)(i__PAEH + j__RAEH));
+          if (((i__PAEH >  0) && (j__RAEH >  0))) {
+            move__to__by__BWCC(Self__OAEH->storage__BCS, 0,(__INTEGER)(i__PAEH -  1),j__RAEH);
+          };
+          Self__E2FH=((__CHARACTER *)Self__OAEH->storage__BCS);
+          model__F2FH=((__STRING_CONSTANT *)other__QAEH)->storage__VQO;
+          Self__D2FH=(__INTEGER)(j__RAEH -  1);
+          while ((Self__D2FH >=  0)) {
+            Self__E2FH[Self__D2FH]=((__CHARACTER *)model__F2FH)[Self__D2FH];
+            Self__D2FH=(__INTEGER)(Self__D2FH -  1);
+          };
+          reduce_path__BE3E(string_tmp__TED);
+          result__4K3E=NULL;
+          idx__5K3E= 0;
           copy__ZCS(string_tmp2__Z0AC,Self__0ERD->parent_entry_unix__ZED.parent_entry__YED.path__BD);
           add_last__ZLT(string_tmp2__Z0AC,'/');
           append__BOS(string_tmp2__Z0AC,string_tmp__TED);
-          reduce_path__Y42E(string_tmp2__Z0AC);
+          reduce_path__BE3E(string_tmp2__Z0AC);
           copy__ZCS(string_tmp3__50AC,string_tmp2__Z0AC);
           do {
-            result__VF3E=reference_at__EU0C(alias__EFD,string_tmp2__Z0AC);
-            if (((void *)result__VF3E == (void *)NULL)) {
+            result__4K3E=reference_at__EU0C(alias__EFD,string_tmp2__Z0AC);
+            if (((void *)result__4K3E == (void *)NULL)) {
               Self__ZXSD=((__STRING *)string_tmp2__Z0AC);
               Self__IC3=((__CHARACTER *)Self__ZXSD->storage__BCS);
               idx__UC3=(__INTEGER)(Self__ZXSD->count__WFC -  1);
               while ((! ((idx__UC3 <  0) || ('/' == Self__IC3[idx__UC3])))) {
                 idx__UC3=(__INTEGER)(idx__UC3 -  1);
               };
-              idx__WF3E=(__INTEGER)( 1 + idx__UC3);
-              if ((idx__WF3E >  0)) {
+              idx__5K3E=(__INTEGER)( 1 + idx__UC3);
+              if ((idx__5K3E >  0)) {
                 Self__FUTD=((__STRING *)string_tmp2__Z0AC);
-                n__GUTD=(__INTEGER)(idx__WF3E -  1);
+                n__GUTD=(__INTEGER)(idx__5K3E -  1);
                 if ((n__GUTD < Self__FUTD->count__WFC)) {
-                  n__TBEH=(__INTEGER)(Self__FUTD->count__WFC - n__GUTD);
-                  if ((n__TBEH > Self__FUTD->count__WFC)) {
+                  n__CLEH=(__INTEGER)(Self__FUTD->count__WFC - n__GUTD);
+                  if ((n__CLEH > Self__FUTD->count__WFC)) {
                     Self__FUTD->count__WFC= 0;
                   } else {
-                    Self__FUTD->count__WFC=(__INTEGER)(Self__FUTD->count__WFC - n__TBEH);
+                    Self__FUTD->count__WFC=(__INTEGER)(Self__FUTD->count__WFC - n__CLEH);
                   };
                 };
               } else {
                 ((__STRING *)string_tmp2__Z0AC)->count__WFC= 0;
               };
             };
-          } while ((((void *)result__VF3E == (void *)NULL) && (((__STRING *)string_tmp2__Z0AC)->count__WFC !=  0)));
-          if (((void *)result__VF3E == (void *)NULL)) {
+          } while ((((void *)result__4K3E == (void *)NULL) && (((__STRING *)string_tmp2__Z0AC)->count__WFC !=  0)));
+          if (((void *)result__4K3E == (void *)NULL)) {
             if (FILE_SYSTEM__->parent_directory__PFD==0) {
             } else {
               parent_directory__OED();
             };
-            result__VF3E=physical_get_entry__YW0C(string_tmp3__50AC);
-            __tmp__YH3E=TRUE__;
+            result__4K3E=physical_get_entry__YW0C(string_tmp3__50AC);
+            __tmp__BN3E=TRUE__;
           } else {
-            __tmp__YH3E=FALSE__;
+            __tmp__BN3E=FALSE__;
           };
-          if ((! __tmp__YH3E)) {
+          if ((! __tmp__BN3E)) {
             if ((((__STRING *)string_tmp3__50AC)->count__WFC != ((__STRING *)string_tmp2__Z0AC)->count__WFC)) {
-              if (result__VF3E==NULL) {
-                __tmp__JI3E=NULL;
+              if (result__4K3E==NULL) {
+                __tmp__SN3E=NULL;
               } else {
-                switch (((struct ___OBJ *)result__VF3E)->__id) {
+                switch (((struct ___OBJ *)result__4K3E)->__id) {
                 case __DIRECTORY_UNIX__: {
-                  __tmp__JI3E=((void *)result__VF3E);
+                  __tmp__SN3E=((void *)result__4K3E);
                 } break;
                 case __FILE_UNIX__: {
-                  __tmp__JI3E=NULL;
+                  __tmp__SN3E=NULL;
                 } break;
                 }
               };
-              dir__HI3E=__tmp__JI3E;
-              result__VF3E=physical_get_entry__JCF(string_tmp3__50AC);
+              dir__QN3E=__tmp__SN3E;
+              result__4K3E=physical_get_entry__JCF(string_tmp3__50AC);
             };
           };
-          if (((void *)result__VF3E == (void *)NULL)) {
+          if (((void *)result__4K3E == (void *)NULL)) {
             result__DFRD=FALSE__;
           } else {
-            if (((struct ___OBJ *)result__VF3E)->__id==__DIRECTORY_UNIX__) {
-              __tmp__THRD=((__DIRECTORY_UNIX *)result__VF3E)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
+            if (((struct ___OBJ *)result__4K3E)->__id==__DIRECTORY_UNIX__) {
+              __tmp__THRD=((__DIRECTORY_UNIX *)result__4K3E)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
             } else {
-              __tmp__THRD=((__FILE_UNIX *)result__VF3E)->parent_entry_unix__2CF.parent_entry__YED.path__BD;
+              __tmp__THRD=((__FILE_UNIX *)result__4K3E)->parent_entry_unix__2CF.parent_entry__YED.path__BD;
             };
             if ((((__STRING_CONSTANT *)__tmp__THRD)->count__DD >= ((__STRING_CONSTANT *)Self__0ERD->parent_entry_unix__ZED.parent_entry__YED.path__BD)->count__DD)) {
-              Self__CKLF=((__LINKED_LISToENTRYo *)Self__0ERD->parent_directory__0ED.list__IFRD);
-              if (((void *)Self__CKLF->first_link__OWVE == (void *)NULL)) {
-                result__Y2GH=NULL;
-                ptr__Z2GH=((__POINTER )(NULL));
-                typ_id__02GH= 0;
-                sz__12GH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
-                if ((sz__12GH ==  0)) {
-                  result__Y2GH=LINKED_LIST_NODEoENTRYo__;
+              Self__SPLF=((__LINKED_LISToENTRYo *)Self__0ERD->parent_directory__0ED.list__IFRD);
+              if (((void *)Self__SPLF->first_link__C1VE == (void *)NULL)) {
+                result__FFHH=NULL;
+                ptr__GFHH=((__POINTER )(NULL));
+                typ_id__HFHH= 0;
+                sz__IFHH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
+                if ((sz__IFHH ==  0)) {
+                  result__FFHH=LINKED_LIST_NODEoENTRYo__;
                 } else {
-                  typ_id__02GH=__LINKED_LIST_NODEoENTRYo__;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__12GH);
-                  if ((typ_id__02GH == (__INTEGER)(-  1))) {
-                    a__22GH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__32GH=(__UINTEGER_32)((__UINTEGER_32)(sz__12GH + a__22GH) & (__UINTEGER_32)(~ a__22GH));
-                    ptr_table__D3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__32GH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__C3GH=((__POINTER )(NULL));
-                    result__E3GH=((__POINTER *)ptr_table__D3GH)[ 0];
-                    if ((result__E3GH == (void *)NULL)) {
-                      result__E3GH=new_lab__MRJ(new_size__32GH);
-                      next__C3GH=(void *)((unsigned long)result__E3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__32GH)));
-                      ((__POINTER *)next__C3GH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__D3GH)[ 0]=next__C3GH;
+                  typ_id__HFHH=__LINKED_LIST_NODEoENTRYo__;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__IFHH);
+                  if ((typ_id__HFHH == (__INTEGER)(-  1))) {
+                    a__JFHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__KFHH=(__UINTEGER_32)((__UINTEGER_32)(sz__IFHH + a__JFHH) & (__UINTEGER_32)(~ a__JFHH));
+                    ptr_table__QFHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KFHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__PFHH=((__POINTER )(NULL));
+                    result__RFHH=((__POINTER *)ptr_table__QFHH)[ 0];
+                    if ((result__RFHH == (void *)NULL)) {
+                      result__RFHH=new_lab__MRJ(new_size__KFHH);
+                      next__PFHH=(void *)((unsigned long)result__RFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFHH)));
+                      ((__POINTER *)next__PFHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__QFHH)[ 0]=next__PFHH;
                     } else {
-                      next__C3GH=((__POINTER *)result__E3GH)[ 0];
-                      if ((next__C3GH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__32GH <<  1)) <=  4096)) {
-                          next__C3GH=(void *)((unsigned long)result__E3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__32GH)));
+                      next__PFHH=((__POINTER *)result__RFHH)[ 0];
+                      if ((next__PFHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RFHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KFHH <<  1)) <=  4096)) {
+                          next__PFHH=(void *)((unsigned long)result__RFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFHH)));
                         } else {
-                          next__C3GH=new_lab__MRJ(new_size__32GH);
+                          next__PFHH=new_lab__MRJ(new_size__KFHH);
                         };
-                        ((__POINTER *)next__C3GH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__D3GH)[ 0]=next__C3GH;
+                        ((__POINTER *)next__PFHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__QFHH)[ 0]=next__PFHH;
                       } else {
-                        ((__POINTER *)result__E3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__E3GH=next__C3GH;
+                        ((__POINTER *)result__RFHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__RFHH=next__PFHH;
                       };
                     };
-                    ptr__Z2GH=result__E3GH;
+                    ptr__GFHH=result__RFHH;
                   } else {
-                    t__42GH=((__UINTEGER_32 )typ_id__02GH);
-                    a__52GH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__L3GH=(__UINTEGER_32)((__UINTEGER_32)(sz__12GH + a__52GH) & (__UINTEGER_32)(~ a__52GH));
-                    ptr_table__I3GH=((__POINTER )(&(table_type[(t__42GH)])));
-                    lab_type__K3GH=(__UINTEGER_32)(t__42GH |  1);
-                    next__H3GH=((__POINTER )(NULL));
-                    result__J3GH=((__POINTER *)ptr_table__I3GH)[ 0];
-                    if ((result__J3GH == (void *)NULL)) {
-                      result__J3GH=new_lab__MRJ(lab_type__K3GH);
-                      next__H3GH=(void *)((unsigned long)result__J3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L3GH)));
-                      ((__POINTER *)next__H3GH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__I3GH)[ 0]=next__H3GH;
+                    t__LFHH=((__UINTEGER_32 )typ_id__HFHH);
+                    a__MFHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__YFHH=(__UINTEGER_32)((__UINTEGER_32)(sz__IFHH + a__MFHH) & (__UINTEGER_32)(~ a__MFHH));
+                    ptr_table__VFHH=((__POINTER )(&(table_type[(t__LFHH)])));
+                    lab_type__XFHH=(__UINTEGER_32)(t__LFHH |  1);
+                    next__UFHH=((__POINTER )(NULL));
+                    result__WFHH=((__POINTER *)ptr_table__VFHH)[ 0];
+                    if ((result__WFHH == (void *)NULL)) {
+                      result__WFHH=new_lab__MRJ(lab_type__XFHH);
+                      next__UFHH=(void *)((unsigned long)result__WFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFHH)));
+                      ((__POINTER *)next__UFHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__VFHH)[ 0]=next__UFHH;
                     } else {
-                      next__H3GH=((__POINTER *)result__J3GH)[ 0];
-                      if ((next__H3GH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__L3GH <<  1)) <=  4096)) {
-                          next__H3GH=(void *)((unsigned long)result__J3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L3GH)));
+                      next__UFHH=((__POINTER *)result__WFHH)[ 0];
+                      if ((next__UFHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WFHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YFHH <<  1)) <=  4096)) {
+                          next__UFHH=(void *)((unsigned long)result__WFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFHH)));
                         } else {
-                          next__H3GH=new_lab__MRJ(lab_type__K3GH);
+                          next__UFHH=new_lab__MRJ(lab_type__XFHH);
                         };
-                        ((__POINTER *)next__H3GH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__I3GH)[ 0]=next__H3GH;
+                        ((__POINTER *)next__UFHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__VFHH)[ 0]=next__UFHH;
                       } else {
-                        ((__POINTER *)result__J3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__J3GH=next__H3GH;
+                        ((__POINTER *)result__WFHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__WFHH=next__UFHH;
                       };
                     };
-                    ptr__Z2GH=result__J3GH;
+                    ptr__GFHH=result__WFHH;
                   };
-                  result__Y2GH=((__LINKED_LIST_NODEoENTRYo *)ptr__Z2GH);
-                  *(result__Y2GH) = *(LINKED_LIST_NODEoENTRYo__);
+                  result__FFHH=((__LINKED_LIST_NODEoENTRYo *)ptr__GFHH);
+                  *(result__FFHH) = *(LINKED_LIST_NODEoENTRYo__);
                 };
-                Self__A3GH=((__LINKED_LIST_NODEoENTRYo *)result__Y2GH);
-                Self__A3GH->item__OJWE=result__VF3E;
-                Self__A3GH->next__V0EF=NULL;
-                Self__CKLF->first_link__OWVE=result__Y2GH;
-                Self__CKLF->parent_linked_collection__HFRD.upper__TI3D= 1;
-                Self__CKLF->last_link__XWVE=result__Y2GH;
-                Self__CKLF->mem_idx__VWVE= 1;
-                Self__CKLF->mem_lnk__WWVE=result__Y2GH;
+                Self__NFHH=((__LINKED_LIST_NODEoENTRYo *)result__FFHH);
+                Self__NFHH->item__FOWE=result__4K3E;
+                Self__NFHH->next__05EF=NULL;
+                Self__SPLF->first_link__C1VE=result__FFHH;
+                Self__SPLF->parent_linked_collection__HFRD.upper__VM3D= 1;
+                Self__SPLF->last_link__L1VE=result__FFHH;
+                Self__SPLF->mem_idx__J1VE= 1;
+                Self__SPLF->mem_lnk__K1VE=result__FFHH;
               } else {
-                result__P3MF=NULL;
-                ptr__Q3MF=((__POINTER )(NULL));
-                typ_id__V3MF= 0;
-                sz__S3MF=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
-                if ((sz__S3MF ==  0)) {
-                  result__P3MF=LINKED_LIST_NODEoENTRYo__;
+                result__FDNF=NULL;
+                ptr__GDNF=((__POINTER )(NULL));
+                typ_id__LDNF= 0;
+                sz__IDNF=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
+                if ((sz__IDNF ==  0)) {
+                  result__FDNF=LINKED_LIST_NODEoENTRYo__;
                 } else {
-                  typ_id__V3MF=__LINKED_LIST_NODEoENTRYo__;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__S3MF);
-                  if ((typ_id__V3MF == (__INTEGER)(-  1))) {
-                    a__2CEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__3CEH=(__UINTEGER_32)((__UINTEGER_32)(sz__S3MF + a__2CEH) & (__UINTEGER_32)(~ a__2CEH));
-                    ptr_table__N3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3CEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__M3GH=((__POINTER )(NULL));
-                    result__O3GH=((__POINTER *)ptr_table__N3GH)[ 0];
-                    if ((result__O3GH == (void *)NULL)) {
-                      result__O3GH=new_lab__MRJ(new_size__3CEH);
-                      next__M3GH=(void *)((unsigned long)result__O3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3CEH)));
-                      ((__POINTER *)next__M3GH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__N3GH)[ 0]=next__M3GH;
+                  typ_id__LDNF=__LINKED_LIST_NODEoENTRYo__;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__IDNF);
+                  if ((typ_id__LDNF == (__INTEGER)(-  1))) {
+                    a__LMEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__MMEH=(__UINTEGER_32)((__UINTEGER_32)(sz__IDNF + a__LMEH) & (__UINTEGER_32)(~ a__LMEH));
+                    ptr_table__0FHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MMEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__ZFHH=((__POINTER )(NULL));
+                    result__1FHH=((__POINTER *)ptr_table__0FHH)[ 0];
+                    if ((result__1FHH == (void *)NULL)) {
+                      result__1FHH=new_lab__MRJ(new_size__MMEH);
+                      next__ZFHH=(void *)((unsigned long)result__1FHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MMEH)));
+                      ((__POINTER *)next__ZFHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__0FHH)[ 0]=next__ZFHH;
                     } else {
-                      next__M3GH=((__POINTER *)result__O3GH)[ 0];
-                      if ((next__M3GH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3CEH <<  1)) <=  4096)) {
-                          next__M3GH=(void *)((unsigned long)result__O3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3CEH)));
+                      next__ZFHH=((__POINTER *)result__1FHH)[ 0];
+                      if ((next__ZFHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1FHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MMEH <<  1)) <=  4096)) {
+                          next__ZFHH=(void *)((unsigned long)result__1FHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MMEH)));
                         } else {
-                          next__M3GH=new_lab__MRJ(new_size__3CEH);
+                          next__ZFHH=new_lab__MRJ(new_size__MMEH);
                         };
-                        ((__POINTER *)next__M3GH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__N3GH)[ 0]=next__M3GH;
+                        ((__POINTER *)next__ZFHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__0FHH)[ 0]=next__ZFHH;
                       } else {
-                        ((__POINTER *)result__O3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__O3GH=next__M3GH;
+                        ((__POINTER *)result__1FHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__1FHH=next__ZFHH;
                       };
                     };
-                    ptr__Q3MF=result__O3GH;
+                    ptr__GDNF=result__1FHH;
                   } else {
-                    t__BDEH=((__UINTEGER_32 )typ_id__V3MF);
-                    a__ADEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__V3GH=(__UINTEGER_32)((__UINTEGER_32)(sz__S3MF + a__ADEH) & (__UINTEGER_32)(~ a__ADEH));
-                    ptr_table__S3GH=((__POINTER )(&(table_type[(t__BDEH)])));
-                    lab_type__U3GH=(__UINTEGER_32)(t__BDEH |  1);
-                    next__R3GH=((__POINTER )(NULL));
-                    result__T3GH=((__POINTER *)ptr_table__S3GH)[ 0];
-                    if ((result__T3GH == (void *)NULL)) {
-                      result__T3GH=new_lab__MRJ(lab_type__U3GH);
-                      next__R3GH=(void *)((unsigned long)result__T3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V3GH)));
-                      ((__POINTER *)next__R3GH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__S3GH)[ 0]=next__R3GH;
+                    t__QMEH=((__UINTEGER_32 )typ_id__LDNF);
+                    a__PMEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__CGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__IDNF + a__PMEH) & (__UINTEGER_32)(~ a__PMEH));
+                    ptr_table__5FHH=((__POINTER )(&(table_type[(t__QMEH)])));
+                    lab_type__BGHH=(__UINTEGER_32)(t__QMEH |  1);
+                    next__4FHH=((__POINTER )(NULL));
+                    result__AGHH=((__POINTER *)ptr_table__5FHH)[ 0];
+                    if ((result__AGHH == (void *)NULL)) {
+                      result__AGHH=new_lab__MRJ(lab_type__BGHH);
+                      next__4FHH=(void *)((unsigned long)result__AGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGHH)));
+                      ((__POINTER *)next__4FHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__5FHH)[ 0]=next__4FHH;
                     } else {
-                      next__R3GH=((__POINTER *)result__T3GH)[ 0];
-                      if ((next__R3GH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__V3GH <<  1)) <=  4096)) {
-                          next__R3GH=(void *)((unsigned long)result__T3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V3GH)));
+                      next__4FHH=((__POINTER *)result__AGHH)[ 0];
+                      if ((next__4FHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CGHH <<  1)) <=  4096)) {
+                          next__4FHH=(void *)((unsigned long)result__AGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGHH)));
                         } else {
-                          next__R3GH=new_lab__MRJ(lab_type__U3GH);
+                          next__4FHH=new_lab__MRJ(lab_type__BGHH);
                         };
-                        ((__POINTER *)next__R3GH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__S3GH)[ 0]=next__R3GH;
+                        ((__POINTER *)next__4FHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__5FHH)[ 0]=next__4FHH;
                       } else {
-                        ((__POINTER *)result__T3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__T3GH=next__R3GH;
+                        ((__POINTER *)result__AGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4FHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__AGHH=next__4FHH;
                       };
                     };
-                    ptr__Q3MF=result__T3GH;
+                    ptr__GDNF=result__AGHH;
                   };
-                  result__P3MF=((__LINKED_LIST_NODEoENTRYo *)ptr__Q3MF);
-                  *(result__P3MF) = *(LINKED_LIST_NODEoENTRYo__);
+                  result__FDNF=((__LINKED_LIST_NODEoENTRYo *)ptr__GDNF);
+                  *(result__FDNF) = *(LINKED_LIST_NODEoENTRYo__);
                 };
-                Self__HFPF=((__LINKED_LIST_NODEoENTRYo *)result__P3MF);
-                Self__HFPF->item__OJWE=result__VF3E;
-                Self__HFPF->next__V0EF=NULL;
-                ((__LINKED_LIST_NODEoENTRYo *)Self__CKLF->last_link__XWVE)->next__V0EF=result__P3MF;
-                Self__CKLF->parent_linked_collection__HFRD.upper__TI3D=(__INTEGER)(Self__CKLF->parent_linked_collection__HFRD.upper__TI3D +  1);
-                Self__CKLF->last_link__XWVE=result__P3MF;
+                Self__FLPF=((__LINKED_LIST_NODEoENTRYo *)result__FDNF);
+                Self__FLPF->item__FOWE=result__4K3E;
+                Self__FLPF->next__05EF=NULL;
+                ((__LINKED_LIST_NODEoENTRYo *)Self__SPLF->last_link__L1VE)->next__05EF=result__FDNF;
+                Self__SPLF->parent_linked_collection__HFRD.upper__VM3D=(__INTEGER)(Self__SPLF->parent_linked_collection__HFRD.upper__VM3D +  1);
+                Self__SPLF->last_link__L1VE=result__FDNF;
               };
             };
           };
@@ -13492,39 +13655,39 @@ static __BOOLEAN open__ZERD(__DIRECTORY_UNIX *Self__0ERD)
 static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
 // ({NULLxDIRECTORY_UNIXxFILE_UNIX},{INTEGER}) VoidRecursive, No inlinable.
 {
-  void *tok__DRQC,*__tmp__NRQC,*__tmp__3SQC,*k__TWDC,*k__2KDG;
+  void *tok__DRQC,*__tmp__NRQC,*__tmp__3SQC,*k__TWDC,*k__0TDG;
   void *__tmp__JVQC,*__tmp__OVQC;
   void *dir__FRQC,*__tmp__URQC;
-  __FILE_UNIX *Self__Z11G;
-  __INTEGER __tmp__ZRQC,Self__XI3D,__tmp__OSQC,Self__IJ3D,i1__ZIS;
-  __INTEGER i2__0IS,Self__YPX,result__L0FH,__tmp__N0FH,Self__O0FH;
-  __INTEGER result__Q0FH,__tmp__S0FH,Self__T0FH,__tmp__ZTQC,Self__MKDG;
-  __INTEGER result__V0FH,__tmp__X0FH,Self__Y0FH,result__00FH;
-  __INTEGER __tmp__20FH,Self__30FH,result__D1FH,__tmp__F1FH,Self__G1FH;
-  __INTEGER result__I1FH,__tmp__K1FH,Self__L1FH,i__IYBD,j__JYBD;
-  __INTEGER Self__ODKB,result__R1FH,__tmp__T1FH,Self__U1FH,result__W1FH;
-  __INTEGER __tmp__Y1FH,Self__Z1FH,len__BWU,__tmp__4WU,__tmp__5WU;
-  __INTEGER Self__WQGB,__tmp__PQS,Self__ISIC,result__51FH,__tmp__B2FH;
-  __INTEGER Self__C2FH,result__E2FH,__tmp__G2FH,Self__H2FH,__tmp__HYQC;
-  __INTEGER Self__TURE;
+  __FILE_UNIX *Self__PF2G;
+  __INTEGER __tmp__ZRQC,Self__ZM3D,__tmp__OSQC,Self__KN3D,i1__ZIS;
+  __INTEGER i2__0IS,Self__YPX,result__YCGH,__tmp__0CGH,Self__1CGH;
+  __INTEGER result__3CGH,__tmp__5CGH,Self__ADGH,__tmp__ZTQC,Self__KTDG;
+  __INTEGER result__CDGH,__tmp__EDGH,Self__FDGH,result__HDGH;
+  __INTEGER __tmp__JDGH,Self__KDGH,result__QDGH,__tmp__SDGH,Self__TDGH;
+  __INTEGER result__VDGH,__tmp__XDGH,Self__YDGH,i__IYBD,j__JYBD;
+  __INTEGER Self__ODKB,result__4DGH,__tmp__AEGH,Self__BEGH,result__DEGH;
+  __INTEGER __tmp__FEGH,Self__GEGH,len__BWU,__tmp__4WU,__tmp__5WU;
+  __INTEGER Self__WQGB,__tmp__PQS,Self__ISIC,result__MEGH,__tmp__OEGH;
+  __INTEGER Self__PEGH,result__REGH,__tmp__TEGH,Self__UEGH,__tmp__HYQC;
+  __INTEGER Self__TYRE;
   void *__tmp__5RQC,*__tmp__USQC,*__tmp__2SQC,*__tmp__IVQC,*__tmp__NVQC;
-  __STRING_CONSTANT *Self__VIS,*Self__W0FH,*Self__10FH;
+  __STRING_CONSTANT *Self__VIS,*Self__DDGH,*Self__IDGH;
   __STRING *Self__ORS,*Self__USS,*Self__GYBD,*Self__Z32,*Self__HQS;
   void *tok_lst__ERQC;
   __BOOLEAN __tmp__GRQC,__tmp__ASQC,__tmp__VSQC,result__YIS;
   __CHARACTER Self__WJOB,result__YJOB;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__H0FH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__DUFH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__50FH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__HUFH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__N1FH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__OUFH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__11FH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__UCGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__K2FH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__MDGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__O2FH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__0DGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__V2FH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__IEGH;
   __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__JX3;
-  void *node__J0FH,*node__FUFH,*node__B1FH,*node__JUFH,*node__P1FH;
-  void *node__QUFH,*node__31FH,*node__UX3;
-  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__SWDC,*Self__1KDG;
-  void *node__2WDC,*node__GLDG;
+  void *node__WCGH,*node__M2FH,*node__ODGH,*node__Q2FH,*node__2DGH;
+  void *node__X2FH,*node__KEGH,*node__UX3;
+  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__SWDC,*Self__ZTDG;
+  void *node__2WDC,*node__EUDG;
   __CHARACTER *Self__1MEB,*model__2MEB,*__tmp__MQS,*Self__HMBC;
   tok__DRQC=NULL;
   tok_lst__ERQC=NULL;
@@ -13532,12 +13695,12 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
   if (((struct ___OBJ *)entry__ARQC)->__id==__DIRECTORY_UNIX__) {
     __tmp__GRQC=open__ZERD(entry__ARQC);
   } else {
-    Self__Z11G=((__FILE_UNIX *)entry__ARQC);
-    Self__Z11G->stream__EJRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__Z11G->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO),"r+b")));
-    __tmp__GRQC=(Self__Z11G->stream__EJRD != (void *)NULL);
+    Self__PF2G=((__FILE_UNIX *)entry__ARQC);
+    Self__PF2G->stream__EJRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__PF2G->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO),"r+b")));
+    __tmp__GRQC=(Self__PF2G->stream__EJRD != (void *)NULL);
   };
   if ((! __tmp__GRQC)) {
-    print__WHD((&__string_219));
+    print__WHD((&__string_222));
     if (((struct ___OBJ *)entry__ARQC)->__id==__DIRECTORY_UNIX__) {
       __tmp__NRQC=((__DIRECTORY_UNIX *)entry__ARQC)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
     } else {
@@ -13559,31 +13722,31 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
       }
     };
     dir__FRQC=__tmp__URQC;
-    __tmp__ZRQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__URQC)->parent_directory__0ED.list__IFRD)->parent_linked_collection__HFRD.upper__TI3D;
-    Self__XI3D= 1;
-    while ((Self__XI3D <= __tmp__ZRQC)) {
-      __tmp__5RQC=item__DVPE(dir__FRQC,Self__XI3D);
+    __tmp__ZRQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__URQC)->parent_directory__0ED.list__IFRD)->parent_linked_collection__HFRD.upper__VM3D;
+    Self__ZM3D= 1;
+    while ((Self__ZM3D <= __tmp__ZRQC)) {
+      __tmp__5RQC=item__FZPE(dir__FRQC,Self__ZM3D);
       if (((struct ___OBJ *)__tmp__5RQC)->__id==__DIRECTORY_UNIX__) {
         __tmp__ASQC=((void *)((__DIRECTORY_UNIX *)__tmp__5RQC) != (void *)NULL);
       } else {
         __tmp__ASQC=FALSE__;
       };
       if (__tmp__ASQC) {
-        check_in__begin__4QQC(item__DVPE(dir__FRQC,Self__XI3D),n__BRQC);
+        check_in__begin__4QQC(item__FZPE(dir__FRQC,Self__ZM3D),n__BRQC);
       };
-      Self__XI3D=(__INTEGER)(Self__XI3D +  1);
+      Self__ZM3D=(__INTEGER)(Self__ZM3D +  1);
     };
-    __tmp__OSQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__URQC)->parent_directory__0ED.list__IFRD)->parent_linked_collection__HFRD.upper__TI3D;
-    Self__IJ3D= 1;
-    while ((Self__IJ3D <= __tmp__OSQC)) {
-      __tmp__USQC=item__DVPE(dir__FRQC,Self__IJ3D);
+    __tmp__OSQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__URQC)->parent_directory__0ED.list__IFRD)->parent_linked_collection__HFRD.upper__VM3D;
+    Self__KN3D= 1;
+    while ((Self__KN3D <= __tmp__OSQC)) {
+      __tmp__USQC=item__FZPE(dir__FRQC,Self__KN3D);
       if (((struct ___OBJ *)__tmp__USQC)->__id==__DIRECTORY_UNIX__) {
         __tmp__VSQC=((void *)((__DIRECTORY_UNIX *)__tmp__USQC) != (void *)NULL);
       } else {
         __tmp__VSQC=FALSE__;
       };
       if ((! __tmp__VSQC)) {
-        __tmp__2SQC=item__DVPE(dir__FRQC,Self__IJ3D);
+        __tmp__2SQC=item__FZPE(dir__FRQC,Self__KN3D);
         if (((struct ___OBJ *)__tmp__2SQC)->__id==__DIRECTORY_UNIX__) {
           __tmp__3SQC=((__DIRECTORY_UNIX *)__tmp__2SQC)->parent_entry_unix__ZED.parent_entry__YED.name__VNT;
         } else {
@@ -13624,49 +13787,49 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
             Self__YPX=(__INTEGER)(Self__YPX -  1);
           };
           tok__DRQC=get__IWB(string_tmp__VH);
-          Self__H0FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-          result__L0FH= 0;
-          __tmp__N0FH=((__STRING_CONSTANT *)(&__string_151))->count__DD;
-          Self__O0FH= 1;
-          while ((Self__O0FH <= __tmp__N0FH)) {
-            result__L0FH=(__INTEGER)((__INTEGER)( 5 * result__L0FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_151))->storage__VQO)[(__INTEGER)(Self__O0FH -  1)])));
-            Self__O0FH=(__INTEGER)(Self__O0FH +  1);
-          };
-          if ((result__L0FH <  0)) {
-            result__L0FH=(__INTEGER)(~ result__L0FH);
-          };
-          node__J0FH=((void **)Self__H0FH->buckets__5CT)[(__INTEGER)(result__L0FH % Self__H0FH->capacity__0CT)];
-          while ((! (((void *)node__J0FH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__J0FH)->key__LDT == (void *)(&__string_151))))) {
-            node__J0FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__J0FH)->next__WDT;
-          };
-          if (((void *)node__J0FH != (void *)NULL)) {
-            Self__DUFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-            result__Q0FH= 0;
-            __tmp__S0FH=((__STRING_CONSTANT *)(&__string_151))->count__DD;
-            Self__T0FH= 1;
-            while ((Self__T0FH <= __tmp__S0FH)) {
-              result__Q0FH=(__INTEGER)((__INTEGER)( 5 * result__Q0FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_151))->storage__VQO)[(__INTEGER)(Self__T0FH -  1)])));
-              Self__T0FH=(__INTEGER)(Self__T0FH +  1);
-            };
-            if ((result__Q0FH <  0)) {
-              result__Q0FH=(__INTEGER)(~ result__Q0FH);
-            };
-            node__FUFH=((void **)Self__DUFH->buckets__5CT)[(__INTEGER)(result__Q0FH % Self__DUFH->capacity__0CT)];
-            while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FUFH)->key__LDT != (void *)(&__string_151))) {
-              node__FUFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FUFH)->next__WDT;
-            };
-            tok_lst__ERQC=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FUFH)->item__HY3;
+          Self__UCGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+          result__YCGH= 0;
+          __tmp__0CGH=((__STRING_CONSTANT *)(&__string_151))->count__DD;
+          Self__1CGH= 1;
+          while ((Self__1CGH <= __tmp__0CGH)) {
+            result__YCGH=(__INTEGER)((__INTEGER)( 5 * result__YCGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_151))->storage__VQO)[(__INTEGER)(Self__1CGH -  1)])));
+            Self__1CGH=(__INTEGER)(Self__1CGH +  1);
+          };
+          if ((result__YCGH <  0)) {
+            result__YCGH=(__INTEGER)(~ result__YCGH);
+          };
+          node__WCGH=((void **)Self__UCGH->buckets__5CT)[(__INTEGER)(result__YCGH % Self__UCGH->capacity__0CT)];
+          while ((! (((void *)node__WCGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__WCGH)->key__LDT == (void *)(&__string_151))))) {
+            node__WCGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__WCGH)->next__WDT;
+          };
+          if (((void *)node__WCGH != (void *)NULL)) {
+            Self__K2FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+            result__3CGH= 0;
+            __tmp__5CGH=((__STRING_CONSTANT *)(&__string_151))->count__DD;
+            Self__ADGH= 1;
+            while ((Self__ADGH <= __tmp__5CGH)) {
+              result__3CGH=(__INTEGER)((__INTEGER)( 5 * result__3CGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_151))->storage__VQO)[(__INTEGER)(Self__ADGH -  1)])));
+              Self__ADGH=(__INTEGER)(Self__ADGH +  1);
+            };
+            if ((result__3CGH <  0)) {
+              result__3CGH=(__INTEGER)(~ result__3CGH);
+            };
+            node__M2FH=((void **)Self__K2FH->buckets__5CT)[(__INTEGER)(result__3CGH % Self__K2FH->capacity__0CT)];
+            while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__M2FH)->key__LDT != (void *)(&__string_151))) {
+              node__M2FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__M2FH)->next__WDT;
+            };
+            tok_lst__ERQC=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__M2FH)->item__HY3;
             __tmp__ZTQC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__ERQC)->parent_linked_collection__LD.upper__5CD;
-            Self__MKDG= 1;
-            while ((Self__MKDG <= __tmp__ZTQC)) {
-              if (((void *)item__Y0ND(tok_lst__ERQC,Self__MKDG) == (void *)NULL)) {
+            Self__KTDG= 1;
+            while ((Self__KTDG <= __tmp__ZTQC)) {
+              if (((void *)item__Y0ND(tok_lst__ERQC,Self__KTDG) == (void *)NULL)) {
                 append__BOS(current_list__2B,tok__DRQC);
                 append__BOS(file_list__0B,tok__DRQC);
               } else {
-                append__BOS(current_list__2B,item__Y0ND(tok_lst__ERQC,Self__MKDG));
-                append__BOS(file_list__0B,item__Y0ND(tok_lst__ERQC,Self__MKDG));
+                append__BOS(current_list__2B,item__Y0ND(tok_lst__ERQC,Self__KTDG));
+                append__BOS(file_list__0B,item__Y0ND(tok_lst__ERQC,Self__KTDG));
               };
-              Self__MKDG=(__INTEGER)(Self__MKDG +  1);
+              Self__KTDG=(__INTEGER)(Self__KTDG +  1);
             };
           } else {
             append__BOS(current_list__2B,tok__DRQC);
@@ -13676,43 +13839,43 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
           };
           Self__SWDC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PTS);
           k__TWDC=tok__DRQC;
-          Self__W0FH=((__STRING_CONSTANT *)tok__DRQC);
-          result__V0FH= 0;
-          __tmp__X0FH=Self__W0FH->count__DD;
-          Self__Y0FH= 1;
-          while ((Self__Y0FH <= __tmp__X0FH)) {
-            result__V0FH=(__INTEGER)((__INTEGER)( 5 * result__V0FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__W0FH->storage__VQO)[(__INTEGER)(Self__Y0FH -  1)])));
-            Self__Y0FH=(__INTEGER)(Self__Y0FH +  1);
-          };
-          if ((result__V0FH <  0)) {
-            result__V0FH=(__INTEGER)(~ result__V0FH);
-          };
-          node__2WDC=((void **)Self__SWDC->buckets__VNBC)[(__INTEGER)(result__V0FH % Self__SWDC->capacity__QNBC)];
+          Self__DDGH=((__STRING_CONSTANT *)tok__DRQC);
+          result__CDGH= 0;
+          __tmp__EDGH=Self__DDGH->count__DD;
+          Self__FDGH= 1;
+          while ((Self__FDGH <= __tmp__EDGH)) {
+            result__CDGH=(__INTEGER)((__INTEGER)( 5 * result__CDGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__DDGH->storage__VQO)[(__INTEGER)(Self__FDGH -  1)])));
+            Self__FDGH=(__INTEGER)(Self__FDGH +  1);
+          };
+          if ((result__CDGH <  0)) {
+            result__CDGH=(__INTEGER)(~ result__CDGH);
+          };
+          node__2WDC=((void **)Self__SWDC->buckets__VNBC)[(__INTEGER)(result__CDGH % Self__SWDC->capacity__QNBC)];
           while ((! (((void *)node__2WDC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__2WDC)->key__BOBC == (void *)k__TWDC)))) {
             node__2WDC=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__2WDC)->next__MOBC;
           };
           if (((void *)node__2WDC != (void *)NULL)) {
-            print__WHD((&__string_220));
-            Self__1KDG=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PTS);
-            k__2KDG=tok__DRQC;
-            Self__10FH=((__STRING_CONSTANT *)tok__DRQC);
-            result__00FH= 0;
-            __tmp__20FH=Self__10FH->count__DD;
-            Self__30FH= 1;
-            while ((Self__30FH <= __tmp__20FH)) {
-              result__00FH=(__INTEGER)((__INTEGER)( 5 * result__00FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__10FH->storage__VQO)[(__INTEGER)(Self__30FH -  1)])));
-              Self__30FH=(__INTEGER)(Self__30FH +  1);
-            };
-            if ((result__00FH <  0)) {
-              result__00FH=(__INTEGER)(~ result__00FH);
-            };
-            node__GLDG=((void **)Self__1KDG->buckets__VNBC)[(__INTEGER)(result__00FH % Self__1KDG->capacity__QNBC)];
-            while (((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GLDG)->key__BOBC != (void *)k__2KDG)) {
-              node__GLDG=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GLDG)->next__MOBC;
-            };
-            print__WHD(((__PROTOTYPE *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GLDG)->item__U3GD)->filename__UPG);
+            print__WHD((&__string_223));
+            Self__ZTDG=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PTS);
+            k__0TDG=tok__DRQC;
+            Self__IDGH=((__STRING_CONSTANT *)tok__DRQC);
+            result__HDGH= 0;
+            __tmp__JDGH=Self__IDGH->count__DD;
+            Self__KDGH= 1;
+            while ((Self__KDGH <= __tmp__JDGH)) {
+              result__HDGH=(__INTEGER)((__INTEGER)( 5 * result__HDGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__IDGH->storage__VQO)[(__INTEGER)(Self__KDGH -  1)])));
+              Self__KDGH=(__INTEGER)(Self__KDGH +  1);
+            };
+            if ((result__HDGH <  0)) {
+              result__HDGH=(__INTEGER)(~ result__HDGH);
+            };
+            node__EUDG=((void **)Self__ZTDG->buckets__VNBC)[(__INTEGER)(result__HDGH % Self__ZTDG->capacity__QNBC)];
+            while (((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__EUDG)->key__BOBC != (void *)k__0TDG)) {
+              node__EUDG=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__EUDG)->next__MOBC;
+            };
+            print__WHD(((__PROTOTYPE *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__EUDG)->item__U3GD)->filename__UPG);
             fputc((int)('\n'),stdout);
-            __tmp__IVQC=item__DVPE(dir__FRQC,Self__IJ3D);
+            __tmp__IVQC=item__FZPE(dir__FRQC,Self__KN3D);
             if (((struct ___OBJ *)__tmp__IVQC)->__id==__DIRECTORY_UNIX__) {
               __tmp__JVQC=((__DIRECTORY_UNIX *)__tmp__IVQC)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
             } else {
@@ -13722,7 +13885,7 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
             fputc((int)('\n'),stdout);
             exit(( 1));
           };
-          __tmp__NVQC=item__DVPE(dir__FRQC,Self__IJ3D);
+          __tmp__NVQC=item__FZPE(dir__FRQC,Self__KN3D);
           if (((struct ___OBJ *)__tmp__NVQC)->__id==__DIRECTORY_UNIX__) {
             __tmp__OVQC=((__DIRECTORY_UNIX *)__tmp__NVQC)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
           } else {
@@ -13735,41 +13898,41 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
           };
         };
       };
-      Self__IJ3D=(__INTEGER)(Self__IJ3D +  1);
+      Self__KN3D=(__INTEGER)(Self__KN3D +  1);
     };
     if ((((__STRING *)current_list__2B)->count__WFC !=  0)) {
-      Self__50FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-      result__D1FH= 0;
-      __tmp__F1FH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
-      Self__G1FH= 1;
-      while ((Self__G1FH <= __tmp__F1FH)) {
-        result__D1FH=(__INTEGER)((__INTEGER)( 5 * result__D1FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__G1FH -  1)])));
-        Self__G1FH=(__INTEGER)(Self__G1FH +  1);
-      };
-      if ((result__D1FH <  0)) {
-        result__D1FH=(__INTEGER)(~ result__D1FH);
-      };
-      node__B1FH=((void **)Self__50FH->buckets__5CT)[(__INTEGER)(result__D1FH % Self__50FH->capacity__0CT)];
-      while ((! (((void *)node__B1FH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__B1FH)->key__LDT == (void *)(&__string_150))))) {
-        node__B1FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__B1FH)->next__WDT;
-      };
-      if (((void *)node__B1FH != (void *)NULL)) {
-        Self__HUFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-        result__I1FH= 0;
-        __tmp__K1FH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
-        Self__L1FH= 1;
-        while ((Self__L1FH <= __tmp__K1FH)) {
-          result__I1FH=(__INTEGER)((__INTEGER)( 5 * result__I1FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__L1FH -  1)])));
-          Self__L1FH=(__INTEGER)(Self__L1FH +  1);
-        };
-        if ((result__I1FH <  0)) {
-          result__I1FH=(__INTEGER)(~ result__I1FH);
-        };
-        node__JUFH=((void **)Self__HUFH->buckets__5CT)[(__INTEGER)(result__I1FH % Self__HUFH->capacity__0CT)];
-        while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__JUFH)->key__LDT != (void *)(&__string_150))) {
-          node__JUFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__JUFH)->next__WDT;
-        };
-        tok__DRQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__JUFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+      Self__MDGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+      result__QDGH= 0;
+      __tmp__SDGH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
+      Self__TDGH= 1;
+      while ((Self__TDGH <= __tmp__SDGH)) {
+        result__QDGH=(__INTEGER)((__INTEGER)( 5 * result__QDGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__TDGH -  1)])));
+        Self__TDGH=(__INTEGER)(Self__TDGH +  1);
+      };
+      if ((result__QDGH <  0)) {
+        result__QDGH=(__INTEGER)(~ result__QDGH);
+      };
+      node__ODGH=((void **)Self__MDGH->buckets__5CT)[(__INTEGER)(result__QDGH % Self__MDGH->capacity__0CT)];
+      while ((! (((void *)node__ODGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__ODGH)->key__LDT == (void *)(&__string_150))))) {
+        node__ODGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__ODGH)->next__WDT;
+      };
+      if (((void *)node__ODGH != (void *)NULL)) {
+        Self__O2FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+        result__VDGH= 0;
+        __tmp__XDGH=((__STRING_CONSTANT *)(&__string_150))->count__DD;
+        Self__YDGH= 1;
+        while ((Self__YDGH <= __tmp__XDGH)) {
+          result__VDGH=(__INTEGER)((__INTEGER)( 5 * result__VDGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_150))->storage__VQO)[(__INTEGER)(Self__YDGH -  1)])));
+          Self__YDGH=(__INTEGER)(Self__YDGH +  1);
+        };
+        if ((result__VDGH <  0)) {
+          result__VDGH=(__INTEGER)(~ result__VDGH);
+        };
+        node__Q2FH=((void **)Self__O2FH->buckets__5CT)[(__INTEGER)(result__VDGH % Self__O2FH->capacity__0CT)];
+        while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__Q2FH)->key__LDT != (void *)(&__string_150))) {
+          node__Q2FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__Q2FH)->next__WDT;
+        };
+        tok__DRQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__Q2FH)->item__HY3)->first_link__EUEC)->item__0VHD;
         Self__GYBD=((__STRING *)current_list__2B);
         i__IYBD=Self__GYBD->count__WFC;
         j__JYBD=((__STRING_CONSTANT *)tok__DRQC)->count__DD;
@@ -13785,38 +13948,38 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
           Self__ODKB=(__INTEGER)(Self__ODKB -  1);
         };
       };
-      Self__N1FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-      result__R1FH= 0;
-      __tmp__T1FH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
-      Self__U1FH= 1;
-      while ((Self__U1FH <= __tmp__T1FH)) {
-        result__R1FH=(__INTEGER)((__INTEGER)( 5 * result__R1FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__U1FH -  1)])));
-        Self__U1FH=(__INTEGER)(Self__U1FH +  1);
+      Self__0DGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+      result__4DGH= 0;
+      __tmp__AEGH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
+      Self__BEGH= 1;
+      while ((Self__BEGH <= __tmp__AEGH)) {
+        result__4DGH=(__INTEGER)((__INTEGER)( 5 * result__4DGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__BEGH -  1)])));
+        Self__BEGH=(__INTEGER)(Self__BEGH +  1);
       };
-      if ((result__R1FH <  0)) {
-        result__R1FH=(__INTEGER)(~ result__R1FH);
+      if ((result__4DGH <  0)) {
+        result__4DGH=(__INTEGER)(~ result__4DGH);
       };
-      node__P1FH=((void **)Self__N1FH->buckets__5CT)[(__INTEGER)(result__R1FH % Self__N1FH->capacity__0CT)];
-      while ((! (((void *)node__P1FH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__P1FH)->key__LDT == (void *)(&__string_152))))) {
-        node__P1FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__P1FH)->next__WDT;
+      node__2DGH=((void **)Self__0DGH->buckets__5CT)[(__INTEGER)(result__4DGH % Self__0DGH->capacity__0CT)];
+      while ((! (((void *)node__2DGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2DGH)->key__LDT == (void *)(&__string_152))))) {
+        node__2DGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2DGH)->next__WDT;
       };
-      if (((void *)node__P1FH != (void *)NULL)) {
-        Self__OUFH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-        result__W1FH= 0;
-        __tmp__Y1FH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
-        Self__Z1FH= 1;
-        while ((Self__Z1FH <= __tmp__Y1FH)) {
-          result__W1FH=(__INTEGER)((__INTEGER)( 5 * result__W1FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__Z1FH -  1)])));
-          Self__Z1FH=(__INTEGER)(Self__Z1FH +  1);
+      if (((void *)node__2DGH != (void *)NULL)) {
+        Self__V2FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+        result__DEGH= 0;
+        __tmp__FEGH=((__STRING_CONSTANT *)(&__string_152))->count__DD;
+        Self__GEGH= 1;
+        while ((Self__GEGH <= __tmp__FEGH)) {
+          result__DEGH=(__INTEGER)((__INTEGER)( 5 * result__DEGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_152))->storage__VQO)[(__INTEGER)(Self__GEGH -  1)])));
+          Self__GEGH=(__INTEGER)(Self__GEGH +  1);
         };
-        if ((result__W1FH <  0)) {
-          result__W1FH=(__INTEGER)(~ result__W1FH);
+        if ((result__DEGH <  0)) {
+          result__DEGH=(__INTEGER)(~ result__DEGH);
         };
-        node__QUFH=((void **)Self__OUFH->buckets__5CT)[(__INTEGER)(result__W1FH % Self__OUFH->capacity__0CT)];
-        while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__QUFH)->key__LDT != (void *)(&__string_152))) {
-          node__QUFH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__QUFH)->next__WDT;
+        node__X2FH=((void **)Self__V2FH->buckets__5CT)[(__INTEGER)(result__DEGH % Self__V2FH->capacity__0CT)];
+        while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__X2FH)->key__LDT != (void *)(&__string_152))) {
+          node__X2FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__X2FH)->next__WDT;
         };
-        tok__DRQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__QUFH)->item__HY3)->first_link__EUEC)->item__0VHD;
+        tok__DRQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__X2FH)->item__HY3)->first_link__EUEC)->item__0VHD;
         append__BOS(current_list__2B,tok__DRQC);
       };
       copy__ZCS(string_tmp__VH,((__DIRECTORY_UNIX *)__tmp__URQC)->parent_entry_unix__ZED.parent_entry__YED.path__BD);
@@ -13851,47 +14014,47 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
           Self__ISIC=(__INTEGER)(Self__ISIC -  1);
         };
         tok__DRQC=get__IWB(string_tmp__VH);
-        Self__11FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-        result__51FH= 0;
-        __tmp__B2FH=((__STRING_CONSTANT *)(&__string_148))->count__DD;
-        Self__C2FH= 1;
-        while ((Self__C2FH <= __tmp__B2FH)) {
-          result__51FH=(__INTEGER)((__INTEGER)( 5 * result__51FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_148))->storage__VQO)[(__INTEGER)(Self__C2FH -  1)])));
-          Self__C2FH=(__INTEGER)(Self__C2FH +  1);
-        };
-        if ((result__51FH <  0)) {
-          result__51FH=(__INTEGER)(~ result__51FH);
-        };
-        node__31FH=((void **)Self__11FH->buckets__5CT)[(__INTEGER)(result__51FH % Self__11FH->capacity__0CT)];
-        while ((! (((void *)node__31FH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__31FH)->key__LDT == (void *)(&__string_148))))) {
-          node__31FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__31FH)->next__WDT;
-        };
-        if (((void *)node__31FH != (void *)NULL)) {
+        Self__IEGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+        result__MEGH= 0;
+        __tmp__OEGH=((__STRING_CONSTANT *)(&__string_148))->count__DD;
+        Self__PEGH= 1;
+        while ((Self__PEGH <= __tmp__OEGH)) {
+          result__MEGH=(__INTEGER)((__INTEGER)( 5 * result__MEGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_148))->storage__VQO)[(__INTEGER)(Self__PEGH -  1)])));
+          Self__PEGH=(__INTEGER)(Self__PEGH +  1);
+        };
+        if ((result__MEGH <  0)) {
+          result__MEGH=(__INTEGER)(~ result__MEGH);
+        };
+        node__KEGH=((void **)Self__IEGH->buckets__5CT)[(__INTEGER)(result__MEGH % Self__IEGH->capacity__0CT)];
+        while ((! (((void *)node__KEGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__KEGH)->key__LDT == (void *)(&__string_148))))) {
+          node__KEGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__KEGH)->next__WDT;
+        };
+        if (((void *)node__KEGH != (void *)NULL)) {
           Self__JX3=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-          result__E2FH= 0;
-          __tmp__G2FH=((__STRING_CONSTANT *)(&__string_148))->count__DD;
-          Self__H2FH= 1;
-          while ((Self__H2FH <= __tmp__G2FH)) {
-            result__E2FH=(__INTEGER)((__INTEGER)( 5 * result__E2FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_148))->storage__VQO)[(__INTEGER)(Self__H2FH -  1)])));
-            Self__H2FH=(__INTEGER)(Self__H2FH +  1);
+          result__REGH= 0;
+          __tmp__TEGH=((__STRING_CONSTANT *)(&__string_148))->count__DD;
+          Self__UEGH= 1;
+          while ((Self__UEGH <= __tmp__TEGH)) {
+            result__REGH=(__INTEGER)((__INTEGER)( 5 * result__REGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_148))->storage__VQO)[(__INTEGER)(Self__UEGH -  1)])));
+            Self__UEGH=(__INTEGER)(Self__UEGH +  1);
           };
-          if ((result__E2FH <  0)) {
-            result__E2FH=(__INTEGER)(~ result__E2FH);
+          if ((result__REGH <  0)) {
+            result__REGH=(__INTEGER)(~ result__REGH);
           };
-          node__UX3=((void **)Self__JX3->buckets__5CT)[(__INTEGER)(result__E2FH % Self__JX3->capacity__0CT)];
+          node__UX3=((void **)Self__JX3->buckets__5CT)[(__INTEGER)(result__REGH % Self__JX3->capacity__0CT)];
           while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UX3)->key__LDT != (void *)(&__string_148))) {
             node__UX3=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UX3)->next__WDT;
           };
           tok_lst__ERQC=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UX3)->item__HY3;
           __tmp__HYQC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__ERQC)->parent_linked_collection__LD.upper__5CD;
-          Self__TURE= 1;
-          while ((Self__TURE <= __tmp__HYQC)) {
-            if (((void *)item__Y0ND(tok_lst__ERQC,Self__TURE) == (void *)NULL)) {
+          Self__TYRE= 1;
+          while ((Self__TYRE <= __tmp__HYQC)) {
+            if (((void *)item__Y0ND(tok_lst__ERQC,Self__TYRE) == (void *)NULL)) {
               append__BOS(directory_list__YB,tok__DRQC);
             } else {
-              append__BOS(directory_list__YB,item__Y0ND(tok_lst__ERQC,Self__TURE));
+              append__BOS(directory_list__YB,item__Y0ND(tok_lst__ERQC,Self__TYRE));
             };
-            Self__TURE=(__INTEGER)(Self__TURE +  1);
+            Self__TYRE=(__INTEGER)(Self__TYRE +  1);
           };
         } else {
           append__BOS(directory_list__YB,tok__DRQC);
@@ -13907,46 +14070,46 @@ static void check_in__begin__4QQC(void *entry__ARQC,__INTEGER n__BRQC)
 static void* add_ext__EBF(void *n__GBF)
 // ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __INTEGER result__N2FH,__tmp__P2FH,Self__Q2FH,result__S2FH;
-  __INTEGER __tmp__U2FH,Self__V2FH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__J2FH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__SXDH;
-  void *node__L2FH,*node__UXDH;
+  __INTEGER result__0EGH,__tmp__2EGH,Self__3EGH,result__5EGH;
+  __INTEGER __tmp__BFGH,Self__CFGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__WEGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__WAEH;
+  void *node__YEGH,*node__YAEH;
   copy__ZCS(string_tmp__VH,n__GBF);
-  Self__J2FH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-  result__N2FH= 0;
-  __tmp__P2FH=((__STRING_CONSTANT *)(&__string_116))->count__DD;
-  Self__Q2FH= 1;
-  while ((Self__Q2FH <= __tmp__P2FH)) {
-    result__N2FH=(__INTEGER)((__INTEGER)( 5 * result__N2FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_116))->storage__VQO)[(__INTEGER)(Self__Q2FH -  1)])));
-    Self__Q2FH=(__INTEGER)(Self__Q2FH +  1);
-  };
-  if ((result__N2FH <  0)) {
-    result__N2FH=(__INTEGER)(~ result__N2FH);
-  };
-  node__L2FH=((void **)Self__J2FH->buckets__5CT)[(__INTEGER)(result__N2FH % Self__J2FH->capacity__0CT)];
-  while ((! (((void *)node__L2FH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__L2FH)->key__LDT == (void *)(&__string_116))))) {
-    node__L2FH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__L2FH)->next__WDT;
-  };
-  if (((void *)node__L2FH != (void *)NULL)) {
-    Self__SXDH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-    result__S2FH= 0;
-    __tmp__U2FH=((__STRING_CONSTANT *)(&__string_116))->count__DD;
-    Self__V2FH= 1;
-    while ((Self__V2FH <= __tmp__U2FH)) {
-      result__S2FH=(__INTEGER)((__INTEGER)( 5 * result__S2FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_116))->storage__VQO)[(__INTEGER)(Self__V2FH -  1)])));
-      Self__V2FH=(__INTEGER)(Self__V2FH +  1);
-    };
-    if ((result__S2FH <  0)) {
-      result__S2FH=(__INTEGER)(~ result__S2FH);
-    };
-    node__UXDH=((void **)Self__SXDH->buckets__5CT)[(__INTEGER)(result__S2FH % Self__SXDH->capacity__0CT)];
-    while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UXDH)->key__LDT != (void *)(&__string_116))) {
-      node__UXDH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UXDH)->next__WDT;
-    };
-    append__BOS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UXDH)->item__HY3)->first_link__EUEC)->item__0VHD);
+  Self__WEGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+  result__0EGH= 0;
+  __tmp__2EGH=((__STRING_CONSTANT *)(&__string_116))->count__DD;
+  Self__3EGH= 1;
+  while ((Self__3EGH <= __tmp__2EGH)) {
+    result__0EGH=(__INTEGER)((__INTEGER)( 5 * result__0EGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_116))->storage__VQO)[(__INTEGER)(Self__3EGH -  1)])));
+    Self__3EGH=(__INTEGER)(Self__3EGH +  1);
+  };
+  if ((result__0EGH <  0)) {
+    result__0EGH=(__INTEGER)(~ result__0EGH);
+  };
+  node__YEGH=((void **)Self__WEGH->buckets__5CT)[(__INTEGER)(result__0EGH % Self__WEGH->capacity__0CT)];
+  while ((! (((void *)node__YEGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YEGH)->key__LDT == (void *)(&__string_116))))) {
+    node__YEGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YEGH)->next__WDT;
+  };
+  if (((void *)node__YEGH != (void *)NULL)) {
+    Self__WAEH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+    result__5EGH= 0;
+    __tmp__BFGH=((__STRING_CONSTANT *)(&__string_116))->count__DD;
+    Self__CFGH= 1;
+    while ((Self__CFGH <= __tmp__BFGH)) {
+      result__5EGH=(__INTEGER)((__INTEGER)( 5 * result__5EGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)(&__string_116))->storage__VQO)[(__INTEGER)(Self__CFGH -  1)])));
+      Self__CFGH=(__INTEGER)(Self__CFGH +  1);
+    };
+    if ((result__5EGH <  0)) {
+      result__5EGH=(__INTEGER)(~ result__5EGH);
+    };
+    node__YAEH=((void **)Self__WAEH->buckets__5CT)[(__INTEGER)(result__5EGH % Self__WAEH->capacity__0CT)];
+    while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YAEH)->key__LDT != (void *)(&__string_116))) {
+      node__YAEH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YAEH)->next__WDT;
+    };
+    append__BOS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YAEH)->item__HY3)->first_link__EUEC)->item__0VHD);
   } else {
-    append__BOS(string_tmp__VH,(&__string_221));
+    append__BOS(string_tmp__VH,(&__string_224));
   };
   return(get__IWB(string_tmp__VH));
 }
@@ -13954,18 +14117,18 @@ static void* add_ext__EBF(void *n__GBF)
 static void save_file__with__PDC(void *n__RDC,void *buf__SDC)
 // ({NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __STRING *Self__WXDH,*Self__DET,*Self__XXS;
+  __STRING *Self__0AEH,*Self__DET,*Self__XXS;
   void *result__RZAC,*__tmp__B0AC,*__tmp__TFC,*file__UDC;
   void *__tmp__B3HC;
-  __POINTER stream__PEIC,ptr__GGOF;
+  __POINTER stream__PEIC,ptr__2LOF;
   void *__tmp__A0AC;
-  __FILE_UNIX *Self__N21G,*Self__VSTE,*Self__4TTE;
+  __FILE_UNIX *Self__DG2G,*Self__JXTE,*Self__SYTE;
   __INTEGER __tmp__YFC;
   __BOOLEAN __tmp__JEC,result__REIC;
   if (((void *)output_name__DI != (void *)NULL)) {
     copy__ZCS(string_tmp__VH,output_name__DI);
-    Self__WXDH=((__STRING *)string_tmp__VH);
-    if ((((__CHARACTER *)Self__WXDH->storage__BCS)[(__INTEGER)(Self__WXDH->count__WFC -  1)] != '/')) {
+    Self__0AEH=((__STRING *)string_tmp__VH);
+    if ((((__CHARACTER *)Self__0AEH->storage__BCS)[(__INTEGER)(Self__0AEH->count__WFC -  1)] != '/')) {
       __tmp__JEC=TRUE__;
     } else {
       Self__DET=((__STRING *)string_tmp__VH);
@@ -14057,17 +14220,17 @@ static void save_file__with__PDC(void *n__RDC,void *buf__SDC)
     result__RZAC=__tmp__B0AC;
   };
   if (((void *)result__RZAC == (void *)NULL)) {
-    put_string__U1F((&__string_222));
+    put_string__U1F((&__string_225));
     put_string__U1F(string_tmp__VH);
-    put_string__U1F((&__string_223));
+    put_string__U1F((&__string_226));
     exit(( 1));
   };
-  Self__N21G=((__FILE_UNIX *)result__RZAC);
-  Self__N21G->stream__EJRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__N21G->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO),"r+b")));
-  if ((! (Self__N21G->stream__EJRD != (void *)NULL))) {
-    put_string__U1F((&__string_222));
+  Self__DG2G=((__FILE_UNIX *)result__RZAC);
+  Self__DG2G->stream__EJRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__DG2G->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO),"r+b")));
+  if ((! (Self__DG2G->stream__EJRD != (void *)NULL))) {
+    put_string__U1F((&__string_225));
     put_string__U1F(string_tmp__VH);
-    put_string__U1F((&__string_224));
+    put_string__U1F((&__string_227));
     exit(( 1));
   };
   if (result__RZAC==NULL) {
@@ -14077,36 +14240,36 @@ static void save_file__with__PDC(void *n__RDC,void *buf__SDC)
   };
   file__UDC=__tmp__TFC;
   __tmp__YFC=((__STRING *)buf__SDC)->count__WFC;
-  Self__VSTE=((__FILE_UNIX *)__tmp__TFC);
-  ptr__GGOF=((__POINTER )((__UINTEGER_8 *)((__STRING *)buf__SDC)->storage__BCS));
-  ptr__GGOF=(void *)((unsigned long)ptr__GGOF - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 0)));
-  fwrite((void *)((((__UINTEGER_8 *)ptr__GGOF))),(size_t)(1), (size_t)((__tmp__YFC)),(FILE*)((Self__VSTE->stream__EJRD)));
-  Self__4TTE=((__FILE_UNIX *)__tmp__TFC);
-  fclose((FILE*)((Self__4TTE->stream__EJRD)));
-  Self__4TTE->stream__EJRD=NULL;
+  Self__JXTE=((__FILE_UNIX *)__tmp__TFC);
+  ptr__2LOF=((__POINTER )((__UINTEGER_8 *)((__STRING *)buf__SDC)->storage__BCS));
+  ptr__2LOF=(void *)((unsigned long)ptr__2LOF - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 0)));
+  fwrite((void *)((((__UINTEGER_8 *)ptr__2LOF))),(size_t)(1), (size_t)((__tmp__YFC)),(FILE*)((Self__JXTE->stream__EJRD)));
+  Self__SYTE=((__FILE_UNIX *)__tmp__TFC);
+  fclose((FILE*)((Self__SYTE->stream__EJRD)));
+  Self__SYTE->stream__EJRD=NULL;
 }
 
 static void resize__YXZ(__STRING *Self__ZXZ,__INTEGER new_count__0XZ)
 // ({STRING},{INTEGER}) VoidNo recursive, No inlinable.
 {
-  __INTEGER old_nb_elts__0ICH,upper__VUFH,Self__TUFH,lower__GO3C;
+  __INTEGER old_nb_elts__5RCH,upper__22FH,Self__02FH,lower__GO3C;
   __INTEGER upper__HO3C,Self__CUDD;
-  __CHARACTER *Self__ZICH,*new__2ICH,*Self__FO3C;
+  __CHARACTER *Self__4RCH,*new__BSCH,*Self__FO3C;
   if ((! (new_count__0XZ <= Self__ZXZ->count__WFC))) {
     if ((Self__ZXZ->capacity__YBS < new_count__0XZ)) {
       if ((Self__ZXZ->capacity__YBS ==  0)) {
         Self__ZXZ->storage__BCS=create__BMEB(new_count__0XZ);
       } else {
-        Self__ZICH=((__CHARACTER *)Self__ZXZ->storage__BCS);
-        old_nb_elts__0ICH=Self__ZXZ->capacity__YBS;
-        new__2ICH=((__CHARACTER *)realloc_dynamic__old_size__new_size__RELC(((__POINTER )Self__ZICH),((__UINTEGER_32 )old_nb_elts__0ICH),((__UINTEGER_32 )new_count__0XZ)));
-        upper__VUFH=(__INTEGER)(new_count__0XZ -  1);
-        Self__TUFH=old_nb_elts__0ICH;
-        while ((Self__TUFH <= upper__VUFH)) {
-          new__2ICH[Self__TUFH]='\0';
-          Self__TUFH=(__INTEGER)(Self__TUFH +  1);
+        Self__4RCH=((__CHARACTER *)Self__ZXZ->storage__BCS);
+        old_nb_elts__5RCH=Self__ZXZ->capacity__YBS;
+        new__BSCH=((__CHARACTER *)realloc_dynamic__old_size__new_size__RELC(((__POINTER )Self__4RCH),((__UINTEGER_32 )old_nb_elts__5RCH),((__UINTEGER_32 )new_count__0XZ)));
+        upper__22FH=(__INTEGER)(new_count__0XZ -  1);
+        Self__02FH=old_nb_elts__5RCH;
+        while ((Self__02FH <= upper__22FH)) {
+          new__BSCH[Self__02FH]='\0';
+          Self__02FH=(__INTEGER)(Self__02FH +  1);
         };
-        Self__ZXZ->storage__BCS=new__2ICH;
+        Self__ZXZ->storage__BCS=new__BSCH;
       };
       Self__ZXZ->capacity__YBS=new_count__0XZ;
     } else {
@@ -14182,21 +14345,21 @@ static __BOOLEAN __infix_equal_equal__45DB(__STRING_CONSTANT *Self__55DB,void *o
 static void* at__QL4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__RL4,void *k__SL4)
 // ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__Y2FH;
-  __INTEGER result__X2FH,__tmp__Z2FH,Self__02FH;
+  __STRING_CONSTANT *Self__FFGH;
+  __INTEGER result__EFGH,__tmp__GFGH,Self__HFGH;
   void *node__2L4;
-  Self__Y2FH=((__STRING_CONSTANT *)k__SL4);
-  result__X2FH= 0;
-  __tmp__Z2FH=Self__Y2FH->count__DD;
-  Self__02FH= 1;
-  while ((Self__02FH <= __tmp__Z2FH)) {
-    result__X2FH=(__INTEGER)((__INTEGER)( 5 * result__X2FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__Y2FH->storage__VQO)[(__INTEGER)(Self__02FH -  1)])));
-    Self__02FH=(__INTEGER)(Self__02FH +  1);
-  };
-  if ((result__X2FH <  0)) {
-    result__X2FH=(__INTEGER)(~ result__X2FH);
-  };
-  node__2L4=((void **)Self__RL4->buckets__5CT)[(__INTEGER)(result__X2FH % Self__RL4->capacity__0CT)];
+  Self__FFGH=((__STRING_CONSTANT *)k__SL4);
+  result__EFGH= 0;
+  __tmp__GFGH=Self__FFGH->count__DD;
+  Self__HFGH= 1;
+  while ((Self__HFGH <= __tmp__GFGH)) {
+    result__EFGH=(__INTEGER)((__INTEGER)( 5 * result__EFGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__FFGH->storage__VQO)[(__INTEGER)(Self__HFGH -  1)])));
+    Self__HFGH=(__INTEGER)(Self__HFGH +  1);
+  };
+  if ((result__EFGH <  0)) {
+    result__EFGH=(__INTEGER)(~ result__EFGH);
+  };
+  node__2L4=((void **)Self__RL4->buckets__5CT)[(__INTEGER)(result__EFGH % Self__RL4->capacity__0CT)];
   while ((! __infix_equal_equal__45DB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2L4)->key__LDT,k__SL4))) {
     node__2L4=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__2L4)->next__WDT;
   };
@@ -14206,81 +14369,81 @@ static void* at__QL4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CON
 static void go_on__CBC(void *obj__EBC)
 // ({NULLxPROTOTYPE}) VoidNo recursive, No inlinable.
 {
-  __POINTER ptr__EFG,ptr_table__X3GH,next__W3GH,result__Y3GH;
-  __POINTER ptr_table__23GH,next__13GH,result__33GH,ptr__B4GH;
-  __POINTER ptr_table__J4GH,next__I4GH,result__K4GH,ptr_table__O4GH;
-  __POINTER next__N4GH,result__P4GH,ptr__YFID,ptr_table__T4GH;
-  __POINTER next__S4GH,result__U4GH,ptr_table__Y4GH,next__X4GH;
-  __POINTER result__Z4GH,ptr__A5GH,ptr_table__M5GH,next__L5GH;
-  __POINTER result__N5GH,ptr_table__R5GH,next__Q5GH,result__S5GH;
-  __POINTER ptr__HAHH,ptr_table__TAHH,next__SAHH,result__UAHH;
-  __POINTER ptr_table__YAHH,next__XAHH,result__ZAHH,ptr__3AHH;
-  __POINTER ptr_table__JBHH,next__IBHH,result__KBHH,ptr_table__OBHH;
-  __POINTER next__NBHH,result__PBHH,ptr__TBHH,ptr_table__2BHH;
-  __POINTER next__1BHH,result__3BHH,ptr_table__BCHH,next__ACHH;
-  __POINTER result__CCHH,ptr__GCHH,ptr_table__PCHH,next__OCHH;
-  __POINTER result__QCHH,ptr_table__UCHH,next__TCHH,result__VCHH;
+  __POINTER ptr__EFG,ptr_table__EGHH,next__DGHH,result__FGHH;
+  __POINTER ptr_table__JGHH,next__IGHH,result__KGHH,ptr__OGHH;
+  __POINTER ptr_table__WGHH,next__VGHH,result__XGHH,ptr_table__1GHH;
+  __POINTER next__0GHH,result__2GHH,ptr__YFID,ptr_table__AHHH;
+  __POINTER next__5GHH,result__BHHH,ptr_table__FHHH,next__EHHH;
+  __POINTER result__GHHH,ptr__NHHH,ptr_table__ZHHH,next__YHHH;
+  __POINTER result__0HHH,ptr_table__4HHH,next__3HHH,result__5HHH;
+  __POINTER ptr__UIHH,ptr_table__AJHH,next__5IHH,result__BJHH;
+  __POINTER ptr_table__FJHH,next__EJHH,result__GJHH,ptr__KJHH;
+  __POINTER ptr_table__WJHH,next__VJHH,result__XJHH,ptr_table__1JHH;
+  __POINTER next__0JHH,result__2JHH,ptr__AKHH,ptr_table__JKHH;
+  __POINTER next__IKHH,result__KKHH,ptr_table__OKHH,next__NKHH;
+  __POINTER result__PKHH,ptr__TKHH,ptr_table__2KHH,next__1KHH;
+  __POINTER result__3KHH,ptr_table__BLHH,next__ALHH,result__CLHH;
   __INTEGER typ_id__JFG,new_capacity__THY,pos_sec__RXC,old_derive__SXC;
-  __INTEGER typ_id__C4GH,h__W0FC,idx__X0FC,idx__ODID,new_capacity__PDID;
+  __INTEGER typ_id__PGHH,h__W0FC,idx__X0FC,idx__ODID,new_capacity__PDID;
   __INTEGER i__QDID,typ_id__3FID,old_pos__SXOB,old_derive__TXOB;
-  __INTEGER typ_id__B5GH,new_capacity__OMHC,other_upper__NMHC;
+  __INTEGER typ_id__OHHH,new_capacity__OMHC,other_upper__NMHC;
   __INTEGER Self__M2WD,new_capacity__ZUHC,__tmp__3VHC,__tmp__KJTD;
-  __INTEGER Self__YPXE,__tmp__SEHC,typ_id__IAHH,typ_id__4AHH;
-  __INTEGER typ_id__UBHH,typ_id__HCHH,start__32FH,end__22FH,len__42FH;
-  __INTEGER __tmp__52FH,__tmp__B3FH,Self__C3FH,__tmp__IK3B,Self__VZPC;
-  __INTEGER start__G3FH,end__F3FH,len__H3FH,__tmp__I3FH,__tmp__K3FH;
-  __INTEGER Self__L3FH;
-  __UINTEGER_32 sz__GFG,a__JYDH,new_size__KYDH,t__OYDH,a__NYDH;
-  __UINTEGER_32 new_size__53GH,lab_type__43GH,sz__D4GH,a__E4GH;
-  __UINTEGER_32 new_size__F4GH,t__G4GH,a__H4GH,new_size__R4GH;
-  __UINTEGER_32 lab_type__Q4GH,sz__0FID,a__5YDH,new_size__AZDH,t__EZDH;
-  __UINTEGER_32 a__DZDH,new_size__14GH,lab_type__04GH,sz__C5GH,a__D5GH;
-  __UINTEGER_32 new_size__E5GH,t__F5GH,a__G5GH,new_size__U5GH;
-  __UINTEGER_32 lab_type__T5GH,sz__JAHH,a__KAHH,new_size__LAHH,t__MAHH;
-  __UINTEGER_32 a__NAHH,new_size__1AHH,lab_type__0AHH,sz__5AHH,a__ABHH;
-  __UINTEGER_32 new_size__BBHH,t__CBHH,a__DBHH,new_size__RBHH;
-  __UINTEGER_32 lab_type__QBHH,sz__VBHH,a__WBHH,new_size__XBHH,t__YBHH;
-  __UINTEGER_32 a__ZBHH,new_size__ECHH,lab_type__DCHH,sz__ICHH,a__JCHH;
-  __UINTEGER_32 new_size__KCHH,t__LCHH,a__MCHH,new_size__XCHH;
-  __UINTEGER_32 lab_type__WCHH;
-  __POSITION pos__2FUG,pos__4FUG,pos__AGUG,pos__LGUG,pos__NGUG;
-  __POSITION pos__QGUG,pos__SGUG,p__I5GH,__tmp__EFHC,__tmp__RFHC;
-  __POSITION pos__ALUG,pos__CLUG,pos__ELUG,pos__GLUG,pos__RZID;
-  __POSITION pos__KLUG,__tmp__HEBD,__tmp__PEBD,__tmp__DFBD,__tmp__MFBD;
-  __POSITION pos__ULUG,__tmp__V5OB,__tmp__X5OB,pos__PMUG,pos__RMUG;
+  __INTEGER Self__QUXE,__tmp__SEHC,typ_id__VIHH,typ_id__LJHH;
+  __INTEGER typ_id__BKHH,typ_id__UKHH,start__KFGH,end__JFGH,len__LFGH;
+  __INTEGER __tmp__MFGH,__tmp__OFGH,Self__PFGH,__tmp__IK3B,Self__VZPC;
+  __INTEGER start__TFGH,end__SFGH,len__UFGH,__tmp__VFGH,__tmp__XFGH;
+  __INTEGER Self__YFGH;
+  __UINTEGER_32 sz__GFG,a__NBEH,new_size__OBEH,t__SBEH,a__RBEH;
+  __UINTEGER_32 new_size__MGHH,lab_type__LGHH,sz__QGHH,a__RGHH;
+  __UINTEGER_32 new_size__SGHH,t__TGHH,a__UGHH,new_size__4GHH;
+  __UINTEGER_32 lab_type__3GHH,sz__0FID,a__DCEH,new_size__ECEH,t__ICEH;
+  __UINTEGER_32 a__HCEH,new_size__IHHH,lab_type__HHHH,sz__PHHH,a__QHHH;
+  __UINTEGER_32 new_size__RHHH,t__SHHH,a__THHH,new_size__BIHH;
+  __UINTEGER_32 lab_type__AIHH,sz__WIHH,a__XIHH,new_size__YIHH,t__ZIHH;
+  __UINTEGER_32 a__0IHH,new_size__IJHH,lab_type__HJHH,sz__MJHH,a__NJHH;
+  __UINTEGER_32 new_size__OJHH,t__PJHH,a__QJHH,new_size__4JHH;
+  __UINTEGER_32 lab_type__3JHH,sz__CKHH,a__DKHH,new_size__EKHH,t__FKHH;
+  __UINTEGER_32 a__GKHH,new_size__RKHH,lab_type__QKHH,sz__VKHH,a__WKHH;
+  __UINTEGER_32 new_size__XKHH,t__YKHH,a__ZKHH,new_size__ELHH;
+  __UINTEGER_32 lab_type__DLHH;
+  __POSITION pos__EPUG,pos__GPUG,pos__IPUG,pos__TPUG,pos__VPUG;
+  __POSITION pos__YPUG,pos__0PUG,p__VHHH,__tmp__EFHC,__tmp__RFHC;
+  __POSITION pos__JUUG,pos__LUUG,pos__NUUG,pos__PUUG,pos__RZID;
+  __POSITION pos__TUUG,__tmp__HEBD,__tmp__PEBD,__tmp__DFBD,__tmp__MFBD;
+  __POSITION pos__3UUG,__tmp__V5OB,__tmp__X5OB,pos__YVUG,pos__0VUG;
   void *n__4SOB,*n__0DBD,*__tmp__K5OB,*__tmp__AGZB;
-  __SECTION_ *Self__CB2G,*Self__DB2G,*result__A4GH,*Self__0E2G;
-  __SECTION_ *Self__1E2G;
+  __SECTION_ *Self__YK2G,*Self__ZK2G,*result__NGHH,*Self__LQUG;
+  __SECTION_ *Self__QO2G,*Self__RO2G;
   void *__tmp__X1C,*s__UXOB,*result__ACZB,*__tmp__L1OB,*__tmp__RJ3B;
   void *s__4FZB,*__tmp__OGZB;
   void *__tmp__Z1C,*result__BREC,*result__0WOB,*sec__1DBD;
   void *t__OXOB;
   void *arg__5BZB,*__tmp__REHC,*__tmp__DFHC,*__tmp__QFHC;
-  __ITM_ARG *result__54GH,*Self__H5GH,*result__GAHH,*Self__OAHH;
+  __ITM_ARG *result__MHHH,*Self__UHHH,*result__TIHH,*Self__1IHH;
   __ITM_SLOT_OPERATOR *Self__IEHC,*Self__24FC,*Self__TGHC;
   void *tm__44FC,*__tmp__H5FC;
   void *expr__EJ3B;
   void *__tmp__SJ3B;
-  __ITM_SLOT *result__2AHH,*Self__EBHH;
-  __ITM_PROTOTYPE *result__SBHH;
-  __ITM_READ_ARG1 *result__FCHH;
-  __STRING *Self__A3FH,*Self__J3FH;
+  __ITM_SLOT *result__JJHH,*Self__RJHH;
+  __ITM_PROTOTYPE *result__5JHH;
+  __ITM_READ_ARG1 *result__SKHH;
+  __STRING *Self__NFGH,*Self__WFGH;
   __PROTOTYPE *Self__3FZB;
   __HASHED_SEToSTRING_CONSTANTo *result__DFG,*Self__2HT,*Self__DK3B;
   void *t__0XC,*k__WQEC,*k__P0FC,*lt__PXOB;
-  __BOOLEAN result__SBJH,result__UBJH,result__ZBE,result__OGEB;
-  __BOOLEAN __tmp__1GEB,result__XD5,result__PYDH,result__WX5;
+  __BOOLEAN result__JKJH,result__LKJH,result__ZBE,result__OGEB;
+  __BOOLEAN __tmp__1GEB,result__XD5,result__TBEH,result__WX5;
   __BOOLEAN __tmp__TIEB,result__NVAB,__tmp__UIEB,__tmp__XIEB,__tmp__K2C;
-  __BOOLEAN __tmp__51C,result__NXOB,result__24GH,result__V5GH;
-  __BOOLEAN __tmp__QDZB,result__Y5GH,__tmp__HVHC,__tmp__WEHC;
-  __BOOLEAN result__35GH,__tmp__HZOB,result__AAHH,result__DAHH;
-  __BOOLEAN result__YCHH,__tmp__A4OB,__tmp__B4OB;
-  __CHARACTER result__R51G,result__W51G,result__151G,result__AA2G;
-  __CHARACTER result__FA2G,result__OA2G,result__TA2G,result__YA2G;
-  __CHARACTER result__3A2G,affect__RXOB,style__QXOB,result__34GH;
-  __CHARACTER result__W5GH,result__Z5GH,result__45GH,result__BAHH;
-  __CHARACTER result__EAHH,result__ZCHH,result__FF2G,result__OF2G;
-  __CHARACTER result__TF2G,result__YF2G,result__JG2G;
+  __BOOLEAN __tmp__51C,result__NXOB,result__JHHH,result__CIHH;
+  __BOOLEAN __tmp__QDZB,result__FIHH,__tmp__HVHC,__tmp__WEHC;
+  __BOOLEAN result__KIHH,__tmp__HZOB,result__NIHH,result__QIHH;
+  __BOOLEAN result__FLHH,__tmp__A4OB,__tmp__B4OB;
+  __CHARACTER result__HJ2G,result__MJ2G,result__RJ2G,result__WJ2G;
+  __CHARACTER result__1J2G,result__EK2G,result__JK2G,result__OK2G;
+  __CHARACTER result__TK2G,affect__RXOB,style__QXOB,result__KHHH;
+  __CHARACTER result__DIHH,result__GIHH,result__LIHH,result__OIHH;
+  __CHARACTER result__RIHH,result__GLHH,result__1O2G,result__EP2G;
+  __CHARACTER result__JP2G,result__OP2G,result__5P2G;
   __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__VQEC;
   __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__N0FC;
   void *node__AREC,*node__Y0FC,*node1__SDID,*node2__TDID,*__tmp__G2FC;
@@ -14290,7 +14453,7 @@ static void go_on__CBC(void *obj__EBC)
   void *result__QU1B,*result__SU4B,*larg__2DBD;
   __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__WCZC,*Self__MDZC;
   __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__XUHC;
-  __FAST_ARRAYoITM_ARGUMENTo *Self__LMHC,*Self__SZDH,*Self__1ZDH;
+  __FAST_ARRAYoITM_ARGUMENTo *Self__LMHC,*Self__WCEH,*Self__5CEH;
   void **__tmp__BNHC,**__tmp__DNHC,**Self__EHSD;
   void **__tmp__2VHC,**new__WITD;
   void *__tmp__I5OB,*__tmp__5FZB;
@@ -14317,61 +14480,61 @@ static void go_on__CBC(void *obj__EBC)
       typ_id__JFG=__HASHED_SEToSTRING_CONSTANTo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GFG);
       if ((typ_id__JFG == (__INTEGER)(-  1))) {
-        a__JYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__KYDH=(__UINTEGER_32)((__UINTEGER_32)(sz__GFG + a__JYDH) & (__UINTEGER_32)(~ a__JYDH));
-        ptr_table__X3GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KYDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__W3GH=((__POINTER )(NULL));
-        result__Y3GH=((__POINTER *)ptr_table__X3GH)[ 0];
-        if ((result__Y3GH == (void *)NULL)) {
-          result__Y3GH=new_lab__MRJ(new_size__KYDH);
-          next__W3GH=(void *)((unsigned long)result__Y3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KYDH)));
-          ((__POINTER *)next__W3GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__X3GH)[ 0]=next__W3GH;
-        } else {
-          next__W3GH=((__POINTER *)result__Y3GH)[ 0];
-          if ((next__W3GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y3GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KYDH <<  1)) <=  4096)) {
-              next__W3GH=(void *)((unsigned long)result__Y3GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KYDH)));
+        a__NBEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__OBEH=(__UINTEGER_32)((__UINTEGER_32)(sz__GFG + a__NBEH) & (__UINTEGER_32)(~ a__NBEH));
+        ptr_table__EGHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OBEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__DGHH=((__POINTER )(NULL));
+        result__FGHH=((__POINTER *)ptr_table__EGHH)[ 0];
+        if ((result__FGHH == (void *)NULL)) {
+          result__FGHH=new_lab__MRJ(new_size__OBEH);
+          next__DGHH=(void *)((unsigned long)result__FGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OBEH)));
+          ((__POINTER *)next__DGHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__EGHH)[ 0]=next__DGHH;
+        } else {
+          next__DGHH=((__POINTER *)result__FGHH)[ 0];
+          if ((next__DGHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OBEH <<  1)) <=  4096)) {
+              next__DGHH=(void *)((unsigned long)result__FGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OBEH)));
             } else {
-              next__W3GH=new_lab__MRJ(new_size__KYDH);
-            };
-            ((__POINTER *)next__W3GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__X3GH)[ 0]=next__W3GH;
-          } else {
-            ((__POINTER *)result__Y3GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W3GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__Y3GH=next__W3GH;
-          };
-        };
-        ptr__EFG=result__Y3GH;
-      } else {
-        t__OYDH=((__UINTEGER_32 )typ_id__JFG);
-        a__NYDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__53GH=(__UINTEGER_32)((__UINTEGER_32)(sz__GFG + a__NYDH) & (__UINTEGER_32)(~ a__NYDH));
-        ptr_table__23GH=((__POINTER )(&(table_type[(t__OYDH)])));
-        lab_type__43GH=(__UINTEGER_32)(t__OYDH |  1);
-        next__13GH=((__POINTER )(NULL));
-        result__33GH=((__POINTER *)ptr_table__23GH)[ 0];
-        if ((result__33GH == (void *)NULL)) {
-          result__33GH=new_lab__MRJ(lab_type__43GH);
-          next__13GH=(void *)((unsigned long)result__33GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53GH)));
-          ((__POINTER *)next__13GH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__23GH)[ 0]=next__13GH;
-        } else {
-          next__13GH=((__POINTER *)result__33GH)[ 0];
-          if ((next__13GH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__33GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__53GH <<  1)) <=  4096)) {
-              next__13GH=(void *)((unsigned long)result__33GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53GH)));
+              next__DGHH=new_lab__MRJ(new_size__OBEH);
+            };
+            ((__POINTER *)next__DGHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__EGHH)[ 0]=next__DGHH;
+          } else {
+            ((__POINTER *)result__FGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__FGHH=next__DGHH;
+          };
+        };
+        ptr__EFG=result__FGHH;
+      } else {
+        t__SBEH=((__UINTEGER_32 )typ_id__JFG);
+        a__RBEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__MGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__GFG + a__RBEH) & (__UINTEGER_32)(~ a__RBEH));
+        ptr_table__JGHH=((__POINTER )(&(table_type[(t__SBEH)])));
+        lab_type__LGHH=(__UINTEGER_32)(t__SBEH |  1);
+        next__IGHH=((__POINTER )(NULL));
+        result__KGHH=((__POINTER *)ptr_table__JGHH)[ 0];
+        if ((result__KGHH == (void *)NULL)) {
+          result__KGHH=new_lab__MRJ(lab_type__LGHH);
+          next__IGHH=(void *)((unsigned long)result__KGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MGHH)));
+          ((__POINTER *)next__IGHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__JGHH)[ 0]=next__IGHH;
+        } else {
+          next__IGHH=((__POINTER *)result__KGHH)[ 0];
+          if ((next__IGHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MGHH <<  1)) <=  4096)) {
+              next__IGHH=(void *)((unsigned long)result__KGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MGHH)));
             } else {
-              next__13GH=new_lab__MRJ(lab_type__43GH);
+              next__IGHH=new_lab__MRJ(lab_type__LGHH);
             };
-            ((__POINTER *)next__13GH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__23GH)[ 0]=next__13GH;
+            ((__POINTER *)next__IGHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__JGHH)[ 0]=next__IGHH;
           } else {
-            ((__POINTER *)result__33GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__13GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__33GH=next__13GH;
+            ((__POINTER *)result__KGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__KGHH=next__IGHH;
           };
         };
-        ptr__EFG=result__33GH;
+        ptr__EFG=result__KGHH;
       };
       result__DFG=((__HASHED_SEToSTRING_CONSTANTo *)ptr__EFG);
       *(result__DFG) = *(HASHED_SEToSTRING_CONSTANTo__);
@@ -14388,16 +14551,16 @@ static void go_on__CBC(void *obj__EBC)
   read_space__3RD();
   pos_sec__RXC=position__SBC;
   old_derive__SXC=short_derive__BCC;
-  result__SBJH=read_word__QPF((&__string_4));
+  result__JKJH=read_word__QPF((&__string_4));
   if (is_shorter__5Y) {
-    if (result__SBJH) {
+    if (result__JKJH) {
       short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
     };
   };
-  if ((! result__SBJH)) {
-    pos__2FUG=current_position__JXF();
-    put_error__text__KNG( 0,(&__string_225));
-    put_position__UOG(pos__2FUG);
+  if ((! result__JKJH)) {
+    pos__EPUG=current_position__JXF();
+    put_error__text__KNG( 0,(&__string_228));
+    put_position__UOG(pos__EPUG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -14407,9 +14570,9 @@ static void go_on__CBC(void *obj__EBC)
   if (is_shorter2__VI) {
     is_catch_comment__AXC=FALSE__;
   };
-  result__UBJH=read_word__QPF((&__string_22));
+  result__LKJH=read_word__QPF((&__string_22));
   if (is_shorter__5Y) {
-    if (result__UBJH) {
+    if (result__LKJH) {
       if (((void *)(&__string_22) == (void *)(&__string_4))) {
         short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
       } else {
@@ -14417,19 +14580,19 @@ static void go_on__CBC(void *obj__EBC)
       };
     };
   };
-  if ((! result__UBJH)) {
-    pos__4FUG=current_position__JXF();
-    put_error__text__KNG( 0,(&__string_226));
-    put_position__UOG(pos__4FUG);
+  if ((! result__LKJH)) {
+    pos__GPUG=current_position__JXF();
+    put_error__text__KNG( 0,(&__string_229));
+    put_position__UOG(pos__GPUG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
   };
   if ((! read_slot_header__SDE(TRUE__))) {
-    pos__AGUG=current_position__JXF();
-    put_error__text__KNG( 0,(&__string_227));
-    put_position__UOG(pos__AGUG);
+    pos__IPUG=current_position__JXF();
+    put_error__text__KNG( 0,(&__string_230));
+    put_position__UOG(pos__IPUG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -14450,15 +14613,15 @@ static void go_on__CBC(void *obj__EBC)
       if ((! read_space__3RD())) {
         __tmp__1GEB=TRUE__;
       } else {
-        result__R51G='\0';
+        result__HJ2G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__R51G=((__CHARACTER )(( 0)));
+          result__HJ2G=((__CHARACTER )(( 0)));
         } else {
-          result__R51G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__HJ2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
         result__XD5=FALSE__;
-        if ((((__INTEGER_8 )result__R51G) >= ((__INTEGER_8 )'A'))) {
-          result__XD5=(((__INTEGER_8 )result__R51G) <= ((__INTEGER_8 )'Z'));
+        if ((((__INTEGER_8 )result__HJ2G) >= ((__INTEGER_8 )'A'))) {
+          result__XD5=(((__INTEGER_8 )result__HJ2G) <= ((__INTEGER_8 )'Z'));
         };
         __tmp__1GEB=(! result__XD5);
       };
@@ -14466,92 +14629,92 @@ static void go_on__CBC(void *obj__EBC)
         result__OGEB=FALSE__;
       } else {
         ((__STRING *)string_tmp__VH)->count__WFC= 0;
-        result__W51G='\0';
+        result__MJ2G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__W51G=((__CHARACTER )(( 0)));
+          result__MJ2G=((__CHARACTER )(( 0)));
         } else {
-          result__W51G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__MJ2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        add_last__ZLT(string_tmp__VH,result__W51G);
+        add_last__ZLT(string_tmp__VH,result__MJ2G);
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__151G='\0';
+        result__RJ2G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__151G=((__CHARACTER )(( 0)));
+          result__RJ2G=((__CHARACTER )(( 0)));
         } else {
-          result__151G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__RJ2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        result__PYDH=FALSE__;
-        if ((((__INTEGER_8 )result__151G) >= ((__INTEGER_8 )'a'))) {
-          result__PYDH=(((__INTEGER_8 )result__151G) <= ((__INTEGER_8 )'z'));
+        result__TBEH=FALSE__;
+        if ((((__INTEGER_8 )result__RJ2G) >= ((__INTEGER_8 )'a'))) {
+          result__TBEH=(((__INTEGER_8 )result__RJ2G) <= ((__INTEGER_8 )'z'));
         };
-        if (result__PYDH) {
-          result__AA2G='\0';
+        if (result__TBEH) {
+          result__WJ2G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__AA2G=((__CHARACTER )(( 0)));
+            result__WJ2G=((__CHARACTER )(( 0)));
           } else {
-            result__AA2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__WJ2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__AA2G);
+          add_last__ZLT(string_tmp__VH,result__WJ2G);
           position__SBC=(__INTEGER)(position__SBC +  1);
-          while_do__ZXFF:
+          while_do__42FF:
           {
-            result__FA2G='\0';
+            result__1J2G='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__FA2G=((__CHARACTER )(( 0)));
+              result__1J2G=((__CHARACTER )(( 0)));
             } else {
-              result__FA2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__1J2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__FA2G != ((__CHARACTER )(( 0))))) {
-              result__OA2G='\0';
+            if ((result__1J2G != ((__CHARACTER )(( 0))))) {
+              result__EK2G='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__OA2G=((__CHARACTER )(( 0)));
+                result__EK2G=((__CHARACTER )(( 0)));
               } else {
-                result__OA2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__EK2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
               result__WX5=FALSE__;
-              if ((((__INTEGER_8 )result__OA2G) >= ((__INTEGER_8 )'a'))) {
-                result__WX5=(((__INTEGER_8 )result__OA2G) <= ((__INTEGER_8 )'z'));
+              if ((((__INTEGER_8 )result__EK2G) >= ((__INTEGER_8 )'a'))) {
+                result__WX5=(((__INTEGER_8 )result__EK2G) <= ((__INTEGER_8 )'z'));
               };
               if (result__WX5) {
                 __tmp__TIEB=TRUE__;
               } else {
-                result__TA2G='\0';
+                result__JK2G='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__TA2G=((__CHARACTER )(( 0)));
+                  result__JK2G=((__CHARACTER )(( 0)));
                 } else {
-                  result__TA2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__JK2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
                 result__NVAB=FALSE__;
-                if ((((__INTEGER_8 )result__TA2G) >= ((__INTEGER_8 )'0'))) {
-                  result__NVAB=(((__INTEGER_8 )result__TA2G) <= ((__INTEGER_8 )'9'));
+                if ((((__INTEGER_8 )result__JK2G) >= ((__INTEGER_8 )'0'))) {
+                  result__NVAB=(((__INTEGER_8 )result__JK2G) <= ((__INTEGER_8 )'9'));
                 };
                 __tmp__TIEB=result__NVAB;
               };
               if (__tmp__TIEB) {
                 __tmp__UIEB=TRUE__;
               } else {
-                result__YA2G='\0';
+                result__OK2G='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__YA2G=((__CHARACTER )(( 0)));
+                  result__OK2G=((__CHARACTER )(( 0)));
                 } else {
-                  result__YA2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__OK2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                __tmp__UIEB=(result__YA2G == '_');
+                __tmp__UIEB=(result__OK2G == '_');
               };
               __tmp__XIEB=__tmp__UIEB;
             } else {
               __tmp__XIEB=FALSE__;
             };
             if (__tmp__XIEB) {
-              result__3A2G='\0';
+              result__TK2G='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__3A2G=((__CHARACTER )(( 0)));
+                result__TK2G=((__CHARACTER )(( 0)));
               } else {
-                result__3A2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__TK2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              add_last__ZLT(string_tmp__VH,result__3A2G);
+              add_last__ZLT(string_tmp__VH,result__TK2G);
               position__SBC=(__INTEGER)(position__SBC +  1);
-              goto while_do__ZXFF;
+              goto while_do__42FF;
             };
           };
           last_string__I0C=get__IWB(string_tmp__VH);
@@ -14565,9 +14728,9 @@ static void go_on__CBC(void *obj__EBC)
       if (result__OGEB) {
         n__4SOB=last_string__I0C;
         if ((! (((((((((void *)n__4SOB == (void *)(&__string_23)) || ((void *)n__4SOB == (void *)(&__string_24))) || ((void *)n__4SOB == (void *)(&__string_25))) || ((void *)n__4SOB == (void *)(&__string_26))) || ((void *)n__4SOB == (void *)(&__string_27))) || ((void *)n__4SOB == (void *)(&__string_28))) || ((void *)n__4SOB == (void *)(&__string_29))) || ((void *)n__4SOB == (void *)(&__string_30))))) {
-          pos__LGUG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_228));
-          put_position__UOG(pos__LGUG);
+          pos__TPUG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_231));
+          put_position__UOG(pos__TPUG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -14577,23 +14740,23 @@ static void go_on__CBC(void *obj__EBC)
         if (((void *)((__SECTION_ *)last_section__X0C)->name__CZDC == (void *)(&__string_28))) {
           __tmp__K2C=TRUE__;
         } else {
-          Self__CB2G=((__SECTION_ *)last_section__X0C);
-          if (((((void *)Self__CB2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__CB2G->name__CZDC == (void *)(&__string_24))) && ((void *)((__PROTOTYPE *)object__JBC)->last_slot__O1C != (void *)NULL))) {
+          Self__YK2G=((__SECTION_ *)last_section__X0C);
+          if (((((void *)Self__YK2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__YK2G->name__CZDC == (void *)(&__string_24))) && ((void *)((__PROTOTYPE *)object__JBC)->last_slot__O1C != (void *)NULL))) {
             __tmp__X1C=((__PROTOTYPE *)object__JBC)->last_slot__O1C;
             if (((struct ___OBJ *)__tmp__X1C)->__id==__ITM_SLOT__) {
               __tmp__Z1C=((__ITM_SLOT *)__tmp__X1C)->id_section__Y1C;
             } else {
               __tmp__Z1C=((__ITM_SLOT_OPERATOR *)__tmp__X1C)->parent_itm_slot__OU5B.id_section__Y1C;
             };
-            Self__DB2G=((__SECTION_ *)__tmp__Z1C);
-            __tmp__51C=(! (((void *)Self__DB2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__DB2G->name__CZDC == (void *)(&__string_24))));
+            Self__ZK2G=((__SECTION_ *)__tmp__Z1C);
+            __tmp__51C=(! (((void *)Self__ZK2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__ZK2G->name__CZDC == (void *)(&__string_24))));
           } else {
             __tmp__51C=FALSE__;
           };
           if (__tmp__51C) {
-            pos__NGUG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_229));
-            put_position__UOG(pos__NGUG);
+            pos__VPUG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_232));
+            put_position__UOG(pos__VPUG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -14603,9 +14766,9 @@ static void go_on__CBC(void *obj__EBC)
         };
         if ((! __tmp__K2C)) {
           if ((((((void *)((__SECTION_ *)last_section__X0C)->name__CZDC == (void *)(&__string_23)) && ((void *)((__PROTOTYPE *)object__JBC)->type_style__X2C == (void *)(&__string_9))) && ((void *)((__PROTOTYPE *)object__JBC)->parent_named__5.name__LI != (void *)(&__string_42))) && ((void *)((__PROTOTYPE *)object__JBC)->parent_named__5.name__LI != (void *)(&__string_43)))) {
-            pos__QGUG=current_position__JXF();
-            put_error__text__KNG( 2,(&__string_230));
-            put_position__UOG(pos__QGUG);
+            pos__YPUG=current_position__JXF();
+            put_error__text__KNG( 2,(&__string_233));
+            put_position__UOG(pos__YPUG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -14615,9 +14778,9 @@ static void go_on__CBC(void *obj__EBC)
       } else {
         t__0XC=read_type_list__IMO(PARSER__,TRUE__);
         if (((void *)t__0XC == (void *)NULL)) {
-          pos__SGUG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_228));
-          put_position__UOG(pos__SGUG);
+          pos__0PUG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_231));
+          put_position__UOG(pos__0PUG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -14635,77 +14798,79 @@ static void go_on__CBC(void *obj__EBC)
         };
         result__0WOB=result__BREC;
         if (((void *)result__BREC == (void *)NULL)) {
-          result__A4GH=NULL;
-          ptr__B4GH=((__POINTER )(NULL));
-          typ_id__C4GH= 0;
-          sz__D4GH=((__UINTEGER_32 )sizeof(__SECTION_));
-          if ((sz__D4GH ==  0)) {
-            result__A4GH=SECTION___;
-          } else {
-            typ_id__C4GH=__SECTION___;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__D4GH);
-            if ((typ_id__C4GH == (__INTEGER)(-  1))) {
-              a__E4GH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__F4GH=(__UINTEGER_32)((__UINTEGER_32)(sz__D4GH + a__E4GH) & (__UINTEGER_32)(~ a__E4GH));
-              ptr_table__J4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__F4GH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__I4GH=((__POINTER )(NULL));
-              result__K4GH=((__POINTER *)ptr_table__J4GH)[ 0];
-              if ((result__K4GH == (void *)NULL)) {
-                result__K4GH=new_lab__MRJ(new_size__F4GH);
-                next__I4GH=(void *)((unsigned long)result__K4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F4GH)));
-                ((__POINTER *)next__I4GH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__J4GH)[ 0]=next__I4GH;
+          result__NGHH=NULL;
+          ptr__OGHH=((__POINTER )(NULL));
+          typ_id__PGHH= 0;
+          sz__QGHH=((__UINTEGER_32 )sizeof(__SECTION_));
+          if ((sz__QGHH ==  0)) {
+            result__NGHH=SECTION___;
+          } else {
+            typ_id__PGHH=__SECTION___;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__QGHH);
+            if ((typ_id__PGHH == (__INTEGER)(-  1))) {
+              a__RGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__SGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__QGHH + a__RGHH) & (__UINTEGER_32)(~ a__RGHH));
+              ptr_table__WGHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__VGHH=((__POINTER )(NULL));
+              result__XGHH=((__POINTER *)ptr_table__WGHH)[ 0];
+              if ((result__XGHH == (void *)NULL)) {
+                result__XGHH=new_lab__MRJ(new_size__SGHH);
+                next__VGHH=(void *)((unsigned long)result__XGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SGHH)));
+                ((__POINTER *)next__VGHH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__WGHH)[ 0]=next__VGHH;
               } else {
-                next__I4GH=((__POINTER *)result__K4GH)[ 0];
-                if ((next__I4GH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__F4GH <<  1)) <=  4096)) {
-                    next__I4GH=(void *)((unsigned long)result__K4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F4GH)));
+                next__VGHH=((__POINTER *)result__XGHH)[ 0];
+                if ((next__VGHH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SGHH <<  1)) <=  4096)) {
+                    next__VGHH=(void *)((unsigned long)result__XGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SGHH)));
                   } else {
-                    next__I4GH=new_lab__MRJ(new_size__F4GH);
+                    next__VGHH=new_lab__MRJ(new_size__SGHH);
                   };
-                  ((__POINTER *)next__I4GH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__J4GH)[ 0]=next__I4GH;
+                  ((__POINTER *)next__VGHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__WGHH)[ 0]=next__VGHH;
                 } else {
-                  ((__POINTER *)result__K4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__K4GH=next__I4GH;
+                  ((__POINTER *)result__XGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__XGHH=next__VGHH;
                 };
               };
-              ptr__B4GH=result__K4GH;
+              ptr__OGHH=result__XGHH;
             } else {
-              t__G4GH=((__UINTEGER_32 )typ_id__C4GH);
-              a__H4GH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__R4GH=(__UINTEGER_32)((__UINTEGER_32)(sz__D4GH + a__H4GH) & (__UINTEGER_32)(~ a__H4GH));
-              ptr_table__O4GH=((__POINTER )(&(table_type[(t__G4GH)])));
-              lab_type__Q4GH=(__UINTEGER_32)(t__G4GH |  1);
-              next__N4GH=((__POINTER )(NULL));
-              result__P4GH=((__POINTER *)ptr_table__O4GH)[ 0];
-              if ((result__P4GH == (void *)NULL)) {
-                result__P4GH=new_lab__MRJ(lab_type__Q4GH);
-                next__N4GH=(void *)((unsigned long)result__P4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R4GH)));
-                ((__POINTER *)next__N4GH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__O4GH)[ 0]=next__N4GH;
+              t__TGHH=((__UINTEGER_32 )typ_id__PGHH);
+              a__UGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__4GHH=(__UINTEGER_32)((__UINTEGER_32)(sz__QGHH + a__UGHH) & (__UINTEGER_32)(~ a__UGHH));
+              ptr_table__1GHH=((__POINTER )(&(table_type[(t__TGHH)])));
+              lab_type__3GHH=(__UINTEGER_32)(t__TGHH |  1);
+              next__0GHH=((__POINTER )(NULL));
+              result__2GHH=((__POINTER *)ptr_table__1GHH)[ 0];
+              if ((result__2GHH == (void *)NULL)) {
+                result__2GHH=new_lab__MRJ(lab_type__3GHH);
+                next__0GHH=(void *)((unsigned long)result__2GHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4GHH)));
+                ((__POINTER *)next__0GHH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__1GHH)[ 0]=next__0GHH;
               } else {
-                next__N4GH=((__POINTER *)result__P4GH)[ 0];
-                if ((next__N4GH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__R4GH <<  1)) <=  4096)) {
-                    next__N4GH=(void *)((unsigned long)result__P4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R4GH)));
+                next__0GHH=((__POINTER *)result__2GHH)[ 0];
+                if ((next__0GHH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2GHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4GHH <<  1)) <=  4096)) {
+                    next__0GHH=(void *)((unsigned long)result__2GHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4GHH)));
                   } else {
-                    next__N4GH=new_lab__MRJ(lab_type__Q4GH);
+                    next__0GHH=new_lab__MRJ(lab_type__3GHH);
                   };
-                  ((__POINTER *)next__N4GH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__O4GH)[ 0]=next__N4GH;
+                  ((__POINTER *)next__0GHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__1GHH)[ 0]=next__0GHH;
                 } else {
-                  ((__POINTER *)result__P4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__P4GH=next__N4GH;
+                  ((__POINTER *)result__2GHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0GHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__2GHH=next__0GHH;
                 };
               };
-              ptr__B4GH=result__P4GH;
+              ptr__OGHH=result__2GHH;
             };
-            result__A4GH=((__SECTION_ *)ptr__B4GH);
-            *(result__A4GH) = *(SECTION___);
+            result__NGHH=((__SECTION_ *)ptr__OGHH);
+            *(result__NGHH) = *(SECTION___);
           };
-          result__0WOB=result__A4GH;
-          ((__SECTION_ *)result__A4GH)->name__CZDC=NULL;
+          result__0WOB=result__NGHH;
+          Self__LQUG=((__SECTION_ *)result__NGHH);
+          Self__LQUG->name__CZDC=NULL;
+          Self__LQUG->type_list__RXFC=t__0XC;
           Self__N0FC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__4WOB);
           k__P0FC=t__0XC;
           h__W0FC=hash_code__P50(t__0XC);
@@ -14748,74 +14913,74 @@ static void go_on__CBC(void *obj__EBC)
               typ_id__3FID=__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
               clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__0FID);
               if ((typ_id__3FID == (__INTEGER)(-  1))) {
-                a__5YDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__AZDH=(__UINTEGER_32)((__UINTEGER_32)(sz__0FID + a__5YDH) & (__UINTEGER_32)(~ a__5YDH));
-                ptr_table__T4GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AZDH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__S4GH=((__POINTER )(NULL));
-                result__U4GH=((__POINTER *)ptr_table__T4GH)[ 0];
-                if ((result__U4GH == (void *)NULL)) {
-                  result__U4GH=new_lab__MRJ(new_size__AZDH);
-                  next__S4GH=(void *)((unsigned long)result__U4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AZDH)));
-                  ((__POINTER *)next__S4GH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__T4GH)[ 0]=next__S4GH;
+                a__DCEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__ECEH=(__UINTEGER_32)((__UINTEGER_32)(sz__0FID + a__DCEH) & (__UINTEGER_32)(~ a__DCEH));
+                ptr_table__AHHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ECEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                next__5GHH=((__POINTER )(NULL));
+                result__BHHH=((__POINTER *)ptr_table__AHHH)[ 0];
+                if ((result__BHHH == (void *)NULL)) {
+                  result__BHHH=new_lab__MRJ(new_size__ECEH);
+                  next__5GHH=(void *)((unsigned long)result__BHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ECEH)));
+                  ((__POINTER *)next__5GHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__AHHH)[ 0]=next__5GHH;
                 } else {
-                  next__S4GH=((__POINTER *)result__U4GH)[ 0];
-                  if ((next__S4GH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AZDH <<  1)) <=  4096)) {
-                      next__S4GH=(void *)((unsigned long)result__U4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AZDH)));
+                  next__5GHH=((__POINTER *)result__BHHH)[ 0];
+                  if ((next__5GHH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BHHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ECEH <<  1)) <=  4096)) {
+                      next__5GHH=(void *)((unsigned long)result__BHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ECEH)));
                     } else {
-                      next__S4GH=new_lab__MRJ(new_size__AZDH);
+                      next__5GHH=new_lab__MRJ(new_size__ECEH);
                     };
-                    ((__POINTER *)next__S4GH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__T4GH)[ 0]=next__S4GH;
+                    ((__POINTER *)next__5GHH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__AHHH)[ 0]=next__5GHH;
                   } else {
-                    ((__POINTER *)result__U4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__U4GH=next__S4GH;
+                    ((__POINTER *)result__BHHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5GHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__BHHH=next__5GHH;
                   };
                 };
-                ptr__YFID=result__U4GH;
+                ptr__YFID=result__BHHH;
               } else {
-                t__EZDH=((__UINTEGER_32 )typ_id__3FID);
-                a__DZDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__14GH=(__UINTEGER_32)((__UINTEGER_32)(sz__0FID + a__DZDH) & (__UINTEGER_32)(~ a__DZDH));
-                ptr_table__Y4GH=((__POINTER )(&(table_type[(t__EZDH)])));
-                lab_type__04GH=(__UINTEGER_32)(t__EZDH |  1);
-                next__X4GH=((__POINTER )(NULL));
-                result__Z4GH=((__POINTER *)ptr_table__Y4GH)[ 0];
-                if ((result__Z4GH == (void *)NULL)) {
-                  result__Z4GH=new_lab__MRJ(lab_type__04GH);
-                  next__X4GH=(void *)((unsigned long)result__Z4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__14GH)));
-                  ((__POINTER *)next__X4GH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__Y4GH)[ 0]=next__X4GH;
+                t__ICEH=((__UINTEGER_32 )typ_id__3FID);
+                a__HCEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__IHHH=(__UINTEGER_32)((__UINTEGER_32)(sz__0FID + a__HCEH) & (__UINTEGER_32)(~ a__HCEH));
+                ptr_table__FHHH=((__POINTER )(&(table_type[(t__ICEH)])));
+                lab_type__HHHH=(__UINTEGER_32)(t__ICEH |  1);
+                next__EHHH=((__POINTER )(NULL));
+                result__GHHH=((__POINTER *)ptr_table__FHHH)[ 0];
+                if ((result__GHHH == (void *)NULL)) {
+                  result__GHHH=new_lab__MRJ(lab_type__HHHH);
+                  next__EHHH=(void *)((unsigned long)result__GHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IHHH)));
+                  ((__POINTER *)next__EHHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__FHHH)[ 0]=next__EHHH;
                 } else {
-                  next__X4GH=((__POINTER *)result__Z4GH)[ 0];
-                  if ((next__X4GH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z4GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__14GH <<  1)) <=  4096)) {
-                      next__X4GH=(void *)((unsigned long)result__Z4GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__14GH)));
+                  next__EHHH=((__POINTER *)result__GHHH)[ 0];
+                  if ((next__EHHH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GHHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IHHH <<  1)) <=  4096)) {
+                      next__EHHH=(void *)((unsigned long)result__GHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IHHH)));
                     } else {
-                      next__X4GH=new_lab__MRJ(lab_type__04GH);
+                      next__EHHH=new_lab__MRJ(lab_type__HHHH);
                     };
-                    ((__POINTER *)next__X4GH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__Y4GH)[ 0]=next__X4GH;
+                    ((__POINTER *)next__EHHH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__FHHH)[ 0]=next__EHHH;
                   } else {
-                    ((__POINTER *)result__Z4GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X4GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__Z4GH=next__X4GH;
+                    ((__POINTER *)result__GHHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EHHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__GHHH=next__EHHH;
                   };
                 };
-                ptr__YFID=result__Z4GH;
+                ptr__YFID=result__GHHH;
               };
               result__XFID=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__YFID);
               *(result__XFID) = *(HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
             };
             Self__JETD=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__XFID);
-            Self__JETD->item__HSEC=result__A4GH;
+            Self__JETD->item__HSEC=result__NGHH;
             Self__JETD->key__UREC=t__0XC;
             Self__JETD->next__5REC=__tmp__G2FC;
             node__Y0FC=result__XFID;
             ((void **)Self__N0FC->buckets__IREC)[idx__X0FC]=result__XFID;
             Self__N0FC->count__Z1FC=(__INTEGER)(Self__N0FC->count__Z1FC +  1);
           } else {
-            ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__Y0FC)->item__HSEC=result__A4GH;
+            ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__Y0FC)->item__HSEC=result__NGHH;
           };
         };
         last_section__X0C=result__0WOB;
@@ -14848,142 +15013,142 @@ static void go_on__CBC(void *obj__EBC)
           };
           arg__5BZB=read_loc_arg__with_self__IEHB(PARSER__,FALSE__,TRUE__);
           if (((void *)arg__5BZB == (void *)NULL)) {
-            result__24GH=FALSE__;
+            result__JHHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__24GH=FALSE__;
+              result__JHHH=FALSE__;
             } else {
-              result__34GH='\0';
+              result__KHHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__34GH=((__CHARACTER )(( 0)));
+                result__KHHH=((__CHARACTER )(( 0)));
               } else {
-                result__34GH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__KHHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__34GH == '\'')) {
+              if ((result__KHHH == '\'')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__24GH=TRUE__;
+                result__JHHH=TRUE__;
               };
             };
-            if (result__24GH) {
+            if (result__JHHH) {
               result__ACZB=read_slot_operator__FU5B(result__QU1B);
             } else {
-              p__I5GH=current_position__JXF();
-              result__54GH=NULL;
-              ptr__A5GH=((__POINTER )(NULL));
-              typ_id__B5GH= 0;
-              sz__C5GH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-              if ((sz__C5GH ==  0)) {
-                result__54GH=ITM_ARG__;
+              p__VHHH=current_position__JXF();
+              result__MHHH=NULL;
+              ptr__NHHH=((__POINTER )(NULL));
+              typ_id__OHHH= 0;
+              sz__PHHH=((__UINTEGER_32 )sizeof(__ITM_ARG));
+              if ((sz__PHHH ==  0)) {
+                result__MHHH=ITM_ARG__;
               } else {
-                typ_id__B5GH=-1;
-                clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__C5GH);
-                if ((typ_id__B5GH == (__INTEGER)(-  1))) {
-                  a__D5GH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__E5GH=(__UINTEGER_32)((__UINTEGER_32)(sz__C5GH + a__D5GH) & (__UINTEGER_32)(~ a__D5GH));
-                  ptr_table__M5GH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__E5GH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                  next__L5GH=((__POINTER )(NULL));
-                  result__N5GH=((__POINTER *)ptr_table__M5GH)[ 0];
-                  if ((result__N5GH == (void *)NULL)) {
-                    result__N5GH=new_lab__MRJ(new_size__E5GH);
-                    next__L5GH=(void *)((unsigned long)result__N5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E5GH)));
-                    ((__POINTER *)next__L5GH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__M5GH)[ 0]=next__L5GH;
+                typ_id__OHHH=-1;
+                clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__PHHH);
+                if ((typ_id__OHHH == (__INTEGER)(-  1))) {
+                  a__QHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                  new_size__RHHH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHHH + a__QHHH) & (__UINTEGER_32)(~ a__QHHH));
+                  ptr_table__ZHHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RHHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                  next__YHHH=((__POINTER )(NULL));
+                  result__0HHH=((__POINTER *)ptr_table__ZHHH)[ 0];
+                  if ((result__0HHH == (void *)NULL)) {
+                    result__0HHH=new_lab__MRJ(new_size__RHHH);
+                    next__YHHH=(void *)((unsigned long)result__0HHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RHHH)));
+                    ((__POINTER *)next__YHHH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__ZHHH)[ 0]=next__YHHH;
                   } else {
-                    next__L5GH=((__POINTER *)result__N5GH)[ 0];
-                    if ((next__L5GH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N5GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__E5GH <<  1)) <=  4096)) {
-                        next__L5GH=(void *)((unsigned long)result__N5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E5GH)));
+                    next__YHHH=((__POINTER *)result__0HHH)[ 0];
+                    if ((next__YHHH == (void *)NULL)) {
+                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0HHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RHHH <<  1)) <=  4096)) {
+                        next__YHHH=(void *)((unsigned long)result__0HHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RHHH)));
                       } else {
-                        next__L5GH=new_lab__MRJ(new_size__E5GH);
+                        next__YHHH=new_lab__MRJ(new_size__RHHH);
                       };
-                      ((__POINTER *)next__L5GH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__M5GH)[ 0]=next__L5GH;
+                      ((__POINTER *)next__YHHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__ZHHH)[ 0]=next__YHHH;
                     } else {
-                      ((__POINTER *)result__N5GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L5GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__N5GH=next__L5GH;
+                      ((__POINTER *)result__0HHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YHHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                      result__0HHH=next__YHHH;
                     };
                   };
-                  ptr__A5GH=result__N5GH;
+                  ptr__NHHH=result__0HHH;
                 } else {
-                  t__F5GH=((__UINTEGER_32 )typ_id__B5GH);
-                  a__G5GH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__U5GH=(__UINTEGER_32)((__UINTEGER_32)(sz__C5GH + a__G5GH) & (__UINTEGER_32)(~ a__G5GH));
-                  ptr_table__R5GH=((__POINTER )(&(table_type[(t__F5GH)])));
-                  lab_type__T5GH=(__UINTEGER_32)(t__F5GH |  1);
-                  next__Q5GH=((__POINTER )(NULL));
-                  result__S5GH=((__POINTER *)ptr_table__R5GH)[ 0];
-                  if ((result__S5GH == (void *)NULL)) {
-                    result__S5GH=new_lab__MRJ(lab_type__T5GH);
-                    next__Q5GH=(void *)((unsigned long)result__S5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U5GH)));
-                    ((__POINTER *)next__Q5GH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__R5GH)[ 0]=next__Q5GH;
+                  t__SHHH=((__UINTEGER_32 )typ_id__OHHH);
+                  a__THHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                  new_size__BIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHHH + a__THHH) & (__UINTEGER_32)(~ a__THHH));
+                  ptr_table__4HHH=((__POINTER )(&(table_type[(t__SHHH)])));
+                  lab_type__AIHH=(__UINTEGER_32)(t__SHHH |  1);
+                  next__3HHH=((__POINTER )(NULL));
+                  result__5HHH=((__POINTER *)ptr_table__4HHH)[ 0];
+                  if ((result__5HHH == (void *)NULL)) {
+                    result__5HHH=new_lab__MRJ(lab_type__AIHH);
+                    next__3HHH=(void *)((unsigned long)result__5HHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BIHH)));
+                    ((__POINTER *)next__3HHH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__4HHH)[ 0]=next__3HHH;
                   } else {
-                    next__Q5GH=((__POINTER *)result__S5GH)[ 0];
-                    if ((next__Q5GH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S5GH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__U5GH <<  1)) <=  4096)) {
-                        next__Q5GH=(void *)((unsigned long)result__S5GH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U5GH)));
+                    next__3HHH=((__POINTER *)result__5HHH)[ 0];
+                    if ((next__3HHH == (void *)NULL)) {
+                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5HHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BIHH <<  1)) <=  4096)) {
+                        next__3HHH=(void *)((unsigned long)result__5HHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BIHH)));
                       } else {
-                        next__Q5GH=new_lab__MRJ(lab_type__T5GH);
+                        next__3HHH=new_lab__MRJ(lab_type__AIHH);
                       };
-                      ((__POINTER *)next__Q5GH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__R5GH)[ 0]=next__Q5GH;
+                      ((__POINTER *)next__3HHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__4HHH)[ 0]=next__3HHH;
                     } else {
-                      ((__POINTER *)result__S5GH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q5GH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__S5GH=next__Q5GH;
+                      ((__POINTER *)result__5HHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3HHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                      result__5HHH=next__3HHH;
                     };
                   };
-                  ptr__A5GH=result__S5GH;
+                  ptr__NHHH=result__5HHH;
                 };
-                result__54GH=((__ITM_ARG *)ptr__A5GH);
-                *(result__54GH) = *(ITM_ARG__);
+                result__MHHH=((__ITM_ARG *)ptr__NHHH);
+                *(result__MHHH) = *(ITM_ARG__);
               };
-              Self__H5GH=((__ITM_ARG *)result__54GH);
-              Self__H5GH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=p__I5GH;
-              Self__H5GH->name__10HC=(&__string_58);
-              Self__H5GH->type__20HC=type_self__HUN;
-              arg__5BZB=result__54GH;
-              add_last__05GC(result__QU1B,result__54GH);
+              Self__UHHH=((__ITM_ARG *)result__MHHH);
+              Self__UHHH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=p__VHHH;
+              Self__UHHH->name__10HC=(&__string_58);
+              Self__UHHH->type__20HC=type_self__HUN;
+              arg__5BZB=result__MHHH;
+              add_last__05GC(result__QU1B,result__MHHH);
               result__ACZB=read_slot_keyword__SZ5B(result__QU1B);
             };
           } else {
             add_last__05GC(result__QU1B,arg__5BZB);
-            result__V5GH=FALSE__;
+            result__CIHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__V5GH=FALSE__;
+              result__CIHH=FALSE__;
             } else {
-              result__W5GH='\0';
+              result__DIHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__W5GH=((__CHARACTER )(( 0)));
+                result__DIHH=((__CHARACTER )(( 0)));
               } else {
-                result__W5GH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__DIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__W5GH == '.')) {
+              if ((result__DIHH == '.')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__V5GH=TRUE__;
+                result__CIHH=TRUE__;
               };
             };
-            if (result__V5GH) {
+            if (result__CIHH) {
               result__ACZB=read_slot_keyword__SZ5B(result__QU1B);
               __tmp__QDZB=TRUE__;
             } else {
               __tmp__QDZB=FALSE__;
             };
             if ((! __tmp__QDZB)) {
-              result__Y5GH=FALSE__;
+              result__FIHH=FALSE__;
               if ((! read_space__3RD())) {
-                result__Y5GH=FALSE__;
+                result__FIHH=FALSE__;
               } else {
-                result__Z5GH='\0';
+                result__GIHH='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__Z5GH=((__CHARACTER )(( 0)));
+                  result__GIHH=((__CHARACTER )(( 0)));
                 } else {
-                  result__Z5GH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__GIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                if ((result__Z5GH == '\'')) {
+                if ((result__GIHH == '\'')) {
                   position__SBC=(__INTEGER)(position__SBC +  1);
-                  result__Y5GH=TRUE__;
+                  result__FIHH=TRUE__;
                 };
               };
-              if (result__Y5GH) {
+              if (result__FIHH) {
                 result__ACZB=read_slot_operator__FU5B(result__QU1B);
               };
             };
@@ -15029,10 +15194,10 @@ static void go_on__CBC(void *obj__EBC)
                 __tmp__3VHC=Self__XUHC->parent_arrayed_collection__VU1B.capacity__YKHC;
                 new__WITD=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__2VHC)),((__UINTEGER_32 )(__INTEGER)(__tmp__3VHC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__ZUHC * ((__INTEGER )(sizeof(void *)))))));
                 __tmp__KJTD=(__INTEGER)(new_capacity__ZUHC -  1);
-                Self__YPXE=__tmp__3VHC;
-                while ((Self__YPXE <= __tmp__KJTD)) {
-                  new__WITD[Self__YPXE]=NULL;
-                  Self__YPXE=(__INTEGER)(Self__YPXE +  1);
+                Self__QUXE=__tmp__3VHC;
+                while ((Self__QUXE <= __tmp__KJTD)) {
+                  new__WITD[Self__QUXE]=NULL;
+                  Self__QUXE=(__INTEGER)(Self__QUXE +  1);
                 };
                 Self__XUHC->parent_arrayed_collection__VU1B.storage__DLHC=new__WITD;
                 Self__XUHC->parent_arrayed_collection__VU1B.capacity__YKHC=new_capacity__ZUHC;
@@ -15051,36 +15216,36 @@ static void go_on__CBC(void *obj__EBC)
                 if (((struct ___OBJ *)__tmp__REHC)->__id==__ITM_ARG__) {
                   __tmp__SEHC= 1;
                 } else {
-                  __tmp__SEHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__REHC)->name__N1OF)->parent_arrayed_collection__H5I.upper__15OD +  1);
+                  __tmp__SEHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__REHC)->name__LBPF)->parent_arrayed_collection__H5I.upper__15OD +  1);
                 };
                 __tmp__WEHC=(__tmp__SEHC >  1);
               };
               if (__tmp__WEHC) {
                 if (((void *)((__SECTION_ *)Self__IEHC->parent_itm_slot__OU5B.id_section__Y1C)->name__CZDC == (void *)(&__string_25))) {
-                  Self__SZDH=((__FAST_ARRAYoITM_ARGUMENTo *)result__SU4B);
-                  __tmp__DFHC=((void **)Self__SZDH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__SZDH->parent_arrayed_collection__FCZB.upper__45GC];
+                  Self__WCEH=((__FAST_ARRAYoITM_ARGUMENTo *)result__SU4B);
+                  __tmp__DFHC=((void **)Self__WCEH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__WCEH->parent_arrayed_collection__FCZB.upper__45GC];
                   if (((struct ___OBJ *)__tmp__DFHC)->__id==__ITM_ARG__) {
                     __tmp__EFHC=((__ITM_ARG *)__tmp__DFHC)->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ;
                   } else {
-                    __tmp__EFHC=((__ITM_ARGS *)__tmp__DFHC)->parent_itm_argument__B5EE.parent_itm_code__S4M.position__NDJ;
+                    __tmp__EFHC=((__ITM_ARGS *)__tmp__DFHC)->parent_itm_argument__DDFE.parent_itm_code__S4M.position__NDJ;
                   };
-                  put_error__text__KNG( 1,(&__string_231));
+                  put_error__text__KNG( 1,(&__string_234));
                   put_position__UOG(__tmp__EFHC);
                   put_string__U1F(msg_err__PNG);
                   if ((type_error__ONG !=  2)) {
                     exit(( 1));
                   };
                 };
-                Self__0E2G=((__SECTION_ *)Self__IEHC->parent_itm_slot__OU5B.id_section__Y1C);
-                if ((((void *)Self__0E2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__0E2G->name__CZDC == (void *)(&__string_24)))) {
-                  Self__1ZDH=((__FAST_ARRAYoITM_ARGUMENTo *)result__SU4B);
-                  __tmp__QFHC=((void **)Self__1ZDH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__1ZDH->parent_arrayed_collection__FCZB.upper__45GC];
+                Self__QO2G=((__SECTION_ *)Self__IEHC->parent_itm_slot__OU5B.id_section__Y1C);
+                if ((((void *)Self__QO2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__QO2G->name__CZDC == (void *)(&__string_24)))) {
+                  Self__5CEH=((__FAST_ARRAYoITM_ARGUMENTo *)result__SU4B);
+                  __tmp__QFHC=((void **)Self__5CEH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__5CEH->parent_arrayed_collection__FCZB.upper__45GC];
                   if (((struct ___OBJ *)__tmp__QFHC)->__id==__ITM_ARG__) {
                     __tmp__RFHC=((__ITM_ARG *)__tmp__QFHC)->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ;
                   } else {
-                    __tmp__RFHC=((__ITM_ARGS *)__tmp__QFHC)->parent_itm_argument__B5EE.parent_itm_code__S4M.position__NDJ;
+                    __tmp__RFHC=((__ITM_ARGS *)__tmp__QFHC)->parent_itm_argument__DDFE.parent_itm_code__S4M.position__NDJ;
                   };
-                  put_error__text__KNG( 1,(&__string_232));
+                  put_error__text__KNG( 1,(&__string_235));
                   put_position__UOG(__tmp__RFHC);
                   put_string__U1F(msg_err__PNG);
                   if ((type_error__ONG !=  2)) {
@@ -15093,9 +15258,9 @@ static void go_on__CBC(void *obj__EBC)
           };
           last_slot__Q2D=result__ACZB;
           if (((void *)result__ACZB == (void *)NULL)) {
-            pos__ALUG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_233));
-            put_position__UOG(pos__ALUG);
+            pos__JUUG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_236));
+            put_position__UOG(pos__JUUG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -15112,71 +15277,71 @@ static void go_on__CBC(void *obj__EBC)
             affect__RXOB=' ';
           };
           if ((affect__RXOB == ' ')) {
-            result__35GH=FALSE__;
+            result__KIHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__35GH=FALSE__;
+              result__KIHH=FALSE__;
             } else {
-              result__45GH='\0';
+              result__LIHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__45GH=((__CHARACTER )(( 0)));
+                result__LIHH=((__CHARACTER )(( 0)));
               } else {
-                result__45GH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__LIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__45GH == ':')) {
+              if ((result__LIHH == ':')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__35GH=TRUE__;
+                result__KIHH=TRUE__;
               };
             };
-            __tmp__HZOB=result__35GH;
+            __tmp__HZOB=result__KIHH;
           } else {
             __tmp__HZOB=FALSE__;
           };
           if (__tmp__HZOB) {
-            result__AAHH=FALSE__;
+            result__NIHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__AAHH=FALSE__;
+              result__NIHH=FALSE__;
             } else {
-              result__BAHH='\0';
+              result__OIHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__BAHH=((__CHARACTER )(( 0)));
+                result__OIHH=((__CHARACTER )(( 0)));
               } else {
-                result__BAHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__OIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__BAHH == '(')) {
+              if ((result__OIHH == '(')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__AAHH=TRUE__;
+                result__NIHH=TRUE__;
               };
             };
-            if (result__AAHH) {
+            if (result__NIHH) {
               lt__PXOB=read_type_list__IMO(PARSER__,FALSE__);
               if (((void *)lt__PXOB == (void *)NULL)) {
-                pos__CLUG=current_position__JXF();
-                put_error__text__KNG( 0,(&__string_234));
-                put_position__UOG(pos__CLUG);
+                pos__LUUG=current_position__JXF();
+                put_error__text__KNG( 0,(&__string_237));
+                put_position__UOG(pos__LUUG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
                 };
               };
-              result__DAHH=FALSE__;
+              result__QIHH=FALSE__;
               if ((! read_space__3RD())) {
-                result__DAHH=FALSE__;
+                result__QIHH=FALSE__;
               } else {
-                result__EAHH='\0';
+                result__RIHH='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__EAHH=((__CHARACTER )(( 0)));
+                  result__RIHH=((__CHARACTER )(( 0)));
                 } else {
-                  result__EAHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__RIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                if ((result__EAHH == ')')) {
+                if ((result__RIHH == ')')) {
                   position__SBC=(__INTEGER)(position__SBC +  1);
-                  result__DAHH=TRUE__;
+                  result__QIHH=TRUE__;
                 };
               };
-              if ((! result__DAHH)) {
-                pos__ELUG=current_position__JXF();
-                put_error__text__KNG( 2,(&__string_235));
-                put_position__UOG(pos__ELUG);
+              if ((! result__QIHH)) {
+                pos__NUUG=current_position__JXF();
+                put_error__text__KNG( 2,(&__string_238));
+                put_position__UOG(pos__NUUG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -15186,9 +15351,9 @@ static void go_on__CBC(void *obj__EBC)
             } else {
               t__OXOB=read_type__DCM(PARSER__,FALSE__);
               if (((void *)t__OXOB == (void *)NULL)) {
-                pos__GLUG=current_position__JXF();
-                put_error__text__KNG( 0,(&__string_234));
-                put_position__UOG(pos__GLUG);
+                pos__PUUG=current_position__JXF();
+                put_error__text__KNG( 0,(&__string_237));
+                put_position__UOG(pos__PUUG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -15207,8 +15372,8 @@ static void go_on__CBC(void *obj__EBC)
           } else {
             Self__24FC=((__ITM_SLOT_OPERATOR *)__tmp__L1OB);
             tm__44FC=NULL;
-            Self__1E2G=((__SECTION_ *)Self__24FC->parent_itm_slot__OU5B.id_section__Y1C);
-            if ((((void *)Self__1E2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__1E2G->name__CZDC == (void *)(&__string_24)))) {
+            Self__RO2G=((__SECTION_ *)Self__24FC->parent_itm_slot__OU5B.id_section__Y1C);
+            if ((((void *)Self__RO2G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__RO2G->name__CZDC == (void *)(&__string_24)))) {
               if (t__OXOB==NULL) {
                 __tmp__H5FC=NULL;
               } else {
@@ -15236,7 +15401,7 @@ static void go_on__CBC(void *obj__EBC)
               tm__44FC=__tmp__H5FC;
               if (((((void *)__tmp__H5FC == (void *)NULL) || ((void *)__tmp__H5FC == (void *)type_self__HUN)) || ((void *)__tmp__H5FC == (void *)type_void__4VF))) {
                 pos__RZID=Self__24FC->parent_itm_slot__OU5B.parent_named__P5.parent_itm_object__4.position__NDJ;
-                put_error__text__KNG( 1,(&__string_236));
+                put_error__text__KNG( 1,(&__string_239));
                 put_position__UOG(pos__RZID);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
@@ -15261,9 +15426,9 @@ static void go_on__CBC(void *obj__EBC)
             };
             expr__EJ3B=read_expr__44I(PARSER__);
             if (((void *)expr__EJ3B == (void *)NULL)) {
-              pos__KLUG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_237));
-              put_position__UOG(pos__KLUG);
+              pos__TUUG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_240));
+              put_position__UOG(pos__TUUG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -15276,7 +15441,7 @@ static void go_on__CBC(void *obj__EBC)
             } else {
               Self__TGHC=((__ITM_SLOT_OPERATOR *)__tmp__RJ3B);
               if ((Self__TGHC->parent_itm_slot__OU5B.affect__JAGC != '<')) {
-                copy__ZCS(string_tmp__VH,(&__string_238));
+                copy__ZCS(string_tmp__VH,(&__string_241));
                 append__BOS(string_tmp__VH,Self__TGHC->parent_itm_slot__OU5B.parent_named__P5.name__LI);
                 n__0DBD=get__IWB(string_tmp__VH);
                 sec__1DBD=get_name__0UOB((&__string_27));
@@ -15349,80 +15514,80 @@ static void go_on__CBC(void *obj__EBC)
                   __tmp__HEBD=position__FJHC(expr__EJ3B);
                 } break;
                 };
-                result__GAHH=NULL;
-                ptr__HAHH=((__POINTER )(NULL));
-                typ_id__IAHH= 0;
-                sz__JAHH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-                if ((sz__JAHH ==  0)) {
-                  result__GAHH=ITM_ARG__;
+                result__TIHH=NULL;
+                ptr__UIHH=((__POINTER )(NULL));
+                typ_id__VIHH= 0;
+                sz__WIHH=((__UINTEGER_32 )sizeof(__ITM_ARG));
+                if ((sz__WIHH ==  0)) {
+                  result__TIHH=ITM_ARG__;
                 } else {
-                  typ_id__IAHH=-1;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__JAHH);
-                  if ((typ_id__IAHH == (__INTEGER)(-  1))) {
-                    a__KAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__LAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JAHH + a__KAHH) & (__UINTEGER_32)(~ a__KAHH));
-                    ptr_table__TAHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LAHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__SAHH=((__POINTER )(NULL));
-                    result__UAHH=((__POINTER *)ptr_table__TAHH)[ 0];
-                    if ((result__UAHH == (void *)NULL)) {
-                      result__UAHH=new_lab__MRJ(new_size__LAHH);
-                      next__SAHH=(void *)((unsigned long)result__UAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LAHH)));
-                      ((__POINTER *)next__SAHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__TAHH)[ 0]=next__SAHH;
+                  typ_id__VIHH=-1;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__WIHH);
+                  if ((typ_id__VIHH == (__INTEGER)(-  1))) {
+                    a__XIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__YIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__WIHH + a__XIHH) & (__UINTEGER_32)(~ a__XIHH));
+                    ptr_table__AJHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__5IHH=((__POINTER )(NULL));
+                    result__BJHH=((__POINTER *)ptr_table__AJHH)[ 0];
+                    if ((result__BJHH == (void *)NULL)) {
+                      result__BJHH=new_lab__MRJ(new_size__YIHH);
+                      next__5IHH=(void *)((unsigned long)result__BJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIHH)));
+                      ((__POINTER *)next__5IHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__AJHH)[ 0]=next__5IHH;
                     } else {
-                      next__SAHH=((__POINTER *)result__UAHH)[ 0];
-                      if ((next__SAHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UAHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LAHH <<  1)) <=  4096)) {
-                          next__SAHH=(void *)((unsigned long)result__UAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LAHH)));
+                      next__5IHH=((__POINTER *)result__BJHH)[ 0];
+                      if ((next__5IHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YIHH <<  1)) <=  4096)) {
+                          next__5IHH=(void *)((unsigned long)result__BJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIHH)));
                         } else {
-                          next__SAHH=new_lab__MRJ(new_size__LAHH);
+                          next__5IHH=new_lab__MRJ(new_size__YIHH);
                         };
-                        ((__POINTER *)next__SAHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__TAHH)[ 0]=next__SAHH;
+                        ((__POINTER *)next__5IHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__AJHH)[ 0]=next__5IHH;
                       } else {
-                        ((__POINTER *)result__UAHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SAHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__UAHH=next__SAHH;
+                        ((__POINTER *)result__BJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5IHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__BJHH=next__5IHH;
                       };
                     };
-                    ptr__HAHH=result__UAHH;
+                    ptr__UIHH=result__BJHH;
                   } else {
-                    t__MAHH=((__UINTEGER_32 )typ_id__IAHH);
-                    a__NAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__1AHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JAHH + a__NAHH) & (__UINTEGER_32)(~ a__NAHH));
-                    ptr_table__YAHH=((__POINTER )(&(table_type[(t__MAHH)])));
-                    lab_type__0AHH=(__UINTEGER_32)(t__MAHH |  1);
-                    next__XAHH=((__POINTER )(NULL));
-                    result__ZAHH=((__POINTER *)ptr_table__YAHH)[ 0];
-                    if ((result__ZAHH == (void *)NULL)) {
-                      result__ZAHH=new_lab__MRJ(lab_type__0AHH);
-                      next__XAHH=(void *)((unsigned long)result__ZAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1AHH)));
-                      ((__POINTER *)next__XAHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__YAHH)[ 0]=next__XAHH;
+                    t__ZIHH=((__UINTEGER_32 )typ_id__VIHH);
+                    a__0IHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__IJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__WIHH + a__0IHH) & (__UINTEGER_32)(~ a__0IHH));
+                    ptr_table__FJHH=((__POINTER )(&(table_type[(t__ZIHH)])));
+                    lab_type__HJHH=(__UINTEGER_32)(t__ZIHH |  1);
+                    next__EJHH=((__POINTER )(NULL));
+                    result__GJHH=((__POINTER *)ptr_table__FJHH)[ 0];
+                    if ((result__GJHH == (void *)NULL)) {
+                      result__GJHH=new_lab__MRJ(lab_type__HJHH);
+                      next__EJHH=(void *)((unsigned long)result__GJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IJHH)));
+                      ((__POINTER *)next__EJHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__FJHH)[ 0]=next__EJHH;
                     } else {
-                      next__XAHH=((__POINTER *)result__ZAHH)[ 0];
-                      if ((next__XAHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZAHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1AHH <<  1)) <=  4096)) {
-                          next__XAHH=(void *)((unsigned long)result__ZAHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1AHH)));
+                      next__EJHH=((__POINTER *)result__GJHH)[ 0];
+                      if ((next__EJHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IJHH <<  1)) <=  4096)) {
+                          next__EJHH=(void *)((unsigned long)result__GJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IJHH)));
                         } else {
-                          next__XAHH=new_lab__MRJ(lab_type__0AHH);
+                          next__EJHH=new_lab__MRJ(lab_type__HJHH);
                         };
-                        ((__POINTER *)next__XAHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__YAHH)[ 0]=next__XAHH;
+                        ((__POINTER *)next__EJHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__FJHH)[ 0]=next__EJHH;
                       } else {
-                        ((__POINTER *)result__ZAHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XAHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__ZAHH=next__XAHH;
+                        ((__POINTER *)result__GJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EJHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__GJHH=next__EJHH;
                       };
                     };
-                    ptr__HAHH=result__ZAHH;
+                    ptr__UIHH=result__GJHH;
                   };
-                  result__GAHH=((__ITM_ARG *)ptr__HAHH);
-                  *(result__GAHH) = *(ITM_ARG__);
+                  result__TIHH=((__ITM_ARG *)ptr__UIHH);
+                  *(result__TIHH) = *(ITM_ARG__);
                 };
-                Self__OAHH=((__ITM_ARG *)result__GAHH);
-                Self__OAHH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=__tmp__HEBD;
-                Self__OAHH->name__10HC=(&__string_58);
-                Self__OAHH->type__20HC=type_self__HUN;
-                add_last__05GC(larg__2DBD,result__GAHH);
+                Self__1IHH=((__ITM_ARG *)result__TIHH);
+                Self__1IHH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=__tmp__HEBD;
+                Self__1IHH->name__10HC=(&__string_58);
+                Self__1IHH->type__20HC=type_self__HUN;
+                add_last__05GC(larg__2DBD,result__TIHH);
                 switch (((struct ___OBJ *)expr__EJ3B)->__id) {
                 case __ITM_LIST__: {
                   __tmp__PEBD=((__ITM_LIST *)expr__EJ3B)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ;
@@ -15491,84 +15656,84 @@ static void go_on__CBC(void *obj__EBC)
                   __tmp__PEBD=position__FJHC(expr__EJ3B);
                 } break;
                 };
-                result__2AHH=NULL;
-                ptr__3AHH=((__POINTER )(NULL));
-                typ_id__4AHH= 0;
-                sz__5AHH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
-                if ((sz__5AHH ==  0)) {
-                  result__2AHH=ITM_SLOT__;
+                result__JJHH=NULL;
+                ptr__KJHH=((__POINTER )(NULL));
+                typ_id__LJHH= 0;
+                sz__MJHH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
+                if ((sz__MJHH ==  0)) {
+                  result__JJHH=ITM_SLOT__;
                 } else {
-                  typ_id__4AHH=-1;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__5AHH);
-                  if ((typ_id__4AHH == (__INTEGER)(-  1))) {
-                    a__ABHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__BBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__5AHH + a__ABHH) & (__UINTEGER_32)(~ a__ABHH));
-                    ptr_table__JBHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BBHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__IBHH=((__POINTER )(NULL));
-                    result__KBHH=((__POINTER *)ptr_table__JBHH)[ 0];
-                    if ((result__KBHH == (void *)NULL)) {
-                      result__KBHH=new_lab__MRJ(new_size__BBHH);
-                      next__IBHH=(void *)((unsigned long)result__KBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BBHH)));
-                      ((__POINTER *)next__IBHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__JBHH)[ 0]=next__IBHH;
+                  typ_id__LJHH=-1;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__MJHH);
+                  if ((typ_id__LJHH == (__INTEGER)(-  1))) {
+                    a__NJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__OJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__MJHH + a__NJHH) & (__UINTEGER_32)(~ a__NJHH));
+                    ptr_table__WJHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__VJHH=((__POINTER )(NULL));
+                    result__XJHH=((__POINTER *)ptr_table__WJHH)[ 0];
+                    if ((result__XJHH == (void *)NULL)) {
+                      result__XJHH=new_lab__MRJ(new_size__OJHH);
+                      next__VJHH=(void *)((unsigned long)result__XJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OJHH)));
+                      ((__POINTER *)next__VJHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__WJHH)[ 0]=next__VJHH;
                     } else {
-                      next__IBHH=((__POINTER *)result__KBHH)[ 0];
-                      if ((next__IBHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KBHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BBHH <<  1)) <=  4096)) {
-                          next__IBHH=(void *)((unsigned long)result__KBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BBHH)));
+                      next__VJHH=((__POINTER *)result__XJHH)[ 0];
+                      if ((next__VJHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OJHH <<  1)) <=  4096)) {
+                          next__VJHH=(void *)((unsigned long)result__XJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OJHH)));
                         } else {
-                          next__IBHH=new_lab__MRJ(new_size__BBHH);
+                          next__VJHH=new_lab__MRJ(new_size__OJHH);
                         };
-                        ((__POINTER *)next__IBHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__JBHH)[ 0]=next__IBHH;
+                        ((__POINTER *)next__VJHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__WJHH)[ 0]=next__VJHH;
                       } else {
-                        ((__POINTER *)result__KBHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IBHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__KBHH=next__IBHH;
+                        ((__POINTER *)result__XJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VJHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__XJHH=next__VJHH;
                       };
                     };
-                    ptr__3AHH=result__KBHH;
+                    ptr__KJHH=result__XJHH;
                   } else {
-                    t__CBHH=((__UINTEGER_32 )typ_id__4AHH);
-                    a__DBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__RBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__5AHH + a__DBHH) & (__UINTEGER_32)(~ a__DBHH));
-                    ptr_table__OBHH=((__POINTER )(&(table_type[(t__CBHH)])));
-                    lab_type__QBHH=(__UINTEGER_32)(t__CBHH |  1);
-                    next__NBHH=((__POINTER )(NULL));
-                    result__PBHH=((__POINTER *)ptr_table__OBHH)[ 0];
-                    if ((result__PBHH == (void *)NULL)) {
-                      result__PBHH=new_lab__MRJ(lab_type__QBHH);
-                      next__NBHH=(void *)((unsigned long)result__PBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RBHH)));
-                      ((__POINTER *)next__NBHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__OBHH)[ 0]=next__NBHH;
+                    t__PJHH=((__UINTEGER_32 )typ_id__LJHH);
+                    a__QJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__4JHH=(__UINTEGER_32)((__UINTEGER_32)(sz__MJHH + a__QJHH) & (__UINTEGER_32)(~ a__QJHH));
+                    ptr_table__1JHH=((__POINTER )(&(table_type[(t__PJHH)])));
+                    lab_type__3JHH=(__UINTEGER_32)(t__PJHH |  1);
+                    next__0JHH=((__POINTER )(NULL));
+                    result__2JHH=((__POINTER *)ptr_table__1JHH)[ 0];
+                    if ((result__2JHH == (void *)NULL)) {
+                      result__2JHH=new_lab__MRJ(lab_type__3JHH);
+                      next__0JHH=(void *)((unsigned long)result__2JHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4JHH)));
+                      ((__POINTER *)next__0JHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__1JHH)[ 0]=next__0JHH;
                     } else {
-                      next__NBHH=((__POINTER *)result__PBHH)[ 0];
-                      if ((next__NBHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PBHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RBHH <<  1)) <=  4096)) {
-                          next__NBHH=(void *)((unsigned long)result__PBHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RBHH)));
+                      next__0JHH=((__POINTER *)result__2JHH)[ 0];
+                      if ((next__0JHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2JHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4JHH <<  1)) <=  4096)) {
+                          next__0JHH=(void *)((unsigned long)result__2JHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4JHH)));
                         } else {
-                          next__NBHH=new_lab__MRJ(lab_type__QBHH);
+                          next__0JHH=new_lab__MRJ(lab_type__3JHH);
                         };
-                        ((__POINTER *)next__NBHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__OBHH)[ 0]=next__NBHH;
+                        ((__POINTER *)next__0JHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__1JHH)[ 0]=next__0JHH;
                       } else {
-                        ((__POINTER *)result__PBHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NBHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__PBHH=next__NBHH;
+                        ((__POINTER *)result__2JHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0JHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__2JHH=next__0JHH;
                       };
                     };
-                    ptr__3AHH=result__PBHH;
+                    ptr__KJHH=result__2JHH;
                   };
-                  result__2AHH=((__ITM_SLOT *)ptr__3AHH);
-                  *(result__2AHH) = *(ITM_SLOT__);
+                  result__JJHH=((__ITM_SLOT *)ptr__KJHH);
+                  *(result__JJHH) = *(ITM_SLOT__);
                 };
-                Self__EBHH=((__ITM_SLOT *)result__2AHH);
-                Self__EBHH->parent_named__P5.name__LI=n__0DBD;
-                Self__EBHH->parent_named__P5.parent_itm_object__4.position__NDJ=__tmp__PEBD;
-                Self__EBHH->id_section__Y1C=sec__1DBD;
-                ((__ITM_SLOT *)result__2AHH)->affect__JAGC='<';
-                set_value__type__ZFHC(result__2AHH,expr__EJ3B,__tmp__SJ3B);
-                set_argument_list__VCHC(result__2AHH,larg__2DBD);
-                set_result_type__Q3FC(result__2AHH,Self__TGHC->parent_itm_slot__OU5B.result_type__04FC);
-                fast_put__to__BOGC(((__PROTOTYPE *)__tmp__SJ3B)->slot_list__2US,result__2AHH,result__2AHH->parent_named__P5.name__LI);
+                Self__RJHH=((__ITM_SLOT *)result__JJHH);
+                Self__RJHH->parent_named__P5.name__LI=n__0DBD;
+                Self__RJHH->parent_named__P5.parent_itm_object__4.position__NDJ=__tmp__PEBD;
+                Self__RJHH->id_section__Y1C=sec__1DBD;
+                ((__ITM_SLOT *)result__JJHH)->affect__JAGC='<';
+                set_value__type__ZFHC(result__JJHH,expr__EJ3B,__tmp__SJ3B);
+                set_argument_list__VCHC(result__JJHH,larg__2DBD);
+                set_result_type__Q3FC(result__JJHH,Self__TGHC->parent_itm_slot__OU5B.result_type__04FC);
+                fast_put__to__BOGC(((__PROTOTYPE *)__tmp__SJ3B)->slot_list__2US,result__JJHH,result__JJHH->parent_named__P5.name__LI);
                 switch (((struct ___OBJ *)expr__EJ3B)->__id) {
                 case __ITM_LIST__: {
                   __tmp__DFBD=((__ITM_LIST *)expr__EJ3B)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ;
@@ -15638,76 +15803,76 @@ static void go_on__CBC(void *obj__EBC)
                 } break;
                 };
                 get__DTI(((__PROTOTYPE *)__tmp__SJ3B)->parent_named__5.name__LI);
-                result__SBHH=NULL;
-                ptr__TBHH=((__POINTER )(NULL));
-                typ_id__UBHH= 0;
-                sz__VBHH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-                if ((sz__VBHH ==  0)) {
-                  result__SBHH=ITM_PROTOTYPE__;
+                result__5JHH=NULL;
+                ptr__AKHH=((__POINTER )(NULL));
+                typ_id__BKHH= 0;
+                sz__CKHH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
+                if ((sz__CKHH ==  0)) {
+                  result__5JHH=ITM_PROTOTYPE__;
                 } else {
-                  typ_id__UBHH=-1;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__VBHH);
-                  if ((typ_id__UBHH == (__INTEGER)(-  1))) {
-                    a__WBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__XBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VBHH + a__WBHH) & (__UINTEGER_32)(~ a__WBHH));
-                    ptr_table__2BHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XBHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__1BHH=((__POINTER )(NULL));
-                    result__3BHH=((__POINTER *)ptr_table__2BHH)[ 0];
-                    if ((result__3BHH == (void *)NULL)) {
-                      result__3BHH=new_lab__MRJ(new_size__XBHH);
-                      next__1BHH=(void *)((unsigned long)result__3BHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XBHH)));
-                      ((__POINTER *)next__1BHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__2BHH)[ 0]=next__1BHH;
+                  typ_id__BKHH=-1;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__CKHH);
+                  if ((typ_id__BKHH == (__INTEGER)(-  1))) {
+                    a__DKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__EKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__CKHH + a__DKHH) & (__UINTEGER_32)(~ a__DKHH));
+                    ptr_table__JKHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__IKHH=((__POINTER )(NULL));
+                    result__KKHH=((__POINTER *)ptr_table__JKHH)[ 0];
+                    if ((result__KKHH == (void *)NULL)) {
+                      result__KKHH=new_lab__MRJ(new_size__EKHH);
+                      next__IKHH=(void *)((unsigned long)result__KKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EKHH)));
+                      ((__POINTER *)next__IKHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__JKHH)[ 0]=next__IKHH;
                     } else {
-                      next__1BHH=((__POINTER *)result__3BHH)[ 0];
-                      if ((next__1BHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3BHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XBHH <<  1)) <=  4096)) {
-                          next__1BHH=(void *)((unsigned long)result__3BHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XBHH)));
+                      next__IKHH=((__POINTER *)result__KKHH)[ 0];
+                      if ((next__IKHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KKHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EKHH <<  1)) <=  4096)) {
+                          next__IKHH=(void *)((unsigned long)result__KKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EKHH)));
                         } else {
-                          next__1BHH=new_lab__MRJ(new_size__XBHH);
+                          next__IKHH=new_lab__MRJ(new_size__EKHH);
                         };
-                        ((__POINTER *)next__1BHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__2BHH)[ 0]=next__1BHH;
+                        ((__POINTER *)next__IKHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__JKHH)[ 0]=next__IKHH;
                       } else {
-                        ((__POINTER *)result__3BHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1BHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__3BHH=next__1BHH;
+                        ((__POINTER *)result__KKHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IKHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__KKHH=next__IKHH;
                       };
                     };
-                    ptr__TBHH=result__3BHH;
+                    ptr__AKHH=result__KKHH;
                   } else {
-                    t__YBHH=((__UINTEGER_32 )typ_id__UBHH);
-                    a__ZBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__ECHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VBHH + a__ZBHH) & (__UINTEGER_32)(~ a__ZBHH));
-                    ptr_table__BCHH=((__POINTER )(&(table_type[(t__YBHH)])));
-                    lab_type__DCHH=(__UINTEGER_32)(t__YBHH |  1);
-                    next__ACHH=((__POINTER )(NULL));
-                    result__CCHH=((__POINTER *)ptr_table__BCHH)[ 0];
-                    if ((result__CCHH == (void *)NULL)) {
-                      result__CCHH=new_lab__MRJ(lab_type__DCHH);
-                      next__ACHH=(void *)((unsigned long)result__CCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ECHH)));
-                      ((__POINTER *)next__ACHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__BCHH)[ 0]=next__ACHH;
+                    t__FKHH=((__UINTEGER_32 )typ_id__BKHH);
+                    a__GKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__RKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__CKHH + a__GKHH) & (__UINTEGER_32)(~ a__GKHH));
+                    ptr_table__OKHH=((__POINTER )(&(table_type[(t__FKHH)])));
+                    lab_type__QKHH=(__UINTEGER_32)(t__FKHH |  1);
+                    next__NKHH=((__POINTER )(NULL));
+                    result__PKHH=((__POINTER *)ptr_table__OKHH)[ 0];
+                    if ((result__PKHH == (void *)NULL)) {
+                      result__PKHH=new_lab__MRJ(lab_type__QKHH);
+                      next__NKHH=(void *)((unsigned long)result__PKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RKHH)));
+                      ((__POINTER *)next__NKHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__OKHH)[ 0]=next__NKHH;
                     } else {
-                      next__ACHH=((__POINTER *)result__CCHH)[ 0];
-                      if ((next__ACHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CCHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ECHH <<  1)) <=  4096)) {
-                          next__ACHH=(void *)((unsigned long)result__CCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ECHH)));
+                      next__NKHH=((__POINTER *)result__PKHH)[ 0];
+                      if ((next__NKHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PKHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RKHH <<  1)) <=  4096)) {
+                          next__NKHH=(void *)((unsigned long)result__PKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RKHH)));
                         } else {
-                          next__ACHH=new_lab__MRJ(lab_type__DCHH);
+                          next__NKHH=new_lab__MRJ(lab_type__QKHH);
                         };
-                        ((__POINTER *)next__ACHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__BCHH)[ 0]=next__ACHH;
+                        ((__POINTER *)next__NKHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__OKHH)[ 0]=next__NKHH;
                       } else {
-                        ((__POINTER *)result__CCHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ACHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__CCHH=next__ACHH;
+                        ((__POINTER *)result__PKHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NKHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__PKHH=next__NKHH;
                       };
                     };
-                    ptr__TBHH=result__CCHH;
+                    ptr__AKHH=result__PKHH;
                   };
-                  result__SBHH=((__ITM_PROTOTYPE *)ptr__TBHH);
-                  *(result__SBHH) = *(ITM_PROTOTYPE__);
+                  result__5JHH=((__ITM_PROTOTYPE *)ptr__AKHH);
+                  *(result__5JHH) = *(ITM_PROTOTYPE__);
                 };
-                ((__ITM_PROTOTYPE *)result__SBHH)->parent_itm_constant__2VF.parent_itm_code__1VF.parent_itm_object__XDE.position__NDJ=__tmp__DFBD;
+                ((__ITM_PROTOTYPE *)result__5JHH)->parent_itm_constant__2VF.parent_itm_code__1VF.parent_itm_object__XDE.position__NDJ=__tmp__DFBD;
                 switch (((struct ___OBJ *)expr__EJ3B)->__id) {
                 case __ITM_LIST__: {
                   __tmp__MFBD=((__ITM_LIST *)expr__EJ3B)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ;
@@ -15776,76 +15941,76 @@ static void go_on__CBC(void *obj__EBC)
                   __tmp__MFBD=position__FJHC(expr__EJ3B);
                 } break;
                 };
-                result__FCHH=NULL;
-                ptr__GCHH=((__POINTER )(NULL));
-                typ_id__HCHH= 0;
-                sz__ICHH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-                if ((sz__ICHH ==  0)) {
-                  result__FCHH=ITM_READ_ARG1__;
+                result__SKHH=NULL;
+                ptr__TKHH=((__POINTER )(NULL));
+                typ_id__UKHH= 0;
+                sz__VKHH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
+                if ((sz__VKHH ==  0)) {
+                  result__SKHH=ITM_READ_ARG1__;
                 } else {
-                  typ_id__HCHH=-1;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ICHH);
-                  if ((typ_id__HCHH == (__INTEGER)(-  1))) {
-                    a__JCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__KCHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ICHH + a__JCHH) & (__UINTEGER_32)(~ a__JCHH));
-                    ptr_table__PCHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__OCHH=((__POINTER )(NULL));
-                    result__QCHH=((__POINTER *)ptr_table__PCHH)[ 0];
-                    if ((result__QCHH == (void *)NULL)) {
-                      result__QCHH=new_lab__MRJ(new_size__KCHH);
-                      next__OCHH=(void *)((unsigned long)result__QCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCHH)));
-                      ((__POINTER *)next__OCHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__PCHH)[ 0]=next__OCHH;
+                  typ_id__UKHH=-1;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__VKHH);
+                  if ((typ_id__UKHH == (__INTEGER)(-  1))) {
+                    a__WKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__XKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VKHH + a__WKHH) & (__UINTEGER_32)(~ a__WKHH));
+                    ptr_table__2KHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__1KHH=((__POINTER )(NULL));
+                    result__3KHH=((__POINTER *)ptr_table__2KHH)[ 0];
+                    if ((result__3KHH == (void *)NULL)) {
+                      result__3KHH=new_lab__MRJ(new_size__XKHH);
+                      next__1KHH=(void *)((unsigned long)result__3KHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKHH)));
+                      ((__POINTER *)next__1KHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__2KHH)[ 0]=next__1KHH;
                     } else {
-                      next__OCHH=((__POINTER *)result__QCHH)[ 0];
-                      if ((next__OCHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QCHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KCHH <<  1)) <=  4096)) {
-                          next__OCHH=(void *)((unsigned long)result__QCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCHH)));
+                      next__1KHH=((__POINTER *)result__3KHH)[ 0];
+                      if ((next__1KHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3KHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XKHH <<  1)) <=  4096)) {
+                          next__1KHH=(void *)((unsigned long)result__3KHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKHH)));
                         } else {
-                          next__OCHH=new_lab__MRJ(new_size__KCHH);
+                          next__1KHH=new_lab__MRJ(new_size__XKHH);
                         };
-                        ((__POINTER *)next__OCHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__PCHH)[ 0]=next__OCHH;
+                        ((__POINTER *)next__1KHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__2KHH)[ 0]=next__1KHH;
                       } else {
-                        ((__POINTER *)result__QCHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OCHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__QCHH=next__OCHH;
+                        ((__POINTER *)result__3KHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1KHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__3KHH=next__1KHH;
                       };
                     };
-                    ptr__GCHH=result__QCHH;
+                    ptr__TKHH=result__3KHH;
                   } else {
-                    t__LCHH=((__UINTEGER_32 )typ_id__HCHH);
-                    a__MCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__XCHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ICHH + a__MCHH) & (__UINTEGER_32)(~ a__MCHH));
-                    ptr_table__UCHH=((__POINTER )(&(table_type[(t__LCHH)])));
-                    lab_type__WCHH=(__UINTEGER_32)(t__LCHH |  1);
-                    next__TCHH=((__POINTER )(NULL));
-                    result__VCHH=((__POINTER *)ptr_table__UCHH)[ 0];
-                    if ((result__VCHH == (void *)NULL)) {
-                      result__VCHH=new_lab__MRJ(lab_type__WCHH);
-                      next__TCHH=(void *)((unsigned long)result__VCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XCHH)));
-                      ((__POINTER *)next__TCHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__UCHH)[ 0]=next__TCHH;
+                    t__YKHH=((__UINTEGER_32 )typ_id__UKHH);
+                    a__ZKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__ELHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VKHH + a__ZKHH) & (__UINTEGER_32)(~ a__ZKHH));
+                    ptr_table__BLHH=((__POINTER )(&(table_type[(t__YKHH)])));
+                    lab_type__DLHH=(__UINTEGER_32)(t__YKHH |  1);
+                    next__ALHH=((__POINTER )(NULL));
+                    result__CLHH=((__POINTER *)ptr_table__BLHH)[ 0];
+                    if ((result__CLHH == (void *)NULL)) {
+                      result__CLHH=new_lab__MRJ(lab_type__DLHH);
+                      next__ALHH=(void *)((unsigned long)result__CLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ELHH)));
+                      ((__POINTER *)next__ALHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__BLHH)[ 0]=next__ALHH;
                     } else {
-                      next__TCHH=((__POINTER *)result__VCHH)[ 0];
-                      if ((next__TCHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VCHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XCHH <<  1)) <=  4096)) {
-                          next__TCHH=(void *)((unsigned long)result__VCHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XCHH)));
+                      next__ALHH=((__POINTER *)result__CLHH)[ 0];
+                      if ((next__ALHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CLHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ELHH <<  1)) <=  4096)) {
+                          next__ALHH=(void *)((unsigned long)result__CLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ELHH)));
                         } else {
-                          next__TCHH=new_lab__MRJ(lab_type__WCHH);
+                          next__ALHH=new_lab__MRJ(lab_type__DLHH);
                         };
-                        ((__POINTER *)next__TCHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__UCHH)[ 0]=next__TCHH;
+                        ((__POINTER *)next__ALHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__BLHH)[ 0]=next__ALHH;
                       } else {
-                        ((__POINTER *)result__VCHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TCHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__VCHH=next__TCHH;
+                        ((__POINTER *)result__CLHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ALHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__CLHH=next__ALHH;
                       };
                     };
-                    ptr__GCHH=result__VCHH;
+                    ptr__TKHH=result__CLHH;
                   };
-                  result__FCHH=((__ITM_READ_ARG1 *)ptr__GCHH);
-                  *(result__FCHH) = *(ITM_READ_ARG1__);
+                  result__SKHH=((__ITM_READ_ARG1 *)ptr__TKHH);
+                  *(result__SKHH) = *(ITM_READ_ARG1__);
                 };
-                ((__ITM_READ_ARG1 *)result__FCHH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=__tmp__MFBD;
+                ((__ITM_READ_ARG1 *)result__SKHH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=__tmp__MFBD;
               };
             };
             if (((void *)read_contract__HTF(PARSER__) != (void *)NULL)) {
@@ -15853,25 +16018,25 @@ static void go_on__CBC(void *obj__EBC)
               };
             };
           };
-          result__YCHH=FALSE__;
+          result__FLHH=FALSE__;
           if ((! read_space__3RD())) {
-            result__YCHH=FALSE__;
+            result__FLHH=FALSE__;
           } else {
-            result__ZCHH='\0';
+            result__GLHH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__ZCHH=((__CHARACTER )(( 0)));
+              result__GLHH=((__CHARACTER )(( 0)));
             } else {
-              result__ZCHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__GLHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__ZCHH == ';')) {
+            if ((result__GLHH == ';')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__YCHH=TRUE__;
+              result__FLHH=TRUE__;
             };
           };
-          if ((! result__YCHH)) {
-            pos__ULUG=current_position__JXF();
-            put_error__text__KNG( 2,(&__string_239));
-            put_position__UOG(pos__ULUG);
+          if ((! result__FLHH)) {
+            pos__3UUG=current_position__JXF();
+            put_error__text__KNG( 2,(&__string_242));
+            put_position__UOG(pos__3UUG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -15880,64 +16045,64 @@ static void go_on__CBC(void *obj__EBC)
           if (is_shorter__5Y) {
             if ((((! is_short_code__P1) && (old_pos__SXOB !=  0)) && ((void *)((__SECTION_ *)last_section__X0C)->name__CZDC != (void *)(&__string_22)))) {
               if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )current_position__JXF()) >>  9) &  255) <  5)) {
-                while_do__KOLE:
+                while_do__MSLE:
                 {
-                  result__FF2G='\0';
+                  result__1O2G='\0';
                   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                    result__FF2G=((__CHARACTER )(( 0)));
+                    result__1O2G=((__CHARACTER )(( 0)));
                   } else {
-                    result__FF2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                    result__1O2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                   };
-                  if ((result__FF2G != ((__CHARACTER )(( 0))))) {
-                    result__OF2G='\0';
+                  if ((result__1O2G != ((__CHARACTER )(( 0))))) {
+                    result__EP2G='\0';
                     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                      result__OF2G=((__CHARACTER )(( 0)));
+                      result__EP2G=((__CHARACTER )(( 0)));
                     } else {
-                      result__OF2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                      result__EP2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                     };
-                    __tmp__A4OB=(((((((result__OF2G == ' ') || (result__OF2G == '\t')) || (result__OF2G == '\n')) || (result__OF2G == '\r')) || (result__OF2G == '\0')) || (result__OF2G == '\f')) || (result__OF2G == '\v'));
+                    __tmp__A4OB=(((((((result__EP2G == ' ') || (result__EP2G == '\t')) || (result__EP2G == '\n')) || (result__EP2G == '\r')) || (result__EP2G == '\0')) || (result__EP2G == '\f')) || (result__EP2G == '\v'));
                   } else {
                     __tmp__A4OB=FALSE__;
                   };
                   if (__tmp__A4OB) {
-                    result__TF2G='\0';
+                    result__JP2G='\0';
                     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                      result__TF2G=((__CHARACTER )(( 0)));
+                      result__JP2G=((__CHARACTER )(( 0)));
                     } else {
-                      result__TF2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                      result__JP2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                     };
-                    __tmp__B4OB=(result__TF2G != '\n');
+                    __tmp__B4OB=(result__JP2G != '\n');
                   } else {
                     __tmp__B4OB=FALSE__;
                   };
                   if (__tmp__B4OB) {
                     position__SBC=(__INTEGER)(position__SBC +  1);
-                    goto while_do__KOLE;
+                    goto while_do__MSLE;
                   };
                 };
-                result__YF2G='\0';
+                result__OP2G='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__YF2G=((__CHARACTER )(( 0)));
+                  result__OP2G=((__CHARACTER )(( 0)));
                 } else {
-                  result__YF2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__OP2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                if ((result__YF2G == '\n')) {
+                if ((result__OP2G == '\n')) {
                   position__SBC=(__INTEGER)(position__SBC +  1);
                 };
               };
-              Self__A3FH=((__STRING *)output_code__SI);
-              start__32FH=(__INTEGER)(old_pos__SXOB + old_derive__TXOB);
-              end__22FH=(__INTEGER)((__INTEGER)(position__SBC + short_derive__BCC) -  1);
-              len__42FH=(__INTEGER)((__INTEGER)(end__22FH - start__32FH) +  1);
-              if ((len__42FH >  0)) {
-                __tmp__52FH=(__INTEGER)(end__22FH +  1);
-                __tmp__B3FH=Self__A3FH->count__WFC;
-                Self__C3FH=__tmp__52FH;
-                while ((Self__C3FH <= __tmp__B3FH)) {
-                  ((__CHARACTER *)Self__A3FH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__C3FH - len__42FH) -  1)]=((__CHARACTER *)Self__A3FH->storage__BCS)[(__INTEGER)(Self__C3FH -  1)];
-                  Self__C3FH=(__INTEGER)(Self__C3FH +  1);
+              Self__NFGH=((__STRING *)output_code__SI);
+              start__KFGH=(__INTEGER)(old_pos__SXOB + old_derive__TXOB);
+              end__JFGH=(__INTEGER)((__INTEGER)(position__SBC + short_derive__BCC) -  1);
+              len__LFGH=(__INTEGER)((__INTEGER)(end__JFGH - start__KFGH) +  1);
+              if ((len__LFGH >  0)) {
+                __tmp__MFGH=(__INTEGER)(end__JFGH +  1);
+                __tmp__OFGH=Self__NFGH->count__WFC;
+                Self__PFGH=__tmp__MFGH;
+                while ((Self__PFGH <= __tmp__OFGH)) {
+                  ((__CHARACTER *)Self__NFGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__PFGH - len__LFGH) -  1)]=((__CHARACTER *)Self__NFGH->storage__BCS)[(__INTEGER)(Self__PFGH -  1)];
+                  Self__PFGH=(__INTEGER)(Self__PFGH +  1);
                 };
-                Self__A3FH->count__WFC=(__INTEGER)(Self__A3FH->count__WFC - len__42FH);
+                Self__NFGH->count__WFC=(__INTEGER)(Self__NFGH->count__WFC - len__LFGH);
               };
               short_derive__BCC=(__INTEGER)(old_derive__TXOB - (__INTEGER)(position__SBC - old_pos__SXOB));
             };
@@ -15950,7 +16115,7 @@ static void go_on__CBC(void *obj__EBC)
           };
           s__UXOB=fast_reference_at__QAGC(__tmp__I5OB,__tmp__K5OB);
           if (((void *)s__UXOB != (void *)NULL)) {
-            put_error__text__KNG( 1,(&__string_240));
+            put_error__text__KNG( 1,(&__string_243));
             if (((struct ___OBJ *)s__UXOB)->__id==__ITM_SLOT__) {
               __tmp__V5OB=((__ITM_SLOT *)s__UXOB)->parent_named__P5.parent_itm_object__4.position__NDJ;
             } else {
@@ -16004,19 +16169,19 @@ static void go_on__CBC(void *obj__EBC)
       } while (result__NXOB);
       if (is_shorter__5Y) {
         if (((! is_short_private__31) && ((void *)((__SECTION_ *)last_section__X0C)->name__CZDC == (void *)(&__string_26)))) {
-          Self__J3FH=((__STRING *)output_code__SI);
-          start__G3FH=(__INTEGER)(pos_sec__RXC + old_derive__SXC);
-          end__F3FH=(__INTEGER)((__INTEGER)(position__SBC + short_derive__BCC) -  1);
-          len__H3FH=(__INTEGER)((__INTEGER)(end__F3FH - start__G3FH) +  1);
-          if ((len__H3FH >  0)) {
-            __tmp__I3FH=(__INTEGER)(end__F3FH +  1);
-            __tmp__K3FH=Self__J3FH->count__WFC;
-            Self__L3FH=__tmp__I3FH;
-            while ((Self__L3FH <= __tmp__K3FH)) {
-              ((__CHARACTER *)Self__J3FH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__L3FH - len__H3FH) -  1)]=((__CHARACTER *)Self__J3FH->storage__BCS)[(__INTEGER)(Self__L3FH -  1)];
-              Self__L3FH=(__INTEGER)(Self__L3FH +  1);
-            };
-            Self__J3FH->count__WFC=(__INTEGER)(Self__J3FH->count__WFC - len__H3FH);
+          Self__WFGH=((__STRING *)output_code__SI);
+          start__TFGH=(__INTEGER)(pos_sec__RXC + old_derive__SXC);
+          end__SFGH=(__INTEGER)((__INTEGER)(position__SBC + short_derive__BCC) -  1);
+          len__UFGH=(__INTEGER)((__INTEGER)(end__SFGH - start__TFGH) +  1);
+          if ((len__UFGH >  0)) {
+            __tmp__VFGH=(__INTEGER)(end__SFGH +  1);
+            __tmp__XFGH=Self__WFGH->count__WFC;
+            Self__YFGH=__tmp__VFGH;
+            while ((Self__YFGH <= __tmp__XFGH)) {
+              ((__CHARACTER *)Self__WFGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__YFGH - len__UFGH) -  1)]=((__CHARACTER *)Self__WFGH->storage__BCS)[(__INTEGER)(Self__YFGH -  1)];
+              Self__YFGH=(__INTEGER)(Self__YFGH +  1);
+            };
+            Self__WFGH->count__WFC=(__INTEGER)(Self__WFGH->count__WFC - len__UFGH);
           };
           short_derive__BCC=(__INTEGER)(old_derive__SXC - (__INTEGER)(position__SBC - pos_sec__RXC));
         };
@@ -16027,25 +16192,25 @@ static void go_on__CBC(void *obj__EBC)
     };
   };
   if (((void *)read_contract__HTF(PARSER__) != (void *)NULL)) {
-    pos__PMUG=current_position__JXF();
-    put_error__text__KNG( 2,(&__string_241));
-    put_position__UOG(pos__PMUG);
+    pos__YVUG=current_position__JXF();
+    put_error__text__KNG( 2,(&__string_244));
+    put_position__UOG(pos__YVUG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
   };
   read_space__3RD();
-  result__JG2G='\0';
+  result__5P2G='\0';
   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-    result__JG2G=((__CHARACTER )(( 0)));
+    result__5P2G=((__CHARACTER )(( 0)));
   } else {
-    result__JG2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+    result__5P2G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
   };
-  if ((result__JG2G != ((__CHARACTER )(( 0))))) {
-    pos__RMUG=current_position__JXF();
+  if ((result__5P2G != ((__CHARACTER )(( 0))))) {
+    pos__0VUG=current_position__JXF();
     put_error__text__KNG( 0,(&__string_164));
-    put_position__UOG(pos__RMUG);
+    put_position__UOG(pos__0VUG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -16058,19 +16223,19 @@ static void go_on__CBC(void *obj__EBC)
 static void put__to__like__1ZXD(void *tok__3ZXD,void *buf__4ZXD,void *key__5ZXD)
 // ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__L0XD,Self__YINE;
+  __INTEGER __tmp__L0XD,Self__0MNE;
   void *lst__A0XD;
-  lst__A0XD=fast_reference_at__E34D(short_dico__QD,key__5ZXD);
+  lst__A0XD=fast_reference_at__GB5D(short_dico__QD,key__5ZXD);
   if (((void *)lst__A0XD != (void *)NULL)) {
     __tmp__L0XD=((__LINKED_LISToSTRING_CONSTANTo *)lst__A0XD)->parent_linked_collection__LD.upper__5CD;
-    Self__YINE= 1;
-    while ((Self__YINE <= __tmp__L0XD)) {
-      if (((void *)item__Y0ND(lst__A0XD,Self__YINE) == (void *)NULL)) {
+    Self__0MNE= 1;
+    while ((Self__0MNE <= __tmp__L0XD)) {
+      if (((void *)item__Y0ND(lst__A0XD,Self__0MNE) == (void *)NULL)) {
         append__BOS(buf__4ZXD,tok__3ZXD);
       } else {
-        append__BOS(buf__4ZXD,item__Y0ND(lst__A0XD,Self__YINE));
+        append__BOS(buf__4ZXD,item__Y0ND(lst__A0XD,Self__0MNE));
       };
-      Self__YINE=(__INTEGER)(Self__YINE +  1);
+      Self__0MNE=(__INTEGER)(Self__0MNE +  1);
     };
   };
 }
@@ -16078,181 +16243,237 @@ static void put__to__like__1ZXD(void *tok__3ZXD,void *buf__4ZXD,void *key__5ZXD)
 static void shorter_get_all_slot_in__E1XD(__PROTOTYPE *Self__F1XD,void *lst__G1XD)
 // ({PROTOTYPE},{NULLxFAST_ARRAYoITM_SLOTo}) VoidRecursive, No inlinable.
 {
-  void *ps__I1XD,*__tmp__U3XD;
+  void *ps__I1XD,*__tmp__G4XD;
   void *p__J1XD;
-  __INTEGER i__K1XD,new_capacity__BNWE,__tmp__FOWE,__tmp__OXOF;
-  __INTEGER Self__ZO4F;
-  void *s__H1XD,*__tmp__E2XD,*__tmp__12XD,*__tmp__15XD;
-  void *__tmp__F2XD,*__tmp__G2XD,*__tmp__B4XD,*__tmp__F5XD,*__tmp__G5XD;
-  void *__tmp__H3XD;
+  __INTEGER i__K1XD,new_capacity__YWWE,__tmp__2XWE,__tmp__Q3OF;
+  __INTEGER Self__PY4F,i__NKJH,i__SKJH;
+  void *s__H1XD,*__tmp__U2XD,*__tmp__N3XD,*__tmp__GBYD;
+  void *__tmp__11XD,*__tmp__Z3XD;
+  void *__tmp__V2XD,*__tmp__W2XD,*__tmp__X4XD,*__tmp__B5XD,*__tmp__J5XD;
+  void *__tmp__QAYD,*__tmp__RAYD;
   __SECTION_ *Self__BCFC;
-  void *__tmp__S3XD;
-  __BOOLEAN __tmp__J2XD,__tmp__PNWE,__tmp__L3XD,__tmp__F4XD,__tmp__G4XD;
-  __FAST_ARRAYoITM_SLOTo *Self__5MWE;
-  void **__tmp__EOWE,**new__0WOF;
-  __CHARACTER __tmp__03XD;
+  void *__tmp__E4XD;
+  __STRING_CONSTANT *Self__PKJH,*Self__UKJH;
+  __BOOLEAN __tmp__A2XD,__tmp__Z2XD,__tmp__GXWE,__tmp__33XD,__tmp__DQKF;
+  __BOOLEAN __tmp__N5XD,result__MKJH,__tmp__O5XD,result__RKJH;
+  __BOOLEAN __tmp__R5XD;
+  __FAST_ARRAYoITM_SLOTo *Self__WWWE;
+  void **__tmp__1XWE,**new__22OF;
+  __CHARACTER __tmp__Q4XD;
   ps__I1XD=NULL;
   p__J1XD=NULL;
   i__K1XD= 0;
   s__H1XD=Self__F1XD->first_slot__CGZB;
   while (((void *)s__H1XD != (void *)NULL)) {
-    i__K1XD= 0;
-    while_do__N5PE:
-    {
-      if ((i__K1XD <= ((__FAST_ARRAYoITM_SLOTo *)lst__G1XD)->parent_arrayed_collection__4JTD.upper__21XD)) {
-        __tmp__E2XD=((void **)((__FAST_ARRAYoITM_SLOTo *)lst__G1XD)->parent_arrayed_collection__4JTD.storage__MZVE)[i__K1XD];
-        if (((struct ___OBJ *)__tmp__E2XD)->__id==__ITM_SLOT__) {
-          __tmp__F2XD=((__ITM_SLOT *)__tmp__E2XD)->parent_named__P5.name__LI;
-        } else {
-          __tmp__F2XD=((__ITM_SLOT_OPERATOR *)__tmp__E2XD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
-        };
-        if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
-          __tmp__G2XD=((__ITM_SLOT *)s__H1XD)->parent_named__P5.name__LI;
-        } else {
-          __tmp__G2XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
-        };
-        __tmp__J2XD=((void *)__tmp__F2XD != (void *)__tmp__G2XD);
+    if (is_short_private__31) {
+      __tmp__A2XD=TRUE__;
+    } else {
+      if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
+        __tmp__11XD=((__ITM_SLOT *)s__H1XD)->id_section__Y1C;
       } else {
-        __tmp__J2XD=FALSE__;
-      };
-      if (__tmp__J2XD) {
-        i__K1XD=(__INTEGER)(i__K1XD +  1);
-        goto while_do__N5PE;
+        __tmp__11XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.id_section__Y1C;
       };
+      __tmp__A2XD=((void *)((__SECTION_ *)__tmp__11XD)->name__CZDC != (void *)(&__string_26));
     };
-    if ((i__K1XD > ((__FAST_ARRAYoITM_SLOTo *)lst__G1XD)->parent_arrayed_collection__4JTD.upper__21XD)) {
-      Self__5MWE=((__FAST_ARRAYoITM_SLOTo *)lst__G1XD);
-      new_capacity__BNWE= 0;
-      if (((__INTEGER)(Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD +  1) <= (__INTEGER)(Self__5MWE->parent_arrayed_collection__4JTD.capacity__SMVE -  1))) {
-        Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD=(__INTEGER)(Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD +  1);
-        __tmp__PNWE=TRUE__;
-      } else {
-        __tmp__PNWE=FALSE__;
+    if (__tmp__A2XD) {
+      i__K1XD= 0;
+      while_do__Y1RE:
+      {
+        if ((i__K1XD <= ((__FAST_ARRAYoITM_SLOTo *)lst__G1XD)->parent_arrayed_collection__4JTD.upper__M2XD)) {
+          __tmp__U2XD=((void **)((__FAST_ARRAYoITM_SLOTo *)lst__G1XD)->parent_arrayed_collection__4JTD.storage__A4VE)[i__K1XD];
+          if (((struct ___OBJ *)__tmp__U2XD)->__id==__ITM_SLOT__) {
+            __tmp__V2XD=((__ITM_SLOT *)__tmp__U2XD)->parent_named__P5.name__LI;
+          } else {
+            __tmp__V2XD=((__ITM_SLOT_OPERATOR *)__tmp__U2XD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          };
+          if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
+            __tmp__W2XD=((__ITM_SLOT *)s__H1XD)->parent_named__P5.name__LI;
+          } else {
+            __tmp__W2XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          };
+          __tmp__Z2XD=((void *)__tmp__V2XD != (void *)__tmp__W2XD);
+        } else {
+          __tmp__Z2XD=FALSE__;
+        };
+        if (__tmp__Z2XD) {
+          i__K1XD=(__INTEGER)(i__K1XD +  1);
+          goto while_do__Y1RE;
+        };
       };
-      if ((! __tmp__PNWE)) {
-        if ((Self__5MWE->parent_arrayed_collection__4JTD.capacity__SMVE ==  0)) {
-          Self__5MWE->parent_arrayed_collection__4JTD.storage__MZVE=create__5FEF( 2);
-          Self__5MWE->parent_arrayed_collection__4JTD.capacity__SMVE= 2;
-          Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD= 0;
+      if ((i__K1XD > ((__FAST_ARRAYoITM_SLOTo *)lst__G1XD)->parent_arrayed_collection__4JTD.upper__M2XD)) {
+        Self__WWWE=((__FAST_ARRAYoITM_SLOTo *)lst__G1XD);
+        new_capacity__YWWE= 0;
+        if (((__INTEGER)(Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD +  1) <= (__INTEGER)(Self__WWWE->parent_arrayed_collection__4JTD.capacity__GRVE -  1))) {
+          Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD=(__INTEGER)(Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD +  1);
+          __tmp__GXWE=TRUE__;
         } else {
-          new_capacity__BNWE=(__INTEGER)(Self__5MWE->parent_arrayed_collection__4JTD.capacity__SMVE <<  1);
-          __tmp__EOWE=Self__5MWE->parent_arrayed_collection__4JTD.storage__MZVE;
-          __tmp__FOWE=Self__5MWE->parent_arrayed_collection__4JTD.capacity__SMVE;
-          new__0WOF=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__EOWE)),((__UINTEGER_32 )(__INTEGER)(__tmp__FOWE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__BNWE * ((__INTEGER )(sizeof(void *)))))));
-          __tmp__OXOF=(__INTEGER)(new_capacity__BNWE -  1);
-          Self__ZO4F=__tmp__FOWE;
-          while ((Self__ZO4F <= __tmp__OXOF)) {
-            new__0WOF[Self__ZO4F]=NULL;
-            Self__ZO4F=(__INTEGER)(Self__ZO4F +  1);
+          __tmp__GXWE=FALSE__;
+        };
+        if ((! __tmp__GXWE)) {
+          if ((Self__WWWE->parent_arrayed_collection__4JTD.capacity__GRVE ==  0)) {
+            Self__WWWE->parent_arrayed_collection__4JTD.storage__A4VE=create__ILEF( 2);
+            Self__WWWE->parent_arrayed_collection__4JTD.capacity__GRVE= 2;
+            Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD= 0;
+          } else {
+            new_capacity__YWWE=(__INTEGER)(Self__WWWE->parent_arrayed_collection__4JTD.capacity__GRVE <<  1);
+            __tmp__1XWE=Self__WWWE->parent_arrayed_collection__4JTD.storage__A4VE;
+            __tmp__2XWE=Self__WWWE->parent_arrayed_collection__4JTD.capacity__GRVE;
+            new__22OF=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__1XWE)),((__UINTEGER_32 )(__INTEGER)(__tmp__2XWE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__YWWE * ((__INTEGER )(sizeof(void *)))))));
+            __tmp__Q3OF=(__INTEGER)(new_capacity__YWWE -  1);
+            Self__PY4F=__tmp__2XWE;
+            while ((Self__PY4F <= __tmp__Q3OF)) {
+              new__22OF[Self__PY4F]=NULL;
+              Self__PY4F=(__INTEGER)(Self__PY4F +  1);
+            };
+            Self__WWWE->parent_arrayed_collection__4JTD.storage__A4VE=new__22OF;
+            Self__WWWE->parent_arrayed_collection__4JTD.capacity__GRVE=new_capacity__YWWE;
+            Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD=(__INTEGER)(Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD +  1);
           };
-          Self__5MWE->parent_arrayed_collection__4JTD.storage__MZVE=new__0WOF;
-          Self__5MWE->parent_arrayed_collection__4JTD.capacity__SMVE=new_capacity__BNWE;
-          Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD=(__INTEGER)(Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD +  1);
         };
+        ((void **)Self__WWWE->parent_arrayed_collection__4JTD.storage__A4VE)[Self__WWWE->parent_arrayed_collection__4JTD.upper__M2XD]=s__H1XD;
       };
-      ((void **)Self__5MWE->parent_arrayed_collection__4JTD.storage__MZVE)[Self__5MWE->parent_arrayed_collection__4JTD.upper__21XD]=s__H1XD;
     };
     if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
-      __tmp__12XD=((__ITM_SLOT *)s__H1XD)->next__OHHC;
+      __tmp__N3XD=((__ITM_SLOT *)s__H1XD)->next__OHHC;
     } else {
-      __tmp__12XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.next__OHHC;
+      __tmp__N3XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.next__OHHC;
     };
-    s__H1XD=__tmp__12XD;
+    s__H1XD=__tmp__N3XD;
   };
   s__H1XD=Self__F1XD->first_slot__CGZB;
-  while_do__054D:
+  while_do__2D5D:
   {
     if (((void *)s__H1XD != (void *)NULL)) {
       if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
-        __tmp__H3XD=((__ITM_SLOT *)s__H1XD)->id_section__Y1C;
+        __tmp__Z3XD=((__ITM_SLOT *)s__H1XD)->id_section__Y1C;
       } else {
-        __tmp__H3XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.id_section__Y1C;
+        __tmp__Z3XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.id_section__Y1C;
       };
-      Self__BCFC=((__SECTION_ *)__tmp__H3XD);
-      __tmp__L3XD=(((void *)Self__BCFC->name__CZDC == (void *)(&__string_23)) || ((void *)Self__BCFC->name__CZDC == (void *)(&__string_24)));
+      Self__BCFC=((__SECTION_ *)__tmp__Z3XD);
+      __tmp__33XD=(((void *)Self__BCFC->name__CZDC == (void *)(&__string_23)) || ((void *)Self__BCFC->name__CZDC == (void *)(&__string_24)));
     } else {
-      __tmp__L3XD=FALSE__;
+      __tmp__33XD=FALSE__;
     };
-    if (__tmp__L3XD) {
+    if (__tmp__33XD) {
       if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
-        __tmp__S3XD=((__ITM_SLOT *)s__H1XD)->result_type__04FC;
+        __tmp__E4XD=((__ITM_SLOT *)s__H1XD)->result_type__04FC;
       } else {
-        __tmp__S3XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.result_type__04FC;
+        __tmp__E4XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.result_type__04FC;
       };
-      if (__tmp__S3XD==NULL) {
-        __tmp__U3XD=NULL;
+      if (__tmp__E4XD==NULL) {
+        __tmp__G4XD=NULL;
       } else {
-        switch (((struct ___OBJ *)__tmp__S3XD)->__id) {
+        switch (((struct ___OBJ *)__tmp__E4XD)->__id) {
         case __ITM_TYPE_PARAMETER__: {
-          __tmp__U3XD=((void *)__tmp__S3XD);
+          __tmp__G4XD=((void *)__tmp__E4XD);
         } break;
         case __ITM_TYPE_SIMPLE__: {
-          __tmp__U3XD=((void *)__tmp__S3XD);
+          __tmp__G4XD=((void *)__tmp__E4XD);
         } break;
         case __ITM_TYPE_MULTI__: {
-          __tmp__U3XD=NULL;
+          __tmp__G4XD=NULL;
         } break;
         case __ITM_TYPE_BLOCK__: {
-          __tmp__U3XD=NULL;
+          __tmp__G4XD=NULL;
         } break;
         case __ITM_TYPE_GENERIC__: {
-          __tmp__U3XD=((void *)__tmp__S3XD);
+          __tmp__G4XD=((void *)__tmp__E4XD);
         } break;
         case __ITM_TYPE_STYLE__: {
-          __tmp__U3XD=((void *)__tmp__S3XD);
+          __tmp__G4XD=((void *)__tmp__E4XD);
         } break;
         }
       };
-      ps__I1XD=__tmp__U3XD;
-      if (((void *)__tmp__U3XD != (void *)NULL)) {
+      ps__I1XD=__tmp__G4XD;
+      if (((void *)__tmp__G4XD != (void *)NULL)) {
         if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
-          __tmp__03XD=((__ITM_SLOT *)s__H1XD)->parent_named__P5.style__BEU;
+          __tmp__Q4XD=((__ITM_SLOT *)s__H1XD)->parent_named__P5.style__BEU;
         } else {
-          __tmp__03XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
+          __tmp__Q4XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.parent_named__P5.style__BEU;
         };
-        __tmp__F4XD=(__tmp__03XD == '+');
-      } else {
-        __tmp__F4XD=FALSE__;
-      };
-      if (__tmp__F4XD) {
-        switch (((struct ___OBJ *)__tmp__U3XD)->__id) {
-        case __ITM_TYPE_PARAMETER__: {
-          __tmp__B4XD=NULL;
-        } break;
-        case __ITM_TYPE_SIMPLE__: {
-          __tmp__B4XD=NULL;
-        } break;
-        case __ITM_TYPE_GENERIC__: {
-          __tmp__B4XD=((__ITM_TYPE_GENERIC *)__tmp__U3XD)->parent_itm_type_style__CSN.style__TYP;
-        } break;
-        case __ITM_TYPE_STYLE__: {
-          __tmp__B4XD=((__ITM_TYPE_STYLE *)__tmp__U3XD)->style__TYP;
-        } break;
+        if ((__tmp__Q4XD == '+')) {
+          switch (((struct ___OBJ *)__tmp__G4XD)->__id) {
+          case __ITM_TYPE_PARAMETER__: {
+            __tmp__X4XD=NULL;
+          } break;
+          case __ITM_TYPE_SIMPLE__: {
+            __tmp__X4XD=NULL;
+          } break;
+          case __ITM_TYPE_GENERIC__: {
+            __tmp__X4XD=((__ITM_TYPE_GENERIC *)__tmp__G4XD)->parent_itm_type_style__CSN.style__TYP;
+          } break;
+          case __ITM_TYPE_STYLE__: {
+            __tmp__X4XD=((__ITM_TYPE_STYLE *)__tmp__G4XD)->style__TYP;
+          } break;
+          };
+          __tmp__DQKF=((void *)__tmp__X4XD == (void *)(&__string_9));
+        } else {
+          __tmp__DQKF=FALSE__;
+        };
+        if (__tmp__DQKF) {
+          __tmp__N5XD=TRUE__;
+        } else {
+          if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
+            __tmp__B5XD=((__ITM_SLOT *)s__H1XD)->parent_named__P5.name__LI;
+          } else {
+            __tmp__B5XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          };
+          Self__PKJH=((__STRING_CONSTANT *)__tmp__B5XD);
+          result__MKJH=FALSE__;
+          i__NKJH= 0;
+          if ((((__STRING_CONSTANT *)(&__string_171))->count__DD <= Self__PKJH->count__DD)) {
+            i__NKJH=((__STRING_CONSTANT *)(&__string_171))->count__DD;
+            while ((! ((i__NKJH ==  0) || (((__CHARACTER *)Self__PKJH->storage__VQO)[(__INTEGER)(i__NKJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_171))->storage__VQO)[(__INTEGER)(i__NKJH -  1)])))) {
+              i__NKJH=(__INTEGER)(i__NKJH -  1);
+            };
+            result__MKJH=(i__NKJH ==  0);
+          };
+          __tmp__N5XD=result__MKJH;
         };
-        __tmp__G4XD=((void *)__tmp__B4XD == (void *)(&__string_9));
+        if (__tmp__N5XD) {
+          __tmp__O5XD=TRUE__;
+        } else {
+          if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
+            __tmp__J5XD=((__ITM_SLOT *)s__H1XD)->parent_named__P5.name__LI;
+          } else {
+            __tmp__J5XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.parent_named__P5.name__LI;
+          };
+          Self__UKJH=((__STRING_CONSTANT *)__tmp__J5XD);
+          result__RKJH=FALSE__;
+          i__SKJH= 0;
+          if ((((__STRING_CONSTANT *)(&__string_172))->count__DD <= Self__UKJH->count__DD)) {
+            i__SKJH=((__STRING_CONSTANT *)(&__string_172))->count__DD;
+            while ((! ((i__SKJH ==  0) || (((__CHARACTER *)Self__UKJH->storage__VQO)[(__INTEGER)(i__SKJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_172))->storage__VQO)[(__INTEGER)(i__SKJH -  1)])))) {
+              i__SKJH=(__INTEGER)(i__SKJH -  1);
+            };
+            result__RKJH=(i__SKJH ==  0);
+          };
+          __tmp__O5XD=result__RKJH;
+        };
+        __tmp__R5XD=__tmp__O5XD;
       } else {
-        __tmp__G4XD=FALSE__;
+        __tmp__R5XD=FALSE__;
       };
-      if (__tmp__G4XD) {
+      if (__tmp__R5XD) {
         p__J1XD=NULL;
         i__K1XD= 0;
         while (((i__K1XD <= ((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ) && ((void *)p__J1XD == (void *)NULL))) {
-          __tmp__F5XD=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__K1XD])->parent_named__5.name__LI;
+          __tmp__QAYD=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__K1XD])->parent_named__5.name__LI;
           switch (((struct ___OBJ *)ps__I1XD)->__id) {
           case __ITM_TYPE_PARAMETER__: {
-            __tmp__G5XD=((__ITM_TYPE_PARAMETER *)ps__I1XD)->parent_itm_type__3DE.name__KYP;
+            __tmp__RAYD=((__ITM_TYPE_PARAMETER *)ps__I1XD)->parent_itm_type__3DE.name__KYP;
           } break;
           case __ITM_TYPE_SIMPLE__: {
-            __tmp__G5XD=((__ITM_TYPE_SIMPLE *)ps__I1XD)->name__KYP;
+            __tmp__RAYD=((__ITM_TYPE_SIMPLE *)ps__I1XD)->name__KYP;
           } break;
           case __ITM_TYPE_GENERIC__: {
-            __tmp__G5XD=((__ITM_TYPE_GENERIC *)ps__I1XD)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP;
+            __tmp__RAYD=((__ITM_TYPE_GENERIC *)ps__I1XD)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP;
           } break;
           case __ITM_TYPE_STYLE__: {
-            __tmp__G5XD=((__ITM_TYPE_STYLE *)ps__I1XD)->parent_itm_type_simple__BSN.name__KYP;
+            __tmp__RAYD=((__ITM_TYPE_STYLE *)ps__I1XD)->parent_itm_type_simple__BSN.name__KYP;
           } break;
           };
-          if (((void *)__tmp__F5XD == (void *)__tmp__G5XD)) {
+          if (((void *)__tmp__QAYD == (void *)__tmp__RAYD)) {
             p__J1XD=((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__K1XD];
           };
           i__K1XD=(__INTEGER)(i__K1XD +  1);
@@ -16262,192 +16483,192 @@ static void shorter_get_all_slot_in__E1XD(__PROTOTYPE *Self__F1XD,void *lst__G1X
         };
       };
       if (((struct ___OBJ *)s__H1XD)->__id==__ITM_SLOT__) {
-        __tmp__15XD=((__ITM_SLOT *)s__H1XD)->next__OHHC;
+        __tmp__GBYD=((__ITM_SLOT *)s__H1XD)->next__OHHC;
       } else {
-        __tmp__15XD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.next__OHHC;
+        __tmp__GBYD=((__ITM_SLOT_OPERATOR *)s__H1XD)->parent_itm_slot__OU5B.next__OHHC;
       };
-      s__H1XD=__tmp__15XD;
-      goto while_do__054D;
+      s__H1XD=__tmp__GBYD;
+      goto while_do__2D5D;
     };
   };
 }
 
-static void pretty_name_in__IA3F(__ITM_SLOT *Self__JA3F,void *buffer__KA3F)
+static void pretty_name_in__AJ3F(__ITM_SLOT *Self__BJ3F,void *buffer__CJ3F)
 // ({ITM_SLOT},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER j__LA3F;
-  __STRING_CONSTANT *Self__V0DH;
-  j__LA3F= 1;
-  while ((j__LA3F < ((__STRING_CONSTANT *)Self__JA3F->parent_named__P5.name__LI)->count__DD)) {
-    if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__JA3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__LA3F -  1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__JA3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)((__INTEGER)(j__LA3F +  1) -  1)] == '_'))) {
-      add_last__ZLT(buffer__KA3F,' ');
-      j__LA3F=(__INTEGER)(j__LA3F +  2);
+  __INTEGER j__DJ3F;
+  __STRING_CONSTANT *Self__ZDEH;
+  j__DJ3F= 1;
+  while ((j__DJ3F < ((__STRING_CONSTANT *)Self__BJ3F->parent_named__P5.name__LI)->count__DD)) {
+    if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__BJ3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__DJ3F -  1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__BJ3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)((__INTEGER)(j__DJ3F +  1) -  1)] == '_'))) {
+      add_last__ZLT(buffer__CJ3F,' ');
+      j__DJ3F=(__INTEGER)(j__DJ3F +  2);
     } else {
-      add_last__ZLT(buffer__KA3F,((__CHARACTER *)((__STRING_CONSTANT *)Self__JA3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__LA3F -  1)]);
-      j__LA3F=(__INTEGER)(j__LA3F +  1);
+      add_last__ZLT(buffer__CJ3F,((__CHARACTER *)((__STRING_CONSTANT *)Self__BJ3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__DJ3F -  1)]);
+      j__DJ3F=(__INTEGER)(j__DJ3F +  1);
     };
   };
-  Self__V0DH=((__STRING_CONSTANT *)Self__JA3F->parent_named__P5.name__LI);
-  add_last__ZLT(buffer__KA3F,((__CHARACTER *)Self__V0DH->storage__VQO)[(__INTEGER)(Self__V0DH->count__DD -  1)]);
+  Self__ZDEH=((__STRING_CONSTANT *)Self__BJ3F->parent_named__P5.name__LI);
+  add_last__ZLT(buffer__CJ3F,((__CHARACTER *)Self__ZDEH->storage__VQO)[(__INTEGER)(Self__ZDEH->count__DD -  1)]);
 }
 
-static void pretty_name_in__3B3F(__ITM_SLOT_OPERATOR *Self__4B3F,void *buffer__5B3F)
+static void pretty_name_in__VK3F(__ITM_SLOT_OPERATOR *Self__WK3F,void *buffer__XK3F)
 // ({ITM_SLOT_OPERATOR},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__YBJH,*Self__QZ2F;
-  __INTEGER i__WBJH,i__UZ2F;
-  __BOOLEAN result__VBJH,__tmp__KC3F,result__TZ2F;
-  Self__YBJH=((__STRING_CONSTANT *)Self__4B3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
-  result__VBJH=FALSE__;
-  i__WBJH= 0;
-  if ((((__STRING_CONSTANT *)(&__string_82))->count__DD <= Self__YBJH->count__DD)) {
-    i__WBJH=((__STRING_CONSTANT *)(&__string_82))->count__DD;
-    while ((! ((i__WBJH ==  0) || (((__CHARACTER *)Self__YBJH->storage__VQO)[(__INTEGER)(i__WBJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_82))->storage__VQO)[(__INTEGER)(i__WBJH -  1)])))) {
-      i__WBJH=(__INTEGER)(i__WBJH -  1);
-    };
-    result__VBJH=(i__WBJH ==  0);
-  };
-  if (result__VBJH) {
-    append__BOS(buffer__5B3F,(&__string_242));
-    __tmp__KC3F=TRUE__;
+  __STRING_CONSTANT *Self__ZKJH,*Self__DRSF;
+  __INTEGER i__XKJH,i__HRSF;
+  __BOOLEAN result__WKJH,__tmp__CL3F,result__GRSF;
+  Self__ZKJH=((__STRING_CONSTANT *)Self__WK3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
+  result__WKJH=FALSE__;
+  i__XKJH= 0;
+  if ((((__STRING_CONSTANT *)(&__string_82))->count__DD <= Self__ZKJH->count__DD)) {
+    i__XKJH=((__STRING_CONSTANT *)(&__string_82))->count__DD;
+    while ((! ((i__XKJH ==  0) || (((__CHARACTER *)Self__ZKJH->storage__VQO)[(__INTEGER)(i__XKJH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_82))->storage__VQO)[(__INTEGER)(i__XKJH -  1)])))) {
+      i__XKJH=(__INTEGER)(i__XKJH -  1);
+    };
+    result__WKJH=(i__XKJH ==  0);
+  };
+  if (result__WKJH) {
+    append__BOS(buffer__XK3F,(&__string_245));
+    __tmp__CL3F=TRUE__;
   } else {
-    __tmp__KC3F=FALSE__;
+    __tmp__CL3F=FALSE__;
   };
-  if ((! __tmp__KC3F)) {
-    Self__QZ2F=((__STRING_CONSTANT *)Self__4B3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
-    result__TZ2F=FALSE__;
-    i__UZ2F= 0;
-    if ((((__STRING_CONSTANT *)(&__string_81))->count__DD <= Self__QZ2F->count__DD)) {
-      i__UZ2F=((__STRING_CONSTANT *)(&__string_81))->count__DD;
-      while ((! ((i__UZ2F ==  0) || (((__CHARACTER *)Self__QZ2F->storage__VQO)[(__INTEGER)(i__UZ2F -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_81))->storage__VQO)[(__INTEGER)(i__UZ2F -  1)])))) {
-        i__UZ2F=(__INTEGER)(i__UZ2F -  1);
+  if ((! __tmp__CL3F)) {
+    Self__DRSF=((__STRING_CONSTANT *)Self__WK3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
+    result__GRSF=FALSE__;
+    i__HRSF= 0;
+    if ((((__STRING_CONSTANT *)(&__string_81))->count__DD <= Self__DRSF->count__DD)) {
+      i__HRSF=((__STRING_CONSTANT *)(&__string_81))->count__DD;
+      while ((! ((i__HRSF ==  0) || (((__CHARACTER *)Self__DRSF->storage__VQO)[(__INTEGER)(i__HRSF -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_81))->storage__VQO)[(__INTEGER)(i__HRSF -  1)])))) {
+        i__HRSF=(__INTEGER)(i__HRSF -  1);
       };
-      result__TZ2F=(i__UZ2F ==  0);
+      result__GRSF=(i__HRSF ==  0);
     };
-    if (result__TZ2F) {
-      append__BOS(buffer__5B3F,(&__string_243));
+    if (result__GRSF) {
+      append__BOS(buffer__XK3F,(&__string_246));
     } else {
-      append__BOS(buffer__5B3F,(&__string_244));
+      append__BOS(buffer__XK3F,(&__string_247));
     };
   };
-  append__BOS(buffer__5B3F,Self__4B3F->pretty_name__V0HC);
-  add_last__ZLT(buffer__5B3F,'\'');
+  append__BOS(buffer__XK3F,Self__WK3F->pretty_name__V0HC);
+  add_last__ZLT(buffer__XK3F,'\'');
 }
 
-static void get_all_comment_slot__in__FW2E(__PROTOTYPE *Self__GW2E,void *n__HW2E,void *buf__IW2E)
+static void get_all_comment_slot__in__302E(__PROTOTYPE *Self__402E,void *n__502E,void *buf__A12E)
 // ({PROTOTYPE},{NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidRecursive, No inlinable.
 {
-  void *ps__KW2E,*__tmp__YX2E;
-  void *p__LW2E;
-  __INTEGER i__MW2E;
-  void *s__JW2E,*__tmp__NZ2E;
-  void *__tmp__UW2E,*__tmp__3W2E,*__tmp__XY2E,*__tmp__YY2E;
-  void *__tmp__LX2E;
-  __SECTION_ *Self__W3ZG;
-  void *__tmp__WX2E;
-  __BOOLEAN __tmp__XW2E,__tmp__PX2E;
-  ps__KW2E=NULL;
-  p__LW2E=NULL;
-  i__MW2E= 0;
-  s__JW2E=fast_reference_at__QAGC(Self__GW2E->slot_list__2US,n__HW2E);
-  if (((void *)s__JW2E != (void *)NULL)) {
-    if (((struct ___OBJ *)s__JW2E)->__id==__ITM_SLOT__) {
-      __tmp__UW2E=((__ITM_SLOT *)s__JW2E)->comment__WJJD;
-    } else {
-      __tmp__UW2E=((__ITM_SLOT_OPERATOR *)s__JW2E)->parent_itm_slot__OU5B.comment__WJJD;
-    };
-    __tmp__XW2E=((void *)__tmp__UW2E != (void *)NULL);
+  void *ps__C12E,*__tmp__Q22E;
+  void *p__D12E;
+  __INTEGER i__E12E;
+  void *s__B12E,*__tmp__F42E;
+  void *__tmp__M12E,*__tmp__V12E,*__tmp__P32E,*__tmp__Q32E;
+  void *__tmp__D22E;
+  __SECTION_ *Self__EH0G;
+  void *__tmp__O22E;
+  __BOOLEAN __tmp__P12E,__tmp__H22E;
+  ps__C12E=NULL;
+  p__D12E=NULL;
+  i__E12E= 0;
+  s__B12E=fast_reference_at__QAGC(Self__402E->slot_list__2US,n__502E);
+  if (((void *)s__B12E != (void *)NULL)) {
+    if (((struct ___OBJ *)s__B12E)->__id==__ITM_SLOT__) {
+      __tmp__M12E=((__ITM_SLOT *)s__B12E)->comment__WJJD;
+    } else {
+      __tmp__M12E=((__ITM_SLOT_OPERATOR *)s__B12E)->parent_itm_slot__OU5B.comment__WJJD;
+    };
+    __tmp__P12E=((void *)__tmp__M12E != (void *)NULL);
   } else {
-    __tmp__XW2E=FALSE__;
+    __tmp__P12E=FALSE__;
   };
-  if (__tmp__XW2E) {
-    if (((struct ___OBJ *)s__JW2E)->__id==__ITM_SLOT__) {
-      __tmp__3W2E=((__ITM_SLOT *)s__JW2E)->comment__WJJD;
+  if (__tmp__P12E) {
+    if (((struct ___OBJ *)s__B12E)->__id==__ITM_SLOT__) {
+      __tmp__V12E=((__ITM_SLOT *)s__B12E)->comment__WJJD;
     } else {
-      __tmp__3W2E=((__ITM_SLOT_OPERATOR *)s__JW2E)->parent_itm_slot__OU5B.comment__WJJD;
+      __tmp__V12E=((__ITM_SLOT_OPERATOR *)s__B12E)->parent_itm_slot__OU5B.comment__WJJD;
     };
-    append__BOS(buf__IW2E,__tmp__3W2E);
+    append__BOS(buf__A12E,__tmp__V12E);
   };
-  s__JW2E=Self__GW2E->first_slot__CGZB;
-  while_do__VREF:
+  s__B12E=Self__402E->first_slot__CGZB;
+  while_do__0WEF:
   {
-    if (((void *)s__JW2E != (void *)NULL)) {
-      if (((struct ___OBJ *)s__JW2E)->__id==__ITM_SLOT__) {
-        __tmp__LX2E=((__ITM_SLOT *)s__JW2E)->id_section__Y1C;
+    if (((void *)s__B12E != (void *)NULL)) {
+      if (((struct ___OBJ *)s__B12E)->__id==__ITM_SLOT__) {
+        __tmp__D22E=((__ITM_SLOT *)s__B12E)->id_section__Y1C;
       } else {
-        __tmp__LX2E=((__ITM_SLOT_OPERATOR *)s__JW2E)->parent_itm_slot__OU5B.id_section__Y1C;
+        __tmp__D22E=((__ITM_SLOT_OPERATOR *)s__B12E)->parent_itm_slot__OU5B.id_section__Y1C;
       };
-      Self__W3ZG=((__SECTION_ *)__tmp__LX2E);
-      __tmp__PX2E=(((void *)Self__W3ZG->name__CZDC == (void *)(&__string_23)) || ((void *)Self__W3ZG->name__CZDC == (void *)(&__string_24)));
+      Self__EH0G=((__SECTION_ *)__tmp__D22E);
+      __tmp__H22E=(((void *)Self__EH0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__EH0G->name__CZDC == (void *)(&__string_24)));
     } else {
-      __tmp__PX2E=FALSE__;
+      __tmp__H22E=FALSE__;
     };
-    if (__tmp__PX2E) {
-      if (((struct ___OBJ *)s__JW2E)->__id==__ITM_SLOT__) {
-        __tmp__WX2E=((__ITM_SLOT *)s__JW2E)->result_type__04FC;
+    if (__tmp__H22E) {
+      if (((struct ___OBJ *)s__B12E)->__id==__ITM_SLOT__) {
+        __tmp__O22E=((__ITM_SLOT *)s__B12E)->result_type__04FC;
       } else {
-        __tmp__WX2E=((__ITM_SLOT_OPERATOR *)s__JW2E)->parent_itm_slot__OU5B.result_type__04FC;
+        __tmp__O22E=((__ITM_SLOT_OPERATOR *)s__B12E)->parent_itm_slot__OU5B.result_type__04FC;
       };
-      if (__tmp__WX2E==NULL) {
-        __tmp__YX2E=NULL;
+      if (__tmp__O22E==NULL) {
+        __tmp__Q22E=NULL;
       } else {
-        switch (((struct ___OBJ *)__tmp__WX2E)->__id) {
+        switch (((struct ___OBJ *)__tmp__O22E)->__id) {
         case __ITM_TYPE_PARAMETER__: {
-          __tmp__YX2E=((void *)__tmp__WX2E);
+          __tmp__Q22E=((void *)__tmp__O22E);
         } break;
         case __ITM_TYPE_SIMPLE__: {
-          __tmp__YX2E=((void *)__tmp__WX2E);
+          __tmp__Q22E=((void *)__tmp__O22E);
         } break;
         case __ITM_TYPE_MULTI__: {
-          __tmp__YX2E=NULL;
+          __tmp__Q22E=NULL;
         } break;
         case __ITM_TYPE_BLOCK__: {
-          __tmp__YX2E=NULL;
+          __tmp__Q22E=NULL;
         } break;
         case __ITM_TYPE_GENERIC__: {
-          __tmp__YX2E=((void *)__tmp__WX2E);
+          __tmp__Q22E=((void *)__tmp__O22E);
         } break;
         case __ITM_TYPE_STYLE__: {
-          __tmp__YX2E=((void *)__tmp__WX2E);
+          __tmp__Q22E=((void *)__tmp__O22E);
         } break;
         }
       };
-      ps__KW2E=__tmp__YX2E;
-      if (((void *)__tmp__YX2E != (void *)NULL)) {
-        p__LW2E=NULL;
-        i__MW2E= 0;
-        while (((i__MW2E <= ((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ) && ((void *)p__LW2E == (void *)NULL))) {
-          __tmp__XY2E=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__MW2E])->parent_named__5.name__LI;
-          switch (((struct ___OBJ *)ps__KW2E)->__id) {
+      ps__C12E=__tmp__Q22E;
+      if (((void *)__tmp__Q22E != (void *)NULL)) {
+        p__D12E=NULL;
+        i__E12E= 0;
+        while (((i__E12E <= ((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ) && ((void *)p__D12E == (void *)NULL))) {
+          __tmp__P32E=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__E12E])->parent_named__5.name__LI;
+          switch (((struct ___OBJ *)ps__C12E)->__id) {
           case __ITM_TYPE_PARAMETER__: {
-            __tmp__YY2E=((__ITM_TYPE_PARAMETER *)ps__KW2E)->parent_itm_type__3DE.name__KYP;
+            __tmp__Q32E=((__ITM_TYPE_PARAMETER *)ps__C12E)->parent_itm_type__3DE.name__KYP;
           } break;
           case __ITM_TYPE_SIMPLE__: {
-            __tmp__YY2E=((__ITM_TYPE_SIMPLE *)ps__KW2E)->name__KYP;
+            __tmp__Q32E=((__ITM_TYPE_SIMPLE *)ps__C12E)->name__KYP;
           } break;
           case __ITM_TYPE_GENERIC__: {
-            __tmp__YY2E=((__ITM_TYPE_GENERIC *)ps__KW2E)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP;
+            __tmp__Q32E=((__ITM_TYPE_GENERIC *)ps__C12E)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP;
           } break;
           case __ITM_TYPE_STYLE__: {
-            __tmp__YY2E=((__ITM_TYPE_STYLE *)ps__KW2E)->parent_itm_type_simple__BSN.name__KYP;
+            __tmp__Q32E=((__ITM_TYPE_STYLE *)ps__C12E)->parent_itm_type_simple__BSN.name__KYP;
           } break;
           };
-          if (((void *)__tmp__XY2E == (void *)__tmp__YY2E)) {
-            p__LW2E=((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__MW2E];
+          if (((void *)__tmp__P32E == (void *)__tmp__Q32E)) {
+            p__D12E=((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__KTT)[i__E12E];
           };
-          i__MW2E=(__INTEGER)(i__MW2E +  1);
+          i__E12E=(__INTEGER)(i__E12E +  1);
         };
-        if (((void *)p__LW2E != (void *)NULL)) {
-          get_all_comment_slot__in__FW2E(p__LW2E,n__HW2E,buf__IW2E);
+        if (((void *)p__D12E != (void *)NULL)) {
+          get_all_comment_slot__in__302E(p__D12E,n__502E,buf__A12E);
         };
       };
-      if (((struct ___OBJ *)s__JW2E)->__id==__ITM_SLOT__) {
-        __tmp__NZ2E=((__ITM_SLOT *)s__JW2E)->next__OHHC;
+      if (((struct ___OBJ *)s__B12E)->__id==__ITM_SLOT__) {
+        __tmp__F42E=((__ITM_SLOT *)s__B12E)->next__OHHC;
       } else {
-        __tmp__NZ2E=((__ITM_SLOT_OPERATOR *)s__JW2E)->parent_itm_slot__OU5B.next__OHHC;
+        __tmp__F42E=((__ITM_SLOT_OPERATOR *)s__B12E)->parent_itm_slot__OU5B.next__OHHC;
       };
-      s__JW2E=__tmp__NZ2E;
-      goto while_do__VREF;
+      s__B12E=__tmp__F42E;
+      goto while_do__0WEF;
     };
   };
 }
@@ -16457,8 +16678,8 @@ static void append_in__OIH(__UINTEGER_32 Self__PIH,void *buffer__QIH)
 {
   __UINTEGER_32 val__RIH;
   __INTEGER i__UIH,j__VIH;
-  __STRING *Self__ZVFH;
-  __CHARACTER tmp__1VFH;
+  __STRING *Self__A4FH;
+  __CHARACTER tmp__C4FH;
   val__RIH= 0;
   i__UIH= 0;
   j__VIH= 0;
@@ -16473,306 +16694,341 @@ static void append_in__OIH(__UINTEGER_32 Self__PIH,void *buffer__QIH)
     };
     j__VIH=((__STRING *)buffer__QIH)->count__WFC;
     while ((i__UIH < j__VIH)) {
-      Self__ZVFH=((__STRING *)buffer__QIH);
-      tmp__1VFH=((__CHARACTER *)Self__ZVFH->storage__BCS)[(__INTEGER)(i__UIH -  1)];
-      ((__CHARACTER *)Self__ZVFH->storage__BCS)[(__INTEGER)(i__UIH -  1)]=((__CHARACTER *)Self__ZVFH->storage__BCS)[(__INTEGER)(j__VIH -  1)];
-      ((__CHARACTER *)Self__ZVFH->storage__BCS)[(__INTEGER)(j__VIH -  1)]=tmp__1VFH;
+      Self__A4FH=((__STRING *)buffer__QIH);
+      tmp__C4FH=((__CHARACTER *)Self__A4FH->storage__BCS)[(__INTEGER)(i__UIH -  1)];
+      ((__CHARACTER *)Self__A4FH->storage__BCS)[(__INTEGER)(i__UIH -  1)]=((__CHARACTER *)Self__A4FH->storage__BCS)[(__INTEGER)(j__VIH -  1)];
+      ((__CHARACTER *)Self__A4FH->storage__BCS)[(__INTEGER)(j__VIH -  1)]=tmp__C4FH;
       j__VIH=(__INTEGER)(j__VIH -  1);
       i__UIH=(__INTEGER)(i__UIH +  1);
     };
   };
 }
 
-static void shorter_profile_in__UD3F(__ITM_SLOT *Self__VD3F,void *buf__WD3F)
+static void append_in__MM3F(__SECTION_ *Self__NM3F,void *buf__OM3F)
+// ({SECTION_},{NULLxSTRING}) VoidNo recursive, No inlinable.
+{
+  __INTEGER __tmp__BN3F,Self__P2BG;
+  void *__tmp__IN3F,*__tmp__LN3F;
+  __ITM_TYPE_STYLE *Self__JEEH,*Self__LEEH;
+  __FAST_ARRAYoITM_TYPE_MONOo *Self__J4FH;
+  if (((void *)Self__NM3F->name__CZDC != (void *)NULL)) {
+    append__BOS(buf__OM3F,Self__NM3F->name__CZDC);
+  } else {
+    __tmp__BN3F=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NM3F->type_list__RXFC)->parent_arrayed_collection__ZXC.upper__KIV -  1);
+    Self__P2BG= 0;
+    while ((Self__P2BG <= __tmp__BN3F)) {
+      __tmp__IN3F=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NM3F->type_list__RXFC)->parent_arrayed_collection__ZXC.storage__RMV)[Self__P2BG];
+      switch (((struct ___OBJ *)__tmp__IN3F)->__id) {
+      case __ITM_TYPE_PARAMETER__: {
+        append__BOS(buf__OM3F,((__ITM_TYPE_PARAMETER *)__tmp__IN3F)->parent_itm_type__3DE.name__KYP);
+      } break;
+      case __ITM_TYPE_SIMPLE__: {
+        append__BOS(buf__OM3F,((__ITM_TYPE_SIMPLE *)__tmp__IN3F)->name__KYP);
+      } break;
+      case __ITM_TYPE_BLOCK__: {
+        append_in__OGPD(__tmp__IN3F,buf__OM3F);
+      } break;
+      case __ITM_TYPE_GENERIC__: {
+        append_in__SHPD(__tmp__IN3F,buf__OM3F);
+      } break;
+      case __ITM_TYPE_STYLE__: {
+        Self__JEEH=((__ITM_TYPE_STYLE *)__tmp__IN3F);
+        if (((void *)Self__JEEH->style__TYP != (void *)NULL)) {
+          append__BOS(buf__OM3F,Self__JEEH->style__TYP);
+          add_last__ZLT(buf__OM3F,' ');
+        };
+        append__BOS(buf__OM3F,Self__JEEH->parent_itm_type_simple__BSN.name__KYP);
+      } break;
+      };
+      add_last__ZLT(buf__OM3F,',');
+      add_last__ZLT(buf__OM3F,' ');
+      Self__P2BG=(__INTEGER)(Self__P2BG +  1);
+    };
+    Self__J4FH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NM3F->type_list__RXFC);
+    __tmp__LN3F=((void **)Self__J4FH->parent_arrayed_collection__ZXC.storage__RMV)[Self__J4FH->parent_arrayed_collection__ZXC.upper__KIV];
+    switch (((struct ___OBJ *)__tmp__LN3F)->__id) {
+    case __ITM_TYPE_PARAMETER__: {
+      append__BOS(buf__OM3F,((__ITM_TYPE_PARAMETER *)__tmp__LN3F)->parent_itm_type__3DE.name__KYP);
+    } break;
+    case __ITM_TYPE_SIMPLE__: {
+      append__BOS(buf__OM3F,((__ITM_TYPE_SIMPLE *)__tmp__LN3F)->name__KYP);
+    } break;
+    case __ITM_TYPE_BLOCK__: {
+      append_in__OGPD(__tmp__LN3F,buf__OM3F);
+    } break;
+    case __ITM_TYPE_GENERIC__: {
+      append_in__SHPD(__tmp__LN3F,buf__OM3F);
+    } break;
+    case __ITM_TYPE_STYLE__: {
+      Self__LEEH=((__ITM_TYPE_STYLE *)__tmp__LN3F);
+      if (((void *)Self__LEEH->style__TYP != (void *)NULL)) {
+        append__BOS(buf__OM3F,Self__LEEH->style__TYP);
+        add_last__ZLT(buf__OM3F,' ');
+      };
+      append__BOS(buf__OM3F,Self__LEEH->parent_itm_type_simple__BSN.name__KYP);
+    } break;
+    };
+  };
+}
+
+static void shorter_profile_in__ON3F(__ITM_SLOT *Self__PN3F,void *buf__QN3F)
 // ({ITM_SLOT},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER j__XH4F,i__YH4F;
-  void *__tmp__3H4F,*__tmp__FJ4F,*__tmp__FK4F;
-  __STRING_CONSTANT *Self__S1DH;
-  void *__tmp__OE3F;
-  __ITM_TYPE_PARAMETER *Self__ADCH;
-  __ITM_TYPE_SIMPLE *Self__CDCH;
-  __ITM_TYPE_MULTI *Self__E4ZG;
-  __ITM_TYPE_STYLE *Self__1CHH;
-  __FAST_ARRAYoITM_ARGUMENTo *Self__U1DH;
-  if ((Self__VD3F->parent_named__P5.style__BEU == '+')) {
-    put__to__like__PT5F((&__string_245),buf__WD3F,(&__string_132));
+  __INTEGER j__NR4F,i__OR4F;
+  void *__tmp__TR4F,*__tmp__1S4F,*__tmp__1T4F;
+  __STRING_CONSTANT *Self__3EEH;
+  void *__tmp__IO3F;
+  __ITM_TYPE_MULTI *Self__0H0G;
+  __ITM_TYPE_STYLE *Self__HFEH;
+  __FAST_ARRAYoITM_ARGUMENTo *Self__5EEH;
+  if ((Self__PN3F->parent_named__P5.style__BEU == '+')) {
+    put__to__like__U25F((&__string_248),buf__QN3F,(&__string_132));
   } else {
-    put__to__like__PT5F((&__string_246),buf__WD3F,(&__string_132));
+    put__to__like__U25F((&__string_249),buf__QN3F,(&__string_132));
   };
   ((__STRING *)string_tmp__VH)->count__WFC= 0;
-  j__XH4F= 1;
-  __tmp__3H4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__VD3F->argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
-  if (((struct ___OBJ *)__tmp__3H4F)->__id==__ITM_ARG__) {
-    shorter_in__QQ5F(__tmp__3H4F,buf__WD3F);
+  j__NR4F= 1;
+  __tmp__TR4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__PN3F->argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
+  if (((struct ___OBJ *)__tmp__TR4F)->__id==__ITM_ARG__) {
+    shorter_in__VZ5F(__tmp__TR4F,buf__QN3F);
   } else {
-    shorter_in__HR5F(__tmp__3H4F,buf__WD3F);
+    shorter_in__M05F(__tmp__TR4F,buf__QN3F);
   };
-  add_last__ZLT(buf__WD3F,'.');
-  i__YH4F= 1;
-  while ((j__XH4F < ((__STRING_CONSTANT *)Self__VD3F->parent_named__P5.name__LI)->count__DD)) {
-    if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__VD3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__XH4F -  1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__VD3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)((__INTEGER)(j__XH4F +  1) -  1)] == '_'))) {
-      put__to__like__PT5F(string_tmp__VH,buf__WD3F,(&__string_130));
-      add_last__ZLT(buf__WD3F,' ');
-      __tmp__FJ4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__VD3F->argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[i__YH4F];
-      if (((struct ___OBJ *)__tmp__FJ4F)->__id==__ITM_ARG__) {
-        shorter_in__QQ5F(__tmp__FJ4F,buf__WD3F);
+  add_last__ZLT(buf__QN3F,'.');
+  i__OR4F= 1;
+  while ((j__NR4F < ((__STRING_CONSTANT *)Self__PN3F->parent_named__P5.name__LI)->count__DD)) {
+    if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__PN3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__NR4F -  1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__PN3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)((__INTEGER)(j__NR4F +  1) -  1)] == '_'))) {
+      put__to__like__U25F(string_tmp__VH,buf__QN3F,(&__string_130));
+      add_last__ZLT(buf__QN3F,' ');
+      __tmp__1S4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__PN3F->argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[i__OR4F];
+      if (((struct ___OBJ *)__tmp__1S4F)->__id==__ITM_ARG__) {
+        shorter_in__VZ5F(__tmp__1S4F,buf__QN3F);
       } else {
-        shorter_in__HR5F(__tmp__FJ4F,buf__WD3F);
+        shorter_in__M05F(__tmp__1S4F,buf__QN3F);
       };
-      add_last__ZLT(buf__WD3F,' ');
+      add_last__ZLT(buf__QN3F,' ');
       ((__STRING *)string_tmp__VH)->count__WFC= 0;
-      j__XH4F=(__INTEGER)(j__XH4F +  2);
-      i__YH4F=(__INTEGER)(i__YH4F +  1);
+      j__NR4F=(__INTEGER)(j__NR4F +  2);
+      i__OR4F=(__INTEGER)(i__OR4F +  1);
     } else {
-      add_last__ZLT(string_tmp__VH,((__CHARACTER *)((__STRING_CONSTANT *)Self__VD3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__XH4F -  1)]);
-      j__XH4F=(__INTEGER)(j__XH4F +  1);
+      add_last__ZLT(string_tmp__VH,((__CHARACTER *)((__STRING_CONSTANT *)Self__PN3F->parent_named__P5.name__LI)->storage__VQO)[(__INTEGER)(j__NR4F -  1)]);
+      j__NR4F=(__INTEGER)(j__NR4F +  1);
     };
   };
-  Self__S1DH=((__STRING_CONSTANT *)Self__VD3F->parent_named__P5.name__LI);
-  add_last__ZLT(string_tmp__VH,((__CHARACTER *)Self__S1DH->storage__VQO)[(__INTEGER)(Self__S1DH->count__DD -  1)]);
-  put__to__like__PT5F(string_tmp__VH,buf__WD3F,(&__string_130));
-  if ((i__YH4F <= ((__FAST_ARRAYoITM_ARGUMENTo *)Self__VD3F->argument_list__GEHC)->parent_arrayed_collection__FCZB.upper__45GC)) {
-    add_last__ZLT(buf__WD3F,' ');
-    Self__U1DH=((__FAST_ARRAYoITM_ARGUMENTo *)Self__VD3F->argument_list__GEHC);
-    __tmp__FK4F=((void **)Self__U1DH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__U1DH->parent_arrayed_collection__FCZB.upper__45GC];
-    if (((struct ___OBJ *)__tmp__FK4F)->__id==__ITM_ARG__) {
-      shorter_in__QQ5F(__tmp__FK4F,buf__WD3F);
+  Self__3EEH=((__STRING_CONSTANT *)Self__PN3F->parent_named__P5.name__LI);
+  add_last__ZLT(string_tmp__VH,((__CHARACTER *)Self__3EEH->storage__VQO)[(__INTEGER)(Self__3EEH->count__DD -  1)]);
+  put__to__like__U25F(string_tmp__VH,buf__QN3F,(&__string_130));
+  if ((i__OR4F <= ((__FAST_ARRAYoITM_ARGUMENTo *)Self__PN3F->argument_list__GEHC)->parent_arrayed_collection__FCZB.upper__45GC)) {
+    add_last__ZLT(buf__QN3F,' ');
+    Self__5EEH=((__FAST_ARRAYoITM_ARGUMENTo *)Self__PN3F->argument_list__GEHC);
+    __tmp__1T4F=((void **)Self__5EEH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__5EEH->parent_arrayed_collection__FCZB.upper__45GC];
+    if (((struct ___OBJ *)__tmp__1T4F)->__id==__ITM_ARG__) {
+      shorter_in__VZ5F(__tmp__1T4F,buf__QN3F);
     } else {
-      shorter_in__HR5F(__tmp__FK4F,buf__WD3F);
+      shorter_in__M05F(__tmp__1T4F,buf__QN3F);
     };
-    add_last__ZLT(buf__WD3F,' ');
+    add_last__ZLT(buf__QN3F,' ');
   };
-  if (((void *)Self__VD3F->result_type__04FC != (void *)type_void__4VF)) {
-    add_last__ZLT(buf__WD3F,':');
-    __tmp__OE3F=Self__VD3F->result_type__04FC;
-    switch (((struct ___OBJ *)__tmp__OE3F)->__id) {
+  if (((void *)Self__PN3F->result_type__04FC != (void *)type_void__4VF)) {
+    add_last__ZLT(buf__QN3F,':');
+    __tmp__IO3F=Self__PN3F->result_type__04FC;
+    switch (((struct ___OBJ *)__tmp__IO3F)->__id) {
     case __ITM_TYPE_PARAMETER__: {
-      Self__ADCH=((__ITM_TYPE_PARAMETER *)__tmp__OE3F);
-      if (((void *)Self__ADCH == (void *)type_self__HUN)) {
-        put__to__like__QCFG(Self__ADCH->parent_itm_type__3DE.name__KYP,buf__WD3F,(&__string_126));
-      } else {
-        put__to__like__QCFG(Self__ADCH->parent_itm_type__3DE.name__KYP,buf__WD3F,(&__string_125));
-      };
+      shorter_in__S3BG(__tmp__IO3F,buf__QN3F);
     } break;
     case __ITM_TYPE_SIMPLE__: {
-      Self__CDCH=((__ITM_TYPE_SIMPLE *)__tmp__OE3F);
-      if (((void *)Self__CDCH == (void *)type_self__HUN)) {
-        put__to__like__HEFG(Self__CDCH->name__KYP,buf__WD3F,(&__string_126));
-      } else {
-        put__to__like__HEFG(Self__CDCH->name__KYP,buf__WD3F,(&__string_125));
-      };
+      shorter_in__D4BG(__tmp__IO3F,buf__QN3F);
     } break;
     case __ITM_TYPE_MULTI__: {
-      Self__E4ZG=((__ITM_TYPE_MULTI *)__tmp__OE3F);
-      add_last__ZLT(buf__WD3F,'(');
-      shorter_raw_in__U1DG(Self__E4ZG,buf__WD3F);
-      add_last__ZLT(buf__WD3F,')');
+      Self__0H0G=((__ITM_TYPE_MULTI *)__tmp__IO3F);
+      add_last__ZLT(buf__QN3F,'(');
+      shorter_raw_in__JIEG(Self__0H0G,buf__QN3F);
+      add_last__ZLT(buf__QN3F,')');
     } break;
     case __ITM_TYPE_BLOCK__: {
-      shorter_in__YVBG(__tmp__OE3F,buf__WD3F);
+      shorter_in__U4BG(__tmp__IO3F,buf__QN3F);
     } break;
     case __ITM_TYPE_GENERIC__: {
-      shorter_in__AXBG(__tmp__OE3F,buf__WD3F);
+      shorter_in__25BG(__tmp__IO3F,buf__QN3F);
     } break;
     case __ITM_TYPE_STYLE__: {
-      Self__1CHH=((__ITM_TYPE_STYLE *)__tmp__OE3F);
-      if (((void *)Self__1CHH->style__TYP != (void *)NULL)) {
-        put__to__like__MGFG(Self__1CHH->style__TYP,buf__WD3F,(&__string_119));
-        add_last__ZLT(buf__WD3F,' ');
-      };
-      if (((void *)Self__1CHH == (void *)type_self__HUN)) {
-        put__to__like__MGFG(Self__1CHH->parent_itm_type_simple__BSN.name__KYP,buf__WD3F,(&__string_126));
-      } else {
-        put__to__like__MGFG(Self__1CHH->parent_itm_type_simple__BSN.name__KYP,buf__WD3F,(&__string_125));
+      Self__HFEH=((__ITM_TYPE_STYLE *)__tmp__IO3F);
+      if (((void *)Self__HFEH->style__TYP != (void *)NULL)) {
+        put__to__like__MGEG(Self__HFEH->style__TYP,buf__QN3F,(&__string_119));
+        add_last__ZLT(buf__QN3F,' ');
       };
+      put__to__like__MGEG(Self__HFEH->parent_itm_type_simple__BSN.name__KYP,buf__QN3F,(&__string_125));
     } break;
     };
   };
 }
 
-static void shorter_profile_in__RE3F(__ITM_SLOT_OPERATOR *Self__SE3F,void *buf__TE3F)
+static void shorter_profile_in__LO3F(__ITM_SLOT_OPERATOR *Self__MO3F,void *buf__NO3F)
 // ({ITM_SLOT_OPERATOR},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__ADHH,*Self__FDHH;
-  __INTEGER i__4CHH,i__DDHH,Self__T4KG,result__V4KG,i__FALG,j__GALG;
-  void *__tmp__HL4F,*__tmp__2L4F,*__tmp__SM4F,*__tmp__2M4F;
-  void *result__3XKG;
-  __INTEGER_32 Self__05KG,val__CALG;
+  __STRING_CONSTANT *Self__LLHH,*Self__QLHH;
+  __INTEGER i__JLHH,i__OLHH,Self__LGLG,result__NGLG,i__3HLG,j__4HLG;
+  void *__tmp__3U4F,*__tmp__SV4F,*__tmp__IW4F,*__tmp__SW4F;
+  void *result__N5KG;
+  __INTEGER_32 Self__SHLG,val__0HLG;
   __STRING *Self__AYFB;
-  void *__tmp__LF3F;
-  __ITM_TYPE_PARAMETER *Self__UDCH;
-  __ITM_TYPE_SIMPLE *Self__WDCH;
-  __ITM_TYPE_MULTI *Self__Q1BG;
-  __ITM_TYPE_STYLE *Self__HDHH;
-  __BOOLEAN result__3CHH,__tmp__ML4F,result__CDHH;
+  void *__tmp__FP3F;
+  __ITM_TYPE_MULTI *Self__2DCG;
+  __ITM_TYPE_STYLE *Self__JFEH;
+  __BOOLEAN result__ILHH,__tmp__CV4F,result__NLHH;
   __CHARACTER tmp__DYFB;
-  if ((Self__SE3F->parent_itm_slot__OU5B.parent_named__P5.style__BEU == '+')) {
-    put__to__like__X1BG((&__string_245),buf__TE3F,(&__string_132));
+  if ((Self__MO3F->parent_itm_slot__OU5B.parent_named__P5.style__BEU == '+')) {
+    put__to__like__DECG((&__string_248),buf__NO3F,(&__string_132));
   } else {
-    put__to__like__X1BG((&__string_246),buf__TE3F,(&__string_132));
-  };
-  Self__ADHH=((__STRING_CONSTANT *)Self__SE3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
-  result__3CHH=FALSE__;
-  i__4CHH= 0;
-  if ((((__STRING_CONSTANT *)(&__string_82))->count__DD <= Self__ADHH->count__DD)) {
-    i__4CHH=((__STRING_CONSTANT *)(&__string_82))->count__DD;
-    while ((! ((i__4CHH ==  0) || (((__CHARACTER *)Self__ADHH->storage__VQO)[(__INTEGER)(i__4CHH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_82))->storage__VQO)[(__INTEGER)(i__4CHH -  1)])))) {
-      i__4CHH=(__INTEGER)(i__4CHH -  1);
-    };
-    result__3CHH=(i__4CHH ==  0);
-  };
-  if (result__3CHH) {
-    __tmp__HL4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__SE3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
-    if (((struct ___OBJ *)__tmp__HL4F)->__id==__ITM_ARG__) {
-      shorter_in__QQ5F(__tmp__HL4F,buf__TE3F);
-    } else {
-      shorter_in__HR5F(__tmp__HL4F,buf__TE3F);
-    };
-    add_last__ZLT(buf__TE3F,' ');
-    add_last__ZLT(buf__TE3F,'\'');
-    put__to__like__X1BG(Self__SE3F->pretty_name__V0HC,buf__TE3F,(&__string_130));
-    add_last__ZLT(buf__TE3F,'\'');
-    add_last__ZLT(buf__TE3F,' ');
-    __tmp__ML4F=TRUE__;
+    put__to__like__DECG((&__string_249),buf__NO3F,(&__string_132));
+  };
+  Self__LLHH=((__STRING_CONSTANT *)Self__MO3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
+  result__ILHH=FALSE__;
+  i__JLHH= 0;
+  if ((((__STRING_CONSTANT *)(&__string_82))->count__DD <= Self__LLHH->count__DD)) {
+    i__JLHH=((__STRING_CONSTANT *)(&__string_82))->count__DD;
+    while ((! ((i__JLHH ==  0) || (((__CHARACTER *)Self__LLHH->storage__VQO)[(__INTEGER)(i__JLHH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_82))->storage__VQO)[(__INTEGER)(i__JLHH -  1)])))) {
+      i__JLHH=(__INTEGER)(i__JLHH -  1);
+    };
+    result__ILHH=(i__JLHH ==  0);
+  };
+  if (result__ILHH) {
+    __tmp__3U4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__MO3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
+    if (((struct ___OBJ *)__tmp__3U4F)->__id==__ITM_ARG__) {
+      shorter_in__VZ5F(__tmp__3U4F,buf__NO3F);
+    } else {
+      shorter_in__M05F(__tmp__3U4F,buf__NO3F);
+    };
+    add_last__ZLT(buf__NO3F,' ');
+    add_last__ZLT(buf__NO3F,'\'');
+    put__to__like__DECG(Self__MO3F->pretty_name__V0HC,buf__NO3F,(&__string_130));
+    add_last__ZLT(buf__NO3F,'\'');
+    add_last__ZLT(buf__NO3F,' ');
+    __tmp__CV4F=TRUE__;
   } else {
-    __tmp__ML4F=FALSE__;
-  };
-  if ((! __tmp__ML4F)) {
-    Self__FDHH=((__STRING_CONSTANT *)Self__SE3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
-    result__CDHH=FALSE__;
-    i__DDHH= 0;
-    if ((((__STRING_CONSTANT *)(&__string_81))->count__DD <= Self__FDHH->count__DD)) {
-      i__DDHH=((__STRING_CONSTANT *)(&__string_81))->count__DD;
-      while ((! ((i__DDHH ==  0) || (((__CHARACTER *)Self__FDHH->storage__VQO)[(__INTEGER)(i__DDHH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_81))->storage__VQO)[(__INTEGER)(i__DDHH -  1)])))) {
-        i__DDHH=(__INTEGER)(i__DDHH -  1);
-      };
-      result__CDHH=(i__DDHH ==  0);
-    };
-    if (result__CDHH) {
-      __tmp__2L4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__SE3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
-      if (((struct ___OBJ *)__tmp__2L4F)->__id==__ITM_ARG__) {
-        shorter_in__QQ5F(__tmp__2L4F,buf__TE3F);
-      } else {
-        shorter_in__HR5F(__tmp__2L4F,buf__TE3F);
-      };
-      add_last__ZLT(buf__TE3F,' ');
-      add_last__ZLT(buf__TE3F,'\'');
-      put__to__like__X1BG(Self__SE3F->pretty_name__V0HC,buf__TE3F,(&__string_130));
-      add_last__ZLT(buf__TE3F,'\'');
-      if ((Self__SE3F->priority_and_level__K0HC !=  0)) {
-        add_last__ZLT(buf__TE3F,' ');
-        result__3XKG=NULL;
-        if ((Self__SE3F->priority_and_level__K0HC >=  0)) {
-          result__3XKG=(&__string_6);
-        } else {
-          result__3XKG=(&__string_5);
-        };
-        put__to__like__X1BG(result__3XKG,buf__TE3F,(&__string_119));
-        add_last__ZLT(buf__TE3F,' ');
+    __tmp__CV4F=FALSE__;
+  };
+  if ((! __tmp__CV4F)) {
+    Self__QLHH=((__STRING_CONSTANT *)Self__MO3F->parent_itm_slot__OU5B.parent_named__P5.name__LI);
+    result__NLHH=FALSE__;
+    i__OLHH= 0;
+    if ((((__STRING_CONSTANT *)(&__string_81))->count__DD <= Self__QLHH->count__DD)) {
+      i__OLHH=((__STRING_CONSTANT *)(&__string_81))->count__DD;
+      while ((! ((i__OLHH ==  0) || (((__CHARACTER *)Self__QLHH->storage__VQO)[(__INTEGER)(i__OLHH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_81))->storage__VQO)[(__INTEGER)(i__OLHH -  1)])))) {
+        i__OLHH=(__INTEGER)(i__OLHH -  1);
+      };
+      result__NLHH=(i__OLHH ==  0);
+    };
+    if (result__NLHH) {
+      __tmp__SV4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__MO3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
+      if (((struct ___OBJ *)__tmp__SV4F)->__id==__ITM_ARG__) {
+        shorter_in__VZ5F(__tmp__SV4F,buf__NO3F);
+      } else {
+        shorter_in__M05F(__tmp__SV4F,buf__NO3F);
+      };
+      add_last__ZLT(buf__NO3F,' ');
+      add_last__ZLT(buf__NO3F,'\'');
+      put__to__like__DECG(Self__MO3F->pretty_name__V0HC,buf__NO3F,(&__string_130));
+      add_last__ZLT(buf__NO3F,'\'');
+      if ((Self__MO3F->priority_and_level__K0HC !=  0)) {
+        add_last__ZLT(buf__NO3F,' ');
+        result__N5KG=NULL;
+        if ((Self__MO3F->priority_and_level__K0HC >=  0)) {
+          result__N5KG=(&__string_6);
+        } else {
+          result__N5KG=(&__string_5);
+        };
+        put__to__like__DECG(result__N5KG,buf__NO3F,(&__string_119));
+        add_last__ZLT(buf__NO3F,' ');
         ((__STRING *)string_tmp__VH)->count__WFC= 0;
-        Self__T4KG=Self__SE3F->priority_and_level__K0HC;
-        result__V4KG= 0;
-        if ((Self__T4KG <  0)) {
-          result__V4KG=(__INTEGER)(- Self__T4KG);
-        } else {
-          result__V4KG=Self__T4KG;
-        };
-        Self__05KG=((__INTEGER_32 )result__V4KG);
-        val__CALG= 0;
-        i__FALG= 0;
-        j__GALG= 0;
-        if ((Self__05KG ==  0)) {
+        Self__LGLG=Self__MO3F->priority_and_level__K0HC;
+        result__NGLG= 0;
+        if ((Self__LGLG <  0)) {
+          result__NGLG=(__INTEGER)(- Self__LGLG);
+        } else {
+          result__NGLG=Self__LGLG;
+        };
+        Self__SHLG=((__INTEGER_32 )result__NGLG);
+        val__0HLG= 0;
+        i__3HLG= 0;
+        j__4HLG= 0;
+        if ((Self__SHLG ==  0)) {
           add_last__ZLT(((__STRING *)string_tmp__VH),'0');
         } else {
-          if ((Self__05KG >  0)) {
-            val__CALG=Self__05KG;
+          if ((Self__SHLG >  0)) {
+            val__0HLG=Self__SHLG;
           } else {
-            val__CALG=(__INTEGER_32)(- Self__05KG);
+            val__0HLG=(__INTEGER_32)(- Self__SHLG);
             add_last__ZLT(((__STRING *)string_tmp__VH),'-');
           };
-          i__FALG=(__INTEGER)(((__STRING *)string_tmp__VH)->count__WFC +  1);
-          while ((val__CALG !=  0)) {
-            add_last__ZLT(((__STRING *)string_tmp__VH),((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__CALG %  10)) + ((__INTEGER_8 )'0'))))));
-            val__CALG=(__INTEGER_32)(val__CALG /  10);
+          i__3HLG=(__INTEGER)(((__STRING *)string_tmp__VH)->count__WFC +  1);
+          while ((val__0HLG !=  0)) {
+            add_last__ZLT(((__STRING *)string_tmp__VH),((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__0HLG %  10)) + ((__INTEGER_8 )'0'))))));
+            val__0HLG=(__INTEGER_32)(val__0HLG /  10);
           };
-          j__GALG=((__STRING *)string_tmp__VH)->count__WFC;
-          while ((i__FALG < j__GALG)) {
+          j__4HLG=((__STRING *)string_tmp__VH)->count__WFC;
+          while ((i__3HLG < j__4HLG)) {
             Self__AYFB=((__STRING *)string_tmp__VH);
-            tmp__DYFB=((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(i__FALG -  1)];
-            ((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(i__FALG -  1)]=((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(j__GALG -  1)];
-            ((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(j__GALG -  1)]=tmp__DYFB;
-            j__GALG=(__INTEGER)(j__GALG -  1);
-            i__FALG=(__INTEGER)(i__FALG +  1);
+            tmp__DYFB=((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(i__3HLG -  1)];
+            ((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(i__3HLG -  1)]=((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(j__4HLG -  1)];
+            ((__CHARACTER *)Self__AYFB->storage__BCS)[(__INTEGER)(j__4HLG -  1)]=tmp__DYFB;
+            j__4HLG=(__INTEGER)(j__4HLG -  1);
+            i__3HLG=(__INTEGER)(i__3HLG +  1);
           };
         };
-        put__to__like__X1BG(string_tmp__VH,buf__TE3F,(&__string_119));
+        put__to__like__DECG(string_tmp__VH,buf__NO3F,(&__string_119));
       };
-      add_last__ZLT(buf__TE3F,' ');
-      __tmp__SM4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__SE3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 1];
-      if (((struct ___OBJ *)__tmp__SM4F)->__id==__ITM_ARG__) {
-        shorter_in__QQ5F(__tmp__SM4F,buf__TE3F);
+      add_last__ZLT(buf__NO3F,' ');
+      __tmp__IW4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__MO3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 1];
+      if (((struct ___OBJ *)__tmp__IW4F)->__id==__ITM_ARG__) {
+        shorter_in__VZ5F(__tmp__IW4F,buf__NO3F);
       } else {
-        shorter_in__HR5F(__tmp__SM4F,buf__TE3F);
+        shorter_in__M05F(__tmp__IW4F,buf__NO3F);
       };
-      add_last__ZLT(buf__TE3F,' ');
+      add_last__ZLT(buf__NO3F,' ');
     } else {
-      add_last__ZLT(buf__TE3F,'\'');
-      put__to__like__X1BG(Self__SE3F->pretty_name__V0HC,buf__TE3F,(&__string_130));
-      add_last__ZLT(buf__TE3F,'\'');
-      add_last__ZLT(buf__TE3F,' ');
-      __tmp__2M4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__SE3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
-      if (((struct ___OBJ *)__tmp__2M4F)->__id==__ITM_ARG__) {
-        shorter_in__QQ5F(__tmp__2M4F,buf__TE3F);
+      add_last__ZLT(buf__NO3F,'\'');
+      put__to__like__DECG(Self__MO3F->pretty_name__V0HC,buf__NO3F,(&__string_130));
+      add_last__ZLT(buf__NO3F,'\'');
+      add_last__ZLT(buf__NO3F,' ');
+      __tmp__SW4F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__MO3F->parent_itm_slot__OU5B.argument_list__GEHC)->parent_arrayed_collection__FCZB.storage__2AHC)[ 0];
+      if (((struct ___OBJ *)__tmp__SW4F)->__id==__ITM_ARG__) {
+        shorter_in__VZ5F(__tmp__SW4F,buf__NO3F);
       } else {
-        shorter_in__HR5F(__tmp__2M4F,buf__TE3F);
+        shorter_in__M05F(__tmp__SW4F,buf__NO3F);
       };
-      add_last__ZLT(buf__TE3F,' ');
+      add_last__ZLT(buf__NO3F,' ');
     };
   };
-  if (((void *)Self__SE3F->parent_itm_slot__OU5B.result_type__04FC != (void *)type_void__4VF)) {
-    add_last__ZLT(buf__TE3F,':');
-    __tmp__LF3F=Self__SE3F->parent_itm_slot__OU5B.result_type__04FC;
-    switch (((struct ___OBJ *)__tmp__LF3F)->__id) {
+  if (((void *)Self__MO3F->parent_itm_slot__OU5B.result_type__04FC != (void *)type_void__4VF)) {
+    add_last__ZLT(buf__NO3F,':');
+    __tmp__FP3F=Self__MO3F->parent_itm_slot__OU5B.result_type__04FC;
+    switch (((struct ___OBJ *)__tmp__FP3F)->__id) {
     case __ITM_TYPE_PARAMETER__: {
-      Self__UDCH=((__ITM_TYPE_PARAMETER *)__tmp__LF3F);
-      if (((void *)Self__UDCH == (void *)type_self__HUN)) {
-        put__to__like__QCFG(Self__UDCH->parent_itm_type__3DE.name__KYP,buf__TE3F,(&__string_126));
-      } else {
-        put__to__like__QCFG(Self__UDCH->parent_itm_type__3DE.name__KYP,buf__TE3F,(&__string_125));
-      };
+      shorter_in__S3BG(__tmp__FP3F,buf__NO3F);
     } break;
     case __ITM_TYPE_SIMPLE__: {
-      Self__WDCH=((__ITM_TYPE_SIMPLE *)__tmp__LF3F);
-      if (((void *)Self__WDCH == (void *)type_self__HUN)) {
-        put__to__like__HEFG(Self__WDCH->name__KYP,buf__TE3F,(&__string_126));
-      } else {
-        put__to__like__HEFG(Self__WDCH->name__KYP,buf__TE3F,(&__string_125));
-      };
+      shorter_in__D4BG(__tmp__FP3F,buf__NO3F);
     } break;
     case __ITM_TYPE_MULTI__: {
-      Self__Q1BG=((__ITM_TYPE_MULTI *)__tmp__LF3F);
-      add_last__ZLT(buf__TE3F,'(');
-      shorter_raw_in__U1DG(Self__Q1BG,buf__TE3F);
-      add_last__ZLT(buf__TE3F,')');
+      Self__2DCG=((__ITM_TYPE_MULTI *)__tmp__FP3F);
+      add_last__ZLT(buf__NO3F,'(');
+      shorter_raw_in__JIEG(Self__2DCG,buf__NO3F);
+      add_last__ZLT(buf__NO3F,')');
     } break;
     case __ITM_TYPE_BLOCK__: {
-      shorter_in__YVBG(__tmp__LF3F,buf__TE3F);
+      shorter_in__U4BG(__tmp__FP3F,buf__NO3F);
     } break;
     case __ITM_TYPE_GENERIC__: {
-      shorter_in__AXBG(__tmp__LF3F,buf__TE3F);
+      shorter_in__25BG(__tmp__FP3F,buf__NO3F);
     } break;
     case __ITM_TYPE_STYLE__: {
-      Self__HDHH=((__ITM_TYPE_STYLE *)__tmp__LF3F);
-      if (((void *)Self__HDHH->style__TYP != (void *)NULL)) {
-        put__to__like__MGFG(Self__HDHH->style__TYP,buf__TE3F,(&__string_119));
-        add_last__ZLT(buf__TE3F,' ');
-      };
-      if (((void *)Self__HDHH == (void *)type_self__HUN)) {
-        put__to__like__MGFG(Self__HDHH->parent_itm_type_simple__BSN.name__KYP,buf__TE3F,(&__string_126));
-      } else {
-        put__to__like__MGFG(Self__HDHH->parent_itm_type_simple__BSN.name__KYP,buf__TE3F,(&__string_125));
+      Self__JFEH=((__ITM_TYPE_STYLE *)__tmp__FP3F);
+      if (((void *)Self__JFEH->style__TYP != (void *)NULL)) {
+        put__to__like__MGEG(Self__JFEH->style__TYP,buf__NO3F,(&__string_119));
+        add_last__ZLT(buf__NO3F,' ');
       };
+      put__to__like__MGEG(Self__JFEH->parent_itm_type_simple__BSN.name__KYP,buf__NO3F,(&__string_125));
     } break;
     };
   };
@@ -16781,57 +17037,57 @@ static void shorter_profile_in__RE3F(__ITM_SLOT_OPERATOR *Self__SE3F,void *buf__
 static __CHARACTER* create__BMEB(__INTEGER nb_elements__DMEB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__ZDCH,a__41DH,new_size__0DCH,new_size2__1DCH,a__C2DH;
-  __UINTEGER_32 new_size__D2DH;
-  __POINTER result__YDCH,ptr_table__KDHH,next__JDHH,result__LDHH;
-  void *result__ODHH;
+  __UINTEGER_32 sz__4MCH,a__NFEH,new_size__5MCH,new_size2__ANCH,a__RFEH;
+  __UINTEGER_32 new_size__SFEH;
+  __POINTER result__3MCH,ptr_table__TLHH,next__SLHH,result__ULHH;
+  void *result__XLHH;
   __INTEGER Self__RUKC;
   __CHARACTER *Result__CBKB;
-  sz__ZDCH=((__UINTEGER_32 )nb_elements__DMEB);
-  result__YDCH=((__POINTER )(NULL));
-  a__41DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__0DCH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZDCH + a__41DH) & (__UINTEGER_32)(~ a__41DH));
-  new_size2__1DCH=(__UINTEGER_32)(new_size__0DCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__1DCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__C2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__D2DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1DCH + a__C2DH) & (__UINTEGER_32)(~ a__C2DH));
-    ptr_table__KDHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__D2DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__JDHH=((__POINTER )(NULL));
-    result__LDHH=((__POINTER *)ptr_table__KDHH)[ 0];
-    if ((result__LDHH == (void *)NULL)) {
-      result__LDHH=new_lab__MRJ(new_size__D2DH);
-      next__JDHH=(void *)((unsigned long)result__LDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D2DH)));
-      ((__POINTER *)next__JDHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__KDHH)[ 0]=next__JDHH;
-    } else {
-      next__JDHH=((__POINTER *)result__LDHH)[ 0];
-      if ((next__JDHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LDHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__D2DH <<  1)) <=  4096)) {
-          next__JDHH=(void *)((unsigned long)result__LDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D2DH)));
-        } else {
-          next__JDHH=new_lab__MRJ(new_size__D2DH);
-        };
-        ((__POINTER *)next__JDHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KDHH)[ 0]=next__JDHH;
-      } else {
-        ((__POINTER *)result__LDHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JDHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__LDHH=next__JDHH;
-      };
-    };
-    ((__POINTER *)result__LDHH)[ 0]=((__POINTER ) 3);
-    result__YDCH=(void *)((unsigned long)result__LDHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__4MCH=((__UINTEGER_32 )nb_elements__DMEB);
+  result__3MCH=((__POINTER )(NULL));
+  a__NFEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__5MCH=(__UINTEGER_32)((__UINTEGER_32)(sz__4MCH + a__NFEH) & (__UINTEGER_32)(~ a__NFEH));
+  new_size2__ANCH=(__UINTEGER_32)(new_size__5MCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__ANCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__RFEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__SFEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ANCH + a__RFEH) & (__UINTEGER_32)(~ a__RFEH));
+    ptr_table__TLHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SFEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__SLHH=((__POINTER )(NULL));
+    result__ULHH=((__POINTER *)ptr_table__TLHH)[ 0];
+    if ((result__ULHH == (void *)NULL)) {
+      result__ULHH=new_lab__MRJ(new_size__SFEH);
+      next__SLHH=(void *)((unsigned long)result__ULHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SFEH)));
+      ((__POINTER *)next__SLHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__TLHH)[ 0]=next__SLHH;
+    } else {
+      next__SLHH=((__POINTER *)result__ULHH)[ 0];
+      if ((next__SLHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ULHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SFEH <<  1)) <=  4096)) {
+          next__SLHH=(void *)((unsigned long)result__ULHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SFEH)));
+        } else {
+          next__SLHH=new_lab__MRJ(new_size__SFEH);
+        };
+        ((__POINTER *)next__SLHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__TLHH)[ 0]=next__SLHH;
+      } else {
+        ((__POINTER *)result__ULHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SLHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__ULHH=next__SLHH;
+      };
+    };
+    ((__POINTER *)result__ULHH)[ 0]=((__POINTER ) 3);
+    result__3MCH=(void *)((unsigned long)result__ULHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__ODHH=first_free__XDVB;
-    while ((((void *)result__ODHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__ODHH)->map_size_and_id__ITB &  4294967292LU) < new_size__0DCH))) {
-      result__ODHH=((__MEMORY *)result__ODHH)->map_next_free__JTB;
+    result__XLHH=first_free__XDVB;
+    while ((((void *)result__XLHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__XLHH)->map_size_and_id__ITB &  4294967292LU) < new_size__5MCH))) {
+      result__XLHH=((__MEMORY *)result__XLHH)->map_next_free__JTB;
     };
-    if (((void *)result__ODHH == (void *)NULL)) {
-      result__ODHH=new_page__OA5();
+    if (((void *)result__XLHH == (void *)NULL)) {
+      result__XLHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__ODHH,new_size__0DCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__ODHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__YDCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__ODHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__XLHH,new_size__5MCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__XLHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__3MCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__XLHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__CBKB=((__CHARACTER *)result__YDCH);
+  Result__CBKB=((__CHARACTER *)result__3MCH);
   Self__RUKC=(__INTEGER)(nb_elements__DMEB -  1);
   while ((Self__RUKC >=  0)) {
     Result__CBKB[Self__RUKC]='\0';
@@ -16843,77 +17099,77 @@ static __CHARACTER* create__BMEB(__INTEGER nb_elements__DMEB)
 static __POINTER realloc_dynamic__old_size__new_size__RELC(__POINTER p__TELC,__UINTEGER_32 old_sz__UELC,__UINTEGER_32 new_sz__VELC)
 // ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
 {
-  void *mem__AFLC,*result__4DHH,*nxt__JDED,*result__KDED,*result__BEHH;
-  void *next__ACND,*new_free__5BND,*prev__V3DH,*next__W3DH;
-  __POINTER result__BFLC,result__EECH,ptr_table__0DHH,next__ZDHH;
-  __POINTER result__1DHH,__tmp__FGLC,last__MOHD,src__VAED,dst__WAED;
-  __UINTEGER_32 a__U2DH,old_size__XELC,old_size2__0ELC,a__Y2DH;
-  __UINTEGER_32 new_size__3ELC,a__22DH,new_size__GECH,new_size2__HECH;
-  __UINTEGER_32 a__A3DH,new_size__B3DH,a__SRH,__tmp__SGLC,sz__ODED;
+  void *mem__AFLC,*result__HMHH,*nxt__JDED,*result__KDED,*result__KMHH;
+  void *next__ACND,*new_free__5BND,*prev__EHEH,*next__FHEH;
+  __POINTER result__BFLC,result__JNCH,ptr_table__DMHH,next__CMHH;
+  __POINTER result__EMHH,__tmp__FGLC,last__MOHD,src__VAED,dst__WAED;
+  __UINTEGER_32 a__DGEH,old_size__XELC,old_size2__0ELC,a__HGEH;
+  __UINTEGER_32 new_size__3ELC,a__LGEH,new_size__LNCH,new_size2__MNCH;
+  __UINTEGER_32 a__PGEH,new_size__QGEH,a__SRH,__tmp__SGLC,sz__ODED;
   __UINTEGER_32 old_size__LDED,prev__BCND,new_size__ECND;
-  __INTEGER siz__P3FH,Self__U3FH,siz__0AED,Self__5LHD;
+  __INTEGER siz__2FGH,Self__BGGH,siz__0AED,Self__5LHD;
   __MEMORY *Self__FDED;
-  __POINTER *na_src__R3FH,*na_dst__T3FH,*na_src__YAED,*na_dst__ZAED;
+  __POINTER *na_src__4FGH,*na_dst__AGGH,*na_src__YAED,*na_dst__ZAED;
   mem__AFLC=NULL;
   result__BFLC=((__POINTER )(NULL));
-  a__U2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  old_size__XELC=(__UINTEGER_32)((__UINTEGER_32)(old_sz__UELC + a__U2DH) & (__UINTEGER_32)(~ a__U2DH));
+  a__DGEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  old_size__XELC=(__UINTEGER_32)((__UINTEGER_32)(old_sz__UELC + a__DGEH) & (__UINTEGER_32)(~ a__DGEH));
   old_size2__0ELC=(__UINTEGER_32)(old_size__XELC + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  a__Y2DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__3ELC=(__UINTEGER_32)((__UINTEGER_32)(new_sz__VELC + a__Y2DH) & (__UINTEGER_32)(~ a__Y2DH));
+  a__HGEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__3ELC=(__UINTEGER_32)((__UINTEGER_32)(new_sz__VELC + a__HGEH) & (__UINTEGER_32)(~ a__HGEH));
   if ((old_size2__0ELC <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    result__EECH=((__POINTER )(NULL));
-    a__22DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__GECH=(__UINTEGER_32)((__UINTEGER_32)(new_size__3ELC + a__22DH) & (__UINTEGER_32)(~ a__22DH));
-    new_size2__HECH=(__UINTEGER_32)(new_size__GECH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__HECH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__A3DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__B3DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__HECH + a__A3DH) & (__UINTEGER_32)(~ a__A3DH));
-      ptr_table__0DHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B3DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ZDHH=((__POINTER )(NULL));
-      result__1DHH=((__POINTER *)ptr_table__0DHH)[ 0];
-      if ((result__1DHH == (void *)NULL)) {
-        result__1DHH=new_lab__MRJ(new_size__B3DH);
-        next__ZDHH=(void *)((unsigned long)result__1DHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B3DH)));
-        ((__POINTER *)next__ZDHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0DHH)[ 0]=next__ZDHH;
-      } else {
-        next__ZDHH=((__POINTER *)result__1DHH)[ 0];
-        if ((next__ZDHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1DHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__B3DH <<  1)) <=  4096)) {
-            next__ZDHH=(void *)((unsigned long)result__1DHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B3DH)));
-          } else {
-            next__ZDHH=new_lab__MRJ(new_size__B3DH);
-          };
-          ((__POINTER *)next__ZDHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0DHH)[ 0]=next__ZDHH;
-        } else {
-          ((__POINTER *)result__1DHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZDHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1DHH=next__ZDHH;
-        };
-      };
-      ((__POINTER *)result__1DHH)[ 0]=((__POINTER ) 3);
-      result__EECH=(void *)((unsigned long)result__1DHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__4DHH=first_free__XDVB;
-      while ((((void *)result__4DHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__4DHH)->map_size_and_id__ITB &  4294967292LU) < new_size__GECH))) {
-        result__4DHH=((__MEMORY *)result__4DHH)->map_next_free__JTB;
-      };
-      if (((void *)result__4DHH == (void *)NULL)) {
-        result__4DHH=new_page__OA5();
-      };
-      to_busy__index__TTFC(result__4DHH,new_size__GECH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__4DHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-      result__EECH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__4DHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    result__BFLC=result__EECH;
-    siz__P3FH=((__INTEGER )old_size__XELC);
-    siz__P3FH=(__INTEGER)(siz__P3FH / ((__INTEGER )(sizeof(void *))));
-    na_src__R3FH=((__POINTER *)p__TELC);
-    na_dst__T3FH=((__POINTER *)result__EECH);
-    Self__U3FH=(__INTEGER)(siz__P3FH -  1);
-    while ((Self__U3FH >=  0)) {
-      na_dst__T3FH[Self__U3FH]=na_src__R3FH[Self__U3FH];
-      Self__U3FH=(__INTEGER)(Self__U3FH -  1);
+    result__JNCH=((__POINTER )(NULL));
+    a__LGEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__LNCH=(__UINTEGER_32)((__UINTEGER_32)(new_size__3ELC + a__LGEH) & (__UINTEGER_32)(~ a__LGEH));
+    new_size2__MNCH=(__UINTEGER_32)(new_size__LNCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+    if ((new_size2__MNCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+      a__PGEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__QGEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__MNCH + a__PGEH) & (__UINTEGER_32)(~ a__PGEH));
+      ptr_table__DMHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QGEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__CMHH=((__POINTER )(NULL));
+      result__EMHH=((__POINTER *)ptr_table__DMHH)[ 0];
+      if ((result__EMHH == (void *)NULL)) {
+        result__EMHH=new_lab__MRJ(new_size__QGEH);
+        next__CMHH=(void *)((unsigned long)result__EMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QGEH)));
+        ((__POINTER *)next__CMHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__DMHH)[ 0]=next__CMHH;
+      } else {
+        next__CMHH=((__POINTER *)result__EMHH)[ 0];
+        if ((next__CMHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QGEH <<  1)) <=  4096)) {
+            next__CMHH=(void *)((unsigned long)result__EMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QGEH)));
+          } else {
+            next__CMHH=new_lab__MRJ(new_size__QGEH);
+          };
+          ((__POINTER *)next__CMHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__DMHH)[ 0]=next__CMHH;
+        } else {
+          ((__POINTER *)result__EMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CMHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__EMHH=next__CMHH;
+        };
+      };
+      ((__POINTER *)result__EMHH)[ 0]=((__POINTER ) 3);
+      result__JNCH=(void *)((unsigned long)result__EMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+    } else {
+      result__HMHH=first_free__XDVB;
+      while ((((void *)result__HMHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__HMHH)->map_size_and_id__ITB &  4294967292LU) < new_size__LNCH))) {
+        result__HMHH=((__MEMORY *)result__HMHH)->map_next_free__JTB;
+      };
+      if (((void *)result__HMHH == (void *)NULL)) {
+        result__HMHH=new_page__OA5();
+      };
+      to_busy__index__TTFC(result__HMHH,new_size__LNCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__HMHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+      result__JNCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HMHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    };
+    result__BFLC=result__JNCH;
+    siz__2FGH=((__INTEGER )old_size__XELC);
+    siz__2FGH=(__INTEGER)(siz__2FGH / ((__INTEGER )(sizeof(void *))));
+    na_src__4FGH=((__POINTER *)p__TELC);
+    na_dst__AGGH=((__POINTER *)result__JNCH);
+    Self__BGGH=(__INTEGER)(siz__2FGH -  1);
+    while ((Self__BGGH >=  0)) {
+      na_dst__AGGH[Self__BGGH]=na_src__4FGH[Self__BGGH];
+      Self__BGGH=(__INTEGER)(Self__BGGH -  1);
     };
     __tmp__FGLC=(void *)((unsigned long)p__TELC - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
     a__SRH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
@@ -16945,17 +17201,17 @@ static __POINTER realloc_dynamic__old_size__new_size__RELC(__POINTER p__TELC,__U
         };
       };
       if (((void *)result__KDED == (void *)NULL)) {
-        result__BEHH=first_free__XDVB;
-        while ((((void *)result__BEHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__BEHH)->map_size_and_id__ITB &  4294967292LU) < new_size__3ELC))) {
-          result__BEHH=((__MEMORY *)result__BEHH)->map_next_free__JTB;
+        result__KMHH=first_free__XDVB;
+        while ((((void *)result__KMHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__KMHH)->map_size_and_id__ITB &  4294967292LU) < new_size__3ELC))) {
+          result__KMHH=((__MEMORY *)result__KMHH)->map_next_free__JTB;
         };
-        if (((void *)result__BEHH == (void *)NULL)) {
-          result__BEHH=new_page__OA5();
+        if (((void *)result__KMHH == (void *)NULL)) {
+          result__KMHH=new_page__OA5();
         };
-        to_busy__index__TTFC(result__BEHH,new_size__3ELC,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__BEHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-        result__KDED=result__BEHH;
+        to_busy__index__TTFC(result__KMHH,new_size__3ELC,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__KMHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+        result__KDED=result__KMHH;
         src__VAED=(void *)((unsigned long)((__POINTER )Self__FDED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-        dst__WAED=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__BEHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+        dst__WAED=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__KMHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
         siz__0AED=((__INTEGER )old_size__LDED);
         siz__0AED=(__INTEGER)(siz__0AED / ((__INTEGER )(sizeof(void *))));
         na_src__YAED=((__POINTER *)src__VAED);
@@ -16982,15 +17238,15 @@ static __POINTER realloc_dynamic__old_size__new_size__RELC(__POINTER p__TELC,__U
         };
         if (((! ((__UINTEGER_32)(Self__FDED->map_size_and_id__ITB &  2) !=  0)) && ((__UINTEGER_32)(((__MEMORY *)next__ACND)->map_size_and_id__ITB &  1) ==  0))) {
           new_size__ECND=(__UINTEGER_32)((__UINTEGER_32)(new_size__ECND + ((__MEMORY *)next__ACND)->map_size_and_id__ITB) +  8);
-          prev__V3DH=((__MEMORY *)next__ACND)->map_previous_free__KTB;
-          next__W3DH=((__MEMORY *)next__ACND)->map_next_free__JTB;
-          if (((void *)prev__V3DH == (void *)NULL)) {
-            first_free__XDVB=next__W3DH;
+          prev__EHEH=((__MEMORY *)next__ACND)->map_previous_free__KTB;
+          next__FHEH=((__MEMORY *)next__ACND)->map_next_free__JTB;
+          if (((void *)prev__EHEH == (void *)NULL)) {
+            first_free__XDVB=next__FHEH;
           } else {
-            ((__MEMORY *)prev__V3DH)->map_next_free__JTB=next__W3DH;
+            ((__MEMORY *)prev__EHEH)->map_next_free__JTB=next__FHEH;
           };
-          if (((void *)next__W3DH != (void *)NULL)) {
-            ((__MEMORY *)next__W3DH)->map_previous_free__KTB=prev__V3DH;
+          if (((void *)next__FHEH != (void *)NULL)) {
+            ((__MEMORY *)next__FHEH)->map_previous_free__KTB=prev__EHEH;
           };
         };
         ((__MEMORY *)new_free__5BND)->map_size_and_id__ITB=new_size__ECND;
@@ -17012,57 +17268,57 @@ static __POINTER realloc_dynamic__old_size__new_size__RELC(__POINTER p__TELC,__U
 static void** create__TBRB(__INTEGER nb_elements__VBRB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__QECH,a__VECH,new_size__RECH,new_size2__SECH,a__U4DH;
-  __UINTEGER_32 new_size__V4DH;
-  __POINTER result__PECH,ptr_table__FEHH,next__EEHH,result__GEHH;
-  void *result__JEHH;
+  __UINTEGER_32 sz__VNCH,a__0NCH,new_size__WNCH,new_size2__XNCH,a__DIEH;
+  __UINTEGER_32 new_size__EIEH;
+  __POINTER result__UNCH,ptr_table__OMHH,next__NMHH,result__PMHH;
+  void *result__SMHH;
   __INTEGER Self__E5MC;
   void **Result__14TB;
-  sz__QECH=((__UINTEGER_32 )(__INTEGER)(nb_elements__VBRB * ((__INTEGER )(sizeof(void *)))));
-  result__PECH=((__POINTER )(NULL));
-  a__VECH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__RECH=(__UINTEGER_32)((__UINTEGER_32)(sz__QECH + a__VECH) & (__UINTEGER_32)(~ a__VECH));
-  new_size2__SECH=(__UINTEGER_32)(new_size__RECH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__SECH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__U4DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__V4DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__SECH + a__U4DH) & (__UINTEGER_32)(~ a__U4DH));
-    ptr_table__FEHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__V4DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__EEHH=((__POINTER )(NULL));
-    result__GEHH=((__POINTER *)ptr_table__FEHH)[ 0];
-    if ((result__GEHH == (void *)NULL)) {
-      result__GEHH=new_lab__MRJ(new_size__V4DH);
-      next__EEHH=(void *)((unsigned long)result__GEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V4DH)));
-      ((__POINTER *)next__EEHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__FEHH)[ 0]=next__EEHH;
-    } else {
-      next__EEHH=((__POINTER *)result__GEHH)[ 0];
-      if ((next__EEHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__V4DH <<  1)) <=  4096)) {
-          next__EEHH=(void *)((unsigned long)result__GEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V4DH)));
-        } else {
-          next__EEHH=new_lab__MRJ(new_size__V4DH);
-        };
-        ((__POINTER *)next__EEHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FEHH)[ 0]=next__EEHH;
-      } else {
-        ((__POINTER *)result__GEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EEHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__GEHH=next__EEHH;
-      };
-    };
-    ((__POINTER *)result__GEHH)[ 0]=((__POINTER ) 3);
-    result__PECH=(void *)((unsigned long)result__GEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__VNCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__VBRB * ((__INTEGER )(sizeof(void *)))));
+  result__UNCH=((__POINTER )(NULL));
+  a__0NCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__WNCH=(__UINTEGER_32)((__UINTEGER_32)(sz__VNCH + a__0NCH) & (__UINTEGER_32)(~ a__0NCH));
+  new_size2__XNCH=(__UINTEGER_32)(new_size__WNCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__XNCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__DIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__EIEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XNCH + a__DIEH) & (__UINTEGER_32)(~ a__DIEH));
+    ptr_table__OMHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EIEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__NMHH=((__POINTER )(NULL));
+    result__PMHH=((__POINTER *)ptr_table__OMHH)[ 0];
+    if ((result__PMHH == (void *)NULL)) {
+      result__PMHH=new_lab__MRJ(new_size__EIEH);
+      next__NMHH=(void *)((unsigned long)result__PMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIEH)));
+      ((__POINTER *)next__NMHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__OMHH)[ 0]=next__NMHH;
+    } else {
+      next__NMHH=((__POINTER *)result__PMHH)[ 0];
+      if ((next__NMHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EIEH <<  1)) <=  4096)) {
+          next__NMHH=(void *)((unsigned long)result__PMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIEH)));
+        } else {
+          next__NMHH=new_lab__MRJ(new_size__EIEH);
+        };
+        ((__POINTER *)next__NMHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__OMHH)[ 0]=next__NMHH;
+      } else {
+        ((__POINTER *)result__PMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NMHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__PMHH=next__NMHH;
+      };
+    };
+    ((__POINTER *)result__PMHH)[ 0]=((__POINTER ) 3);
+    result__UNCH=(void *)((unsigned long)result__PMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__JEHH=first_free__XDVB;
-    while ((((void *)result__JEHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__JEHH)->map_size_and_id__ITB &  4294967292LU) < new_size__RECH))) {
-      result__JEHH=((__MEMORY *)result__JEHH)->map_next_free__JTB;
+    result__SMHH=first_free__XDVB;
+    while ((((void *)result__SMHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__SMHH)->map_size_and_id__ITB &  4294967292LU) < new_size__WNCH))) {
+      result__SMHH=((__MEMORY *)result__SMHH)->map_next_free__JTB;
     };
-    if (((void *)result__JEHH == (void *)NULL)) {
-      result__JEHH=new_page__OA5();
+    if (((void *)result__SMHH == (void *)NULL)) {
+      result__SMHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__JEHH,new_size__RECH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__JEHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__PECH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__JEHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__SMHH,new_size__WNCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__SMHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__UNCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__SMHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__14TB=((void **)result__PECH);
+  Result__14TB=((void **)result__UNCH);
   Self__E5MC=(__INTEGER)(nb_elements__VBRB -  1);
   while ((Self__E5MC >=  0)) {
     Result__14TB[Self__E5MC]=NULL;
@@ -17075,22 +17331,22 @@ static void* fast_reference_at__Y1T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_C
 // ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
   void *result__F2T;
-  __STRING_CONSTANT *Self__B4FH;
-  __INTEGER result__A4FH,__tmp__C4FH,Self__D4FH;
+  __STRING_CONSTANT *Self__OGGH;
+  __INTEGER result__NGGH,__tmp__PGGH,Self__QGGH;
   void *node__E2T;
   result__F2T=NULL;
-  Self__B4FH=((__STRING_CONSTANT *)k__01T);
-  result__A4FH= 0;
-  __tmp__C4FH=Self__B4FH->count__DD;
-  Self__D4FH= 1;
-  while ((Self__D4FH <= __tmp__C4FH)) {
-    result__A4FH=(__INTEGER)((__INTEGER)( 5 * result__A4FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__B4FH->storage__VQO)[(__INTEGER)(Self__D4FH -  1)])));
-    Self__D4FH=(__INTEGER)(Self__D4FH +  1);
-  };
-  if ((result__A4FH <  0)) {
-    result__A4FH=(__INTEGER)(~ result__A4FH);
-  };
-  node__E2T=((void **)Self__Z1T->buckets__M2T)[(__INTEGER)(result__A4FH % Self__Z1T->capacity__H2T)];
+  Self__OGGH=((__STRING_CONSTANT *)k__01T);
+  result__NGGH= 0;
+  __tmp__PGGH=Self__OGGH->count__DD;
+  Self__QGGH= 1;
+  while ((Self__QGGH <= __tmp__PGGH)) {
+    result__NGGH=(__INTEGER)((__INTEGER)( 5 * result__NGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__OGGH->storage__VQO)[(__INTEGER)(Self__QGGH -  1)])));
+    Self__QGGH=(__INTEGER)(Self__QGGH +  1);
+  };
+  if ((result__NGGH <  0)) {
+    result__NGGH=(__INTEGER)(~ result__NGGH);
+  };
+  node__E2T=((void **)Self__Z1T->buckets__M2T)[(__INTEGER)(result__NGGH % Self__Z1T->capacity__H2T)];
   while ((! (((void *)node__E2T == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__E2T)->key__Y2T == (void *)k__01T)))) {
     node__E2T=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__E2T)->next__D3T;
   };
@@ -17100,84 +17356,84 @@ static void* fast_reference_at__Y1T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_C
   return(result__F2T);
 }
 
-static void** create__PHHE(__INTEGER nb_elements__RHHE)
+static void** create__RLHE(__INTEGER nb_elements__TLHE)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__YECH,a__3ECH,new_size__ZECH,new_size2__0ECH,a__V5DH;
-  __UINTEGER_32 new_size__W5DH;
-  __POINTER result__XECH,ptr_table__NEHH,next__MEHH,result__OEHH;
-  void *result__REHH;
-  __INTEGER Self__13XE;
-  void **Result__RZME;
-  sz__YECH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RHHE * ((__INTEGER )(sizeof(void *)))));
-  result__XECH=((__POINTER )(NULL));
-  a__3ECH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ZECH=(__UINTEGER_32)((__UINTEGER_32)(sz__YECH + a__3ECH) & (__UINTEGER_32)(~ a__3ECH));
-  new_size2__0ECH=(__UINTEGER_32)(new_size__ZECH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__0ECH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__V5DH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__W5DH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0ECH + a__V5DH) & (__UINTEGER_32)(~ a__V5DH));
-    ptr_table__NEHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__W5DH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__MEHH=((__POINTER )(NULL));
-    result__OEHH=((__POINTER *)ptr_table__NEHH)[ 0];
-    if ((result__OEHH == (void *)NULL)) {
-      result__OEHH=new_lab__MRJ(new_size__W5DH);
-      next__MEHH=(void *)((unsigned long)result__OEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W5DH)));
-      ((__POINTER *)next__MEHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__NEHH)[ 0]=next__MEHH;
-    } else {
-      next__MEHH=((__POINTER *)result__OEHH)[ 0];
-      if ((next__MEHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OEHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__W5DH <<  1)) <=  4096)) {
-          next__MEHH=(void *)((unsigned long)result__OEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W5DH)));
-        } else {
-          next__MEHH=new_lab__MRJ(new_size__W5DH);
-        };
-        ((__POINTER *)next__MEHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NEHH)[ 0]=next__MEHH;
-      } else {
-        ((__POINTER *)result__OEHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MEHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__OEHH=next__MEHH;
-      };
-    };
-    ((__POINTER *)result__OEHH)[ 0]=((__POINTER ) 3);
-    result__XECH=(void *)((unsigned long)result__OEHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  __UINTEGER_32 sz__3NCH,a__COCH,new_size__4NCH,new_size2__5NCH,a__EJEH;
+  __UINTEGER_32 new_size__FJEH;
+  __POINTER result__2NCH,ptr_table__WMHH,next__VMHH,result__XMHH;
+  void *result__0MHH;
+  __INTEGER Self__TCYE;
+  void **Result__T3ME;
+  sz__3NCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__TLHE * ((__INTEGER )(sizeof(void *)))));
+  result__2NCH=((__POINTER )(NULL));
+  a__COCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__4NCH=(__UINTEGER_32)((__UINTEGER_32)(sz__3NCH + a__COCH) & (__UINTEGER_32)(~ a__COCH));
+  new_size2__5NCH=(__UINTEGER_32)(new_size__4NCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__5NCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__EJEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__FJEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__5NCH + a__EJEH) & (__UINTEGER_32)(~ a__EJEH));
+    ptr_table__WMHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FJEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__VMHH=((__POINTER )(NULL));
+    result__XMHH=((__POINTER *)ptr_table__WMHH)[ 0];
+    if ((result__XMHH == (void *)NULL)) {
+      result__XMHH=new_lab__MRJ(new_size__FJEH);
+      next__VMHH=(void *)((unsigned long)result__XMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FJEH)));
+      ((__POINTER *)next__VMHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__WMHH)[ 0]=next__VMHH;
+    } else {
+      next__VMHH=((__POINTER *)result__XMHH)[ 0];
+      if ((next__VMHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FJEH <<  1)) <=  4096)) {
+          next__VMHH=(void *)((unsigned long)result__XMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FJEH)));
+        } else {
+          next__VMHH=new_lab__MRJ(new_size__FJEH);
+        };
+        ((__POINTER *)next__VMHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__WMHH)[ 0]=next__VMHH;
+      } else {
+        ((__POINTER *)result__XMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VMHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__XMHH=next__VMHH;
+      };
+    };
+    ((__POINTER *)result__XMHH)[ 0]=((__POINTER ) 3);
+    result__2NCH=(void *)((unsigned long)result__XMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__REHH=first_free__XDVB;
-    while ((((void *)result__REHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__REHH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZECH))) {
-      result__REHH=((__MEMORY *)result__REHH)->map_next_free__JTB;
+    result__0MHH=first_free__XDVB;
+    while ((((void *)result__0MHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__0MHH)->map_size_and_id__ITB &  4294967292LU) < new_size__4NCH))) {
+      result__0MHH=((__MEMORY *)result__0MHH)->map_next_free__JTB;
     };
-    if (((void *)result__REHH == (void *)NULL)) {
-      result__REHH=new_page__OA5();
+    if (((void *)result__0MHH == (void *)NULL)) {
+      result__0MHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__REHH,new_size__ZECH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__REHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__XECH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__REHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__0MHH,new_size__4NCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__0MHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__2NCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__0MHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__RZME=((void **)result__XECH);
-  Self__13XE=(__INTEGER)(nb_elements__RHHE -  1);
-  while ((Self__13XE >=  0)) {
-    Result__RZME[Self__13XE]=NULL;
-    Self__13XE=(__INTEGER)(Self__13XE -  1);
+  Result__T3ME=((void **)result__2NCH);
+  Self__TCYE=(__INTEGER)(nb_elements__TLHE -  1);
+  while ((Self__TCYE >=  0)) {
+    Result__T3ME[Self__TCYE]=NULL;
+    Self__TCYE=(__INTEGER)(Self__TCYE -  1);
   };
-  return(Result__RZME);
+  return(Result__T3ME);
 }
 
 static __BOOLEAN has__1PW(__HASHED_SEToABSTRACT_STRINGo *Self__2PW,void *e__3PW)
 // ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __INTEGER result__F4FH,__tmp__H4FH,Self__I4FH;
+  __INTEGER result__SGGH,__tmp__UGGH,Self__VGGH;
   void *node__GQW;
-  result__F4FH= 0;
-  __tmp__H4FH=((__STRING_CONSTANT *)e__3PW)->count__DD;
-  Self__I4FH= 1;
-  while ((Self__I4FH <= __tmp__H4FH)) {
-    result__F4FH=(__INTEGER)((__INTEGER)( 5 * result__F4FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)e__3PW)->storage__VQO)[(__INTEGER)(Self__I4FH -  1)])));
-    Self__I4FH=(__INTEGER)(Self__I4FH +  1);
+  result__SGGH= 0;
+  __tmp__UGGH=((__STRING_CONSTANT *)e__3PW)->count__DD;
+  Self__VGGH= 1;
+  while ((Self__VGGH <= __tmp__UGGH)) {
+    result__SGGH=(__INTEGER)((__INTEGER)( 5 * result__SGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)e__3PW)->storage__VQO)[(__INTEGER)(Self__VGGH -  1)])));
+    Self__VGGH=(__INTEGER)(Self__VGGH +  1);
   };
-  if ((result__F4FH <  0)) {
-    result__F4FH=(__INTEGER)(~ result__F4FH);
+  if ((result__SGGH <  0)) {
+    result__SGGH=(__INTEGER)(~ result__SGGH);
   };
-  node__GQW=((void **)Self__2PW->buckets__4YR)[(__INTEGER)(result__F4FH % Self__2PW->capacity__ZYR)];
+  node__GQW=((void **)Self__2PW->buckets__4YR)[(__INTEGER)(result__SGGH % Self__2PW->capacity__ZYR)];
   while ((! (((void *)node__GQW == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__GQW)->item__KZR,e__3PW)))) {
     node__GQW=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__GQW)->next__WZR;
   };
@@ -17187,9 +17443,9 @@ static __BOOLEAN has__1PW(__HASHED_SEToABSTRACT_STRINGo *Self__2PW,void *e__3PW)
 static void increase_capacity__4RNB(__HASHED_SEToABSTRACT_STRINGo *Self__5RNB)
 // ({HASHED_SEToABSTRACT_STRINGo}) VoidNo recursive, No inlinable.
 {
-  __INTEGER idx__BSNB,new_capacity__CSNB,i__ASNB,result__K4FH;
-  __INTEGER __tmp__M4FH,Self__N4FH;
-  __STRING_CONSTANT *Self__L4FH;
+  __INTEGER idx__BSNB,new_capacity__CSNB,i__ASNB,result__XGGH;
+  __INTEGER __tmp__ZGGH,Self__0GGH;
+  __STRING_CONSTANT *Self__YGGH;
   void *node1__ESNB,*node2__FSNB;
   void **old_buckets__DSNB;
   idx__BSNB= 0;
@@ -17204,18 +17460,18 @@ static void increase_capacity__4RNB(__HASHED_SEToABSTRACT_STRINGo *Self__5RNB)
     node1__ESNB=((void **)old_buckets__DSNB)[i__ASNB];
     while (((void *)node1__ESNB != (void *)NULL)) {
       node2__FSNB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__ESNB)->next__WZR;
-      Self__L4FH=((__STRING_CONSTANT *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__ESNB)->item__KZR);
-      result__K4FH= 0;
-      __tmp__M4FH=Self__L4FH->count__DD;
-      Self__N4FH= 1;
-      while ((Self__N4FH <= __tmp__M4FH)) {
-        result__K4FH=(__INTEGER)((__INTEGER)( 5 * result__K4FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__L4FH->storage__VQO)[(__INTEGER)(Self__N4FH -  1)])));
-        Self__N4FH=(__INTEGER)(Self__N4FH +  1);
-      };
-      if ((result__K4FH <  0)) {
-        result__K4FH=(__INTEGER)(~ result__K4FH);
-      };
-      idx__BSNB=(__INTEGER)(result__K4FH % Self__5RNB->capacity__ZYR);
+      Self__YGGH=((__STRING_CONSTANT *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__ESNB)->item__KZR);
+      result__XGGH= 0;
+      __tmp__ZGGH=Self__YGGH->count__DD;
+      Self__0GGH= 1;
+      while ((Self__0GGH <= __tmp__ZGGH)) {
+        result__XGGH=(__INTEGER)((__INTEGER)( 5 * result__XGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__YGGH->storage__VQO)[(__INTEGER)(Self__0GGH -  1)])));
+        Self__0GGH=(__INTEGER)(Self__0GGH +  1);
+      };
+      if ((result__XGGH <  0)) {
+        result__XGGH=(__INTEGER)(~ result__XGGH);
+      };
+      idx__BSNB=(__INTEGER)(result__XGGH % Self__5RNB->capacity__ZYR);
       ((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__ESNB)->next__WZR=((void **)Self__5RNB->buckets__4YR)[idx__BSNB];
       ((void **)Self__5RNB->buckets__4YR)[idx__BSNB]=node1__ESNB;
       node1__ESNB=node2__FSNB;
@@ -17252,21 +17508,21 @@ static void put_string__YHF(void *s__0HF)
 static __BOOLEAN fast_has__OAY(__HASHED_SEToABSTRACT_STRINGo *Self__PAY,void *e__QAY)
 // ({HASHED_SEToABSTRACT_STRINGo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__Q4FH;
-  __INTEGER result__P4FH,__tmp__R4FH,Self__S4FH;
+  __STRING_CONSTANT *Self__3GGH;
+  __INTEGER result__2GGH,__tmp__4GGH,Self__5GGH;
   void *node__ZAY;
-  Self__Q4FH=((__STRING_CONSTANT *)e__QAY);
-  result__P4FH= 0;
-  __tmp__R4FH=Self__Q4FH->count__DD;
-  Self__S4FH= 1;
-  while ((Self__S4FH <= __tmp__R4FH)) {
-    result__P4FH=(__INTEGER)((__INTEGER)( 5 * result__P4FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__Q4FH->storage__VQO)[(__INTEGER)(Self__S4FH -  1)])));
-    Self__S4FH=(__INTEGER)(Self__S4FH +  1);
-  };
-  if ((result__P4FH <  0)) {
-    result__P4FH=(__INTEGER)(~ result__P4FH);
-  };
-  node__ZAY=((void **)Self__PAY->buckets__4YR)[(__INTEGER)(result__P4FH % Self__PAY->capacity__ZYR)];
+  Self__3GGH=((__STRING_CONSTANT *)e__QAY);
+  result__2GGH= 0;
+  __tmp__4GGH=Self__3GGH->count__DD;
+  Self__5GGH= 1;
+  while ((Self__5GGH <= __tmp__4GGH)) {
+    result__2GGH=(__INTEGER)((__INTEGER)( 5 * result__2GGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__3GGH->storage__VQO)[(__INTEGER)(Self__5GGH -  1)])));
+    Self__5GGH=(__INTEGER)(Self__5GGH +  1);
+  };
+  if ((result__2GGH <  0)) {
+    result__2GGH=(__INTEGER)(~ result__2GGH);
+  };
+  node__ZAY=((void **)Self__PAY->buckets__4YR)[(__INTEGER)(result__2GGH % Self__PAY->capacity__ZYR)];
   while ((! (((void *)node__ZAY == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__ZAY)->item__KZR == (void *)e__QAY)))) {
     node__ZAY=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__ZAY)->next__WZR;
   };
@@ -17277,173 +17533,173 @@ static void* physical_get_entry__JCF(void *new_path__LCF)
 // ({NULLxSTRING}) With resultNo recursive, No inlinable.
 {
   void *result__OCF;
-  __STRING *Self__LAEH;
-  __FILE_UNIX *result__UEHH;
-  __POINTER ptr__VEHH,ptr_table__3EHH,next__2EHH,result__4EHH;
-  __POINTER ptr_table__CFHH,next__BFHH,result__DFHH,ptr__HFHH;
-  __POINTER ptr_table__PFHH,next__OFHH,result__QFHH,ptr_table__UFHH;
-  __POINTER next__TFHH,result__VFHH;
-  __INTEGER typ_id__WEHH,typ_id__IFHH;
-  __UINTEGER_32 sz__XEHH,a__YEHH,new_size__ZEHH,t__0EHH,a__1EHH;
-  __UINTEGER_32 new_size__FFHH,lab_type__EFHH,sz__JFHH,a__KFHH;
-  __UINTEGER_32 new_size__LFHH,t__MFHH,a__NFHH,new_size__XFHH;
-  __UINTEGER_32 lab_type__WFHH;
-  __DIRECTORY_UNIX *result__GFHH;
+  __STRING *Self__0JEH;
+  __FILE_UNIX *result__3MHH;
+  __POINTER ptr__4MHH,ptr_table__GNHH,next__FNHH,result__HNHH;
+  __POINTER ptr_table__LNHH,next__KNHH,result__MNHH,ptr__QNHH;
+  __POINTER ptr_table__YNHH,next__XNHH,result__ZNHH,ptr_table__3NHH;
+  __POINTER next__2NHH,result__4NHH;
+  __INTEGER typ_id__5MHH,typ_id__RNHH;
+  __UINTEGER_32 sz__ANHH,a__BNHH,new_size__CNHH,t__DNHH,a__ENHH;
+  __UINTEGER_32 new_size__ONHH,lab_type__NNHH,sz__SNHH,a__TNHH;
+  __UINTEGER_32 new_size__UNHH,t__VNHH,a__WNHH,new_size__AOHH;
+  __UINTEGER_32 lab_type__5NHH;
+  __DIRECTORY_UNIX *result__PNHH;
   void *__tmp__HDF;
   __CHARACTER *pe__NCF;
   result__OCF=NULL;
-  Self__LAEH=((__STRING *)new_path__LCF);
-  if ((Self__LAEH->capacity__YBS > Self__LAEH->count__WFC)) {
-    ((__CHARACTER *)Self__LAEH->storage__BCS)[Self__LAEH->count__WFC]='\0';
+  Self__0JEH=((__STRING *)new_path__LCF);
+  if ((Self__0JEH->capacity__YBS > Self__0JEH->count__WFC)) {
+    ((__CHARACTER *)Self__0JEH->storage__BCS)[Self__0JEH->count__WFC]='\0';
   } else {
-    add_last__ZLT(Self__LAEH,'\0');
-    Self__LAEH->count__WFC=(__INTEGER)(Self__LAEH->count__WFC -  1);
+    add_last__ZLT(Self__0JEH,'\0');
+    Self__0JEH->count__WFC=(__INTEGER)(Self__0JEH->count__WFC -  1);
   };
-  pe__NCF=Self__LAEH->storage__BCS;
+  pe__NCF=Self__0JEH->storage__BCS;
   { struct stat t;
   if ((((__INTEGER )(stat((pe__NCF),&t))) ==  0)) {
     if ((((__INTEGER )(S_ISDIR(t.st_mode))) ==  0)) {
-      result__UEHH=NULL;
-      ptr__VEHH=((__POINTER )(NULL));
-      typ_id__WEHH= 0;
-      sz__XEHH=((__UINTEGER_32 )sizeof(__FILE_UNIX));
-      if ((sz__XEHH ==  0)) {
-        result__UEHH=FILE_UNIX__;
-      } else {
-        typ_id__WEHH=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XEHH);
-        if ((typ_id__WEHH == (__INTEGER)(-  1))) {
-          a__YEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__ZEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XEHH + a__YEHH) & (__UINTEGER_32)(~ a__YEHH));
-          ptr_table__3EHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZEHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__2EHH=((__POINTER )(NULL));
-          result__4EHH=((__POINTER *)ptr_table__3EHH)[ 0];
-          if ((result__4EHH == (void *)NULL)) {
-            result__4EHH=new_lab__MRJ(new_size__ZEHH);
-            next__2EHH=(void *)((unsigned long)result__4EHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZEHH)));
-            ((__POINTER *)next__2EHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__3EHH)[ 0]=next__2EHH;
-          } else {
-            next__2EHH=((__POINTER *)result__4EHH)[ 0];
-            if ((next__2EHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4EHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZEHH <<  1)) <=  4096)) {
-                next__2EHH=(void *)((unsigned long)result__4EHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZEHH)));
+      result__3MHH=NULL;
+      ptr__4MHH=((__POINTER )(NULL));
+      typ_id__5MHH= 0;
+      sz__ANHH=((__UINTEGER_32 )sizeof(__FILE_UNIX));
+      if ((sz__ANHH ==  0)) {
+        result__3MHH=FILE_UNIX__;
+      } else {
+        typ_id__5MHH=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ANHH);
+        if ((typ_id__5MHH == (__INTEGER)(-  1))) {
+          a__BNHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__CNHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ANHH + a__BNHH) & (__UINTEGER_32)(~ a__BNHH));
+          ptr_table__GNHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CNHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__FNHH=((__POINTER )(NULL));
+          result__HNHH=((__POINTER *)ptr_table__GNHH)[ 0];
+          if ((result__HNHH == (void *)NULL)) {
+            result__HNHH=new_lab__MRJ(new_size__CNHH);
+            next__FNHH=(void *)((unsigned long)result__HNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CNHH)));
+            ((__POINTER *)next__FNHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__GNHH)[ 0]=next__FNHH;
+          } else {
+            next__FNHH=((__POINTER *)result__HNHH)[ 0];
+            if ((next__FNHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HNHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CNHH <<  1)) <=  4096)) {
+                next__FNHH=(void *)((unsigned long)result__HNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CNHH)));
               } else {
-                next__2EHH=new_lab__MRJ(new_size__ZEHH);
+                next__FNHH=new_lab__MRJ(new_size__CNHH);
               };
-              ((__POINTER *)next__2EHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3EHH)[ 0]=next__2EHH;
+              ((__POINTER *)next__FNHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__GNHH)[ 0]=next__FNHH;
             } else {
-              ((__POINTER *)result__4EHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2EHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__4EHH=next__2EHH;
-            };
-          };
-          ptr__VEHH=result__4EHH;
-        } else {
-          t__0EHH=((__UINTEGER_32 )typ_id__WEHH);
-          a__1EHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__FFHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XEHH + a__1EHH) & (__UINTEGER_32)(~ a__1EHH));
-          ptr_table__CFHH=((__POINTER )(&(table_type[(t__0EHH)])));
-          lab_type__EFHH=(__UINTEGER_32)(t__0EHH |  1);
-          next__BFHH=((__POINTER )(NULL));
-          result__DFHH=((__POINTER *)ptr_table__CFHH)[ 0];
-          if ((result__DFHH == (void *)NULL)) {
-            result__DFHH=new_lab__MRJ(lab_type__EFHH);
-            next__BFHH=(void *)((unsigned long)result__DFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFHH)));
-            ((__POINTER *)next__BFHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CFHH)[ 0]=next__BFHH;
-          } else {
-            next__BFHH=((__POINTER *)result__DFHH)[ 0];
-            if ((next__BFHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DFHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FFHH <<  1)) <=  4096)) {
-                next__BFHH=(void *)((unsigned long)result__DFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFHH)));
+              ((__POINTER *)result__HNHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FNHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__HNHH=next__FNHH;
+            };
+          };
+          ptr__4MHH=result__HNHH;
+        } else {
+          t__DNHH=((__UINTEGER_32 )typ_id__5MHH);
+          a__ENHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__ONHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ANHH + a__ENHH) & (__UINTEGER_32)(~ a__ENHH));
+          ptr_table__LNHH=((__POINTER )(&(table_type[(t__DNHH)])));
+          lab_type__NNHH=(__UINTEGER_32)(t__DNHH |  1);
+          next__KNHH=((__POINTER )(NULL));
+          result__MNHH=((__POINTER *)ptr_table__LNHH)[ 0];
+          if ((result__MNHH == (void *)NULL)) {
+            result__MNHH=new_lab__MRJ(lab_type__NNHH);
+            next__KNHH=(void *)((unsigned long)result__MNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ONHH)));
+            ((__POINTER *)next__KNHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__LNHH)[ 0]=next__KNHH;
+          } else {
+            next__KNHH=((__POINTER *)result__MNHH)[ 0];
+            if ((next__KNHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MNHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ONHH <<  1)) <=  4096)) {
+                next__KNHH=(void *)((unsigned long)result__MNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ONHH)));
               } else {
-                next__BFHH=new_lab__MRJ(lab_type__EFHH);
+                next__KNHH=new_lab__MRJ(lab_type__NNHH);
               };
-              ((__POINTER *)next__BFHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__CFHH)[ 0]=next__BFHH;
+              ((__POINTER *)next__KNHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__LNHH)[ 0]=next__KNHH;
             } else {
-              ((__POINTER *)result__DFHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__DFHH=next__BFHH;
-            };
-          };
-          ptr__VEHH=result__DFHH;
-        };
-        result__UEHH=((__FILE_UNIX *)ptr__VEHH);
-        *(result__UEHH) = *(FILE_UNIX__);
-      };
-      result__OCF=result__UEHH;
-    } else {
-      result__GFHH=NULL;
-      ptr__HFHH=((__POINTER )(NULL));
-      typ_id__IFHH= 0;
-      sz__JFHH=((__UINTEGER_32 )sizeof(__DIRECTORY_UNIX));
-      if ((sz__JFHH ==  0)) {
-        result__GFHH=DIRECTORY_UNIX__;
-      } else {
-        typ_id__IFHH=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__JFHH);
-        if ((typ_id__IFHH == (__INTEGER)(-  1))) {
-          a__KFHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__LFHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JFHH + a__KFHH) & (__UINTEGER_32)(~ a__KFHH));
-          ptr_table__PFHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LFHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__OFHH=((__POINTER )(NULL));
-          result__QFHH=((__POINTER *)ptr_table__PFHH)[ 0];
-          if ((result__QFHH == (void *)NULL)) {
-            result__QFHH=new_lab__MRJ(new_size__LFHH);
-            next__OFHH=(void *)((unsigned long)result__QFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LFHH)));
-            ((__POINTER *)next__OFHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__PFHH)[ 0]=next__OFHH;
-          } else {
-            next__OFHH=((__POINTER *)result__QFHH)[ 0];
-            if ((next__OFHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QFHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LFHH <<  1)) <=  4096)) {
-                next__OFHH=(void *)((unsigned long)result__QFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LFHH)));
+              ((__POINTER *)result__MNHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KNHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__MNHH=next__KNHH;
+            };
+          };
+          ptr__4MHH=result__MNHH;
+        };
+        result__3MHH=((__FILE_UNIX *)ptr__4MHH);
+        *(result__3MHH) = *(FILE_UNIX__);
+      };
+      result__OCF=result__3MHH;
+    } else {
+      result__PNHH=NULL;
+      ptr__QNHH=((__POINTER )(NULL));
+      typ_id__RNHH= 0;
+      sz__SNHH=((__UINTEGER_32 )sizeof(__DIRECTORY_UNIX));
+      if ((sz__SNHH ==  0)) {
+        result__PNHH=DIRECTORY_UNIX__;
+      } else {
+        typ_id__RNHH=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SNHH);
+        if ((typ_id__RNHH == (__INTEGER)(-  1))) {
+          a__TNHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__UNHH=(__UINTEGER_32)((__UINTEGER_32)(sz__SNHH + a__TNHH) & (__UINTEGER_32)(~ a__TNHH));
+          ptr_table__YNHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UNHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__XNHH=((__POINTER )(NULL));
+          result__ZNHH=((__POINTER *)ptr_table__YNHH)[ 0];
+          if ((result__ZNHH == (void *)NULL)) {
+            result__ZNHH=new_lab__MRJ(new_size__UNHH);
+            next__XNHH=(void *)((unsigned long)result__ZNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UNHH)));
+            ((__POINTER *)next__XNHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__YNHH)[ 0]=next__XNHH;
+          } else {
+            next__XNHH=((__POINTER *)result__ZNHH)[ 0];
+            if ((next__XNHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZNHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UNHH <<  1)) <=  4096)) {
+                next__XNHH=(void *)((unsigned long)result__ZNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UNHH)));
               } else {
-                next__OFHH=new_lab__MRJ(new_size__LFHH);
+                next__XNHH=new_lab__MRJ(new_size__UNHH);
               };
-              ((__POINTER *)next__OFHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__PFHH)[ 0]=next__OFHH;
+              ((__POINTER *)next__XNHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__YNHH)[ 0]=next__XNHH;
             } else {
-              ((__POINTER *)result__QFHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__QFHH=next__OFHH;
-            };
-          };
-          ptr__HFHH=result__QFHH;
-        } else {
-          t__MFHH=((__UINTEGER_32 )typ_id__IFHH);
-          a__NFHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__XFHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JFHH + a__NFHH) & (__UINTEGER_32)(~ a__NFHH));
-          ptr_table__UFHH=((__POINTER )(&(table_type[(t__MFHH)])));
-          lab_type__WFHH=(__UINTEGER_32)(t__MFHH |  1);
-          next__TFHH=((__POINTER )(NULL));
-          result__VFHH=((__POINTER *)ptr_table__UFHH)[ 0];
-          if ((result__VFHH == (void *)NULL)) {
-            result__VFHH=new_lab__MRJ(lab_type__WFHH);
-            next__TFHH=(void *)((unsigned long)result__VFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XFHH)));
-            ((__POINTER *)next__TFHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UFHH)[ 0]=next__TFHH;
-          } else {
-            next__TFHH=((__POINTER *)result__VFHH)[ 0];
-            if ((next__TFHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VFHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XFHH <<  1)) <=  4096)) {
-                next__TFHH=(void *)((unsigned long)result__VFHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XFHH)));
+              ((__POINTER *)result__ZNHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XNHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__ZNHH=next__XNHH;
+            };
+          };
+          ptr__QNHH=result__ZNHH;
+        } else {
+          t__VNHH=((__UINTEGER_32 )typ_id__RNHH);
+          a__WNHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__AOHH=(__UINTEGER_32)((__UINTEGER_32)(sz__SNHH + a__WNHH) & (__UINTEGER_32)(~ a__WNHH));
+          ptr_table__3NHH=((__POINTER )(&(table_type[(t__VNHH)])));
+          lab_type__5NHH=(__UINTEGER_32)(t__VNHH |  1);
+          next__2NHH=((__POINTER )(NULL));
+          result__4NHH=((__POINTER *)ptr_table__3NHH)[ 0];
+          if ((result__4NHH == (void *)NULL)) {
+            result__4NHH=new_lab__MRJ(lab_type__5NHH);
+            next__2NHH=(void *)((unsigned long)result__4NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AOHH)));
+            ((__POINTER *)next__2NHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__3NHH)[ 0]=next__2NHH;
+          } else {
+            next__2NHH=((__POINTER *)result__4NHH)[ 0];
+            if ((next__2NHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4NHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AOHH <<  1)) <=  4096)) {
+                next__2NHH=(void *)((unsigned long)result__4NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AOHH)));
               } else {
-                next__TFHH=new_lab__MRJ(lab_type__WFHH);
+                next__2NHH=new_lab__MRJ(lab_type__5NHH);
               };
-              ((__POINTER *)next__TFHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__UFHH)[ 0]=next__TFHH;
+              ((__POINTER *)next__2NHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__3NHH)[ 0]=next__2NHH;
             } else {
-              ((__POINTER *)result__VFHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__VFHH=next__TFHH;
+              ((__POINTER *)result__4NHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2NHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__4NHH=next__2NHH;
             };
           };
-          ptr__HFHH=result__VFHH;
+          ptr__QNHH=result__4NHH;
         };
-        result__GFHH=((__DIRECTORY_UNIX *)ptr__HFHH);
-        *(result__GFHH) = *(DIRECTORY_UNIX__);
+        result__PNHH=((__DIRECTORY_UNIX *)ptr__QNHH);
+        *(result__PNHH) = *(DIRECTORY_UNIX__);
       };
-      result__OCF=result__GFHH;
+      result__OCF=result__PNHH;
     };
     if (((struct ___OBJ *)result__OCF)->__id==__DIRECTORY_UNIX__) {
       set_path__ONT(result__OCF,new_path__LCF);
@@ -17464,30 +17720,30 @@ static void* physical_get_entry__JCF(void *new_path__LCF)
 static void put__to__R0S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__S0S,void *v__T0S,void *k__U0S)
 // ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxDIRECTORY_UNIXxFILE_UNIX},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__V4FH,*Self__04FH;
-  __INTEGER result__U4FH,__tmp__W4FH,Self__X4FH,idx__20S,idx__GOOB;
-  __INTEGER new_capacity__HOOB,i__IOOB,result__Z4FH,__tmp__14FH;
-  __INTEGER Self__24FH,typ_id__WQOB;
-  __POINTER ptr__RQOB,ptr_table__ZFHH,next__YFHH,result__0FHH;
-  __POINTER ptr_table__4FHH,next__3FHH,result__5FHH;
-  __UINTEGER_32 sz__TQOB,a__5AEH,new_size__ABEH,t__EBEH,a__DBEH;
-  __UINTEGER_32 new_size__BGHH,lab_type__AGHH;
+  __STRING_CONSTANT *Self__CHGH,*Self__HHGH;
+  __INTEGER result__BHGH,__tmp__DHGH,Self__EHGH,idx__20S,idx__GOOB;
+  __INTEGER new_capacity__HOOB,i__IOOB,result__GHGH,__tmp__IHGH;
+  __INTEGER Self__JHGH,typ_id__WQOB;
+  __POINTER ptr__RQOB,ptr_table__COHH,next__BOHH,result__DOHH;
+  __POINTER ptr_table__HOHH,next__GOHH,result__IOHH;
+  __UINTEGER_32 sz__TQOB,a__OKEH,new_size__PKEH,t__TKEH,a__SKEH;
+  __UINTEGER_32 new_size__KOHH,lab_type__JOHH;
   void *node__40S,*node1__KOOB,*node2__LOOB,*__tmp__T2S;
   void **old_buckets__JOOB;
   __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *result__QQOB;
   __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *Self__GYDC;
-  Self__V4FH=((__STRING_CONSTANT *)k__U0S);
-  result__U4FH= 0;
-  __tmp__W4FH=Self__V4FH->count__DD;
-  Self__X4FH= 1;
-  while ((Self__X4FH <= __tmp__W4FH)) {
-    result__U4FH=(__INTEGER)((__INTEGER)( 5 * result__U4FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__V4FH->storage__VQO)[(__INTEGER)(Self__X4FH -  1)])));
-    Self__X4FH=(__INTEGER)(Self__X4FH +  1);
-  };
-  if ((result__U4FH <  0)) {
-    result__U4FH=(__INTEGER)(~ result__U4FH);
-  };
-  idx__20S=(__INTEGER)(result__U4FH % Self__S0S->capacity__A1S);
+  Self__CHGH=((__STRING_CONSTANT *)k__U0S);
+  result__BHGH= 0;
+  __tmp__DHGH=Self__CHGH->count__DD;
+  Self__EHGH= 1;
+  while ((Self__EHGH <= __tmp__DHGH)) {
+    result__BHGH=(__INTEGER)((__INTEGER)( 5 * result__BHGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__CHGH->storage__VQO)[(__INTEGER)(Self__EHGH -  1)])));
+    Self__EHGH=(__INTEGER)(Self__EHGH +  1);
+  };
+  if ((result__BHGH <  0)) {
+    result__BHGH=(__INTEGER)(~ result__BHGH);
+  };
+  idx__20S=(__INTEGER)(result__BHGH % Self__S0S->capacity__A1S);
   node__40S=((void **)Self__S0S->buckets__F1S)[idx__20S];
   while ((! (((void *)node__40S == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__40S)->key__R1S,k__U0S)))) {
     node__40S=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__40S)->next__31S;
@@ -17506,25 +17762,25 @@ static void put__to__R0S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__S0S,v
         node1__KOOB=((void **)old_buckets__JOOB)[i__IOOB];
         while (((void *)node1__KOOB != (void *)NULL)) {
           node2__LOOB=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__KOOB)->next__31S;
-          Self__04FH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__KOOB)->key__R1S);
-          result__Z4FH= 0;
-          __tmp__14FH=Self__04FH->count__DD;
-          Self__24FH= 1;
-          while ((Self__24FH <= __tmp__14FH)) {
-            result__Z4FH=(__INTEGER)((__INTEGER)( 5 * result__Z4FH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__04FH->storage__VQO)[(__INTEGER)(Self__24FH -  1)])));
-            Self__24FH=(__INTEGER)(Self__24FH +  1);
-          };
-          if ((result__Z4FH <  0)) {
-            result__Z4FH=(__INTEGER)(~ result__Z4FH);
-          };
-          idx__GOOB=(__INTEGER)(result__Z4FH % Self__S0S->capacity__A1S);
+          Self__HHGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__KOOB)->key__R1S);
+          result__GHGH= 0;
+          __tmp__IHGH=Self__HHGH->count__DD;
+          Self__JHGH= 1;
+          while ((Self__JHGH <= __tmp__IHGH)) {
+            result__GHGH=(__INTEGER)((__INTEGER)( 5 * result__GHGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__HHGH->storage__VQO)[(__INTEGER)(Self__JHGH -  1)])));
+            Self__JHGH=(__INTEGER)(Self__JHGH +  1);
+          };
+          if ((result__GHGH <  0)) {
+            result__GHGH=(__INTEGER)(~ result__GHGH);
+          };
+          idx__GOOB=(__INTEGER)(result__GHGH % Self__S0S->capacity__A1S);
           ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__KOOB)->next__31S=((void **)Self__S0S->buckets__F1S)[idx__GOOB];
           ((void **)Self__S0S->buckets__F1S)[idx__GOOB]=node1__KOOB;
           node1__KOOB=node2__LOOB;
         };
         i__IOOB=(__INTEGER)(i__IOOB -  1);
       };
-      idx__20S=(__INTEGER)(result__U4FH % new_capacity__HOOB);
+      idx__20S=(__INTEGER)(result__BHGH % new_capacity__HOOB);
     };
     __tmp__T2S=((void **)Self__S0S->buckets__F1S)[idx__20S];
     result__QQOB=NULL;
@@ -17537,61 +17793,61 @@ static void put__to__R0S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__S0S,v
       typ_id__WQOB=__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__TQOB);
       if ((typ_id__WQOB == (__INTEGER)(-  1))) {
-        a__5AEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ABEH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQOB + a__5AEH) & (__UINTEGER_32)(~ a__5AEH));
-        ptr_table__ZFHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ABEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__YFHH=((__POINTER )(NULL));
-        result__0FHH=((__POINTER *)ptr_table__ZFHH)[ 0];
-        if ((result__0FHH == (void *)NULL)) {
-          result__0FHH=new_lab__MRJ(new_size__ABEH);
-          next__YFHH=(void *)((unsigned long)result__0FHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABEH)));
-          ((__POINTER *)next__YFHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZFHH)[ 0]=next__YFHH;
-        } else {
-          next__YFHH=((__POINTER *)result__0FHH)[ 0];
-          if ((next__YFHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0FHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ABEH <<  1)) <=  4096)) {
-              next__YFHH=(void *)((unsigned long)result__0FHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABEH)));
+        a__OKEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__PKEH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQOB + a__OKEH) & (__UINTEGER_32)(~ a__OKEH));
+        ptr_table__COHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PKEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__BOHH=((__POINTER )(NULL));
+        result__DOHH=((__POINTER *)ptr_table__COHH)[ 0];
+        if ((result__DOHH == (void *)NULL)) {
+          result__DOHH=new_lab__MRJ(new_size__PKEH);
+          next__BOHH=(void *)((unsigned long)result__DOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKEH)));
+          ((__POINTER *)next__BOHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__COHH)[ 0]=next__BOHH;
+        } else {
+          next__BOHH=((__POINTER *)result__DOHH)[ 0];
+          if ((next__BOHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DOHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PKEH <<  1)) <=  4096)) {
+              next__BOHH=(void *)((unsigned long)result__DOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKEH)));
             } else {
-              next__YFHH=new_lab__MRJ(new_size__ABEH);
-            };
-            ((__POINTER *)next__YFHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ZFHH)[ 0]=next__YFHH;
-          } else {
-            ((__POINTER *)result__0FHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YFHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__0FHH=next__YFHH;
-          };
-        };
-        ptr__RQOB=result__0FHH;
-      } else {
-        t__EBEH=((__UINTEGER_32 )typ_id__WQOB);
-        a__DBEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__BGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQOB + a__DBEH) & (__UINTEGER_32)(~ a__DBEH));
-        ptr_table__4FHH=((__POINTER )(&(table_type[(t__EBEH)])));
-        lab_type__AGHH=(__UINTEGER_32)(t__EBEH |  1);
-        next__3FHH=((__POINTER )(NULL));
-        result__5FHH=((__POINTER *)ptr_table__4FHH)[ 0];
-        if ((result__5FHH == (void *)NULL)) {
-          result__5FHH=new_lab__MRJ(lab_type__AGHH);
-          next__3FHH=(void *)((unsigned long)result__5FHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BGHH)));
-          ((__POINTER *)next__3FHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4FHH)[ 0]=next__3FHH;
-        } else {
-          next__3FHH=((__POINTER *)result__5FHH)[ 0];
-          if ((next__3FHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5FHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BGHH <<  1)) <=  4096)) {
-              next__3FHH=(void *)((unsigned long)result__5FHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BGHH)));
+              next__BOHH=new_lab__MRJ(new_size__PKEH);
+            };
+            ((__POINTER *)next__BOHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__COHH)[ 0]=next__BOHH;
+          } else {
+            ((__POINTER *)result__DOHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__DOHH=next__BOHH;
+          };
+        };
+        ptr__RQOB=result__DOHH;
+      } else {
+        t__TKEH=((__UINTEGER_32 )typ_id__WQOB);
+        a__SKEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__KOHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQOB + a__SKEH) & (__UINTEGER_32)(~ a__SKEH));
+        ptr_table__HOHH=((__POINTER )(&(table_type[(t__TKEH)])));
+        lab_type__JOHH=(__UINTEGER_32)(t__TKEH |  1);
+        next__GOHH=((__POINTER )(NULL));
+        result__IOHH=((__POINTER *)ptr_table__HOHH)[ 0];
+        if ((result__IOHH == (void *)NULL)) {
+          result__IOHH=new_lab__MRJ(lab_type__JOHH);
+          next__GOHH=(void *)((unsigned long)result__IOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KOHH)));
+          ((__POINTER *)next__GOHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__HOHH)[ 0]=next__GOHH;
+        } else {
+          next__GOHH=((__POINTER *)result__IOHH)[ 0];
+          if ((next__GOHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IOHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KOHH <<  1)) <=  4096)) {
+              next__GOHH=(void *)((unsigned long)result__IOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KOHH)));
             } else {
-              next__3FHH=new_lab__MRJ(lab_type__AGHH);
+              next__GOHH=new_lab__MRJ(lab_type__JOHH);
             };
-            ((__POINTER *)next__3FHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__4FHH)[ 0]=next__3FHH;
+            ((__POINTER *)next__GOHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__HOHH)[ 0]=next__GOHH;
           } else {
-            ((__POINTER *)result__5FHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3FHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__5FHH=next__3FHH;
+            ((__POINTER *)result__IOHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__IOHH=next__GOHH;
           };
         };
-        ptr__RQOB=result__5FHH;
+        ptr__RQOB=result__IOHH;
       };
       result__QQOB=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)ptr__RQOB);
       *(result__QQOB) = *(HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__);
@@ -17611,122 +17867,122 @@ static void put__to__R0S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__S0S,v
 static void reduce_path__Q3HC(void *st__S3HC)
 // ({NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER stat__U3HC,__tmp__A5FH,Self__C5FH,i__T3HC,Self__DNOE;
-  __INTEGER n__JBEH,len__I5FH,__tmp__J5FH,__tmp__L5FH,Self__M5FH;
-  __INTEGER len__R5FH,__tmp__S5FH,__tmp__U5FH,Self__V5FH,result__Z5FH;
-  __INTEGER n__LBEH,len__45FH,__tmp__55FH,__tmp__BAGH,Self__CAGH;
-  __INTEGER end__FAGH,len__HAGH,__tmp__IAGH,__tmp__KAGH,Self__LAGH;
-  __INTEGER Self__4JEF,n__NBEH,len__QAGH,__tmp__RAGH,__tmp__TAGH;
-  __INTEGER Self__UAGH,result__YAGH,end__1AGH,len__3AGH,__tmp__4AGH;
-  __INTEGER __tmp__ABGH,Self__BBGH;
-  __STRING *Self__44FH,*Self__IBEH,*Self__T5FH,*Self__05FH,*Self__KBEH;
-  __STRING *Self__JAGH,*Self__MBEH,*Self__OBEH,*Self__QBEH,*Self__ZAGH;
-  __STRING *Self__5AGH;
-  __CHARACTER car__V3HC,Self__DGHH;
-  __CHARACTER *__tmp__54FH,*Self__B5FH;
-  __BOOLEAN __tmp__25HC,__tmp__BBIC,result__JGHE,result__CGHH;
-  __BOOLEAN __tmp__EGHH,__tmp__CCIC;
+  __INTEGER stat__U3HC,__tmp__NHGH,Self__PHGH,i__T3HC,Self__FROE;
+  __INTEGER n__YKEH,len__VHGH,__tmp__WHGH,__tmp__YHGH,Self__ZHGH;
+  __INTEGER len__4HGH,__tmp__5HGH,__tmp__BIGH,Self__CIGH,result__GIGH;
+  __INTEGER n__0KEH,len__LIGH,__tmp__MIGH,__tmp__OIGH,Self__PIGH;
+  __INTEGER end__SIGH,len__UIGH,__tmp__VIGH,__tmp__XIGH,Self__YIGH;
+  __INTEGER Self__DPEF,n__2KEH,len__3IGH,__tmp__4IGH,__tmp__AJGH;
+  __INTEGER Self__BJGH,result__FJGH,end__IJGH,len__KJGH,__tmp__LJGH;
+  __INTEGER __tmp__NJGH,Self__OJGH;
+  __STRING *Self__LHGH,*Self__XKEH,*Self__AIGH,*Self__HIGH,*Self__ZKEH;
+  __STRING *Self__WIGH,*Self__1KEH,*Self__3KEH,*Self__5KEH,*Self__GJGH;
+  __STRING *Self__MJGH;
+  __CHARACTER car__V3HC,Self__MOHH;
+  __CHARACTER *__tmp__MHGH,*Self__OHGH;
+  __BOOLEAN __tmp__25HC,__tmp__BBIC,result__LKHE,result__LOHH;
+  __BOOLEAN __tmp__NOHH,__tmp__CCIC;
   stat__U3HC= 0;
   car__V3HC='\0';
-  Self__44FH=((__STRING *)st__S3HC);
-  __tmp__54FH=Self__44FH->storage__BCS;
-  __tmp__A5FH=(__INTEGER)(Self__44FH->count__WFC -  1);
-  Self__B5FH=((__CHARACTER *)__tmp__54FH);
-  Self__C5FH=__tmp__A5FH;
-  while ((Self__C5FH >=  0)) {
-    if (('\\' == Self__B5FH[Self__C5FH])) {
-      Self__B5FH[Self__C5FH]='/';
+  Self__LHGH=((__STRING *)st__S3HC);
+  __tmp__MHGH=Self__LHGH->storage__BCS;
+  __tmp__NHGH=(__INTEGER)(Self__LHGH->count__WFC -  1);
+  Self__OHGH=((__CHARACTER *)__tmp__MHGH);
+  Self__PHGH=__tmp__NHGH;
+  while ((Self__PHGH >=  0)) {
+    if (('\\' == Self__OHGH[Self__PHGH])) {
+      Self__OHGH[Self__PHGH]='/';
     };
-    Self__C5FH=(__INTEGER)(Self__C5FH -  1);
+    Self__PHGH=(__INTEGER)(Self__PHGH -  1);
   };
   i__T3HC= 1;
   while ((i__T3HC <= ((__STRING *)st__S3HC)->count__WFC)) {
     car__V3HC=((__CHARACTER *)((__STRING *)st__S3HC)->storage__BCS)[(__INTEGER)(i__T3HC -  1)];
     if ((car__V3HC == '/')) {
-      Self__DNOE=stat__U3HC;
+      Self__FROE=stat__U3HC;
       if ((stat__U3HC ==  0)) {
         stat__U3HC= 1;
       };
-      if ((Self__DNOE ==  1)) {
-        Self__IBEH=((__STRING *)st__S3HC);
-        n__JBEH=(__INTEGER)(i__T3HC -  1);
-        if ((n__JBEH > Self__IBEH->count__WFC)) {
-          Self__IBEH->count__WFC= 0;
-        } else {
-          if ((n__JBEH >  0)) {
-            len__I5FH=(__INTEGER)((__INTEGER)(n__JBEH -  1) +  1);
-            if ((len__I5FH >  0)) {
-              __tmp__J5FH=(__INTEGER)(n__JBEH +  1);
-              __tmp__L5FH=Self__IBEH->count__WFC;
-              Self__M5FH=__tmp__J5FH;
-              while ((Self__M5FH <= __tmp__L5FH)) {
-                ((__CHARACTER *)Self__IBEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__M5FH - len__I5FH) -  1)]=((__CHARACTER *)Self__IBEH->storage__BCS)[(__INTEGER)(Self__M5FH -  1)];
-                Self__M5FH=(__INTEGER)(Self__M5FH +  1);
+      if ((Self__FROE ==  1)) {
+        Self__XKEH=((__STRING *)st__S3HC);
+        n__YKEH=(__INTEGER)(i__T3HC -  1);
+        if ((n__YKEH > Self__XKEH->count__WFC)) {
+          Self__XKEH->count__WFC= 0;
+        } else {
+          if ((n__YKEH >  0)) {
+            len__VHGH=(__INTEGER)((__INTEGER)(n__YKEH -  1) +  1);
+            if ((len__VHGH >  0)) {
+              __tmp__WHGH=(__INTEGER)(n__YKEH +  1);
+              __tmp__YHGH=Self__XKEH->count__WFC;
+              Self__ZHGH=__tmp__WHGH;
+              while ((Self__ZHGH <= __tmp__YHGH)) {
+                ((__CHARACTER *)Self__XKEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__ZHGH - len__VHGH) -  1)]=((__CHARACTER *)Self__XKEH->storage__BCS)[(__INTEGER)(Self__ZHGH -  1)];
+                Self__ZHGH=(__INTEGER)(Self__ZHGH +  1);
               };
-              Self__IBEH->count__WFC=(__INTEGER)(Self__IBEH->count__WFC - len__I5FH);
+              Self__XKEH->count__WFC=(__INTEGER)(Self__XKEH->count__WFC - len__VHGH);
             };
           };
         };
         i__T3HC= 1;
       };
-      if ((Self__DNOE ==  2)) {
-        Self__T5FH=((__STRING *)st__S3HC);
-        len__R5FH=(__INTEGER)((__INTEGER)(i__T3HC - (__INTEGER)(i__T3HC -  1)) +  1);
-        if ((len__R5FH >  0)) {
-          __tmp__S5FH=(__INTEGER)(i__T3HC +  1);
-          __tmp__U5FH=Self__T5FH->count__WFC;
-          Self__V5FH=__tmp__S5FH;
-          while ((Self__V5FH <= __tmp__U5FH)) {
-            ((__CHARACTER *)Self__T5FH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__V5FH - len__R5FH) -  1)]=((__CHARACTER *)Self__T5FH->storage__BCS)[(__INTEGER)(Self__V5FH -  1)];
-            Self__V5FH=(__INTEGER)(Self__V5FH +  1);
+      if ((Self__FROE ==  2)) {
+        Self__AIGH=((__STRING *)st__S3HC);
+        len__4HGH=(__INTEGER)((__INTEGER)(i__T3HC - (__INTEGER)(i__T3HC -  1)) +  1);
+        if ((len__4HGH >  0)) {
+          __tmp__5HGH=(__INTEGER)(i__T3HC +  1);
+          __tmp__BIGH=Self__AIGH->count__WFC;
+          Self__CIGH=__tmp__5HGH;
+          while ((Self__CIGH <= __tmp__BIGH)) {
+            ((__CHARACTER *)Self__AIGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__CIGH - len__4HGH) -  1)]=((__CHARACTER *)Self__AIGH->storage__BCS)[(__INTEGER)(Self__CIGH -  1)];
+            Self__CIGH=(__INTEGER)(Self__CIGH +  1);
           };
-          Self__T5FH->count__WFC=(__INTEGER)(Self__T5FH->count__WFC - len__R5FH);
+          Self__AIGH->count__WFC=(__INTEGER)(Self__AIGH->count__WFC - len__4HGH);
         };
         i__T3HC=(__INTEGER)(i__T3HC -  2);
         stat__U3HC= 1;
       };
-      if ((Self__DNOE ==  3)) {
-        Self__05FH=((__STRING *)st__S3HC);
-        result__Z5FH=(__INTEGER)(i__T3HC -  4);
-        while ((! ((result__Z5FH <  1) || ('/' == ((__CHARACTER *)Self__05FH->storage__BCS)[(__INTEGER)(result__Z5FH -  1)])))) {
-          result__Z5FH=(__INTEGER)(result__Z5FH -  1);
-        };
-        if ((result__Z5FH ==  0)) {
-          Self__KBEH=((__STRING *)st__S3HC);
-          n__LBEH=(__INTEGER)(i__T3HC -  1);
-          if ((n__LBEH > Self__KBEH->count__WFC)) {
-            Self__KBEH->count__WFC= 0;
-          } else {
-            if ((n__LBEH >  0)) {
-              len__45FH=(__INTEGER)((__INTEGER)(n__LBEH -  1) +  1);
-              if ((len__45FH >  0)) {
-                __tmp__55FH=(__INTEGER)(n__LBEH +  1);
-                __tmp__BAGH=Self__KBEH->count__WFC;
-                Self__CAGH=__tmp__55FH;
-                while ((Self__CAGH <= __tmp__BAGH)) {
-                  ((__CHARACTER *)Self__KBEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__CAGH - len__45FH) -  1)]=((__CHARACTER *)Self__KBEH->storage__BCS)[(__INTEGER)(Self__CAGH -  1)];
-                  Self__CAGH=(__INTEGER)(Self__CAGH +  1);
+      if ((Self__FROE ==  3)) {
+        Self__HIGH=((__STRING *)st__S3HC);
+        result__GIGH=(__INTEGER)(i__T3HC -  4);
+        while ((! ((result__GIGH <  1) || ('/' == ((__CHARACTER *)Self__HIGH->storage__BCS)[(__INTEGER)(result__GIGH -  1)])))) {
+          result__GIGH=(__INTEGER)(result__GIGH -  1);
+        };
+        if ((result__GIGH ==  0)) {
+          Self__ZKEH=((__STRING *)st__S3HC);
+          n__0KEH=(__INTEGER)(i__T3HC -  1);
+          if ((n__0KEH > Self__ZKEH->count__WFC)) {
+            Self__ZKEH->count__WFC= 0;
+          } else {
+            if ((n__0KEH >  0)) {
+              len__LIGH=(__INTEGER)((__INTEGER)(n__0KEH -  1) +  1);
+              if ((len__LIGH >  0)) {
+                __tmp__MIGH=(__INTEGER)(n__0KEH +  1);
+                __tmp__OIGH=Self__ZKEH->count__WFC;
+                Self__PIGH=__tmp__MIGH;
+                while ((Self__PIGH <= __tmp__OIGH)) {
+                  ((__CHARACTER *)Self__ZKEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__PIGH - len__LIGH) -  1)]=((__CHARACTER *)Self__ZKEH->storage__BCS)[(__INTEGER)(Self__PIGH -  1)];
+                  Self__PIGH=(__INTEGER)(Self__PIGH +  1);
                 };
-                Self__KBEH->count__WFC=(__INTEGER)(Self__KBEH->count__WFC - len__45FH);
+                Self__ZKEH->count__WFC=(__INTEGER)(Self__ZKEH->count__WFC - len__LIGH);
               };
             };
           };
           i__T3HC= 1;
         } else {
-          Self__JAGH=((__STRING *)st__S3HC);
-          end__FAGH=(__INTEGER)(i__T3HC -  1);
-          len__HAGH=(__INTEGER)((__INTEGER)(end__FAGH - result__Z5FH) +  1);
-          if ((len__HAGH >  0)) {
-            __tmp__IAGH=(__INTEGER)(end__FAGH +  1);
-            __tmp__KAGH=Self__JAGH->count__WFC;
-            Self__LAGH=__tmp__IAGH;
-            while ((Self__LAGH <= __tmp__KAGH)) {
-              ((__CHARACTER *)Self__JAGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__LAGH - len__HAGH) -  1)]=((__CHARACTER *)Self__JAGH->storage__BCS)[(__INTEGER)(Self__LAGH -  1)];
-              Self__LAGH=(__INTEGER)(Self__LAGH +  1);
+          Self__WIGH=((__STRING *)st__S3HC);
+          end__SIGH=(__INTEGER)(i__T3HC -  1);
+          len__UIGH=(__INTEGER)((__INTEGER)(end__SIGH - result__GIGH) +  1);
+          if ((len__UIGH >  0)) {
+            __tmp__VIGH=(__INTEGER)(end__SIGH +  1);
+            __tmp__XIGH=Self__WIGH->count__WFC;
+            Self__YIGH=__tmp__VIGH;
+            while ((Self__YIGH <= __tmp__XIGH)) {
+              ((__CHARACTER *)Self__WIGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__YIGH - len__UIGH) -  1)]=((__CHARACTER *)Self__WIGH->storage__BCS)[(__INTEGER)(Self__YIGH -  1)];
+              Self__YIGH=(__INTEGER)(Self__YIGH +  1);
             };
-            Self__JAGH->count__WFC=(__INTEGER)(Self__JAGH->count__WFC - len__HAGH);
+            Self__WIGH->count__WFC=(__INTEGER)(Self__WIGH->count__WFC - len__UIGH);
           };
-          i__T3HC=result__Z5FH;
+          i__T3HC=result__GIGH;
         };
         stat__U3HC= 1;
       };
@@ -17737,57 +17993,57 @@ static void reduce_path__Q3HC(void *st__S3HC)
     if (__tmp__25HC) {
       __tmp__BBIC=TRUE__;
     } else {
-      result__JGHE=(car__V3HC == '.');
-      if (result__JGHE) {
-        Self__4JEF=stat__U3HC;
+      result__LKHE=(car__V3HC == '.');
+      if (result__LKHE) {
+        Self__DPEF=stat__U3HC;
         if ((stat__U3HC ==  1)) {
           stat__U3HC= 2;
         };
-        if ((Self__4JEF ==  2)) {
+        if ((Self__DPEF ==  2)) {
           stat__U3HC= 3;
         };
-        if ((Self__4JEF ==  3)) {
+        if ((Self__DPEF ==  3)) {
           stat__U3HC= 0;
         };
       };
-      __tmp__BBIC=result__JGHE;
+      __tmp__BBIC=result__LKHE;
     };
     if ((! __tmp__BBIC)) {
       if (((car__V3HC == ':') && (i__T3HC >  2))) {
-        Self__DGHH=((__CHARACTER *)((__STRING *)st__S3HC)->storage__BCS)[(__INTEGER)((__INTEGER)(i__T3HC -  1) -  1)];
-        result__CGHH=FALSE__;
-        if ((((__INTEGER_8 )Self__DGHH) >= ((__INTEGER_8 )'a'))) {
-          result__CGHH=(((__INTEGER_8 )Self__DGHH) <= ((__INTEGER_8 )'z'));
-          __tmp__EGHH=TRUE__;
+        Self__MOHH=((__CHARACTER *)((__STRING *)st__S3HC)->storage__BCS)[(__INTEGER)((__INTEGER)(i__T3HC -  1) -  1)];
+        result__LOHH=FALSE__;
+        if ((((__INTEGER_8 )Self__MOHH) >= ((__INTEGER_8 )'a'))) {
+          result__LOHH=(((__INTEGER_8 )Self__MOHH) <= ((__INTEGER_8 )'z'));
+          __tmp__NOHH=TRUE__;
         } else {
-          __tmp__EGHH=FALSE__;
+          __tmp__NOHH=FALSE__;
         };
-        if ((! __tmp__EGHH)) {
-          if ((((__INTEGER_8 )Self__DGHH) >= ((__INTEGER_8 )'A'))) {
-            result__CGHH=(((__INTEGER_8 )Self__DGHH) <= ((__INTEGER_8 )'Z'));
+        if ((! __tmp__NOHH)) {
+          if ((((__INTEGER_8 )Self__MOHH) >= ((__INTEGER_8 )'A'))) {
+            result__LOHH=(((__INTEGER_8 )Self__MOHH) <= ((__INTEGER_8 )'Z'));
           };
         };
-        __tmp__CCIC=result__CGHH;
+        __tmp__CCIC=result__LOHH;
       } else {
         __tmp__CCIC=FALSE__;
       };
       if ((__tmp__CCIC && (((__CHARACTER *)((__STRING *)st__S3HC)->storage__BCS)[(__INTEGER)((__INTEGER)(i__T3HC -  2) -  1)] == '/'))) {
-        Self__MBEH=((__STRING *)st__S3HC);
-        n__NBEH=(__INTEGER)(i__T3HC -  2);
-        if ((n__NBEH > Self__MBEH->count__WFC)) {
-          Self__MBEH->count__WFC= 0;
-        } else {
-          if ((n__NBEH >  0)) {
-            len__QAGH=(__INTEGER)((__INTEGER)(n__NBEH -  1) +  1);
-            if ((len__QAGH >  0)) {
-              __tmp__RAGH=(__INTEGER)(n__NBEH +  1);
-              __tmp__TAGH=Self__MBEH->count__WFC;
-              Self__UAGH=__tmp__RAGH;
-              while ((Self__UAGH <= __tmp__TAGH)) {
-                ((__CHARACTER *)Self__MBEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__UAGH - len__QAGH) -  1)]=((__CHARACTER *)Self__MBEH->storage__BCS)[(__INTEGER)(Self__UAGH -  1)];
-                Self__UAGH=(__INTEGER)(Self__UAGH +  1);
+        Self__1KEH=((__STRING *)st__S3HC);
+        n__2KEH=(__INTEGER)(i__T3HC -  2);
+        if ((n__2KEH > Self__1KEH->count__WFC)) {
+          Self__1KEH->count__WFC= 0;
+        } else {
+          if ((n__2KEH >  0)) {
+            len__3IGH=(__INTEGER)((__INTEGER)(n__2KEH -  1) +  1);
+            if ((len__3IGH >  0)) {
+              __tmp__4IGH=(__INTEGER)(n__2KEH +  1);
+              __tmp__AJGH=Self__1KEH->count__WFC;
+              Self__BJGH=__tmp__4IGH;
+              while ((Self__BJGH <= __tmp__AJGH)) {
+                ((__CHARACTER *)Self__1KEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__BJGH - len__3IGH) -  1)]=((__CHARACTER *)Self__1KEH->storage__BCS)[(__INTEGER)(Self__BJGH -  1)];
+                Self__BJGH=(__INTEGER)(Self__BJGH +  1);
               };
-              Self__MBEH->count__WFC=(__INTEGER)(Self__MBEH->count__WFC - len__QAGH);
+              Self__1KEH->count__WFC=(__INTEGER)(Self__1KEH->count__WFC - len__3IGH);
             };
           };
         };
@@ -17799,42 +18055,42 @@ static void reduce_path__Q3HC(void *st__S3HC)
     i__T3HC=(__INTEGER)(i__T3HC +  1);
   };
   if ((stat__U3HC ==  1)) {
-    Self__OBEH=((__STRING *)st__S3HC);
-    if (( 1 > Self__OBEH->count__WFC)) {
-      Self__OBEH->count__WFC= 0;
+    Self__3KEH=((__STRING *)st__S3HC);
+    if (( 1 > Self__3KEH->count__WFC)) {
+      Self__3KEH->count__WFC= 0;
     } else {
-      Self__OBEH->count__WFC=(__INTEGER)(Self__OBEH->count__WFC -  1);
+      Self__3KEH->count__WFC=(__INTEGER)(Self__3KEH->count__WFC -  1);
     };
   };
   if ((stat__U3HC ==  2)) {
-    Self__QBEH=((__STRING *)st__S3HC);
-    if (( 2 > Self__QBEH->count__WFC)) {
-      Self__QBEH->count__WFC= 0;
+    Self__5KEH=((__STRING *)st__S3HC);
+    if (( 2 > Self__5KEH->count__WFC)) {
+      Self__5KEH->count__WFC= 0;
     } else {
-      Self__QBEH->count__WFC=(__INTEGER)(Self__QBEH->count__WFC -  2);
+      Self__5KEH->count__WFC=(__INTEGER)(Self__5KEH->count__WFC -  2);
     };
   };
   if ((stat__U3HC ==  3)) {
-    Self__ZAGH=((__STRING *)st__S3HC);
-    result__YAGH=(__INTEGER)(i__T3HC -  4);
-    while ((! ((result__YAGH <  1) || ('/' == ((__CHARACTER *)Self__ZAGH->storage__BCS)[(__INTEGER)(result__YAGH -  1)])))) {
-      result__YAGH=(__INTEGER)(result__YAGH -  1);
+    Self__GJGH=((__STRING *)st__S3HC);
+    result__FJGH=(__INTEGER)(i__T3HC -  4);
+    while ((! ((result__FJGH <  1) || ('/' == ((__CHARACTER *)Self__GJGH->storage__BCS)[(__INTEGER)(result__FJGH -  1)])))) {
+      result__FJGH=(__INTEGER)(result__FJGH -  1);
     };
-    if ((result__YAGH ==  0)) {
+    if ((result__FJGH ==  0)) {
       ((__STRING *)st__S3HC)->count__WFC= 0;
     } else {
-      Self__5AGH=((__STRING *)st__S3HC);
-      end__1AGH=(__INTEGER)(i__T3HC -  1);
-      len__3AGH=(__INTEGER)((__INTEGER)(end__1AGH - result__YAGH) +  1);
-      if ((len__3AGH >  0)) {
-        __tmp__4AGH=(__INTEGER)(end__1AGH +  1);
-        __tmp__ABGH=Self__5AGH->count__WFC;
-        Self__BBGH=__tmp__4AGH;
-        while ((Self__BBGH <= __tmp__ABGH)) {
-          ((__CHARACTER *)Self__5AGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__BBGH - len__3AGH) -  1)]=((__CHARACTER *)Self__5AGH->storage__BCS)[(__INTEGER)(Self__BBGH -  1)];
-          Self__BBGH=(__INTEGER)(Self__BBGH +  1);
+      Self__MJGH=((__STRING *)st__S3HC);
+      end__IJGH=(__INTEGER)(i__T3HC -  1);
+      len__KJGH=(__INTEGER)((__INTEGER)(end__IJGH - result__FJGH) +  1);
+      if ((len__KJGH >  0)) {
+        __tmp__LJGH=(__INTEGER)(end__IJGH +  1);
+        __tmp__NJGH=Self__MJGH->count__WFC;
+        Self__OJGH=__tmp__LJGH;
+        while ((Self__OJGH <= __tmp__NJGH)) {
+          ((__CHARACTER *)Self__MJGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__OJGH - len__KJGH) -  1)]=((__CHARACTER *)Self__MJGH->storage__BCS)[(__INTEGER)(Self__OJGH -  1)];
+          Self__OJGH=(__INTEGER)(Self__OJGH +  1);
         };
-        Self__5AGH->count__WFC=(__INTEGER)(Self__5AGH->count__WFC - len__3AGH);
+        Self__MJGH->count__WFC=(__INTEGER)(Self__MJGH->count__WFC - len__KJGH);
       };
     };
   };
@@ -17847,22 +18103,22 @@ static void* reference_at__EU0C(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self
 // ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxSTRING}) With resultNo recursive, No inlinable.
 {
   void *result__QU0C;
-  __STRING *Self__FBGH;
-  __INTEGER result__EBGH,__tmp__GBGH,Self__HBGH;
+  __STRING *Self__SJGH;
+  __INTEGER result__RJGH,__tmp__TJGH,Self__UJGH;
   void *node__PU0C;
   result__QU0C=NULL;
-  Self__FBGH=((__STRING *)k__GU0C);
-  result__EBGH= 0;
-  __tmp__GBGH=Self__FBGH->count__WFC;
-  Self__HBGH= 1;
-  while ((Self__HBGH <= __tmp__GBGH)) {
-    result__EBGH=(__INTEGER)((__INTEGER)( 5 * result__EBGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__FBGH->storage__BCS)[(__INTEGER)(Self__HBGH -  1)])));
-    Self__HBGH=(__INTEGER)(Self__HBGH +  1);
-  };
-  if ((result__EBGH <  0)) {
-    result__EBGH=(__INTEGER)(~ result__EBGH);
-  };
-  node__PU0C=((void **)Self__FU0C->buckets__F1S)[(__INTEGER)(result__EBGH % Self__FU0C->capacity__A1S)];
+  Self__SJGH=((__STRING *)k__GU0C);
+  result__RJGH= 0;
+  __tmp__TJGH=Self__SJGH->count__WFC;
+  Self__UJGH= 1;
+  while ((Self__UJGH <= __tmp__TJGH)) {
+    result__RJGH=(__INTEGER)((__INTEGER)( 5 * result__RJGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__SJGH->storage__BCS)[(__INTEGER)(Self__UJGH -  1)])));
+    Self__UJGH=(__INTEGER)(Self__UJGH +  1);
+  };
+  if ((result__RJGH <  0)) {
+    result__RJGH=(__INTEGER)(~ result__RJGH);
+  };
+  node__PU0C=((void **)Self__FU0C->buckets__F1S)[(__INTEGER)(result__RJGH % Self__FU0C->capacity__A1S)];
   while ((! (((void *)node__PU0C == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__PU0C)->key__R1S,k__GU0C)))) {
     node__PU0C=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__PU0C)->next__31S;
   };
@@ -17876,29 +18132,29 @@ static void* physical_get_entry__YW0C(void *new_path__0W0C)
 // ({NULLxSTRING}) With resultNo recursive, No inlinable.
 {
   void *result__3W0C;
-  __STRING *Self__UBEH;
+  __STRING *Self__DLEH;
   __FILE_UNIX *result__4XI;
-  __POINTER ptr__5XI,ptr_table__GGHH,next__FGHH,result__HGHH;
-  __POINTER ptr_table__LGHH,next__KGHH,result__MGHH,ptr__QZI;
-  __POINTER ptr_table__QGHH,next__PGHH,result__RGHH,ptr_table__VGHH;
-  __POINTER next__UGHH,result__WGHH;
+  __POINTER ptr__5XI,ptr_table__POHH,next__OOHH,result__QOHH;
+  __POINTER ptr_table__UOHH,next__TOHH,result__VOHH,ptr__QZI;
+  __POINTER ptr_table__ZOHH,next__YOHH,result__0OHH,ptr_table__4OHH;
+  __POINTER next__3OHH,result__5OHH;
   __INTEGER typ_id__EYI,typ_id__VZI;
-  __UINTEGER_32 sz__BYI,a__XREH,new_size__YREH,t__2REH,a__1REH;
-  __UINTEGER_32 new_size__OGHH,lab_type__NGHH,sz__SZI,a__5REH;
-  __UINTEGER_32 new_size__ASEH,t__ESEH,a__DSEH,new_size__YGHH;
-  __UINTEGER_32 lab_type__XGHH;
+  __UINTEGER_32 sz__BYI,a__R0EH,new_size__S0EH,t__W0EH,a__V0EH;
+  __UINTEGER_32 new_size__XOHH,lab_type__WOHH,sz__SZI,a__Z0EH;
+  __UINTEGER_32 new_size__00EH,t__40EH,a__30EH,new_size__BPHH;
+  __UINTEGER_32 lab_type__APHH;
   __DIRECTORY_UNIX *result__PZI;
   void *__tmp__UX0C;
   __CHARACTER *pe__2W0C;
   result__3W0C=NULL;
-  Self__UBEH=((__STRING *)new_path__0W0C);
-  if ((Self__UBEH->capacity__YBS > Self__UBEH->count__WFC)) {
-    ((__CHARACTER *)Self__UBEH->storage__BCS)[Self__UBEH->count__WFC]='\0';
+  Self__DLEH=((__STRING *)new_path__0W0C);
+  if ((Self__DLEH->capacity__YBS > Self__DLEH->count__WFC)) {
+    ((__CHARACTER *)Self__DLEH->storage__BCS)[Self__DLEH->count__WFC]='\0';
   } else {
-    add_last__ZLT(Self__UBEH,'\0');
-    Self__UBEH->count__WFC=(__INTEGER)(Self__UBEH->count__WFC -  1);
+    add_last__ZLT(Self__DLEH,'\0');
+    Self__DLEH->count__WFC=(__INTEGER)(Self__DLEH->count__WFC -  1);
   };
-  pe__2W0C=Self__UBEH->storage__BCS;
+  pe__2W0C=Self__DLEH->storage__BCS;
   { struct stat t;
   if ((((__INTEGER )(stat((pe__2W0C),&t))) ==  0)) {
     if ((((__INTEGER )(S_ISDIR(t.st_mode))) ==  0)) {
@@ -17912,61 +18168,61 @@ static void* physical_get_entry__YW0C(void *new_path__0W0C)
         typ_id__EYI=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__BYI);
         if ((typ_id__EYI == (__INTEGER)(-  1))) {
-          a__XREH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__YREH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYI + a__XREH) & (__UINTEGER_32)(~ a__XREH));
-          ptr_table__GGHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YREH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__FGHH=((__POINTER )(NULL));
-          result__HGHH=((__POINTER *)ptr_table__GGHH)[ 0];
-          if ((result__HGHH == (void *)NULL)) {
-            result__HGHH=new_lab__MRJ(new_size__YREH);
-            next__FGHH=(void *)((unsigned long)result__HGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YREH)));
-            ((__POINTER *)next__FGHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GGHH)[ 0]=next__FGHH;
-          } else {
-            next__FGHH=((__POINTER *)result__HGHH)[ 0];
-            if ((next__FGHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YREH <<  1)) <=  4096)) {
-                next__FGHH=(void *)((unsigned long)result__HGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YREH)));
+          a__R0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__S0EH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYI + a__R0EH) & (__UINTEGER_32)(~ a__R0EH));
+          ptr_table__POHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__S0EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__OOHH=((__POINTER )(NULL));
+          result__QOHH=((__POINTER *)ptr_table__POHH)[ 0];
+          if ((result__QOHH == (void *)NULL)) {
+            result__QOHH=new_lab__MRJ(new_size__S0EH);
+            next__OOHH=(void *)((unsigned long)result__QOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0EH)));
+            ((__POINTER *)next__OOHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__POHH)[ 0]=next__OOHH;
+          } else {
+            next__OOHH=((__POINTER *)result__QOHH)[ 0];
+            if ((next__OOHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QOHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__S0EH <<  1)) <=  4096)) {
+                next__OOHH=(void *)((unsigned long)result__QOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0EH)));
               } else {
-                next__FGHH=new_lab__MRJ(new_size__YREH);
+                next__OOHH=new_lab__MRJ(new_size__S0EH);
               };
-              ((__POINTER *)next__FGHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__GGHH)[ 0]=next__FGHH;
+              ((__POINTER *)next__OOHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__POHH)[ 0]=next__OOHH;
             } else {
-              ((__POINTER *)result__HGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__HGHH=next__FGHH;
-            };
-          };
-          ptr__5XI=result__HGHH;
-        } else {
-          t__2REH=((__UINTEGER_32 )typ_id__EYI);
-          a__1REH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__OGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYI + a__1REH) & (__UINTEGER_32)(~ a__1REH));
-          ptr_table__LGHH=((__POINTER )(&(table_type[(t__2REH)])));
-          lab_type__NGHH=(__UINTEGER_32)(t__2REH |  1);
-          next__KGHH=((__POINTER )(NULL));
-          result__MGHH=((__POINTER *)ptr_table__LGHH)[ 0];
-          if ((result__MGHH == (void *)NULL)) {
-            result__MGHH=new_lab__MRJ(lab_type__NGHH);
-            next__KGHH=(void *)((unsigned long)result__MGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OGHH)));
-            ((__POINTER *)next__KGHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__LGHH)[ 0]=next__KGHH;
-          } else {
-            next__KGHH=((__POINTER *)result__MGHH)[ 0];
-            if ((next__KGHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OGHH <<  1)) <=  4096)) {
-                next__KGHH=(void *)((unsigned long)result__MGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OGHH)));
+              ((__POINTER *)result__QOHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__QOHH=next__OOHH;
+            };
+          };
+          ptr__5XI=result__QOHH;
+        } else {
+          t__W0EH=((__UINTEGER_32 )typ_id__EYI);
+          a__V0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__XOHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYI + a__V0EH) & (__UINTEGER_32)(~ a__V0EH));
+          ptr_table__UOHH=((__POINTER )(&(table_type[(t__W0EH)])));
+          lab_type__WOHH=(__UINTEGER_32)(t__W0EH |  1);
+          next__TOHH=((__POINTER )(NULL));
+          result__VOHH=((__POINTER *)ptr_table__UOHH)[ 0];
+          if ((result__VOHH == (void *)NULL)) {
+            result__VOHH=new_lab__MRJ(lab_type__WOHH);
+            next__TOHH=(void *)((unsigned long)result__VOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOHH)));
+            ((__POINTER *)next__TOHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__UOHH)[ 0]=next__TOHH;
+          } else {
+            next__TOHH=((__POINTER *)result__VOHH)[ 0];
+            if ((next__TOHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VOHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XOHH <<  1)) <=  4096)) {
+                next__TOHH=(void *)((unsigned long)result__VOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOHH)));
               } else {
-                next__KGHH=new_lab__MRJ(lab_type__NGHH);
+                next__TOHH=new_lab__MRJ(lab_type__WOHH);
               };
-              ((__POINTER *)next__KGHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__LGHH)[ 0]=next__KGHH;
+              ((__POINTER *)next__TOHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__UOHH)[ 0]=next__TOHH;
             } else {
-              ((__POINTER *)result__MGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__MGHH=next__KGHH;
+              ((__POINTER *)result__VOHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__VOHH=next__TOHH;
             };
           };
-          ptr__5XI=result__MGHH;
+          ptr__5XI=result__VOHH;
         };
         result__4XI=((__FILE_UNIX *)ptr__5XI);
         *(result__4XI) = *(FILE_UNIX__);
@@ -17983,61 +18239,61 @@ static void* physical_get_entry__YW0C(void *new_path__0W0C)
         typ_id__VZI=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SZI);
         if ((typ_id__VZI == (__INTEGER)(-  1))) {
-          a__5REH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__ASEH=(__UINTEGER_32)((__UINTEGER_32)(sz__SZI + a__5REH) & (__UINTEGER_32)(~ a__5REH));
-          ptr_table__QGHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ASEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__PGHH=((__POINTER )(NULL));
-          result__RGHH=((__POINTER *)ptr_table__QGHH)[ 0];
-          if ((result__RGHH == (void *)NULL)) {
-            result__RGHH=new_lab__MRJ(new_size__ASEH);
-            next__PGHH=(void *)((unsigned long)result__RGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASEH)));
-            ((__POINTER *)next__PGHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__QGHH)[ 0]=next__PGHH;
-          } else {
-            next__PGHH=((__POINTER *)result__RGHH)[ 0];
-            if ((next__PGHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ASEH <<  1)) <=  4096)) {
-                next__PGHH=(void *)((unsigned long)result__RGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASEH)));
+          a__Z0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__00EH=(__UINTEGER_32)((__UINTEGER_32)(sz__SZI + a__Z0EH) & (__UINTEGER_32)(~ a__Z0EH));
+          ptr_table__ZOHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__00EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__YOHH=((__POINTER )(NULL));
+          result__0OHH=((__POINTER *)ptr_table__ZOHH)[ 0];
+          if ((result__0OHH == (void *)NULL)) {
+            result__0OHH=new_lab__MRJ(new_size__00EH);
+            next__YOHH=(void *)((unsigned long)result__0OHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00EH)));
+            ((__POINTER *)next__YOHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__ZOHH)[ 0]=next__YOHH;
+          } else {
+            next__YOHH=((__POINTER *)result__0OHH)[ 0];
+            if ((next__YOHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0OHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__00EH <<  1)) <=  4096)) {
+                next__YOHH=(void *)((unsigned long)result__0OHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00EH)));
               } else {
-                next__PGHH=new_lab__MRJ(new_size__ASEH);
+                next__YOHH=new_lab__MRJ(new_size__00EH);
               };
-              ((__POINTER *)next__PGHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__QGHH)[ 0]=next__PGHH;
+              ((__POINTER *)next__YOHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__ZOHH)[ 0]=next__YOHH;
             } else {
-              ((__POINTER *)result__RGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__RGHH=next__PGHH;
-            };
-          };
-          ptr__QZI=result__RGHH;
-        } else {
-          t__ESEH=((__UINTEGER_32 )typ_id__VZI);
-          a__DSEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__YGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__SZI + a__DSEH) & (__UINTEGER_32)(~ a__DSEH));
-          ptr_table__VGHH=((__POINTER )(&(table_type[(t__ESEH)])));
-          lab_type__XGHH=(__UINTEGER_32)(t__ESEH |  1);
-          next__UGHH=((__POINTER )(NULL));
-          result__WGHH=((__POINTER *)ptr_table__VGHH)[ 0];
-          if ((result__WGHH == (void *)NULL)) {
-            result__WGHH=new_lab__MRJ(lab_type__XGHH);
-            next__UGHH=(void *)((unsigned long)result__WGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YGHH)));
-            ((__POINTER *)next__UGHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__VGHH)[ 0]=next__UGHH;
-          } else {
-            next__UGHH=((__POINTER *)result__WGHH)[ 0];
-            if ((next__UGHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WGHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YGHH <<  1)) <=  4096)) {
-                next__UGHH=(void *)((unsigned long)result__WGHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YGHH)));
+              ((__POINTER *)result__0OHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__0OHH=next__YOHH;
+            };
+          };
+          ptr__QZI=result__0OHH;
+        } else {
+          t__40EH=((__UINTEGER_32 )typ_id__VZI);
+          a__30EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__BPHH=(__UINTEGER_32)((__UINTEGER_32)(sz__SZI + a__30EH) & (__UINTEGER_32)(~ a__30EH));
+          ptr_table__4OHH=((__POINTER )(&(table_type[(t__40EH)])));
+          lab_type__APHH=(__UINTEGER_32)(t__40EH |  1);
+          next__3OHH=((__POINTER )(NULL));
+          result__5OHH=((__POINTER *)ptr_table__4OHH)[ 0];
+          if ((result__5OHH == (void *)NULL)) {
+            result__5OHH=new_lab__MRJ(lab_type__APHH);
+            next__3OHH=(void *)((unsigned long)result__5OHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BPHH)));
+            ((__POINTER *)next__3OHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__4OHH)[ 0]=next__3OHH;
+          } else {
+            next__3OHH=((__POINTER *)result__5OHH)[ 0];
+            if ((next__3OHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5OHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BPHH <<  1)) <=  4096)) {
+                next__3OHH=(void *)((unsigned long)result__5OHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BPHH)));
               } else {
-                next__UGHH=new_lab__MRJ(lab_type__XGHH);
+                next__3OHH=new_lab__MRJ(lab_type__APHH);
               };
-              ((__POINTER *)next__UGHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__VGHH)[ 0]=next__UGHH;
+              ((__POINTER *)next__3OHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__4OHH)[ 0]=next__3OHH;
             } else {
-              ((__POINTER *)result__WGHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__WGHH=next__UGHH;
+              ((__POINTER *)result__5OHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3OHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__5OHH=next__3OHH;
             };
           };
-          ptr__QZI=result__WGHH;
+          ptr__QZI=result__5OHH;
         };
         result__PZI=((__DIRECTORY_UNIX *)ptr__QZI);
         *(result__PZI) = *(DIRECTORY_UNIX__);
@@ -18067,57 +18323,57 @@ static void* physical_get_entry__YW0C(void *new_path__0W0C)
 static void** create__VY1C(__INTEGER nb_elements__XY1C)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__FGCH,a__KGCH,new_size__GGCH,new_size2__HGCH,a__ZBEH;
-  __UINTEGER_32 new_size__0BEH;
-  __POINTER result__EGCH,ptr_table__0GHH,next__ZGHH,result__1GHH;
-  void *result__4GHH;
+  __UINTEGER_32 sz__KPCH,a__PPCH,new_size__LPCH,new_size2__MPCH,a__ILEH;
+  __UINTEGER_32 new_size__JLEH;
+  __POINTER result__JPCH,ptr_table__DPHH,next__CPHH,result__EPHH;
+  void *result__HPHH;
   __INTEGER Self__Z3WD;
   void **Result__SVCD;
-  sz__FGCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XY1C * ((__INTEGER )(sizeof(void *)))));
-  result__EGCH=((__POINTER )(NULL));
-  a__KGCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__GGCH=(__UINTEGER_32)((__UINTEGER_32)(sz__FGCH + a__KGCH) & (__UINTEGER_32)(~ a__KGCH));
-  new_size2__HGCH=(__UINTEGER_32)(new_size__GGCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__HGCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__ZBEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__0BEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__HGCH + a__ZBEH) & (__UINTEGER_32)(~ a__ZBEH));
-    ptr_table__0GHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0BEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ZGHH=((__POINTER )(NULL));
-    result__1GHH=((__POINTER *)ptr_table__0GHH)[ 0];
-    if ((result__1GHH == (void *)NULL)) {
-      result__1GHH=new_lab__MRJ(new_size__0BEH);
-      next__ZGHH=(void *)((unsigned long)result__1GHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0BEH)));
-      ((__POINTER *)next__ZGHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__0GHH)[ 0]=next__ZGHH;
-    } else {
-      next__ZGHH=((__POINTER *)result__1GHH)[ 0];
-      if ((next__ZGHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1GHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0BEH <<  1)) <=  4096)) {
-          next__ZGHH=(void *)((unsigned long)result__1GHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0BEH)));
-        } else {
-          next__ZGHH=new_lab__MRJ(new_size__0BEH);
-        };
-        ((__POINTER *)next__ZGHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0GHH)[ 0]=next__ZGHH;
-      } else {
-        ((__POINTER *)result__1GHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZGHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__1GHH=next__ZGHH;
-      };
-    };
-    ((__POINTER *)result__1GHH)[ 0]=((__POINTER ) 3);
-    result__EGCH=(void *)((unsigned long)result__1GHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__KPCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XY1C * ((__INTEGER )(sizeof(void *)))));
+  result__JPCH=((__POINTER )(NULL));
+  a__PPCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__LPCH=(__UINTEGER_32)((__UINTEGER_32)(sz__KPCH + a__PPCH) & (__UINTEGER_32)(~ a__PPCH));
+  new_size2__MPCH=(__UINTEGER_32)(new_size__LPCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__MPCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__ILEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__JLEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__MPCH + a__ILEH) & (__UINTEGER_32)(~ a__ILEH));
+    ptr_table__DPHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JLEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__CPHH=((__POINTER )(NULL));
+    result__EPHH=((__POINTER *)ptr_table__DPHH)[ 0];
+    if ((result__EPHH == (void *)NULL)) {
+      result__EPHH=new_lab__MRJ(new_size__JLEH);
+      next__CPHH=(void *)((unsigned long)result__EPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLEH)));
+      ((__POINTER *)next__CPHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__DPHH)[ 0]=next__CPHH;
+    } else {
+      next__CPHH=((__POINTER *)result__EPHH)[ 0];
+      if ((next__CPHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EPHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JLEH <<  1)) <=  4096)) {
+          next__CPHH=(void *)((unsigned long)result__EPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLEH)));
+        } else {
+          next__CPHH=new_lab__MRJ(new_size__JLEH);
+        };
+        ((__POINTER *)next__CPHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__DPHH)[ 0]=next__CPHH;
+      } else {
+        ((__POINTER *)result__EPHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CPHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__EPHH=next__CPHH;
+      };
+    };
+    ((__POINTER *)result__EPHH)[ 0]=((__POINTER ) 3);
+    result__JPCH=(void *)((unsigned long)result__EPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__4GHH=first_free__XDVB;
-    while ((((void *)result__4GHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__4GHH)->map_size_and_id__ITB &  4294967292LU) < new_size__GGCH))) {
-      result__4GHH=((__MEMORY *)result__4GHH)->map_next_free__JTB;
+    result__HPHH=first_free__XDVB;
+    while ((((void *)result__HPHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__HPHH)->map_size_and_id__ITB &  4294967292LU) < new_size__LPCH))) {
+      result__HPHH=((__MEMORY *)result__HPHH)->map_next_free__JTB;
     };
-    if (((void *)result__4GHH == (void *)NULL)) {
-      result__4GHH=new_page__OA5();
+    if (((void *)result__HPHH == (void *)NULL)) {
+      result__HPHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__4GHH,new_size__GGCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__4GHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__EGCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__4GHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__HPHH,new_size__LPCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__HPHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__JPCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HPHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__SVCD=((void **)result__EGCH);
+  Result__SVCD=((void **)result__JPCH);
   Self__Z3WD=(__INTEGER)(nb_elements__XY1C -  1);
   while ((Self__Z3WD >=  0)) {
     Result__SVCD[Self__Z3WD]=NULL;
@@ -18129,57 +18385,57 @@ static void** create__VY1C(__INTEGER nb_elements__XY1C)
 static void** create__3QSC(__INTEGER nb_elements__5QSC)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__NGCH,a__SGCH,new_size__OGCH,new_size2__PGCH,a__ACEH;
-  __UINTEGER_32 new_size__BCEH;
-  __POINTER result__MGCH,ptr_table__CHHH,next__BHHH,result__DHHH;
-  void *result__GHHH;
+  __UINTEGER_32 sz__SPCH,a__XPCH,new_size__TPCH,new_size2__UPCH,a__PLEH;
+  __UINTEGER_32 new_size__QLEH;
+  __POINTER result__RPCH,ptr_table__LPHH,next__KPHH,result__MPHH;
+  void *result__PPHH;
   __INTEGER Self__5OWD;
   void **Result__W11C;
-  sz__NGCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5QSC * ((__INTEGER )(sizeof(void *)))));
-  result__MGCH=((__POINTER )(NULL));
-  a__SGCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__OGCH=(__UINTEGER_32)((__UINTEGER_32)(sz__NGCH + a__SGCH) & (__UINTEGER_32)(~ a__SGCH));
-  new_size2__PGCH=(__UINTEGER_32)(new_size__OGCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__PGCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__ACEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__BCEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__PGCH + a__ACEH) & (__UINTEGER_32)(~ a__ACEH));
-    ptr_table__CHHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BCEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__BHHH=((__POINTER )(NULL));
-    result__DHHH=((__POINTER *)ptr_table__CHHH)[ 0];
-    if ((result__DHHH == (void *)NULL)) {
-      result__DHHH=new_lab__MRJ(new_size__BCEH);
-      next__BHHH=(void *)((unsigned long)result__DHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BCEH)));
-      ((__POINTER *)next__BHHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__CHHH)[ 0]=next__BHHH;
-    } else {
-      next__BHHH=((__POINTER *)result__DHHH)[ 0];
-      if ((next__BHHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DHHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BCEH <<  1)) <=  4096)) {
-          next__BHHH=(void *)((unsigned long)result__DHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BCEH)));
-        } else {
-          next__BHHH=new_lab__MRJ(new_size__BCEH);
-        };
-        ((__POINTER *)next__BHHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__CHHH)[ 0]=next__BHHH;
-      } else {
-        ((__POINTER *)result__DHHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BHHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__DHHH=next__BHHH;
-      };
-    };
-    ((__POINTER *)result__DHHH)[ 0]=((__POINTER ) 3);
-    result__MGCH=(void *)((unsigned long)result__DHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__SPCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5QSC * ((__INTEGER )(sizeof(void *)))));
+  result__RPCH=((__POINTER )(NULL));
+  a__XPCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__TPCH=(__UINTEGER_32)((__UINTEGER_32)(sz__SPCH + a__XPCH) & (__UINTEGER_32)(~ a__XPCH));
+  new_size2__UPCH=(__UINTEGER_32)(new_size__TPCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__UPCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__PLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__QLEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__UPCH + a__PLEH) & (__UINTEGER_32)(~ a__PLEH));
+    ptr_table__LPHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QLEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__KPHH=((__POINTER )(NULL));
+    result__MPHH=((__POINTER *)ptr_table__LPHH)[ 0];
+    if ((result__MPHH == (void *)NULL)) {
+      result__MPHH=new_lab__MRJ(new_size__QLEH);
+      next__KPHH=(void *)((unsigned long)result__MPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QLEH)));
+      ((__POINTER *)next__KPHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__LPHH)[ 0]=next__KPHH;
+    } else {
+      next__KPHH=((__POINTER *)result__MPHH)[ 0];
+      if ((next__KPHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QLEH <<  1)) <=  4096)) {
+          next__KPHH=(void *)((unsigned long)result__MPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QLEH)));
+        } else {
+          next__KPHH=new_lab__MRJ(new_size__QLEH);
+        };
+        ((__POINTER *)next__KPHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__LPHH)[ 0]=next__KPHH;
+      } else {
+        ((__POINTER *)result__MPHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__MPHH=next__KPHH;
+      };
+    };
+    ((__POINTER *)result__MPHH)[ 0]=((__POINTER ) 3);
+    result__RPCH=(void *)((unsigned long)result__MPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__GHHH=first_free__XDVB;
-    while ((((void *)result__GHHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__GHHH)->map_size_and_id__ITB &  4294967292LU) < new_size__OGCH))) {
-      result__GHHH=((__MEMORY *)result__GHHH)->map_next_free__JTB;
+    result__PPHH=first_free__XDVB;
+    while ((((void *)result__PPHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__PPHH)->map_size_and_id__ITB &  4294967292LU) < new_size__TPCH))) {
+      result__PPHH=((__MEMORY *)result__PPHH)->map_next_free__JTB;
     };
-    if (((void *)result__GHHH == (void *)NULL)) {
-      result__GHHH=new_page__OA5();
+    if (((void *)result__PPHH == (void *)NULL)) {
+      result__PPHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__GHHH,new_size__OGCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__GHHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__MGCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__GHHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__PPHH,new_size__TPCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__PPHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__RPCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__PPHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__W11C=((void **)result__MGCH);
+  Result__W11C=((void **)result__RPCH);
   Self__5OWD=(__INTEGER)(nb_elements__5QSC -  1);
   while ((Self__5OWD >=  0)) {
     Result__W11C[Self__5OWD]=NULL;
@@ -18191,52 +18447,52 @@ static void** create__3QSC(__INTEGER nb_elements__5QSC)
 static void short__token__to__LBD(void *key__NBD,__INTEGER beg__OBD,__INTEGER end__PBD)
 // ({NULLxSTRING_CONSTANT},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
 {
-  __INTEGER pos__QBD,result__NBGH,__tmp__PBGH,Self__QBGH,__tmp__LCD;
-  __INTEGER Self__CL4,__tmp__VBGH,__tmp__XBGH,Self__YBGH,__tmp__BDD;
+  __INTEGER pos__QBD,result__0JGH,__tmp__2JGH,Self__3JGH,__tmp__LCD;
+  __INTEGER Self__CL4,__tmp__CKGH,__tmp__EKGH,Self__FKGH,__tmp__BDD;
   __INTEGER Self__TM4,__tmp__XDD,__tmp__0DD;
   void *add_text__RBD;
-  __STRING_CONSTANT *Self__OBGH;
-  __STRING *Self__WBGH;
+  __STRING_CONSTANT *Self__1JGH;
+  __STRING *Self__DKGH;
   void *fmt__SBD;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__JBGH;
-  void *node__LBGH;
+  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__WJGH;
+  void *node__YJGH;
   pos__QBD= 0;
   add_text__RBD=NULL;
   fmt__SBD=NULL;
   if (is_shorter__5Y) {
     if (is_active_short__4BC) {
-      Self__JBGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-      Self__OBGH=((__STRING_CONSTANT *)key__NBD);
-      result__NBGH= 0;
-      __tmp__PBGH=Self__OBGH->count__DD;
-      Self__QBGH= 1;
-      while ((Self__QBGH <= __tmp__PBGH)) {
-        result__NBGH=(__INTEGER)((__INTEGER)( 5 * result__NBGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__OBGH->storage__VQO)[(__INTEGER)(Self__QBGH -  1)])));
-        Self__QBGH=(__INTEGER)(Self__QBGH +  1);
-      };
-      if ((result__NBGH <  0)) {
-        result__NBGH=(__INTEGER)(~ result__NBGH);
-      };
-      node__LBGH=((void **)Self__JBGH->buckets__5CT)[(__INTEGER)(result__NBGH % Self__JBGH->capacity__0CT)];
-      while ((! (((void *)node__LBGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__LBGH)->key__LDT == (void *)key__NBD)))) {
-        node__LBGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__LBGH)->next__WDT;
-      };
-      if (((void *)node__LBGH != (void *)NULL)) {
+      Self__WJGH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
+      Self__1JGH=((__STRING_CONSTANT *)key__NBD);
+      result__0JGH= 0;
+      __tmp__2JGH=Self__1JGH->count__DD;
+      Self__3JGH= 1;
+      while ((Self__3JGH <= __tmp__2JGH)) {
+        result__0JGH=(__INTEGER)((__INTEGER)( 5 * result__0JGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__1JGH->storage__VQO)[(__INTEGER)(Self__3JGH -  1)])));
+        Self__3JGH=(__INTEGER)(Self__3JGH +  1);
+      };
+      if ((result__0JGH <  0)) {
+        result__0JGH=(__INTEGER)(~ result__0JGH);
+      };
+      node__YJGH=((void **)Self__WJGH->buckets__5CT)[(__INTEGER)(result__0JGH % Self__WJGH->capacity__0CT)];
+      while ((! (((void *)node__YJGH == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YJGH)->key__LDT == (void *)key__NBD)))) {
+        node__YJGH=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YJGH)->next__WDT;
+      };
+      if (((void *)node__YJGH != (void *)NULL)) {
         ((__STRING *)token__GCD)->count__WFC= 0;
         pos__QBD=(__INTEGER)(beg__OBD + short_derive__BCC);
         __tmp__LCD=(__INTEGER)(end__PBD -  1);
         Self__CL4=beg__OBD;
         while ((Self__CL4 <= __tmp__LCD)) {
           add_last__ZLT(token__GCD,((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(Self__CL4 -  1)]);
-          Self__WBGH=((__STRING *)output_code__SI);
-          __tmp__VBGH=(__INTEGER)(pos__QBD +  1);
-          __tmp__XBGH=Self__WBGH->count__WFC;
-          Self__YBGH=__tmp__VBGH;
-          while ((Self__YBGH <= __tmp__XBGH)) {
-            ((__CHARACTER *)Self__WBGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__YBGH -  1) -  1)]=((__CHARACTER *)Self__WBGH->storage__BCS)[(__INTEGER)(Self__YBGH -  1)];
-            Self__YBGH=(__INTEGER)(Self__YBGH +  1);
-          };
-          Self__WBGH->count__WFC=(__INTEGER)(Self__WBGH->count__WFC -  1);
+          Self__DKGH=((__STRING *)output_code__SI);
+          __tmp__CKGH=(__INTEGER)(pos__QBD +  1);
+          __tmp__EKGH=Self__DKGH->count__WFC;
+          Self__FKGH=__tmp__CKGH;
+          while ((Self__FKGH <= __tmp__EKGH)) {
+            ((__CHARACTER *)Self__DKGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__FKGH -  1) -  1)]=((__CHARACTER *)Self__DKGH->storage__BCS)[(__INTEGER)(Self__FKGH -  1)];
+            Self__FKGH=(__INTEGER)(Self__FKGH +  1);
+          };
+          Self__DKGH->count__WFC=(__INTEGER)(Self__DKGH->count__WFC -  1);
           Self__CL4=(__INTEGER)(Self__CL4 +  1);
         };
         short_derive__BCC=(__INTEGER)(short_derive__BCC - ((__STRING *)token__GCD)->count__WFC);
@@ -18269,45 +18525,45 @@ static void short__token__to__LBD(void *key__NBD,__INTEGER beg__OBD,__INTEGER en
   };
 }
 
-static __INTEGER first_substring_index__RDZE(__STRING *Self__SDZE)
+static __INTEGER first_substring_index__JIZE(__STRING *Self__KIZE)
 // ({STRING}) With resultNo recursive, No inlinable.
 {
-  __INTEGER i__J43E,result__L43E,s__K43E;
-  i__J43E= 0;
-  result__L43E= 0;
-  s__K43E= 1;
-  while ((! ((result__L43E !=  0) || ((__INTEGER)((__INTEGER)(s__K43E + ((__STRING_CONSTANT *)(&__string_112))->count__DD) -  1) > Self__SDZE->count__WFC)))) {
-    i__J43E= 1;
-    while ((! ((i__J43E > ((__STRING_CONSTANT *)(&__string_112))->count__DD) || (((__CHARACTER *)Self__SDZE->storage__BCS)[(__INTEGER)((__INTEGER)((__INTEGER)(s__K43E + i__J43E) -  1) -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_112))->storage__VQO)[(__INTEGER)(i__J43E -  1)])))) {
-      i__J43E=(__INTEGER)(i__J43E +  1);
+  __INTEGER i__SD4E,result__UD4E,s__TD4E;
+  i__SD4E= 0;
+  result__UD4E= 0;
+  s__TD4E= 1;
+  while ((! ((result__UD4E !=  0) || ((__INTEGER)((__INTEGER)(s__TD4E + ((__STRING_CONSTANT *)(&__string_112))->count__DD) -  1) > Self__KIZE->count__WFC)))) {
+    i__SD4E= 1;
+    while ((! ((i__SD4E > ((__STRING_CONSTANT *)(&__string_112))->count__DD) || (((__CHARACTER *)Self__KIZE->storage__BCS)[(__INTEGER)((__INTEGER)((__INTEGER)(s__TD4E + i__SD4E) -  1) -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_112))->storage__VQO)[(__INTEGER)(i__SD4E -  1)])))) {
+      i__SD4E=(__INTEGER)(i__SD4E +  1);
     };
-    if ((i__J43E > ((__STRING_CONSTANT *)(&__string_112))->count__DD)) {
-      result__L43E=s__K43E;
+    if ((i__SD4E > ((__STRING_CONSTANT *)(&__string_112))->count__DD)) {
+      result__UD4E=s__TD4E;
     } else {
-      s__K43E=(__INTEGER)(s__K43E +  1);
+      s__TD4E=(__INTEGER)(s__TD4E +  1);
     };
   };
-  return(result__L43E);
+  return(result__UD4E);
 }
 
 static __BOOLEAN read_string__LFQ()
 // () With resultNo recursive, No inlinable.
 {
   __INTEGER old_pos__PFQ;
-  __POSITION pos__3QVG;
+  __POSITION pos__L0VG;
   __BOOLEAN result__OFQ,__tmp__ZFQ,__tmp__YGQ,__tmp__ZGQ;
-  __CHARACTER result__ZO3G,result__DP3G,result__MP3G,result__RP3G;
-  __CHARACTER result__WP3G,result__1P3G,result__AQ3G;
+  __CHARACTER result__PY3G,result__ZY3G,result__CZ3G,result__HZ3G;
+  __CHARACTER result__MZ3G,result__RZ3G,result__WZ3G;
   result__OFQ=FALSE__;
   old_pos__PFQ= 0;
   if (read_space__3RD()) {
-    result__ZO3G='\0';
+    result__PY3G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__ZO3G=((__CHARACTER )(( 0)));
+      result__PY3G=((__CHARACTER )(( 0)));
     } else {
-      result__ZO3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__PY3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    __tmp__ZFQ=(result__ZO3G == '\"');
+    __tmp__ZFQ=(result__PY3G == '\"');
   } else {
     __tmp__ZFQ=FALSE__;
   };
@@ -18317,73 +18573,73 @@ static __BOOLEAN read_string__LFQ()
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
     until_do__4JRC:
     {
-      result__DP3G='\0';
+      result__ZY3G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__DP3G=((__CHARACTER )(( 0)));
+        result__ZY3G=((__CHARACTER )(( 0)));
       } else {
-        result__DP3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__ZY3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__DP3G == ((__CHARACTER )(( 0))))) {
+      if ((result__ZY3G == ((__CHARACTER )(( 0))))) {
         __tmp__YGQ=TRUE__;
       } else {
-        result__MP3G='\0';
+        result__CZ3G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__MP3G=((__CHARACTER )(( 0)));
+          result__CZ3G=((__CHARACTER )(( 0)));
         } else {
-          result__MP3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__CZ3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__YGQ=(result__MP3G == '\n');
+        __tmp__YGQ=(result__CZ3G == '\n');
       };
       if (__tmp__YGQ) {
         __tmp__ZGQ=TRUE__;
       } else {
-        result__RP3G='\0';
+        result__HZ3G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__RP3G=((__CHARACTER )(( 0)));
+          result__HZ3G=((__CHARACTER )(( 0)));
         } else {
-          result__RP3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__HZ3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__ZGQ=(result__RP3G == '\"');
+        __tmp__ZGQ=(result__HZ3G == '\"');
       };
       if ((! __tmp__ZGQ)) {
-        result__WP3G='\0';
+        result__MZ3G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__WP3G=((__CHARACTER )(( 0)));
+          result__MZ3G=((__CHARACTER )(( 0)));
         } else {
-          result__WP3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__MZ3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        add_last__ZLT(string_tmp__VH,result__WP3G);
-        result__1P3G='\0';
+        add_last__ZLT(string_tmp__VH,result__MZ3G);
+        result__RZ3G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__1P3G=((__CHARACTER )(( 0)));
+          result__RZ3G=((__CHARACTER )(( 0)));
         } else {
-          result__1P3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__RZ3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__1P3G == '\\')) {
+        if ((result__RZ3G == '\\')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          read_escape_character__R1JF();
+          read_escape_character__WAKF();
         } else {
           position__SBC=(__INTEGER)(position__SBC +  1);
         };
         goto until_do__4JRC;
       };
     };
-    result__AQ3G='\0';
+    result__WZ3G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__AQ3G=((__CHARACTER )(( 0)));
+      result__WZ3G=((__CHARACTER )(( 0)));
     } else {
-      result__AQ3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__WZ3G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__AQ3G == '\"')) {
+    if ((result__WZ3G == '\"')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
       last_string__I0C=get__IWB(string_tmp__VH);
       result__OFQ=TRUE__;
       short__token__to__LBD((&__string_123),old_pos__PFQ,position__SBC);
     } else {
       position__SBC=begin_position__LBE;
-      pos__3QVG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_247));
-      put_position__UOG(pos__3QVG);
+      pos__L0VG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_250));
+      put_position__UOG(pos__L0VG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -18393,257 +18649,257 @@ static __BOOLEAN read_string__LFQ()
   return(result__OFQ);
 }
 
-static void reduce_path__Y42E(void *st__042E)
+static void reduce_path__BE3E(void *st__DE3E)
 // ({NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER stat__242E,__tmp__3BGH,Self__5BGH,i__142E,Self__HJ0F;
-  __INTEGER n__RCEH,len__FCGH,__tmp__GCGH,__tmp__ICGH,Self__JCGH;
-  __INTEGER len__OCGH,__tmp__PCGH,__tmp__RCGH,Self__SCGH,result__WCGH;
-  __INTEGER n__TCEH,len__1CGH,__tmp__2CGH,__tmp__4CGH,Self__5CGH;
-  __INTEGER end__CDGH,len__EDGH,__tmp__FDGH,__tmp__HDGH,Self__IDGH;
-  __INTEGER Self__51CG,n__VCEH,len__NDGH,__tmp__ODGH,__tmp__QDGH;
-  __INTEGER Self__RDGH,result__WLGD,end__UDGH,len__WDGH,__tmp__XDGH;
-  __INTEGER __tmp__ZDGH,Self__0DGH;
-  __STRING *Self__1BGH,*Self__QCEH,*Self__QCGH,*Self__XCGH,*Self__SCEH;
-  __STRING *Self__GDGH,*Self__UCEH,*Self__WCEH,*Self__YCEH,*Self__SLGD;
-  __STRING *Self__YDGH;
-  __CHARACTER car__342E,Self__YM2E;
-  __CHARACTER *__tmp__2BGH,*Self__4BGH;
-  __BOOLEAN __tmp__EB3E,__tmp__JC3E,result__IXWF,result__0M2E;
-  __BOOLEAN __tmp__EN2E,__tmp__KD3E;
-  stat__242E= 0;
-  car__342E='\0';
-  Self__1BGH=((__STRING *)st__042E);
-  __tmp__2BGH=Self__1BGH->storage__BCS;
-  __tmp__3BGH=(__INTEGER)(Self__1BGH->count__WFC -  1);
-  Self__4BGH=((__CHARACTER *)__tmp__2BGH);
-  Self__5BGH=__tmp__3BGH;
-  while ((Self__5BGH >=  0)) {
-    if (('\\' == Self__4BGH[Self__5BGH])) {
-      Self__4BGH[Self__5BGH]='/';
-    };
-    Self__5BGH=(__INTEGER)(Self__5BGH -  1);
-  };
-  i__142E= 1;
-  while ((i__142E <= ((__STRING *)st__042E)->count__WFC)) {
-    car__342E=((__CHARACTER *)((__STRING *)st__042E)->storage__BCS)[(__INTEGER)(i__142E -  1)];
-    if ((car__342E == '/')) {
-      Self__HJ0F=stat__242E;
-      if ((stat__242E ==  0)) {
-        stat__242E= 1;
-      };
-      if ((Self__HJ0F ==  1)) {
-        Self__QCEH=((__STRING *)st__042E);
-        n__RCEH=(__INTEGER)(i__142E -  1);
-        if ((n__RCEH > Self__QCEH->count__WFC)) {
-          Self__QCEH->count__WFC= 0;
-        } else {
-          if ((n__RCEH >  0)) {
-            len__FCGH=(__INTEGER)((__INTEGER)(n__RCEH -  1) +  1);
-            if ((len__FCGH >  0)) {
-              __tmp__GCGH=(__INTEGER)(n__RCEH +  1);
-              __tmp__ICGH=Self__QCEH->count__WFC;
-              Self__JCGH=__tmp__GCGH;
-              while ((Self__JCGH <= __tmp__ICGH)) {
-                ((__CHARACTER *)Self__QCEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__JCGH - len__FCGH) -  1)]=((__CHARACTER *)Self__QCEH->storage__BCS)[(__INTEGER)(Self__JCGH -  1)];
-                Self__JCGH=(__INTEGER)(Self__JCGH +  1);
+  __INTEGER stat__FE3E,__tmp__KKGH,Self__MKGH,i__EE3E,Self__NS0F;
+  __INTEGER n__AMEH,len__SKGH,__tmp__TKGH,__tmp__VKGH,Self__WKGH;
+  __INTEGER len__1KGH,__tmp__2KGH,__tmp__4KGH,Self__5KGH,result__DLGH;
+  __INTEGER n__CMEH,len__ILGH,__tmp__JLGH,__tmp__LLGH,Self__MLGH;
+  __INTEGER end__PLGH,len__RLGH,__tmp__SLGH,__tmp__ULGH,Self__VLGH;
+  __INTEGER Self__KEDG,n__EMEH,len__0LGH,__tmp__1LGH,__tmp__3LGH;
+  __INTEGER Self__4LGH,result__WLGD,end__BMGH,len__DMGH,__tmp__EMGH;
+  __INTEGER __tmp__GMGH,Self__HMGH;
+  __STRING *Self__IKGH,*Self__5LEH,*Self__3KGH,*Self__ELGH,*Self__BMEH;
+  __STRING *Self__TLGH,*Self__DMEH,*Self__FMEH,*Self__HMEH,*Self__SLGD;
+  __STRING *Self__FMGH;
+  __CHARACTER car__GE3E,Self__QR2E;
+  __CHARACTER *__tmp__JKGH,*Self__LKGH;
+  __BOOLEAN __tmp__NG3E,__tmp__SH3E,result__X4WF,result__SR2E;
+  __BOOLEAN __tmp__2R2E,__tmp__TI3E;
+  stat__FE3E= 0;
+  car__GE3E='\0';
+  Self__IKGH=((__STRING *)st__DE3E);
+  __tmp__JKGH=Self__IKGH->storage__BCS;
+  __tmp__KKGH=(__INTEGER)(Self__IKGH->count__WFC -  1);
+  Self__LKGH=((__CHARACTER *)__tmp__JKGH);
+  Self__MKGH=__tmp__KKGH;
+  while ((Self__MKGH >=  0)) {
+    if (('\\' == Self__LKGH[Self__MKGH])) {
+      Self__LKGH[Self__MKGH]='/';
+    };
+    Self__MKGH=(__INTEGER)(Self__MKGH -  1);
+  };
+  i__EE3E= 1;
+  while ((i__EE3E <= ((__STRING *)st__DE3E)->count__WFC)) {
+    car__GE3E=((__CHARACTER *)((__STRING *)st__DE3E)->storage__BCS)[(__INTEGER)(i__EE3E -  1)];
+    if ((car__GE3E == '/')) {
+      Self__NS0F=stat__FE3E;
+      if ((stat__FE3E ==  0)) {
+        stat__FE3E= 1;
+      };
+      if ((Self__NS0F ==  1)) {
+        Self__5LEH=((__STRING *)st__DE3E);
+        n__AMEH=(__INTEGER)(i__EE3E -  1);
+        if ((n__AMEH > Self__5LEH->count__WFC)) {
+          Self__5LEH->count__WFC= 0;
+        } else {
+          if ((n__AMEH >  0)) {
+            len__SKGH=(__INTEGER)((__INTEGER)(n__AMEH -  1) +  1);
+            if ((len__SKGH >  0)) {
+              __tmp__TKGH=(__INTEGER)(n__AMEH +  1);
+              __tmp__VKGH=Self__5LEH->count__WFC;
+              Self__WKGH=__tmp__TKGH;
+              while ((Self__WKGH <= __tmp__VKGH)) {
+                ((__CHARACTER *)Self__5LEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__WKGH - len__SKGH) -  1)]=((__CHARACTER *)Self__5LEH->storage__BCS)[(__INTEGER)(Self__WKGH -  1)];
+                Self__WKGH=(__INTEGER)(Self__WKGH +  1);
               };
-              Self__QCEH->count__WFC=(__INTEGER)(Self__QCEH->count__WFC - len__FCGH);
-            };
-          };
-        };
-        i__142E= 1;
-      };
-      if ((Self__HJ0F ==  2)) {
-        Self__QCGH=((__STRING *)st__042E);
-        len__OCGH=(__INTEGER)((__INTEGER)(i__142E - (__INTEGER)(i__142E -  1)) +  1);
-        if ((len__OCGH >  0)) {
-          __tmp__PCGH=(__INTEGER)(i__142E +  1);
-          __tmp__RCGH=Self__QCGH->count__WFC;
-          Self__SCGH=__tmp__PCGH;
-          while ((Self__SCGH <= __tmp__RCGH)) {
-            ((__CHARACTER *)Self__QCGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__SCGH - len__OCGH) -  1)]=((__CHARACTER *)Self__QCGH->storage__BCS)[(__INTEGER)(Self__SCGH -  1)];
-            Self__SCGH=(__INTEGER)(Self__SCGH +  1);
-          };
-          Self__QCGH->count__WFC=(__INTEGER)(Self__QCGH->count__WFC - len__OCGH);
-        };
-        i__142E=(__INTEGER)(i__142E -  2);
-        stat__242E= 1;
-      };
-      if ((Self__HJ0F ==  3)) {
-        Self__XCGH=((__STRING *)st__042E);
-        result__WCGH=(__INTEGER)(i__142E -  4);
-        while ((! ((result__WCGH <  1) || ('/' == ((__CHARACTER *)Self__XCGH->storage__BCS)[(__INTEGER)(result__WCGH -  1)])))) {
-          result__WCGH=(__INTEGER)(result__WCGH -  1);
-        };
-        if ((result__WCGH ==  0)) {
-          Self__SCEH=((__STRING *)st__042E);
-          n__TCEH=(__INTEGER)(i__142E -  1);
-          if ((n__TCEH > Self__SCEH->count__WFC)) {
-            Self__SCEH->count__WFC= 0;
-          } else {
-            if ((n__TCEH >  0)) {
-              len__1CGH=(__INTEGER)((__INTEGER)(n__TCEH -  1) +  1);
-              if ((len__1CGH >  0)) {
-                __tmp__2CGH=(__INTEGER)(n__TCEH +  1);
-                __tmp__4CGH=Self__SCEH->count__WFC;
-                Self__5CGH=__tmp__2CGH;
-                while ((Self__5CGH <= __tmp__4CGH)) {
-                  ((__CHARACTER *)Self__SCEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__5CGH - len__1CGH) -  1)]=((__CHARACTER *)Self__SCEH->storage__BCS)[(__INTEGER)(Self__5CGH -  1)];
-                  Self__5CGH=(__INTEGER)(Self__5CGH +  1);
+              Self__5LEH->count__WFC=(__INTEGER)(Self__5LEH->count__WFC - len__SKGH);
+            };
+          };
+        };
+        i__EE3E= 1;
+      };
+      if ((Self__NS0F ==  2)) {
+        Self__3KGH=((__STRING *)st__DE3E);
+        len__1KGH=(__INTEGER)((__INTEGER)(i__EE3E - (__INTEGER)(i__EE3E -  1)) +  1);
+        if ((len__1KGH >  0)) {
+          __tmp__2KGH=(__INTEGER)(i__EE3E +  1);
+          __tmp__4KGH=Self__3KGH->count__WFC;
+          Self__5KGH=__tmp__2KGH;
+          while ((Self__5KGH <= __tmp__4KGH)) {
+            ((__CHARACTER *)Self__3KGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__5KGH - len__1KGH) -  1)]=((__CHARACTER *)Self__3KGH->storage__BCS)[(__INTEGER)(Self__5KGH -  1)];
+            Self__5KGH=(__INTEGER)(Self__5KGH +  1);
+          };
+          Self__3KGH->count__WFC=(__INTEGER)(Self__3KGH->count__WFC - len__1KGH);
+        };
+        i__EE3E=(__INTEGER)(i__EE3E -  2);
+        stat__FE3E= 1;
+      };
+      if ((Self__NS0F ==  3)) {
+        Self__ELGH=((__STRING *)st__DE3E);
+        result__DLGH=(__INTEGER)(i__EE3E -  4);
+        while ((! ((result__DLGH <  1) || ('/' == ((__CHARACTER *)Self__ELGH->storage__BCS)[(__INTEGER)(result__DLGH -  1)])))) {
+          result__DLGH=(__INTEGER)(result__DLGH -  1);
+        };
+        if ((result__DLGH ==  0)) {
+          Self__BMEH=((__STRING *)st__DE3E);
+          n__CMEH=(__INTEGER)(i__EE3E -  1);
+          if ((n__CMEH > Self__BMEH->count__WFC)) {
+            Self__BMEH->count__WFC= 0;
+          } else {
+            if ((n__CMEH >  0)) {
+              len__ILGH=(__INTEGER)((__INTEGER)(n__CMEH -  1) +  1);
+              if ((len__ILGH >  0)) {
+                __tmp__JLGH=(__INTEGER)(n__CMEH +  1);
+                __tmp__LLGH=Self__BMEH->count__WFC;
+                Self__MLGH=__tmp__JLGH;
+                while ((Self__MLGH <= __tmp__LLGH)) {
+                  ((__CHARACTER *)Self__BMEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__MLGH - len__ILGH) -  1)]=((__CHARACTER *)Self__BMEH->storage__BCS)[(__INTEGER)(Self__MLGH -  1)];
+                  Self__MLGH=(__INTEGER)(Self__MLGH +  1);
                 };
-                Self__SCEH->count__WFC=(__INTEGER)(Self__SCEH->count__WFC - len__1CGH);
+                Self__BMEH->count__WFC=(__INTEGER)(Self__BMEH->count__WFC - len__ILGH);
               };
             };
           };
-          i__142E= 1;
+          i__EE3E= 1;
         } else {
-          Self__GDGH=((__STRING *)st__042E);
-          end__CDGH=(__INTEGER)(i__142E -  1);
-          len__EDGH=(__INTEGER)((__INTEGER)(end__CDGH - result__WCGH) +  1);
-          if ((len__EDGH >  0)) {
-            __tmp__FDGH=(__INTEGER)(end__CDGH +  1);
-            __tmp__HDGH=Self__GDGH->count__WFC;
-            Self__IDGH=__tmp__FDGH;
-            while ((Self__IDGH <= __tmp__HDGH)) {
-              ((__CHARACTER *)Self__GDGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__IDGH - len__EDGH) -  1)]=((__CHARACTER *)Self__GDGH->storage__BCS)[(__INTEGER)(Self__IDGH -  1)];
-              Self__IDGH=(__INTEGER)(Self__IDGH +  1);
+          Self__TLGH=((__STRING *)st__DE3E);
+          end__PLGH=(__INTEGER)(i__EE3E -  1);
+          len__RLGH=(__INTEGER)((__INTEGER)(end__PLGH - result__DLGH) +  1);
+          if ((len__RLGH >  0)) {
+            __tmp__SLGH=(__INTEGER)(end__PLGH +  1);
+            __tmp__ULGH=Self__TLGH->count__WFC;
+            Self__VLGH=__tmp__SLGH;
+            while ((Self__VLGH <= __tmp__ULGH)) {
+              ((__CHARACTER *)Self__TLGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__VLGH - len__RLGH) -  1)]=((__CHARACTER *)Self__TLGH->storage__BCS)[(__INTEGER)(Self__VLGH -  1)];
+              Self__VLGH=(__INTEGER)(Self__VLGH +  1);
             };
-            Self__GDGH->count__WFC=(__INTEGER)(Self__GDGH->count__WFC - len__EDGH);
+            Self__TLGH->count__WFC=(__INTEGER)(Self__TLGH->count__WFC - len__RLGH);
           };
-          i__142E=result__WCGH;
+          i__EE3E=result__DLGH;
         };
-        stat__242E= 1;
+        stat__FE3E= 1;
       };
-      __tmp__EB3E=TRUE__;
+      __tmp__NG3E=TRUE__;
     } else {
-      __tmp__EB3E=FALSE__;
+      __tmp__NG3E=FALSE__;
     };
-    if (__tmp__EB3E) {
-      __tmp__JC3E=TRUE__;
+    if (__tmp__NG3E) {
+      __tmp__SH3E=TRUE__;
     } else {
-      result__IXWF=(car__342E == '.');
-      if (result__IXWF) {
-        Self__51CG=stat__242E;
-        if ((stat__242E ==  1)) {
-          stat__242E= 2;
+      result__X4WF=(car__GE3E == '.');
+      if (result__X4WF) {
+        Self__KEDG=stat__FE3E;
+        if ((stat__FE3E ==  1)) {
+          stat__FE3E= 2;
         };
-        if ((Self__51CG ==  2)) {
-          stat__242E= 3;
+        if ((Self__KEDG ==  2)) {
+          stat__FE3E= 3;
         };
-        if ((Self__51CG ==  3)) {
-          stat__242E= 0;
+        if ((Self__KEDG ==  3)) {
+          stat__FE3E= 0;
         };
       };
-      __tmp__JC3E=result__IXWF;
+      __tmp__SH3E=result__X4WF;
     };
-    if ((! __tmp__JC3E)) {
-      if (((car__342E == ':') && (i__142E >  2))) {
-        Self__YM2E=((__CHARACTER *)((__STRING *)st__042E)->storage__BCS)[(__INTEGER)((__INTEGER)(i__142E -  1) -  1)];
-        result__0M2E=FALSE__;
-        if ((((__INTEGER_8 )Self__YM2E) >= ((__INTEGER_8 )'a'))) {
-          result__0M2E=(((__INTEGER_8 )Self__YM2E) <= ((__INTEGER_8 )'z'));
-          __tmp__EN2E=TRUE__;
+    if ((! __tmp__SH3E)) {
+      if (((car__GE3E == ':') && (i__EE3E >  2))) {
+        Self__QR2E=((__CHARACTER *)((__STRING *)st__DE3E)->storage__BCS)[(__INTEGER)((__INTEGER)(i__EE3E -  1) -  1)];
+        result__SR2E=FALSE__;
+        if ((((__INTEGER_8 )Self__QR2E) >= ((__INTEGER_8 )'a'))) {
+          result__SR2E=(((__INTEGER_8 )Self__QR2E) <= ((__INTEGER_8 )'z'));
+          __tmp__2R2E=TRUE__;
         } else {
-          __tmp__EN2E=FALSE__;
+          __tmp__2R2E=FALSE__;
         };
-        if ((! __tmp__EN2E)) {
-          if ((((__INTEGER_8 )Self__YM2E) >= ((__INTEGER_8 )'A'))) {
-            result__0M2E=(((__INTEGER_8 )Self__YM2E) <= ((__INTEGER_8 )'Z'));
+        if ((! __tmp__2R2E)) {
+          if ((((__INTEGER_8 )Self__QR2E) >= ((__INTEGER_8 )'A'))) {
+            result__SR2E=(((__INTEGER_8 )Self__QR2E) <= ((__INTEGER_8 )'Z'));
           };
         };
-        __tmp__KD3E=result__0M2E;
+        __tmp__TI3E=result__SR2E;
       } else {
-        __tmp__KD3E=FALSE__;
+        __tmp__TI3E=FALSE__;
       };
-      if ((__tmp__KD3E && (((__CHARACTER *)((__STRING *)st__042E)->storage__BCS)[(__INTEGER)((__INTEGER)(i__142E -  2) -  1)] == '/'))) {
-        Self__UCEH=((__STRING *)st__042E);
-        n__VCEH=(__INTEGER)(i__142E -  2);
-        if ((n__VCEH > Self__UCEH->count__WFC)) {
-          Self__UCEH->count__WFC= 0;
+      if ((__tmp__TI3E && (((__CHARACTER *)((__STRING *)st__DE3E)->storage__BCS)[(__INTEGER)((__INTEGER)(i__EE3E -  2) -  1)] == '/'))) {
+        Self__DMEH=((__STRING *)st__DE3E);
+        n__EMEH=(__INTEGER)(i__EE3E -  2);
+        if ((n__EMEH > Self__DMEH->count__WFC)) {
+          Self__DMEH->count__WFC= 0;
         } else {
-          if ((n__VCEH >  0)) {
-            len__NDGH=(__INTEGER)((__INTEGER)(n__VCEH -  1) +  1);
-            if ((len__NDGH >  0)) {
-              __tmp__ODGH=(__INTEGER)(n__VCEH +  1);
-              __tmp__QDGH=Self__UCEH->count__WFC;
-              Self__RDGH=__tmp__ODGH;
-              while ((Self__RDGH <= __tmp__QDGH)) {
-                ((__CHARACTER *)Self__UCEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__RDGH - len__NDGH) -  1)]=((__CHARACTER *)Self__UCEH->storage__BCS)[(__INTEGER)(Self__RDGH -  1)];
-                Self__RDGH=(__INTEGER)(Self__RDGH +  1);
+          if ((n__EMEH >  0)) {
+            len__0LGH=(__INTEGER)((__INTEGER)(n__EMEH -  1) +  1);
+            if ((len__0LGH >  0)) {
+              __tmp__1LGH=(__INTEGER)(n__EMEH +  1);
+              __tmp__3LGH=Self__DMEH->count__WFC;
+              Self__4LGH=__tmp__1LGH;
+              while ((Self__4LGH <= __tmp__3LGH)) {
+                ((__CHARACTER *)Self__DMEH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__4LGH - len__0LGH) -  1)]=((__CHARACTER *)Self__DMEH->storage__BCS)[(__INTEGER)(Self__4LGH -  1)];
+                Self__4LGH=(__INTEGER)(Self__4LGH +  1);
               };
-              Self__UCEH->count__WFC=(__INTEGER)(Self__UCEH->count__WFC - len__NDGH);
+              Self__DMEH->count__WFC=(__INTEGER)(Self__DMEH->count__WFC - len__0LGH);
             };
           };
         };
-        i__142E= 1;
+        i__EE3E= 1;
       } else {
-        stat__242E= 0;
+        stat__FE3E= 0;
       };
     };
-    i__142E=(__INTEGER)(i__142E +  1);
+    i__EE3E=(__INTEGER)(i__EE3E +  1);
   };
-  if ((stat__242E ==  1)) {
-    Self__WCEH=((__STRING *)st__042E);
-    if (( 1 > Self__WCEH->count__WFC)) {
-      Self__WCEH->count__WFC= 0;
+  if ((stat__FE3E ==  1)) {
+    Self__FMEH=((__STRING *)st__DE3E);
+    if (( 1 > Self__FMEH->count__WFC)) {
+      Self__FMEH->count__WFC= 0;
     } else {
-      Self__WCEH->count__WFC=(__INTEGER)(Self__WCEH->count__WFC -  1);
+      Self__FMEH->count__WFC=(__INTEGER)(Self__FMEH->count__WFC -  1);
     };
   };
-  if ((stat__242E ==  2)) {
-    Self__YCEH=((__STRING *)st__042E);
-    if (( 2 > Self__YCEH->count__WFC)) {
-      Self__YCEH->count__WFC= 0;
+  if ((stat__FE3E ==  2)) {
+    Self__HMEH=((__STRING *)st__DE3E);
+    if (( 2 > Self__HMEH->count__WFC)) {
+      Self__HMEH->count__WFC= 0;
     } else {
-      Self__YCEH->count__WFC=(__INTEGER)(Self__YCEH->count__WFC -  2);
+      Self__HMEH->count__WFC=(__INTEGER)(Self__HMEH->count__WFC -  2);
     };
   };
-  if ((stat__242E ==  3)) {
-    Self__SLGD=((__STRING *)st__042E);
-    result__WLGD=(__INTEGER)(i__142E -  4);
+  if ((stat__FE3E ==  3)) {
+    Self__SLGD=((__STRING *)st__DE3E);
+    result__WLGD=(__INTEGER)(i__EE3E -  4);
     while ((! ((result__WLGD <  1) || ('/' == ((__CHARACTER *)Self__SLGD->storage__BCS)[(__INTEGER)(result__WLGD -  1)])))) {
       result__WLGD=(__INTEGER)(result__WLGD -  1);
     };
     if ((result__WLGD ==  0)) {
-      ((__STRING *)st__042E)->count__WFC= 0;
+      ((__STRING *)st__DE3E)->count__WFC= 0;
     } else {
-      Self__YDGH=((__STRING *)st__042E);
-      end__UDGH=(__INTEGER)(i__142E -  1);
-      len__WDGH=(__INTEGER)((__INTEGER)(end__UDGH - result__WLGD) +  1);
-      if ((len__WDGH >  0)) {
-        __tmp__XDGH=(__INTEGER)(end__UDGH +  1);
-        __tmp__ZDGH=Self__YDGH->count__WFC;
-        Self__0DGH=__tmp__XDGH;
-        while ((Self__0DGH <= __tmp__ZDGH)) {
-          ((__CHARACTER *)Self__YDGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__0DGH - len__WDGH) -  1)]=((__CHARACTER *)Self__YDGH->storage__BCS)[(__INTEGER)(Self__0DGH -  1)];
-          Self__0DGH=(__INTEGER)(Self__0DGH +  1);
+      Self__FMGH=((__STRING *)st__DE3E);
+      end__BMGH=(__INTEGER)(i__EE3E -  1);
+      len__DMGH=(__INTEGER)((__INTEGER)(end__BMGH - result__WLGD) +  1);
+      if ((len__DMGH >  0)) {
+        __tmp__EMGH=(__INTEGER)(end__BMGH +  1);
+        __tmp__GMGH=Self__FMGH->count__WFC;
+        Self__HMGH=__tmp__EMGH;
+        while ((Self__HMGH <= __tmp__GMGH)) {
+          ((__CHARACTER *)Self__FMGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__HMGH - len__DMGH) -  1)]=((__CHARACTER *)Self__FMGH->storage__BCS)[(__INTEGER)(Self__HMGH -  1)];
+          Self__HMGH=(__INTEGER)(Self__HMGH +  1);
         };
-        Self__YDGH->count__WFC=(__INTEGER)(Self__YDGH->count__WFC - len__WDGH);
+        Self__FMGH->count__WFC=(__INTEGER)(Self__FMGH->count__WFC - len__DMGH);
       };
     };
   };
-  if ((((__STRING *)st__042E)->count__WFC ==  0)) {
-    add_last__ZLT(st__042E,'/');
+  if ((((__STRING *)st__DE3E)->count__WFC ==  0)) {
+    add_last__ZLT(st__DE3E,'/');
   };
 }
 
-static void* item__DVPE(__DIRECTORY_UNIX *Self__EVPE,__INTEGER i__FVPE)
+static void* item__FZPE(__DIRECTORY_UNIX *Self__GZPE,__INTEGER i__HZPE)
 // ({DIRECTORY_UNIX},{INTEGER}) With resultNo recursive, No inlinable.
 {
-  __LINKED_LISToENTRYo *Self__1IWE;
-  Self__1IWE=((__LINKED_LISToENTRYo *)Self__EVPE->parent_directory__0ED.list__IFRD);
-  if ((i__FVPE != Self__1IWE->mem_idx__VWVE)) {
-    if ((Self__1IWE->mem_idx__VWVE > i__FVPE)) {
-      Self__1IWE->mem_idx__VWVE= 1;
-      Self__1IWE->mem_lnk__WWVE=Self__1IWE->first_link__OWVE;
+  __LINKED_LISToENTRYo *Self__SNWE;
+  Self__SNWE=((__LINKED_LISToENTRYo *)Self__GZPE->parent_directory__0ED.list__IFRD);
+  if ((i__HZPE != Self__SNWE->mem_idx__J1VE)) {
+    if ((Self__SNWE->mem_idx__J1VE > i__HZPE)) {
+      Self__SNWE->mem_idx__J1VE= 1;
+      Self__SNWE->mem_lnk__K1VE=Self__SNWE->first_link__C1VE;
     };
-    while ((i__FVPE != Self__1IWE->mem_idx__VWVE)) {
-      Self__1IWE->mem_lnk__WWVE=((__LINKED_LIST_NODEoENTRYo *)Self__1IWE->mem_lnk__WWVE)->next__V0EF;
-      Self__1IWE->mem_idx__VWVE=(__INTEGER)(Self__1IWE->mem_idx__VWVE +  1);
+    while ((i__HZPE != Self__SNWE->mem_idx__J1VE)) {
+      Self__SNWE->mem_lnk__K1VE=((__LINKED_LIST_NODEoENTRYo *)Self__SNWE->mem_lnk__K1VE)->next__05EF;
+      Self__SNWE->mem_idx__J1VE=(__INTEGER)(Self__SNWE->mem_idx__J1VE +  1);
     };
   };
-  return(((__LINKED_LIST_NODEoENTRYo *)Self__1IWE->mem_lnk__WWVE)->item__OJWE);
+  return(((__LINKED_LIST_NODEoENTRYo *)Self__SNWE->mem_lnk__K1VE)->item__FOWE);
 }
 
 static void* item__Y0ND(__LINKED_LISToSTRING_CONSTANTo *Self__Z0ND,__INTEGER i__00ND)
@@ -18665,57 +18921,57 @@ static void* item__Y0ND(__LINKED_LISToSTRING_CONSTANTo *Self__Z0ND,__INTEGER i__
 static void** create__T23(__INTEGER nb_elements__V23)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__EJCH,a__JJCH,new_size__FJCH,new_size2__GJCH,a__EDEH;
-  __UINTEGER_32 new_size__FDEH;
-  __POINTER result__DJCH,ptr_table__KHHH,next__JHHH,result__LHHH;
-  void *result__OHHH;
+  __UINTEGER_32 sz__JSCH,a__OSCH,new_size__KSCH,new_size2__LSCH,a__TMEH;
+  __UINTEGER_32 new_size__UMEH;
+  __POINTER result__ISCH,ptr_table__TPHH,next__SPHH,result__UPHH;
+  void *result__XPHH;
   __INTEGER Self__C0JC;
   void **Result__5UEB;
-  sz__EJCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__V23 * ((__INTEGER )(sizeof(void *)))));
-  result__DJCH=((__POINTER )(NULL));
-  a__JJCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__FJCH=(__UINTEGER_32)((__UINTEGER_32)(sz__EJCH + a__JJCH) & (__UINTEGER_32)(~ a__JJCH));
-  new_size2__GJCH=(__UINTEGER_32)(new_size__FJCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__GJCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__EDEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__FDEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GJCH + a__EDEH) & (__UINTEGER_32)(~ a__EDEH));
-    ptr_table__KHHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FDEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__JHHH=((__POINTER )(NULL));
-    result__LHHH=((__POINTER *)ptr_table__KHHH)[ 0];
-    if ((result__LHHH == (void *)NULL)) {
-      result__LHHH=new_lab__MRJ(new_size__FDEH);
-      next__JHHH=(void *)((unsigned long)result__LHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FDEH)));
-      ((__POINTER *)next__JHHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__KHHH)[ 0]=next__JHHH;
-    } else {
-      next__JHHH=((__POINTER *)result__LHHH)[ 0];
-      if ((next__JHHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LHHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FDEH <<  1)) <=  4096)) {
-          next__JHHH=(void *)((unsigned long)result__LHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FDEH)));
-        } else {
-          next__JHHH=new_lab__MRJ(new_size__FDEH);
-        };
-        ((__POINTER *)next__JHHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KHHH)[ 0]=next__JHHH;
-      } else {
-        ((__POINTER *)result__LHHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JHHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__LHHH=next__JHHH;
-      };
-    };
-    ((__POINTER *)result__LHHH)[ 0]=((__POINTER ) 3);
-    result__DJCH=(void *)((unsigned long)result__LHHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__JSCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__V23 * ((__INTEGER )(sizeof(void *)))));
+  result__ISCH=((__POINTER )(NULL));
+  a__OSCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__KSCH=(__UINTEGER_32)((__UINTEGER_32)(sz__JSCH + a__OSCH) & (__UINTEGER_32)(~ a__OSCH));
+  new_size2__LSCH=(__UINTEGER_32)(new_size__KSCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__LSCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__TMEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__UMEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LSCH + a__TMEH) & (__UINTEGER_32)(~ a__TMEH));
+    ptr_table__TPHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UMEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__SPHH=((__POINTER )(NULL));
+    result__UPHH=((__POINTER *)ptr_table__TPHH)[ 0];
+    if ((result__UPHH == (void *)NULL)) {
+      result__UPHH=new_lab__MRJ(new_size__UMEH);
+      next__SPHH=(void *)((unsigned long)result__UPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UMEH)));
+      ((__POINTER *)next__SPHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__TPHH)[ 0]=next__SPHH;
+    } else {
+      next__SPHH=((__POINTER *)result__UPHH)[ 0];
+      if ((next__SPHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UPHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UMEH <<  1)) <=  4096)) {
+          next__SPHH=(void *)((unsigned long)result__UPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UMEH)));
+        } else {
+          next__SPHH=new_lab__MRJ(new_size__UMEH);
+        };
+        ((__POINTER *)next__SPHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__TPHH)[ 0]=next__SPHH;
+      } else {
+        ((__POINTER *)result__UPHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SPHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__UPHH=next__SPHH;
+      };
+    };
+    ((__POINTER *)result__UPHH)[ 0]=((__POINTER ) 3);
+    result__ISCH=(void *)((unsigned long)result__UPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__OHHH=first_free__XDVB;
-    while ((((void *)result__OHHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__OHHH)->map_size_and_id__ITB &  4294967292LU) < new_size__FJCH))) {
-      result__OHHH=((__MEMORY *)result__OHHH)->map_next_free__JTB;
+    result__XPHH=first_free__XDVB;
+    while ((((void *)result__XPHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__XPHH)->map_size_and_id__ITB &  4294967292LU) < new_size__KSCH))) {
+      result__XPHH=((__MEMORY *)result__XPHH)->map_next_free__JTB;
     };
-    if (((void *)result__OHHH == (void *)NULL)) {
-      result__OHHH=new_page__OA5();
+    if (((void *)result__XPHH == (void *)NULL)) {
+      result__XPHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__OHHH,new_size__FJCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__OHHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__DJCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__OHHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__XPHH,new_size__KSCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__XPHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__ISCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__XPHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__5UEB=((void **)result__DJCH);
+  Result__5UEB=((void **)result__ISCH);
   Self__C0JC=(__INTEGER)(nb_elements__V23 -  1);
   while ((Self__C0JC >=  0)) {
     Result__5UEB[Self__C0JC]=NULL;
@@ -18729,7 +18985,7 @@ static __BOOLEAN read_word__QPF(void *st__SPF)
 {
   __INTEGER posold__UPF,idx__VPF;
   __BOOLEAN result__WPF,__tmp__UQF;
-  __CHARACTER result__2U4G;
+  __CHARACTER result__G44G;
   posold__UPF= 0;
   idx__VPF= 0;
   result__WPF=FALSE__;
@@ -18743,13 +18999,13 @@ static __BOOLEAN read_word__QPF(void *st__SPF)
       if ((idx__VPF > ((__STRING_CONSTANT *)st__SPF)->count__DD)) {
         __tmp__UQF=TRUE__;
       } else {
-        result__2U4G='\0';
+        result__G44G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__2U4G=((__CHARACTER )(( 0)));
+          result__G44G=((__CHARACTER )(( 0)));
         } else {
-          result__2U4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__G44G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__UQF=(result__2U4G != ((__CHARACTER *)((__STRING_CONSTANT *)st__SPF)->storage__VQO)[(__INTEGER)(idx__VPF -  1)]);
+        __tmp__UQF=(result__G44G != ((__CHARACTER *)((__STRING_CONSTANT *)st__SPF)->storage__VQO)[(__INTEGER)(idx__VPF -  1)]);
       };
       if ((! __tmp__UQF)) {
         position__SBC=(__INTEGER)(position__SBC +  1);
@@ -18772,38 +19028,38 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
 {
   void *v__YDE;
   void *instr__AEE;
-  __POSITION pos__3YVG,pos__5YVG,pos__BZVG,pos__DZVG,pos__FZVG;
-  __POSITION pos__HZVG,pos__JZVG,pos__FC0G,pos__LZVG,pos__NZVG;
-  __POSITION pos__PZVG,pos__RZVG,pos__HC0G,pos__TZVG,pos__VZVG;
-  __POSITION pos__XZVG,pos__ZZVG,pos__1ZVG,pos__3ZVG,pos__5ZVG;
-  __POSITION pos__B0VG,pos__D0VG,pos__F0VG,pos__H0VG,pos__JC0G;
-  __POSITION pos__J0VG,pos__L0VG,pos__CJM,pos__N0VG,pos__P0VG,pos__R0VG;
-  __POSITION pos__T0VG,__tmp__VCQD,__tmp__0CQD,__tmp__LC0G,pos__V0VG;
-  __POSITION pos__X0VG,pos__Z0VG,pos__10VG,pos__30VG,pos__50VG;
+  __POSITION pos__LCWG,pos__NCWG,pos__PCWG,pos__RCWG,pos__TCWG;
+  __POSITION pos__VCWG,pos__XCWG,pos__1L0G,pos__ZCWG,pos__1CWG;
+  __POSITION pos__3CWG,pos__5CWG,pos__3L0G,pos__BDWG,pos__DDWG;
+  __POSITION pos__FDWG,pos__HDWG,pos__JDWG,pos__LDWG,pos__NDWG;
+  __POSITION pos__PDWG,pos__RDWG,pos__TDWG,pos__VDWG,pos__5L0G;
+  __POSITION pos__XDWG,pos__ZDWG,pos__CJM,pos__1DWG,pos__3DWG,pos__5DWG;
+  __POSITION pos__BEWG,__tmp__VCQD,__tmp__0CQD,__tmp__BM0G,pos__DEWG;
+  __POSITION pos__FEWG,pos__HEWG,pos__JEWG,pos__LEWG,pos__NEWG;
   void *res__2IE,*__tmp__4KE;
-  __INTEGER __tmp__VKE,__tmp__XKE,__tmp__ZKE,typ_id__5DGH,typ_id__JEGH;
-  void *n__JDEH,*n__AQGB;
-  void *result__KDEH,*result__IQGB;
-  __ITM_TYPE_PARAMETER *result__3DGH,*Self__FEGH,*result__HEGH;
-  __ITM_TYPE_PARAMETER *Self__PEGH;
-  __POINTER ptr__4DGH,ptr_table__2HHH,next__1HHH,result__3HHH;
-  __POINTER ptr_table__BIHH,next__AIHH,result__CIHH,ptr__IEGH;
-  __POINTER ptr_table__MIHH,next__LIHH,result__NIHH,ptr_table__RIHH;
-  __POINTER next__QIHH,result__SIHH;
-  __UINTEGER_32 sz__AEGH,a__BEGH,new_size__CEGH,t__DEGH,a__EEGH;
-  __UINTEGER_32 new_size__EIHH,lab_type__DIHH,sz__KEGH,a__LEGH;
-  __UINTEGER_32 new_size__MEGH,t__NEGH,a__OEGH,new_size__UIHH;
-  __UINTEGER_32 lab_type__TIHH;
-  __BOOLEAN result__WDE,result__SHHH,__tmp__GHE,result__UHHH;
-  __BOOLEAN result__VHHH,__tmp__4IE,result__YHHH,__tmp__OJE,__tmp__2JE;
-  __BOOLEAN result__VSL,__tmp__KKE,result__FIHH,result__IIHH;
-  __BOOLEAN result__VIHH,__tmp__JPE,__tmp__PRE,__tmp__1PE,__tmp__FTE;
+  __INTEGER __tmp__VKE,__tmp__XKE,__tmp__ZKE,typ_id__MMGH,typ_id__WMGH;
+  void *n__YMEH,*n__AQGB;
+  void *result__ZMEH,*result__IQGB;
+  __ITM_TYPE_PARAMETER *result__KMGH,*Self__SMGH,*result__UMGH;
+  __ITM_TYPE_PARAMETER *Self__2MGH;
+  __POINTER ptr__LMGH,ptr_table__FQHH,next__EQHH,result__GQHH;
+  __POINTER ptr_table__KQHH,next__JQHH,result__LQHH,ptr__VMGH;
+  __POINTER ptr_table__VQHH,next__UQHH,result__WQHH,ptr_table__0QHH;
+  __POINTER next__ZQHH,result__1QHH;
+  __UINTEGER_32 sz__NMGH,a__OMGH,new_size__PMGH,t__QMGH,a__RMGH;
+  __UINTEGER_32 new_size__NQHH,lab_type__MQHH,sz__XMGH,a__YMGH;
+  __UINTEGER_32 new_size__ZMGH,t__0MGH,a__1MGH,new_size__3QHH;
+  __UINTEGER_32 lab_type__2QHH;
+  __BOOLEAN result__WDE,result__1PHH,__tmp__GHE,result__3PHH;
+  __BOOLEAN result__4PHH,__tmp__4IE,result__BQHH,__tmp__OJE,__tmp__2JE;
+  __BOOLEAN result__VSL,__tmp__KKE,result__OQHH,result__RQHH;
+  __BOOLEAN result__4QHH,__tmp__JPE,__tmp__PRE,__tmp__1PE,__tmp__FTE;
   __BOOLEAN result__A5G,__tmp__BVE,result__S5G,__tmp__3WE,result__EAH;
-  __BOOLEAN __tmp__KYE,result__WAH,__tmp__Q0E,result__IBH,result__YIHH;
-  __BOOLEAN result__1IHH,result__4IHH,result__BJHH;
-  __CHARACTER style__0DE,result__WHHH,result__ZHHH,result__GIHH;
-  __CHARACTER result__JIHH,result__WIHH,result__ZIHH,result__2IHH;
-  __CHARACTER result__5IHH,result__CJHH;
+  __BOOLEAN __tmp__KYE,result__WAH,__tmp__Q0E,result__IBH,result__BRHH;
+  __BOOLEAN result__ERHH,result__HRHH,result__KRHH;
+  __CHARACTER style__0DE,result__5PHH,result__CQHH,result__PQHH;
+  __CHARACTER result__SQHH,result__5QHH,result__CRHH,result__FRHH;
+  __CHARACTER result__IRHH,result__LRHH;
   result__WDE=FALSE__;
   v__YDE=NULL;
   instr__AEE=NULL;
@@ -18811,9 +19067,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
   if ((style__0DE != ' ')) {
     result__WDE=TRUE__;
     if (((! first__UDE) && (style__0DE == '+'))) {
-      pos__3YVG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_248));
-      put_position__UOG(pos__3YVG);
+      pos__LCWG=current_position__JXF();
+      put_error__text__KNG( 2,(&__string_251));
+      put_position__UOG(pos__LCWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -18822,23 +19078,23 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
     if (first__UDE) {
       if (read_word__QPF((&__string_62))) {
         if ((style__0DE == '-')) {
-          append__BOS(output_decl__3FE,(&__string_249));
+          append__BOS(output_decl__3FE,(&__string_252));
         };
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         ((__PROTOTYPE *)object__JBC)->parent_named__5.parent_itm_object__4.position__NDJ=current_position__JXF();
         ((__PROTOTYPE *)object__JBC)->parent_named__5.style__BEU=style__0DE;
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__5YVG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__5YVG);
+          pos__NCWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__NCWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        result__SHHH=read_word__QPF((&__string_9));
+        result__1PHH=read_word__QPF((&__string_9));
         if (is_shorter__5Y) {
-          if (result__SHHH) {
+          if (result__1PHH) {
             if (((void *)(&__string_9) == (void *)(&__string_4))) {
               short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
             } else {
@@ -18846,12 +19102,12 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             };
           };
         };
-        if (result__SHHH) {
+        if (result__1PHH) {
           __tmp__GHE=TRUE__;
         } else {
-          result__UHHH=read_word__QPF((&__string_10));
+          result__3PHH=read_word__QPF((&__string_10));
           if (is_shorter__5Y) {
-            if (result__UHHH) {
+            if (result__3PHH) {
               if (((void *)(&__string_10) == (void *)(&__string_4))) {
                 short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
               } else {
@@ -18859,15 +19115,15 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
               };
             };
           };
-          __tmp__GHE=result__UHHH;
+          __tmp__GHE=result__3PHH;
         };
         if (__tmp__GHE) {
           ((__PROTOTYPE *)object__JBC)->type_style__X2C=last_string__I0C;
         };
         if ((! read_cap_identifier__SZJ())) {
-          pos__BZVG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_251));
-          put_position__UOG(pos__BZVG);
+          pos__PCWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_254));
+          put_position__UOG(pos__PCWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -18875,34 +19131,34 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
         };
         short__token__to__LBD((&__string_125),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if (((void *)((__PROTOTYPE *)object__JBC)->shortname__FIE != (void *)last_string__I0C)) {
-          pos__DZVG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_252));
-          put_position__UOG(pos__DZVG);
+          pos__RCWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_255));
+          put_position__UOG(pos__RCWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        result__VHHH=FALSE__;
+        result__4PHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__VHHH=FALSE__;
+          result__4PHH=FALSE__;
         } else {
-          result__WHHH='\0';
+          result__5PHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__WHHH=((__CHARACTER )(( 0)));
+            result__5PHH=((__CHARACTER )(( 0)));
           } else {
-            result__WHHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__5PHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__WHHH == '(')) {
+          if ((result__5PHH == '(')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__VHHH=TRUE__;
+            result__4PHH=TRUE__;
           };
         };
-        if (result__VHHH) {
+        if (result__4PHH) {
           if (((! is_shorter__5Y) && (! is_shorter2__VI))) {
-            pos__FZVG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_253));
-            put_position__UOG(pos__FZVG);
+            pos__TCWG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_256));
+            put_position__UOG(pos__TCWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -18911,25 +19167,25 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
           res__2IE=NULL;
           __tmp__4IE=read_identifier__LAL();
           if (__tmp__4IE) {
-            result__YHHH=FALSE__;
+            result__BQHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__YHHH=FALSE__;
+              result__BQHH=FALSE__;
             } else {
-              result__ZHHH='\0';
+              result__CQHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__ZHHH=((__CHARACTER )(( 0)));
+                result__CQHH=((__CHARACTER )(( 0)));
               } else {
-                result__ZHHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__CQHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__ZHHH == ':')) {
+              if ((result__CQHH == ':')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__YHHH=TRUE__;
+                result__BQHH=TRUE__;
               };
             };
-            if ((! result__YHHH)) {
-              pos__HZVG=current_position__JXF();
-              put_error__text__KNG( 2,(&__string_254));
-              put_position__UOG(pos__HZVG);
+            if ((! result__BQHH)) {
+              pos__VCWG=current_position__JXF();
+              put_error__text__KNG( 2,(&__string_257));
+              put_position__UOG(pos__VCWG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -18937,17 +19193,17 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             };
             __tmp__OJE=((void *)read_type__DCM(PARSER__,TRUE__) == (void *)NULL);
             if (__tmp__OJE) {
-              pos__JZVG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_255));
-              put_position__UOG(pos__JZVG);
+              pos__XCWG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_258));
+              put_position__UOG(pos__XCWG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
               };
             };
-            pos__FC0G=current_position__JXF();
-            put_error__text__KNG( 1,(&__string_256));
-            put_position__UOG(pos__FC0G);
+            pos__1L0G=current_position__JXF();
+            put_error__text__KNG( 1,(&__string_259));
+            put_position__UOG(pos__1L0G);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -18961,9 +19217,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             if (result__VSL) {
               __tmp__KKE=is_parameter_type__IKE;
               if ((! __tmp__KKE)) {
-                pos__LZVG=current_position__JXF();
-                put_error__text__KNG( 0,(&__string_257));
-                put_position__UOG(pos__LZVG);
+                pos__ZCWG=current_position__JXF();
+                put_error__text__KNG( 0,(&__string_260));
+                put_position__UOG(pos__ZCWG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -18973,89 +19229,89 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
               __tmp__XKE=((__STRING_CONSTANT *)last_string__I0C)->count__DD;
               __tmp__ZKE=(__INTEGER)(__tmp__VKE - __tmp__XKE);
               short__token__to__LBD((&__string_126),__tmp__ZKE,position__SBC);
-              n__JDEH=last_string__I0C;
-              result__KDEH=fast_reference_at__Y1T(dico__STI,n__JDEH);
-              if (((void *)result__KDEH == (void *)NULL)) {
-                result__3DGH=NULL;
-                ptr__4DGH=((__POINTER )(NULL));
-                typ_id__5DGH= 0;
-                sz__AEGH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-                if ((sz__AEGH ==  0)) {
-                  result__3DGH=ITM_TYPE_PARAMETER__;
+              n__YMEH=last_string__I0C;
+              result__ZMEH=fast_reference_at__Y1T(dico__STI,n__YMEH);
+              if (((void *)result__ZMEH == (void *)NULL)) {
+                result__KMGH=NULL;
+                ptr__LMGH=((__POINTER )(NULL));
+                typ_id__MMGH= 0;
+                sz__NMGH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
+                if ((sz__NMGH ==  0)) {
+                  result__KMGH=ITM_TYPE_PARAMETER__;
                 } else {
-                  typ_id__5DGH=-1;
-                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__AEGH);
-                  if ((typ_id__5DGH == (__INTEGER)(-  1))) {
-                    a__BEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__CEGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AEGH + a__BEGH) & (__UINTEGER_32)(~ a__BEGH));
-                    ptr_table__2HHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CEGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__1HHH=((__POINTER )(NULL));
-                    result__3HHH=((__POINTER *)ptr_table__2HHH)[ 0];
-                    if ((result__3HHH == (void *)NULL)) {
-                      result__3HHH=new_lab__MRJ(new_size__CEGH);
-                      next__1HHH=(void *)((unsigned long)result__3HHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CEGH)));
-                      ((__POINTER *)next__1HHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__2HHH)[ 0]=next__1HHH;
+                  typ_id__MMGH=-1;
+                  clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NMGH);
+                  if ((typ_id__MMGH == (__INTEGER)(-  1))) {
+                    a__OMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__PMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NMGH + a__OMGH) & (__UINTEGER_32)(~ a__OMGH));
+                    ptr_table__FQHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                    next__EQHH=((__POINTER )(NULL));
+                    result__GQHH=((__POINTER *)ptr_table__FQHH)[ 0];
+                    if ((result__GQHH == (void *)NULL)) {
+                      result__GQHH=new_lab__MRJ(new_size__PMGH);
+                      next__EQHH=(void *)((unsigned long)result__GQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMGH)));
+                      ((__POINTER *)next__EQHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__FQHH)[ 0]=next__EQHH;
                     } else {
-                      next__1HHH=((__POINTER *)result__3HHH)[ 0];
-                      if ((next__1HHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3HHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CEGH <<  1)) <=  4096)) {
-                          next__1HHH=(void *)((unsigned long)result__3HHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CEGH)));
+                      next__EQHH=((__POINTER *)result__GQHH)[ 0];
+                      if ((next__EQHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GQHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PMGH <<  1)) <=  4096)) {
+                          next__EQHH=(void *)((unsigned long)result__GQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMGH)));
                         } else {
-                          next__1HHH=new_lab__MRJ(new_size__CEGH);
+                          next__EQHH=new_lab__MRJ(new_size__PMGH);
                         };
-                        ((__POINTER *)next__1HHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__2HHH)[ 0]=next__1HHH;
+                        ((__POINTER *)next__EQHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__FQHH)[ 0]=next__EQHH;
                       } else {
-                        ((__POINTER *)result__3HHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1HHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__3HHH=next__1HHH;
+                        ((__POINTER *)result__GQHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__GQHH=next__EQHH;
                       };
                     };
-                    ptr__4DGH=result__3HHH;
+                    ptr__LMGH=result__GQHH;
                   } else {
-                    t__DEGH=((__UINTEGER_32 )typ_id__5DGH);
-                    a__EEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__EIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__AEGH + a__EEGH) & (__UINTEGER_32)(~ a__EEGH));
-                    ptr_table__BIHH=((__POINTER )(&(table_type[(t__DEGH)])));
-                    lab_type__DIHH=(__UINTEGER_32)(t__DEGH |  1);
-                    next__AIHH=((__POINTER )(NULL));
-                    result__CIHH=((__POINTER *)ptr_table__BIHH)[ 0];
-                    if ((result__CIHH == (void *)NULL)) {
-                      result__CIHH=new_lab__MRJ(lab_type__DIHH);
-                      next__AIHH=(void *)((unsigned long)result__CIHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIHH)));
-                      ((__POINTER *)next__AIHH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__BIHH)[ 0]=next__AIHH;
+                    t__QMGH=((__UINTEGER_32 )typ_id__MMGH);
+                    a__RMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                    new_size__NQHH=(__UINTEGER_32)((__UINTEGER_32)(sz__NMGH + a__RMGH) & (__UINTEGER_32)(~ a__RMGH));
+                    ptr_table__KQHH=((__POINTER )(&(table_type[(t__QMGH)])));
+                    lab_type__MQHH=(__UINTEGER_32)(t__QMGH |  1);
+                    next__JQHH=((__POINTER )(NULL));
+                    result__LQHH=((__POINTER *)ptr_table__KQHH)[ 0];
+                    if ((result__LQHH == (void *)NULL)) {
+                      result__LQHH=new_lab__MRJ(lab_type__MQHH);
+                      next__JQHH=(void *)((unsigned long)result__LQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NQHH)));
+                      ((__POINTER *)next__JQHH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__KQHH)[ 0]=next__JQHH;
                     } else {
-                      next__AIHH=((__POINTER *)result__CIHH)[ 0];
-                      if ((next__AIHH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CIHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EIHH <<  1)) <=  4096)) {
-                          next__AIHH=(void *)((unsigned long)result__CIHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIHH)));
+                      next__JQHH=((__POINTER *)result__LQHH)[ 0];
+                      if ((next__JQHH == (void *)NULL)) {
+                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LQHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NQHH <<  1)) <=  4096)) {
+                          next__JQHH=(void *)((unsigned long)result__LQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NQHH)));
                         } else {
-                          next__AIHH=new_lab__MRJ(lab_type__DIHH);
+                          next__JQHH=new_lab__MRJ(lab_type__MQHH);
                         };
-                        ((__POINTER *)next__AIHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__BIHH)[ 0]=next__AIHH;
+                        ((__POINTER *)next__JQHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__KQHH)[ 0]=next__JQHH;
                       } else {
-                        ((__POINTER *)result__CIHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AIHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__CIHH=next__AIHH;
+                        ((__POINTER *)result__LQHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                        result__LQHH=next__JQHH;
                       };
                     };
-                    ptr__4DGH=result__CIHH;
+                    ptr__LMGH=result__LQHH;
                   };
-                  result__3DGH=((__ITM_TYPE_PARAMETER *)ptr__4DGH);
-                  *(result__3DGH) = *(ITM_TYPE_PARAMETER__);
+                  result__KMGH=((__ITM_TYPE_PARAMETER *)ptr__LMGH);
+                  *(result__KMGH) = *(ITM_TYPE_PARAMETER__);
                 };
-                Self__FEGH=((__ITM_TYPE_PARAMETER *)result__3DGH);
-                Self__FEGH->parent_itm_type__3DE.name__KYP=n__JDEH;
-                fast_put__to__TOZ(dico__STI,Self__FEGH,n__JDEH);
-                result__KDEH=result__3DGH;
+                Self__SMGH=((__ITM_TYPE_PARAMETER *)result__KMGH);
+                Self__SMGH->parent_itm_type__3DE.name__KYP=n__YMEH;
+                fast_put__to__TOZ(dico__STI,Self__SMGH,n__YMEH);
+                result__ZMEH=result__KMGH;
               };
-              if (result__KDEH==NULL) {
+              if (result__ZMEH==NULL) {
                 __tmp__4KE=NULL;
               } else {
-                switch (((struct ___OBJ *)result__KDEH)->__id) {
+                switch (((struct ___OBJ *)result__ZMEH)->__id) {
                 case __ITM_TYPE_PARAMETER__: {
-                  __tmp__4KE=((void *)result__KDEH);
+                  __tmp__4KE=((void *)result__ZMEH);
                 } break;
                 case __ITM_TYPE_SIMPLE__: {
                   __tmp__4KE=NULL;
@@ -19066,9 +19322,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             };
           };
           if (((void *)res__2IE == (void *)NULL)) {
-            pos__NZVG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_257));
-            put_position__UOG(pos__NZVG);
+            pos__1CWG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_260));
+            put_position__UOG(pos__1CWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -19077,44 +19333,44 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
           add_last__SBBC(((__PROTOTYPE *)object__JBC)->idf_generic_list__UME,res__2IE);
           while_do__0WK:
           {
-            result__FIHH=FALSE__;
+            result__OQHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__FIHH=FALSE__;
+              result__OQHH=FALSE__;
             } else {
-              result__GIHH='\0';
+              result__PQHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__GIHH=((__CHARACTER )(( 0)));
+                result__PQHH=((__CHARACTER )(( 0)));
               } else {
-                result__GIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__PQHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__GIHH == ',')) {
+              if ((result__PQHH == ',')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__FIHH=TRUE__;
+                result__OQHH=TRUE__;
               };
             };
-            if (result__FIHH) {
+            if (result__OQHH) {
               res__2IE=NULL;
               __tmp__4IE=read_identifier__LAL();
               if (__tmp__4IE) {
-                result__IIHH=FALSE__;
+                result__RQHH=FALSE__;
                 if ((! read_space__3RD())) {
-                  result__IIHH=FALSE__;
+                  result__RQHH=FALSE__;
                 } else {
-                  result__JIHH='\0';
+                  result__SQHH='\0';
                   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                    result__JIHH=((__CHARACTER )(( 0)));
+                    result__SQHH=((__CHARACTER )(( 0)));
                   } else {
-                    result__JIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                    result__SQHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                   };
-                  if ((result__JIHH == ':')) {
+                  if ((result__SQHH == ':')) {
                     position__SBC=(__INTEGER)(position__SBC +  1);
-                    result__IIHH=TRUE__;
+                    result__RQHH=TRUE__;
                   };
                 };
-                if ((! result__IIHH)) {
-                  pos__PZVG=current_position__JXF();
-                  put_error__text__KNG( 2,(&__string_254));
-                  put_position__UOG(pos__PZVG);
+                if ((! result__RQHH)) {
+                  pos__3CWG=current_position__JXF();
+                  put_error__text__KNG( 2,(&__string_257));
+                  put_position__UOG(pos__3CWG);
                   put_string__U1F(msg_err__PNG);
                   if ((type_error__ONG !=  2)) {
                     exit(( 1));
@@ -19122,17 +19378,17 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
                 };
                 __tmp__OJE=((void *)read_type__DCM(PARSER__,TRUE__) == (void *)NULL);
                 if (__tmp__OJE) {
-                  pos__RZVG=current_position__JXF();
-                  put_error__text__KNG( 0,(&__string_255));
-                  put_position__UOG(pos__RZVG);
+                  pos__5CWG=current_position__JXF();
+                  put_error__text__KNG( 0,(&__string_258));
+                  put_position__UOG(pos__5CWG);
                   put_string__U1F(msg_err__PNG);
                   if ((type_error__ONG !=  2)) {
                     exit(( 1));
                   };
                 };
-                pos__HC0G=current_position__JXF();
-                put_error__text__KNG( 1,(&__string_256));
-                put_position__UOG(pos__HC0G);
+                pos__3L0G=current_position__JXF();
+                put_error__text__KNG( 1,(&__string_259));
+                put_position__UOG(pos__3L0G);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -19146,9 +19402,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
                 if (result__VSL) {
                   __tmp__KKE=is_parameter_type__IKE;
                   if ((! __tmp__KKE)) {
-                    pos__TZVG=current_position__JXF();
-                    put_error__text__KNG( 0,(&__string_257));
-                    put_position__UOG(pos__TZVG);
+                    pos__BDWG=current_position__JXF();
+                    put_error__text__KNG( 0,(&__string_260));
+                    put_position__UOG(pos__BDWG);
                     put_string__U1F(msg_err__PNG);
                     if ((type_error__ONG !=  2)) {
                       exit(( 1));
@@ -19161,79 +19417,79 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
                   n__AQGB=last_string__I0C;
                   result__IQGB=fast_reference_at__Y1T(dico__STI,n__AQGB);
                   if (((void *)result__IQGB == (void *)NULL)) {
-                    result__HEGH=NULL;
-                    ptr__IEGH=((__POINTER )(NULL));
-                    typ_id__JEGH= 0;
-                    sz__KEGH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-                    if ((sz__KEGH ==  0)) {
-                      result__HEGH=ITM_TYPE_PARAMETER__;
+                    result__UMGH=NULL;
+                    ptr__VMGH=((__POINTER )(NULL));
+                    typ_id__WMGH= 0;
+                    sz__XMGH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
+                    if ((sz__XMGH ==  0)) {
+                      result__UMGH=ITM_TYPE_PARAMETER__;
                     } else {
-                      typ_id__JEGH=-1;
-                      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__KEGH);
-                      if ((typ_id__JEGH == (__INTEGER)(-  1))) {
-                        a__LEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                        new_size__MEGH=(__UINTEGER_32)((__UINTEGER_32)(sz__KEGH + a__LEGH) & (__UINTEGER_32)(~ a__LEGH));
-                        ptr_table__MIHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MEGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                        next__LIHH=((__POINTER )(NULL));
-                        result__NIHH=((__POINTER *)ptr_table__MIHH)[ 0];
-                        if ((result__NIHH == (void *)NULL)) {
-                          result__NIHH=new_lab__MRJ(new_size__MEGH);
-                          next__LIHH=(void *)((unsigned long)result__NIHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MEGH)));
-                          ((__POINTER *)next__LIHH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__MIHH)[ 0]=next__LIHH;
+                      typ_id__WMGH=-1;
+                      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XMGH);
+                      if ((typ_id__WMGH == (__INTEGER)(-  1))) {
+                        a__YMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                        new_size__ZMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMGH + a__YMGH) & (__UINTEGER_32)(~ a__YMGH));
+                        ptr_table__VQHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                        next__UQHH=((__POINTER )(NULL));
+                        result__WQHH=((__POINTER *)ptr_table__VQHH)[ 0];
+                        if ((result__WQHH == (void *)NULL)) {
+                          result__WQHH=new_lab__MRJ(new_size__ZMGH);
+                          next__UQHH=(void *)((unsigned long)result__WQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZMGH)));
+                          ((__POINTER *)next__UQHH)[ 0]=NULL;
+                          ((__POINTER *)ptr_table__VQHH)[ 0]=next__UQHH;
                         } else {
-                          next__LIHH=((__POINTER *)result__NIHH)[ 0];
-                          if ((next__LIHH == (void *)NULL)) {
-                            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NIHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MEGH <<  1)) <=  4096)) {
-                              next__LIHH=(void *)((unsigned long)result__NIHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MEGH)));
+                          next__UQHH=((__POINTER *)result__WQHH)[ 0];
+                          if ((next__UQHH == (void *)NULL)) {
+                            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WQHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZMGH <<  1)) <=  4096)) {
+                              next__UQHH=(void *)((unsigned long)result__WQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZMGH)));
                             } else {
-                              next__LIHH=new_lab__MRJ(new_size__MEGH);
+                              next__UQHH=new_lab__MRJ(new_size__ZMGH);
                             };
-                            ((__POINTER *)next__LIHH)[ 0]=NULL;
-                            ((__POINTER *)ptr_table__MIHH)[ 0]=next__LIHH;
+                            ((__POINTER *)next__UQHH)[ 0]=NULL;
+                            ((__POINTER *)ptr_table__VQHH)[ 0]=next__UQHH;
                           } else {
-                            ((__POINTER *)result__NIHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LIHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                            result__NIHH=next__LIHH;
+                            ((__POINTER *)result__WQHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                            result__WQHH=next__UQHH;
                           };
                         };
-                        ptr__IEGH=result__NIHH;
+                        ptr__VMGH=result__WQHH;
                       } else {
-                        t__NEGH=((__UINTEGER_32 )typ_id__JEGH);
-                        a__OEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                        new_size__UIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__KEGH + a__OEGH) & (__UINTEGER_32)(~ a__OEGH));
-                        ptr_table__RIHH=((__POINTER )(&(table_type[(t__NEGH)])));
-                        lab_type__TIHH=(__UINTEGER_32)(t__NEGH |  1);
-                        next__QIHH=((__POINTER )(NULL));
-                        result__SIHH=((__POINTER *)ptr_table__RIHH)[ 0];
-                        if ((result__SIHH == (void *)NULL)) {
-                          result__SIHH=new_lab__MRJ(lab_type__TIHH);
-                          next__QIHH=(void *)((unsigned long)result__SIHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UIHH)));
-                          ((__POINTER *)next__QIHH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__RIHH)[ 0]=next__QIHH;
+                        t__0MGH=((__UINTEGER_32 )typ_id__WMGH);
+                        a__1MGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                        new_size__3QHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMGH + a__1MGH) & (__UINTEGER_32)(~ a__1MGH));
+                        ptr_table__0QHH=((__POINTER )(&(table_type[(t__0MGH)])));
+                        lab_type__2QHH=(__UINTEGER_32)(t__0MGH |  1);
+                        next__ZQHH=((__POINTER )(NULL));
+                        result__1QHH=((__POINTER *)ptr_table__0QHH)[ 0];
+                        if ((result__1QHH == (void *)NULL)) {
+                          result__1QHH=new_lab__MRJ(lab_type__2QHH);
+                          next__ZQHH=(void *)((unsigned long)result__1QHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3QHH)));
+                          ((__POINTER *)next__ZQHH)[ 0]=NULL;
+                          ((__POINTER *)ptr_table__0QHH)[ 0]=next__ZQHH;
                         } else {
-                          next__QIHH=((__POINTER *)result__SIHH)[ 0];
-                          if ((next__QIHH == (void *)NULL)) {
-                            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SIHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UIHH <<  1)) <=  4096)) {
-                              next__QIHH=(void *)((unsigned long)result__SIHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UIHH)));
+                          next__ZQHH=((__POINTER *)result__1QHH)[ 0];
+                          if ((next__ZQHH == (void *)NULL)) {
+                            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1QHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3QHH <<  1)) <=  4096)) {
+                              next__ZQHH=(void *)((unsigned long)result__1QHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3QHH)));
                             } else {
-                              next__QIHH=new_lab__MRJ(lab_type__TIHH);
+                              next__ZQHH=new_lab__MRJ(lab_type__2QHH);
                             };
-                            ((__POINTER *)next__QIHH)[ 0]=NULL;
-                            ((__POINTER *)ptr_table__RIHH)[ 0]=next__QIHH;
+                            ((__POINTER *)next__ZQHH)[ 0]=NULL;
+                            ((__POINTER *)ptr_table__0QHH)[ 0]=next__ZQHH;
                           } else {
-                            ((__POINTER *)result__SIHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QIHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                            result__SIHH=next__QIHH;
+                            ((__POINTER *)result__1QHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                            result__1QHH=next__ZQHH;
                           };
                         };
-                        ptr__IEGH=result__SIHH;
+                        ptr__VMGH=result__1QHH;
                       };
-                      result__HEGH=((__ITM_TYPE_PARAMETER *)ptr__IEGH);
-                      *(result__HEGH) = *(ITM_TYPE_PARAMETER__);
+                      result__UMGH=((__ITM_TYPE_PARAMETER *)ptr__VMGH);
+                      *(result__UMGH) = *(ITM_TYPE_PARAMETER__);
                     };
-                    Self__PEGH=((__ITM_TYPE_PARAMETER *)result__HEGH);
-                    Self__PEGH->parent_itm_type__3DE.name__KYP=n__AQGB;
-                    fast_put__to__TOZ(dico__STI,Self__PEGH,n__AQGB);
-                    result__IQGB=result__HEGH;
+                    Self__2MGH=((__ITM_TYPE_PARAMETER *)result__UMGH);
+                    Self__2MGH->parent_itm_type__3DE.name__KYP=n__AQGB;
+                    fast_put__to__TOZ(dico__STI,Self__2MGH,n__AQGB);
+                    result__IQGB=result__UMGH;
                   };
                   if (result__IQGB==NULL) {
                     __tmp__4KE=NULL;
@@ -19251,9 +19507,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
                 };
               };
               if (((void *)res__2IE == (void *)NULL)) {
-                pos__VZVG=current_position__JXF();
-                put_error__text__KNG( 0,(&__string_257));
-                put_position__UOG(pos__VZVG);
+                pos__DDWG=current_position__JXF();
+                put_error__text__KNG( 0,(&__string_260));
+                put_position__UOG(pos__DDWG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -19263,25 +19519,25 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
               goto while_do__0WK;
             };
           };
-          result__VIHH=FALSE__;
+          result__4QHH=FALSE__;
           if ((! read_space__3RD())) {
-            result__VIHH=FALSE__;
+            result__4QHH=FALSE__;
           } else {
-            result__WIHH='\0';
+            result__5QHH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__WIHH=((__CHARACTER )(( 0)));
+              result__5QHH=((__CHARACTER )(( 0)));
             } else {
-              result__WIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__5QHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__WIHH == ')')) {
+            if ((result__5QHH == ')')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__VIHH=TRUE__;
+              result__4QHH=TRUE__;
             };
           };
-          if ((! result__VIHH)) {
-            pos__XZVG=current_position__JXF();
-            put_error__text__KNG( 2,(&__string_258));
-            put_position__UOG(pos__XZVG);
+          if ((! result__4QHH)) {
+            pos__FDWG=current_position__JXF();
+            put_error__text__KNG( 2,(&__string_261));
+            put_position__UOG(pos__FDWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -19289,9 +19545,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
           };
           if (((! is_shorter__5Y) && (! is_shorter2__VI))) {
             if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_PARAMETERo *)((__PROTOTYPE *)object__JBC)->idf_generic_list__UME)->parent_arrayed_collection__TME.upper__WBBC +  1) !=  0)) {
-              pos__ZZVG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_259));
-              put_position__UOG(pos__ZZVG);
+              pos__HDWG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_262));
+              put_position__UOG(pos__HDWG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -19300,9 +19556,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
           };
         };
       } else {
-        pos__1ZVG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_260));
-        put_position__UOG(pos__1ZVG);
+        pos__JDWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_263));
+        put_position__UOG(pos__JDWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -19319,18 +19575,18 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       if (__tmp__1PE) {
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__3ZVG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__3ZVG);
+          pos__LDWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__LDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if (((void *)read_type_list__IMO(PARSER__,FALSE__) == (void *)NULL)) {
-          pos__5ZVG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_261));
-          put_position__UOG(pos__5ZVG);
+          pos__NDWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_264));
+          put_position__UOG(pos__NDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19346,24 +19602,24 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       if (result__A5G) {
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__B0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__B0VG);
+          pos__PDWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__PDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if ((! read_external__ATO())) {
-          pos__D0VG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_262));
-          put_position__UOG(pos__D0VG);
+          pos__RDWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_265));
+          put_position__UOG(pos__RDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        append__BOS(output_decl__3FE,(&__string_263));
+        append__BOS(output_decl__3FE,(&__string_266));
         append__BOS(output_decl__3FE,((__PROTOTYPE *)object__JBC)->parent_named__5.name__LI);
         add_last__ZLT(output_decl__3FE,'\n');
         append__BOS(output_decl__3FE,last_string__I0C);
@@ -19378,9 +19634,9 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       if (result__S5G) {
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__F0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__F0VG);
+          pos__TDWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__TDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19388,18 +19644,18 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
         };
         v__YDE=read_expr_primary__I4M(PARSER__);
         if (((void *)v__YDE == (void *)NULL)) {
-          pos__H0VG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_264));
-          put_position__UOG(pos__H0VG);
+          pos__VDWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_267));
+          put_position__UOG(pos__VDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if (((void *)((__PROTOTYPE *)object__JBC)->default_value__TUE != (void *)NULL)) {
-          pos__JC0G=current_position__JXF();
-          put_error__text__KNG( 1,(&__string_265));
-          put_position__UOG(pos__JC0G);
+          pos__5L0G=current_position__JXF();
+          put_error__text__KNG( 1,(&__string_268));
+          put_position__UOG(pos__5L0G);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19416,18 +19672,18 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       if (result__EAH) {
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__J0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__J0VG);
+          pos__XDWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__XDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if ((! read_external__ATO())) {
-          pos__L0VG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_262));
-          put_position__UOG(pos__L0VG);
+          pos__ZDWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_265));
+          put_position__UOG(pos__ZDWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19435,7 +19691,7 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
         };
         if (((void *)((__PROTOTYPE *)object__JBC)->type_c__OWE != (void *)NULL)) {
           pos__CJM=current_position__JXF();
-          put_error__text__KNG( 1,(&__string_266));
+          put_error__text__KNG( 1,(&__string_269));
           put_position__UOG(pos__CJM);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
@@ -19453,18 +19709,18 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       if (result__WAH) {
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__N0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__N0VG);
+          pos__1DWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__1DWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if ((! read_integer__A2P())) {
-          pos__P0VG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_267));
-          put_position__UOG(pos__P0VG);
+          pos__3DWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_270));
+          put_position__UOG(pos__3DWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19479,33 +19735,33 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       result__IBH=read_word__QPF((&__string_88));
       if (result__IBH) {
         if ((! read_symbol__DXJ((&__string_14)))) {
-          pos__R0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_268));
-          put_position__UOG(pos__R0VG);
+          pos__5DWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_271));
+          put_position__UOG(pos__5DWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        result__YIHH=FALSE__;
+        result__BRHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__YIHH=FALSE__;
+          result__BRHH=FALSE__;
         } else {
-          result__ZIHH='\0';
+          result__CRHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__ZIHH=((__CHARACTER )(( 0)));
+            result__CRHH=((__CHARACTER )(( 0)));
           } else {
-            result__ZIHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__CRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__ZIHH == '(')) {
+          if ((result__CRHH == '(')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__YIHH=TRUE__;
+            result__BRHH=TRUE__;
           };
         };
-        if ((! result__YIHH)) {
-          pos__T0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_269));
-          put_position__UOG(pos__T0VG);
+        if ((! result__BRHH)) {
+          pos__BEWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_272));
+          put_position__UOG(pos__BEWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19521,7 +19777,7 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             } break;
             case __LIP_BINARY__: {
               __tmp__VCQD=((__LIP_BINARY *)instr__AEE)->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ;
-              put_error__text__KNG( 2,(&__string_270));
+              put_error__text__KNG( 2,(&__string_273));
               put_position__UOG(__tmp__VCQD);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
@@ -19530,7 +19786,7 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             } break;
             case __LIP_UNARY__: {
               __tmp__0CQD=((__LIP_UNARY *)instr__AEE)->parent_lip_code__L14B.parent_itm_object__5DE.position__NDJ;
-              put_error__text__KNG( 2,(&__string_270));
+              put_error__text__KNG( 2,(&__string_273));
               put_position__UOG(__tmp__0CQD);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
@@ -19538,43 +19794,43 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
               };
             } break;
             case __LIP_CALL__: {
-              run__50TE(instr__AEE);
+              run__T5TE(instr__AEE);
             } break;
             case __LIP_IF__: {
               run__2CQD(instr__AEE);
             } break;
             case __LIP_PRINT__: {
-              run__T5TE(instr__AEE);
+              run__HEUE(instr__AEE);
             } break;
             case __LIP_VALUE__: {
-              __tmp__LC0G=((__LIP_VALUE *)instr__AEE)->parent_lip_code__0DFE.parent_itm_object__5DE.position__NDJ;
-              put_error__text__KNG( 2,(&__string_270));
-              put_position__UOG(__tmp__LC0G);
+              __tmp__BM0G=((__LIP_VALUE *)instr__AEE)->parent_lip_code__2HFE.parent_itm_object__5DE.position__NDJ;
+              put_error__text__KNG( 2,(&__string_273));
+              put_position__UOG(__tmp__BM0G);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
               };
             } break;
             };
-            result__1IHH=FALSE__;
+            result__ERHH=FALSE__;
             if ((! read_space__3RD())) {
-              result__1IHH=FALSE__;
+              result__ERHH=FALSE__;
             } else {
-              result__2IHH='\0';
+              result__FRHH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__2IHH=((__CHARACTER )(( 0)));
+                result__FRHH=((__CHARACTER )(( 0)));
               } else {
-                result__2IHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__FRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__2IHH == ';')) {
+              if ((result__FRHH == ';')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__1IHH=TRUE__;
+                result__ERHH=TRUE__;
               };
             };
-            if ((! result__1IHH)) {
-              pos__V0VG=current_position__JXF();
+            if ((! result__ERHH)) {
+              pos__DEWG=current_position__JXF();
               put_error__text__KNG( 2,(&__string_163));
-              put_position__UOG(pos__V0VG);
+              put_position__UOG(pos__DEWG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -19583,25 +19839,25 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
             goto while_do__MGFB;
           };
         };
-        result__4IHH=FALSE__;
+        result__HRHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__4IHH=FALSE__;
+          result__HRHH=FALSE__;
         } else {
-          result__5IHH='\0';
+          result__IRHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__5IHH=((__CHARACTER )(( 0)));
+            result__IRHH=((__CHARACTER )(( 0)));
           } else {
-            result__5IHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__IRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__5IHH == ')')) {
+          if ((result__IRHH == ')')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__4IHH=TRUE__;
+            result__HRHH=TRUE__;
           };
         };
-        if ((! result__4IHH)) {
-          pos__X0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_235));
-          put_position__UOG(pos__X0VG);
+        if ((! result__HRHH)) {
+          pos__FEWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_238));
+          put_position__UOG(pos__FEWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -19614,52 +19870,52 @@ static __BOOLEAN read_slot_header__SDE(__BOOLEAN first__UDE)
       if (((((((read_word__QPF((&__string_69)) || read_word__QPF((&__string_70))) || read_word__QPF((&__string_71))) || read_word__QPF((&__string_72))) || read_word__QPF((&__string_73))) || read_word__QPF((&__string_74))) || read_word__QPF((&__string_75)))) {
         short__token__to__LBD((&__string_130),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         if ((! read_symbol__DXJ((&__string_12)))) {
-          pos__Z0VG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_250));
-          put_position__UOG(pos__Z0VG);
+          pos__HEWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_253));
+          put_position__UOG(pos__HEWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if ((! read_string__LFQ())) {
-          pos__10VG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_271));
-          put_position__UOG(pos__10VG);
+          pos__JEWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_274));
+          put_position__UOG(pos__JEWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
       } else {
-        pos__30VG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_272));
-        put_position__UOG(pos__30VG);
+        pos__LEWG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_275));
+        put_position__UOG(pos__LEWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
     };
-    result__BJHH=FALSE__;
+    result__KRHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__BJHH=FALSE__;
+      result__KRHH=FALSE__;
     } else {
-      result__CJHH='\0';
+      result__LRHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__CJHH=((__CHARACTER )(( 0)));
+        result__LRHH=((__CHARACTER )(( 0)));
       } else {
-        result__CJHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__LRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__CJHH == ';')) {
+      if ((result__LRHH == ';')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__BJHH=TRUE__;
+        result__KRHH=TRUE__;
       };
     };
-    if ((! result__BJHH)) {
-      pos__50VG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_239));
-      put_position__UOG(pos__50VG);
+    if ((! result__KRHH)) {
+      pos__NEWG=current_position__JXF();
+      put_error__text__KNG( 2,(&__string_242));
+      put_position__UOG(pos__NEWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -19673,20 +19929,20 @@ static void* get_name__0UOB(void *n__2UOB)
 // ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
   void *result__1OEC,*result__4UOB;
-  __STRING_CONSTANT *Self__SEGH,*Self__XEGH,*Self__2EGH;
-  __INTEGER result__REGH,__tmp__TEGH,Self__UEGH,typ_id__14YB;
-  __INTEGER result__WEGH,__tmp__YEGH,Self__ZEGH,idx__3XFC,idx__W2HD;
-  __INTEGER new_capacity__X2HD,i__Y2HD,result__1EGH,__tmp__3EGH;
-  __INTEGER Self__4EGH,typ_id__F5HD;
-  __SECTION_ *result__V4YB;
-  __POINTER ptr__W4YB,ptr_table__FJHH,next__EJHH,result__GJHH;
-  __POINTER ptr_table__KJHH,next__JJHH,result__LJHH,ptr__A5HD;
-  __POINTER ptr_table__PJHH,next__OJHH,result__QJHH,ptr_table__UJHH;
-  __POINTER next__TJHH,result__VJHH;
-  __UINTEGER_32 sz__Y4YB,a__PFEH,new_size__QFEH,t__UFEH,a__TFEH;
-  __UINTEGER_32 new_size__NJHH,lab_type__MJHH,sz__C5HD,a__5DEH;
-  __UINTEGER_32 new_size__AEEH,t__EEEH,a__DEEH,new_size__XJHH;
-  __UINTEGER_32 lab_type__WJHH;
+  __STRING_CONSTANT *Self__5MGH,*Self__ENGH,*Self__JNGH;
+  __INTEGER result__4MGH,__tmp__ANGH,Self__BNGH,typ_id__14YB;
+  __INTEGER result__DNGH,__tmp__FNGH,Self__GNGH,idx__3XFC,idx__W2HD;
+  __INTEGER new_capacity__X2HD,i__Y2HD,result__INGH,__tmp__KNGH;
+  __INTEGER Self__LNGH,typ_id__F5HD;
+  __SECTION_ *result__V4YB,*Self__OXFC;
+  __POINTER ptr__W4YB,ptr_table__ORHH,next__NRHH,result__PRHH;
+  __POINTER ptr_table__TRHH,next__SRHH,result__URHH,ptr__A5HD;
+  __POINTER ptr_table__YRHH,next__XRHH,result__ZRHH,ptr_table__3RHH;
+  __POINTER next__2RHH,result__4RHH;
+  __UINTEGER_32 sz__Y4YB,a__KOEH,new_size__LOEH,t__POEH,a__OOEH;
+  __UINTEGER_32 new_size__WRHH,lab_type__VRHH,sz__C5HD,a__ONEH;
+  __UINTEGER_32 new_size__PNEH,t__TNEH,a__SNEH,new_size__ASHH;
+  __UINTEGER_32 lab_type__5RHH;
   __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__POEC,*Self__TXFC;
   void *node__0OEC,*node__4XFC,*node1__02HD,*node2__12HD,*__tmp__MZFC;
   void **old_buckets__Z2HD;
@@ -19694,18 +19950,18 @@ static void* get_name__0UOB(void *n__2UOB)
   __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *Self__KDTD;
   Self__POEC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__DVOB);
   result__1OEC=NULL;
-  Self__SEGH=((__STRING_CONSTANT *)n__2UOB);
-  result__REGH= 0;
-  __tmp__TEGH=Self__SEGH->count__DD;
-  Self__UEGH= 1;
-  while ((Self__UEGH <= __tmp__TEGH)) {
-    result__REGH=(__INTEGER)((__INTEGER)( 5 * result__REGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__SEGH->storage__VQO)[(__INTEGER)(Self__UEGH -  1)])));
-    Self__UEGH=(__INTEGER)(Self__UEGH +  1);
-  };
-  if ((result__REGH <  0)) {
-    result__REGH=(__INTEGER)(~ result__REGH);
-  };
-  node__0OEC=((void **)Self__POEC->buckets__CPEC)[(__INTEGER)(result__REGH % Self__POEC->capacity__3OEC)];
+  Self__5MGH=((__STRING_CONSTANT *)n__2UOB);
+  result__4MGH= 0;
+  __tmp__ANGH=Self__5MGH->count__DD;
+  Self__BNGH= 1;
+  while ((Self__BNGH <= __tmp__ANGH)) {
+    result__4MGH=(__INTEGER)((__INTEGER)( 5 * result__4MGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__5MGH->storage__VQO)[(__INTEGER)(Self__BNGH -  1)])));
+    Self__BNGH=(__INTEGER)(Self__BNGH +  1);
+  };
+  if ((result__4MGH <  0)) {
+    result__4MGH=(__INTEGER)(~ result__4MGH);
+  };
+  node__0OEC=((void **)Self__POEC->buckets__CPEC)[(__INTEGER)(result__4MGH % Self__POEC->capacity__3OEC)];
   while ((! (((void *)node__0OEC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__0OEC)->key__OPEC == (void *)n__2UOB)))) {
     node__0OEC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__0OEC)->next__ZPEC;
   };
@@ -19724,80 +19980,82 @@ static void* get_name__0UOB(void *n__2UOB)
       typ_id__14YB=__SECTION___;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__Y4YB);
       if ((typ_id__14YB == (__INTEGER)(-  1))) {
-        a__PFEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__QFEH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y4YB + a__PFEH) & (__UINTEGER_32)(~ a__PFEH));
-        ptr_table__FJHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QFEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__EJHH=((__POINTER )(NULL));
-        result__GJHH=((__POINTER *)ptr_table__FJHH)[ 0];
-        if ((result__GJHH == (void *)NULL)) {
-          result__GJHH=new_lab__MRJ(new_size__QFEH);
-          next__EJHH=(void *)((unsigned long)result__GJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFEH)));
-          ((__POINTER *)next__EJHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FJHH)[ 0]=next__EJHH;
-        } else {
-          next__EJHH=((__POINTER *)result__GJHH)[ 0];
-          if ((next__EJHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QFEH <<  1)) <=  4096)) {
-              next__EJHH=(void *)((unsigned long)result__GJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFEH)));
+        a__KOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__LOEH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y4YB + a__KOEH) & (__UINTEGER_32)(~ a__KOEH));
+        ptr_table__ORHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LOEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__NRHH=((__POINTER )(NULL));
+        result__PRHH=((__POINTER *)ptr_table__ORHH)[ 0];
+        if ((result__PRHH == (void *)NULL)) {
+          result__PRHH=new_lab__MRJ(new_size__LOEH);
+          next__NRHH=(void *)((unsigned long)result__PRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOEH)));
+          ((__POINTER *)next__NRHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__ORHH)[ 0]=next__NRHH;
+        } else {
+          next__NRHH=((__POINTER *)result__PRHH)[ 0];
+          if ((next__NRHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PRHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LOEH <<  1)) <=  4096)) {
+              next__NRHH=(void *)((unsigned long)result__PRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOEH)));
             } else {
-              next__EJHH=new_lab__MRJ(new_size__QFEH);
-            };
-            ((__POINTER *)next__EJHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FJHH)[ 0]=next__EJHH;
-          } else {
-            ((__POINTER *)result__GJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EJHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__GJHH=next__EJHH;
-          };
-        };
-        ptr__W4YB=result__GJHH;
-      } else {
-        t__UFEH=((__UINTEGER_32 )typ_id__14YB);
-        a__TFEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__NJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y4YB + a__TFEH) & (__UINTEGER_32)(~ a__TFEH));
-        ptr_table__KJHH=((__POINTER )(&(table_type[(t__UFEH)])));
-        lab_type__MJHH=(__UINTEGER_32)(t__UFEH |  1);
-        next__JJHH=((__POINTER )(NULL));
-        result__LJHH=((__POINTER *)ptr_table__KJHH)[ 0];
-        if ((result__LJHH == (void *)NULL)) {
-          result__LJHH=new_lab__MRJ(lab_type__MJHH);
-          next__JJHH=(void *)((unsigned long)result__LJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NJHH)));
-          ((__POINTER *)next__JJHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KJHH)[ 0]=next__JJHH;
-        } else {
-          next__JJHH=((__POINTER *)result__LJHH)[ 0];
-          if ((next__JJHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NJHH <<  1)) <=  4096)) {
-              next__JJHH=(void *)((unsigned long)result__LJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NJHH)));
+              next__NRHH=new_lab__MRJ(new_size__LOEH);
+            };
+            ((__POINTER *)next__NRHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__ORHH)[ 0]=next__NRHH;
+          } else {
+            ((__POINTER *)result__PRHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NRHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__PRHH=next__NRHH;
+          };
+        };
+        ptr__W4YB=result__PRHH;
+      } else {
+        t__POEH=((__UINTEGER_32 )typ_id__14YB);
+        a__OOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__WRHH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y4YB + a__OOEH) & (__UINTEGER_32)(~ a__OOEH));
+        ptr_table__TRHH=((__POINTER )(&(table_type[(t__POEH)])));
+        lab_type__VRHH=(__UINTEGER_32)(t__POEH |  1);
+        next__SRHH=((__POINTER )(NULL));
+        result__URHH=((__POINTER *)ptr_table__TRHH)[ 0];
+        if ((result__URHH == (void *)NULL)) {
+          result__URHH=new_lab__MRJ(lab_type__VRHH);
+          next__SRHH=(void *)((unsigned long)result__URHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WRHH)));
+          ((__POINTER *)next__SRHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__TRHH)[ 0]=next__SRHH;
+        } else {
+          next__SRHH=((__POINTER *)result__URHH)[ 0];
+          if ((next__SRHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__URHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WRHH <<  1)) <=  4096)) {
+              next__SRHH=(void *)((unsigned long)result__URHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WRHH)));
             } else {
-              next__JJHH=new_lab__MRJ(lab_type__MJHH);
+              next__SRHH=new_lab__MRJ(lab_type__VRHH);
             };
-            ((__POINTER *)next__JJHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__KJHH)[ 0]=next__JJHH;
+            ((__POINTER *)next__SRHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__TRHH)[ 0]=next__SRHH;
           } else {
-            ((__POINTER *)result__LJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JJHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__LJHH=next__JJHH;
+            ((__POINTER *)result__URHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SRHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__URHH=next__SRHH;
           };
         };
-        ptr__W4YB=result__LJHH;
+        ptr__W4YB=result__URHH;
       };
       result__V4YB=((__SECTION_ *)ptr__W4YB);
       *(result__V4YB) = *(SECTION___);
     };
     result__4UOB=result__V4YB;
-    ((__SECTION_ *)result__V4YB)->name__CZDC=n__2UOB;
+    Self__OXFC=((__SECTION_ *)result__V4YB);
+    Self__OXFC->name__CZDC=n__2UOB;
+    Self__OXFC->type_list__RXFC=NULL;
     Self__TXFC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__DVOB);
-    Self__XEGH=((__STRING_CONSTANT *)n__2UOB);
-    result__WEGH= 0;
-    __tmp__YEGH=Self__XEGH->count__DD;
-    Self__ZEGH= 1;
-    while ((Self__ZEGH <= __tmp__YEGH)) {
-      result__WEGH=(__INTEGER)((__INTEGER)( 5 * result__WEGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__XEGH->storage__VQO)[(__INTEGER)(Self__ZEGH -  1)])));
-      Self__ZEGH=(__INTEGER)(Self__ZEGH +  1);
-    };
-    if ((result__WEGH <  0)) {
-      result__WEGH=(__INTEGER)(~ result__WEGH);
-    };
-    idx__3XFC=(__INTEGER)(result__WEGH % Self__TXFC->capacity__3OEC);
+    Self__ENGH=((__STRING_CONSTANT *)n__2UOB);
+    result__DNGH= 0;
+    __tmp__FNGH=Self__ENGH->count__DD;
+    Self__GNGH= 1;
+    while ((Self__GNGH <= __tmp__FNGH)) {
+      result__DNGH=(__INTEGER)((__INTEGER)( 5 * result__DNGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__ENGH->storage__VQO)[(__INTEGER)(Self__GNGH -  1)])));
+      Self__GNGH=(__INTEGER)(Self__GNGH +  1);
+    };
+    if ((result__DNGH <  0)) {
+      result__DNGH=(__INTEGER)(~ result__DNGH);
+    };
+    idx__3XFC=(__INTEGER)(result__DNGH % Self__TXFC->capacity__3OEC);
     node__4XFC=((void **)Self__TXFC->buckets__CPEC)[idx__3XFC];
     while ((! (((void *)node__4XFC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__4XFC)->key__OPEC == (void *)n__2UOB)))) {
       node__4XFC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__4XFC)->next__ZPEC;
@@ -19816,25 +20074,25 @@ static void* get_name__0UOB(void *n__2UOB)
           node1__02HD=((void **)old_buckets__Z2HD)[i__Y2HD];
           while (((void *)node1__02HD != (void *)NULL)) {
             node2__12HD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__02HD)->next__ZPEC;
-            Self__2EGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__02HD)->key__OPEC);
-            result__1EGH= 0;
-            __tmp__3EGH=Self__2EGH->count__DD;
-            Self__4EGH= 1;
-            while ((Self__4EGH <= __tmp__3EGH)) {
-              result__1EGH=(__INTEGER)((__INTEGER)( 5 * result__1EGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__2EGH->storage__VQO)[(__INTEGER)(Self__4EGH -  1)])));
-              Self__4EGH=(__INTEGER)(Self__4EGH +  1);
-            };
-            if ((result__1EGH <  0)) {
-              result__1EGH=(__INTEGER)(~ result__1EGH);
-            };
-            idx__W2HD=(__INTEGER)(result__1EGH % Self__TXFC->capacity__3OEC);
+            Self__JNGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__02HD)->key__OPEC);
+            result__INGH= 0;
+            __tmp__KNGH=Self__JNGH->count__DD;
+            Self__LNGH= 1;
+            while ((Self__LNGH <= __tmp__KNGH)) {
+              result__INGH=(__INTEGER)((__INTEGER)( 5 * result__INGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__JNGH->storage__VQO)[(__INTEGER)(Self__LNGH -  1)])));
+              Self__LNGH=(__INTEGER)(Self__LNGH +  1);
+            };
+            if ((result__INGH <  0)) {
+              result__INGH=(__INTEGER)(~ result__INGH);
+            };
+            idx__W2HD=(__INTEGER)(result__INGH % Self__TXFC->capacity__3OEC);
             ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__02HD)->next__ZPEC=((void **)Self__TXFC->buckets__CPEC)[idx__W2HD];
             ((void **)Self__TXFC->buckets__CPEC)[idx__W2HD]=node1__02HD;
             node1__02HD=node2__12HD;
           };
           i__Y2HD=(__INTEGER)(i__Y2HD -  1);
         };
-        idx__3XFC=(__INTEGER)(result__WEGH % new_capacity__X2HD);
+        idx__3XFC=(__INTEGER)(result__DNGH % new_capacity__X2HD);
       };
       __tmp__MZFC=((void **)Self__TXFC->buckets__CPEC)[idx__3XFC];
       result__54HD=NULL;
@@ -19847,61 +20105,61 @@ static void* get_name__0UOB(void *n__2UOB)
         typ_id__F5HD=__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__C5HD);
         if ((typ_id__F5HD == (__INTEGER)(-  1))) {
-          a__5DEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__AEEH=(__UINTEGER_32)((__UINTEGER_32)(sz__C5HD + a__5DEH) & (__UINTEGER_32)(~ a__5DEH));
-          ptr_table__PJHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AEEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__OJHH=((__POINTER )(NULL));
-          result__QJHH=((__POINTER *)ptr_table__PJHH)[ 0];
-          if ((result__QJHH == (void *)NULL)) {
-            result__QJHH=new_lab__MRJ(new_size__AEEH);
-            next__OJHH=(void *)((unsigned long)result__QJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AEEH)));
-            ((__POINTER *)next__OJHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__PJHH)[ 0]=next__OJHH;
-          } else {
-            next__OJHH=((__POINTER *)result__QJHH)[ 0];
-            if ((next__OJHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AEEH <<  1)) <=  4096)) {
-                next__OJHH=(void *)((unsigned long)result__QJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AEEH)));
+          a__ONEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__PNEH=(__UINTEGER_32)((__UINTEGER_32)(sz__C5HD + a__ONEH) & (__UINTEGER_32)(~ a__ONEH));
+          ptr_table__YRHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PNEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__XRHH=((__POINTER )(NULL));
+          result__ZRHH=((__POINTER *)ptr_table__YRHH)[ 0];
+          if ((result__ZRHH == (void *)NULL)) {
+            result__ZRHH=new_lab__MRJ(new_size__PNEH);
+            next__XRHH=(void *)((unsigned long)result__ZRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PNEH)));
+            ((__POINTER *)next__XRHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__YRHH)[ 0]=next__XRHH;
+          } else {
+            next__XRHH=((__POINTER *)result__ZRHH)[ 0];
+            if ((next__XRHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZRHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PNEH <<  1)) <=  4096)) {
+                next__XRHH=(void *)((unsigned long)result__ZRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PNEH)));
               } else {
-                next__OJHH=new_lab__MRJ(new_size__AEEH);
+                next__XRHH=new_lab__MRJ(new_size__PNEH);
               };
-              ((__POINTER *)next__OJHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__PJHH)[ 0]=next__OJHH;
+              ((__POINTER *)next__XRHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__YRHH)[ 0]=next__XRHH;
             } else {
-              ((__POINTER *)result__QJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OJHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__QJHH=next__OJHH;
-            };
-          };
-          ptr__A5HD=result__QJHH;
-        } else {
-          t__EEEH=((__UINTEGER_32 )typ_id__F5HD);
-          a__DEEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__XJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__C5HD + a__DEEH) & (__UINTEGER_32)(~ a__DEEH));
-          ptr_table__UJHH=((__POINTER )(&(table_type[(t__EEEH)])));
-          lab_type__WJHH=(__UINTEGER_32)(t__EEEH |  1);
-          next__TJHH=((__POINTER )(NULL));
-          result__VJHH=((__POINTER *)ptr_table__UJHH)[ 0];
-          if ((result__VJHH == (void *)NULL)) {
-            result__VJHH=new_lab__MRJ(lab_type__WJHH);
-            next__TJHH=(void *)((unsigned long)result__VJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJHH)));
-            ((__POINTER *)next__TJHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UJHH)[ 0]=next__TJHH;
-          } else {
-            next__TJHH=((__POINTER *)result__VJHH)[ 0];
-            if ((next__TJHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VJHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XJHH <<  1)) <=  4096)) {
-                next__TJHH=(void *)((unsigned long)result__VJHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJHH)));
+              ((__POINTER *)result__ZRHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XRHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__ZRHH=next__XRHH;
+            };
+          };
+          ptr__A5HD=result__ZRHH;
+        } else {
+          t__TNEH=((__UINTEGER_32 )typ_id__F5HD);
+          a__SNEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__ASHH=(__UINTEGER_32)((__UINTEGER_32)(sz__C5HD + a__SNEH) & (__UINTEGER_32)(~ a__SNEH));
+          ptr_table__3RHH=((__POINTER )(&(table_type[(t__TNEH)])));
+          lab_type__5RHH=(__UINTEGER_32)(t__TNEH |  1);
+          next__2RHH=((__POINTER )(NULL));
+          result__4RHH=((__POINTER *)ptr_table__3RHH)[ 0];
+          if ((result__4RHH == (void *)NULL)) {
+            result__4RHH=new_lab__MRJ(lab_type__5RHH);
+            next__2RHH=(void *)((unsigned long)result__4RHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASHH)));
+            ((__POINTER *)next__2RHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__3RHH)[ 0]=next__2RHH;
+          } else {
+            next__2RHH=((__POINTER *)result__4RHH)[ 0];
+            if ((next__2RHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4RHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ASHH <<  1)) <=  4096)) {
+                next__2RHH=(void *)((unsigned long)result__4RHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASHH)));
               } else {
-                next__TJHH=new_lab__MRJ(lab_type__WJHH);
+                next__2RHH=new_lab__MRJ(lab_type__5RHH);
               };
-              ((__POINTER *)next__TJHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__UJHH)[ 0]=next__TJHH;
+              ((__POINTER *)next__2RHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__3RHH)[ 0]=next__2RHH;
             } else {
-              ((__POINTER *)result__VJHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TJHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__VJHH=next__TJHH;
+              ((__POINTER *)result__4RHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2RHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__4RHH=next__2RHH;
             };
           };
-          ptr__A5HD=result__VJHH;
+          ptr__A5HD=result__4RHH;
         };
         result__54HD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)ptr__A5HD);
         *(result__54HD) = *(HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__);
@@ -19925,11 +20183,11 @@ static void* read_type_list__IMO(__PARSER *Self__JMO,__BOOLEAN is_section__KMO)
 {
   void *ts__OMO,*__tmp__1MO,*__tmp__FOO;
   void *t__NMO;
-  __POSITION pos__L3VG,pos__N3VG,pos__P3VG;
-  void *lst__MMO,*result__AFGH;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__BFGH,*Self__CFGH;
-  __BOOLEAN result__YJHH;
-  __CHARACTER result__ZJHH;
+  __POSITION pos__ZGWG,pos__1GWG,pos__3GWG;
+  void *lst__MMO,*result__NNGH;
+  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__ONGH,*Self__PNGH;
+  __BOOLEAN result__BSHH;
+  __CHARACTER result__CSHH;
   lst__MMO=NULL;
   ts__OMO=NULL;
   t__NMO=read_type__DCM(Self__JMO,FALSE__);
@@ -19958,49 +20216,49 @@ static void* read_type_list__IMO(__PARSER *Self__JMO,__BOOLEAN is_section__KMO)
       };
       ts__OMO=__tmp__1MO;
       if (((void *)__tmp__1MO == (void *)NULL)) {
-        pos__L3VG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_273));
-        put_position__UOG(pos__L3VG);
+        pos__ZGWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_276));
+        put_position__UOG(pos__ZGWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
     };
-    result__AFGH=NULL;
+    result__NNGH=NULL;
     if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP)->parent_arrayed_collection__JUP.upper__FVV <  0)) {
-      result__AFGH=create_with_capacity__IFR( 16);
+      result__NNGH=create_with_capacity__IFR( 16);
     } else {
-      Self__BFGH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
-      result__AFGH=((void **)Self__BFGH->parent_arrayed_collection__JUP.storage__1ZV)[Self__BFGH->parent_arrayed_collection__JUP.upper__FVV];
-      Self__CFGH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
-      Self__CFGH->parent_arrayed_collection__JUP.upper__FVV=(__INTEGER)(Self__CFGH->parent_arrayed_collection__JUP.upper__FVV -  1);
+      Self__ONGH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
+      result__NNGH=((void **)Self__ONGH->parent_arrayed_collection__JUP.storage__1ZV)[Self__ONGH->parent_arrayed_collection__JUP.upper__FVV];
+      Self__PNGH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
+      Self__PNGH->parent_arrayed_collection__JUP.upper__FVV=(__INTEGER)(Self__PNGH->parent_arrayed_collection__JUP.upper__FVV -  1);
     };
-    lst__MMO=result__AFGH;
-    add_last__0NV(result__AFGH,t__NMO);
+    lst__MMO=result__NNGH;
+    add_last__0NV(result__NNGH,t__NMO);
     while_do__2UP:
     {
-      result__YJHH=FALSE__;
+      result__BSHH=FALSE__;
       if ((! read_space__3RD())) {
-        result__YJHH=FALSE__;
+        result__BSHH=FALSE__;
       } else {
-        result__ZJHH='\0';
+        result__CSHH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__ZJHH=((__CHARACTER )(( 0)));
+          result__CSHH=((__CHARACTER )(( 0)));
         } else {
-          result__ZJHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__CSHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__ZJHH == ',')) {
+        if ((result__CSHH == ',')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__YJHH=TRUE__;
+          result__BSHH=TRUE__;
         };
       };
-      if (result__YJHH) {
+      if (result__BSHH) {
         t__NMO=read_type__DCM(Self__JMO,FALSE__);
         if (((void *)t__NMO == (void *)NULL)) {
-          pos__N3VG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_261));
-          put_position__UOG(pos__N3VG);
+          pos__1GWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_264));
+          put_position__UOG(pos__1GWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -20030,9 +20288,9 @@ static void* read_type_list__IMO(__PARSER *Self__JMO,__BOOLEAN is_section__KMO)
           };
           ts__OMO=__tmp__FOO;
           if (((void *)__tmp__FOO == (void *)NULL)) {
-            pos__P3VG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_273));
-            put_position__UOG(pos__P3VG);
+            pos__3GWG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_276));
+            put_position__UOG(pos__3GWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -20043,7 +20301,7 @@ static void* read_type_list__IMO(__PARSER *Self__JMO,__BOOLEAN is_section__KMO)
         goto while_do__2UP;
       };
     };
-    lst__MMO=alias__GVP(result__AFGH);
+    lst__MMO=alias__GVP(result__NNGH);
   };
   return(lst__MMO);
 }
@@ -20051,15 +20309,15 @@ static void* read_type_list__IMO(__PARSER *Self__JMO,__BOOLEAN is_section__KMO)
 static __INTEGER hash_code__P50(__FAST_ARRAYoITM_TYPE_MONOo *Self__Q50)
 // ({FAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
 {
-  __INTEGER result__S50,result__DFGH,__tmp__FFGH,Self__GFGH,__tmp__BA1;
-  __INTEGER result__IFGH,__tmp__KFGH,Self__LFGH,result__NFGH;
-  __INTEGER __tmp__PFGH,Self__QFGH,result__SFGH,__tmp__UFGH,Self__VFGH;
-  __INTEGER result__XFGH,__tmp__ZFGH,Self__0FGH,__tmp__QA1,result__2FGH;
-  __INTEGER __tmp__4FGH,Self__5FGH,result__BGGH,__tmp__DGGH,Self__EGGH;
-  __INTEGER result__GGGH,__tmp__IGGH,Self__JGGH;
+  __INTEGER result__S50,result__QNGH,__tmp__SNGH,Self__TNGH,__tmp__BA1;
+  __INTEGER result__VNGH,__tmp__XNGH,Self__YNGH,result__0NGH;
+  __INTEGER __tmp__2NGH,Self__3NGH,result__5NGH,__tmp__BOGH,Self__COGH;
+  __INTEGER result__EOGH,__tmp__GOGH,Self__HOGH,__tmp__QA1,result__JOGH;
+  __INTEGER __tmp__LOGH,Self__MOGH,result__OOGH,__tmp__QOGH,Self__ROGH;
+  __INTEGER result__TOGH,__tmp__VOGH,Self__WOGH;
   void *__tmp__AA1,*__tmp__PA1;
-  __STRING_CONSTANT *Self__EFGH,*Self__JFGH,*Self__OFGH,*Self__TFGH;
-  __STRING_CONSTANT *Self__YFGH,*Self__3FGH,*Self__CGGH,*Self__HGGH;
+  __STRING_CONSTANT *Self__RNGH,*Self__WNGH,*Self__1NGH,*Self__AOGH;
+  __STRING_CONSTANT *Self__FOGH,*Self__KOGH,*Self__POGH,*Self__UOGH;
   __BOOLEAN __tmp__DA1;
   result__S50= 0;
   if ((! (Self__Q50->parent_arrayed_collection__ZXC.upper__KIV <  0))) {
@@ -20067,66 +20325,66 @@ static __INTEGER hash_code__P50(__FAST_ARRAYoITM_TYPE_MONOo *Self__Q50)
       __tmp__AA1=((void **)Self__Q50->parent_arrayed_collection__ZXC.storage__RMV)[Self__Q50->parent_arrayed_collection__ZXC.upper__KIV];
       switch (((struct ___OBJ *)__tmp__AA1)->__id) {
       case __ITM_TYPE_PARAMETER__: {
-        Self__EFGH=((__STRING_CONSTANT *)((__ITM_TYPE_PARAMETER *)__tmp__AA1)->parent_itm_type__3DE.name__KYP);
-        result__DFGH= 0;
-        __tmp__FFGH=Self__EFGH->count__DD;
-        Self__GFGH= 1;
-        while ((Self__GFGH <= __tmp__FFGH)) {
-          result__DFGH=(__INTEGER)((__INTEGER)( 5 * result__DFGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__EFGH->storage__VQO)[(__INTEGER)(Self__GFGH -  1)])));
-          Self__GFGH=(__INTEGER)(Self__GFGH +  1);
-        };
-        if ((result__DFGH <  0)) {
-          result__DFGH=(__INTEGER)(~ result__DFGH);
-        };
-        __tmp__BA1=result__DFGH;
+        Self__RNGH=((__STRING_CONSTANT *)((__ITM_TYPE_PARAMETER *)__tmp__AA1)->parent_itm_type__3DE.name__KYP);
+        result__QNGH= 0;
+        __tmp__SNGH=Self__RNGH->count__DD;
+        Self__TNGH= 1;
+        while ((Self__TNGH <= __tmp__SNGH)) {
+          result__QNGH=(__INTEGER)((__INTEGER)( 5 * result__QNGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__RNGH->storage__VQO)[(__INTEGER)(Self__TNGH -  1)])));
+          Self__TNGH=(__INTEGER)(Self__TNGH +  1);
+        };
+        if ((result__QNGH <  0)) {
+          result__QNGH=(__INTEGER)(~ result__QNGH);
+        };
+        __tmp__BA1=result__QNGH;
       } break;
       case __ITM_TYPE_SIMPLE__: {
-        Self__JFGH=((__STRING_CONSTANT *)((__ITM_TYPE_SIMPLE *)__tmp__AA1)->name__KYP);
-        result__IFGH= 0;
-        __tmp__KFGH=Self__JFGH->count__DD;
-        Self__LFGH= 1;
-        while ((Self__LFGH <= __tmp__KFGH)) {
-          result__IFGH=(__INTEGER)((__INTEGER)( 5 * result__IFGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__JFGH->storage__VQO)[(__INTEGER)(Self__LFGH -  1)])));
-          Self__LFGH=(__INTEGER)(Self__LFGH +  1);
-        };
-        if ((result__IFGH <  0)) {
-          result__IFGH=(__INTEGER)(~ result__IFGH);
-        };
-        __tmp__BA1=result__IFGH;
+        Self__WNGH=((__STRING_CONSTANT *)((__ITM_TYPE_SIMPLE *)__tmp__AA1)->name__KYP);
+        result__VNGH= 0;
+        __tmp__XNGH=Self__WNGH->count__DD;
+        Self__YNGH= 1;
+        while ((Self__YNGH <= __tmp__XNGH)) {
+          result__VNGH=(__INTEGER)((__INTEGER)( 5 * result__VNGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__WNGH->storage__VQO)[(__INTEGER)(Self__YNGH -  1)])));
+          Self__YNGH=(__INTEGER)(Self__YNGH +  1);
+        };
+        if ((result__VNGH <  0)) {
+          result__VNGH=(__INTEGER)(~ result__VNGH);
+        };
+        __tmp__BA1=result__VNGH;
       } break;
       case __ITM_TYPE_BLOCK__: {
-        print__WHD((&__string_274));
+        print__WHD((&__string_277));
         fputc((int)('\n'),stdout);
         exit(( 1));
         __tmp__BA1= 0;
       } break;
       case __ITM_TYPE_GENERIC__: {
-        Self__OFGH=((__STRING_CONSTANT *)((__ITM_TYPE_GENERIC *)__tmp__AA1)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP);
-        result__NFGH= 0;
-        __tmp__PFGH=Self__OFGH->count__DD;
-        Self__QFGH= 1;
-        while ((Self__QFGH <= __tmp__PFGH)) {
-          result__NFGH=(__INTEGER)((__INTEGER)( 5 * result__NFGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__OFGH->storage__VQO)[(__INTEGER)(Self__QFGH -  1)])));
-          Self__QFGH=(__INTEGER)(Self__QFGH +  1);
-        };
-        if ((result__NFGH <  0)) {
-          result__NFGH=(__INTEGER)(~ result__NFGH);
-        };
-        __tmp__BA1=result__NFGH;
+        Self__1NGH=((__STRING_CONSTANT *)((__ITM_TYPE_GENERIC *)__tmp__AA1)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP);
+        result__0NGH= 0;
+        __tmp__2NGH=Self__1NGH->count__DD;
+        Self__3NGH= 1;
+        while ((Self__3NGH <= __tmp__2NGH)) {
+          result__0NGH=(__INTEGER)((__INTEGER)( 5 * result__0NGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__1NGH->storage__VQO)[(__INTEGER)(Self__3NGH -  1)])));
+          Self__3NGH=(__INTEGER)(Self__3NGH +  1);
+        };
+        if ((result__0NGH <  0)) {
+          result__0NGH=(__INTEGER)(~ result__0NGH);
+        };
+        __tmp__BA1=result__0NGH;
       } break;
       case __ITM_TYPE_STYLE__: {
-        Self__TFGH=((__STRING_CONSTANT *)((__ITM_TYPE_STYLE *)__tmp__AA1)->parent_itm_type_simple__BSN.name__KYP);
-        result__SFGH= 0;
-        __tmp__UFGH=Self__TFGH->count__DD;
-        Self__VFGH= 1;
-        while ((Self__VFGH <= __tmp__UFGH)) {
-          result__SFGH=(__INTEGER)((__INTEGER)( 5 * result__SFGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__TFGH->storage__VQO)[(__INTEGER)(Self__VFGH -  1)])));
-          Self__VFGH=(__INTEGER)(Self__VFGH +  1);
-        };
-        if ((result__SFGH <  0)) {
-          result__SFGH=(__INTEGER)(~ result__SFGH);
-        };
-        __tmp__BA1=result__SFGH;
+        Self__AOGH=((__STRING_CONSTANT *)((__ITM_TYPE_STYLE *)__tmp__AA1)->parent_itm_type_simple__BSN.name__KYP);
+        result__5NGH= 0;
+        __tmp__BOGH=Self__AOGH->count__DD;
+        Self__COGH= 1;
+        while ((Self__COGH <= __tmp__BOGH)) {
+          result__5NGH=(__INTEGER)((__INTEGER)( 5 * result__5NGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__AOGH->storage__VQO)[(__INTEGER)(Self__COGH -  1)])));
+          Self__COGH=(__INTEGER)(Self__COGH +  1);
+        };
+        if ((result__5NGH <  0)) {
+          result__5NGH=(__INTEGER)(~ result__5NGH);
+        };
+        __tmp__BA1=result__5NGH;
       } break;
       };
       result__S50=__tmp__BA1;
@@ -20139,66 +20397,66 @@ static __INTEGER hash_code__P50(__FAST_ARRAYoITM_TYPE_MONOo *Self__Q50)
         __tmp__PA1=((void **)Self__Q50->parent_arrayed_collection__ZXC.storage__RMV)[ 0];
         switch (((struct ___OBJ *)__tmp__PA1)->__id) {
         case __ITM_TYPE_PARAMETER__: {
-          Self__YFGH=((__STRING_CONSTANT *)((__ITM_TYPE_PARAMETER *)__tmp__PA1)->parent_itm_type__3DE.name__KYP);
-          result__XFGH= 0;
-          __tmp__ZFGH=Self__YFGH->count__DD;
-          Self__0FGH= 1;
-          while ((Self__0FGH <= __tmp__ZFGH)) {
-            result__XFGH=(__INTEGER)((__INTEGER)( 5 * result__XFGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__YFGH->storage__VQO)[(__INTEGER)(Self__0FGH -  1)])));
-            Self__0FGH=(__INTEGER)(Self__0FGH +  1);
-          };
-          if ((result__XFGH <  0)) {
-            result__XFGH=(__INTEGER)(~ result__XFGH);
-          };
-          __tmp__QA1=result__XFGH;
+          Self__FOGH=((__STRING_CONSTANT *)((__ITM_TYPE_PARAMETER *)__tmp__PA1)->parent_itm_type__3DE.name__KYP);
+          result__EOGH= 0;
+          __tmp__GOGH=Self__FOGH->count__DD;
+          Self__HOGH= 1;
+          while ((Self__HOGH <= __tmp__GOGH)) {
+            result__EOGH=(__INTEGER)((__INTEGER)( 5 * result__EOGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__FOGH->storage__VQO)[(__INTEGER)(Self__HOGH -  1)])));
+            Self__HOGH=(__INTEGER)(Self__HOGH +  1);
+          };
+          if ((result__EOGH <  0)) {
+            result__EOGH=(__INTEGER)(~ result__EOGH);
+          };
+          __tmp__QA1=result__EOGH;
         } break;
         case __ITM_TYPE_SIMPLE__: {
-          Self__3FGH=((__STRING_CONSTANT *)((__ITM_TYPE_SIMPLE *)__tmp__PA1)->name__KYP);
-          result__2FGH= 0;
-          __tmp__4FGH=Self__3FGH->count__DD;
-          Self__5FGH= 1;
-          while ((Self__5FGH <= __tmp__4FGH)) {
-            result__2FGH=(__INTEGER)((__INTEGER)( 5 * result__2FGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__3FGH->storage__VQO)[(__INTEGER)(Self__5FGH -  1)])));
-            Self__5FGH=(__INTEGER)(Self__5FGH +  1);
-          };
-          if ((result__2FGH <  0)) {
-            result__2FGH=(__INTEGER)(~ result__2FGH);
-          };
-          __tmp__QA1=result__2FGH;
+          Self__KOGH=((__STRING_CONSTANT *)((__ITM_TYPE_SIMPLE *)__tmp__PA1)->name__KYP);
+          result__JOGH= 0;
+          __tmp__LOGH=Self__KOGH->count__DD;
+          Self__MOGH= 1;
+          while ((Self__MOGH <= __tmp__LOGH)) {
+            result__JOGH=(__INTEGER)((__INTEGER)( 5 * result__JOGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__KOGH->storage__VQO)[(__INTEGER)(Self__MOGH -  1)])));
+            Self__MOGH=(__INTEGER)(Self__MOGH +  1);
+          };
+          if ((result__JOGH <  0)) {
+            result__JOGH=(__INTEGER)(~ result__JOGH);
+          };
+          __tmp__QA1=result__JOGH;
         } break;
         case __ITM_TYPE_BLOCK__: {
-          print__WHD((&__string_274));
+          print__WHD((&__string_277));
           fputc((int)('\n'),stdout);
           exit(( 1));
           __tmp__QA1= 0;
         } break;
         case __ITM_TYPE_GENERIC__: {
-          Self__CGGH=((__STRING_CONSTANT *)((__ITM_TYPE_GENERIC *)__tmp__PA1)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP);
-          result__BGGH= 0;
-          __tmp__DGGH=Self__CGGH->count__DD;
-          Self__EGGH= 1;
-          while ((Self__EGGH <= __tmp__DGGH)) {
-            result__BGGH=(__INTEGER)((__INTEGER)( 5 * result__BGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__CGGH->storage__VQO)[(__INTEGER)(Self__EGGH -  1)])));
-            Self__EGGH=(__INTEGER)(Self__EGGH +  1);
-          };
-          if ((result__BGGH <  0)) {
-            result__BGGH=(__INTEGER)(~ result__BGGH);
-          };
-          __tmp__QA1=result__BGGH;
+          Self__POGH=((__STRING_CONSTANT *)((__ITM_TYPE_GENERIC *)__tmp__PA1)->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP);
+          result__OOGH= 0;
+          __tmp__QOGH=Self__POGH->count__DD;
+          Self__ROGH= 1;
+          while ((Self__ROGH <= __tmp__QOGH)) {
+            result__OOGH=(__INTEGER)((__INTEGER)( 5 * result__OOGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__POGH->storage__VQO)[(__INTEGER)(Self__ROGH -  1)])));
+            Self__ROGH=(__INTEGER)(Self__ROGH +  1);
+          };
+          if ((result__OOGH <  0)) {
+            result__OOGH=(__INTEGER)(~ result__OOGH);
+          };
+          __tmp__QA1=result__OOGH;
         } break;
         case __ITM_TYPE_STYLE__: {
-          Self__HGGH=((__STRING_CONSTANT *)((__ITM_TYPE_STYLE *)__tmp__PA1)->parent_itm_type_simple__BSN.name__KYP);
-          result__GGGH= 0;
-          __tmp__IGGH=Self__HGGH->count__DD;
-          Self__JGGH= 1;
-          while ((Self__JGGH <= __tmp__IGGH)) {
-            result__GGGH=(__INTEGER)((__INTEGER)( 5 * result__GGGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__HGGH->storage__VQO)[(__INTEGER)(Self__JGGH -  1)])));
-            Self__JGGH=(__INTEGER)(Self__JGGH +  1);
-          };
-          if ((result__GGGH <  0)) {
-            result__GGGH=(__INTEGER)(~ result__GGGH);
-          };
-          __tmp__QA1=result__GGGH;
+          Self__UOGH=((__STRING_CONSTANT *)((__ITM_TYPE_STYLE *)__tmp__PA1)->parent_itm_type_simple__BSN.name__KYP);
+          result__TOGH= 0;
+          __tmp__VOGH=Self__UOGH->count__DD;
+          Self__WOGH= 1;
+          while ((Self__WOGH <= __tmp__VOGH)) {
+            result__TOGH=(__INTEGER)((__INTEGER)( 5 * result__TOGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__UOGH->storage__VQO)[(__INTEGER)(Self__WOGH -  1)])));
+            Self__WOGH=(__INTEGER)(Self__WOGH +  1);
+          };
+          if ((result__TOGH <  0)) {
+            result__TOGH=(__INTEGER)(~ result__TOGH);
+          };
+          __tmp__QA1=result__TOGH;
         } break;
         };
         result__S50=__tmp__QA1;
@@ -20211,25 +20469,25 @@ static __INTEGER hash_code__P50(__FAST_ARRAYoITM_TYPE_MONOo *Self__Q50)
 static __CHARACTER read_style__XRF()
 // () With resultNo recursive, No inlinable.
 {
-  __CHARACTER result__0RF,result__2JHH,result__5JHH;
-  __BOOLEAN result__1JHH,__tmp__HSF,result__4JHH;
+  __CHARACTER result__0RF,result__FSHH,result__ISHH;
+  __BOOLEAN result__ESHH,__tmp__HSF,result__HSHH;
   result__0RF='\0';
-  result__1JHH=FALSE__;
+  result__ESHH=FALSE__;
   if ((! read_space__3RD())) {
-    result__1JHH=FALSE__;
+    result__ESHH=FALSE__;
   } else {
-    result__2JHH='\0';
+    result__FSHH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__2JHH=((__CHARACTER )(( 0)));
+      result__FSHH=((__CHARACTER )(( 0)));
     } else {
-      result__2JHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__FSHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__2JHH == '-')) {
+    if ((result__FSHH == '-')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__1JHH=TRUE__;
+      result__ESHH=TRUE__;
     };
   };
-  if (result__1JHH) {
+  if (result__ESHH) {
     result__0RF='-';
     short__token__to__LBD((&__string_132),(__INTEGER)(position__SBC -  1),position__SBC);
     __tmp__HSF=TRUE__;
@@ -20237,22 +20495,22 @@ static __CHARACTER read_style__XRF()
     __tmp__HSF=FALSE__;
   };
   if ((! __tmp__HSF)) {
-    result__4JHH=FALSE__;
+    result__HSHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__4JHH=FALSE__;
+      result__HSHH=FALSE__;
     } else {
-      result__5JHH='\0';
+      result__ISHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__5JHH=((__CHARACTER )(( 0)));
+        result__ISHH=((__CHARACTER )(( 0)));
       } else {
-        result__5JHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__ISHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__5JHH == '+')) {
+      if ((result__ISHH == '+')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__4JHH=TRUE__;
+        result__HSHH=TRUE__;
       };
     };
-    if (result__4JHH) {
+    if (result__HSHH) {
       result__0RF='+';
       short__token__to__LBD((&__string_132),(__INTEGER)(position__SBC -  1),position__SBC);
     } else {
@@ -20265,11 +20523,11 @@ static __CHARACTER read_style__XRF()
 static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__RL5B(__INTEGER new_count__TL5B)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __POINTER ptr__W25B,ptr_table__CKHH,next__BKHH,result__DKHH;
-  __POINTER ptr_table__HKHH,next__GKHH,result__IKHH;
+  __POINTER ptr__W25B,ptr_table__LSHH,next__KSHH,result__MSHH;
+  __POINTER ptr_table__QSHH,next__PSHH,result__RSHH;
   __INTEGER typ_id__125B;
-  __UINTEGER_32 sz__Y25B,a__XFEH,new_size__YFEH,t__2FEH,a__1FEH;
-  __UINTEGER_32 new_size__KKHH,lab_type__JKHH;
+  __UINTEGER_32 sz__Y25B,a__SOEH,new_size__TOEH,t__XOEH,a__WOEH;
+  __UINTEGER_32 new_size__TSHH,lab_type__SSHH;
   __FAST_ARRAYoITM_ARGUMENTo *result__V25B,*Self__ATHC;
   result__V25B=NULL;
   ptr__W25B=((__POINTER )(NULL));
@@ -20281,61 +20539,61 @@ static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__RL5B(__INTEGER new_coun
     typ_id__125B=__FAST_ARRAYoITM_ARGUMENTo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__Y25B);
     if ((typ_id__125B == (__INTEGER)(-  1))) {
-      a__XFEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__YFEH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y25B + a__XFEH) & (__UINTEGER_32)(~ a__XFEH));
-      ptr_table__CKHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YFEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__BKHH=((__POINTER )(NULL));
-      result__DKHH=((__POINTER *)ptr_table__CKHH)[ 0];
-      if ((result__DKHH == (void *)NULL)) {
-        result__DKHH=new_lab__MRJ(new_size__YFEH);
-        next__BKHH=(void *)((unsigned long)result__DKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFEH)));
-        ((__POINTER *)next__BKHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__CKHH)[ 0]=next__BKHH;
+      a__SOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TOEH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y25B + a__SOEH) & (__UINTEGER_32)(~ a__SOEH));
+      ptr_table__LSHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TOEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__KSHH=((__POINTER )(NULL));
+      result__MSHH=((__POINTER *)ptr_table__LSHH)[ 0];
+      if ((result__MSHH == (void *)NULL)) {
+        result__MSHH=new_lab__MRJ(new_size__TOEH);
+        next__KSHH=(void *)((unsigned long)result__MSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TOEH)));
+        ((__POINTER *)next__KSHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__LSHH)[ 0]=next__KSHH;
       } else {
-        next__BKHH=((__POINTER *)result__DKHH)[ 0];
-        if ((next__BKHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DKHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YFEH <<  1)) <=  4096)) {
-            next__BKHH=(void *)((unsigned long)result__DKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFEH)));
+        next__KSHH=((__POINTER *)result__MSHH)[ 0];
+        if ((next__KSHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MSHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TOEH <<  1)) <=  4096)) {
+            next__KSHH=(void *)((unsigned long)result__MSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TOEH)));
           } else {
-            next__BKHH=new_lab__MRJ(new_size__YFEH);
+            next__KSHH=new_lab__MRJ(new_size__TOEH);
           };
-          ((__POINTER *)next__BKHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CKHH)[ 0]=next__BKHH;
+          ((__POINTER *)next__KSHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__LSHH)[ 0]=next__KSHH;
         } else {
-          ((__POINTER *)result__DKHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BKHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__DKHH=next__BKHH;
+          ((__POINTER *)result__MSHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KSHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__MSHH=next__KSHH;
         };
       };
-      ptr__W25B=result__DKHH;
+      ptr__W25B=result__MSHH;
     } else {
-      t__2FEH=((__UINTEGER_32 )typ_id__125B);
-      a__1FEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__KKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y25B + a__1FEH) & (__UINTEGER_32)(~ a__1FEH));
-      ptr_table__HKHH=((__POINTER )(&(table_type[(t__2FEH)])));
-      lab_type__JKHH=(__UINTEGER_32)(t__2FEH |  1);
-      next__GKHH=((__POINTER )(NULL));
-      result__IKHH=((__POINTER *)ptr_table__HKHH)[ 0];
-      if ((result__IKHH == (void *)NULL)) {
-        result__IKHH=new_lab__MRJ(lab_type__JKHH);
-        next__GKHH=(void *)((unsigned long)result__IKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KKHH)));
-        ((__POINTER *)next__GKHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__HKHH)[ 0]=next__GKHH;
+      t__XOEH=((__UINTEGER_32 )typ_id__125B);
+      a__WOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__TSHH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y25B + a__WOEH) & (__UINTEGER_32)(~ a__WOEH));
+      ptr_table__QSHH=((__POINTER )(&(table_type[(t__XOEH)])));
+      lab_type__SSHH=(__UINTEGER_32)(t__XOEH |  1);
+      next__PSHH=((__POINTER )(NULL));
+      result__RSHH=((__POINTER *)ptr_table__QSHH)[ 0];
+      if ((result__RSHH == (void *)NULL)) {
+        result__RSHH=new_lab__MRJ(lab_type__SSHH);
+        next__PSHH=(void *)((unsigned long)result__RSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSHH)));
+        ((__POINTER *)next__PSHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__QSHH)[ 0]=next__PSHH;
       } else {
-        next__GKHH=((__POINTER *)result__IKHH)[ 0];
-        if ((next__GKHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IKHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KKHH <<  1)) <=  4096)) {
-            next__GKHH=(void *)((unsigned long)result__IKHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KKHH)));
+        next__PSHH=((__POINTER *)result__RSHH)[ 0];
+        if ((next__PSHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TSHH <<  1)) <=  4096)) {
+            next__PSHH=(void *)((unsigned long)result__RSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSHH)));
           } else {
-            next__GKHH=new_lab__MRJ(lab_type__JKHH);
+            next__PSHH=new_lab__MRJ(lab_type__SSHH);
           };
-          ((__POINTER *)next__GKHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HKHH)[ 0]=next__GKHH;
+          ((__POINTER *)next__PSHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__QSHH)[ 0]=next__PSHH;
         } else {
-          ((__POINTER *)result__IKHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GKHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__IKHH=next__GKHH;
+          ((__POINTER *)result__RSHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__RSHH=next__PSHH;
         };
       };
-      ptr__W25B=result__IKHH;
+      ptr__W25B=result__RSHH;
     };
     result__V25B=((__FAST_ARRAYoITM_ARGUMENTo *)ptr__W25B);
     *(result__V25B) = *(FAST_ARRAYoITM_ARGUMENTo__);
@@ -20352,63 +20610,63 @@ static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__RL5B(__INTEGER new_coun
 static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__KEHB,__BOOLEAN self_first__LEHB)
 // ({PARSER},{TRUExFALSE},{TRUExFALSE}) With resultNo recursive, No inlinable.
 {
-  void *result__NEHB,*result__5YEE;
-  void *t__OEHB,*t__ZYEE,*__tmp__Y3EE,*t__OZ5B;
-  __POSITION pos__PEHB,pos__14VG,pos__34VG,pos__54VG,pos__B5VG;
-  __POSITION pos__D5VG,pos__Q5VG,pos__S5VG,p__MZ5B,p__RILF,pos__2BWG;
-  __POSITION pos__4BWG;
+  void *result__NEHB,*result__B3EE;
+  void *t__OEHB,*t__12EE,*__tmp__0BFE,*t__OZ5B;
+  __POSITION pos__PEHB,pos__JIWG,pos__LIWG,pos__NIWG,pos__PIWG;
+  __POSITION pos__RIWG,pos__4IWG,pos__AJWG,p__MZ5B,p__BOLF,pos__KLWG;
+  __POSITION pos__MLWG;
   void *n__SEHB,*n__NZ5B;
-  void *tb__TEHB,*__tmp__HHHB,*tb__AZEE,*__tmp__Z3EE;
-  __ITM_ARG *result__QKHH,*Self__YKHH,*result__MEAC,*Self__X0HC;
-  __POINTER ptr__RKHH,ptr_table__3KHH,next__2KHH,result__4KHH;
-  __POINTER ptr_table__CLHH,next__BLHH,result__DLHH,ptr__NEAC;
-  __POINTER ptr_table__SLHH,next__RLHH,result__TLHH,ptr_table__XLHH;
-  __POINTER next__WLHH,result__YLHH,ptr__QD0F,ptr_table__AMHH;
-  __POINTER next__5LHH,result__BMHH,ptr_table__FMHH,next__EMHH;
-  __POINTER result__GMHH,ptr__PZLF,ptr_table__KMHH,next__JMHH;
-  __POINTER result__LMHH,ptr_table__PMHH,next__OMHH,result__QMHH;
-  __INTEGER typ_id__SKHH,beg__3YEE,Self__DFSF,limit_up__EFSF;
-  __INTEGER typ_id__SEAC,__tmp__45GG,i__HRMG,h__UGPF,idx__VGPF;
-  __INTEGER idx__KB1F,new_capacity__LB1F,i__JB1F,typ_id__VD0F;
-  __INTEGER typ_id__UZLF,__tmp__O5EE,Self__0ILF;
-  __UINTEGER_32 sz__TKHH,a__UKHH,new_size__VKHH,t__WKHH,a__XKHH;
-  __UINTEGER_32 new_size__FLHH,lab_type__ELHH,sz__PEAC,a__ZIEH;
-  __UINTEGER_32 new_size__0IEH,t__4IEH,a__3IEH,new_size__0LHH;
-  __UINTEGER_32 lab_type__ZLHH,sz__SD0F,a__YHEH,new_size__ZHEH,t__3HEH;
-  __UINTEGER_32 a__2HEH,new_size__IMHH,lab_type__HMHH,sz__RZLF,a__DIEH;
-  __UINTEGER_32 new_size__EIEH,t__IIEH,a__HIEH,new_size__SMHH;
-  __UINTEGER_32 lab_type__RMHH;
-  void *tm__0YEE;
-  __ITM_ARGS *result__OZLF,*Self__J1OF;
-  __BOOLEAN result__MKHH,__tmp__4EHB,result__NKHH,__tmp__BGHB;
-  __BOOLEAN __tmp__KHHB,__tmp__OHHB,__tmp__TIHB,result__GLHH,mute__4YEE;
-  __BOOLEAN result__KLHH,__tmp__LZEE,result__LLHH,__tmp__I1EE;
-  __BOOLEAN result__OLHH,__tmp__53EE,__tmp__23EE,__tmp__C4EE;
-  __BOOLEAN __tmp__YDPF,result__24GG,result__TMHH;
-  __CHARACTER result__OKHH,result__B23G,result__HLHH,result__MLHH;
-  __CHARACTER result__G23G,result__PLHH,result__UMHH;
-  void *type__1YEE,*result__EUP;
-  void *name__2YEE,*result__LGGH,*result__PHLF,*e__NCPF,*result__ADPF;
-  void *e__NGPF,*e__2LHH,*e__5VQF;
-  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__MGGH,*Self__NGGH;
+  void *tb__TEHB,*__tmp__HHHB,*tb__C3EE,*__tmp__1BFE;
+  __ITM_ARG *result__ZSHH,*Self__BTHH,*result__MEAC,*Self__X0HC;
+  __POINTER ptr__0SHH,ptr_table__GTHH,next__FTHH,result__HTHH;
+  __POINTER ptr_table__LTHH,next__KTHH,result__MTHH,ptr__NEAC;
+  __POINTER ptr_table__1THH,next__0THH,result__2THH,ptr_table__AUHH;
+  __POINTER next__5THH,result__BUHH,ptr__WM0F,ptr_table__JUHH;
+  __POINTER next__IUHH,result__KUHH,ptr_table__OUHH,next__NUHH;
+  __POINTER result__PUHH,ptr__D5LF,ptr_table__TUHH,next__SUHH;
+  __POINTER result__UUHH,ptr_table__YUHH,next__XUHH,result__ZUHH;
+  __INTEGER typ_id__1SHH,beg__52EE,Self__5KSF,limit_up__ALSF;
+  __INTEGER typ_id__SEAC,__tmp__VHHG,i__OZMG,h__SMPF,idx__TMPF;
+  __INTEGER idx__3K1F,new_capacity__4K1F,i__2K1F,typ_id__1M0F;
+  __INTEGER typ_id__I5LF,__tmp__QDFE,Self__KOLF;
+  __UINTEGER_32 sz__2SHH,a__3SHH,new_size__4SHH,t__5SHH,a__ATHH;
+  __UINTEGER_32 new_size__OTHH,lab_type__NTHH,sz__PEAC,a__UREH;
+  __UINTEGER_32 new_size__VREH,t__ZREH,a__YREH,new_size__DUHH;
+  __UINTEGER_32 lab_type__CUHH,sz__YM0F,a__TQEH,new_size__UQEH,t__YQEH;
+  __UINTEGER_32 a__XQEH,new_size__RUHH,lab_type__QUHH,sz__F5LF,a__4QEH;
+  __UINTEGER_32 new_size__5QEH,t__DREH,a__CREH,new_size__1UHH;
+  __UINTEGER_32 lab_type__0UHH;
+  void *tm__22EE;
+  __ITM_ARGS *result__C5LF,*Self__HBPF;
+  __BOOLEAN result__VSHH,__tmp__4EHB,result__WSHH,__tmp__BGHB;
+  __BOOLEAN __tmp__KHHB,__tmp__OHHB,__tmp__TIHB,result__PTHH,mute__A3EE;
+  __BOOLEAN result__TTHH,__tmp__N3EE,result__UTHH,__tmp__K5EE;
+  __BOOLEAN result__XTHH,__tmp__BCFE,__tmp__4BFE,__tmp__ECFE;
+  __BOOLEAN __tmp__WJPF,result__TGHG,result__2UHH;
+  __CHARACTER result__XSHH,result__XF4G,result__QTHH,result__VTHH;
+  __CHARACTER result__2F4G,result__YTHH,result__3UHH;
+  void *type__32EE,*result__EUP;
+  void *name__42EE,*result__YOGH,*result__5MLF,*e__LIPF,*result__4IPF;
+  void *e__LMPF,*e__FUHH,*e__31QF;
+  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__ZOGH,*Self__0OGH;
   __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__BDBB,*Self__XDBB;
-  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__MCPF,*Self__MGPF;
-  void *node__5CPF,*node__3LHH,*node__IWQF,*node__WGPF,*node1__NB1F;
-  void *node2__OB1F,*__tmp__GIPF;
-  __FAST_ARRAYoSTRING_CONSTANTo *Self__Z4GG,*o__34GG,*__tmp__J5GG;
-  void **__tmp__Z5GG,**__tmp__15GG,**Self__TQMG;
-  void **old_buckets__MB1F;
-  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *result__PD0F;
-  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *Self__ST3F;
+  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__KIPF,*Self__KMPF;
+  void *node__3IPF,*node__GUHH,*node__G2QF,*node__UMPF,*node1__AL1F;
+  void *node2__BL1F,*__tmp__EOPF;
+  __FAST_ARRAYoSTRING_CONSTANTo *Self__QGHG,*o__UGHG,*__tmp__AHHG;
+  void **__tmp__QHHG,**__tmp__SHHG,**Self__0YMG;
+  void **old_buckets__5K1F;
+  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *result__VM0F;
+  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *Self__V33F;
   result__NEHB=NULL;
   t__OEHB=NULL;
   pos__PEHB=((__POSITION ) 0);
   n__SEHB=NULL;
   tb__TEHB=NULL;
   if (self_first__LEHB) {
-    result__MKHH=read_word__QPF((&__string_58));
+    result__VSHH=read_word__QPF((&__string_58));
     if (is_shorter__5Y) {
-      if (result__MKHH) {
+      if (result__VSHH) {
         if (((void *)(&__string_58) == (void *)(&__string_4))) {
           short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         } else {
@@ -20416,45 +20674,45 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
         };
       };
     };
-    __tmp__4EHB=result__MKHH;
+    __tmp__4EHB=result__VSHH;
   } else {
     __tmp__4EHB=FALSE__;
   };
   if ((__tmp__4EHB || ((! self_first__LEHB) && read_identifier__LAL()))) {
     pos__PEHB=current_position__JXF();
     n__SEHB=last_string__I0C;
-    result__NKHH=FALSE__;
+    result__WSHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__NKHH=FALSE__;
+      result__WSHH=FALSE__;
     } else {
-      result__OKHH='\0';
+      result__XSHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__OKHH=((__CHARACTER )(( 0)));
+        result__XSHH=((__CHARACTER )(( 0)));
       } else {
-        result__OKHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__XSHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__OKHH == ':')) {
+      if ((result__XSHH == ':')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__NKHH=TRUE__;
+        result__WSHH=TRUE__;
       };
     };
-    if (result__NKHH) {
-      result__B23G='\0';
+    if (result__WSHH) {
+      result__XF4G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__B23G=((__CHARACTER )(( 0)));
+        result__XF4G=((__CHARACTER )(( 0)));
       } else {
-        result__B23G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__XF4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      __tmp__BGHB=(result__B23G != '=');
+      __tmp__BGHB=(result__XF4G != '=');
     } else {
       __tmp__BGHB=FALSE__;
     };
     if (__tmp__BGHB) {
       t__OEHB=read_type__DCM(Self__JEHB,TRUE__);
       if (((void *)t__OEHB == (void *)NULL)) {
-        pos__14VG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_275));
-        put_position__UOG(pos__14VG);
+        pos__JIWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_278));
+        put_position__UOG(pos__JIWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -20493,96 +20751,96 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
         __tmp__OHHB=FALSE__;
       };
       if (__tmp__OHHB) {
-        pos__34VG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_276));
-        put_position__UOG(pos__34VG);
+        pos__LIWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_279));
+        put_position__UOG(pos__LIWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
-      result__QKHH=NULL;
-      ptr__RKHH=((__POINTER )(NULL));
-      typ_id__SKHH= 0;
-      sz__TKHH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-      if ((sz__TKHH ==  0)) {
-        result__QKHH=ITM_ARG__;
-      } else {
-        typ_id__SKHH=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__TKHH);
-        if ((typ_id__SKHH == (__INTEGER)(-  1))) {
-          a__UKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__VKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TKHH + a__UKHH) & (__UINTEGER_32)(~ a__UKHH));
-          ptr_table__3KHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__2KHH=((__POINTER )(NULL));
-          result__4KHH=((__POINTER *)ptr_table__3KHH)[ 0];
-          if ((result__4KHH == (void *)NULL)) {
-            result__4KHH=new_lab__MRJ(new_size__VKHH);
-            next__2KHH=(void *)((unsigned long)result__4KHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VKHH)));
-            ((__POINTER *)next__2KHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__3KHH)[ 0]=next__2KHH;
-          } else {
-            next__2KHH=((__POINTER *)result__4KHH)[ 0];
-            if ((next__2KHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4KHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VKHH <<  1)) <=  4096)) {
-                next__2KHH=(void *)((unsigned long)result__4KHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VKHH)));
+      result__ZSHH=NULL;
+      ptr__0SHH=((__POINTER )(NULL));
+      typ_id__1SHH= 0;
+      sz__2SHH=((__UINTEGER_32 )sizeof(__ITM_ARG));
+      if ((sz__2SHH ==  0)) {
+        result__ZSHH=ITM_ARG__;
+      } else {
+        typ_id__1SHH=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__2SHH);
+        if ((typ_id__1SHH == (__INTEGER)(-  1))) {
+          a__3SHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__4SHH=(__UINTEGER_32)((__UINTEGER_32)(sz__2SHH + a__3SHH) & (__UINTEGER_32)(~ a__3SHH));
+          ptr_table__GTHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4SHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__FTHH=((__POINTER )(NULL));
+          result__HTHH=((__POINTER *)ptr_table__GTHH)[ 0];
+          if ((result__HTHH == (void *)NULL)) {
+            result__HTHH=new_lab__MRJ(new_size__4SHH);
+            next__FTHH=(void *)((unsigned long)result__HTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4SHH)));
+            ((__POINTER *)next__FTHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__GTHH)[ 0]=next__FTHH;
+          } else {
+            next__FTHH=((__POINTER *)result__HTHH)[ 0];
+            if ((next__FTHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HTHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4SHH <<  1)) <=  4096)) {
+                next__FTHH=(void *)((unsigned long)result__HTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4SHH)));
               } else {
-                next__2KHH=new_lab__MRJ(new_size__VKHH);
+                next__FTHH=new_lab__MRJ(new_size__4SHH);
               };
-              ((__POINTER *)next__2KHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3KHH)[ 0]=next__2KHH;
+              ((__POINTER *)next__FTHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__GTHH)[ 0]=next__FTHH;
             } else {
-              ((__POINTER *)result__4KHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2KHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__4KHH=next__2KHH;
-            };
-          };
-          ptr__RKHH=result__4KHH;
-        } else {
-          t__WKHH=((__UINTEGER_32 )typ_id__SKHH);
-          a__XKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__FLHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TKHH + a__XKHH) & (__UINTEGER_32)(~ a__XKHH));
-          ptr_table__CLHH=((__POINTER )(&(table_type[(t__WKHH)])));
-          lab_type__ELHH=(__UINTEGER_32)(t__WKHH |  1);
-          next__BLHH=((__POINTER )(NULL));
-          result__DLHH=((__POINTER *)ptr_table__CLHH)[ 0];
-          if ((result__DLHH == (void *)NULL)) {
-            result__DLHH=new_lab__MRJ(lab_type__ELHH);
-            next__BLHH=(void *)((unsigned long)result__DLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FLHH)));
-            ((__POINTER *)next__BLHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CLHH)[ 0]=next__BLHH;
-          } else {
-            next__BLHH=((__POINTER *)result__DLHH)[ 0];
-            if ((next__BLHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DLHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FLHH <<  1)) <=  4096)) {
-                next__BLHH=(void *)((unsigned long)result__DLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FLHH)));
+              ((__POINTER *)result__HTHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FTHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__HTHH=next__FTHH;
+            };
+          };
+          ptr__0SHH=result__HTHH;
+        } else {
+          t__5SHH=((__UINTEGER_32 )typ_id__1SHH);
+          a__ATHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__OTHH=(__UINTEGER_32)((__UINTEGER_32)(sz__2SHH + a__ATHH) & (__UINTEGER_32)(~ a__ATHH));
+          ptr_table__LTHH=((__POINTER )(&(table_type[(t__5SHH)])));
+          lab_type__NTHH=(__UINTEGER_32)(t__5SHH |  1);
+          next__KTHH=((__POINTER )(NULL));
+          result__MTHH=((__POINTER *)ptr_table__LTHH)[ 0];
+          if ((result__MTHH == (void *)NULL)) {
+            result__MTHH=new_lab__MRJ(lab_type__NTHH);
+            next__KTHH=(void *)((unsigned long)result__MTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTHH)));
+            ((__POINTER *)next__KTHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__LTHH)[ 0]=next__KTHH;
+          } else {
+            next__KTHH=((__POINTER *)result__MTHH)[ 0];
+            if ((next__KTHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MTHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OTHH <<  1)) <=  4096)) {
+                next__KTHH=(void *)((unsigned long)result__MTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTHH)));
               } else {
-                next__BLHH=new_lab__MRJ(lab_type__ELHH);
+                next__KTHH=new_lab__MRJ(lab_type__NTHH);
               };
-              ((__POINTER *)next__BLHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__CLHH)[ 0]=next__BLHH;
+              ((__POINTER *)next__KTHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__LTHH)[ 0]=next__KTHH;
             } else {
-              ((__POINTER *)result__DLHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BLHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__DLHH=next__BLHH;
+              ((__POINTER *)result__MTHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KTHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__MTHH=next__KTHH;
             };
           };
-          ptr__RKHH=result__DLHH;
+          ptr__0SHH=result__MTHH;
         };
-        result__QKHH=((__ITM_ARG *)ptr__RKHH);
-        *(result__QKHH) = *(ITM_ARG__);
+        result__ZSHH=((__ITM_ARG *)ptr__0SHH);
+        *(result__ZSHH) = *(ITM_ARG__);
       };
-      Self__YKHH=((__ITM_ARG *)result__QKHH);
-      Self__YKHH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=pos__PEHB;
-      Self__YKHH->name__10HC=n__SEHB;
-      Self__YKHH->type__20HC=t__OEHB;
-      result__NEHB=result__QKHH;
+      Self__BTHH=((__ITM_ARG *)result__ZSHH);
+      Self__BTHH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=pos__PEHB;
+      Self__BTHH->name__10HC=n__SEHB;
+      Self__BTHH->type__20HC=t__OEHB;
+      result__NEHB=result__ZSHH;
       if (is_shorter__5Y) {
         add__CMHB(short_local__JCC,n__SEHB);
       };
     } else {
       if ((! mute__KEHB)) {
-        pos__54VG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_277));
-        put_position__UOG(pos__54VG);
+        pos__NIWG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_280));
+        put_position__UOG(pos__NIWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -20594,34 +20852,34 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
     __tmp__TIHB=FALSE__;
   };
   if ((! __tmp__TIHB)) {
-    result__GLHH=FALSE__;
+    result__PTHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__GLHH=FALSE__;
+      result__PTHH=FALSE__;
     } else {
-      result__HLHH='\0';
+      result__QTHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__HLHH=((__CHARACTER )(( 0)));
+        result__QTHH=((__CHARACTER )(( 0)));
       } else {
-        result__HLHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__QTHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__HLHH == '(')) {
+      if ((result__QTHH == '(')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__GLHH=TRUE__;
-      };
-    };
-    if (result__GLHH) {
-      t__ZYEE=NULL;
-      tm__0YEE=NULL;
-      type__1YEE=NULL;
-      name__2YEE=NULL;
-      beg__3YEE= 0;
-      result__5YEE=NULL;
-      tb__AZEE=NULL;
-      mute__4YEE=mute__KEHB;
+        result__PTHH=TRUE__;
+      };
+    };
+    if (result__PTHH) {
+      t__12EE=NULL;
+      tm__22EE=NULL;
+      type__32EE=NULL;
+      name__42EE=NULL;
+      beg__52EE= 0;
+      result__B3EE=NULL;
+      tb__C3EE=NULL;
+      mute__A3EE=mute__KEHB;
       if (self_first__LEHB) {
-        result__KLHH=read_word__QPF((&__string_58));
+        result__TTHH=read_word__QPF((&__string_58));
         if (is_shorter__5Y) {
-          if (result__KLHH) {
+          if (result__TTHH) {
             if (((void *)(&__string_58) == (void *)(&__string_4))) {
               short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
             } else {
@@ -20629,21 +20887,21 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
             };
           };
         };
-        __tmp__LZEE=result__KLHH;
+        __tmp__N3EE=result__TTHH;
       } else {
-        __tmp__LZEE=FALSE__;
+        __tmp__N3EE=FALSE__;
       };
-      if ((__tmp__LZEE || read_identifier__LAL())) {
-        result__LGGH=NULL;
+      if ((__tmp__N3EE || read_identifier__LAL())) {
+        result__YOGH=NULL;
         if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__K5K)->parent_arrayed_collection__J5K.upper__0SU <  0)) {
-          result__LGGH=create_with_capacity__BHRC( 16);
+          result__YOGH=create_with_capacity__BHRC( 16);
         } else {
-          Self__MGGH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__K5K);
-          result__LGGH=((void **)Self__MGGH->parent_arrayed_collection__J5K.storage__KVU)[Self__MGGH->parent_arrayed_collection__J5K.upper__0SU];
-          Self__NGGH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__K5K);
-          Self__NGGH->parent_arrayed_collection__J5K.upper__0SU=(__INTEGER)(Self__NGGH->parent_arrayed_collection__J5K.upper__0SU -  1);
+          Self__ZOGH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__K5K);
+          result__YOGH=((void **)Self__ZOGH->parent_arrayed_collection__J5K.storage__KVU)[Self__ZOGH->parent_arrayed_collection__J5K.upper__0SU];
+          Self__0OGH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__K5K);
+          Self__0OGH->parent_arrayed_collection__J5K.upper__0SU=(__INTEGER)(Self__0OGH->parent_arrayed_collection__J5K.upper__0SU -  1);
         };
-        name__2YEE=result__LGGH;
+        name__42EE=result__YOGH;
         result__EUP=NULL;
         if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP)->parent_arrayed_collection__JUP.upper__FVV <  0)) {
           result__EUP=create_with_capacity__IFR( 16);
@@ -20653,144 +20911,144 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
           Self__XDBB=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
           Self__XDBB->parent_arrayed_collection__JUP.upper__FVV=(__INTEGER)(Self__XDBB->parent_arrayed_collection__JUP.upper__FVV -  1);
         };
-        type__1YEE=result__EUP;
-        beg__3YEE= 0;
+        type__32EE=result__EUP;
+        beg__52EE= 0;
         do {
-          if (((((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__2YEE)->parent_arrayed_collection__H5I.upper__15OD +  1) !=  0) && (! read_identifier__LAL())) && (! mute__4YEE))) {
-            pos__B5VG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_278));
-            put_position__UOG(pos__B5VG);
+          if (((((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__42EE)->parent_arrayed_collection__H5I.upper__15OD +  1) !=  0) && (! read_identifier__LAL())) && (! mute__A3EE))) {
+            pos__PIWG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_281));
+            put_position__UOG(pos__PIWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
             };
           };
-          add_last__RBPD(name__2YEE,last_string__I0C);
-          result__LLHH=FALSE__;
+          add_last__RBPD(name__42EE,last_string__I0C);
+          result__UTHH=FALSE__;
           if ((! read_space__3RD())) {
-            result__LLHH=FALSE__;
+            result__UTHH=FALSE__;
           } else {
-            result__MLHH='\0';
+            result__VTHH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__MLHH=((__CHARACTER )(( 0)));
+              result__VTHH=((__CHARACTER )(( 0)));
             } else {
-              result__MLHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__VTHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__MLHH == ':')) {
+            if ((result__VTHH == ':')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__LLHH=TRUE__;
+              result__UTHH=TRUE__;
             };
           };
-          if (result__LLHH) {
-            result__G23G='\0';
+          if (result__UTHH) {
+            result__2F4G='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__G23G=((__CHARACTER )(( 0)));
+              result__2F4G=((__CHARACTER )(( 0)));
             } else {
-              result__G23G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__2F4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            __tmp__I1EE=(result__G23G != '=');
+            __tmp__K5EE=(result__2F4G != '=');
           } else {
-            __tmp__I1EE=FALSE__;
+            __tmp__K5EE=FALSE__;
           };
-          if (__tmp__I1EE) {
-            mute__4YEE=FALSE__;
-            t__ZYEE=read_type__DCM(Self__JEHB,TRUE__);
-            if (((void *)t__ZYEE == (void *)NULL)) {
-              pos__D5VG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_279));
-              put_position__UOG(pos__D5VG);
+          if (__tmp__K5EE) {
+            mute__A3EE=FALSE__;
+            t__12EE=read_type__DCM(Self__JEHB,TRUE__);
+            if (((void *)t__12EE == (void *)NULL)) {
+              pos__RIWG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_282));
+              put_position__UOG(pos__RIWG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
               };
             };
-            Self__DFSF=beg__3YEE;
-            limit_up__EFSF=((__FAST_ARRAYoSTRING_CONSTANTo *)name__2YEE)->parent_arrayed_collection__H5I.upper__15OD;
-            while ((Self__DFSF <= limit_up__EFSF)) {
-              add_last__0NV(type__1YEE,t__ZYEE);
-              Self__DFSF=(__INTEGER)(Self__DFSF +  1);
+            Self__5KSF=beg__52EE;
+            limit_up__ALSF=((__FAST_ARRAYoSTRING_CONSTANTo *)name__42EE)->parent_arrayed_collection__H5I.upper__15OD;
+            while ((Self__5KSF <= limit_up__ALSF)) {
+              add_last__0NV(type__32EE,t__12EE);
+              Self__5KSF=(__INTEGER)(Self__5KSF +  1);
             };
-            beg__3YEE=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__2YEE)->parent_arrayed_collection__H5I.upper__15OD +  1);
+            beg__52EE=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__42EE)->parent_arrayed_collection__H5I.upper__15OD +  1);
           };
-          result__OLHH=FALSE__;
+          result__XTHH=FALSE__;
           if ((! read_space__3RD())) {
-            result__OLHH=FALSE__;
+            result__XTHH=FALSE__;
           } else {
-            result__PLHH='\0';
+            result__YTHH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__PLHH=((__CHARACTER )(( 0)));
+              result__YTHH=((__CHARACTER )(( 0)));
             } else {
-              result__PLHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__YTHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__PLHH == ',')) {
+            if ((result__YTHH == ',')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__OLHH=TRUE__;
+              result__XTHH=TRUE__;
             };
           };
-        } while (result__OLHH);
-        if ((beg__3YEE != (__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__LGGH)->parent_arrayed_collection__H5I.upper__15OD +  1))) {
-          if ((! mute__4YEE)) {
-            pos__Q5VG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_279));
-            put_position__UOG(pos__Q5VG);
+        } while (result__XTHH);
+        if ((beg__52EE != (__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__YOGH)->parent_arrayed_collection__H5I.upper__15OD +  1))) {
+          if ((! mute__A3EE)) {
+            pos__4IWG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_282));
+            put_position__UOG(pos__4IWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
             };
           };
-          free__0S5(result__LGGH);
+          free__0S5(result__YOGH);
           free__2MQ(result__EUP);
         } else {
           if (self_first__LEHB) {
             if (((void *)((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__EUP)->parent_arrayed_collection__ZXC.storage__RMV)[ 0] != (void *)type_self__HUN)) {
-              __tmp__53EE=TRUE__;
+              __tmp__BCFE=TRUE__;
             } else {
               if (((void *)((__PROTOTYPE *)object__JBC)->parent_named__5.name__LI == (void *)(&__string_40))) {
-                __tmp__Y3EE=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__EUP)->parent_arrayed_collection__ZXC.storage__RMV)[ 0];
-                if (__tmp__Y3EE==NULL) {
-                  __tmp__Z3EE=NULL;
+                __tmp__0BFE=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__EUP)->parent_arrayed_collection__ZXC.storage__RMV)[ 0];
+                if (__tmp__0BFE==NULL) {
+                  __tmp__1BFE=NULL;
                 } else {
-                  switch (((struct ___OBJ *)__tmp__Y3EE)->__id) {
+                  switch (((struct ___OBJ *)__tmp__0BFE)->__id) {
                   case __ITM_TYPE_PARAMETER__: {
-                    __tmp__Z3EE=NULL;
+                    __tmp__1BFE=NULL;
                   } break;
                   case __ITM_TYPE_SIMPLE__: {
-                    __tmp__Z3EE=NULL;
+                    __tmp__1BFE=NULL;
                   } break;
                   case __ITM_TYPE_BLOCK__: {
-                    __tmp__Z3EE=((void *)__tmp__Y3EE);
+                    __tmp__1BFE=((void *)__tmp__0BFE);
                   } break;
                   case __ITM_TYPE_GENERIC__: {
-                    __tmp__Z3EE=NULL;
+                    __tmp__1BFE=NULL;
                   } break;
                   case __ITM_TYPE_STYLE__: {
-                    __tmp__Z3EE=NULL;
+                    __tmp__1BFE=NULL;
                   } break;
                   }
                 };
-                tb__AZEE=__tmp__Z3EE;
-                __tmp__23EE=((void *)__tmp__Z3EE == (void *)NULL);
+                tb__C3EE=__tmp__1BFE;
+                __tmp__4BFE=((void *)__tmp__1BFE == (void *)NULL);
               } else {
-                __tmp__23EE=FALSE__;
+                __tmp__4BFE=FALSE__;
               };
-              __tmp__53EE=__tmp__23EE;
+              __tmp__BCFE=__tmp__4BFE;
             };
-            __tmp__C4EE=__tmp__53EE;
+            __tmp__ECFE=__tmp__BCFE;
           } else {
-            __tmp__C4EE=FALSE__;
+            __tmp__ECFE=FALSE__;
           };
-          if (__tmp__C4EE) {
-            pos__S5VG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_276));
-            put_position__UOG(pos__S5VG);
+          if (__tmp__ECFE) {
+            pos__AJWG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_279));
+            put_position__UOG(pos__AJWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
             };
           };
-          if (((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__LGGH)->parent_arrayed_collection__H5I.upper__15OD +  1) ==  1)) {
+          if (((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__YOGH)->parent_arrayed_collection__H5I.upper__15OD +  1) ==  1)) {
             p__MZ5B=current_position__JXF();
-            n__NZ5B=((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__LGGH)->parent_arrayed_collection__H5I.storage__RCPD)[ 0];
+            n__NZ5B=((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__YOGH)->parent_arrayed_collection__H5I.storage__RCPD)[ 0];
             t__OZ5B=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__EUP)->parent_arrayed_collection__ZXC.storage__RMV)[ 0];
             result__MEAC=NULL;
             ptr__NEAC=((__POINTER )(NULL));
@@ -20802,61 +21060,61 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
               typ_id__SEAC=-1;
               clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__PEAC);
               if ((typ_id__SEAC == (__INTEGER)(-  1))) {
-                a__ZIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__0IEH=(__UINTEGER_32)((__UINTEGER_32)(sz__PEAC + a__ZIEH) & (__UINTEGER_32)(~ a__ZIEH));
-                ptr_table__SLHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0IEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__RLHH=((__POINTER )(NULL));
-                result__TLHH=((__POINTER *)ptr_table__SLHH)[ 0];
-                if ((result__TLHH == (void *)NULL)) {
-                  result__TLHH=new_lab__MRJ(new_size__0IEH);
-                  next__RLHH=(void *)((unsigned long)result__TLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0IEH)));
-                  ((__POINTER *)next__RLHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__SLHH)[ 0]=next__RLHH;
+                a__UREH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__VREH=(__UINTEGER_32)((__UINTEGER_32)(sz__PEAC + a__UREH) & (__UINTEGER_32)(~ a__UREH));
+                ptr_table__1THH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VREH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                next__0THH=((__POINTER )(NULL));
+                result__2THH=((__POINTER *)ptr_table__1THH)[ 0];
+                if ((result__2THH == (void *)NULL)) {
+                  result__2THH=new_lab__MRJ(new_size__VREH);
+                  next__0THH=(void *)((unsigned long)result__2THH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VREH)));
+                  ((__POINTER *)next__0THH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__1THH)[ 0]=next__0THH;
                 } else {
-                  next__RLHH=((__POINTER *)result__TLHH)[ 0];
-                  if ((next__RLHH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TLHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0IEH <<  1)) <=  4096)) {
-                      next__RLHH=(void *)((unsigned long)result__TLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0IEH)));
+                  next__0THH=((__POINTER *)result__2THH)[ 0];
+                  if ((next__0THH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2THH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VREH <<  1)) <=  4096)) {
+                      next__0THH=(void *)((unsigned long)result__2THH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VREH)));
                     } else {
-                      next__RLHH=new_lab__MRJ(new_size__0IEH);
+                      next__0THH=new_lab__MRJ(new_size__VREH);
                     };
-                    ((__POINTER *)next__RLHH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__SLHH)[ 0]=next__RLHH;
+                    ((__POINTER *)next__0THH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__1THH)[ 0]=next__0THH;
                   } else {
-                    ((__POINTER *)result__TLHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RLHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__TLHH=next__RLHH;
+                    ((__POINTER *)result__2THH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0THH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__2THH=next__0THH;
                   };
                 };
-                ptr__NEAC=result__TLHH;
+                ptr__NEAC=result__2THH;
               } else {
-                t__4IEH=((__UINTEGER_32 )typ_id__SEAC);
-                a__3IEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__0LHH=(__UINTEGER_32)((__UINTEGER_32)(sz__PEAC + a__3IEH) & (__UINTEGER_32)(~ a__3IEH));
-                ptr_table__XLHH=((__POINTER )(&(table_type[(t__4IEH)])));
-                lab_type__ZLHH=(__UINTEGER_32)(t__4IEH |  1);
-                next__WLHH=((__POINTER )(NULL));
-                result__YLHH=((__POINTER *)ptr_table__XLHH)[ 0];
-                if ((result__YLHH == (void *)NULL)) {
-                  result__YLHH=new_lab__MRJ(lab_type__ZLHH);
-                  next__WLHH=(void *)((unsigned long)result__YLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0LHH)));
-                  ((__POINTER *)next__WLHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__XLHH)[ 0]=next__WLHH;
+                t__ZREH=((__UINTEGER_32 )typ_id__SEAC);
+                a__YREH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__DUHH=(__UINTEGER_32)((__UINTEGER_32)(sz__PEAC + a__YREH) & (__UINTEGER_32)(~ a__YREH));
+                ptr_table__AUHH=((__POINTER )(&(table_type[(t__ZREH)])));
+                lab_type__CUHH=(__UINTEGER_32)(t__ZREH |  1);
+                next__5THH=((__POINTER )(NULL));
+                result__BUHH=((__POINTER *)ptr_table__AUHH)[ 0];
+                if ((result__BUHH == (void *)NULL)) {
+                  result__BUHH=new_lab__MRJ(lab_type__CUHH);
+                  next__5THH=(void *)((unsigned long)result__BUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DUHH)));
+                  ((__POINTER *)next__5THH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__AUHH)[ 0]=next__5THH;
                 } else {
-                  next__WLHH=((__POINTER *)result__YLHH)[ 0];
-                  if ((next__WLHH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YLHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0LHH <<  1)) <=  4096)) {
-                      next__WLHH=(void *)((unsigned long)result__YLHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0LHH)));
+                  next__5THH=((__POINTER *)result__BUHH)[ 0];
+                  if ((next__5THH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DUHH <<  1)) <=  4096)) {
+                      next__5THH=(void *)((unsigned long)result__BUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DUHH)));
                     } else {
-                      next__WLHH=new_lab__MRJ(lab_type__ZLHH);
+                      next__5THH=new_lab__MRJ(lab_type__CUHH);
                     };
-                    ((__POINTER *)next__WLHH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__XLHH)[ 0]=next__WLHH;
+                    ((__POINTER *)next__5THH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__AUHH)[ 0]=next__5THH;
                   } else {
-                    ((__POINTER *)result__YLHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WLHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__YLHH=next__WLHH;
+                    ((__POINTER *)result__BUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5THH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__BUHH=next__5THH;
                   };
                 };
-                ptr__NEAC=result__YLHH;
+                ptr__NEAC=result__BUHH;
               };
               result__MEAC=((__ITM_ARG *)ptr__NEAC);
               *(result__MEAC) = *(ITM_ARG__);
@@ -20865,302 +21123,302 @@ static void* read_loc_arg__with_self__IEHB(__PARSER *Self__JEHB,__BOOLEAN mute__
             Self__X0HC->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=p__MZ5B;
             Self__X0HC->name__10HC=n__NZ5B;
             Self__X0HC->type__20HC=t__OZ5B;
-            result__5YEE=result__MEAC;
-            free__0S5(result__LGGH);
+            result__B3EE=result__MEAC;
+            free__0S5(result__YOGH);
             free__2MQ(result__EUP);
           } else {
-            result__PHLF=NULL;
-            if ((((__FAST_ARRAYoSTRING_CONSTANTo *)result__LGGH)->parent_arrayed_collection__H5I.upper__15OD <  0)) {
-              result__PHLF=empty_list__WHLF;
+            result__5MLF=NULL;
+            if ((((__FAST_ARRAYoSTRING_CONSTANTo *)result__YOGH)->parent_arrayed_collection__H5I.upper__15OD <  0)) {
+              result__5MLF=empty_list__GNLF;
             } else {
-              Self__MCPF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__AILF);
-              e__NCPF=result__LGGH;
-              result__ADPF=NULL;
-              node__5CPF=((void **)Self__MCPF->buckets__HDPF)[(__INTEGER)(hash_code__DNQF(result__LGGH) % Self__MCPF->capacity__CDPF)];
-              until_do__LOQF:
+              Self__KIPF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__QNLF);
+              e__LIPF=result__YOGH;
+              result__4IPF=NULL;
+              node__3IPF=((void **)Self__KIPF->buckets__FJPF)[(__INTEGER)(hash_code__BTQF(result__YOGH) % Self__KIPF->capacity__AJPF)];
+              until_do__JUQF:
               {
-                if (((void *)node__5CPF == (void *)NULL)) {
-                  __tmp__YDPF=TRUE__;
+                if (((void *)node__3IPF == (void *)NULL)) {
+                  __tmp__WJPF=TRUE__;
                 } else {
-                  Self__Z4GG=((__FAST_ARRAYoSTRING_CONSTANTo *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__5CPF)->item__TDPF);
-                  result__24GG=FALSE__;
-                  o__34GG=NULL;
-                  if (((void *)Self__Z4GG == (void *)e__NCPF)) {
-                    result__24GG=TRUE__;
+                  Self__QGHG=((__FAST_ARRAYoSTRING_CONSTANTo *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__3IPF)->item__RJPF);
+                  result__TGHG=FALSE__;
+                  o__UGHG=NULL;
+                  if (((void *)Self__QGHG == (void *)e__LIPF)) {
+                    result__TGHG=TRUE__;
                   } else {
-                    if (e__NCPF==NULL) {
-                      __tmp__J5GG=NULL;
+                    if (e__LIPF==NULL) {
+                      __tmp__AHHG=NULL;
                     } else {
-                      __tmp__J5GG=((__FAST_ARRAYoSTRING_CONSTANTo *)e__NCPF);
+                      __tmp__AHHG=((__FAST_ARRAYoSTRING_CONSTANTo *)e__LIPF);
                     };
-                    o__34GG=__tmp__J5GG;
-                    if ((((void *)__tmp__J5GG != (void *)NULL) && (Self__Z4GG->parent_arrayed_collection__H5I.upper__15OD == __tmp__J5GG->parent_arrayed_collection__H5I.upper__15OD))) {
-                      __tmp__Z5GG=Self__Z4GG->parent_arrayed_collection__H5I.storage__RCPD;
-                      __tmp__15GG=__tmp__J5GG->parent_arrayed_collection__H5I.storage__RCPD;
-                      __tmp__45GG=(__INTEGER)(Self__Z4GG->parent_arrayed_collection__H5I.upper__15OD +  1);
-                      Self__TQMG=((void **)__tmp__Z5GG);
-                      i__HRMG=(__INTEGER)(__tmp__45GG -  1);
-                      while (((i__HRMG >=  0) && ((void *)Self__TQMG[i__HRMG] == (void *)((void **)__tmp__15GG)[i__HRMG]))) {
-                        i__HRMG=(__INTEGER)(i__HRMG -  1);
+                    o__UGHG=__tmp__AHHG;
+                    if ((((void *)__tmp__AHHG != (void *)NULL) && (Self__QGHG->parent_arrayed_collection__H5I.upper__15OD == __tmp__AHHG->parent_arrayed_collection__H5I.upper__15OD))) {
+                      __tmp__QHHG=Self__QGHG->parent_arrayed_collection__H5I.storage__RCPD;
+                      __tmp__SHHG=__tmp__AHHG->parent_arrayed_collection__H5I.storage__RCPD;
+                      __tmp__VHHG=(__INTEGER)(Self__QGHG->parent_arrayed_collection__H5I.upper__15OD +  1);
+                      Self__0YMG=((void **)__tmp__QHHG);
+                      i__OZMG=(__INTEGER)(__tmp__VHHG -  1);
+                      while (((i__OZMG >=  0) && ((void *)Self__0YMG[i__OZMG] == (void *)((void **)__tmp__SHHG)[i__OZMG]))) {
+                        i__OZMG=(__INTEGER)(i__OZMG -  1);
                       };
-                      result__24GG=(i__HRMG <  0);
+                      result__TGHG=(i__OZMG <  0);
                     };
                   };
-                  __tmp__YDPF=result__24GG;
+                  __tmp__WJPF=result__TGHG;
                 };
-                if ((! __tmp__YDPF)) {
-                  node__5CPF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__5CPF)->next__5DPF;
-                  goto until_do__LOQF;
+                if ((! __tmp__WJPF)) {
+                  node__3IPF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__3IPF)->next__3JPF;
+                  goto until_do__JUQF;
                 };
               };
-              if (((void *)node__5CPF != (void *)NULL)) {
-                result__ADPF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__5CPF)->item__TDPF;
+              if (((void *)node__3IPF != (void *)NULL)) {
+                result__4IPF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__3IPF)->item__RJPF;
               };
-              result__PHLF=result__ADPF;
-              if (((void *)result__ADPF == (void *)NULL)) {
-                result__PHLF=create_with_capacity__BHRC((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__LGGH)->parent_arrayed_collection__H5I.upper__15OD +  1));
-                copy__22RD(result__PHLF,result__LGGH);
-                Self__MGPF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__AILF);
-                e__NGPF=result__PHLF;
-                e__2LHH=result__PHLF;
-                node__3LHH=((void **)Self__MGPF->buckets__HDPF)[(__INTEGER)(hash_code__DNQF(result__PHLF) % Self__MGPF->capacity__CDPF)];
-                while ((! (((void *)node__3LHH == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__3LHH)->item__TDPF == (void *)e__2LHH)))) {
-                  node__3LHH=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__3LHH)->next__5DPF;
+              result__5MLF=result__4IPF;
+              if (((void *)result__4IPF == (void *)NULL)) {
+                result__5MLF=create_with_capacity__BHRC((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__YOGH)->parent_arrayed_collection__H5I.upper__15OD +  1));
+                copy__22RD(result__5MLF,result__YOGH);
+                Self__KMPF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__QNLF);
+                e__LMPF=result__5MLF;
+                e__FUHH=result__5MLF;
+                node__GUHH=((void **)Self__KMPF->buckets__FJPF)[(__INTEGER)(hash_code__BTQF(result__5MLF) % Self__KMPF->capacity__AJPF)];
+                while ((! (((void *)node__GUHH == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__GUHH)->item__RJPF == (void *)e__FUHH)))) {
+                  node__GUHH=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__GUHH)->next__3JPF;
                 };
-                e__5VQF=result__PHLF;
-                node__IWQF=((void **)Self__MGPF->buckets__HDPF)[(__INTEGER)(hash_code__DNQF(result__PHLF) % Self__MGPF->capacity__CDPF)];
-                while ((! (((void *)node__IWQF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__IWQF)->item__TDPF == (void *)e__5VQF)))) {
-                  node__IWQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__IWQF)->next__5DPF;
+                e__31QF=result__5MLF;
+                node__G2QF=((void **)Self__KMPF->buckets__FJPF)[(__INTEGER)(hash_code__BTQF(result__5MLF) % Self__KMPF->capacity__AJPF)];
+                while ((! (((void *)node__G2QF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__G2QF)->item__RJPF == (void *)e__31QF)))) {
+                  node__G2QF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__G2QF)->next__3JPF;
                 };
-                h__UGPF=hash_code__DNQF(result__PHLF);
-                idx__VGPF=(__INTEGER)(h__UGPF % Self__MGPF->capacity__CDPF);
-                node__WGPF=((void **)Self__MGPF->buckets__HDPF)[idx__VGPF];
-                while ((! (((void *)node__WGPF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__WGPF)->item__TDPF == (void *)e__NGPF)))) {
-                  node__WGPF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__WGPF)->next__5DPF;
+                h__SMPF=hash_code__BTQF(result__5MLF);
+                idx__TMPF=(__INTEGER)(h__SMPF % Self__KMPF->capacity__AJPF);
+                node__UMPF=((void **)Self__KMPF->buckets__FJPF)[idx__TMPF];
+                while ((! (((void *)node__UMPF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__UMPF)->item__RJPF == (void *)e__LMPF)))) {
+                  node__UMPF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__UMPF)->next__3JPF;
                 };
-                if (((void *)node__WGPF == (void *)NULL)) {
-                  if ((Self__MGPF->capacity__CDPF == Self__MGPF->count__ZHPF)) {
-                    idx__KB1F= 0;
-                    node1__NB1F=NULL;
-                    node2__OB1F=NULL;
-                    new_capacity__LB1F=prime_number_ceiling__X41((__INTEGER)(Self__MGPF->capacity__CDPF +  1));
-                    old_buckets__MB1F=Self__MGPF->buckets__HDPF;
-                    Self__MGPF->buckets__HDPF=create__KDTF(new_capacity__LB1F);
-                    i__JB1F=(__INTEGER)(Self__MGPF->capacity__CDPF -  1);
-                    Self__MGPF->capacity__CDPF=new_capacity__LB1F;
-                    while ((i__JB1F >=  0)) {
-                      node1__NB1F=((void **)old_buckets__MB1F)[i__JB1F];
-                      while (((void *)node1__NB1F != (void *)NULL)) {
-                        node2__OB1F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__NB1F)->next__5DPF;
-                        idx__KB1F=(__INTEGER)(hash_code__DNQF(((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__NB1F)->item__TDPF) % Self__MGPF->capacity__CDPF);
-                        ((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__NB1F)->next__5DPF=((void **)Self__MGPF->buckets__HDPF)[idx__KB1F];
-                        ((void **)Self__MGPF->buckets__HDPF)[idx__KB1F]=node1__NB1F;
-                        node1__NB1F=node2__OB1F;
+                if (((void *)node__UMPF == (void *)NULL)) {
+                  if ((Self__KMPF->capacity__AJPF == Self__KMPF->count__XNPF)) {
+                    idx__3K1F= 0;
+                    node1__AL1F=NULL;
+                    node2__BL1F=NULL;
+                    new_capacity__4K1F=prime_number_ceiling__X41((__INTEGER)(Self__KMPF->capacity__AJPF +  1));
+                    old_buckets__5K1F=Self__KMPF->buckets__FJPF;
+                    Self__KMPF->buckets__FJPF=create__ZKTF(new_capacity__4K1F);
+                    i__2K1F=(__INTEGER)(Self__KMPF->capacity__AJPF -  1);
+                    Self__KMPF->capacity__AJPF=new_capacity__4K1F;
+                    while ((i__2K1F >=  0)) {
+                      node1__AL1F=((void **)old_buckets__5K1F)[i__2K1F];
+                      while (((void *)node1__AL1F != (void *)NULL)) {
+                        node2__BL1F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__AL1F)->next__3JPF;
+                        idx__3K1F=(__INTEGER)(hash_code__BTQF(((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__AL1F)->item__RJPF) % Self__KMPF->capacity__AJPF);
+                        ((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__AL1F)->next__3JPF=((void **)Self__KMPF->buckets__FJPF)[idx__3K1F];
+                        ((void **)Self__KMPF->buckets__FJPF)[idx__3K1F]=node1__AL1F;
+                        node1__AL1F=node2__BL1F;
                       };
-                      i__JB1F=(__INTEGER)(i__JB1F -  1);
+                      i__2K1F=(__INTEGER)(i__2K1F -  1);
                     };
-                    idx__VGPF=(__INTEGER)(h__UGPF % Self__MGPF->capacity__CDPF);
+                    idx__TMPF=(__INTEGER)(h__SMPF % Self__KMPF->capacity__AJPF);
                   };
-                  __tmp__GIPF=((void **)Self__MGPF->buckets__HDPF)[idx__VGPF];
-                  result__PD0F=NULL;
-                  ptr__QD0F=((__POINTER )(NULL));
-                  typ_id__VD0F= 0;
-                  sz__SD0F=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo));
-                  if ((sz__SD0F ==  0)) {
-                    result__PD0F=HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
+                  __tmp__EOPF=((void **)Self__KMPF->buckets__FJPF)[idx__TMPF];
+                  result__VM0F=NULL;
+                  ptr__WM0F=((__POINTER )(NULL));
+                  typ_id__1M0F= 0;
+                  sz__YM0F=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo));
+                  if ((sz__YM0F ==  0)) {
+                    result__VM0F=HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
                   } else {
-                    typ_id__VD0F=__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
-                    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SD0F);
-                    if ((typ_id__VD0F == (__INTEGER)(-  1))) {
-                      a__YHEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                      new_size__ZHEH=(__UINTEGER_32)((__UINTEGER_32)(sz__SD0F + a__YHEH) & (__UINTEGER_32)(~ a__YHEH));
-                      ptr_table__AMHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZHEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                      next__5LHH=((__POINTER )(NULL));
-                      result__BMHH=((__POINTER *)ptr_table__AMHH)[ 0];
-                      if ((result__BMHH == (void *)NULL)) {
-                        result__BMHH=new_lab__MRJ(new_size__ZHEH);
-                        next__5LHH=(void *)((unsigned long)result__BMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZHEH)));
-                        ((__POINTER *)next__5LHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__AMHH)[ 0]=next__5LHH;
+                    typ_id__1M0F=__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
+                    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YM0F);
+                    if ((typ_id__1M0F == (__INTEGER)(-  1))) {
+                      a__TQEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                      new_size__UQEH=(__UINTEGER_32)((__UINTEGER_32)(sz__YM0F + a__TQEH) & (__UINTEGER_32)(~ a__TQEH));
+                      ptr_table__JUHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UQEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                      next__IUHH=((__POINTER )(NULL));
+                      result__KUHH=((__POINTER *)ptr_table__JUHH)[ 0];
+                      if ((result__KUHH == (void *)NULL)) {
+                        result__KUHH=new_lab__MRJ(new_size__UQEH);
+                        next__IUHH=(void *)((unsigned long)result__KUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UQEH)));
+                        ((__POINTER *)next__IUHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__JUHH)[ 0]=next__IUHH;
                       } else {
-                        next__5LHH=((__POINTER *)result__BMHH)[ 0];
-                        if ((next__5LHH == (void *)NULL)) {
-                          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZHEH <<  1)) <=  4096)) {
-                            next__5LHH=(void *)((unsigned long)result__BMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZHEH)));
+                        next__IUHH=((__POINTER *)result__KUHH)[ 0];
+                        if ((next__IUHH == (void *)NULL)) {
+                          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UQEH <<  1)) <=  4096)) {
+                            next__IUHH=(void *)((unsigned long)result__KUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UQEH)));
                           } else {
-                            next__5LHH=new_lab__MRJ(new_size__ZHEH);
+                            next__IUHH=new_lab__MRJ(new_size__UQEH);
                           };
-                          ((__POINTER *)next__5LHH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__AMHH)[ 0]=next__5LHH;
+                          ((__POINTER *)next__IUHH)[ 0]=NULL;
+                          ((__POINTER *)ptr_table__JUHH)[ 0]=next__IUHH;
                         } else {
-                          ((__POINTER *)result__BMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5LHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                          result__BMHH=next__5LHH;
+                          ((__POINTER *)result__KUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                          result__KUHH=next__IUHH;
                         };
                       };
-                      ptr__QD0F=result__BMHH;
+                      ptr__WM0F=result__KUHH;
                     } else {
-                      t__3HEH=((__UINTEGER_32 )typ_id__VD0F);
-                      a__2HEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                      new_size__IMHH=(__UINTEGER_32)((__UINTEGER_32)(sz__SD0F + a__2HEH) & (__UINTEGER_32)(~ a__2HEH));
-                      ptr_table__FMHH=((__POINTER )(&(table_type[(t__3HEH)])));
-                      lab_type__HMHH=(__UINTEGER_32)(t__3HEH |  1);
-                      next__EMHH=((__POINTER )(NULL));
-                      result__GMHH=((__POINTER *)ptr_table__FMHH)[ 0];
-                      if ((result__GMHH == (void *)NULL)) {
-                        result__GMHH=new_lab__MRJ(lab_type__HMHH);
-                        next__EMHH=(void *)((unsigned long)result__GMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IMHH)));
-                        ((__POINTER *)next__EMHH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__FMHH)[ 0]=next__EMHH;
+                      t__YQEH=((__UINTEGER_32 )typ_id__1M0F);
+                      a__XQEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                      new_size__RUHH=(__UINTEGER_32)((__UINTEGER_32)(sz__YM0F + a__XQEH) & (__UINTEGER_32)(~ a__XQEH));
+                      ptr_table__OUHH=((__POINTER )(&(table_type[(t__YQEH)])));
+                      lab_type__QUHH=(__UINTEGER_32)(t__YQEH |  1);
+                      next__NUHH=((__POINTER )(NULL));
+                      result__PUHH=((__POINTER *)ptr_table__OUHH)[ 0];
+                      if ((result__PUHH == (void *)NULL)) {
+                        result__PUHH=new_lab__MRJ(lab_type__QUHH);
+                        next__NUHH=(void *)((unsigned long)result__PUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RUHH)));
+                        ((__POINTER *)next__NUHH)[ 0]=NULL;
+                        ((__POINTER *)ptr_table__OUHH)[ 0]=next__NUHH;
                       } else {
-                        next__EMHH=((__POINTER *)result__GMHH)[ 0];
-                        if ((next__EMHH == (void *)NULL)) {
-                          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IMHH <<  1)) <=  4096)) {
-                            next__EMHH=(void *)((unsigned long)result__GMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IMHH)));
+                        next__NUHH=((__POINTER *)result__PUHH)[ 0];
+                        if ((next__NUHH == (void *)NULL)) {
+                          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RUHH <<  1)) <=  4096)) {
+                            next__NUHH=(void *)((unsigned long)result__PUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RUHH)));
                           } else {
-                            next__EMHH=new_lab__MRJ(lab_type__HMHH);
+                            next__NUHH=new_lab__MRJ(lab_type__QUHH);
                           };
-                          ((__POINTER *)next__EMHH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__FMHH)[ 0]=next__EMHH;
+                          ((__POINTER *)next__NUHH)[ 0]=NULL;
+                          ((__POINTER *)ptr_table__OUHH)[ 0]=next__NUHH;
                         } else {
-                          ((__POINTER *)result__GMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EMHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                          result__GMHH=next__EMHH;
+                          ((__POINTER *)result__PUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                          result__PUHH=next__NUHH;
                         };
                       };
-                      ptr__QD0F=result__GMHH;
+                      ptr__WM0F=result__PUHH;
                     };
-                    result__PD0F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)ptr__QD0F);
-                    *(result__PD0F) = *(HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__);
+                    result__VM0F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)ptr__WM0F);
+                    *(result__VM0F) = *(HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__);
                   };
-                  Self__ST3F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)result__PD0F);
-                  Self__ST3F->item__TDPF=result__PHLF;
-                  Self__ST3F->next__5DPF=__tmp__GIPF;
-                  node__WGPF=result__PD0F;
-                  ((void **)Self__MGPF->buckets__HDPF)[idx__VGPF]=result__PD0F;
-                  Self__MGPF->count__ZHPF=(__INTEGER)(Self__MGPF->count__ZHPF +  1);
+                  Self__V33F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)result__VM0F);
+                  Self__V33F->item__RJPF=result__5MLF;
+                  Self__V33F->next__3JPF=__tmp__EOPF;
+                  node__UMPF=result__VM0F;
+                  ((void **)Self__KMPF->buckets__FJPF)[idx__TMPF]=result__VM0F;
+                  Self__KMPF->count__XNPF=(__INTEGER)(Self__KMPF->count__XNPF +  1);
                 };
               };
             };
-            free__0S5(result__LGGH);
-            name__2YEE=result__PHLF;
-            type__1YEE=alias__GVP(result__EUP);
-            tm__0YEE=get__CJP(type__1YEE);
-            p__RILF=current_position__JXF();
-            result__OZLF=NULL;
-            ptr__PZLF=((__POINTER )(NULL));
-            typ_id__UZLF= 0;
-            sz__RZLF=((__UINTEGER_32 )sizeof(__ITM_ARGS));
-            if ((sz__RZLF ==  0)) {
-              result__OZLF=ITM_ARGS__;
+            free__0S5(result__YOGH);
+            name__42EE=result__5MLF;
+            type__32EE=alias__GVP(result__EUP);
+            tm__22EE=get__CJP(type__32EE);
+            p__BOLF=current_position__JXF();
+            result__C5LF=NULL;
+            ptr__D5LF=((__POINTER )(NULL));
+            typ_id__I5LF= 0;
+            sz__F5LF=((__UINTEGER_32 )sizeof(__ITM_ARGS));
+            if ((sz__F5LF ==  0)) {
+              result__C5LF=ITM_ARGS__;
             } else {
-              typ_id__UZLF=-1;
-              clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__RZLF);
-              if ((typ_id__UZLF == (__INTEGER)(-  1))) {
-                a__DIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__EIEH=(__UINTEGER_32)((__UINTEGER_32)(sz__RZLF + a__DIEH) & (__UINTEGER_32)(~ a__DIEH));
-                ptr_table__KMHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EIEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__JMHH=((__POINTER )(NULL));
-                result__LMHH=((__POINTER *)ptr_table__KMHH)[ 0];
-                if ((result__LMHH == (void *)NULL)) {
-                  result__LMHH=new_lab__MRJ(new_size__EIEH);
-                  next__JMHH=(void *)((unsigned long)result__LMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIEH)));
-                  ((__POINTER *)next__JMHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__KMHH)[ 0]=next__JMHH;
+              typ_id__I5LF=-1;
+              clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__F5LF);
+              if ((typ_id__I5LF == (__INTEGER)(-  1))) {
+                a__4QEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__5QEH=(__UINTEGER_32)((__UINTEGER_32)(sz__F5LF + a__4QEH) & (__UINTEGER_32)(~ a__4QEH));
+                ptr_table__TUHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5QEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                next__SUHH=((__POINTER )(NULL));
+                result__UUHH=((__POINTER *)ptr_table__TUHH)[ 0];
+                if ((result__UUHH == (void *)NULL)) {
+                  result__UUHH=new_lab__MRJ(new_size__5QEH);
+                  next__SUHH=(void *)((unsigned long)result__UUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QEH)));
+                  ((__POINTER *)next__SUHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__TUHH)[ 0]=next__SUHH;
                 } else {
-                  next__JMHH=((__POINTER *)result__LMHH)[ 0];
-                  if ((next__JMHH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EIEH <<  1)) <=  4096)) {
-                      next__JMHH=(void *)((unsigned long)result__LMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EIEH)));
+                  next__SUHH=((__POINTER *)result__UUHH)[ 0];
+                  if ((next__SUHH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5QEH <<  1)) <=  4096)) {
+                      next__SUHH=(void *)((unsigned long)result__UUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QEH)));
                     } else {
-                      next__JMHH=new_lab__MRJ(new_size__EIEH);
+                      next__SUHH=new_lab__MRJ(new_size__5QEH);
                     };
-                    ((__POINTER *)next__JMHH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__KMHH)[ 0]=next__JMHH;
+                    ((__POINTER *)next__SUHH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__TUHH)[ 0]=next__SUHH;
                   } else {
-                    ((__POINTER *)result__LMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JMHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__LMHH=next__JMHH;
+                    ((__POINTER *)result__UUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__UUHH=next__SUHH;
                   };
                 };
-                ptr__PZLF=result__LMHH;
+                ptr__D5LF=result__UUHH;
               } else {
-                t__IIEH=((__UINTEGER_32 )typ_id__UZLF);
-                a__HIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__SMHH=(__UINTEGER_32)((__UINTEGER_32)(sz__RZLF + a__HIEH) & (__UINTEGER_32)(~ a__HIEH));
-                ptr_table__PMHH=((__POINTER )(&(table_type[(t__IIEH)])));
-                lab_type__RMHH=(__UINTEGER_32)(t__IIEH |  1);
-                next__OMHH=((__POINTER )(NULL));
-                result__QMHH=((__POINTER *)ptr_table__PMHH)[ 0];
-                if ((result__QMHH == (void *)NULL)) {
-                  result__QMHH=new_lab__MRJ(lab_type__RMHH);
-                  next__OMHH=(void *)((unsigned long)result__QMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SMHH)));
-                  ((__POINTER *)next__OMHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__PMHH)[ 0]=next__OMHH;
+                t__DREH=((__UINTEGER_32 )typ_id__I5LF);
+                a__CREH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__1UHH=(__UINTEGER_32)((__UINTEGER_32)(sz__F5LF + a__CREH) & (__UINTEGER_32)(~ a__CREH));
+                ptr_table__YUHH=((__POINTER )(&(table_type[(t__DREH)])));
+                lab_type__0UHH=(__UINTEGER_32)(t__DREH |  1);
+                next__XUHH=((__POINTER )(NULL));
+                result__ZUHH=((__POINTER *)ptr_table__YUHH)[ 0];
+                if ((result__ZUHH == (void *)NULL)) {
+                  result__ZUHH=new_lab__MRJ(lab_type__0UHH);
+                  next__XUHH=(void *)((unsigned long)result__ZUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UHH)));
+                  ((__POINTER *)next__XUHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__YUHH)[ 0]=next__XUHH;
                 } else {
-                  next__OMHH=((__POINTER *)result__QMHH)[ 0];
-                  if ((next__OMHH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QMHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SMHH <<  1)) <=  4096)) {
-                      next__OMHH=(void *)((unsigned long)result__QMHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SMHH)));
+                  next__XUHH=((__POINTER *)result__ZUHH)[ 0];
+                  if ((next__XUHH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1UHH <<  1)) <=  4096)) {
+                      next__XUHH=(void *)((unsigned long)result__ZUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UHH)));
                     } else {
-                      next__OMHH=new_lab__MRJ(lab_type__RMHH);
+                      next__XUHH=new_lab__MRJ(lab_type__0UHH);
                     };
-                    ((__POINTER *)next__OMHH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__PMHH)[ 0]=next__OMHH;
+                    ((__POINTER *)next__XUHH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__YUHH)[ 0]=next__XUHH;
                   } else {
-                    ((__POINTER *)result__QMHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OMHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__QMHH=next__OMHH;
+                    ((__POINTER *)result__ZUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__ZUHH=next__XUHH;
                   };
                 };
-                ptr__PZLF=result__QMHH;
+                ptr__D5LF=result__ZUHH;
               };
-              result__OZLF=((__ITM_ARGS *)ptr__PZLF);
-              *(result__OZLF) = *(ITM_ARGS__);
+              result__C5LF=((__ITM_ARGS *)ptr__D5LF);
+              *(result__C5LF) = *(ITM_ARGS__);
             };
-            Self__J1OF=((__ITM_ARGS *)result__OZLF);
-            Self__J1OF->parent_itm_argument__B5EE.parent_itm_code__S4M.position__NDJ=p__RILF;
-            Self__J1OF->name__N1OF=result__PHLF;
-            Self__J1OF->type__O1OF=tm__0YEE;
-            result__5YEE=result__OZLF;
+            Self__HBPF=((__ITM_ARGS *)result__C5LF);
+            Self__HBPF->parent_itm_argument__DDFE.parent_itm_code__S4M.position__NDJ=p__BOLF;
+            Self__HBPF->name__LBPF=result__5MLF;
+            Self__HBPF->type__MBPF=tm__22EE;
+            result__B3EE=result__C5LF;
           };
           if (is_shorter__5Y) {
-            __tmp__O5EE=((__FAST_ARRAYoSTRING_CONSTANTo *)name__2YEE)->parent_arrayed_collection__H5I.upper__15OD;
-            Self__0ILF= 0;
-            while ((Self__0ILF <= __tmp__O5EE)) {
-              add__CMHB(short_local__JCC,((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)name__2YEE)->parent_arrayed_collection__H5I.storage__RCPD)[Self__0ILF]);
-              Self__0ILF=(__INTEGER)(Self__0ILF +  1);
+            __tmp__QDFE=((__FAST_ARRAYoSTRING_CONSTANTo *)name__42EE)->parent_arrayed_collection__H5I.upper__15OD;
+            Self__KOLF= 0;
+            while ((Self__KOLF <= __tmp__QDFE)) {
+              add__CMHB(short_local__JCC,((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)name__42EE)->parent_arrayed_collection__H5I.storage__RCPD)[Self__KOLF]);
+              Self__KOLF=(__INTEGER)(Self__KOLF +  1);
             };
           };
         };
       };
-      result__NEHB=result__5YEE;
-      if (((void *)result__5YEE == (void *)NULL)) {
+      result__NEHB=result__B3EE;
+      if (((void *)result__B3EE == (void *)NULL)) {
         if ((! mute__KEHB)) {
-          pos__2BWG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_280));
-          put_position__UOG(pos__2BWG);
+          pos__KLWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_283));
+          put_position__UOG(pos__KLWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
       } else {
-        result__TMHH=FALSE__;
+        result__2UHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__TMHH=FALSE__;
+          result__2UHH=FALSE__;
         } else {
-          result__UMHH='\0';
+          result__3UHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__UMHH=((__CHARACTER )(( 0)));
+            result__3UHH=((__CHARACTER )(( 0)));
           } else {
-            result__UMHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__3UHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__UMHH == ')')) {
+          if ((result__3UHH == ')')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__TMHH=TRUE__;
+            result__2UHH=TRUE__;
           };
         };
-        if ((! result__TMHH)) {
-          pos__4BWG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_258));
-          put_position__UOG(pos__4BWG);
+        if ((! result__2UHH)) {
+          pos__MLWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_261));
+          put_position__UOG(pos__MLWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -21178,32 +21436,32 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
   void *associativity__LU5B,*name__JU5B,*pretty_name__KU5B;
   __INTEGER priority__MU5B,typ_id__2LAC;
   void *arg__NU5B;
-  __POSITION pos__ACWG,pos__CCWG,pos__ECWG,pos__JCWG,pos__LCWG;
-  __POSITION pos__NCWG,__tmp__HZ5B;
+  __POSITION pos__OLWG,pos__QLWG,pos__SLWG,pos__XLWG,pos__ZLWG;
+  __POSITION pos__1LWG,__tmp__HZ5B;
   void *__tmp__IZ5B;
   __ITM_SLOT_OPERATOR *result__WLAC,*Self__A2HC,*Self__B0HC;
-  __POINTER ptr__XLAC,ptr_table__4MHH,next__3MHH,result__5MHH;
-  __POINTER ptr_table__DNHH,next__CNHH,result__ENHH;
-  __UINTEGER_32 sz__ZLAC,a__RIEH,new_size__SIEH,t__WIEH,a__VIEH;
-  __UINTEGER_32 new_size__GNHH,lab_type__FNHH;
-  __BOOLEAN result__WMHH,result__0MHH,__tmp__MW5B,result__2MHH;
-  __CHARACTER result__XMHH;
+  __POINTER ptr__XLAC,ptr_table__HVHH,next__GVHH,result__IVHH;
+  __POINTER ptr_table__MVHH,next__LVHH,result__NVHH;
+  __UINTEGER_32 sz__ZLAC,a__MREH,new_size__NREH,t__RREH,a__QREH;
+  __UINTEGER_32 new_size__PVHH,lab_type__OVHH;
+  __BOOLEAN result__5UHH,result__DVHH,__tmp__MW5B,result__FVHH;
+  __CHARACTER result__AVHH;
   associativity__LU5B=NULL;
   priority__MU5B= 0;
   arg__NU5B=NULL;
   if ((! read_operator__HNM())) {
-    pos__ACWG=current_position__JXF();
-    put_error__text__KNG( 0,(&__string_281));
-    put_position__UOG(pos__ACWG);
+    pos__OLWG=current_position__JXF();
+    put_error__text__KNG( 0,(&__string_284));
+    put_position__UOG(pos__OLWG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
   };
   if ((((void *)last_string__I0C == (void *)(&__string_16)) || ((void *)last_string__I0C == (void *)(&__string_17)))) {
-    pos__CCWG=current_position__JXF();
-    put_error__text__KNG( 0,(&__string_282));
-    put_position__UOG(pos__CCWG);
+    pos__QLWG=current_position__JXF();
+    put_error__text__KNG( 0,(&__string_285));
+    put_position__UOG(pos__QLWG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -21211,33 +21469,33 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
   };
   name__JU5B=last_string__I0C;
   pretty_name__KU5B=name__JU5B;
-  result__WMHH=FALSE__;
+  result__5UHH=FALSE__;
   if ((! read_space__3RD())) {
-    result__WMHH=FALSE__;
+    result__5UHH=FALSE__;
   } else {
-    result__XMHH='\0';
+    result__AVHH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__XMHH=((__CHARACTER )(( 0)));
+      result__AVHH=((__CHARACTER )(( 0)));
     } else {
-      result__XMHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__AVHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__XMHH == '\'')) {
+    if ((result__AVHH == '\'')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__WMHH=TRUE__;
+      result__5UHH=TRUE__;
     };
   };
-  if ((! result__WMHH)) {
-    pos__ECWG=current_position__JXF();
-    put_error__text__KNG( 2,(&__string_283));
-    put_position__UOG(pos__ECWG);
+  if ((! result__5UHH)) {
+    pos__SLWG=current_position__JXF();
+    put_error__text__KNG( 2,(&__string_286));
+    put_position__UOG(pos__SLWG);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
   };
-  result__0MHH=read_word__QPF((&__string_6));
+  result__DVHH=read_word__QPF((&__string_6));
   if (is_shorter__5Y) {
-    if (result__0MHH) {
+    if (result__DVHH) {
       if (((void *)(&__string_6) == (void *)(&__string_4))) {
         short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
       } else {
@@ -21245,12 +21503,12 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
       };
     };
   };
-  if (result__0MHH) {
+  if (result__DVHH) {
     __tmp__MW5B=TRUE__;
   } else {
-    result__2MHH=read_word__QPF((&__string_5));
+    result__FVHH=read_word__QPF((&__string_5));
     if (is_shorter__5Y) {
-      if (result__2MHH) {
+      if (result__FVHH) {
         if (((void *)(&__string_5) == (void *)(&__string_4))) {
           short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         } else {
@@ -21258,7 +21516,7 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
         };
       };
     };
-    __tmp__MW5B=result__2MHH;
+    __tmp__MW5B=result__FVHH;
   };
   if (__tmp__MW5B) {
     associativity__LU5B=last_string__I0C;
@@ -21269,9 +21527,9 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
   if ((((__FAST_ARRAYoITM_ARGUMENTo *)list_arg__HU5B)->parent_arrayed_collection__FCZB.upper__45GC <  0)) {
     arg__NU5B=read_loc_arg__with_self__IEHB(PARSER__,FALSE__,TRUE__);
     if (((void *)arg__NU5B == (void *)NULL)) {
-      pos__JCWG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_284));
-      put_position__UOG(pos__JCWG);
+      pos__XLWG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_287));
+      put_position__UOG(pos__XLWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -21280,9 +21538,9 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
     add_last__05GC(list_arg__HU5B,arg__NU5B);
     name__JU5B=operator__name__3DO((&__string_83),name__JU5B);
     if (((void *)associativity__LU5B != (void *)NULL)) {
-      pos__LCWG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_285));
-      put_position__UOG(pos__LCWG);
+      pos__ZLWG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_288));
+      put_position__UOG(pos__ZLWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -21299,9 +21557,9 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
     } else {
       name__JU5B=operator__name__3DO((&__string_82),name__JU5B);
       if (((void *)associativity__LU5B != (void *)NULL)) {
-        pos__NCWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_286));
-        put_position__UOG(pos__NCWG);
+        pos__1LWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_289));
+        put_position__UOG(pos__1LWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -21321,61 +21579,61 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
     typ_id__2LAC=-1;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ZLAC);
     if ((typ_id__2LAC == (__INTEGER)(-  1))) {
-      a__RIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__SIEH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZLAC + a__RIEH) & (__UINTEGER_32)(~ a__RIEH));
-      ptr_table__4MHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SIEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__3MHH=((__POINTER )(NULL));
-      result__5MHH=((__POINTER *)ptr_table__4MHH)[ 0];
-      if ((result__5MHH == (void *)NULL)) {
-        result__5MHH=new_lab__MRJ(new_size__SIEH);
-        next__3MHH=(void *)((unsigned long)result__5MHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIEH)));
-        ((__POINTER *)next__3MHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4MHH)[ 0]=next__3MHH;
+      a__MREH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__NREH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZLAC + a__MREH) & (__UINTEGER_32)(~ a__MREH));
+      ptr_table__HVHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NREH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__GVHH=((__POINTER )(NULL));
+      result__IVHH=((__POINTER *)ptr_table__HVHH)[ 0];
+      if ((result__IVHH == (void *)NULL)) {
+        result__IVHH=new_lab__MRJ(new_size__NREH);
+        next__GVHH=(void *)((unsigned long)result__IVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NREH)));
+        ((__POINTER *)next__GVHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__HVHH)[ 0]=next__GVHH;
       } else {
-        next__3MHH=((__POINTER *)result__5MHH)[ 0];
-        if ((next__3MHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5MHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SIEH <<  1)) <=  4096)) {
-            next__3MHH=(void *)((unsigned long)result__5MHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIEH)));
+        next__GVHH=((__POINTER *)result__IVHH)[ 0];
+        if ((next__GVHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IVHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NREH <<  1)) <=  4096)) {
+            next__GVHH=(void *)((unsigned long)result__IVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NREH)));
           } else {
-            next__3MHH=new_lab__MRJ(new_size__SIEH);
+            next__GVHH=new_lab__MRJ(new_size__NREH);
           };
-          ((__POINTER *)next__3MHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4MHH)[ 0]=next__3MHH;
+          ((__POINTER *)next__GVHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__HVHH)[ 0]=next__GVHH;
         } else {
-          ((__POINTER *)result__5MHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3MHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5MHH=next__3MHH;
+          ((__POINTER *)result__IVHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GVHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__IVHH=next__GVHH;
         };
       };
-      ptr__XLAC=result__5MHH;
+      ptr__XLAC=result__IVHH;
     } else {
-      t__WIEH=((__UINTEGER_32 )typ_id__2LAC);
-      a__VIEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__GNHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZLAC + a__VIEH) & (__UINTEGER_32)(~ a__VIEH));
-      ptr_table__DNHH=((__POINTER )(&(table_type[(t__WIEH)])));
-      lab_type__FNHH=(__UINTEGER_32)(t__WIEH |  1);
-      next__CNHH=((__POINTER )(NULL));
-      result__ENHH=((__POINTER *)ptr_table__DNHH)[ 0];
-      if ((result__ENHH == (void *)NULL)) {
-        result__ENHH=new_lab__MRJ(lab_type__FNHH);
-        next__CNHH=(void *)((unsigned long)result__ENHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GNHH)));
-        ((__POINTER *)next__CNHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DNHH)[ 0]=next__CNHH;
+      t__RREH=((__UINTEGER_32 )typ_id__2LAC);
+      a__QREH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__PVHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZLAC + a__QREH) & (__UINTEGER_32)(~ a__QREH));
+      ptr_table__MVHH=((__POINTER )(&(table_type[(t__RREH)])));
+      lab_type__OVHH=(__UINTEGER_32)(t__RREH |  1);
+      next__LVHH=((__POINTER )(NULL));
+      result__NVHH=((__POINTER *)ptr_table__MVHH)[ 0];
+      if ((result__NVHH == (void *)NULL)) {
+        result__NVHH=new_lab__MRJ(lab_type__OVHH);
+        next__LVHH=(void *)((unsigned long)result__NVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PVHH)));
+        ((__POINTER *)next__LVHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__MVHH)[ 0]=next__LVHH;
       } else {
-        next__CNHH=((__POINTER *)result__ENHH)[ 0];
-        if ((next__CNHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ENHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GNHH <<  1)) <=  4096)) {
-            next__CNHH=(void *)((unsigned long)result__ENHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GNHH)));
+        next__LVHH=((__POINTER *)result__NVHH)[ 0];
+        if ((next__LVHH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NVHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PVHH <<  1)) <=  4096)) {
+            next__LVHH=(void *)((unsigned long)result__NVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PVHH)));
           } else {
-            next__CNHH=new_lab__MRJ(lab_type__FNHH);
+            next__LVHH=new_lab__MRJ(lab_type__OVHH);
           };
-          ((__POINTER *)next__CNHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DNHH)[ 0]=next__CNHH;
+          ((__POINTER *)next__LVHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__MVHH)[ 0]=next__LVHH;
         } else {
-          ((__POINTER *)result__ENHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CNHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ENHH=next__CNHH;
+          ((__POINTER *)result__NVHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LVHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__NVHH=next__LVHH;
         };
       };
-      ptr__XLAC=result__ENHH;
+      ptr__XLAC=result__NVHH;
     };
     result__WLAC=((__ITM_SLOT_OPERATOR *)ptr__XLAC);
     *(result__WLAC) = *(ITM_SLOT_OPERATOR__);
@@ -21397,7 +21655,7 @@ static void* read_slot_operator__FU5B(void *list_arg__HU5B)
 static void add_last__05GC(__FAST_ARRAYoITM_ARGUMENTo *Self__15GC,void *element__25GC)
 // ({FAST_ARRAYoITM_ARGUMENTo},{NULLxITM_ARGxITM_ARGS}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__35GC,__tmp__GBHC,__tmp__OHTD,Self__ZNXE;
+  __INTEGER new_capacity__35GC,__tmp__GBHC,__tmp__OHTD,Self__RSXE;
   __BOOLEAN __tmp__NAHC;
   void **__tmp__FBHC,**new__0GTD;
   new_capacity__35GC= 0;
@@ -21418,10 +21676,10 @@ static void add_last__05GC(__FAST_ARRAYoITM_ARGUMENTo *Self__15GC,void *element_
       __tmp__GBHC=Self__15GC->parent_arrayed_collection__FCZB.capacity__AAHC;
       new__0GTD=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__FBHC)),((__UINTEGER_32 )(__INTEGER)(__tmp__GBHC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__35GC * ((__INTEGER )(sizeof(void *)))))));
       __tmp__OHTD=(__INTEGER)(new_capacity__35GC -  1);
-      Self__ZNXE=__tmp__GBHC;
-      while ((Self__ZNXE <= __tmp__OHTD)) {
-        new__0GTD[Self__ZNXE]=NULL;
-        Self__ZNXE=(__INTEGER)(Self__ZNXE +  1);
+      Self__RSXE=__tmp__GBHC;
+      while ((Self__RSXE <= __tmp__OHTD)) {
+        new__0GTD[Self__RSXE]=NULL;
+        Self__RSXE=(__INTEGER)(Self__RSXE +  1);
       };
       Self__15GC->parent_arrayed_collection__FCZB.storage__2AHC=new__0GTD;
       Self__15GC->parent_arrayed_collection__FCZB.capacity__AAHC=new_capacity__35GC;
@@ -21437,15 +21695,15 @@ static void* read_slot_keyword__SZ5B(void *list_arg__UZ5B)
   void *n__WZ5B,*result__AOP;
   void *arg__XZ5B;
   void *result__YZ5B;
-  __POSITION pos__JEWG,pos__LEWG,p__RNHH;
+  __POSITION pos__XNWG,pos__ZNWG,p__0VHH;
   void *result__QQP;
-  void *sec__SNHH;
-  __ITM_SLOT *result__HNHH,*Self__PNHH;
-  __POINTER ptr__INHH,ptr_table__UNHH,next__TNHH,result__VNHH;
-  __POINTER ptr_table__ZNHH,next__YNHH,result__0NHH;
-  __INTEGER typ_id__JNHH;
-  __UINTEGER_32 sz__KNHH,a__LNHH,new_size__MNHH,t__NNHH,a__ONHH;
-  __UINTEGER_32 new_size__2NHH,lab_type__1NHH;
+  void *sec__1VHH;
+  __ITM_SLOT *result__QVHH,*Self__YVHH;
+  __POINTER ptr__RVHH,ptr_table__3VHH,next__2VHH,result__4VHH;
+  __POINTER ptr_table__CWHH,next__BWHH,result__DWHH;
+  __INTEGER typ_id__SVHH;
+  __UINTEGER_32 sz__TVHH,a__UVHH,new_size__VVHH,t__WVHH,a__XVHH;
+  __UINTEGER_32 new_size__FWHH,lab_type__EWHH;
   __FAST_ARRAYoSTRINGo *Self__C3AB,*Self__Y3AB;
   n__WZ5B=NULL;
   arg__XZ5B=NULL;
@@ -21468,9 +21726,9 @@ static void* read_slot_keyword__SZ5B(void *list_arg__UZ5B)
       add_last__05GC(list_arg__UZ5B,arg__XZ5B);
       if (read_identifier__LAL()) {
         if (((void *)((__SECTION_ *)last_section__X0C)->name__CZDC == (void *)(&__string_30))) {
-          pos__JEWG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_287));
-          put_position__UOG(pos__JEWG);
+          pos__XNWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_290));
+          put_position__UOG(pos__XNWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -21482,9 +21740,9 @@ static void* read_slot_keyword__SZ5B(void *list_arg__UZ5B)
           append__BOS(n__WZ5B,last_string__I0C);
           arg__XZ5B=read_loc_arg__with_self__IEHB(PARSER__,FALSE__,FALSE__);
           if (((void *)arg__XZ5B == (void *)NULL)) {
-            pos__LEWG=current_position__JXF();
+            pos__ZNWG=current_position__JXF();
             put_error__text__KNG( 0,(&__string_164));
-            put_position__UOG(pos__LEWG);
+            put_position__UOG(pos__ZNWG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -21497,82 +21755,82 @@ static void* read_slot_keyword__SZ5B(void *list_arg__UZ5B)
     result__QQP=get__IWB(result__AOP);
     add_last__ASV(free__BOP,result__AOP);
     ((__STRING *)result__AOP)->count__WFC= 0;
-    p__RNHH=current_position__JXF();
-    sec__SNHH=last_section__X0C;
-    result__HNHH=NULL;
-    ptr__INHH=((__POINTER )(NULL));
-    typ_id__JNHH= 0;
-    sz__KNHH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
-    if ((sz__KNHH ==  0)) {
-      result__HNHH=ITM_SLOT__;
-    } else {
-      typ_id__JNHH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__KNHH);
-      if ((typ_id__JNHH == (__INTEGER)(-  1))) {
-        a__LNHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__MNHH=(__UINTEGER_32)((__UINTEGER_32)(sz__KNHH + a__LNHH) & (__UINTEGER_32)(~ a__LNHH));
-        ptr_table__UNHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MNHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__TNHH=((__POINTER )(NULL));
-        result__VNHH=((__POINTER *)ptr_table__UNHH)[ 0];
-        if ((result__VNHH == (void *)NULL)) {
-          result__VNHH=new_lab__MRJ(new_size__MNHH);
-          next__TNHH=(void *)((unsigned long)result__VNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MNHH)));
-          ((__POINTER *)next__TNHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UNHH)[ 0]=next__TNHH;
-        } else {
-          next__TNHH=((__POINTER *)result__VNHH)[ 0];
-          if ((next__TNHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VNHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MNHH <<  1)) <=  4096)) {
-              next__TNHH=(void *)((unsigned long)result__VNHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MNHH)));
+    p__0VHH=current_position__JXF();
+    sec__1VHH=last_section__X0C;
+    result__QVHH=NULL;
+    ptr__RVHH=((__POINTER )(NULL));
+    typ_id__SVHH= 0;
+    sz__TVHH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
+    if ((sz__TVHH ==  0)) {
+      result__QVHH=ITM_SLOT__;
+    } else {
+      typ_id__SVHH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__TVHH);
+      if ((typ_id__SVHH == (__INTEGER)(-  1))) {
+        a__UVHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__VVHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVHH + a__UVHH) & (__UINTEGER_32)(~ a__UVHH));
+        ptr_table__3VHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VVHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__2VHH=((__POINTER )(NULL));
+        result__4VHH=((__POINTER *)ptr_table__3VHH)[ 0];
+        if ((result__4VHH == (void *)NULL)) {
+          result__4VHH=new_lab__MRJ(new_size__VVHH);
+          next__2VHH=(void *)((unsigned long)result__4VHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VVHH)));
+          ((__POINTER *)next__2VHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__3VHH)[ 0]=next__2VHH;
+        } else {
+          next__2VHH=((__POINTER *)result__4VHH)[ 0];
+          if ((next__2VHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VVHH <<  1)) <=  4096)) {
+              next__2VHH=(void *)((unsigned long)result__4VHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VVHH)));
             } else {
-              next__TNHH=new_lab__MRJ(new_size__MNHH);
-            };
-            ((__POINTER *)next__TNHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UNHH)[ 0]=next__TNHH;
-          } else {
-            ((__POINTER *)result__VNHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TNHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__VNHH=next__TNHH;
-          };
-        };
-        ptr__INHH=result__VNHH;
-      } else {
-        t__NNHH=((__UINTEGER_32 )typ_id__JNHH);
-        a__ONHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__2NHH=(__UINTEGER_32)((__UINTEGER_32)(sz__KNHH + a__ONHH) & (__UINTEGER_32)(~ a__ONHH));
-        ptr_table__ZNHH=((__POINTER )(&(table_type[(t__NNHH)])));
-        lab_type__1NHH=(__UINTEGER_32)(t__NNHH |  1);
-        next__YNHH=((__POINTER )(NULL));
-        result__0NHH=((__POINTER *)ptr_table__ZNHH)[ 0];
-        if ((result__0NHH == (void *)NULL)) {
-          result__0NHH=new_lab__MRJ(lab_type__1NHH);
-          next__YNHH=(void *)((unsigned long)result__0NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NHH)));
-          ((__POINTER *)next__YNHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZNHH)[ 0]=next__YNHH;
-        } else {
-          next__YNHH=((__POINTER *)result__0NHH)[ 0];
-          if ((next__YNHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0NHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2NHH <<  1)) <=  4096)) {
-              next__YNHH=(void *)((unsigned long)result__0NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NHH)));
+              next__2VHH=new_lab__MRJ(new_size__VVHH);
+            };
+            ((__POINTER *)next__2VHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__3VHH)[ 0]=next__2VHH;
+          } else {
+            ((__POINTER *)result__4VHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__4VHH=next__2VHH;
+          };
+        };
+        ptr__RVHH=result__4VHH;
+      } else {
+        t__WVHH=((__UINTEGER_32 )typ_id__SVHH);
+        a__XVHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__FWHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVHH + a__XVHH) & (__UINTEGER_32)(~ a__XVHH));
+        ptr_table__CWHH=((__POINTER )(&(table_type[(t__WVHH)])));
+        lab_type__EWHH=(__UINTEGER_32)(t__WVHH |  1);
+        next__BWHH=((__POINTER )(NULL));
+        result__DWHH=((__POINTER *)ptr_table__CWHH)[ 0];
+        if ((result__DWHH == (void *)NULL)) {
+          result__DWHH=new_lab__MRJ(lab_type__EWHH);
+          next__BWHH=(void *)((unsigned long)result__DWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWHH)));
+          ((__POINTER *)next__BWHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__CWHH)[ 0]=next__BWHH;
+        } else {
+          next__BWHH=((__POINTER *)result__DWHH)[ 0];
+          if ((next__BWHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FWHH <<  1)) <=  4096)) {
+              next__BWHH=(void *)((unsigned long)result__DWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWHH)));
             } else {
-              next__YNHH=new_lab__MRJ(lab_type__1NHH);
+              next__BWHH=new_lab__MRJ(lab_type__EWHH);
             };
-            ((__POINTER *)next__YNHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ZNHH)[ 0]=next__YNHH;
+            ((__POINTER *)next__BWHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__CWHH)[ 0]=next__BWHH;
           } else {
-            ((__POINTER *)result__0NHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YNHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__0NHH=next__YNHH;
+            ((__POINTER *)result__DWHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__DWHH=next__BWHH;
           };
         };
-        ptr__INHH=result__0NHH;
+        ptr__RVHH=result__DWHH;
       };
-      result__HNHH=((__ITM_SLOT *)ptr__INHH);
-      *(result__HNHH) = *(ITM_SLOT__);
+      result__QVHH=((__ITM_SLOT *)ptr__RVHH);
+      *(result__QVHH) = *(ITM_SLOT__);
     };
-    Self__PNHH=((__ITM_SLOT *)result__HNHH);
-    Self__PNHH->parent_named__P5.name__LI=result__QQP;
-    Self__PNHH->parent_named__P5.parent_itm_object__4.position__NDJ=p__RNHH;
-    Self__PNHH->id_section__Y1C=sec__SNHH;
-    result__YZ5B=result__HNHH;
+    Self__YVHH=((__ITM_SLOT *)result__QVHH);
+    Self__YVHH->parent_named__P5.name__LI=result__QQP;
+    Self__YVHH->parent_named__P5.parent_itm_object__4.position__NDJ=p__0VHH;
+    Self__YVHH->id_section__Y1C=sec__1VHH;
+    result__YZ5B=result__QVHH;
   };
   return(result__YZ5B);
 }
@@ -21580,57 +21838,57 @@ static void* read_slot_keyword__SZ5B(void *list_arg__UZ5B)
 static void** create__WPBD(__INTEGER nb_elements__YPBD)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__UJCH,a__ZJCH,new_size__VJCH,new_size2__WJCH,a__BJEH;
-  __UINTEGER_32 new_size__CJEH;
-  __POINTER result__TJCH,ptr_table__4NHH,next__3NHH,result__5NHH;
-  void *result__COHH;
+  __UINTEGER_32 sz__ZSCH,a__4SCH,new_size__0SCH,new_size2__1SCH,a__2REH;
+  __UINTEGER_32 new_size__3REH;
+  __POINTER result__YSCH,ptr_table__HWHH,next__GWHH,result__IWHH;
+  void *result__LWHH;
   __INTEGER Self__RFXD;
   void **Result__SDGD;
-  sz__UJCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__YPBD * ((__INTEGER )(sizeof(void *)))));
-  result__TJCH=((__POINTER )(NULL));
-  a__ZJCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__VJCH=(__UINTEGER_32)((__UINTEGER_32)(sz__UJCH + a__ZJCH) & (__UINTEGER_32)(~ a__ZJCH));
-  new_size2__WJCH=(__UINTEGER_32)(new_size__VJCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__WJCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__BJEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__CJEH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WJCH + a__BJEH) & (__UINTEGER_32)(~ a__BJEH));
-    ptr_table__4NHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CJEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__3NHH=((__POINTER )(NULL));
-    result__5NHH=((__POINTER *)ptr_table__4NHH)[ 0];
-    if ((result__5NHH == (void *)NULL)) {
-      result__5NHH=new_lab__MRJ(new_size__CJEH);
-      next__3NHH=(void *)((unsigned long)result__5NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CJEH)));
-      ((__POINTER *)next__3NHH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__4NHH)[ 0]=next__3NHH;
-    } else {
-      next__3NHH=((__POINTER *)result__5NHH)[ 0];
-      if ((next__3NHH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5NHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CJEH <<  1)) <=  4096)) {
-          next__3NHH=(void *)((unsigned long)result__5NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CJEH)));
-        } else {
-          next__3NHH=new_lab__MRJ(new_size__CJEH);
-        };
-        ((__POINTER *)next__3NHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4NHH)[ 0]=next__3NHH;
-      } else {
-        ((__POINTER *)result__5NHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3NHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__5NHH=next__3NHH;
-      };
-    };
-    ((__POINTER *)result__5NHH)[ 0]=((__POINTER ) 3);
-    result__TJCH=(void *)((unsigned long)result__5NHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__ZSCH=((__UINTEGER_32 )(__INTEGER)(nb_elements__YPBD * ((__INTEGER )(sizeof(void *)))));
+  result__YSCH=((__POINTER )(NULL));
+  a__4SCH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__0SCH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSCH + a__4SCH) & (__UINTEGER_32)(~ a__4SCH));
+  new_size2__1SCH=(__UINTEGER_32)(new_size__0SCH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__1SCH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__2REH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__3REH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1SCH + a__2REH) & (__UINTEGER_32)(~ a__2REH));
+    ptr_table__HWHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3REH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__GWHH=((__POINTER )(NULL));
+    result__IWHH=((__POINTER *)ptr_table__HWHH)[ 0];
+    if ((result__IWHH == (void *)NULL)) {
+      result__IWHH=new_lab__MRJ(new_size__3REH);
+      next__GWHH=(void *)((unsigned long)result__IWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3REH)));
+      ((__POINTER *)next__GWHH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__HWHH)[ 0]=next__GWHH;
+    } else {
+      next__GWHH=((__POINTER *)result__IWHH)[ 0];
+      if ((next__GWHH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IWHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3REH <<  1)) <=  4096)) {
+          next__GWHH=(void *)((unsigned long)result__IWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3REH)));
+        } else {
+          next__GWHH=new_lab__MRJ(new_size__3REH);
+        };
+        ((__POINTER *)next__GWHH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__HWHH)[ 0]=next__GWHH;
+      } else {
+        ((__POINTER *)result__IWHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GWHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__IWHH=next__GWHH;
+      };
+    };
+    ((__POINTER *)result__IWHH)[ 0]=((__POINTER ) 3);
+    result__YSCH=(void *)((unsigned long)result__IWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__COHH=first_free__XDVB;
-    while ((((void *)result__COHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__COHH)->map_size_and_id__ITB &  4294967292LU) < new_size__VJCH))) {
-      result__COHH=((__MEMORY *)result__COHH)->map_next_free__JTB;
+    result__LWHH=first_free__XDVB;
+    while ((((void *)result__LWHH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__LWHH)->map_size_and_id__ITB &  4294967292LU) < new_size__0SCH))) {
+      result__LWHH=((__MEMORY *)result__LWHH)->map_next_free__JTB;
     };
-    if (((void *)result__COHH == (void *)NULL)) {
-      result__COHH=new_page__OA5();
+    if (((void *)result__LWHH == (void *)NULL)) {
+      result__LWHH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__COHH,new_size__VJCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__COHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__TJCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__COHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__LWHH,new_size__0SCH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__LWHH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__YSCH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__LWHH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__SDGD=((void **)result__TJCH);
+  Result__SDGD=((void **)result__YSCH);
   Self__RFXD=(__INTEGER)(nb_elements__YPBD -  1);
   while ((Self__RFXD >=  0)) {
     Result__SDGD[Self__RFXD]=NULL;
@@ -21645,9 +21903,9 @@ static void set_argument_list__VCHC(__ITM_SLOT *Self__WCHC,void *p__XCHC)
   void *__tmp__5CHC,*__tmp__RDHC,*__tmp__4DHC;
   __INTEGER __tmp__ADHC;
   __POSITION __tmp__SDHC,__tmp__5DHC;
-  __SECTION_ *Self__4C0G;
+  __SECTION_ *Self__UM0G;
   __BOOLEAN __tmp__EDHC;
-  __FAST_ARRAYoITM_ARGUMENTo *Self__HJEH,*Self__VWID;
+  __FAST_ARRAYoITM_ARGUMENTo *Self__CSEH,*Self__VWID;
   if (((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)p__XCHC)->parent_arrayed_collection__FCZB.upper__45GC +  1) >  1)) {
     __tmp__EDHC=TRUE__;
   } else {
@@ -21655,36 +21913,36 @@ static void set_argument_list__VCHC(__ITM_SLOT *Self__WCHC,void *p__XCHC)
     if (((struct ___OBJ *)__tmp__5CHC)->__id==__ITM_ARG__) {
       __tmp__ADHC= 1;
     } else {
-      __tmp__ADHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__5CHC)->name__N1OF)->parent_arrayed_collection__H5I.upper__15OD +  1);
+      __tmp__ADHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__5CHC)->name__LBPF)->parent_arrayed_collection__H5I.upper__15OD +  1);
     };
     __tmp__EDHC=(__tmp__ADHC >  1);
   };
   if (__tmp__EDHC) {
     if (((void *)((__SECTION_ *)Self__WCHC->id_section__Y1C)->name__CZDC == (void *)(&__string_25))) {
-      Self__HJEH=((__FAST_ARRAYoITM_ARGUMENTo *)p__XCHC);
-      __tmp__RDHC=((void **)Self__HJEH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__HJEH->parent_arrayed_collection__FCZB.upper__45GC];
+      Self__CSEH=((__FAST_ARRAYoITM_ARGUMENTo *)p__XCHC);
+      __tmp__RDHC=((void **)Self__CSEH->parent_arrayed_collection__FCZB.storage__2AHC)[Self__CSEH->parent_arrayed_collection__FCZB.upper__45GC];
       if (((struct ___OBJ *)__tmp__RDHC)->__id==__ITM_ARG__) {
         __tmp__SDHC=((__ITM_ARG *)__tmp__RDHC)->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ;
       } else {
-        __tmp__SDHC=((__ITM_ARGS *)__tmp__RDHC)->parent_itm_argument__B5EE.parent_itm_code__S4M.position__NDJ;
+        __tmp__SDHC=((__ITM_ARGS *)__tmp__RDHC)->parent_itm_argument__DDFE.parent_itm_code__S4M.position__NDJ;
       };
-      put_error__text__KNG( 1,(&__string_231));
+      put_error__text__KNG( 1,(&__string_234));
       put_position__UOG(__tmp__SDHC);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
-    Self__4C0G=((__SECTION_ *)Self__WCHC->id_section__Y1C);
-    if ((((void *)Self__4C0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__4C0G->name__CZDC == (void *)(&__string_24)))) {
+    Self__UM0G=((__SECTION_ *)Self__WCHC->id_section__Y1C);
+    if ((((void *)Self__UM0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__UM0G->name__CZDC == (void *)(&__string_24)))) {
       Self__VWID=((__FAST_ARRAYoITM_ARGUMENTo *)p__XCHC);
       __tmp__4DHC=((void **)Self__VWID->parent_arrayed_collection__FCZB.storage__2AHC)[Self__VWID->parent_arrayed_collection__FCZB.upper__45GC];
       if (((struct ___OBJ *)__tmp__4DHC)->__id==__ITM_ARG__) {
         __tmp__5DHC=((__ITM_ARG *)__tmp__4DHC)->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ;
       } else {
-        __tmp__5DHC=((__ITM_ARGS *)__tmp__4DHC)->parent_itm_argument__B5EE.parent_itm_code__S4M.position__NDJ;
+        __tmp__5DHC=((__ITM_ARGS *)__tmp__4DHC)->parent_itm_argument__DDFE.parent_itm_code__S4M.position__NDJ;
       };
-      put_error__text__KNG( 1,(&__string_232));
+      put_error__text__KNG( 1,(&__string_235));
       put_position__UOG(__tmp__5DHC);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
@@ -21702,10 +21960,10 @@ static __ITM_TYPE_MULTI* get__CJP(void *lt__EJP)
   __INTEGER idx__HJP,typ_id__32HB,new_capacity__VZAB,__tmp__Z0AB;
   __INTEGER __tmp__QNFC,Self__AYVD;
   void *__tmp__XKP;
-  __POINTER ptr__Y2HB,ptr_table__GOHH,next__FOHH,result__HOHH;
-  __POINTER ptr_table__LOHH,next__KOHH,result__MOHH;
-  __UINTEGER_32 sz__02HB,a__RJEH,new_size__SJEH,t__WJEH,a__VJEH;
-  __UINTEGER_32 new_size__OOHH,lab_type__NOHH;
+  __POINTER ptr__Y2HB,ptr_table__PWHH,next__OWHH,result__QWHH;
+  __POINTER ptr_table__UWHH,next__TWHH,result__VWHH;
+  __UINTEGER_32 sz__02HB,a__MSEH,new_size__NSEH,t__RSEH,a__QSEH;
+  __UINTEGER_32 new_size__XWHH,lab_type__WWHH;
   __FAST_ARRAYoITM_TYPE_MULTIo *Self__TZAB;
   __BOOLEAN __tmp__D0AB;
   void **__tmp__Y0AB,**new__2MFC;
@@ -21733,61 +21991,61 @@ static __ITM_TYPE_MULTI* get__CJP(void *lt__EJP)
       typ_id__32HB=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__02HB);
       if ((typ_id__32HB == (__INTEGER)(-  1))) {
-        a__RJEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__SJEH=(__UINTEGER_32)((__UINTEGER_32)(sz__02HB + a__RJEH) & (__UINTEGER_32)(~ a__RJEH));
-        ptr_table__GOHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SJEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__FOHH=((__POINTER )(NULL));
-        result__HOHH=((__POINTER *)ptr_table__GOHH)[ 0];
-        if ((result__HOHH == (void *)NULL)) {
-          result__HOHH=new_lab__MRJ(new_size__SJEH);
-          next__FOHH=(void *)((unsigned long)result__HOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJEH)));
-          ((__POINTER *)next__FOHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GOHH)[ 0]=next__FOHH;
-        } else {
-          next__FOHH=((__POINTER *)result__HOHH)[ 0];
-          if ((next__FOHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HOHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SJEH <<  1)) <=  4096)) {
-              next__FOHH=(void *)((unsigned long)result__HOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJEH)));
+        a__MSEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__NSEH=(__UINTEGER_32)((__UINTEGER_32)(sz__02HB + a__MSEH) & (__UINTEGER_32)(~ a__MSEH));
+        ptr_table__PWHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NSEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__OWHH=((__POINTER )(NULL));
+        result__QWHH=((__POINTER *)ptr_table__PWHH)[ 0];
+        if ((result__QWHH == (void *)NULL)) {
+          result__QWHH=new_lab__MRJ(new_size__NSEH);
+          next__OWHH=(void *)((unsigned long)result__QWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NSEH)));
+          ((__POINTER *)next__OWHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__PWHH)[ 0]=next__OWHH;
+        } else {
+          next__OWHH=((__POINTER *)result__QWHH)[ 0];
+          if ((next__OWHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QWHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NSEH <<  1)) <=  4096)) {
+              next__OWHH=(void *)((unsigned long)result__QWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NSEH)));
             } else {
-              next__FOHH=new_lab__MRJ(new_size__SJEH);
-            };
-            ((__POINTER *)next__FOHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GOHH)[ 0]=next__FOHH;
-          } else {
-            ((__POINTER *)result__HOHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__HOHH=next__FOHH;
-          };
-        };
-        ptr__Y2HB=result__HOHH;
-      } else {
-        t__WJEH=((__UINTEGER_32 )typ_id__32HB);
-        a__VJEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__OOHH=(__UINTEGER_32)((__UINTEGER_32)(sz__02HB + a__VJEH) & (__UINTEGER_32)(~ a__VJEH));
-        ptr_table__LOHH=((__POINTER )(&(table_type[(t__WJEH)])));
-        lab_type__NOHH=(__UINTEGER_32)(t__WJEH |  1);
-        next__KOHH=((__POINTER )(NULL));
-        result__MOHH=((__POINTER *)ptr_table__LOHH)[ 0];
-        if ((result__MOHH == (void *)NULL)) {
-          result__MOHH=new_lab__MRJ(lab_type__NOHH);
-          next__KOHH=(void *)((unsigned long)result__MOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOHH)));
-          ((__POINTER *)next__KOHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LOHH)[ 0]=next__KOHH;
-        } else {
-          next__KOHH=((__POINTER *)result__MOHH)[ 0];
-          if ((next__KOHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MOHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OOHH <<  1)) <=  4096)) {
-              next__KOHH=(void *)((unsigned long)result__MOHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOHH)));
+              next__OWHH=new_lab__MRJ(new_size__NSEH);
+            };
+            ((__POINTER *)next__OWHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__PWHH)[ 0]=next__OWHH;
+          } else {
+            ((__POINTER *)result__QWHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OWHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__QWHH=next__OWHH;
+          };
+        };
+        ptr__Y2HB=result__QWHH;
+      } else {
+        t__RSEH=((__UINTEGER_32 )typ_id__32HB);
+        a__QSEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__XWHH=(__UINTEGER_32)((__UINTEGER_32)(sz__02HB + a__QSEH) & (__UINTEGER_32)(~ a__QSEH));
+        ptr_table__UWHH=((__POINTER )(&(table_type[(t__RSEH)])));
+        lab_type__WWHH=(__UINTEGER_32)(t__RSEH |  1);
+        next__TWHH=((__POINTER )(NULL));
+        result__VWHH=((__POINTER *)ptr_table__UWHH)[ 0];
+        if ((result__VWHH == (void *)NULL)) {
+          result__VWHH=new_lab__MRJ(lab_type__WWHH);
+          next__TWHH=(void *)((unsigned long)result__VWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWHH)));
+          ((__POINTER *)next__TWHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__UWHH)[ 0]=next__TWHH;
+        } else {
+          next__TWHH=((__POINTER *)result__VWHH)[ 0];
+          if ((next__TWHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VWHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XWHH <<  1)) <=  4096)) {
+              next__TWHH=(void *)((unsigned long)result__VWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWHH)));
             } else {
-              next__KOHH=new_lab__MRJ(lab_type__NOHH);
+              next__TWHH=new_lab__MRJ(lab_type__WWHH);
             };
-            ((__POINTER *)next__KOHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__LOHH)[ 0]=next__KOHH;
+            ((__POINTER *)next__TWHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__UWHH)[ 0]=next__TWHH;
           } else {
-            ((__POINTER *)result__MOHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KOHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__MOHH=next__KOHH;
+            ((__POINTER *)result__VWHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TWHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__VWHH=next__TWHH;
           };
         };
-        ptr__Y2HB=result__MOHH;
+        ptr__Y2HB=result__VWHH;
       };
       result__X2HB=((__ITM_TYPE_MULTI *)ptr__Y2HB);
       *(result__X2HB) = *(ITM_TYPE_MULTI__);
@@ -21834,23 +22092,23 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
   void *style__HCM;
   void *result__ICM;
   void *typ_arg__KCM,*typ_res__LCM,*typ_arg__VLN,*typ_res__WLN;
-  __POSITION pos__0HWG,pos__2HWG,pos__4HWG,__tmp__OFM,pos__CIWG;
-  __POSITION pos__BKWG,pos__DKWG;
-  __ITM_TYPE_STYLE *Self__SKEH;
+  __POSITION pos__IRWG,pos__KRWG,pos__MRWG,__tmp__OFM,pos__QRWG;
+  __POSITION pos__PTWG,pos__RTWG;
+  __ITM_TYPE_STYLE *Self__NTEH;
   void *result__YLN;
   __INTEGER idx__ZLN,typ_id__L1GB,new_capacity__ZMAB,__tmp__3NAB;
   __INTEGER __tmp__CLFC,Self__BWVD;
   __ITM_TYPE_BLOCK *result__F1GB,*Self__BZCC;
-  __POINTER ptr__G1GB,ptr_table__CPHH,next__BPHH,result__DPHH;
-  __POINTER ptr_table__HPHH,next__GPHH,result__IPHH;
-  __UINTEGER_32 sz__I1GB,a__1KEH,new_size__2KEH,t__ALEH,a__5KEH;
-  __UINTEGER_32 new_size__KPHH,lab_type__JPHH;
+  __POINTER ptr__G1GB,ptr_table__LXHH,next__KXHH,result__MXHH;
+  __POINTER ptr_table__QXHH,next__PXHH,result__RXHH;
+  __UINTEGER_32 sz__I1GB,a__WTEH,new_size__XTEH,t__1TEH,a__0TEH;
+  __UINTEGER_32 new_size__TXHH,lab_type__SXHH;
   void *lst__JCM;
-  __BOOLEAN result__POHH,result__SOHH,result__VOHH,result__YOHH;
-  __BOOLEAN result__1OHH,result__4OHH,__tmp__HNAB,result__MPHH;
-  __BOOLEAN __tmp__NHM,result__OPHH;
-  __CHARACTER result__QOHH,result__TOHH,result__WOHH,result__ZOHH;
-  __CHARACTER result__2OHH,result__5OHH;
+  __BOOLEAN result__YWHH,result__1WHH,result__4WHH,result__BXHH;
+  __BOOLEAN result__EXHH,result__HXHH,__tmp__HNAB,result__VXHH;
+  __BOOLEAN __tmp__NHM,result__XXHH;
+  __CHARACTER result__ZWHH,result__2WHH,result__5WHH,result__CXHH;
+  __CHARACTER result__FXHH,result__IXHH;
   __FAST_ARRAYoITM_TYPE_BLOCKo *Self__XMAB;
   void **__tmp__2NAB,**new__OKFC;
   style__HCM=NULL;
@@ -21858,43 +22116,43 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
   lst__JCM=NULL;
   typ_arg__KCM=NULL;
   typ_res__LCM=NULL;
-  result__POHH=FALSE__;
+  result__YWHH=FALSE__;
   if ((! read_space__3RD())) {
-    result__POHH=FALSE__;
+    result__YWHH=FALSE__;
   } else {
-    result__QOHH='\0';
+    result__ZWHH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__QOHH=((__CHARACTER )(( 0)));
+      result__ZWHH=((__CHARACTER )(( 0)));
     } else {
-      result__QOHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__ZWHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__QOHH == '{')) {
+    if ((result__ZWHH == '{')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__POHH=TRUE__;
+      result__YWHH=TRUE__;
     };
   };
-  if (result__POHH) {
-    result__SOHH=FALSE__;
+  if (result__YWHH) {
+    result__1WHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__SOHH=FALSE__;
+      result__1WHH=FALSE__;
     } else {
-      result__TOHH='\0';
+      result__2WHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__TOHH=((__CHARACTER )(( 0)));
+        result__2WHH=((__CHARACTER )(( 0)));
       } else {
-        result__TOHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__2WHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__TOHH == '(')) {
+      if ((result__2WHH == '(')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__SOHH=TRUE__;
+        result__1WHH=TRUE__;
       };
     };
-    if (result__SOHH) {
+    if (result__1WHH) {
       lst__JCM=read_type_list__IMO(Self__ECM,FALSE__);
       if (((void *)lst__JCM == (void *)NULL)) {
-        pos__0HWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_261));
-        put_position__UOG(pos__0HWG);
+        pos__IRWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_264));
+        put_position__UOG(pos__IRWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -21905,49 +22163,49 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
       } else {
         typ_arg__KCM=get__CJP(lst__JCM);
       };
-      result__VOHH=FALSE__;
+      result__4WHH=FALSE__;
       if ((! read_space__3RD())) {
-        result__VOHH=FALSE__;
+        result__4WHH=FALSE__;
       } else {
-        result__WOHH='\0';
+        result__5WHH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__WOHH=((__CHARACTER )(( 0)));
+          result__5WHH=((__CHARACTER )(( 0)));
         } else {
-          result__WOHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__5WHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__WOHH == ')')) {
+        if ((result__5WHH == ')')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__VOHH=TRUE__;
+          result__4WHH=TRUE__;
         };
       };
-      if ((! result__VOHH)) {
-        pos__2HWG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_258));
-        put_position__UOG(pos__2HWG);
+      if ((! result__4WHH)) {
+        pos__KRWG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_261));
+        put_position__UOG(pos__KRWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
-      result__YOHH=FALSE__;
+      result__BXHH=FALSE__;
       if ((! read_space__3RD())) {
-        result__YOHH=FALSE__;
+        result__BXHH=FALSE__;
       } else {
-        result__ZOHH='\0';
+        result__CXHH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__ZOHH=((__CHARACTER )(( 0)));
+          result__CXHH=((__CHARACTER )(( 0)));
         } else {
-          result__ZOHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__CXHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__ZOHH == ';')) {
+        if ((result__CXHH == ';')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__YOHH=TRUE__;
+          result__BXHH=TRUE__;
         };
       };
-      if ((! result__YOHH)) {
-        pos__4HWG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_239));
-        put_position__UOG(pos__4HWG);
+      if ((! result__BXHH)) {
+        pos__MRWG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_242));
+        put_position__UOG(pos__MRWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -21957,27 +22215,27 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
     } else {
       lst__JCM=read_type_list__IMO(Self__ECM,FALSE__);
       if (((void *)lst__JCM != (void *)NULL)) {
-        result__1OHH=FALSE__;
+        result__EXHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__1OHH=FALSE__;
+          result__EXHH=FALSE__;
         } else {
-          result__2OHH='\0';
+          result__FXHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__2OHH=((__CHARACTER )(( 0)));
+            result__FXHH=((__CHARACTER )(( 0)));
           } else {
-            result__2OHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__FXHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__2OHH == ';')) {
+          if ((result__FXHH == ';')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__1OHH=TRUE__;
+            result__EXHH=TRUE__;
           };
         };
-        if (result__1OHH) {
+        if (result__EXHH) {
           if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__JCM)->parent_arrayed_collection__ZXC.upper__KIV +  1) ==  1)) {
             typ_arg__KCM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__JCM)->parent_arrayed_collection__ZXC.storage__RMV)[ 0];
           } else {
             typ_arg__KCM=get__CJP(lst__JCM);
-            copy__ZCS(string_tmp__VH,(&__string_288));
+            copy__ZCS(string_tmp__VH,(&__string_291));
             switch (((struct ___OBJ *)typ_arg__KCM)->__id) {
             case __ITM_TYPE_PARAMETER__: {
               append__BOS(string_tmp__VH,((__ITM_TYPE_PARAMETER *)typ_arg__KCM)->parent_itm_type__3DE.name__KYP);
@@ -21995,15 +22253,15 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
               append_in__SHPD(typ_arg__KCM,string_tmp__VH);
             } break;
             case __ITM_TYPE_STYLE__: {
-              Self__SKEH=((__ITM_TYPE_STYLE *)typ_arg__KCM);
-              if (((void *)Self__SKEH->style__TYP != (void *)NULL)) {
-                append__BOS(string_tmp__VH,Self__SKEH->style__TYP);
+              Self__NTEH=((__ITM_TYPE_STYLE *)typ_arg__KCM);
+              if (((void *)Self__NTEH->style__TYP != (void *)NULL)) {
+                append__BOS(string_tmp__VH,Self__NTEH->style__TYP);
                 add_last__ZLT(string_tmp__VH,' ');
               };
-              append__BOS(string_tmp__VH,Self__SKEH->parent_itm_type_simple__BSN.name__KYP);
+              append__BOS(string_tmp__VH,Self__NTEH->parent_itm_type_simple__BSN.name__KYP);
             } break;
             };
-            append__BOS(string_tmp__VH,(&__string_289));
+            append__BOS(string_tmp__VH,(&__string_292));
             __tmp__OFM=current_position__JXF();
             put_error__text__KNG( 2,string_tmp__VH);
             put_position__UOG(__tmp__OFM);
@@ -22023,25 +22281,25 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
         typ_res__LCM=get__CJP(lst__JCM);
       };
     };
-    result__4OHH=FALSE__;
+    result__HXHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__4OHH=FALSE__;
+      result__HXHH=FALSE__;
     } else {
-      result__5OHH='\0';
+      result__IXHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__5OHH=((__CHARACTER )(( 0)));
+        result__IXHH=((__CHARACTER )(( 0)));
       } else {
-        result__5OHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__IXHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__5OHH == '}')) {
+      if ((result__IXHH == '}')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__4OHH=TRUE__;
+        result__HXHH=TRUE__;
       };
     };
-    if ((! result__4OHH)) {
-      pos__CIWG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_290));
-      put_position__UOG(pos__CIWG);
+    if ((! result__HXHH)) {
+      pos__QRWG=current_position__JXF();
+      put_error__text__KNG( 2,(&__string_293));
+      put_position__UOG(pos__QRWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -22067,61 +22325,61 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
         typ_id__L1GB=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__I1GB);
         if ((typ_id__L1GB == (__INTEGER)(-  1))) {
-          a__1KEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__2KEH=(__UINTEGER_32)((__UINTEGER_32)(sz__I1GB + a__1KEH) & (__UINTEGER_32)(~ a__1KEH));
-          ptr_table__CPHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2KEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__BPHH=((__POINTER )(NULL));
-          result__DPHH=((__POINTER *)ptr_table__CPHH)[ 0];
-          if ((result__DPHH == (void *)NULL)) {
-            result__DPHH=new_lab__MRJ(new_size__2KEH);
-            next__BPHH=(void *)((unsigned long)result__DPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KEH)));
-            ((__POINTER *)next__BPHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CPHH)[ 0]=next__BPHH;
-          } else {
-            next__BPHH=((__POINTER *)result__DPHH)[ 0];
-            if ((next__BPHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DPHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2KEH <<  1)) <=  4096)) {
-                next__BPHH=(void *)((unsigned long)result__DPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KEH)));
+          a__WTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__XTEH=(__UINTEGER_32)((__UINTEGER_32)(sz__I1GB + a__WTEH) & (__UINTEGER_32)(~ a__WTEH));
+          ptr_table__LXHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XTEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__KXHH=((__POINTER )(NULL));
+          result__MXHH=((__POINTER *)ptr_table__LXHH)[ 0];
+          if ((result__MXHH == (void *)NULL)) {
+            result__MXHH=new_lab__MRJ(new_size__XTEH);
+            next__KXHH=(void *)((unsigned long)result__MXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XTEH)));
+            ((__POINTER *)next__KXHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__LXHH)[ 0]=next__KXHH;
+          } else {
+            next__KXHH=((__POINTER *)result__MXHH)[ 0];
+            if ((next__KXHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XTEH <<  1)) <=  4096)) {
+                next__KXHH=(void *)((unsigned long)result__MXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XTEH)));
               } else {
-                next__BPHH=new_lab__MRJ(new_size__2KEH);
+                next__KXHH=new_lab__MRJ(new_size__XTEH);
               };
-              ((__POINTER *)next__BPHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__CPHH)[ 0]=next__BPHH;
+              ((__POINTER *)next__KXHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__LXHH)[ 0]=next__KXHH;
             } else {
-              ((__POINTER *)result__DPHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BPHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__DPHH=next__BPHH;
-            };
-          };
-          ptr__G1GB=result__DPHH;
-        } else {
-          t__ALEH=((__UINTEGER_32 )typ_id__L1GB);
-          a__5KEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__KPHH=(__UINTEGER_32)((__UINTEGER_32)(sz__I1GB + a__5KEH) & (__UINTEGER_32)(~ a__5KEH));
-          ptr_table__HPHH=((__POINTER )(&(table_type[(t__ALEH)])));
-          lab_type__JPHH=(__UINTEGER_32)(t__ALEH |  1);
-          next__GPHH=((__POINTER )(NULL));
-          result__IPHH=((__POINTER *)ptr_table__HPHH)[ 0];
-          if ((result__IPHH == (void *)NULL)) {
-            result__IPHH=new_lab__MRJ(lab_type__JPHH);
-            next__GPHH=(void *)((unsigned long)result__IPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPHH)));
-            ((__POINTER *)next__GPHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__HPHH)[ 0]=next__GPHH;
-          } else {
-            next__GPHH=((__POINTER *)result__IPHH)[ 0];
-            if ((next__GPHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IPHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KPHH <<  1)) <=  4096)) {
-                next__GPHH=(void *)((unsigned long)result__IPHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPHH)));
+              ((__POINTER *)result__MXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__MXHH=next__KXHH;
+            };
+          };
+          ptr__G1GB=result__MXHH;
+        } else {
+          t__1TEH=((__UINTEGER_32 )typ_id__L1GB);
+          a__0TEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__TXHH=(__UINTEGER_32)((__UINTEGER_32)(sz__I1GB + a__0TEH) & (__UINTEGER_32)(~ a__0TEH));
+          ptr_table__QXHH=((__POINTER )(&(table_type[(t__1TEH)])));
+          lab_type__SXHH=(__UINTEGER_32)(t__1TEH |  1);
+          next__PXHH=((__POINTER )(NULL));
+          result__RXHH=((__POINTER *)ptr_table__QXHH)[ 0];
+          if ((result__RXHH == (void *)NULL)) {
+            result__RXHH=new_lab__MRJ(lab_type__SXHH);
+            next__PXHH=(void *)((unsigned long)result__RXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TXHH)));
+            ((__POINTER *)next__PXHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__QXHH)[ 0]=next__PXHH;
+          } else {
+            next__PXHH=((__POINTER *)result__RXHH)[ 0];
+            if ((next__PXHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TXHH <<  1)) <=  4096)) {
+                next__PXHH=(void *)((unsigned long)result__RXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TXHH)));
               } else {
-                next__GPHH=new_lab__MRJ(lab_type__JPHH);
+                next__PXHH=new_lab__MRJ(lab_type__SXHH);
               };
-              ((__POINTER *)next__GPHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__HPHH)[ 0]=next__GPHH;
+              ((__POINTER *)next__PXHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__QXHH)[ 0]=next__PXHH;
             } else {
-              ((__POINTER *)result__IPHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GPHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__IPHH=next__GPHH;
+              ((__POINTER *)result__RXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__RXHH=next__PXHH;
             };
           };
-          ptr__G1GB=result__IPHH;
+          ptr__G1GB=result__RXHH;
         };
         result__F1GB=((__ITM_TYPE_BLOCK *)ptr__G1GB);
         *(result__F1GB) = *(ITM_TYPE_BLOCK__);
@@ -22163,9 +22421,9 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
     };
     result__ICM=result__YLN;
   } else {
-    result__MPHH=read_word__QPF((&__string_9));
+    result__VXHH=read_word__QPF((&__string_9));
     if (is_shorter__5Y) {
-      if (result__MPHH) {
+      if (result__VXHH) {
         if (((void *)(&__string_9) == (void *)(&__string_4))) {
           short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         } else {
@@ -22173,12 +22431,12 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
         };
       };
     };
-    if (result__MPHH) {
+    if (result__VXHH) {
       __tmp__NHM=TRUE__;
     } else {
-      result__OPHH=read_word__QPF((&__string_10));
+      result__XXHH=read_word__QPF((&__string_10));
       if (is_shorter__5Y) {
-        if (result__OPHH) {
+        if (result__XXHH) {
           if (((void *)(&__string_10) == (void *)(&__string_4))) {
             short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
           } else {
@@ -22186,14 +22444,14 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
           };
         };
       };
-      __tmp__NHM=result__OPHH;
+      __tmp__NHM=result__XXHH;
     };
     if (__tmp__NHM) {
       style__HCM=last_string__I0C;
       if ((is_local__FCM && ((void *)last_string__I0C == (void *)(&__string_9)))) {
-        pos__BKWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_291));
-        put_position__UOG(pos__BKWG);
+        pos__PTWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_294));
+        put_position__UOG(pos__PTWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -22202,9 +22460,9 @@ static void* read_type__DCM(__PARSER *Self__ECM,__BOOLEAN is_local__FCM)
     };
     result__ICM=read_prototype__HON(Self__ECM,style__HCM);
     if (((void *)read_contract__HTF(Self__ECM) != (void *)NULL)) {
-      pos__DKWG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_256));
-      put_position__UOG(pos__DKWG);
+      pos__RTWG=current_position__JXF();
+      put_error__text__KNG( 2,(&__string_259));
+      put_position__UOG(pos__RTWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -22218,11 +22476,11 @@ static void set_result_type__Q3FC(__ITM_SLOT *Self__R3FC,void *t__S3FC)
 // ({ITM_SLOT},{NULLxITM_TYPE_PARAMETERxITM_TYPE_SIMPLExITM_TYPE_MULTIxITM_TYPE_BLOCKxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
 {
   void *tm__T3FC,*__tmp__23FC;
-  __SECTION_ *Self__ED0G;
+  __SECTION_ *Self__0M0G;
   __POSITION pos__DZID;
   tm__T3FC=NULL;
-  Self__ED0G=((__SECTION_ *)Self__R3FC->id_section__Y1C);
-  if ((((void *)Self__ED0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__ED0G->name__CZDC == (void *)(&__string_24)))) {
+  Self__0M0G=((__SECTION_ *)Self__R3FC->id_section__Y1C);
+  if ((((void *)Self__0M0G->name__CZDC == (void *)(&__string_23)) || ((void *)Self__0M0G->name__CZDC == (void *)(&__string_24)))) {
     if (t__S3FC==NULL) {
       __tmp__23FC=NULL;
     } else {
@@ -22250,7 +22508,7 @@ static void set_result_type__Q3FC(__ITM_SLOT *Self__R3FC,void *t__S3FC)
     tm__T3FC=__tmp__23FC;
     if (((((void *)__tmp__23FC == (void *)NULL) || ((void *)__tmp__23FC == (void *)type_self__HUN)) || ((void *)__tmp__23FC == (void *)type_void__4VF))) {
       pos__DZID=Self__R3FC->parent_named__P5.parent_itm_object__4.position__NDJ;
-      put_error__text__KNG( 1,(&__string_236));
+      put_error__text__KNG( 1,(&__string_239));
       put_position__UOG(pos__DZID);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
@@ -22266,130 +22524,130 @@ static void* read_contract__HTF(__PARSER *Self__ITF)
 {
   void *e__LTF;
   void *result__MTF;
-  __POSITION p__0PHH,p__HXL,pos__LKWG,pos__NKWG,p__3QHH;
-  __ITM_LIST *result__SPHH;
-  __POINTER ptr__TPHH,ptr_table__2PHH,next__1PHH,result__3PHH;
-  __POINTER ptr_table__BQHH,next__AQHH,result__CQHH,ptr__R3L;
-  __POINTER ptr_table__GQHH,next__FQHH,result__HQHH,ptr_table__LQHH;
-  __POINTER next__KQHH,result__MQHH,ptr__WQHH,ptr_table__5QHH;
-  __POINTER next__4QHH,result__ARHH,ptr_table__ERHH,next__DRHH;
-  __POINTER result__FRHH;
-  __INTEGER typ_id__UPHH,typ_id__W3L,typ_id__XQHH;
-  __UINTEGER_32 sz__VPHH,a__WPHH,new_size__XPHH,t__YPHH,a__ZPHH;
-  __UINTEGER_32 new_size__EQHH,lab_type__DQHH,sz__T3L,a__JLEH;
-  __UINTEGER_32 new_size__KLEH,t__OLEH,a__NLEH,new_size__OQHH;
-  __UINTEGER_32 lab_type__NQHH,sz__YQHH,a__ZQHH,new_size__0QHH,t__1QHH;
-  __UINTEGER_32 a__2QHH,new_size__HRHH,lab_type__GRHH;
+  __POSITION p__DYHH,p__HXL,pos__ZTWG,pos__1TWG,p__GZHH;
+  __ITM_LIST *result__1XHH;
+  __POINTER ptr__2XHH,ptr_table__FYHH,next__EYHH,result__GYHH;
+  __POINTER ptr_table__KYHH,next__JYHH,result__LYHH,ptr__R3L;
+  __POINTER ptr_table__PYHH,next__OYHH,result__QYHH,ptr_table__UYHH;
+  __POINTER next__TYHH,result__VYHH,ptr__5YHH,ptr_table__IZHH;
+  __POINTER next__HZHH,result__JZHH,ptr_table__NZHH,next__MZHH;
+  __POINTER result__OZHH;
+  __INTEGER typ_id__3XHH,typ_id__W3L,typ_id__AZHH;
+  __UINTEGER_32 sz__4XHH,a__5XHH,new_size__AYHH,t__BYHH,a__CYHH;
+  __UINTEGER_32 new_size__NYHH,lab_type__MYHH,sz__T3L,a__EUEH;
+  __UINTEGER_32 new_size__FUEH,t__JUEH,a__IUEH,new_size__XYHH;
+  __UINTEGER_32 lab_type__WYHH,sz__BZHH,a__CZHH,new_size__DZHH,t__EZHH;
+  __UINTEGER_32 a__FZHH,new_size__QZHH,lab_type__PZHH;
   __ITM_LDOTS *result__Q3L;
-  __ITM_PROTOTYPE *result__VQHH;
-  __BOOLEAN continue__KTF,result__PPHH,result__PQHH,result__SQHH;
-  void *lst__STF,*result__OGGH;
-  __CHARACTER result__QPHH,result__QQHH,result__TQHH;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__PGGH,*Self__QGGH;
+  __ITM_PROTOTYPE *result__4YHH;
+  __BOOLEAN continue__KTF,result__YXHH,result__YYHH,result__1YHH;
+  void *lst__STF,*result__1OGH;
+  __CHARACTER result__ZXHH,result__ZYHH,result__2YHH;
+  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__2OGH,*Self__3OGH;
   continue__KTF=FALSE__;
   e__LTF=NULL;
   result__MTF=NULL;
   lst__STF=NULL;
-  result__PPHH=FALSE__;
+  result__YXHH=FALSE__;
   if ((! read_space__3RD())) {
-    result__PPHH=FALSE__;
+    result__YXHH=FALSE__;
   } else {
-    result__QPHH='\0';
+    result__ZXHH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__QPHH=((__CHARACTER )(( 0)));
+      result__ZXHH=((__CHARACTER )(( 0)));
     } else {
-      result__QPHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__ZXHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__QPHH == '[')) {
+    if ((result__ZXHH == '[')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__PPHH=TRUE__;
-    };
-  };
-  if (result__PPHH) {
-    p__0PHH=current_position__JXF();
-    result__SPHH=NULL;
-    ptr__TPHH=((__POINTER )(NULL));
-    typ_id__UPHH= 0;
-    sz__VPHH=((__UINTEGER_32 )sizeof(__ITM_LIST));
-    if ((sz__VPHH ==  0)) {
-      result__SPHH=ITM_LIST__;
-    } else {
-      typ_id__UPHH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__VPHH);
-      if ((typ_id__UPHH == (__INTEGER)(-  1))) {
-        a__WPHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__XPHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VPHH + a__WPHH) & (__UINTEGER_32)(~ a__WPHH));
-        ptr_table__2PHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XPHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__1PHH=((__POINTER )(NULL));
-        result__3PHH=((__POINTER *)ptr_table__2PHH)[ 0];
-        if ((result__3PHH == (void *)NULL)) {
-          result__3PHH=new_lab__MRJ(new_size__XPHH);
-          next__1PHH=(void *)((unsigned long)result__3PHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XPHH)));
-          ((__POINTER *)next__1PHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2PHH)[ 0]=next__1PHH;
-        } else {
-          next__1PHH=((__POINTER *)result__3PHH)[ 0];
-          if ((next__1PHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3PHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XPHH <<  1)) <=  4096)) {
-              next__1PHH=(void *)((unsigned long)result__3PHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XPHH)));
+      result__YXHH=TRUE__;
+    };
+  };
+  if (result__YXHH) {
+    p__DYHH=current_position__JXF();
+    result__1XHH=NULL;
+    ptr__2XHH=((__POINTER )(NULL));
+    typ_id__3XHH= 0;
+    sz__4XHH=((__UINTEGER_32 )sizeof(__ITM_LIST));
+    if ((sz__4XHH ==  0)) {
+      result__1XHH=ITM_LIST__;
+    } else {
+      typ_id__3XHH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__4XHH);
+      if ((typ_id__3XHH == (__INTEGER)(-  1))) {
+        a__5XHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__AYHH=(__UINTEGER_32)((__UINTEGER_32)(sz__4XHH + a__5XHH) & (__UINTEGER_32)(~ a__5XHH));
+        ptr_table__FYHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AYHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__EYHH=((__POINTER )(NULL));
+        result__GYHH=((__POINTER *)ptr_table__FYHH)[ 0];
+        if ((result__GYHH == (void *)NULL)) {
+          result__GYHH=new_lab__MRJ(new_size__AYHH);
+          next__EYHH=(void *)((unsigned long)result__GYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AYHH)));
+          ((__POINTER *)next__EYHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__FYHH)[ 0]=next__EYHH;
+        } else {
+          next__EYHH=((__POINTER *)result__GYHH)[ 0];
+          if ((next__EYHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AYHH <<  1)) <=  4096)) {
+              next__EYHH=(void *)((unsigned long)result__GYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AYHH)));
             } else {
-              next__1PHH=new_lab__MRJ(new_size__XPHH);
-            };
-            ((__POINTER *)next__1PHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__2PHH)[ 0]=next__1PHH;
-          } else {
-            ((__POINTER *)result__3PHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1PHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__3PHH=next__1PHH;
-          };
-        };
-        ptr__TPHH=result__3PHH;
-      } else {
-        t__YPHH=((__UINTEGER_32 )typ_id__UPHH);
-        a__ZPHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__EQHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VPHH + a__ZPHH) & (__UINTEGER_32)(~ a__ZPHH));
-        ptr_table__BQHH=((__POINTER )(&(table_type[(t__YPHH)])));
-        lab_type__DQHH=(__UINTEGER_32)(t__YPHH |  1);
-        next__AQHH=((__POINTER )(NULL));
-        result__CQHH=((__POINTER *)ptr_table__BQHH)[ 0];
-        if ((result__CQHH == (void *)NULL)) {
-          result__CQHH=new_lab__MRJ(lab_type__DQHH);
-          next__AQHH=(void *)((unsigned long)result__CQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EQHH)));
-          ((__POINTER *)next__AQHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BQHH)[ 0]=next__AQHH;
-        } else {
-          next__AQHH=((__POINTER *)result__CQHH)[ 0];
-          if ((next__AQHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CQHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EQHH <<  1)) <=  4096)) {
-              next__AQHH=(void *)((unsigned long)result__CQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EQHH)));
+              next__EYHH=new_lab__MRJ(new_size__AYHH);
+            };
+            ((__POINTER *)next__EYHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__FYHH)[ 0]=next__EYHH;
+          } else {
+            ((__POINTER *)result__GYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__GYHH=next__EYHH;
+          };
+        };
+        ptr__2XHH=result__GYHH;
+      } else {
+        t__BYHH=((__UINTEGER_32 )typ_id__3XHH);
+        a__CYHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__NYHH=(__UINTEGER_32)((__UINTEGER_32)(sz__4XHH + a__CYHH) & (__UINTEGER_32)(~ a__CYHH));
+        ptr_table__KYHH=((__POINTER )(&(table_type[(t__BYHH)])));
+        lab_type__MYHH=(__UINTEGER_32)(t__BYHH |  1);
+        next__JYHH=((__POINTER )(NULL));
+        result__LYHH=((__POINTER *)ptr_table__KYHH)[ 0];
+        if ((result__LYHH == (void *)NULL)) {
+          result__LYHH=new_lab__MRJ(lab_type__MYHH);
+          next__JYHH=(void *)((unsigned long)result__LYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NYHH)));
+          ((__POINTER *)next__JYHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__KYHH)[ 0]=next__JYHH;
+        } else {
+          next__JYHH=((__POINTER *)result__LYHH)[ 0];
+          if ((next__JYHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NYHH <<  1)) <=  4096)) {
+              next__JYHH=(void *)((unsigned long)result__LYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NYHH)));
             } else {
-              next__AQHH=new_lab__MRJ(lab_type__DQHH);
+              next__JYHH=new_lab__MRJ(lab_type__MYHH);
             };
-            ((__POINTER *)next__AQHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BQHH)[ 0]=next__AQHH;
+            ((__POINTER *)next__JYHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__KYHH)[ 0]=next__JYHH;
           } else {
-            ((__POINTER *)result__CQHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__CQHH=next__AQHH;
+            ((__POINTER *)result__LYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__LYHH=next__JYHH;
           };
         };
-        ptr__TPHH=result__CQHH;
+        ptr__2XHH=result__LYHH;
       };
-      result__SPHH=((__ITM_LIST *)ptr__TPHH);
-      *(result__SPHH) = *(ITM_LIST__);
+      result__1XHH=((__ITM_LIST *)ptr__2XHH);
+      *(result__1XHH) = *(ITM_LIST__);
     };
-    ((__ITM_LIST *)result__SPHH)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ=p__0PHH;
-    last_group__1TF=result__SPHH;
-    result__MTF=result__SPHH;
+    ((__ITM_LIST *)result__1XHH)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ=p__DYHH;
+    last_group__1TF=result__1XHH;
+    result__MTF=result__1XHH;
     read_def_local__30H(Self__ITF);
-    result__OGGH=NULL;
+    result__1OGH=NULL;
     if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H)->parent_arrayed_collection__A4H.upper__IWT <  0)) {
-      result__OGGH=create_with_capacity__SVI( 16);
+      result__1OGH=create_with_capacity__SVI( 16);
     } else {
-      Self__PGGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
-      result__OGGH=((void **)Self__PGGH->parent_arrayed_collection__A4H.storage__WAU)[Self__PGGH->parent_arrayed_collection__A4H.upper__IWT];
-      Self__QGGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
-      Self__QGGH->parent_arrayed_collection__A4H.upper__IWT=(__INTEGER)(Self__QGGH->parent_arrayed_collection__A4H.upper__IWT -  1);
+      Self__2OGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
+      result__1OGH=((void **)Self__2OGH->parent_arrayed_collection__A4H.storage__WAU)[Self__2OGH->parent_arrayed_collection__A4H.upper__IWT];
+      Self__3OGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
+      Self__3OGH->parent_arrayed_collection__A4H.upper__IWT=(__INTEGER)(Self__3OGH->parent_arrayed_collection__A4H.upper__IWT -  1);
     };
-    lst__STF=result__OGGH;
+    lst__STF=result__1OGH;
     do {
       e__LTF=read_expr__44I(Self__ITF);
       if (((void *)e__LTF == (void *)NULL)) {
@@ -22406,61 +22664,61 @@ static void* read_contract__HTF(__PARSER *Self__ITF)
             typ_id__W3L=-1;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__T3L);
             if ((typ_id__W3L == (__INTEGER)(-  1))) {
-              a__JLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__KLEH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3L + a__JLEH) & (__UINTEGER_32)(~ a__JLEH));
-              ptr_table__GQHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KLEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__FQHH=((__POINTER )(NULL));
-              result__HQHH=((__POINTER *)ptr_table__GQHH)[ 0];
-              if ((result__HQHH == (void *)NULL)) {
-                result__HQHH=new_lab__MRJ(new_size__KLEH);
-                next__FQHH=(void *)((unsigned long)result__HQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KLEH)));
-                ((__POINTER *)next__FQHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GQHH)[ 0]=next__FQHH;
+              a__EUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__FUEH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3L + a__EUEH) & (__UINTEGER_32)(~ a__EUEH));
+              ptr_table__PYHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FUEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__OYHH=((__POINTER )(NULL));
+              result__QYHH=((__POINTER *)ptr_table__PYHH)[ 0];
+              if ((result__QYHH == (void *)NULL)) {
+                result__QYHH=new_lab__MRJ(new_size__FUEH);
+                next__OYHH=(void *)((unsigned long)result__QYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FUEH)));
+                ((__POINTER *)next__OYHH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__PYHH)[ 0]=next__OYHH;
               } else {
-                next__FQHH=((__POINTER *)result__HQHH)[ 0];
-                if ((next__FQHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HQHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KLEH <<  1)) <=  4096)) {
-                    next__FQHH=(void *)((unsigned long)result__HQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KLEH)));
+                next__OYHH=((__POINTER *)result__QYHH)[ 0];
+                if ((next__OYHH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FUEH <<  1)) <=  4096)) {
+                    next__OYHH=(void *)((unsigned long)result__QYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FUEH)));
                   } else {
-                    next__FQHH=new_lab__MRJ(new_size__KLEH);
+                    next__OYHH=new_lab__MRJ(new_size__FUEH);
                   };
-                  ((__POINTER *)next__FQHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__GQHH)[ 0]=next__FQHH;
+                  ((__POINTER *)next__OYHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__PYHH)[ 0]=next__OYHH;
                 } else {
-                  ((__POINTER *)result__HQHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__HQHH=next__FQHH;
+                  ((__POINTER *)result__QYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__QYHH=next__OYHH;
                 };
               };
-              ptr__R3L=result__HQHH;
+              ptr__R3L=result__QYHH;
             } else {
-              t__OLEH=((__UINTEGER_32 )typ_id__W3L);
-              a__NLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__OQHH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3L + a__NLEH) & (__UINTEGER_32)(~ a__NLEH));
-              ptr_table__LQHH=((__POINTER )(&(table_type[(t__OLEH)])));
-              lab_type__NQHH=(__UINTEGER_32)(t__OLEH |  1);
-              next__KQHH=((__POINTER )(NULL));
-              result__MQHH=((__POINTER *)ptr_table__LQHH)[ 0];
-              if ((result__MQHH == (void *)NULL)) {
-                result__MQHH=new_lab__MRJ(lab_type__NQHH);
-                next__KQHH=(void *)((unsigned long)result__MQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OQHH)));
-                ((__POINTER *)next__KQHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__LQHH)[ 0]=next__KQHH;
+              t__JUEH=((__UINTEGER_32 )typ_id__W3L);
+              a__IUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__XYHH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3L + a__IUEH) & (__UINTEGER_32)(~ a__IUEH));
+              ptr_table__UYHH=((__POINTER )(&(table_type[(t__JUEH)])));
+              lab_type__WYHH=(__UINTEGER_32)(t__JUEH |  1);
+              next__TYHH=((__POINTER )(NULL));
+              result__VYHH=((__POINTER *)ptr_table__UYHH)[ 0];
+              if ((result__VYHH == (void *)NULL)) {
+                result__VYHH=new_lab__MRJ(lab_type__WYHH);
+                next__TYHH=(void *)((unsigned long)result__VYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XYHH)));
+                ((__POINTER *)next__TYHH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__UYHH)[ 0]=next__TYHH;
               } else {
-                next__KQHH=((__POINTER *)result__MQHH)[ 0];
-                if ((next__KQHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MQHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OQHH <<  1)) <=  4096)) {
-                    next__KQHH=(void *)((unsigned long)result__MQHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OQHH)));
+                next__TYHH=((__POINTER *)result__VYHH)[ 0];
+                if ((next__TYHH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XYHH <<  1)) <=  4096)) {
+                    next__TYHH=(void *)((unsigned long)result__VYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XYHH)));
                   } else {
-                    next__KQHH=new_lab__MRJ(lab_type__NQHH);
+                    next__TYHH=new_lab__MRJ(lab_type__WYHH);
                   };
-                  ((__POINTER *)next__KQHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__LQHH)[ 0]=next__KQHH;
+                  ((__POINTER *)next__TYHH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__UYHH)[ 0]=next__TYHH;
                 } else {
-                  ((__POINTER *)result__MQHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KQHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__MQHH=next__KQHH;
+                  ((__POINTER *)result__VYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__VYHH=next__TYHH;
                 };
               };
-              ptr__R3L=result__MQHH;
+              ptr__R3L=result__VYHH;
             };
             result__Q3L=((__ITM_LDOTS *)ptr__R3L);
             *(result__Q3L) = *(ITM_LDOTS__);
@@ -22470,25 +22728,25 @@ static void* read_contract__HTF(__PARSER *Self__ITF)
         };
       } else {
         add_last__U5U(lst__STF,e__LTF);
-        result__PQHH=FALSE__;
+        result__YYHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__PQHH=FALSE__;
+          result__YYHH=FALSE__;
         } else {
-          result__QQHH='\0';
+          result__ZYHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__QQHH=((__CHARACTER )(( 0)));
+            result__ZYHH=((__CHARACTER )(( 0)));
           } else {
-            result__QQHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__ZYHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__QQHH == ';')) {
+          if ((result__ZYHH == ';')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__PQHH=TRUE__;
+            result__YYHH=TRUE__;
           };
         };
-        if ((! result__PQHH)) {
-          pos__LKWG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_239));
-          put_position__UOG(pos__LKWG);
+        if ((! result__YYHH)) {
+          pos__ZTWG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_242));
+          put_position__UOG(pos__ZTWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -22497,104 +22755,104 @@ static void* read_contract__HTF(__PARSER *Self__ITF)
         continue__KTF=TRUE__;
       };
     } while (continue__KTF);
-    result__SQHH=FALSE__;
+    result__1YHH=FALSE__;
     if ((! read_space__3RD())) {
-      result__SQHH=FALSE__;
+      result__1YHH=FALSE__;
     } else {
-      result__TQHH='\0';
+      result__2YHH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__TQHH=((__CHARACTER )(( 0)));
+        result__2YHH=((__CHARACTER )(( 0)));
       } else {
-        result__TQHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__2YHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__TQHH == ']')) {
+      if ((result__2YHH == ']')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__SQHH=TRUE__;
+        result__1YHH=TRUE__;
       };
     };
-    if ((! result__SQHH)) {
-      pos__NKWG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_292));
-      put_position__UOG(pos__NKWG);
+    if ((! result__1YHH)) {
+      pos__1TWG=current_position__JXF();
+      put_error__text__KNG( 2,(&__string_295));
+      put_position__UOG(pos__1TWG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
-    p__3QHH=current_position__JXF();
-    result__VQHH=NULL;
-    ptr__WQHH=((__POINTER )(NULL));
-    typ_id__XQHH= 0;
-    sz__YQHH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-    if ((sz__YQHH ==  0)) {
-      result__VQHH=ITM_PROTOTYPE__;
-    } else {
-      typ_id__XQHH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YQHH);
-      if ((typ_id__XQHH == (__INTEGER)(-  1))) {
-        a__ZQHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__0QHH=(__UINTEGER_32)((__UINTEGER_32)(sz__YQHH + a__ZQHH) & (__UINTEGER_32)(~ a__ZQHH));
-        ptr_table__5QHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0QHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__4QHH=((__POINTER )(NULL));
-        result__ARHH=((__POINTER *)ptr_table__5QHH)[ 0];
-        if ((result__ARHH == (void *)NULL)) {
-          result__ARHH=new_lab__MRJ(new_size__0QHH);
-          next__4QHH=(void *)((unsigned long)result__ARHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0QHH)));
-          ((__POINTER *)next__4QHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5QHH)[ 0]=next__4QHH;
-        } else {
-          next__4QHH=((__POINTER *)result__ARHH)[ 0];
-          if ((next__4QHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ARHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0QHH <<  1)) <=  4096)) {
-              next__4QHH=(void *)((unsigned long)result__ARHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0QHH)));
+    p__GZHH=current_position__JXF();
+    result__4YHH=NULL;
+    ptr__5YHH=((__POINTER )(NULL));
+    typ_id__AZHH= 0;
+    sz__BZHH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
+    if ((sz__BZHH ==  0)) {
+      result__4YHH=ITM_PROTOTYPE__;
+    } else {
+      typ_id__AZHH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__BZHH);
+      if ((typ_id__AZHH == (__INTEGER)(-  1))) {
+        a__CZHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__DZHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BZHH + a__CZHH) & (__UINTEGER_32)(~ a__CZHH));
+        ptr_table__IZHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DZHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__HZHH=((__POINTER )(NULL));
+        result__JZHH=((__POINTER *)ptr_table__IZHH)[ 0];
+        if ((result__JZHH == (void *)NULL)) {
+          result__JZHH=new_lab__MRJ(new_size__DZHH);
+          next__HZHH=(void *)((unsigned long)result__JZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DZHH)));
+          ((__POINTER *)next__HZHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__IZHH)[ 0]=next__HZHH;
+        } else {
+          next__HZHH=((__POINTER *)result__JZHH)[ 0];
+          if ((next__HZHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JZHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DZHH <<  1)) <=  4096)) {
+              next__HZHH=(void *)((unsigned long)result__JZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DZHH)));
             } else {
-              next__4QHH=new_lab__MRJ(new_size__0QHH);
-            };
-            ((__POINTER *)next__4QHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__5QHH)[ 0]=next__4QHH;
-          } else {
-            ((__POINTER *)result__ARHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4QHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__ARHH=next__4QHH;
-          };
-        };
-        ptr__WQHH=result__ARHH;
-      } else {
-        t__1QHH=((__UINTEGER_32 )typ_id__XQHH);
-        a__2QHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__HRHH=(__UINTEGER_32)((__UINTEGER_32)(sz__YQHH + a__2QHH) & (__UINTEGER_32)(~ a__2QHH));
-        ptr_table__ERHH=((__POINTER )(&(table_type[(t__1QHH)])));
-        lab_type__GRHH=(__UINTEGER_32)(t__1QHH |  1);
-        next__DRHH=((__POINTER )(NULL));
-        result__FRHH=((__POINTER *)ptr_table__ERHH)[ 0];
-        if ((result__FRHH == (void *)NULL)) {
-          result__FRHH=new_lab__MRJ(lab_type__GRHH);
-          next__DRHH=(void *)((unsigned long)result__FRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRHH)));
-          ((__POINTER *)next__DRHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ERHH)[ 0]=next__DRHH;
-        } else {
-          next__DRHH=((__POINTER *)result__FRHH)[ 0];
-          if ((next__DRHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FRHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HRHH <<  1)) <=  4096)) {
-              next__DRHH=(void *)((unsigned long)result__FRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRHH)));
+              next__HZHH=new_lab__MRJ(new_size__DZHH);
+            };
+            ((__POINTER *)next__HZHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__IZHH)[ 0]=next__HZHH;
+          } else {
+            ((__POINTER *)result__JZHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__JZHH=next__HZHH;
+          };
+        };
+        ptr__5YHH=result__JZHH;
+      } else {
+        t__EZHH=((__UINTEGER_32 )typ_id__AZHH);
+        a__FZHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__QZHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BZHH + a__FZHH) & (__UINTEGER_32)(~ a__FZHH));
+        ptr_table__NZHH=((__POINTER )(&(table_type[(t__EZHH)])));
+        lab_type__PZHH=(__UINTEGER_32)(t__EZHH |  1);
+        next__MZHH=((__POINTER )(NULL));
+        result__OZHH=((__POINTER *)ptr_table__NZHH)[ 0];
+        if ((result__OZHH == (void *)NULL)) {
+          result__OZHH=new_lab__MRJ(lab_type__PZHH);
+          next__MZHH=(void *)((unsigned long)result__OZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QZHH)));
+          ((__POINTER *)next__MZHH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__NZHH)[ 0]=next__MZHH;
+        } else {
+          next__MZHH=((__POINTER *)result__OZHH)[ 0];
+          if ((next__MZHH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OZHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QZHH <<  1)) <=  4096)) {
+              next__MZHH=(void *)((unsigned long)result__OZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QZHH)));
             } else {
-              next__DRHH=new_lab__MRJ(lab_type__GRHH);
+              next__MZHH=new_lab__MRJ(lab_type__PZHH);
             };
-            ((__POINTER *)next__DRHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ERHH)[ 0]=next__DRHH;
+            ((__POINTER *)next__MZHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__NZHH)[ 0]=next__MZHH;
           } else {
-            ((__POINTER *)result__FRHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DRHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__FRHH=next__DRHH;
+            ((__POINTER *)result__OZHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__OZHH=next__MZHH;
           };
         };
-        ptr__WQHH=result__FRHH;
+        ptr__5YHH=result__OZHH;
       };
-      result__VQHH=((__ITM_PROTOTYPE *)ptr__WQHH);
-      *(result__VQHH) = *(ITM_PROTOTYPE__);
+      result__4YHH=((__ITM_PROTOTYPE *)ptr__5YHH);
+      *(result__4YHH) = *(ITM_PROTOTYPE__);
     };
-    ((__ITM_PROTOTYPE *)result__VQHH)->parent_itm_constant__2VF.parent_itm_code__1VF.parent_itm_object__XDE.position__NDJ=p__3QHH;
-    e__LTF=result__VQHH;
-    add_last__U5U(result__OGGH,result__VQHH);
-    copy__Q5H(result__OGGH);
+    ((__ITM_PROTOTYPE *)result__4YHH)->parent_itm_constant__2VF.parent_itm_code__1VF.parent_itm_object__XDE.position__NDJ=p__GZHH;
+    e__LTF=result__4YHH;
+    add_last__U5U(result__1OGH,result__4YHH);
+    copy__Q5H(result__1OGH);
   };
   return(result__MTF);
 }
@@ -22604,77 +22862,77 @@ static void* read_expr__44I(__PARSER *Self__54I)
 {
   void *result__B5I,*value__C5I,*result__BFL,*expr__CFL,*__tmp__IIL;
   void *__tmp__PJL,*__tmp__VKL;
-  __INTEGER p__J5I,typ_id__040C,typ_id__3RHH,typ_id__QSHH,typ_id__DTHH;
+  __INTEGER p__J5I,typ_id__040C,typ_id__G0HH,typ_id__Z0HH,typ_id__M1HH;
   __INTEGER typ_id__3MJD,typ_id__10JD,typ_id__QOJD,last_msg__GFL;
-  __INTEGER first_msg__HFL,typ_id__UUHH,typ_id__ZSP,typ_id__TVHH;
-  __INTEGER index__IWHH,__tmp__GWHH,i__JWHH,typ_id__NWHH,__tmp__RE1C;
+  __INTEGER first_msg__HFL,typ_id__32HH,typ_id__ZSP,typ_id__23HH;
+  __INTEGER index__R4HH,__tmp__P4HH,i__S4HH,typ_id__W4HH,__tmp__RE1C;
   __INTEGER i__DICD,typ_id__NXO,typ_id__AZO;
-  void *name__K5I,*n__2UHH,*n__QHP;
-  __POSITION p__WERC,pos__WKWG,p__DSHH,pos__YKWG,pos__0KWG,__tmp__EEJ;
-  __POSITION p__JTHH,pos__4KWG,__tmp__FHJ,__tmp__PHJ,__tmp__YHJ,p__1UHH;
-  __POSITION pos__JLWG,p__PHP,__tmp__MIL,__tmp__SJL,__tmp__ZKL;
+  void *name__K5I,*n__F3HH,*n__QHP;
+  __POSITION p__WERC,pos__EUWG,p__M0HH,pos__GUWG,pos__IUWG,__tmp__EEJ;
+  __POSITION p__S1HH,pos__MUWG,__tmp__FHJ,__tmp__PHJ,__tmp__YHJ,p__E3HH;
+  __POSITION pos__XUWG,p__PHP,__tmp__MIL,__tmp__SJL,__tmp__ZKL;
   __ITM_LIST_IDF *result__U40C;
-  __POINTER ptr__V40C,ptr_table__SRHH,next__RRHH,result__TRHH;
-  __POINTER ptr_table__XRHH,next__WRHH,result__YRHH,ptr__2RHH;
-  __POINTER ptr_table__FSHH,next__ESHH,result__GSHH,ptr_table__KSHH;
-  __POINTER next__JSHH,result__LSHH,ptr__PSHH,ptr_table__YSHH;
-  __POINTER next__XSHH,result__ZSHH,ptr_table__3SHH,next__2SHH;
-  __POINTER result__4SHH,ptr__CTHH,ptr_table__LTHH,next__KTHH;
-  __POINTER result__MTHH,ptr_table__QTHH,next__PTHH,result__RTHH;
-  __POINTER ptr__YMJD,ptr_table__VTHH,next__UTHH,result__WTHH;
-  __POINTER ptr_table__0THH,next__ZTHH,result__1THH,ptr__W0JD;
-  __POINTER ptr_table__5THH,next__4THH,result__AUHH,ptr_table__EUHH;
-  __POINTER next__DUHH,result__FUHH,ptr__LOJD,ptr_table__JUHH;
-  __POINTER next__IUHH,result__KUHH,ptr_table__OUHH,next__NUHH;
-  __POINTER result__PUHH,ptr__TUHH,ptr_table__4UHH,next__3UHH;
-  __POINTER result__5UHH,ptr_table__DVHH,next__CVHH,result__EVHH;
-  __POINTER ptr__USP,ptr_table__IVHH,next__HVHH,result__JVHH;
-  __POINTER ptr_table__NVHH,next__MVHH,result__OVHH,ptr__SVHH;
-  __POINTER ptr_table__1VHH,next__0VHH,result__2VHH,ptr_table__AWHH;
-  __POINTER next__5VHH,result__BWHH,ptr__MWHH,ptr_table__VWHH;
-  __POINTER next__UWHH,result__WWHH,ptr_table__0WHH,next__ZWHH;
-  __POINTER result__1WHH,ptr__IXO,ptr_table__5WHH,next__4WHH;
-  __POINTER result__AXHH,ptr_table__EXHH,next__DXHH,result__FXHH;
-  __POINTER ptr__1YO,ptr_table__JXHH,next__IXHH,result__KXHH;
-  __POINTER ptr_table__OXHH,next__NXHH,result__PXHH;
-  __UINTEGER_32 sz__X40C,a__RLEH,new_size__SLEH,t__WLEH,a__VLEH;
-  __UINTEGER_32 new_size__0RHH,lab_type__ZRHH,sz__4RHH,a__5RHH;
-  __UINTEGER_32 new_size__ASHH,t__BSHH,a__CSHH,new_size__NSHH;
-  __UINTEGER_32 lab_type__MSHH,sz__RSHH,a__SSHH,new_size__TSHH,t__USHH;
-  __UINTEGER_32 a__VSHH,new_size__ATHH,lab_type__5SHH,sz__ETHH,a__FTHH;
-  __UINTEGER_32 new_size__GTHH,t__HTHH,a__ITHH,new_size__TTHH;
-  __UINTEGER_32 lab_type__STHH,sz__0MJD,a__I1EH,new_size__J1EH,t__N1EH;
-  __UINTEGER_32 a__M1EH,new_size__3THH,lab_type__2THH,sz__Y0JD,a__ZLEH;
-  __UINTEGER_32 new_size__0LEH,t__4LEH,a__3LEH,new_size__HUHH;
-  __UINTEGER_32 lab_type__GUHH,sz__NOJD,a__Q1EH,new_size__R1EH,t__V1EH;
-  __UINTEGER_32 a__U1EH,new_size__RUHH,lab_type__QUHH,sz__VUHH,a__WUHH;
-  __UINTEGER_32 new_size__XUHH,t__YUHH,a__ZUHH,new_size__GVHH;
-  __UINTEGER_32 lab_type__FVHH,sz__WSP,a__A2EH,new_size__B2EH,t__F2EH;
-  __UINTEGER_32 a__E2EH,new_size__QVHH,lab_type__PVHH,sz__UVHH,a__VVHH;
-  __UINTEGER_32 new_size__WVHH,t__XVHH,a__YVHH,new_size__DWHH;
-  __UINTEGER_32 lab_type__CWHH,sz__OWHH,a__PWHH,new_size__QWHH,t__RWHH;
-  __UINTEGER_32 a__SWHH,new_size__3WHH,lab_type__2WHH,sz__KXO,a__W2EH;
-  __UINTEGER_32 new_size__X2EH,t__12EH,a__02EH,new_size__HXHH;
-  __UINTEGER_32 lab_type__GXHH,sz__3YO,a__ZNEH,new_size__0NEH,t__4NEH;
-  __UINTEGER_32 a__3NEH,new_size__RXHH,lab_type__QXHH;
-  __ITM_WRITE_VALUE *result__1RHH,*result__XMJD;
-  __ITM_WRITE_CAST *result__OSHH,*result__KOJD;
-  __ITM_READ *result__BTHH;
+  __POINTER ptr__V40C,ptr_table__1ZHH,next__0ZHH,result__2ZHH;
+  __POINTER ptr_table__A0HH,next__5ZHH,result__B0HH,ptr__F0HH;
+  __POINTER ptr_table__O0HH,next__N0HH,result__P0HH,ptr_table__T0HH;
+  __POINTER next__S0HH,result__U0HH,ptr__Y0HH,ptr_table__B1HH;
+  __POINTER next__A1HH,result__C1HH,ptr_table__G1HH,next__F1HH;
+  __POINTER result__H1HH,ptr__L1HH,ptr_table__U1HH,next__T1HH;
+  __POINTER result__V1HH,ptr_table__Z1HH,next__Y1HH,result__01HH;
+  __POINTER ptr__YMJD,ptr_table__41HH,next__31HH,result__51HH;
+  __POINTER ptr_table__D2HH,next__C2HH,result__E2HH,ptr__W0JD;
+  __POINTER ptr_table__I2HH,next__H2HH,result__J2HH,ptr_table__N2HH;
+  __POINTER next__M2HH,result__O2HH,ptr__LOJD,ptr_table__S2HH;
+  __POINTER next__R2HH,result__T2HH,ptr_table__X2HH,next__W2HH;
+  __POINTER result__Y2HH,ptr__22HH,ptr_table__H3HH,next__G3HH;
+  __POINTER result__I3HH,ptr_table__M3HH,next__L3HH,result__N3HH;
+  __POINTER ptr__USP,ptr_table__R3HH,next__Q3HH,result__S3HH;
+  __POINTER ptr_table__W3HH,next__V3HH,result__X3HH,ptr__13HH;
+  __POINTER ptr_table__E4HH,next__D4HH,result__F4HH,ptr_table__J4HH;
+  __POINTER next__I4HH,result__K4HH,ptr__V4HH,ptr_table__44HH;
+  __POINTER next__34HH,result__54HH,ptr_table__D5HH,next__C5HH;
+  __POINTER result__E5HH,ptr__IXO,ptr_table__I5HH,next__H5HH;
+  __POINTER result__J5HH,ptr_table__N5HH,next__M5HH,result__O5HH;
+  __POINTER ptr__1YO,ptr_table__S5HH,next__R5HH,result__T5HH;
+  __POINTER ptr_table__X5HH,next__W5HH,result__Y5HH;
+  __UINTEGER_32 sz__X40C,a__MUEH,new_size__NUEH,t__RUEH,a__QUEH;
+  __UINTEGER_32 new_size__D0HH,lab_type__C0HH,sz__H0HH,a__I0HH;
+  __UINTEGER_32 new_size__J0HH,t__K0HH,a__L0HH,new_size__W0HH;
+  __UINTEGER_32 lab_type__V0HH,sz__00HH,a__10HH,new_size__20HH,t__30HH;
+  __UINTEGER_32 a__40HH,new_size__J1HH,lab_type__I1HH,sz__N1HH,a__O1HH;
+  __UINTEGER_32 new_size__P1HH,t__Q1HH,a__R1HH,new_size__21HH;
+  __UINTEGER_32 lab_type__11HH,sz__0MJD,a__NDFH,new_size__ODFH,t__SDFH;
+  __UINTEGER_32 a__RDFH,new_size__G2HH,lab_type__F2HH,sz__Y0JD,a__UUEH;
+  __UINTEGER_32 new_size__VUEH,t__ZUEH,a__YUEH,new_size__Q2HH;
+  __UINTEGER_32 lab_type__P2HH,sz__NOJD,a__VDFH,new_size__WDFH,t__0DFH;
+  __UINTEGER_32 a__ZDFH,new_size__02HH,lab_type__Z2HH,sz__42HH,a__52HH;
+  __UINTEGER_32 new_size__A3HH,t__B3HH,a__C3HH,new_size__P3HH;
+  __UINTEGER_32 lab_type__O3HH,sz__WSP,a__FEFH,new_size__GEFH,t__KEFH;
+  __UINTEGER_32 a__JEFH,new_size__Z3HH,lab_type__Y3HH,sz__33HH,a__43HH;
+  __UINTEGER_32 new_size__53HH,t__A4HH,a__B4HH,new_size__M4HH;
+  __UINTEGER_32 lab_type__L4HH,sz__X4HH,a__Y4HH,new_size__Z4HH,t__04HH;
+  __UINTEGER_32 a__14HH,new_size__G5HH,lab_type__F5HH,sz__KXO,a__1EFH;
+  __UINTEGER_32 new_size__2EFH,t__AFFH,a__5EFH,new_size__Q5HH;
+  __UINTEGER_32 lab_type__P5HH,sz__3YO,a__UWEH,new_size__VWEH,t__ZWEH;
+  __UINTEGER_32 a__YWEH,new_size__05HH,lab_type__Z5HH;
+  __ITM_WRITE_VALUE *result__E0HH,*result__XMJD;
+  __ITM_WRITE_CAST *result__X0HH,*result__KOJD;
+  __ITM_READ *result__K1HH;
   __ITM_WRITE_CODE *result__V0JD;
   void *itm_op__FFL,*__tmp__JIL,*__tmp__QJL,*__tmp__WKL;
-  __ITM_OPERATOR *result__SUHH,*Self__0UHH,*result__TSP,*Self__XNV;
-  __ITM_READ_ARG1 *result__RVHH,*result__LWHH;
+  __ITM_OPERATOR *result__12HH,*Self__D3HH,*result__TSP,*Self__XNV;
+  __ITM_READ_ARG1 *result__03HH,*result__U4HH;
   __ITM_READ_ARG2 *result__HXO;
   __ITM_EXPRESSION *result__0YO;
-  __CHARACTER affect__D5I,result__JRHH,result__MRHH,result__PRHH;
-  __BOOLEAN again__E5I,result__IRHH,result__LRHH,result__ORHH;
+  __CHARACTER affect__D5I,result__SZHH,result__VZHH,result__YZHH;
+  __BOOLEAN again__E5I,result__RZHH,result__UZHH,result__XZHH;
   __BOOLEAN __tmp__OCJ,__tmp__QEJ,__tmp__IKL;
   void *l_assignment__I5I,*result__E5K,*result__QERC;
   __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__4V5,*Self__UW5;
   void *result__13H,*l_expr__DFL;
   __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__1N4,*Self__RO4;
-  __FAST_ARRAYoITM_CODEo *Self__EWHH,*Self__HE1C;
-  void **__tmp__FWHH,**Self__HWHH,**__tmp__QE1C,**Self__SHCD;
+  __FAST_ARRAYoITM_CODEo *Self__N4HH,*Self__HE1C;
+  void **__tmp__O4HH,**Self__Q4HH,**__tmp__QE1C,**Self__SHCD;
   result__B5I=NULL;
   value__C5I=NULL;
   affect__D5I='\0';
@@ -22687,22 +22945,22 @@ static void* read_expr__44I(__PARSER *Self__54I)
   old_pos_line__HRI=pos_line__WBC;
   old_pos_col__JRI=pos_col__XBC;
   old_short_derive__LRI=short_derive__BCC;
-  result__IRHH=FALSE__;
+  result__RZHH=FALSE__;
   if ((! read_space__3RD())) {
-    result__IRHH=FALSE__;
+    result__RZHH=FALSE__;
   } else {
-    result__JRHH='\0';
+    result__SZHH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__JRHH=((__CHARACTER )(( 0)));
+      result__SZHH=((__CHARACTER )(( 0)));
     } else {
-      result__JRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__SZHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__JRHH == '(')) {
+    if ((result__SZHH == '(')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__IRHH=TRUE__;
+      result__RZHH=TRUE__;
     };
   };
-  if (result__IRHH) {
+  if (result__RZHH) {
     result__E5K=NULL;
     if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__K5K)->parent_arrayed_collection__J5K.upper__0SU <  0)) {
       result__E5K=create_with_capacity__BHRC( 16);
@@ -22729,43 +22987,43 @@ static void* read_expr__44I(__PARSER *Self__54I)
             short__token__to__LBD((&__string_131),p__J5I,position__SBC);
           };
         };
-        result__LRHH=FALSE__;
+        result__UZHH=FALSE__;
         if ((! read_space__3RD())) {
-          result__LRHH=FALSE__;
+          result__UZHH=FALSE__;
         } else {
-          result__MRHH='\0';
+          result__VZHH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__MRHH=((__CHARACTER )(( 0)));
+            result__VZHH=((__CHARACTER )(( 0)));
           } else {
-            result__MRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__VZHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__MRHH == ',')) {
+          if ((result__VZHH == ',')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__LRHH=TRUE__;
+            result__UZHH=TRUE__;
           };
         };
-        if (result__LRHH) {
+        if (result__UZHH) {
           again__E5I=TRUE__;
         };
       };
     } while (again__E5I);
     if ((! (((__FAST_ARRAYoSTRING_CONSTANTo *)result__E5K)->parent_arrayed_collection__H5I.upper__15OD <  0))) {
-      result__ORHH=FALSE__;
+      result__XZHH=FALSE__;
       if ((! read_space__3RD())) {
-        result__ORHH=FALSE__;
+        result__XZHH=FALSE__;
       } else {
-        result__PRHH='\0';
+        result__YZHH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__PRHH=((__CHARACTER )(( 0)));
+          result__YZHH=((__CHARACTER )(( 0)));
         } else {
-          result__PRHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__YZHH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__PRHH == ')')) {
+        if ((result__YZHH == ')')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__ORHH=TRUE__;
+          result__XZHH=TRUE__;
         };
       };
-      __tmp__OCJ=result__ORHH;
+      __tmp__OCJ=result__XZHH;
     } else {
       __tmp__OCJ=FALSE__;
     };
@@ -22785,61 +23043,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
         typ_id__040C=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__X40C);
         if ((typ_id__040C == (__INTEGER)(-  1))) {
-          a__RLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__SLEH=(__UINTEGER_32)((__UINTEGER_32)(sz__X40C + a__RLEH) & (__UINTEGER_32)(~ a__RLEH));
-          ptr_table__SRHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SLEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__RRHH=((__POINTER )(NULL));
-          result__TRHH=((__POINTER *)ptr_table__SRHH)[ 0];
-          if ((result__TRHH == (void *)NULL)) {
-            result__TRHH=new_lab__MRJ(new_size__SLEH);
-            next__RRHH=(void *)((unsigned long)result__TRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SLEH)));
-            ((__POINTER *)next__RRHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__SRHH)[ 0]=next__RRHH;
-          } else {
-            next__RRHH=((__POINTER *)result__TRHH)[ 0];
-            if ((next__RRHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TRHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SLEH <<  1)) <=  4096)) {
-                next__RRHH=(void *)((unsigned long)result__TRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SLEH)));
+          a__MUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__NUEH=(__UINTEGER_32)((__UINTEGER_32)(sz__X40C + a__MUEH) & (__UINTEGER_32)(~ a__MUEH));
+          ptr_table__1ZHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NUEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__0ZHH=((__POINTER )(NULL));
+          result__2ZHH=((__POINTER *)ptr_table__1ZHH)[ 0];
+          if ((result__2ZHH == (void *)NULL)) {
+            result__2ZHH=new_lab__MRJ(new_size__NUEH);
+            next__0ZHH=(void *)((unsigned long)result__2ZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUEH)));
+            ((__POINTER *)next__0ZHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__1ZHH)[ 0]=next__0ZHH;
+          } else {
+            next__0ZHH=((__POINTER *)result__2ZHH)[ 0];
+            if ((next__0ZHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2ZHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NUEH <<  1)) <=  4096)) {
+                next__0ZHH=(void *)((unsigned long)result__2ZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUEH)));
               } else {
-                next__RRHH=new_lab__MRJ(new_size__SLEH);
+                next__0ZHH=new_lab__MRJ(new_size__NUEH);
               };
-              ((__POINTER *)next__RRHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__SRHH)[ 0]=next__RRHH;
+              ((__POINTER *)next__0ZHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__1ZHH)[ 0]=next__0ZHH;
             } else {
-              ((__POINTER *)result__TRHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RRHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__TRHH=next__RRHH;
-            };
-          };
-          ptr__V40C=result__TRHH;
-        } else {
-          t__WLEH=((__UINTEGER_32 )typ_id__040C);
-          a__VLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__0RHH=(__UINTEGER_32)((__UINTEGER_32)(sz__X40C + a__VLEH) & (__UINTEGER_32)(~ a__VLEH));
-          ptr_table__XRHH=((__POINTER )(&(table_type[(t__WLEH)])));
-          lab_type__ZRHH=(__UINTEGER_32)(t__WLEH |  1);
-          next__WRHH=((__POINTER )(NULL));
-          result__YRHH=((__POINTER *)ptr_table__XRHH)[ 0];
-          if ((result__YRHH == (void *)NULL)) {
-            result__YRHH=new_lab__MRJ(lab_type__ZRHH);
-            next__WRHH=(void *)((unsigned long)result__YRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RHH)));
-            ((__POINTER *)next__WRHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__XRHH)[ 0]=next__WRHH;
-          } else {
-            next__WRHH=((__POINTER *)result__YRHH)[ 0];
-            if ((next__WRHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YRHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0RHH <<  1)) <=  4096)) {
-                next__WRHH=(void *)((unsigned long)result__YRHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RHH)));
+              ((__POINTER *)result__2ZHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0ZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__2ZHH=next__0ZHH;
+            };
+          };
+          ptr__V40C=result__2ZHH;
+        } else {
+          t__RUEH=((__UINTEGER_32 )typ_id__040C);
+          a__QUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__D0HH=(__UINTEGER_32)((__UINTEGER_32)(sz__X40C + a__QUEH) & (__UINTEGER_32)(~ a__QUEH));
+          ptr_table__A0HH=((__POINTER )(&(table_type[(t__RUEH)])));
+          lab_type__C0HH=(__UINTEGER_32)(t__RUEH |  1);
+          next__5ZHH=((__POINTER )(NULL));
+          result__B0HH=((__POINTER *)ptr_table__A0HH)[ 0];
+          if ((result__B0HH == (void *)NULL)) {
+            result__B0HH=new_lab__MRJ(lab_type__C0HH);
+            next__5ZHH=(void *)((unsigned long)result__B0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0HH)));
+            ((__POINTER *)next__5ZHH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__A0HH)[ 0]=next__5ZHH;
+          } else {
+            next__5ZHH=((__POINTER *)result__B0HH)[ 0];
+            if ((next__5ZHH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__D0HH <<  1)) <=  4096)) {
+                next__5ZHH=(void *)((unsigned long)result__B0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0HH)));
               } else {
-                next__WRHH=new_lab__MRJ(lab_type__ZRHH);
+                next__5ZHH=new_lab__MRJ(lab_type__C0HH);
               };
-              ((__POINTER *)next__WRHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__XRHH)[ 0]=next__WRHH;
+              ((__POINTER *)next__5ZHH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__A0HH)[ 0]=next__5ZHH;
             } else {
-              ((__POINTER *)result__YRHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WRHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__YRHH=next__WRHH;
+              ((__POINTER *)result__B0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5ZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__B0HH=next__5ZHH;
             };
           };
-          ptr__V40C=result__YRHH;
+          ptr__V40C=result__B0HH;
         };
         result__U40C=((__ITM_LIST_IDF *)ptr__V40C);
         *(result__U40C) = *(ITM_LIST_IDF__);
@@ -22849,101 +23107,101 @@ static void* read_expr__44I(__PARSER *Self__54I)
       affect__D5I=((__CHARACTER *)((__STRING_CONSTANT *)last_string__I0C)->storage__VQO)[ 0];
       value__C5I=read_expr__44I(Self__54I);
       if (((void *)value__C5I == (void *)NULL)) {
-        pos__WKWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_237));
-        put_position__UOG(pos__WKWG);
+        pos__EUWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_240));
+        put_position__UOG(pos__EUWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
       if ((affect__D5I == ':')) {
-        p__DSHH=result__U40C->parent_itm_code__WCJ.parent_itm_object__XDE.position__NDJ;
-        result__1RHH=NULL;
-        ptr__2RHH=((__POINTER )(NULL));
-        typ_id__3RHH= 0;
-        sz__4RHH=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
-        if ((sz__4RHH ==  0)) {
-          result__1RHH=ITM_WRITE_VALUE__;
-        } else {
-          typ_id__3RHH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__4RHH);
-          if ((typ_id__3RHH == (__INTEGER)(-  1))) {
-            a__5RHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ASHH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RHH + a__5RHH) & (__UINTEGER_32)(~ a__5RHH));
-            ptr_table__FSHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ASHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__ESHH=((__POINTER )(NULL));
-            result__GSHH=((__POINTER *)ptr_table__FSHH)[ 0];
-            if ((result__GSHH == (void *)NULL)) {
-              result__GSHH=new_lab__MRJ(new_size__ASHH);
-              next__ESHH=(void *)((unsigned long)result__GSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASHH)));
-              ((__POINTER *)next__ESHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FSHH)[ 0]=next__ESHH;
+        p__M0HH=result__U40C->parent_itm_code__WCJ.parent_itm_object__XDE.position__NDJ;
+        result__E0HH=NULL;
+        ptr__F0HH=((__POINTER )(NULL));
+        typ_id__G0HH= 0;
+        sz__H0HH=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
+        if ((sz__H0HH ==  0)) {
+          result__E0HH=ITM_WRITE_VALUE__;
+        } else {
+          typ_id__G0HH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__H0HH);
+          if ((typ_id__G0HH == (__INTEGER)(-  1))) {
+            a__I0HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__J0HH=(__UINTEGER_32)((__UINTEGER_32)(sz__H0HH + a__I0HH) & (__UINTEGER_32)(~ a__I0HH));
+            ptr_table__O0HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__J0HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__N0HH=((__POINTER )(NULL));
+            result__P0HH=((__POINTER *)ptr_table__O0HH)[ 0];
+            if ((result__P0HH == (void *)NULL)) {
+              result__P0HH=new_lab__MRJ(new_size__J0HH);
+              next__N0HH=(void *)((unsigned long)result__P0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J0HH)));
+              ((__POINTER *)next__N0HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__O0HH)[ 0]=next__N0HH;
             } else {
-              next__ESHH=((__POINTER *)result__GSHH)[ 0];
-              if ((next__ESHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GSHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ASHH <<  1)) <=  4096)) {
-                  next__ESHH=(void *)((unsigned long)result__GSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ASHH)));
+              next__N0HH=((__POINTER *)result__P0HH)[ 0];
+              if ((next__N0HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J0HH <<  1)) <=  4096)) {
+                  next__N0HH=(void *)((unsigned long)result__P0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J0HH)));
                 } else {
-                  next__ESHH=new_lab__MRJ(new_size__ASHH);
+                  next__N0HH=new_lab__MRJ(new_size__J0HH);
                 };
-                ((__POINTER *)next__ESHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__FSHH)[ 0]=next__ESHH;
+                ((__POINTER *)next__N0HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__O0HH)[ 0]=next__N0HH;
               } else {
-                ((__POINTER *)result__GSHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ESHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__GSHH=next__ESHH;
+                ((__POINTER *)result__P0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__P0HH=next__N0HH;
               };
             };
-            ptr__2RHH=result__GSHH;
-          } else {
-            t__BSHH=((__UINTEGER_32 )typ_id__3RHH);
-            a__CSHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__NSHH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RHH + a__CSHH) & (__UINTEGER_32)(~ a__CSHH));
-            ptr_table__KSHH=((__POINTER )(&(table_type[(t__BSHH)])));
-            lab_type__MSHH=(__UINTEGER_32)(t__BSHH |  1);
-            next__JSHH=((__POINTER )(NULL));
-            result__LSHH=((__POINTER *)ptr_table__KSHH)[ 0];
-            if ((result__LSHH == (void *)NULL)) {
-              result__LSHH=new_lab__MRJ(lab_type__MSHH);
-              next__JSHH=(void *)((unsigned long)result__LSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NSHH)));
-              ((__POINTER *)next__JSHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__KSHH)[ 0]=next__JSHH;
+            ptr__F0HH=result__P0HH;
+          } else {
+            t__K0HH=((__UINTEGER_32 )typ_id__G0HH);
+            a__L0HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__W0HH=(__UINTEGER_32)((__UINTEGER_32)(sz__H0HH + a__L0HH) & (__UINTEGER_32)(~ a__L0HH));
+            ptr_table__T0HH=((__POINTER )(&(table_type[(t__K0HH)])));
+            lab_type__V0HH=(__UINTEGER_32)(t__K0HH |  1);
+            next__S0HH=((__POINTER )(NULL));
+            result__U0HH=((__POINTER *)ptr_table__T0HH)[ 0];
+            if ((result__U0HH == (void *)NULL)) {
+              result__U0HH=new_lab__MRJ(lab_type__V0HH);
+              next__S0HH=(void *)((unsigned long)result__U0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W0HH)));
+              ((__POINTER *)next__S0HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__T0HH)[ 0]=next__S0HH;
             } else {
-              next__JSHH=((__POINTER *)result__LSHH)[ 0];
-              if ((next__JSHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LSHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NSHH <<  1)) <=  4096)) {
-                  next__JSHH=(void *)((unsigned long)result__LSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NSHH)));
+              next__S0HH=((__POINTER *)result__U0HH)[ 0];
+              if ((next__S0HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__W0HH <<  1)) <=  4096)) {
+                  next__S0HH=(void *)((unsigned long)result__U0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W0HH)));
                 } else {
-                  next__JSHH=new_lab__MRJ(lab_type__MSHH);
+                  next__S0HH=new_lab__MRJ(lab_type__V0HH);
                 };
-                ((__POINTER *)next__JSHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__KSHH)[ 0]=next__JSHH;
+                ((__POINTER *)next__S0HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__T0HH)[ 0]=next__S0HH;
               } else {
-                ((__POINTER *)result__LSHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JSHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__LSHH=next__JSHH;
+                ((__POINTER *)result__U0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__U0HH=next__S0HH;
               };
             };
-            ptr__2RHH=result__LSHH;
+            ptr__F0HH=result__U0HH;
           };
-          result__1RHH=((__ITM_WRITE_VALUE *)ptr__2RHH);
-          *(result__1RHH) = *(ITM_WRITE_VALUE__);
+          result__E0HH=((__ITM_WRITE_VALUE *)ptr__F0HH);
+          *(result__E0HH) = *(ITM_WRITE_VALUE__);
         };
-        ((__ITM_WRITE_VALUE *)result__1RHH)->parent_itm_write__MDJ.parent_itm_code__LDJ.parent_itm_object__XDE.position__NDJ=p__DSHH;
-        result__B5I=result__1RHH;
+        ((__ITM_WRITE_VALUE *)result__E0HH)->parent_itm_write__MDJ.parent_itm_code__LDJ.parent_itm_object__XDE.position__NDJ=p__M0HH;
+        result__B5I=result__E0HH;
       };
       if ((affect__D5I == '<')) {
-        pos__YKWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_293));
-        put_position__UOG(pos__YKWG);
+        pos__GUWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_296));
+        put_position__UOG(pos__GUWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
       if ((affect__D5I == '?')) {
-        pos__0KWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_294));
-        put_position__UOG(pos__0KWG);
+        pos__IUWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_297));
+        put_position__UOG(pos__IUWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -23016,77 +23274,77 @@ static void* read_expr__44I(__PARSER *Self__54I)
           __tmp__EEJ=position__FJHC(result__B5I);
         } break;
         };
-        result__OSHH=NULL;
-        ptr__PSHH=((__POINTER )(NULL));
-        typ_id__QSHH= 0;
-        sz__RSHH=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
-        if ((sz__RSHH ==  0)) {
-          result__OSHH=ITM_WRITE_CAST__;
-        } else {
-          typ_id__QSHH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__RSHH);
-          if ((typ_id__QSHH == (__INTEGER)(-  1))) {
-            a__SSHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__TSHH=(__UINTEGER_32)((__UINTEGER_32)(sz__RSHH + a__SSHH) & (__UINTEGER_32)(~ a__SSHH));
-            ptr_table__YSHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TSHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__XSHH=((__POINTER )(NULL));
-            result__ZSHH=((__POINTER *)ptr_table__YSHH)[ 0];
-            if ((result__ZSHH == (void *)NULL)) {
-              result__ZSHH=new_lab__MRJ(new_size__TSHH);
-              next__XSHH=(void *)((unsigned long)result__ZSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSHH)));
-              ((__POINTER *)next__XSHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__YSHH)[ 0]=next__XSHH;
+        result__X0HH=NULL;
+        ptr__Y0HH=((__POINTER )(NULL));
+        typ_id__Z0HH= 0;
+        sz__00HH=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
+        if ((sz__00HH ==  0)) {
+          result__X0HH=ITM_WRITE_CAST__;
+        } else {
+          typ_id__Z0HH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__00HH);
+          if ((typ_id__Z0HH == (__INTEGER)(-  1))) {
+            a__10HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__20HH=(__UINTEGER_32)((__UINTEGER_32)(sz__00HH + a__10HH) & (__UINTEGER_32)(~ a__10HH));
+            ptr_table__B1HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__20HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__A1HH=((__POINTER )(NULL));
+            result__C1HH=((__POINTER *)ptr_table__B1HH)[ 0];
+            if ((result__C1HH == (void *)NULL)) {
+              result__C1HH=new_lab__MRJ(new_size__20HH);
+              next__A1HH=(void *)((unsigned long)result__C1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__20HH)));
+              ((__POINTER *)next__A1HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__B1HH)[ 0]=next__A1HH;
             } else {
-              next__XSHH=((__POINTER *)result__ZSHH)[ 0];
-              if ((next__XSHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZSHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TSHH <<  1)) <=  4096)) {
-                  next__XSHH=(void *)((unsigned long)result__ZSHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSHH)));
+              next__A1HH=((__POINTER *)result__C1HH)[ 0];
+              if ((next__A1HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C1HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__20HH <<  1)) <=  4096)) {
+                  next__A1HH=(void *)((unsigned long)result__C1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__20HH)));
                 } else {
-                  next__XSHH=new_lab__MRJ(new_size__TSHH);
+                  next__A1HH=new_lab__MRJ(new_size__20HH);
                 };
-                ((__POINTER *)next__XSHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__YSHH)[ 0]=next__XSHH;
+                ((__POINTER *)next__A1HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__B1HH)[ 0]=next__A1HH;
               } else {
-                ((__POINTER *)result__ZSHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XSHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__ZSHH=next__XSHH;
+                ((__POINTER *)result__C1HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__C1HH=next__A1HH;
               };
             };
-            ptr__PSHH=result__ZSHH;
-          } else {
-            t__USHH=((__UINTEGER_32 )typ_id__QSHH);
-            a__VSHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ATHH=(__UINTEGER_32)((__UINTEGER_32)(sz__RSHH + a__VSHH) & (__UINTEGER_32)(~ a__VSHH));
-            ptr_table__3SHH=((__POINTER )(&(table_type[(t__USHH)])));
-            lab_type__5SHH=(__UINTEGER_32)(t__USHH |  1);
-            next__2SHH=((__POINTER )(NULL));
-            result__4SHH=((__POINTER *)ptr_table__3SHH)[ 0];
-            if ((result__4SHH == (void *)NULL)) {
-              result__4SHH=new_lab__MRJ(lab_type__5SHH);
-              next__2SHH=(void *)((unsigned long)result__4SHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ATHH)));
-              ((__POINTER *)next__2SHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3SHH)[ 0]=next__2SHH;
+            ptr__Y0HH=result__C1HH;
+          } else {
+            t__30HH=((__UINTEGER_32 )typ_id__Z0HH);
+            a__40HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__J1HH=(__UINTEGER_32)((__UINTEGER_32)(sz__00HH + a__40HH) & (__UINTEGER_32)(~ a__40HH));
+            ptr_table__G1HH=((__POINTER )(&(table_type[(t__30HH)])));
+            lab_type__I1HH=(__UINTEGER_32)(t__30HH |  1);
+            next__F1HH=((__POINTER )(NULL));
+            result__H1HH=((__POINTER *)ptr_table__G1HH)[ 0];
+            if ((result__H1HH == (void *)NULL)) {
+              result__H1HH=new_lab__MRJ(lab_type__I1HH);
+              next__F1HH=(void *)((unsigned long)result__H1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J1HH)));
+              ((__POINTER *)next__F1HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__G1HH)[ 0]=next__F1HH;
             } else {
-              next__2SHH=((__POINTER *)result__4SHH)[ 0];
-              if ((next__2SHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4SHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ATHH <<  1)) <=  4096)) {
-                  next__2SHH=(void *)((unsigned long)result__4SHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ATHH)));
+              next__F1HH=((__POINTER *)result__H1HH)[ 0];
+              if ((next__F1HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H1HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J1HH <<  1)) <=  4096)) {
+                  next__F1HH=(void *)((unsigned long)result__H1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J1HH)));
                 } else {
-                  next__2SHH=new_lab__MRJ(lab_type__5SHH);
+                  next__F1HH=new_lab__MRJ(lab_type__I1HH);
                 };
-                ((__POINTER *)next__2SHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__3SHH)[ 0]=next__2SHH;
+                ((__POINTER *)next__F1HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__G1HH)[ 0]=next__F1HH;
               } else {
-                ((__POINTER *)result__4SHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2SHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__4SHH=next__2SHH;
+                ((__POINTER *)result__H1HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__H1HH=next__F1HH;
               };
             };
-            ptr__PSHH=result__4SHH;
+            ptr__Y0HH=result__H1HH;
           };
-          result__OSHH=((__ITM_WRITE_CAST *)ptr__PSHH);
-          *(result__OSHH) = *(ITM_WRITE_CAST__);
+          result__X0HH=((__ITM_WRITE_CAST *)ptr__Y0HH);
+          *(result__X0HH) = *(ITM_WRITE_CAST__);
         };
-        ((__ITM_WRITE_CAST *)result__OSHH)->parent_itm_write__DEJ.parent_itm_code__LDJ.parent_itm_object__XDE.position__NDJ=__tmp__EEJ;
-        result__B5I=result__OSHH;
+        ((__ITM_WRITE_CAST *)result__X0HH)->parent_itm_write__DEJ.parent_itm_code__LDJ.parent_itm_object__XDE.position__NDJ=__tmp__EEJ;
+        result__B5I=result__X0HH;
       };
     } else {
       free__0S5(l_assignment__I5I);
@@ -23110,91 +23368,91 @@ static void* read_expr__44I(__PARSER *Self__54I)
         };
       };
       if (((read_symbol__DXJ((&__string_12)) || read_symbol__DXJ((&__string_13))) || read_symbol__DXJ((&__string_14)))) {
-        p__JTHH=current_position__JXF();
-        result__BTHH=NULL;
-        ptr__CTHH=((__POINTER )(NULL));
-        typ_id__DTHH= 0;
-        sz__ETHH=((__UINTEGER_32 )sizeof(__ITM_READ));
-        if ((sz__ETHH ==  0)) {
-          result__BTHH=ITM_READ__;
-        } else {
-          typ_id__DTHH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ETHH);
-          if ((typ_id__DTHH == (__INTEGER)(-  1))) {
-            a__FTHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__GTHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ETHH + a__FTHH) & (__UINTEGER_32)(~ a__FTHH));
-            ptr_table__LTHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GTHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__KTHH=((__POINTER )(NULL));
-            result__MTHH=((__POINTER *)ptr_table__LTHH)[ 0];
-            if ((result__MTHH == (void *)NULL)) {
-              result__MTHH=new_lab__MRJ(new_size__GTHH);
-              next__KTHH=(void *)((unsigned long)result__MTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTHH)));
-              ((__POINTER *)next__KTHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__LTHH)[ 0]=next__KTHH;
+        p__S1HH=current_position__JXF();
+        result__K1HH=NULL;
+        ptr__L1HH=((__POINTER )(NULL));
+        typ_id__M1HH= 0;
+        sz__N1HH=((__UINTEGER_32 )sizeof(__ITM_READ));
+        if ((sz__N1HH ==  0)) {
+          result__K1HH=ITM_READ__;
+        } else {
+          typ_id__M1HH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__N1HH);
+          if ((typ_id__M1HH == (__INTEGER)(-  1))) {
+            a__O1HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__P1HH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1HH + a__O1HH) & (__UINTEGER_32)(~ a__O1HH));
+            ptr_table__U1HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__P1HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__T1HH=((__POINTER )(NULL));
+            result__V1HH=((__POINTER *)ptr_table__U1HH)[ 0];
+            if ((result__V1HH == (void *)NULL)) {
+              result__V1HH=new_lab__MRJ(new_size__P1HH);
+              next__T1HH=(void *)((unsigned long)result__V1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P1HH)));
+              ((__POINTER *)next__T1HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__U1HH)[ 0]=next__T1HH;
             } else {
-              next__KTHH=((__POINTER *)result__MTHH)[ 0];
-              if ((next__KTHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MTHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GTHH <<  1)) <=  4096)) {
-                  next__KTHH=(void *)((unsigned long)result__MTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTHH)));
+              next__T1HH=((__POINTER *)result__V1HH)[ 0];
+              if ((next__T1HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__P1HH <<  1)) <=  4096)) {
+                  next__T1HH=(void *)((unsigned long)result__V1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P1HH)));
                 } else {
-                  next__KTHH=new_lab__MRJ(new_size__GTHH);
+                  next__T1HH=new_lab__MRJ(new_size__P1HH);
                 };
-                ((__POINTER *)next__KTHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__LTHH)[ 0]=next__KTHH;
+                ((__POINTER *)next__T1HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__U1HH)[ 0]=next__T1HH;
               } else {
-                ((__POINTER *)result__MTHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KTHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__MTHH=next__KTHH;
+                ((__POINTER *)result__V1HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__V1HH=next__T1HH;
               };
             };
-            ptr__CTHH=result__MTHH;
-          } else {
-            t__HTHH=((__UINTEGER_32 )typ_id__DTHH);
-            a__ITHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__TTHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ETHH + a__ITHH) & (__UINTEGER_32)(~ a__ITHH));
-            ptr_table__QTHH=((__POINTER )(&(table_type[(t__HTHH)])));
-            lab_type__STHH=(__UINTEGER_32)(t__HTHH |  1);
-            next__PTHH=((__POINTER )(NULL));
-            result__RTHH=((__POINTER *)ptr_table__QTHH)[ 0];
-            if ((result__RTHH == (void *)NULL)) {
-              result__RTHH=new_lab__MRJ(lab_type__STHH);
-              next__PTHH=(void *)((unsigned long)result__RTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TTHH)));
-              ((__POINTER *)next__PTHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__QTHH)[ 0]=next__PTHH;
+            ptr__L1HH=result__V1HH;
+          } else {
+            t__Q1HH=((__UINTEGER_32 )typ_id__M1HH);
+            a__R1HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__21HH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1HH + a__R1HH) & (__UINTEGER_32)(~ a__R1HH));
+            ptr_table__Z1HH=((__POINTER )(&(table_type[(t__Q1HH)])));
+            lab_type__11HH=(__UINTEGER_32)(t__Q1HH |  1);
+            next__Y1HH=((__POINTER )(NULL));
+            result__01HH=((__POINTER *)ptr_table__Z1HH)[ 0];
+            if ((result__01HH == (void *)NULL)) {
+              result__01HH=new_lab__MRJ(lab_type__11HH);
+              next__Y1HH=(void *)((unsigned long)result__01HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21HH)));
+              ((__POINTER *)next__Y1HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__Z1HH)[ 0]=next__Y1HH;
             } else {
-              next__PTHH=((__POINTER *)result__RTHH)[ 0];
-              if ((next__PTHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RTHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TTHH <<  1)) <=  4096)) {
-                  next__PTHH=(void *)((unsigned long)result__RTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TTHH)));
+              next__Y1HH=((__POINTER *)result__01HH)[ 0];
+              if ((next__Y1HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__21HH <<  1)) <=  4096)) {
+                  next__Y1HH=(void *)((unsigned long)result__01HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21HH)));
                 } else {
-                  next__PTHH=new_lab__MRJ(lab_type__STHH);
+                  next__Y1HH=new_lab__MRJ(lab_type__11HH);
                 };
-                ((__POINTER *)next__PTHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__QTHH)[ 0]=next__PTHH;
+                ((__POINTER *)next__Y1HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__Z1HH)[ 0]=next__Y1HH;
               } else {
-                ((__POINTER *)result__RTHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PTHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__RTHH=next__PTHH;
+                ((__POINTER *)result__01HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__01HH=next__Y1HH;
               };
             };
-            ptr__CTHH=result__RTHH;
+            ptr__L1HH=result__01HH;
           };
-          result__BTHH=((__ITM_READ *)ptr__CTHH);
-          *(result__BTHH) = *(ITM_READ__);
+          result__K1HH=((__ITM_READ *)ptr__L1HH);
+          *(result__K1HH) = *(ITM_READ__);
         };
-        ((__ITM_READ *)result__BTHH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__JTHH;
-        result__B5I=result__BTHH;
+        ((__ITM_READ *)result__K1HH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__S1HH;
+        result__B5I=result__K1HH;
         affect__D5I=((__CHARACTER *)((__STRING_CONSTANT *)last_string__I0C)->storage__VQO)[ 0];
         value__C5I=read_expr__44I(Self__54I);
         if (((void *)value__C5I == (void *)NULL)) {
-          pos__4KWG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_237));
-          put_position__UOG(pos__4KWG);
+          pos__MUWG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_240));
+          put_position__UOG(pos__MUWG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         if ((affect__D5I == ':')) {
-          __tmp__FHJ=result__BTHH->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ;
+          __tmp__FHJ=result__K1HH->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ;
           result__XMJD=NULL;
           ptr__YMJD=((__POINTER )(NULL));
           typ_id__3MJD= 0;
@@ -23205,61 +23463,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
             typ_id__3MJD=-1;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__0MJD);
             if ((typ_id__3MJD == (__INTEGER)(-  1))) {
-              a__I1EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__J1EH=(__UINTEGER_32)((__UINTEGER_32)(sz__0MJD + a__I1EH) & (__UINTEGER_32)(~ a__I1EH));
-              ptr_table__VTHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__J1EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__UTHH=((__POINTER )(NULL));
-              result__WTHH=((__POINTER *)ptr_table__VTHH)[ 0];
-              if ((result__WTHH == (void *)NULL)) {
-                result__WTHH=new_lab__MRJ(new_size__J1EH);
-                next__UTHH=(void *)((unsigned long)result__WTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J1EH)));
-                ((__POINTER *)next__UTHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__VTHH)[ 0]=next__UTHH;
+              a__NDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__ODFH=(__UINTEGER_32)((__UINTEGER_32)(sz__0MJD + a__NDFH) & (__UINTEGER_32)(~ a__NDFH));
+              ptr_table__41HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ODFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__31HH=((__POINTER )(NULL));
+              result__51HH=((__POINTER *)ptr_table__41HH)[ 0];
+              if ((result__51HH == (void *)NULL)) {
+                result__51HH=new_lab__MRJ(new_size__ODFH);
+                next__31HH=(void *)((unsigned long)result__51HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ODFH)));
+                ((__POINTER *)next__31HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__41HH)[ 0]=next__31HH;
               } else {
-                next__UTHH=((__POINTER *)result__WTHH)[ 0];
-                if ((next__UTHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WTHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J1EH <<  1)) <=  4096)) {
-                    next__UTHH=(void *)((unsigned long)result__WTHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J1EH)));
+                next__31HH=((__POINTER *)result__51HH)[ 0];
+                if ((next__31HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__51HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ODFH <<  1)) <=  4096)) {
+                    next__31HH=(void *)((unsigned long)result__51HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ODFH)));
                   } else {
-                    next__UTHH=new_lab__MRJ(new_size__J1EH);
+                    next__31HH=new_lab__MRJ(new_size__ODFH);
                   };
-                  ((__POINTER *)next__UTHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__VTHH)[ 0]=next__UTHH;
+                  ((__POINTER *)next__31HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__41HH)[ 0]=next__31HH;
                 } else {
-                  ((__POINTER *)result__WTHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UTHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__WTHH=next__UTHH;
+                  ((__POINTER *)result__51HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__31HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__51HH=next__31HH;
                 };
               };
-              ptr__YMJD=result__WTHH;
+              ptr__YMJD=result__51HH;
             } else {
-              t__N1EH=((__UINTEGER_32 )typ_id__3MJD);
-              a__M1EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3THH=(__UINTEGER_32)((__UINTEGER_32)(sz__0MJD + a__M1EH) & (__UINTEGER_32)(~ a__M1EH));
-              ptr_table__0THH=((__POINTER )(&(table_type[(t__N1EH)])));
-              lab_type__2THH=(__UINTEGER_32)(t__N1EH |  1);
-              next__ZTHH=((__POINTER )(NULL));
-              result__1THH=((__POINTER *)ptr_table__0THH)[ 0];
-              if ((result__1THH == (void *)NULL)) {
-                result__1THH=new_lab__MRJ(lab_type__2THH);
-                next__ZTHH=(void *)((unsigned long)result__1THH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3THH)));
-                ((__POINTER *)next__ZTHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__0THH)[ 0]=next__ZTHH;
+              t__SDFH=((__UINTEGER_32 )typ_id__3MJD);
+              a__RDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__G2HH=(__UINTEGER_32)((__UINTEGER_32)(sz__0MJD + a__RDFH) & (__UINTEGER_32)(~ a__RDFH));
+              ptr_table__D2HH=((__POINTER )(&(table_type[(t__SDFH)])));
+              lab_type__F2HH=(__UINTEGER_32)(t__SDFH |  1);
+              next__C2HH=((__POINTER )(NULL));
+              result__E2HH=((__POINTER *)ptr_table__D2HH)[ 0];
+              if ((result__E2HH == (void *)NULL)) {
+                result__E2HH=new_lab__MRJ(lab_type__F2HH);
+                next__C2HH=(void *)((unsigned long)result__E2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2HH)));
+                ((__POINTER *)next__C2HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__D2HH)[ 0]=next__C2HH;
               } else {
-                next__ZTHH=((__POINTER *)result__1THH)[ 0];
-                if ((next__ZTHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1THH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3THH <<  1)) <=  4096)) {
-                    next__ZTHH=(void *)((unsigned long)result__1THH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3THH)));
+                next__C2HH=((__POINTER *)result__E2HH)[ 0];
+                if ((next__C2HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__G2HH <<  1)) <=  4096)) {
+                    next__C2HH=(void *)((unsigned long)result__E2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2HH)));
                   } else {
-                    next__ZTHH=new_lab__MRJ(lab_type__2THH);
+                    next__C2HH=new_lab__MRJ(lab_type__F2HH);
                   };
-                  ((__POINTER *)next__ZTHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__0THH)[ 0]=next__ZTHH;
+                  ((__POINTER *)next__C2HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__D2HH)[ 0]=next__C2HH;
                 } else {
-                  ((__POINTER *)result__1THH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZTHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__1THH=next__ZTHH;
+                  ((__POINTER *)result__E2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__E2HH=next__C2HH;
                 };
               };
-              ptr__YMJD=result__1THH;
+              ptr__YMJD=result__E2HH;
             };
             result__XMJD=((__ITM_WRITE_VALUE *)ptr__YMJD);
             *(result__XMJD) = *(ITM_WRITE_VALUE__);
@@ -23346,61 +23604,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
             typ_id__10JD=-1;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__Y0JD);
             if ((typ_id__10JD == (__INTEGER)(-  1))) {
-              a__ZLEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__0LEH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y0JD + a__ZLEH) & (__UINTEGER_32)(~ a__ZLEH));
-              ptr_table__5THH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0LEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__4THH=((__POINTER )(NULL));
-              result__AUHH=((__POINTER *)ptr_table__5THH)[ 0];
-              if ((result__AUHH == (void *)NULL)) {
-                result__AUHH=new_lab__MRJ(new_size__0LEH);
-                next__4THH=(void *)((unsigned long)result__AUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0LEH)));
-                ((__POINTER *)next__4THH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__5THH)[ 0]=next__4THH;
+              a__UUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__VUEH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y0JD + a__UUEH) & (__UINTEGER_32)(~ a__UUEH));
+              ptr_table__I2HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VUEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__H2HH=((__POINTER )(NULL));
+              result__J2HH=((__POINTER *)ptr_table__I2HH)[ 0];
+              if ((result__J2HH == (void *)NULL)) {
+                result__J2HH=new_lab__MRJ(new_size__VUEH);
+                next__H2HH=(void *)((unsigned long)result__J2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VUEH)));
+                ((__POINTER *)next__H2HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__I2HH)[ 0]=next__H2HH;
               } else {
-                next__4THH=((__POINTER *)result__AUHH)[ 0];
-                if ((next__4THH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0LEH <<  1)) <=  4096)) {
-                    next__4THH=(void *)((unsigned long)result__AUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0LEH)));
+                next__H2HH=((__POINTER *)result__J2HH)[ 0];
+                if ((next__H2HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VUEH <<  1)) <=  4096)) {
+                    next__H2HH=(void *)((unsigned long)result__J2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VUEH)));
                   } else {
-                    next__4THH=new_lab__MRJ(new_size__0LEH);
+                    next__H2HH=new_lab__MRJ(new_size__VUEH);
                   };
-                  ((__POINTER *)next__4THH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__5THH)[ 0]=next__4THH;
+                  ((__POINTER *)next__H2HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__I2HH)[ 0]=next__H2HH;
                 } else {
-                  ((__POINTER *)result__AUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4THH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__AUHH=next__4THH;
+                  ((__POINTER *)result__J2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__J2HH=next__H2HH;
                 };
               };
-              ptr__W0JD=result__AUHH;
+              ptr__W0JD=result__J2HH;
             } else {
-              t__4LEH=((__UINTEGER_32 )typ_id__10JD);
-              a__3LEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__HUHH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y0JD + a__3LEH) & (__UINTEGER_32)(~ a__3LEH));
-              ptr_table__EUHH=((__POINTER )(&(table_type[(t__4LEH)])));
-              lab_type__GUHH=(__UINTEGER_32)(t__4LEH |  1);
-              next__DUHH=((__POINTER )(NULL));
-              result__FUHH=((__POINTER *)ptr_table__EUHH)[ 0];
-              if ((result__FUHH == (void *)NULL)) {
-                result__FUHH=new_lab__MRJ(lab_type__GUHH);
-                next__DUHH=(void *)((unsigned long)result__FUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HUHH)));
-                ((__POINTER *)next__DUHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__EUHH)[ 0]=next__DUHH;
+              t__ZUEH=((__UINTEGER_32 )typ_id__10JD);
+              a__YUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__Q2HH=(__UINTEGER_32)((__UINTEGER_32)(sz__Y0JD + a__YUEH) & (__UINTEGER_32)(~ a__YUEH));
+              ptr_table__N2HH=((__POINTER )(&(table_type[(t__ZUEH)])));
+              lab_type__P2HH=(__UINTEGER_32)(t__ZUEH |  1);
+              next__M2HH=((__POINTER )(NULL));
+              result__O2HH=((__POINTER *)ptr_table__N2HH)[ 0];
+              if ((result__O2HH == (void *)NULL)) {
+                result__O2HH=new_lab__MRJ(lab_type__P2HH);
+                next__M2HH=(void *)((unsigned long)result__O2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2HH)));
+                ((__POINTER *)next__M2HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__N2HH)[ 0]=next__M2HH;
               } else {
-                next__DUHH=((__POINTER *)result__FUHH)[ 0];
-                if ((next__DUHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HUHH <<  1)) <=  4096)) {
-                    next__DUHH=(void *)((unsigned long)result__FUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HUHH)));
+                next__M2HH=((__POINTER *)result__O2HH)[ 0];
+                if ((next__M2HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q2HH <<  1)) <=  4096)) {
+                    next__M2HH=(void *)((unsigned long)result__O2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2HH)));
                   } else {
-                    next__DUHH=new_lab__MRJ(lab_type__GUHH);
+                    next__M2HH=new_lab__MRJ(lab_type__P2HH);
                   };
-                  ((__POINTER *)next__DUHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__EUHH)[ 0]=next__DUHH;
+                  ((__POINTER *)next__M2HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__N2HH)[ 0]=next__M2HH;
                 } else {
-                  ((__POINTER *)result__FUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__FUHH=next__DUHH;
+                  ((__POINTER *)result__O2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__O2HH=next__M2HH;
                 };
               };
-              ptr__W0JD=result__FUHH;
+              ptr__W0JD=result__O2HH;
             };
             result__V0JD=((__ITM_WRITE_CODE *)ptr__W0JD);
             *(result__V0JD) = *(ITM_WRITE_CODE__);
@@ -23487,61 +23745,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
             typ_id__QOJD=-1;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NOJD);
             if ((typ_id__QOJD == (__INTEGER)(-  1))) {
-              a__Q1EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__R1EH=(__UINTEGER_32)((__UINTEGER_32)(sz__NOJD + a__Q1EH) & (__UINTEGER_32)(~ a__Q1EH));
-              ptr_table__JUHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__R1EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__IUHH=((__POINTER )(NULL));
-              result__KUHH=((__POINTER *)ptr_table__JUHH)[ 0];
-              if ((result__KUHH == (void *)NULL)) {
-                result__KUHH=new_lab__MRJ(new_size__R1EH);
-                next__IUHH=(void *)((unsigned long)result__KUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R1EH)));
-                ((__POINTER *)next__IUHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__JUHH)[ 0]=next__IUHH;
+              a__VDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__WDFH=(__UINTEGER_32)((__UINTEGER_32)(sz__NOJD + a__VDFH) & (__UINTEGER_32)(~ a__VDFH));
+              ptr_table__S2HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WDFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__R2HH=((__POINTER )(NULL));
+              result__T2HH=((__POINTER *)ptr_table__S2HH)[ 0];
+              if ((result__T2HH == (void *)NULL)) {
+                result__T2HH=new_lab__MRJ(new_size__WDFH);
+                next__R2HH=(void *)((unsigned long)result__T2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WDFH)));
+                ((__POINTER *)next__R2HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__S2HH)[ 0]=next__R2HH;
               } else {
-                next__IUHH=((__POINTER *)result__KUHH)[ 0];
-                if ((next__IUHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__R1EH <<  1)) <=  4096)) {
-                    next__IUHH=(void *)((unsigned long)result__KUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R1EH)));
+                next__R2HH=((__POINTER *)result__T2HH)[ 0];
+                if ((next__R2HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WDFH <<  1)) <=  4096)) {
+                    next__R2HH=(void *)((unsigned long)result__T2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WDFH)));
                   } else {
-                    next__IUHH=new_lab__MRJ(new_size__R1EH);
+                    next__R2HH=new_lab__MRJ(new_size__WDFH);
                   };
-                  ((__POINTER *)next__IUHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__JUHH)[ 0]=next__IUHH;
+                  ((__POINTER *)next__R2HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__S2HH)[ 0]=next__R2HH;
                 } else {
-                  ((__POINTER *)result__KUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__KUHH=next__IUHH;
+                  ((__POINTER *)result__T2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__T2HH=next__R2HH;
                 };
               };
-              ptr__LOJD=result__KUHH;
+              ptr__LOJD=result__T2HH;
             } else {
-              t__V1EH=((__UINTEGER_32 )typ_id__QOJD);
-              a__U1EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__RUHH=(__UINTEGER_32)((__UINTEGER_32)(sz__NOJD + a__U1EH) & (__UINTEGER_32)(~ a__U1EH));
-              ptr_table__OUHH=((__POINTER )(&(table_type[(t__V1EH)])));
-              lab_type__QUHH=(__UINTEGER_32)(t__V1EH |  1);
-              next__NUHH=((__POINTER )(NULL));
-              result__PUHH=((__POINTER *)ptr_table__OUHH)[ 0];
-              if ((result__PUHH == (void *)NULL)) {
-                result__PUHH=new_lab__MRJ(lab_type__QUHH);
-                next__NUHH=(void *)((unsigned long)result__PUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RUHH)));
-                ((__POINTER *)next__NUHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OUHH)[ 0]=next__NUHH;
+              t__0DFH=((__UINTEGER_32 )typ_id__QOJD);
+              a__ZDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__02HH=(__UINTEGER_32)((__UINTEGER_32)(sz__NOJD + a__ZDFH) & (__UINTEGER_32)(~ a__ZDFH));
+              ptr_table__X2HH=((__POINTER )(&(table_type[(t__0DFH)])));
+              lab_type__Z2HH=(__UINTEGER_32)(t__0DFH |  1);
+              next__W2HH=((__POINTER )(NULL));
+              result__Y2HH=((__POINTER *)ptr_table__X2HH)[ 0];
+              if ((result__Y2HH == (void *)NULL)) {
+                result__Y2HH=new_lab__MRJ(lab_type__Z2HH);
+                next__W2HH=(void *)((unsigned long)result__Y2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02HH)));
+                ((__POINTER *)next__W2HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__X2HH)[ 0]=next__W2HH;
               } else {
-                next__NUHH=((__POINTER *)result__PUHH)[ 0];
-                if ((next__NUHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PUHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RUHH <<  1)) <=  4096)) {
-                    next__NUHH=(void *)((unsigned long)result__PUHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RUHH)));
+                next__W2HH=((__POINTER *)result__Y2HH)[ 0];
+                if ((next__W2HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__02HH <<  1)) <=  4096)) {
+                    next__W2HH=(void *)((unsigned long)result__Y2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02HH)));
                   } else {
-                    next__NUHH=new_lab__MRJ(lab_type__QUHH);
+                    next__W2HH=new_lab__MRJ(lab_type__Z2HH);
                   };
-                  ((__POINTER *)next__NUHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__OUHH)[ 0]=next__NUHH;
+                  ((__POINTER *)next__W2HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__X2HH)[ 0]=next__W2HH;
                 } else {
-                  ((__POINTER *)result__PUHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NUHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__PUHH=next__NUHH;
+                  ((__POINTER *)result__Y2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__Y2HH=next__W2HH;
                 };
               };
-              ptr__LOJD=result__PUHH;
+              ptr__LOJD=result__Y2HH;
             };
             result__KOJD=((__ITM_WRITE_CAST *)ptr__LOJD);
             *(result__KOJD) = *(ITM_WRITE_CAST__);
@@ -23570,89 +23828,89 @@ static void* read_expr__44I(__PARSER *Self__54I)
     };
     l_expr__DFL=result__13H;
     while (read_operator__HNM()) {
-      p__1UHH=current_position__JXF();
-      n__2UHH=last_string__I0C;
-      result__SUHH=NULL;
-      ptr__TUHH=((__POINTER )(NULL));
-      typ_id__UUHH= 0;
-      sz__VUHH=((__UINTEGER_32 )sizeof(__ITM_OPERATOR));
-      if ((sz__VUHH ==  0)) {
-        result__SUHH=ITM_OPERATOR__;
-      } else {
-        typ_id__UUHH=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__VUHH);
-        if ((typ_id__UUHH == (__INTEGER)(-  1))) {
-          a__WUHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__XUHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VUHH + a__WUHH) & (__UINTEGER_32)(~ a__WUHH));
-          ptr_table__4UHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XUHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__3UHH=((__POINTER )(NULL));
-          result__5UHH=((__POINTER *)ptr_table__4UHH)[ 0];
-          if ((result__5UHH == (void *)NULL)) {
-            result__5UHH=new_lab__MRJ(new_size__XUHH);
-            next__3UHH=(void *)((unsigned long)result__5UHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XUHH)));
-            ((__POINTER *)next__3UHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__4UHH)[ 0]=next__3UHH;
-          } else {
-            next__3UHH=((__POINTER *)result__5UHH)[ 0];
-            if ((next__3UHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5UHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XUHH <<  1)) <=  4096)) {
-                next__3UHH=(void *)((unsigned long)result__5UHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XUHH)));
+      p__E3HH=current_position__JXF();
+      n__F3HH=last_string__I0C;
+      result__12HH=NULL;
+      ptr__22HH=((__POINTER )(NULL));
+      typ_id__32HH= 0;
+      sz__42HH=((__UINTEGER_32 )sizeof(__ITM_OPERATOR));
+      if ((sz__42HH ==  0)) {
+        result__12HH=ITM_OPERATOR__;
+      } else {
+        typ_id__32HH=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__42HH);
+        if ((typ_id__32HH == (__INTEGER)(-  1))) {
+          a__52HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__A3HH=(__UINTEGER_32)((__UINTEGER_32)(sz__42HH + a__52HH) & (__UINTEGER_32)(~ a__52HH));
+          ptr_table__H3HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A3HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__G3HH=((__POINTER )(NULL));
+          result__I3HH=((__POINTER *)ptr_table__H3HH)[ 0];
+          if ((result__I3HH == (void *)NULL)) {
+            result__I3HH=new_lab__MRJ(new_size__A3HH);
+            next__G3HH=(void *)((unsigned long)result__I3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A3HH)));
+            ((__POINTER *)next__G3HH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__H3HH)[ 0]=next__G3HH;
+          } else {
+            next__G3HH=((__POINTER *)result__I3HH)[ 0];
+            if ((next__G3HH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__A3HH <<  1)) <=  4096)) {
+                next__G3HH=(void *)((unsigned long)result__I3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A3HH)));
               } else {
-                next__3UHH=new_lab__MRJ(new_size__XUHH);
+                next__G3HH=new_lab__MRJ(new_size__A3HH);
               };
-              ((__POINTER *)next__3UHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__4UHH)[ 0]=next__3UHH;
+              ((__POINTER *)next__G3HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__H3HH)[ 0]=next__G3HH;
             } else {
-              ((__POINTER *)result__5UHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3UHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__5UHH=next__3UHH;
-            };
-          };
-          ptr__TUHH=result__5UHH;
-        } else {
-          t__YUHH=((__UINTEGER_32 )typ_id__UUHH);
-          a__ZUHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__GVHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VUHH + a__ZUHH) & (__UINTEGER_32)(~ a__ZUHH));
-          ptr_table__DVHH=((__POINTER )(&(table_type[(t__YUHH)])));
-          lab_type__FVHH=(__UINTEGER_32)(t__YUHH |  1);
-          next__CVHH=((__POINTER )(NULL));
-          result__EVHH=((__POINTER *)ptr_table__DVHH)[ 0];
-          if ((result__EVHH == (void *)NULL)) {
-            result__EVHH=new_lab__MRJ(lab_type__FVHH);
-            next__CVHH=(void *)((unsigned long)result__EVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GVHH)));
-            ((__POINTER *)next__CVHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DVHH)[ 0]=next__CVHH;
-          } else {
-            next__CVHH=((__POINTER *)result__EVHH)[ 0];
-            if ((next__CVHH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EVHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GVHH <<  1)) <=  4096)) {
-                next__CVHH=(void *)((unsigned long)result__EVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GVHH)));
+              ((__POINTER *)result__I3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__I3HH=next__G3HH;
+            };
+          };
+          ptr__22HH=result__I3HH;
+        } else {
+          t__B3HH=((__UINTEGER_32 )typ_id__32HH);
+          a__C3HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__P3HH=(__UINTEGER_32)((__UINTEGER_32)(sz__42HH + a__C3HH) & (__UINTEGER_32)(~ a__C3HH));
+          ptr_table__M3HH=((__POINTER )(&(table_type[(t__B3HH)])));
+          lab_type__O3HH=(__UINTEGER_32)(t__B3HH |  1);
+          next__L3HH=((__POINTER )(NULL));
+          result__N3HH=((__POINTER *)ptr_table__M3HH)[ 0];
+          if ((result__N3HH == (void *)NULL)) {
+            result__N3HH=new_lab__MRJ(lab_type__O3HH);
+            next__L3HH=(void *)((unsigned long)result__N3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3HH)));
+            ((__POINTER *)next__L3HH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__M3HH)[ 0]=next__L3HH;
+          } else {
+            next__L3HH=((__POINTER *)result__N3HH)[ 0];
+            if ((next__L3HH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__P3HH <<  1)) <=  4096)) {
+                next__L3HH=(void *)((unsigned long)result__N3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3HH)));
               } else {
-                next__CVHH=new_lab__MRJ(lab_type__FVHH);
+                next__L3HH=new_lab__MRJ(lab_type__O3HH);
               };
-              ((__POINTER *)next__CVHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__DVHH)[ 0]=next__CVHH;
+              ((__POINTER *)next__L3HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__M3HH)[ 0]=next__L3HH;
             } else {
-              ((__POINTER *)result__EVHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CVHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__EVHH=next__CVHH;
+              ((__POINTER *)result__N3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__N3HH=next__L3HH;
             };
           };
-          ptr__TUHH=result__EVHH;
+          ptr__22HH=result__N3HH;
         };
-        result__SUHH=((__ITM_OPERATOR *)ptr__TUHH);
-        *(result__SUHH) = *(ITM_OPERATOR__);
+        result__12HH=((__ITM_OPERATOR *)ptr__22HH);
+        *(result__12HH) = *(ITM_OPERATOR__);
       };
-      Self__0UHH=((__ITM_OPERATOR *)result__SUHH);
-      Self__0UHH->parent_itm_code__EFL.parent_itm_object__XDE.position__NDJ=p__1UHH;
-      Self__0UHH->name__PIL=n__2UHH;
-      expr__CFL=result__SUHH;
-      add_last__U5U(l_expr__DFL,result__SUHH);
+      Self__D3HH=((__ITM_OPERATOR *)result__12HH);
+      Self__D3HH->parent_itm_code__EFL.parent_itm_object__XDE.position__NDJ=p__E3HH;
+      Self__D3HH->name__PIL=n__F3HH;
+      expr__CFL=result__12HH;
+      add_last__U5U(l_expr__DFL,result__12HH);
     };
     expr__CFL=read_expr_message__0VL(Self__54I);
     if (((void *)expr__CFL == (void *)NULL)) {
       if ((! (((__FAST_ARRAYoITM_CODEo *)result__13H)->parent_arrayed_collection__RTF.upper__2HL <  0))) {
-        pos__JLWG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_237));
-        put_position__UOG(pos__JLWG);
+        pos__XUWG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_240));
+        put_position__UOG(pos__XUWG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -23678,61 +23936,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
               typ_id__ZSP=-1;
               clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__WSP);
               if ((typ_id__ZSP == (__INTEGER)(-  1))) {
-                a__A2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__B2EH=(__UINTEGER_32)((__UINTEGER_32)(sz__WSP + a__A2EH) & (__UINTEGER_32)(~ a__A2EH));
-                ptr_table__IVHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B2EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__HVHH=((__POINTER )(NULL));
-                result__JVHH=((__POINTER *)ptr_table__IVHH)[ 0];
-                if ((result__JVHH == (void *)NULL)) {
-                  result__JVHH=new_lab__MRJ(new_size__B2EH);
-                  next__HVHH=(void *)((unsigned long)result__JVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B2EH)));
-                  ((__POINTER *)next__HVHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__IVHH)[ 0]=next__HVHH;
+                a__FEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__GEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__WSP + a__FEFH) & (__UINTEGER_32)(~ a__FEFH));
+                ptr_table__R3HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                next__Q3HH=((__POINTER )(NULL));
+                result__S3HH=((__POINTER *)ptr_table__R3HH)[ 0];
+                if ((result__S3HH == (void *)NULL)) {
+                  result__S3HH=new_lab__MRJ(new_size__GEFH);
+                  next__Q3HH=(void *)((unsigned long)result__S3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GEFH)));
+                  ((__POINTER *)next__Q3HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__R3HH)[ 0]=next__Q3HH;
                 } else {
-                  next__HVHH=((__POINTER *)result__JVHH)[ 0];
-                  if ((next__HVHH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JVHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__B2EH <<  1)) <=  4096)) {
-                      next__HVHH=(void *)((unsigned long)result__JVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B2EH)));
+                  next__Q3HH=((__POINTER *)result__S3HH)[ 0];
+                  if ((next__Q3HH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GEFH <<  1)) <=  4096)) {
+                      next__Q3HH=(void *)((unsigned long)result__S3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GEFH)));
                     } else {
-                      next__HVHH=new_lab__MRJ(new_size__B2EH);
+                      next__Q3HH=new_lab__MRJ(new_size__GEFH);
                     };
-                    ((__POINTER *)next__HVHH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__IVHH)[ 0]=next__HVHH;
+                    ((__POINTER *)next__Q3HH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__R3HH)[ 0]=next__Q3HH;
                   } else {
-                    ((__POINTER *)result__JVHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HVHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__JVHH=next__HVHH;
+                    ((__POINTER *)result__S3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__S3HH=next__Q3HH;
                   };
                 };
-                ptr__USP=result__JVHH;
+                ptr__USP=result__S3HH;
               } else {
-                t__F2EH=((__UINTEGER_32 )typ_id__ZSP);
-                a__E2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__QVHH=(__UINTEGER_32)((__UINTEGER_32)(sz__WSP + a__E2EH) & (__UINTEGER_32)(~ a__E2EH));
-                ptr_table__NVHH=((__POINTER )(&(table_type[(t__F2EH)])));
-                lab_type__PVHH=(__UINTEGER_32)(t__F2EH |  1);
-                next__MVHH=((__POINTER )(NULL));
-                result__OVHH=((__POINTER *)ptr_table__NVHH)[ 0];
-                if ((result__OVHH == (void *)NULL)) {
-                  result__OVHH=new_lab__MRJ(lab_type__PVHH);
-                  next__MVHH=(void *)((unsigned long)result__OVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QVHH)));
-                  ((__POINTER *)next__MVHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__NVHH)[ 0]=next__MVHH;
+                t__KEFH=((__UINTEGER_32 )typ_id__ZSP);
+                a__JEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                new_size__Z3HH=(__UINTEGER_32)((__UINTEGER_32)(sz__WSP + a__JEFH) & (__UINTEGER_32)(~ a__JEFH));
+                ptr_table__W3HH=((__POINTER )(&(table_type[(t__KEFH)])));
+                lab_type__Y3HH=(__UINTEGER_32)(t__KEFH |  1);
+                next__V3HH=((__POINTER )(NULL));
+                result__X3HH=((__POINTER *)ptr_table__W3HH)[ 0];
+                if ((result__X3HH == (void *)NULL)) {
+                  result__X3HH=new_lab__MRJ(lab_type__Y3HH);
+                  next__V3HH=(void *)((unsigned long)result__X3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3HH)));
+                  ((__POINTER *)next__V3HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__W3HH)[ 0]=next__V3HH;
                 } else {
-                  next__MVHH=((__POINTER *)result__OVHH)[ 0];
-                  if ((next__MVHH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OVHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QVHH <<  1)) <=  4096)) {
-                      next__MVHH=(void *)((unsigned long)result__OVHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QVHH)));
+                  next__V3HH=((__POINTER *)result__X3HH)[ 0];
+                  if ((next__V3HH == (void *)NULL)) {
+                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Z3HH <<  1)) <=  4096)) {
+                      next__V3HH=(void *)((unsigned long)result__X3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3HH)));
                     } else {
-                      next__MVHH=new_lab__MRJ(lab_type__PVHH);
+                      next__V3HH=new_lab__MRJ(lab_type__Y3HH);
                     };
-                    ((__POINTER *)next__MVHH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__NVHH)[ 0]=next__MVHH;
+                    ((__POINTER *)next__V3HH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__W3HH)[ 0]=next__V3HH;
                   } else {
-                    ((__POINTER *)result__OVHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MVHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__OVHH=next__MVHH;
+                    ((__POINTER *)result__X3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                    result__X3HH=next__V3HH;
                   };
                 };
-                ptr__USP=result__OVHH;
+                ptr__USP=result__X3HH;
               };
               result__TSP=((__ITM_OPERATOR *)ptr__USP);
               *(result__TSP) = *(ITM_OPERATOR__);
@@ -23825,89 +24083,89 @@ static void* read_expr__44I(__PARSER *Self__54I)
         itm_op__FFL=__tmp__JIL;
         __tmp__MIL=((__ITM_OPERATOR *)__tmp__JIL)->parent_itm_code__EFL.parent_itm_object__XDE.position__NDJ;
         operator__name__3DO((&__string_82),((__ITM_OPERATOR *)__tmp__JIL)->name__PIL);
-        result__RVHH=NULL;
-        ptr__SVHH=((__POINTER )(NULL));
-        typ_id__TVHH= 0;
-        sz__UVHH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-        if ((sz__UVHH ==  0)) {
-          result__RVHH=ITM_READ_ARG1__;
-        } else {
-          typ_id__TVHH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__UVHH);
-          if ((typ_id__TVHH == (__INTEGER)(-  1))) {
-            a__VVHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__WVHH=(__UINTEGER_32)((__UINTEGER_32)(sz__UVHH + a__VVHH) & (__UINTEGER_32)(~ a__VVHH));
-            ptr_table__1VHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WVHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__0VHH=((__POINTER )(NULL));
-            result__2VHH=((__POINTER *)ptr_table__1VHH)[ 0];
-            if ((result__2VHH == (void *)NULL)) {
-              result__2VHH=new_lab__MRJ(new_size__WVHH);
-              next__0VHH=(void *)((unsigned long)result__2VHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVHH)));
-              ((__POINTER *)next__0VHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__1VHH)[ 0]=next__0VHH;
+        result__03HH=NULL;
+        ptr__13HH=((__POINTER )(NULL));
+        typ_id__23HH= 0;
+        sz__33HH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
+        if ((sz__33HH ==  0)) {
+          result__03HH=ITM_READ_ARG1__;
+        } else {
+          typ_id__23HH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__33HH);
+          if ((typ_id__23HH == (__INTEGER)(-  1))) {
+            a__43HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__53HH=(__UINTEGER_32)((__UINTEGER_32)(sz__33HH + a__43HH) & (__UINTEGER_32)(~ a__43HH));
+            ptr_table__E4HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__53HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__D4HH=((__POINTER )(NULL));
+            result__F4HH=((__POINTER *)ptr_table__E4HH)[ 0];
+            if ((result__F4HH == (void *)NULL)) {
+              result__F4HH=new_lab__MRJ(new_size__53HH);
+              next__D4HH=(void *)((unsigned long)result__F4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53HH)));
+              ((__POINTER *)next__D4HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__E4HH)[ 0]=next__D4HH;
             } else {
-              next__0VHH=((__POINTER *)result__2VHH)[ 0];
-              if ((next__0VHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2VHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WVHH <<  1)) <=  4096)) {
-                  next__0VHH=(void *)((unsigned long)result__2VHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVHH)));
+              next__D4HH=((__POINTER *)result__F4HH)[ 0];
+              if ((next__D4HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F4HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__53HH <<  1)) <=  4096)) {
+                  next__D4HH=(void *)((unsigned long)result__F4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__53HH)));
                 } else {
-                  next__0VHH=new_lab__MRJ(new_size__WVHH);
+                  next__D4HH=new_lab__MRJ(new_size__53HH);
                 };
-                ((__POINTER *)next__0VHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__1VHH)[ 0]=next__0VHH;
+                ((__POINTER *)next__D4HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__E4HH)[ 0]=next__D4HH;
               } else {
-                ((__POINTER *)result__2VHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0VHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__2VHH=next__0VHH;
+                ((__POINTER *)result__F4HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D4HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__F4HH=next__D4HH;
               };
             };
-            ptr__SVHH=result__2VHH;
-          } else {
-            t__XVHH=((__UINTEGER_32 )typ_id__TVHH);
-            a__YVHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__DWHH=(__UINTEGER_32)((__UINTEGER_32)(sz__UVHH + a__YVHH) & (__UINTEGER_32)(~ a__YVHH));
-            ptr_table__AWHH=((__POINTER )(&(table_type[(t__XVHH)])));
-            lab_type__CWHH=(__UINTEGER_32)(t__XVHH |  1);
-            next__5VHH=((__POINTER )(NULL));
-            result__BWHH=((__POINTER *)ptr_table__AWHH)[ 0];
-            if ((result__BWHH == (void *)NULL)) {
-              result__BWHH=new_lab__MRJ(lab_type__CWHH);
-              next__5VHH=(void *)((unsigned long)result__BWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DWHH)));
-              ((__POINTER *)next__5VHH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AWHH)[ 0]=next__5VHH;
+            ptr__13HH=result__F4HH;
+          } else {
+            t__A4HH=((__UINTEGER_32 )typ_id__23HH);
+            a__B4HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__M4HH=(__UINTEGER_32)((__UINTEGER_32)(sz__33HH + a__B4HH) & (__UINTEGER_32)(~ a__B4HH));
+            ptr_table__J4HH=((__POINTER )(&(table_type[(t__A4HH)])));
+            lab_type__L4HH=(__UINTEGER_32)(t__A4HH |  1);
+            next__I4HH=((__POINTER )(NULL));
+            result__K4HH=((__POINTER *)ptr_table__J4HH)[ 0];
+            if ((result__K4HH == (void *)NULL)) {
+              result__K4HH=new_lab__MRJ(lab_type__L4HH);
+              next__I4HH=(void *)((unsigned long)result__K4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M4HH)));
+              ((__POINTER *)next__I4HH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__J4HH)[ 0]=next__I4HH;
             } else {
-              next__5VHH=((__POINTER *)result__BWHH)[ 0];
-              if ((next__5VHH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BWHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DWHH <<  1)) <=  4096)) {
-                  next__5VHH=(void *)((unsigned long)result__BWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DWHH)));
+              next__I4HH=((__POINTER *)result__K4HH)[ 0];
+              if ((next__I4HH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K4HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__M4HH <<  1)) <=  4096)) {
+                  next__I4HH=(void *)((unsigned long)result__K4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M4HH)));
                 } else {
-                  next__5VHH=new_lab__MRJ(lab_type__CWHH);
+                  next__I4HH=new_lab__MRJ(lab_type__L4HH);
                 };
-                ((__POINTER *)next__5VHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__AWHH)[ 0]=next__5VHH;
+                ((__POINTER *)next__I4HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__J4HH)[ 0]=next__I4HH;
               } else {
-                ((__POINTER *)result__BWHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5VHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__BWHH=next__5VHH;
+                ((__POINTER *)result__K4HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I4HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__K4HH=next__I4HH;
               };
             };
-            ptr__SVHH=result__BWHH;
+            ptr__13HH=result__K4HH;
           };
-          result__RVHH=((__ITM_READ_ARG1 *)ptr__SVHH);
-          *(result__RVHH) = *(ITM_READ_ARG1__);
+          result__03HH=((__ITM_READ_ARG1 *)ptr__13HH);
+          *(result__03HH) = *(ITM_READ_ARG1__);
         };
-        ((__ITM_READ_ARG1 *)result__RVHH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=__tmp__MIL;
-        expr__CFL=result__RVHH;
-        ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__DFL)->parent_arrayed_collection__RTF.storage__FYT)[last_msg__GFL]=result__RVHH;
-        Self__EWHH=((__FAST_ARRAYoITM_CODEo *)l_expr__DFL);
-        index__IWHH=(__INTEGER)(last_msg__GFL +  1);
-        __tmp__FWHH=Self__EWHH->parent_arrayed_collection__RTF.storage__FYT;
-        __tmp__GWHH=Self__EWHH->parent_arrayed_collection__RTF.upper__2HL;
-        Self__HWHH=((void **)__tmp__FWHH);
-        i__JWHH=index__IWHH;
-        while ((i__JWHH != __tmp__GWHH)) {
-          Self__HWHH[i__JWHH]=Self__HWHH[(__INTEGER)(i__JWHH +  1)];
-          i__JWHH=(__INTEGER)(i__JWHH +  1);
+        ((__ITM_READ_ARG1 *)result__03HH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=__tmp__MIL;
+        expr__CFL=result__03HH;
+        ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__DFL)->parent_arrayed_collection__RTF.storage__FYT)[last_msg__GFL]=result__03HH;
+        Self__N4HH=((__FAST_ARRAYoITM_CODEo *)l_expr__DFL);
+        index__R4HH=(__INTEGER)(last_msg__GFL +  1);
+        __tmp__O4HH=Self__N4HH->parent_arrayed_collection__RTF.storage__FYT;
+        __tmp__P4HH=Self__N4HH->parent_arrayed_collection__RTF.upper__2HL;
+        Self__Q4HH=((void **)__tmp__O4HH);
+        i__S4HH=index__R4HH;
+        while ((i__S4HH != __tmp__P4HH)) {
+          Self__Q4HH[i__S4HH]=Self__Q4HH[(__INTEGER)(i__S4HH +  1)];
+          i__S4HH=(__INTEGER)(i__S4HH +  1);
         };
-        Self__EWHH->parent_arrayed_collection__RTF.upper__2HL=(__INTEGER)(Self__EWHH->parent_arrayed_collection__RTF.upper__2HL -  1);
+        Self__N4HH->parent_arrayed_collection__RTF.upper__2HL=(__INTEGER)(Self__N4HH->parent_arrayed_collection__RTF.upper__2HL -  1);
       };
       if (((__INTEGER)(last_msg__GFL - first_msg__HFL) <  3)) {
         while ((first_msg__HFL !=  0)) {
@@ -23987,78 +24245,78 @@ static void* read_expr__44I(__PARSER *Self__54I)
           itm_op__FFL=__tmp__QJL;
           __tmp__SJL=((__ITM_OPERATOR *)__tmp__QJL)->parent_itm_code__EFL.parent_itm_object__XDE.position__NDJ;
           operator__name__3DO((&__string_83),((__ITM_OPERATOR *)__tmp__QJL)->name__PIL);
-          result__LWHH=NULL;
-          ptr__MWHH=((__POINTER )(NULL));
-          typ_id__NWHH= 0;
-          sz__OWHH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-          if ((sz__OWHH ==  0)) {
-            result__LWHH=ITM_READ_ARG1__;
-          } else {
-            typ_id__NWHH=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OWHH);
-            if ((typ_id__NWHH == (__INTEGER)(-  1))) {
-              a__PWHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__QWHH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWHH + a__PWHH) & (__UINTEGER_32)(~ a__PWHH));
-              ptr_table__VWHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QWHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__UWHH=((__POINTER )(NULL));
-              result__WWHH=((__POINTER *)ptr_table__VWHH)[ 0];
-              if ((result__WWHH == (void *)NULL)) {
-                result__WWHH=new_lab__MRJ(new_size__QWHH);
-                next__UWHH=(void *)((unsigned long)result__WWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QWHH)));
-                ((__POINTER *)next__UWHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__VWHH)[ 0]=next__UWHH;
+          result__U4HH=NULL;
+          ptr__V4HH=((__POINTER )(NULL));
+          typ_id__W4HH= 0;
+          sz__X4HH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
+          if ((sz__X4HH ==  0)) {
+            result__U4HH=ITM_READ_ARG1__;
+          } else {
+            typ_id__W4HH=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__X4HH);
+            if ((typ_id__W4HH == (__INTEGER)(-  1))) {
+              a__Y4HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__Z4HH=(__UINTEGER_32)((__UINTEGER_32)(sz__X4HH + a__Y4HH) & (__UINTEGER_32)(~ a__Y4HH));
+              ptr_table__44HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z4HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__34HH=((__POINTER )(NULL));
+              result__54HH=((__POINTER *)ptr_table__44HH)[ 0];
+              if ((result__54HH == (void *)NULL)) {
+                result__54HH=new_lab__MRJ(new_size__Z4HH);
+                next__34HH=(void *)((unsigned long)result__54HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z4HH)));
+                ((__POINTER *)next__34HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__44HH)[ 0]=next__34HH;
               } else {
-                next__UWHH=((__POINTER *)result__WWHH)[ 0];
-                if ((next__UWHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WWHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QWHH <<  1)) <=  4096)) {
-                    next__UWHH=(void *)((unsigned long)result__WWHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QWHH)));
+                next__34HH=((__POINTER *)result__54HH)[ 0];
+                if ((next__34HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__54HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Z4HH <<  1)) <=  4096)) {
+                    next__34HH=(void *)((unsigned long)result__54HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z4HH)));
                   } else {
-                    next__UWHH=new_lab__MRJ(new_size__QWHH);
+                    next__34HH=new_lab__MRJ(new_size__Z4HH);
                   };
-                  ((__POINTER *)next__UWHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__VWHH)[ 0]=next__UWHH;
+                  ((__POINTER *)next__34HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__44HH)[ 0]=next__34HH;
                 } else {
-                  ((__POINTER *)result__WWHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UWHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__WWHH=next__UWHH;
+                  ((__POINTER *)result__54HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__34HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__54HH=next__34HH;
                 };
               };
-              ptr__MWHH=result__WWHH;
+              ptr__V4HH=result__54HH;
             } else {
-              t__RWHH=((__UINTEGER_32 )typ_id__NWHH);
-              a__SWHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3WHH=(__UINTEGER_32)((__UINTEGER_32)(sz__OWHH + a__SWHH) & (__UINTEGER_32)(~ a__SWHH));
-              ptr_table__0WHH=((__POINTER )(&(table_type[(t__RWHH)])));
-              lab_type__2WHH=(__UINTEGER_32)(t__RWHH |  1);
-              next__ZWHH=((__POINTER )(NULL));
-              result__1WHH=((__POINTER *)ptr_table__0WHH)[ 0];
-              if ((result__1WHH == (void *)NULL)) {
-                result__1WHH=new_lab__MRJ(lab_type__2WHH);
-                next__ZWHH=(void *)((unsigned long)result__1WHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3WHH)));
-                ((__POINTER *)next__ZWHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__0WHH)[ 0]=next__ZWHH;
+              t__04HH=((__UINTEGER_32 )typ_id__W4HH);
+              a__14HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__G5HH=(__UINTEGER_32)((__UINTEGER_32)(sz__X4HH + a__14HH) & (__UINTEGER_32)(~ a__14HH));
+              ptr_table__D5HH=((__POINTER )(&(table_type[(t__04HH)])));
+              lab_type__F5HH=(__UINTEGER_32)(t__04HH |  1);
+              next__C5HH=((__POINTER )(NULL));
+              result__E5HH=((__POINTER *)ptr_table__D5HH)[ 0];
+              if ((result__E5HH == (void *)NULL)) {
+                result__E5HH=new_lab__MRJ(lab_type__F5HH);
+                next__C5HH=(void *)((unsigned long)result__E5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G5HH)));
+                ((__POINTER *)next__C5HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__D5HH)[ 0]=next__C5HH;
               } else {
-                next__ZWHH=((__POINTER *)result__1WHH)[ 0];
-                if ((next__ZWHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1WHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3WHH <<  1)) <=  4096)) {
-                    next__ZWHH=(void *)((unsigned long)result__1WHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3WHH)));
+                next__C5HH=((__POINTER *)result__E5HH)[ 0];
+                if ((next__C5HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__G5HH <<  1)) <=  4096)) {
+                    next__C5HH=(void *)((unsigned long)result__E5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G5HH)));
                   } else {
-                    next__ZWHH=new_lab__MRJ(lab_type__2WHH);
+                    next__C5HH=new_lab__MRJ(lab_type__F5HH);
                   };
-                  ((__POINTER *)next__ZWHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__0WHH)[ 0]=next__ZWHH;
+                  ((__POINTER *)next__C5HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__D5HH)[ 0]=next__C5HH;
                 } else {
-                  ((__POINTER *)result__1WHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZWHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__1WHH=next__ZWHH;
+                  ((__POINTER *)result__E5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__E5HH=next__C5HH;
                 };
               };
-              ptr__MWHH=result__1WHH;
+              ptr__V4HH=result__E5HH;
             };
-            result__LWHH=((__ITM_READ_ARG1 *)ptr__MWHH);
-            *(result__LWHH) = *(ITM_READ_ARG1__);
+            result__U4HH=((__ITM_READ_ARG1 *)ptr__V4HH);
+            *(result__U4HH) = *(ITM_READ_ARG1__);
           };
-          ((__ITM_READ_ARG1 *)result__LWHH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=__tmp__SJL;
-          expr__CFL=result__LWHH;
-          ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__DFL)->parent_arrayed_collection__RTF.storage__FYT)[first_msg__HFL]=result__LWHH;
+          ((__ITM_READ_ARG1 *)result__U4HH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=__tmp__SJL;
+          expr__CFL=result__U4HH;
+          ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__DFL)->parent_arrayed_collection__RTF.storage__FYT)[first_msg__HFL]=result__U4HH;
           first_msg__HFL=(__INTEGER)(first_msg__HFL -  1);
           Self__HE1C=((__FAST_ARRAYoITM_CODEo *)l_expr__DFL);
           __tmp__QE1C=Self__HE1C->parent_arrayed_collection__RTF.storage__FYT;
@@ -24167,61 +24425,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
             typ_id__NXO=-1;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__KXO);
             if ((typ_id__NXO == (__INTEGER)(-  1))) {
-              a__W2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__X2EH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXO + a__W2EH) & (__UINTEGER_32)(~ a__W2EH));
-              ptr_table__5WHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X2EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__4WHH=((__POINTER )(NULL));
-              result__AXHH=((__POINTER *)ptr_table__5WHH)[ 0];
-              if ((result__AXHH == (void *)NULL)) {
-                result__AXHH=new_lab__MRJ(new_size__X2EH);
-                next__4WHH=(void *)((unsigned long)result__AXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X2EH)));
-                ((__POINTER *)next__4WHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__5WHH)[ 0]=next__4WHH;
+              a__1EFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__2EFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXO + a__1EFH) & (__UINTEGER_32)(~ a__1EFH));
+              ptr_table__I5HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2EFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__H5HH=((__POINTER )(NULL));
+              result__J5HH=((__POINTER *)ptr_table__I5HH)[ 0];
+              if ((result__J5HH == (void *)NULL)) {
+                result__J5HH=new_lab__MRJ(new_size__2EFH);
+                next__H5HH=(void *)((unsigned long)result__J5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2EFH)));
+                ((__POINTER *)next__H5HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__I5HH)[ 0]=next__H5HH;
               } else {
-                next__4WHH=((__POINTER *)result__AXHH)[ 0];
-                if ((next__4WHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__X2EH <<  1)) <=  4096)) {
-                    next__4WHH=(void *)((unsigned long)result__AXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X2EH)));
+                next__H5HH=((__POINTER *)result__J5HH)[ 0];
+                if ((next__H5HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2EFH <<  1)) <=  4096)) {
+                    next__H5HH=(void *)((unsigned long)result__J5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2EFH)));
                   } else {
-                    next__4WHH=new_lab__MRJ(new_size__X2EH);
+                    next__H5HH=new_lab__MRJ(new_size__2EFH);
                   };
-                  ((__POINTER *)next__4WHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__5WHH)[ 0]=next__4WHH;
+                  ((__POINTER *)next__H5HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__I5HH)[ 0]=next__H5HH;
                 } else {
-                  ((__POINTER *)result__AXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4WHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__AXHH=next__4WHH;
+                  ((__POINTER *)result__J5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__J5HH=next__H5HH;
                 };
               };
-              ptr__IXO=result__AXHH;
+              ptr__IXO=result__J5HH;
             } else {
-              t__12EH=((__UINTEGER_32 )typ_id__NXO);
-              a__02EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__HXHH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXO + a__02EH) & (__UINTEGER_32)(~ a__02EH));
-              ptr_table__EXHH=((__POINTER )(&(table_type[(t__12EH)])));
-              lab_type__GXHH=(__UINTEGER_32)(t__12EH |  1);
-              next__DXHH=((__POINTER )(NULL));
-              result__FXHH=((__POINTER *)ptr_table__EXHH)[ 0];
-              if ((result__FXHH == (void *)NULL)) {
-                result__FXHH=new_lab__MRJ(lab_type__GXHH);
-                next__DXHH=(void *)((unsigned long)result__FXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HXHH)));
-                ((__POINTER *)next__DXHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__EXHH)[ 0]=next__DXHH;
+              t__AFFH=((__UINTEGER_32 )typ_id__NXO);
+              a__5EFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__Q5HH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXO + a__5EFH) & (__UINTEGER_32)(~ a__5EFH));
+              ptr_table__N5HH=((__POINTER )(&(table_type[(t__AFFH)])));
+              lab_type__P5HH=(__UINTEGER_32)(t__AFFH |  1);
+              next__M5HH=((__POINTER )(NULL));
+              result__O5HH=((__POINTER *)ptr_table__N5HH)[ 0];
+              if ((result__O5HH == (void *)NULL)) {
+                result__O5HH=new_lab__MRJ(lab_type__P5HH);
+                next__M5HH=(void *)((unsigned long)result__O5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5HH)));
+                ((__POINTER *)next__M5HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__N5HH)[ 0]=next__M5HH;
               } else {
-                next__DXHH=((__POINTER *)result__FXHH)[ 0];
-                if ((next__DXHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HXHH <<  1)) <=  4096)) {
-                    next__DXHH=(void *)((unsigned long)result__FXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HXHH)));
+                next__M5HH=((__POINTER *)result__O5HH)[ 0];
+                if ((next__M5HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q5HH <<  1)) <=  4096)) {
+                    next__M5HH=(void *)((unsigned long)result__O5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5HH)));
                   } else {
-                    next__DXHH=new_lab__MRJ(lab_type__GXHH);
+                    next__M5HH=new_lab__MRJ(lab_type__P5HH);
                   };
-                  ((__POINTER *)next__DXHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__EXHH)[ 0]=next__DXHH;
+                  ((__POINTER *)next__M5HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__N5HH)[ 0]=next__M5HH;
                 } else {
-                  ((__POINTER *)result__FXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__FXHH=next__DXHH;
+                  ((__POINTER *)result__O5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__O5HH=next__M5HH;
                 };
               };
-              ptr__IXO=result__FXHH;
+              ptr__IXO=result__O5HH;
             };
             result__HXO=((__ITM_READ_ARG2 *)ptr__IXO);
             *(result__HXO) = *(ITM_READ_ARG2__);
@@ -24241,61 +24499,61 @@ static void* read_expr__44I(__PARSER *Self__54I)
             typ_id__AZO=-1;
             clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__3YO);
             if ((typ_id__AZO == (__INTEGER)(-  1))) {
-              a__ZNEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__0NEH=(__UINTEGER_32)((__UINTEGER_32)(sz__3YO + a__ZNEH) & (__UINTEGER_32)(~ a__ZNEH));
-              ptr_table__JXHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0NEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__IXHH=((__POINTER )(NULL));
-              result__KXHH=((__POINTER *)ptr_table__JXHH)[ 0];
-              if ((result__KXHH == (void *)NULL)) {
-                result__KXHH=new_lab__MRJ(new_size__0NEH);
-                next__IXHH=(void *)((unsigned long)result__KXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0NEH)));
-                ((__POINTER *)next__IXHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__JXHH)[ 0]=next__IXHH;
+              a__UWEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__VWEH=(__UINTEGER_32)((__UINTEGER_32)(sz__3YO + a__UWEH) & (__UINTEGER_32)(~ a__UWEH));
+              ptr_table__S5HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VWEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__R5HH=((__POINTER )(NULL));
+              result__T5HH=((__POINTER *)ptr_table__S5HH)[ 0];
+              if ((result__T5HH == (void *)NULL)) {
+                result__T5HH=new_lab__MRJ(new_size__VWEH);
+                next__R5HH=(void *)((unsigned long)result__T5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VWEH)));
+                ((__POINTER *)next__R5HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__S5HH)[ 0]=next__R5HH;
               } else {
-                next__IXHH=((__POINTER *)result__KXHH)[ 0];
-                if ((next__IXHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0NEH <<  1)) <=  4096)) {
-                    next__IXHH=(void *)((unsigned long)result__KXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0NEH)));
+                next__R5HH=((__POINTER *)result__T5HH)[ 0];
+                if ((next__R5HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VWEH <<  1)) <=  4096)) {
+                    next__R5HH=(void *)((unsigned long)result__T5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VWEH)));
                   } else {
-                    next__IXHH=new_lab__MRJ(new_size__0NEH);
+                    next__R5HH=new_lab__MRJ(new_size__VWEH);
                   };
-                  ((__POINTER *)next__IXHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__JXHH)[ 0]=next__IXHH;
+                  ((__POINTER *)next__R5HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__S5HH)[ 0]=next__R5HH;
                 } else {
-                  ((__POINTER *)result__KXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__KXHH=next__IXHH;
+                  ((__POINTER *)result__T5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__T5HH=next__R5HH;
                 };
               };
-              ptr__1YO=result__KXHH;
+              ptr__1YO=result__T5HH;
             } else {
-              t__4NEH=((__UINTEGER_32 )typ_id__AZO);
-              a__3NEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__RXHH=(__UINTEGER_32)((__UINTEGER_32)(sz__3YO + a__3NEH) & (__UINTEGER_32)(~ a__3NEH));
-              ptr_table__OXHH=((__POINTER )(&(table_type[(t__4NEH)])));
-              lab_type__QXHH=(__UINTEGER_32)(t__4NEH |  1);
-              next__NXHH=((__POINTER )(NULL));
-              result__PXHH=((__POINTER *)ptr_table__OXHH)[ 0];
-              if ((result__PXHH == (void *)NULL)) {
-                result__PXHH=new_lab__MRJ(lab_type__QXHH);
-                next__NXHH=(void *)((unsigned long)result__PXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RXHH)));
-                ((__POINTER *)next__NXHH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OXHH)[ 0]=next__NXHH;
+              t__ZWEH=((__UINTEGER_32 )typ_id__AZO);
+              a__YWEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__05HH=(__UINTEGER_32)((__UINTEGER_32)(sz__3YO + a__YWEH) & (__UINTEGER_32)(~ a__YWEH));
+              ptr_table__X5HH=((__POINTER )(&(table_type[(t__ZWEH)])));
+              lab_type__Z5HH=(__UINTEGER_32)(t__ZWEH |  1);
+              next__W5HH=((__POINTER )(NULL));
+              result__Y5HH=((__POINTER *)ptr_table__X5HH)[ 0];
+              if ((result__Y5HH == (void *)NULL)) {
+                result__Y5HH=new_lab__MRJ(lab_type__Z5HH);
+                next__W5HH=(void *)((unsigned long)result__Y5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__05HH)));
+                ((__POINTER *)next__W5HH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__X5HH)[ 0]=next__W5HH;
               } else {
-                next__NXHH=((__POINTER *)result__PXHH)[ 0];
-                if ((next__NXHH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RXHH <<  1)) <=  4096)) {
-                    next__NXHH=(void *)((unsigned long)result__PXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RXHH)));
+                next__W5HH=((__POINTER *)result__Y5HH)[ 0];
+                if ((next__W5HH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__05HH <<  1)) <=  4096)) {
+                    next__W5HH=(void *)((unsigned long)result__Y5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__05HH)));
                   } else {
-                    next__NXHH=new_lab__MRJ(lab_type__QXHH);
+                    next__W5HH=new_lab__MRJ(lab_type__Z5HH);
                   };
-                  ((__POINTER *)next__NXHH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__OXHH)[ 0]=next__NXHH;
+                  ((__POINTER *)next__W5HH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__X5HH)[ 0]=next__W5HH;
                 } else {
-                  ((__POINTER *)result__PXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__PXHH=next__NXHH;
+                  ((__POINTER *)result__Y5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__Y5HH=next__W5HH;
                 };
               };
-              ptr__1YO=result__PXHH;
+              ptr__1YO=result__Y5HH;
             };
             result__0YO=((__ITM_EXPRESSION *)ptr__1YO);
             *(result__0YO) = *(ITM_EXPRESSION__);
@@ -24316,28 +24574,28 @@ static void set_value__type__ZFHC(__ITM_SLOT *Self__0FHC,void *e__1FHC,void *p__
   void *n__3BBD;
   void *sec__4BBD;
   __POSITION __tmp__KCBD,__tmp__SCBD,__tmp__GDBD,__tmp__PDBD;
-  __ITM_ARG *result__VGGH,*Self__3GGH;
-  __POINTER ptr__WGGH,ptr_table__TXHH,next__SXHH,result__UXHH;
-  __POINTER ptr_table__YXHH,next__XXHH,result__ZXHH,ptr__MSAC;
-  __POINTER ptr_table__3XHH,next__2XHH,result__4XHH,ptr_table__CYHH;
-  __POINTER next__BYHH,result__DYHH,ptr__JUI,ptr_table__HYHH,next__GYHH;
-  __POINTER result__IYHH,ptr_table__MYHH,next__LYHH,result__NYHH;
-  __POINTER ptr__OFCD,ptr_table__RYHH,next__QYHH,result__SYHH;
-  __POINTER ptr_table__WYHH,next__VYHH,result__XYHH;
-  __INTEGER typ_id__XGGH,typ_id__RSAC,typ_id__OUI,typ_id__TFCD;
-  __UINTEGER_32 sz__YGGH,a__ZGGH,new_size__0GGH,t__1GGH,a__2GGH;
-  __UINTEGER_32 new_size__1XHH,lab_type__0XHH,sz__OSAC,a__EOEH;
-  __UINTEGER_32 new_size__FOEH,t__JOEH,a__IOEH,new_size__FYHH;
-  __UINTEGER_32 lab_type__EYHH,sz__LUI,a__APEH,new_size__BPEH,t__FPEH;
-  __UINTEGER_32 a__EPEH,new_size__PYHH,lab_type__OYHH,sz__QFCD,a__IPEH;
-  __UINTEGER_32 new_size__JPEH,t__NPEH,a__MPEH,new_size__ZYHH;
-  __UINTEGER_32 lab_type__YYHH;
+  __ITM_ARG *result__CPGH,*Self__KPGH;
+  __POINTER ptr__DPGH,ptr_table__25HH,next__15HH,result__35HH;
+  __POINTER ptr_table__BAIH,next__AAIH,result__CAIH,ptr__MSAC;
+  __POINTER ptr_table__GAIH,next__FAIH,result__HAIH,ptr_table__LAIH;
+  __POINTER next__KAIH,result__MAIH,ptr__JUI,ptr_table__QAIH,next__PAIH;
+  __POINTER result__RAIH,ptr_table__VAIH,next__UAIH,result__WAIH;
+  __POINTER ptr__OFCD,ptr_table__0AIH,next__ZAIH,result__1AIH;
+  __POINTER ptr_table__5AIH,next__4AIH,result__ABIH;
+  __INTEGER typ_id__EPGH,typ_id__RSAC,typ_id__OUI,typ_id__TFCD;
+  __UINTEGER_32 sz__FPGH,a__GPGH,new_size__HPGH,t__IPGH,a__JPGH;
+  __UINTEGER_32 new_size__EAIH,lab_type__DAIH,sz__OSAC,a__5WEH;
+  __UINTEGER_32 new_size__AXEH,t__EXEH,a__DXEH,new_size__OAIH;
+  __UINTEGER_32 lab_type__NAIH,sz__LUI,a__1XEH,new_size__2XEH,t__AYEH;
+  __UINTEGER_32 a__5XEH,new_size__YAIH,lab_type__XAIH,sz__QFCD,a__DYEH;
+  __UINTEGER_32 new_size__EYEH,t__IYEH,a__HYEH,new_size__CBIH;
+  __UINTEGER_32 lab_type__BBIH;
   __ITM_SLOT *result__LSAC,*Self__J2HC;
   __ITM_PROTOTYPE *result__IUI;
   __ITM_READ_ARG1 *result__NFCD;
   void *larg__5BBD;
   if ((Self__0FHC->affect__JAGC != '<')) {
-    copy__ZCS(string_tmp__VH,(&__string_238));
+    copy__ZCS(string_tmp__VH,(&__string_241));
     append__BOS(string_tmp__VH,Self__0FHC->parent_named__P5.name__LI);
     n__3BBD=get__IWB(string_tmp__VH);
     sec__4BBD=get_name__0UOB((&__string_27));
@@ -24410,80 +24668,80 @@ static void set_value__type__ZFHC(__ITM_SLOT *Self__0FHC,void *e__1FHC,void *p__
       __tmp__KCBD=position__FJHC(e__1FHC);
     } break;
     };
-    result__VGGH=NULL;
-    ptr__WGGH=((__POINTER )(NULL));
-    typ_id__XGGH= 0;
-    sz__YGGH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-    if ((sz__YGGH ==  0)) {
-      result__VGGH=ITM_ARG__;
-    } else {
-      typ_id__XGGH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YGGH);
-      if ((typ_id__XGGH == (__INTEGER)(-  1))) {
-        a__ZGGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__0GGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YGGH + a__ZGGH) & (__UINTEGER_32)(~ a__ZGGH));
-        ptr_table__TXHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0GGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__SXHH=((__POINTER )(NULL));
-        result__UXHH=((__POINTER *)ptr_table__TXHH)[ 0];
-        if ((result__UXHH == (void *)NULL)) {
-          result__UXHH=new_lab__MRJ(new_size__0GGH);
-          next__SXHH=(void *)((unsigned long)result__UXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0GGH)));
-          ((__POINTER *)next__SXHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__TXHH)[ 0]=next__SXHH;
-        } else {
-          next__SXHH=((__POINTER *)result__UXHH)[ 0];
-          if ((next__SXHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0GGH <<  1)) <=  4096)) {
-              next__SXHH=(void *)((unsigned long)result__UXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0GGH)));
+    result__CPGH=NULL;
+    ptr__DPGH=((__POINTER )(NULL));
+    typ_id__EPGH= 0;
+    sz__FPGH=((__UINTEGER_32 )sizeof(__ITM_ARG));
+    if ((sz__FPGH ==  0)) {
+      result__CPGH=ITM_ARG__;
+    } else {
+      typ_id__EPGH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FPGH);
+      if ((typ_id__EPGH == (__INTEGER)(-  1))) {
+        a__GPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__HPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__FPGH + a__GPGH) & (__UINTEGER_32)(~ a__GPGH));
+        ptr_table__25HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__15HH=((__POINTER )(NULL));
+        result__35HH=((__POINTER *)ptr_table__25HH)[ 0];
+        if ((result__35HH == (void *)NULL)) {
+          result__35HH=new_lab__MRJ(new_size__HPGH);
+          next__15HH=(void *)((unsigned long)result__35HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPGH)));
+          ((__POINTER *)next__15HH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__25HH)[ 0]=next__15HH;
+        } else {
+          next__15HH=((__POINTER *)result__35HH)[ 0];
+          if ((next__15HH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__35HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HPGH <<  1)) <=  4096)) {
+              next__15HH=(void *)((unsigned long)result__35HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPGH)));
             } else {
-              next__SXHH=new_lab__MRJ(new_size__0GGH);
-            };
-            ((__POINTER *)next__SXHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__TXHH)[ 0]=next__SXHH;
-          } else {
-            ((__POINTER *)result__UXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__UXHH=next__SXHH;
-          };
-        };
-        ptr__WGGH=result__UXHH;
-      } else {
-        t__1GGH=((__UINTEGER_32 )typ_id__XGGH);
-        a__2GGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__1XHH=(__UINTEGER_32)((__UINTEGER_32)(sz__YGGH + a__2GGH) & (__UINTEGER_32)(~ a__2GGH));
-        ptr_table__YXHH=((__POINTER )(&(table_type[(t__1GGH)])));
-        lab_type__0XHH=(__UINTEGER_32)(t__1GGH |  1);
-        next__XXHH=((__POINTER )(NULL));
-        result__ZXHH=((__POINTER *)ptr_table__YXHH)[ 0];
-        if ((result__ZXHH == (void *)NULL)) {
-          result__ZXHH=new_lab__MRJ(lab_type__0XHH);
-          next__XXHH=(void *)((unsigned long)result__ZXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1XHH)));
-          ((__POINTER *)next__XXHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__YXHH)[ 0]=next__XXHH;
-        } else {
-          next__XXHH=((__POINTER *)result__ZXHH)[ 0];
-          if ((next__XXHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZXHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1XHH <<  1)) <=  4096)) {
-              next__XXHH=(void *)((unsigned long)result__ZXHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1XHH)));
+              next__15HH=new_lab__MRJ(new_size__HPGH);
+            };
+            ((__POINTER *)next__15HH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__25HH)[ 0]=next__15HH;
+          } else {
+            ((__POINTER *)result__35HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__15HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__35HH=next__15HH;
+          };
+        };
+        ptr__DPGH=result__35HH;
+      } else {
+        t__IPGH=((__UINTEGER_32 )typ_id__EPGH);
+        a__JPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__EAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FPGH + a__JPGH) & (__UINTEGER_32)(~ a__JPGH));
+        ptr_table__BAIH=((__POINTER )(&(table_type[(t__IPGH)])));
+        lab_type__DAIH=(__UINTEGER_32)(t__IPGH |  1);
+        next__AAIH=((__POINTER )(NULL));
+        result__CAIH=((__POINTER *)ptr_table__BAIH)[ 0];
+        if ((result__CAIH == (void *)NULL)) {
+          result__CAIH=new_lab__MRJ(lab_type__DAIH);
+          next__AAIH=(void *)((unsigned long)result__CAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAIH)));
+          ((__POINTER *)next__AAIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__BAIH)[ 0]=next__AAIH;
+        } else {
+          next__AAIH=((__POINTER *)result__CAIH)[ 0];
+          if ((next__AAIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EAIH <<  1)) <=  4096)) {
+              next__AAIH=(void *)((unsigned long)result__CAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAIH)));
             } else {
-              next__XXHH=new_lab__MRJ(lab_type__0XHH);
+              next__AAIH=new_lab__MRJ(lab_type__DAIH);
             };
-            ((__POINTER *)next__XXHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__YXHH)[ 0]=next__XXHH;
+            ((__POINTER *)next__AAIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__BAIH)[ 0]=next__AAIH;
           } else {
-            ((__POINTER *)result__ZXHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XXHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__ZXHH=next__XXHH;
+            ((__POINTER *)result__CAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__CAIH=next__AAIH;
           };
         };
-        ptr__WGGH=result__ZXHH;
+        ptr__DPGH=result__CAIH;
       };
-      result__VGGH=((__ITM_ARG *)ptr__WGGH);
-      *(result__VGGH) = *(ITM_ARG__);
+      result__CPGH=((__ITM_ARG *)ptr__DPGH);
+      *(result__CPGH) = *(ITM_ARG__);
     };
-    Self__3GGH=((__ITM_ARG *)result__VGGH);
-    Self__3GGH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=__tmp__KCBD;
-    Self__3GGH->name__10HC=(&__string_58);
-    Self__3GGH->type__20HC=type_self__HUN;
-    add_last__05GC(larg__5BBD,result__VGGH);
+    Self__KPGH=((__ITM_ARG *)result__CPGH);
+    Self__KPGH->parent_itm_argument__ZHHB.parent_itm_code__S4M.position__NDJ=__tmp__KCBD;
+    Self__KPGH->name__10HC=(&__string_58);
+    Self__KPGH->type__20HC=type_self__HUN;
+    add_last__05GC(larg__5BBD,result__CPGH);
     switch (((struct ___OBJ *)e__1FHC)->__id) {
     case __ITM_LIST__: {
       __tmp__SCBD=((__ITM_LIST *)e__1FHC)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ;
@@ -24562,61 +24820,61 @@ static void set_value__type__ZFHC(__ITM_SLOT *Self__0FHC,void *e__1FHC,void *p__
       typ_id__RSAC=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OSAC);
       if ((typ_id__RSAC == (__INTEGER)(-  1))) {
-        a__EOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__FOEH=(__UINTEGER_32)((__UINTEGER_32)(sz__OSAC + a__EOEH) & (__UINTEGER_32)(~ a__EOEH));
-        ptr_table__3XHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FOEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__2XHH=((__POINTER )(NULL));
-        result__4XHH=((__POINTER *)ptr_table__3XHH)[ 0];
-        if ((result__4XHH == (void *)NULL)) {
-          result__4XHH=new_lab__MRJ(new_size__FOEH);
-          next__2XHH=(void *)((unsigned long)result__4XHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FOEH)));
-          ((__POINTER *)next__2XHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3XHH)[ 0]=next__2XHH;
-        } else {
-          next__2XHH=((__POINTER *)result__4XHH)[ 0];
-          if ((next__2XHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4XHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FOEH <<  1)) <=  4096)) {
-              next__2XHH=(void *)((unsigned long)result__4XHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FOEH)));
+        a__5WEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__AXEH=(__UINTEGER_32)((__UINTEGER_32)(sz__OSAC + a__5WEH) & (__UINTEGER_32)(~ a__5WEH));
+        ptr_table__GAIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AXEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__FAIH=((__POINTER )(NULL));
+        result__HAIH=((__POINTER *)ptr_table__GAIH)[ 0];
+        if ((result__HAIH == (void *)NULL)) {
+          result__HAIH=new_lab__MRJ(new_size__AXEH);
+          next__FAIH=(void *)((unsigned long)result__HAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AXEH)));
+          ((__POINTER *)next__FAIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__GAIH)[ 0]=next__FAIH;
+        } else {
+          next__FAIH=((__POINTER *)result__HAIH)[ 0];
+          if ((next__FAIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AXEH <<  1)) <=  4096)) {
+              next__FAIH=(void *)((unsigned long)result__HAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AXEH)));
             } else {
-              next__2XHH=new_lab__MRJ(new_size__FOEH);
-            };
-            ((__POINTER *)next__2XHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__3XHH)[ 0]=next__2XHH;
-          } else {
-            ((__POINTER *)result__4XHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2XHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__4XHH=next__2XHH;
-          };
-        };
-        ptr__MSAC=result__4XHH;
-      } else {
-        t__JOEH=((__UINTEGER_32 )typ_id__RSAC);
-        a__IOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__FYHH=(__UINTEGER_32)((__UINTEGER_32)(sz__OSAC + a__IOEH) & (__UINTEGER_32)(~ a__IOEH));
-        ptr_table__CYHH=((__POINTER )(&(table_type[(t__JOEH)])));
-        lab_type__EYHH=(__UINTEGER_32)(t__JOEH |  1);
-        next__BYHH=((__POINTER )(NULL));
-        result__DYHH=((__POINTER *)ptr_table__CYHH)[ 0];
-        if ((result__DYHH == (void *)NULL)) {
-          result__DYHH=new_lab__MRJ(lab_type__EYHH);
-          next__BYHH=(void *)((unsigned long)result__DYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FYHH)));
-          ((__POINTER *)next__BYHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CYHH)[ 0]=next__BYHH;
-        } else {
-          next__BYHH=((__POINTER *)result__DYHH)[ 0];
-          if ((next__BYHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FYHH <<  1)) <=  4096)) {
-              next__BYHH=(void *)((unsigned long)result__DYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FYHH)));
+              next__FAIH=new_lab__MRJ(new_size__AXEH);
+            };
+            ((__POINTER *)next__FAIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__GAIH)[ 0]=next__FAIH;
+          } else {
+            ((__POINTER *)result__HAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__HAIH=next__FAIH;
+          };
+        };
+        ptr__MSAC=result__HAIH;
+      } else {
+        t__EXEH=((__UINTEGER_32 )typ_id__RSAC);
+        a__DXEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__OAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__OSAC + a__DXEH) & (__UINTEGER_32)(~ a__DXEH));
+        ptr_table__LAIH=((__POINTER )(&(table_type[(t__EXEH)])));
+        lab_type__NAIH=(__UINTEGER_32)(t__EXEH |  1);
+        next__KAIH=((__POINTER )(NULL));
+        result__MAIH=((__POINTER *)ptr_table__LAIH)[ 0];
+        if ((result__MAIH == (void *)NULL)) {
+          result__MAIH=new_lab__MRJ(lab_type__NAIH);
+          next__KAIH=(void *)((unsigned long)result__MAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OAIH)));
+          ((__POINTER *)next__KAIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__LAIH)[ 0]=next__KAIH;
+        } else {
+          next__KAIH=((__POINTER *)result__MAIH)[ 0];
+          if ((next__KAIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OAIH <<  1)) <=  4096)) {
+              next__KAIH=(void *)((unsigned long)result__MAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OAIH)));
             } else {
-              next__BYHH=new_lab__MRJ(lab_type__EYHH);
+              next__KAIH=new_lab__MRJ(lab_type__NAIH);
             };
-            ((__POINTER *)next__BYHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CYHH)[ 0]=next__BYHH;
+            ((__POINTER *)next__KAIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__LAIH)[ 0]=next__KAIH;
           } else {
-            ((__POINTER *)result__DYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__DYHH=next__BYHH;
+            ((__POINTER *)result__MAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__MAIH=next__KAIH;
           };
         };
-        ptr__MSAC=result__DYHH;
+        ptr__MSAC=result__MAIH;
       };
       result__LSAC=((__ITM_SLOT *)ptr__MSAC);
       *(result__LSAC) = *(ITM_SLOT__);
@@ -24709,61 +24967,61 @@ static void set_value__type__ZFHC(__ITM_SLOT *Self__0FHC,void *e__1FHC,void *p__
       typ_id__OUI=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__LUI);
       if ((typ_id__OUI == (__INTEGER)(-  1))) {
-        a__APEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__BPEH=(__UINTEGER_32)((__UINTEGER_32)(sz__LUI + a__APEH) & (__UINTEGER_32)(~ a__APEH));
-        ptr_table__HYHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BPEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__GYHH=((__POINTER )(NULL));
-        result__IYHH=((__POINTER *)ptr_table__HYHH)[ 0];
-        if ((result__IYHH == (void *)NULL)) {
-          result__IYHH=new_lab__MRJ(new_size__BPEH);
-          next__GYHH=(void *)((unsigned long)result__IYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BPEH)));
-          ((__POINTER *)next__GYHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HYHH)[ 0]=next__GYHH;
-        } else {
-          next__GYHH=((__POINTER *)result__IYHH)[ 0];
-          if ((next__GYHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BPEH <<  1)) <=  4096)) {
-              next__GYHH=(void *)((unsigned long)result__IYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BPEH)));
+        a__1XEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__2XEH=(__UINTEGER_32)((__UINTEGER_32)(sz__LUI + a__1XEH) & (__UINTEGER_32)(~ a__1XEH));
+        ptr_table__QAIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2XEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__PAIH=((__POINTER )(NULL));
+        result__RAIH=((__POINTER *)ptr_table__QAIH)[ 0];
+        if ((result__RAIH == (void *)NULL)) {
+          result__RAIH=new_lab__MRJ(new_size__2XEH);
+          next__PAIH=(void *)((unsigned long)result__RAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XEH)));
+          ((__POINTER *)next__PAIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__QAIH)[ 0]=next__PAIH;
+        } else {
+          next__PAIH=((__POINTER *)result__RAIH)[ 0];
+          if ((next__PAIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2XEH <<  1)) <=  4096)) {
+              next__PAIH=(void *)((unsigned long)result__RAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XEH)));
             } else {
-              next__GYHH=new_lab__MRJ(new_size__BPEH);
-            };
-            ((__POINTER *)next__GYHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__HYHH)[ 0]=next__GYHH;
-          } else {
-            ((__POINTER *)result__IYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__IYHH=next__GYHH;
-          };
-        };
-        ptr__JUI=result__IYHH;
-      } else {
-        t__FPEH=((__UINTEGER_32 )typ_id__OUI);
-        a__EPEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__PYHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LUI + a__EPEH) & (__UINTEGER_32)(~ a__EPEH));
-        ptr_table__MYHH=((__POINTER )(&(table_type[(t__FPEH)])));
-        lab_type__OYHH=(__UINTEGER_32)(t__FPEH |  1);
-        next__LYHH=((__POINTER )(NULL));
-        result__NYHH=((__POINTER *)ptr_table__MYHH)[ 0];
-        if ((result__NYHH == (void *)NULL)) {
-          result__NYHH=new_lab__MRJ(lab_type__OYHH);
-          next__LYHH=(void *)((unsigned long)result__NYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PYHH)));
-          ((__POINTER *)next__LYHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MYHH)[ 0]=next__LYHH;
-        } else {
-          next__LYHH=((__POINTER *)result__NYHH)[ 0];
-          if ((next__LYHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PYHH <<  1)) <=  4096)) {
-              next__LYHH=(void *)((unsigned long)result__NYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PYHH)));
+              next__PAIH=new_lab__MRJ(new_size__2XEH);
+            };
+            ((__POINTER *)next__PAIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__QAIH)[ 0]=next__PAIH;
+          } else {
+            ((__POINTER *)result__RAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__RAIH=next__PAIH;
+          };
+        };
+        ptr__JUI=result__RAIH;
+      } else {
+        t__AYEH=((__UINTEGER_32 )typ_id__OUI);
+        a__5XEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__YAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__LUI + a__5XEH) & (__UINTEGER_32)(~ a__5XEH));
+        ptr_table__VAIH=((__POINTER )(&(table_type[(t__AYEH)])));
+        lab_type__XAIH=(__UINTEGER_32)(t__AYEH |  1);
+        next__UAIH=((__POINTER )(NULL));
+        result__WAIH=((__POINTER *)ptr_table__VAIH)[ 0];
+        if ((result__WAIH == (void *)NULL)) {
+          result__WAIH=new_lab__MRJ(lab_type__XAIH);
+          next__UAIH=(void *)((unsigned long)result__WAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAIH)));
+          ((__POINTER *)next__UAIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__VAIH)[ 0]=next__UAIH;
+        } else {
+          next__UAIH=((__POINTER *)result__WAIH)[ 0];
+          if ((next__UAIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YAIH <<  1)) <=  4096)) {
+              next__UAIH=(void *)((unsigned long)result__WAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAIH)));
             } else {
-              next__LYHH=new_lab__MRJ(lab_type__OYHH);
+              next__UAIH=new_lab__MRJ(lab_type__XAIH);
             };
-            ((__POINTER *)next__LYHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__MYHH)[ 0]=next__LYHH;
+            ((__POINTER *)next__UAIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__VAIH)[ 0]=next__UAIH;
           } else {
-            ((__POINTER *)result__NYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__NYHH=next__LYHH;
+            ((__POINTER *)result__WAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__WAIH=next__UAIH;
           };
         };
-        ptr__JUI=result__NYHH;
+        ptr__JUI=result__WAIH;
       };
       result__IUI=((__ITM_PROTOTYPE *)ptr__JUI);
       *(result__IUI) = *(ITM_PROTOTYPE__);
@@ -24847,61 +25105,61 @@ static void set_value__type__ZFHC(__ITM_SLOT *Self__0FHC,void *e__1FHC,void *p__
       typ_id__TFCD=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__QFCD);
       if ((typ_id__TFCD == (__INTEGER)(-  1))) {
-        a__IPEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__JPEH=(__UINTEGER_32)((__UINTEGER_32)(sz__QFCD + a__IPEH) & (__UINTEGER_32)(~ a__IPEH));
-        ptr_table__RYHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JPEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__QYHH=((__POINTER )(NULL));
-        result__SYHH=((__POINTER *)ptr_table__RYHH)[ 0];
-        if ((result__SYHH == (void *)NULL)) {
-          result__SYHH=new_lab__MRJ(new_size__JPEH);
-          next__QYHH=(void *)((unsigned long)result__SYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JPEH)));
-          ((__POINTER *)next__QYHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RYHH)[ 0]=next__QYHH;
-        } else {
-          next__QYHH=((__POINTER *)result__SYHH)[ 0];
-          if ((next__QYHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JPEH <<  1)) <=  4096)) {
-              next__QYHH=(void *)((unsigned long)result__SYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JPEH)));
+        a__DYEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__EYEH=(__UINTEGER_32)((__UINTEGER_32)(sz__QFCD + a__DYEH) & (__UINTEGER_32)(~ a__DYEH));
+        ptr_table__0AIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EYEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__ZAIH=((__POINTER )(NULL));
+        result__1AIH=((__POINTER *)ptr_table__0AIH)[ 0];
+        if ((result__1AIH == (void *)NULL)) {
+          result__1AIH=new_lab__MRJ(new_size__EYEH);
+          next__ZAIH=(void *)((unsigned long)result__1AIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYEH)));
+          ((__POINTER *)next__ZAIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__0AIH)[ 0]=next__ZAIH;
+        } else {
+          next__ZAIH=((__POINTER *)result__1AIH)[ 0];
+          if ((next__ZAIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1AIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EYEH <<  1)) <=  4096)) {
+              next__ZAIH=(void *)((unsigned long)result__1AIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYEH)));
             } else {
-              next__QYHH=new_lab__MRJ(new_size__JPEH);
-            };
-            ((__POINTER *)next__QYHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__RYHH)[ 0]=next__QYHH;
-          } else {
-            ((__POINTER *)result__SYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__SYHH=next__QYHH;
-          };
-        };
-        ptr__OFCD=result__SYHH;
-      } else {
-        t__NPEH=((__UINTEGER_32 )typ_id__TFCD);
-        a__MPEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ZYHH=(__UINTEGER_32)((__UINTEGER_32)(sz__QFCD + a__MPEH) & (__UINTEGER_32)(~ a__MPEH));
-        ptr_table__WYHH=((__POINTER )(&(table_type[(t__NPEH)])));
-        lab_type__YYHH=(__UINTEGER_32)(t__NPEH |  1);
-        next__VYHH=((__POINTER )(NULL));
-        result__XYHH=((__POINTER *)ptr_table__WYHH)[ 0];
-        if ((result__XYHH == (void *)NULL)) {
-          result__XYHH=new_lab__MRJ(lab_type__YYHH);
-          next__VYHH=(void *)((unsigned long)result__XYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZYHH)));
-          ((__POINTER *)next__VYHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WYHH)[ 0]=next__VYHH;
-        } else {
-          next__VYHH=((__POINTER *)result__XYHH)[ 0];
-          if ((next__VYHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XYHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZYHH <<  1)) <=  4096)) {
-              next__VYHH=(void *)((unsigned long)result__XYHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZYHH)));
+              next__ZAIH=new_lab__MRJ(new_size__EYEH);
+            };
+            ((__POINTER *)next__ZAIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__0AIH)[ 0]=next__ZAIH;
+          } else {
+            ((__POINTER *)result__1AIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__1AIH=next__ZAIH;
+          };
+        };
+        ptr__OFCD=result__1AIH;
+      } else {
+        t__IYEH=((__UINTEGER_32 )typ_id__TFCD);
+        a__HYEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__CBIH=(__UINTEGER_32)((__UINTEGER_32)(sz__QFCD + a__HYEH) & (__UINTEGER_32)(~ a__HYEH));
+        ptr_table__5AIH=((__POINTER )(&(table_type[(t__IYEH)])));
+        lab_type__BBIH=(__UINTEGER_32)(t__IYEH |  1);
+        next__4AIH=((__POINTER )(NULL));
+        result__ABIH=((__POINTER *)ptr_table__5AIH)[ 0];
+        if ((result__ABIH == (void *)NULL)) {
+          result__ABIH=new_lab__MRJ(lab_type__BBIH);
+          next__4AIH=(void *)((unsigned long)result__ABIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBIH)));
+          ((__POINTER *)next__4AIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__5AIH)[ 0]=next__4AIH;
+        } else {
+          next__4AIH=((__POINTER *)result__ABIH)[ 0];
+          if ((next__4AIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ABIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CBIH <<  1)) <=  4096)) {
+              next__4AIH=(void *)((unsigned long)result__ABIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBIH)));
             } else {
-              next__VYHH=new_lab__MRJ(lab_type__YYHH);
+              next__4AIH=new_lab__MRJ(lab_type__BBIH);
             };
-            ((__POINTER *)next__VYHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WYHH)[ 0]=next__VYHH;
+            ((__POINTER *)next__4AIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__5AIH)[ 0]=next__4AIH;
           } else {
-            ((__POINTER *)result__XYHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VYHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__XYHH=next__VYHH;
+            ((__POINTER *)result__ABIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4AIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__ABIH=next__4AIH;
           };
         };
-        ptr__OFCD=result__XYHH;
+        ptr__OFCD=result__ABIH;
       };
       result__NFCD=((__ITM_READ_ARG1 *)ptr__OFCD);
       *(result__NFCD) = *(ITM_READ_ARG1__);
@@ -25067,30 +25325,30 @@ static __POSITION position__FJHC(__ITM_RESULT *Self__GJHC)
 static void fast_put__to__BOGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__COGC,void *v__DOGC,void *k__EOGC)
 // ({HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo},{NULLxITM_SLOTxITM_SLOT_OPERATOR},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__CHGH,*Self__HHGH;
-  __INTEGER result__BHGH,__tmp__DHGH,Self__EHGH,idx__MOGC,idx__ZMID;
-  __INTEGER new_capacity__0MID,i__1MID,result__GHGH,__tmp__IHGH;
-  __INTEGER Self__JHGH,typ_id__IPID;
-  __POINTER ptr__DPID,ptr_table__1YHH,next__0YHH,result__2YHH;
-  __POINTER ptr_table__AZHH,next__5YHH,result__BZHH;
-  __UINTEGER_32 sz__FPID,a__YOEH,new_size__ZOEH,t__3OEH,a__2OEH;
-  __UINTEGER_32 new_size__DZHH,lab_type__CZHH;
+  __STRING_CONSTANT *Self__PPGH,*Self__UPGH;
+  __INTEGER result__OPGH,__tmp__QPGH,Self__RPGH,idx__MOGC,idx__ZMID;
+  __INTEGER new_capacity__0MID,i__1MID,result__TPGH,__tmp__VPGH;
+  __INTEGER Self__WPGH,typ_id__IPID;
+  __POINTER ptr__DPID,ptr_table__EBIH,next__DBIH,result__FBIH;
+  __POINTER ptr_table__JBIH,next__IBIH,result__KBIH;
+  __UINTEGER_32 sz__FPID,a__TXEH,new_size__UXEH,t__YXEH,a__XXEH;
+  __UINTEGER_32 new_size__MBIH,lab_type__LBIH;
   void *node__NOGC,*node1__3MID,*node2__4MID,*__tmp__1PGC;
   void **old_buckets__2MID;
   __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *result__CPID;
   __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *Self__EFTD;
-  Self__CHGH=((__STRING_CONSTANT *)k__EOGC);
-  result__BHGH= 0;
-  __tmp__DHGH=Self__CHGH->count__DD;
-  Self__EHGH= 1;
-  while ((Self__EHGH <= __tmp__DHGH)) {
-    result__BHGH=(__INTEGER)((__INTEGER)( 5 * result__BHGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__CHGH->storage__VQO)[(__INTEGER)(Self__EHGH -  1)])));
-    Self__EHGH=(__INTEGER)(Self__EHGH +  1);
-  };
-  if ((result__BHGH <  0)) {
-    result__BHGH=(__INTEGER)(~ result__BHGH);
-  };
-  idx__MOGC=(__INTEGER)(result__BHGH % Self__COGC->capacity__24BC);
+  Self__PPGH=((__STRING_CONSTANT *)k__EOGC);
+  result__OPGH= 0;
+  __tmp__QPGH=Self__PPGH->count__DD;
+  Self__RPGH= 1;
+  while ((Self__RPGH <= __tmp__QPGH)) {
+    result__OPGH=(__INTEGER)((__INTEGER)( 5 * result__OPGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__PPGH->storage__VQO)[(__INTEGER)(Self__RPGH -  1)])));
+    Self__RPGH=(__INTEGER)(Self__RPGH +  1);
+  };
+  if ((result__OPGH <  0)) {
+    result__OPGH=(__INTEGER)(~ result__OPGH);
+  };
+  idx__MOGC=(__INTEGER)(result__OPGH % Self__COGC->capacity__24BC);
   node__NOGC=((void **)Self__COGC->buckets__DBGC)[idx__MOGC];
   while ((! (((void *)node__NOGC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__NOGC)->key__PBGC == (void *)k__EOGC)))) {
     node__NOGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__NOGC)->next__0BGC;
@@ -25109,25 +25367,25 @@ static void fast_put__to__BOGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Se
         node1__3MID=((void **)old_buckets__2MID)[i__1MID];
         while (((void *)node1__3MID != (void *)NULL)) {
           node2__4MID=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__3MID)->next__0BGC;
-          Self__HHGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__3MID)->key__PBGC);
-          result__GHGH= 0;
-          __tmp__IHGH=Self__HHGH->count__DD;
-          Self__JHGH= 1;
-          while ((Self__JHGH <= __tmp__IHGH)) {
-            result__GHGH=(__INTEGER)((__INTEGER)( 5 * result__GHGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__HHGH->storage__VQO)[(__INTEGER)(Self__JHGH -  1)])));
-            Self__JHGH=(__INTEGER)(Self__JHGH +  1);
-          };
-          if ((result__GHGH <  0)) {
-            result__GHGH=(__INTEGER)(~ result__GHGH);
-          };
-          idx__ZMID=(__INTEGER)(result__GHGH % Self__COGC->capacity__24BC);
+          Self__UPGH=((__STRING_CONSTANT *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__3MID)->key__PBGC);
+          result__TPGH= 0;
+          __tmp__VPGH=Self__UPGH->count__DD;
+          Self__WPGH= 1;
+          while ((Self__WPGH <= __tmp__VPGH)) {
+            result__TPGH=(__INTEGER)((__INTEGER)( 5 * result__TPGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__UPGH->storage__VQO)[(__INTEGER)(Self__WPGH -  1)])));
+            Self__WPGH=(__INTEGER)(Self__WPGH +  1);
+          };
+          if ((result__TPGH <  0)) {
+            result__TPGH=(__INTEGER)(~ result__TPGH);
+          };
+          idx__ZMID=(__INTEGER)(result__TPGH % Self__COGC->capacity__24BC);
           ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__3MID)->next__0BGC=((void **)Self__COGC->buckets__DBGC)[idx__ZMID];
           ((void **)Self__COGC->buckets__DBGC)[idx__ZMID]=node1__3MID;
           node1__3MID=node2__4MID;
         };
         i__1MID=(__INTEGER)(i__1MID -  1);
       };
-      idx__MOGC=(__INTEGER)(result__BHGH % new_capacity__0MID);
+      idx__MOGC=(__INTEGER)(result__OPGH % new_capacity__0MID);
     };
     __tmp__1PGC=((void **)Self__COGC->buckets__DBGC)[idx__MOGC];
     result__CPID=NULL;
@@ -25140,61 +25398,61 @@ static void fast_put__to__BOGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Se
       typ_id__IPID=__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FPID);
       if ((typ_id__IPID == (__INTEGER)(-  1))) {
-        a__YOEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ZOEH=(__UINTEGER_32)((__UINTEGER_32)(sz__FPID + a__YOEH) & (__UINTEGER_32)(~ a__YOEH));
-        ptr_table__1YHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZOEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__0YHH=((__POINTER )(NULL));
-        result__2YHH=((__POINTER *)ptr_table__1YHH)[ 0];
-        if ((result__2YHH == (void *)NULL)) {
-          result__2YHH=new_lab__MRJ(new_size__ZOEH);
-          next__0YHH=(void *)((unsigned long)result__2YHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZOEH)));
-          ((__POINTER *)next__0YHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1YHH)[ 0]=next__0YHH;
-        } else {
-          next__0YHH=((__POINTER *)result__2YHH)[ 0];
-          if ((next__0YHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2YHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZOEH <<  1)) <=  4096)) {
-              next__0YHH=(void *)((unsigned long)result__2YHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZOEH)));
+        a__TXEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__UXEH=(__UINTEGER_32)((__UINTEGER_32)(sz__FPID + a__TXEH) & (__UINTEGER_32)(~ a__TXEH));
+        ptr_table__EBIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UXEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__DBIH=((__POINTER )(NULL));
+        result__FBIH=((__POINTER *)ptr_table__EBIH)[ 0];
+        if ((result__FBIH == (void *)NULL)) {
+          result__FBIH=new_lab__MRJ(new_size__UXEH);
+          next__DBIH=(void *)((unsigned long)result__FBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UXEH)));
+          ((__POINTER *)next__DBIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__EBIH)[ 0]=next__DBIH;
+        } else {
+          next__DBIH=((__POINTER *)result__FBIH)[ 0];
+          if ((next__DBIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UXEH <<  1)) <=  4096)) {
+              next__DBIH=(void *)((unsigned long)result__FBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UXEH)));
             } else {
-              next__0YHH=new_lab__MRJ(new_size__ZOEH);
-            };
-            ((__POINTER *)next__0YHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__1YHH)[ 0]=next__0YHH;
-          } else {
-            ((__POINTER *)result__2YHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0YHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__2YHH=next__0YHH;
-          };
-        };
-        ptr__DPID=result__2YHH;
-      } else {
-        t__3OEH=((__UINTEGER_32 )typ_id__IPID);
-        a__2OEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__DZHH=(__UINTEGER_32)((__UINTEGER_32)(sz__FPID + a__2OEH) & (__UINTEGER_32)(~ a__2OEH));
-        ptr_table__AZHH=((__POINTER )(&(table_type[(t__3OEH)])));
-        lab_type__CZHH=(__UINTEGER_32)(t__3OEH |  1);
-        next__5YHH=((__POINTER )(NULL));
-        result__BZHH=((__POINTER *)ptr_table__AZHH)[ 0];
-        if ((result__BZHH == (void *)NULL)) {
-          result__BZHH=new_lab__MRJ(lab_type__CZHH);
-          next__5YHH=(void *)((unsigned long)result__BZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DZHH)));
-          ((__POINTER *)next__5YHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AZHH)[ 0]=next__5YHH;
-        } else {
-          next__5YHH=((__POINTER *)result__BZHH)[ 0];
-          if ((next__5YHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BZHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DZHH <<  1)) <=  4096)) {
-              next__5YHH=(void *)((unsigned long)result__BZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DZHH)));
+              next__DBIH=new_lab__MRJ(new_size__UXEH);
+            };
+            ((__POINTER *)next__DBIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__EBIH)[ 0]=next__DBIH;
+          } else {
+            ((__POINTER *)result__FBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__FBIH=next__DBIH;
+          };
+        };
+        ptr__DPID=result__FBIH;
+      } else {
+        t__YXEH=((__UINTEGER_32 )typ_id__IPID);
+        a__XXEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__MBIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FPID + a__XXEH) & (__UINTEGER_32)(~ a__XXEH));
+        ptr_table__JBIH=((__POINTER )(&(table_type[(t__YXEH)])));
+        lab_type__LBIH=(__UINTEGER_32)(t__YXEH |  1);
+        next__IBIH=((__POINTER )(NULL));
+        result__KBIH=((__POINTER *)ptr_table__JBIH)[ 0];
+        if ((result__KBIH == (void *)NULL)) {
+          result__KBIH=new_lab__MRJ(lab_type__LBIH);
+          next__IBIH=(void *)((unsigned long)result__KBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MBIH)));
+          ((__POINTER *)next__IBIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__JBIH)[ 0]=next__IBIH;
+        } else {
+          next__IBIH=((__POINTER *)result__KBIH)[ 0];
+          if ((next__IBIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MBIH <<  1)) <=  4096)) {
+              next__IBIH=(void *)((unsigned long)result__KBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MBIH)));
             } else {
-              next__5YHH=new_lab__MRJ(lab_type__CZHH);
+              next__IBIH=new_lab__MRJ(lab_type__LBIH);
             };
-            ((__POINTER *)next__5YHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AZHH)[ 0]=next__5YHH;
+            ((__POINTER *)next__IBIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__JBIH)[ 0]=next__IBIH;
           } else {
-            ((__POINTER *)result__BZHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5YHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__BZHH=next__5YHH;
+            ((__POINTER *)result__KBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__KBIH=next__IBIH;
           };
         };
-        ptr__DPID=result__BZHH;
+        ptr__DPID=result__KBIH;
       };
       result__CPID=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)ptr__DPID);
       *(result__CPID) = *(HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__);
@@ -25215,22 +25473,22 @@ static void* fast_reference_at__QAGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTAN
 // ({HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
   void *result__3AGC;
-  __STRING_CONSTANT *Self__MHGH;
-  __INTEGER result__LHGH,__tmp__NHGH,Self__OHGH;
+  __STRING_CONSTANT *Self__ZPGH;
+  __INTEGER result__YPGH,__tmp__0PGH,Self__1PGH;
   void *node__2AGC;
   result__3AGC=NULL;
-  Self__MHGH=((__STRING_CONSTANT *)k__SAGC);
-  result__LHGH= 0;
-  __tmp__NHGH=Self__MHGH->count__DD;
-  Self__OHGH= 1;
-  while ((Self__OHGH <= __tmp__NHGH)) {
-    result__LHGH=(__INTEGER)((__INTEGER)( 5 * result__LHGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__MHGH->storage__VQO)[(__INTEGER)(Self__OHGH -  1)])));
-    Self__OHGH=(__INTEGER)(Self__OHGH +  1);
-  };
-  if ((result__LHGH <  0)) {
-    result__LHGH=(__INTEGER)(~ result__LHGH);
-  };
-  node__2AGC=((void **)Self__RAGC->buckets__DBGC)[(__INTEGER)(result__LHGH % Self__RAGC->capacity__24BC)];
+  Self__ZPGH=((__STRING_CONSTANT *)k__SAGC);
+  result__YPGH= 0;
+  __tmp__0PGH=Self__ZPGH->count__DD;
+  Self__1PGH= 1;
+  while ((Self__1PGH <= __tmp__0PGH)) {
+    result__YPGH=(__INTEGER)((__INTEGER)( 5 * result__YPGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__ZPGH->storage__VQO)[(__INTEGER)(Self__1PGH -  1)])));
+    Self__1PGH=(__INTEGER)(Self__1PGH +  1);
+  };
+  if ((result__YPGH <  0)) {
+    result__YPGH=(__INTEGER)(~ result__YPGH);
+  };
+  node__2AGC=((void **)Self__RAGC->buckets__DBGC)[(__INTEGER)(result__YPGH % Self__RAGC->capacity__24BC)];
   while ((! (((void *)node__2AGC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__2AGC)->key__PBGC == (void *)k__SAGC)))) {
     node__2AGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__2AGC)->next__0BGC;
   };
@@ -25240,612 +25498,648 @@ static void* fast_reference_at__QAGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTAN
   return(result__3AGC);
 }
 
-static void* fast_reference_at__E34D(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__F34D,void *k__G34D)
+static void* fast_reference_at__GB5D(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__HB5D,void *k__IB5D)
 // ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __INTEGER result__QHGH,__tmp__SHGH,Self__THGH;
-  void *result__Q34D;
-  void *node__P34D;
-  result__Q34D=NULL;
-  result__QHGH= 0;
-  __tmp__SHGH=((__STRING_CONSTANT *)k__G34D)->count__DD;
-  Self__THGH= 1;
-  while ((Self__THGH <= __tmp__SHGH)) {
-    result__QHGH=(__INTEGER)((__INTEGER)( 5 * result__QHGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)k__G34D)->storage__VQO)[(__INTEGER)(Self__THGH -  1)])));
-    Self__THGH=(__INTEGER)(Self__THGH +  1);
-  };
-  if ((result__QHGH <  0)) {
-    result__QHGH=(__INTEGER)(~ result__QHGH);
-  };
-  node__P34D=((void **)Self__F34D->buckets__5CT)[(__INTEGER)(result__QHGH % Self__F34D->capacity__0CT)];
-  while ((! (((void *)node__P34D == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__P34D)->key__LDT == (void *)k__G34D)))) {
-    node__P34D=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__P34D)->next__WDT;
-  };
-  if (((void *)node__P34D != (void *)NULL)) {
-    result__Q34D=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__P34D)->item__HY3;
-  };
-  return(result__Q34D);
+  __INTEGER result__3PGH,__tmp__5PGH,Self__AQGH;
+  void *result__SB5D;
+  void *node__RB5D;
+  result__SB5D=NULL;
+  result__3PGH= 0;
+  __tmp__5PGH=((__STRING_CONSTANT *)k__IB5D)->count__DD;
+  Self__AQGH= 1;
+  while ((Self__AQGH <= __tmp__5PGH)) {
+    result__3PGH=(__INTEGER)((__INTEGER)( 5 * result__3PGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)((__STRING_CONSTANT *)k__IB5D)->storage__VQO)[(__INTEGER)(Self__AQGH -  1)])));
+    Self__AQGH=(__INTEGER)(Self__AQGH +  1);
+  };
+  if ((result__3PGH <  0)) {
+    result__3PGH=(__INTEGER)(~ result__3PGH);
+  };
+  node__RB5D=((void **)Self__HB5D->buckets__5CT)[(__INTEGER)(result__3PGH % Self__HB5D->capacity__0CT)];
+  while ((! (((void *)node__RB5D == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__RB5D)->key__LDT == (void *)k__IB5D)))) {
+    node__RB5D=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__RB5D)->next__WDT;
+  };
+  if (((void *)node__RB5D != (void *)NULL)) {
+    result__SB5D=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__RB5D)->item__HY3;
+  };
+  return(result__SB5D);
+}
+
+static void append_in__OGPD(__ITM_TYPE_BLOCK *Self__PGPD,void *buffer__QGPD)
+// ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
+{
+  void *typ_mul__RGPD,*__tmp__DHPD;
+  void *__tmp__YGPD,*__tmp__CHPD,*__tmp__JHPD;
+  __ITM_TYPE_STYLE *Self__QYEH,*Self__SYEH;
+  typ_mul__RGPD=NULL;
+  add_last__ZLT(buffer__QGPD,'{');
+  if (((void *)Self__PGPD->type_argument__WMN != (void *)NULL)) {
+    __tmp__YGPD=Self__PGPD->type_argument__WMN;
+    switch (((struct ___OBJ *)__tmp__YGPD)->__id) {
+    case __ITM_TYPE_PARAMETER__: {
+      append__BOS(buffer__QGPD,((__ITM_TYPE_PARAMETER *)__tmp__YGPD)->parent_itm_type__3DE.name__KYP);
+    } break;
+    case __ITM_TYPE_SIMPLE__: {
+      append__BOS(buffer__QGPD,((__ITM_TYPE_SIMPLE *)__tmp__YGPD)->name__KYP);
+    } break;
+    case __ITM_TYPE_MULTI__: {
+      append_in__SIBC(__tmp__YGPD,buffer__QGPD);
+    } break;
+    case __ITM_TYPE_BLOCK__: {
+      append_in__OGPD(__tmp__YGPD,buffer__QGPD);
+    } break;
+    case __ITM_TYPE_GENERIC__: {
+      append_in__SHPD(__tmp__YGPD,buffer__QGPD);
+    } break;
+    case __ITM_TYPE_STYLE__: {
+      Self__QYEH=((__ITM_TYPE_STYLE *)__tmp__YGPD);
+      if (((void *)Self__QYEH->style__TYP != (void *)NULL)) {
+        append__BOS(buffer__QGPD,Self__QYEH->style__TYP);
+        add_last__ZLT(buffer__QGPD,' ');
+      };
+      append__BOS(buffer__QGPD,Self__QYEH->parent_itm_type_simple__BSN.name__KYP);
+    } break;
+    };
+    add_last__ZLT(buffer__QGPD,';');
+    add_last__ZLT(buffer__QGPD,' ');
+  };
+  if (((void *)Self__PGPD->type_result__ANN != (void *)NULL)) {
+    __tmp__CHPD=Self__PGPD->type_result__ANN;
+    if (__tmp__CHPD==NULL) {
+      __tmp__DHPD=NULL;
+    } else {
+      switch (((struct ___OBJ *)__tmp__CHPD)->__id) {
+      case __ITM_TYPE_PARAMETER__: {
+        __tmp__DHPD=NULL;
+      } break;
+      case __ITM_TYPE_SIMPLE__: {
+        __tmp__DHPD=NULL;
+      } break;
+      case __ITM_TYPE_MULTI__: {
+        __tmp__DHPD=((void *)__tmp__CHPD);
+      } break;
+      case __ITM_TYPE_BLOCK__: {
+        __tmp__DHPD=NULL;
+      } break;
+      case __ITM_TYPE_GENERIC__: {
+        __tmp__DHPD=NULL;
+      } break;
+      case __ITM_TYPE_STYLE__: {
+        __tmp__DHPD=NULL;
+      } break;
+      }
+    };
+    typ_mul__RGPD=__tmp__DHPD;
+    if (((void *)__tmp__DHPD == (void *)NULL)) {
+      __tmp__JHPD=Self__PGPD->type_result__ANN;
+      switch (((struct ___OBJ *)__tmp__JHPD)->__id) {
+      case __ITM_TYPE_PARAMETER__: {
+        append__BOS(buffer__QGPD,((__ITM_TYPE_PARAMETER *)__tmp__JHPD)->parent_itm_type__3DE.name__KYP);
+      } break;
+      case __ITM_TYPE_SIMPLE__: {
+        append__BOS(buffer__QGPD,((__ITM_TYPE_SIMPLE *)__tmp__JHPD)->name__KYP);
+      } break;
+      case __ITM_TYPE_MULTI__: {
+        append_in__SIBC(__tmp__JHPD,buffer__QGPD);
+      } break;
+      case __ITM_TYPE_BLOCK__: {
+        append_in__OGPD(__tmp__JHPD,buffer__QGPD);
+      } break;
+      case __ITM_TYPE_GENERIC__: {
+        append_in__SHPD(__tmp__JHPD,buffer__QGPD);
+      } break;
+      case __ITM_TYPE_STYLE__: {
+        Self__SYEH=((__ITM_TYPE_STYLE *)__tmp__JHPD);
+        if (((void *)Self__SYEH->style__TYP != (void *)NULL)) {
+          append__BOS(buffer__QGPD,Self__SYEH->style__TYP);
+          add_last__ZLT(buffer__QGPD,' ');
+        };
+        append__BOS(buffer__QGPD,Self__SYEH->parent_itm_type_simple__BSN.name__KYP);
+      } break;
+      };
+    } else {
+      display_raw__TLIC(__tmp__DHPD,buffer__QGPD);
+    };
+  };
+  add_last__ZLT(buffer__QGPD,'}');
+}
+
+static void append_in__SHPD(__ITM_TYPE_GENERIC *Self__THPD,void *buffer__UHPD)
+// ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
+{
+  __INTEGER __tmp__FIPD,Self__2XUD;
+  void *__tmp__MIPD,*__tmp__PIPD;
+  __ITM_TYPE_STYLE *Self__XYEH,*Self__RIPD;
+  __FAST_ARRAYoITM_TYPE_MONOo *Self__ZCRB;
+  if (((void *)Self__THPD->parent_itm_type_style__CSN.style__TYP != (void *)NULL)) {
+    append__BOS(buffer__UHPD,Self__THPD->parent_itm_type_style__CSN.style__TYP);
+    add_last__ZLT(buffer__UHPD,' ');
+  };
+  append__BOS(buffer__UHPD,Self__THPD->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP);
+  add_last__ZLT(buffer__UHPD,'(');
+  __tmp__FIPD=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__THPD->list_type__3YP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
+  Self__2XUD= 0;
+  while ((Self__2XUD <= __tmp__FIPD)) {
+    __tmp__MIPD=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__THPD->list_type__3YP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__2XUD];
+    switch (((struct ___OBJ *)__tmp__MIPD)->__id) {
+    case __ITM_TYPE_PARAMETER__: {
+      append__BOS(buffer__UHPD,((__ITM_TYPE_PARAMETER *)__tmp__MIPD)->parent_itm_type__3DE.name__KYP);
+    } break;
+    case __ITM_TYPE_SIMPLE__: {
+      append__BOS(buffer__UHPD,((__ITM_TYPE_SIMPLE *)__tmp__MIPD)->name__KYP);
+    } break;
+    case __ITM_TYPE_BLOCK__: {
+      append_in__OGPD(__tmp__MIPD,buffer__UHPD);
+    } break;
+    case __ITM_TYPE_GENERIC__: {
+      append_in__SHPD(__tmp__MIPD,buffer__UHPD);
+    } break;
+    case __ITM_TYPE_STYLE__: {
+      Self__XYEH=((__ITM_TYPE_STYLE *)__tmp__MIPD);
+      if (((void *)Self__XYEH->style__TYP != (void *)NULL)) {
+        append__BOS(buffer__UHPD,Self__XYEH->style__TYP);
+        add_last__ZLT(buffer__UHPD,' ');
+      };
+      append__BOS(buffer__UHPD,Self__XYEH->parent_itm_type_simple__BSN.name__KYP);
+    } break;
+    };
+    add_last__ZLT(buffer__UHPD,',');
+    Self__2XUD=(__INTEGER)(Self__2XUD +  1);
+  };
+  Self__ZCRB=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__THPD->list_type__3YP);
+  __tmp__PIPD=((void **)Self__ZCRB->parent_arrayed_collection__ZXC.storage__RMV)[Self__ZCRB->parent_arrayed_collection__ZXC.upper__KIV];
+  switch (((struct ___OBJ *)__tmp__PIPD)->__id) {
+  case __ITM_TYPE_PARAMETER__: {
+    append__BOS(buffer__UHPD,((__ITM_TYPE_PARAMETER *)__tmp__PIPD)->parent_itm_type__3DE.name__KYP);
+  } break;
+  case __ITM_TYPE_SIMPLE__: {
+    append__BOS(buffer__UHPD,((__ITM_TYPE_SIMPLE *)__tmp__PIPD)->name__KYP);
+  } break;
+  case __ITM_TYPE_BLOCK__: {
+    append_in__OGPD(__tmp__PIPD,buffer__UHPD);
+  } break;
+  case __ITM_TYPE_GENERIC__: {
+    append_in__SHPD(__tmp__PIPD,buffer__UHPD);
+  } break;
+  case __ITM_TYPE_STYLE__: {
+    Self__RIPD=((__ITM_TYPE_STYLE *)__tmp__PIPD);
+    if (((void *)Self__RIPD->style__TYP != (void *)NULL)) {
+      append__BOS(buffer__UHPD,Self__RIPD->style__TYP);
+      add_last__ZLT(buffer__UHPD,' ');
+    };
+    append__BOS(buffer__UHPD,Self__RIPD->parent_itm_type_simple__BSN.name__KYP);
+  } break;
+  };
+  add_last__ZLT(buffer__UHPD,')');
 }
 
-static void put__to__like__PT5F(void *tok__RT5F,void *buf__ST5F,void *key__TT5F)
+static void put__to__like__U25F(void *tok__W25F,void *buf__X25F,void *key__Y25F)
 // ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__5T5F,Self__2WEG;
-  void *lst__UT5F;
-  lst__UT5F=fast_reference_at__E34D(short_dico__QD,key__TT5F);
-  if (((void *)lst__UT5F != (void *)NULL)) {
-    __tmp__5T5F=((__LINKED_LISToSTRING_CONSTANTo *)lst__UT5F)->parent_linked_collection__LD.upper__5CD;
-    Self__2WEG= 1;
-    while ((Self__2WEG <= __tmp__5T5F)) {
-      if (((void *)item__Y0ND(lst__UT5F,Self__2WEG) == (void *)NULL)) {
-        append__BOS(buf__ST5F,tok__RT5F);
+  __INTEGER __tmp__E35F,Self__PEFG;
+  void *lst__Z25F;
+  lst__Z25F=fast_reference_at__GB5D(short_dico__QD,key__Y25F);
+  if (((void *)lst__Z25F != (void *)NULL)) {
+    __tmp__E35F=((__LINKED_LISToSTRING_CONSTANTo *)lst__Z25F)->parent_linked_collection__LD.upper__5CD;
+    Self__PEFG= 1;
+    while ((Self__PEFG <= __tmp__E35F)) {
+      if (((void *)item__Y0ND(lst__Z25F,Self__PEFG) == (void *)NULL)) {
+        append__BOS(buf__X25F,tok__W25F);
       } else {
-        append__BOS(buf__ST5F,item__Y0ND(lst__UT5F,Self__2WEG));
+        append__BOS(buf__X25F,item__Y0ND(lst__Z25F,Self__PEFG));
       };
-      Self__2WEG=(__INTEGER)(Self__2WEG +  1);
+      Self__PEFG=(__INTEGER)(Self__PEFG +  1);
     };
   };
 }
 
-static void shorter_in__QQ5F(__ITM_ARG *Self__RQ5F,void *buf__SQ5F)
+static void shorter_in__VZ5F(__ITM_ARG *Self__WZ5F,void *buf__XZ5F)
 // ({ITM_ARG},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  void *__tmp__GR5F;
-  __ITM_TYPE_PARAMETER *Self__ELCH;
-  __ITM_TYPE_SIMPLE *Self__GLCH;
-  __ITM_TYPE_STYLE *Self__EZHH;
-  if (((void *)Self__RQ5F->name__10HC == (void *)(&__string_58))) {
-    put__to__like__UUEG(Self__RQ5F->name__10HC,buf__SQ5F,(&__string_119));
+  void *__tmp__L05F;
+  __ITM_TYPE_STYLE *Self__1YEH;
+  if (((void *)Self__WZ5F->name__10HC == (void *)(&__string_58))) {
+    put__to__like__PBFG(Self__WZ5F->name__10HC,buf__XZ5F,(&__string_119));
   } else {
-    put__to__like__UUEG(Self__RQ5F->name__10HC,buf__SQ5F,(&__string_134));
+    put__to__like__PBFG(Self__WZ5F->name__10HC,buf__XZ5F,(&__string_134));
   };
-  add_last__ZLT(buf__SQ5F,':');
-  __tmp__GR5F=Self__RQ5F->type__20HC;
-  switch (((struct ___OBJ *)__tmp__GR5F)->__id) {
+  add_last__ZLT(buf__XZ5F,':');
+  __tmp__L05F=Self__WZ5F->type__20HC;
+  switch (((struct ___OBJ *)__tmp__L05F)->__id) {
   case __ITM_TYPE_PARAMETER__: {
-    Self__ELCH=((__ITM_TYPE_PARAMETER *)__tmp__GR5F);
-    if (((void *)Self__ELCH == (void *)type_self__HUN)) {
-      put__to__like__QCFG(Self__ELCH->parent_itm_type__3DE.name__KYP,buf__SQ5F,(&__string_126));
-    } else {
-      put__to__like__QCFG(Self__ELCH->parent_itm_type__3DE.name__KYP,buf__SQ5F,(&__string_125));
-    };
+    shorter_in__S3BG(__tmp__L05F,buf__XZ5F);
   } break;
   case __ITM_TYPE_SIMPLE__: {
-    Self__GLCH=((__ITM_TYPE_SIMPLE *)__tmp__GR5F);
-    if (((void *)Self__GLCH == (void *)type_self__HUN)) {
-      put__to__like__HEFG(Self__GLCH->name__KYP,buf__SQ5F,(&__string_126));
-    } else {
-      put__to__like__HEFG(Self__GLCH->name__KYP,buf__SQ5F,(&__string_125));
-    };
+    shorter_in__D4BG(__tmp__L05F,buf__XZ5F);
   } break;
   case __ITM_TYPE_BLOCK__: {
-    shorter_in__YVBG(__tmp__GR5F,buf__SQ5F);
+    shorter_in__U4BG(__tmp__L05F,buf__XZ5F);
   } break;
   case __ITM_TYPE_GENERIC__: {
-    shorter_in__AXBG(__tmp__GR5F,buf__SQ5F);
+    shorter_in__25BG(__tmp__L05F,buf__XZ5F);
   } break;
   case __ITM_TYPE_STYLE__: {
-    Self__EZHH=((__ITM_TYPE_STYLE *)__tmp__GR5F);
-    if (((void *)Self__EZHH->style__TYP != (void *)NULL)) {
-      put__to__like__MGFG(Self__EZHH->style__TYP,buf__SQ5F,(&__string_119));
-      add_last__ZLT(buf__SQ5F,' ');
-    };
-    if (((void *)Self__EZHH == (void *)type_self__HUN)) {
-      put__to__like__MGFG(Self__EZHH->parent_itm_type_simple__BSN.name__KYP,buf__SQ5F,(&__string_126));
-    } else {
-      put__to__like__MGFG(Self__EZHH->parent_itm_type_simple__BSN.name__KYP,buf__SQ5F,(&__string_125));
+    Self__1YEH=((__ITM_TYPE_STYLE *)__tmp__L05F);
+    if (((void *)Self__1YEH->style__TYP != (void *)NULL)) {
+      put__to__like__MGEG(Self__1YEH->style__TYP,buf__XZ5F,(&__string_119));
+      add_last__ZLT(buf__XZ5F,' ');
     };
+    put__to__like__MGEG(Self__1YEH->parent_itm_type_simple__BSN.name__KYP,buf__XZ5F,(&__string_125));
   } break;
   };
 }
 
-static void shorter_in__HR5F(__ITM_ARGS *Self__IR5F,void *buf__JR5F)
+static void shorter_in__M05F(__ITM_ARGS *Self__N05F,void *buf__O05F)
 // ({ITM_ARGS},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__QR5F,Self__GZBG;
-  void *__tmp__PS5F,*__tmp__XS5F;
-  __ITM_TYPE_PARAMETER *Self__ILCH,*Self__ZTBG;
-  __ITM_TYPE_SIMPLE *Self__KLCH,*Self__ZUBG;
-  __ITM_TYPE_STYLE *Self__GZHH,*Self__IZHH;
-  __FAST_ARRAYoSTRING_CONSTANTo *Self__BXFH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__KQEH;
-  add_last__ZLT(buf__JR5F,'(');
-  __tmp__QR5F=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)Self__IR5F->name__N1OF)->parent_arrayed_collection__H5I.upper__15OD -  1);
-  Self__GZBG= 0;
-  while ((Self__GZBG <= __tmp__QR5F)) {
-    if (((void *)((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__IR5F->name__N1OF)->parent_arrayed_collection__H5I.storage__RCPD)[Self__GZBG] == (void *)(&__string_58))) {
-      put__to__like__YZBG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__IR5F->name__N1OF)->parent_arrayed_collection__H5I.storage__RCPD)[Self__GZBG],buf__JR5F,(&__string_119));
-    } else {
-      put__to__like__YZBG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__IR5F->name__N1OF)->parent_arrayed_collection__H5I.storage__RCPD)[Self__GZBG],buf__JR5F,(&__string_134));
-    };
-    add_last__ZLT(buf__JR5F,':');
-    __tmp__PS5F=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__IR5F->type__O1OF)->list_type__AKP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__GZBG];
-    switch (((struct ___OBJ *)__tmp__PS5F)->__id) {
+  __INTEGER __tmp__V05F,Self__TBCG;
+  void *__tmp__U15F,*__tmp__215F;
+  __ITM_TYPE_STYLE *Self__PZEH,*Self__TZEH;
+  __FAST_ARRAYoSTRING_CONSTANTo *Self__O5FH;
+  __FAST_ARRAYoITM_TYPE_MONOo *Self__RZEH;
+  add_last__ZLT(buf__O05F,'(');
+  __tmp__V05F=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)Self__N05F->name__LBPF)->parent_arrayed_collection__H5I.upper__15OD -  1);
+  Self__TBCG= 0;
+  while ((Self__TBCG <= __tmp__V05F)) {
+    if (((void *)((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__N05F->name__LBPF)->parent_arrayed_collection__H5I.storage__RCPD)[Self__TBCG] == (void *)(&__string_58))) {
+      put__to__like__FCCG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__N05F->name__LBPF)->parent_arrayed_collection__H5I.storage__RCPD)[Self__TBCG],buf__O05F,(&__string_119));
+    } else {
+      put__to__like__FCCG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__N05F->name__LBPF)->parent_arrayed_collection__H5I.storage__RCPD)[Self__TBCG],buf__O05F,(&__string_134));
+    };
+    add_last__ZLT(buf__O05F,':');
+    __tmp__U15F=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__N05F->type__MBPF)->list_type__AKP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__TBCG];
+    switch (((struct ___OBJ *)__tmp__U15F)->__id) {
     case __ITM_TYPE_PARAMETER__: {
-      Self__ILCH=((__ITM_TYPE_PARAMETER *)__tmp__PS5F);
-      if (((void *)Self__ILCH == (void *)type_self__HUN)) {
-        put__to__like__QCFG(Self__ILCH->parent_itm_type__3DE.name__KYP,buf__JR5F,(&__string_126));
-      } else {
-        put__to__like__QCFG(Self__ILCH->parent_itm_type__3DE.name__KYP,buf__JR5F,(&__string_125));
-      };
+      shorter_in__S3BG(__tmp__U15F,buf__O05F);
     } break;
     case __ITM_TYPE_SIMPLE__: {
-      Self__KLCH=((__ITM_TYPE_SIMPLE *)__tmp__PS5F);
-      if (((void *)Self__KLCH == (void *)type_self__HUN)) {
-        put__to__like__HEFG(Self__KLCH->name__KYP,buf__JR5F,(&__string_126));
-      } else {
-        put__to__like__HEFG(Self__KLCH->name__KYP,buf__JR5F,(&__string_125));
-      };
+      shorter_in__D4BG(__tmp__U15F,buf__O05F);
     } break;
     case __ITM_TYPE_BLOCK__: {
-      shorter_in__YVBG(__tmp__PS5F,buf__JR5F);
+      shorter_in__U4BG(__tmp__U15F,buf__O05F);
     } break;
     case __ITM_TYPE_GENERIC__: {
-      shorter_in__AXBG(__tmp__PS5F,buf__JR5F);
+      shorter_in__25BG(__tmp__U15F,buf__O05F);
     } break;
     case __ITM_TYPE_STYLE__: {
-      Self__GZHH=((__ITM_TYPE_STYLE *)__tmp__PS5F);
-      if (((void *)Self__GZHH->style__TYP != (void *)NULL)) {
-        put__to__like__MGFG(Self__GZHH->style__TYP,buf__JR5F,(&__string_119));
-        add_last__ZLT(buf__JR5F,' ');
-      };
-      if (((void *)Self__GZHH == (void *)type_self__HUN)) {
-        put__to__like__MGFG(Self__GZHH->parent_itm_type_simple__BSN.name__KYP,buf__JR5F,(&__string_126));
-      } else {
-        put__to__like__MGFG(Self__GZHH->parent_itm_type_simple__BSN.name__KYP,buf__JR5F,(&__string_125));
+      Self__PZEH=((__ITM_TYPE_STYLE *)__tmp__U15F);
+      if (((void *)Self__PZEH->style__TYP != (void *)NULL)) {
+        put__to__like__MGEG(Self__PZEH->style__TYP,buf__O05F,(&__string_119));
+        add_last__ZLT(buf__O05F,' ');
       };
+      put__to__like__MGEG(Self__PZEH->parent_itm_type_simple__BSN.name__KYP,buf__O05F,(&__string_125));
     } break;
     };
-    add_last__ZLT(buf__JR5F,',');
-    Self__GZBG=(__INTEGER)(Self__GZBG +  1);
+    add_last__ZLT(buf__O05F,',');
+    Self__TBCG=(__INTEGER)(Self__TBCG +  1);
   };
-  Self__BXFH=((__FAST_ARRAYoSTRING_CONSTANTo *)Self__IR5F->name__N1OF);
-  put__to__like__YZBG(((void **)Self__BXFH->parent_arrayed_collection__H5I.storage__RCPD)[Self__BXFH->parent_arrayed_collection__H5I.upper__15OD],buf__JR5F,(&__string_134));
-  add_last__ZLT(buf__JR5F,':');
-  Self__KQEH=((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__IR5F->type__O1OF)->list_type__AKP);
-  __tmp__XS5F=((void **)Self__KQEH->parent_arrayed_collection__ZXC.storage__RMV)[Self__KQEH->parent_arrayed_collection__ZXC.upper__KIV];
-  switch (((struct ___OBJ *)__tmp__XS5F)->__id) {
+  Self__O5FH=((__FAST_ARRAYoSTRING_CONSTANTo *)Self__N05F->name__LBPF);
+  put__to__like__FCCG(((void **)Self__O5FH->parent_arrayed_collection__H5I.storage__RCPD)[Self__O5FH->parent_arrayed_collection__H5I.upper__15OD],buf__O05F,(&__string_134));
+  add_last__ZLT(buf__O05F,':');
+  Self__RZEH=((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__N05F->type__MBPF)->list_type__AKP);
+  __tmp__215F=((void **)Self__RZEH->parent_arrayed_collection__ZXC.storage__RMV)[Self__RZEH->parent_arrayed_collection__ZXC.upper__KIV];
+  switch (((struct ___OBJ *)__tmp__215F)->__id) {
   case __ITM_TYPE_PARAMETER__: {
-    Self__ZTBG=((__ITM_TYPE_PARAMETER *)__tmp__XS5F);
-    if (((void *)Self__ZTBG == (void *)type_self__HUN)) {
-      put__to__like__QCFG(Self__ZTBG->parent_itm_type__3DE.name__KYP,buf__JR5F,(&__string_126));
-    } else {
-      put__to__like__QCFG(Self__ZTBG->parent_itm_type__3DE.name__KYP,buf__JR5F,(&__string_125));
-    };
+    shorter_in__S3BG(__tmp__215F,buf__O05F);
   } break;
   case __ITM_TYPE_SIMPLE__: {
-    Self__ZUBG=((__ITM_TYPE_SIMPLE *)__tmp__XS5F);
-    if (((void *)Self__ZUBG == (void *)type_self__HUN)) {
-      put__to__like__HEFG(Self__ZUBG->name__KYP,buf__JR5F,(&__string_126));
-    } else {
-      put__to__like__HEFG(Self__ZUBG->name__KYP,buf__JR5F,(&__string_125));
-    };
+    shorter_in__D4BG(__tmp__215F,buf__O05F);
   } break;
   case __ITM_TYPE_BLOCK__: {
-    shorter_in__YVBG(__tmp__XS5F,buf__JR5F);
+    shorter_in__U4BG(__tmp__215F,buf__O05F);
   } break;
   case __ITM_TYPE_GENERIC__: {
-    shorter_in__AXBG(__tmp__XS5F,buf__JR5F);
+    shorter_in__25BG(__tmp__215F,buf__O05F);
   } break;
   case __ITM_TYPE_STYLE__: {
-    Self__IZHH=((__ITM_TYPE_STYLE *)__tmp__XS5F);
-    if (((void *)Self__IZHH->style__TYP != (void *)NULL)) {
-      put__to__like__MGFG(Self__IZHH->style__TYP,buf__JR5F,(&__string_119));
-      add_last__ZLT(buf__JR5F,' ');
-    };
-    if (((void *)Self__IZHH == (void *)type_self__HUN)) {
-      put__to__like__MGFG(Self__IZHH->parent_itm_type_simple__BSN.name__KYP,buf__JR5F,(&__string_126));
-    } else {
-      put__to__like__MGFG(Self__IZHH->parent_itm_type_simple__BSN.name__KYP,buf__JR5F,(&__string_125));
+    Self__TZEH=((__ITM_TYPE_STYLE *)__tmp__215F);
+    if (((void *)Self__TZEH->style__TYP != (void *)NULL)) {
+      put__to__like__MGEG(Self__TZEH->style__TYP,buf__O05F,(&__string_119));
+      add_last__ZLT(buf__O05F,' ');
     };
+    put__to__like__MGEG(Self__TZEH->parent_itm_type_simple__BSN.name__KYP,buf__O05F,(&__string_125));
   } break;
   };
-  add_last__ZLT(buf__JR5F,')');
+  add_last__ZLT(buf__O05F,')');
 }
 
-static void put__to__like__QCFG(void *tok__SCFG,void *buf__TCFG,void *key__UCFG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
+static void shorter_in__S3BG(__ITM_TYPE_PARAMETER *Self__T3BG,void *buf__U3BG)
+// ({ITM_TYPE_PARAMETER},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__ADFG,Self__5GGG;
-  void *lst__VCFG;
-  lst__VCFG=fast_reference_at__E34D(short_dico__QD,key__UCFG);
-  if (((void *)lst__VCFG != (void *)NULL)) {
-    __tmp__ADFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__VCFG)->parent_linked_collection__LD.upper__5CD;
-    Self__5GGG= 1;
-    while ((Self__5GGG <= __tmp__ADFG)) {
-      if (((void *)item__Y0ND(lst__VCFG,Self__5GGG) == (void *)NULL)) {
-        append__BOS(buf__TCFG,tok__SCFG);
+  void *tok__24DG;
+  __INTEGER __tmp__K5DG,Self__C4FG;
+  void *lst__54DG;
+  tok__24DG=Self__T3BG->parent_itm_type__3DE.name__KYP;
+  lst__54DG=fast_reference_at__GB5D(short_dico__QD,(&__string_126));
+  if (((void *)lst__54DG != (void *)NULL)) {
+    __tmp__K5DG=((__LINKED_LISToSTRING_CONSTANTo *)lst__54DG)->parent_linked_collection__LD.upper__5CD;
+    Self__C4FG= 1;
+    while ((Self__C4FG <= __tmp__K5DG)) {
+      if (((void *)item__Y0ND(lst__54DG,Self__C4FG) == (void *)NULL)) {
+        append__BOS(buf__U3BG,tok__24DG);
       } else {
-        append__BOS(buf__TCFG,item__Y0ND(lst__VCFG,Self__5GGG));
+        append__BOS(buf__U3BG,item__Y0ND(lst__54DG,Self__C4FG));
       };
-      Self__5GGG=(__INTEGER)(Self__5GGG +  1);
+      Self__C4FG=(__INTEGER)(Self__C4FG +  1);
     };
   };
 }
 
-static void put__to__like__HEFG(void *tok__JEFG,void *buf__KEFG,void *key__LEFG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
+static void shorter_in__D4BG(__ITM_TYPE_SIMPLE *Self__E4BG,void *buf__F4BG)
+// ({ITM_TYPE_SIMPLE},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__XEFG,Self__QHGG;
-  void *lst__MEFG;
-  lst__MEFG=fast_reference_at__E34D(short_dico__QD,key__LEFG);
-  if (((void *)lst__MEFG != (void *)NULL)) {
-    __tmp__XEFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__MEFG)->parent_linked_collection__LD.upper__5CD;
-    Self__QHGG= 1;
-    while ((Self__QHGG <= __tmp__XEFG)) {
-      if (((void *)item__Y0ND(lst__MEFG,Self__QHGG) == (void *)NULL)) {
-        append__BOS(buf__KEFG,tok__JEFG);
+  void *tok__PAEG;
+  __INTEGER __tmp__3AEG,Self__T4FG;
+  void *lst__SAEG;
+  tok__PAEG=Self__E4BG->name__KYP;
+  lst__SAEG=fast_reference_at__GB5D(short_dico__QD,(&__string_125));
+  if (((void *)lst__SAEG != (void *)NULL)) {
+    __tmp__3AEG=((__LINKED_LISToSTRING_CONSTANTo *)lst__SAEG)->parent_linked_collection__LD.upper__5CD;
+    Self__T4FG= 1;
+    while ((Self__T4FG <= __tmp__3AEG)) {
+      if (((void *)item__Y0ND(lst__SAEG,Self__T4FG) == (void *)NULL)) {
+        append__BOS(buf__F4BG,tok__PAEG);
       } else {
-        append__BOS(buf__KEFG,item__Y0ND(lst__MEFG,Self__QHGG));
+        append__BOS(buf__F4BG,item__Y0ND(lst__SAEG,Self__T4FG));
       };
-      Self__QHGG=(__INTEGER)(Self__QHGG +  1);
+      Self__T4FG=(__INTEGER)(Self__T4FG +  1);
     };
   };
 }
 
-static void shorter_raw_in__U1DG(__ITM_TYPE_MULTI *Self__V1DG,void *buf__W1DG)
+static void shorter_raw_in__JIEG(__ITM_TYPE_MULTI *Self__KIEG,void *buf__LIEG)
 // ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__31DG,Self__NXEG;
-  void *__tmp__E2DG,*__tmp__H2DG;
-  __ITM_TYPE_PARAMETER *Self__WI4G,*Self__0I4G;
-  __ITM_TYPE_SIMPLE *Self__YI4G,*Self__2I4G;
-  __ITM_TYPE_STYLE *Self__KZHH,*Self__MZHH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__0QEH;
-  __tmp__31DG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__V1DG->list_type__AKP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
-  Self__NXEG= 0;
-  while ((Self__NXEG <= __tmp__31DG)) {
-    __tmp__E2DG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__V1DG->list_type__AKP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__NXEG];
-    switch (((struct ___OBJ *)__tmp__E2DG)->__id) {
+  __INTEGER __tmp__SIEG,Self__AFFG;
+  void *__tmp__ZIEG,*__tmp__2IEG;
+  __ITM_TYPE_STYLE *Self__YZEH,*Self__2ZEH;
+  __FAST_ARRAYoITM_TYPE_MONOo *Self__0ZEH;
+  __tmp__SIEG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__KIEG->list_type__AKP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
+  Self__AFFG= 0;
+  while ((Self__AFFG <= __tmp__SIEG)) {
+    __tmp__ZIEG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__KIEG->list_type__AKP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__AFFG];
+    switch (((struct ___OBJ *)__tmp__ZIEG)->__id) {
     case __ITM_TYPE_PARAMETER__: {
-      Self__WI4G=((__ITM_TYPE_PARAMETER *)__tmp__E2DG);
-      if (((void *)Self__WI4G == (void *)type_self__HUN)) {
-        put__to__like__QCFG(Self__WI4G->parent_itm_type__3DE.name__KYP,buf__W1DG,(&__string_126));
-      } else {
-        put__to__like__QCFG(Self__WI4G->parent_itm_type__3DE.name__KYP,buf__W1DG,(&__string_125));
-      };
+      shorter_in__S3BG(__tmp__ZIEG,buf__LIEG);
     } break;
     case __ITM_TYPE_SIMPLE__: {
-      Self__YI4G=((__ITM_TYPE_SIMPLE *)__tmp__E2DG);
-      if (((void *)Self__YI4G == (void *)type_self__HUN)) {
-        put__to__like__HEFG(Self__YI4G->name__KYP,buf__W1DG,(&__string_126));
-      } else {
-        put__to__like__HEFG(Self__YI4G->name__KYP,buf__W1DG,(&__string_125));
-      };
+      shorter_in__D4BG(__tmp__ZIEG,buf__LIEG);
     } break;
     case __ITM_TYPE_BLOCK__: {
-      shorter_in__YVBG(__tmp__E2DG,buf__W1DG);
+      shorter_in__U4BG(__tmp__ZIEG,buf__LIEG);
     } break;
     case __ITM_TYPE_GENERIC__: {
-      shorter_in__AXBG(__tmp__E2DG,buf__W1DG);
+      shorter_in__25BG(__tmp__ZIEG,buf__LIEG);
     } break;
     case __ITM_TYPE_STYLE__: {
-      Self__KZHH=((__ITM_TYPE_STYLE *)__tmp__E2DG);
-      if (((void *)Self__KZHH->style__TYP != (void *)NULL)) {
-        put__to__like__MGFG(Self__KZHH->style__TYP,buf__W1DG,(&__string_119));
-        add_last__ZLT(buf__W1DG,' ');
-      };
-      if (((void *)Self__KZHH == (void *)type_self__HUN)) {
-        put__to__like__MGFG(Self__KZHH->parent_itm_type_simple__BSN.name__KYP,buf__W1DG,(&__string_126));
-      } else {
-        put__to__like__MGFG(Self__KZHH->parent_itm_type_simple__BSN.name__KYP,buf__W1DG,(&__string_125));
+      Self__YZEH=((__ITM_TYPE_STYLE *)__tmp__ZIEG);
+      if (((void *)Self__YZEH->style__TYP != (void *)NULL)) {
+        put__to__like__MGEG(Self__YZEH->style__TYP,buf__LIEG,(&__string_119));
+        add_last__ZLT(buf__LIEG,' ');
       };
+      put__to__like__MGEG(Self__YZEH->parent_itm_type_simple__BSN.name__KYP,buf__LIEG,(&__string_125));
     } break;
     };
-    add_last__ZLT(buf__W1DG,',');
-    Self__NXEG=(__INTEGER)(Self__NXEG +  1);
+    add_last__ZLT(buf__LIEG,',');
+    Self__AFFG=(__INTEGER)(Self__AFFG +  1);
   };
-  Self__0QEH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__V1DG->list_type__AKP);
-  __tmp__H2DG=((void **)Self__0QEH->parent_arrayed_collection__ZXC.storage__RMV)[Self__0QEH->parent_arrayed_collection__ZXC.upper__KIV];
-  switch (((struct ___OBJ *)__tmp__H2DG)->__id) {
+  Self__0ZEH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__KIEG->list_type__AKP);
+  __tmp__2IEG=((void **)Self__0ZEH->parent_arrayed_collection__ZXC.storage__RMV)[Self__0ZEH->parent_arrayed_collection__ZXC.upper__KIV];
+  switch (((struct ___OBJ *)__tmp__2IEG)->__id) {
   case __ITM_TYPE_PARAMETER__: {
-    Self__0I4G=((__ITM_TYPE_PARAMETER *)__tmp__H2DG);
-    if (((void *)Self__0I4G == (void *)type_self__HUN)) {
-      put__to__like__QCFG(Self__0I4G->parent_itm_type__3DE.name__KYP,buf__W1DG,(&__string_126));
-    } else {
-      put__to__like__QCFG(Self__0I4G->parent_itm_type__3DE.name__KYP,buf__W1DG,(&__string_125));
-    };
+    shorter_in__S3BG(__tmp__2IEG,buf__LIEG);
   } break;
   case __ITM_TYPE_SIMPLE__: {
-    Self__2I4G=((__ITM_TYPE_SIMPLE *)__tmp__H2DG);
-    if (((void *)Self__2I4G == (void *)type_self__HUN)) {
-      put__to__like__HEFG(Self__2I4G->name__KYP,buf__W1DG,(&__string_126));
-    } else {
-      put__to__like__HEFG(Self__2I4G->name__KYP,buf__W1DG,(&__string_125));
-    };
+    shorter_in__D4BG(__tmp__2IEG,buf__LIEG);
   } break;
   case __ITM_TYPE_BLOCK__: {
-    shorter_in__YVBG(__tmp__H2DG,buf__W1DG);
+    shorter_in__U4BG(__tmp__2IEG,buf__LIEG);
   } break;
   case __ITM_TYPE_GENERIC__: {
-    shorter_in__AXBG(__tmp__H2DG,buf__W1DG);
+    shorter_in__25BG(__tmp__2IEG,buf__LIEG);
   } break;
   case __ITM_TYPE_STYLE__: {
-    Self__MZHH=((__ITM_TYPE_STYLE *)__tmp__H2DG);
-    if (((void *)Self__MZHH->style__TYP != (void *)NULL)) {
-      put__to__like__MGFG(Self__MZHH->style__TYP,buf__W1DG,(&__string_119));
-      add_last__ZLT(buf__W1DG,' ');
-    };
-    if (((void *)Self__MZHH == (void *)type_self__HUN)) {
-      put__to__like__MGFG(Self__MZHH->parent_itm_type_simple__BSN.name__KYP,buf__W1DG,(&__string_126));
-    } else {
-      put__to__like__MGFG(Self__MZHH->parent_itm_type_simple__BSN.name__KYP,buf__W1DG,(&__string_125));
+    Self__2ZEH=((__ITM_TYPE_STYLE *)__tmp__2IEG);
+    if (((void *)Self__2ZEH->style__TYP != (void *)NULL)) {
+      put__to__like__MGEG(Self__2ZEH->style__TYP,buf__LIEG,(&__string_119));
+      add_last__ZLT(buf__LIEG,' ');
     };
+    put__to__like__MGEG(Self__2ZEH->parent_itm_type_simple__BSN.name__KYP,buf__LIEG,(&__string_125));
   } break;
   };
 }
 
-static void shorter_in__YVBG(__ITM_TYPE_BLOCK *Self__ZVBG,void *buf__0VBG)
+static void shorter_in__U4BG(__ITM_TYPE_BLOCK *Self__V4BG,void *buf__W4BG)
 // ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
 {
-  void *typ_mul__1VBG,*__tmp__PWBG;
-  void *__tmp__EWBG,*__tmp__OWBG,*__tmp__VWBG;
-  __ITM_TYPE_PARAMETER *Self__4I4G,*Self__CJ4G;
-  __ITM_TYPE_SIMPLE *Self__AJ4G,*Self__EJ4G;
-  __ITM_TYPE_MULTI *Self__HRWG,*Self__JRWG;
-  __ITM_TYPE_STYLE *Self__OZHH,*Self__QZHH;
-  typ_mul__1VBG=NULL;
-  put__to__like__GWDG((&__string_295),buf__0VBG);
-  if (((void *)Self__ZVBG->type_argument__WMN != (void *)NULL)) {
-    __tmp__EWBG=Self__ZVBG->type_argument__WMN;
-    switch (((struct ___OBJ *)__tmp__EWBG)->__id) {
+  void *typ_mul__X4BG,*__tmp__L5BG;
+  void *__tmp__A5BG,*__tmp__K5BG,*__tmp__R5BG;
+  __ITM_TYPE_MULTI *Self__E2WG,*Self__G2WG;
+  __ITM_TYPE_STYLE *Self__4ZEH,*Self__A0EH;
+  typ_mul__X4BG=NULL;
+  put__to__like__YBEG((&__string_298),buf__W4BG);
+  if (((void *)Self__V4BG->type_argument__WMN != (void *)NULL)) {
+    __tmp__A5BG=Self__V4BG->type_argument__WMN;
+    switch (((struct ___OBJ *)__tmp__A5BG)->__id) {
     case __ITM_TYPE_PARAMETER__: {
-      Self__4I4G=((__ITM_TYPE_PARAMETER *)__tmp__EWBG);
-      if (((void *)Self__4I4G == (void *)type_self__HUN)) {
-        put__to__like__QCFG(Self__4I4G->parent_itm_type__3DE.name__KYP,buf__0VBG,(&__string_126));
-      } else {
-        put__to__like__QCFG(Self__4I4G->parent_itm_type__3DE.name__KYP,buf__0VBG,(&__string_125));
-      };
+      shorter_in__S3BG(__tmp__A5BG,buf__W4BG);
     } break;
     case __ITM_TYPE_SIMPLE__: {
-      Self__AJ4G=((__ITM_TYPE_SIMPLE *)__tmp__EWBG);
-      if (((void *)Self__AJ4G == (void *)type_self__HUN)) {
-        put__to__like__HEFG(Self__AJ4G->name__KYP,buf__0VBG,(&__string_126));
-      } else {
-        put__to__like__HEFG(Self__AJ4G->name__KYP,buf__0VBG,(&__string_125));
-      };
+      shorter_in__D4BG(__tmp__A5BG,buf__W4BG);
     } break;
     case __ITM_TYPE_MULTI__: {
-      Self__HRWG=((__ITM_TYPE_MULTI *)__tmp__EWBG);
-      add_last__ZLT(buf__0VBG,'(');
-      shorter_raw_in__U1DG(Self__HRWG,buf__0VBG);
-      add_last__ZLT(buf__0VBG,')');
+      Self__E2WG=((__ITM_TYPE_MULTI *)__tmp__A5BG);
+      add_last__ZLT(buf__W4BG,'(');
+      shorter_raw_in__JIEG(Self__E2WG,buf__W4BG);
+      add_last__ZLT(buf__W4BG,')');
     } break;
     case __ITM_TYPE_BLOCK__: {
-      shorter_in__YVBG(__tmp__EWBG,buf__0VBG);
+      shorter_in__U4BG(__tmp__A5BG,buf__W4BG);
     } break;
     case __ITM_TYPE_GENERIC__: {
-      shorter_in__AXBG(__tmp__EWBG,buf__0VBG);
+      shorter_in__25BG(__tmp__A5BG,buf__W4BG);
     } break;
     case __ITM_TYPE_STYLE__: {
-      Self__OZHH=((__ITM_TYPE_STYLE *)__tmp__EWBG);
-      if (((void *)Self__OZHH->style__TYP != (void *)NULL)) {
-        put__to__like__MGFG(Self__OZHH->style__TYP,buf__0VBG,(&__string_119));
-        add_last__ZLT(buf__0VBG,' ');
-      };
-      if (((void *)Self__OZHH == (void *)type_self__HUN)) {
-        put__to__like__MGFG(Self__OZHH->parent_itm_type_simple__BSN.name__KYP,buf__0VBG,(&__string_126));
-      } else {
-        put__to__like__MGFG(Self__OZHH->parent_itm_type_simple__BSN.name__KYP,buf__0VBG,(&__string_125));
+      Self__4ZEH=((__ITM_TYPE_STYLE *)__tmp__A5BG);
+      if (((void *)Self__4ZEH->style__TYP != (void *)NULL)) {
+        put__to__like__MGEG(Self__4ZEH->style__TYP,buf__W4BG,(&__string_119));
+        add_last__ZLT(buf__W4BG,' ');
       };
+      put__to__like__MGEG(Self__4ZEH->parent_itm_type_simple__BSN.name__KYP,buf__W4BG,(&__string_125));
     } break;
     };
-    add_last__ZLT(buf__0VBG,';');
-    add_last__ZLT(buf__0VBG,' ');
+    add_last__ZLT(buf__W4BG,';');
+    add_last__ZLT(buf__W4BG,' ');
   };
-  if (((void *)Self__ZVBG->type_result__ANN != (void *)NULL)) {
-    __tmp__OWBG=Self__ZVBG->type_result__ANN;
-    if (__tmp__OWBG==NULL) {
-      __tmp__PWBG=NULL;
+  if (((void *)Self__V4BG->type_result__ANN != (void *)NULL)) {
+    __tmp__K5BG=Self__V4BG->type_result__ANN;
+    if (__tmp__K5BG==NULL) {
+      __tmp__L5BG=NULL;
     } else {
-      switch (((struct ___OBJ *)__tmp__OWBG)->__id) {
+      switch (((struct ___OBJ *)__tmp__K5BG)->__id) {
       case __ITM_TYPE_PARAMETER__: {
-        __tmp__PWBG=NULL;
+        __tmp__L5BG=NULL;
       } break;
       case __ITM_TYPE_SIMPLE__: {
-        __tmp__PWBG=NULL;
+        __tmp__L5BG=NULL;
       } break;
       case __ITM_TYPE_MULTI__: {
-        __tmp__PWBG=((void *)__tmp__OWBG);
+        __tmp__L5BG=((void *)__tmp__K5BG);
       } break;
       case __ITM_TYPE_BLOCK__: {
-        __tmp__PWBG=NULL;
+        __tmp__L5BG=NULL;
       } break;
       case __ITM_TYPE_GENERIC__: {
-        __tmp__PWBG=NULL;
+        __tmp__L5BG=NULL;
       } break;
       case __ITM_TYPE_STYLE__: {
-        __tmp__PWBG=NULL;
+        __tmp__L5BG=NULL;
       } break;
       }
     };
-    typ_mul__1VBG=__tmp__PWBG;
-    if (((void *)__tmp__PWBG == (void *)NULL)) {
-      __tmp__VWBG=Self__ZVBG->type_result__ANN;
-      switch (((struct ___OBJ *)__tmp__VWBG)->__id) {
+    typ_mul__X4BG=__tmp__L5BG;
+    if (((void *)__tmp__L5BG == (void *)NULL)) {
+      __tmp__R5BG=Self__V4BG->type_result__ANN;
+      switch (((struct ___OBJ *)__tmp__R5BG)->__id) {
       case __ITM_TYPE_PARAMETER__: {
-        Self__CJ4G=((__ITM_TYPE_PARAMETER *)__tmp__VWBG);
-        if (((void *)Self__CJ4G == (void *)type_self__HUN)) {
-          put__to__like__QCFG(Self__CJ4G->parent_itm_type__3DE.name__KYP,buf__0VBG,(&__string_126));
-        } else {
-          put__to__like__QCFG(Self__CJ4G->parent_itm_type__3DE.name__KYP,buf__0VBG,(&__string_125));
-        };
+        shorter_in__S3BG(__tmp__R5BG,buf__W4BG);
       } break;
       case __ITM_TYPE_SIMPLE__: {
-        Self__EJ4G=((__ITM_TYPE_SIMPLE *)__tmp__VWBG);
-        if (((void *)Self__EJ4G == (void *)type_self__HUN)) {
-          put__to__like__HEFG(Self__EJ4G->name__KYP,buf__0VBG,(&__string_126));
-        } else {
-          put__to__like__HEFG(Self__EJ4G->name__KYP,buf__0VBG,(&__string_125));
-        };
+        shorter_in__D4BG(__tmp__R5BG,buf__W4BG);
       } break;
       case __ITM_TYPE_MULTI__: {
-        Self__JRWG=((__ITM_TYPE_MULTI *)__tmp__VWBG);
-        add_last__ZLT(buf__0VBG,'(');
-        shorter_raw_in__U1DG(Self__JRWG,buf__0VBG);
-        add_last__ZLT(buf__0VBG,')');
+        Self__G2WG=((__ITM_TYPE_MULTI *)__tmp__R5BG);
+        add_last__ZLT(buf__W4BG,'(');
+        shorter_raw_in__JIEG(Self__G2WG,buf__W4BG);
+        add_last__ZLT(buf__W4BG,')');
       } break;
       case __ITM_TYPE_BLOCK__: {
-        shorter_in__YVBG(__tmp__VWBG,buf__0VBG);
+        shorter_in__U4BG(__tmp__R5BG,buf__W4BG);
       } break;
       case __ITM_TYPE_GENERIC__: {
-        shorter_in__AXBG(__tmp__VWBG,buf__0VBG);
+        shorter_in__25BG(__tmp__R5BG,buf__W4BG);
       } break;
       case __ITM_TYPE_STYLE__: {
-        Self__QZHH=((__ITM_TYPE_STYLE *)__tmp__VWBG);
-        if (((void *)Self__QZHH->style__TYP != (void *)NULL)) {
-          put__to__like__MGFG(Self__QZHH->style__TYP,buf__0VBG,(&__string_119));
-          add_last__ZLT(buf__0VBG,' ');
-        };
-        if (((void *)Self__QZHH == (void *)type_self__HUN)) {
-          put__to__like__MGFG(Self__QZHH->parent_itm_type_simple__BSN.name__KYP,buf__0VBG,(&__string_126));
-        } else {
-          put__to__like__MGFG(Self__QZHH->parent_itm_type_simple__BSN.name__KYP,buf__0VBG,(&__string_125));
+        Self__A0EH=((__ITM_TYPE_STYLE *)__tmp__R5BG);
+        if (((void *)Self__A0EH->style__TYP != (void *)NULL)) {
+          put__to__like__MGEG(Self__A0EH->style__TYP,buf__W4BG,(&__string_119));
+          add_last__ZLT(buf__W4BG,' ');
         };
+        put__to__like__MGEG(Self__A0EH->parent_itm_type_simple__BSN.name__KYP,buf__W4BG,(&__string_125));
       } break;
       };
     } else {
-      shorter_raw_in__U1DG(__tmp__PWBG,buf__0VBG);
+      shorter_raw_in__JIEG(__tmp__L5BG,buf__W4BG);
     };
   };
-  put__to__like__GWDG((&__string_296),buf__0VBG);
+  put__to__like__YBEG((&__string_299),buf__W4BG);
 }
 
-static void shorter_in__AXBG(__ITM_TYPE_GENERIC *Self__BXBG,void *buf__CXBG)
+static void shorter_in__25BG(__ITM_TYPE_GENERIC *Self__35BG,void *buf__45BG)
 // ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
 {
-  __INTEGER __tmp__XXBG,Self__3ZDG;
-  void *__tmp__4XBG,*__tmp__BYBG;
-  __ITM_TYPE_PARAMETER *Self__GJ4G,*Self__KJ4G;
-  __ITM_TYPE_SIMPLE *Self__IJ4G,*Self__MJ4G;
-  __ITM_TYPE_STYLE *Self__SZHH,*Self__DYBG;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__ZCRB;
-  if (((void *)Self__BXBG->parent_itm_type_style__CSN.style__TYP != (void *)NULL)) {
-    put__to__like__SYDG(Self__BXBG->parent_itm_type_style__CSN.style__TYP,buf__CXBG,(&__string_119));
-    add_last__ZLT(buf__CXBG,' ');
-  };
-  put__to__like__SYDG(Self__BXBG->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP,buf__CXBG,(&__string_125));
-  add_last__ZLT(buf__CXBG,'(');
-  __tmp__XXBG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__BXBG->list_type__3YP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
-  Self__3ZDG= 0;
-  while ((Self__3ZDG <= __tmp__XXBG)) {
-    __tmp__4XBG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__BXBG->list_type__3YP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__3ZDG];
-    switch (((struct ___OBJ *)__tmp__4XBG)->__id) {
+  __INTEGER __tmp__TACG,Self__PFEG;
+  void *__tmp__0ACG,*__tmp__3ACG;
+  __ITM_TYPE_STYLE *Self__F0EH,*Self__5ACG;
+  __FAST_ARRAYoITM_TYPE_MONOo *Self__H0EH;
+  if (((void *)Self__35BG->parent_itm_type_style__CSN.style__TYP != (void *)NULL)) {
+    put__to__like__EEEG(Self__35BG->parent_itm_type_style__CSN.style__TYP,buf__45BG,(&__string_119));
+    add_last__ZLT(buf__45BG,' ');
+  };
+  put__to__like__EEEG(Self__35BG->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP,buf__45BG,(&__string_125));
+  add_last__ZLT(buf__45BG,'(');
+  __tmp__TACG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__35BG->list_type__3YP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
+  Self__PFEG= 0;
+  while ((Self__PFEG <= __tmp__TACG)) {
+    __tmp__0ACG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__35BG->list_type__3YP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__PFEG];
+    switch (((struct ___OBJ *)__tmp__0ACG)->__id) {
     case __ITM_TYPE_PARAMETER__: {
-      Self__GJ4G=((__ITM_TYPE_PARAMETER *)__tmp__4XBG);
-      if (((void *)Self__GJ4G == (void *)type_self__HUN)) {
-        put__to__like__QCFG(Self__GJ4G->parent_itm_type__3DE.name__KYP,buf__CXBG,(&__string_126));
-      } else {
-        put__to__like__QCFG(Self__GJ4G->parent_itm_type__3DE.name__KYP,buf__CXBG,(&__string_125));
-      };
+      shorter_in__S3BG(__tmp__0ACG,buf__45BG);
     } break;
     case __ITM_TYPE_SIMPLE__: {
-      Self__IJ4G=((__ITM_TYPE_SIMPLE *)__tmp__4XBG);
-      if (((void *)Self__IJ4G == (void *)type_self__HUN)) {
-        put__to__like__HEFG(Self__IJ4G->name__KYP,buf__CXBG,(&__string_126));
-      } else {
-        put__to__like__HEFG(Self__IJ4G->name__KYP,buf__CXBG,(&__string_125));
-      };
+      shorter_in__D4BG(__tmp__0ACG,buf__45BG);
     } break;
     case __ITM_TYPE_BLOCK__: {
-      shorter_in__YVBG(__tmp__4XBG,buf__CXBG);
+      shorter_in__U4BG(__tmp__0ACG,buf__45BG);
     } break;
     case __ITM_TYPE_GENERIC__: {
-      shorter_in__AXBG(__tmp__4XBG,buf__CXBG);
+      shorter_in__25BG(__tmp__0ACG,buf__45BG);
     } break;
     case __ITM_TYPE_STYLE__: {
-      Self__SZHH=((__ITM_TYPE_STYLE *)__tmp__4XBG);
-      if (((void *)Self__SZHH->style__TYP != (void *)NULL)) {
-        put__to__like__MGFG(Self__SZHH->style__TYP,buf__CXBG,(&__string_119));
-        add_last__ZLT(buf__CXBG,' ');
-      };
-      if (((void *)Self__SZHH == (void *)type_self__HUN)) {
-        put__to__like__MGFG(Self__SZHH->parent_itm_type_simple__BSN.name__KYP,buf__CXBG,(&__string_126));
-      } else {
-        put__to__like__MGFG(Self__SZHH->parent_itm_type_simple__BSN.name__KYP,buf__CXBG,(&__string_125));
+      Self__F0EH=((__ITM_TYPE_STYLE *)__tmp__0ACG);
+      if (((void *)Self__F0EH->style__TYP != (void *)NULL)) {
+        put__to__like__MGEG(Self__F0EH->style__TYP,buf__45BG,(&__string_119));
+        add_last__ZLT(buf__45BG,' ');
       };
+      put__to__like__MGEG(Self__F0EH->parent_itm_type_simple__BSN.name__KYP,buf__45BG,(&__string_125));
     } break;
     };
-    add_last__ZLT(buf__CXBG,',');
-    Self__3ZDG=(__INTEGER)(Self__3ZDG +  1);
+    add_last__ZLT(buf__45BG,',');
+    Self__PFEG=(__INTEGER)(Self__PFEG +  1);
   };
-  Self__ZCRB=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__BXBG->list_type__3YP);
-  __tmp__BYBG=((void **)Self__ZCRB->parent_arrayed_collection__ZXC.storage__RMV)[Self__ZCRB->parent_arrayed_collection__ZXC.upper__KIV];
-  switch (((struct ___OBJ *)__tmp__BYBG)->__id) {
+  Self__H0EH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__35BG->list_type__3YP);
+  __tmp__3ACG=((void **)Self__H0EH->parent_arrayed_collection__ZXC.storage__RMV)[Self__H0EH->parent_arrayed_collection__ZXC.upper__KIV];
+  switch (((struct ___OBJ *)__tmp__3ACG)->__id) {
   case __ITM_TYPE_PARAMETER__: {
-    Self__KJ4G=((__ITM_TYPE_PARAMETER *)__tmp__BYBG);
-    if (((void *)Self__KJ4G == (void *)type_self__HUN)) {
-      put__to__like__QCFG(Self__KJ4G->parent_itm_type__3DE.name__KYP,buf__CXBG,(&__string_126));
-    } else {
-      put__to__like__QCFG(Self__KJ4G->parent_itm_type__3DE.name__KYP,buf__CXBG,(&__string_125));
-    };
+    shorter_in__S3BG(__tmp__3ACG,buf__45BG);
   } break;
   case __ITM_TYPE_SIMPLE__: {
-    Self__MJ4G=((__ITM_TYPE_SIMPLE *)__tmp__BYBG);
-    if (((void *)Self__MJ4G == (void *)type_self__HUN)) {
-      put__to__like__HEFG(Self__MJ4G->name__KYP,buf__CXBG,(&__string_126));
-    } else {
-      put__to__like__HEFG(Self__MJ4G->name__KYP,buf__CXBG,(&__string_125));
-    };
+    shorter_in__D4BG(__tmp__3ACG,buf__45BG);
   } break;
   case __ITM_TYPE_BLOCK__: {
-    shorter_in__YVBG(__tmp__BYBG,buf__CXBG);
+    shorter_in__U4BG(__tmp__3ACG,buf__45BG);
   } break;
   case __ITM_TYPE_GENERIC__: {
-    shorter_in__AXBG(__tmp__BYBG,buf__CXBG);
+    shorter_in__25BG(__tmp__3ACG,buf__45BG);
   } break;
   case __ITM_TYPE_STYLE__: {
-    Self__DYBG=((__ITM_TYPE_STYLE *)__tmp__BYBG);
-    if (((void *)Self__DYBG->style__TYP != (void *)NULL)) {
-      put__to__like__MGFG(Self__DYBG->style__TYP,buf__CXBG,(&__string_119));
-      add_last__ZLT(buf__CXBG,' ');
-    };
-    if (((void *)Self__DYBG == (void *)type_self__HUN)) {
-      put__to__like__MGFG(Self__DYBG->parent_itm_type_simple__BSN.name__KYP,buf__CXBG,(&__string_126));
-    } else {
-      put__to__like__MGFG(Self__DYBG->parent_itm_type_simple__BSN.name__KYP,buf__CXBG,(&__string_125));
+    Self__5ACG=((__ITM_TYPE_STYLE *)__tmp__3ACG);
+    if (((void *)Self__5ACG->style__TYP != (void *)NULL)) {
+      put__to__like__MGEG(Self__5ACG->style__TYP,buf__45BG,(&__string_119));
+      add_last__ZLT(buf__45BG,' ');
     };
+    put__to__like__MGEG(Self__5ACG->parent_itm_type_simple__BSN.name__KYP,buf__45BG,(&__string_125));
   } break;
   };
-  add_last__ZLT(buf__CXBG,')');
+  add_last__ZLT(buf__45BG,')');
 }
 
-static void put__to__like__MGFG(void *tok__OGFG,void *buf__PGFG,void *key__QGFG)
+static void put__to__like__MGEG(void *tok__OGEG,void *buf__PGEG,void *key__QGEG)
 // ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__2GFG,Self__BIGG;
-  void *lst__RGFG;
-  lst__RGFG=fast_reference_at__E34D(short_dico__QD,key__QGFG);
-  if (((void *)lst__RGFG != (void *)NULL)) {
-    __tmp__2GFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__RGFG)->parent_linked_collection__LD.upper__5CD;
-    Self__BIGG= 1;
-    while ((Self__BIGG <= __tmp__2GFG)) {
-      if (((void *)item__Y0ND(lst__RGFG,Self__BIGG) == (void *)NULL)) {
-        append__BOS(buf__PGFG,tok__OGFG);
+  __INTEGER __tmp__2GEG,Self__IAGG;
+  void *lst__RGEG;
+  lst__RGEG=fast_reference_at__GB5D(short_dico__QD,key__QGEG);
+  if (((void *)lst__RGEG != (void *)NULL)) {
+    __tmp__2GEG=((__LINKED_LISToSTRING_CONSTANTo *)lst__RGEG)->parent_linked_collection__LD.upper__5CD;
+    Self__IAGG= 1;
+    while ((Self__IAGG <= __tmp__2GEG)) {
+      if (((void *)item__Y0ND(lst__RGEG,Self__IAGG) == (void *)NULL)) {
+        append__BOS(buf__PGEG,tok__OGEG);
       } else {
-        append__BOS(buf__PGFG,item__Y0ND(lst__RGFG,Self__BIGG));
+        append__BOS(buf__PGEG,item__Y0ND(lst__RGEG,Self__IAGG));
       };
-      Self__BIGG=(__INTEGER)(Self__BIGG +  1);
+      Self__IAGG=(__INTEGER)(Self__IAGG +  1);
     };
   };
 }
 
-static void put__to__like__X1BG(void *tok__Z1BG,void *buf__01BG,void *key__11BG)
+static void put__to__like__DECG(void *tok__FECG,void *buf__GECG,void *key__HECG)
 // ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__H2BG,Self__IJFG;
-  void *lst__21BG;
-  lst__21BG=fast_reference_at__E34D(short_dico__QD,key__11BG);
-  if (((void *)lst__21BG != (void *)NULL)) {
-    __tmp__H2BG=((__LINKED_LISToSTRING_CONSTANTo *)lst__21BG)->parent_linked_collection__LD.upper__5CD;
-    Self__IJFG= 1;
-    while ((Self__IJFG <= __tmp__H2BG)) {
-      if (((void *)item__Y0ND(lst__21BG,Self__IJFG) == (void *)NULL)) {
-        append__BOS(buf__01BG,tok__Z1BG);
+  __INTEGER __tmp__TECG,Self__GSFG;
+  void *lst__IECG;
+  lst__IECG=fast_reference_at__GB5D(short_dico__QD,key__HECG);
+  if (((void *)lst__IECG != (void *)NULL)) {
+    __tmp__TECG=((__LINKED_LISToSTRING_CONSTANTo *)lst__IECG)->parent_linked_collection__LD.upper__5CD;
+    Self__GSFG= 1;
+    while ((Self__GSFG <= __tmp__TECG)) {
+      if (((void *)item__Y0ND(lst__IECG,Self__GSFG) == (void *)NULL)) {
+        append__BOS(buf__GECG,tok__FECG);
       } else {
-        append__BOS(buf__01BG,item__Y0ND(lst__21BG,Self__IJFG));
+        append__BOS(buf__GECG,item__Y0ND(lst__IECG,Self__GSFG));
       };
-      Self__IJFG=(__INTEGER)(Self__IJFG +  1);
+      Self__GSFG=(__INTEGER)(Self__GSFG +  1);
     };
   };
 }
@@ -25853,389 +26147,389 @@ static void put__to__like__X1BG(void *tok__Z1BG,void *buf__01BG,void *key__11BG)
 static void set_path__ONT(__DIRECTORY_UNIX *Self__PNT,void *n__QNT)
 // ({DIRECTORY_UNIX},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *result__VHGH,*Self__ZLCH,*Self__2LCH,*result__3HGH;
-  __STRING_CONSTANT *Self__1ZQG;
-  __POINTER ptr__WHGH,ptr_table__VZHH,next__UZHH,result__WZHH;
-  __POINTER ptr_table__0ZHH,next__ZZHH,result__1ZHH,ptr__4HGH;
-  __POINTER ptr_table__5ZHH,next__4ZHH,result__A0HH,ptr_table__E0HH;
-  __POINTER next__D0HH,result__F0HH,ptr__5M4G;
-  __INTEGER typ_id__XHGH,c__1LCH,Self__GSEH,idx__EXFH,idx__RNT;
-  __INTEGER typ_id__5HGH,__tmp__HOT;
-  __UINTEGER_32 sz__YHGH,a__ZHGH,new_size__0HGH,t__1HGH,a__2HGH;
-  __UINTEGER_32 new_size__3ZHH,lab_type__2ZHH,sz__AIGH,a__BIGH;
-  __UINTEGER_32 new_size__CIGH,t__DIGH,a__EIGH,new_size__H0HH;
-  __UINTEGER_32 lab_type__G0HH;
+  __STRING_CONSTANT *result__CQGH,*Self__FVCH,*Self__IVCH,*result__KQGH;
+  __STRING_CONSTANT *Self__ADRG;
+  __POINTER ptr__DQGH,ptr_table__OBIH,next__NBIH,result__PBIH;
+  __POINTER ptr_table__TBIH,next__SBIH,result__UBIH,ptr__LQGH;
+  __POINTER ptr_table__YBIH,next__XBIH,result__ZBIH,ptr_table__3BIH;
+  __POINTER next__2BIH,result__4BIH,ptr__JW4G;
+  __INTEGER typ_id__EQGH,c__HVCH,Self__A1EH,idx__R5FH,idx__RNT;
+  __INTEGER typ_id__MQGH,__tmp__HOT;
+  __UINTEGER_32 sz__FQGH,a__GQGH,new_size__HQGH,t__IQGH,a__JQGH;
+  __UINTEGER_32 new_size__WBIH,lab_type__VBIH,sz__NQGH,a__OQGH;
+  __UINTEGER_32 new_size__PQGH,t__QQGH,a__RQGH,new_size__ACIH;
+  __UINTEGER_32 lab_type__5BIH;
   void *__tmp__5NT;
-  __CHARACTER *Self__HSEH,*model__ISEH,*Self__GXFH,*__tmp__DOT;
-  result__VHGH=NULL;
-  ptr__WHGH=((__POINTER )(NULL));
-  typ_id__XHGH= 0;
-  sz__YHGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-  if ((sz__YHGH ==  0)) {
-    result__VHGH=STRING_CONSTANT__;
+  __CHARACTER *Self__B1EH,*model__C1EH,*Self__T5FH,*__tmp__DOT;
+  result__CQGH=NULL;
+  ptr__DQGH=((__POINTER )(NULL));
+  typ_id__EQGH= 0;
+  sz__FQGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
+  if ((sz__FQGH ==  0)) {
+    result__CQGH=STRING_CONSTANT__;
   } else {
-    typ_id__XHGH=-1;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YHGH);
-    if ((typ_id__XHGH == (__INTEGER)(-  1))) {
-      a__ZHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0HGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YHGH + a__ZHGH) & (__UINTEGER_32)(~ a__ZHGH));
-      ptr_table__VZHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0HGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__UZHH=((__POINTER )(NULL));
-      result__WZHH=((__POINTER *)ptr_table__VZHH)[ 0];
-      if ((result__WZHH == (void *)NULL)) {
-        result__WZHH=new_lab__MRJ(new_size__0HGH);
-        next__UZHH=(void *)((unsigned long)result__WZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0HGH)));
-        ((__POINTER *)next__UZHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VZHH)[ 0]=next__UZHH;
-      } else {
-        next__UZHH=((__POINTER *)result__WZHH)[ 0];
-        if ((next__UZHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WZHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0HGH <<  1)) <=  4096)) {
-            next__UZHH=(void *)((unsigned long)result__WZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0HGH)));
-          } else {
-            next__UZHH=new_lab__MRJ(new_size__0HGH);
-          };
-          ((__POINTER *)next__UZHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VZHH)[ 0]=next__UZHH;
-        } else {
-          ((__POINTER *)result__WZHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WZHH=next__UZHH;
-        };
-      };
-      ptr__WHGH=result__WZHH;
-    } else {
-      t__1HGH=((__UINTEGER_32 )typ_id__XHGH);
-      a__2HGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__3ZHH=(__UINTEGER_32)((__UINTEGER_32)(sz__YHGH + a__2HGH) & (__UINTEGER_32)(~ a__2HGH));
-      ptr_table__0ZHH=((__POINTER )(&(table_type[(t__1HGH)])));
-      lab_type__2ZHH=(__UINTEGER_32)(t__1HGH |  1);
-      next__ZZHH=((__POINTER )(NULL));
-      result__1ZHH=((__POINTER *)ptr_table__0ZHH)[ 0];
-      if ((result__1ZHH == (void *)NULL)) {
-        result__1ZHH=new_lab__MRJ(lab_type__2ZHH);
-        next__ZZHH=(void *)((unsigned long)result__1ZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZHH)));
-        ((__POINTER *)next__ZZHH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0ZHH)[ 0]=next__ZZHH;
-      } else {
-        next__ZZHH=((__POINTER *)result__1ZHH)[ 0];
-        if ((next__ZZHH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1ZHH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3ZHH <<  1)) <=  4096)) {
-            next__ZZHH=(void *)((unsigned long)result__1ZHH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZHH)));
-          } else {
-            next__ZZHH=new_lab__MRJ(lab_type__2ZHH);
-          };
-          ((__POINTER *)next__ZZHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0ZHH)[ 0]=next__ZZHH;
-        } else {
-          ((__POINTER *)result__1ZHH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1ZHH=next__ZZHH;
-        };
-      };
-      ptr__WHGH=result__1ZHH;
-    };
-    result__VHGH=((__STRING_CONSTANT *)ptr__WHGH);
-    *(result__VHGH) = *(STRING_CONSTANT__);
-  };
-  Self__ZLCH=((__STRING_CONSTANT *)result__VHGH);
-  c__1LCH=((__STRING *)n__QNT)->count__WFC;
-  if ((c__1LCH !=  0)) {
-    Self__ZLCH->storage__VQO=create__BMEB((__INTEGER)(c__1LCH +  1));
-    Self__HSEH=((__CHARACTER *)Self__ZLCH->storage__VQO);
-    model__ISEH=((__STRING *)n__QNT)->storage__BCS;
-    Self__GSEH=(__INTEGER)(c__1LCH -  1);
-    while ((Self__GSEH >=  0)) {
-      Self__HSEH[Self__GSEH]=((__CHARACTER *)model__ISEH)[Self__GSEH];
-      Self__GSEH=(__INTEGER)(Self__GSEH -  1);
-    };
-    ((__CHARACTER *)Self__ZLCH->storage__VQO)[c__1LCH]='\0';
-    Self__ZLCH->count__DD=c__1LCH;
-  };
-  Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD=result__VHGH;
-  Self__2LCH=((__STRING_CONSTANT *)Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD);
-  Self__GXFH=((__CHARACTER *)Self__2LCH->storage__VQO);
-  idx__EXFH=(__INTEGER)(Self__2LCH->count__DD -  1);
-  while ((! ((idx__EXFH <  0) || ('/' == Self__GXFH[idx__EXFH])))) {
-    idx__EXFH=(__INTEGER)(idx__EXFH -  1);
-  };
-  idx__RNT=(__INTEGER)( 1 + idx__EXFH);
+    typ_id__EQGH=-1;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FQGH);
+    if ((typ_id__EQGH == (__INTEGER)(-  1))) {
+      a__GQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__HQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__FQGH + a__GQGH) & (__UINTEGER_32)(~ a__GQGH));
+      ptr_table__OBIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__NBIH=((__POINTER )(NULL));
+      result__PBIH=((__POINTER *)ptr_table__OBIH)[ 0];
+      if ((result__PBIH == (void *)NULL)) {
+        result__PBIH=new_lab__MRJ(new_size__HQGH);
+        next__NBIH=(void *)((unsigned long)result__PBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQGH)));
+        ((__POINTER *)next__NBIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__OBIH)[ 0]=next__NBIH;
+      } else {
+        next__NBIH=((__POINTER *)result__PBIH)[ 0];
+        if ((next__NBIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HQGH <<  1)) <=  4096)) {
+            next__NBIH=(void *)((unsigned long)result__PBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQGH)));
+          } else {
+            next__NBIH=new_lab__MRJ(new_size__HQGH);
+          };
+          ((__POINTER *)next__NBIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__OBIH)[ 0]=next__NBIH;
+        } else {
+          ((__POINTER *)result__PBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__PBIH=next__NBIH;
+        };
+      };
+      ptr__DQGH=result__PBIH;
+    } else {
+      t__IQGH=((__UINTEGER_32 )typ_id__EQGH);
+      a__JQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__WBIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FQGH + a__JQGH) & (__UINTEGER_32)(~ a__JQGH));
+      ptr_table__TBIH=((__POINTER )(&(table_type[(t__IQGH)])));
+      lab_type__VBIH=(__UINTEGER_32)(t__IQGH |  1);
+      next__SBIH=((__POINTER )(NULL));
+      result__UBIH=((__POINTER *)ptr_table__TBIH)[ 0];
+      if ((result__UBIH == (void *)NULL)) {
+        result__UBIH=new_lab__MRJ(lab_type__VBIH);
+        next__SBIH=(void *)((unsigned long)result__UBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBIH)));
+        ((__POINTER *)next__SBIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__TBIH)[ 0]=next__SBIH;
+      } else {
+        next__SBIH=((__POINTER *)result__UBIH)[ 0];
+        if ((next__SBIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WBIH <<  1)) <=  4096)) {
+            next__SBIH=(void *)((unsigned long)result__UBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBIH)));
+          } else {
+            next__SBIH=new_lab__MRJ(lab_type__VBIH);
+          };
+          ((__POINTER *)next__SBIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__TBIH)[ 0]=next__SBIH;
+        } else {
+          ((__POINTER *)result__UBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__UBIH=next__SBIH;
+        };
+      };
+      ptr__DQGH=result__UBIH;
+    };
+    result__CQGH=((__STRING_CONSTANT *)ptr__DQGH);
+    *(result__CQGH) = *(STRING_CONSTANT__);
+  };
+  Self__FVCH=((__STRING_CONSTANT *)result__CQGH);
+  c__HVCH=((__STRING *)n__QNT)->count__WFC;
+  if ((c__HVCH !=  0)) {
+    Self__FVCH->storage__VQO=create__BMEB((__INTEGER)(c__HVCH +  1));
+    Self__B1EH=((__CHARACTER *)Self__FVCH->storage__VQO);
+    model__C1EH=((__STRING *)n__QNT)->storage__BCS;
+    Self__A1EH=(__INTEGER)(c__HVCH -  1);
+    while ((Self__A1EH >=  0)) {
+      Self__B1EH[Self__A1EH]=((__CHARACTER *)model__C1EH)[Self__A1EH];
+      Self__A1EH=(__INTEGER)(Self__A1EH -  1);
+    };
+    ((__CHARACTER *)Self__FVCH->storage__VQO)[c__HVCH]='\0';
+    Self__FVCH->count__DD=c__HVCH;
+  };
+  Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD=result__CQGH;
+  Self__IVCH=((__STRING_CONSTANT *)Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD);
+  Self__T5FH=((__CHARACTER *)Self__IVCH->storage__VQO);
+  idx__R5FH=(__INTEGER)(Self__IVCH->count__DD -  1);
+  while ((! ((idx__R5FH <  0) || ('/' == Self__T5FH[idx__R5FH])))) {
+    idx__R5FH=(__INTEGER)(idx__R5FH -  1);
+  };
+  idx__RNT=(__INTEGER)( 1 + idx__R5FH);
   if (((void *)Self__PNT->parent_entry_unix__ZED.parent_entry__YED.name__VNT == (void *)NULL)) {
-    result__3HGH=NULL;
-    ptr__4HGH=((__POINTER )(NULL));
-    typ_id__5HGH= 0;
-    sz__AIGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__AIGH ==  0)) {
-      result__3HGH=STRING_CONSTANT__;
-    } else {
-      typ_id__5HGH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__AIGH);
-      if ((typ_id__5HGH == (__INTEGER)(-  1))) {
-        a__BIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__CIGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AIGH + a__BIGH) & (__UINTEGER_32)(~ a__BIGH));
-        ptr_table__5ZHH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CIGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__4ZHH=((__POINTER )(NULL));
-        result__A0HH=((__POINTER *)ptr_table__5ZHH)[ 0];
-        if ((result__A0HH == (void *)NULL)) {
-          result__A0HH=new_lab__MRJ(new_size__CIGH);
-          next__4ZHH=(void *)((unsigned long)result__A0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CIGH)));
-          ((__POINTER *)next__4ZHH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5ZHH)[ 0]=next__4ZHH;
-        } else {
-          next__4ZHH=((__POINTER *)result__A0HH)[ 0];
-          if ((next__4ZHH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CIGH <<  1)) <=  4096)) {
-              next__4ZHH=(void *)((unsigned long)result__A0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CIGH)));
+    result__KQGH=NULL;
+    ptr__LQGH=((__POINTER )(NULL));
+    typ_id__MQGH= 0;
+    sz__NQGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
+    if ((sz__NQGH ==  0)) {
+      result__KQGH=STRING_CONSTANT__;
+    } else {
+      typ_id__MQGH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NQGH);
+      if ((typ_id__MQGH == (__INTEGER)(-  1))) {
+        a__OQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__PQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NQGH + a__OQGH) & (__UINTEGER_32)(~ a__OQGH));
+        ptr_table__YBIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__XBIH=((__POINTER )(NULL));
+        result__ZBIH=((__POINTER *)ptr_table__YBIH)[ 0];
+        if ((result__ZBIH == (void *)NULL)) {
+          result__ZBIH=new_lab__MRJ(new_size__PQGH);
+          next__XBIH=(void *)((unsigned long)result__ZBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQGH)));
+          ((__POINTER *)next__XBIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__YBIH)[ 0]=next__XBIH;
+        } else {
+          next__XBIH=((__POINTER *)result__ZBIH)[ 0];
+          if ((next__XBIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PQGH <<  1)) <=  4096)) {
+              next__XBIH=(void *)((unsigned long)result__ZBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQGH)));
             } else {
-              next__4ZHH=new_lab__MRJ(new_size__CIGH);
-            };
-            ((__POINTER *)next__4ZHH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__5ZHH)[ 0]=next__4ZHH;
-          } else {
-            ((__POINTER *)result__A0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4ZHH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__A0HH=next__4ZHH;
-          };
-        };
-        ptr__4HGH=result__A0HH;
-      } else {
-        t__DIGH=((__UINTEGER_32 )typ_id__5HGH);
-        a__EIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__H0HH=(__UINTEGER_32)((__UINTEGER_32)(sz__AIGH + a__EIGH) & (__UINTEGER_32)(~ a__EIGH));
-        ptr_table__E0HH=((__POINTER )(&(table_type[(t__DIGH)])));
-        lab_type__G0HH=(__UINTEGER_32)(t__DIGH |  1);
-        next__D0HH=((__POINTER )(NULL));
-        result__F0HH=((__POINTER *)ptr_table__E0HH)[ 0];
-        if ((result__F0HH == (void *)NULL)) {
-          result__F0HH=new_lab__MRJ(lab_type__G0HH);
-          next__D0HH=(void *)((unsigned long)result__F0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H0HH)));
-          ((__POINTER *)next__D0HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__E0HH)[ 0]=next__D0HH;
-        } else {
-          next__D0HH=((__POINTER *)result__F0HH)[ 0];
-          if ((next__D0HH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__H0HH <<  1)) <=  4096)) {
-              next__D0HH=(void *)((unsigned long)result__F0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H0HH)));
+              next__XBIH=new_lab__MRJ(new_size__PQGH);
+            };
+            ((__POINTER *)next__XBIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__YBIH)[ 0]=next__XBIH;
+          } else {
+            ((__POINTER *)result__ZBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__ZBIH=next__XBIH;
+          };
+        };
+        ptr__LQGH=result__ZBIH;
+      } else {
+        t__QQGH=((__UINTEGER_32 )typ_id__MQGH);
+        a__RQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__ACIH=(__UINTEGER_32)((__UINTEGER_32)(sz__NQGH + a__RQGH) & (__UINTEGER_32)(~ a__RQGH));
+        ptr_table__3BIH=((__POINTER )(&(table_type[(t__QQGH)])));
+        lab_type__5BIH=(__UINTEGER_32)(t__QQGH |  1);
+        next__2BIH=((__POINTER )(NULL));
+        result__4BIH=((__POINTER *)ptr_table__3BIH)[ 0];
+        if ((result__4BIH == (void *)NULL)) {
+          result__4BIH=new_lab__MRJ(lab_type__5BIH);
+          next__2BIH=(void *)((unsigned long)result__4BIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACIH)));
+          ((__POINTER *)next__2BIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__3BIH)[ 0]=next__2BIH;
+        } else {
+          next__2BIH=((__POINTER *)result__4BIH)[ 0];
+          if ((next__2BIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4BIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ACIH <<  1)) <=  4096)) {
+              next__2BIH=(void *)((unsigned long)result__4BIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACIH)));
             } else {
-              next__D0HH=new_lab__MRJ(lab_type__G0HH);
+              next__2BIH=new_lab__MRJ(lab_type__5BIH);
             };
-            ((__POINTER *)next__D0HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__E0HH)[ 0]=next__D0HH;
+            ((__POINTER *)next__2BIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__3BIH)[ 0]=next__2BIH;
           } else {
-            ((__POINTER *)result__F0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__F0HH=next__D0HH;
+            ((__POINTER *)result__4BIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2BIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__4BIH=next__2BIH;
           };
         };
-        ptr__4HGH=result__F0HH;
+        ptr__LQGH=result__4BIH;
       };
-      result__3HGH=((__STRING_CONSTANT *)ptr__4HGH);
-      *(result__3HGH) = *(STRING_CONSTANT__);
+      result__KQGH=((__STRING_CONSTANT *)ptr__LQGH);
+      *(result__KQGH) = *(STRING_CONSTANT__);
     };
-    Self__PNT->parent_entry_unix__ZED.parent_entry__YED.name__VNT=result__3HGH;
+    Self__PNT->parent_entry_unix__ZED.parent_entry__YED.name__VNT=result__KQGH;
   };
   __tmp__5NT=Self__PNT->parent_entry_unix__ZED.parent_entry__YED.name__VNT;
-  ptr__5M4G=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD)->storage__VQO));
-  ptr__5M4G=(void *)((unsigned long)ptr__5M4G - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__RNT)));
-  __tmp__DOT=((__CHARACTER *)ptr__5M4G);
+  ptr__JW4G=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD)->storage__VQO));
+  ptr__JW4G=(void *)((unsigned long)ptr__JW4G - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__RNT)));
+  __tmp__DOT=((__CHARACTER *)ptr__JW4G);
   __tmp__HOT=(__INTEGER)(((__STRING_CONSTANT *)Self__PNT->parent_entry_unix__ZED.parent_entry__YED.path__BD)->count__DD - idx__RNT);
-  Self__1ZQG=((__STRING_CONSTANT *)__tmp__5NT);
-  Self__1ZQG->storage__VQO=__tmp__DOT;
-  Self__1ZQG->count__DD=__tmp__HOT;
+  Self__ADRG=((__STRING_CONSTANT *)__tmp__5NT);
+  Self__ADRG->storage__VQO=__tmp__DOT;
+  Self__ADRG->count__DD=__tmp__HOT;
 }
 
 static void set_path__JOT(__FILE_UNIX *Self__KOT,void *n__LOT)
 // ({FILE_UNIX},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *result__FIGH,*Self__BMCH,*Self__EMCH,*result__NIGH;
-  __STRING_CONSTANT *Self__A0QG;
-  __POINTER ptr__GIGH,ptr_table__J0HH,next__I0HH,result__K0HH;
-  __POINTER ptr_table__O0HH,next__N0HH,result__P0HH,ptr__OIGH;
-  __POINTER ptr_table__T0HH,next__S0HH,result__U0HH,ptr_table__Y0HH;
-  __POINTER next__X0HH,result__Z0HH,ptr__NOY;
-  __INTEGER typ_id__HIGH,c__DMCH,Self__RSEH,idx__JXFH,idx__MOT;
-  __INTEGER typ_id__PIGH,__tmp__BPT;
-  __UINTEGER_32 sz__IIGH,a__JIGH,new_size__KIGH,t__LIGH,a__MIGH;
-  __UINTEGER_32 new_size__R0HH,lab_type__Q0HH,sz__QIGH,a__RIGH;
-  __UINTEGER_32 new_size__SIGH,t__TIGH,a__UIGH,new_size__10HH;
-  __UINTEGER_32 lab_type__00HH;
+  __STRING_CONSTANT *result__SQGH,*Self__NVCH,*Self__QVCH,*result__0QGH;
+  __STRING_CONSTANT *Self__FDRG;
+  __POINTER ptr__TQGH,ptr_table__CCIH,next__BCIH,result__DCIH;
+  __POINTER ptr_table__HCIH,next__GCIH,result__ICIH,ptr__1QGH;
+  __POINTER ptr_table__MCIH,next__LCIH,result__NCIH,ptr_table__RCIH;
+  __POINTER next__QCIH,result__SCIH,ptr__NOY;
+  __INTEGER typ_id__UQGH,c__PVCH,Self__L1EH,idx__W5FH,idx__MOT;
+  __INTEGER typ_id__2QGH,__tmp__BPT;
+  __UINTEGER_32 sz__VQGH,a__WQGH,new_size__XQGH,t__YQGH,a__ZQGH;
+  __UINTEGER_32 new_size__KCIH,lab_type__JCIH,sz__3QGH,a__4QGH;
+  __UINTEGER_32 new_size__5QGH,t__ARGH,a__BRGH,new_size__UCIH;
+  __UINTEGER_32 lab_type__TCIH;
   void *__tmp__ZOT;
-  __CHARACTER *Self__SSEH,*model__TSEH,*Self__LXFH,*__tmp__3OT;
-  result__FIGH=NULL;
-  ptr__GIGH=((__POINTER )(NULL));
-  typ_id__HIGH= 0;
-  sz__IIGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-  if ((sz__IIGH ==  0)) {
-    result__FIGH=STRING_CONSTANT__;
+  __CHARACTER *Self__M1EH,*model__N1EH,*Self__Y5FH,*__tmp__3OT;
+  result__SQGH=NULL;
+  ptr__TQGH=((__POINTER )(NULL));
+  typ_id__UQGH= 0;
+  sz__VQGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
+  if ((sz__VQGH ==  0)) {
+    result__SQGH=STRING_CONSTANT__;
   } else {
-    typ_id__HIGH=-1;
-    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__IIGH);
-    if ((typ_id__HIGH == (__INTEGER)(-  1))) {
-      a__JIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__KIGH=(__UINTEGER_32)((__UINTEGER_32)(sz__IIGH + a__JIGH) & (__UINTEGER_32)(~ a__JIGH));
-      ptr_table__J0HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KIGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__I0HH=((__POINTER )(NULL));
-      result__K0HH=((__POINTER *)ptr_table__J0HH)[ 0];
-      if ((result__K0HH == (void *)NULL)) {
-        result__K0HH=new_lab__MRJ(new_size__KIGH);
-        next__I0HH=(void *)((unsigned long)result__K0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KIGH)));
-        ((__POINTER *)next__I0HH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__J0HH)[ 0]=next__I0HH;
-      } else {
-        next__I0HH=((__POINTER *)result__K0HH)[ 0];
-        if ((next__I0HH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KIGH <<  1)) <=  4096)) {
-            next__I0HH=(void *)((unsigned long)result__K0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KIGH)));
-          } else {
-            next__I0HH=new_lab__MRJ(new_size__KIGH);
-          };
-          ((__POINTER *)next__I0HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__J0HH)[ 0]=next__I0HH;
-        } else {
-          ((__POINTER *)result__K0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__K0HH=next__I0HH;
-        };
-      };
-      ptr__GIGH=result__K0HH;
-    } else {
-      t__LIGH=((__UINTEGER_32 )typ_id__HIGH);
-      a__MIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__R0HH=(__UINTEGER_32)((__UINTEGER_32)(sz__IIGH + a__MIGH) & (__UINTEGER_32)(~ a__MIGH));
-      ptr_table__O0HH=((__POINTER )(&(table_type[(t__LIGH)])));
-      lab_type__Q0HH=(__UINTEGER_32)(t__LIGH |  1);
-      next__N0HH=((__POINTER )(NULL));
-      result__P0HH=((__POINTER *)ptr_table__O0HH)[ 0];
-      if ((result__P0HH == (void *)NULL)) {
-        result__P0HH=new_lab__MRJ(lab_type__Q0HH);
-        next__N0HH=(void *)((unsigned long)result__P0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R0HH)));
-        ((__POINTER *)next__N0HH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__O0HH)[ 0]=next__N0HH;
-      } else {
-        next__N0HH=((__POINTER *)result__P0HH)[ 0];
-        if ((next__N0HH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__R0HH <<  1)) <=  4096)) {
-            next__N0HH=(void *)((unsigned long)result__P0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__R0HH)));
-          } else {
-            next__N0HH=new_lab__MRJ(lab_type__Q0HH);
-          };
-          ((__POINTER *)next__N0HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__O0HH)[ 0]=next__N0HH;
-        } else {
-          ((__POINTER *)result__P0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__P0HH=next__N0HH;
-        };
-      };
-      ptr__GIGH=result__P0HH;
-    };
-    result__FIGH=((__STRING_CONSTANT *)ptr__GIGH);
-    *(result__FIGH) = *(STRING_CONSTANT__);
-  };
-  Self__BMCH=((__STRING_CONSTANT *)result__FIGH);
-  c__DMCH=((__STRING *)n__LOT)->count__WFC;
-  if ((c__DMCH !=  0)) {
-    Self__BMCH->storage__VQO=create__BMEB((__INTEGER)(c__DMCH +  1));
-    Self__SSEH=((__CHARACTER *)Self__BMCH->storage__VQO);
-    model__TSEH=((__STRING *)n__LOT)->storage__BCS;
-    Self__RSEH=(__INTEGER)(c__DMCH -  1);
-    while ((Self__RSEH >=  0)) {
-      Self__SSEH[Self__RSEH]=((__CHARACTER *)model__TSEH)[Self__RSEH];
-      Self__RSEH=(__INTEGER)(Self__RSEH -  1);
-    };
-    ((__CHARACTER *)Self__BMCH->storage__VQO)[c__DMCH]='\0';
-    Self__BMCH->count__DD=c__DMCH;
-  };
-  Self__KOT->parent_entry_unix__2CF.parent_entry__YED.path__BD=result__FIGH;
-  Self__EMCH=((__STRING_CONSTANT *)Self__KOT->parent_entry_unix__2CF.parent_entry__YED.path__BD);
-  Self__LXFH=((__CHARACTER *)Self__EMCH->storage__VQO);
-  idx__JXFH=(__INTEGER)(Self__EMCH->count__DD -  1);
-  while ((! ((idx__JXFH <  0) || ('/' == Self__LXFH[idx__JXFH])))) {
-    idx__JXFH=(__INTEGER)(idx__JXFH -  1);
-  };
-  idx__MOT=(__INTEGER)( 1 + idx__JXFH);
+    typ_id__UQGH=-1;
+    clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__VQGH);
+    if ((typ_id__UQGH == (__INTEGER)(-  1))) {
+      a__WQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__XQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__VQGH + a__WQGH) & (__UINTEGER_32)(~ a__WQGH));
+      ptr_table__CCIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__BCIH=((__POINTER )(NULL));
+      result__DCIH=((__POINTER *)ptr_table__CCIH)[ 0];
+      if ((result__DCIH == (void *)NULL)) {
+        result__DCIH=new_lab__MRJ(new_size__XQGH);
+        next__BCIH=(void *)((unsigned long)result__DCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQGH)));
+        ((__POINTER *)next__BCIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__CCIH)[ 0]=next__BCIH;
+      } else {
+        next__BCIH=((__POINTER *)result__DCIH)[ 0];
+        if ((next__BCIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DCIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XQGH <<  1)) <=  4096)) {
+            next__BCIH=(void *)((unsigned long)result__DCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQGH)));
+          } else {
+            next__BCIH=new_lab__MRJ(new_size__XQGH);
+          };
+          ((__POINTER *)next__BCIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__CCIH)[ 0]=next__BCIH;
+        } else {
+          ((__POINTER *)result__DCIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BCIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__DCIH=next__BCIH;
+        };
+      };
+      ptr__TQGH=result__DCIH;
+    } else {
+      t__YQGH=((__UINTEGER_32 )typ_id__UQGH);
+      a__ZQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__KCIH=(__UINTEGER_32)((__UINTEGER_32)(sz__VQGH + a__ZQGH) & (__UINTEGER_32)(~ a__ZQGH));
+      ptr_table__HCIH=((__POINTER )(&(table_type[(t__YQGH)])));
+      lab_type__JCIH=(__UINTEGER_32)(t__YQGH |  1);
+      next__GCIH=((__POINTER )(NULL));
+      result__ICIH=((__POINTER *)ptr_table__HCIH)[ 0];
+      if ((result__ICIH == (void *)NULL)) {
+        result__ICIH=new_lab__MRJ(lab_type__JCIH);
+        next__GCIH=(void *)((unsigned long)result__ICIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCIH)));
+        ((__POINTER *)next__GCIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__HCIH)[ 0]=next__GCIH;
+      } else {
+        next__GCIH=((__POINTER *)result__ICIH)[ 0];
+        if ((next__GCIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ICIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KCIH <<  1)) <=  4096)) {
+            next__GCIH=(void *)((unsigned long)result__ICIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCIH)));
+          } else {
+            next__GCIH=new_lab__MRJ(lab_type__JCIH);
+          };
+          ((__POINTER *)next__GCIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__HCIH)[ 0]=next__GCIH;
+        } else {
+          ((__POINTER *)result__ICIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GCIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__ICIH=next__GCIH;
+        };
+      };
+      ptr__TQGH=result__ICIH;
+    };
+    result__SQGH=((__STRING_CONSTANT *)ptr__TQGH);
+    *(result__SQGH) = *(STRING_CONSTANT__);
+  };
+  Self__NVCH=((__STRING_CONSTANT *)result__SQGH);
+  c__PVCH=((__STRING *)n__LOT)->count__WFC;
+  if ((c__PVCH !=  0)) {
+    Self__NVCH->storage__VQO=create__BMEB((__INTEGER)(c__PVCH +  1));
+    Self__M1EH=((__CHARACTER *)Self__NVCH->storage__VQO);
+    model__N1EH=((__STRING *)n__LOT)->storage__BCS;
+    Self__L1EH=(__INTEGER)(c__PVCH -  1);
+    while ((Self__L1EH >=  0)) {
+      Self__M1EH[Self__L1EH]=((__CHARACTER *)model__N1EH)[Self__L1EH];
+      Self__L1EH=(__INTEGER)(Self__L1EH -  1);
+    };
+    ((__CHARACTER *)Self__NVCH->storage__VQO)[c__PVCH]='\0';
+    Self__NVCH->count__DD=c__PVCH;
+  };
+  Self__KOT->parent_entry_unix__2CF.parent_entry__YED.path__BD=result__SQGH;
+  Self__QVCH=((__STRING_CONSTANT *)Self__KOT->parent_entry_unix__2CF.parent_entry__YED.path__BD);
+  Self__Y5FH=((__CHARACTER *)Self__QVCH->storage__VQO);
+  idx__W5FH=(__INTEGER)(Self__QVCH->count__DD -  1);
+  while ((! ((idx__W5FH <  0) || ('/' == Self__Y5FH[idx__W5FH])))) {
+    idx__W5FH=(__INTEGER)(idx__W5FH -  1);
+  };
+  idx__MOT=(__INTEGER)( 1 + idx__W5FH);
   if (((void *)Self__KOT->parent_entry_unix__2CF.parent_entry__YED.name__VNT == (void *)NULL)) {
-    result__NIGH=NULL;
-    ptr__OIGH=((__POINTER )(NULL));
-    typ_id__PIGH= 0;
-    sz__QIGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__QIGH ==  0)) {
-      result__NIGH=STRING_CONSTANT__;
-    } else {
-      typ_id__PIGH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__QIGH);
-      if ((typ_id__PIGH == (__INTEGER)(-  1))) {
-        a__RIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__SIGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QIGH + a__RIGH) & (__UINTEGER_32)(~ a__RIGH));
-        ptr_table__T0HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SIGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__S0HH=((__POINTER )(NULL));
-        result__U0HH=((__POINTER *)ptr_table__T0HH)[ 0];
-        if ((result__U0HH == (void *)NULL)) {
-          result__U0HH=new_lab__MRJ(new_size__SIGH);
-          next__S0HH=(void *)((unsigned long)result__U0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIGH)));
-          ((__POINTER *)next__S0HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__T0HH)[ 0]=next__S0HH;
-        } else {
-          next__S0HH=((__POINTER *)result__U0HH)[ 0];
-          if ((next__S0HH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SIGH <<  1)) <=  4096)) {
-              next__S0HH=(void *)((unsigned long)result__U0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIGH)));
+    result__0QGH=NULL;
+    ptr__1QGH=((__POINTER )(NULL));
+    typ_id__2QGH= 0;
+    sz__3QGH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
+    if ((sz__3QGH ==  0)) {
+      result__0QGH=STRING_CONSTANT__;
+    } else {
+      typ_id__2QGH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__3QGH);
+      if ((typ_id__2QGH == (__INTEGER)(-  1))) {
+        a__4QGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__5QGH=(__UINTEGER_32)((__UINTEGER_32)(sz__3QGH + a__4QGH) & (__UINTEGER_32)(~ a__4QGH));
+        ptr_table__MCIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5QGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__LCIH=((__POINTER )(NULL));
+        result__NCIH=((__POINTER *)ptr_table__MCIH)[ 0];
+        if ((result__NCIH == (void *)NULL)) {
+          result__NCIH=new_lab__MRJ(new_size__5QGH);
+          next__LCIH=(void *)((unsigned long)result__NCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QGH)));
+          ((__POINTER *)next__LCIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__MCIH)[ 0]=next__LCIH;
+        } else {
+          next__LCIH=((__POINTER *)result__NCIH)[ 0];
+          if ((next__LCIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NCIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5QGH <<  1)) <=  4096)) {
+              next__LCIH=(void *)((unsigned long)result__NCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QGH)));
             } else {
-              next__S0HH=new_lab__MRJ(new_size__SIGH);
-            };
-            ((__POINTER *)next__S0HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__T0HH)[ 0]=next__S0HH;
-          } else {
-            ((__POINTER *)result__U0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__U0HH=next__S0HH;
-          };
-        };
-        ptr__OIGH=result__U0HH;
-      } else {
-        t__TIGH=((__UINTEGER_32 )typ_id__PIGH);
-        a__UIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__10HH=(__UINTEGER_32)((__UINTEGER_32)(sz__QIGH + a__UIGH) & (__UINTEGER_32)(~ a__UIGH));
-        ptr_table__Y0HH=((__POINTER )(&(table_type[(t__TIGH)])));
-        lab_type__00HH=(__UINTEGER_32)(t__TIGH |  1);
-        next__X0HH=((__POINTER )(NULL));
-        result__Z0HH=((__POINTER *)ptr_table__Y0HH)[ 0];
-        if ((result__Z0HH == (void *)NULL)) {
-          result__Z0HH=new_lab__MRJ(lab_type__00HH);
-          next__X0HH=(void *)((unsigned long)result__Z0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10HH)));
-          ((__POINTER *)next__X0HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__Y0HH)[ 0]=next__X0HH;
-        } else {
-          next__X0HH=((__POINTER *)result__Z0HH)[ 0];
-          if ((next__X0HH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z0HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__10HH <<  1)) <=  4096)) {
-              next__X0HH=(void *)((unsigned long)result__Z0HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10HH)));
+              next__LCIH=new_lab__MRJ(new_size__5QGH);
+            };
+            ((__POINTER *)next__LCIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__MCIH)[ 0]=next__LCIH;
+          } else {
+            ((__POINTER *)result__NCIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LCIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__NCIH=next__LCIH;
+          };
+        };
+        ptr__1QGH=result__NCIH;
+      } else {
+        t__ARGH=((__UINTEGER_32 )typ_id__2QGH);
+        a__BRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__UCIH=(__UINTEGER_32)((__UINTEGER_32)(sz__3QGH + a__BRGH) & (__UINTEGER_32)(~ a__BRGH));
+        ptr_table__RCIH=((__POINTER )(&(table_type[(t__ARGH)])));
+        lab_type__TCIH=(__UINTEGER_32)(t__ARGH |  1);
+        next__QCIH=((__POINTER )(NULL));
+        result__SCIH=((__POINTER *)ptr_table__RCIH)[ 0];
+        if ((result__SCIH == (void *)NULL)) {
+          result__SCIH=new_lab__MRJ(lab_type__TCIH);
+          next__QCIH=(void *)((unsigned long)result__SCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UCIH)));
+          ((__POINTER *)next__QCIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__RCIH)[ 0]=next__QCIH;
+        } else {
+          next__QCIH=((__POINTER *)result__SCIH)[ 0];
+          if ((next__QCIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SCIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UCIH <<  1)) <=  4096)) {
+              next__QCIH=(void *)((unsigned long)result__SCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UCIH)));
             } else {
-              next__X0HH=new_lab__MRJ(lab_type__00HH);
+              next__QCIH=new_lab__MRJ(lab_type__TCIH);
             };
-            ((__POINTER *)next__X0HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__Y0HH)[ 0]=next__X0HH;
+            ((__POINTER *)next__QCIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__RCIH)[ 0]=next__QCIH;
           } else {
-            ((__POINTER *)result__Z0HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X0HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__Z0HH=next__X0HH;
+            ((__POINTER *)result__SCIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QCIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__SCIH=next__QCIH;
           };
         };
-        ptr__OIGH=result__Z0HH;
+        ptr__1QGH=result__SCIH;
       };
-      result__NIGH=((__STRING_CONSTANT *)ptr__OIGH);
-      *(result__NIGH) = *(STRING_CONSTANT__);
+      result__0QGH=((__STRING_CONSTANT *)ptr__1QGH);
+      *(result__0QGH) = *(STRING_CONSTANT__);
     };
-    Self__KOT->parent_entry_unix__2CF.parent_entry__YED.name__VNT=result__NIGH;
+    Self__KOT->parent_entry_unix__2CF.parent_entry__YED.name__VNT=result__0QGH;
   };
   __tmp__ZOT=Self__KOT->parent_entry_unix__2CF.parent_entry__YED.name__VNT;
   ptr__NOY=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__KOT->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO));
   ptr__NOY=(void *)((unsigned long)ptr__NOY - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__MOT)));
   __tmp__3OT=((__CHARACTER *)ptr__NOY);
   __tmp__BPT=(__INTEGER)(((__STRING_CONSTANT *)Self__KOT->parent_entry_unix__2CF.parent_entry__YED.path__BD)->count__DD - idx__MOT);
-  Self__A0QG=((__STRING_CONSTANT *)__tmp__ZOT);
-  Self__A0QG->storage__VQO=__tmp__3OT;
-  Self__A0QG->count__DD=__tmp__BPT;
+  Self__FDRG=((__STRING_CONSTANT *)__tmp__ZOT);
+  Self__FDRG->storage__VQO=__tmp__3OT;
+  Self__FDRG->count__DD=__tmp__BPT;
 }
 
 static void insert_string__to__0XU(__STRING *Self__1XU,void *s__2XU,__INTEGER i__3XU)
 // ({STRING},{NULLxSTRING_CONSTANTxSTRING},{INTEGER}) VoidNo recursive, No inlinable.
 {
-  __INTEGER j__4XU,__tmp__RYU,dest__QXFH,src_capacity__UXFH,i2__PXFH;
-  __INTEGER i1__RXFH;
-  __CHARACTER *__tmp__BZU,*__tmp__CZU,*Self__SXFH,*src__TXFH;
+  __INTEGER j__4XU,__tmp__RYU,dest__35FH,src_capacity__BAGH,i2__25FH;
+  __INTEGER i1__45FH;
+  __CHARACTER *__tmp__BZU,*__tmp__CZU,*Self__55FH,*src__AAGH;
   j__4XU=Self__1XU->count__WFC;
   if (((struct ___OBJ *)s__2XU)->__id==__STRING_CONSTANT__) {
     __tmp__RYU=((__STRING_CONSTANT *)s__2XU)->count__DD;
@@ -26252,295 +26546,295 @@ static void insert_string__to__0XU(__STRING *Self__1XU,void *s__2XU,__INTEGER i_
   } else {
     __tmp__CZU=((__STRING *)s__2XU)->storage__BCS;
   };
-  Self__SXFH=((__CHARACTER *)__tmp__BZU);
-  src__TXFH=__tmp__CZU;
-  dest__QXFH=(__INTEGER)(i__3XU -  1);
-  src_capacity__UXFH=__tmp__RYU;
-  i2__PXFH= 0;
-  i1__RXFH=dest__QXFH;
-  while ((i2__PXFH != src_capacity__UXFH)) {
-    Self__SXFH[i1__RXFH]=((__CHARACTER *)src__TXFH)[i2__PXFH];
-    i2__PXFH=(__INTEGER)(i2__PXFH +  1);
-    i1__RXFH=(__INTEGER)(i1__RXFH +  1);
+  Self__55FH=((__CHARACTER *)__tmp__BZU);
+  src__AAGH=__tmp__CZU;
+  dest__35FH=(__INTEGER)(i__3XU -  1);
+  src_capacity__BAGH=__tmp__RYU;
+  i2__25FH= 0;
+  i1__45FH=dest__35FH;
+  while ((i2__25FH != src_capacity__BAGH)) {
+    Self__55FH[i1__45FH]=((__CHARACTER *)src__AAGH)[i2__25FH];
+    i2__25FH=(__INTEGER)(i2__25FH +  1);
+    i1__45FH=(__INTEGER)(i1__45FH +  1);
   };
 }
 
-static void read_escape_character__R1JF()
+static void read_escape_character__WAKF()
 // () VoidNo recursive, No inlinable.
 {
-  __INTEGER val__U1JF;
-  __STRING *Self__1SEH;
-  __POSITION pos__B0WG,pos__O0WG,pos__10WG,pos__30WG;
-  __CHARACTER result__CQ4G,result__HQ4G,result__RQ4G,result__WQ4G;
-  __CHARACTER result__1Q4G,result__ER4G,result__NR4G,result__SR4G;
-  __CHARACTER result__XR4G,result__2R4G,result__BS4G,result__GS4G;
-  __CHARACTER result__LS4G,result__QS4G,result__VS4G,result__0S4G;
-  __CHARACTER result__5S4G,result__ET4G,result__NT4G,result__ST4G;
-  __CHARACTER result__0T4G,result__5T4G;
-  __BOOLEAN __tmp__N2JF,__tmp__B3JF,__tmp__U3JF,__tmp__JAKF,__tmp__KAKF;
-  __BOOLEAN __tmp__LAKF,__tmp__MAKF,__tmp__NAKF,__tmp__OAKF,__tmp__PAKF;
-  __BOOLEAN __tmp__QAKF,__tmp__RAKF,__tmp__SAKF,__tmp__3AKF;
-  val__U1JF= 0;
-  result__CQ4G='\0';
+  __INTEGER val__ZAKF;
+  __STRING *Self__V1EH;
+  __POSITION pos__4EXG,pos__LFXG,pos__YFXG,pos__0FXG;
+  __CHARACTER result__MZ4G,result__RZ4G,result__1Z4G,result__A04G;
+  __CHARACTER result__F04G,result__O04G,result__X04G,result__204G;
+  __CHARACTER result__B14G,result__G14G,result__L14G,result__Q14G;
+  __CHARACTER result__V14G,result__014G,result__514G,result__E24G;
+  __CHARACTER result__J24G,result__O24G,result__X24G,result__224G;
+  __CHARACTER result__E34G,result__J34G;
+  __BOOLEAN __tmp__SBKF,__tmp__GCKF,__tmp__ZCKF,__tmp__OFKF,__tmp__PFKF;
+  __BOOLEAN __tmp__QFKF,__tmp__RFKF,__tmp__SFKF,__tmp__TFKF,__tmp__UFKF;
+  __BOOLEAN __tmp__VFKF,__tmp__WFKF,__tmp__XFKF,__tmp__CGKF;
+  val__ZAKF= 0;
+  result__MZ4G='\0';
   if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-    result__CQ4G=((__CHARACTER )(( 0)));
+    result__MZ4G=((__CHARACTER )(( 0)));
   } else {
-    result__CQ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+    result__MZ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
   };
-  if ((((((((result__CQ4G == ' ') || (result__CQ4G == '\t')) || (result__CQ4G == '\n')) || (result__CQ4G == '\r')) || (result__CQ4G == '\0')) || (result__CQ4G == '\f')) || (result__CQ4G == '\v'))) {
+  if ((((((((result__MZ4G == ' ') || (result__MZ4G == '\t')) || (result__MZ4G == '\n')) || (result__MZ4G == '\r')) || (result__MZ4G == '\0')) || (result__MZ4G == '\f')) || (result__MZ4G == '\v'))) {
     position__SBC=(__INTEGER)(position__SBC +  1);
-    until_do__4FMF:
+    until_do__SLMF:
     {
-      result__HQ4G='\0';
+      result__RZ4G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__HQ4G=((__CHARACTER )(( 0)));
+        result__RZ4G=((__CHARACTER )(( 0)));
       } else {
-        result__HQ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__RZ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__HQ4G == ((__CHARACTER )(( 0))))) {
-        __tmp__N2JF=TRUE__;
+      if ((result__RZ4G == ((__CHARACTER )(( 0))))) {
+        __tmp__SBKF=TRUE__;
       } else {
-        result__RQ4G='\0';
+        result__1Z4G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__RQ4G=((__CHARACTER )(( 0)));
+          result__1Z4G=((__CHARACTER )(( 0)));
         } else {
-          result__RQ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__1Z4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__N2JF=(! (((((((result__RQ4G == ' ') || (result__RQ4G == '\t')) || (result__RQ4G == '\n')) || (result__RQ4G == '\r')) || (result__RQ4G == '\0')) || (result__RQ4G == '\f')) || (result__RQ4G == '\v')));
+        __tmp__SBKF=(! (((((((result__1Z4G == ' ') || (result__1Z4G == '\t')) || (result__1Z4G == '\n')) || (result__1Z4G == '\r')) || (result__1Z4G == '\0')) || (result__1Z4G == '\f')) || (result__1Z4G == '\v')));
       };
-      if ((! __tmp__N2JF)) {
+      if ((! __tmp__SBKF)) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        goto until_do__4FMF;
+        goto until_do__SLMF;
       };
     };
-    result__WQ4G='\0';
+    result__A04G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__WQ4G=((__CHARACTER )(( 0)));
+      result__A04G=((__CHARACTER )(( 0)));
     } else {
-      result__WQ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__A04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__WQ4G == '\\')) {
-      Self__1SEH=((__STRING *)string_tmp__VH);
-      if (( 1 > Self__1SEH->count__WFC)) {
-        Self__1SEH->count__WFC= 0;
+    if ((result__A04G == '\\')) {
+      Self__V1EH=((__STRING *)string_tmp__VH);
+      if (( 1 > Self__V1EH->count__WFC)) {
+        Self__V1EH->count__WFC= 0;
       } else {
-        Self__1SEH->count__WFC=(__INTEGER)(Self__1SEH->count__WFC -  1);
+        Self__V1EH->count__WFC=(__INTEGER)(Self__V1EH->count__WFC -  1);
       };
       position__SBC=(__INTEGER)(position__SBC +  1);
-      __tmp__B3JF=TRUE__;
+      __tmp__GCKF=TRUE__;
     } else {
-      __tmp__B3JF=FALSE__;
+      __tmp__GCKF=FALSE__;
     };
-    if ((! __tmp__B3JF)) {
-      result__1Q4G='\0';
+    if ((! __tmp__GCKF)) {
+      result__F04G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__1Q4G=((__CHARACTER )(( 0)));
+        result__F04G=((__CHARACTER )(( 0)));
       } else {
-        result__1Q4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__F04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__1Q4G != ((__CHARACTER )(( 0))))) {
-        pos__B0WG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_297));
-        put_position__UOG(pos__B0WG);
+      if ((result__F04G != ((__CHARACTER )(( 0))))) {
+        pos__4EXG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_300));
+        put_position__UOG(pos__4EXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
     };
-    __tmp__U3JF=TRUE__;
+    __tmp__ZCKF=TRUE__;
   } else {
-    __tmp__U3JF=FALSE__;
+    __tmp__ZCKF=FALSE__;
   };
-  if ((! __tmp__U3JF)) {
-    result__ER4G='\0';
+  if ((! __tmp__ZCKF)) {
+    result__O04G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__ER4G=((__CHARACTER )(( 0)));
+      result__O04G=((__CHARACTER )(( 0)));
     } else {
-      result__ER4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__O04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__ER4G != ((__CHARACTER )(( 0))))) {
-      result__NR4G='\0';
+    if ((result__O04G != ((__CHARACTER )(( 0))))) {
+      result__X04G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__NR4G=((__CHARACTER )(( 0)));
+        result__X04G=((__CHARACTER )(( 0)));
       } else {
-        result__NR4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__X04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__NR4G == 'a')) {
-        __tmp__JAKF=TRUE__;
+      if ((result__X04G == 'a')) {
+        __tmp__OFKF=TRUE__;
       } else {
-        result__SR4G='\0';
+        result__204G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__SR4G=((__CHARACTER )(( 0)));
+          result__204G=((__CHARACTER )(( 0)));
         } else {
-          result__SR4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__204G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__JAKF=(result__SR4G == 'b');
+        __tmp__OFKF=(result__204G == 'b');
       };
-      if (__tmp__JAKF) {
-        __tmp__KAKF=TRUE__;
+      if (__tmp__OFKF) {
+        __tmp__PFKF=TRUE__;
       } else {
-        result__XR4G='\0';
+        result__B14G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__XR4G=((__CHARACTER )(( 0)));
+          result__B14G=((__CHARACTER )(( 0)));
         } else {
-          result__XR4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__B14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__KAKF=(result__XR4G == 'f');
+        __tmp__PFKF=(result__B14G == 'f');
       };
-      if (__tmp__KAKF) {
-        __tmp__LAKF=TRUE__;
+      if (__tmp__PFKF) {
+        __tmp__QFKF=TRUE__;
       } else {
-        result__2R4G='\0';
+        result__G14G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__2R4G=((__CHARACTER )(( 0)));
+          result__G14G=((__CHARACTER )(( 0)));
         } else {
-          result__2R4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__G14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__LAKF=(result__2R4G == 'n');
+        __tmp__QFKF=(result__G14G == 'n');
       };
-      if (__tmp__LAKF) {
-        __tmp__MAKF=TRUE__;
+      if (__tmp__QFKF) {
+        __tmp__RFKF=TRUE__;
       } else {
-        result__BS4G='\0';
+        result__L14G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__BS4G=((__CHARACTER )(( 0)));
+          result__L14G=((__CHARACTER )(( 0)));
         } else {
-          result__BS4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__L14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__MAKF=(result__BS4G == 'r');
+        __tmp__RFKF=(result__L14G == 'r');
       };
-      if (__tmp__MAKF) {
-        __tmp__NAKF=TRUE__;
+      if (__tmp__RFKF) {
+        __tmp__SFKF=TRUE__;
       } else {
-        result__GS4G='\0';
+        result__Q14G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__GS4G=((__CHARACTER )(( 0)));
+          result__Q14G=((__CHARACTER )(( 0)));
         } else {
-          result__GS4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__Q14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__NAKF=(result__GS4G == 't');
+        __tmp__SFKF=(result__Q14G == 't');
       };
-      if (__tmp__NAKF) {
-        __tmp__OAKF=TRUE__;
+      if (__tmp__SFKF) {
+        __tmp__TFKF=TRUE__;
       } else {
-        result__LS4G='\0';
+        result__V14G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__LS4G=((__CHARACTER )(( 0)));
+          result__V14G=((__CHARACTER )(( 0)));
         } else {
-          result__LS4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__V14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__OAKF=(result__LS4G == 'v');
+        __tmp__TFKF=(result__V14G == 'v');
       };
-      if (__tmp__OAKF) {
-        __tmp__PAKF=TRUE__;
+      if (__tmp__TFKF) {
+        __tmp__UFKF=TRUE__;
       } else {
-        result__QS4G='\0';
+        result__014G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__QS4G=((__CHARACTER )(( 0)));
+          result__014G=((__CHARACTER )(( 0)));
         } else {
-          result__QS4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__014G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__PAKF=(result__QS4G == '\\');
+        __tmp__UFKF=(result__014G == '\\');
       };
-      if (__tmp__PAKF) {
-        __tmp__QAKF=TRUE__;
+      if (__tmp__UFKF) {
+        __tmp__VFKF=TRUE__;
       } else {
-        result__VS4G='\0';
+        result__514G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__VS4G=((__CHARACTER )(( 0)));
+          result__514G=((__CHARACTER )(( 0)));
         } else {
-          result__VS4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__514G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__QAKF=(result__VS4G == '?');
+        __tmp__VFKF=(result__514G == '?');
       };
-      if (__tmp__QAKF) {
-        __tmp__RAKF=TRUE__;
+      if (__tmp__VFKF) {
+        __tmp__WFKF=TRUE__;
       } else {
-        result__0S4G='\0';
+        result__E24G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__0S4G=((__CHARACTER )(( 0)));
+          result__E24G=((__CHARACTER )(( 0)));
         } else {
-          result__0S4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__E24G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__RAKF=(result__0S4G == '\'');
+        __tmp__WFKF=(result__E24G == '\'');
       };
-      if (__tmp__RAKF) {
-        __tmp__SAKF=TRUE__;
+      if (__tmp__WFKF) {
+        __tmp__XFKF=TRUE__;
       } else {
-        result__5S4G='\0';
+        result__J24G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__5S4G=((__CHARACTER )(( 0)));
+          result__J24G=((__CHARACTER )(( 0)));
         } else {
-          result__5S4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__J24G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__SAKF=(result__5S4G == '\"');
+        __tmp__XFKF=(result__J24G == '\"');
       };
-      if (__tmp__SAKF) {
-        result__ET4G='\0';
+      if (__tmp__XFKF) {
+        result__O24G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__ET4G=((__CHARACTER )(( 0)));
+          result__O24G=((__CHARACTER )(( 0)));
         } else {
-          result__ET4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__O24G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        add_last__ZLT(string_tmp__VH,result__ET4G);
+        add_last__ZLT(string_tmp__VH,result__O24G);
         position__SBC=(__INTEGER)(position__SBC +  1);
-        __tmp__3AKF=TRUE__;
+        __tmp__CGKF=TRUE__;
       } else {
-        __tmp__3AKF=FALSE__;
+        __tmp__CGKF=FALSE__;
       };
-      if ((! __tmp__3AKF)) {
-        result__NT4G='\0';
+      if ((! __tmp__CGKF)) {
+        result__X24G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__NT4G=((__CHARACTER )(( 0)));
+          result__X24G=((__CHARACTER )(( 0)));
         } else {
-          result__NT4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__X24G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if (((((__INTEGER_8 )result__NT4G) >= ((__INTEGER_8 )'0')) && (((__INTEGER_8 )result__NT4G) <= ((__INTEGER_8 )'9')))) {
-          result__ST4G='\0';
+        if (((((__INTEGER_8 )result__X24G) >= ((__INTEGER_8 )'0')) && (((__INTEGER_8 )result__X24G) <= ((__INTEGER_8 )'9')))) {
+          result__224G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__ST4G=((__CHARACTER )(( 0)));
+            result__224G=((__CHARACTER )(( 0)));
           } else {
-            result__ST4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__224G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((((result__ST4G == '0') && (position__SBC < ((__STRING *)source__PBC)->count__WFC)) && (! is_hexadecimal_digit__AOJE(((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)])))) {
-            result__0T4G='\0';
+          if ((((result__224G == '0') && (position__SBC < ((__STRING *)source__PBC)->count__WFC)) && (! is_hexadecimal_digit__CSJE(((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)((__INTEGER)(position__SBC +  1) -  1)])))) {
+            result__E34G='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__0T4G=((__CHARACTER )(( 0)));
+              result__E34G=((__CHARACTER )(( 0)));
             } else {
-              result__0T4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__E34G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            add_last__ZLT(string_tmp__VH,result__0T4G);
+            add_last__ZLT(string_tmp__VH,result__E34G);
             position__SBC=(__INTEGER)(position__SBC +  1);
           } else {
             copy__ZCS(string_tmp2__BAJ,string_tmp__VH);
             read_integer__A2P();
             copy__ZCS(string_tmp__VH,string_tmp2__BAJ);
             if ((last_integer__ZRO >  255)) {
-              pos__O0WG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_298));
-              put_position__UOG(pos__O0WG);
+              pos__LFXG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_301));
+              put_position__UOG(pos__LFXG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
               };
             };
-            val__U1JF=((__INTEGER )last_integer__ZRO);
-            add_last__ZLT(string_tmp__VH,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__U1JF >>  6)) + ((__INTEGER_8 )'0'))))));
-            add_last__ZLT(string_tmp__VH,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)((__INTEGER)(val__U1JF &  63) >>  3)) + ((__INTEGER_8 )'0'))))));
-            add_last__ZLT(string_tmp__VH,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__U1JF &  7)) + ((__INTEGER_8 )'0'))))));
-            result__5T4G='\0';
+            val__ZAKF=((__INTEGER )last_integer__ZRO);
+            add_last__ZLT(string_tmp__VH,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__ZAKF >>  6)) + ((__INTEGER_8 )'0'))))));
+            add_last__ZLT(string_tmp__VH,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)((__INTEGER)(val__ZAKF &  63) >>  3)) + ((__INTEGER_8 )'0'))))));
+            add_last__ZLT(string_tmp__VH,((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__ZAKF &  7)) + ((__INTEGER_8 )'0'))))));
+            result__J34G='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__5T4G=((__CHARACTER )(( 0)));
+              result__J34G=((__CHARACTER )(( 0)));
             } else {
-              result__5T4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__J34G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__5T4G == '\\')) {
+            if ((result__J34G == '\\')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
             } else {
-              pos__10WG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_299));
-              put_position__UOG(pos__10WG);
+              pos__YFXG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_302));
+              put_position__UOG(pos__YFXG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -26548,9 +26842,9 @@ static void read_escape_character__R1JF()
             };
           };
         } else {
-          pos__30WG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_297));
-          put_position__UOG(pos__30WG);
+          pos__0FXG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_300));
+          put_position__UOG(pos__0FXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -26565,120 +26859,120 @@ static __BOOLEAN read_cap_identifier__SZJ()
 // () With resultNo recursive, No inlinable.
 {
   __INTEGER posold__VZJ,idx__WZJ;
-  __POSITION pos__Q2WG;
-  __BOOLEAN result__XZJ,__tmp__F0J,result__BV4G,__tmp__Z1J,result__4V4G;
-  __BOOLEAN result__HQCH,__tmp__V1J,__tmp__W1J,result__SQCH,__tmp__J2J;
-  __CHARACTER result__GV4G,result__QV4G,result__VV4G,result__DW4G;
-  __CHARACTER result__IW4G,result__NW4G,result__SW4G;
+  __POSITION pos__NHXG;
+  __BOOLEAN result__XZJ,__tmp__F0J,result__L44G,__tmp__Z1J,result__I54G;
+  __BOOLEAN result__TZCH,__tmp__V1J,__tmp__W1J,result__4ZCH,__tmp__J2J;
+  __CHARACTER result__Q44G,result__044G,result__544G,result__N54G;
+  __CHARACTER result__S54G,result__X54G,result__254G;
   posold__VZJ= 0;
   idx__WZJ= 0;
   result__XZJ=FALSE__;
   if ((! read_space__3RD())) {
     __tmp__F0J=TRUE__;
   } else {
-    result__GV4G='\0';
+    result__Q44G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__GV4G=((__CHARACTER )(( 0)));
+      result__Q44G=((__CHARACTER )(( 0)));
     } else {
-      result__GV4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__Q44G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    result__BV4G=FALSE__;
-    if ((((__INTEGER_8 )result__GV4G) >= ((__INTEGER_8 )'A'))) {
-      result__BV4G=(((__INTEGER_8 )result__GV4G) <= ((__INTEGER_8 )'Z'));
+    result__L44G=FALSE__;
+    if ((((__INTEGER_8 )result__Q44G) >= ((__INTEGER_8 )'A'))) {
+      result__L44G=(((__INTEGER_8 )result__Q44G) <= ((__INTEGER_8 )'Z'));
     };
-    __tmp__F0J=(! result__BV4G);
+    __tmp__F0J=(! result__L44G);
   };
   if (__tmp__F0J) {
     result__XZJ=FALSE__;
   } else {
     posold__VZJ=position__SBC;
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
-    result__QV4G='\0';
+    result__044G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__QV4G=((__CHARACTER )(( 0)));
+      result__044G=((__CHARACTER )(( 0)));
     } else {
-      result__QV4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__044G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    add_last__ZLT(string_tmp__VH,result__QV4G);
+    add_last__ZLT(string_tmp__VH,result__044G);
     position__SBC=(__INTEGER)(position__SBC +  1);
     is_parameter_type__IKE=TRUE__;
-    until_do__DDZE:
+    until_do__1HZE:
     {
-      result__VV4G='\0';
+      result__544G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__VV4G=((__CHARACTER )(( 0)));
+        result__544G=((__CHARACTER )(( 0)));
       } else {
-        result__VV4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__544G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__VV4G == ((__CHARACTER )(( 0))))) {
+      if ((result__544G == ((__CHARACTER )(( 0))))) {
         __tmp__Z1J=TRUE__;
       } else {
-        result__DW4G='\0';
+        result__N54G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__DW4G=((__CHARACTER )(( 0)));
+          result__N54G=((__CHARACTER )(( 0)));
         } else {
-          result__DW4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__N54G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        result__4V4G=FALSE__;
-        if ((((__INTEGER_8 )result__DW4G) >= ((__INTEGER_8 )'A'))) {
-          result__4V4G=(((__INTEGER_8 )result__DW4G) <= ((__INTEGER_8 )'Z'));
+        result__I54G=FALSE__;
+        if ((((__INTEGER_8 )result__N54G) >= ((__INTEGER_8 )'A'))) {
+          result__I54G=(((__INTEGER_8 )result__N54G) <= ((__INTEGER_8 )'Z'));
         };
-        if ((! result__4V4G)) {
-          result__IW4G='\0';
+        if ((! result__I54G)) {
+          result__S54G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__IW4G=((__CHARACTER )(( 0)));
+            result__S54G=((__CHARACTER )(( 0)));
           } else {
-            result__IW4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__S54G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          result__HQCH=FALSE__;
-          if ((((__INTEGER_8 )result__IW4G) >= ((__INTEGER_8 )'0'))) {
-            result__HQCH=(((__INTEGER_8 )result__IW4G) <= ((__INTEGER_8 )'9'));
+          result__TZCH=FALSE__;
+          if ((((__INTEGER_8 )result__S54G) >= ((__INTEGER_8 )'0'))) {
+            result__TZCH=(((__INTEGER_8 )result__S54G) <= ((__INTEGER_8 )'9'));
           };
-          __tmp__V1J=(! result__HQCH);
+          __tmp__V1J=(! result__TZCH);
         } else {
           __tmp__V1J=FALSE__;
         };
         if (__tmp__V1J) {
-          result__NW4G='\0';
+          result__X54G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__NW4G=((__CHARACTER )(( 0)));
+            result__X54G=((__CHARACTER )(( 0)));
           } else {
-            result__NW4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__X54G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__W1J=(result__NW4G != '_');
+          __tmp__W1J=(result__X54G != '_');
         } else {
           __tmp__W1J=FALSE__;
         };
         __tmp__Z1J=__tmp__W1J;
       };
       if ((! __tmp__Z1J)) {
-        result__SW4G='\0';
+        result__254G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__SW4G=((__CHARACTER )(( 0)));
+          result__254G=((__CHARACTER )(( 0)));
         } else {
-          result__SW4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__254G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
         if (is_parameter_type__IKE) {
-          result__SQCH=FALSE__;
-          if ((((__INTEGER_8 )result__SW4G) >= ((__INTEGER_8 )'0'))) {
-            result__SQCH=(((__INTEGER_8 )result__SW4G) <= ((__INTEGER_8 )'9'));
+          result__4ZCH=FALSE__;
+          if ((((__INTEGER_8 )result__254G) >= ((__INTEGER_8 )'0'))) {
+            result__4ZCH=(((__INTEGER_8 )result__254G) <= ((__INTEGER_8 )'9'));
           };
-          __tmp__J2J=result__SQCH;
+          __tmp__J2J=result__4ZCH;
         } else {
           __tmp__J2J=FALSE__;
         };
         is_parameter_type__IKE=__tmp__J2J;
-        add_last__ZLT(string_tmp__VH,result__SW4G);
+        add_last__ZLT(string_tmp__VH,result__254G);
         position__SBC=(__INTEGER)(position__SBC +  1);
-        goto until_do__DDZE;
+        goto until_do__1HZE;
       };
     };
-    idx__WZJ=first_substring_index__RDZE(string_tmp__VH);
+    idx__WZJ=first_substring_index__JIZE(string_tmp__VH);
     if ((idx__WZJ !=  0)) {
       position__SBC=(__INTEGER)(posold__VZJ + idx__WZJ);
-      pos__Q2WG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_204));
-      put_position__UOG(pos__Q2WG);
+      pos__NHXG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_207));
+      put_position__UOG(pos__NHXG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -26693,7 +26987,7 @@ static __BOOLEAN read_cap_identifier__SZJ()
 static void add_last__SBBC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__TBBC,void *element__UBBC)
 // ({FAST_ARRAYoITM_TYPE_PARAMETERo},{NULLxITM_TYPE_PARAMETER}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__VBBC,__tmp__4CBC,__tmp__I0SD,Self__0LXE;
+  __INTEGER new_capacity__VBBC,__tmp__4CBC,__tmp__I0SD,Self__SQXE;
   __BOOLEAN __tmp__FCBC;
   void **__tmp__3CBC,**new__UZSD;
   new_capacity__VBBC= 0;
@@ -26714,10 +27008,10 @@ static void add_last__SBBC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__TBBC,void *el
       __tmp__4CBC=Self__TBBC->parent_arrayed_collection__TME.capacity__YBBC;
       new__UZSD=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__3CBC)),((__UINTEGER_32 )(__INTEGER)(__tmp__4CBC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__VBBC * ((__INTEGER )(sizeof(void *)))))));
       __tmp__I0SD=(__INTEGER)(new_capacity__VBBC -  1);
-      Self__0LXE=__tmp__4CBC;
-      while ((Self__0LXE <= __tmp__I0SD)) {
-        new__UZSD[Self__0LXE]=NULL;
-        Self__0LXE=(__INTEGER)(Self__0LXE +  1);
+      Self__SQXE=__tmp__4CBC;
+      while ((Self__SQXE <= __tmp__I0SD)) {
+        new__UZSD[Self__SQXE]=NULL;
+        Self__SQXE=(__INTEGER)(Self__SQXE +  1);
       };
       Self__TBBC->parent_arrayed_collection__TME.storage__UCBC=new__UZSD;
       Self__TBBC->parent_arrayed_collection__TME.capacity__YBBC=new_capacity__VBBC;
@@ -26732,20 +27026,20 @@ static __BOOLEAN read_external__ATO()
 {
   __INTEGER pos_old__ETO;
   __BOOLEAN result__DTO,__tmp__PTO;
-  __CHARACTER result__HY4G,result__RY4G,result__0Y4G,result__5Y4G;
-  __CHARACTER result__EZ4G,result__JZ4G,result__OZ4G,result__XZ4G;
+  __CHARACTER result__RB5G,result__1B5G,result__EC5G,result__JC5G;
+  __CHARACTER result__OC5G,result__TC5G,result__YC5G,result__BD5G;
   result__DTO=FALSE__;
   pos_old__ETO= 0;
   if ((! read_space__3RD())) {
     __tmp__PTO=TRUE__;
   } else {
-    result__HY4G='\0';
+    result__RB5G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__HY4G=((__CHARACTER )(( 0)));
+      result__RB5G=((__CHARACTER )(( 0)));
     } else {
-      result__HY4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__RB5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    __tmp__PTO=(result__HY4G != '`');
+    __tmp__PTO=(result__RB5G != '`');
   };
   if (__tmp__PTO) {
     result__DTO=FALSE__;
@@ -26755,48 +27049,48 @@ static __BOOLEAN read_external__ATO()
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
     until_do__0HRC:
     {
-      result__RY4G='\0';
+      result__1B5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__RY4G=((__CHARACTER )(( 0)));
+        result__1B5G=((__CHARACTER )(( 0)));
       } else {
-        result__RY4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__1B5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      result__0Y4G='\0';
+      result__EC5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__0Y4G=((__CHARACTER )(( 0)));
+        result__EC5G=((__CHARACTER )(( 0)));
       } else {
-        result__0Y4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__EC5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((! ((result__RY4G == ((__CHARACTER )(( 0)))) | (result__0Y4G == '`')))) {
-        result__5Y4G='\0';
+      if ((! ((result__1B5G == ((__CHARACTER )(( 0)))) | (result__EC5G == '`')))) {
+        result__JC5G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__5Y4G=((__CHARACTER )(( 0)));
+          result__JC5G=((__CHARACTER )(( 0)));
         } else {
-          result__5Y4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__JC5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        add_last__ZLT(string_tmp__VH,result__5Y4G);
-        result__EZ4G='\0';
+        add_last__ZLT(string_tmp__VH,result__JC5G);
+        result__OC5G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__EZ4G=((__CHARACTER )(( 0)));
+          result__OC5G=((__CHARACTER )(( 0)));
         } else {
-          result__EZ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__OC5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__EZ4G == '\\')) {
+        if ((result__OC5G == '\\')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__JZ4G='\0';
+          result__TC5G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__JZ4G=((__CHARACTER )(( 0)));
+            result__TC5G=((__CHARACTER )(( 0)));
           } else {
-            result__JZ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__TC5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__JZ4G);
-          result__OZ4G='\0';
+          add_last__ZLT(string_tmp__VH,result__TC5G);
+          result__YC5G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__OZ4G=((__CHARACTER )(( 0)));
+            result__YC5G=((__CHARACTER )(( 0)));
           } else {
-            result__OZ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__YC5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__OZ4G != ((__CHARACTER )(( 0))))) {
+          if ((result__YC5G != ((__CHARACTER )(( 0))))) {
             position__SBC=(__INTEGER)(position__SBC +  1);
           };
         } else {
@@ -26805,13 +27099,13 @@ static __BOOLEAN read_external__ATO()
         goto until_do__0HRC;
       };
     };
-    result__XZ4G='\0';
+    result__BD5G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__XZ4G=((__CHARACTER )(( 0)));
+      result__BD5G=((__CHARACTER )(( 0)));
     } else {
-      result__XZ4G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__BD5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__XZ4G != ((__CHARACTER )(( 0))))) {
+    if ((result__BD5G != ((__CHARACTER )(( 0))))) {
       position__SBC=(__INTEGER)(position__SBC +  1);
       last_string__I0C=get__IWB(string_tmp__VH);
       result__DTO=TRUE__;
@@ -26829,59 +27123,59 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
   void *result__L4M;
   void *type__M4M;
   void *group_sav__R4M,*lst__JKHB;
-  __POSITION p__G1HH,pos__04WG,p__3LAB,p__3IGH,p__S2HH,pos__24WG,p__Z0H;
-  __POSITION pos__44WG,pos__G5WG,__tmp__VFN,__tmp__3FN,pos__U5WG;
-  __POSITION pos__W5WG,pos__Y5WG,pos__05WG;
-  __ITM_READ *result__40HH,*result__YYGB;
-  __POINTER ptr__50HH,ptr_table__I1HH,next__H1HH,result__J1HH;
-  __POINTER ptr_table__N1HH,next__M1HH,result__O1HH,ptr__ZYGB;
-  __POINTER ptr_table__U1HH,next__T1HH,result__V1HH,ptr_table__Z1HH;
-  __POINTER next__Y1HH,result__01HH,ptr__WIGH,ptr_table__41HH;
-  __POINTER next__31HH,result__51HH,ptr_table__D2HH,next__C2HH;
-  __POINTER result__E2HH,ptr__L2HH,ptr_table__U2HH,next__T2HH;
-  __POINTER result__V2HH,ptr_table__Z2HH,next__Y2HH,result__02HH;
-  __POINTER ptr__XPI,ptr_table__E3HH,next__D3HH,result__F3HH;
-  __POINTER ptr_table__J3HH,next__I3HH,result__K3HH,ptr__BIMB;
-  __POINTER ptr_table__R3HH,next__Q3HH,result__S3HH,ptr_table__W3HH;
-  __POINTER next__V3HH,result__X3HH,ptr__0VTB,ptr_table__B4HH;
-  __POINTER next__A4HH,result__C4HH,ptr_table__G4HH,next__F4HH;
-  __POINTER result__H4HH,ptr__OXTB,ptr_table__O4HH,next__N4HH;
-  __POINTER result__P4HH,ptr_table__T4HH,next__S4HH,result__U4HH;
-  __INTEGER typ_id__A1HH,typ_id__4YGB,typ_id__XIGH,typ_id__M2HH;
+  __POSITION p__5CIH,pos__XJXG,p__3LAB,p__KRGH,p__LEIH,pos__ZJXG,p__Z0H;
+  __POSITION pos__1JXG,pos__DKXG,__tmp__VFN,__tmp__3FN,pos__RKXG;
+  __POSITION pos__TKXG,pos__VKXG,pos__XKXG;
+  __ITM_READ *result__XCIH,*result__YYGB;
+  __POINTER ptr__YCIH,ptr_table__BDIH,next__ADIH,result__CDIH;
+  __POINTER ptr_table__GDIH,next__FDIH,result__HDIH,ptr__ZYGB;
+  __POINTER ptr_table__NDIH,next__MDIH,result__ODIH,ptr_table__SDIH;
+  __POINTER next__RDIH,result__TDIH,ptr__DRGH,ptr_table__XDIH;
+  __POINTER next__WDIH,result__YDIH,ptr_table__2DIH,next__1DIH;
+  __POINTER result__3DIH,ptr__EEIH,ptr_table__NEIH,next__MEIH;
+  __POINTER result__OEIH,ptr_table__SEIH,next__REIH,result__TEIH;
+  __POINTER ptr__XPI,ptr_table__3EIH,next__2EIH,result__4EIH;
+  __POINTER ptr_table__CFIH,next__BFIH,result__DFIH,ptr__BIMB;
+  __POINTER ptr_table__KFIH,next__JFIH,result__LFIH,ptr_table__PFIH;
+  __POINTER next__OFIH,result__QFIH,ptr__0VTB,ptr_table__0FIH;
+  __POINTER next__ZFIH,result__1FIH,ptr_table__5FIH,next__4FIH;
+  __POINTER result__AGIH,ptr__OXTB,ptr_table__HGIH,next__GGIH;
+  __POINTER result__IGIH,ptr_table__MGIH,next__LGIH,result__NGIH;
+  __INTEGER typ_id__ZCIH,typ_id__4YGB,typ_id__ERGH,typ_id__FEIH;
   __INTEGER typ_id__2PI,typ_id__GIMB,typ_id__5VTB,typ_id__TXTB;
-  __UINTEGER_32 sz__B1HH,a__C1HH,new_size__D1HH,t__E1HH,a__F1HH;
-  __UINTEGER_32 new_size__Q1HH,lab_type__P1HH,sz__1YGB,a__Y1EH;
-  __UINTEGER_32 new_size__Z1EH,t__31EH,a__21EH,new_size__21HH;
-  __UINTEGER_32 lab_type__11HH,sz__YIGH,a__ZIGH,new_size__0IGH,t__1IGH;
-  __UINTEGER_32 a__2IGH,new_size__G2HH,lab_type__F2HH,sz__N2HH,a__O2HH;
-  __UINTEGER_32 new_size__P2HH,t__Q2HH,a__R2HH,new_size__22HH;
-  __UINTEGER_32 lab_type__12HH,sz__ZPI,a__A0EH,new_size__B0EH,t__F0EH;
-  __UINTEGER_32 a__E0EH,new_size__M3HH,lab_type__L3HH,sz__DIMB,a__FTEH;
-  __UINTEGER_32 new_size__GTEH,t__KTEH,a__JTEH,new_size__Z3HH;
-  __UINTEGER_32 lab_type__Y3HH,sz__2VTB,a__NTEH,new_size__OTEH,t__STEH;
-  __UINTEGER_32 a__RTEH,new_size__J4HH,lab_type__I4HH,sz__QXTB,a__VTEH;
-  __UINTEGER_32 new_size__WTEH,t__0TEH,a__ZTEH,new_size__W4HH;
-  __UINTEGER_32 lab_type__V4HH;
-  __ITM_PROTOTYPE *result__VIGH;
-  __ITM_LIST *result__K2HH,*result__WPI;
+  __UINTEGER_32 sz__0CIH,a__1CIH,new_size__2CIH,t__3CIH,a__4CIH;
+  __UINTEGER_32 new_size__JDIH,lab_type__IDIH,sz__1YGB,a__3DFH;
+  __UINTEGER_32 new_size__4DFH,t__CEFH,a__BEFH,new_size__VDIH;
+  __UINTEGER_32 lab_type__UDIH,sz__FRGH,a__GRGH,new_size__HRGH,t__IRGH;
+  __UINTEGER_32 a__JRGH,new_size__5DIH,lab_type__4DIH,sz__GEIH,a__HEIH;
+  __UINTEGER_32 new_size__IEIH,t__JEIH,a__KEIH,new_size__VEIH;
+  __UINTEGER_32 lab_type__UEIH,sz__ZPI,a__FCFH,new_size__GCFH,t__KCFH;
+  __UINTEGER_32 a__JCFH,new_size__FFIH,lab_type__EFIH,sz__DIMB,a__51EH;
+  __UINTEGER_32 new_size__A2EH,t__E2EH,a__D2EH,new_size__SFIH;
+  __UINTEGER_32 lab_type__RFIH,sz__2VTB,a__H2EH,new_size__I2EH,t__M2EH;
+  __UINTEGER_32 a__L2EH,new_size__CGIH,lab_type__BGIH,sz__QXTB,a__P2EH;
+  __UINTEGER_32 new_size__Q2EH,t__U2EH,a__T2EH,new_size__PGIH;
+  __UINTEGER_32 lab_type__OGIH;
+  __ITM_PROTOTYPE *result__CRGH;
+  __ITM_LIST *result__DEIH,*result__WPI;
   __ITM_BLOCK *result__AIMB;
   __ITM_EXTERNAL *result__ZVTB;
   __ITM_EXTERNAL_TYPE *result__NXTB,*Self__5ZEC;
-  __BOOLEAN result__30HH,__tmp__B5M,__tmp__EBN,result__S1HH;
-  __BOOLEAN result__3RCH,__tmp__TBN,result__B0N,__tmp__BCN,__tmp__4CN;
-  __BOOLEAN result__H2HH,result__32HH,__tmp__BFN,result__A3HH;
-  __BOOLEAN result__N3HH,result__03HH,result__33HH,result__K4HH;
-  __BOOLEAN result__X4HH,result__04HH,result__34HH,__tmp__XHN;
-  __CHARACTER result__A04G,result__F04G,result__K04G,result__I2HH;
-  __CHARACTER result__42HH,result__B3HH,result__O3HH,result__13HH;
-  __CHARACTER result__43HH,result__L4HH,result__Y4HH,result__14HH;
-  __CHARACTER result__44HH;
+  __BOOLEAN result__WCIH,__tmp__B5M,__tmp__EBN,result__LDIH;
+  __BOOLEAN result__J1CH,__tmp__TBN,result__B0N,__tmp__BCN,__tmp__4CN;
+  __BOOLEAN result__AEIH,result__WEIH,__tmp__BFN,result__ZEIH;
+  __BOOLEAN result__GFIH,result__TFIH,result__WFIH,result__DGIH;
+  __BOOLEAN result__QGIH,result__TGIH,result__WGIH,__tmp__XHN;
+  __CHARACTER result__KD5G,result__PD5G,result__UD5G,result__BEIH;
+  __CHARACTER result__XEIH,result__0EIH,result__HFIH,result__UFIH;
+  __CHARACTER result__XFIH,result__EGIH,result__RGIH,result__UGIH;
+  __CHARACTER result__XGIH;
   result__L4M=NULL;
   type__M4M=NULL;
   group_sav__R4M=NULL;
-  result__30HH=read_word__QPF((&__string_58));
+  result__WCIH=read_word__QPF((&__string_58));
   if (is_shorter__5Y) {
-    if (result__30HH) {
+    if (result__WCIH) {
       if (((void *)(&__string_58) == (void *)(&__string_4))) {
         short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
       } else {
@@ -26889,79 +27183,79 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
       };
     };
   };
-  if (result__30HH) {
-    p__G1HH=current_position__JXF();
-    result__40HH=NULL;
-    ptr__50HH=((__POINTER )(NULL));
-    typ_id__A1HH= 0;
-    sz__B1HH=((__UINTEGER_32 )sizeof(__ITM_READ));
-    if ((sz__B1HH ==  0)) {
-      result__40HH=ITM_READ__;
-    } else {
-      typ_id__A1HH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__B1HH);
-      if ((typ_id__A1HH == (__INTEGER)(-  1))) {
-        a__C1HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__D1HH=(__UINTEGER_32)((__UINTEGER_32)(sz__B1HH + a__C1HH) & (__UINTEGER_32)(~ a__C1HH));
-        ptr_table__I1HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__D1HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__H1HH=((__POINTER )(NULL));
-        result__J1HH=((__POINTER *)ptr_table__I1HH)[ 0];
-        if ((result__J1HH == (void *)NULL)) {
-          result__J1HH=new_lab__MRJ(new_size__D1HH);
-          next__H1HH=(void *)((unsigned long)result__J1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D1HH)));
-          ((__POINTER *)next__H1HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__I1HH)[ 0]=next__H1HH;
-        } else {
-          next__H1HH=((__POINTER *)result__J1HH)[ 0];
-          if ((next__H1HH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J1HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__D1HH <<  1)) <=  4096)) {
-              next__H1HH=(void *)((unsigned long)result__J1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D1HH)));
+  if (result__WCIH) {
+    p__5CIH=current_position__JXF();
+    result__XCIH=NULL;
+    ptr__YCIH=((__POINTER )(NULL));
+    typ_id__ZCIH= 0;
+    sz__0CIH=((__UINTEGER_32 )sizeof(__ITM_READ));
+    if ((sz__0CIH ==  0)) {
+      result__XCIH=ITM_READ__;
+    } else {
+      typ_id__ZCIH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__0CIH);
+      if ((typ_id__ZCIH == (__INTEGER)(-  1))) {
+        a__1CIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__2CIH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CIH + a__1CIH) & (__UINTEGER_32)(~ a__1CIH));
+        ptr_table__BDIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2CIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__ADIH=((__POINTER )(NULL));
+        result__CDIH=((__POINTER *)ptr_table__BDIH)[ 0];
+        if ((result__CDIH == (void *)NULL)) {
+          result__CDIH=new_lab__MRJ(new_size__2CIH);
+          next__ADIH=(void *)((unsigned long)result__CDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CIH)));
+          ((__POINTER *)next__ADIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__BDIH)[ 0]=next__ADIH;
+        } else {
+          next__ADIH=((__POINTER *)result__CDIH)[ 0];
+          if ((next__ADIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2CIH <<  1)) <=  4096)) {
+              next__ADIH=(void *)((unsigned long)result__CDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CIH)));
             } else {
-              next__H1HH=new_lab__MRJ(new_size__D1HH);
-            };
-            ((__POINTER *)next__H1HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__I1HH)[ 0]=next__H1HH;
-          } else {
-            ((__POINTER *)result__J1HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__J1HH=next__H1HH;
-          };
-        };
-        ptr__50HH=result__J1HH;
-      } else {
-        t__E1HH=((__UINTEGER_32 )typ_id__A1HH);
-        a__F1HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__Q1HH=(__UINTEGER_32)((__UINTEGER_32)(sz__B1HH + a__F1HH) & (__UINTEGER_32)(~ a__F1HH));
-        ptr_table__N1HH=((__POINTER )(&(table_type[(t__E1HH)])));
-        lab_type__P1HH=(__UINTEGER_32)(t__E1HH |  1);
-        next__M1HH=((__POINTER )(NULL));
-        result__O1HH=((__POINTER *)ptr_table__N1HH)[ 0];
-        if ((result__O1HH == (void *)NULL)) {
-          result__O1HH=new_lab__MRJ(lab_type__P1HH);
-          next__M1HH=(void *)((unsigned long)result__O1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q1HH)));
-          ((__POINTER *)next__M1HH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__N1HH)[ 0]=next__M1HH;
-        } else {
-          next__M1HH=((__POINTER *)result__O1HH)[ 0];
-          if ((next__M1HH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O1HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q1HH <<  1)) <=  4096)) {
-              next__M1HH=(void *)((unsigned long)result__O1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q1HH)));
+              next__ADIH=new_lab__MRJ(new_size__2CIH);
+            };
+            ((__POINTER *)next__ADIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__BDIH)[ 0]=next__ADIH;
+          } else {
+            ((__POINTER *)result__CDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ADIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__CDIH=next__ADIH;
+          };
+        };
+        ptr__YCIH=result__CDIH;
+      } else {
+        t__3CIH=((__UINTEGER_32 )typ_id__ZCIH);
+        a__4CIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__JDIH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CIH + a__4CIH) & (__UINTEGER_32)(~ a__4CIH));
+        ptr_table__GDIH=((__POINTER )(&(table_type[(t__3CIH)])));
+        lab_type__IDIH=(__UINTEGER_32)(t__3CIH |  1);
+        next__FDIH=((__POINTER )(NULL));
+        result__HDIH=((__POINTER *)ptr_table__GDIH)[ 0];
+        if ((result__HDIH == (void *)NULL)) {
+          result__HDIH=new_lab__MRJ(lab_type__IDIH);
+          next__FDIH=(void *)((unsigned long)result__HDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JDIH)));
+          ((__POINTER *)next__FDIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__GDIH)[ 0]=next__FDIH;
+        } else {
+          next__FDIH=((__POINTER *)result__HDIH)[ 0];
+          if ((next__FDIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JDIH <<  1)) <=  4096)) {
+              next__FDIH=(void *)((unsigned long)result__HDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JDIH)));
             } else {
-              next__M1HH=new_lab__MRJ(lab_type__P1HH);
+              next__FDIH=new_lab__MRJ(lab_type__IDIH);
             };
-            ((__POINTER *)next__M1HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__N1HH)[ 0]=next__M1HH;
+            ((__POINTER *)next__FDIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__GDIH)[ 0]=next__FDIH;
           } else {
-            ((__POINTER *)result__O1HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__O1HH=next__M1HH;
+            ((__POINTER *)result__HDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FDIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__HDIH=next__FDIH;
           };
         };
-        ptr__50HH=result__O1HH;
+        ptr__YCIH=result__HDIH;
       };
-      result__40HH=((__ITM_READ *)ptr__50HH);
-      *(result__40HH) = *(ITM_READ__);
+      result__XCIH=((__ITM_READ *)ptr__YCIH);
+      *(result__XCIH) = *(ITM_READ__);
     };
-    ((__ITM_READ *)result__40HH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__G1HH;
-    result__L4M=result__40HH;
+    ((__ITM_READ *)result__XCIH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__5CIH;
+    result__L4M=result__XCIH;
     __tmp__B5M=TRUE__;
   } else {
     __tmp__B5M=FALSE__;
@@ -26969,9 +27263,9 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
   if (__tmp__B5M) {
     __tmp__EBN=TRUE__;
   } else {
-    result__S1HH=read_word__QPF((&__string_11));
+    result__LDIH=read_word__QPF((&__string_11));
     if (is_shorter__5Y) {
-      if (result__S1HH) {
+      if (result__LDIH) {
         if (((void *)(&__string_11) == (void *)(&__string_4))) {
           short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         } else {
@@ -26979,45 +27273,45 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
         };
       };
     };
-    if (result__S1HH) {
-      result__A04G='\0';
+    if (result__LDIH) {
+      result__KD5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__A04G=((__CHARACTER )(( 0)));
+        result__KD5G=((__CHARACTER )(( 0)));
       } else {
-        result__A04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__KD5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__A04G == '_')) {
+      if ((result__KD5G == '_')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
         copy__ZCS(string_tmp__VH,(&__string_11));
         add_last__ZLT(string_tmp__VH,'_');
         while_do__EWQB:
         {
-          result__F04G='\0';
+          result__PD5G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__F04G=((__CHARACTER )(( 0)));
+            result__PD5G=((__CHARACTER )(( 0)));
           } else {
-            result__F04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__PD5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          result__3RCH=FALSE__;
-          if ((((__INTEGER_8 )result__F04G) >= ((__INTEGER_8 )'0'))) {
-            result__3RCH=(((__INTEGER_8 )result__F04G) <= ((__INTEGER_8 )'9'));
+          result__J1CH=FALSE__;
+          if ((((__INTEGER_8 )result__PD5G) >= ((__INTEGER_8 )'0'))) {
+            result__J1CH=(((__INTEGER_8 )result__PD5G) <= ((__INTEGER_8 )'9'));
           };
-          if (result__3RCH) {
-            result__K04G='\0';
+          if (result__J1CH) {
+            result__UD5G='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__K04G=((__CHARACTER )(( 0)));
+              result__UD5G=((__CHARACTER )(( 0)));
             } else {
-              result__K04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__UD5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            add_last__ZLT(string_tmp__VH,result__K04G);
+            add_last__ZLT(string_tmp__VH,result__UD5G);
             position__SBC=(__INTEGER)(position__SBC +  1);
             goto while_do__EWQB;
           };
         };
         if ((((__STRING *)string_tmp__VH)->count__WFC ==  0)) {
-          pos__04WG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_300));
-          put_position__UOG(pos__04WG);
+          pos__XJXG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_303));
+          put_position__UOG(pos__XJXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -27036,61 +27330,61 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
         typ_id__4YGB=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__1YGB);
         if ((typ_id__4YGB == (__INTEGER)(-  1))) {
-          a__Y1EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__Z1EH=(__UINTEGER_32)((__UINTEGER_32)(sz__1YGB + a__Y1EH) & (__UINTEGER_32)(~ a__Y1EH));
-          ptr_table__U1HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z1EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__T1HH=((__POINTER )(NULL));
-          result__V1HH=((__POINTER *)ptr_table__U1HH)[ 0];
-          if ((result__V1HH == (void *)NULL)) {
-            result__V1HH=new_lab__MRJ(new_size__Z1EH);
-            next__T1HH=(void *)((unsigned long)result__V1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z1EH)));
-            ((__POINTER *)next__T1HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__U1HH)[ 0]=next__T1HH;
-          } else {
-            next__T1HH=((__POINTER *)result__V1HH)[ 0];
-            if ((next__T1HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Z1EH <<  1)) <=  4096)) {
-                next__T1HH=(void *)((unsigned long)result__V1HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z1EH)));
+          a__3DFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__4DFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1YGB + a__3DFH) & (__UINTEGER_32)(~ a__3DFH));
+          ptr_table__NDIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4DFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__MDIH=((__POINTER )(NULL));
+          result__ODIH=((__POINTER *)ptr_table__NDIH)[ 0];
+          if ((result__ODIH == (void *)NULL)) {
+            result__ODIH=new_lab__MRJ(new_size__4DFH);
+            next__MDIH=(void *)((unsigned long)result__ODIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4DFH)));
+            ((__POINTER *)next__MDIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__NDIH)[ 0]=next__MDIH;
+          } else {
+            next__MDIH=((__POINTER *)result__ODIH)[ 0];
+            if ((next__MDIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ODIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4DFH <<  1)) <=  4096)) {
+                next__MDIH=(void *)((unsigned long)result__ODIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4DFH)));
               } else {
-                next__T1HH=new_lab__MRJ(new_size__Z1EH);
+                next__MDIH=new_lab__MRJ(new_size__4DFH);
               };
-              ((__POINTER *)next__T1HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__U1HH)[ 0]=next__T1HH;
+              ((__POINTER *)next__MDIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__NDIH)[ 0]=next__MDIH;
             } else {
-              ((__POINTER *)result__V1HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__V1HH=next__T1HH;
-            };
-          };
-          ptr__ZYGB=result__V1HH;
-        } else {
-          t__31EH=((__UINTEGER_32 )typ_id__4YGB);
-          a__21EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__21HH=(__UINTEGER_32)((__UINTEGER_32)(sz__1YGB + a__21EH) & (__UINTEGER_32)(~ a__21EH));
-          ptr_table__Z1HH=((__POINTER )(&(table_type[(t__31EH)])));
-          lab_type__11HH=(__UINTEGER_32)(t__31EH |  1);
-          next__Y1HH=((__POINTER )(NULL));
-          result__01HH=((__POINTER *)ptr_table__Z1HH)[ 0];
-          if ((result__01HH == (void *)NULL)) {
-            result__01HH=new_lab__MRJ(lab_type__11HH);
-            next__Y1HH=(void *)((unsigned long)result__01HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21HH)));
-            ((__POINTER *)next__Y1HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__Z1HH)[ 0]=next__Y1HH;
-          } else {
-            next__Y1HH=((__POINTER *)result__01HH)[ 0];
-            if ((next__Y1HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__21HH <<  1)) <=  4096)) {
-                next__Y1HH=(void *)((unsigned long)result__01HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21HH)));
+              ((__POINTER *)result__ODIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MDIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__ODIH=next__MDIH;
+            };
+          };
+          ptr__ZYGB=result__ODIH;
+        } else {
+          t__CEFH=((__UINTEGER_32 )typ_id__4YGB);
+          a__BEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__VDIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1YGB + a__BEFH) & (__UINTEGER_32)(~ a__BEFH));
+          ptr_table__SDIH=((__POINTER )(&(table_type[(t__CEFH)])));
+          lab_type__UDIH=(__UINTEGER_32)(t__CEFH |  1);
+          next__RDIH=((__POINTER )(NULL));
+          result__TDIH=((__POINTER *)ptr_table__SDIH)[ 0];
+          if ((result__TDIH == (void *)NULL)) {
+            result__TDIH=new_lab__MRJ(lab_type__UDIH);
+            next__RDIH=(void *)((unsigned long)result__TDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDIH)));
+            ((__POINTER *)next__RDIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__SDIH)[ 0]=next__RDIH;
+          } else {
+            next__RDIH=((__POINTER *)result__TDIH)[ 0];
+            if ((next__RDIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VDIH <<  1)) <=  4096)) {
+                next__RDIH=(void *)((unsigned long)result__TDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDIH)));
               } else {
-                next__Y1HH=new_lab__MRJ(lab_type__11HH);
+                next__RDIH=new_lab__MRJ(lab_type__UDIH);
               };
-              ((__POINTER *)next__Y1HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__Z1HH)[ 0]=next__Y1HH;
+              ((__POINTER *)next__RDIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__SDIH)[ 0]=next__RDIH;
             } else {
-              ((__POINTER *)result__01HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__01HH=next__Y1HH;
+              ((__POINTER *)result__TDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RDIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__TDIH=next__RDIH;
             };
           };
-          ptr__ZYGB=result__01HH;
+          ptr__ZYGB=result__TDIH;
         };
         result__YYGB=((__ITM_READ *)ptr__ZYGB);
         *(result__YYGB) = *(ITM_READ__);
@@ -27098,7 +27392,7 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
       ((__ITM_READ *)result__YYGB)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__3LAB;
       result__L4M=result__YYGB;
     };
-    __tmp__EBN=result__S1HH;
+    __tmp__EBN=result__LDIH;
   };
   if (__tmp__EBN) {
     __tmp__TBN=TRUE__;
@@ -27106,78 +27400,78 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
     type__M4M=read_prototype__HON(Self__J4M,NULL);
     result__B0N=((void *)type__M4M != (void *)NULL);
     if (result__B0N) {
-      p__3IGH=current_position__JXF();
-      result__VIGH=NULL;
-      ptr__WIGH=((__POINTER )(NULL));
-      typ_id__XIGH= 0;
-      sz__YIGH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-      if ((sz__YIGH ==  0)) {
-        result__VIGH=ITM_PROTOTYPE__;
-      } else {
-        typ_id__XIGH=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YIGH);
-        if ((typ_id__XIGH == (__INTEGER)(-  1))) {
-          a__ZIGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__0IGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YIGH + a__ZIGH) & (__UINTEGER_32)(~ a__ZIGH));
-          ptr_table__41HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0IGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__31HH=((__POINTER )(NULL));
-          result__51HH=((__POINTER *)ptr_table__41HH)[ 0];
-          if ((result__51HH == (void *)NULL)) {
-            result__51HH=new_lab__MRJ(new_size__0IGH);
-            next__31HH=(void *)((unsigned long)result__51HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0IGH)));
-            ((__POINTER *)next__31HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__41HH)[ 0]=next__31HH;
-          } else {
-            next__31HH=((__POINTER *)result__51HH)[ 0];
-            if ((next__31HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__51HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0IGH <<  1)) <=  4096)) {
-                next__31HH=(void *)((unsigned long)result__51HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0IGH)));
+      p__KRGH=current_position__JXF();
+      result__CRGH=NULL;
+      ptr__DRGH=((__POINTER )(NULL));
+      typ_id__ERGH= 0;
+      sz__FRGH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
+      if ((sz__FRGH ==  0)) {
+        result__CRGH=ITM_PROTOTYPE__;
+      } else {
+        typ_id__ERGH=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FRGH);
+        if ((typ_id__ERGH == (__INTEGER)(-  1))) {
+          a__GRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__HRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__FRGH + a__GRGH) & (__UINTEGER_32)(~ a__GRGH));
+          ptr_table__XDIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__WDIH=((__POINTER )(NULL));
+          result__YDIH=((__POINTER *)ptr_table__XDIH)[ 0];
+          if ((result__YDIH == (void *)NULL)) {
+            result__YDIH=new_lab__MRJ(new_size__HRGH);
+            next__WDIH=(void *)((unsigned long)result__YDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRGH)));
+            ((__POINTER *)next__WDIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__XDIH)[ 0]=next__WDIH;
+          } else {
+            next__WDIH=((__POINTER *)result__YDIH)[ 0];
+            if ((next__WDIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HRGH <<  1)) <=  4096)) {
+                next__WDIH=(void *)((unsigned long)result__YDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRGH)));
               } else {
-                next__31HH=new_lab__MRJ(new_size__0IGH);
+                next__WDIH=new_lab__MRJ(new_size__HRGH);
               };
-              ((__POINTER *)next__31HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__41HH)[ 0]=next__31HH;
+              ((__POINTER *)next__WDIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__XDIH)[ 0]=next__WDIH;
             } else {
-              ((__POINTER *)result__51HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__31HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__51HH=next__31HH;
-            };
-          };
-          ptr__WIGH=result__51HH;
-        } else {
-          t__1IGH=((__UINTEGER_32 )typ_id__XIGH);
-          a__2IGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__G2HH=(__UINTEGER_32)((__UINTEGER_32)(sz__YIGH + a__2IGH) & (__UINTEGER_32)(~ a__2IGH));
-          ptr_table__D2HH=((__POINTER )(&(table_type[(t__1IGH)])));
-          lab_type__F2HH=(__UINTEGER_32)(t__1IGH |  1);
-          next__C2HH=((__POINTER )(NULL));
-          result__E2HH=((__POINTER *)ptr_table__D2HH)[ 0];
-          if ((result__E2HH == (void *)NULL)) {
-            result__E2HH=new_lab__MRJ(lab_type__F2HH);
-            next__C2HH=(void *)((unsigned long)result__E2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2HH)));
-            ((__POINTER *)next__C2HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__D2HH)[ 0]=next__C2HH;
-          } else {
-            next__C2HH=((__POINTER *)result__E2HH)[ 0];
-            if ((next__C2HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__G2HH <<  1)) <=  4096)) {
-                next__C2HH=(void *)((unsigned long)result__E2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2HH)));
+              ((__POINTER *)result__YDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WDIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__YDIH=next__WDIH;
+            };
+          };
+          ptr__DRGH=result__YDIH;
+        } else {
+          t__IRGH=((__UINTEGER_32 )typ_id__ERGH);
+          a__JRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__5DIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FRGH + a__JRGH) & (__UINTEGER_32)(~ a__JRGH));
+          ptr_table__2DIH=((__POINTER )(&(table_type[(t__IRGH)])));
+          lab_type__4DIH=(__UINTEGER_32)(t__IRGH |  1);
+          next__1DIH=((__POINTER )(NULL));
+          result__3DIH=((__POINTER *)ptr_table__2DIH)[ 0];
+          if ((result__3DIH == (void *)NULL)) {
+            result__3DIH=new_lab__MRJ(lab_type__4DIH);
+            next__1DIH=(void *)((unsigned long)result__3DIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5DIH)));
+            ((__POINTER *)next__1DIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__2DIH)[ 0]=next__1DIH;
+          } else {
+            next__1DIH=((__POINTER *)result__3DIH)[ 0];
+            if ((next__1DIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3DIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5DIH <<  1)) <=  4096)) {
+                next__1DIH=(void *)((unsigned long)result__3DIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5DIH)));
               } else {
-                next__C2HH=new_lab__MRJ(lab_type__F2HH);
+                next__1DIH=new_lab__MRJ(lab_type__4DIH);
               };
-              ((__POINTER *)next__C2HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__D2HH)[ 0]=next__C2HH;
+              ((__POINTER *)next__1DIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__2DIH)[ 0]=next__1DIH;
             } else {
-              ((__POINTER *)result__E2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__E2HH=next__C2HH;
+              ((__POINTER *)result__3DIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1DIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__3DIH=next__1DIH;
             };
           };
-          ptr__WIGH=result__E2HH;
+          ptr__DRGH=result__3DIH;
         };
-        result__VIGH=((__ITM_PROTOTYPE *)ptr__WIGH);
-        *(result__VIGH) = *(ITM_PROTOTYPE__);
+        result__CRGH=((__ITM_PROTOTYPE *)ptr__DRGH);
+        *(result__CRGH) = *(ITM_PROTOTYPE__);
       };
-      ((__ITM_PROTOTYPE *)result__VIGH)->parent_itm_constant__2VF.parent_itm_code__1VF.parent_itm_object__XDE.position__NDJ=p__3IGH;
-      result__L4M=result__VIGH;
+      ((__ITM_PROTOTYPE *)result__CRGH)->parent_itm_constant__2VF.parent_itm_code__1VF.parent_itm_object__XDE.position__NDJ=p__KRGH;
+      result__L4M=result__CRGH;
     };
     __tmp__TBN=result__B0N;
   };
@@ -27190,116 +27484,116 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
   if (__tmp__BCN) {
     __tmp__4CN=TRUE__;
   } else {
-    result__H2HH=FALSE__;
+    result__AEIH=FALSE__;
     if ((! read_space__3RD())) {
-      result__H2HH=FALSE__;
+      result__AEIH=FALSE__;
     } else {
-      result__I2HH='\0';
+      result__BEIH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__I2HH=((__CHARACTER )(( 0)));
+        result__BEIH=((__CHARACTER )(( 0)));
       } else {
-        result__I2HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__BEIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__I2HH == '(')) {
+      if ((result__BEIH == '(')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__H2HH=TRUE__;
+        result__AEIH=TRUE__;
       };
     };
-    if (result__H2HH) {
+    if (result__AEIH) {
       group_sav__R4M=last_group__1TF;
-      p__S2HH=current_position__JXF();
-      result__K2HH=NULL;
-      ptr__L2HH=((__POINTER )(NULL));
-      typ_id__M2HH= 0;
-      sz__N2HH=((__UINTEGER_32 )sizeof(__ITM_LIST));
-      if ((sz__N2HH ==  0)) {
-        result__K2HH=ITM_LIST__;
-      } else {
-        typ_id__M2HH=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__N2HH);
-        if ((typ_id__M2HH == (__INTEGER)(-  1))) {
-          a__O2HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__P2HH=(__UINTEGER_32)((__UINTEGER_32)(sz__N2HH + a__O2HH) & (__UINTEGER_32)(~ a__O2HH));
-          ptr_table__U2HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__P2HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__T2HH=((__POINTER )(NULL));
-          result__V2HH=((__POINTER *)ptr_table__U2HH)[ 0];
-          if ((result__V2HH == (void *)NULL)) {
-            result__V2HH=new_lab__MRJ(new_size__P2HH);
-            next__T2HH=(void *)((unsigned long)result__V2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P2HH)));
-            ((__POINTER *)next__T2HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__U2HH)[ 0]=next__T2HH;
-          } else {
-            next__T2HH=((__POINTER *)result__V2HH)[ 0];
-            if ((next__T2HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V2HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__P2HH <<  1)) <=  4096)) {
-                next__T2HH=(void *)((unsigned long)result__V2HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P2HH)));
+      p__LEIH=current_position__JXF();
+      result__DEIH=NULL;
+      ptr__EEIH=((__POINTER )(NULL));
+      typ_id__FEIH= 0;
+      sz__GEIH=((__UINTEGER_32 )sizeof(__ITM_LIST));
+      if ((sz__GEIH ==  0)) {
+        result__DEIH=ITM_LIST__;
+      } else {
+        typ_id__FEIH=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GEIH);
+        if ((typ_id__FEIH == (__INTEGER)(-  1))) {
+          a__HEIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__IEIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GEIH + a__HEIH) & (__UINTEGER_32)(~ a__HEIH));
+          ptr_table__NEIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IEIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__MEIH=((__POINTER )(NULL));
+          result__OEIH=((__POINTER *)ptr_table__NEIH)[ 0];
+          if ((result__OEIH == (void *)NULL)) {
+            result__OEIH=new_lab__MRJ(new_size__IEIH);
+            next__MEIH=(void *)((unsigned long)result__OEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IEIH)));
+            ((__POINTER *)next__MEIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__NEIH)[ 0]=next__MEIH;
+          } else {
+            next__MEIH=((__POINTER *)result__OEIH)[ 0];
+            if ((next__MEIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OEIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IEIH <<  1)) <=  4096)) {
+                next__MEIH=(void *)((unsigned long)result__OEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IEIH)));
               } else {
-                next__T2HH=new_lab__MRJ(new_size__P2HH);
+                next__MEIH=new_lab__MRJ(new_size__IEIH);
               };
-              ((__POINTER *)next__T2HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__U2HH)[ 0]=next__T2HH;
+              ((__POINTER *)next__MEIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__NEIH)[ 0]=next__MEIH;
             } else {
-              ((__POINTER *)result__V2HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__V2HH=next__T2HH;
-            };
-          };
-          ptr__L2HH=result__V2HH;
-        } else {
-          t__Q2HH=((__UINTEGER_32 )typ_id__M2HH);
-          a__R2HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__22HH=(__UINTEGER_32)((__UINTEGER_32)(sz__N2HH + a__R2HH) & (__UINTEGER_32)(~ a__R2HH));
-          ptr_table__Z2HH=((__POINTER )(&(table_type[(t__Q2HH)])));
-          lab_type__12HH=(__UINTEGER_32)(t__Q2HH |  1);
-          next__Y2HH=((__POINTER )(NULL));
-          result__02HH=((__POINTER *)ptr_table__Z2HH)[ 0];
-          if ((result__02HH == (void *)NULL)) {
-            result__02HH=new_lab__MRJ(lab_type__12HH);
-            next__Y2HH=(void *)((unsigned long)result__02HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__22HH)));
-            ((__POINTER *)next__Y2HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__Z2HH)[ 0]=next__Y2HH;
-          } else {
-            next__Y2HH=((__POINTER *)result__02HH)[ 0];
-            if ((next__Y2HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__02HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__22HH <<  1)) <=  4096)) {
-                next__Y2HH=(void *)((unsigned long)result__02HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__22HH)));
+              ((__POINTER *)result__OEIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MEIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__OEIH=next__MEIH;
+            };
+          };
+          ptr__EEIH=result__OEIH;
+        } else {
+          t__JEIH=((__UINTEGER_32 )typ_id__FEIH);
+          a__KEIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__VEIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GEIH + a__KEIH) & (__UINTEGER_32)(~ a__KEIH));
+          ptr_table__SEIH=((__POINTER )(&(table_type[(t__JEIH)])));
+          lab_type__UEIH=(__UINTEGER_32)(t__JEIH |  1);
+          next__REIH=((__POINTER )(NULL));
+          result__TEIH=((__POINTER *)ptr_table__SEIH)[ 0];
+          if ((result__TEIH == (void *)NULL)) {
+            result__TEIH=new_lab__MRJ(lab_type__UEIH);
+            next__REIH=(void *)((unsigned long)result__TEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEIH)));
+            ((__POINTER *)next__REIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__SEIH)[ 0]=next__REIH;
+          } else {
+            next__REIH=((__POINTER *)result__TEIH)[ 0];
+            if ((next__REIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TEIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VEIH <<  1)) <=  4096)) {
+                next__REIH=(void *)((unsigned long)result__TEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEIH)));
               } else {
-                next__Y2HH=new_lab__MRJ(lab_type__12HH);
+                next__REIH=new_lab__MRJ(lab_type__UEIH);
               };
-              ((__POINTER *)next__Y2HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__Z2HH)[ 0]=next__Y2HH;
+              ((__POINTER *)next__REIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__SEIH)[ 0]=next__REIH;
             } else {
-              ((__POINTER *)result__02HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y2HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__02HH=next__Y2HH;
+              ((__POINTER *)result__TEIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__REIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__TEIH=next__REIH;
             };
           };
-          ptr__L2HH=result__02HH;
+          ptr__EEIH=result__TEIH;
         };
-        result__K2HH=((__ITM_LIST *)ptr__L2HH);
-        *(result__K2HH) = *(ITM_LIST__);
+        result__DEIH=((__ITM_LIST *)ptr__EEIH);
+        *(result__DEIH) = *(ITM_LIST__);
       };
-      ((__ITM_LIST *)result__K2HH)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ=p__S2HH;
-      last_group__1TF=result__K2HH;
-      result__L4M=result__K2HH;
+      ((__ITM_LIST *)result__DEIH)->parent_itm_code__K5E.parent_itm_object__XDE.position__NDJ=p__LEIH;
+      last_group__1TF=result__DEIH;
+      result__L4M=result__DEIH;
       read_group__JBHB(Self__J4M);
-      result__32HH=FALSE__;
+      result__WEIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__32HH=FALSE__;
+        result__WEIH=FALSE__;
       } else {
-        result__42HH='\0';
+        result__XEIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__42HH=((__CHARACTER )(( 0)));
+          result__XEIH=((__CHARACTER )(( 0)));
         } else {
-          result__42HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__XEIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__42HH == ')')) {
+        if ((result__XEIH == ')')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__32HH=TRUE__;
+          result__WEIH=TRUE__;
         };
       };
-      if ((! result__32HH)) {
-        pos__24WG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_258));
-        put_position__UOG(pos__24WG);
+      if ((! result__WEIH)) {
+        pos__ZJXG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_261));
+        put_position__UOG(pos__ZJXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -27307,27 +27601,27 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
       };
       last_group__1TF=group_sav__R4M;
     };
-    __tmp__4CN=result__H2HH;
+    __tmp__4CN=result__AEIH;
   };
   if (__tmp__4CN) {
     __tmp__BFN=TRUE__;
   } else {
-    result__A3HH=FALSE__;
+    result__ZEIH=FALSE__;
     if ((! read_space__3RD())) {
-      result__A3HH=FALSE__;
+      result__ZEIH=FALSE__;
     } else {
-      result__B3HH='\0';
+      result__0EIH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__B3HH=((__CHARACTER )(( 0)));
+        result__0EIH=((__CHARACTER )(( 0)));
       } else {
-        result__B3HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__0EIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__B3HH == '{')) {
+      if ((result__0EIH == '{')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__A3HH=TRUE__;
+        result__ZEIH=TRUE__;
       };
     };
-    if (result__A3HH) {
+    if (result__ZEIH) {
       short__token__to__LBD((&__string_133),(__INTEGER)(position__SBC -  1),position__SBC);
       group_sav__R4M=last_group__1TF;
       p__Z0H=current_position__JXF();
@@ -27341,61 +27635,61 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
         typ_id__2PI=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__ZPI);
         if ((typ_id__2PI == (__INTEGER)(-  1))) {
-          a__A0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__B0EH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZPI + a__A0EH) & (__UINTEGER_32)(~ a__A0EH));
-          ptr_table__E3HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B0EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__D3HH=((__POINTER )(NULL));
-          result__F3HH=((__POINTER *)ptr_table__E3HH)[ 0];
-          if ((result__F3HH == (void *)NULL)) {
-            result__F3HH=new_lab__MRJ(new_size__B0EH);
-            next__D3HH=(void *)((unsigned long)result__F3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B0EH)));
-            ((__POINTER *)next__D3HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__E3HH)[ 0]=next__D3HH;
-          } else {
-            next__D3HH=((__POINTER *)result__F3HH)[ 0];
-            if ((next__D3HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__B0EH <<  1)) <=  4096)) {
-                next__D3HH=(void *)((unsigned long)result__F3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B0EH)));
+          a__FCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__GCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZPI + a__FCFH) & (__UINTEGER_32)(~ a__FCFH));
+          ptr_table__3EIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__2EIH=((__POINTER )(NULL));
+          result__4EIH=((__POINTER *)ptr_table__3EIH)[ 0];
+          if ((result__4EIH == (void *)NULL)) {
+            result__4EIH=new_lab__MRJ(new_size__GCFH);
+            next__2EIH=(void *)((unsigned long)result__4EIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GCFH)));
+            ((__POINTER *)next__2EIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__3EIH)[ 0]=next__2EIH;
+          } else {
+            next__2EIH=((__POINTER *)result__4EIH)[ 0];
+            if ((next__2EIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4EIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GCFH <<  1)) <=  4096)) {
+                next__2EIH=(void *)((unsigned long)result__4EIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GCFH)));
               } else {
-                next__D3HH=new_lab__MRJ(new_size__B0EH);
+                next__2EIH=new_lab__MRJ(new_size__GCFH);
               };
-              ((__POINTER *)next__D3HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__E3HH)[ 0]=next__D3HH;
+              ((__POINTER *)next__2EIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__3EIH)[ 0]=next__2EIH;
             } else {
-              ((__POINTER *)result__F3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__F3HH=next__D3HH;
-            };
-          };
-          ptr__XPI=result__F3HH;
-        } else {
-          t__F0EH=((__UINTEGER_32 )typ_id__2PI);
-          a__E0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__M3HH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZPI + a__E0EH) & (__UINTEGER_32)(~ a__E0EH));
-          ptr_table__J3HH=((__POINTER )(&(table_type[(t__F0EH)])));
-          lab_type__L3HH=(__UINTEGER_32)(t__F0EH |  1);
-          next__I3HH=((__POINTER )(NULL));
-          result__K3HH=((__POINTER *)ptr_table__J3HH)[ 0];
-          if ((result__K3HH == (void *)NULL)) {
-            result__K3HH=new_lab__MRJ(lab_type__L3HH);
-            next__I3HH=(void *)((unsigned long)result__K3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M3HH)));
-            ((__POINTER *)next__I3HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__J3HH)[ 0]=next__I3HH;
-          } else {
-            next__I3HH=((__POINTER *)result__K3HH)[ 0];
-            if ((next__I3HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__M3HH <<  1)) <=  4096)) {
-                next__I3HH=(void *)((unsigned long)result__K3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M3HH)));
+              ((__POINTER *)result__4EIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2EIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__4EIH=next__2EIH;
+            };
+          };
+          ptr__XPI=result__4EIH;
+        } else {
+          t__KCFH=((__UINTEGER_32 )typ_id__2PI);
+          a__JCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__FFIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZPI + a__JCFH) & (__UINTEGER_32)(~ a__JCFH));
+          ptr_table__CFIH=((__POINTER )(&(table_type[(t__KCFH)])));
+          lab_type__EFIH=(__UINTEGER_32)(t__KCFH |  1);
+          next__BFIH=((__POINTER )(NULL));
+          result__DFIH=((__POINTER *)ptr_table__CFIH)[ 0];
+          if ((result__DFIH == (void *)NULL)) {
+            result__DFIH=new_lab__MRJ(lab_type__EFIH);
+            next__BFIH=(void *)((unsigned long)result__DFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFIH)));
+            ((__POINTER *)next__BFIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__CFIH)[ 0]=next__BFIH;
+          } else {
+            next__BFIH=((__POINTER *)result__DFIH)[ 0];
+            if ((next__BFIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FFIH <<  1)) <=  4096)) {
+                next__BFIH=(void *)((unsigned long)result__DFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFIH)));
               } else {
-                next__I3HH=new_lab__MRJ(lab_type__L3HH);
+                next__BFIH=new_lab__MRJ(lab_type__EFIH);
               };
-              ((__POINTER *)next__I3HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__J3HH)[ 0]=next__I3HH;
+              ((__POINTER *)next__BFIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__CFIH)[ 0]=next__BFIH;
             } else {
-              ((__POINTER *)result__K3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__K3HH=next__I3HH;
+              ((__POINTER *)result__DFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__DFIH=next__BFIH;
             };
           };
-          ptr__XPI=result__K3HH;
+          ptr__XPI=result__DFIH;
         };
         result__WPI=((__ITM_LIST *)ptr__XPI);
         *(result__WPI) = *(ITM_LIST__);
@@ -27408,25 +27702,25 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
       old_pos_col__JRI=pos_col__XBC;
       old_short_derive__LRI=short_derive__BCC;
       if (((void *)read_loc_arg__with_self__IEHB(Self__J4M,TRUE__,FALSE__) != (void *)NULL)) {
-        result__N3HH=FALSE__;
+        result__GFIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__N3HH=FALSE__;
+          result__GFIH=FALSE__;
         } else {
-          result__O3HH='\0';
+          result__HFIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__O3HH=((__CHARACTER )(( 0)));
+            result__HFIH=((__CHARACTER )(( 0)));
           } else {
-            result__O3HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__HFIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__O3HH == ';')) {
+          if ((result__HFIH == ';')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__N3HH=TRUE__;
+            result__GFIH=TRUE__;
           };
         };
-        if ((! result__N3HH)) {
-          pos__44WG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_239));
-          put_position__UOG(pos__44WG);
+        if ((! result__GFIH)) {
+          pos__1JXG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_242));
+          put_position__UOG(pos__1JXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -27446,61 +27740,61 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
         typ_id__GIMB=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__DIMB);
         if ((typ_id__GIMB == (__INTEGER)(-  1))) {
-          a__FTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__GTEH=(__UINTEGER_32)((__UINTEGER_32)(sz__DIMB + a__FTEH) & (__UINTEGER_32)(~ a__FTEH));
-          ptr_table__R3HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GTEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__Q3HH=((__POINTER )(NULL));
-          result__S3HH=((__POINTER *)ptr_table__R3HH)[ 0];
-          if ((result__S3HH == (void *)NULL)) {
-            result__S3HH=new_lab__MRJ(new_size__GTEH);
-            next__Q3HH=(void *)((unsigned long)result__S3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTEH)));
-            ((__POINTER *)next__Q3HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__R3HH)[ 0]=next__Q3HH;
-          } else {
-            next__Q3HH=((__POINTER *)result__S3HH)[ 0];
-            if ((next__Q3HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GTEH <<  1)) <=  4096)) {
-                next__Q3HH=(void *)((unsigned long)result__S3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTEH)));
+          a__51EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__A2EH=(__UINTEGER_32)((__UINTEGER_32)(sz__DIMB + a__51EH) & (__UINTEGER_32)(~ a__51EH));
+          ptr_table__KFIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A2EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__JFIH=((__POINTER )(NULL));
+          result__LFIH=((__POINTER *)ptr_table__KFIH)[ 0];
+          if ((result__LFIH == (void *)NULL)) {
+            result__LFIH=new_lab__MRJ(new_size__A2EH);
+            next__JFIH=(void *)((unsigned long)result__LFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2EH)));
+            ((__POINTER *)next__JFIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__KFIH)[ 0]=next__JFIH;
+          } else {
+            next__JFIH=((__POINTER *)result__LFIH)[ 0];
+            if ((next__JFIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__A2EH <<  1)) <=  4096)) {
+                next__JFIH=(void *)((unsigned long)result__LFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2EH)));
               } else {
-                next__Q3HH=new_lab__MRJ(new_size__GTEH);
+                next__JFIH=new_lab__MRJ(new_size__A2EH);
               };
-              ((__POINTER *)next__Q3HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__R3HH)[ 0]=next__Q3HH;
+              ((__POINTER *)next__JFIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__KFIH)[ 0]=next__JFIH;
             } else {
-              ((__POINTER *)result__S3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__S3HH=next__Q3HH;
-            };
-          };
-          ptr__BIMB=result__S3HH;
-        } else {
-          t__KTEH=((__UINTEGER_32 )typ_id__GIMB);
-          a__JTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__Z3HH=(__UINTEGER_32)((__UINTEGER_32)(sz__DIMB + a__JTEH) & (__UINTEGER_32)(~ a__JTEH));
-          ptr_table__W3HH=((__POINTER )(&(table_type[(t__KTEH)])));
-          lab_type__Y3HH=(__UINTEGER_32)(t__KTEH |  1);
-          next__V3HH=((__POINTER )(NULL));
-          result__X3HH=((__POINTER *)ptr_table__W3HH)[ 0];
-          if ((result__X3HH == (void *)NULL)) {
-            result__X3HH=new_lab__MRJ(lab_type__Y3HH);
-            next__V3HH=(void *)((unsigned long)result__X3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3HH)));
-            ((__POINTER *)next__V3HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__W3HH)[ 0]=next__V3HH;
-          } else {
-            next__V3HH=((__POINTER *)result__X3HH)[ 0];
-            if ((next__V3HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X3HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Z3HH <<  1)) <=  4096)) {
-                next__V3HH=(void *)((unsigned long)result__X3HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3HH)));
+              ((__POINTER *)result__LFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__LFIH=next__JFIH;
+            };
+          };
+          ptr__BIMB=result__LFIH;
+        } else {
+          t__E2EH=((__UINTEGER_32 )typ_id__GIMB);
+          a__D2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__SFIH=(__UINTEGER_32)((__UINTEGER_32)(sz__DIMB + a__D2EH) & (__UINTEGER_32)(~ a__D2EH));
+          ptr_table__PFIH=((__POINTER )(&(table_type[(t__E2EH)])));
+          lab_type__RFIH=(__UINTEGER_32)(t__E2EH |  1);
+          next__OFIH=((__POINTER )(NULL));
+          result__QFIH=((__POINTER *)ptr_table__PFIH)[ 0];
+          if ((result__QFIH == (void *)NULL)) {
+            result__QFIH=new_lab__MRJ(lab_type__RFIH);
+            next__OFIH=(void *)((unsigned long)result__QFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SFIH)));
+            ((__POINTER *)next__OFIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__PFIH)[ 0]=next__OFIH;
+          } else {
+            next__OFIH=((__POINTER *)result__QFIH)[ 0];
+            if ((next__OFIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SFIH <<  1)) <=  4096)) {
+                next__OFIH=(void *)((unsigned long)result__QFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SFIH)));
               } else {
-                next__V3HH=new_lab__MRJ(lab_type__Y3HH);
+                next__OFIH=new_lab__MRJ(lab_type__RFIH);
               };
-              ((__POINTER *)next__V3HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__W3HH)[ 0]=next__V3HH;
+              ((__POINTER *)next__OFIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__PFIH)[ 0]=next__OFIH;
             } else {
-              ((__POINTER *)result__X3HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V3HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__X3HH=next__V3HH;
+              ((__POINTER *)result__QFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__QFIH=next__OFIH;
             };
           };
-          ptr__BIMB=result__X3HH;
+          ptr__BIMB=result__QFIH;
         };
         result__AIMB=((__ITM_BLOCK *)ptr__BIMB);
         *(result__AIMB) = *(ITM_BLOCK__);
@@ -27508,25 +27802,25 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
       ((__ITM_BLOCK *)result__AIMB)->list__ANDC=lst__JKHB;
       result__L4M=result__AIMB;
       read_group__JBHB(Self__J4M);
-      result__03HH=FALSE__;
+      result__TFIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__03HH=FALSE__;
+        result__TFIH=FALSE__;
       } else {
-        result__13HH='\0';
+        result__UFIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__13HH=((__CHARACTER )(( 0)));
+          result__UFIH=((__CHARACTER )(( 0)));
         } else {
-          result__13HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__UFIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__13HH == '}')) {
+        if ((result__UFIH == '}')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__03HH=TRUE__;
+          result__TFIH=TRUE__;
         };
       };
-      if ((! result__03HH)) {
-        pos__G5WG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_290));
-        put_position__UOG(pos__G5WG);
+      if ((! result__TFIH)) {
+        pos__DKXG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_293));
+        put_position__UOG(pos__DKXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -27535,26 +27829,26 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
       short__token__to__LBD((&__string_133),(__INTEGER)(position__SBC -  1),position__SBC);
       last_group__1TF=group_sav__R4M;
     };
-    __tmp__BFN=result__A3HH;
+    __tmp__BFN=result__ZEIH;
   };
   if ((! __tmp__BFN)) {
     if (read_external__ATO()) {
-      result__33HH=FALSE__;
+      result__WFIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__33HH=FALSE__;
+        result__WFIH=FALSE__;
       } else {
-        result__43HH='\0';
+        result__XFIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__43HH=((__CHARACTER )(( 0)));
+          result__XFIH=((__CHARACTER )(( 0)));
         } else {
-          result__43HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__XFIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__43HH == ':')) {
+        if ((result__XFIH == ':')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__33HH=TRUE__;
+          result__WFIH=TRUE__;
         };
       };
-      if ((! result__33HH)) {
+      if ((! result__WFIH)) {
         __tmp__VFN=current_position__JXF();
         result__ZVTB=NULL;
         ptr__0VTB=((__POINTER )(NULL));
@@ -27566,61 +27860,61 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
           typ_id__5VTB=-1;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__2VTB);
           if ((typ_id__5VTB == (__INTEGER)(-  1))) {
-            a__NTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__OTEH=(__UINTEGER_32)((__UINTEGER_32)(sz__2VTB + a__NTEH) & (__UINTEGER_32)(~ a__NTEH));
-            ptr_table__B4HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OTEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__A4HH=((__POINTER )(NULL));
-            result__C4HH=((__POINTER *)ptr_table__B4HH)[ 0];
-            if ((result__C4HH == (void *)NULL)) {
-              result__C4HH=new_lab__MRJ(new_size__OTEH);
-              next__A4HH=(void *)((unsigned long)result__C4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTEH)));
-              ((__POINTER *)next__A4HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__B4HH)[ 0]=next__A4HH;
+            a__H2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__I2EH=(__UINTEGER_32)((__UINTEGER_32)(sz__2VTB + a__H2EH) & (__UINTEGER_32)(~ a__H2EH));
+            ptr_table__0FIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__I2EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__ZFIH=((__POINTER )(NULL));
+            result__1FIH=((__POINTER *)ptr_table__0FIH)[ 0];
+            if ((result__1FIH == (void *)NULL)) {
+              result__1FIH=new_lab__MRJ(new_size__I2EH);
+              next__ZFIH=(void *)((unsigned long)result__1FIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I2EH)));
+              ((__POINTER *)next__ZFIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__0FIH)[ 0]=next__ZFIH;
             } else {
-              next__A4HH=((__POINTER *)result__C4HH)[ 0];
-              if ((next__A4HH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OTEH <<  1)) <=  4096)) {
-                  next__A4HH=(void *)((unsigned long)result__C4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OTEH)));
+              next__ZFIH=((__POINTER *)result__1FIH)[ 0];
+              if ((next__ZFIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1FIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__I2EH <<  1)) <=  4096)) {
+                  next__ZFIH=(void *)((unsigned long)result__1FIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I2EH)));
                 } else {
-                  next__A4HH=new_lab__MRJ(new_size__OTEH);
+                  next__ZFIH=new_lab__MRJ(new_size__I2EH);
                 };
-                ((__POINTER *)next__A4HH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__B4HH)[ 0]=next__A4HH;
+                ((__POINTER *)next__ZFIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__0FIH)[ 0]=next__ZFIH;
               } else {
-                ((__POINTER *)result__C4HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A4HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__C4HH=next__A4HH;
+                ((__POINTER *)result__1FIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__1FIH=next__ZFIH;
               };
             };
-            ptr__0VTB=result__C4HH;
-          } else {
-            t__STEH=((__UINTEGER_32 )typ_id__5VTB);
-            a__RTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__J4HH=(__UINTEGER_32)((__UINTEGER_32)(sz__2VTB + a__RTEH) & (__UINTEGER_32)(~ a__RTEH));
-            ptr_table__G4HH=((__POINTER )(&(table_type[(t__STEH)])));
-            lab_type__I4HH=(__UINTEGER_32)(t__STEH |  1);
-            next__F4HH=((__POINTER )(NULL));
-            result__H4HH=((__POINTER *)ptr_table__G4HH)[ 0];
-            if ((result__H4HH == (void *)NULL)) {
-              result__H4HH=new_lab__MRJ(lab_type__I4HH);
-              next__F4HH=(void *)((unsigned long)result__H4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4HH)));
-              ((__POINTER *)next__F4HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__G4HH)[ 0]=next__F4HH;
+            ptr__0VTB=result__1FIH;
+          } else {
+            t__M2EH=((__UINTEGER_32 )typ_id__5VTB);
+            a__L2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__CGIH=(__UINTEGER_32)((__UINTEGER_32)(sz__2VTB + a__L2EH) & (__UINTEGER_32)(~ a__L2EH));
+            ptr_table__5FIH=((__POINTER )(&(table_type[(t__M2EH)])));
+            lab_type__BGIH=(__UINTEGER_32)(t__M2EH |  1);
+            next__4FIH=((__POINTER )(NULL));
+            result__AGIH=((__POINTER *)ptr_table__5FIH)[ 0];
+            if ((result__AGIH == (void *)NULL)) {
+              result__AGIH=new_lab__MRJ(lab_type__BGIH);
+              next__4FIH=(void *)((unsigned long)result__AGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGIH)));
+              ((__POINTER *)next__4FIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__5FIH)[ 0]=next__4FIH;
             } else {
-              next__F4HH=((__POINTER *)result__H4HH)[ 0];
-              if ((next__F4HH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H4HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J4HH <<  1)) <=  4096)) {
-                  next__F4HH=(void *)((unsigned long)result__H4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4HH)));
+              next__4FIH=((__POINTER *)result__AGIH)[ 0];
+              if ((next__4FIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AGIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CGIH <<  1)) <=  4096)) {
+                  next__4FIH=(void *)((unsigned long)result__AGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGIH)));
                 } else {
-                  next__F4HH=new_lab__MRJ(lab_type__I4HH);
+                  next__4FIH=new_lab__MRJ(lab_type__BGIH);
                 };
-                ((__POINTER *)next__F4HH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__G4HH)[ 0]=next__F4HH;
+                ((__POINTER *)next__4FIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__5FIH)[ 0]=next__4FIH;
               } else {
-                ((__POINTER *)result__H4HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F4HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__H4HH=next__F4HH;
+                ((__POINTER *)result__AGIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4FIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__AGIH=next__4FIH;
               };
             };
-            ptr__0VTB=result__H4HH;
+            ptr__0VTB=result__AGIH;
           };
           result__ZVTB=((__ITM_EXTERNAL *)ptr__0VTB);
           *(result__ZVTB) = *(ITM_EXTERNAL__);
@@ -27629,19 +27923,19 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
         result__L4M=result__ZVTB;
       } else {
         __tmp__3FN=current_position__JXF();
-        result__K4HH=FALSE__;
+        result__DGIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__K4HH=FALSE__;
+          result__DGIH=FALSE__;
         } else {
-          result__L4HH='\0';
+          result__EGIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__L4HH=((__CHARACTER )(( 0)));
+            result__EGIH=((__CHARACTER )(( 0)));
           } else {
-            result__L4HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__EGIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__L4HH == '(')) {
+          if ((result__EGIH == '(')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__K4HH=TRUE__;
+            result__DGIH=TRUE__;
           };
         };
         result__NXTB=NULL;
@@ -27654,122 +27948,122 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
           typ_id__TXTB=-1;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__QXTB);
           if ((typ_id__TXTB == (__INTEGER)(-  1))) {
-            a__VTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__WTEH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXTB + a__VTEH) & (__UINTEGER_32)(~ a__VTEH));
-            ptr_table__O4HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WTEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__N4HH=((__POINTER )(NULL));
-            result__P4HH=((__POINTER *)ptr_table__O4HH)[ 0];
-            if ((result__P4HH == (void *)NULL)) {
-              result__P4HH=new_lab__MRJ(new_size__WTEH);
-              next__N4HH=(void *)((unsigned long)result__P4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTEH)));
-              ((__POINTER *)next__N4HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__O4HH)[ 0]=next__N4HH;
+            a__P2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__Q2EH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXTB + a__P2EH) & (__UINTEGER_32)(~ a__P2EH));
+            ptr_table__HGIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q2EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__GGIH=((__POINTER )(NULL));
+            result__IGIH=((__POINTER *)ptr_table__HGIH)[ 0];
+            if ((result__IGIH == (void *)NULL)) {
+              result__IGIH=new_lab__MRJ(new_size__Q2EH);
+              next__GGIH=(void *)((unsigned long)result__IGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2EH)));
+              ((__POINTER *)next__GGIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__HGIH)[ 0]=next__GGIH;
             } else {
-              next__N4HH=((__POINTER *)result__P4HH)[ 0];
-              if ((next__N4HH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P4HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WTEH <<  1)) <=  4096)) {
-                  next__N4HH=(void *)((unsigned long)result__P4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTEH)));
+              next__GGIH=((__POINTER *)result__IGIH)[ 0];
+              if ((next__GGIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IGIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q2EH <<  1)) <=  4096)) {
+                  next__GGIH=(void *)((unsigned long)result__IGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2EH)));
                 } else {
-                  next__N4HH=new_lab__MRJ(new_size__WTEH);
+                  next__GGIH=new_lab__MRJ(new_size__Q2EH);
                 };
-                ((__POINTER *)next__N4HH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__O4HH)[ 0]=next__N4HH;
+                ((__POINTER *)next__GGIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__HGIH)[ 0]=next__GGIH;
               } else {
-                ((__POINTER *)result__P4HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N4HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__P4HH=next__N4HH;
+                ((__POINTER *)result__IGIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GGIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__IGIH=next__GGIH;
               };
             };
-            ptr__OXTB=result__P4HH;
-          } else {
-            t__0TEH=((__UINTEGER_32 )typ_id__TXTB);
-            a__ZTEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__W4HH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXTB + a__ZTEH) & (__UINTEGER_32)(~ a__ZTEH));
-            ptr_table__T4HH=((__POINTER )(&(table_type[(t__0TEH)])));
-            lab_type__V4HH=(__UINTEGER_32)(t__0TEH |  1);
-            next__S4HH=((__POINTER )(NULL));
-            result__U4HH=((__POINTER *)ptr_table__T4HH)[ 0];
-            if ((result__U4HH == (void *)NULL)) {
-              result__U4HH=new_lab__MRJ(lab_type__V4HH);
-              next__S4HH=(void *)((unsigned long)result__U4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4HH)));
-              ((__POINTER *)next__S4HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__T4HH)[ 0]=next__S4HH;
+            ptr__OXTB=result__IGIH;
+          } else {
+            t__U2EH=((__UINTEGER_32 )typ_id__TXTB);
+            a__T2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__PGIH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXTB + a__T2EH) & (__UINTEGER_32)(~ a__T2EH));
+            ptr_table__MGIH=((__POINTER )(&(table_type[(t__U2EH)])));
+            lab_type__OGIH=(__UINTEGER_32)(t__U2EH |  1);
+            next__LGIH=((__POINTER )(NULL));
+            result__NGIH=((__POINTER *)ptr_table__MGIH)[ 0];
+            if ((result__NGIH == (void *)NULL)) {
+              result__NGIH=new_lab__MRJ(lab_type__OGIH);
+              next__LGIH=(void *)((unsigned long)result__NGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PGIH)));
+              ((__POINTER *)next__LGIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__MGIH)[ 0]=next__LGIH;
             } else {
-              next__S4HH=((__POINTER *)result__U4HH)[ 0];
-              if ((next__S4HH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U4HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__W4HH <<  1)) <=  4096)) {
-                  next__S4HH=(void *)((unsigned long)result__U4HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4HH)));
+              next__LGIH=((__POINTER *)result__NGIH)[ 0];
+              if ((next__LGIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NGIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PGIH <<  1)) <=  4096)) {
+                  next__LGIH=(void *)((unsigned long)result__NGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PGIH)));
                 } else {
-                  next__S4HH=new_lab__MRJ(lab_type__V4HH);
+                  next__LGIH=new_lab__MRJ(lab_type__OGIH);
                 };
-                ((__POINTER *)next__S4HH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__T4HH)[ 0]=next__S4HH;
+                ((__POINTER *)next__LGIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__MGIH)[ 0]=next__LGIH;
               } else {
-                ((__POINTER *)result__U4HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S4HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__U4HH=next__S4HH;
+                ((__POINTER *)result__NGIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LGIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__NGIH=next__LGIH;
               };
             };
-            ptr__OXTB=result__U4HH;
+            ptr__OXTB=result__NGIH;
           };
           result__NXTB=((__ITM_EXTERNAL_TYPE *)ptr__OXTB);
           *(result__NXTB) = *(ITM_EXTERNAL_TYPE__);
         };
         Self__5ZEC=((__ITM_EXTERNAL_TYPE *)result__NXTB);
         Self__5ZEC->parent_itm_extern__P4M.parent_itm_code__O4M.parent_itm_object__XDE.position__NDJ=__tmp__3FN;
-        Self__5ZEC->is_persistant__MHN=result__K4HH;
+        Self__5ZEC->is_persistant__MHN=result__DGIH;
         type__M4M=read_type__DCM(Self__J4M,FALSE__);
         if (((void *)type__M4M == (void *)NULL)) {
-          pos__U5WG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_275));
-          put_position__UOG(pos__U5WG);
+          pos__RKXG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_278));
+          put_position__UOG(pos__RKXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        result__X4HH=FALSE__;
+        result__QGIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__X4HH=FALSE__;
+          result__QGIH=FALSE__;
         } else {
-          result__Y4HH='\0';
+          result__RGIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__Y4HH=((__CHARACTER )(( 0)));
+            result__RGIH=((__CHARACTER )(( 0)));
           } else {
-            result__Y4HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__RGIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__Y4HH == '{')) {
+          if ((result__RGIH == '{')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__X4HH=TRUE__;
+            result__QGIH=TRUE__;
           };
         };
-        if (result__X4HH) {
+        if (result__QGIH) {
           if (((void *)read_type_list__IMO(Self__J4M,FALSE__) == (void *)NULL)) {
-            pos__W5WG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_301));
-            put_position__UOG(pos__W5WG);
+            pos__TKXG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_304));
+            put_position__UOG(pos__TKXG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
             };
           };
-          result__04HH=FALSE__;
+          result__TGIH=FALSE__;
           if ((! read_space__3RD())) {
-            result__04HH=FALSE__;
+            result__TGIH=FALSE__;
           } else {
-            result__14HH='\0';
+            result__UGIH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__14HH=((__CHARACTER )(( 0)));
+              result__UGIH=((__CHARACTER )(( 0)));
             } else {
-              result__14HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__UGIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__14HH == '}')) {
+            if ((result__UGIH == '}')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__04HH=TRUE__;
+              result__TGIH=TRUE__;
             };
           };
-          if ((! result__04HH)) {
-            pos__Y5WG=current_position__JXF();
-            put_error__text__KNG( 2,(&__string_290));
-            put_position__UOG(pos__Y5WG);
+          if ((! result__TGIH)) {
+            pos__VKXG=current_position__JXF();
+            put_error__text__KNG( 2,(&__string_293));
+            put_position__UOG(pos__VKXG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -27777,29 +28071,29 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
           };
         };
         if (result__NXTB->is_persistant__MHN) {
-          result__34HH=FALSE__;
+          result__WGIH=FALSE__;
           if ((! read_space__3RD())) {
-            result__34HH=FALSE__;
+            result__WGIH=FALSE__;
           } else {
-            result__44HH='\0';
+            result__XGIH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__44HH=((__CHARACTER )(( 0)));
+              result__XGIH=((__CHARACTER )(( 0)));
             } else {
-              result__44HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__XGIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__44HH == ')')) {
+            if ((result__XGIH == ')')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__34HH=TRUE__;
+              result__WGIH=TRUE__;
             };
           };
-          __tmp__XHN=(! result__34HH);
+          __tmp__XHN=(! result__WGIH);
         } else {
           __tmp__XHN=FALSE__;
         };
         if (__tmp__XHN) {
-          pos__05WG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_258));
-          put_position__UOG(pos__05WG);
+          pos__XKXG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_261));
+          put_position__UOG(pos__XKXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -27815,433 +28109,433 @@ static void* read_expr_primary__I4M(__PARSER *Self__J4M)
 static __BOOLEAN read_integer__A2P()
 // () With resultNo recursive, No inlinable.
 {
-  __INTEGER_64 result__CQJE,__tmp__UQJE,result__RPPE,result__Z5QE;
-  __INTEGER pos_old__E2P,__tmp__NQJE,Self__WGOE,result__J3RE,j__COPE;
-  __INTEGER __tmp__2PPE,Self__YJQE,i__D4QE,__tmp__EARE,Self__FCSE;
-  __INTEGER state__GBRE,value__HBRE,i__FBRE,state__BJRE,result__EJRE;
-  __INTEGER i__AJRE;
-  __STRING *Self__AQJE,*Self__HTCH,*Self__1TEH,*Self__5NPE,*Self__PPPE;
-  __STRING *Self__B4QE,*Self__X5QE,*Self__DBRE,*Self__4IRE;
-  __POSITION pos__IBXG,pos__2BXG,pos__LCXG;
-  __BOOLEAN result__D2P,result__ISCH,__tmp__P2P,__tmp__J3P,__tmp__A4RE;
-  __BOOLEAN result__BOPE,__tmp__0OPE,result__HHTE,__tmp__R5P;
-  __BOOLEAN result__E4QE,negative__IBRE,result__JBRE,__tmp__XCRE;
-  __BOOLEAN result__HGOG,__tmp__DDRE,result__UGOG,result__B1CH;
-  __BOOLEAN __tmp__XDRE,__tmp__WERE,result__JCFF,result__E1CH;
-  __BOOLEAN __tmp__KHRE,result__1CFF,result__H1CH,__tmp__XGRE;
-  __BOOLEAN negative__DJRE,__tmp__QKRE,result__WHOG,__tmp__DLRE;
-  __BOOLEAN __tmp__YLRE,result__JEFF,__tmp__5MRE,result__1EFF;
-  __BOOLEAN result__DUCH;
-  __CHARACTER result__P04G,result__Z04G,result__404G,result__D14G;
-  __CHARACTER result__I14G,result__N14G,result__S14G,Self__H3RE;
-  __CHARACTER result__V24G,Self__FHTE,result__Q34G,Self__ZAFF;
-  __CHARACTER result__034G,cc__KBRE,cc__CJRE;
+  __INTEGER_64 result__EUJE,__tmp__WUJE,result__TTPE,result__ZDRE;
+  __INTEGER pos_old__E2P,__tmp__PUJE,Self__YKOE,result__TBSE,j__ESPE;
+  __INTEGER __tmp__4TPE,Self__YNQE,i__DCRE,__tmp__EERE,Self__PGSE;
+  __INTEGER state__GFRE,value__HFRE,i__FFRE,state__BNRE,result__ENRE;
+  __INTEGER i__ANRE;
+  __STRING *Self__CUJE,*Self__T2CH,*Self__V2EH,*Self__BSPE,*Self__RTPE;
+  __STRING *Self__BCRE,*Self__XDRE,*Self__DFRE,*Self__4MRE;
+  __POSITION pos__FMXG,pos__ZMXG,pos__INXG;
+  __BOOLEAN result__D2P,result__U1CH,__tmp__P2P,__tmp__J3P,__tmp__KCSE;
+  __BOOLEAN result__DSPE,__tmp__2SPE,result__1LTE,__tmp__R5P;
+  __BOOLEAN result__ECRE,negative__IFRE,result__JFRE,__tmp__XGRE;
+  __BOOLEAN result__WOOG,__tmp__DHRE,result__DPOG,result__TEDH;
+  __BOOLEAN __tmp__XHRE,__tmp__WIRE,result__RGFF,result__WEDH;
+  __BOOLEAN __tmp__KLRE,result__DHFF,result__ZEDH,__tmp__XKRE;
+  __BOOLEAN negative__DNRE,__tmp__QORE,result__FQOG,__tmp__DPRE;
+  __BOOLEAN __tmp__YPRE,result__RIFF,__tmp__5QRE,result__DJFF;
+  __BOOLEAN result__P3CH;
+  __CHARACTER result__ZD5G,result__DE5G,result__IE5G,result__NE5G;
+  __CHARACTER result__SE5G,result__XE5G,result__2E5G,Self__RBSE;
+  __CHARACTER result__5F5G,Self__ZLTE,result__0G5G,Self__BFFF;
+  __CHARACTER result__EH5G,cc__KFRE,cc__CNRE;
   result__D2P=FALSE__;
   pos_old__E2P= 0;
   if (read_space__3RD()) {
-    result__P04G='\0';
+    result__ZD5G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__P04G=((__CHARACTER )(( 0)));
+      result__ZD5G=((__CHARACTER )(( 0)));
     } else {
-      result__P04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__ZD5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    result__ISCH=FALSE__;
-    if ((((__INTEGER_8 )result__P04G) >= ((__INTEGER_8 )'0'))) {
-      result__ISCH=(((__INTEGER_8 )result__P04G) <= ((__INTEGER_8 )'9'));
+    result__U1CH=FALSE__;
+    if ((((__INTEGER_8 )result__ZD5G) >= ((__INTEGER_8 )'0'))) {
+      result__U1CH=(((__INTEGER_8 )result__ZD5G) <= ((__INTEGER_8 )'9'));
     };
-    __tmp__P2P=result__ISCH;
+    __tmp__P2P=result__U1CH;
   } else {
     __tmp__P2P=FALSE__;
   };
   if (__tmp__P2P) {
     result__D2P=TRUE__;
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
-    result__Z04G='\0';
+    result__DE5G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__Z04G=((__CHARACTER )(( 0)));
+      result__DE5G=((__CHARACTER )(( 0)));
     } else {
-      result__Z04G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__DE5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    add_last__ZLT(string_tmp__VH,result__Z04G);
+    add_last__ZLT(string_tmp__VH,result__DE5G);
     pos_old__E2P=position__SBC;
     position__SBC=(__INTEGER)(position__SBC +  1);
-    while_do__S3ZD:
+    while_do__UB0D:
     {
-      result__404G='\0';
+      result__IE5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__404G=((__CHARACTER )(( 0)));
+        result__IE5G=((__CHARACTER )(( 0)));
       } else {
-        result__404G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__IE5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if (is_hexadecimal_digit__AOJE(result__404G)) {
+      if (is_hexadecimal_digit__CSJE(result__IE5G)) {
         __tmp__J3P=TRUE__;
       } else {
-        result__D14G='\0';
+        result__NE5G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__D14G=((__CHARACTER )(( 0)));
+          result__NE5G=((__CHARACTER )(( 0)));
         } else {
-          result__D14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__NE5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__J3P=(result__D14G == '_');
+        __tmp__J3P=(result__NE5G == '_');
       };
       if (__tmp__J3P) {
-        result__I14G='\0';
+        result__SE5G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__I14G=((__CHARACTER )(( 0)));
+          result__SE5G=((__CHARACTER )(( 0)));
         } else {
-          result__I14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__SE5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__I14G != '_')) {
-          result__N14G='\0';
+        if ((result__SE5G != '_')) {
+          result__XE5G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__N14G=((__CHARACTER )(( 0)));
+            result__XE5G=((__CHARACTER )(( 0)));
           } else {
-            result__N14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__XE5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__N14G);
+          add_last__ZLT(string_tmp__VH,result__XE5G);
         };
         position__SBC=(__INTEGER)(position__SBC +  1);
-        goto while_do__S3ZD;
+        goto while_do__UB0D;
       };
     };
-    result__S14G='\0';
+    result__2E5G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__S14G=((__CHARACTER )(( 0)));
+      result__2E5G=((__CHARACTER )(( 0)));
     } else {
-      result__S14G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__2E5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__S14G == 'h')) {
-      Self__AQJE=((__STRING *)string_tmp__VH);
-      result__CQJE= 0;
-      __tmp__NQJE=Self__AQJE->count__WFC;
-      Self__WGOE= 1;
-      while ((Self__WGOE <= __tmp__NQJE)) {
-        __tmp__UQJE=(__INTEGER_64)(result__CQJE <<  4);
-        Self__H3RE=((__CHARACTER *)Self__AQJE->storage__BCS)[(__INTEGER)(Self__WGOE -  1)];
-        result__J3RE= 0;
-        if ((((__INTEGER_8 )Self__H3RE) < ((__INTEGER_8 )'A'))) {
-          result__J3RE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__H3RE) -  48));
-          __tmp__A4RE=TRUE__;
+    if ((result__2E5G == 'h')) {
+      Self__CUJE=((__STRING *)string_tmp__VH);
+      result__EUJE= 0;
+      __tmp__PUJE=Self__CUJE->count__WFC;
+      Self__YKOE= 1;
+      while ((Self__YKOE <= __tmp__PUJE)) {
+        __tmp__WUJE=(__INTEGER_64)(result__EUJE <<  4);
+        Self__RBSE=((__CHARACTER *)Self__CUJE->storage__BCS)[(__INTEGER)(Self__YKOE -  1)];
+        result__TBSE= 0;
+        if ((((__INTEGER_8 )Self__RBSE) < ((__INTEGER_8 )'A'))) {
+          result__TBSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__RBSE) -  48));
+          __tmp__KCSE=TRUE__;
         } else {
-          __tmp__A4RE=FALSE__;
+          __tmp__KCSE=FALSE__;
         };
-        if ((! __tmp__A4RE)) {
-          if ((((__INTEGER_8 )Self__H3RE) < ((__INTEGER_8 )'a'))) {
-            result__J3RE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__H3RE) -  55));
+        if ((! __tmp__KCSE)) {
+          if ((((__INTEGER_8 )Self__RBSE) < ((__INTEGER_8 )'a'))) {
+            result__TBSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__RBSE) -  55));
           } else {
-            result__J3RE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__H3RE) -  87));
+            result__TBSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__RBSE) -  87));
           };
         };
-        result__CQJE=(__INTEGER_64)(__tmp__UQJE | ((__INTEGER_64 )result__J3RE));
-        Self__WGOE=(__INTEGER)(Self__WGOE +  1);
+        result__EUJE=(__INTEGER_64)(__tmp__WUJE | ((__INTEGER_64 )result__TBSE));
+        Self__YKOE=(__INTEGER)(Self__YKOE +  1);
       };
-      last_integer__ZRO=result__CQJE;
+      last_integer__ZRO=result__EUJE;
       position__SBC=(__INTEGER)(position__SBC +  1);
     } else {
-      Self__HTCH=((__STRING *)string_tmp__VH);
-      if ((((__INTEGER_8 )((__CHARACTER *)Self__HTCH->storage__BCS)[(__INTEGER)(Self__HTCH->count__WFC -  1)]) > ((__INTEGER_8 )'9'))) {
-        Self__1TEH=((__STRING *)string_tmp__VH);
-        if (( 1 > Self__1TEH->count__WFC)) {
-          Self__1TEH->count__WFC= 0;
+      Self__T2CH=((__STRING *)string_tmp__VH);
+      if ((((__INTEGER_8 )((__CHARACTER *)Self__T2CH->storage__BCS)[(__INTEGER)(Self__T2CH->count__WFC -  1)]) > ((__INTEGER_8 )'9'))) {
+        Self__V2EH=((__STRING *)string_tmp__VH);
+        if (( 1 > Self__V2EH->count__WFC)) {
+          Self__V2EH->count__WFC= 0;
         } else {
-          Self__1TEH->count__WFC=(__INTEGER)(Self__1TEH->count__WFC -  1);
+          Self__V2EH->count__WFC=(__INTEGER)(Self__V2EH->count__WFC -  1);
         };
         position__SBC=(__INTEGER)(position__SBC -  1);
       };
-      result__V24G='\0';
+      result__5F5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__V24G=((__CHARACTER )(( 0)));
+        result__5F5G=((__CHARACTER )(( 0)));
       } else {
-        result__V24G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__5F5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__V24G == 'o')) {
-        Self__5NPE=((__STRING *)string_tmp__VH);
-        result__BOPE=FALSE__;
-        j__COPE= 0;
-        if ((Self__5NPE->count__WFC !=  0)) {
-          j__COPE= 1;
-          until_do__U5RE:
+      if ((result__5F5G == 'o')) {
+        Self__BSPE=((__STRING *)string_tmp__VH);
+        result__DSPE=FALSE__;
+        j__ESPE= 0;
+        if ((Self__BSPE->count__WFC !=  0)) {
+          j__ESPE= 1;
+          until_do__4DSE:
           {
-            if ((j__COPE > Self__5NPE->count__WFC)) {
-              __tmp__0OPE=TRUE__;
+            if ((j__ESPE > Self__BSPE->count__WFC)) {
+              __tmp__2SPE=TRUE__;
             } else {
-              Self__FHTE=((__CHARACTER *)Self__5NPE->storage__BCS)[(__INTEGER)(j__COPE -  1)];
-              result__HHTE=FALSE__;
-              if ((((__INTEGER_8 )Self__FHTE) >= ((__INTEGER_8 )'0'))) {
-                result__HHTE=(((__INTEGER_8 )Self__FHTE) <= ((__INTEGER_8 )'7'));
+              Self__ZLTE=((__CHARACTER *)Self__BSPE->storage__BCS)[(__INTEGER)(j__ESPE -  1)];
+              result__1LTE=FALSE__;
+              if ((((__INTEGER_8 )Self__ZLTE) >= ((__INTEGER_8 )'0'))) {
+                result__1LTE=(((__INTEGER_8 )Self__ZLTE) <= ((__INTEGER_8 )'7'));
               };
-              __tmp__0OPE=(! result__HHTE);
+              __tmp__2SPE=(! result__1LTE);
             };
-            if ((! __tmp__0OPE)) {
-              j__COPE=(__INTEGER)(j__COPE +  1);
-              goto until_do__U5RE;
+            if ((! __tmp__2SPE)) {
+              j__ESPE=(__INTEGER)(j__ESPE +  1);
+              goto until_do__4DSE;
             };
           };
-          result__BOPE=(j__COPE > Self__5NPE->count__WFC);
+          result__DSPE=(j__ESPE > Self__BSPE->count__WFC);
         };
-        if ((! result__BOPE)) {
-          pos__IBXG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_302));
-          put_position__UOG(pos__IBXG);
+        if ((! result__DSPE)) {
+          pos__FMXG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_305));
+          put_position__UOG(pos__FMXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        Self__PPPE=((__STRING *)string_tmp__VH);
-        result__RPPE= 0;
-        __tmp__2PPE=Self__PPPE->count__WFC;
-        Self__YJQE= 1;
-        while ((Self__YJQE <= __tmp__2PPE)) {
-          result__RPPE=(__INTEGER_64)((__INTEGER_64)(result__RPPE <<  3) | ((__INTEGER_64 )((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )((__CHARACTER *)Self__PPPE->storage__BCS)[(__INTEGER)(Self__YJQE -  1)]) -  48))));
-          Self__YJQE=(__INTEGER)(Self__YJQE +  1);
+        Self__RTPE=((__STRING *)string_tmp__VH);
+        result__TTPE= 0;
+        __tmp__4TPE=Self__RTPE->count__WFC;
+        Self__YNQE= 1;
+        while ((Self__YNQE <= __tmp__4TPE)) {
+          result__TTPE=(__INTEGER_64)((__INTEGER_64)(result__TTPE <<  3) | ((__INTEGER_64 )((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )((__CHARACTER *)Self__RTPE->storage__BCS)[(__INTEGER)(Self__YNQE -  1)]) -  48))));
+          Self__YNQE=(__INTEGER)(Self__YNQE +  1);
         };
-        last_integer__ZRO=result__RPPE;
+        last_integer__ZRO=result__TTPE;
         position__SBC=(__INTEGER)(position__SBC +  1);
         __tmp__R5P=TRUE__;
       } else {
         __tmp__R5P=FALSE__;
       };
       if ((! __tmp__R5P)) {
-        result__Q34G='\0';
+        result__0G5G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__Q34G=((__CHARACTER )(( 0)));
-        } else {
-          result__Q34G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
-        };
-        if ((result__Q34G == 'b')) {
-          Self__B4QE=((__STRING *)string_tmp__VH);
-          i__D4QE=Self__B4QE->count__WFC;
-          result__E4QE=TRUE__;
-          while ((! ((! result__E4QE) || (i__D4QE ==  0)))) {
-            Self__ZAFF=((__CHARACTER *)Self__B4QE->storage__BCS)[(__INTEGER)(i__D4QE -  1)];
-            result__E4QE=((Self__ZAFF == '0') || (Self__ZAFF == '1'));
-            i__D4QE=(__INTEGER)(i__D4QE -  1);
-          };
-          if ((! result__E4QE)) {
-            pos__2BXG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_303));
-            put_position__UOG(pos__2BXG);
+          result__0G5G=((__CHARACTER )(( 0)));
+        } else {
+          result__0G5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        };
+        if ((result__0G5G == 'b')) {
+          Self__BCRE=((__STRING *)string_tmp__VH);
+          i__DCRE=Self__BCRE->count__WFC;
+          result__ECRE=TRUE__;
+          while ((! ((! result__ECRE) || (i__DCRE ==  0)))) {
+            Self__BFFF=((__CHARACTER *)Self__BCRE->storage__BCS)[(__INTEGER)(i__DCRE -  1)];
+            result__ECRE=((Self__BFFF == '0') || (Self__BFFF == '1'));
+            i__DCRE=(__INTEGER)(i__DCRE -  1);
+          };
+          if ((! result__ECRE)) {
+            pos__ZMXG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_306));
+            put_position__UOG(pos__ZMXG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
             };
           };
-          Self__X5QE=((__STRING *)string_tmp__VH);
-          result__Z5QE= 0;
-          __tmp__EARE=Self__X5QE->count__WFC;
-          Self__FCSE= 1;
-          while ((Self__FCSE <= __tmp__EARE)) {
-            result__Z5QE=(__INTEGER_64)(result__Z5QE <<  1);
-            if ((((__CHARACTER *)Self__X5QE->storage__BCS)[(__INTEGER)(Self__FCSE -  1)] == '1')) {
-              result__Z5QE=(__INTEGER_64)(~ (__INTEGER_64)((__INTEGER_64)(~ result__Z5QE) &  -2));
+          Self__XDRE=((__STRING *)string_tmp__VH);
+          result__ZDRE= 0;
+          __tmp__EERE=Self__XDRE->count__WFC;
+          Self__PGSE= 1;
+          while ((Self__PGSE <= __tmp__EERE)) {
+            result__ZDRE=(__INTEGER_64)(result__ZDRE <<  1);
+            if ((((__CHARACTER *)Self__XDRE->storage__BCS)[(__INTEGER)(Self__PGSE -  1)] == '1')) {
+              result__ZDRE=(__INTEGER_64)(~ (__INTEGER_64)((__INTEGER_64)(~ result__ZDRE) &  -2));
             };
-            Self__FCSE=(__INTEGER)(Self__FCSE +  1);
+            Self__PGSE=(__INTEGER)(Self__PGSE +  1);
           };
-          last_integer__ZRO=result__Z5QE;
+          last_integer__ZRO=result__ZDRE;
           position__SBC=(__INTEGER)(position__SBC +  1);
         } else {
-          result__034G='\0';
+          result__EH5G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__034G=((__CHARACTER )(( 0)));
+            result__EH5G=((__CHARACTER )(( 0)));
           } else {
-            result__034G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__EH5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__034G == 'd')) {
+          if ((result__EH5G == 'd')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
           };
-          Self__DBRE=((__STRING *)string_tmp__VH);
-          state__GBRE= 0;
-          value__HBRE= 0;
-          negative__IBRE=FALSE__;
-          result__JBRE=FALSE__;
-          cc__KBRE='\0';
-          i__FBRE= 1;
-          while ((! ((state__GBRE ==  4) || (i__FBRE > Self__DBRE->count__WFC)))) {
-            cc__KBRE=((__CHARACTER *)Self__DBRE->storage__BCS)[(__INTEGER)(i__FBRE -  1)];
-            if ((state__GBRE ==  0)) {
-              if ((((((((cc__KBRE == ' ') || (cc__KBRE == '\t')) || (cc__KBRE == '\n')) || (cc__KBRE == '\r')) || (cc__KBRE == '\0')) || (cc__KBRE == '\f')) || (cc__KBRE == '\v'))) {
-                __tmp__XCRE=TRUE__;
+          Self__DFRE=((__STRING *)string_tmp__VH);
+          state__GFRE= 0;
+          value__HFRE= 0;
+          negative__IFRE=FALSE__;
+          result__JFRE=FALSE__;
+          cc__KFRE='\0';
+          i__FFRE= 1;
+          while ((! ((state__GFRE ==  4) || (i__FFRE > Self__DFRE->count__WFC)))) {
+            cc__KFRE=((__CHARACTER *)Self__DFRE->storage__BCS)[(__INTEGER)(i__FFRE -  1)];
+            if ((state__GFRE ==  0)) {
+              if ((((((((cc__KFRE == ' ') || (cc__KFRE == '\t')) || (cc__KFRE == '\n')) || (cc__KFRE == '\r')) || (cc__KFRE == '\0')) || (cc__KFRE == '\f')) || (cc__KFRE == '\v'))) {
+                __tmp__XGRE=TRUE__;
               } else {
-                result__HGOG=(cc__KBRE == '+');
-                if (result__HGOG) {
-                  state__GBRE= 1;
+                result__WOOG=(cc__KFRE == '+');
+                if (result__WOOG) {
+                  state__GFRE= 1;
                 };
-                __tmp__XCRE=result__HGOG;
+                __tmp__XGRE=result__WOOG;
               };
-              if (__tmp__XCRE) {
-                __tmp__DDRE=TRUE__;
+              if (__tmp__XGRE) {
+                __tmp__DHRE=TRUE__;
               } else {
-                result__UGOG=(cc__KBRE == '-');
-                if (result__UGOG) {
-                  negative__IBRE=TRUE__;
-                  state__GBRE= 1;
+                result__DPOG=(cc__KFRE == '-');
+                if (result__DPOG) {
+                  negative__IFRE=TRUE__;
+                  state__GFRE= 1;
                 };
-                __tmp__DDRE=result__UGOG;
+                __tmp__DHRE=result__DPOG;
               };
-              if ((! __tmp__DDRE)) {
-                result__B1CH=FALSE__;
-                if ((((__INTEGER_8 )cc__KBRE) >= ((__INTEGER_8 )'0'))) {
-                  result__B1CH=(((__INTEGER_8 )cc__KBRE) <= ((__INTEGER_8 )'9'));
+              if ((! __tmp__DHRE)) {
+                result__TEDH=FALSE__;
+                if ((((__INTEGER_8 )cc__KFRE) >= ((__INTEGER_8 )'0'))) {
+                  result__TEDH=(((__INTEGER_8 )cc__KFRE) <= ((__INTEGER_8 )'9'));
                 };
-                if (result__B1CH) {
-                  value__HBRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KBRE)) -  48);
-                  state__GBRE= 2;
+                if (result__TEDH) {
+                  value__HFRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KFRE)) -  48);
+                  state__GFRE= 2;
                 } else {
-                  state__GBRE= 4;
+                  state__GFRE= 4;
                 };
               };
-              __tmp__XDRE=TRUE__;
+              __tmp__XHRE=TRUE__;
             } else {
-              __tmp__XDRE=FALSE__;
+              __tmp__XHRE=FALSE__;
             };
-            if (__tmp__XDRE) {
-              __tmp__WERE=TRUE__;
+            if (__tmp__XHRE) {
+              __tmp__WIRE=TRUE__;
             } else {
-              result__JCFF=(state__GBRE ==  1);
-              if (result__JCFF) {
-                result__E1CH=FALSE__;
-                if ((((__INTEGER_8 )cc__KBRE) >= ((__INTEGER_8 )'0'))) {
-                  result__E1CH=(((__INTEGER_8 )cc__KBRE) <= ((__INTEGER_8 )'9'));
+              result__RGFF=(state__GFRE ==  1);
+              if (result__RGFF) {
+                result__WEDH=FALSE__;
+                if ((((__INTEGER_8 )cc__KFRE) >= ((__INTEGER_8 )'0'))) {
+                  result__WEDH=(((__INTEGER_8 )cc__KFRE) <= ((__INTEGER_8 )'9'));
                 };
-                if (result__E1CH) {
-                  value__HBRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KBRE)) -  48);
-                  if (negative__IBRE) {
-                    value__HBRE=(__INTEGER)(- value__HBRE);
+                if (result__WEDH) {
+                  value__HFRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KFRE)) -  48);
+                  if (negative__IFRE) {
+                    value__HFRE=(__INTEGER)(- value__HFRE);
                   };
-                  state__GBRE= 2;
+                  state__GFRE= 2;
                 } else {
-                  state__GBRE= 4;
+                  state__GFRE= 4;
                 };
               };
-              __tmp__WERE=result__JCFF;
+              __tmp__WIRE=result__RGFF;
             };
-            if (__tmp__WERE) {
-              __tmp__KHRE=TRUE__;
+            if (__tmp__WIRE) {
+              __tmp__KLRE=TRUE__;
             } else {
-              result__1CFF=(state__GBRE ==  2);
-              if (result__1CFF) {
-                result__H1CH=FALSE__;
-                if ((((__INTEGER_8 )cc__KBRE) >= ((__INTEGER_8 )'0'))) {
-                  result__H1CH=(((__INTEGER_8 )cc__KBRE) <= ((__INTEGER_8 )'9'));
+              result__DHFF=(state__GFRE ==  2);
+              if (result__DHFF) {
+                result__ZEDH=FALSE__;
+                if ((((__INTEGER_8 )cc__KFRE) >= ((__INTEGER_8 )'0'))) {
+                  result__ZEDH=(((__INTEGER_8 )cc__KFRE) <= ((__INTEGER_8 )'9'));
                 };
-                if (result__H1CH) {
-                  if (negative__IBRE) {
-                    value__HBRE=(__INTEGER)((__INTEGER)( 10 * value__HBRE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KBRE)) -  48));
+                if (result__ZEDH) {
+                  if (negative__IFRE) {
+                    value__HFRE=(__INTEGER)((__INTEGER)( 10 * value__HFRE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KFRE)) -  48));
                   } else {
-                    value__HBRE=(__INTEGER)((__INTEGER)( 10 * value__HBRE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KBRE)) -  48));
+                    value__HFRE=(__INTEGER)((__INTEGER)( 10 * value__HFRE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KFRE)) -  48));
                   };
-                  if (((negative__IBRE && (value__HBRE >  0)) || ((! negative__IBRE) && (value__HBRE <  0)))) {
-                    state__GBRE= 4;
+                  if (((negative__IFRE && (value__HFRE >  0)) || ((! negative__IFRE) && (value__HFRE <  0)))) {
+                    state__GFRE= 4;
                   };
-                  __tmp__XGRE=TRUE__;
+                  __tmp__XKRE=TRUE__;
                 } else {
-                  __tmp__XGRE=FALSE__;
+                  __tmp__XKRE=FALSE__;
                 };
-                if ((! __tmp__XGRE)) {
-                  if ((((((((cc__KBRE == ' ') || (cc__KBRE == '\t')) || (cc__KBRE == '\n')) || (cc__KBRE == '\r')) || (cc__KBRE == '\0')) || (cc__KBRE == '\f')) || (cc__KBRE == '\v'))) {
-                    state__GBRE= 3;
+                if ((! __tmp__XKRE)) {
+                  if ((((((((cc__KFRE == ' ') || (cc__KFRE == '\t')) || (cc__KFRE == '\n')) || (cc__KFRE == '\r')) || (cc__KFRE == '\0')) || (cc__KFRE == '\f')) || (cc__KFRE == '\v'))) {
+                    state__GFRE= 3;
                   } else {
-                    state__GBRE= 4;
+                    state__GFRE= 4;
                   };
                 };
               };
-              __tmp__KHRE=result__1CFF;
+              __tmp__KLRE=result__DHFF;
             };
-            if ((! __tmp__KHRE)) {
-              if ((state__GBRE ==  3)) {
-                if ((! (((((((cc__KBRE == ' ') || (cc__KBRE == '\t')) || (cc__KBRE == '\n')) || (cc__KBRE == '\r')) || (cc__KBRE == '\0')) || (cc__KBRE == '\f')) || (cc__KBRE == '\v')))) {
-                  state__GBRE= 4;
+            if ((! __tmp__KLRE)) {
+              if ((state__GFRE ==  3)) {
+                if ((! (((((((cc__KFRE == ' ') || (cc__KFRE == '\t')) || (cc__KFRE == '\n')) || (cc__KFRE == '\r')) || (cc__KFRE == '\0')) || (cc__KFRE == '\f')) || (cc__KFRE == '\v')))) {
+                  state__GFRE= 4;
                 };
               };
             };
-            i__FBRE=(__INTEGER)(i__FBRE +  1);
+            i__FFRE=(__INTEGER)(i__FFRE +  1);
           };
-          if (((state__GBRE !=  0) && (state__GBRE !=  4))) {
-            result__JBRE=TRUE__;
+          if (((state__GFRE !=  0) && (state__GFRE !=  4))) {
+            result__JFRE=TRUE__;
           };
-          if ((! result__JBRE)) {
-            pos__LCXG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_304));
-            put_position__UOG(pos__LCXG);
+          if ((! result__JFRE)) {
+            pos__INXG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_307));
+            put_position__UOG(pos__INXG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
             };
           };
-          Self__4IRE=((__STRING *)string_tmp__VH);
-          state__BJRE= 0;
-          cc__CJRE='\0';
-          negative__DJRE=FALSE__;
-          result__EJRE= 0;
-          i__AJRE= 1;
-          while ((i__AJRE <= Self__4IRE->count__WFC)) {
-            cc__CJRE=((__CHARACTER *)Self__4IRE->storage__BCS)[(__INTEGER)(i__AJRE -  1)];
-            if ((state__BJRE ==  0)) {
-              if ((((((((cc__CJRE == ' ') || (cc__CJRE == '\t')) || (cc__CJRE == '\n')) || (cc__CJRE == '\r')) || (cc__CJRE == '\0')) || (cc__CJRE == '\f')) || (cc__CJRE == '\v'))) {
-                __tmp__QKRE=TRUE__;
+          Self__4MRE=((__STRING *)string_tmp__VH);
+          state__BNRE= 0;
+          cc__CNRE='\0';
+          negative__DNRE=FALSE__;
+          result__ENRE= 0;
+          i__ANRE= 1;
+          while ((i__ANRE <= Self__4MRE->count__WFC)) {
+            cc__CNRE=((__CHARACTER *)Self__4MRE->storage__BCS)[(__INTEGER)(i__ANRE -  1)];
+            if ((state__BNRE ==  0)) {
+              if ((((((((cc__CNRE == ' ') || (cc__CNRE == '\t')) || (cc__CNRE == '\n')) || (cc__CNRE == '\r')) || (cc__CNRE == '\0')) || (cc__CNRE == '\f')) || (cc__CNRE == '\v'))) {
+                __tmp__QORE=TRUE__;
               } else {
-                result__WHOG=(cc__CJRE == '+');
-                if (result__WHOG) {
-                  state__BJRE= 1;
+                result__FQOG=(cc__CNRE == '+');
+                if (result__FQOG) {
+                  state__BNRE= 1;
                 };
-                __tmp__QKRE=result__WHOG;
+                __tmp__QORE=result__FQOG;
               };
-              if ((! __tmp__QKRE)) {
-                if ((cc__CJRE == '-')) {
-                  negative__DJRE=TRUE__;
-                  state__BJRE= 1;
+              if ((! __tmp__QORE)) {
+                if ((cc__CNRE == '-')) {
+                  negative__DNRE=TRUE__;
+                  state__BNRE= 1;
                 } else {
-                  result__EJRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CJRE)) -  48);
-                  state__BJRE= 2;
+                  result__ENRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CNRE)) -  48);
+                  state__BNRE= 2;
                 };
               };
-              __tmp__DLRE=TRUE__;
+              __tmp__DPRE=TRUE__;
             } else {
-              __tmp__DLRE=FALSE__;
+              __tmp__DPRE=FALSE__;
             };
-            if (__tmp__DLRE) {
-              __tmp__YLRE=TRUE__;
+            if (__tmp__DPRE) {
+              __tmp__YPRE=TRUE__;
             } else {
-              result__JEFF=(state__BJRE ==  1);
-              if (result__JEFF) {
-                result__EJRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CJRE)) -  48);
-                if (negative__DJRE) {
-                  result__EJRE=(__INTEGER)(- result__EJRE);
+              result__RIFF=(state__BNRE ==  1);
+              if (result__RIFF) {
+                result__ENRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CNRE)) -  48);
+                if (negative__DNRE) {
+                  result__ENRE=(__INTEGER)(- result__ENRE);
                 };
-                state__BJRE= 2;
+                state__BNRE= 2;
               };
-              __tmp__YLRE=result__JEFF;
+              __tmp__YPRE=result__RIFF;
             };
-            if (__tmp__YLRE) {
-              __tmp__5MRE=TRUE__;
+            if (__tmp__YPRE) {
+              __tmp__5QRE=TRUE__;
             } else {
-              result__1EFF=(state__BJRE ==  2);
-              if (result__1EFF) {
-                result__DUCH=FALSE__;
-                if ((((__INTEGER_8 )cc__CJRE) >= ((__INTEGER_8 )'0'))) {
-                  result__DUCH=(((__INTEGER_8 )cc__CJRE) <= ((__INTEGER_8 )'9'));
+              result__DJFF=(state__BNRE ==  2);
+              if (result__DJFF) {
+                result__P3CH=FALSE__;
+                if ((((__INTEGER_8 )cc__CNRE) >= ((__INTEGER_8 )'0'))) {
+                  result__P3CH=(((__INTEGER_8 )cc__CNRE) <= ((__INTEGER_8 )'9'));
                 };
-                if (result__DUCH) {
-                  if (negative__DJRE) {
-                    result__EJRE=(__INTEGER)((__INTEGER)( 10 * result__EJRE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CJRE)) -  48));
+                if (result__P3CH) {
+                  if (negative__DNRE) {
+                    result__ENRE=(__INTEGER)((__INTEGER)( 10 * result__ENRE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CNRE)) -  48));
                   } else {
-                    result__EJRE=(__INTEGER)((__INTEGER)( 10 * result__EJRE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CJRE)) -  48));
+                    result__ENRE=(__INTEGER)((__INTEGER)( 10 * result__ENRE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__CNRE)) -  48));
                   };
                 } else {
-                  state__BJRE= 3;
+                  state__BNRE= 3;
                 };
               };
-              __tmp__5MRE=result__1EFF;
+              __tmp__5QRE=result__DJFF;
             };
-            if ((! __tmp__5MRE)) {
-              if ((state__BJRE ==  3)) {
-                i__AJRE=Self__4IRE->count__WFC;
+            if ((! __tmp__5QRE)) {
+              if ((state__BNRE ==  3)) {
+                i__ANRE=Self__4MRE->count__WFC;
               };
             };
-            i__AJRE=(__INTEGER)(i__AJRE +  1);
+            i__ANRE=(__INTEGER)(i__ANRE +  1);
           };
-          last_integer__ZRO=((__INTEGER_64 )result__EJRE);
+          last_integer__ZRO=((__INTEGER_64 )result__ENRE);
         };
       };
     };
@@ -28257,31 +28551,31 @@ static void* readlip_expr__JTPB()
 {
   void *result__MTPB,*val__NTPB,*result__ILYC,*val__QLYC;
   void *nam__OTPB;
-  __POSITION pos__WCXG,p__XN3B,pos__4CXG,pos__ADXG,pos__CDXG,pos__EDXG;
-  __POSITION pos__GDXG,pos__IDXG,p__0LID,p__TUHE,pos__WDXG;
+  __POSITION pos__TNXG,p__XN3B,pos__1NXG,pos__3NXG,pos__5NXG,pos__BOXG;
+  __POSITION pos__DOXG,pos__FOXG,p__0LID,p__VYHE,pos__TOXG;
   __LIP_AFFECT *result__UY4B,*Self__JIHC;
-  __POINTER ptr__VY4B,ptr_table__B5HH,next__A5HH,result__C5HH;
-  __POINTER ptr_table__G5HH,next__F5HH,result__H5HH,ptr__QRKD;
-  __POINTER ptr_table__AAIH,next__55HH,result__BAIH,ptr_table__FAIH;
-  __POINTER next__EAIH,result__GAIH,ptr__WBNE,ptr_table__KAIH;
-  __POINTER next__JAIH,result__LAIH,ptr_table__PAIH,next__OAIH;
-  __POINTER result__QAIH;
-  __INTEGER typ_id__0Y4B,typ_id__VRKD,typ_id__1BNE;
-  __UINTEGER_32 sz__XY4B,a__5TEH,new_size__AUEH,t__EUEH,a__DUEH;
-  __UINTEGER_32 new_size__J5HH,lab_type__I5HH,sz__SRKD,a__HUEH;
-  __UINTEGER_32 new_size__IUEH,t__MUEH,a__LUEH,new_size__IAIH;
-  __UINTEGER_32 lab_type__HAIH,sz__YBNE,a__PUEH,new_size__QUEH,t__UUEH;
-  __UINTEGER_32 a__TUEH,new_size__SAIH,lab_type__RAIH;
+  __POINTER ptr__VY4B,ptr_table__0GIH,next__ZGIH,result__1GIH;
+  __POINTER ptr_table__5GIH,next__4GIH,result__AHIH,ptr__QRKD;
+  __POINTER ptr_table__ZHIH,next__YHIH,result__0HIH,ptr_table__4HIH;
+  __POINTER next__3HIH,result__5HIH,ptr__YFNE,ptr_table__DIIH;
+  __POINTER next__CIIH,result__EIIH,ptr_table__IIIH,next__HIIH;
+  __POINTER result__JIIH;
+  __INTEGER typ_id__0Y4B,typ_id__VRKD,typ_id__3FNE;
+  __UINTEGER_32 sz__XY4B,a__Z2EH,new_size__02EH,t__42EH,a__32EH;
+  __UINTEGER_32 new_size__CHIH,lab_type__BHIH,sz__SRKD,a__B3EH;
+  __UINTEGER_32 new_size__C3EH,t__G3EH,a__F3EH,new_size__BIIH;
+  __UINTEGER_32 lab_type__AIIH,sz__0FNE,a__J3EH,new_size__K3EH,t__O3EH;
+  __UINTEGER_32 a__N3EH,new_size__LIIH,lab_type__KIIH;
   __LIP_IF *result__PRKD,*Self__PQTD;
-  __LIP_PRINT *result__VBNE,*Self__K3VE;
-  __BOOLEAN result__K5HH,__tmp__CVPB,result__N5HH,result__Q5HH;
-  __BOOLEAN result__T5HH,result__W5HH,result__Z5HH,result__25HH;
+  __LIP_PRINT *result__XFNE,*Self__4BWE;
+  __BOOLEAN result__DHIH,__tmp__CVPB,result__GHIH,result__JHIH;
+  __BOOLEAN result__MHIH,result__PHIH,result__SHIH,result__VHIH;
   __BOOLEAN __tmp__CPYC;
-  __CHARACTER result__L5HH,result__O5HH,result__R5HH,result__U5HH;
-  __CHARACTER result__X5HH,result__05HH,result__35HH;
-  void *the__OLYC,*els__PLYC,*result__4IGH,*result__AKID;
-  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__5IGH,*Self__AJGH,*Self__AF5D;
-  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__WF5D;
+  __CHARACTER result__EHIH,result__HHIH,result__KHIH,result__NHIH;
+  __CHARACTER result__QHIH,result__THIH,result__WHIH;
+  void *the__OLYC,*els__PLYC,*result__LRGH,*result__AKID;
+  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__MRGH,*Self__NRGH,*Self__CJ5D;
+  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__YJ5D;
   result__MTPB=NULL;
   val__NTPB=NULL;
   nam__OTPB=NULL;
@@ -28295,9 +28589,9 @@ static void* readlip_expr__JTPB()
     if (read_symbol__DXJ((&__string_12))) {
       val__NTPB=readlip_expr_operator__MOZB(PARSER__);
       if (((void *)val__NTPB == (void *)NULL)) {
-        pos__WCXG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_237));
-        put_position__UOG(pos__WCXG);
+        pos__TNXG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_240));
+        put_position__UOG(pos__TNXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -28314,61 +28608,61 @@ static void* readlip_expr__JTPB()
         typ_id__0Y4B=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XY4B);
         if ((typ_id__0Y4B == (__INTEGER)(-  1))) {
-          a__5TEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__AUEH=(__UINTEGER_32)((__UINTEGER_32)(sz__XY4B + a__5TEH) & (__UINTEGER_32)(~ a__5TEH));
-          ptr_table__B5HH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AUEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__A5HH=((__POINTER )(NULL));
-          result__C5HH=((__POINTER *)ptr_table__B5HH)[ 0];
-          if ((result__C5HH == (void *)NULL)) {
-            result__C5HH=new_lab__MRJ(new_size__AUEH);
-            next__A5HH=(void *)((unsigned long)result__C5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AUEH)));
-            ((__POINTER *)next__A5HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__B5HH)[ 0]=next__A5HH;
-          } else {
-            next__A5HH=((__POINTER *)result__C5HH)[ 0];
-            if ((next__A5HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__AUEH <<  1)) <=  4096)) {
-                next__A5HH=(void *)((unsigned long)result__C5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AUEH)));
+          a__Z2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__02EH=(__UINTEGER_32)((__UINTEGER_32)(sz__XY4B + a__Z2EH) & (__UINTEGER_32)(~ a__Z2EH));
+          ptr_table__0GIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__02EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__ZGIH=((__POINTER )(NULL));
+          result__1GIH=((__POINTER *)ptr_table__0GIH)[ 0];
+          if ((result__1GIH == (void *)NULL)) {
+            result__1GIH=new_lab__MRJ(new_size__02EH);
+            next__ZGIH=(void *)((unsigned long)result__1GIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02EH)));
+            ((__POINTER *)next__ZGIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__0GIH)[ 0]=next__ZGIH;
+          } else {
+            next__ZGIH=((__POINTER *)result__1GIH)[ 0];
+            if ((next__ZGIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1GIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__02EH <<  1)) <=  4096)) {
+                next__ZGIH=(void *)((unsigned long)result__1GIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__02EH)));
               } else {
-                next__A5HH=new_lab__MRJ(new_size__AUEH);
+                next__ZGIH=new_lab__MRJ(new_size__02EH);
               };
-              ((__POINTER *)next__A5HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__B5HH)[ 0]=next__A5HH;
+              ((__POINTER *)next__ZGIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__0GIH)[ 0]=next__ZGIH;
             } else {
-              ((__POINTER *)result__C5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__C5HH=next__A5HH;
-            };
-          };
-          ptr__VY4B=result__C5HH;
-        } else {
-          t__EUEH=((__UINTEGER_32 )typ_id__0Y4B);
-          a__DUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__J5HH=(__UINTEGER_32)((__UINTEGER_32)(sz__XY4B + a__DUEH) & (__UINTEGER_32)(~ a__DUEH));
-          ptr_table__G5HH=((__POINTER )(&(table_type[(t__EUEH)])));
-          lab_type__I5HH=(__UINTEGER_32)(t__EUEH |  1);
-          next__F5HH=((__POINTER )(NULL));
-          result__H5HH=((__POINTER *)ptr_table__G5HH)[ 0];
-          if ((result__H5HH == (void *)NULL)) {
-            result__H5HH=new_lab__MRJ(lab_type__I5HH);
-            next__F5HH=(void *)((unsigned long)result__H5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J5HH)));
-            ((__POINTER *)next__F5HH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__G5HH)[ 0]=next__F5HH;
-          } else {
-            next__F5HH=((__POINTER *)result__H5HH)[ 0];
-            if ((next__F5HH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H5HH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J5HH <<  1)) <=  4096)) {
-                next__F5HH=(void *)((unsigned long)result__H5HH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J5HH)));
+              ((__POINTER *)result__1GIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZGIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__1GIH=next__ZGIH;
+            };
+          };
+          ptr__VY4B=result__1GIH;
+        } else {
+          t__42EH=((__UINTEGER_32 )typ_id__0Y4B);
+          a__32EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__CHIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XY4B + a__32EH) & (__UINTEGER_32)(~ a__32EH));
+          ptr_table__5GIH=((__POINTER )(&(table_type[(t__42EH)])));
+          lab_type__BHIH=(__UINTEGER_32)(t__42EH |  1);
+          next__4GIH=((__POINTER )(NULL));
+          result__AHIH=((__POINTER *)ptr_table__5GIH)[ 0];
+          if ((result__AHIH == (void *)NULL)) {
+            result__AHIH=new_lab__MRJ(lab_type__BHIH);
+            next__4GIH=(void *)((unsigned long)result__AHIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CHIH)));
+            ((__POINTER *)next__4GIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__5GIH)[ 0]=next__4GIH;
+          } else {
+            next__4GIH=((__POINTER *)result__AHIH)[ 0];
+            if ((next__4GIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AHIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CHIH <<  1)) <=  4096)) {
+                next__4GIH=(void *)((unsigned long)result__AHIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CHIH)));
               } else {
-                next__F5HH=new_lab__MRJ(lab_type__I5HH);
+                next__4GIH=new_lab__MRJ(lab_type__BHIH);
               };
-              ((__POINTER *)next__F5HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__G5HH)[ 0]=next__F5HH;
+              ((__POINTER *)next__4GIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__5GIH)[ 0]=next__4GIH;
             } else {
-              ((__POINTER *)result__H5HH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F5HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__H5HH=next__F5HH;
+              ((__POINTER *)result__AHIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4GIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__AHIH=next__4GIH;
             };
           };
-          ptr__VY4B=result__H5HH;
+          ptr__VY4B=result__AHIH;
         };
         result__UY4B=((__LIP_AFFECT *)ptr__VY4B);
         *(result__UY4B) = *(LIP_AFFECT__);
@@ -28385,22 +28679,22 @@ static void* readlip_expr__JTPB()
   if (((void *)result__MTPB == (void *)NULL)) {
     result__MTPB=readlip_expr_operator__MOZB(PARSER__);
     if (((void *)result__MTPB != (void *)NULL)) {
-      result__K5HH=FALSE__;
+      result__DHIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__K5HH=FALSE__;
+        result__DHIH=FALSE__;
       } else {
-        result__L5HH='\0';
+        result__EHIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__L5HH=((__CHARACTER )(( 0)));
+          result__EHIH=((__CHARACTER )(( 0)));
         } else {
-          result__L5HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__EHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__L5HH == '.')) {
+        if ((result__EHIH == '.')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__K5HH=TRUE__;
+          result__DHIH=TRUE__;
         };
       };
-      __tmp__CVPB=result__K5HH;
+      __tmp__CVPB=result__DHIH;
     } else {
       __tmp__CVPB=FALSE__;
     };
@@ -28410,35 +28704,35 @@ static void* readlip_expr__JTPB()
       els__PLYC=NULL;
       val__QLYC=NULL;
       if (read_word__QPF((&__string_89))) {
-        result__4IGH=NULL;
+        result__LRGH=NULL;
         if ((((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID)->parent_arrayed_collection__FKID.upper__POTD <  0)) {
-          result__4IGH=create_with_capacity__2QKD( 16);
+          result__LRGH=create_with_capacity__2QKD( 16);
         } else {
-          Self__5IGH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
-          result__4IGH=((void **)Self__5IGH->parent_arrayed_collection__FKID.storage__MBUD)[Self__5IGH->parent_arrayed_collection__FKID.upper__POTD];
-          Self__AJGH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
-          Self__AJGH->parent_arrayed_collection__FKID.upper__POTD=(__INTEGER)(Self__AJGH->parent_arrayed_collection__FKID.upper__POTD -  1);
+          Self__MRGH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
+          result__LRGH=((void **)Self__MRGH->parent_arrayed_collection__FKID.storage__MBUD)[Self__MRGH->parent_arrayed_collection__FKID.upper__POTD];
+          Self__NRGH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
+          Self__NRGH->parent_arrayed_collection__FKID.upper__POTD=(__INTEGER)(Self__NRGH->parent_arrayed_collection__FKID.upper__POTD -  1);
         };
-        the__OLYC=result__4IGH;
-        result__N5HH=FALSE__;
+        the__OLYC=result__LRGH;
+        result__GHIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__N5HH=FALSE__;
+          result__GHIH=FALSE__;
         } else {
-          result__O5HH='\0';
+          result__HHIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__O5HH=((__CHARACTER )(( 0)));
+            result__HHIH=((__CHARACTER )(( 0)));
           } else {
-            result__O5HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__HHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__O5HH == '{')) {
+          if ((result__HHIH == '{')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__N5HH=TRUE__;
+            result__GHIH=TRUE__;
           };
         };
-        if ((! result__N5HH)) {
-          pos__4CXG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_269));
-          put_position__UOG(pos__4CXG);
+        if ((! result__GHIH)) {
+          pos__1NXG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_272));
+          put_position__UOG(pos__1NXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -28449,25 +28743,25 @@ static void* readlip_expr__JTPB()
           val__QLYC=readlip_expr__JTPB();
           if (((void *)val__QLYC != (void *)NULL)) {
             add_last__JJUD(the__OLYC,val__QLYC);
-            result__Q5HH=FALSE__;
+            result__JHIH=FALSE__;
             if ((! read_space__3RD())) {
-              result__Q5HH=FALSE__;
+              result__JHIH=FALSE__;
             } else {
-              result__R5HH='\0';
+              result__KHIH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__R5HH=((__CHARACTER )(( 0)));
+                result__KHIH=((__CHARACTER )(( 0)));
               } else {
-                result__R5HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__KHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__R5HH == ';')) {
+              if ((result__KHIH == ';')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__Q5HH=TRUE__;
+                result__JHIH=TRUE__;
               };
             };
-            if ((! result__Q5HH)) {
-              pos__ADXG=current_position__JXF();
+            if ((! result__JHIH)) {
+              pos__3NXG=current_position__JXF();
               put_error__text__KNG( 2,(&__string_163));
-              put_position__UOG(pos__ADXG);
+              put_position__UOG(pos__3NXG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -28476,61 +28770,61 @@ static void* readlip_expr__JTPB()
             goto while_do__1KID;
           };
         };
-        result__T5HH=FALSE__;
+        result__MHIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__T5HH=FALSE__;
+          result__MHIH=FALSE__;
         } else {
-          result__U5HH='\0';
+          result__NHIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__U5HH=((__CHARACTER )(( 0)));
+            result__NHIH=((__CHARACTER )(( 0)));
           } else {
-            result__U5HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__NHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__U5HH == '}')) {
+          if ((result__NHIH == '}')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__T5HH=TRUE__;
+            result__MHIH=TRUE__;
           };
         };
-        if ((! result__T5HH)) {
-          pos__CDXG=current_position__JXF();
-          put_error__text__KNG( 2,(&__string_269));
-          put_position__UOG(pos__CDXG);
+        if ((! result__MHIH)) {
+          pos__5NXG=current_position__JXF();
+          put_error__text__KNG( 2,(&__string_272));
+          put_position__UOG(pos__5NXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        the__OLYC=copy__ILID(result__4IGH);
+        the__OLYC=copy__ILID(result__LRGH);
         if (read_word__QPF((&__string_90))) {
           result__AKID=NULL;
           if ((((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID)->parent_arrayed_collection__FKID.upper__POTD <  0)) {
             result__AKID=create_with_capacity__2QKD( 16);
           } else {
-            Self__AF5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
-            result__AKID=((void **)Self__AF5D->parent_arrayed_collection__FKID.storage__MBUD)[Self__AF5D->parent_arrayed_collection__FKID.upper__POTD];
-            Self__WF5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
-            Self__WF5D->parent_arrayed_collection__FKID.upper__POTD=(__INTEGER)(Self__WF5D->parent_arrayed_collection__FKID.upper__POTD -  1);
+            Self__CJ5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
+            result__AKID=((void **)Self__CJ5D->parent_arrayed_collection__FKID.storage__MBUD)[Self__CJ5D->parent_arrayed_collection__FKID.upper__POTD];
+            Self__YJ5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__GKID);
+            Self__YJ5D->parent_arrayed_collection__FKID.upper__POTD=(__INTEGER)(Self__YJ5D->parent_arrayed_collection__FKID.upper__POTD -  1);
           };
           els__PLYC=result__AKID;
-          result__W5HH=FALSE__;
+          result__PHIH=FALSE__;
           if ((! read_space__3RD())) {
-            result__W5HH=FALSE__;
+            result__PHIH=FALSE__;
           } else {
-            result__X5HH='\0';
+            result__QHIH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__X5HH=((__CHARACTER )(( 0)));
+              result__QHIH=((__CHARACTER )(( 0)));
             } else {
-              result__X5HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__QHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__X5HH == '{')) {
+            if ((result__QHIH == '{')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__W5HH=TRUE__;
+              result__PHIH=TRUE__;
             };
           };
-          if ((! result__W5HH)) {
-            pos__EDXG=current_position__JXF();
-            put_error__text__KNG( 2,(&__string_269));
-            put_position__UOG(pos__EDXG);
+          if ((! result__PHIH)) {
+            pos__BOXG=current_position__JXF();
+            put_error__text__KNG( 2,(&__string_272));
+            put_position__UOG(pos__BOXG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -28541,25 +28835,25 @@ static void* readlip_expr__JTPB()
             val__QLYC=readlip_expr__JTPB();
             if (((void *)val__QLYC != (void *)NULL)) {
               add_last__JJUD(els__PLYC,val__QLYC);
-              result__Z5HH=FALSE__;
+              result__SHIH=FALSE__;
               if ((! read_space__3RD())) {
-                result__Z5HH=FALSE__;
+                result__SHIH=FALSE__;
               } else {
-                result__05HH='\0';
+                result__THIH='\0';
                 if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                  result__05HH=((__CHARACTER )(( 0)));
+                  result__THIH=((__CHARACTER )(( 0)));
                 } else {
-                  result__05HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                  result__THIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
                 };
-                if ((result__05HH == ';')) {
+                if ((result__THIH == ';')) {
                   position__SBC=(__INTEGER)(position__SBC +  1);
-                  result__Z5HH=TRUE__;
+                  result__SHIH=TRUE__;
                 };
               };
-              if ((! result__Z5HH)) {
-                pos__GDXG=current_position__JXF();
+              if ((! result__SHIH)) {
+                pos__DOXG=current_position__JXF();
                 put_error__text__KNG( 2,(&__string_163));
-                put_position__UOG(pos__GDXG);
+                put_position__UOG(pos__DOXG);
                 put_string__U1F(msg_err__PNG);
                 if ((type_error__ONG !=  2)) {
                   exit(( 1));
@@ -28568,25 +28862,25 @@ static void* readlip_expr__JTPB()
               goto while_do__42LD;
             };
           };
-          result__25HH=FALSE__;
+          result__VHIH=FALSE__;
           if ((! read_space__3RD())) {
-            result__25HH=FALSE__;
+            result__VHIH=FALSE__;
           } else {
-            result__35HH='\0';
+            result__WHIH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__35HH=((__CHARACTER )(( 0)));
+              result__WHIH=((__CHARACTER )(( 0)));
             } else {
-              result__35HH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__WHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            if ((result__35HH == '}')) {
+            if ((result__WHIH == '}')) {
               position__SBC=(__INTEGER)(position__SBC +  1);
-              result__25HH=TRUE__;
+              result__VHIH=TRUE__;
             };
           };
-          if ((! result__25HH)) {
-            pos__IDXG=current_position__JXF();
-            put_error__text__KNG( 2,(&__string_269));
-            put_position__UOG(pos__IDXG);
+          if ((! result__VHIH)) {
+            pos__FOXG=current_position__JXF();
+            put_error__text__KNG( 2,(&__string_272));
+            put_position__UOG(pos__FOXG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -28605,61 +28899,61 @@ static void* readlip_expr__JTPB()
           typ_id__VRKD=-1;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SRKD);
           if ((typ_id__VRKD == (__INTEGER)(-  1))) {
-            a__HUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__IUEH=(__UINTEGER_32)((__UINTEGER_32)(sz__SRKD + a__HUEH) & (__UINTEGER_32)(~ a__HUEH));
-            ptr_table__AAIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IUEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__55HH=((__POINTER )(NULL));
-            result__BAIH=((__POINTER *)ptr_table__AAIH)[ 0];
-            if ((result__BAIH == (void *)NULL)) {
-              result__BAIH=new_lab__MRJ(new_size__IUEH);
-              next__55HH=(void *)((unsigned long)result__BAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IUEH)));
-              ((__POINTER *)next__55HH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AAIH)[ 0]=next__55HH;
+            a__B3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__C3EH=(__UINTEGER_32)((__UINTEGER_32)(sz__SRKD + a__B3EH) & (__UINTEGER_32)(~ a__B3EH));
+            ptr_table__ZHIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__C3EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__YHIH=((__POINTER )(NULL));
+            result__0HIH=((__POINTER *)ptr_table__ZHIH)[ 0];
+            if ((result__0HIH == (void *)NULL)) {
+              result__0HIH=new_lab__MRJ(new_size__C3EH);
+              next__YHIH=(void *)((unsigned long)result__0HIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C3EH)));
+              ((__POINTER *)next__YHIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__ZHIH)[ 0]=next__YHIH;
             } else {
-              next__55HH=((__POINTER *)result__BAIH)[ 0];
-              if ((next__55HH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IUEH <<  1)) <=  4096)) {
-                  next__55HH=(void *)((unsigned long)result__BAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IUEH)));
+              next__YHIH=((__POINTER *)result__0HIH)[ 0];
+              if ((next__YHIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0HIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__C3EH <<  1)) <=  4096)) {
+                  next__YHIH=(void *)((unsigned long)result__0HIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C3EH)));
                 } else {
-                  next__55HH=new_lab__MRJ(new_size__IUEH);
+                  next__YHIH=new_lab__MRJ(new_size__C3EH);
                 };
-                ((__POINTER *)next__55HH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__AAIH)[ 0]=next__55HH;
+                ((__POINTER *)next__YHIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__ZHIH)[ 0]=next__YHIH;
               } else {
-                ((__POINTER *)result__BAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__55HH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__BAIH=next__55HH;
+                ((__POINTER *)result__0HIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YHIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__0HIH=next__YHIH;
               };
             };
-            ptr__QRKD=result__BAIH;
-          } else {
-            t__MUEH=((__UINTEGER_32 )typ_id__VRKD);
-            a__LUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__IAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__SRKD + a__LUEH) & (__UINTEGER_32)(~ a__LUEH));
-            ptr_table__FAIH=((__POINTER )(&(table_type[(t__MUEH)])));
-            lab_type__HAIH=(__UINTEGER_32)(t__MUEH |  1);
-            next__EAIH=((__POINTER )(NULL));
-            result__GAIH=((__POINTER *)ptr_table__FAIH)[ 0];
-            if ((result__GAIH == (void *)NULL)) {
-              result__GAIH=new_lab__MRJ(lab_type__HAIH);
-              next__EAIH=(void *)((unsigned long)result__GAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAIH)));
-              ((__POINTER *)next__EAIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FAIH)[ 0]=next__EAIH;
+            ptr__QRKD=result__0HIH;
+          } else {
+            t__G3EH=((__UINTEGER_32 )typ_id__VRKD);
+            a__F3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__BIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__SRKD + a__F3EH) & (__UINTEGER_32)(~ a__F3EH));
+            ptr_table__4HIH=((__POINTER )(&(table_type[(t__G3EH)])));
+            lab_type__AIIH=(__UINTEGER_32)(t__G3EH |  1);
+            next__3HIH=((__POINTER )(NULL));
+            result__5HIH=((__POINTER *)ptr_table__4HIH)[ 0];
+            if ((result__5HIH == (void *)NULL)) {
+              result__5HIH=new_lab__MRJ(lab_type__AIIH);
+              next__3HIH=(void *)((unsigned long)result__5HIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BIIH)));
+              ((__POINTER *)next__3HIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__4HIH)[ 0]=next__3HIH;
             } else {
-              next__EAIH=((__POINTER *)result__GAIH)[ 0];
-              if ((next__EAIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IAIH <<  1)) <=  4096)) {
-                  next__EAIH=(void *)((unsigned long)result__GAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAIH)));
+              next__3HIH=((__POINTER *)result__5HIH)[ 0];
+              if ((next__3HIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5HIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BIIH <<  1)) <=  4096)) {
+                  next__3HIH=(void *)((unsigned long)result__5HIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BIIH)));
                 } else {
-                  next__EAIH=new_lab__MRJ(lab_type__HAIH);
+                  next__3HIH=new_lab__MRJ(lab_type__AIIH);
                 };
-                ((__POINTER *)next__EAIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__FAIH)[ 0]=next__EAIH;
+                ((__POINTER *)next__3HIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__4HIH)[ 0]=next__3HIH;
               } else {
-                ((__POINTER *)result__GAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__GAIH=next__EAIH;
+                ((__POINTER *)result__5HIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3HIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__5HIH=next__3HIH;
               };
             };
-            ptr__QRKD=result__GAIH;
+            ptr__QRKD=result__5HIH;
           };
           result__PRKD=((__LIP_IF *)ptr__QRKD);
           *(result__PRKD) = *(LIP_IF__);
@@ -28676,87 +28970,87 @@ static void* readlip_expr__JTPB()
       };
       if ((! __tmp__CPYC)) {
         if (read_word__QPF((&__string_91))) {
-          p__TUHE=current_position__JXF();
-          result__VBNE=NULL;
-          ptr__WBNE=((__POINTER )(NULL));
-          typ_id__1BNE= 0;
-          sz__YBNE=((__UINTEGER_32 )sizeof(__LIP_PRINT));
-          if ((sz__YBNE ==  0)) {
-            result__VBNE=LIP_PRINT__;
-          } else {
-            typ_id__1BNE=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YBNE);
-            if ((typ_id__1BNE == (__INTEGER)(-  1))) {
-              a__PUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__QUEH=(__UINTEGER_32)((__UINTEGER_32)(sz__YBNE + a__PUEH) & (__UINTEGER_32)(~ a__PUEH));
-              ptr_table__KAIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QUEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__JAIH=((__POINTER )(NULL));
-              result__LAIH=((__POINTER *)ptr_table__KAIH)[ 0];
-              if ((result__LAIH == (void *)NULL)) {
-                result__LAIH=new_lab__MRJ(new_size__QUEH);
-                next__JAIH=(void *)((unsigned long)result__LAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUEH)));
-                ((__POINTER *)next__JAIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__KAIH)[ 0]=next__JAIH;
+          p__VYHE=current_position__JXF();
+          result__XFNE=NULL;
+          ptr__YFNE=((__POINTER )(NULL));
+          typ_id__3FNE= 0;
+          sz__0FNE=((__UINTEGER_32 )sizeof(__LIP_PRINT));
+          if ((sz__0FNE ==  0)) {
+            result__XFNE=LIP_PRINT__;
+          } else {
+            typ_id__3FNE=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__0FNE);
+            if ((typ_id__3FNE == (__INTEGER)(-  1))) {
+              a__J3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__K3EH=(__UINTEGER_32)((__UINTEGER_32)(sz__0FNE + a__J3EH) & (__UINTEGER_32)(~ a__J3EH));
+              ptr_table__DIIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__K3EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__CIIH=((__POINTER )(NULL));
+              result__EIIH=((__POINTER *)ptr_table__DIIH)[ 0];
+              if ((result__EIIH == (void *)NULL)) {
+                result__EIIH=new_lab__MRJ(new_size__K3EH);
+                next__CIIH=(void *)((unsigned long)result__EIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3EH)));
+                ((__POINTER *)next__CIIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__DIIH)[ 0]=next__CIIH;
               } else {
-                next__JAIH=((__POINTER *)result__LAIH)[ 0];
-                if ((next__JAIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QUEH <<  1)) <=  4096)) {
-                    next__JAIH=(void *)((unsigned long)result__LAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUEH)));
+                next__CIIH=((__POINTER *)result__EIIH)[ 0];
+                if ((next__CIIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EIIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__K3EH <<  1)) <=  4096)) {
+                    next__CIIH=(void *)((unsigned long)result__EIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3EH)));
                   } else {
-                    next__JAIH=new_lab__MRJ(new_size__QUEH);
+                    next__CIIH=new_lab__MRJ(new_size__K3EH);
                   };
-                  ((__POINTER *)next__JAIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__KAIH)[ 0]=next__JAIH;
+                  ((__POINTER *)next__CIIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__DIIH)[ 0]=next__CIIH;
                 } else {
-                  ((__POINTER *)result__LAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__LAIH=next__JAIH;
+                  ((__POINTER *)result__EIIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CIIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__EIIH=next__CIIH;
                 };
               };
-              ptr__WBNE=result__LAIH;
+              ptr__YFNE=result__EIIH;
             } else {
-              t__UUEH=((__UINTEGER_32 )typ_id__1BNE);
-              a__TUEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__SAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__YBNE + a__TUEH) & (__UINTEGER_32)(~ a__TUEH));
-              ptr_table__PAIH=((__POINTER )(&(table_type[(t__UUEH)])));
-              lab_type__RAIH=(__UINTEGER_32)(t__UUEH |  1);
-              next__OAIH=((__POINTER )(NULL));
-              result__QAIH=((__POINTER *)ptr_table__PAIH)[ 0];
-              if ((result__QAIH == (void *)NULL)) {
-                result__QAIH=new_lab__MRJ(lab_type__RAIH);
-                next__OAIH=(void *)((unsigned long)result__QAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SAIH)));
-                ((__POINTER *)next__OAIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__PAIH)[ 0]=next__OAIH;
+              t__O3EH=((__UINTEGER_32 )typ_id__3FNE);
+              a__N3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__LIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__0FNE + a__N3EH) & (__UINTEGER_32)(~ a__N3EH));
+              ptr_table__IIIH=((__POINTER )(&(table_type[(t__O3EH)])));
+              lab_type__KIIH=(__UINTEGER_32)(t__O3EH |  1);
+              next__HIIH=((__POINTER )(NULL));
+              result__JIIH=((__POINTER *)ptr_table__IIIH)[ 0];
+              if ((result__JIIH == (void *)NULL)) {
+                result__JIIH=new_lab__MRJ(lab_type__KIIH);
+                next__HIIH=(void *)((unsigned long)result__JIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LIIH)));
+                ((__POINTER *)next__HIIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__IIIH)[ 0]=next__HIIH;
               } else {
-                next__OAIH=((__POINTER *)result__QAIH)[ 0];
-                if ((next__OAIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QAIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SAIH <<  1)) <=  4096)) {
-                    next__OAIH=(void *)((unsigned long)result__QAIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SAIH)));
+                next__HIIH=((__POINTER *)result__JIIH)[ 0];
+                if ((next__HIIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JIIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LIIH <<  1)) <=  4096)) {
+                    next__HIIH=(void *)((unsigned long)result__JIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LIIH)));
                   } else {
-                    next__OAIH=new_lab__MRJ(lab_type__RAIH);
+                    next__HIIH=new_lab__MRJ(lab_type__KIIH);
                   };
-                  ((__POINTER *)next__OAIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__PAIH)[ 0]=next__OAIH;
+                  ((__POINTER *)next__HIIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__IIIH)[ 0]=next__HIIH;
                 } else {
-                  ((__POINTER *)result__QAIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OAIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__QAIH=next__OAIH;
+                  ((__POINTER *)result__JIIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HIIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__JIIH=next__HIIH;
                 };
               };
-              ptr__WBNE=result__QAIH;
+              ptr__YFNE=result__JIIH;
             };
-            result__VBNE=((__LIP_PRINT *)ptr__WBNE);
-            *(result__VBNE) = *(LIP_PRINT__);
+            result__XFNE=((__LIP_PRINT *)ptr__YFNE);
+            *(result__XFNE) = *(LIP_PRINT__);
           };
-          Self__K3VE=((__LIP_PRINT *)result__VBNE);
-          Self__K3VE->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ=p__TUHE;
-          Self__K3VE->message__W5TE=result__MTPB;
-          result__ILYC=result__VBNE;
+          Self__4BWE=((__LIP_PRINT *)result__XFNE);
+          Self__4BWE->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ=p__VYHE;
+          Self__4BWE->message__KEUE=result__MTPB;
+          result__ILYC=result__XFNE;
         };
       };
       result__MTPB=result__ILYC;
       if (((void *)result__ILYC == (void *)NULL)) {
-        pos__WDXG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_272));
-        put_position__UOG(pos__WDXG);
+        pos__TOXG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_275));
+        put_position__UOG(pos__TOXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -28770,18 +29064,18 @@ static void* readlip_expr__JTPB()
 static void run__QGFC(__LIP_AFFECT *Self__RGFC)
 // ({LIP_AFFECT}) VoidNo recursive, No inlinable.
 {
-  __POSITION pos__XG0G,pos__TI5C;
+  __POSITION pos__NQ0G,pos__TI5C;
   void *__tmp__JHFC;
-  void *__tmp__KHFC,*__tmp__UAIH,*__tmp__VAIH;
-  __LIP_INTEGER *Self__WAIH;
-  __LIP_STRING *Self__XAIH;
+  void *__tmp__KHFC,*__tmp__NIIH,*__tmp__OIIH;
+  __LIP_INTEGER *Self__PIIH;
+  __LIP_STRING *Self__QIIH;
   if (((void *)fast_reference_at__OURD(list_data__OONC,Self__RGFC->name__WGFC) == (void *)NULL)) {
-    copy__ZCS(string_tmp__VH,(&__string_305));
+    copy__ZCS(string_tmp__VH,(&__string_308));
     append__BOS(string_tmp__VH,Self__RGFC->name__WGFC);
-    append__BOS(string_tmp__VH,(&__string_306));
-    pos__XG0G=Self__RGFC->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
+    append__BOS(string_tmp__VH,(&__string_309));
+    pos__NQ0G=Self__RGFC->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
     put_error__text__KNG( 1,string_tmp__VH);
-    put_position__UOG(pos__XG0G);
+    put_position__UOG(pos__NQ0G);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -28796,29 +29090,29 @@ static void run__QGFC(__LIP_AFFECT *Self__RGFC)
     __tmp__KHFC=run_expr__F2QD(__tmp__JHFC);
   } break;
   case __LIP_CALL__: {
-    __tmp__KHFC=run_expr__RBUE(__tmp__JHFC);
+    __tmp__KHFC=run_expr__FGUE(__tmp__JHFC);
   } break;
   case __LIP_VALUE__: {
-    __tmp__UAIH=((__LIP_VALUE *)__tmp__JHFC)->value__RFUE;
-    switch (((struct ___OBJ *)__tmp__UAIH)->__id) {
+    __tmp__NIIH=((__LIP_VALUE *)__tmp__JHFC)->value__FKUE;
+    switch (((struct ___OBJ *)__tmp__NIIH)->__id) {
     case __LIP_BOOLEAN__: {
-      __tmp__VAIH=((__LIP_BOOLEAN *)__tmp__UAIH);
+      __tmp__OIIH=((__LIP_BOOLEAN *)__tmp__NIIH);
     } break;
     case __LIP_INTEGER__: {
-      Self__WAIH=((__LIP_INTEGER *)__tmp__UAIH);
-      __tmp__VAIH=get__QFSE(Self__WAIH,Self__WAIH->value__1X2F);
+      Self__PIIH=((__LIP_INTEGER *)__tmp__NIIH);
+      __tmp__OIIH=get__0JSE(Self__PIIH,Self__PIIH->value__0B3F);
     } break;
     case __LIP_STRING__: {
-      Self__XAIH=((__LIP_STRING *)__tmp__UAIH);
-      __tmp__VAIH=get__N2EF(Self__XAIH,Self__XAIH->value__52TE);
+      Self__QIIH=((__LIP_STRING *)__tmp__NIIH);
+      __tmp__OIIH=get__RBFF(Self__QIIH,Self__QIIH->value__TBUE);
     } break;
     };
-    __tmp__KHFC=__tmp__VAIH;
+    __tmp__KHFC=__tmp__OIIH;
   } break;
   };
   print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
   pos__TI5C=Self__RGFC->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
-  put_error__text__KNG( 1,(&__string_275));
+  put_error__text__KNG( 1,(&__string_278));
   put_position__UOG(pos__TI5C);
   put_string__U1F(msg_err__PNG);
   if ((type_error__ONG !=  2)) {
@@ -28828,216 +29122,216 @@ static void run__QGFC(__LIP_AFFECT *Self__RGFC)
   case __LIP_BOOLEAN__: {
   } break;
   case __LIP_INTEGER__: {
-    free__TM2F(__tmp__KHFC);
+    free__SW2F(__tmp__KHFC);
   } break;
   case __LIP_STRING__: {
-    free__BNGG(__tmp__KHFC);
+    free__EVGG(__tmp__KHFC);
   } break;
   };
 }
 
-static void run__50TE(__LIP_CALL *Self__A1TE)
+static void run__T5TE(__LIP_CALL *Self__U5TE)
 // ({LIP_CALL}) VoidNo recursive, No inlinable.
 {
-  void *val__D1TE,*__tmp__P1TE,*__tmp__ZAIH,*__tmp__0AIH;
-  void *str__E1TE,*__tmp__U2TE,*__tmp__23TE;
-  void *path__F1TE,*n__LXJF;
-  void *__tmp__O1TE;
-  __LIP_INTEGER *Self__1AIH;
-  __LIP_STRING *Self__2AIH;
-  __POSITION pos__SWJF,pos__0G0G,pos__3G0G,pos__AH0G,pos__DH0G;
-  __STRING_CONSTANT *Self__VUEH;
-  __STRING *Self__WUEH,*Self__YUEH;
-  void *result__OXJF;
-  __INTEGER j__NXJF;
-  __BOOLEAN is_rec__G1TE,__tmp__G2TE,__tmp__O3TE,result__D4WE;
-  __BOOLEAN __tmp__LYJF;
-  val__D1TE=NULL;
-  str__E1TE=NULL;
-  path__F1TE=NULL;
-  is_rec__G1TE=FALSE__;
-  if (((void *)Self__A1TE->argument__H1TE != (void *)NULL)) {
-    __tmp__O1TE=Self__A1TE->argument__H1TE;
-    switch (((struct ___OBJ *)__tmp__O1TE)->__id) {
+  void *val__X5TE,*__tmp__DAUE,*__tmp__SIIH,*__tmp__TIIH;
+  void *str__Y5TE,*__tmp__IBUE,*__tmp__QCUE;
+  void *path__Z5TE,*n__Q2JF;
+  void *__tmp__CAUE;
+  __LIP_INTEGER *Self__UIIH;
+  __LIP_STRING *Self__VIIH;
+  __POSITION pos__X1JF,pos__QQ0G,pos__TQ0G,pos__WQ0G,pos__ZQ0G;
+  __STRING_CONSTANT *Self__P3EH;
+  __STRING *Self__Q3EH,*Self__S3EH;
+  void *result__T2JF;
+  __INTEGER j__S2JF;
+  __BOOLEAN is_rec__05TE,__tmp__0AUE,__tmp__CCUE,result__1CXE;
+  __BOOLEAN __tmp__Q3JF;
+  val__X5TE=NULL;
+  str__Y5TE=NULL;
+  path__Z5TE=NULL;
+  is_rec__05TE=FALSE__;
+  if (((void *)Self__U5TE->argument__15TE != (void *)NULL)) {
+    __tmp__CAUE=Self__U5TE->argument__15TE;
+    switch (((struct ___OBJ *)__tmp__CAUE)->__id) {
     case __LIP_BINARY__: {
-      __tmp__P1TE=run_expr__GZQD(__tmp__O1TE);
+      __tmp__DAUE=run_expr__GZQD(__tmp__CAUE);
     } break;
     case __LIP_UNARY__: {
-      __tmp__P1TE=run_expr__F2QD(__tmp__O1TE);
+      __tmp__DAUE=run_expr__F2QD(__tmp__CAUE);
     } break;
     case __LIP_CALL__: {
-      __tmp__P1TE=run_expr__RBUE(__tmp__O1TE);
+      __tmp__DAUE=run_expr__FGUE(__tmp__CAUE);
     } break;
     case __LIP_VALUE__: {
-      __tmp__ZAIH=((__LIP_VALUE *)__tmp__O1TE)->value__RFUE;
-      switch (((struct ___OBJ *)__tmp__ZAIH)->__id) {
+      __tmp__SIIH=((__LIP_VALUE *)__tmp__CAUE)->value__FKUE;
+      switch (((struct ___OBJ *)__tmp__SIIH)->__id) {
       case __LIP_BOOLEAN__: {
-        __tmp__0AIH=((__LIP_BOOLEAN *)__tmp__ZAIH);
+        __tmp__TIIH=((__LIP_BOOLEAN *)__tmp__SIIH);
       } break;
       case __LIP_INTEGER__: {
-        Self__1AIH=((__LIP_INTEGER *)__tmp__ZAIH);
-        __tmp__0AIH=get__QFSE(Self__1AIH,Self__1AIH->value__1X2F);
+        Self__UIIH=((__LIP_INTEGER *)__tmp__SIIH);
+        __tmp__TIIH=get__0JSE(Self__UIIH,Self__UIIH->value__0B3F);
       } break;
       case __LIP_STRING__: {
-        Self__2AIH=((__LIP_STRING *)__tmp__ZAIH);
-        __tmp__0AIH=get__N2EF(Self__2AIH,Self__2AIH->value__52TE);
+        Self__VIIH=((__LIP_STRING *)__tmp__SIIH);
+        __tmp__TIIH=get__RBFF(Self__VIIH,Self__VIIH->value__TBUE);
       } break;
       };
-      __tmp__P1TE=__tmp__0AIH;
+      __tmp__DAUE=__tmp__TIIH;
     } break;
     };
-    val__D1TE=__tmp__P1TE;
+    val__X5TE=__tmp__DAUE;
   };
-  if (((void *)Self__A1TE->name__S1TE == (void *)(&__string_92))) {
-    if (((void *)val__D1TE != (void *)NULL)) {
-      pos__SWJF=Self__A1TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
-      put_error__text__KNG( 2,(&__string_307));
-      put_position__UOG(pos__SWJF);
+  if (((void *)Self__U5TE->name__GAUE == (void *)(&__string_92))) {
+    if (((void *)val__X5TE != (void *)NULL)) {
+      pos__X1JF=Self__U5TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+      put_error__text__KNG( 2,(&__string_310));
+      put_position__UOG(pos__X1JF);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
     exit(( 1));
-    __tmp__G2TE=TRUE__;
+    __tmp__0AUE=TRUE__;
   } else {
-    __tmp__G2TE=FALSE__;
+    __tmp__0AUE=FALSE__;
   };
-  if (__tmp__G2TE) {
-    __tmp__O3TE=TRUE__;
+  if (__tmp__0AUE) {
+    __tmp__CCUE=TRUE__;
   } else {
-    result__D4WE=((void *)Self__A1TE->name__S1TE == (void *)(&__string_94));
-    if (result__D4WE) {
-      if (val__D1TE==NULL) {
-        __tmp__U2TE=NULL;
+    result__1CXE=((void *)Self__U5TE->name__GAUE == (void *)(&__string_94));
+    if (result__1CXE) {
+      if (val__X5TE==NULL) {
+        __tmp__IBUE=NULL;
       } else {
-        switch (((struct ___OBJ *)val__D1TE)->__id) {
+        switch (((struct ___OBJ *)val__X5TE)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__U2TE=NULL;
+          __tmp__IBUE=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__U2TE=NULL;
+          __tmp__IBUE=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__U2TE=((void *)val__D1TE);
+          __tmp__IBUE=((void *)val__X5TE);
         } break;
         }
       };
-      str__E1TE=__tmp__U2TE;
-      if (((void *)__tmp__U2TE == (void *)NULL)) {
-        pos__0G0G=Self__A1TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
-        put_error__text__KNG( 1,(&__string_308));
-        put_position__UOG(pos__0G0G);
+      str__Y5TE=__tmp__IBUE;
+      if (((void *)__tmp__IBUE == (void *)NULL)) {
+        pos__QQ0G=Self__U5TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+        put_error__text__KNG( 1,(&__string_311));
+        put_position__UOG(pos__QQ0G);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
-      path__F1TE=((__LIP_STRING *)__tmp__U2TE)->value__52TE;
-      Self__VUEH=((__STRING_CONSTANT *)path__F1TE);
-      if ((((__CHARACTER *)Self__VUEH->storage__VQO)[(__INTEGER)(Self__VUEH->count__DD -  1)] == '*')) {
-        copy__ZCS(string_tmp__VH,path__F1TE);
-        Self__WUEH=((__STRING *)string_tmp__VH);
-        if (( 1 > Self__WUEH->count__WFC)) {
-          Self__WUEH->count__WFC= 0;
+      path__Z5TE=((__LIP_STRING *)__tmp__IBUE)->value__TBUE;
+      Self__P3EH=((__STRING_CONSTANT *)path__Z5TE);
+      if ((((__CHARACTER *)Self__P3EH->storage__VQO)[(__INTEGER)(Self__P3EH->count__DD -  1)] == '*')) {
+        copy__ZCS(string_tmp__VH,path__Z5TE);
+        Self__Q3EH=((__STRING *)string_tmp__VH);
+        if (( 1 > Self__Q3EH->count__WFC)) {
+          Self__Q3EH->count__WFC= 0;
         } else {
-          Self__WUEH->count__WFC=(__INTEGER)(Self__WUEH->count__WFC -  1);
+          Self__Q3EH->count__WFC=(__INTEGER)(Self__Q3EH->count__WFC -  1);
         };
-        path__F1TE=get__IWB(string_tmp__VH);
-        is_rec__G1TE=TRUE__;
+        path__Z5TE=get__IWB(string_tmp__VH);
+        is_rec__05TE=TRUE__;
       };
-      load_directory__is_recursive__Q0VF(Self__A1TE,path__F1TE,is_rec__G1TE);
+      load_directory__is_recursive__5BWF(Self__U5TE,path__Z5TE,is_rec__05TE);
     };
-    __tmp__O3TE=result__D4WE;
+    __tmp__CCUE=result__1CXE;
   };
-  if ((! __tmp__O3TE)) {
-    if (((void *)Self__A1TE->name__S1TE == (void *)(&__string_93))) {
-      if (val__D1TE==NULL) {
-        __tmp__23TE=NULL;
+  if ((! __tmp__CCUE)) {
+    if (((void *)Self__U5TE->name__GAUE == (void *)(&__string_93))) {
+      if (val__X5TE==NULL) {
+        __tmp__QCUE=NULL;
       } else {
-        switch (((struct ___OBJ *)val__D1TE)->__id) {
+        switch (((struct ___OBJ *)val__X5TE)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__23TE=NULL;
+          __tmp__QCUE=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__23TE=NULL;
+          __tmp__QCUE=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__23TE=((void *)val__D1TE);
+          __tmp__QCUE=((void *)val__X5TE);
         } break;
         }
       };
-      str__E1TE=__tmp__23TE;
-      if (((void *)__tmp__23TE == (void *)NULL)) {
-        pos__3G0G=Self__A1TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
-        put_error__text__KNG( 1,(&__string_308));
-        put_position__UOG(pos__3G0G);
+      str__Y5TE=__tmp__QCUE;
+      if (((void *)__tmp__QCUE == (void *)NULL)) {
+        pos__TQ0G=Self__U5TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+        put_error__text__KNG( 1,(&__string_311));
+        put_position__UOG(pos__TQ0G);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
       ((__STRING *)string_tmp__VH)->count__WFC= 0;
-      append_in__LUGG(__tmp__23TE,string_tmp__VH);
-      Self__YUEH=((__STRING *)string_tmp__VH);
-      if ((Self__YUEH->capacity__YBS > Self__YUEH->count__WFC)) {
-        ((__CHARACTER *)Self__YUEH->storage__BCS)[Self__YUEH->count__WFC]='\0';
+      append_in__C2GG(__tmp__QCUE,string_tmp__VH);
+      Self__S3EH=((__STRING *)string_tmp__VH);
+      if ((Self__S3EH->capacity__YBS > Self__S3EH->count__WFC)) {
+        ((__CHARACTER *)Self__S3EH->storage__BCS)[Self__S3EH->count__WFC]='\0';
       } else {
-        add_last__ZLT(Self__YUEH,'\0');
-        Self__YUEH->count__WFC=(__INTEGER)(Self__YUEH->count__WFC -  1);
+        add_last__ZLT(Self__S3EH,'\0');
+        Self__S3EH->count__WFC=(__INTEGER)(Self__S3EH->count__WFC -  1);
       };
-      system(((char*)((Self__YUEH->storage__BCS))));
+      system(((char*)((Self__S3EH->storage__BCS))));
     } else {
-      n__LXJF=Self__A1TE->name__S1TE;
-      result__OXJF=NULL;
-      j__NXJF= 0;
-      while_do__14KF:
+      n__Q2JF=Self__U5TE->name__GAUE;
+      result__T2JF=NULL;
+      j__S2JF= 0;
+      while_do__CELF:
       {
-        if ((j__NXJF <= ((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__UXJF)->parent_arrayed_collection__TXJF.upper__3XJF)) {
+        if ((j__S2JF <= ((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__Z2JF)->parent_arrayed_collection__Y2JF.upper__C3JF)) {
           print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-          __tmp__LYJF=((void *)NULL != (void *)n__LXJF);
+          __tmp__Q3JF=((void *)NULL != (void *)n__Q2JF);
         } else {
-          __tmp__LYJF=FALSE__;
+          __tmp__Q3JF=FALSE__;
         };
-        if (__tmp__LYJF) {
-          j__NXJF=(__INTEGER)(j__NXJF +  1);
-          goto while_do__14KF;
+        if (__tmp__Q3JF) {
+          j__S2JF=(__INTEGER)(j__S2JF +  1);
+          goto while_do__CELF;
         };
       };
-      if ((j__NXJF <= ((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__UXJF)->parent_arrayed_collection__TXJF.upper__3XJF)) {
-        result__OXJF=((void **)((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__UXJF)->parent_arrayed_collection__TXJF.storage__J2OF)[j__NXJF];
+      if ((j__S2JF <= ((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__Z2JF)->parent_arrayed_collection__Y2JF.upper__C3JF)) {
+        result__T2JF=((void **)((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__Z2JF)->parent_arrayed_collection__Y2JF.storage__HCPF)[j__S2JF];
       };
-      if (((void *)result__OXJF == (void *)NULL)) {
-        copy__ZCS(string_tmp__VH,(&__string_305));
-        append__BOS(string_tmp__VH,Self__A1TE->name__S1TE);
-        append__BOS(string_tmp__VH,(&__string_306));
-        pos__AH0G=Self__A1TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+      if (((void *)result__T2JF == (void *)NULL)) {
+        copy__ZCS(string_tmp__VH,(&__string_308));
+        append__BOS(string_tmp__VH,Self__U5TE->name__GAUE);
+        append__BOS(string_tmp__VH,(&__string_309));
+        pos__WQ0G=Self__U5TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
         put_error__text__KNG( 1,string_tmp__VH);
-        put_position__UOG(pos__AH0G);
+        put_position__UOG(pos__WQ0G);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       };
       print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-      pos__DH0G=Self__A1TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
-      put_error__text__KNG( 1,(&__string_309));
-      put_position__UOG(pos__DH0G);
+      pos__ZQ0G=Self__U5TE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+      put_error__text__KNG( 1,(&__string_312));
+      put_position__UOG(pos__ZQ0G);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
   };
-  if (((void *)val__D1TE != (void *)NULL)) {
-    switch (((struct ___OBJ *)val__D1TE)->__id) {
+  if (((void *)val__X5TE != (void *)NULL)) {
+    switch (((struct ___OBJ *)val__X5TE)->__id) {
     case __LIP_BOOLEAN__: {
     } break;
     case __LIP_INTEGER__: {
-      free__TM2F(val__D1TE);
+      free__SW2F(val__X5TE);
     } break;
     case __LIP_STRING__: {
-      free__BNGG(val__D1TE);
+      free__EVGG(val__X5TE);
     } break;
     };
   };
@@ -29047,21 +29341,21 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
 // ({LIP_IF}) VoidRecursive, No inlinable.
 {
   void *__tmp__BDQD,*__tmp__FEQD,*__tmp__BFQD;
-  __POSITION __tmp__J44G,pos__HH0G,pos__LH0G,pos__OH0G,__tmp__CEXG;
-  __POSITION __tmp__EEXG,__tmp__RH0G,__tmp__LEXG,__tmp__NEXG;
-  __POSITION __tmp__GAUE;
-  void *__tmp__CDQD,*__tmp__4AIH,*__tmp__5AIH;
-  __LIP_INTEGER *Self__ABIH;
-  __LIP_STRING *Self__BBIH;
+  __POSITION __tmp__TH5G,pos__3Q0G,pos__BR0G,pos__ER0G,__tmp__5OXG;
+  __POSITION __tmp__BPXG,__tmp__HR0G,__tmp__IPXG,__tmp__KPXG;
+  __POSITION __tmp__0EUE;
+  void *__tmp__CDQD,*__tmp__XIIH,*__tmp__YIIH;
+  __LIP_INTEGER *Self__ZIIH;
+  __LIP_STRING *Self__0IIH;
   void *__tmp__EDQD,*val__5CQD;
-  __INTEGER __tmp__4DQD,Self__PG5F,__tmp__0EQD,Self__KIDF;
+  __INTEGER __tmp__4DQD,Self__FQ5F,__tmp__0EQD,Self__TNDF;
   __BOOLEAN __tmp__IEQD;
   __tmp__BDQD=Self__3CQD->condition__ADQD;
   switch (((struct ___OBJ *)__tmp__BDQD)->__id) {
   case __LIP_AFFECT__: {
-    __tmp__J44G=((__LIP_AFFECT *)__tmp__BDQD)->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_310));
-    put_position__UOG(__tmp__J44G);
+    __tmp__TH5G=((__LIP_AFFECT *)__tmp__BDQD)->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_313));
+    put_position__UOG(__tmp__TH5G);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -29075,12 +29369,12 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
     __tmp__CDQD=run_expr__F2QD(__tmp__BDQD);
   } break;
   case __LIP_CALL__: {
-    __tmp__CDQD=run_expr__RBUE(__tmp__BDQD);
+    __tmp__CDQD=run_expr__FGUE(__tmp__BDQD);
   } break;
   case __LIP_IF__: {
-    pos__HH0G=((__LIP_IF *)__tmp__BDQD)->parent_lip_code__4OYC.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_310));
-    put_position__UOG(pos__HH0G);
+    pos__3Q0G=((__LIP_IF *)__tmp__BDQD)->parent_lip_code__4OYC.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_313));
+    put_position__UOG(pos__3Q0G);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -29088,9 +29382,9 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
     __tmp__CDQD=NULL;
   } break;
   case __LIP_PRINT__: {
-    pos__LH0G=((__LIP_PRINT *)__tmp__BDQD)->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_310));
-    put_position__UOG(pos__LH0G);
+    pos__BR0G=((__LIP_PRINT *)__tmp__BDQD)->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_313));
+    put_position__UOG(pos__BR0G);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -29098,21 +29392,21 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
     __tmp__CDQD=NULL;
   } break;
   case __LIP_VALUE__: {
-    __tmp__4AIH=((__LIP_VALUE *)__tmp__BDQD)->value__RFUE;
-    switch (((struct ___OBJ *)__tmp__4AIH)->__id) {
+    __tmp__XIIH=((__LIP_VALUE *)__tmp__BDQD)->value__FKUE;
+    switch (((struct ___OBJ *)__tmp__XIIH)->__id) {
     case __LIP_BOOLEAN__: {
-      __tmp__5AIH=((__LIP_BOOLEAN *)__tmp__4AIH);
+      __tmp__YIIH=((__LIP_BOOLEAN *)__tmp__XIIH);
     } break;
     case __LIP_INTEGER__: {
-      Self__ABIH=((__LIP_INTEGER *)__tmp__4AIH);
-      __tmp__5AIH=get__QFSE(Self__ABIH,Self__ABIH->value__1X2F);
+      Self__ZIIH=((__LIP_INTEGER *)__tmp__XIIH);
+      __tmp__YIIH=get__0JSE(Self__ZIIH,Self__ZIIH->value__0B3F);
     } break;
     case __LIP_STRING__: {
-      Self__BBIH=((__LIP_STRING *)__tmp__4AIH);
-      __tmp__5AIH=get__N2EF(Self__BBIH,Self__BBIH->value__52TE);
+      Self__0IIH=((__LIP_STRING *)__tmp__XIIH);
+      __tmp__YIIH=get__RBFF(Self__0IIH,Self__0IIH->value__TBUE);
     } break;
     };
-    __tmp__CDQD=__tmp__5AIH;
+    __tmp__CDQD=__tmp__YIIH;
   } break;
   };
   if (__tmp__CDQD==NULL) {
@@ -29132,9 +29426,9 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
   };
   val__5CQD=__tmp__EDQD;
   if (((void *)__tmp__EDQD == (void *)NULL)) {
-    pos__OH0G=Self__3CQD->parent_lip_code__4OYC.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_311));
-    put_position__UOG(pos__OH0G);
+    pos__ER0G=Self__3CQD->parent_lip_code__4OYC.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_314));
+    put_position__UOG(pos__ER0G);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -29142,51 +29436,51 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
   };
   if (((__LIP_BOOLEAN *)__tmp__EDQD)->value__PDQD) {
     __tmp__4DQD=((__FAST_ARRAYoLIP_CODEo *)Self__3CQD->then__WDQD)->parent_arrayed_collection__NLYC.upper__2DQD;
-    Self__PG5F= 0;
-    while ((Self__PG5F <= __tmp__4DQD)) {
-      __tmp__FEQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__3CQD->then__WDQD)->parent_arrayed_collection__NLYC.storage__GQTD)[Self__PG5F];
+    Self__FQ5F= 0;
+    while ((Self__FQ5F <= __tmp__4DQD)) {
+      __tmp__FEQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__3CQD->then__WDQD)->parent_arrayed_collection__NLYC.storage__GQTD)[Self__FQ5F];
       switch (((struct ___OBJ *)__tmp__FEQD)->__id) {
       case __LIP_AFFECT__: {
         run__QGFC(__tmp__FEQD);
       } break;
       case __LIP_BINARY__: {
-        __tmp__CEXG=((__LIP_BINARY *)__tmp__FEQD)->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ;
-        put_error__text__KNG( 2,(&__string_270));
-        put_position__UOG(__tmp__CEXG);
+        __tmp__5OXG=((__LIP_BINARY *)__tmp__FEQD)->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ;
+        put_error__text__KNG( 2,(&__string_273));
+        put_position__UOG(__tmp__5OXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       } break;
       case __LIP_UNARY__: {
-        __tmp__EEXG=((__LIP_UNARY *)__tmp__FEQD)->parent_lip_code__L14B.parent_itm_object__5DE.position__NDJ;
-        put_error__text__KNG( 2,(&__string_270));
-        put_position__UOG(__tmp__EEXG);
+        __tmp__BPXG=((__LIP_UNARY *)__tmp__FEQD)->parent_lip_code__L14B.parent_itm_object__5DE.position__NDJ;
+        put_error__text__KNG( 2,(&__string_273));
+        put_position__UOG(__tmp__BPXG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       } break;
       case __LIP_CALL__: {
-        run__50TE(__tmp__FEQD);
+        run__T5TE(__tmp__FEQD);
       } break;
       case __LIP_IF__: {
         run__2CQD(__tmp__FEQD);
       } break;
       case __LIP_PRINT__: {
-        run__T5TE(__tmp__FEQD);
+        run__HEUE(__tmp__FEQD);
       } break;
       case __LIP_VALUE__: {
-        __tmp__RH0G=((__LIP_VALUE *)__tmp__FEQD)->parent_lip_code__0DFE.parent_itm_object__5DE.position__NDJ;
-        put_error__text__KNG( 2,(&__string_270));
-        put_position__UOG(__tmp__RH0G);
+        __tmp__HR0G=((__LIP_VALUE *)__tmp__FEQD)->parent_lip_code__2HFE.parent_itm_object__5DE.position__NDJ;
+        put_error__text__KNG( 2,(&__string_273));
+        put_position__UOG(__tmp__HR0G);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
         };
       } break;
       };
-      Self__PG5F=(__INTEGER)(Self__PG5F +  1);
+      Self__FQ5F=(__INTEGER)(Self__FQ5F +  1);
     };
     __tmp__IEQD=TRUE__;
   } else {
@@ -29195,174 +29489,174 @@ static void run__2CQD(__LIP_IF *Self__3CQD)
   if ((! __tmp__IEQD)) {
     if (((void *)Self__3CQD->else__NEQD != (void *)NULL)) {
       __tmp__0EQD=((__FAST_ARRAYoLIP_CODEo *)Self__3CQD->else__NEQD)->parent_arrayed_collection__NLYC.upper__2DQD;
-      Self__KIDF= 0;
-      while ((Self__KIDF <= __tmp__0EQD)) {
-        __tmp__BFQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__3CQD->else__NEQD)->parent_arrayed_collection__NLYC.storage__GQTD)[Self__KIDF];
+      Self__TNDF= 0;
+      while ((Self__TNDF <= __tmp__0EQD)) {
+        __tmp__BFQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__3CQD->else__NEQD)->parent_arrayed_collection__NLYC.storage__GQTD)[Self__TNDF];
         switch (((struct ___OBJ *)__tmp__BFQD)->__id) {
         case __LIP_AFFECT__: {
           run__QGFC(__tmp__BFQD);
         } break;
         case __LIP_BINARY__: {
-          __tmp__LEXG=((__LIP_BINARY *)__tmp__BFQD)->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ;
-          put_error__text__KNG( 2,(&__string_270));
-          put_position__UOG(__tmp__LEXG);
+          __tmp__IPXG=((__LIP_BINARY *)__tmp__BFQD)->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ;
+          put_error__text__KNG( 2,(&__string_273));
+          put_position__UOG(__tmp__IPXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         } break;
         case __LIP_UNARY__: {
-          __tmp__NEXG=((__LIP_UNARY *)__tmp__BFQD)->parent_lip_code__L14B.parent_itm_object__5DE.position__NDJ;
-          put_error__text__KNG( 2,(&__string_270));
-          put_position__UOG(__tmp__NEXG);
+          __tmp__KPXG=((__LIP_UNARY *)__tmp__BFQD)->parent_lip_code__L14B.parent_itm_object__5DE.position__NDJ;
+          put_error__text__KNG( 2,(&__string_273));
+          put_position__UOG(__tmp__KPXG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         } break;
         case __LIP_CALL__: {
-          run__50TE(__tmp__BFQD);
+          run__T5TE(__tmp__BFQD);
         } break;
         case __LIP_IF__: {
           run__2CQD(__tmp__BFQD);
         } break;
         case __LIP_PRINT__: {
-          run__T5TE(__tmp__BFQD);
+          run__HEUE(__tmp__BFQD);
         } break;
         case __LIP_VALUE__: {
-          __tmp__GAUE=((__LIP_VALUE *)__tmp__BFQD)->parent_lip_code__0DFE.parent_itm_object__5DE.position__NDJ;
-          put_error__text__KNG( 2,(&__string_270));
-          put_position__UOG(__tmp__GAUE);
+          __tmp__0EUE=((__LIP_VALUE *)__tmp__BFQD)->parent_lip_code__2HFE.parent_itm_object__5DE.position__NDJ;
+          put_error__text__KNG( 2,(&__string_273));
+          put_position__UOG(__tmp__0EUE);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         } break;
         };
-        Self__KIDF=(__INTEGER)(Self__KIDF +  1);
+        Self__TNDF=(__INTEGER)(Self__TNDF +  1);
       };
     };
   };
 }
 
-static void run__T5TE(__LIP_PRINT *Self__U5TE)
+static void run__HEUE(__LIP_PRINT *Self__IEUE)
 // ({LIP_PRINT}) VoidNo recursive, No inlinable.
 {
-  void *__tmp__X5TE;
-  __POSITION __tmp__5IVE,pos__SWDE,pos__TH0G,pos__LJXE;
-  void *__tmp__Y5TE,*__tmp__DBIH,*__tmp__EBIH;
-  __LIP_INTEGER *Self__FBIH;
-  __LIP_STRING *Self__GBIH,*Self__4TGG;
-  __INTEGER Self__JF4F;
-  __BOOLEAN __tmp__QF4F;
-  __tmp__X5TE=Self__U5TE->message__W5TE;
-  switch (((struct ___OBJ *)__tmp__X5TE)->__id) {
+  void *__tmp__LEUE;
+  __POSITION __tmp__TNVE,pos__U0DE,pos__JR0G,pos__DOXE;
+  void *__tmp__MEUE,*__tmp__2IIH,*__tmp__3IIH;
+  __LIP_INTEGER *Self__4IIH;
+  __LIP_STRING *Self__5IIH,*Self__Z1GG;
+  __INTEGER Self__TO4F;
+  __BOOLEAN __tmp__0O4F;
+  __tmp__LEUE=Self__IEUE->message__KEUE;
+  switch (((struct ___OBJ *)__tmp__LEUE)->__id) {
   case __LIP_AFFECT__: {
-    __tmp__5IVE=((__LIP_AFFECT *)__tmp__X5TE)->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_310));
-    put_position__UOG(__tmp__5IVE);
+    __tmp__TNVE=((__LIP_AFFECT *)__tmp__LEUE)->parent_lip_code__JUPB.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_313));
+    put_position__UOG(__tmp__TNVE);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
-    __tmp__Y5TE=NULL;
+    __tmp__MEUE=NULL;
   } break;
   case __LIP_BINARY__: {
-    __tmp__Y5TE=run_expr__GZQD(__tmp__X5TE);
+    __tmp__MEUE=run_expr__GZQD(__tmp__LEUE);
   } break;
   case __LIP_UNARY__: {
-    __tmp__Y5TE=run_expr__F2QD(__tmp__X5TE);
+    __tmp__MEUE=run_expr__F2QD(__tmp__LEUE);
   } break;
   case __LIP_CALL__: {
-    __tmp__Y5TE=run_expr__RBUE(__tmp__X5TE);
+    __tmp__MEUE=run_expr__FGUE(__tmp__LEUE);
   } break;
   case __LIP_IF__: {
-    pos__SWDE=((__LIP_IF *)__tmp__X5TE)->parent_lip_code__4OYC.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_310));
-    put_position__UOG(pos__SWDE);
+    pos__U0DE=((__LIP_IF *)__tmp__LEUE)->parent_lip_code__4OYC.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_313));
+    put_position__UOG(pos__U0DE);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
-    __tmp__Y5TE=NULL;
+    __tmp__MEUE=NULL;
   } break;
   case __LIP_PRINT__: {
-    pos__TH0G=((__LIP_PRINT *)__tmp__X5TE)->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_310));
-    put_position__UOG(pos__TH0G);
+    pos__JR0G=((__LIP_PRINT *)__tmp__LEUE)->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_313));
+    put_position__UOG(pos__JR0G);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
-    __tmp__Y5TE=NULL;
+    __tmp__MEUE=NULL;
   } break;
   case __LIP_VALUE__: {
-    __tmp__DBIH=((__LIP_VALUE *)__tmp__X5TE)->value__RFUE;
-    switch (((struct ___OBJ *)__tmp__DBIH)->__id) {
+    __tmp__2IIH=((__LIP_VALUE *)__tmp__LEUE)->value__FKUE;
+    switch (((struct ___OBJ *)__tmp__2IIH)->__id) {
     case __LIP_BOOLEAN__: {
-      __tmp__EBIH=((__LIP_BOOLEAN *)__tmp__DBIH);
+      __tmp__3IIH=((__LIP_BOOLEAN *)__tmp__2IIH);
     } break;
     case __LIP_INTEGER__: {
-      Self__FBIH=((__LIP_INTEGER *)__tmp__DBIH);
-      __tmp__EBIH=get__QFSE(Self__FBIH,Self__FBIH->value__1X2F);
+      Self__4IIH=((__LIP_INTEGER *)__tmp__2IIH);
+      __tmp__3IIH=get__0JSE(Self__4IIH,Self__4IIH->value__0B3F);
     } break;
     case __LIP_STRING__: {
-      Self__GBIH=((__LIP_STRING *)__tmp__DBIH);
-      __tmp__EBIH=get__N2EF(Self__GBIH,Self__GBIH->value__52TE);
+      Self__5IIH=((__LIP_STRING *)__tmp__2IIH);
+      __tmp__3IIH=get__RBFF(Self__5IIH,Self__5IIH->value__TBUE);
     } break;
     };
-    __tmp__Y5TE=__tmp__EBIH;
+    __tmp__MEUE=__tmp__3IIH;
   } break;
   };
-  if (((void *)__tmp__Y5TE == (void *)NULL)) {
-    pos__LJXE=Self__U5TE->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_275));
-    put_position__UOG(pos__LJXE);
+  if (((void *)__tmp__MEUE == (void *)NULL)) {
+    pos__DOXE=Self__IEUE->parent_lip_code__QPYC.parent_itm_object__5DE.position__NDJ;
+    put_error__text__KNG( 1,(&__string_278));
+    put_position__UOG(pos__DOXE);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
     };
   };
-  switch (((struct ___OBJ *)__tmp__Y5TE)->__id) {
+  switch (((struct ___OBJ *)__tmp__MEUE)->__id) {
   case __LIP_BOOLEAN__: {
-    if (((__LIP_BOOLEAN *)__tmp__Y5TE)->value__PDQD) {
+    if (((__LIP_BOOLEAN *)__tmp__MEUE)->value__PDQD) {
       print__WHD((&__string_42));
     } else {
       print__WHD((&__string_43));
     };
   } break;
   case __LIP_INTEGER__: {
-    Self__JF4F=((__LIP_INTEGER *)__tmp__Y5TE)->value__1X2F;
-    if ((Self__JF4F ==  0)) {
+    Self__TO4F=((__LIP_INTEGER *)__tmp__MEUE)->value__0B3F;
+    if ((Self__TO4F ==  0)) {
       fputc((int)('0'),stdout);
-      __tmp__QF4F=TRUE__;
+      __tmp__0O4F=TRUE__;
     } else {
-      __tmp__QF4F=FALSE__;
+      __tmp__0O4F=FALSE__;
     };
-    if ((! __tmp__QF4F)) {
-      if ((Self__JF4F <  0)) {
+    if ((! __tmp__0O4F)) {
+      if ((Self__TO4F <  0)) {
         fputc((int)('-'),stdout);
-        print_positif__JXJG((__INTEGER)(- Self__JF4F));
+        print_positif__Z4JG((__INTEGER)(- Self__TO4F));
       } else {
-        print_positif__JXJG(Self__JF4F);
+        print_positif__Z4JG(Self__TO4F);
       };
     };
   } break;
   case __LIP_STRING__: {
-    Self__4TGG=((__LIP_STRING *)__tmp__Y5TE);
+    Self__Z1GG=((__LIP_STRING *)__tmp__MEUE);
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
-    append_in__LUGG(Self__4TGG,string_tmp__VH);
+    append_in__C2GG(Self__Z1GG,string_tmp__VH);
     put_string__YHF(((__STRING *)string_tmp__VH));
   } break;
   };
-  switch (((struct ___OBJ *)__tmp__Y5TE)->__id) {
+  switch (((struct ___OBJ *)__tmp__MEUE)->__id) {
   case __LIP_BOOLEAN__: {
   } break;
   case __LIP_INTEGER__: {
-    free__TM2F(__tmp__Y5TE);
+    free__SW2F(__tmp__MEUE);
   } break;
   case __LIP_STRING__: {
-    free__BNGG(__tmp__Y5TE);
+    free__EVGG(__tmp__MEUE);
   } break;
   };
 }
@@ -29407,21 +29701,21 @@ static void add_last__0NV(__FAST_ARRAYoITM_TYPE_MONOo *Self__1NV,void *element__
 static void* alias__GVP(void *tmp__IVP)
 // ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
 {
-  __INTEGER __tmp__U4PD,i__C21E,new_capacity__5FW,other_upper__4FW;
+  __INTEGER __tmp__U4PD,i__0A2E,new_capacity__5FW,other_upper__4FW;
   __INTEGER Self__LNKC,h__AHW,idx__BHW,idx__ZURB,new_capacity__0URB;
   __INTEGER i__YURB,typ_id__BMNB;
-  __POINTER ptr__2LNB,ptr_table__MBIH,next__LBIH,result__NBIH;
-  __POINTER ptr_table__RBIH,next__QBIH,result__SBIH;
-  __UINTEGER_32 sz__4LNB,a__SWEH,new_size__TWEH,t__XWEH,a__WWEH;
-  __UINTEGER_32 new_size__UBIH,lab_type__TBIH;
-  void *result__KVP,*result__P5V,*e__ZGW,*e__IBIH,*e__0M1;
+  __POINTER ptr__2LNB,ptr_table__FJIH,next__EJIH,result__GJIH;
+  __POINTER ptr_table__KJIH,next__JJIH,result__LJIH;
+  __UINTEGER_32 sz__4LNB,a__D5EH,new_size__E5EH,t__I5EH,a__H5EH;
+  __UINTEGER_32 new_size__NJIH,lab_type__MJIH;
+  void *result__KVP,*result__P5V,*e__ZGW,*e__BJIH,*e__0M1;
   __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__14V,*Self__YGW;
-  void *node__O5V,*node__JBIH,*node__DN1,*node__CHW,*node1__2URB;
+  void *node__O5V,*node__CJIH,*node__DN1,*node__CHW,*node1__2URB;
   void *node2__3URB,*__tmp__SIW;
   __BOOLEAN __tmp__HAW,result__S3PD;
   __FAST_ARRAYoITM_TYPE_MONOo *Self__P3PD,*o__T3PD,*__tmp__53PD;
   __FAST_ARRAYoITM_TYPE_MONOo *Self__2FW;
-  void **__tmp__P4PD,**__tmp__R4PD,**Self__O11E,**__tmp__SGW,**__tmp__UGW;
+  void **__tmp__P4PD,**__tmp__R4PD,**Self__GA2E,**__tmp__SGW,**__tmp__UGW;
   void **Self__Y3CC;
   void **old_buckets__1URB;
   __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *result__1LNB,*Self__TSDC;
@@ -29453,12 +29747,12 @@ static void* alias__GVP(void *tmp__IVP)
             __tmp__P4PD=Self__P3PD->parent_arrayed_collection__ZXC.storage__RMV;
             __tmp__R4PD=__tmp__53PD->parent_arrayed_collection__ZXC.storage__RMV;
             __tmp__U4PD=(__INTEGER)(Self__P3PD->parent_arrayed_collection__ZXC.upper__KIV +  1);
-            Self__O11E=((void **)__tmp__P4PD);
-            i__C21E=(__INTEGER)(__tmp__U4PD -  1);
-            while (((i__C21E >=  0) && ((void *)Self__O11E[i__C21E] == (void *)((void **)__tmp__R4PD)[i__C21E]))) {
-              i__C21E=(__INTEGER)(i__C21E -  1);
+            Self__GA2E=((void **)__tmp__P4PD);
+            i__0A2E=(__INTEGER)(__tmp__U4PD -  1);
+            while (((i__0A2E >=  0) && ((void *)Self__GA2E[i__0A2E] == (void *)((void **)__tmp__R4PD)[i__0A2E]))) {
+              i__0A2E=(__INTEGER)(i__0A2E -  1);
             };
-            result__S3PD=(i__C21E <  0);
+            result__S3PD=(i__0A2E <  0);
           };
         };
         __tmp__HAW=result__S3PD;
@@ -29495,10 +29789,10 @@ static void* alias__GVP(void *tmp__IVP)
       Self__2FW->parent_arrayed_collection__ZXC.upper__KIV=other_upper__4FW;
       Self__YGW=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__2VP);
       e__ZGW=result__KVP;
-      e__IBIH=result__KVP;
-      node__JBIH=((void **)Self__YGW->buckets__W5V)[(__INTEGER)(hash_code__P50(result__KVP) % Self__YGW->capacity__R5V)];
-      while ((! (((void *)node__JBIH == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__JBIH)->item__CAW == (void *)e__IBIH)))) {
-        node__JBIH=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__JBIH)->next__OAW;
+      e__BJIH=result__KVP;
+      node__CJIH=((void **)Self__YGW->buckets__W5V)[(__INTEGER)(hash_code__P50(result__KVP) % Self__YGW->capacity__R5V)];
+      while ((! (((void *)node__CJIH == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__CJIH)->item__CAW == (void *)e__BJIH)))) {
+        node__CJIH=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__CJIH)->next__OAW;
       };
       e__0M1=result__KVP;
       node__DN1=((void **)Self__YGW->buckets__W5V)[(__INTEGER)(hash_code__P50(result__KVP) % Self__YGW->capacity__R5V)];
@@ -29545,61 +29839,61 @@ static void* alias__GVP(void *tmp__IVP)
           typ_id__BMNB=__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__4LNB);
           if ((typ_id__BMNB == (__INTEGER)(-  1))) {
-            a__SWEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__TWEH=(__UINTEGER_32)((__UINTEGER_32)(sz__4LNB + a__SWEH) & (__UINTEGER_32)(~ a__SWEH));
-            ptr_table__MBIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TWEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__LBIH=((__POINTER )(NULL));
-            result__NBIH=((__POINTER *)ptr_table__MBIH)[ 0];
-            if ((result__NBIH == (void *)NULL)) {
-              result__NBIH=new_lab__MRJ(new_size__TWEH);
-              next__LBIH=(void *)((unsigned long)result__NBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TWEH)));
-              ((__POINTER *)next__LBIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__MBIH)[ 0]=next__LBIH;
+            a__D5EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__E5EH=(__UINTEGER_32)((__UINTEGER_32)(sz__4LNB + a__D5EH) & (__UINTEGER_32)(~ a__D5EH));
+            ptr_table__FJIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__E5EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__EJIH=((__POINTER )(NULL));
+            result__GJIH=((__POINTER *)ptr_table__FJIH)[ 0];
+            if ((result__GJIH == (void *)NULL)) {
+              result__GJIH=new_lab__MRJ(new_size__E5EH);
+              next__EJIH=(void *)((unsigned long)result__GJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E5EH)));
+              ((__POINTER *)next__EJIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__FJIH)[ 0]=next__EJIH;
             } else {
-              next__LBIH=((__POINTER *)result__NBIH)[ 0];
-              if ((next__LBIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TWEH <<  1)) <=  4096)) {
-                  next__LBIH=(void *)((unsigned long)result__NBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TWEH)));
+              next__EJIH=((__POINTER *)result__GJIH)[ 0];
+              if ((next__EJIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GJIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__E5EH <<  1)) <=  4096)) {
+                  next__EJIH=(void *)((unsigned long)result__GJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E5EH)));
                 } else {
-                  next__LBIH=new_lab__MRJ(new_size__TWEH);
+                  next__EJIH=new_lab__MRJ(new_size__E5EH);
                 };
-                ((__POINTER *)next__LBIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__MBIH)[ 0]=next__LBIH;
+                ((__POINTER *)next__EJIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__FJIH)[ 0]=next__EJIH;
               } else {
-                ((__POINTER *)result__NBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__NBIH=next__LBIH;
+                ((__POINTER *)result__GJIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EJIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__GJIH=next__EJIH;
               };
             };
-            ptr__2LNB=result__NBIH;
-          } else {
-            t__XWEH=((__UINTEGER_32 )typ_id__BMNB);
-            a__WWEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__UBIH=(__UINTEGER_32)((__UINTEGER_32)(sz__4LNB + a__WWEH) & (__UINTEGER_32)(~ a__WWEH));
-            ptr_table__RBIH=((__POINTER )(&(table_type[(t__XWEH)])));
-            lab_type__TBIH=(__UINTEGER_32)(t__XWEH |  1);
-            next__QBIH=((__POINTER )(NULL));
-            result__SBIH=((__POINTER *)ptr_table__RBIH)[ 0];
-            if ((result__SBIH == (void *)NULL)) {
-              result__SBIH=new_lab__MRJ(lab_type__TBIH);
-              next__QBIH=(void *)((unsigned long)result__SBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UBIH)));
-              ((__POINTER *)next__QBIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__RBIH)[ 0]=next__QBIH;
+            ptr__2LNB=result__GJIH;
+          } else {
+            t__I5EH=((__UINTEGER_32 )typ_id__BMNB);
+            a__H5EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__NJIH=(__UINTEGER_32)((__UINTEGER_32)(sz__4LNB + a__H5EH) & (__UINTEGER_32)(~ a__H5EH));
+            ptr_table__KJIH=((__POINTER )(&(table_type[(t__I5EH)])));
+            lab_type__MJIH=(__UINTEGER_32)(t__I5EH |  1);
+            next__JJIH=((__POINTER )(NULL));
+            result__LJIH=((__POINTER *)ptr_table__KJIH)[ 0];
+            if ((result__LJIH == (void *)NULL)) {
+              result__LJIH=new_lab__MRJ(lab_type__MJIH);
+              next__JJIH=(void *)((unsigned long)result__LJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NJIH)));
+              ((__POINTER *)next__JJIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__KJIH)[ 0]=next__JJIH;
             } else {
-              next__QBIH=((__POINTER *)result__SBIH)[ 0];
-              if ((next__QBIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UBIH <<  1)) <=  4096)) {
-                  next__QBIH=(void *)((unsigned long)result__SBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UBIH)));
+              next__JJIH=((__POINTER *)result__LJIH)[ 0];
+              if ((next__JJIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LJIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NJIH <<  1)) <=  4096)) {
+                  next__JJIH=(void *)((unsigned long)result__LJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NJIH)));
                 } else {
-                  next__QBIH=new_lab__MRJ(lab_type__TBIH);
+                  next__JJIH=new_lab__MRJ(lab_type__MJIH);
                 };
-                ((__POINTER *)next__QBIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__RBIH)[ 0]=next__QBIH;
+                ((__POINTER *)next__JJIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__KJIH)[ 0]=next__JJIH;
               } else {
-                ((__POINTER *)result__SBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__SBIH=next__QBIH;
+                ((__POINTER *)result__LJIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JJIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__LJIH=next__JJIH;
               };
             };
-            ptr__2LNB=result__SBIH;
+            ptr__2LNB=result__LJIH;
           };
           result__1LNB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__2LNB);
           *(result__1LNB) = *(HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__);
@@ -29620,31 +29914,31 @@ static void* alias__GVP(void *tmp__IVP)
 static void add__CMHB(__HASHED_SEToSTRING_CONSTANTo *Self__DMHB,void *e__EMHB)
 // ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__CJGH,*Self__HJGH;
-  __INTEGER result__BJGH,__tmp__DJGH,Self__EJGH,idx__MMHB,idx__FQ0B;
-  __INTEGER new_capacity__GQ0B,i__EQ0B,result__GJGH,__tmp__IJGH;
-  __INTEGER Self__JJGH,typ_id__W3WB;
-  __POINTER ptr__R3WB,ptr_table__WBIH,next__VBIH,result__XBIH;
-  __POINTER ptr_table__1BIH,next__0BIH,result__2BIH;
-  __UINTEGER_32 sz__T3WB,a__MXEH,new_size__NXEH,t__RXEH,a__QXEH;
-  __UINTEGER_32 new_size__4BIH,lab_type__3BIH;
+  __STRING_CONSTANT *Self__PRGH,*Self__URGH;
+  __INTEGER result__ORGH,__tmp__QRGH,Self__RRGH,idx__MMHB,idx__FQ0B;
+  __INTEGER new_capacity__GQ0B,i__EQ0B,result__TRGH,__tmp__VRGH;
+  __INTEGER Self__WRGH,typ_id__W3WB;
+  __POINTER ptr__R3WB,ptr_table__PJIH,next__OJIH,result__QJIH;
+  __POINTER ptr_table__UJIH,next__TJIH,result__VJIH;
+  __UINTEGER_32 sz__T3WB,a__35EH,new_size__45EH,t__CAFH,a__BAFH;
+  __UINTEGER_32 new_size__XJIH,lab_type__WJIH;
   void *node__NMHB,*node1__IQ0B,*node2__JQ0B,*__tmp__2NHB;
   void **old_buckets__HQ0B;
   __HASHED_SET_NODEoSTRING_CONSTANTo *result__Q3WB,*Self__SLFC;
   has__TLMB(Self__DMHB,e__EMHB);
   has__TLMB(Self__DMHB,e__EMHB);
-  Self__CJGH=((__STRING_CONSTANT *)e__EMHB);
-  result__BJGH= 0;
-  __tmp__DJGH=Self__CJGH->count__DD;
-  Self__EJGH= 1;
-  while ((Self__EJGH <= __tmp__DJGH)) {
-    result__BJGH=(__INTEGER)((__INTEGER)( 5 * result__BJGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__CJGH->storage__VQO)[(__INTEGER)(Self__EJGH -  1)])));
-    Self__EJGH=(__INTEGER)(Self__EJGH +  1);
-  };
-  if ((result__BJGH <  0)) {
-    result__BJGH=(__INTEGER)(~ result__BJGH);
-  };
-  idx__MMHB=(__INTEGER)(result__BJGH % Self__DMHB->capacity__KIT);
+  Self__PRGH=((__STRING_CONSTANT *)e__EMHB);
+  result__ORGH= 0;
+  __tmp__QRGH=Self__PRGH->count__DD;
+  Self__RRGH= 1;
+  while ((Self__RRGH <= __tmp__QRGH)) {
+    result__ORGH=(__INTEGER)((__INTEGER)( 5 * result__ORGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__PRGH->storage__VQO)[(__INTEGER)(Self__RRGH -  1)])));
+    Self__RRGH=(__INTEGER)(Self__RRGH +  1);
+  };
+  if ((result__ORGH <  0)) {
+    result__ORGH=(__INTEGER)(~ result__ORGH);
+  };
+  idx__MMHB=(__INTEGER)(result__ORGH % Self__DMHB->capacity__KIT);
   node__NMHB=((void **)Self__DMHB->buckets__PEV)[idx__MMHB];
   while ((! (((void *)node__NMHB == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__NMHB)->item__1EV,e__EMHB)))) {
     node__NMHB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__NMHB)->next__GFV;
@@ -29663,25 +29957,25 @@ static void add__CMHB(__HASHED_SEToSTRING_CONSTANTo *Self__DMHB,void *e__EMHB)
         node1__IQ0B=((void **)old_buckets__HQ0B)[i__EQ0B];
         while (((void *)node1__IQ0B != (void *)NULL)) {
           node2__JQ0B=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__IQ0B)->next__GFV;
-          Self__HJGH=((__STRING_CONSTANT *)((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__IQ0B)->item__1EV);
-          result__GJGH= 0;
-          __tmp__IJGH=Self__HJGH->count__DD;
-          Self__JJGH= 1;
-          while ((Self__JJGH <= __tmp__IJGH)) {
-            result__GJGH=(__INTEGER)((__INTEGER)( 5 * result__GJGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__HJGH->storage__VQO)[(__INTEGER)(Self__JJGH -  1)])));
-            Self__JJGH=(__INTEGER)(Self__JJGH +  1);
-          };
-          if ((result__GJGH <  0)) {
-            result__GJGH=(__INTEGER)(~ result__GJGH);
-          };
-          idx__FQ0B=(__INTEGER)(result__GJGH % Self__DMHB->capacity__KIT);
+          Self__URGH=((__STRING_CONSTANT *)((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__IQ0B)->item__1EV);
+          result__TRGH= 0;
+          __tmp__VRGH=Self__URGH->count__DD;
+          Self__WRGH= 1;
+          while ((Self__WRGH <= __tmp__VRGH)) {
+            result__TRGH=(__INTEGER)((__INTEGER)( 5 * result__TRGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__URGH->storage__VQO)[(__INTEGER)(Self__WRGH -  1)])));
+            Self__WRGH=(__INTEGER)(Self__WRGH +  1);
+          };
+          if ((result__TRGH <  0)) {
+            result__TRGH=(__INTEGER)(~ result__TRGH);
+          };
+          idx__FQ0B=(__INTEGER)(result__TRGH % Self__DMHB->capacity__KIT);
           ((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__IQ0B)->next__GFV=((void **)Self__DMHB->buckets__PEV)[idx__FQ0B];
           ((void **)Self__DMHB->buckets__PEV)[idx__FQ0B]=node1__IQ0B;
           node1__IQ0B=node2__JQ0B;
         };
         i__EQ0B=(__INTEGER)(i__EQ0B -  1);
       };
-      idx__MMHB=(__INTEGER)(result__BJGH % new_capacity__GQ0B);
+      idx__MMHB=(__INTEGER)(result__ORGH % new_capacity__GQ0B);
     };
     __tmp__2NHB=((void **)Self__DMHB->buckets__PEV)[idx__MMHB];
     result__Q3WB=NULL;
@@ -29694,61 +29988,61 @@ static void add__CMHB(__HASHED_SEToSTRING_CONSTANTo *Self__DMHB,void *e__EMHB)
       typ_id__W3WB=__HASHED_SET_NODEoSTRING_CONSTANTo__;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__T3WB);
       if ((typ_id__W3WB == (__INTEGER)(-  1))) {
-        a__MXEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__NXEH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3WB + a__MXEH) & (__UINTEGER_32)(~ a__MXEH));
-        ptr_table__WBIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NXEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__VBIH=((__POINTER )(NULL));
-        result__XBIH=((__POINTER *)ptr_table__WBIH)[ 0];
-        if ((result__XBIH == (void *)NULL)) {
-          result__XBIH=new_lab__MRJ(new_size__NXEH);
-          next__VBIH=(void *)((unsigned long)result__XBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NXEH)));
-          ((__POINTER *)next__VBIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WBIH)[ 0]=next__VBIH;
-        } else {
-          next__VBIH=((__POINTER *)result__XBIH)[ 0];
-          if ((next__VBIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XBIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NXEH <<  1)) <=  4096)) {
-              next__VBIH=(void *)((unsigned long)result__XBIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NXEH)));
+        a__35EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__45EH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3WB + a__35EH) & (__UINTEGER_32)(~ a__35EH));
+        ptr_table__PJIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__45EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__OJIH=((__POINTER )(NULL));
+        result__QJIH=((__POINTER *)ptr_table__PJIH)[ 0];
+        if ((result__QJIH == (void *)NULL)) {
+          result__QJIH=new_lab__MRJ(new_size__45EH);
+          next__OJIH=(void *)((unsigned long)result__QJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__45EH)));
+          ((__POINTER *)next__OJIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__PJIH)[ 0]=next__OJIH;
+        } else {
+          next__OJIH=((__POINTER *)result__QJIH)[ 0];
+          if ((next__OJIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QJIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__45EH <<  1)) <=  4096)) {
+              next__OJIH=(void *)((unsigned long)result__QJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__45EH)));
             } else {
-              next__VBIH=new_lab__MRJ(new_size__NXEH);
-            };
-            ((__POINTER *)next__VBIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WBIH)[ 0]=next__VBIH;
-          } else {
-            ((__POINTER *)result__XBIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VBIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__XBIH=next__VBIH;
-          };
-        };
-        ptr__R3WB=result__XBIH;
-      } else {
-        t__RXEH=((__UINTEGER_32 )typ_id__W3WB);
-        a__QXEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__4BIH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3WB + a__QXEH) & (__UINTEGER_32)(~ a__QXEH));
-        ptr_table__1BIH=((__POINTER )(&(table_type[(t__RXEH)])));
-        lab_type__3BIH=(__UINTEGER_32)(t__RXEH |  1);
-        next__0BIH=((__POINTER )(NULL));
-        result__2BIH=((__POINTER *)ptr_table__1BIH)[ 0];
-        if ((result__2BIH == (void *)NULL)) {
-          result__2BIH=new_lab__MRJ(lab_type__3BIH);
-          next__0BIH=(void *)((unsigned long)result__2BIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4BIH)));
-          ((__POINTER *)next__0BIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1BIH)[ 0]=next__0BIH;
-        } else {
-          next__0BIH=((__POINTER *)result__2BIH)[ 0];
-          if ((next__0BIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2BIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4BIH <<  1)) <=  4096)) {
-              next__0BIH=(void *)((unsigned long)result__2BIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4BIH)));
+              next__OJIH=new_lab__MRJ(new_size__45EH);
+            };
+            ((__POINTER *)next__OJIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__PJIH)[ 0]=next__OJIH;
+          } else {
+            ((__POINTER *)result__QJIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OJIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__QJIH=next__OJIH;
+          };
+        };
+        ptr__R3WB=result__QJIH;
+      } else {
+        t__CAFH=((__UINTEGER_32 )typ_id__W3WB);
+        a__BAFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__XJIH=(__UINTEGER_32)((__UINTEGER_32)(sz__T3WB + a__BAFH) & (__UINTEGER_32)(~ a__BAFH));
+        ptr_table__UJIH=((__POINTER )(&(table_type[(t__CAFH)])));
+        lab_type__WJIH=(__UINTEGER_32)(t__CAFH |  1);
+        next__TJIH=((__POINTER )(NULL));
+        result__VJIH=((__POINTER *)ptr_table__UJIH)[ 0];
+        if ((result__VJIH == (void *)NULL)) {
+          result__VJIH=new_lab__MRJ(lab_type__WJIH);
+          next__TJIH=(void *)((unsigned long)result__VJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJIH)));
+          ((__POINTER *)next__TJIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__UJIH)[ 0]=next__TJIH;
+        } else {
+          next__TJIH=((__POINTER *)result__VJIH)[ 0];
+          if ((next__TJIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VJIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XJIH <<  1)) <=  4096)) {
+              next__TJIH=(void *)((unsigned long)result__VJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJIH)));
             } else {
-              next__0BIH=new_lab__MRJ(lab_type__3BIH);
+              next__TJIH=new_lab__MRJ(lab_type__WJIH);
             };
-            ((__POINTER *)next__0BIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__1BIH)[ 0]=next__0BIH;
+            ((__POINTER *)next__TJIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__UJIH)[ 0]=next__TJIH;
           } else {
-            ((__POINTER *)result__2BIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0BIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__2BIH=next__0BIH;
+            ((__POINTER *)result__VJIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TJIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__VJIH=next__TJIH;
           };
         };
-        ptr__R3WB=result__2BIH;
+        ptr__R3WB=result__VJIH;
       };
       result__Q3WB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)ptr__R3WB);
       *(result__Q3WB) = *(HASHED_SET_NODEoSTRING_CONSTANTo__);
@@ -29765,9 +30059,9 @@ static void add__CMHB(__HASHED_SEToSTRING_CONSTANTo *Self__DMHB,void *e__EMHB)
 static void add_last__RBPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__SBPD,void *element__TBPD)
 // ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__UBPD,__tmp__1CPD,__tmp__IBWE,Self__3PPF;
+  __INTEGER new_capacity__UBPD,__tmp__1CPD,__tmp__2FWE,Self__1VPF;
   __BOOLEAN __tmp__DCPD;
-  void **__tmp__0CPD,**new__UAWE;
+  void **__tmp__0CPD,**new__IFWE;
   new_capacity__UBPD= 0;
   if (((__INTEGER)(Self__SBPD->parent_arrayed_collection__H5I.upper__15OD +  1) <= (__INTEGER)(Self__SBPD->parent_arrayed_collection__H5I.capacity__WBPD -  1))) {
     Self__SBPD->parent_arrayed_collection__H5I.upper__15OD=(__INTEGER)(Self__SBPD->parent_arrayed_collection__H5I.upper__15OD +  1);
@@ -29777,21 +30071,21 @@ static void add_last__RBPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__SBPD,void *eleme
   };
   if ((! __tmp__DCPD)) {
     if ((Self__SBPD->parent_arrayed_collection__H5I.capacity__WBPD ==  0)) {
-      Self__SBPD->parent_arrayed_collection__H5I.storage__RCPD=create__PHHE( 2);
+      Self__SBPD->parent_arrayed_collection__H5I.storage__RCPD=create__RLHE( 2);
       Self__SBPD->parent_arrayed_collection__H5I.capacity__WBPD= 2;
       Self__SBPD->parent_arrayed_collection__H5I.upper__15OD= 0;
     } else {
       new_capacity__UBPD=(__INTEGER)(Self__SBPD->parent_arrayed_collection__H5I.capacity__WBPD <<  1);
       __tmp__0CPD=Self__SBPD->parent_arrayed_collection__H5I.storage__RCPD;
       __tmp__1CPD=Self__SBPD->parent_arrayed_collection__H5I.capacity__WBPD;
-      new__UAWE=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__0CPD)),((__UINTEGER_32 )(__INTEGER)(__tmp__1CPD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__UBPD * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__IBWE=(__INTEGER)(new_capacity__UBPD -  1);
-      Self__3PPF=__tmp__1CPD;
-      while ((Self__3PPF <= __tmp__IBWE)) {
-        new__UAWE[Self__3PPF]=NULL;
-        Self__3PPF=(__INTEGER)(Self__3PPF +  1);
-      };
-      Self__SBPD->parent_arrayed_collection__H5I.storage__RCPD=new__UAWE;
+      new__IFWE=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__0CPD)),((__UINTEGER_32 )(__INTEGER)(__tmp__1CPD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__UBPD * ((__INTEGER )(sizeof(void *)))))));
+      __tmp__2FWE=(__INTEGER)(new_capacity__UBPD -  1);
+      Self__1VPF=__tmp__1CPD;
+      while ((Self__1VPF <= __tmp__2FWE)) {
+        new__IFWE[Self__1VPF]=NULL;
+        Self__1VPF=(__INTEGER)(Self__1VPF +  1);
+      };
+      Self__SBPD->parent_arrayed_collection__H5I.storage__RCPD=new__IFWE;
       Self__SBPD->parent_arrayed_collection__H5I.capacity__WBPD=new_capacity__UBPD;
       Self__SBPD->parent_arrayed_collection__H5I.upper__15OD=(__INTEGER)(Self__SBPD->parent_arrayed_collection__H5I.upper__15OD +  1);
     };
@@ -29879,72 +30173,72 @@ static void free__2MQ(void *tmp__4MQ)
   ((void **)Self__2YV->parent_arrayed_collection__JUP.storage__1ZV)[Self__2YV->parent_arrayed_collection__JUP.upper__FVV]=tmp__4MQ;
 }
 
-static __INTEGER hash_code__DNQF(__FAST_ARRAYoSTRING_CONSTANTo *Self__ENQF)
+static __INTEGER hash_code__BTQF(__FAST_ARRAYoSTRING_CONSTANTo *Self__CTQF)
 // ({FAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
 {
-  __INTEGER result__GNQF,result__LJGH,__tmp__NJGH,Self__OJGH;
-  __INTEGER result__QJGH,__tmp__SJGH,Self__TJGH;
-  __STRING_CONSTANT *Self__MJGH,*Self__RJGH;
-  __BOOLEAN __tmp__XNQF;
-  result__GNQF= 0;
-  if ((! (Self__ENQF->parent_arrayed_collection__H5I.upper__15OD <  0))) {
-    if (((void *)((void **)Self__ENQF->parent_arrayed_collection__H5I.storage__RCPD)[Self__ENQF->parent_arrayed_collection__H5I.upper__15OD] != (void *)NULL)) {
-      Self__MJGH=((__STRING_CONSTANT *)((void **)Self__ENQF->parent_arrayed_collection__H5I.storage__RCPD)[Self__ENQF->parent_arrayed_collection__H5I.upper__15OD]);
-      result__LJGH= 0;
-      __tmp__NJGH=Self__MJGH->count__DD;
-      Self__OJGH= 1;
-      while ((Self__OJGH <= __tmp__NJGH)) {
-        result__LJGH=(__INTEGER)((__INTEGER)( 5 * result__LJGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__MJGH->storage__VQO)[(__INTEGER)(Self__OJGH -  1)])));
-        Self__OJGH=(__INTEGER)(Self__OJGH +  1);
-      };
-      if ((result__LJGH <  0)) {
-        result__LJGH=(__INTEGER)(~ result__LJGH);
-      };
-      result__GNQF=result__LJGH;
-      __tmp__XNQF=TRUE__;
-    } else {
-      __tmp__XNQF=FALSE__;
-    };
-    if ((! __tmp__XNQF)) {
-      if (((void *)((void **)Self__ENQF->parent_arrayed_collection__H5I.storage__RCPD)[ 0] != (void *)NULL)) {
-        Self__RJGH=((__STRING_CONSTANT *)((void **)Self__ENQF->parent_arrayed_collection__H5I.storage__RCPD)[ 0]);
-        result__QJGH= 0;
-        __tmp__SJGH=Self__RJGH->count__DD;
-        Self__TJGH= 1;
-        while ((Self__TJGH <= __tmp__SJGH)) {
-          result__QJGH=(__INTEGER)((__INTEGER)( 5 * result__QJGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__RJGH->storage__VQO)[(__INTEGER)(Self__TJGH -  1)])));
-          Self__TJGH=(__INTEGER)(Self__TJGH +  1);
-        };
-        if ((result__QJGH <  0)) {
-          result__QJGH=(__INTEGER)(~ result__QJGH);
-        };
-        result__GNQF=result__QJGH;
-      };
-    };
-  };
-  return(result__GNQF);
+  __INTEGER result__ETQF,result__YRGH,__tmp__0RGH,Self__1RGH;
+  __INTEGER result__3RGH,__tmp__5RGH,Self__ASGH;
+  __STRING_CONSTANT *Self__ZRGH,*Self__4RGH;
+  __BOOLEAN __tmp__VTQF;
+  result__ETQF= 0;
+  if ((! (Self__CTQF->parent_arrayed_collection__H5I.upper__15OD <  0))) {
+    if (((void *)((void **)Self__CTQF->parent_arrayed_collection__H5I.storage__RCPD)[Self__CTQF->parent_arrayed_collection__H5I.upper__15OD] != (void *)NULL)) {
+      Self__ZRGH=((__STRING_CONSTANT *)((void **)Self__CTQF->parent_arrayed_collection__H5I.storage__RCPD)[Self__CTQF->parent_arrayed_collection__H5I.upper__15OD]);
+      result__YRGH= 0;
+      __tmp__0RGH=Self__ZRGH->count__DD;
+      Self__1RGH= 1;
+      while ((Self__1RGH <= __tmp__0RGH)) {
+        result__YRGH=(__INTEGER)((__INTEGER)( 5 * result__YRGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__ZRGH->storage__VQO)[(__INTEGER)(Self__1RGH -  1)])));
+        Self__1RGH=(__INTEGER)(Self__1RGH +  1);
+      };
+      if ((result__YRGH <  0)) {
+        result__YRGH=(__INTEGER)(~ result__YRGH);
+      };
+      result__ETQF=result__YRGH;
+      __tmp__VTQF=TRUE__;
+    } else {
+      __tmp__VTQF=FALSE__;
+    };
+    if ((! __tmp__VTQF)) {
+      if (((void *)((void **)Self__CTQF->parent_arrayed_collection__H5I.storage__RCPD)[ 0] != (void *)NULL)) {
+        Self__4RGH=((__STRING_CONSTANT *)((void **)Self__CTQF->parent_arrayed_collection__H5I.storage__RCPD)[ 0]);
+        result__3RGH= 0;
+        __tmp__5RGH=Self__4RGH->count__DD;
+        Self__ASGH= 1;
+        while ((Self__ASGH <= __tmp__5RGH)) {
+          result__3RGH=(__INTEGER)((__INTEGER)( 5 * result__3RGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__4RGH->storage__VQO)[(__INTEGER)(Self__ASGH -  1)])));
+          Self__ASGH=(__INTEGER)(Self__ASGH +  1);
+        };
+        if ((result__3RGH <  0)) {
+          result__3RGH=(__INTEGER)(~ result__3RGH);
+        };
+        result__ETQF=result__3RGH;
+      };
+    };
+  };
+  return(result__ETQF);
 }
 
 static void copy__22RD(__FAST_ARRAYoSTRING_CONSTANTo *Self__32RD,void *other__42RD)
 // ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__A3RD,other_upper__52RD,Self__YWXE;
-  void **__tmp__T3RD,**__tmp__V3RD,**Self__TXVE;
+  __INTEGER new_capacity__A3RD,other_upper__52RD,Self__Q1XE;
+  void **__tmp__T3RD,**__tmp__V3RD,**Self__H2VE;
   new_capacity__A3RD= 0;
   other_upper__52RD=((__FAST_ARRAYoSTRING_CONSTANTo *)other__42RD)->parent_arrayed_collection__H5I.upper__15OD;
   if ((other_upper__52RD >=  0)) {
     new_capacity__A3RD=(__INTEGER)(other_upper__52RD +  1);
     if ((Self__32RD->parent_arrayed_collection__H5I.capacity__WBPD < new_capacity__A3RD)) {
-      Self__32RD->parent_arrayed_collection__H5I.storage__RCPD=create__PHHE(new_capacity__A3RD);
+      Self__32RD->parent_arrayed_collection__H5I.storage__RCPD=create__RLHE(new_capacity__A3RD);
       Self__32RD->parent_arrayed_collection__H5I.capacity__WBPD=new_capacity__A3RD;
     };
     __tmp__T3RD=Self__32RD->parent_arrayed_collection__H5I.storage__RCPD;
     __tmp__V3RD=((__FAST_ARRAYoSTRING_CONSTANTo *)other__42RD)->parent_arrayed_collection__H5I.storage__RCPD;
-    Self__TXVE=((void **)__tmp__T3RD);
-    Self__YWXE=other_upper__52RD;
-    while ((Self__YWXE >=  0)) {
-      Self__TXVE[Self__YWXE]=((void **)__tmp__V3RD)[Self__YWXE];
-      Self__YWXE=(__INTEGER)(Self__YWXE -  1);
+    Self__H2VE=((void **)__tmp__T3RD);
+    Self__Q1XE=other_upper__52RD;
+    while ((Self__Q1XE >=  0)) {
+      Self__H2VE[Self__Q1XE]=((void **)__tmp__V3RD)[Self__Q1XE];
+      Self__Q1XE=(__INTEGER)(Self__Q1XE -  1);
     };
   };
   Self__32RD->parent_arrayed_collection__H5I.upper__15OD=other_upper__52RD;
@@ -29954,9 +30248,9 @@ static __BOOLEAN read_operator__HNM()
 // () With resultNo recursive, No inlinable.
 {
   __INTEGER old_pos__LNM,__tmp__ZQO,i__T4O;
-  __POSITION pos__3QXG;
+  __POSITION pos__W1XG;
   __BOOLEAN result__KNM,__tmp__GOM;
-  __CHARACTER result__KJ5G,result__TJ5G,ch__TQO,result__YJ5G;
+  __CHARACTER result__OS5G,result__XS5G,ch__TQO,result__2S5G;
   __CHARACTER *__tmp__WQO,*Self__H4O;
   result__KNM=FALSE__;
   read_space__3RD();
@@ -29964,24 +30258,24 @@ static __BOOLEAN read_operator__HNM()
   ((__STRING *)string_tmp__VH)->count__WFC= 0;
   until_do__1YM:
   {
-    result__KJ5G='\0';
+    result__OS5G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__KJ5G=((__CHARACTER )(( 0)));
+      result__OS5G=((__CHARACTER )(( 0)));
     } else {
-      result__KJ5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__OS5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__KJ5G == ((__CHARACTER )(( 0))))) {
+    if ((result__OS5G == ((__CHARACTER )(( 0))))) {
       __tmp__GOM=TRUE__;
     } else {
-      result__TJ5G='\0';
+      result__XS5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__TJ5G=((__CHARACTER )(( 0)));
+        result__XS5G=((__CHARACTER )(( 0)));
       } else {
-        result__TJ5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__XS5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      ch__TQO=result__TJ5G;
-      __tmp__WQO=((__STRING_CONSTANT *)(&__string_312))->storage__VQO;
-      __tmp__ZQO=(__INTEGER)(((__STRING_CONSTANT *)(&__string_312))->count__DD -  1);
+      ch__TQO=result__XS5G;
+      __tmp__WQO=((__STRING_CONSTANT *)(&__string_315))->storage__VQO;
+      __tmp__ZQO=(__INTEGER)(((__STRING_CONSTANT *)(&__string_315))->count__DD -  1);
       Self__H4O=((__CHARACTER *)__tmp__WQO);
       i__T4O=__tmp__ZQO;
       while ((! ((i__T4O <  0) || (ch__TQO == Self__H4O[i__T4O])))) {
@@ -29990,13 +30284,13 @@ static __BOOLEAN read_operator__HNM()
       __tmp__GOM=(i__T4O <  0);
     };
     if ((! __tmp__GOM)) {
-      result__YJ5G='\0';
+      result__2S5G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__YJ5G=((__CHARACTER )(( 0)));
+        result__2S5G=((__CHARACTER )(( 0)));
       } else {
-        result__YJ5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__2S5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      add_last__ZLT(string_tmp__VH,result__YJ5G);
+      add_last__ZLT(string_tmp__VH,result__2S5G);
       position__SBC=(__INTEGER)(position__SBC +  1);
       goto until_do__1YM;
     };
@@ -30004,9 +30298,9 @@ static __BOOLEAN read_operator__HNM()
   if ((((__STRING *)string_tmp__VH)->count__WFC !=  0)) {
     last_string__I0C=get__IWB(string_tmp__VH);
     if (((((void *)last_string__I0C == (void *)(&__string_12)) || ((void *)last_string__I0C == (void *)(&__string_14))) || ((void *)last_string__I0C == (void *)(&__string_13)))) {
-      pos__3QXG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_282));
-      put_position__UOG(pos__3QXG);
+      pos__W1XG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_285));
+      put_position__UOG(pos__W1XG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -30038,7 +30332,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
   while ((Self__OWO <= __tmp__HEO)) {
     c__CEO=((__CHARACTER *)((__STRING_CONSTANT *)op__AEO)->storage__VQO)[(__INTEGER)(Self__OWO -  1)];
     if ((c__CEO == '+')) {
-      append__BOS(string_tmp__VH,(&__string_185));
+      append__BOS(string_tmp__VH,(&__string_188));
       __tmp__VEO=TRUE__;
     } else {
       __tmp__VEO=FALSE__;
@@ -30048,7 +30342,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__DQHB=(c__CEO == '-');
       if (result__DQHB) {
-        append__BOS(string_tmp__VH,(&__string_186));
+        append__BOS(string_tmp__VH,(&__string_189));
       };
       __tmp__CFO=result__DQHB;
     };
@@ -30057,7 +30351,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__VQHB=(c__CEO == '~');
       if (result__VQHB) {
-        append__BOS(string_tmp__VH,(&__string_187));
+        append__BOS(string_tmp__VH,(&__string_190));
       };
       __tmp__PFO=result__VQHB;
     };
@@ -30066,7 +30360,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__HRHB=(c__CEO == '!');
       if (result__HRHB) {
-        append__BOS(string_tmp__VH,(&__string_188));
+        append__BOS(string_tmp__VH,(&__string_191));
       };
       __tmp__2FO=result__HRHB;
     };
@@ -30075,7 +30369,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__ZRHB=(c__CEO == '/');
       if (result__ZRHB) {
-        append__BOS(string_tmp__VH,(&__string_189));
+        append__BOS(string_tmp__VH,(&__string_192));
       };
       __tmp__JGO=result__ZRHB;
     };
@@ -30084,7 +30378,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__LSHB=(c__CEO == '*');
       if (result__LSHB) {
-        append__BOS(string_tmp__VH,(&__string_190));
+        append__BOS(string_tmp__VH,(&__string_193));
       };
       __tmp__WGO=result__LSHB;
     };
@@ -30093,7 +30387,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__3SHB=(c__CEO == '^');
       if (result__3SHB) {
-        append__BOS(string_tmp__VH,(&__string_191));
+        append__BOS(string_tmp__VH,(&__string_194));
       };
       __tmp__DHO=result__3SHB;
     };
@@ -30102,7 +30396,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__PTHB=(c__CEO == '%');
       if (result__PTHB) {
-        append__BOS(string_tmp__VH,(&__string_192));
+        append__BOS(string_tmp__VH,(&__string_195));
       };
       __tmp__QHO=result__PTHB;
     };
@@ -30111,7 +30405,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__BUHB=(c__CEO == '>');
       if (result__BUHB) {
-        append__BOS(string_tmp__VH,(&__string_193));
+        append__BOS(string_tmp__VH,(&__string_196));
       };
       __tmp__3HO=result__BUHB;
     };
@@ -30120,7 +30414,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__TUHB=(c__CEO == '<');
       if (result__TUHB) {
-        append__BOS(string_tmp__VH,(&__string_194));
+        append__BOS(string_tmp__VH,(&__string_197));
       };
       __tmp__KIO=result__TUHB;
     };
@@ -30129,7 +30423,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__FVHB=(c__CEO == '=');
       if (result__FVHB) {
-        append__BOS(string_tmp__VH,(&__string_195));
+        append__BOS(string_tmp__VH,(&__string_198));
       };
       __tmp__XIO=result__FVHB;
     };
@@ -30138,7 +30432,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__XVHB=(c__CEO == '\\');
       if (result__XVHB) {
-        append__BOS(string_tmp__VH,(&__string_196));
+        append__BOS(string_tmp__VH,(&__string_199));
       };
       __tmp__EJO=result__XVHB;
     };
@@ -30147,7 +30441,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__JWHB=(c__CEO == '|');
       if (result__JWHB) {
-        append__BOS(string_tmp__VH,(&__string_197));
+        append__BOS(string_tmp__VH,(&__string_200));
       };
       __tmp__RJO=result__JWHB;
     };
@@ -30156,7 +30450,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__1WHB=(c__CEO == '&');
       if (result__1WHB) {
-        append__BOS(string_tmp__VH,(&__string_198));
+        append__BOS(string_tmp__VH,(&__string_201));
       };
       __tmp__4JO=result__1WHB;
     };
@@ -30165,7 +30459,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__NXHB=(c__CEO == '$');
       if (result__NXHB) {
-        append__BOS(string_tmp__VH,(&__string_199));
+        append__BOS(string_tmp__VH,(&__string_202));
       };
       __tmp__LKO=result__NXHB;
     };
@@ -30174,7 +30468,7 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__5XHB=(c__CEO == '#');
       if (result__5XHB) {
-        append__BOS(string_tmp__VH,(&__string_200));
+        append__BOS(string_tmp__VH,(&__string_203));
       };
       __tmp__YKO=result__5XHB;
     };
@@ -30183,13 +30477,13 @@ static void* operator__name__3DO(void *typ__5DO,void *op__AEO)
     } else {
       result__RYHB=(c__CEO == '@');
       if (result__RYHB) {
-        append__BOS(string_tmp__VH,(&__string_201));
+        append__BOS(string_tmp__VH,(&__string_204));
       };
       __tmp__FLO=result__RYHB;
     };
     if ((! __tmp__FLO)) {
       if ((c__CEO == '?')) {
-        append__BOS(string_tmp__VH,(&__string_202));
+        append__BOS(string_tmp__VH,(&__string_205));
       };
     };
     Self__OWO=(__INTEGER)(Self__OWO +  1);
@@ -30205,174 +30499,6 @@ static void append_in__SIBC(__ITM_TYPE_MULTI *Self__TIBC,void *buffer__UIBC)
   add_last__ZLT(buffer__UIBC,')');
 }
 
-static void append_in__OGPD(__ITM_TYPE_BLOCK *Self__PGPD,void *buffer__QGPD)
-// ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  void *typ_mul__RGPD,*__tmp__DHPD;
-  void *__tmp__YGPD,*__tmp__CHPD,*__tmp__JHPD;
-  __ITM_TYPE_STYLE *Self__XYEH,*Self__ZYEH;
-  typ_mul__RGPD=NULL;
-  add_last__ZLT(buffer__QGPD,'{');
-  if (((void *)Self__PGPD->type_argument__WMN != (void *)NULL)) {
-    __tmp__YGPD=Self__PGPD->type_argument__WMN;
-    switch (((struct ___OBJ *)__tmp__YGPD)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__BOS(buffer__QGPD,((__ITM_TYPE_PARAMETER *)__tmp__YGPD)->parent_itm_type__3DE.name__KYP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__BOS(buffer__QGPD,((__ITM_TYPE_SIMPLE *)__tmp__YGPD)->name__KYP);
-    } break;
-    case __ITM_TYPE_MULTI__: {
-      append_in__SIBC(__tmp__YGPD,buffer__QGPD);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__OGPD(__tmp__YGPD,buffer__QGPD);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__SHPD(__tmp__YGPD,buffer__QGPD);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__XYEH=((__ITM_TYPE_STYLE *)__tmp__YGPD);
-      if (((void *)Self__XYEH->style__TYP != (void *)NULL)) {
-        append__BOS(buffer__QGPD,Self__XYEH->style__TYP);
-        add_last__ZLT(buffer__QGPD,' ');
-      };
-      append__BOS(buffer__QGPD,Self__XYEH->parent_itm_type_simple__BSN.name__KYP);
-    } break;
-    };
-    add_last__ZLT(buffer__QGPD,';');
-    add_last__ZLT(buffer__QGPD,' ');
-  };
-  if (((void *)Self__PGPD->type_result__ANN != (void *)NULL)) {
-    __tmp__CHPD=Self__PGPD->type_result__ANN;
-    if (__tmp__CHPD==NULL) {
-      __tmp__DHPD=NULL;
-    } else {
-      switch (((struct ___OBJ *)__tmp__CHPD)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        __tmp__DHPD=NULL;
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        __tmp__DHPD=NULL;
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        __tmp__DHPD=((void *)__tmp__CHPD);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        __tmp__DHPD=NULL;
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        __tmp__DHPD=NULL;
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        __tmp__DHPD=NULL;
-      } break;
-      }
-    };
-    typ_mul__RGPD=__tmp__DHPD;
-    if (((void *)__tmp__DHPD == (void *)NULL)) {
-      __tmp__JHPD=Self__PGPD->type_result__ANN;
-      switch (((struct ___OBJ *)__tmp__JHPD)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        append__BOS(buffer__QGPD,((__ITM_TYPE_PARAMETER *)__tmp__JHPD)->parent_itm_type__3DE.name__KYP);
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        append__BOS(buffer__QGPD,((__ITM_TYPE_SIMPLE *)__tmp__JHPD)->name__KYP);
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        append_in__SIBC(__tmp__JHPD,buffer__QGPD);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        append_in__OGPD(__tmp__JHPD,buffer__QGPD);
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        append_in__SHPD(__tmp__JHPD,buffer__QGPD);
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        Self__ZYEH=((__ITM_TYPE_STYLE *)__tmp__JHPD);
-        if (((void *)Self__ZYEH->style__TYP != (void *)NULL)) {
-          append__BOS(buffer__QGPD,Self__ZYEH->style__TYP);
-          add_last__ZLT(buffer__QGPD,' ');
-        };
-        append__BOS(buffer__QGPD,Self__ZYEH->parent_itm_type_simple__BSN.name__KYP);
-      } break;
-      };
-    } else {
-      display_raw__TLIC(__tmp__DHPD,buffer__QGPD);
-    };
-  };
-  add_last__ZLT(buffer__QGPD,'}');
-}
-
-static void append_in__SHPD(__ITM_TYPE_GENERIC *Self__THPD,void *buffer__UHPD)
-// ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  __INTEGER __tmp__FIPD,Self__2XUD;
-  void *__tmp__MIPD,*__tmp__PIPD;
-  __ITM_TYPE_STYLE *Self__BZEH,*Self__RIPD;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__5VCH;
-  if (((void *)Self__THPD->parent_itm_type_style__CSN.style__TYP != (void *)NULL)) {
-    append__BOS(buffer__UHPD,Self__THPD->parent_itm_type_style__CSN.style__TYP);
-    add_last__ZLT(buffer__UHPD,' ');
-  };
-  append__BOS(buffer__UHPD,Self__THPD->parent_itm_type_style__CSN.parent_itm_type_simple__BSN.name__KYP);
-  add_last__ZLT(buffer__UHPD,'(');
-  __tmp__FIPD=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__THPD->list_type__3YP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
-  Self__2XUD= 0;
-  while ((Self__2XUD <= __tmp__FIPD)) {
-    __tmp__MIPD=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__THPD->list_type__3YP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__2XUD];
-    switch (((struct ___OBJ *)__tmp__MIPD)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__BOS(buffer__UHPD,((__ITM_TYPE_PARAMETER *)__tmp__MIPD)->parent_itm_type__3DE.name__KYP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__BOS(buffer__UHPD,((__ITM_TYPE_SIMPLE *)__tmp__MIPD)->name__KYP);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__OGPD(__tmp__MIPD,buffer__UHPD);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__SHPD(__tmp__MIPD,buffer__UHPD);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__BZEH=((__ITM_TYPE_STYLE *)__tmp__MIPD);
-      if (((void *)Self__BZEH->style__TYP != (void *)NULL)) {
-        append__BOS(buffer__UHPD,Self__BZEH->style__TYP);
-        add_last__ZLT(buffer__UHPD,' ');
-      };
-      append__BOS(buffer__UHPD,Self__BZEH->parent_itm_type_simple__BSN.name__KYP);
-    } break;
-    };
-    add_last__ZLT(buffer__UHPD,',');
-    Self__2XUD=(__INTEGER)(Self__2XUD +  1);
-  };
-  Self__5VCH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__THPD->list_type__3YP);
-  __tmp__PIPD=((void **)Self__5VCH->parent_arrayed_collection__ZXC.storage__RMV)[Self__5VCH->parent_arrayed_collection__ZXC.upper__KIV];
-  switch (((struct ___OBJ *)__tmp__PIPD)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    append__BOS(buffer__UHPD,((__ITM_TYPE_PARAMETER *)__tmp__PIPD)->parent_itm_type__3DE.name__KYP);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    append__BOS(buffer__UHPD,((__ITM_TYPE_SIMPLE *)__tmp__PIPD)->name__KYP);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    append_in__OGPD(__tmp__PIPD,buffer__UHPD);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    append_in__SHPD(__tmp__PIPD,buffer__UHPD);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__RIPD=((__ITM_TYPE_STYLE *)__tmp__PIPD);
-    if (((void *)Self__RIPD->style__TYP != (void *)NULL)) {
-      append__BOS(buffer__UHPD,Self__RIPD->style__TYP);
-      add_last__ZLT(buffer__UHPD,' ');
-    };
-    append__BOS(buffer__UHPD,Self__RIPD->parent_itm_type_simple__BSN.name__KYP);
-  } break;
-  };
-  add_last__ZLT(buffer__UHPD,')');
-}
-
 static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
 // ({PARSER},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
@@ -30380,34 +30506,34 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
   void *result__NON,*result__OUQ;
   __INTEGER old_pos__PON,old_derive__QON,sav_derive__RON;
   __INTEGER pos_before__SON,idx__RXP,typ_id__0OIB,new_capacity__HGBB;
-  __INTEGER __tmp__LHBB,__tmp__EPFC,Self__5ZVD,typ_id__XJGH,idx__AOR;
+  __INTEGER __tmp__LHBB,__tmp__EPFC,Self__5ZVD,typ_id__ESGH,idx__AOR;
   __INTEGER typ_id__FAJB,new_capacity__OECB,__tmp__SFCB,__tmp__ATFC;
   __INTEGER Self__41VD;
-  __POSITION pos__XSXG,pos__ZSXG,pos__1SXG,pos__3SXG,pos__2UXG;
+  __POSITION pos__12XG,pos__32XG,pos__52XG,pos__B3XG,pos__A5XG;
   __POSITION __tmp__CTN,__tmp__EUN;
   __ITM_TYPE_GENERIC *result__QXP,*__tmp__ZZP,*result__UOIB,*Self__D2CC;
   void *__tmp__YZP;
-  __POINTER ptr__VOIB,ptr_table__JCIH,next__ICIH,result__KCIH;
-  __POINTER ptr_table__OCIH,next__NCIH,result__PCIH,ptr__WJGH;
-  __POINTER ptr_table__WCIH,next__VCIH,result__XCIH,ptr_table__1CIH;
-  __POINTER next__0CIH,result__2CIH,ptr__AAJB,ptr_table__ADIH;
-  __POINTER next__5CIH,result__BDIH,ptr_table__FDIH,next__EDIH;
-  __POINTER result__GDIH;
-  __UINTEGER_32 sz__XOIB,a__EZEH,new_size__FZEH,t__JZEH,a__IZEH;
-  __UINTEGER_32 new_size__RCIH,lab_type__QCIH,sz__YJGH,a__ZJGH;
-  __UINTEGER_32 new_size__0JGH,t__1JGH,a__2JGH,new_size__4CIH;
-  __UINTEGER_32 lab_type__3CIH,sz__CAJB,a__SZEH,new_size__TZEH,t__XZEH;
-  __UINTEGER_32 a__WZEH,new_size__IDIH,lab_type__HDIH;
-  void *result__DWCH;
-  __ITM_TYPE_PARAMETER *result__VJGH,*Self__3JGH;
+  __POINTER ptr__VOIB,ptr_table__CKIH,next__BKIH,result__DKIH;
+  __POINTER ptr_table__HKIH,next__GKIH,result__IKIH,ptr__DSGH;
+  __POINTER ptr_table__PKIH,next__OKIH,result__QKIH,ptr_table__UKIH;
+  __POINTER next__TKIH,result__VKIH,ptr__AAJB,ptr_table__ZKIH;
+  __POINTER next__YKIH,result__0KIH,ptr_table__4KIH,next__3KIH;
+  __POINTER result__5KIH;
+  __UINTEGER_32 sz__XOIB,a__JBFH,new_size__KBFH,t__OBFH,a__NBFH;
+  __UINTEGER_32 new_size__KKIH,lab_type__JKIH,sz__FSGH,a__GSGH;
+  __UINTEGER_32 new_size__HSGH,t__ISGH,a__JSGH,new_size__XKIH;
+  __UINTEGER_32 lab_type__WKIH,sz__CAJB,a__XBFH,new_size__YBFH,t__2BFH;
+  __UINTEGER_32 a__1BFH,new_size__BLIH,lab_type__ALIH;
+  void *result__L5CH;
+  __ITM_TYPE_PARAMETER *result__CSGH,*Self__KSGH;
   __ITM_TYPE_STYLE *result__5NR,*__tmp__1PR,*result__55IB,*Self__V5CC;
   void *__tmp__0PR;
-  void *genericity__MON,*result__5XFH,*lt__OXP;
-  __BOOLEAN continue__TON,result__5BIH,result__CCIH,__tmp__AVQ;
-  __BOOLEAN result__FCIH,__tmp__VGBB,result__SCIH,__tmp__JTN;
+  void *genericity__MON,*result__MAGH,*lt__OXP;
+  __BOOLEAN continue__TON,result__YJIH,result__1JIH,__tmp__AVQ;
+  __BOOLEAN result__4JIH,__tmp__VGBB,result__LKIH,__tmp__JTN;
   __BOOLEAN __tmp__2ECB;
-  __CHARACTER result__ACIH,result__DCIH,result__GCIH,result__TCIH;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__AYFH,*Self__BYFH;
+  __CHARACTER result__ZJIH,result__2JIH,result__5JIH,result__MKIH;
+  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__NAGH,*Self__OAGH;
   __FAST_ARRAYoITM_TYPE_GENERICo *Self__FGBB;
   void **__tmp__KHBB,**new__QOFC;
   __FAST_ARRAYoITM_TYPE_STYLEo *Self__MECB;
@@ -30428,9 +30554,9 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
       continue__TON=read_word__QPF((&__string_7));
       if (continue__TON) {
         if ((! read_cap_identifier__SZJ())) {
-          pos__XSXG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_313));
-          put_position__UOG(pos__XSXG);
+          pos__12XG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_316));
+          put_position__UOG(pos__12XG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -30440,22 +30566,22 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
         append__BOS(string_tmp2__BAJ,last_string__I0C);
       } else {
         pos_before__SON=position__SBC;
-        result__5BIH=FALSE__;
+        result__YJIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__5BIH=FALSE__;
+          result__YJIH=FALSE__;
         } else {
-          result__ACIH='\0';
+          result__ZJIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__ACIH=((__CHARACTER )(( 0)));
+            result__ZJIH=((__CHARACTER )(( 0)));
           } else {
-            result__ACIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__ZJIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__ACIH == '.')) {
+          if ((result__ZJIH == '.')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__5BIH=TRUE__;
+            result__YJIH=TRUE__;
           };
         };
-        if ((result__5BIH && read_cap_identifier__SZJ())) {
+        if ((result__YJIH && read_cap_identifier__SZJ())) {
           continue__TON=TRUE__;
           add_last__ZLT(string_tmp2__BAJ,'.');
           append__BOS(string_tmp2__BAJ,last_string__I0C);
@@ -30465,39 +30591,39 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
       };
     } while (continue__TON);
     nam__LON=get__IWB(string_tmp2__BAJ);
-    result__CCIH=FALSE__;
+    result__1JIH=FALSE__;
     if ((! read_space__3RD())) {
-      result__CCIH=FALSE__;
+      result__1JIH=FALSE__;
     } else {
-      result__DCIH='\0';
+      result__2JIH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__DCIH=((__CHARACTER )(( 0)));
+        result__2JIH=((__CHARACTER )(( 0)));
       } else {
-        result__DCIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__2JIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__DCIH == '(')) {
+      if ((result__2JIH == '(')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__CCIH=TRUE__;
+        result__1JIH=TRUE__;
       };
     };
-    if (result__CCIH) {
-      result__5XFH=NULL;
+    if (result__1JIH) {
+      result__MAGH=NULL;
       if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP)->parent_arrayed_collection__JUP.upper__FVV <  0)) {
-        result__5XFH=create_with_capacity__IFR( 16);
+        result__MAGH=create_with_capacity__IFR( 16);
       } else {
-        Self__AYFH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
-        result__5XFH=((void **)Self__AYFH->parent_arrayed_collection__JUP.storage__1ZV)[Self__AYFH->parent_arrayed_collection__JUP.upper__FVV];
-        Self__BYFH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
-        Self__BYFH->parent_arrayed_collection__JUP.upper__FVV=(__INTEGER)(Self__BYFH->parent_arrayed_collection__JUP.upper__FVV -  1);
+        Self__NAGH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
+        result__MAGH=((void **)Self__NAGH->parent_arrayed_collection__JUP.storage__1ZV)[Self__NAGH->parent_arrayed_collection__JUP.upper__FVV];
+        Self__OAGH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__KUP);
+        Self__OAGH->parent_arrayed_collection__JUP.upper__FVV=(__INTEGER)(Self__OAGH->parent_arrayed_collection__JUP.upper__FVV -  1);
       };
-      genericity__MON=result__5XFH;
+      genericity__MON=result__MAGH;
       do {
         result__OUQ=read_type__DCM(Self__ION,FALSE__);
         if (((void *)result__OUQ == (void *)NULL)) {
           if (((void *)read_constant__1QO() != (void *)NULL)) {
-            pos__ZSXG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_314));
-            put_position__UOG(pos__ZSXG);
+            pos__32XG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_317));
+            put_position__UOG(pos__32XG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -30508,9 +30634,9 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
           };
           if ((! __tmp__AVQ)) {
             if (read_identifier__LAL()) {
-              pos__1SXG=current_position__JXF();
-              put_error__text__KNG( 0,(&__string_315));
-              put_position__UOG(pos__1SXG);
+              pos__52XG=current_position__JXF();
+              put_error__text__KNG( 0,(&__string_318));
+              put_position__UOG(pos__52XG);
               put_string__U1F(msg_err__PNG);
               if ((type_error__ONG !=  2)) {
                 exit(( 1));
@@ -30519,32 +30645,32 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
           };
         };
         if (((void *)result__OUQ == (void *)NULL)) {
-          pos__3SXG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_255));
-          put_position__UOG(pos__3SXG);
+          pos__B3XG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_258));
+          put_position__UOG(pos__B3XG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
         add_last__0NV(genericity__MON,result__OUQ);
-        result__FCIH=FALSE__;
+        result__4JIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__FCIH=FALSE__;
+          result__4JIH=FALSE__;
         } else {
-          result__GCIH='\0';
+          result__5JIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__GCIH=((__CHARACTER )(( 0)));
+            result__5JIH=((__CHARACTER )(( 0)));
           } else {
-            result__GCIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__5JIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__GCIH == ',')) {
+          if ((result__5JIH == ',')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__FCIH=TRUE__;
+            result__4JIH=TRUE__;
           };
         };
-      } while (result__FCIH);
-      genericity__MON=alias__GVP(result__5XFH);
+      } while (result__4JIH);
+      genericity__MON=alias__GVP(result__MAGH);
       n__MXP=nam__LON;
       lt__OXP=genericity__MON;
       result__QXP=NULL;
@@ -30571,61 +30697,61 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
           typ_id__0OIB=-1;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XOIB);
           if ((typ_id__0OIB == (__INTEGER)(-  1))) {
-            a__EZEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__FZEH=(__UINTEGER_32)((__UINTEGER_32)(sz__XOIB + a__EZEH) & (__UINTEGER_32)(~ a__EZEH));
-            ptr_table__JCIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FZEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__ICIH=((__POINTER )(NULL));
-            result__KCIH=((__POINTER *)ptr_table__JCIH)[ 0];
-            if ((result__KCIH == (void *)NULL)) {
-              result__KCIH=new_lab__MRJ(new_size__FZEH);
-              next__ICIH=(void *)((unsigned long)result__KCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FZEH)));
-              ((__POINTER *)next__ICIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__JCIH)[ 0]=next__ICIH;
+            a__JBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__KBFH=(__UINTEGER_32)((__UINTEGER_32)(sz__XOIB + a__JBFH) & (__UINTEGER_32)(~ a__JBFH));
+            ptr_table__CKIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KBFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__BKIH=((__POINTER )(NULL));
+            result__DKIH=((__POINTER *)ptr_table__CKIH)[ 0];
+            if ((result__DKIH == (void *)NULL)) {
+              result__DKIH=new_lab__MRJ(new_size__KBFH);
+              next__BKIH=(void *)((unsigned long)result__DKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KBFH)));
+              ((__POINTER *)next__BKIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__CKIH)[ 0]=next__BKIH;
             } else {
-              next__ICIH=((__POINTER *)result__KCIH)[ 0];
-              if ((next__ICIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KCIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FZEH <<  1)) <=  4096)) {
-                  next__ICIH=(void *)((unsigned long)result__KCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FZEH)));
+              next__BKIH=((__POINTER *)result__DKIH)[ 0];
+              if ((next__BKIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KBFH <<  1)) <=  4096)) {
+                  next__BKIH=(void *)((unsigned long)result__DKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KBFH)));
                 } else {
-                  next__ICIH=new_lab__MRJ(new_size__FZEH);
+                  next__BKIH=new_lab__MRJ(new_size__KBFH);
                 };
-                ((__POINTER *)next__ICIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__JCIH)[ 0]=next__ICIH;
+                ((__POINTER *)next__BKIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__CKIH)[ 0]=next__BKIH;
               } else {
-                ((__POINTER *)result__KCIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ICIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__KCIH=next__ICIH;
+                ((__POINTER *)result__DKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__DKIH=next__BKIH;
               };
             };
-            ptr__VOIB=result__KCIH;
-          } else {
-            t__JZEH=((__UINTEGER_32 )typ_id__0OIB);
-            a__IZEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__RCIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XOIB + a__IZEH) & (__UINTEGER_32)(~ a__IZEH));
-            ptr_table__OCIH=((__POINTER )(&(table_type[(t__JZEH)])));
-            lab_type__QCIH=(__UINTEGER_32)(t__JZEH |  1);
-            next__NCIH=((__POINTER )(NULL));
-            result__PCIH=((__POINTER *)ptr_table__OCIH)[ 0];
-            if ((result__PCIH == (void *)NULL)) {
-              result__PCIH=new_lab__MRJ(lab_type__QCIH);
-              next__NCIH=(void *)((unsigned long)result__PCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCIH)));
-              ((__POINTER *)next__NCIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__OCIH)[ 0]=next__NCIH;
+            ptr__VOIB=result__DKIH;
+          } else {
+            t__OBFH=((__UINTEGER_32 )typ_id__0OIB);
+            a__NBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__KKIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XOIB + a__NBFH) & (__UINTEGER_32)(~ a__NBFH));
+            ptr_table__HKIH=((__POINTER )(&(table_type[(t__OBFH)])));
+            lab_type__JKIH=(__UINTEGER_32)(t__OBFH |  1);
+            next__GKIH=((__POINTER )(NULL));
+            result__IKIH=((__POINTER *)ptr_table__HKIH)[ 0];
+            if ((result__IKIH == (void *)NULL)) {
+              result__IKIH=new_lab__MRJ(lab_type__JKIH);
+              next__GKIH=(void *)((unsigned long)result__IKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KKIH)));
+              ((__POINTER *)next__GKIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__HKIH)[ 0]=next__GKIH;
             } else {
-              next__NCIH=((__POINTER *)result__PCIH)[ 0];
-              if ((next__NCIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PCIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RCIH <<  1)) <=  4096)) {
-                  next__NCIH=(void *)((unsigned long)result__PCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCIH)));
+              next__GKIH=((__POINTER *)result__IKIH)[ 0];
+              if ((next__GKIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KKIH <<  1)) <=  4096)) {
+                  next__GKIH=(void *)((unsigned long)result__IKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KKIH)));
                 } else {
-                  next__NCIH=new_lab__MRJ(lab_type__QCIH);
+                  next__GKIH=new_lab__MRJ(lab_type__JKIH);
                 };
-                ((__POINTER *)next__NCIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OCIH)[ 0]=next__NCIH;
+                ((__POINTER *)next__GKIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__HKIH)[ 0]=next__GKIH;
               } else {
-                ((__POINTER *)result__PCIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NCIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__PCIH=next__NCIH;
+                ((__POINTER *)result__IKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__IKIH=next__GKIH;
               };
             };
-            ptr__VOIB=result__PCIH;
+            ptr__VOIB=result__IKIH;
           };
           result__UOIB=((__ITM_TYPE_GENERIC *)ptr__VOIB);
           *(result__UOIB) = *(ITM_TYPE_GENERIC__);
@@ -30667,25 +30793,25 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
         ((void **)Self__FGBB->parent_arrayed_collection__WXP.storage__4BW)[Self__FGBB->parent_arrayed_collection__WXP.upper__AYP]=result__UOIB;
       };
       result__NON=result__QXP;
-      result__SCIH=FALSE__;
+      result__LKIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__SCIH=FALSE__;
+        result__LKIH=FALSE__;
       } else {
-        result__TCIH='\0';
+        result__MKIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__TCIH=((__CHARACTER )(( 0)));
+          result__MKIH=((__CHARACTER )(( 0)));
         } else {
-          result__TCIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__MKIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__TCIH == ')')) {
+        if ((result__MKIH == ')')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__SCIH=TRUE__;
+          result__LKIH=TRUE__;
         };
       };
-      if ((! result__SCIH)) {
-        pos__2UXG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_258));
-        put_position__UOG(pos__2UXG);
+      if ((! result__LKIH)) {
+        pos__A5XG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_261));
+        put_position__UOG(pos__A5XG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -30694,9 +30820,9 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
     } else {
       if (is_parameter_type__IKE) {
         if (((void *)styl__JON != (void *)NULL)) {
-          copy__ZCS(string_tmp__VH,(&__string_316));
+          copy__ZCS(string_tmp__VH,(&__string_319));
           append__BOS(string_tmp__VH,styl__JON);
-          append__BOS(string_tmp__VH,(&__string_317));
+          append__BOS(string_tmp__VH,(&__string_320));
           __tmp__CTN=current_position__JXF();
           put_error__text__KNG( 2,string_tmp__VH);
           put_position__UOG(__tmp__CTN);
@@ -30705,83 +30831,83 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
             exit(( 1));
           };
         };
-        result__DWCH=fast_reference_at__Y1T(dico__STI,nam__LON);
-        if (((void *)result__DWCH == (void *)NULL)) {
-          result__VJGH=NULL;
-          ptr__WJGH=((__POINTER )(NULL));
-          typ_id__XJGH= 0;
-          sz__YJGH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-          if ((sz__YJGH ==  0)) {
-            result__VJGH=ITM_TYPE_PARAMETER__;
-          } else {
-            typ_id__XJGH=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YJGH);
-            if ((typ_id__XJGH == (__INTEGER)(-  1))) {
-              a__ZJGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__0JGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YJGH + a__ZJGH) & (__UINTEGER_32)(~ a__ZJGH));
-              ptr_table__WCIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0JGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__VCIH=((__POINTER )(NULL));
-              result__XCIH=((__POINTER *)ptr_table__WCIH)[ 0];
-              if ((result__XCIH == (void *)NULL)) {
-                result__XCIH=new_lab__MRJ(new_size__0JGH);
-                next__VCIH=(void *)((unsigned long)result__XCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JGH)));
-                ((__POINTER *)next__VCIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__WCIH)[ 0]=next__VCIH;
+        result__L5CH=fast_reference_at__Y1T(dico__STI,nam__LON);
+        if (((void *)result__L5CH == (void *)NULL)) {
+          result__CSGH=NULL;
+          ptr__DSGH=((__POINTER )(NULL));
+          typ_id__ESGH= 0;
+          sz__FSGH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
+          if ((sz__FSGH ==  0)) {
+            result__CSGH=ITM_TYPE_PARAMETER__;
+          } else {
+            typ_id__ESGH=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FSGH);
+            if ((typ_id__ESGH == (__INTEGER)(-  1))) {
+              a__GSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__HSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__FSGH + a__GSGH) & (__UINTEGER_32)(~ a__GSGH));
+              ptr_table__PKIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__OKIH=((__POINTER )(NULL));
+              result__QKIH=((__POINTER *)ptr_table__PKIH)[ 0];
+              if ((result__QKIH == (void *)NULL)) {
+                result__QKIH=new_lab__MRJ(new_size__HSGH);
+                next__OKIH=(void *)((unsigned long)result__QKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSGH)));
+                ((__POINTER *)next__OKIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__PKIH)[ 0]=next__OKIH;
               } else {
-                next__VCIH=((__POINTER *)result__XCIH)[ 0];
-                if ((next__VCIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XCIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__0JGH <<  1)) <=  4096)) {
-                    next__VCIH=(void *)((unsigned long)result__XCIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JGH)));
+                next__OKIH=((__POINTER *)result__QKIH)[ 0];
+                if ((next__OKIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HSGH <<  1)) <=  4096)) {
+                    next__OKIH=(void *)((unsigned long)result__QKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSGH)));
                   } else {
-                    next__VCIH=new_lab__MRJ(new_size__0JGH);
+                    next__OKIH=new_lab__MRJ(new_size__HSGH);
                   };
-                  ((__POINTER *)next__VCIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__WCIH)[ 0]=next__VCIH;
+                  ((__POINTER *)next__OKIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__PKIH)[ 0]=next__OKIH;
                 } else {
-                  ((__POINTER *)result__XCIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VCIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__XCIH=next__VCIH;
+                  ((__POINTER *)result__QKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__QKIH=next__OKIH;
                 };
               };
-              ptr__WJGH=result__XCIH;
+              ptr__DSGH=result__QKIH;
             } else {
-              t__1JGH=((__UINTEGER_32 )typ_id__XJGH);
-              a__2JGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__4CIH=(__UINTEGER_32)((__UINTEGER_32)(sz__YJGH + a__2JGH) & (__UINTEGER_32)(~ a__2JGH));
-              ptr_table__1CIH=((__POINTER )(&(table_type[(t__1JGH)])));
-              lab_type__3CIH=(__UINTEGER_32)(t__1JGH |  1);
-              next__0CIH=((__POINTER )(NULL));
-              result__2CIH=((__POINTER *)ptr_table__1CIH)[ 0];
-              if ((result__2CIH == (void *)NULL)) {
-                result__2CIH=new_lab__MRJ(lab_type__3CIH);
-                next__0CIH=(void *)((unsigned long)result__2CIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CIH)));
-                ((__POINTER *)next__0CIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__1CIH)[ 0]=next__0CIH;
+              t__ISGH=((__UINTEGER_32 )typ_id__ESGH);
+              a__JSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__XKIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FSGH + a__JSGH) & (__UINTEGER_32)(~ a__JSGH));
+              ptr_table__UKIH=((__POINTER )(&(table_type[(t__ISGH)])));
+              lab_type__WKIH=(__UINTEGER_32)(t__ISGH |  1);
+              next__TKIH=((__POINTER )(NULL));
+              result__VKIH=((__POINTER *)ptr_table__UKIH)[ 0];
+              if ((result__VKIH == (void *)NULL)) {
+                result__VKIH=new_lab__MRJ(lab_type__WKIH);
+                next__TKIH=(void *)((unsigned long)result__VKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKIH)));
+                ((__POINTER *)next__TKIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__UKIH)[ 0]=next__TKIH;
               } else {
-                next__0CIH=((__POINTER *)result__2CIH)[ 0];
-                if ((next__0CIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2CIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4CIH <<  1)) <=  4096)) {
-                    next__0CIH=(void *)((unsigned long)result__2CIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CIH)));
+                next__TKIH=((__POINTER *)result__VKIH)[ 0];
+                if ((next__TKIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XKIH <<  1)) <=  4096)) {
+                    next__TKIH=(void *)((unsigned long)result__VKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKIH)));
                   } else {
-                    next__0CIH=new_lab__MRJ(lab_type__3CIH);
+                    next__TKIH=new_lab__MRJ(lab_type__WKIH);
                   };
-                  ((__POINTER *)next__0CIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__1CIH)[ 0]=next__0CIH;
+                  ((__POINTER *)next__TKIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__UKIH)[ 0]=next__TKIH;
                 } else {
-                  ((__POINTER *)result__2CIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0CIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__2CIH=next__0CIH;
+                  ((__POINTER *)result__VKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__VKIH=next__TKIH;
                 };
               };
-              ptr__WJGH=result__2CIH;
+              ptr__DSGH=result__VKIH;
             };
-            result__VJGH=((__ITM_TYPE_PARAMETER *)ptr__WJGH);
-            *(result__VJGH) = *(ITM_TYPE_PARAMETER__);
+            result__CSGH=((__ITM_TYPE_PARAMETER *)ptr__DSGH);
+            *(result__CSGH) = *(ITM_TYPE_PARAMETER__);
           };
-          Self__3JGH=((__ITM_TYPE_PARAMETER *)result__VJGH);
-          Self__3JGH->parent_itm_type__3DE.name__KYP=nam__LON;
-          fast_put__to__TOZ(dico__STI,Self__3JGH,nam__LON);
-          result__DWCH=result__VJGH;
+          Self__KSGH=((__ITM_TYPE_PARAMETER *)result__CSGH);
+          Self__KSGH->parent_itm_type__3DE.name__KYP=nam__LON;
+          fast_put__to__TOZ(dico__STI,Self__KSGH,nam__LON);
+          result__L5CH=result__CSGH;
         };
-        result__NON=result__DWCH;
+        result__NON=result__L5CH;
         __tmp__JTN=TRUE__;
       } else {
         __tmp__JTN=FALSE__;
@@ -30791,9 +30917,9 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
           result__NON=get__DTI(nam__LON);
         } else {
           if (((void *)nam__LON == (void *)(&__string_1))) {
-            copy__ZCS(string_tmp__VH,(&__string_316));
+            copy__ZCS(string_tmp__VH,(&__string_319));
             append__BOS(string_tmp__VH,styl__JON);
-            append__BOS(string_tmp__VH,(&__string_318));
+            append__BOS(string_tmp__VH,(&__string_321));
             __tmp__EUN=current_position__JXF();
             put_error__text__KNG( 2,string_tmp__VH);
             put_position__UOG(__tmp__EUN);
@@ -30828,61 +30954,61 @@ static void* read_prototype__HON(__PARSER *Self__ION,void *styl__JON)
                 typ_id__FAJB=-1;
                 clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__CAJB);
                 if ((typ_id__FAJB == (__INTEGER)(-  1))) {
-                  a__SZEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__TZEH=(__UINTEGER_32)((__UINTEGER_32)(sz__CAJB + a__SZEH) & (__UINTEGER_32)(~ a__SZEH));
-                  ptr_table__ADIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TZEH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                  next__5CIH=((__POINTER )(NULL));
-                  result__BDIH=((__POINTER *)ptr_table__ADIH)[ 0];
-                  if ((result__BDIH == (void *)NULL)) {
-                    result__BDIH=new_lab__MRJ(new_size__TZEH);
-                    next__5CIH=(void *)((unsigned long)result__BDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TZEH)));
-                    ((__POINTER *)next__5CIH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__ADIH)[ 0]=next__5CIH;
+                  a__XBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                  new_size__YBFH=(__UINTEGER_32)((__UINTEGER_32)(sz__CAJB + a__XBFH) & (__UINTEGER_32)(~ a__XBFH));
+                  ptr_table__ZKIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YBFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+                  next__YKIH=((__POINTER )(NULL));
+                  result__0KIH=((__POINTER *)ptr_table__ZKIH)[ 0];
+                  if ((result__0KIH == (void *)NULL)) {
+                    result__0KIH=new_lab__MRJ(new_size__YBFH);
+                    next__YKIH=(void *)((unsigned long)result__0KIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YBFH)));
+                    ((__POINTER *)next__YKIH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__ZKIH)[ 0]=next__YKIH;
                   } else {
-                    next__5CIH=((__POINTER *)result__BDIH)[ 0];
-                    if ((next__5CIH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TZEH <<  1)) <=  4096)) {
-                        next__5CIH=(void *)((unsigned long)result__BDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TZEH)));
+                    next__YKIH=((__POINTER *)result__0KIH)[ 0];
+                    if ((next__YKIH == (void *)NULL)) {
+                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0KIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YBFH <<  1)) <=  4096)) {
+                        next__YKIH=(void *)((unsigned long)result__0KIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YBFH)));
                       } else {
-                        next__5CIH=new_lab__MRJ(new_size__TZEH);
+                        next__YKIH=new_lab__MRJ(new_size__YBFH);
                       };
-                      ((__POINTER *)next__5CIH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__ADIH)[ 0]=next__5CIH;
+                      ((__POINTER *)next__YKIH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__ZKIH)[ 0]=next__YKIH;
                     } else {
-                      ((__POINTER *)result__BDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5CIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__BDIH=next__5CIH;
+                      ((__POINTER *)result__0KIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                      result__0KIH=next__YKIH;
                     };
                   };
-                  ptr__AAJB=result__BDIH;
+                  ptr__AAJB=result__0KIH;
                 } else {
-                  t__XZEH=((__UINTEGER_32 )typ_id__FAJB);
-                  a__WZEH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__IDIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CAJB + a__WZEH) & (__UINTEGER_32)(~ a__WZEH));
-                  ptr_table__FDIH=((__POINTER )(&(table_type[(t__XZEH)])));
-                  lab_type__HDIH=(__UINTEGER_32)(t__XZEH |  1);
-                  next__EDIH=((__POINTER )(NULL));
-                  result__GDIH=((__POINTER *)ptr_table__FDIH)[ 0];
-                  if ((result__GDIH == (void *)NULL)) {
-                    result__GDIH=new_lab__MRJ(lab_type__HDIH);
-                    next__EDIH=(void *)((unsigned long)result__GDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IDIH)));
-                    ((__POINTER *)next__EDIH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__FDIH)[ 0]=next__EDIH;
+                  t__2BFH=((__UINTEGER_32 )typ_id__FAJB);
+                  a__1BFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+                  new_size__BLIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CAJB + a__1BFH) & (__UINTEGER_32)(~ a__1BFH));
+                  ptr_table__4KIH=((__POINTER )(&(table_type[(t__2BFH)])));
+                  lab_type__ALIH=(__UINTEGER_32)(t__2BFH |  1);
+                  next__3KIH=((__POINTER )(NULL));
+                  result__5KIH=((__POINTER *)ptr_table__4KIH)[ 0];
+                  if ((result__5KIH == (void *)NULL)) {
+                    result__5KIH=new_lab__MRJ(lab_type__ALIH);
+                    next__3KIH=(void *)((unsigned long)result__5KIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BLIH)));
+                    ((__POINTER *)next__3KIH)[ 0]=NULL;
+                    ((__POINTER *)ptr_table__4KIH)[ 0]=next__3KIH;
                   } else {
-                    next__EDIH=((__POINTER *)result__GDIH)[ 0];
-                    if ((next__EDIH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IDIH <<  1)) <=  4096)) {
-                        next__EDIH=(void *)((unsigned long)result__GDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IDIH)));
+                    next__3KIH=((__POINTER *)result__5KIH)[ 0];
+                    if ((next__3KIH == (void *)NULL)) {
+                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5KIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BLIH <<  1)) <=  4096)) {
+                        next__3KIH=(void *)((unsigned long)result__5KIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BLIH)));
                       } else {
-                        next__EDIH=new_lab__MRJ(lab_type__HDIH);
+                        next__3KIH=new_lab__MRJ(lab_type__ALIH);
                       };
-                      ((__POINTER *)next__EDIH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__FDIH)[ 0]=next__EDIH;
+                      ((__POINTER *)next__3KIH)[ 0]=NULL;
+                      ((__POINTER *)ptr_table__4KIH)[ 0]=next__3KIH;
                     } else {
-                      ((__POINTER *)result__GDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EDIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__GDIH=next__EDIH;
+                      ((__POINTER *)result__5KIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3KIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                      result__5KIH=next__3KIH;
                     };
                   };
-                  ptr__AAJB=result__GDIH;
+                  ptr__AAJB=result__5KIH;
                 };
                 result__55IB=((__ITM_TYPE_STYLE *)ptr__AAJB);
                 *(result__55IB) = *(ITM_TYPE_STYLE__);
@@ -30945,50 +31071,50 @@ static void read_def_local__30H(__PARSER *Self__40H)
 // ({PARSER}) VoidNo recursive, No inlinable.
 {
   __INTEGER beg__SYK,typ_id__XWN,Self__0FAB,limit_up__1FAB,__tmp__W2K;
-  __INTEGER Self__H3N,__tmp__GKGH,Self__HKGH,__tmp__2APD,Self__QQUD;
-  __POSITION pos__IXXG,__tmp__4ZK,pos__QXXG,pos__3XXG,pos__EYXG;
+  __INTEGER Self__H3N,__tmp__TSGH,Self__USGH,__tmp__2APD,Self__QQUD;
+  __POSITION pos__MBYG,__tmp__4ZK,pos__UBYG,pos__BCYG,pos__ICYG;
   void *__tmp__5ZK;
   __ITM_LOCAL *result__RWN,*Self__0DV;
-  __POINTER ptr__SWN,ptr_table__KDIH,next__JDIH,result__LDIH;
-  __POINTER ptr_table__PDIH,next__ODIH,result__QDIH;
-  __UINTEGER_32 sz__UWN,a__I0EH,new_size__J0EH,t__N0EH,a__M0EH;
-  __UINTEGER_32 new_size__SDIH,lab_type__RDIH;
-  __CHARACTER styl__I1H,result__UDIH,result__MN5G,result__XDIH;
-  __CHARACTER result__0DIH;
-  void *result__5JGH,*local_list__G1H,*result__CKGH,*static_list__H1H;
+  __POINTER ptr__SWN,ptr_table__DLIH,next__CLIH,result__ELIH;
+  __POINTER ptr_table__ILIH,next__HLIH,result__JLIH;
+  __UINTEGER_32 sz__UWN,a__NCFH,new_size__OCFH,t__SCFH,a__RCFH;
+  __UINTEGER_32 new_size__LLIH,lab_type__KLIH;
+  __CHARACTER styl__I1H,result__NLIH,result__QW5G,result__QLIH;
+  __CHARACTER result__TLIH;
+  void *result__MSGH,*local_list__G1H,*result__PSGH,*static_list__H1H;
   void *result__RYK,*result__PRI;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__AKGH,*Self__BKGH;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__DKGH,*Self__EKGH,*Self__ER4;
+  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__NSGH,*Self__OSGH;
+  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__QSGH,*Self__RSGH,*Self__ER4;
   __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__0R4;
-  __BOOLEAN mute__TYK,result__TDIH,__tmp__K0K,result__WDIH,result__ZDIH;
-  __FAST_ARRAYoITM_LOCALo *Self__IKGH,*Self__RAPD;
-  void *other__FKGH,*other__SAPD;
+  __BOOLEAN mute__TYK,result__MLIH,__tmp__K0K,result__PLIH,result__SLIH;
+  __FAST_ARRAYoITM_LOCALo *Self__VSGH,*Self__RAPD;
+  void *other__SSGH,*other__SAPD;
   old_position__DRI=position__SBC;
   old_pos_cur__FRI=pos_cur__VBC;
   old_pos_line__HRI=pos_line__WBC;
   old_pos_col__JRI=pos_col__XBC;
   old_short_derive__LRI=short_derive__BCC;
   styl__I1H=read_style__XRF();
-  result__5JGH=NULL;
+  result__MSGH=NULL;
   if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI)->parent_arrayed_collection__URI.upper__J1T <  0)) {
-    result__5JGH=create_with_capacity__QJK( 16);
+    result__MSGH=create_with_capacity__QJK( 16);
   } else {
-    Self__AKGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
-    result__5JGH=((void **)Self__AKGH->parent_arrayed_collection__URI.storage__HJU)[Self__AKGH->parent_arrayed_collection__URI.upper__J1T];
-    Self__BKGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
-    Self__BKGH->parent_arrayed_collection__URI.upper__J1T=(__INTEGER)(Self__BKGH->parent_arrayed_collection__URI.upper__J1T -  1);
+    Self__NSGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
+    result__MSGH=((void **)Self__NSGH->parent_arrayed_collection__URI.storage__HJU)[Self__NSGH->parent_arrayed_collection__URI.upper__J1T];
+    Self__OSGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
+    Self__OSGH->parent_arrayed_collection__URI.upper__J1T=(__INTEGER)(Self__OSGH->parent_arrayed_collection__URI.upper__J1T -  1);
   };
-  local_list__G1H=result__5JGH;
-  result__CKGH=NULL;
+  local_list__G1H=result__MSGH;
+  result__PSGH=NULL;
   if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI)->parent_arrayed_collection__URI.upper__J1T <  0)) {
-    result__CKGH=create_with_capacity__QJK( 16);
+    result__PSGH=create_with_capacity__QJK( 16);
   } else {
-    Self__DKGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
-    result__CKGH=((void **)Self__DKGH->parent_arrayed_collection__URI.storage__HJU)[Self__DKGH->parent_arrayed_collection__URI.upper__J1T];
-    Self__EKGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
-    Self__EKGH->parent_arrayed_collection__URI.upper__J1T=(__INTEGER)(Self__EKGH->parent_arrayed_collection__URI.upper__J1T -  1);
+    Self__QSGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
+    result__PSGH=((void **)Self__QSGH->parent_arrayed_collection__URI.storage__HJU)[Self__QSGH->parent_arrayed_collection__URI.upper__J1T];
+    Self__RSGH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__VRI);
+    Self__RSGH->parent_arrayed_collection__URI.upper__J1T=(__INTEGER)(Self__RSGH->parent_arrayed_collection__URI.upper__J1T -  1);
   };
-  static_list__H1H=result__CKGH;
+  static_list__H1H=result__PSGH;
   while ((styl__I1H != ' ')) {
     result__RYK=NULL;
     beg__SYK= 0;
@@ -31007,9 +31133,9 @@ static void read_def_local__30H(__PARSER *Self__40H)
       beg__SYK= 0;
       do {
         if (((((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__RYK)->parent_arrayed_collection__E1H.upper__10K +  1) !=  0) && (! read_identifier__LAL())) && (! mute__TYK))) {
-          pos__IXXG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_319));
-          put_position__UOG(pos__IXXG);
+          pos__MBYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_322));
+          put_position__UOG(pos__MBYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -31027,61 +31153,61 @@ static void read_def_local__30H(__PARSER *Self__40H)
           typ_id__XWN=__ITM_LOCAL__;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__UWN);
           if ((typ_id__XWN == (__INTEGER)(-  1))) {
-            a__I0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__J0EH=(__UINTEGER_32)((__UINTEGER_32)(sz__UWN + a__I0EH) & (__UINTEGER_32)(~ a__I0EH));
-            ptr_table__KDIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__J0EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__JDIH=((__POINTER )(NULL));
-            result__LDIH=((__POINTER *)ptr_table__KDIH)[ 0];
-            if ((result__LDIH == (void *)NULL)) {
-              result__LDIH=new_lab__MRJ(new_size__J0EH);
-              next__JDIH=(void *)((unsigned long)result__LDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J0EH)));
-              ((__POINTER *)next__JDIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__KDIH)[ 0]=next__JDIH;
+            a__NCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__OCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__UWN + a__NCFH) & (__UINTEGER_32)(~ a__NCFH));
+            ptr_table__DLIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__CLIH=((__POINTER )(NULL));
+            result__ELIH=((__POINTER *)ptr_table__DLIH)[ 0];
+            if ((result__ELIH == (void *)NULL)) {
+              result__ELIH=new_lab__MRJ(new_size__OCFH);
+              next__CLIH=(void *)((unsigned long)result__ELIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCFH)));
+              ((__POINTER *)next__CLIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__DLIH)[ 0]=next__CLIH;
             } else {
-              next__JDIH=((__POINTER *)result__LDIH)[ 0];
-              if ((next__JDIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J0EH <<  1)) <=  4096)) {
-                  next__JDIH=(void *)((unsigned long)result__LDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J0EH)));
+              next__CLIH=((__POINTER *)result__ELIH)[ 0];
+              if ((next__CLIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ELIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OCFH <<  1)) <=  4096)) {
+                  next__CLIH=(void *)((unsigned long)result__ELIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCFH)));
                 } else {
-                  next__JDIH=new_lab__MRJ(new_size__J0EH);
+                  next__CLIH=new_lab__MRJ(new_size__OCFH);
                 };
-                ((__POINTER *)next__JDIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__KDIH)[ 0]=next__JDIH;
+                ((__POINTER *)next__CLIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__DLIH)[ 0]=next__CLIH;
               } else {
-                ((__POINTER *)result__LDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JDIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__LDIH=next__JDIH;
+                ((__POINTER *)result__ELIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__ELIH=next__CLIH;
               };
             };
-            ptr__SWN=result__LDIH;
-          } else {
-            t__N0EH=((__UINTEGER_32 )typ_id__XWN);
-            a__M0EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__SDIH=(__UINTEGER_32)((__UINTEGER_32)(sz__UWN + a__M0EH) & (__UINTEGER_32)(~ a__M0EH));
-            ptr_table__PDIH=((__POINTER )(&(table_type[(t__N0EH)])));
-            lab_type__RDIH=(__UINTEGER_32)(t__N0EH |  1);
-            next__ODIH=((__POINTER )(NULL));
-            result__QDIH=((__POINTER *)ptr_table__PDIH)[ 0];
-            if ((result__QDIH == (void *)NULL)) {
-              result__QDIH=new_lab__MRJ(lab_type__RDIH);
-              next__ODIH=(void *)((unsigned long)result__QDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SDIH)));
-              ((__POINTER *)next__ODIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__PDIH)[ 0]=next__ODIH;
+            ptr__SWN=result__ELIH;
+          } else {
+            t__SCFH=((__UINTEGER_32 )typ_id__XWN);
+            a__RCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__LLIH=(__UINTEGER_32)((__UINTEGER_32)(sz__UWN + a__RCFH) & (__UINTEGER_32)(~ a__RCFH));
+            ptr_table__ILIH=((__POINTER )(&(table_type[(t__SCFH)])));
+            lab_type__KLIH=(__UINTEGER_32)(t__SCFH |  1);
+            next__HLIH=((__POINTER )(NULL));
+            result__JLIH=((__POINTER *)ptr_table__ILIH)[ 0];
+            if ((result__JLIH == (void *)NULL)) {
+              result__JLIH=new_lab__MRJ(lab_type__KLIH);
+              next__HLIH=(void *)((unsigned long)result__JLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LLIH)));
+              ((__POINTER *)next__HLIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__ILIH)[ 0]=next__HLIH;
             } else {
-              next__ODIH=((__POINTER *)result__QDIH)[ 0];
-              if ((next__ODIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QDIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SDIH <<  1)) <=  4096)) {
-                  next__ODIH=(void *)((unsigned long)result__QDIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SDIH)));
+              next__HLIH=((__POINTER *)result__JLIH)[ 0];
+              if ((next__HLIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JLIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LLIH <<  1)) <=  4096)) {
+                  next__HLIH=(void *)((unsigned long)result__JLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LLIH)));
                 } else {
-                  next__ODIH=new_lab__MRJ(lab_type__RDIH);
+                  next__HLIH=new_lab__MRJ(lab_type__KLIH);
                 };
-                ((__POINTER *)next__ODIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__PDIH)[ 0]=next__ODIH;
+                ((__POINTER *)next__HLIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__ILIH)[ 0]=next__HLIH;
               } else {
-                ((__POINTER *)result__QDIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ODIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__QDIH=next__ODIH;
+                ((__POINTER *)result__JLIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__JLIH=next__HLIH;
               };
             };
-            ptr__SWN=result__QDIH;
+            ptr__SWN=result__JLIH;
           };
           result__RWN=((__ITM_LOCAL *)ptr__SWN);
           *(result__RWN) = *(ITM_LOCAL__);
@@ -31090,38 +31216,38 @@ static void read_def_local__30H(__PARSER *Self__40H)
         Self__0DV->name__42K=__tmp__5ZK;
         Self__0DV->parent_itm_object__50H.position__NDJ=__tmp__4ZK;
         add_last__F2U(result__RYK,result__RWN);
-        result__TDIH=FALSE__;
+        result__MLIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__TDIH=FALSE__;
+          result__MLIH=FALSE__;
         } else {
-          result__UDIH='\0';
+          result__NLIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__UDIH=((__CHARACTER )(( 0)));
+            result__NLIH=((__CHARACTER )(( 0)));
           } else {
-            result__UDIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__NLIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__UDIH == ':')) {
+          if ((result__NLIH == ':')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__TDIH=TRUE__;
+            result__MLIH=TRUE__;
           };
         };
-        if (result__TDIH) {
-          result__MN5G='\0';
+        if (result__MLIH) {
+          result__QW5G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__MN5G=((__CHARACTER )(( 0)));
+            result__QW5G=((__CHARACTER )(( 0)));
           } else {
-            result__MN5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__QW5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__K0K=(result__MN5G != '=');
+          __tmp__K0K=(result__QW5G != '=');
         } else {
           __tmp__K0K=FALSE__;
         };
         if (__tmp__K0K) {
           mute__TYK=FALSE__;
           if (((void *)read_type__DCM(Self__40H,TRUE__) == (void *)NULL)) {
-            pos__QXXG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_320));
-            put_position__UOG(pos__QXXG);
+            pos__UBYG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_323));
+            put_position__UOG(pos__UBYG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -31134,30 +31260,30 @@ static void read_def_local__30H(__PARSER *Self__40H)
           };
           beg__SYK=(__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__RYK)->parent_arrayed_collection__E1H.upper__10K +  1);
         };
-        result__WDIH=FALSE__;
+        result__PLIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__WDIH=FALSE__;
+          result__PLIH=FALSE__;
         } else {
-          result__XDIH='\0';
+          result__QLIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__XDIH=((__CHARACTER )(( 0)));
+            result__QLIH=((__CHARACTER )(( 0)));
           } else {
-            result__XDIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__QLIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__XDIH == ',')) {
+          if ((result__QLIH == ',')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__WDIH=TRUE__;
+            result__PLIH=TRUE__;
           };
         };
-      } while (result__WDIH);
+      } while (result__PLIH);
       if ((beg__SYK != (__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__PRI)->parent_arrayed_collection__E1H.upper__10K +  1))) {
         if (mute__TYK) {
           free__WJK(result__PRI);
           result__RYK=NULL;
         } else {
-          pos__3XXG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_320));
-          put_position__UOG(pos__3XXG);
+          pos__BCYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_323));
+          put_position__UOG(pos__BCYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -31177,13 +31303,13 @@ static void read_def_local__30H(__PARSER *Self__40H)
     };
     if (((void *)result__RYK != (void *)NULL)) {
       if ((styl__I1H == '+')) {
-        Self__IKGH=((__FAST_ARRAYoITM_LOCALo *)local_list__G1H);
-        other__FKGH=result__RYK;
-        __tmp__GKGH=((__FAST_ARRAYoITM_LOCALo *)result__RYK)->parent_arrayed_collection__E1H.upper__10K;
-        Self__HKGH= 0;
-        while ((Self__HKGH <= __tmp__GKGH)) {
-          add_last__F2U(Self__IKGH,((void **)((__FAST_ARRAYoITM_LOCALo *)other__FKGH)->parent_arrayed_collection__E1H.storage__CLU)[Self__HKGH]);
-          Self__HKGH=(__INTEGER)(Self__HKGH +  1);
+        Self__VSGH=((__FAST_ARRAYoITM_LOCALo *)local_list__G1H);
+        other__SSGH=result__RYK;
+        __tmp__TSGH=((__FAST_ARRAYoITM_LOCALo *)result__RYK)->parent_arrayed_collection__E1H.upper__10K;
+        Self__USGH= 0;
+        while ((Self__USGH <= __tmp__TSGH)) {
+          add_last__F2U(Self__VSGH,((void **)((__FAST_ARRAYoITM_LOCALo *)other__SSGH)->parent_arrayed_collection__E1H.storage__CLU)[Self__USGH]);
+          Self__USGH=(__INTEGER)(Self__USGH +  1);
         };
       } else {
         Self__RAPD=((__FAST_ARRAYoITM_LOCALo *)static_list__H1H);
@@ -31195,25 +31321,25 @@ static void read_def_local__30H(__PARSER *Self__40H)
           Self__QQUD=(__INTEGER)(Self__QQUD +  1);
         };
       };
-      result__ZDIH=FALSE__;
+      result__SLIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__ZDIH=FALSE__;
+        result__SLIH=FALSE__;
       } else {
-        result__0DIH='\0';
+        result__TLIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__0DIH=((__CHARACTER )(( 0)));
+          result__TLIH=((__CHARACTER )(( 0)));
         } else {
-          result__0DIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__TLIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__0DIH == ';')) {
+        if ((result__TLIH == ';')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__ZDIH=TRUE__;
+          result__SLIH=TRUE__;
         };
       };
-      if ((! result__ZDIH)) {
-        pos__EYXG=current_position__JXF();
-        put_error__text__KNG( 2,(&__string_239));
-        put_position__UOG(pos__EYXG);
+      if ((! result__SLIH)) {
+        pos__ICYG=current_position__JXF();
+        put_error__text__KNG( 2,(&__string_242));
+        put_position__UOG(pos__ICYG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -31230,26 +31356,26 @@ static void read_def_local__30H(__PARSER *Self__40H)
       styl__I1H=' ';
     };
   };
-  if ((((__FAST_ARRAYoITM_LOCALo *)result__5JGH)->parent_arrayed_collection__E1H.upper__10K <  0)) {
-    free__WJK(result__5JGH);
+  if ((((__FAST_ARRAYoITM_LOCALo *)result__MSGH)->parent_arrayed_collection__E1H.upper__10K <  0)) {
+    free__WJK(result__MSGH);
   } else {
-    copy__53J(result__5JGH);
+    copy__53J(result__MSGH);
   };
-  if ((((__FAST_ARRAYoITM_LOCALo *)result__CKGH)->parent_arrayed_collection__E1H.upper__10K <  0)) {
-    free__WJK(result__CKGH);
+  if ((((__FAST_ARRAYoITM_LOCALo *)result__PSGH)->parent_arrayed_collection__E1H.upper__10K <  0)) {
+    free__WJK(result__PSGH);
   } else {
-    copy__53J(result__CKGH);
+    copy__53J(result__PSGH);
   };
 }
 
 static __FAST_ARRAYoITM_CODEo* create_with_capacity__SVI(__INTEGER new_count__UVI)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __POINTER ptr__QKJ,ptr_table__3DIH,next__2DIH,result__4DIH;
-  __POINTER ptr_table__CEIH,next__BEIH,result__DEIH;
+  __POINTER ptr__QKJ,ptr_table__WLIH,next__VLIH,result__XLIH;
+  __POINTER ptr_table__1LIH,next__0LIH,result__2LIH;
   __INTEGER typ_id__VKJ;
-  __UINTEGER_32 sz__SKJ,a__P5EH,new_size__Q5EH,t__U5EH,a__T5EH;
-  __UINTEGER_32 new_size__FEIH,lab_type__EEIH;
+  __UINTEGER_32 sz__SKJ,a__WHFH,new_size__XHFH,t__1HFH,a__0HFH;
+  __UINTEGER_32 new_size__4LIH,lab_type__3LIH;
   __FAST_ARRAYoITM_CODEo *result__PKJ,*Self__53T;
   result__PKJ=NULL;
   ptr__QKJ=((__POINTER )(NULL));
@@ -31261,61 +31387,61 @@ static __FAST_ARRAYoITM_CODEo* create_with_capacity__SVI(__INTEGER new_count__UV
     typ_id__VKJ=__FAST_ARRAYoITM_CODEo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__SKJ);
     if ((typ_id__VKJ == (__INTEGER)(-  1))) {
-      a__P5EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__Q5EH=(__UINTEGER_32)((__UINTEGER_32)(sz__SKJ + a__P5EH) & (__UINTEGER_32)(~ a__P5EH));
-      ptr_table__3DIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q5EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__2DIH=((__POINTER )(NULL));
-      result__4DIH=((__POINTER *)ptr_table__3DIH)[ 0];
-      if ((result__4DIH == (void *)NULL)) {
-        result__4DIH=new_lab__MRJ(new_size__Q5EH);
-        next__2DIH=(void *)((unsigned long)result__4DIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5EH)));
-        ((__POINTER *)next__2DIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__3DIH)[ 0]=next__2DIH;
+      a__WHFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__XHFH=(__UINTEGER_32)((__UINTEGER_32)(sz__SKJ + a__WHFH) & (__UINTEGER_32)(~ a__WHFH));
+      ptr_table__WLIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XHFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__VLIH=((__POINTER )(NULL));
+      result__XLIH=((__POINTER *)ptr_table__WLIH)[ 0];
+      if ((result__XLIH == (void *)NULL)) {
+        result__XLIH=new_lab__MRJ(new_size__XHFH);
+        next__VLIH=(void *)((unsigned long)result__XLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XHFH)));
+        ((__POINTER *)next__VLIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__WLIH)[ 0]=next__VLIH;
       } else {
-        next__2DIH=((__POINTER *)result__4DIH)[ 0];
-        if ((next__2DIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4DIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Q5EH <<  1)) <=  4096)) {
-            next__2DIH=(void *)((unsigned long)result__4DIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5EH)));
+        next__VLIH=((__POINTER *)result__XLIH)[ 0];
+        if ((next__VLIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XLIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XHFH <<  1)) <=  4096)) {
+            next__VLIH=(void *)((unsigned long)result__XLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XHFH)));
           } else {
-            next__2DIH=new_lab__MRJ(new_size__Q5EH);
+            next__VLIH=new_lab__MRJ(new_size__XHFH);
           };
-          ((__POINTER *)next__2DIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3DIH)[ 0]=next__2DIH;
+          ((__POINTER *)next__VLIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__WLIH)[ 0]=next__VLIH;
         } else {
-          ((__POINTER *)result__4DIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2DIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__4DIH=next__2DIH;
+          ((__POINTER *)result__XLIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__XLIH=next__VLIH;
         };
       };
-      ptr__QKJ=result__4DIH;
+      ptr__QKJ=result__XLIH;
     } else {
-      t__U5EH=((__UINTEGER_32 )typ_id__VKJ);
-      a__T5EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__FEIH=(__UINTEGER_32)((__UINTEGER_32)(sz__SKJ + a__T5EH) & (__UINTEGER_32)(~ a__T5EH));
-      ptr_table__CEIH=((__POINTER )(&(table_type[(t__U5EH)])));
-      lab_type__EEIH=(__UINTEGER_32)(t__U5EH |  1);
-      next__BEIH=((__POINTER )(NULL));
-      result__DEIH=((__POINTER *)ptr_table__CEIH)[ 0];
-      if ((result__DEIH == (void *)NULL)) {
-        result__DEIH=new_lab__MRJ(lab_type__EEIH);
-        next__BEIH=(void *)((unsigned long)result__DEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FEIH)));
-        ((__POINTER *)next__BEIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__CEIH)[ 0]=next__BEIH;
+      t__1HFH=((__UINTEGER_32 )typ_id__VKJ);
+      a__0HFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__4LIH=(__UINTEGER_32)((__UINTEGER_32)(sz__SKJ + a__0HFH) & (__UINTEGER_32)(~ a__0HFH));
+      ptr_table__1LIH=((__POINTER )(&(table_type[(t__1HFH)])));
+      lab_type__3LIH=(__UINTEGER_32)(t__1HFH |  1);
+      next__0LIH=((__POINTER )(NULL));
+      result__2LIH=((__POINTER *)ptr_table__1LIH)[ 0];
+      if ((result__2LIH == (void *)NULL)) {
+        result__2LIH=new_lab__MRJ(lab_type__3LIH);
+        next__0LIH=(void *)((unsigned long)result__2LIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4LIH)));
+        ((__POINTER *)next__0LIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__1LIH)[ 0]=next__0LIH;
       } else {
-        next__BEIH=((__POINTER *)result__DEIH)[ 0];
-        if ((next__BEIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DEIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FEIH <<  1)) <=  4096)) {
-            next__BEIH=(void *)((unsigned long)result__DEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FEIH)));
+        next__0LIH=((__POINTER *)result__2LIH)[ 0];
+        if ((next__0LIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2LIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4LIH <<  1)) <=  4096)) {
+            next__0LIH=(void *)((unsigned long)result__2LIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4LIH)));
           } else {
-            next__BEIH=new_lab__MRJ(lab_type__EEIH);
+            next__0LIH=new_lab__MRJ(lab_type__3LIH);
           };
-          ((__POINTER *)next__BEIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CEIH)[ 0]=next__BEIH;
+          ((__POINTER *)next__0LIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__1LIH)[ 0]=next__0LIH;
         } else {
-          ((__POINTER *)result__DEIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BEIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__DEIH=next__BEIH;
+          ((__POINTER *)result__2LIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0LIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__2LIH=next__0LIH;
         };
       };
-      ptr__QKJ=result__DEIH;
+      ptr__QKJ=result__2LIH;
     };
     result__PKJ=((__FAST_ARRAYoITM_CODEo *)ptr__QKJ);
     *(result__PKJ) = *(FAST_ARRAYoITM_CODEo__);
@@ -31400,21 +31526,21 @@ static void* copy__Q5H(void *tmp__S5H)
 static __BOOLEAN fast_has__3DV(__HASHED_SEToSTRING_CONSTANTo *Self__4DV,void *e__5DV)
 // ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__LKGH;
-  __INTEGER result__KKGH,__tmp__MKGH,Self__NKGH;
+  __STRING_CONSTANT *Self__YSGH;
+  __INTEGER result__XSGH,__tmp__ZSGH,Self__0SGH;
   void *node__JEV;
-  Self__LKGH=((__STRING_CONSTANT *)e__5DV);
-  result__KKGH= 0;
-  __tmp__MKGH=Self__LKGH->count__DD;
-  Self__NKGH= 1;
-  while ((Self__NKGH <= __tmp__MKGH)) {
-    result__KKGH=(__INTEGER)((__INTEGER)( 5 * result__KKGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__LKGH->storage__VQO)[(__INTEGER)(Self__NKGH -  1)])));
-    Self__NKGH=(__INTEGER)(Self__NKGH +  1);
-  };
-  if ((result__KKGH <  0)) {
-    result__KKGH=(__INTEGER)(~ result__KKGH);
-  };
-  node__JEV=((void **)Self__4DV->buckets__PEV)[(__INTEGER)(result__KKGH % Self__4DV->capacity__KIT)];
+  Self__YSGH=((__STRING_CONSTANT *)e__5DV);
+  result__XSGH= 0;
+  __tmp__ZSGH=Self__YSGH->count__DD;
+  Self__0SGH= 1;
+  while ((Self__0SGH <= __tmp__ZSGH)) {
+    result__XSGH=(__INTEGER)((__INTEGER)( 5 * result__XSGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__YSGH->storage__VQO)[(__INTEGER)(Self__0SGH -  1)])));
+    Self__0SGH=(__INTEGER)(Self__0SGH +  1);
+  };
+  if ((result__XSGH <  0)) {
+    result__XSGH=(__INTEGER)(~ result__XSGH);
+  };
+  node__JEV=((void **)Self__4DV->buckets__PEV)[(__INTEGER)(result__XSGH % Self__4DV->capacity__KIT)];
   while ((! (((void *)node__JEV == (void *)NULL) || ((void *)((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__JEV)->item__1EV == (void *)e__5DV)))) {
     node__JEV=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__JEV)->next__GFV;
   };
@@ -31424,25 +31550,25 @@ static __BOOLEAN fast_has__3DV(__HASHED_SEToSTRING_CONSTANTo *Self__4DV,void *e_
 static void restore_context__TDL()
 // () VoidNo recursive, No inlinable.
 {
-  __INTEGER beg__VDL,end__PKGH,len__RKGH,__tmp__SKGH,__tmp__UKGH;
-  __INTEGER Self__VKGH,__tmp__HEL,__tmp__KEL,Self__ZMM;
-  __STRING *Self__TKGH;
+  __INTEGER beg__VDL,end__2SGH,len__4SGH,__tmp__5SGH,__tmp__BTGH;
+  __INTEGER Self__CTGH,__tmp__HEL,__tmp__KEL,Self__ZMM;
+  __STRING *Self__ATGH;
   beg__VDL= 0;
   if (is_shorter__5Y) {
     ((__STRING *)token__GCD)->count__WFC= 0;
     beg__VDL=(__INTEGER)(old_position__DRI + old_short_derive__LRI);
-    Self__TKGH=((__STRING *)output_code__SI);
-    end__PKGH=(__INTEGER)((__INTEGER)(position__SBC + short_derive__BCC) -  1);
-    len__RKGH=(__INTEGER)((__INTEGER)(end__PKGH - beg__VDL) +  1);
-    if ((len__RKGH >  0)) {
-      __tmp__SKGH=(__INTEGER)(end__PKGH +  1);
-      __tmp__UKGH=Self__TKGH->count__WFC;
-      Self__VKGH=__tmp__SKGH;
-      while ((Self__VKGH <= __tmp__UKGH)) {
-        ((__CHARACTER *)Self__TKGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__VKGH - len__RKGH) -  1)]=((__CHARACTER *)Self__TKGH->storage__BCS)[(__INTEGER)(Self__VKGH -  1)];
-        Self__VKGH=(__INTEGER)(Self__VKGH +  1);
-      };
-      Self__TKGH->count__WFC=(__INTEGER)(Self__TKGH->count__WFC - len__RKGH);
+    Self__ATGH=((__STRING *)output_code__SI);
+    end__2SGH=(__INTEGER)((__INTEGER)(position__SBC + short_derive__BCC) -  1);
+    len__4SGH=(__INTEGER)((__INTEGER)(end__2SGH - beg__VDL) +  1);
+    if ((len__4SGH >  0)) {
+      __tmp__5SGH=(__INTEGER)(end__2SGH +  1);
+      __tmp__BTGH=Self__ATGH->count__WFC;
+      Self__CTGH=__tmp__5SGH;
+      while ((Self__CTGH <= __tmp__BTGH)) {
+        ((__CHARACTER *)Self__ATGH->storage__BCS)[(__INTEGER)((__INTEGER)(Self__CTGH - len__4SGH) -  1)]=((__CHARACTER *)Self__ATGH->storage__BCS)[(__INTEGER)(Self__CTGH -  1)];
+        Self__CTGH=(__INTEGER)(Self__CTGH +  1);
+      };
+      Self__ATGH->count__WFC=(__INTEGER)(Self__ATGH->count__WFC - len__4SGH);
     };
     __tmp__HEL=old_position__DRI;
     __tmp__KEL=(__INTEGER)(position__SBC -  1);
@@ -31464,19 +31590,19 @@ static void* read_expr_message__0VL(__PARSER *Self__1VL)
 // ({PARSER}) With resultNo recursive, No inlinable.
 {
   void *result__Y1L,*result__3VL;
-  __POSITION pos__U1XG,p__3AAB,pos__21XG;
+  __POSITION pos__YFYG,p__3AAB,pos__AGYG;
   __ITM_OLD *result__RTGB;
-  __POINTER ptr__STGB,ptr_table__JEIH,next__IEIH,result__KEIH;
-  __POINTER ptr_table__OEIH,next__NEIH,result__PEIH;
+  __POINTER ptr__STGB,ptr_table__CMIH,next__BMIH,result__DMIH;
+  __POINTER ptr_table__HMIH,next__GMIH,result__IMIH;
   __INTEGER typ_id__XTGB;
-  __UINTEGER_32 sz__UTGB,a__I2EH,new_size__J2EH,t__N2EH,a__M2EH;
-  __UINTEGER_32 new_size__REIH,lab_type__QEIH;
-  __BOOLEAN result__HEIH,result__SEIH;
-  __CHARACTER result__TEIH;
+  __UINTEGER_32 sz__UTGB,a__NEFH,new_size__OEFH,t__SEFH,a__REFH;
+  __UINTEGER_32 new_size__KMIH,lab_type__JMIH;
+  __BOOLEAN result__AMIH,result__LMIH;
+  __CHARACTER result__MMIH;
   result__Y1L=NULL;
-  result__HEIH=read_word__QPF((&__string_8));
+  result__AMIH=read_word__QPF((&__string_8));
   if (is_shorter__5Y) {
-    if (result__HEIH) {
+    if (result__AMIH) {
       if (((void *)(&__string_8) == (void *)(&__string_4))) {
         short__token__to__LBD((&__string_120),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
       } else {
@@ -31484,11 +31610,11 @@ static void* read_expr_message__0VL(__PARSER *Self__1VL)
       };
     };
   };
-  if (result__HEIH) {
+  if (result__AMIH) {
     if (((void *)read_expr__44I(Self__1VL) == (void *)NULL)) {
-      pos__U1XG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_321));
-      put_position__UOG(pos__U1XG);
+      pos__YFYG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_324));
+      put_position__UOG(pos__YFYG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
@@ -31505,61 +31631,61 @@ static void* read_expr_message__0VL(__PARSER *Self__1VL)
       typ_id__XTGB=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__UTGB);
       if ((typ_id__XTGB == (__INTEGER)(-  1))) {
-        a__I2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__J2EH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTGB + a__I2EH) & (__UINTEGER_32)(~ a__I2EH));
-        ptr_table__JEIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__J2EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__IEIH=((__POINTER )(NULL));
-        result__KEIH=((__POINTER *)ptr_table__JEIH)[ 0];
-        if ((result__KEIH == (void *)NULL)) {
-          result__KEIH=new_lab__MRJ(new_size__J2EH);
-          next__IEIH=(void *)((unsigned long)result__KEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J2EH)));
-          ((__POINTER *)next__IEIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__JEIH)[ 0]=next__IEIH;
-        } else {
-          next__IEIH=((__POINTER *)result__KEIH)[ 0];
-          if ((next__IEIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KEIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__J2EH <<  1)) <=  4096)) {
-              next__IEIH=(void *)((unsigned long)result__KEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J2EH)));
+        a__NEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__OEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTGB + a__NEFH) & (__UINTEGER_32)(~ a__NEFH));
+        ptr_table__CMIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__BMIH=((__POINTER )(NULL));
+        result__DMIH=((__POINTER *)ptr_table__CMIH)[ 0];
+        if ((result__DMIH == (void *)NULL)) {
+          result__DMIH=new_lab__MRJ(new_size__OEFH);
+          next__BMIH=(void *)((unsigned long)result__DMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OEFH)));
+          ((__POINTER *)next__BMIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__CMIH)[ 0]=next__BMIH;
+        } else {
+          next__BMIH=((__POINTER *)result__DMIH)[ 0];
+          if ((next__BMIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OEFH <<  1)) <=  4096)) {
+              next__BMIH=(void *)((unsigned long)result__DMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OEFH)));
             } else {
-              next__IEIH=new_lab__MRJ(new_size__J2EH);
-            };
-            ((__POINTER *)next__IEIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__JEIH)[ 0]=next__IEIH;
-          } else {
-            ((__POINTER *)result__KEIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IEIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__KEIH=next__IEIH;
-          };
-        };
-        ptr__STGB=result__KEIH;
-      } else {
-        t__N2EH=((__UINTEGER_32 )typ_id__XTGB);
-        a__M2EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__REIH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTGB + a__M2EH) & (__UINTEGER_32)(~ a__M2EH));
-        ptr_table__OEIH=((__POINTER )(&(table_type[(t__N2EH)])));
-        lab_type__QEIH=(__UINTEGER_32)(t__N2EH |  1);
-        next__NEIH=((__POINTER )(NULL));
-        result__PEIH=((__POINTER *)ptr_table__OEIH)[ 0];
-        if ((result__PEIH == (void *)NULL)) {
-          result__PEIH=new_lab__MRJ(lab_type__QEIH);
-          next__NEIH=(void *)((unsigned long)result__PEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REIH)));
-          ((__POINTER *)next__NEIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__OEIH)[ 0]=next__NEIH;
-        } else {
-          next__NEIH=((__POINTER *)result__PEIH)[ 0];
-          if ((next__NEIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PEIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__REIH <<  1)) <=  4096)) {
-              next__NEIH=(void *)((unsigned long)result__PEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REIH)));
+              next__BMIH=new_lab__MRJ(new_size__OEFH);
+            };
+            ((__POINTER *)next__BMIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__CMIH)[ 0]=next__BMIH;
+          } else {
+            ((__POINTER *)result__DMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__DMIH=next__BMIH;
+          };
+        };
+        ptr__STGB=result__DMIH;
+      } else {
+        t__SEFH=((__UINTEGER_32 )typ_id__XTGB);
+        a__REFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__KMIH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTGB + a__REFH) & (__UINTEGER_32)(~ a__REFH));
+        ptr_table__HMIH=((__POINTER )(&(table_type[(t__SEFH)])));
+        lab_type__JMIH=(__UINTEGER_32)(t__SEFH |  1);
+        next__GMIH=((__POINTER )(NULL));
+        result__IMIH=((__POINTER *)ptr_table__HMIH)[ 0];
+        if ((result__IMIH == (void *)NULL)) {
+          result__IMIH=new_lab__MRJ(lab_type__JMIH);
+          next__GMIH=(void *)((unsigned long)result__IMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KMIH)));
+          ((__POINTER *)next__GMIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__HMIH)[ 0]=next__GMIH;
+        } else {
+          next__GMIH=((__POINTER *)result__IMIH)[ 0];
+          if ((next__GMIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KMIH <<  1)) <=  4096)) {
+              next__GMIH=(void *)((unsigned long)result__IMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KMIH)));
             } else {
-              next__NEIH=new_lab__MRJ(lab_type__QEIH);
+              next__GMIH=new_lab__MRJ(lab_type__JMIH);
             };
-            ((__POINTER *)next__NEIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__OEIH)[ 0]=next__NEIH;
+            ((__POINTER *)next__GMIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__HMIH)[ 0]=next__GMIH;
           } else {
-            ((__POINTER *)result__PEIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NEIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__PEIH=next__NEIH;
+            ((__POINTER *)result__IMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__IMIH=next__GMIH;
           };
         };
-        ptr__STGB=result__PEIH;
+        ptr__STGB=result__IMIH;
       };
       result__RTGB=((__ITM_OLD *)ptr__STGB);
       *(result__RTGB) = *(ITM_OLD__);
@@ -31576,27 +31702,27 @@ static void* read_expr_message__0VL(__PARSER *Self__1VL)
   if (((void *)result__Y1L != (void *)NULL)) {
     while_do__IZM:
     {
-      result__SEIH=FALSE__;
+      result__LMIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__SEIH=FALSE__;
+        result__LMIH=FALSE__;
       } else {
-        result__TEIH='\0';
+        result__MMIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__TEIH=((__CHARACTER )(( 0)));
+          result__MMIH=((__CHARACTER )(( 0)));
         } else {
-          result__TEIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__MMIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__TEIH == '.')) {
+        if ((result__MMIH == '.')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__SEIH=TRUE__;
+          result__LMIH=TRUE__;
         };
       };
-      if (result__SEIH) {
+      if (result__LMIH) {
         result__3VL=read_send_msg__M4N(Self__1VL,result__3VL);
         if (((void *)result__3VL == (void *)NULL)) {
-          pos__21XG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_322));
-          put_position__UOG(pos__21XG);
+          pos__AGYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_325));
+          put_position__UOG(pos__AGYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -31649,117 +31775,179 @@ static void free__YVI(void *tmp__0VI)
   ((void **)Self__W5T->parent_arrayed_collection__A4H.storage__WAU)[Self__W5T->parent_arrayed_collection__A4H.upper__IWT]=tmp__0VI;
 }
 
-static void put__to__like__UUEG(void *tok__WUEG,void *buf__XUEG,void *key__YUEG)
+static void display_raw__TLIC(__ITM_TYPE_MULTI *Self__ULIC,void *buffer__VLIC)
+// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidRecursive, No inlinable.
+{
+  __INTEGER __tmp__2LIC,Self__XKRC;
+  void *__tmp__DMIC,*__tmp__GMIC;
+  __ITM_TYPE_STYLE *Self__EADH,*Self__GADH;
+  __FAST_ARRAYoITM_TYPE_MONOo *Self__BFFH;
+  __tmp__2LIC=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__ULIC->list_type__AKP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
+  Self__XKRC= 0;
+  while ((Self__XKRC <= __tmp__2LIC)) {
+    __tmp__DMIC=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__ULIC->list_type__AKP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__XKRC];
+    switch (((struct ___OBJ *)__tmp__DMIC)->__id) {
+    case __ITM_TYPE_PARAMETER__: {
+      append__BOS(buffer__VLIC,((__ITM_TYPE_PARAMETER *)__tmp__DMIC)->parent_itm_type__3DE.name__KYP);
+    } break;
+    case __ITM_TYPE_SIMPLE__: {
+      append__BOS(buffer__VLIC,((__ITM_TYPE_SIMPLE *)__tmp__DMIC)->name__KYP);
+    } break;
+    case __ITM_TYPE_BLOCK__: {
+      append_in__OGPD(__tmp__DMIC,buffer__VLIC);
+    } break;
+    case __ITM_TYPE_GENERIC__: {
+      append_in__SHPD(__tmp__DMIC,buffer__VLIC);
+    } break;
+    case __ITM_TYPE_STYLE__: {
+      Self__EADH=((__ITM_TYPE_STYLE *)__tmp__DMIC);
+      if (((void *)Self__EADH->style__TYP != (void *)NULL)) {
+        append__BOS(buffer__VLIC,Self__EADH->style__TYP);
+        add_last__ZLT(buffer__VLIC,' ');
+      };
+      append__BOS(buffer__VLIC,Self__EADH->parent_itm_type_simple__BSN.name__KYP);
+    } break;
+    };
+    add_last__ZLT(buffer__VLIC,',');
+    Self__XKRC=(__INTEGER)(Self__XKRC +  1);
+  };
+  Self__BFFH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__ULIC->list_type__AKP);
+  __tmp__GMIC=((void **)Self__BFFH->parent_arrayed_collection__ZXC.storage__RMV)[Self__BFFH->parent_arrayed_collection__ZXC.upper__KIV];
+  switch (((struct ___OBJ *)__tmp__GMIC)->__id) {
+  case __ITM_TYPE_PARAMETER__: {
+    append__BOS(buffer__VLIC,((__ITM_TYPE_PARAMETER *)__tmp__GMIC)->parent_itm_type__3DE.name__KYP);
+  } break;
+  case __ITM_TYPE_SIMPLE__: {
+    append__BOS(buffer__VLIC,((__ITM_TYPE_SIMPLE *)__tmp__GMIC)->name__KYP);
+  } break;
+  case __ITM_TYPE_BLOCK__: {
+    append_in__OGPD(__tmp__GMIC,buffer__VLIC);
+  } break;
+  case __ITM_TYPE_GENERIC__: {
+    append_in__SHPD(__tmp__GMIC,buffer__VLIC);
+  } break;
+  case __ITM_TYPE_STYLE__: {
+    Self__GADH=((__ITM_TYPE_STYLE *)__tmp__GMIC);
+    if (((void *)Self__GADH->style__TYP != (void *)NULL)) {
+      append__BOS(buffer__VLIC,Self__GADH->style__TYP);
+      add_last__ZLT(buffer__VLIC,' ');
+    };
+    append__BOS(buffer__VLIC,Self__GADH->parent_itm_type_simple__BSN.name__KYP);
+  } break;
+  };
+}
+
+static void put__to__like__PBFG(void *tok__RBFG,void *buf__SBFG,void *key__TBFG)
 // ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__EVEG,Self__HDGG;
-  void *lst__ZUEG;
-  lst__ZUEG=fast_reference_at__E34D(short_dico__QD,key__YUEG);
-  if (((void *)lst__ZUEG != (void *)NULL)) {
-    __tmp__EVEG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ZUEG)->parent_linked_collection__LD.upper__5CD;
-    Self__HDGG= 1;
-    while ((Self__HDGG <= __tmp__EVEG)) {
-      if (((void *)item__Y0ND(lst__ZUEG,Self__HDGG) == (void *)NULL)) {
-        append__BOS(buf__XUEG,tok__WUEG);
+  __INTEGER __tmp__5BFG,Self__ANGG;
+  void *lst__UBFG;
+  lst__UBFG=fast_reference_at__GB5D(short_dico__QD,key__TBFG);
+  if (((void *)lst__UBFG != (void *)NULL)) {
+    __tmp__5BFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__UBFG)->parent_linked_collection__LD.upper__5CD;
+    Self__ANGG= 1;
+    while ((Self__ANGG <= __tmp__5BFG)) {
+      if (((void *)item__Y0ND(lst__UBFG,Self__ANGG) == (void *)NULL)) {
+        append__BOS(buf__SBFG,tok__RBFG);
       } else {
-        append__BOS(buf__XUEG,item__Y0ND(lst__ZUEG,Self__HDGG));
+        append__BOS(buf__SBFG,item__Y0ND(lst__UBFG,Self__ANGG));
       };
-      Self__HDGG=(__INTEGER)(Self__HDGG +  1);
+      Self__ANGG=(__INTEGER)(Self__ANGG +  1);
     };
   };
 }
 
-static void put__to__like__YZBG(void *tok__0ZBG,void *buf__1ZBG,void *key__2ZBG)
+static void put__to__like__FCCG(void *tok__HCCG,void *buf__ICCG,void *key__JCCG)
 // ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__I0BG,Self__FIFG;
-  void *lst__3ZBG;
-  lst__3ZBG=fast_reference_at__E34D(short_dico__QD,key__2ZBG);
-  if (((void *)lst__3ZBG != (void *)NULL)) {
-    __tmp__I0BG=((__LINKED_LISToSTRING_CONSTANTo *)lst__3ZBG)->parent_linked_collection__LD.upper__5CD;
-    Self__FIFG= 1;
-    while ((Self__FIFG <= __tmp__I0BG)) {
-      if (((void *)item__Y0ND(lst__3ZBG,Self__FIFG) == (void *)NULL)) {
-        append__BOS(buf__1ZBG,tok__0ZBG);
+  __INTEGER __tmp__VCCG,Self__DRFG;
+  void *lst__KCCG;
+  lst__KCCG=fast_reference_at__GB5D(short_dico__QD,key__JCCG);
+  if (((void *)lst__KCCG != (void *)NULL)) {
+    __tmp__VCCG=((__LINKED_LISToSTRING_CONSTANTo *)lst__KCCG)->parent_linked_collection__LD.upper__5CD;
+    Self__DRFG= 1;
+    while ((Self__DRFG <= __tmp__VCCG)) {
+      if (((void *)item__Y0ND(lst__KCCG,Self__DRFG) == (void *)NULL)) {
+        append__BOS(buf__ICCG,tok__HCCG);
       } else {
-        append__BOS(buf__1ZBG,item__Y0ND(lst__3ZBG,Self__FIFG));
+        append__BOS(buf__ICCG,item__Y0ND(lst__KCCG,Self__DRFG));
       };
-      Self__FIFG=(__INTEGER)(Self__FIFG +  1);
+      Self__DRFG=(__INTEGER)(Self__DRFG +  1);
     };
   };
 }
 
-static void put__to__like__GWDG(void *tok__IWDG,void *buf__JWDG)
+static void put__to__like__YBEG(void *tok__0BEG,void *buf__1BEG)
 // ({STRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__WWDG,Self__UVFG;
-  void *lst__LWDG;
-  lst__LWDG=fast_reference_at__E34D(short_dico__QD,(&__string_133));
-  if (((void *)lst__LWDG != (void *)NULL)) {
-    __tmp__WWDG=((__LINKED_LISToSTRING_CONSTANTo *)lst__LWDG)->parent_linked_collection__LD.upper__5CD;
-    Self__UVFG= 1;
-    while ((Self__UVFG <= __tmp__WWDG)) {
-      if (((void *)item__Y0ND(lst__LWDG,Self__UVFG) == (void *)NULL)) {
-        append__BOS(buf__JWDG,tok__IWDG);
+  __INTEGER __tmp__ICEG,Self__E5FG;
+  void *lst__3BEG;
+  lst__3BEG=fast_reference_at__GB5D(short_dico__QD,(&__string_133));
+  if (((void *)lst__3BEG != (void *)NULL)) {
+    __tmp__ICEG=((__LINKED_LISToSTRING_CONSTANTo *)lst__3BEG)->parent_linked_collection__LD.upper__5CD;
+    Self__E5FG= 1;
+    while ((Self__E5FG <= __tmp__ICEG)) {
+      if (((void *)item__Y0ND(lst__3BEG,Self__E5FG) == (void *)NULL)) {
+        append__BOS(buf__1BEG,tok__0BEG);
       } else {
-        append__BOS(buf__JWDG,item__Y0ND(lst__LWDG,Self__UVFG));
+        append__BOS(buf__1BEG,item__Y0ND(lst__3BEG,Self__E5FG));
       };
-      Self__UVFG=(__INTEGER)(Self__UVFG +  1);
+      Self__E5FG=(__INTEGER)(Self__E5FG +  1);
     };
   };
 }
 
-static void put__to__like__SYDG(void *tok__UYDG,void *buf__VYDG,void *key__WYDG)
+static void put__to__like__EEEG(void *tok__GEEG,void *buf__HEEG,void *key__IEEG)
 // ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
 {
-  __INTEGER __tmp__CZDG,Self__FWFG;
-  void *lst__XYDG;
-  lst__XYDG=fast_reference_at__E34D(short_dico__QD,key__WYDG);
-  if (((void *)lst__XYDG != (void *)NULL)) {
-    __tmp__CZDG=((__LINKED_LISToSTRING_CONSTANTo *)lst__XYDG)->parent_linked_collection__LD.upper__5CD;
-    Self__FWFG= 1;
-    while ((Self__FWFG <= __tmp__CZDG)) {
-      if (((void *)item__Y0ND(lst__XYDG,Self__FWFG) == (void *)NULL)) {
-        append__BOS(buf__VYDG,tok__UYDG);
+  __INTEGER __tmp__UEEG,Self__V5FG;
+  void *lst__JEEG;
+  lst__JEEG=fast_reference_at__GB5D(short_dico__QD,key__IEEG);
+  if (((void *)lst__JEEG != (void *)NULL)) {
+    __tmp__UEEG=((__LINKED_LISToSTRING_CONSTANTo *)lst__JEEG)->parent_linked_collection__LD.upper__5CD;
+    Self__V5FG= 1;
+    while ((Self__V5FG <= __tmp__UEEG)) {
+      if (((void *)item__Y0ND(lst__JEEG,Self__V5FG) == (void *)NULL)) {
+        append__BOS(buf__HEEG,tok__GEEG);
       } else {
-        append__BOS(buf__VYDG,item__Y0ND(lst__XYDG,Self__FWFG));
+        append__BOS(buf__HEEG,item__Y0ND(lst__JEEG,Self__V5FG));
       };
-      Self__FWFG=(__INTEGER)(Self__FWFG +  1);
+      Self__V5FG=(__INTEGER)(Self__V5FG +  1);
     };
   };
 }
 
-static __BOOLEAN is_hexadecimal_digit__AOJE(__CHARACTER Self__BOJE)
+static __BOOLEAN is_hexadecimal_digit__CSJE(__CHARACTER Self__DSJE)
 // ({CHARACTER}) With resultNo recursive, No inlinable.
 {
-  __BOOLEAN result__DOJE,result__YWCH,__tmp__LOJE,__tmp__0OJE;
-  __BOOLEAN result__GEOE;
-  result__DOJE=FALSE__;
-  result__YWCH=FALSE__;
-  if ((((__INTEGER_8 )Self__BOJE) >= ((__INTEGER_8 )'0'))) {
-    result__YWCH=(((__INTEGER_8 )Self__BOJE) <= ((__INTEGER_8 )'9'));
-  };
-  if (result__YWCH) {
-    result__DOJE=TRUE__;
-    __tmp__LOJE=TRUE__;
+  __BOOLEAN result__FSJE,result__KADH,__tmp__NSJE,__tmp__2SJE;
+  __BOOLEAN result__IIOE;
+  result__FSJE=FALSE__;
+  result__KADH=FALSE__;
+  if ((((__INTEGER_8 )Self__DSJE) >= ((__INTEGER_8 )'0'))) {
+    result__KADH=(((__INTEGER_8 )Self__DSJE) <= ((__INTEGER_8 )'9'));
+  };
+  if (result__KADH) {
+    result__FSJE=TRUE__;
+    __tmp__NSJE=TRUE__;
   } else {
-    __tmp__LOJE=FALSE__;
+    __tmp__NSJE=FALSE__;
   };
-  if (__tmp__LOJE) {
-    __tmp__0OJE=TRUE__;
+  if (__tmp__NSJE) {
+    __tmp__2SJE=TRUE__;
   } else {
-    result__GEOE=(((__INTEGER_8 )Self__BOJE) >= ((__INTEGER_8 )'a'));
-    if (result__GEOE) {
-      result__DOJE=(((__INTEGER_8 )Self__BOJE) <= ((__INTEGER_8 )'f'));
+    result__IIOE=(((__INTEGER_8 )Self__DSJE) >= ((__INTEGER_8 )'a'));
+    if (result__IIOE) {
+      result__FSJE=(((__INTEGER_8 )Self__DSJE) <= ((__INTEGER_8 )'f'));
     };
-    __tmp__0OJE=result__GEOE;
+    __tmp__2SJE=result__IIOE;
   };
-  if ((! __tmp__0OJE)) {
-    if ((((__INTEGER_8 )Self__BOJE) >= ((__INTEGER_8 )'A'))) {
-      result__DOJE=(((__INTEGER_8 )Self__BOJE) <= ((__INTEGER_8 )'F'));
+  if ((! __tmp__2SJE)) {
+    if ((((__INTEGER_8 )Self__DSJE) >= ((__INTEGER_8 )'A'))) {
+      result__FSJE=(((__INTEGER_8 )Self__DSJE) <= ((__INTEGER_8 )'F'));
     };
   };
-  return(result__DOJE);
+  return(result__FSJE);
 }
 
 static void* read_constant__1QO()
@@ -31768,247 +31956,247 @@ static void* read_constant__1QO()
   void *result__4QO;
   __INTEGER pos_old__P5O,typ_id__4PQ,typ_id__WQMB,old_pos__ACQ;
   __INTEGER count__BCQ,typ_id__KSMB,typ_id__4TMB;
-  __POSITION pos__DDYG,__tmp__GRO,__tmp__YRO,pos__DEYG,pos__FEYG;
+  __POSITION pos__4MYG,__tmp__GRO,__tmp__YRO,pos__4NYG,pos__AOYG;
   __POSITION __tmp__KSO,__tmp__1SO;
   __ITM_REAL *result__YPQ;
-  __POINTER ptr__ZPQ,ptr_table__WEIH,next__VEIH,result__XEIH;
-  __POINTER ptr_table__1EIH,next__0EIH,result__2EIH,ptr__RQMB;
-  __POINTER ptr_table__AFIH,next__5EIH,result__BFIH,ptr_table__FFIH;
-  __POINTER next__EFIH,result__GFIH,ptr__FSMB,ptr_table__KFIH;
-  __POINTER next__JFIH,result__LFIH,ptr_table__PFIH,next__OFIH;
-  __POINTER result__QFIH,ptr__ZTMB,ptr_table__UFIH,next__TFIH;
-  __POINTER result__VFIH,ptr_table__ZFIH,next__YFIH,result__0FIH;
-  __UINTEGER_32 sz__1PQ,a__42EH,new_size__52EH,t__D3EH,a__C3EH;
-  __UINTEGER_32 new_size__4EIH,lab_type__3EIH,sz__TQMB,a__G3EH;
-  __UINTEGER_32 new_size__H3EH,t__L3EH,a__K3EH,new_size__IFIH;
-  __UINTEGER_32 lab_type__HFIH,sz__HSMB,a__O3EH,new_size__P3EH,t__T3EH;
-  __UINTEGER_32 a__S3EH,new_size__SFIH,lab_type__RFIH,sz__1TMB,a__W3EH;
-  __UINTEGER_32 new_size__X3EH,t__13EH,a__03EH,new_size__2FIH;
-  __UINTEGER_32 lab_type__1FIH;
+  __POINTER ptr__ZPQ,ptr_table__PMIH,next__OMIH,result__QMIH;
+  __POINTER ptr_table__UMIH,next__TMIH,result__VMIH,ptr__RQMB;
+  __POINTER ptr_table__ZMIH,next__YMIH,result__0MIH,ptr_table__4MIH;
+  __POINTER next__3MIH,result__5MIH,ptr__FSMB,ptr_table__DNIH;
+  __POINTER next__CNIH,result__ENIH,ptr_table__INIH,next__HNIH;
+  __POINTER result__JNIH,ptr__ZTMB,ptr_table__NNIH,next__MNIH;
+  __POINTER result__ONIH,ptr_table__SNIH,next__RNIH,result__TNIH;
+  __UINTEGER_32 sz__1PQ,a__FFFH,new_size__GFFH,t__KFFH,a__JFFH;
+  __UINTEGER_32 new_size__XMIH,lab_type__WMIH,sz__TQMB,a__NFFH;
+  __UINTEGER_32 new_size__OFFH,t__SFFH,a__RFFH,new_size__BNIH;
+  __UINTEGER_32 lab_type__ANIH,sz__HSMB,a__VFFH,new_size__WFFH,t__0FFH;
+  __UINTEGER_32 a__ZFFH,new_size__LNIH,lab_type__KNIH,sz__1TMB,a__3FFH;
+  __UINTEGER_32 new_size__4FFH,t__CGFH,a__BGFH,new_size__VNIH;
+  __UINTEGER_32 lab_type__UNIH;
   __ITM_NUMBER *result__QQMB;
   __ITM_CHARACTER *result__ESMB;
   __ITM_STRING *result__YTMB;
-  __BOOLEAN result__O5O,result__5WCH,__tmp__05O,result__KXCH,__tmp__UAP;
-  __BOOLEAN result__BYCH,result__MYCH,__tmp__BDP,result__HZCH;
-  __BOOLEAN result__SZCH,__tmp__LRO,__tmp__3RO,result__BGP,__tmp__OSO;
+  __BOOLEAN result__O5O,result__RADH,__tmp__05O,result__2ADH,__tmp__UAP;
+  __BOOLEAN result__TBDH,result__4BDH,__tmp__BDP,result__ZCDH;
+  __BOOLEAN result__EDDH,__tmp__LRO,__tmp__3RO,result__BGP,__tmp__OSO;
   __BOOLEAN result__5BQ,__tmp__LCQ,__tmp__KDQ,__tmp__LDQ;
-  __CHARACTER result__ZU5G,result__DV5G,result__IV5G,result__NV5G;
-  __CHARACTER result__SV5G,result__XV5G,result__2V5G,result__BW5G;
-  __CHARACTER result__GW5G,result__LW5G,result__QW5G,result__VW5G;
-  __CHARACTER result__0W5G,result__5W5G,result__EX5G,result__JX5G;
-  __CHARACTER result__OX5G,result__TX5G,result__YX5G,result__3X5G;
-  __CHARACTER result__HY5G,result__QY5G,result__VY5G,result__0Y5G;
-  __CHARACTER result__5Y5G,result__EZ5G;
+  __CHARACTER result__X35G,result__B45G,result__G45G,result__L45G;
+  __CHARACTER result__Q45G,result__V45G,result__045G,result__545G;
+  __CHARACTER result__E55G,result__J55G,result__O55G,result__T55G;
+  __CHARACTER result__Y55G,result__355G,result__CAAH,result__HAAH;
+  __CHARACTER result__MAAH,result__RAAH,result__WAAH,result__1AAH;
+  __CHARACTER result__FBAH,result__OBAH,result__TBAH,result__YBAH;
+  __CHARACTER result__3BAH,result__CCAH;
   result__4QO=NULL;
   result__O5O=FALSE__;
   pos_old__P5O= 0;
   if (read_space__3RD()) {
-    result__ZU5G='\0';
+    result__X35G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__ZU5G=((__CHARACTER )(( 0)));
+      result__X35G=((__CHARACTER )(( 0)));
     } else {
-      result__ZU5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__X35G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    result__5WCH=FALSE__;
-    if ((((__INTEGER_8 )result__ZU5G) >= ((__INTEGER_8 )'0'))) {
-      result__5WCH=(((__INTEGER_8 )result__ZU5G) <= ((__INTEGER_8 )'9'));
+    result__RADH=FALSE__;
+    if ((((__INTEGER_8 )result__X35G) >= ((__INTEGER_8 )'0'))) {
+      result__RADH=(((__INTEGER_8 )result__X35G) <= ((__INTEGER_8 )'9'));
     };
-    __tmp__05O=result__5WCH;
+    __tmp__05O=result__RADH;
   } else {
     __tmp__05O=FALSE__;
   };
   if (__tmp__05O) {
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
-    result__DV5G='\0';
+    result__B45G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__DV5G=((__CHARACTER )(( 0)));
+      result__B45G=((__CHARACTER )(( 0)));
     } else {
-      result__DV5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__B45G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    add_last__ZLT(string_tmp__VH,result__DV5G);
+    add_last__ZLT(string_tmp__VH,result__B45G);
     pos_old__P5O=position__SBC;
     position__SBC=(__INTEGER)(position__SBC +  1);
-    while_do__P2ZD:
+    while_do__RA0D:
     {
-      result__IV5G='\0';
+      result__G45G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__IV5G=((__CHARACTER )(( 0)));
+        result__G45G=((__CHARACTER )(( 0)));
       } else {
-        result__IV5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__G45G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      result__KXCH=FALSE__;
-      if ((((__INTEGER_8 )result__IV5G) >= ((__INTEGER_8 )'0'))) {
-        result__KXCH=(((__INTEGER_8 )result__IV5G) <= ((__INTEGER_8 )'9'));
+      result__2ADH=FALSE__;
+      if ((((__INTEGER_8 )result__G45G) >= ((__INTEGER_8 )'0'))) {
+        result__2ADH=(((__INTEGER_8 )result__G45G) <= ((__INTEGER_8 )'9'));
       };
-      if (result__KXCH) {
+      if (result__2ADH) {
         __tmp__UAP=TRUE__;
       } else {
-        result__NV5G='\0';
+        result__L45G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__NV5G=((__CHARACTER )(( 0)));
+          result__L45G=((__CHARACTER )(( 0)));
         } else {
-          result__NV5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__L45G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        __tmp__UAP=(result__NV5G == '_');
+        __tmp__UAP=(result__L45G == '_');
       };
       if (__tmp__UAP) {
-        result__SV5G='\0';
+        result__Q45G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__SV5G=((__CHARACTER )(( 0)));
+          result__Q45G=((__CHARACTER )(( 0)));
         } else {
-          result__SV5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__Q45G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__SV5G != '_')) {
-          result__XV5G='\0';
+        if ((result__Q45G != '_')) {
+          result__V45G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__XV5G=((__CHARACTER )(( 0)));
+            result__V45G=((__CHARACTER )(( 0)));
           } else {
-            result__XV5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__V45G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__XV5G);
+          add_last__ZLT(string_tmp__VH,result__V45G);
         };
         position__SBC=(__INTEGER)(position__SBC +  1);
-        goto while_do__P2ZD;
+        goto while_do__RA0D;
       };
     };
-    result__2V5G='\0';
+    result__045G='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__2V5G=((__CHARACTER )(( 0)));
+      result__045G=((__CHARACTER )(( 0)));
     } else {
-      result__2V5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__045G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__2V5G == '.')) {
+    if ((result__045G == '.')) {
       add_last__ZLT(string_tmp__VH,'.');
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__BW5G='\0';
+      result__545G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__BW5G=((__CHARACTER )(( 0)));
+        result__545G=((__CHARACTER )(( 0)));
       } else {
-        result__BW5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__545G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      result__BYCH=FALSE__;
-      if ((((__INTEGER_8 )result__BW5G) >= ((__INTEGER_8 )'0'))) {
-        result__BYCH=(((__INTEGER_8 )result__BW5G) <= ((__INTEGER_8 )'9'));
+      result__TBDH=FALSE__;
+      if ((((__INTEGER_8 )result__545G) >= ((__INTEGER_8 )'0'))) {
+        result__TBDH=(((__INTEGER_8 )result__545G) <= ((__INTEGER_8 )'9'));
       };
-      if (result__BYCH) {
+      if (result__TBDH) {
         result__O5O=TRUE__;
-        result__GW5G='\0';
+        result__E55G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__GW5G=((__CHARACTER )(( 0)));
+          result__E55G=((__CHARACTER )(( 0)));
         } else {
-          result__GW5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__E55G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        add_last__ZLT(string_tmp__VH,result__GW5G);
+        add_last__ZLT(string_tmp__VH,result__E55G);
         position__SBC=(__INTEGER)(position__SBC +  1);
-        while_do__2KPE:
+        while_do__4OPE:
         {
-          result__LW5G='\0';
+          result__J55G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__LW5G=((__CHARACTER )(( 0)));
+            result__J55G=((__CHARACTER )(( 0)));
           } else {
-            result__LW5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__J55G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          result__MYCH=FALSE__;
-          if ((((__INTEGER_8 )result__LW5G) >= ((__INTEGER_8 )'0'))) {
-            result__MYCH=(((__INTEGER_8 )result__LW5G) <= ((__INTEGER_8 )'9'));
+          result__4BDH=FALSE__;
+          if ((((__INTEGER_8 )result__J55G) >= ((__INTEGER_8 )'0'))) {
+            result__4BDH=(((__INTEGER_8 )result__J55G) <= ((__INTEGER_8 )'9'));
           };
-          if (result__MYCH) {
-            result__QW5G='\0';
+          if (result__4BDH) {
+            result__O55G='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__QW5G=((__CHARACTER )(( 0)));
+              result__O55G=((__CHARACTER )(( 0)));
             } else {
-              result__QW5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__O55G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            add_last__ZLT(string_tmp__VH,result__QW5G);
+            add_last__ZLT(string_tmp__VH,result__O55G);
             position__SBC=(__INTEGER)(position__SBC +  1);
-            goto while_do__2KPE;
+            goto while_do__4OPE;
           };
         };
       };
-      result__VW5G='\0';
+      result__T55G='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__VW5G=((__CHARACTER )(( 0)));
+        result__T55G=((__CHARACTER )(( 0)));
       } else {
-        result__VW5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__T55G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__VW5G == 'E')) {
+      if ((result__T55G == 'E')) {
         result__O5O=TRUE__;
         add_last__ZLT(string_tmp__VH,'E');
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__0W5G='\0';
+        result__Y55G='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__0W5G=((__CHARACTER )(( 0)));
+          result__Y55G=((__CHARACTER )(( 0)));
         } else {
-          result__0W5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__Y55G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__0W5G == '+')) {
+        if ((result__Y55G == '+')) {
           __tmp__BDP=TRUE__;
         } else {
-          result__5W5G='\0';
+          result__355G='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__5W5G=((__CHARACTER )(( 0)));
+            result__355G=((__CHARACTER )(( 0)));
           } else {
-            result__5W5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__355G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__BDP=(result__5W5G == '-');
+          __tmp__BDP=(result__355G == '-');
         };
         if (__tmp__BDP) {
-          result__EX5G='\0';
+          result__CAAH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__EX5G=((__CHARACTER )(( 0)));
+            result__CAAH=((__CHARACTER )(( 0)));
           } else {
-            result__EX5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__CAAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__EX5G);
+          add_last__ZLT(string_tmp__VH,result__CAAH);
           position__SBC=(__INTEGER)(position__SBC +  1);
         };
-        result__JX5G='\0';
+        result__HAAH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__JX5G=((__CHARACTER )(( 0)));
+          result__HAAH=((__CHARACTER )(( 0)));
         } else {
-          result__JX5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__HAAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        result__HZCH=FALSE__;
-        if ((((__INTEGER_8 )result__JX5G) >= ((__INTEGER_8 )'0'))) {
-          result__HZCH=(((__INTEGER_8 )result__JX5G) <= ((__INTEGER_8 )'9'));
+        result__ZCDH=FALSE__;
+        if ((((__INTEGER_8 )result__HAAH) >= ((__INTEGER_8 )'0'))) {
+          result__ZCDH=(((__INTEGER_8 )result__HAAH) <= ((__INTEGER_8 )'9'));
         };
-        if (result__HZCH) {
-          result__OX5G='\0';
+        if (result__ZCDH) {
+          result__MAAH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__OX5G=((__CHARACTER )(( 0)));
+            result__MAAH=((__CHARACTER )(( 0)));
           } else {
-            result__OX5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__MAAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__OX5G);
+          add_last__ZLT(string_tmp__VH,result__MAAH);
           position__SBC=(__INTEGER)(position__SBC +  1);
-          while_do__R2QE:
+          while_do__RARE:
           {
-            result__TX5G='\0';
+            result__RAAH='\0';
             if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-              result__TX5G=((__CHARACTER )(( 0)));
+              result__RAAH=((__CHARACTER )(( 0)));
             } else {
-              result__TX5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+              result__RAAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
             };
-            result__SZCH=FALSE__;
-            if ((((__INTEGER_8 )result__TX5G) >= ((__INTEGER_8 )'0'))) {
-              result__SZCH=(((__INTEGER_8 )result__TX5G) <= ((__INTEGER_8 )'9'));
+            result__EDDH=FALSE__;
+            if ((((__INTEGER_8 )result__RAAH) >= ((__INTEGER_8 )'0'))) {
+              result__EDDH=(((__INTEGER_8 )result__RAAH) <= ((__INTEGER_8 )'9'));
             };
-            if (result__SZCH) {
-              result__YX5G='\0';
+            if (result__EDDH) {
+              result__WAAH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__YX5G=((__CHARACTER )(( 0)));
+                result__WAAH=((__CHARACTER )(( 0)));
               } else {
-                result__YX5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__WAAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              add_last__ZLT(string_tmp__VH,result__YX5G);
+              add_last__ZLT(string_tmp__VH,result__WAAH);
               position__SBC=(__INTEGER)(position__SBC +  1);
-              goto while_do__R2QE;
+              goto while_do__RARE;
             };
           };
         } else {
-          pos__DDYG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_323));
-          put_position__UOG(pos__DDYG);
+          pos__4MYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_326));
+          put_position__UOG(pos__4MYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -32037,61 +32225,61 @@ static void* read_constant__1QO()
       typ_id__4PQ=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__1PQ);
       if ((typ_id__4PQ == (__INTEGER)(-  1))) {
-        a__42EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__52EH=(__UINTEGER_32)((__UINTEGER_32)(sz__1PQ + a__42EH) & (__UINTEGER_32)(~ a__42EH));
-        ptr_table__WEIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__52EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__VEIH=((__POINTER )(NULL));
-        result__XEIH=((__POINTER *)ptr_table__WEIH)[ 0];
-        if ((result__XEIH == (void *)NULL)) {
-          result__XEIH=new_lab__MRJ(new_size__52EH);
-          next__VEIH=(void *)((unsigned long)result__XEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__52EH)));
-          ((__POINTER *)next__VEIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WEIH)[ 0]=next__VEIH;
-        } else {
-          next__VEIH=((__POINTER *)result__XEIH)[ 0];
-          if ((next__VEIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XEIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__52EH <<  1)) <=  4096)) {
-              next__VEIH=(void *)((unsigned long)result__XEIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__52EH)));
+        a__FFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__GFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1PQ + a__FFFH) & (__UINTEGER_32)(~ a__FFFH));
+        ptr_table__PMIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__OMIH=((__POINTER )(NULL));
+        result__QMIH=((__POINTER *)ptr_table__PMIH)[ 0];
+        if ((result__QMIH == (void *)NULL)) {
+          result__QMIH=new_lab__MRJ(new_size__GFFH);
+          next__OMIH=(void *)((unsigned long)result__QMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GFFH)));
+          ((__POINTER *)next__OMIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__PMIH)[ 0]=next__OMIH;
+        } else {
+          next__OMIH=((__POINTER *)result__QMIH)[ 0];
+          if ((next__OMIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GFFH <<  1)) <=  4096)) {
+              next__OMIH=(void *)((unsigned long)result__QMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GFFH)));
             } else {
-              next__VEIH=new_lab__MRJ(new_size__52EH);
-            };
-            ((__POINTER *)next__VEIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WEIH)[ 0]=next__VEIH;
-          } else {
-            ((__POINTER *)result__XEIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VEIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__XEIH=next__VEIH;
-          };
-        };
-        ptr__ZPQ=result__XEIH;
-      } else {
-        t__D3EH=((__UINTEGER_32 )typ_id__4PQ);
-        a__C3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__4EIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1PQ + a__C3EH) & (__UINTEGER_32)(~ a__C3EH));
-        ptr_table__1EIH=((__POINTER )(&(table_type[(t__D3EH)])));
-        lab_type__3EIH=(__UINTEGER_32)(t__D3EH |  1);
-        next__0EIH=((__POINTER )(NULL));
-        result__2EIH=((__POINTER *)ptr_table__1EIH)[ 0];
-        if ((result__2EIH == (void *)NULL)) {
-          result__2EIH=new_lab__MRJ(lab_type__3EIH);
-          next__0EIH=(void *)((unsigned long)result__2EIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4EIH)));
-          ((__POINTER *)next__0EIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1EIH)[ 0]=next__0EIH;
-        } else {
-          next__0EIH=((__POINTER *)result__2EIH)[ 0];
-          if ((next__0EIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2EIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4EIH <<  1)) <=  4096)) {
-              next__0EIH=(void *)((unsigned long)result__2EIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4EIH)));
+              next__OMIH=new_lab__MRJ(new_size__GFFH);
+            };
+            ((__POINTER *)next__OMIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__PMIH)[ 0]=next__OMIH;
+          } else {
+            ((__POINTER *)result__QMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__QMIH=next__OMIH;
+          };
+        };
+        ptr__ZPQ=result__QMIH;
+      } else {
+        t__KFFH=((__UINTEGER_32 )typ_id__4PQ);
+        a__JFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__XMIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1PQ + a__JFFH) & (__UINTEGER_32)(~ a__JFFH));
+        ptr_table__UMIH=((__POINTER )(&(table_type[(t__KFFH)])));
+        lab_type__WMIH=(__UINTEGER_32)(t__KFFH |  1);
+        next__TMIH=((__POINTER )(NULL));
+        result__VMIH=((__POINTER *)ptr_table__UMIH)[ 0];
+        if ((result__VMIH == (void *)NULL)) {
+          result__VMIH=new_lab__MRJ(lab_type__WMIH);
+          next__TMIH=(void *)((unsigned long)result__VMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMIH)));
+          ((__POINTER *)next__TMIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__UMIH)[ 0]=next__TMIH;
+        } else {
+          next__TMIH=((__POINTER *)result__VMIH)[ 0];
+          if ((next__TMIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__XMIH <<  1)) <=  4096)) {
+              next__TMIH=(void *)((unsigned long)result__VMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMIH)));
             } else {
-              next__0EIH=new_lab__MRJ(lab_type__3EIH);
+              next__TMIH=new_lab__MRJ(lab_type__WMIH);
             };
-            ((__POINTER *)next__0EIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__1EIH)[ 0]=next__0EIH;
+            ((__POINTER *)next__TMIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__UMIH)[ 0]=next__TMIH;
           } else {
-            ((__POINTER *)result__2EIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0EIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__2EIH=next__0EIH;
+            ((__POINTER *)result__VMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__VMIH=next__TMIH;
           };
         };
-        ptr__ZPQ=result__2EIH;
+        ptr__ZPQ=result__VMIH;
       };
       result__YPQ=((__ITM_REAL *)ptr__ZPQ);
       *(result__YPQ) = *(ITM_REAL__);
@@ -32118,61 +32306,61 @@ static void* read_constant__1QO()
         typ_id__WQMB=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__TQMB);
         if ((typ_id__WQMB == (__INTEGER)(-  1))) {
-          a__G3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__H3EH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQMB + a__G3EH) & (__UINTEGER_32)(~ a__G3EH));
-          ptr_table__AFIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__H3EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__5EIH=((__POINTER )(NULL));
-          result__BFIH=((__POINTER *)ptr_table__AFIH)[ 0];
-          if ((result__BFIH == (void *)NULL)) {
-            result__BFIH=new_lab__MRJ(new_size__H3EH);
-            next__5EIH=(void *)((unsigned long)result__BFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H3EH)));
-            ((__POINTER *)next__5EIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AFIH)[ 0]=next__5EIH;
-          } else {
-            next__5EIH=((__POINTER *)result__BFIH)[ 0];
-            if ((next__5EIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__H3EH <<  1)) <=  4096)) {
-                next__5EIH=(void *)((unsigned long)result__BFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H3EH)));
+          a__NFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__OFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQMB + a__NFFH) & (__UINTEGER_32)(~ a__NFFH));
+          ptr_table__ZMIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__YMIH=((__POINTER )(NULL));
+          result__0MIH=((__POINTER *)ptr_table__ZMIH)[ 0];
+          if ((result__0MIH == (void *)NULL)) {
+            result__0MIH=new_lab__MRJ(new_size__OFFH);
+            next__YMIH=(void *)((unsigned long)result__0MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OFFH)));
+            ((__POINTER *)next__YMIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__ZMIH)[ 0]=next__YMIH;
+          } else {
+            next__YMIH=((__POINTER *)result__0MIH)[ 0];
+            if ((next__YMIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0MIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OFFH <<  1)) <=  4096)) {
+                next__YMIH=(void *)((unsigned long)result__0MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OFFH)));
               } else {
-                next__5EIH=new_lab__MRJ(new_size__H3EH);
+                next__YMIH=new_lab__MRJ(new_size__OFFH);
               };
-              ((__POINTER *)next__5EIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AFIH)[ 0]=next__5EIH;
+              ((__POINTER *)next__YMIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__ZMIH)[ 0]=next__YMIH;
             } else {
-              ((__POINTER *)result__BFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5EIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__BFIH=next__5EIH;
-            };
-          };
-          ptr__RQMB=result__BFIH;
-        } else {
-          t__L3EH=((__UINTEGER_32 )typ_id__WQMB);
-          a__K3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__IFIH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQMB + a__K3EH) & (__UINTEGER_32)(~ a__K3EH));
-          ptr_table__FFIH=((__POINTER )(&(table_type[(t__L3EH)])));
-          lab_type__HFIH=(__UINTEGER_32)(t__L3EH |  1);
-          next__EFIH=((__POINTER )(NULL));
-          result__GFIH=((__POINTER *)ptr_table__FFIH)[ 0];
-          if ((result__GFIH == (void *)NULL)) {
-            result__GFIH=new_lab__MRJ(lab_type__HFIH);
-            next__EFIH=(void *)((unsigned long)result__GFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IFIH)));
-            ((__POINTER *)next__EFIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FFIH)[ 0]=next__EFIH;
-          } else {
-            next__EFIH=((__POINTER *)result__GFIH)[ 0];
-            if ((next__EFIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IFIH <<  1)) <=  4096)) {
-                next__EFIH=(void *)((unsigned long)result__GFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IFIH)));
+              ((__POINTER *)result__0MIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__0MIH=next__YMIH;
+            };
+          };
+          ptr__RQMB=result__0MIH;
+        } else {
+          t__SFFH=((__UINTEGER_32 )typ_id__WQMB);
+          a__RFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__BNIH=(__UINTEGER_32)((__UINTEGER_32)(sz__TQMB + a__RFFH) & (__UINTEGER_32)(~ a__RFFH));
+          ptr_table__4MIH=((__POINTER )(&(table_type[(t__SFFH)])));
+          lab_type__ANIH=(__UINTEGER_32)(t__SFFH |  1);
+          next__3MIH=((__POINTER )(NULL));
+          result__5MIH=((__POINTER *)ptr_table__4MIH)[ 0];
+          if ((result__5MIH == (void *)NULL)) {
+            result__5MIH=new_lab__MRJ(lab_type__ANIH);
+            next__3MIH=(void *)((unsigned long)result__5MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BNIH)));
+            ((__POINTER *)next__3MIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__4MIH)[ 0]=next__3MIH;
+          } else {
+            next__3MIH=((__POINTER *)result__5MIH)[ 0];
+            if ((next__3MIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5MIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BNIH <<  1)) <=  4096)) {
+                next__3MIH=(void *)((unsigned long)result__5MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BNIH)));
               } else {
-                next__EFIH=new_lab__MRJ(lab_type__HFIH);
+                next__3MIH=new_lab__MRJ(lab_type__ANIH);
               };
-              ((__POINTER *)next__EFIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FFIH)[ 0]=next__EFIH;
+              ((__POINTER *)next__3MIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__4MIH)[ 0]=next__3MIH;
             } else {
-              ((__POINTER *)result__GFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__GFIH=next__EFIH;
+              ((__POINTER *)result__5MIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3MIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__5MIH=next__3MIH;
             };
           };
-          ptr__RQMB=result__GFIH;
+          ptr__RQMB=result__5MIH;
         };
         result__QQMB=((__ITM_NUMBER *)ptr__RQMB);
         *(result__QQMB) = *(ITM_NUMBER__);
@@ -32189,13 +32377,13 @@ static void* read_constant__1QO()
     old_pos__ACQ= 0;
     count__BCQ= 0;
     if (read_space__3RD()) {
-      result__3X5G='\0';
+      result__1AAH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__3X5G=((__CHARACTER )(( 0)));
+        result__1AAH=((__CHARACTER )(( 0)));
       } else {
-        result__3X5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__1AAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      __tmp__LCQ=(result__3X5G == '\'');
+      __tmp__LCQ=(result__1AAH == '\'');
     } else {
       __tmp__LCQ=FALSE__;
     };
@@ -32205,51 +32393,51 @@ static void* read_constant__1QO()
       ((__STRING *)string_tmp__VH)->count__WFC= 0;
       until_do__IJRC:
       {
-        result__HY5G='\0';
+        result__FBAH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__HY5G=((__CHARACTER )(( 0)));
+          result__FBAH=((__CHARACTER )(( 0)));
         } else {
-          result__HY5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__FBAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__HY5G == ((__CHARACTER )(( 0))))) {
+        if ((result__FBAH == ((__CHARACTER )(( 0))))) {
           __tmp__KDQ=TRUE__;
         } else {
-          result__QY5G='\0';
+          result__OBAH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__QY5G=((__CHARACTER )(( 0)));
+            result__OBAH=((__CHARACTER )(( 0)));
           } else {
-            result__QY5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__OBAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__KDQ=(result__QY5G == '\n');
+          __tmp__KDQ=(result__OBAH == '\n');
         };
         if (__tmp__KDQ) {
           __tmp__LDQ=TRUE__;
         } else {
-          result__VY5G='\0';
+          result__TBAH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__VY5G=((__CHARACTER )(( 0)));
+            result__TBAH=((__CHARACTER )(( 0)));
           } else {
-            result__VY5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__TBAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          __tmp__LDQ=(result__VY5G == '\'');
+          __tmp__LDQ=(result__TBAH == '\'');
         };
         if ((! __tmp__LDQ)) {
-          result__0Y5G='\0';
+          result__YBAH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__0Y5G=((__CHARACTER )(( 0)));
+            result__YBAH=((__CHARACTER )(( 0)));
           } else {
-            result__0Y5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__YBAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          add_last__ZLT(string_tmp__VH,result__0Y5G);
-          result__5Y5G='\0';
+          add_last__ZLT(string_tmp__VH,result__YBAH);
+          result__3BAH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__5Y5G=((__CHARACTER )(( 0)));
+            result__3BAH=((__CHARACTER )(( 0)));
           } else {
-            result__5Y5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__3BAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__5Y5G == '\\')) {
+          if ((result__3BAH == '\\')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            read_escape_character__R1JF();
+            read_escape_character__WAKF();
             count__BCQ=(__INTEGER)(count__BCQ +  1);
           } else {
             position__SBC=(__INTEGER)(position__SBC +  1);
@@ -32258,20 +32446,20 @@ static void* read_constant__1QO()
           goto until_do__IJRC;
         };
       };
-      result__EZ5G='\0';
+      result__CCAH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__EZ5G=((__CHARACTER )(( 0)));
+        result__CCAH=((__CHARACTER )(( 0)));
       } else {
-        result__EZ5G=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__CCAH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__EZ5G == '\'')) {
+      if ((result__CCAH == '\'')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
         last_string__I0C=get__IWB(string_tmp__VH);
         if ((count__BCQ !=  1)) {
           position__SBC=begin_position__LBE;
-          pos__DEYG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_324));
-          put_position__UOG(pos__DEYG);
+          pos__4NYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_327));
+          put_position__UOG(pos__4NYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -32281,9 +32469,9 @@ static void* read_constant__1QO()
         short__token__to__LBD((&__string_122),old_pos__ACQ,position__SBC);
       } else {
         position__SBC=begin_position__LBE;
-        pos__FEYG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_325));
-        put_position__UOG(pos__FEYG);
+        pos__AOYG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_328));
+        put_position__UOG(pos__AOYG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -32302,61 +32490,61 @@ static void* read_constant__1QO()
         typ_id__KSMB=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__HSMB);
         if ((typ_id__KSMB == (__INTEGER)(-  1))) {
-          a__O3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__P3EH=(__UINTEGER_32)((__UINTEGER_32)(sz__HSMB + a__O3EH) & (__UINTEGER_32)(~ a__O3EH));
-          ptr_table__KFIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__P3EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__JFIH=((__POINTER )(NULL));
-          result__LFIH=((__POINTER *)ptr_table__KFIH)[ 0];
-          if ((result__LFIH == (void *)NULL)) {
-            result__LFIH=new_lab__MRJ(new_size__P3EH);
-            next__JFIH=(void *)((unsigned long)result__LFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3EH)));
-            ((__POINTER *)next__JFIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__KFIH)[ 0]=next__JFIH;
-          } else {
-            next__JFIH=((__POINTER *)result__LFIH)[ 0];
-            if ((next__JFIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__P3EH <<  1)) <=  4096)) {
-                next__JFIH=(void *)((unsigned long)result__LFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3EH)));
+          a__VFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__WFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__HSMB + a__VFFH) & (__UINTEGER_32)(~ a__VFFH));
+          ptr_table__DNIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__CNIH=((__POINTER )(NULL));
+          result__ENIH=((__POINTER *)ptr_table__DNIH)[ 0];
+          if ((result__ENIH == (void *)NULL)) {
+            result__ENIH=new_lab__MRJ(new_size__WFFH);
+            next__CNIH=(void *)((unsigned long)result__ENIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WFFH)));
+            ((__POINTER *)next__CNIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__DNIH)[ 0]=next__CNIH;
+          } else {
+            next__CNIH=((__POINTER *)result__ENIH)[ 0];
+            if ((next__CNIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ENIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WFFH <<  1)) <=  4096)) {
+                next__CNIH=(void *)((unsigned long)result__ENIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WFFH)));
               } else {
-                next__JFIH=new_lab__MRJ(new_size__P3EH);
+                next__CNIH=new_lab__MRJ(new_size__WFFH);
               };
-              ((__POINTER *)next__JFIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__KFIH)[ 0]=next__JFIH;
+              ((__POINTER *)next__CNIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__DNIH)[ 0]=next__CNIH;
             } else {
-              ((__POINTER *)result__LFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__LFIH=next__JFIH;
-            };
-          };
-          ptr__FSMB=result__LFIH;
-        } else {
-          t__T3EH=((__UINTEGER_32 )typ_id__KSMB);
-          a__S3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__SFIH=(__UINTEGER_32)((__UINTEGER_32)(sz__HSMB + a__S3EH) & (__UINTEGER_32)(~ a__S3EH));
-          ptr_table__PFIH=((__POINTER )(&(table_type[(t__T3EH)])));
-          lab_type__RFIH=(__UINTEGER_32)(t__T3EH |  1);
-          next__OFIH=((__POINTER )(NULL));
-          result__QFIH=((__POINTER *)ptr_table__PFIH)[ 0];
-          if ((result__QFIH == (void *)NULL)) {
-            result__QFIH=new_lab__MRJ(lab_type__RFIH);
-            next__OFIH=(void *)((unsigned long)result__QFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SFIH)));
-            ((__POINTER *)next__OFIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__PFIH)[ 0]=next__OFIH;
-          } else {
-            next__OFIH=((__POINTER *)result__QFIH)[ 0];
-            if ((next__OFIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SFIH <<  1)) <=  4096)) {
-                next__OFIH=(void *)((unsigned long)result__QFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SFIH)));
+              ((__POINTER *)result__ENIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__ENIH=next__CNIH;
+            };
+          };
+          ptr__FSMB=result__ENIH;
+        } else {
+          t__0FFH=((__UINTEGER_32 )typ_id__KSMB);
+          a__ZFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__LNIH=(__UINTEGER_32)((__UINTEGER_32)(sz__HSMB + a__ZFFH) & (__UINTEGER_32)(~ a__ZFFH));
+          ptr_table__INIH=((__POINTER )(&(table_type[(t__0FFH)])));
+          lab_type__KNIH=(__UINTEGER_32)(t__0FFH |  1);
+          next__HNIH=((__POINTER )(NULL));
+          result__JNIH=((__POINTER *)ptr_table__INIH)[ 0];
+          if ((result__JNIH == (void *)NULL)) {
+            result__JNIH=new_lab__MRJ(lab_type__KNIH);
+            next__HNIH=(void *)((unsigned long)result__JNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LNIH)));
+            ((__POINTER *)next__HNIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__INIH)[ 0]=next__HNIH;
+          } else {
+            next__HNIH=((__POINTER *)result__JNIH)[ 0];
+            if ((next__HNIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JNIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LNIH <<  1)) <=  4096)) {
+                next__HNIH=(void *)((unsigned long)result__JNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LNIH)));
               } else {
-                next__OFIH=new_lab__MRJ(lab_type__RFIH);
+                next__HNIH=new_lab__MRJ(lab_type__KNIH);
               };
-              ((__POINTER *)next__OFIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__PFIH)[ 0]=next__OFIH;
+              ((__POINTER *)next__HNIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__INIH)[ 0]=next__HNIH;
             } else {
-              ((__POINTER *)result__QFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__QFIH=next__OFIH;
+              ((__POINTER *)result__JNIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__JNIH=next__HNIH;
             };
           };
-          ptr__FSMB=result__QFIH;
+          ptr__FSMB=result__JNIH;
         };
         result__ESMB=((__ITM_CHARACTER *)ptr__FSMB);
         *(result__ESMB) = *(ITM_CHARACTER__);
@@ -32379,61 +32567,61 @@ static void* read_constant__1QO()
         typ_id__4TMB=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__1TMB);
         if ((typ_id__4TMB == (__INTEGER)(-  1))) {
-          a__W3EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__X3EH=(__UINTEGER_32)((__UINTEGER_32)(sz__1TMB + a__W3EH) & (__UINTEGER_32)(~ a__W3EH));
-          ptr_table__UFIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X3EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__TFIH=((__POINTER )(NULL));
-          result__VFIH=((__POINTER *)ptr_table__UFIH)[ 0];
-          if ((result__VFIH == (void *)NULL)) {
-            result__VFIH=new_lab__MRJ(new_size__X3EH);
-            next__TFIH=(void *)((unsigned long)result__VFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X3EH)));
-            ((__POINTER *)next__TFIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UFIH)[ 0]=next__TFIH;
-          } else {
-            next__TFIH=((__POINTER *)result__VFIH)[ 0];
-            if ((next__TFIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VFIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__X3EH <<  1)) <=  4096)) {
-                next__TFIH=(void *)((unsigned long)result__VFIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X3EH)));
+          a__3FFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__4FFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1TMB + a__3FFH) & (__UINTEGER_32)(~ a__3FFH));
+          ptr_table__NNIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4FFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__MNIH=((__POINTER )(NULL));
+          result__ONIH=((__POINTER *)ptr_table__NNIH)[ 0];
+          if ((result__ONIH == (void *)NULL)) {
+            result__ONIH=new_lab__MRJ(new_size__4FFH);
+            next__MNIH=(void *)((unsigned long)result__ONIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4FFH)));
+            ((__POINTER *)next__MNIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__NNIH)[ 0]=next__MNIH;
+          } else {
+            next__MNIH=((__POINTER *)result__ONIH)[ 0];
+            if ((next__MNIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ONIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4FFH <<  1)) <=  4096)) {
+                next__MNIH=(void *)((unsigned long)result__ONIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4FFH)));
               } else {
-                next__TFIH=new_lab__MRJ(new_size__X3EH);
+                next__MNIH=new_lab__MRJ(new_size__4FFH);
               };
-              ((__POINTER *)next__TFIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__UFIH)[ 0]=next__TFIH;
+              ((__POINTER *)next__MNIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__NNIH)[ 0]=next__MNIH;
             } else {
-              ((__POINTER *)result__VFIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__VFIH=next__TFIH;
-            };
-          };
-          ptr__ZTMB=result__VFIH;
-        } else {
-          t__13EH=((__UINTEGER_32 )typ_id__4TMB);
-          a__03EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__2FIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1TMB + a__03EH) & (__UINTEGER_32)(~ a__03EH));
-          ptr_table__ZFIH=((__POINTER )(&(table_type[(t__13EH)])));
-          lab_type__1FIH=(__UINTEGER_32)(t__13EH |  1);
-          next__YFIH=((__POINTER )(NULL));
-          result__0FIH=((__POINTER *)ptr_table__ZFIH)[ 0];
-          if ((result__0FIH == (void *)NULL)) {
-            result__0FIH=new_lab__MRJ(lab_type__1FIH);
-            next__YFIH=(void *)((unsigned long)result__0FIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2FIH)));
-            ((__POINTER *)next__YFIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ZFIH)[ 0]=next__YFIH;
-          } else {
-            next__YFIH=((__POINTER *)result__0FIH)[ 0];
-            if ((next__YFIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0FIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2FIH <<  1)) <=  4096)) {
-                next__YFIH=(void *)((unsigned long)result__0FIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2FIH)));
+              ((__POINTER *)result__ONIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__ONIH=next__MNIH;
+            };
+          };
+          ptr__ZTMB=result__ONIH;
+        } else {
+          t__CGFH=((__UINTEGER_32 )typ_id__4TMB);
+          a__BGFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__VNIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1TMB + a__BGFH) & (__UINTEGER_32)(~ a__BGFH));
+          ptr_table__SNIH=((__POINTER )(&(table_type[(t__CGFH)])));
+          lab_type__UNIH=(__UINTEGER_32)(t__CGFH |  1);
+          next__RNIH=((__POINTER )(NULL));
+          result__TNIH=((__POINTER *)ptr_table__SNIH)[ 0];
+          if ((result__TNIH == (void *)NULL)) {
+            result__TNIH=new_lab__MRJ(lab_type__UNIH);
+            next__RNIH=(void *)((unsigned long)result__TNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VNIH)));
+            ((__POINTER *)next__RNIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__SNIH)[ 0]=next__RNIH;
+          } else {
+            next__RNIH=((__POINTER *)result__TNIH)[ 0];
+            if ((next__RNIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TNIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VNIH <<  1)) <=  4096)) {
+                next__RNIH=(void *)((unsigned long)result__TNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VNIH)));
               } else {
-                next__YFIH=new_lab__MRJ(lab_type__1FIH);
+                next__RNIH=new_lab__MRJ(lab_type__UNIH);
               };
-              ((__POINTER *)next__YFIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__ZFIH)[ 0]=next__YFIH;
+              ((__POINTER *)next__RNIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__SNIH)[ 0]=next__RNIH;
             } else {
-              ((__POINTER *)result__0FIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YFIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__0FIH=next__YFIH;
+              ((__POINTER *)result__TNIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__TNIH=next__RNIH;
             };
           };
-          ptr__ZTMB=result__0FIH;
+          ptr__ZTMB=result__TNIH;
         };
         result__YTMB=((__ITM_STRING *)ptr__ZTMB);
         *(result__YTMB) = *(ITM_STRING__);
@@ -32449,53 +32637,53 @@ static void* read_group__JBHB(__PARSER *Self__KBHB)
 // ({PARSER}) With resultNo recursive, No inlinable.
 {
   void *e__MBHB;
-  __ITM_RESULT *result__DGIH,*result__GYWB;
-  __POINTER ptr__EGIH,ptr_table__NGIH,next__MGIH,result__OGIH;
-  __POINTER ptr_table__SGIH,next__RGIH,result__TGIH,ptr__HYWB;
-  __POINTER ptr_table__3GIH,next__2GIH,result__4GIH,ptr_table__CHIH;
-  __POINTER next__BHIH,result__DHIH;
-  __INTEGER typ_id__FGIH,typ_id__MYWB;
-  __UINTEGER_32 sz__GGIH,a__HGIH,new_size__IGIH,t__JGIH,a__KGIH;
-  __UINTEGER_32 new_size__VGIH,lab_type__UGIH,sz__JYWB,a__FBFH;
-  __UINTEGER_32 new_size__GBFH,t__KBFH,a__JBFH,new_size__FHIH;
-  __UINTEGER_32 lab_type__EHIH;
-  __POSITION pos__TEYG;
-  void *result__YYFH,*result__NBHB;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__ZYFH,*Self__0YFH;
-  __BOOLEAN result__3FIH,__tmp__2BHB,result__AGIH,result__WGIH;
-  __BOOLEAN __tmp__DDHB,result__ZGIH;
-  __CHARACTER result__4FIH,result__BGIH,result__XGIH,result__0GIH;
+  __ITM_RESULT *result__2NIH,*result__GYWB;
+  __POINTER ptr__3NIH,ptr_table__GOIH,next__FOIH,result__HOIH;
+  __POINTER ptr_table__LOIH,next__KOIH,result__MOIH,ptr__HYWB;
+  __POINTER ptr_table__WOIH,next__VOIH,result__XOIH,ptr_table__1OIH;
+  __POINTER next__0OIH,result__2OIH;
+  __INTEGER typ_id__4NIH,typ_id__MYWB;
+  __UINTEGER_32 sz__5NIH,a__AOIH,new_size__BOIH,t__COIH,a__DOIH;
+  __UINTEGER_32 new_size__OOIH,lab_type__NOIH,sz__JYWB,a__MJFH;
+  __UINTEGER_32 new_size__NJFH,t__RJFH,a__QJFH,new_size__4OIH;
+  __UINTEGER_32 lab_type__3OIH;
+  __POSITION pos__OOYG;
+  void *result__FBGH,*result__NBHB;
+  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__GBGH,*Self__HBGH;
+  __BOOLEAN result__WNIH,__tmp__2BHB,result__ZNIH,result__POIH;
+  __BOOLEAN __tmp__DDHB,result__SOIH;
+  __CHARACTER result__XNIH,result__0NIH,result__QOIH,result__TOIH;
   read_def_local__30H(Self__KBHB);
-  result__YYFH=NULL;
+  result__FBGH=NULL;
   if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H)->parent_arrayed_collection__A4H.upper__IWT <  0)) {
-    result__YYFH=create_with_capacity__SVI( 16);
+    result__FBGH=create_with_capacity__SVI( 16);
   } else {
-    Self__ZYFH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
-    result__YYFH=((void **)Self__ZYFH->parent_arrayed_collection__A4H.storage__WAU)[Self__ZYFH->parent_arrayed_collection__A4H.upper__IWT];
-    Self__0YFH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
-    Self__0YFH->parent_arrayed_collection__A4H.upper__IWT=(__INTEGER)(Self__0YFH->parent_arrayed_collection__A4H.upper__IWT -  1);
+    Self__GBGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
+    result__FBGH=((void **)Self__GBGH->parent_arrayed_collection__A4H.storage__WAU)[Self__GBGH->parent_arrayed_collection__A4H.upper__IWT];
+    Self__HBGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
+    Self__HBGH->parent_arrayed_collection__A4H.upper__IWT=(__INTEGER)(Self__HBGH->parent_arrayed_collection__A4H.upper__IWT -  1);
   };
-  result__NBHB=result__YYFH;
+  result__NBHB=result__FBGH;
   e__MBHB=read_expr__44I(Self__KBHB);
   while_do__2GMB:
   {
     if (((void *)e__MBHB != (void *)NULL)) {
-      result__3FIH=FALSE__;
+      result__WNIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__3FIH=FALSE__;
+        result__WNIH=FALSE__;
       } else {
-        result__4FIH='\0';
+        result__XNIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__4FIH=((__CHARACTER )(( 0)));
+          result__XNIH=((__CHARACTER )(( 0)));
         } else {
-          result__4FIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__XNIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__4FIH == ';')) {
+        if ((result__XNIH == ';')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__3FIH=TRUE__;
+          result__WNIH=TRUE__;
         };
       };
-      __tmp__2BHB=result__3FIH;
+      __tmp__2BHB=result__WNIH;
     } else {
       __tmp__2BHB=FALSE__;
     };
@@ -32506,114 +32694,114 @@ static void* read_group__JBHB(__PARSER *Self__KBHB)
     };
   };
   if (((void *)e__MBHB != (void *)NULL)) {
-    result__AGIH=FALSE__;
+    result__ZNIH=FALSE__;
     if ((! read_space__3RD())) {
-      result__AGIH=FALSE__;
+      result__ZNIH=FALSE__;
     } else {
-      result__BGIH='\0';
+      result__0NIH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__BGIH=((__CHARACTER )(( 0)));
+        result__0NIH=((__CHARACTER )(( 0)));
       } else {
-        result__BGIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__0NIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__BGIH == ',')) {
+      if ((result__0NIH == ',')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__AGIH=TRUE__;
+        result__ZNIH=TRUE__;
       };
     };
-    if (result__AGIH) {
+    if (result__ZNIH) {
       do {
-        result__DGIH=NULL;
-        ptr__EGIH=((__POINTER )(NULL));
-        typ_id__FGIH= 0;
-        sz__GGIH=((__UINTEGER_32 )sizeof(__ITM_RESULT));
-        if ((sz__GGIH ==  0)) {
-          result__DGIH=ITM_RESULT__;
-        } else {
-          typ_id__FGIH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GGIH);
-          if ((typ_id__FGIH == (__INTEGER)(-  1))) {
-            a__HGIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__IGIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GGIH + a__HGIH) & (__UINTEGER_32)(~ a__HGIH));
-            ptr_table__NGIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IGIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__MGIH=((__POINTER )(NULL));
-            result__OGIH=((__POINTER *)ptr_table__NGIH)[ 0];
-            if ((result__OGIH == (void *)NULL)) {
-              result__OGIH=new_lab__MRJ(new_size__IGIH);
-              next__MGIH=(void *)((unsigned long)result__OGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGIH)));
-              ((__POINTER *)next__MGIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__NGIH)[ 0]=next__MGIH;
+        result__2NIH=NULL;
+        ptr__3NIH=((__POINTER )(NULL));
+        typ_id__4NIH= 0;
+        sz__5NIH=((__UINTEGER_32 )sizeof(__ITM_RESULT));
+        if ((sz__5NIH ==  0)) {
+          result__2NIH=ITM_RESULT__;
+        } else {
+          typ_id__4NIH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__5NIH);
+          if ((typ_id__4NIH == (__INTEGER)(-  1))) {
+            a__AOIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__BOIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NIH + a__AOIH) & (__UINTEGER_32)(~ a__AOIH));
+            ptr_table__GOIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BOIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__FOIH=((__POINTER )(NULL));
+            result__HOIH=((__POINTER *)ptr_table__GOIH)[ 0];
+            if ((result__HOIH == (void *)NULL)) {
+              result__HOIH=new_lab__MRJ(new_size__BOIH);
+              next__FOIH=(void *)((unsigned long)result__HOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BOIH)));
+              ((__POINTER *)next__FOIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__GOIH)[ 0]=next__FOIH;
             } else {
-              next__MGIH=((__POINTER *)result__OGIH)[ 0];
-              if ((next__MGIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OGIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IGIH <<  1)) <=  4096)) {
-                  next__MGIH=(void *)((unsigned long)result__OGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGIH)));
+              next__FOIH=((__POINTER *)result__HOIH)[ 0];
+              if ((next__FOIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HOIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BOIH <<  1)) <=  4096)) {
+                  next__FOIH=(void *)((unsigned long)result__HOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BOIH)));
                 } else {
-                  next__MGIH=new_lab__MRJ(new_size__IGIH);
+                  next__FOIH=new_lab__MRJ(new_size__BOIH);
                 };
-                ((__POINTER *)next__MGIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__NGIH)[ 0]=next__MGIH;
+                ((__POINTER *)next__FOIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__GOIH)[ 0]=next__FOIH;
               } else {
-                ((__POINTER *)result__OGIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MGIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__OGIH=next__MGIH;
+                ((__POINTER *)result__HOIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FOIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__HOIH=next__FOIH;
               };
             };
-            ptr__EGIH=result__OGIH;
-          } else {
-            t__JGIH=((__UINTEGER_32 )typ_id__FGIH);
-            a__KGIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__VGIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GGIH + a__KGIH) & (__UINTEGER_32)(~ a__KGIH));
-            ptr_table__SGIH=((__POINTER )(&(table_type[(t__JGIH)])));
-            lab_type__UGIH=(__UINTEGER_32)(t__JGIH |  1);
-            next__RGIH=((__POINTER )(NULL));
-            result__TGIH=((__POINTER *)ptr_table__SGIH)[ 0];
-            if ((result__TGIH == (void *)NULL)) {
-              result__TGIH=new_lab__MRJ(lab_type__UGIH);
-              next__RGIH=(void *)((unsigned long)result__TGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VGIH)));
-              ((__POINTER *)next__RGIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__SGIH)[ 0]=next__RGIH;
+            ptr__3NIH=result__HOIH;
+          } else {
+            t__COIH=((__UINTEGER_32 )typ_id__4NIH);
+            a__DOIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__OOIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NIH + a__DOIH) & (__UINTEGER_32)(~ a__DOIH));
+            ptr_table__LOIH=((__POINTER )(&(table_type[(t__COIH)])));
+            lab_type__NOIH=(__UINTEGER_32)(t__COIH |  1);
+            next__KOIH=((__POINTER )(NULL));
+            result__MOIH=((__POINTER *)ptr_table__LOIH)[ 0];
+            if ((result__MOIH == (void *)NULL)) {
+              result__MOIH=new_lab__MRJ(lab_type__NOIH);
+              next__KOIH=(void *)((unsigned long)result__MOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOIH)));
+              ((__POINTER *)next__KOIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__LOIH)[ 0]=next__KOIH;
             } else {
-              next__RGIH=((__POINTER *)result__TGIH)[ 0];
-              if ((next__RGIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TGIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VGIH <<  1)) <=  4096)) {
-                  next__RGIH=(void *)((unsigned long)result__TGIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VGIH)));
+              next__KOIH=((__POINTER *)result__MOIH)[ 0];
+              if ((next__KOIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MOIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OOIH <<  1)) <=  4096)) {
+                  next__KOIH=(void *)((unsigned long)result__MOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOIH)));
                 } else {
-                  next__RGIH=new_lab__MRJ(lab_type__UGIH);
+                  next__KOIH=new_lab__MRJ(lab_type__NOIH);
                 };
-                ((__POINTER *)next__RGIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__SGIH)[ 0]=next__RGIH;
+                ((__POINTER *)next__KOIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__LOIH)[ 0]=next__KOIH;
               } else {
-                ((__POINTER *)result__TGIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RGIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__TGIH=next__RGIH;
+                ((__POINTER *)result__MOIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KOIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__MOIH=next__KOIH;
               };
             };
-            ptr__EGIH=result__TGIH;
+            ptr__3NIH=result__MOIH;
           };
-          result__DGIH=((__ITM_RESULT *)ptr__EGIH);
-          *(result__DGIH) = *(ITM_RESULT__);
+          result__2NIH=((__ITM_RESULT *)ptr__3NIH);
+          *(result__2NIH) = *(ITM_RESULT__);
         };
-        ((__ITM_RESULT *)result__DGIH)->value__MLFC=e__MBHB;
-        add_last__U5U(result__NBHB,result__DGIH);
+        ((__ITM_RESULT *)result__2NIH)->value__MLFC=e__MBHB;
+        add_last__U5U(result__NBHB,result__2NIH);
         e__MBHB=read_expr__44I(Self__KBHB);
         while_do__003B:
         {
           if (((void *)e__MBHB != (void *)NULL)) {
-            result__WGIH=FALSE__;
+            result__POIH=FALSE__;
             if ((! read_space__3RD())) {
-              result__WGIH=FALSE__;
+              result__POIH=FALSE__;
             } else {
-              result__XGIH='\0';
+              result__QOIH='\0';
               if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-                result__XGIH=((__CHARACTER )(( 0)));
+                result__QOIH=((__CHARACTER )(( 0)));
               } else {
-                result__XGIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+                result__QOIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
               };
-              if ((result__XGIH == ';')) {
+              if ((result__QOIH == ';')) {
                 position__SBC=(__INTEGER)(position__SBC +  1);
-                result__WGIH=TRUE__;
+                result__POIH=TRUE__;
               };
             };
-            __tmp__DDHB=result__WGIH;
+            __tmp__DDHB=result__POIH;
           } else {
             __tmp__DDHB=FALSE__;
           };
@@ -32624,30 +32812,30 @@ static void* read_group__JBHB(__PARSER *Self__KBHB)
           };
         };
         if (((void *)e__MBHB == (void *)NULL)) {
-          pos__TEYG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_326));
-          put_position__UOG(pos__TEYG);
+          pos__OOYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_329));
+          put_position__UOG(pos__OOYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        result__ZGIH=FALSE__;
+        result__SOIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__ZGIH=FALSE__;
+          result__SOIH=FALSE__;
         } else {
-          result__0GIH='\0';
+          result__TOIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__0GIH=((__CHARACTER )(( 0)));
+            result__TOIH=((__CHARACTER )(( 0)));
           } else {
-            result__0GIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__TOIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__0GIH == ',')) {
+          if ((result__TOIH == ',')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__ZGIH=TRUE__;
+            result__SOIH=TRUE__;
           };
         };
-      } while (result__ZGIH);
+      } while (result__SOIH);
     };
     result__GYWB=NULL;
     ptr__HYWB=((__POINTER )(NULL));
@@ -32659,294 +32847,294 @@ static void* read_group__JBHB(__PARSER *Self__KBHB)
       typ_id__MYWB=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__JYWB);
       if ((typ_id__MYWB == (__INTEGER)(-  1))) {
-        a__FBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__GBFH=(__UINTEGER_32)((__UINTEGER_32)(sz__JYWB + a__FBFH) & (__UINTEGER_32)(~ a__FBFH));
-        ptr_table__3GIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GBFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__2GIH=((__POINTER )(NULL));
-        result__4GIH=((__POINTER *)ptr_table__3GIH)[ 0];
-        if ((result__4GIH == (void *)NULL)) {
-          result__4GIH=new_lab__MRJ(new_size__GBFH);
-          next__2GIH=(void *)((unsigned long)result__4GIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GBFH)));
-          ((__POINTER *)next__2GIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3GIH)[ 0]=next__2GIH;
-        } else {
-          next__2GIH=((__POINTER *)result__4GIH)[ 0];
-          if ((next__2GIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4GIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GBFH <<  1)) <=  4096)) {
-              next__2GIH=(void *)((unsigned long)result__4GIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GBFH)));
+        a__MJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__NJFH=(__UINTEGER_32)((__UINTEGER_32)(sz__JYWB + a__MJFH) & (__UINTEGER_32)(~ a__MJFH));
+        ptr_table__WOIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__VOIH=((__POINTER )(NULL));
+        result__XOIH=((__POINTER *)ptr_table__WOIH)[ 0];
+        if ((result__XOIH == (void *)NULL)) {
+          result__XOIH=new_lab__MRJ(new_size__NJFH);
+          next__VOIH=(void *)((unsigned long)result__XOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NJFH)));
+          ((__POINTER *)next__VOIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__WOIH)[ 0]=next__VOIH;
+        } else {
+          next__VOIH=((__POINTER *)result__XOIH)[ 0];
+          if ((next__VOIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XOIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NJFH <<  1)) <=  4096)) {
+              next__VOIH=(void *)((unsigned long)result__XOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NJFH)));
             } else {
-              next__2GIH=new_lab__MRJ(new_size__GBFH);
-            };
-            ((__POINTER *)next__2GIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__3GIH)[ 0]=next__2GIH;
-          } else {
-            ((__POINTER *)result__4GIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2GIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__4GIH=next__2GIH;
-          };
-        };
-        ptr__HYWB=result__4GIH;
-      } else {
-        t__KBFH=((__UINTEGER_32 )typ_id__MYWB);
-        a__JBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__FHIH=(__UINTEGER_32)((__UINTEGER_32)(sz__JYWB + a__JBFH) & (__UINTEGER_32)(~ a__JBFH));
-        ptr_table__CHIH=((__POINTER )(&(table_type[(t__KBFH)])));
-        lab_type__EHIH=(__UINTEGER_32)(t__KBFH |  1);
-        next__BHIH=((__POINTER )(NULL));
-        result__DHIH=((__POINTER *)ptr_table__CHIH)[ 0];
-        if ((result__DHIH == (void *)NULL)) {
-          result__DHIH=new_lab__MRJ(lab_type__EHIH);
-          next__BHIH=(void *)((unsigned long)result__DHIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHIH)));
-          ((__POINTER *)next__BHIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CHIH)[ 0]=next__BHIH;
-        } else {
-          next__BHIH=((__POINTER *)result__DHIH)[ 0];
-          if ((next__BHIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DHIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FHIH <<  1)) <=  4096)) {
-              next__BHIH=(void *)((unsigned long)result__DHIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHIH)));
+              next__VOIH=new_lab__MRJ(new_size__NJFH);
+            };
+            ((__POINTER *)next__VOIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__WOIH)[ 0]=next__VOIH;
+          } else {
+            ((__POINTER *)result__XOIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VOIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__XOIH=next__VOIH;
+          };
+        };
+        ptr__HYWB=result__XOIH;
+      } else {
+        t__RJFH=((__UINTEGER_32 )typ_id__MYWB);
+        a__QJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__4OIH=(__UINTEGER_32)((__UINTEGER_32)(sz__JYWB + a__QJFH) & (__UINTEGER_32)(~ a__QJFH));
+        ptr_table__1OIH=((__POINTER )(&(table_type[(t__RJFH)])));
+        lab_type__3OIH=(__UINTEGER_32)(t__RJFH |  1);
+        next__0OIH=((__POINTER )(NULL));
+        result__2OIH=((__POINTER *)ptr_table__1OIH)[ 0];
+        if ((result__2OIH == (void *)NULL)) {
+          result__2OIH=new_lab__MRJ(lab_type__3OIH);
+          next__0OIH=(void *)((unsigned long)result__2OIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4OIH)));
+          ((__POINTER *)next__0OIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__1OIH)[ 0]=next__0OIH;
+        } else {
+          next__0OIH=((__POINTER *)result__2OIH)[ 0];
+          if ((next__0OIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2OIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4OIH <<  1)) <=  4096)) {
+              next__0OIH=(void *)((unsigned long)result__2OIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4OIH)));
             } else {
-              next__BHIH=new_lab__MRJ(lab_type__EHIH);
+              next__0OIH=new_lab__MRJ(lab_type__3OIH);
             };
-            ((__POINTER *)next__BHIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CHIH)[ 0]=next__BHIH;
+            ((__POINTER *)next__0OIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__1OIH)[ 0]=next__0OIH;
           } else {
-            ((__POINTER *)result__DHIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BHIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__DHIH=next__BHIH;
+            ((__POINTER *)result__2OIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0OIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__2OIH=next__0OIH;
           };
         };
-        ptr__HYWB=result__DHIH;
+        ptr__HYWB=result__2OIH;
       };
       result__GYWB=((__ITM_RESULT *)ptr__HYWB);
       *(result__GYWB) = *(ITM_RESULT__);
     };
     ((__ITM_RESULT *)result__GYWB)->value__MLFC=e__MBHB;
     e__MBHB=result__GYWB;
-    add_last__U5U(result__YYFH,result__GYWB);
+    add_last__U5U(result__FBGH,result__GYWB);
   };
-  return(copy__Q5H(result__YYFH));
+  return(copy__Q5H(result__FBGH));
 }
 
 static void* readlip_expr_operator__MOZB(__PARSER *Self__NOZB)
 // ({PARSER}) With resultRecursive, No inlinable.
 {
   void *right__QOZB,*result__POZB;
-  __POSITION pos__JFYG,p__VHIH,p__MIIH;
-  __LIP_BINARY *result__MHIH,*Self__UHIH,*result__DIIH,*Self__LIIH;
-  __POINTER ptr__NHIH,ptr_table__0HIH,next__ZHIH,result__1HIH;
-  __POINTER ptr_table__5HIH,next__4HIH,result__AIIH,ptr__EIIH;
-  __POINTER ptr_table__RIIH,next__QIIH,result__SIIH,ptr_table__WIIH;
-  __POINTER next__VIIH,result__XIIH;
-  __INTEGER typ_id__OHIH,typ_id__FIIH;
-  __UINTEGER_32 sz__PHIH,a__QHIH,new_size__RHIH,t__SHIH,a__THIH;
-  __UINTEGER_32 new_size__CIIH,lab_type__BIIH,sz__GIIH,a__HIIH;
-  __UINTEGER_32 new_size__IIIH,t__JIIH,a__KIIH,new_size__ZIIH;
-  __UINTEGER_32 lab_type__YIIH;
-  __BOOLEAN result__GHIH,__tmp__FPZB,result__JHIH;
-  __CHARACTER result__HHIH,result__KHIH;
+  __POSITION pos__EPYG,p__OPIH,p__FQIH;
+  __LIP_BINARY *result__FPIH,*Self__NPIH,*result__2PIH,*Self__EQIH;
+  __POINTER ptr__GPIH,ptr_table__TPIH,next__SPIH,result__UPIH;
+  __POINTER ptr_table__YPIH,next__XPIH,result__ZPIH,ptr__3PIH;
+  __POINTER ptr_table__KQIH,next__JQIH,result__LQIH,ptr_table__PQIH;
+  __POINTER next__OQIH,result__QQIH;
+  __INTEGER typ_id__HPIH,typ_id__4PIH;
+  __UINTEGER_32 sz__IPIH,a__JPIH,new_size__KPIH,t__LPIH,a__MPIH;
+  __UINTEGER_32 new_size__1PIH,lab_type__0PIH,sz__5PIH,a__AQIH;
+  __UINTEGER_32 new_size__BQIH,t__CQIH,a__DQIH,new_size__SQIH;
+  __UINTEGER_32 lab_type__RQIH;
+  __BOOLEAN result__5OIH,__tmp__FPZB,result__CPIH;
+  __CHARACTER result__APIH,result__DPIH;
   right__QOZB=NULL;
   result__POZB=readlip_expr_cmp__A11B(Self__NOZB);
   if (((void *)result__POZB != (void *)NULL)) {
     while_do__P24B:
     {
-      result__GHIH=FALSE__;
+      result__5OIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__GHIH=FALSE__;
+        result__5OIH=FALSE__;
       } else {
-        result__HHIH='\0';
+        result__APIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__HHIH=((__CHARACTER )(( 0)));
+          result__APIH=((__CHARACTER )(( 0)));
         } else {
-          result__HHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__APIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__HHIH == '|')) {
+        if ((result__APIH == '|')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__GHIH=TRUE__;
+          result__5OIH=TRUE__;
         };
       };
-      if (result__GHIH) {
+      if (result__5OIH) {
         __tmp__FPZB=TRUE__;
       } else {
-        result__JHIH=FALSE__;
+        result__CPIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__JHIH=FALSE__;
+          result__CPIH=FALSE__;
         } else {
-          result__KHIH='\0';
+          result__DPIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__KHIH=((__CHARACTER )(( 0)));
+            result__DPIH=((__CHARACTER )(( 0)));
           } else {
-            result__KHIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__DPIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__KHIH == '&')) {
+          if ((result__DPIH == '&')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__JHIH=TRUE__;
+            result__CPIH=TRUE__;
           };
         };
-        __tmp__FPZB=result__JHIH;
+        __tmp__FPZB=result__CPIH;
       };
       if (__tmp__FPZB) {
         right__QOZB=readlip_expr_cmp__A11B(Self__NOZB);
         if (((void *)right__QOZB == (void *)NULL)) {
-          pos__JFYG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_237));
-          put_position__UOG(pos__JFYG);
+          pos__EPYG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_240));
+          put_position__UOG(pos__EPYG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        if (result__GHIH) {
-          p__VHIH=current_position__JXF();
-          result__MHIH=NULL;
-          ptr__NHIH=((__POINTER )(NULL));
-          typ_id__OHIH= 0;
-          sz__PHIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__PHIH ==  0)) {
-            result__MHIH=LIP_BINARY__;
-          } else {
-            typ_id__OHIH=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__PHIH);
-            if ((typ_id__OHIH == (__INTEGER)(-  1))) {
-              a__QHIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__RHIH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHIH + a__QHIH) & (__UINTEGER_32)(~ a__QHIH));
-              ptr_table__0HIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RHIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__ZHIH=((__POINTER )(NULL));
-              result__1HIH=((__POINTER *)ptr_table__0HIH)[ 0];
-              if ((result__1HIH == (void *)NULL)) {
-                result__1HIH=new_lab__MRJ(new_size__RHIH);
-                next__ZHIH=(void *)((unsigned long)result__1HIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RHIH)));
-                ((__POINTER *)next__ZHIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__0HIH)[ 0]=next__ZHIH;
+        if (result__5OIH) {
+          p__OPIH=current_position__JXF();
+          result__FPIH=NULL;
+          ptr__GPIH=((__POINTER )(NULL));
+          typ_id__HPIH= 0;
+          sz__IPIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
+          if ((sz__IPIH ==  0)) {
+            result__FPIH=LIP_BINARY__;
+          } else {
+            typ_id__HPIH=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__IPIH);
+            if ((typ_id__HPIH == (__INTEGER)(-  1))) {
+              a__JPIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__KPIH=(__UINTEGER_32)((__UINTEGER_32)(sz__IPIH + a__JPIH) & (__UINTEGER_32)(~ a__JPIH));
+              ptr_table__TPIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KPIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__SPIH=((__POINTER )(NULL));
+              result__UPIH=((__POINTER *)ptr_table__TPIH)[ 0];
+              if ((result__UPIH == (void *)NULL)) {
+                result__UPIH=new_lab__MRJ(new_size__KPIH);
+                next__SPIH=(void *)((unsigned long)result__UPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPIH)));
+                ((__POINTER *)next__SPIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__TPIH)[ 0]=next__SPIH;
               } else {
-                next__ZHIH=((__POINTER *)result__1HIH)[ 0];
-                if ((next__ZHIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1HIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RHIH <<  1)) <=  4096)) {
-                    next__ZHIH=(void *)((unsigned long)result__1HIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RHIH)));
+                next__SPIH=((__POINTER *)result__UPIH)[ 0];
+                if ((next__SPIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UPIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KPIH <<  1)) <=  4096)) {
+                    next__SPIH=(void *)((unsigned long)result__UPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KPIH)));
                   } else {
-                    next__ZHIH=new_lab__MRJ(new_size__RHIH);
+                    next__SPIH=new_lab__MRJ(new_size__KPIH);
                   };
-                  ((__POINTER *)next__ZHIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__0HIH)[ 0]=next__ZHIH;
+                  ((__POINTER *)next__SPIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__TPIH)[ 0]=next__SPIH;
                 } else {
-                  ((__POINTER *)result__1HIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZHIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__1HIH=next__ZHIH;
+                  ((__POINTER *)result__UPIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SPIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__UPIH=next__SPIH;
                 };
               };
-              ptr__NHIH=result__1HIH;
+              ptr__GPIH=result__UPIH;
             } else {
-              t__SHIH=((__UINTEGER_32 )typ_id__OHIH);
-              a__THIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__CIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHIH + a__THIH) & (__UINTEGER_32)(~ a__THIH));
-              ptr_table__5HIH=((__POINTER )(&(table_type[(t__SHIH)])));
-              lab_type__BIIH=(__UINTEGER_32)(t__SHIH |  1);
-              next__4HIH=((__POINTER )(NULL));
-              result__AIIH=((__POINTER *)ptr_table__5HIH)[ 0];
-              if ((result__AIIH == (void *)NULL)) {
-                result__AIIH=new_lab__MRJ(lab_type__BIIH);
-                next__4HIH=(void *)((unsigned long)result__AIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CIIH)));
-                ((__POINTER *)next__4HIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__5HIH)[ 0]=next__4HIH;
+              t__LPIH=((__UINTEGER_32 )typ_id__HPIH);
+              a__MPIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__1PIH=(__UINTEGER_32)((__UINTEGER_32)(sz__IPIH + a__MPIH) & (__UINTEGER_32)(~ a__MPIH));
+              ptr_table__YPIH=((__POINTER )(&(table_type[(t__LPIH)])));
+              lab_type__0PIH=(__UINTEGER_32)(t__LPIH |  1);
+              next__XPIH=((__POINTER )(NULL));
+              result__ZPIH=((__POINTER *)ptr_table__YPIH)[ 0];
+              if ((result__ZPIH == (void *)NULL)) {
+                result__ZPIH=new_lab__MRJ(lab_type__0PIH);
+                next__XPIH=(void *)((unsigned long)result__ZPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1PIH)));
+                ((__POINTER *)next__XPIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__YPIH)[ 0]=next__XPIH;
               } else {
-                next__4HIH=((__POINTER *)result__AIIH)[ 0];
-                if ((next__4HIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AIIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CIIH <<  1)) <=  4096)) {
-                    next__4HIH=(void *)((unsigned long)result__AIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CIIH)));
+                next__XPIH=((__POINTER *)result__ZPIH)[ 0];
+                if ((next__XPIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZPIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1PIH <<  1)) <=  4096)) {
+                    next__XPIH=(void *)((unsigned long)result__ZPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1PIH)));
                   } else {
-                    next__4HIH=new_lab__MRJ(lab_type__BIIH);
+                    next__XPIH=new_lab__MRJ(lab_type__0PIH);
                   };
-                  ((__POINTER *)next__4HIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__5HIH)[ 0]=next__4HIH;
+                  ((__POINTER *)next__XPIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__YPIH)[ 0]=next__XPIH;
                 } else {
-                  ((__POINTER *)result__AIIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4HIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__AIIH=next__4HIH;
+                  ((__POINTER *)result__ZPIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XPIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__ZPIH=next__XPIH;
                 };
               };
-              ptr__NHIH=result__AIIH;
-            };
-            result__MHIH=((__LIP_BINARY *)ptr__NHIH);
-            *(result__MHIH) = *(LIP_BINARY__);
-          };
-          Self__UHIH=((__LIP_BINARY *)result__MHIH);
-          Self__UHIH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__VHIH;
-          Self__UHIH->left__MZQD=result__POZB;
-          Self__UHIH->right__PZQD=right__QOZB;
-          Self__UHIH->operator__SZQD='|';
-          result__POZB=result__MHIH;
-        } else {
-          p__MIIH=current_position__JXF();
-          result__DIIH=NULL;
-          ptr__EIIH=((__POINTER )(NULL));
-          typ_id__FIIH= 0;
-          sz__GIIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__GIIH ==  0)) {
-            result__DIIH=LIP_BINARY__;
-          } else {
-            typ_id__FIIH=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__GIIH);
-            if ((typ_id__FIIH == (__INTEGER)(-  1))) {
-              a__HIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__IIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GIIH + a__HIIH) & (__UINTEGER_32)(~ a__HIIH));
-              ptr_table__RIIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__QIIH=((__POINTER )(NULL));
-              result__SIIH=((__POINTER *)ptr_table__RIIH)[ 0];
-              if ((result__SIIH == (void *)NULL)) {
-                result__SIIH=new_lab__MRJ(new_size__IIIH);
-                next__QIIH=(void *)((unsigned long)result__SIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIIH)));
-                ((__POINTER *)next__QIIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__RIIH)[ 0]=next__QIIH;
+              ptr__GPIH=result__ZPIH;
+            };
+            result__FPIH=((__LIP_BINARY *)ptr__GPIH);
+            *(result__FPIH) = *(LIP_BINARY__);
+          };
+          Self__NPIH=((__LIP_BINARY *)result__FPIH);
+          Self__NPIH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__OPIH;
+          Self__NPIH->left__MZQD=result__POZB;
+          Self__NPIH->right__PZQD=right__QOZB;
+          Self__NPIH->operator__SZQD='|';
+          result__POZB=result__FPIH;
+        } else {
+          p__FQIH=current_position__JXF();
+          result__2PIH=NULL;
+          ptr__3PIH=((__POINTER )(NULL));
+          typ_id__4PIH= 0;
+          sz__5PIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
+          if ((sz__5PIH ==  0)) {
+            result__2PIH=LIP_BINARY__;
+          } else {
+            typ_id__4PIH=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__5PIH);
+            if ((typ_id__4PIH == (__INTEGER)(-  1))) {
+              a__AQIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__BQIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5PIH + a__AQIH) & (__UINTEGER_32)(~ a__AQIH));
+              ptr_table__KQIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BQIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__JQIH=((__POINTER )(NULL));
+              result__LQIH=((__POINTER *)ptr_table__KQIH)[ 0];
+              if ((result__LQIH == (void *)NULL)) {
+                result__LQIH=new_lab__MRJ(new_size__BQIH);
+                next__JQIH=(void *)((unsigned long)result__LQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BQIH)));
+                ((__POINTER *)next__JQIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__KQIH)[ 0]=next__JQIH;
               } else {
-                next__QIIH=((__POINTER *)result__SIIH)[ 0];
-                if ((next__QIIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SIIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IIIH <<  1)) <=  4096)) {
-                    next__QIIH=(void *)((unsigned long)result__SIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIIH)));
+                next__JQIH=((__POINTER *)result__LQIH)[ 0];
+                if ((next__JQIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LQIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__BQIH <<  1)) <=  4096)) {
+                    next__JQIH=(void *)((unsigned long)result__LQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BQIH)));
                   } else {
-                    next__QIIH=new_lab__MRJ(new_size__IIIH);
+                    next__JQIH=new_lab__MRJ(new_size__BQIH);
                   };
-                  ((__POINTER *)next__QIIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__RIIH)[ 0]=next__QIIH;
+                  ((__POINTER *)next__JQIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__KQIH)[ 0]=next__JQIH;
                 } else {
-                  ((__POINTER *)result__SIIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QIIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__SIIH=next__QIIH;
+                  ((__POINTER *)result__LQIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__LQIH=next__JQIH;
                 };
               };
-              ptr__EIIH=result__SIIH;
+              ptr__3PIH=result__LQIH;
             } else {
-              t__JIIH=((__UINTEGER_32 )typ_id__FIIH);
-              a__KIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__ZIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GIIH + a__KIIH) & (__UINTEGER_32)(~ a__KIIH));
-              ptr_table__WIIH=((__POINTER )(&(table_type[(t__JIIH)])));
-              lab_type__YIIH=(__UINTEGER_32)(t__JIIH |  1);
-              next__VIIH=((__POINTER )(NULL));
-              result__XIIH=((__POINTER *)ptr_table__WIIH)[ 0];
-              if ((result__XIIH == (void *)NULL)) {
-                result__XIIH=new_lab__MRJ(lab_type__YIIH);
-                next__VIIH=(void *)((unsigned long)result__XIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZIIH)));
-                ((__POINTER *)next__VIIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__WIIH)[ 0]=next__VIIH;
+              t__CQIH=((__UINTEGER_32 )typ_id__4PIH);
+              a__DQIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__SQIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5PIH + a__DQIH) & (__UINTEGER_32)(~ a__DQIH));
+              ptr_table__PQIH=((__POINTER )(&(table_type[(t__CQIH)])));
+              lab_type__RQIH=(__UINTEGER_32)(t__CQIH |  1);
+              next__OQIH=((__POINTER )(NULL));
+              result__QQIH=((__POINTER *)ptr_table__PQIH)[ 0];
+              if ((result__QQIH == (void *)NULL)) {
+                result__QQIH=new_lab__MRJ(lab_type__RQIH);
+                next__OQIH=(void *)((unsigned long)result__QQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SQIH)));
+                ((__POINTER *)next__OQIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__PQIH)[ 0]=next__OQIH;
               } else {
-                next__VIIH=((__POINTER *)result__XIIH)[ 0];
-                if ((next__VIIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XIIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZIIH <<  1)) <=  4096)) {
-                    next__VIIH=(void *)((unsigned long)result__XIIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZIIH)));
+                next__OQIH=((__POINTER *)result__QQIH)[ 0];
+                if ((next__OQIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QQIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SQIH <<  1)) <=  4096)) {
+                    next__OQIH=(void *)((unsigned long)result__QQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SQIH)));
                   } else {
-                    next__VIIH=new_lab__MRJ(lab_type__YIIH);
+                    next__OQIH=new_lab__MRJ(lab_type__RQIH);
                   };
-                  ((__POINTER *)next__VIIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__WIIH)[ 0]=next__VIIH;
+                  ((__POINTER *)next__OQIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__PQIH)[ 0]=next__OQIH;
                 } else {
-                  ((__POINTER *)result__XIIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VIIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__XIIH=next__VIIH;
+                  ((__POINTER *)result__QQIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__QQIH=next__OQIH;
                 };
               };
-              ptr__EIIH=result__XIIH;
+              ptr__3PIH=result__QQIH;
             };
-            result__DIIH=((__LIP_BINARY *)ptr__EIIH);
-            *(result__DIIH) = *(LIP_BINARY__);
+            result__2PIH=((__LIP_BINARY *)ptr__3PIH);
+            *(result__2PIH) = *(LIP_BINARY__);
           };
-          Self__LIIH=((__LIP_BINARY *)result__DIIH);
-          Self__LIIH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__MIIH;
-          Self__LIIH->left__MZQD=result__POZB;
-          Self__LIIH->right__PZQD=right__QOZB;
-          Self__LIIH->operator__SZQD='&';
-          result__POZB=result__DIIH;
+          Self__EQIH=((__LIP_BINARY *)result__2PIH);
+          Self__EQIH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__FQIH;
+          Self__EQIH->left__MZQD=result__POZB;
+          Self__EQIH->right__PZQD=right__QOZB;
+          Self__EQIH->operator__SZQD='&';
+          result__POZB=result__2PIH;
         };
         goto while_do__P24B;
       };
@@ -32958,11 +33146,11 @@ static void* readlip_expr_operator__MOZB(__PARSER *Self__NOZB)
 static __FAST_ARRAYoLIP_CODEo* create_with_capacity__2QKD(__INTEGER new_count__4QKD)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __POINTER ptr__S1LD,ptr_table__1IIH,next__0IIH,result__2IIH;
-  __POINTER ptr_table__AJIH,next__5IIH,result__BJIH;
+  __POINTER ptr__S1LD,ptr_table__UQIH,next__TQIH,result__VQIH;
+  __POINTER ptr_table__ZQIH,next__YQIH,result__0QIH;
   __INTEGER typ_id__X1LD;
-  __UINTEGER_32 sz__U1LD,a__VBFH,new_size__WBFH,t__0BFH,a__ZBFH;
-  __UINTEGER_32 new_size__DJIH,lab_type__CJIH;
+  __UINTEGER_32 sz__U1LD,a__2JFH,new_size__3JFH,t__BKFH,a__AKFH;
+  __UINTEGER_32 new_size__2QIH,lab_type__1QIH;
   __FAST_ARRAYoLIP_CODEo *result__R1LD,*Self__V4TD;
   result__R1LD=NULL;
   ptr__S1LD=((__POINTER )(NULL));
@@ -32974,68 +33162,68 @@ static __FAST_ARRAYoLIP_CODEo* create_with_capacity__2QKD(__INTEGER new_count__4
     typ_id__X1LD=__FAST_ARRAYoLIP_CODEo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__U1LD);
     if ((typ_id__X1LD == (__INTEGER)(-  1))) {
-      a__VBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__WBFH=(__UINTEGER_32)((__UINTEGER_32)(sz__U1LD + a__VBFH) & (__UINTEGER_32)(~ a__VBFH));
-      ptr_table__1IIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WBFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__0IIH=((__POINTER )(NULL));
-      result__2IIH=((__POINTER *)ptr_table__1IIH)[ 0];
-      if ((result__2IIH == (void *)NULL)) {
-        result__2IIH=new_lab__MRJ(new_size__WBFH);
-        next__0IIH=(void *)((unsigned long)result__2IIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBFH)));
-        ((__POINTER *)next__0IIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1IIH)[ 0]=next__0IIH;
+      a__2JFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__3JFH=(__UINTEGER_32)((__UINTEGER_32)(sz__U1LD + a__2JFH) & (__UINTEGER_32)(~ a__2JFH));
+      ptr_table__UQIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3JFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__TQIH=((__POINTER )(NULL));
+      result__VQIH=((__POINTER *)ptr_table__UQIH)[ 0];
+      if ((result__VQIH == (void *)NULL)) {
+        result__VQIH=new_lab__MRJ(new_size__3JFH);
+        next__TQIH=(void *)((unsigned long)result__VQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3JFH)));
+        ((__POINTER *)next__TQIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__UQIH)[ 0]=next__TQIH;
       } else {
-        next__0IIH=((__POINTER *)result__2IIH)[ 0];
-        if ((next__0IIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2IIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__WBFH <<  1)) <=  4096)) {
-            next__0IIH=(void *)((unsigned long)result__2IIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WBFH)));
+        next__TQIH=((__POINTER *)result__VQIH)[ 0];
+        if ((next__TQIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VQIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3JFH <<  1)) <=  4096)) {
+            next__TQIH=(void *)((unsigned long)result__VQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3JFH)));
           } else {
-            next__0IIH=new_lab__MRJ(new_size__WBFH);
+            next__TQIH=new_lab__MRJ(new_size__3JFH);
           };
-          ((__POINTER *)next__0IIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1IIH)[ 0]=next__0IIH;
+          ((__POINTER *)next__TQIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__UQIH)[ 0]=next__TQIH;
         } else {
-          ((__POINTER *)result__2IIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0IIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__2IIH=next__0IIH;
+          ((__POINTER *)result__VQIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__VQIH=next__TQIH;
         };
       };
-      ptr__S1LD=result__2IIH;
+      ptr__S1LD=result__VQIH;
     } else {
-      t__0BFH=((__UINTEGER_32 )typ_id__X1LD);
-      a__ZBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__DJIH=(__UINTEGER_32)((__UINTEGER_32)(sz__U1LD + a__ZBFH) & (__UINTEGER_32)(~ a__ZBFH));
-      ptr_table__AJIH=((__POINTER )(&(table_type[(t__0BFH)])));
-      lab_type__CJIH=(__UINTEGER_32)(t__0BFH |  1);
-      next__5IIH=((__POINTER )(NULL));
-      result__BJIH=((__POINTER *)ptr_table__AJIH)[ 0];
-      if ((result__BJIH == (void *)NULL)) {
-        result__BJIH=new_lab__MRJ(lab_type__CJIH);
-        next__5IIH=(void *)((unsigned long)result__BJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJIH)));
-        ((__POINTER *)next__5IIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__AJIH)[ 0]=next__5IIH;
+      t__BKFH=((__UINTEGER_32 )typ_id__X1LD);
+      a__AKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__2QIH=(__UINTEGER_32)((__UINTEGER_32)(sz__U1LD + a__AKFH) & (__UINTEGER_32)(~ a__AKFH));
+      ptr_table__ZQIH=((__POINTER )(&(table_type[(t__BKFH)])));
+      lab_type__1QIH=(__UINTEGER_32)(t__BKFH |  1);
+      next__YQIH=((__POINTER )(NULL));
+      result__0QIH=((__POINTER *)ptr_table__ZQIH)[ 0];
+      if ((result__0QIH == (void *)NULL)) {
+        result__0QIH=new_lab__MRJ(lab_type__1QIH);
+        next__YQIH=(void *)((unsigned long)result__0QIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2QIH)));
+        ((__POINTER *)next__YQIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__ZQIH)[ 0]=next__YQIH;
       } else {
-        next__5IIH=((__POINTER *)result__BJIH)[ 0];
-        if ((next__5IIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BJIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DJIH <<  1)) <=  4096)) {
-            next__5IIH=(void *)((unsigned long)result__BJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJIH)));
+        next__YQIH=((__POINTER *)result__0QIH)[ 0];
+        if ((next__YQIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0QIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2QIH <<  1)) <=  4096)) {
+            next__YQIH=(void *)((unsigned long)result__0QIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2QIH)));
           } else {
-            next__5IIH=new_lab__MRJ(lab_type__CJIH);
+            next__YQIH=new_lab__MRJ(lab_type__1QIH);
           };
-          ((__POINTER *)next__5IIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AJIH)[ 0]=next__5IIH;
+          ((__POINTER *)next__YQIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__ZQIH)[ 0]=next__YQIH;
         } else {
-          ((__POINTER *)result__BJIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5IIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__BJIH=next__5IIH;
+          ((__POINTER *)result__0QIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YQIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__0QIH=next__YQIH;
         };
       };
-      ptr__S1LD=result__BJIH;
+      ptr__S1LD=result__0QIH;
     };
     result__R1LD=((__FAST_ARRAYoLIP_CODEo *)ptr__S1LD);
     *(result__R1LD) = *(FAST_ARRAYoLIP_CODEo__);
   };
   Self__V4TD=((__FAST_ARRAYoLIP_CODEo *)result__R1LD);
   if ((Self__V4TD->parent_arrayed_collection__NLYC.capacity__1PTD < new_count__4QKD)) {
-    Self__V4TD->parent_arrayed_collection__NLYC.storage__GQTD=create__UUIE(new_count__4QKD);
+    Self__V4TD->parent_arrayed_collection__NLYC.storage__GQTD=create__WYIE(new_count__4QKD);
     Self__V4TD->parent_arrayed_collection__NLYC.capacity__1PTD=new_count__4QKD;
   };
   Self__V4TD->parent_arrayed_collection__NLYC.upper__2DQD=(__INTEGER)(-  1);
@@ -33045,9 +33233,9 @@ static __FAST_ARRAYoLIP_CODEo* create_with_capacity__2QKD(__INTEGER new_count__4
 static void add_last__JJUD(__FAST_ARRAYoLIP_CODEo *Self__KJUD,void *element__LJUD)
 // ({FAST_ARRAYoLIP_CODEo},{NULLxLIP_AFFECTxLIP_BINARYxLIP_UNARYxLIP_CALLxLIP_IFxLIP_PRINTxLIP_VALUE}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__MJUD,__tmp__QKUD,__tmp__FFWE,Self__1TPF;
+  __INTEGER new_capacity__MJUD,__tmp__QKUD,__tmp__ZJWE,Self__ZZPF;
   __BOOLEAN __tmp__0JUD;
-  void **__tmp__PKUD,**new__REWE;
+  void **__tmp__PKUD,**new__FJWE;
   new_capacity__MJUD= 0;
   if (((__INTEGER)(Self__KJUD->parent_arrayed_collection__NLYC.upper__2DQD +  1) <= (__INTEGER)(Self__KJUD->parent_arrayed_collection__NLYC.capacity__1PTD -  1))) {
     Self__KJUD->parent_arrayed_collection__NLYC.upper__2DQD=(__INTEGER)(Self__KJUD->parent_arrayed_collection__NLYC.upper__2DQD +  1);
@@ -33057,21 +33245,21 @@ static void add_last__JJUD(__FAST_ARRAYoLIP_CODEo *Self__KJUD,void *element__LJU
   };
   if ((! __tmp__0JUD)) {
     if ((Self__KJUD->parent_arrayed_collection__NLYC.capacity__1PTD ==  0)) {
-      Self__KJUD->parent_arrayed_collection__NLYC.storage__GQTD=create__UUIE( 2);
+      Self__KJUD->parent_arrayed_collection__NLYC.storage__GQTD=create__WYIE( 2);
       Self__KJUD->parent_arrayed_collection__NLYC.capacity__1PTD= 2;
       Self__KJUD->parent_arrayed_collection__NLYC.upper__2DQD= 0;
     } else {
       new_capacity__MJUD=(__INTEGER)(Self__KJUD->parent_arrayed_collection__NLYC.capacity__1PTD <<  1);
       __tmp__PKUD=Self__KJUD->parent_arrayed_collection__NLYC.storage__GQTD;
       __tmp__QKUD=Self__KJUD->parent_arrayed_collection__NLYC.capacity__1PTD;
-      new__REWE=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__PKUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__QKUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MJUD * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__FFWE=(__INTEGER)(new_capacity__MJUD -  1);
-      Self__1TPF=__tmp__QKUD;
-      while ((Self__1TPF <= __tmp__FFWE)) {
-        new__REWE[Self__1TPF]=NULL;
-        Self__1TPF=(__INTEGER)(Self__1TPF +  1);
-      };
-      Self__KJUD->parent_arrayed_collection__NLYC.storage__GQTD=new__REWE;
+      new__FJWE=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__PKUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__QKUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MJUD * ((__INTEGER )(sizeof(void *)))))));
+      __tmp__ZJWE=(__INTEGER)(new_capacity__MJUD -  1);
+      Self__ZZPF=__tmp__QKUD;
+      while ((Self__ZZPF <= __tmp__ZJWE)) {
+        new__FJWE[Self__ZZPF]=NULL;
+        Self__ZZPF=(__INTEGER)(Self__ZZPF +  1);
+      };
+      Self__KJUD->parent_arrayed_collection__NLYC.storage__GQTD=new__FJWE;
       Self__KJUD->parent_arrayed_collection__NLYC.capacity__1PTD=new_capacity__MJUD;
       Self__KJUD->parent_arrayed_collection__NLYC.upper__2DQD=(__INTEGER)(Self__KJUD->parent_arrayed_collection__NLYC.upper__2DQD +  1);
     };
@@ -33082,14 +33270,14 @@ static void add_last__JJUD(__FAST_ARRAYoLIP_CODEo *Self__KJUD,void *element__LJU
 static void* copy__ILID(void *tmp__KLID)
 // ({NULLxFAST_ARRAYoLIP_CODEo}) With resultNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__SPTD,other_upper__RPTD,Self__01XE;
-  __INTEGER new_capacity__OAUD,__tmp__WBUD,__tmp__RDWE,Self__2RPF;
+  __INTEGER new_capacity__SPTD,other_upper__RPTD,Self__SAYE;
+  __INTEGER new_capacity__OAUD,__tmp__WBUD,__tmp__FIWE,Self__0XPF;
   void *result__MLID;
   __FAST_ARRAYoLIP_CODEo *Self__PPTD;
-  void **__tmp__JQTD,**__tmp__LQTD,**Self__Q0VE;
+  void **__tmp__JQTD,**__tmp__LQTD,**Self__E5VE;
   __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__MAUD;
   __BOOLEAN __tmp__3AUD;
-  void **__tmp__VBUD,**new__3CWE;
+  void **__tmp__VBUD,**new__RHWE;
   result__MLID=create_with_capacity__2QKD((__INTEGER)(((__FAST_ARRAYoLIP_CODEo *)tmp__KLID)->parent_arrayed_collection__NLYC.upper__2DQD +  1));
   Self__PPTD=((__FAST_ARRAYoLIP_CODEo *)result__MLID);
   new_capacity__SPTD= 0;
@@ -33097,16 +33285,16 @@ static void* copy__ILID(void *tmp__KLID)
   if ((other_upper__RPTD >=  0)) {
     new_capacity__SPTD=(__INTEGER)(other_upper__RPTD +  1);
     if ((Self__PPTD->parent_arrayed_collection__NLYC.capacity__1PTD < new_capacity__SPTD)) {
-      Self__PPTD->parent_arrayed_collection__NLYC.storage__GQTD=create__UUIE(new_capacity__SPTD);
+      Self__PPTD->parent_arrayed_collection__NLYC.storage__GQTD=create__WYIE(new_capacity__SPTD);
       Self__PPTD->parent_arrayed_collection__NLYC.capacity__1PTD=new_capacity__SPTD;
     };
     __tmp__JQTD=Self__PPTD->parent_arrayed_collection__NLYC.storage__GQTD;
     __tmp__LQTD=((__FAST_ARRAYoLIP_CODEo *)tmp__KLID)->parent_arrayed_collection__NLYC.storage__GQTD;
-    Self__Q0VE=((void **)__tmp__JQTD);
-    Self__01XE=other_upper__RPTD;
-    while ((Self__01XE >=  0)) {
-      Self__Q0VE[Self__01XE]=((void **)__tmp__LQTD)[Self__01XE];
-      Self__01XE=(__INTEGER)(Self__01XE -  1);
+    Self__E5VE=((void **)__tmp__JQTD);
+    Self__SAYE=other_upper__RPTD;
+    while ((Self__SAYE >=  0)) {
+      Self__E5VE[Self__SAYE]=((void **)__tmp__LQTD)[Self__SAYE];
+      Self__SAYE=(__INTEGER)(Self__SAYE -  1);
     };
   };
   Self__PPTD->parent_arrayed_collection__NLYC.upper__2DQD=other_upper__RPTD;
@@ -33121,21 +33309,21 @@ static void* copy__ILID(void *tmp__KLID)
   };
   if ((! __tmp__3AUD)) {
     if ((Self__MAUD->parent_arrayed_collection__FKID.capacity__QAUD ==  0)) {
-      Self__MAUD->parent_arrayed_collection__FKID.storage__MBUD=create__I0IE( 2);
+      Self__MAUD->parent_arrayed_collection__FKID.storage__MBUD=create__K4IE( 2);
       Self__MAUD->parent_arrayed_collection__FKID.capacity__QAUD= 2;
       Self__MAUD->parent_arrayed_collection__FKID.upper__POTD= 0;
     } else {
       new_capacity__OAUD=(__INTEGER)(Self__MAUD->parent_arrayed_collection__FKID.capacity__QAUD <<  1);
       __tmp__VBUD=Self__MAUD->parent_arrayed_collection__FKID.storage__MBUD;
       __tmp__WBUD=Self__MAUD->parent_arrayed_collection__FKID.capacity__QAUD;
-      new__3CWE=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__VBUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__WBUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__OAUD * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__RDWE=(__INTEGER)(new_capacity__OAUD -  1);
-      Self__2RPF=__tmp__WBUD;
-      while ((Self__2RPF <= __tmp__RDWE)) {
-        new__3CWE[Self__2RPF]=NULL;
-        Self__2RPF=(__INTEGER)(Self__2RPF +  1);
-      };
-      Self__MAUD->parent_arrayed_collection__FKID.storage__MBUD=new__3CWE;
+      new__RHWE=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__VBUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__WBUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__OAUD * ((__INTEGER )(sizeof(void *)))))));
+      __tmp__FIWE=(__INTEGER)(new_capacity__OAUD -  1);
+      Self__0XPF=__tmp__WBUD;
+      while ((Self__0XPF <= __tmp__FIWE)) {
+        new__RHWE[Self__0XPF]=NULL;
+        Self__0XPF=(__INTEGER)(Self__0XPF +  1);
+      };
+      Self__MAUD->parent_arrayed_collection__FKID.storage__MBUD=new__RHWE;
       Self__MAUD->parent_arrayed_collection__FKID.capacity__QAUD=new_capacity__OAUD;
       Self__MAUD->parent_arrayed_collection__FKID.upper__POTD=(__INTEGER)(Self__MAUD->parent_arrayed_collection__FKID.upper__POTD +  1);
     };
@@ -33147,22 +33335,22 @@ static void* copy__ILID(void *tmp__KLID)
 static void* fast_reference_at__OURD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__PURD,void *k__QURD)
 // ({HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__ZKGH;
-  __INTEGER result__YKGH,__tmp__0KGH,Self__1KGH;
+  __STRING_CONSTANT *Self__GTGH;
+  __INTEGER result__FTGH,__tmp__HTGH,Self__ITGH;
   void *node__0URD;
   __BOOLEAN __tmp__SVRD;
-  Self__ZKGH=((__STRING_CONSTANT *)k__QURD);
-  result__YKGH= 0;
-  __tmp__0KGH=Self__ZKGH->count__DD;
-  Self__1KGH= 1;
-  while ((Self__1KGH <= __tmp__0KGH)) {
-    result__YKGH=(__INTEGER)((__INTEGER)( 5 * result__YKGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__ZKGH->storage__VQO)[(__INTEGER)(Self__1KGH -  1)])));
-    Self__1KGH=(__INTEGER)(Self__1KGH +  1);
-  };
-  if ((result__YKGH <  0)) {
-    result__YKGH=(__INTEGER)(~ result__YKGH);
-  };
-  node__0URD=((void **)Self__PURD->buckets__CVRD)[(__INTEGER)(result__YKGH % Self__PURD->capacity__3URD)];
+  Self__GTGH=((__STRING_CONSTANT *)k__QURD);
+  result__FTGH= 0;
+  __tmp__HTGH=Self__GTGH->count__DD;
+  Self__ITGH= 1;
+  while ((Self__ITGH <= __tmp__HTGH)) {
+    result__FTGH=(__INTEGER)((__INTEGER)( 5 * result__FTGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__GTGH->storage__VQO)[(__INTEGER)(Self__ITGH -  1)])));
+    Self__ITGH=(__INTEGER)(Self__ITGH +  1);
+  };
+  if ((result__FTGH <  0)) {
+    result__FTGH=(__INTEGER)(~ result__FTGH);
+  };
+  node__0URD=((void **)Self__PURD->buckets__CVRD)[(__INTEGER)(result__FTGH % Self__PURD->capacity__3URD)];
   until_do__5FWD:
   {
     if (((void *)node__0URD == (void *)NULL)) {
@@ -33186,41 +33374,41 @@ static void* fast_reference_at__OURD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CO
 static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
 // ({LIP_BINARY}) With resultRecursive, No inlinable.
 {
-  void *result__JZQD,*__tmp__OZQD,*__tmp__FJIH,*__tmp__GJIH,*__tmp__RZQD;
-  void *__tmp__KJIH,*__tmp__LJIH,*result__GN2F,*__tmp__ZZQD;
-  void *result__WN2F,*result__IO2F,*__tmp__A0QD,*result__YO2F;
-  void *result__KP2F,*__tmp__H0QD,*result__0P2F,*result__NOGG;
-  void *result__MQ2F,*__tmp__O0QD,*result__2Q2F,*result__4OGG;
-  void *__tmp__V0QD,*result__4R2F,*__tmp__20QD,*result__AT2F;
-  void *__tmp__D1QD,*result__CU2F,*__tmp__K1QD,*result__EV2F;
-  void *__tmp__R1QD,*result__GW2F,*result__TRGG,*__tmp__Y1QD;
-  void *result__IX2F;
+  void *result__JZQD,*__tmp__OZQD,*__tmp__4QIH,*__tmp__5QIH,*__tmp__RZQD;
+  void *__tmp__DRIH,*__tmp__ERIH,*result__FX2F,*__tmp__ZZQD;
+  void *result__VX2F,*result__HY2F,*__tmp__A0QD,*result__XY2F;
+  void *result__JZ2F,*__tmp__H0QD,*result__ZZ2F,*result__QWGG;
+  void *result__L02F,*__tmp__O0QD,*result__102F,*result__BXGG;
+  void *__tmp__V0QD,*result__312F,*__tmp__20QD,*result__522F;
+  void *__tmp__D1QD,*result__B42F,*__tmp__K1QD,*result__D52F;
+  void *__tmp__R1QD,*result__FA3F,*result__WZGG,*__tmp__Y1QD;
+  void *result__HB3F;
   void *__tmp__NZQD,*__tmp__QZQD;
-  __LIP_INTEGER *Self__HJIH,*Self__MJIH,*Self__TN2F,*__tmp__ZN2F;
-  __LIP_INTEGER *s__XN2F,*Self__VO2F,*__tmp__1O2F,*s__ZO2F,*Self__XP2F;
-  __LIP_INTEGER *__tmp__3P2F,*s__1P2F,*Self__ZQ2F,*__tmp__5Q2F,*s__3Q2F;
-  __LIP_INTEGER *Self__1R2F,*__tmp__BS2F,*s__5R2F,*Self__3S2F;
-  __LIP_INTEGER *__tmp__DT2F,*s__BT2F,*Self__5T2F,*__tmp__FU2F,*s__DU2F;
-  __LIP_INTEGER *Self__BV2F,*__tmp__HV2F,*s__FV2F,*Self__DW2F;
-  __LIP_INTEGER *__tmp__JW2F,*s__HW2F,*Self__FX2F,*__tmp__LX2F,*s__JX2F;
-  __LIP_STRING *Self__IJIH,*Self__NJIH,*__tmp__ONGG,*s__MNGG;
-  __LIP_STRING *__tmp__5NGG,*s__3NGG,*Self__KOGG,*__tmp__QOGG,*s__OOGG;
-  __LIP_STRING *Self__1OGG,*__tmp__BPGG,*s__5OGG,*__tmp__SPGG,*s__QPGG;
-  __LIP_STRING *__tmp__DQGG,*s__BQGG,*__tmp__UQGG,*s__SQGG,*__tmp__FRGG;
-  __LIP_STRING *s__DRGG,*Self__QRGG,*__tmp__WRGG,*s__URGG,*__tmp__HSGG;
-  __LIP_STRING *s__FSGG;
-  __LIP_BOOLEAN *Self__DN2F,*__tmp__JN2F,*s__HN2F,*Self__FO2F;
-  __LIP_BOOLEAN *__tmp__LO2F,*s__JO2F,*Self__HP2F,*__tmp__NP2F,*s__LP2F;
-  __LIP_BOOLEAN *Self__JQ2F,*__tmp__PQ2F,*s__NQ2F,*__tmp__RR2F,*s__PR2F;
-  __LIP_BOOLEAN *__tmp__TS2F,*s__RS2F,*__tmp__VT2F,*s__TT2F,*__tmp__XU2F;
-  __LIP_BOOLEAN *s__VU2F,*__tmp__ZV2F,*s__XV2F,*__tmp__1W2F,*s__ZW2F;
-  void *result__Q1CH,*result__S1CH,*result__U1CH,*result__W1CH;
-  void *result__Y1CH,*result__01CH,*result__21CH,*result__41CH;
-  void *result__A2CH,*result__C2CH,*result__E2CH,*result__G2CH;
+  __LIP_INTEGER *Self__ARIH,*Self__FRIH,*Self__SX2F,*__tmp__YX2F;
+  __LIP_INTEGER *s__WX2F,*Self__UY2F,*__tmp__0Y2F,*s__YY2F,*Self__WZ2F;
+  __LIP_INTEGER *__tmp__2Z2F,*s__0Z2F,*Self__Y02F,*__tmp__402F,*s__202F;
+  __LIP_INTEGER *Self__012F,*__tmp__A22F,*s__412F,*Self__222F;
+  __LIP_INTEGER *__tmp__C32F,*s__A32F,*Self__432F,*__tmp__E42F,*s__C42F;
+  __LIP_INTEGER *Self__A52F,*__tmp__G52F,*s__E52F,*Self__CA3F;
+  __LIP_INTEGER *__tmp__IA3F,*s__GA3F,*Self__EB3F,*__tmp__KB3F,*s__IB3F;
+  __LIP_STRING *Self__BRIH,*Self__GRIH,*__tmp__RVGG,*s__PVGG;
+  __LIP_STRING *__tmp__CWGG,*s__AWGG,*Self__NWGG,*__tmp__TWGG,*s__RWGG;
+  __LIP_STRING *Self__4WGG,*__tmp__EXGG,*s__CXGG,*__tmp__VXGG,*s__TXGG;
+  __LIP_STRING *__tmp__GYGG,*s__EYGG,*__tmp__XYGG,*s__VYGG,*__tmp__IZGG;
+  __LIP_STRING *s__GZGG,*Self__TZGG,*__tmp__ZZGG,*s__XZGG,*__tmp__K0GG;
+  __LIP_STRING *s__I0GG;
+  __LIP_BOOLEAN *Self__CX2F,*__tmp__IX2F,*s__GX2F,*Self__EY2F;
+  __LIP_BOOLEAN *__tmp__KY2F,*s__IY2F,*Self__GZ2F,*__tmp__MZ2F,*s__KZ2F;
+  __LIP_BOOLEAN *Self__I02F,*__tmp__O02F,*s__M02F,*__tmp__Q12F,*s__O12F;
+  __LIP_BOOLEAN *__tmp__S22F,*s__Q22F,*__tmp__U32F,*s__S32F,*__tmp__W42F;
+  __LIP_BOOLEAN *s__U42F,*__tmp__Y52F,*s__W52F,*__tmp__0A3F,*s__YA3F;
+  void *result__CFDH,*result__EFDH,*result__GFDH,*result__IFDH;
+  void *result__KFDH,*result__MFDH,*result__OFDH,*result__QFDH;
+  void *result__SFDH,*result__UFDH,*result__WFDH,*result__YFDH;
   __POSITION __tmp__B2QD;
   __CHARACTER Self__KRVD;
-  __BOOLEAN b__R1CH,b__T1CH,b__V1CH,b__X1CH,b__Z1CH,b__11CH,b__31CH;
-  __BOOLEAN b__51CH,b__B2CH,b__D2CH,b__F2CH,b__H2CH;
+  __BOOLEAN b__DFDH,b__FFDH,b__HFDH,b__JFDH,b__LFDH,b__NFDH,b__PFDH;
+  __BOOLEAN b__RFDH,b__TFDH,b__VFDH,b__XFDH,b__ZFDH;
   result__JZQD=NULL;
   __tmp__NZQD=Self__HZQD->left__MZQD;
   switch (((struct ___OBJ *)__tmp__NZQD)->__id) {
@@ -33231,24 +33419,24 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     __tmp__OZQD=run_expr__F2QD(__tmp__NZQD);
   } break;
   case __LIP_CALL__: {
-    __tmp__OZQD=run_expr__RBUE(__tmp__NZQD);
+    __tmp__OZQD=run_expr__FGUE(__tmp__NZQD);
   } break;
   case __LIP_VALUE__: {
-    __tmp__FJIH=((__LIP_VALUE *)__tmp__NZQD)->value__RFUE;
-    switch (((struct ___OBJ *)__tmp__FJIH)->__id) {
+    __tmp__4QIH=((__LIP_VALUE *)__tmp__NZQD)->value__FKUE;
+    switch (((struct ___OBJ *)__tmp__4QIH)->__id) {
     case __LIP_BOOLEAN__: {
-      __tmp__GJIH=((__LIP_BOOLEAN *)__tmp__FJIH);
+      __tmp__5QIH=((__LIP_BOOLEAN *)__tmp__4QIH);
     } break;
     case __LIP_INTEGER__: {
-      Self__HJIH=((__LIP_INTEGER *)__tmp__FJIH);
-      __tmp__GJIH=get__QFSE(Self__HJIH,Self__HJIH->value__1X2F);
+      Self__ARIH=((__LIP_INTEGER *)__tmp__4QIH);
+      __tmp__5QIH=get__0JSE(Self__ARIH,Self__ARIH->value__0B3F);
     } break;
     case __LIP_STRING__: {
-      Self__IJIH=((__LIP_STRING *)__tmp__FJIH);
-      __tmp__GJIH=get__N2EF(Self__IJIH,Self__IJIH->value__52TE);
+      Self__BRIH=((__LIP_STRING *)__tmp__4QIH);
+      __tmp__5QIH=get__RBFF(Self__BRIH,Self__BRIH->value__TBUE);
     } break;
     };
-    __tmp__OZQD=__tmp__GJIH;
+    __tmp__OZQD=__tmp__5QIH;
   } break;
   };
   __tmp__QZQD=Self__HZQD->right__PZQD;
@@ -33260,103 +33448,103 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     __tmp__RZQD=run_expr__F2QD(__tmp__QZQD);
   } break;
   case __LIP_CALL__: {
-    __tmp__RZQD=run_expr__RBUE(__tmp__QZQD);
+    __tmp__RZQD=run_expr__FGUE(__tmp__QZQD);
   } break;
   case __LIP_VALUE__: {
-    __tmp__KJIH=((__LIP_VALUE *)__tmp__QZQD)->value__RFUE;
-    switch (((struct ___OBJ *)__tmp__KJIH)->__id) {
+    __tmp__DRIH=((__LIP_VALUE *)__tmp__QZQD)->value__FKUE;
+    switch (((struct ___OBJ *)__tmp__DRIH)->__id) {
     case __LIP_BOOLEAN__: {
-      __tmp__LJIH=((__LIP_BOOLEAN *)__tmp__KJIH);
+      __tmp__ERIH=((__LIP_BOOLEAN *)__tmp__DRIH);
     } break;
     case __LIP_INTEGER__: {
-      Self__MJIH=((__LIP_INTEGER *)__tmp__KJIH);
-      __tmp__LJIH=get__QFSE(Self__MJIH,Self__MJIH->value__1X2F);
+      Self__FRIH=((__LIP_INTEGER *)__tmp__DRIH);
+      __tmp__ERIH=get__0JSE(Self__FRIH,Self__FRIH->value__0B3F);
     } break;
     case __LIP_STRING__: {
-      Self__NJIH=((__LIP_STRING *)__tmp__KJIH);
-      __tmp__LJIH=get__N2EF(Self__NJIH,Self__NJIH->value__52TE);
+      Self__GRIH=((__LIP_STRING *)__tmp__DRIH);
+      __tmp__ERIH=get__RBFF(Self__GRIH,Self__GRIH->value__TBUE);
     } break;
     };
-    __tmp__RZQD=__tmp__LJIH;
+    __tmp__RZQD=__tmp__ERIH;
   } break;
   };
   Self__KRVD=Self__HZQD->operator__SZQD;
   if ((Self__KRVD == '|')) {
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
-      Self__DN2F=((__LIP_BOOLEAN *)__tmp__OZQD);
-      result__GN2F=NULL;
+      Self__CX2F=((__LIP_BOOLEAN *)__tmp__OZQD);
+      result__FX2F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__JN2F=NULL;
+        __tmp__IX2F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__JN2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__IX2F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__JN2F=NULL;
+          __tmp__IX2F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__JN2F=NULL;
+          __tmp__IX2F=NULL;
         } break;
         }
       };
-      s__HN2F=__tmp__JN2F;
-      if (((void *)__tmp__JN2F != (void *)NULL)) {
-        b__R1CH=(Self__DN2F->value__PDQD | __tmp__JN2F->value__PDQD);
-        result__Q1CH=NULL;
-        if (b__R1CH) {
-          result__Q1CH=true__5TKF;
+      s__GX2F=__tmp__IX2F;
+      if (((void *)__tmp__IX2F != (void *)NULL)) {
+        b__DFDH=(Self__CX2F->value__PDQD | __tmp__IX2F->value__PDQD);
+        result__CFDH=NULL;
+        if (b__DFDH) {
+          result__CFDH=true__GZKF;
         } else {
-          result__Q1CH=LIP_BOOLEAN__;
+          result__CFDH=LIP_BOOLEAN__;
         };
-        result__GN2F=result__Q1CH;
+        result__FX2F=result__CFDH;
       };
-      __tmp__ZZQD=result__GN2F;
+      __tmp__ZZQD=result__FX2F;
     } break;
     case __LIP_INTEGER__: {
-      Self__TN2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__WN2F=NULL;
+      Self__SX2F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__VX2F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__ZN2F=NULL;
+        __tmp__YX2F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__ZN2F=NULL;
+          __tmp__YX2F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__ZN2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__YX2F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__ZN2F=NULL;
+          __tmp__YX2F=NULL;
         } break;
         }
       };
-      s__XN2F=__tmp__ZN2F;
-      if (((void *)__tmp__ZN2F != (void *)NULL)) {
-        Self__TN2F->value__1X2F=(__INTEGER)(Self__TN2F->value__1X2F | __tmp__ZN2F->value__1X2F);
-        free__TM2F(__tmp__ZN2F);
-        result__WN2F=Self__TN2F;
+      s__WX2F=__tmp__YX2F;
+      if (((void *)__tmp__YX2F != (void *)NULL)) {
+        Self__SX2F->value__0B3F=(__INTEGER)(Self__SX2F->value__0B3F | __tmp__YX2F->value__0B3F);
+        free__SW2F(__tmp__YX2F);
+        result__VX2F=Self__SX2F;
       };
-      __tmp__ZZQD=result__WN2F;
+      __tmp__ZZQD=result__VX2F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__ONGG=NULL;
+        __tmp__RVGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__ONGG=NULL;
+          __tmp__RVGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__ONGG=NULL;
+          __tmp__RVGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__ONGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__RVGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__MNGG=__tmp__ONGG;
+      s__PVGG=__tmp__RVGG;
       __tmp__ZZQD=NULL;
     } break;
     };
@@ -33365,79 +33553,79 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
   if ((Self__KRVD == '&')) {
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
-      Self__FO2F=((__LIP_BOOLEAN *)__tmp__OZQD);
-      result__IO2F=NULL;
+      Self__EY2F=((__LIP_BOOLEAN *)__tmp__OZQD);
+      result__HY2F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__LO2F=NULL;
+        __tmp__KY2F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__LO2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__KY2F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__LO2F=NULL;
+          __tmp__KY2F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__LO2F=NULL;
+          __tmp__KY2F=NULL;
         } break;
         }
       };
-      s__JO2F=__tmp__LO2F;
-      if (((void *)__tmp__LO2F != (void *)NULL)) {
-        b__T1CH=(Self__FO2F->value__PDQD & __tmp__LO2F->value__PDQD);
-        result__S1CH=NULL;
-        if (b__T1CH) {
-          result__S1CH=true__5TKF;
+      s__IY2F=__tmp__KY2F;
+      if (((void *)__tmp__KY2F != (void *)NULL)) {
+        b__FFDH=(Self__EY2F->value__PDQD & __tmp__KY2F->value__PDQD);
+        result__EFDH=NULL;
+        if (b__FFDH) {
+          result__EFDH=true__GZKF;
         } else {
-          result__S1CH=LIP_BOOLEAN__;
+          result__EFDH=LIP_BOOLEAN__;
         };
-        result__IO2F=result__S1CH;
+        result__HY2F=result__EFDH;
       };
-      __tmp__A0QD=result__IO2F;
+      __tmp__A0QD=result__HY2F;
     } break;
     case __LIP_INTEGER__: {
-      Self__VO2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__YO2F=NULL;
+      Self__UY2F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__XY2F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__1O2F=NULL;
+        __tmp__0Y2F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__1O2F=NULL;
+          __tmp__0Y2F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__1O2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__0Y2F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__1O2F=NULL;
+          __tmp__0Y2F=NULL;
         } break;
         }
       };
-      s__ZO2F=__tmp__1O2F;
-      if (((void *)__tmp__1O2F != (void *)NULL)) {
-        Self__VO2F->value__1X2F=(__INTEGER)(Self__VO2F->value__1X2F & __tmp__1O2F->value__1X2F);
-        free__TM2F(__tmp__1O2F);
-        result__YO2F=Self__VO2F;
+      s__YY2F=__tmp__0Y2F;
+      if (((void *)__tmp__0Y2F != (void *)NULL)) {
+        Self__UY2F->value__0B3F=(__INTEGER)(Self__UY2F->value__0B3F & __tmp__0Y2F->value__0B3F);
+        free__SW2F(__tmp__0Y2F);
+        result__XY2F=Self__UY2F;
       };
-      __tmp__A0QD=result__YO2F;
+      __tmp__A0QD=result__XY2F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__5NGG=NULL;
+        __tmp__CWGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__5NGG=NULL;
+          __tmp__CWGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__5NGG=NULL;
+          __tmp__CWGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__5NGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__CWGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__3NGG=__tmp__5NGG;
+      s__AWGG=__tmp__CWGG;
       __tmp__A0QD=NULL;
     } break;
     };
@@ -33446,101 +33634,101 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
   if ((Self__KRVD == '=')) {
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
-      Self__HP2F=((__LIP_BOOLEAN *)__tmp__OZQD);
-      result__KP2F=NULL;
+      Self__GZ2F=((__LIP_BOOLEAN *)__tmp__OZQD);
+      result__JZ2F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__NP2F=NULL;
+        __tmp__MZ2F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__NP2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__MZ2F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__NP2F=NULL;
+          __tmp__MZ2F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__NP2F=NULL;
+          __tmp__MZ2F=NULL;
         } break;
         }
       };
-      s__LP2F=__tmp__NP2F;
-      if (((void *)__tmp__NP2F != (void *)NULL)) {
-        b__V1CH=(Self__HP2F->value__PDQD == __tmp__NP2F->value__PDQD);
-        result__U1CH=NULL;
-        if (b__V1CH) {
-          result__U1CH=true__5TKF;
+      s__KZ2F=__tmp__MZ2F;
+      if (((void *)__tmp__MZ2F != (void *)NULL)) {
+        b__HFDH=(Self__GZ2F->value__PDQD == __tmp__MZ2F->value__PDQD);
+        result__GFDH=NULL;
+        if (b__HFDH) {
+          result__GFDH=true__GZKF;
         } else {
-          result__U1CH=LIP_BOOLEAN__;
+          result__GFDH=LIP_BOOLEAN__;
         };
-        result__KP2F=result__U1CH;
+        result__JZ2F=result__GFDH;
       };
-      __tmp__H0QD=result__KP2F;
+      __tmp__H0QD=result__JZ2F;
     } break;
     case __LIP_INTEGER__: {
-      Self__XP2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__0P2F=NULL;
+      Self__WZ2F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__ZZ2F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__3P2F=NULL;
+        __tmp__2Z2F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__3P2F=NULL;
+          __tmp__2Z2F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__3P2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__2Z2F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__3P2F=NULL;
+          __tmp__2Z2F=NULL;
         } break;
         }
       };
-      s__1P2F=__tmp__3P2F;
-      if (((void *)__tmp__3P2F != (void *)NULL)) {
-        free__TM2F(__tmp__3P2F);
-        free__TM2F(Self__XP2F);
-        b__X1CH=(Self__XP2F->value__1X2F == __tmp__3P2F->value__1X2F);
-        result__W1CH=NULL;
-        if (b__X1CH) {
-          result__W1CH=true__5TKF;
+      s__0Z2F=__tmp__2Z2F;
+      if (((void *)__tmp__2Z2F != (void *)NULL)) {
+        free__SW2F(__tmp__2Z2F);
+        free__SW2F(Self__WZ2F);
+        b__JFDH=(Self__WZ2F->value__0B3F == __tmp__2Z2F->value__0B3F);
+        result__IFDH=NULL;
+        if (b__JFDH) {
+          result__IFDH=true__GZKF;
         } else {
-          result__W1CH=LIP_BOOLEAN__;
+          result__IFDH=LIP_BOOLEAN__;
         };
-        result__0P2F=result__W1CH;
+        result__ZZ2F=result__IFDH;
       };
-      __tmp__H0QD=result__0P2F;
+      __tmp__H0QD=result__ZZ2F;
     } break;
     case __LIP_STRING__: {
-      Self__KOGG=((__LIP_STRING *)__tmp__OZQD);
-      result__NOGG=NULL;
+      Self__NWGG=((__LIP_STRING *)__tmp__OZQD);
+      result__QWGG=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__QOGG=NULL;
+        __tmp__TWGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__QOGG=NULL;
+          __tmp__TWGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__QOGG=NULL;
+          __tmp__TWGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__QOGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__TWGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__OOGG=__tmp__QOGG;
-      if (((void *)__tmp__QOGG != (void *)NULL)) {
-        free__BNGG(__tmp__QOGG);
-        free__BNGG(Self__KOGG);
-        b__Z1CH=((void *)Self__KOGG->value__52TE == (void *)__tmp__QOGG->value__52TE);
-        result__Y1CH=NULL;
-        if (b__Z1CH) {
-          result__Y1CH=true__5TKF;
+      s__RWGG=__tmp__TWGG;
+      if (((void *)__tmp__TWGG != (void *)NULL)) {
+        free__EVGG(__tmp__TWGG);
+        free__EVGG(Self__NWGG);
+        b__LFDH=((void *)Self__NWGG->value__TBUE == (void *)__tmp__TWGG->value__TBUE);
+        result__KFDH=NULL;
+        if (b__LFDH) {
+          result__KFDH=true__GZKF;
         } else {
-          result__Y1CH=LIP_BOOLEAN__;
+          result__KFDH=LIP_BOOLEAN__;
         };
-        result__NOGG=result__Y1CH;
+        result__QWGG=result__KFDH;
       };
-      __tmp__H0QD=result__NOGG;
+      __tmp__H0QD=result__QWGG;
     } break;
     };
     result__JZQD=__tmp__H0QD;
@@ -33548,101 +33736,101 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
   if ((Self__KRVD == 'E')) {
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
-      Self__JQ2F=((__LIP_BOOLEAN *)__tmp__OZQD);
-      result__MQ2F=NULL;
+      Self__I02F=((__LIP_BOOLEAN *)__tmp__OZQD);
+      result__L02F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__PQ2F=NULL;
+        __tmp__O02F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__PQ2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__O02F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__PQ2F=NULL;
+          __tmp__O02F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__PQ2F=NULL;
+          __tmp__O02F=NULL;
         } break;
         }
       };
-      s__NQ2F=__tmp__PQ2F;
-      if (((void *)__tmp__PQ2F != (void *)NULL)) {
-        b__11CH=(Self__JQ2F->value__PDQD != __tmp__PQ2F->value__PDQD);
-        result__01CH=NULL;
-        if (b__11CH) {
-          result__01CH=true__5TKF;
+      s__M02F=__tmp__O02F;
+      if (((void *)__tmp__O02F != (void *)NULL)) {
+        b__NFDH=(Self__I02F->value__PDQD != __tmp__O02F->value__PDQD);
+        result__MFDH=NULL;
+        if (b__NFDH) {
+          result__MFDH=true__GZKF;
         } else {
-          result__01CH=LIP_BOOLEAN__;
+          result__MFDH=LIP_BOOLEAN__;
         };
-        result__MQ2F=result__01CH;
+        result__L02F=result__MFDH;
       };
-      __tmp__O0QD=result__MQ2F;
+      __tmp__O0QD=result__L02F;
     } break;
     case __LIP_INTEGER__: {
-      Self__ZQ2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__2Q2F=NULL;
+      Self__Y02F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__102F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__5Q2F=NULL;
+        __tmp__402F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__5Q2F=NULL;
+          __tmp__402F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__5Q2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__402F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__5Q2F=NULL;
+          __tmp__402F=NULL;
         } break;
         }
       };
-      s__3Q2F=__tmp__5Q2F;
-      if (((void *)__tmp__5Q2F != (void *)NULL)) {
-        free__TM2F(__tmp__5Q2F);
-        free__TM2F(Self__ZQ2F);
-        b__31CH=(Self__ZQ2F->value__1X2F != __tmp__5Q2F->value__1X2F);
-        result__21CH=NULL;
-        if (b__31CH) {
-          result__21CH=true__5TKF;
+      s__202F=__tmp__402F;
+      if (((void *)__tmp__402F != (void *)NULL)) {
+        free__SW2F(__tmp__402F);
+        free__SW2F(Self__Y02F);
+        b__PFDH=(Self__Y02F->value__0B3F != __tmp__402F->value__0B3F);
+        result__OFDH=NULL;
+        if (b__PFDH) {
+          result__OFDH=true__GZKF;
         } else {
-          result__21CH=LIP_BOOLEAN__;
+          result__OFDH=LIP_BOOLEAN__;
         };
-        result__2Q2F=result__21CH;
+        result__102F=result__OFDH;
       };
-      __tmp__O0QD=result__2Q2F;
+      __tmp__O0QD=result__102F;
     } break;
     case __LIP_STRING__: {
-      Self__1OGG=((__LIP_STRING *)__tmp__OZQD);
-      result__4OGG=NULL;
+      Self__4WGG=((__LIP_STRING *)__tmp__OZQD);
+      result__BXGG=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__BPGG=NULL;
+        __tmp__EXGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__BPGG=NULL;
+          __tmp__EXGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__BPGG=NULL;
+          __tmp__EXGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__BPGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__EXGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__5OGG=__tmp__BPGG;
-      if (((void *)__tmp__BPGG != (void *)NULL)) {
-        free__BNGG(__tmp__BPGG);
-        free__BNGG(Self__1OGG);
-        b__51CH=((void *)Self__1OGG->value__52TE != (void *)__tmp__BPGG->value__52TE);
-        result__41CH=NULL;
-        if (b__51CH) {
-          result__41CH=true__5TKF;
+      s__CXGG=__tmp__EXGG;
+      if (((void *)__tmp__EXGG != (void *)NULL)) {
+        free__EVGG(__tmp__EXGG);
+        free__EVGG(Self__4WGG);
+        b__RFDH=((void *)Self__4WGG->value__TBUE != (void *)__tmp__EXGG->value__TBUE);
+        result__QFDH=NULL;
+        if (b__RFDH) {
+          result__QFDH=true__GZKF;
         } else {
-          result__41CH=LIP_BOOLEAN__;
+          result__QFDH=LIP_BOOLEAN__;
         };
-        result__4OGG=result__41CH;
+        result__BXGG=result__QFDH;
       };
-      __tmp__O0QD=result__4OGG;
+      __tmp__O0QD=result__BXGG;
     } break;
     };
     result__JZQD=__tmp__O0QD;
@@ -33651,73 +33839,73 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__RR2F=NULL;
+        __tmp__Q12F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__RR2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__Q12F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__RR2F=NULL;
+          __tmp__Q12F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__RR2F=NULL;
+          __tmp__Q12F=NULL;
         } break;
         }
       };
-      s__PR2F=__tmp__RR2F;
+      s__O12F=__tmp__Q12F;
       __tmp__V0QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__1R2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__4R2F=NULL;
+      Self__012F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__312F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__BS2F=NULL;
+        __tmp__A22F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__BS2F=NULL;
+          __tmp__A22F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__BS2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__A22F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__BS2F=NULL;
+          __tmp__A22F=NULL;
         } break;
         }
       };
-      s__5R2F=__tmp__BS2F;
-      if (((void *)__tmp__BS2F != (void *)NULL)) {
-        free__TM2F(__tmp__BS2F);
-        free__TM2F(Self__1R2F);
-        b__B2CH=(Self__1R2F->value__1X2F > __tmp__BS2F->value__1X2F);
-        result__A2CH=NULL;
-        if (b__B2CH) {
-          result__A2CH=true__5TKF;
+      s__412F=__tmp__A22F;
+      if (((void *)__tmp__A22F != (void *)NULL)) {
+        free__SW2F(__tmp__A22F);
+        free__SW2F(Self__012F);
+        b__TFDH=(Self__012F->value__0B3F > __tmp__A22F->value__0B3F);
+        result__SFDH=NULL;
+        if (b__TFDH) {
+          result__SFDH=true__GZKF;
         } else {
-          result__A2CH=LIP_BOOLEAN__;
+          result__SFDH=LIP_BOOLEAN__;
         };
-        result__4R2F=result__A2CH;
+        result__312F=result__SFDH;
       };
-      __tmp__V0QD=result__4R2F;
+      __tmp__V0QD=result__312F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__SPGG=NULL;
+        __tmp__VXGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__SPGG=NULL;
+          __tmp__VXGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__SPGG=NULL;
+          __tmp__VXGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__SPGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__VXGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__QPGG=__tmp__SPGG;
+      s__TXGG=__tmp__VXGG;
       __tmp__V0QD=NULL;
     } break;
     };
@@ -33727,73 +33915,73 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__TS2F=NULL;
+        __tmp__S22F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__TS2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__S22F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__TS2F=NULL;
+          __tmp__S22F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__TS2F=NULL;
+          __tmp__S22F=NULL;
         } break;
         }
       };
-      s__RS2F=__tmp__TS2F;
+      s__Q22F=__tmp__S22F;
       __tmp__20QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__3S2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__AT2F=NULL;
+      Self__222F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__522F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__DT2F=NULL;
+        __tmp__C32F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__DT2F=NULL;
+          __tmp__C32F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__DT2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__C32F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__DT2F=NULL;
+          __tmp__C32F=NULL;
         } break;
         }
       };
-      s__BT2F=__tmp__DT2F;
-      if (((void *)__tmp__DT2F != (void *)NULL)) {
-        free__TM2F(__tmp__DT2F);
-        free__TM2F(Self__3S2F);
-        b__D2CH=(Self__3S2F->value__1X2F < __tmp__DT2F->value__1X2F);
-        result__C2CH=NULL;
-        if (b__D2CH) {
-          result__C2CH=true__5TKF;
+      s__A32F=__tmp__C32F;
+      if (((void *)__tmp__C32F != (void *)NULL)) {
+        free__SW2F(__tmp__C32F);
+        free__SW2F(Self__222F);
+        b__VFDH=(Self__222F->value__0B3F < __tmp__C32F->value__0B3F);
+        result__UFDH=NULL;
+        if (b__VFDH) {
+          result__UFDH=true__GZKF;
         } else {
-          result__C2CH=LIP_BOOLEAN__;
+          result__UFDH=LIP_BOOLEAN__;
         };
-        result__AT2F=result__C2CH;
+        result__522F=result__UFDH;
       };
-      __tmp__20QD=result__AT2F;
+      __tmp__20QD=result__522F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__DQGG=NULL;
+        __tmp__GYGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__DQGG=NULL;
+          __tmp__GYGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__DQGG=NULL;
+          __tmp__GYGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__DQGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__GYGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__BQGG=__tmp__DQGG;
+      s__EYGG=__tmp__GYGG;
       __tmp__20QD=NULL;
     } break;
     };
@@ -33803,73 +33991,73 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__VT2F=NULL;
+        __tmp__U32F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__VT2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__U32F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__VT2F=NULL;
+          __tmp__U32F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__VT2F=NULL;
+          __tmp__U32F=NULL;
         } break;
         }
       };
-      s__TT2F=__tmp__VT2F;
+      s__S32F=__tmp__U32F;
       __tmp__D1QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__5T2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__CU2F=NULL;
+      Self__432F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__B42F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__FU2F=NULL;
+        __tmp__E42F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__FU2F=NULL;
+          __tmp__E42F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__FU2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__E42F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__FU2F=NULL;
+          __tmp__E42F=NULL;
         } break;
         }
       };
-      s__DU2F=__tmp__FU2F;
-      if (((void *)__tmp__FU2F != (void *)NULL)) {
-        free__TM2F(__tmp__FU2F);
-        free__TM2F(Self__5T2F);
-        b__F2CH=(Self__5T2F->value__1X2F >= __tmp__FU2F->value__1X2F);
-        result__E2CH=NULL;
-        if (b__F2CH) {
-          result__E2CH=true__5TKF;
+      s__C42F=__tmp__E42F;
+      if (((void *)__tmp__E42F != (void *)NULL)) {
+        free__SW2F(__tmp__E42F);
+        free__SW2F(Self__432F);
+        b__XFDH=(Self__432F->value__0B3F >= __tmp__E42F->value__0B3F);
+        result__WFDH=NULL;
+        if (b__XFDH) {
+          result__WFDH=true__GZKF;
         } else {
-          result__E2CH=LIP_BOOLEAN__;
+          result__WFDH=LIP_BOOLEAN__;
         };
-        result__CU2F=result__E2CH;
+        result__B42F=result__WFDH;
       };
-      __tmp__D1QD=result__CU2F;
+      __tmp__D1QD=result__B42F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__UQGG=NULL;
+        __tmp__XYGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__UQGG=NULL;
+          __tmp__XYGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__UQGG=NULL;
+          __tmp__XYGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__UQGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__XYGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__SQGG=__tmp__UQGG;
+      s__VYGG=__tmp__XYGG;
       __tmp__D1QD=NULL;
     } break;
     };
@@ -33879,73 +34067,73 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__XU2F=NULL;
+        __tmp__W42F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__XU2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__W42F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__XU2F=NULL;
+          __tmp__W42F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__XU2F=NULL;
+          __tmp__W42F=NULL;
         } break;
         }
       };
-      s__VU2F=__tmp__XU2F;
+      s__U42F=__tmp__W42F;
       __tmp__K1QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__BV2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__EV2F=NULL;
+      Self__A52F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__D52F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__HV2F=NULL;
+        __tmp__G52F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__HV2F=NULL;
+          __tmp__G52F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__HV2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__G52F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__HV2F=NULL;
+          __tmp__G52F=NULL;
         } break;
         }
       };
-      s__FV2F=__tmp__HV2F;
-      if (((void *)__tmp__HV2F != (void *)NULL)) {
-        free__TM2F(__tmp__HV2F);
-        free__TM2F(Self__BV2F);
-        b__H2CH=(Self__BV2F->value__1X2F <= __tmp__HV2F->value__1X2F);
-        result__G2CH=NULL;
-        if (b__H2CH) {
-          result__G2CH=true__5TKF;
+      s__E52F=__tmp__G52F;
+      if (((void *)__tmp__G52F != (void *)NULL)) {
+        free__SW2F(__tmp__G52F);
+        free__SW2F(Self__A52F);
+        b__ZFDH=(Self__A52F->value__0B3F <= __tmp__G52F->value__0B3F);
+        result__YFDH=NULL;
+        if (b__ZFDH) {
+          result__YFDH=true__GZKF;
         } else {
-          result__G2CH=LIP_BOOLEAN__;
+          result__YFDH=LIP_BOOLEAN__;
         };
-        result__EV2F=result__G2CH;
+        result__D52F=result__YFDH;
       };
-      __tmp__K1QD=result__EV2F;
+      __tmp__K1QD=result__D52F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__FRGG=NULL;
+        __tmp__IZGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__FRGG=NULL;
+          __tmp__IZGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__FRGG=NULL;
+          __tmp__IZGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__FRGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__IZGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__DRGG=__tmp__FRGG;
+      s__GZGG=__tmp__IZGG;
       __tmp__K1QD=NULL;
     } break;
     };
@@ -33955,76 +34143,76 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__ZV2F=NULL;
+        __tmp__Y52F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__ZV2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__Y52F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__ZV2F=NULL;
+          __tmp__Y52F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__ZV2F=NULL;
+          __tmp__Y52F=NULL;
         } break;
         }
       };
-      s__XV2F=__tmp__ZV2F;
+      s__W52F=__tmp__Y52F;
       __tmp__R1QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__DW2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__GW2F=NULL;
+      Self__CA3F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__FA3F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__JW2F=NULL;
+        __tmp__IA3F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__JW2F=NULL;
+          __tmp__IA3F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__JW2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__IA3F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__JW2F=NULL;
+          __tmp__IA3F=NULL;
         } break;
         }
       };
-      s__HW2F=__tmp__JW2F;
-      if (((void *)__tmp__JW2F != (void *)NULL)) {
-        Self__DW2F->value__1X2F=(__INTEGER)(Self__DW2F->value__1X2F + __tmp__JW2F->value__1X2F);
-        free__TM2F(__tmp__JW2F);
-        result__GW2F=Self__DW2F;
+      s__GA3F=__tmp__IA3F;
+      if (((void *)__tmp__IA3F != (void *)NULL)) {
+        Self__CA3F->value__0B3F=(__INTEGER)(Self__CA3F->value__0B3F + __tmp__IA3F->value__0B3F);
+        free__SW2F(__tmp__IA3F);
+        result__FA3F=Self__CA3F;
       };
-      __tmp__R1QD=result__GW2F;
+      __tmp__R1QD=result__FA3F;
     } break;
     case __LIP_STRING__: {
-      Self__QRGG=((__LIP_STRING *)__tmp__OZQD);
-      result__TRGG=NULL;
+      Self__TZGG=((__LIP_STRING *)__tmp__OZQD);
+      result__WZGG=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__WRGG=NULL;
+        __tmp__ZZGG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__WRGG=NULL;
+          __tmp__ZZGG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__WRGG=NULL;
+          __tmp__ZZGG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__WRGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__ZZGG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__URGG=__tmp__WRGG;
-      if (((void *)__tmp__WRGG != (void *)NULL)) {
-        copy__ZCS(string_tmp__VH,Self__QRGG->value__52TE);
-        append__BOS(string_tmp__VH,__tmp__WRGG->value__52TE);
-        Self__QRGG->value__52TE=get__IWB(string_tmp__VH);
-        free__BNGG(__tmp__WRGG);
-        result__TRGG=Self__QRGG;
+      s__XZGG=__tmp__ZZGG;
+      if (((void *)__tmp__ZZGG != (void *)NULL)) {
+        copy__ZCS(string_tmp__VH,Self__TZGG->value__TBUE);
+        append__BOS(string_tmp__VH,__tmp__ZZGG->value__TBUE);
+        Self__TZGG->value__TBUE=get__IWB(string_tmp__VH);
+        free__EVGG(__tmp__ZZGG);
+        result__WZGG=Self__TZGG;
       };
-      __tmp__R1QD=result__TRGG;
+      __tmp__R1QD=result__WZGG;
     } break;
     };
     result__JZQD=__tmp__R1QD;
@@ -34033,66 +34221,66 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
     switch (((struct ___OBJ *)__tmp__OZQD)->__id) {
     case __LIP_BOOLEAN__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__1W2F=NULL;
+        __tmp__0A3F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__1W2F=((__LIP_BOOLEAN *)__tmp__RZQD);
+          __tmp__0A3F=((__LIP_BOOLEAN *)__tmp__RZQD);
         } break;
         case __LIP_INTEGER__: {
-          __tmp__1W2F=NULL;
+          __tmp__0A3F=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__1W2F=NULL;
+          __tmp__0A3F=NULL;
         } break;
         }
       };
-      s__ZW2F=__tmp__1W2F;
+      s__YA3F=__tmp__0A3F;
       __tmp__Y1QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__FX2F=((__LIP_INTEGER *)__tmp__OZQD);
-      result__IX2F=NULL;
+      Self__EB3F=((__LIP_INTEGER *)__tmp__OZQD);
+      result__HB3F=NULL;
       if (__tmp__RZQD==NULL) {
-        __tmp__LX2F=NULL;
+        __tmp__KB3F=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__LX2F=NULL;
+          __tmp__KB3F=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__LX2F=((__LIP_INTEGER *)__tmp__RZQD);
+          __tmp__KB3F=((__LIP_INTEGER *)__tmp__RZQD);
         } break;
         case __LIP_STRING__: {
-          __tmp__LX2F=NULL;
+          __tmp__KB3F=NULL;
         } break;
         }
       };
-      s__JX2F=__tmp__LX2F;
-      if (((void *)__tmp__LX2F != (void *)NULL)) {
-        Self__FX2F->value__1X2F=(__INTEGER)(Self__FX2F->value__1X2F - __tmp__LX2F->value__1X2F);
-        free__TM2F(__tmp__LX2F);
-        result__IX2F=Self__FX2F;
+      s__IB3F=__tmp__KB3F;
+      if (((void *)__tmp__KB3F != (void *)NULL)) {
+        Self__EB3F->value__0B3F=(__INTEGER)(Self__EB3F->value__0B3F - __tmp__KB3F->value__0B3F);
+        free__SW2F(__tmp__KB3F);
+        result__HB3F=Self__EB3F;
       };
-      __tmp__Y1QD=result__IX2F;
+      __tmp__Y1QD=result__HB3F;
     } break;
     case __LIP_STRING__: {
       if (__tmp__RZQD==NULL) {
-        __tmp__HSGG=NULL;
+        __tmp__K0GG=NULL;
       } else {
         switch (((struct ___OBJ *)__tmp__RZQD)->__id) {
         case __LIP_BOOLEAN__: {
-          __tmp__HSGG=NULL;
+          __tmp__K0GG=NULL;
         } break;
         case __LIP_INTEGER__: {
-          __tmp__HSGG=NULL;
+          __tmp__K0GG=NULL;
         } break;
         case __LIP_STRING__: {
-          __tmp__HSGG=((__LIP_STRING *)__tmp__RZQD);
+          __tmp__K0GG=((__LIP_STRING *)__tmp__RZQD);
         } break;
         }
       };
-      s__FSGG=__tmp__HSGG;
+      s__I0GG=__tmp__K0GG;
       __tmp__Y1QD=NULL;
     } break;
     };
@@ -34100,7 +34288,7 @@ static void* run_expr__GZQD(__LIP_BINARY *Self__HZQD)
   };
   if (((void *)result__JZQD == (void *)NULL)) {
     __tmp__B2QD=Self__HZQD->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_275));
+    put_error__text__KNG( 1,(&__string_278));
     put_position__UOG(__tmp__B2QD);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
@@ -34114,14 +34302,14 @@ static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD)
 // ({LIP_UNARY}) With resultRecursive, No inlinable.
 {
   void *__tmp__K2QD;
-  void *__tmp__L2QD,*__tmp__PJIH,*__tmp__QJIH,*result__I2QD,*__tmp__T2QD;
+  void *__tmp__L2QD,*__tmp__IRIH,*__tmp__JRIH,*result__I2QD,*__tmp__T2QD;
   void *__tmp__02QD;
-  __LIP_INTEGER *Self__RJIH,*Self__ZX2F,*Self__GY2F;
-  __LIP_STRING *Self__SJIH;
-  void *result__0TKF;
+  __LIP_INTEGER *Self__KRIH,*Self__YB3F,*Self__FC3F;
+  __LIP_STRING *Self__LRIH;
+  void *result__BZKF;
   __POSITION __tmp__D3QD;
   __CHARACTER Self__0TVD;
-  __BOOLEAN b__YTKF;
+  __BOOLEAN b__5YKF;
   __tmp__K2QD=Self__G2QD->value__J2QD;
   switch (((struct ___OBJ *)__tmp__K2QD)->__id) {
   case __LIP_BINARY__: {
@@ -34131,24 +34319,24 @@ static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD)
     __tmp__L2QD=run_expr__F2QD(__tmp__K2QD);
   } break;
   case __LIP_CALL__: {
-    __tmp__L2QD=run_expr__RBUE(__tmp__K2QD);
+    __tmp__L2QD=run_expr__FGUE(__tmp__K2QD);
   } break;
   case __LIP_VALUE__: {
-    __tmp__PJIH=((__LIP_VALUE *)__tmp__K2QD)->value__RFUE;
-    switch (((struct ___OBJ *)__tmp__PJIH)->__id) {
+    __tmp__IRIH=((__LIP_VALUE *)__tmp__K2QD)->value__FKUE;
+    switch (((struct ___OBJ *)__tmp__IRIH)->__id) {
     case __LIP_BOOLEAN__: {
-      __tmp__QJIH=((__LIP_BOOLEAN *)__tmp__PJIH);
+      __tmp__JRIH=((__LIP_BOOLEAN *)__tmp__IRIH);
     } break;
     case __LIP_INTEGER__: {
-      Self__RJIH=((__LIP_INTEGER *)__tmp__PJIH);
-      __tmp__QJIH=get__QFSE(Self__RJIH,Self__RJIH->value__1X2F);
+      Self__KRIH=((__LIP_INTEGER *)__tmp__IRIH);
+      __tmp__JRIH=get__0JSE(Self__KRIH,Self__KRIH->value__0B3F);
     } break;
     case __LIP_STRING__: {
-      Self__SJIH=((__LIP_STRING *)__tmp__PJIH);
-      __tmp__QJIH=get__N2EF(Self__SJIH,Self__SJIH->value__52TE);
+      Self__LRIH=((__LIP_STRING *)__tmp__IRIH);
+      __tmp__JRIH=get__RBFF(Self__LRIH,Self__LRIH->value__TBUE);
     } break;
     };
-    __tmp__L2QD=__tmp__QJIH;
+    __tmp__L2QD=__tmp__JRIH;
   } break;
   };
   result__I2QD=__tmp__L2QD;
@@ -34159,9 +34347,9 @@ static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD)
       __tmp__T2QD=NULL;
     } break;
     case __LIP_INTEGER__: {
-      Self__ZX2F=((__LIP_INTEGER *)__tmp__L2QD);
-      Self__ZX2F->value__1X2F=(__INTEGER)(- Self__ZX2F->value__1X2F);
-      __tmp__T2QD=Self__ZX2F;
+      Self__YB3F=((__LIP_INTEGER *)__tmp__L2QD);
+      Self__YB3F->value__0B3F=(__INTEGER)(- Self__YB3F->value__0B3F);
+      __tmp__T2QD=Self__YB3F;
     } break;
     case __LIP_STRING__: {
       __tmp__T2QD=NULL;
@@ -34172,19 +34360,19 @@ static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD)
   if ((Self__0TVD == '!')) {
     switch (((struct ___OBJ *)result__I2QD)->__id) {
     case __LIP_BOOLEAN__: {
-      b__YTKF=(! ((__LIP_BOOLEAN *)result__I2QD)->value__PDQD);
-      result__0TKF=NULL;
-      if (b__YTKF) {
-        result__0TKF=true__5TKF;
+      b__5YKF=(! ((__LIP_BOOLEAN *)result__I2QD)->value__PDQD);
+      result__BZKF=NULL;
+      if (b__5YKF) {
+        result__BZKF=true__GZKF;
       } else {
-        result__0TKF=LIP_BOOLEAN__;
+        result__BZKF=LIP_BOOLEAN__;
       };
-      __tmp__02QD=result__0TKF;
+      __tmp__02QD=result__BZKF;
     } break;
     case __LIP_INTEGER__: {
-      Self__GY2F=((__LIP_INTEGER *)result__I2QD);
-      Self__GY2F->value__1X2F=(__INTEGER)(~ Self__GY2F->value__1X2F);
-      __tmp__02QD=Self__GY2F;
+      Self__FC3F=((__LIP_INTEGER *)result__I2QD);
+      Self__FC3F->value__0B3F=(__INTEGER)(~ Self__FC3F->value__0B3F);
+      __tmp__02QD=Self__FC3F;
     } break;
     case __LIP_STRING__: {
       __tmp__02QD=NULL;
@@ -34194,7 +34382,7 @@ static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD)
   };
   if (((void *)result__I2QD == (void *)NULL)) {
     __tmp__D3QD=Self__G2QD->parent_lip_code__L14B.parent_itm_object__5DE.position__NDJ;
-    put_error__text__KNG( 1,(&__string_275));
+    put_error__text__KNG( 1,(&__string_278));
     put_position__UOG(__tmp__D3QD);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
@@ -34204,240 +34392,240 @@ static void* run_expr__F2QD(__LIP_UNARY *Self__G2QD)
   return(result__I2QD);
 }
 
-static void* run_expr__RBUE(__LIP_CALL *Self__SBUE)
+static void* run_expr__FGUE(__LIP_CALL *Self__GGUE)
 // ({LIP_CALL}) With resultRecursive, No inlinable.
 {
-  void *str__VBUE,*__tmp__LCUE;
-  void *val__WBUE,*result__XBUE,*__tmp__ACUE,*__tmp__SFUE,*__tmp__TFUE;
-  void *__tmp__5BUE;
-  __LIP_INTEGER *Self__M22F;
-  __LIP_STRING *Self__DUGG;
-  __POSITION pos__0I0G,pos__SZJF;
-  __STRING *Self__I4EH;
-  __INTEGER state__P3VF,Self__Z1EG;
-  __BOOLEAN __tmp__2CUE,__tmp__ODUE,result__TAXE,sign__Q3VF,__tmp__C5VF;
-  __BOOLEAN result__I2CH,__tmp__P5VF,result__4JOG,__tmp__CAWF;
-  __BOOLEAN result__L2CH,result__O2CH,result__R2CH,result__S2CH;
-  __CHARACTER Self__C45G,Self__J2CH,Self__D45G,Self__M2CH,Self__P2CH;
-  __CHARACTER mem__SALF;
-  __FAST_ARRAYoLIP_SLOT_DATAo *Self__M0OF;
-  str__VBUE=NULL;
-  val__WBUE=NULL;
-  result__XBUE=NULL;
-  if (((void *)Self__SBUE->argument__H1TE != (void *)NULL)) {
-    __tmp__5BUE=Self__SBUE->argument__H1TE;
-    switch (((struct ___OBJ *)__tmp__5BUE)->__id) {
+  void *str__JGUE,*__tmp__5GUE;
+  void *val__KGUE,*result__LGUE,*__tmp__UGUE,*__tmp__GKUE,*__tmp__HKUE;
+  void *__tmp__TGUE;
+  __LIP_INTEGER *Self__EF3F;
+  __LIP_STRING *Self__41GG;
+  __POSITION pos__QS0G,pos__X4JF;
+  __STRING *Self__PGFH;
+  __INTEGER state__4EWF,Self__LJFG;
+  __BOOLEAN __tmp__QHUE,__tmp__CIUE,result__LFXE,sign__5EWF,__tmp__RGWF;
+  __BOOLEAN result__0FDH,__tmp__4GWF,result__NSOG,__tmp__RHWF;
+  __BOOLEAN result__3FDH,result__AGDH,result__DGDH,result__EGDH;
+  __CHARACTER Self__AHAH,Self__1FDH,Self__BHAH,Self__4FDH,Self__BGDH;
+  __CHARACTER mem__ZFLF;
+  __FAST_ARRAYoLIP_SLOT_DATAo *Self__KAPF;
+  str__JGUE=NULL;
+  val__KGUE=NULL;
+  result__LGUE=NULL;
+  if (((void *)Self__GGUE->argument__15TE != (void *)NULL)) {
+    __tmp__TGUE=Self__GGUE->argument__15TE;
+    switch (((struct ___OBJ *)__tmp__TGUE)->__id) {
     case __LIP_BINARY__: {
-      __tmp__ACUE=run_expr__GZQD(__tmp__5BUE);
+      __tmp__UGUE=run_expr__GZQD(__tmp__TGUE);
     } break;
     case __LIP_UNARY__: {
-      __tmp__ACUE=run_expr__F2QD(__tmp__5BUE);
+      __tmp__UGUE=run_expr__F2QD(__tmp__TGUE);
     } break;
     case __LIP_CALL__: {
-      __tmp__ACUE=run_expr__RBUE(__tmp__5BUE);
+      __tmp__UGUE=run_expr__FGUE(__tmp__TGUE);
     } break;
     case __LIP_VALUE__: {
-      __tmp__SFUE=((__LIP_VALUE *)__tmp__5BUE)->value__RFUE;
-      switch (((struct ___OBJ *)__tmp__SFUE)->__id) {
+      __tmp__GKUE=((__LIP_VALUE *)__tmp__TGUE)->value__FKUE;
+      switch (((struct ___OBJ *)__tmp__GKUE)->__id) {
       case __LIP_BOOLEAN__: {
-        __tmp__TFUE=((__LIP_BOOLEAN *)__tmp__SFUE);
+        __tmp__HKUE=((__LIP_BOOLEAN *)__tmp__GKUE);
       } break;
       case __LIP_INTEGER__: {
-        Self__M22F=((__LIP_INTEGER *)__tmp__SFUE);
-        __tmp__TFUE=get__QFSE(Self__M22F,Self__M22F->value__1X2F);
+        Self__EF3F=((__LIP_INTEGER *)__tmp__GKUE);
+        __tmp__HKUE=get__0JSE(Self__EF3F,Self__EF3F->value__0B3F);
       } break;
       case __LIP_STRING__: {
-        Self__DUGG=((__LIP_STRING *)__tmp__SFUE);
-        __tmp__TFUE=get__N2EF(Self__DUGG,Self__DUGG->value__52TE);
+        Self__41GG=((__LIP_STRING *)__tmp__GKUE);
+        __tmp__HKUE=get__RBFF(Self__41GG,Self__41GG->value__TBUE);
       } break;
       };
-      __tmp__ACUE=__tmp__TFUE;
+      __tmp__UGUE=__tmp__HKUE;
     } break;
     };
-    val__WBUE=__tmp__ACUE;
+    val__KGUE=__tmp__UGUE;
   };
-  if (((void *)Self__SBUE->name__S1TE == (void *)(&__string_93))) {
-    if (val__WBUE==NULL) {
-      __tmp__LCUE=NULL;
+  if (((void *)Self__GGUE->name__GAUE == (void *)(&__string_93))) {
+    if (val__KGUE==NULL) {
+      __tmp__5GUE=NULL;
     } else {
-      switch (((struct ___OBJ *)val__WBUE)->__id) {
+      switch (((struct ___OBJ *)val__KGUE)->__id) {
       case __LIP_BOOLEAN__: {
-        __tmp__LCUE=NULL;
+        __tmp__5GUE=NULL;
       } break;
       case __LIP_INTEGER__: {
-        __tmp__LCUE=NULL;
+        __tmp__5GUE=NULL;
       } break;
       case __LIP_STRING__: {
-        __tmp__LCUE=((void *)val__WBUE);
+        __tmp__5GUE=((void *)val__KGUE);
       } break;
       }
     };
-    str__VBUE=__tmp__LCUE;
-    if (((void *)__tmp__LCUE == (void *)NULL)) {
-      pos__0I0G=Self__SBUE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
-      put_error__text__KNG( 1,(&__string_308));
-      put_position__UOG(pos__0I0G);
+    str__JGUE=__tmp__5GUE;
+    if (((void *)__tmp__5GUE == (void *)NULL)) {
+      pos__QS0G=Self__GGUE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+      put_error__text__KNG( 1,(&__string_311));
+      put_position__UOG(pos__QS0G);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
     ((__STRING *)string_tmp__VH)->count__WFC= 0;
-    append_in__LUGG(__tmp__LCUE,string_tmp__VH);
-    Self__I4EH=((__STRING *)string_tmp__VH);
-    if ((Self__I4EH->capacity__YBS > Self__I4EH->count__WFC)) {
-      ((__CHARACTER *)Self__I4EH->storage__BCS)[Self__I4EH->count__WFC]='\0';
+    append_in__C2GG(__tmp__5GUE,string_tmp__VH);
+    Self__PGFH=((__STRING *)string_tmp__VH);
+    if ((Self__PGFH->capacity__YBS > Self__PGFH->count__WFC)) {
+      ((__CHARACTER *)Self__PGFH->storage__BCS)[Self__PGFH->count__WFC]='\0';
     } else {
-      add_last__ZLT(Self__I4EH,'\0');
-      Self__I4EH->count__WFC=(__INTEGER)(Self__I4EH->count__WFC -  1);
+      add_last__ZLT(Self__PGFH,'\0');
+      Self__PGFH->count__WFC=(__INTEGER)(Self__PGFH->count__WFC -  1);
     };
-    result__XBUE=get__QFSE(LIP_INTEGER__,((__INTEGER )(system(((char*)((Self__I4EH->storage__BCS)))))));
-    __tmp__2CUE=TRUE__;
+    result__LGUE=get__0JSE(LIP_INTEGER__,((__INTEGER )(system(((char*)((Self__PGFH->storage__BCS)))))));
+    __tmp__QHUE=TRUE__;
   } else {
-    __tmp__2CUE=FALSE__;
+    __tmp__QHUE=FALSE__;
   };
-  if (__tmp__2CUE) {
-    __tmp__ODUE=TRUE__;
+  if (__tmp__QHUE) {
+    __tmp__CIUE=TRUE__;
   } else {
-    result__TAXE=((void *)Self__SBUE->name__S1TE == (void *)(&__string_106));
-    if (result__TAXE) {
-      state__P3VF= 0;
-      sign__Q3VF=FALSE__;
-      while ((state__P3VF <=  2)) {
-        if (push_back_flag__NTLF) {
-          push_back_flag__NTLF=FALSE__;
+    result__LFXE=((void *)Self__GGUE->name__GAUE == (void *)(&__string_106));
+    if (result__LFXE) {
+      state__4EWF= 0;
+      sign__5EWF=FALSE__;
+      while ((state__4EWF <=  2)) {
+        if (push_back_flag__3YLF) {
+          push_back_flag__3YLF=FALSE__;
         } else {
-          memory__0ALF=((__CHARACTER )(fgetc(stdin)));
+          memory__BGLF=((__CHARACTER )(fgetc(stdin)));
         };
-        if ((state__P3VF ==  0)) {
-          Self__C45G=memory__0ALF;
-          if ((((((((Self__C45G == ' ') || (Self__C45G == '\t')) || (Self__C45G == '\n')) || (Self__C45G == '\r')) || (Self__C45G == '\0')) || (Self__C45G == '\f')) || (Self__C45G == '\v'))) {
-            __tmp__C5VF=TRUE__;
+        if ((state__4EWF ==  0)) {
+          Self__AHAH=memory__BGLF;
+          if ((((((((Self__AHAH == ' ') || (Self__AHAH == '\t')) || (Self__AHAH == '\n')) || (Self__AHAH == '\r')) || (Self__AHAH == '\0')) || (Self__AHAH == '\f')) || (Self__AHAH == '\v'))) {
+            __tmp__RGWF=TRUE__;
           } else {
-            Self__J2CH=memory__0ALF;
-            result__I2CH=FALSE__;
-            if ((((__INTEGER_8 )Self__J2CH) >= ((__INTEGER_8 )'0'))) {
-              result__I2CH=(((__INTEGER_8 )Self__J2CH) <= ((__INTEGER_8 )'9'));
+            Self__1FDH=memory__BGLF;
+            result__0FDH=FALSE__;
+            if ((((__INTEGER_8 )Self__1FDH) >= ((__INTEGER_8 )'0'))) {
+              result__0FDH=(((__INTEGER_8 )Self__1FDH) <= ((__INTEGER_8 )'9'));
             };
-            if (result__I2CH) {
-              last_integer__JDUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__0ALF)) -  48);
-              state__P3VF= 2;
+            if (result__0FDH) {
+              last_integer__3HUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__BGLF)) -  48);
+              state__4EWF= 2;
             };
-            __tmp__C5VF=result__I2CH;
+            __tmp__RGWF=result__0FDH;
           };
-          if (__tmp__C5VF) {
-            __tmp__P5VF=TRUE__;
+          if (__tmp__RGWF) {
+            __tmp__4GWF=TRUE__;
           } else {
-            result__4JOG=(memory__0ALF == '-');
-            if (result__4JOG) {
-              sign__Q3VF=TRUE__;
-              state__P3VF= 1;
+            result__NSOG=(memory__BGLF == '-');
+            if (result__NSOG) {
+              sign__5EWF=TRUE__;
+              state__4EWF= 1;
             };
-            __tmp__P5VF=result__4JOG;
+            __tmp__4GWF=result__NSOG;
           };
-          if ((! __tmp__P5VF)) {
-            if ((memory__0ALF == '+')) {
-              state__P3VF= 1;
+          if ((! __tmp__4GWF)) {
+            if ((memory__BGLF == '+')) {
+              state__4EWF= 1;
             } else {
-              state__P3VF= 4;
+              state__4EWF= 4;
             };
           };
-          __tmp__CAWF=TRUE__;
+          __tmp__RHWF=TRUE__;
         } else {
-          __tmp__CAWF=FALSE__;
+          __tmp__RHWF=FALSE__;
         };
-        if ((! __tmp__CAWF)) {
-          if ((state__P3VF ==  1)) {
-            Self__D45G=memory__0ALF;
-            if ((! (((((((Self__D45G == ' ') || (Self__D45G == '\t')) || (Self__D45G == '\n')) || (Self__D45G == '\r')) || (Self__D45G == '\0')) || (Self__D45G == '\f')) || (Self__D45G == '\v')))) {
-              Self__M2CH=memory__0ALF;
-              result__L2CH=FALSE__;
-              if ((((__INTEGER_8 )Self__M2CH) >= ((__INTEGER_8 )'0'))) {
-                result__L2CH=(((__INTEGER_8 )Self__M2CH) <= ((__INTEGER_8 )'9'));
+        if ((! __tmp__RHWF)) {
+          if ((state__4EWF ==  1)) {
+            Self__BHAH=memory__BGLF;
+            if ((! (((((((Self__BHAH == ' ') || (Self__BHAH == '\t')) || (Self__BHAH == '\n')) || (Self__BHAH == '\r')) || (Self__BHAH == '\0')) || (Self__BHAH == '\f')) || (Self__BHAH == '\v')))) {
+              Self__4FDH=memory__BGLF;
+              result__3FDH=FALSE__;
+              if ((((__INTEGER_8 )Self__4FDH) >= ((__INTEGER_8 )'0'))) {
+                result__3FDH=(((__INTEGER_8 )Self__4FDH) <= ((__INTEGER_8 )'9'));
               };
-              if (result__L2CH) {
-                last_integer__JDUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__0ALF)) -  48);
-                state__P3VF= 2;
+              if (result__3FDH) {
+                last_integer__3HUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__BGLF)) -  48);
+                state__4EWF= 2;
               } else {
-                state__P3VF= 4;
+                state__4EWF= 4;
               };
             };
           } else {
-            Self__P2CH=memory__0ALF;
-            result__O2CH=FALSE__;
-            if ((((__INTEGER_8 )Self__P2CH) >= ((__INTEGER_8 )'0'))) {
-              result__O2CH=(((__INTEGER_8 )Self__P2CH) <= ((__INTEGER_8 )'9'));
+            Self__BGDH=memory__BGLF;
+            result__AGDH=FALSE__;
+            if ((((__INTEGER_8 )Self__BGDH) >= ((__INTEGER_8 )'0'))) {
+              result__AGDH=(((__INTEGER_8 )Self__BGDH) <= ((__INTEGER_8 )'9'));
             };
-            if (result__O2CH) {
-              last_integer__JDUE=(__INTEGER)((__INTEGER)(last_integer__JDUE *  10) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__0ALF)) -  48));
+            if (result__AGDH) {
+              last_integer__3HUE=(__INTEGER)((__INTEGER)(last_integer__3HUE *  10) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__BGLF)) -  48));
             } else {
-              state__P3VF= 3;
+              state__4EWF= 3;
             };
           };
         };
-        result__R2CH=FALSE__;
-        if ((! push_back_flag__NTLF)) {
-          result__R2CH=(memory__0ALF == ((__CHARACTER )(EOF)));
+        result__DGDH=FALSE__;
+        if ((! push_back_flag__3YLF)) {
+          result__DGDH=(memory__BGLF == ((__CHARACTER )(EOF)));
         };
-        if (result__R2CH) {
-          Self__Z1EG=state__P3VF;
-          if (((state__P3VF >=  0) && (state__P3VF <=  1))) {
-            state__P3VF= 4;
+        if (result__DGDH) {
+          Self__LJFG=state__4EWF;
+          if (((state__4EWF >=  0) && (state__4EWF <=  1))) {
+            state__4EWF= 4;
           };
-          if (((Self__Z1EG >=  2) && (Self__Z1EG <=  3))) {
-            state__P3VF= 3;
+          if (((Self__LJFG >=  2) && (Self__LJFG <=  3))) {
+            state__4EWF= 3;
           };
         };
       };
-      result__S2CH=FALSE__;
-      if ((! push_back_flag__NTLF)) {
-        result__S2CH=(memory__0ALF == ((__CHARACTER )(EOF)));
+      result__EGDH=FALSE__;
+      if ((! push_back_flag__3YLF)) {
+        result__EGDH=(memory__BGLF == ((__CHARACTER )(EOF)));
       };
-      if (result__S2CH) {
-        push_back_flag__NTLF=TRUE__;
+      if (result__EGDH) {
+        push_back_flag__3YLF=TRUE__;
       };
-      if ((state__P3VF ==  4)) {
-        print__WHD((&__string_327));
-        print__WHD((&__string_217));
+      if ((state__4EWF ==  4)) {
+        print__WHD((&__string_330));
+        print__WHD((&__string_220));
         fputc((int)('\n'),stdout);
         exit(( 1));
       };
-      if (sign__Q3VF) {
-        last_integer__JDUE=(__INTEGER)(- last_integer__JDUE);
+      if (sign__5EWF) {
+        last_integer__3HUE=(__INTEGER)(- last_integer__3HUE);
       };
-      result__XBUE=get__QFSE(LIP_INTEGER__,last_integer__JDUE);
+      result__LGUE=get__0JSE(LIP_INTEGER__,last_integer__3HUE);
     };
-    __tmp__ODUE=result__TAXE;
+    __tmp__CIUE=result__LFXE;
   };
-  if ((! __tmp__ODUE)) {
-    if (((void *)Self__SBUE->name__S1TE == (void *)(&__string_107))) {
-      ((__STRING *)last_string__1DUE)->count__WFC= 0;
-      mem__SALF='\0';
-      if (push_back_flag__NTLF) {
-        push_back_flag__NTLF=FALSE__;
+  if ((! __tmp__CIUE)) {
+    if (((void *)Self__GGUE->name__GAUE == (void *)(&__string_107))) {
+      ((__STRING *)last_string__PIUE)->count__WFC= 0;
+      mem__ZFLF='\0';
+      if (push_back_flag__3YLF) {
+        push_back_flag__3YLF=FALSE__;
       } else {
-        memory__0ALF=((__CHARACTER )(fgetc(stdin)));
+        memory__BGLF=((__CHARACTER )(fgetc(stdin)));
       };
-      if (((memory__0ALF != '\n') && (memory__0ALF != ((__CHARACTER )(EOF))))) {
-        add_last__ZLT(((__STRING *)last_string__1DUE),memory__0ALF);
-        mem__SALF=((__CHARACTER )(fgetc(stdin)));
-        while ((! ((mem__SALF == ((__CHARACTER )(EOF))) || (mem__SALF == '\n')))) {
-          add_last__ZLT(((__STRING *)last_string__1DUE),mem__SALF);
-          mem__SALF=((__CHARACTER )(fgetc(stdin)));
+      if (((memory__BGLF != '\n') && (memory__BGLF != ((__CHARACTER )(EOF))))) {
+        add_last__ZLT(((__STRING *)last_string__PIUE),memory__BGLF);
+        mem__ZFLF=((__CHARACTER )(fgetc(stdin)));
+        while ((! ((mem__ZFLF == ((__CHARACTER )(EOF))) || (mem__ZFLF == '\n')))) {
+          add_last__ZLT(((__STRING *)last_string__PIUE),mem__ZFLF);
+          mem__ZFLF=((__CHARACTER )(fgetc(stdin)));
         };
-        memory__0ALF=mem__SALF;
+        memory__BGLF=mem__ZFLF;
       };
-      result__XBUE=get__N2EF(LIP_STRING__,get__IWB(last_string__1DUE));
+      result__LGUE=get__RBFF(LIP_STRING__,get__IWB(last_string__PIUE));
     } else {
-      if (((void *)fast_reference_at__OURD(list_data__OONC,Self__SBUE->name__S1TE) == (void *)NULL)) {
-        Self__M0OF=((__FAST_ARRAYoLIP_SLOT_DATAo *)stack__REUE);
-        if (((void *)((void **)Self__M0OF->parent_arrayed_collection__QEUE.storage__IBPF)[Self__M0OF->parent_arrayed_collection__QEUE.upper__W0OF] == (void *)NULL)) {
-          copy__ZCS(string_tmp__VH,(&__string_305));
-          append__BOS(string_tmp__VH,Self__SBUE->name__S1TE);
-          append__BOS(string_tmp__VH,(&__string_306));
-          pos__SZJF=Self__SBUE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+      if (((void *)fast_reference_at__OURD(list_data__OONC,Self__GGUE->name__GAUE) == (void *)NULL)) {
+        Self__KAPF=((__FAST_ARRAYoLIP_SLOT_DATAo *)stack__FJUE);
+        if (((void *)((void **)Self__KAPF->parent_arrayed_collection__EJUE.storage__GHPF)[Self__KAPF->parent_arrayed_collection__EJUE.upper__UAPF] == (void *)NULL)) {
+          copy__ZCS(string_tmp__VH,(&__string_308));
+          append__BOS(string_tmp__VH,Self__GGUE->name__GAUE);
+          append__BOS(string_tmp__VH,(&__string_309));
+          pos__X4JF=Self__GGUE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
           put_error__text__KNG( 1,string_tmp__VH);
-          put_position__UOG(pos__SZJF);
+          put_position__UOG(pos__X4JF);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -34445,404 +34633,404 @@ static void* run_expr__RBUE(__LIP_CALL *Self__SBUE)
         };
       };
       print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-      result__XBUE=NULL;
+      result__LGUE=NULL;
     };
   };
-  if (((void *)val__WBUE != (void *)NULL)) {
-    switch (((struct ___OBJ *)val__WBUE)->__id) {
+  if (((void *)val__KGUE != (void *)NULL)) {
+    switch (((struct ___OBJ *)val__KGUE)->__id) {
     case __LIP_BOOLEAN__: {
     } break;
     case __LIP_INTEGER__: {
-      free__TM2F(val__WBUE);
+      free__SW2F(val__KGUE);
     } break;
     case __LIP_STRING__: {
-      free__BNGG(val__WBUE);
+      free__EVGG(val__KGUE);
     } break;
     };
   };
-  return(result__XBUE);
+  return(result__LGUE);
 }
 
-static void* get__QFSE(__LIP_INTEGER *Self__RFSE,__INTEGER i__SFSE)
+static void* get__0JSE(__LIP_INTEGER *Self__1JSE,__INTEGER i__2JSE)
 // ({LIP_INTEGER},{INTEGER}) With resultNo recursive, No inlinable.
 {
-  void *result__UFSE;
-  __LIP_INTEGER *result__4SRF;
-  __POINTER ptr__5SRF,ptr_table__UJIH,next__TJIH,result__VJIH;
-  __POINTER ptr_table__ZJIH,next__YJIH,result__0JIH;
-  __INTEGER typ_id__ETRF;
-  __UINTEGER_32 sz__BTRF,a__ECFH,new_size__FCFH,t__JCFH,a__ICFH;
-  __UINTEGER_32 new_size__2JIH,lab_type__1JIH;
-  __FAST_ARRAYoLIP_INTEGERo *Self__AW3E,*Self__WW3E;
-  result__UFSE=NULL;
-  if ((((__FAST_ARRAYoLIP_INTEGERo *)storage__0FSE)->parent_arrayed_collection__ZFSE.upper__4TWE <  0)) {
-    result__4SRF=NULL;
-    ptr__5SRF=((__POINTER )(NULL));
-    typ_id__ETRF= 0;
-    sz__BTRF=((__UINTEGER_32 )sizeof(__LIP_INTEGER));
-    if ((sz__BTRF ==  0)) {
-      result__4SRF=Self__RFSE;
-    } else {
-      typ_id__ETRF=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__BTRF);
-      if ((typ_id__ETRF == (__INTEGER)(-  1))) {
-        a__ECFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__FCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__BTRF + a__ECFH) & (__UINTEGER_32)(~ a__ECFH));
-        ptr_table__UJIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__TJIH=((__POINTER )(NULL));
-        result__VJIH=((__POINTER *)ptr_table__UJIH)[ 0];
-        if ((result__VJIH == (void *)NULL)) {
-          result__VJIH=new_lab__MRJ(new_size__FCFH);
-          next__TJIH=(void *)((unsigned long)result__VJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FCFH)));
-          ((__POINTER *)next__TJIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UJIH)[ 0]=next__TJIH;
+  void *result__4JSE;
+  __LIP_INTEGER *result__2YRF;
+  __POINTER ptr__3YRF,ptr_table__NRIH,next__MRIH,result__ORIH;
+  __POINTER ptr_table__SRIH,next__RRIH,result__TRIH;
+  __INTEGER typ_id__CZRF;
+  __UINTEGER_32 sz__5YRF,a__LKFH,new_size__MKFH,t__QKFH,a__PKFH;
+  __UINTEGER_32 new_size__VRIH,lab_type__URIH;
+  __FAST_ARRAYoLIP_INTEGERo *Self__EY3E,*Self__0Y3E;
+  result__4JSE=NULL;
+  if ((((__FAST_ARRAYoLIP_INTEGERo *)storage__EKSE)->parent_arrayed_collection__DKSE.upper__BWWE <  0)) {
+    result__2YRF=NULL;
+    ptr__3YRF=((__POINTER )(NULL));
+    typ_id__CZRF= 0;
+    sz__5YRF=((__UINTEGER_32 )sizeof(__LIP_INTEGER));
+    if ((sz__5YRF ==  0)) {
+      result__2YRF=Self__1JSE;
+    } else {
+      typ_id__CZRF=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__5YRF);
+      if ((typ_id__CZRF == (__INTEGER)(-  1))) {
+        a__LKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__MKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__5YRF + a__LKFH) & (__UINTEGER_32)(~ a__LKFH));
+        ptr_table__NRIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__MRIH=((__POINTER )(NULL));
+        result__ORIH=((__POINTER *)ptr_table__NRIH)[ 0];
+        if ((result__ORIH == (void *)NULL)) {
+          result__ORIH=new_lab__MRJ(new_size__MKFH);
+          next__MRIH=(void *)((unsigned long)result__ORIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MKFH)));
+          ((__POINTER *)next__MRIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__NRIH)[ 0]=next__MRIH;
         } else {
-          next__TJIH=((__POINTER *)result__VJIH)[ 0];
-          if ((next__TJIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VJIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FCFH <<  1)) <=  4096)) {
-              next__TJIH=(void *)((unsigned long)result__VJIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FCFH)));
+          next__MRIH=((__POINTER *)result__ORIH)[ 0];
+          if ((next__MRIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ORIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MKFH <<  1)) <=  4096)) {
+              next__MRIH=(void *)((unsigned long)result__ORIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MKFH)));
             } else {
-              next__TJIH=new_lab__MRJ(new_size__FCFH);
+              next__MRIH=new_lab__MRJ(new_size__MKFH);
             };
-            ((__POINTER *)next__TJIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UJIH)[ 0]=next__TJIH;
+            ((__POINTER *)next__MRIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__NRIH)[ 0]=next__MRIH;
           } else {
-            ((__POINTER *)result__VJIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TJIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__VJIH=next__TJIH;
+            ((__POINTER *)result__ORIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__ORIH=next__MRIH;
           };
         };
-        ptr__5SRF=result__VJIH;
-      } else {
-        t__JCFH=((__UINTEGER_32 )typ_id__ETRF);
-        a__ICFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__2JIH=(__UINTEGER_32)((__UINTEGER_32)(sz__BTRF + a__ICFH) & (__UINTEGER_32)(~ a__ICFH));
-        ptr_table__ZJIH=((__POINTER )(&(table_type[(t__JCFH)])));
-        lab_type__1JIH=(__UINTEGER_32)(t__JCFH |  1);
-        next__YJIH=((__POINTER )(NULL));
-        result__0JIH=((__POINTER *)ptr_table__ZJIH)[ 0];
-        if ((result__0JIH == (void *)NULL)) {
-          result__0JIH=new_lab__MRJ(lab_type__1JIH);
-          next__YJIH=(void *)((unsigned long)result__0JIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2JIH)));
-          ((__POINTER *)next__YJIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZJIH)[ 0]=next__YJIH;
-        } else {
-          next__YJIH=((__POINTER *)result__0JIH)[ 0];
-          if ((next__YJIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0JIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2JIH <<  1)) <=  4096)) {
-              next__YJIH=(void *)((unsigned long)result__0JIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2JIH)));
+        ptr__3YRF=result__ORIH;
+      } else {
+        t__QKFH=((__UINTEGER_32 )typ_id__CZRF);
+        a__PKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__VRIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5YRF + a__PKFH) & (__UINTEGER_32)(~ a__PKFH));
+        ptr_table__SRIH=((__POINTER )(&(table_type[(t__QKFH)])));
+        lab_type__URIH=(__UINTEGER_32)(t__QKFH |  1);
+        next__RRIH=((__POINTER )(NULL));
+        result__TRIH=((__POINTER *)ptr_table__SRIH)[ 0];
+        if ((result__TRIH == (void *)NULL)) {
+          result__TRIH=new_lab__MRJ(lab_type__URIH);
+          next__RRIH=(void *)((unsigned long)result__TRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRIH)));
+          ((__POINTER *)next__RRIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__SRIH)[ 0]=next__RRIH;
+        } else {
+          next__RRIH=((__POINTER *)result__TRIH)[ 0];
+          if ((next__RRIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TRIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VRIH <<  1)) <=  4096)) {
+              next__RRIH=(void *)((unsigned long)result__TRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRIH)));
             } else {
-              next__YJIH=new_lab__MRJ(lab_type__1JIH);
+              next__RRIH=new_lab__MRJ(lab_type__URIH);
             };
-            ((__POINTER *)next__YJIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ZJIH)[ 0]=next__YJIH;
+            ((__POINTER *)next__RRIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__SRIH)[ 0]=next__RRIH;
           } else {
-            ((__POINTER *)result__0JIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YJIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__0JIH=next__YJIH;
+            ((__POINTER *)result__TRIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__TRIH=next__RRIH;
           };
         };
-        ptr__5SRF=result__0JIH;
+        ptr__3YRF=result__TRIH;
       };
-      result__4SRF=((__LIP_INTEGER *)ptr__5SRF);
-      *(result__4SRF) = *(Self__RFSE);
+      result__2YRF=((__LIP_INTEGER *)ptr__3YRF);
+      *(result__2YRF) = *(Self__1JSE);
     };
-    result__UFSE=result__4SRF;
+    result__4JSE=result__2YRF;
   } else {
-    Self__AW3E=((__FAST_ARRAYoLIP_INTEGERo *)storage__0FSE);
-    result__UFSE=((void **)Self__AW3E->parent_arrayed_collection__ZFSE.storage__WVWE)[Self__AW3E->parent_arrayed_collection__ZFSE.upper__4TWE];
-    Self__WW3E=((__FAST_ARRAYoLIP_INTEGERo *)storage__0FSE);
-    Self__WW3E->parent_arrayed_collection__ZFSE.upper__4TWE=(__INTEGER)(Self__WW3E->parent_arrayed_collection__ZFSE.upper__4TWE -  1);
+    Self__EY3E=((__FAST_ARRAYoLIP_INTEGERo *)storage__EKSE);
+    result__4JSE=((void **)Self__EY3E->parent_arrayed_collection__DKSE.storage__O0WE)[Self__EY3E->parent_arrayed_collection__DKSE.upper__BWWE];
+    Self__0Y3E=((__FAST_ARRAYoLIP_INTEGERo *)storage__EKSE);
+    Self__0Y3E->parent_arrayed_collection__DKSE.upper__BWWE=(__INTEGER)(Self__0Y3E->parent_arrayed_collection__DKSE.upper__BWWE -  1);
   };
-  ((__LIP_INTEGER *)result__UFSE)->value__1X2F=i__SFSE;
-  return(result__UFSE);
+  ((__LIP_INTEGER *)result__4JSE)->value__0B3F=i__2JSE;
+  return(result__4JSE);
 }
 
-static void* get__N2EF(__LIP_STRING *Self__O2EF,void *str__P2EF)
+static void* get__RBFF(__LIP_STRING *Self__SBFF,void *str__TBFF)
 // ({LIP_STRING},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  void *result__R2EF;
-  __LIP_STRING *result__Q05F;
-  __POINTER ptr__R05F,ptr_table__4JIH,next__3JIH,result__5JIH;
-  __POINTER ptr_table__DKIH,next__CKIH,result__EKIH;
-  __INTEGER typ_id__W05F;
-  __UINTEGER_32 sz__T05F,a__MCFH,new_size__NCFH,t__RCFH,a__QCFH;
-  __UINTEGER_32 new_size__GKIH,lab_type__FKIH;
-  __FAST_ARRAYoLIP_STRINGo *Self__AHSF,*Self__WHSF;
-  result__R2EF=NULL;
-  if ((((__FAST_ARRAYoLIP_STRINGo *)storage__X2EF)->parent_arrayed_collection__W2EF.upper__NSOF <  0)) {
-    result__Q05F=NULL;
-    ptr__R05F=((__POINTER )(NULL));
-    typ_id__W05F= 0;
-    sz__T05F=((__UINTEGER_32 )sizeof(__LIP_STRING));
-    if ((sz__T05F ==  0)) {
-      result__Q05F=Self__O2EF;
-    } else {
-      typ_id__W05F=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__T05F);
-      if ((typ_id__W05F == (__INTEGER)(-  1))) {
-        a__MCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__NCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__T05F + a__MCFH) & (__UINTEGER_32)(~ a__MCFH));
-        ptr_table__4JIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__3JIH=((__POINTER )(NULL));
-        result__5JIH=((__POINTER *)ptr_table__4JIH)[ 0];
-        if ((result__5JIH == (void *)NULL)) {
-          result__5JIH=new_lab__MRJ(new_size__NCFH);
-          next__3JIH=(void *)((unsigned long)result__5JIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NCFH)));
-          ((__POINTER *)next__3JIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4JIH)[ 0]=next__3JIH;
-        } else {
-          next__3JIH=((__POINTER *)result__5JIH)[ 0];
-          if ((next__3JIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5JIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__NCFH <<  1)) <=  4096)) {
-              next__3JIH=(void *)((unsigned long)result__5JIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NCFH)));
+  void *result__VBFF;
+  __LIP_STRING *result__ZDAG;
+  __POINTER ptr__0DAG,ptr_table__XRIH,next__WRIH,result__YRIH;
+  __POINTER ptr_table__2RIH,next__1RIH,result__3RIH;
+  __INTEGER typ_id__5DAG;
+  __UINTEGER_32 sz__2DAG,a__TKFH,new_size__UKFH,t__YKFH,a__XKFH;
+  __UINTEGER_32 new_size__5RIH,lab_type__4RIH;
+  __FAST_ARRAYoLIP_STRINGo *Self__2MSF,*Self__SNSF;
+  result__VBFF=NULL;
+  if ((((__FAST_ARRAYoLIP_STRINGo *)storage__1BFF)->parent_arrayed_collection__0BFF.upper__4XOF <  0)) {
+    result__ZDAG=NULL;
+    ptr__0DAG=((__POINTER )(NULL));
+    typ_id__5DAG= 0;
+    sz__2DAG=((__UINTEGER_32 )sizeof(__LIP_STRING));
+    if ((sz__2DAG ==  0)) {
+      result__ZDAG=Self__SBFF;
+    } else {
+      typ_id__5DAG=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__2DAG);
+      if ((typ_id__5DAG == (__INTEGER)(-  1))) {
+        a__TKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__UKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__2DAG + a__TKFH) & (__UINTEGER_32)(~ a__TKFH));
+        ptr_table__XRIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__WRIH=((__POINTER )(NULL));
+        result__YRIH=((__POINTER *)ptr_table__XRIH)[ 0];
+        if ((result__YRIH == (void *)NULL)) {
+          result__YRIH=new_lab__MRJ(new_size__UKFH);
+          next__WRIH=(void *)((unsigned long)result__YRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UKFH)));
+          ((__POINTER *)next__WRIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__XRIH)[ 0]=next__WRIH;
+        } else {
+          next__WRIH=((__POINTER *)result__YRIH)[ 0];
+          if ((next__WRIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YRIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UKFH <<  1)) <=  4096)) {
+              next__WRIH=(void *)((unsigned long)result__YRIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UKFH)));
             } else {
-              next__3JIH=new_lab__MRJ(new_size__NCFH);
-            };
-            ((__POINTER *)next__3JIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__4JIH)[ 0]=next__3JIH;
-          } else {
-            ((__POINTER *)result__5JIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3JIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__5JIH=next__3JIH;
-          };
-        };
-        ptr__R05F=result__5JIH;
-      } else {
-        t__RCFH=((__UINTEGER_32 )typ_id__W05F);
-        a__QCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__GKIH=(__UINTEGER_32)((__UINTEGER_32)(sz__T05F + a__QCFH) & (__UINTEGER_32)(~ a__QCFH));
-        ptr_table__DKIH=((__POINTER )(&(table_type[(t__RCFH)])));
-        lab_type__FKIH=(__UINTEGER_32)(t__RCFH |  1);
-        next__CKIH=((__POINTER )(NULL));
-        result__EKIH=((__POINTER *)ptr_table__DKIH)[ 0];
-        if ((result__EKIH == (void *)NULL)) {
-          result__EKIH=new_lab__MRJ(lab_type__FKIH);
-          next__CKIH=(void *)((unsigned long)result__EKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GKIH)));
-          ((__POINTER *)next__CKIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DKIH)[ 0]=next__CKIH;
-        } else {
-          next__CKIH=((__POINTER *)result__EKIH)[ 0];
-          if ((next__CKIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GKIH <<  1)) <=  4096)) {
-              next__CKIH=(void *)((unsigned long)result__EKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GKIH)));
+              next__WRIH=new_lab__MRJ(new_size__UKFH);
+            };
+            ((__POINTER *)next__WRIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__XRIH)[ 0]=next__WRIH;
+          } else {
+            ((__POINTER *)result__YRIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WRIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__YRIH=next__WRIH;
+          };
+        };
+        ptr__0DAG=result__YRIH;
+      } else {
+        t__YKFH=((__UINTEGER_32 )typ_id__5DAG);
+        a__XKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__5RIH=(__UINTEGER_32)((__UINTEGER_32)(sz__2DAG + a__XKFH) & (__UINTEGER_32)(~ a__XKFH));
+        ptr_table__2RIH=((__POINTER )(&(table_type[(t__YKFH)])));
+        lab_type__4RIH=(__UINTEGER_32)(t__YKFH |  1);
+        next__1RIH=((__POINTER )(NULL));
+        result__3RIH=((__POINTER *)ptr_table__2RIH)[ 0];
+        if ((result__3RIH == (void *)NULL)) {
+          result__3RIH=new_lab__MRJ(lab_type__4RIH);
+          next__1RIH=(void *)((unsigned long)result__3RIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RIH)));
+          ((__POINTER *)next__1RIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__2RIH)[ 0]=next__1RIH;
+        } else {
+          next__1RIH=((__POINTER *)result__3RIH)[ 0];
+          if ((next__1RIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3RIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5RIH <<  1)) <=  4096)) {
+              next__1RIH=(void *)((unsigned long)result__3RIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RIH)));
             } else {
-              next__CKIH=new_lab__MRJ(lab_type__FKIH);
+              next__1RIH=new_lab__MRJ(lab_type__4RIH);
             };
-            ((__POINTER *)next__CKIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DKIH)[ 0]=next__CKIH;
+            ((__POINTER *)next__1RIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__2RIH)[ 0]=next__1RIH;
           } else {
-            ((__POINTER *)result__EKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__EKIH=next__CKIH;
+            ((__POINTER *)result__3RIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1RIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__3RIH=next__1RIH;
           };
         };
-        ptr__R05F=result__EKIH;
+        ptr__0DAG=result__3RIH;
       };
-      result__Q05F=((__LIP_STRING *)ptr__R05F);
-      *(result__Q05F) = *(Self__O2EF);
+      result__ZDAG=((__LIP_STRING *)ptr__0DAG);
+      *(result__ZDAG) = *(Self__SBFF);
     };
-    result__R2EF=result__Q05F;
+    result__VBFF=result__ZDAG;
   } else {
-    Self__AHSF=((__FAST_ARRAYoLIP_STRINGo *)storage__X2EF);
-    result__R2EF=((void **)Self__AHSF->parent_arrayed_collection__W2EF.storage__5YOF)[Self__AHSF->parent_arrayed_collection__W2EF.upper__NSOF];
-    Self__WHSF=((__FAST_ARRAYoLIP_STRINGo *)storage__X2EF);
-    Self__WHSF->parent_arrayed_collection__W2EF.upper__NSOF=(__INTEGER)(Self__WHSF->parent_arrayed_collection__W2EF.upper__NSOF -  1);
+    Self__2MSF=((__FAST_ARRAYoLIP_STRINGo *)storage__1BFF);
+    result__VBFF=((void **)Self__2MSF->parent_arrayed_collection__0BFF.storage__34OF)[Self__2MSF->parent_arrayed_collection__0BFF.upper__4XOF];
+    Self__SNSF=((__FAST_ARRAYoLIP_STRINGo *)storage__1BFF);
+    Self__SNSF->parent_arrayed_collection__0BFF.upper__4XOF=(__INTEGER)(Self__SNSF->parent_arrayed_collection__0BFF.upper__4XOF -  1);
   };
-  ((__LIP_STRING *)result__R2EF)->value__52TE=str__P2EF;
-  return(result__R2EF);
+  ((__LIP_STRING *)result__VBFF)->value__TBUE=str__TBFF;
+  return(result__VBFF);
 }
 
-static void free__TM2F(__LIP_INTEGER *Self__UM2F)
+static void free__SW2F(__LIP_INTEGER *Self__TW2F)
 // ({LIP_INTEGER}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__Q23F,__tmp__U33F,__tmp__PAFG,Self__UOHG;
-  __FAST_ARRAYoLIP_INTEGERo *Self__O23F;
-  __BOOLEAN __tmp__423F;
-  void **__tmp__T33F,**new__15EG;
-  Self__O23F=((__FAST_ARRAYoLIP_INTEGERo *)storage__0FSE);
-  new_capacity__Q23F= 0;
-  if (((__INTEGER)(Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE +  1) <= (__INTEGER)(Self__O23F->parent_arrayed_collection__ZFSE.capacity__LVWE -  1))) {
-    Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE=(__INTEGER)(Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE +  1);
-    __tmp__423F=TRUE__;
+  __INTEGER new_capacity__1G4F,__tmp__5H4F,__tmp__BOFG,Self__CWHG;
+  __FAST_ARRAYoLIP_INTEGERo *Self__ZG4F;
+  __BOOLEAN __tmp__JH4F;
+  void **__tmp__4H4F,**new__NNFG;
+  Self__ZG4F=((__FAST_ARRAYoLIP_INTEGERo *)storage__EKSE);
+  new_capacity__1G4F= 0;
+  if (((__INTEGER)(Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE +  1) <= (__INTEGER)(Self__ZG4F->parent_arrayed_collection__DKSE.capacity__D0WE -  1))) {
+    Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE=(__INTEGER)(Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE +  1);
+    __tmp__JH4F=TRUE__;
   } else {
-    __tmp__423F=FALSE__;
-  };
-  if ((! __tmp__423F)) {
-    if ((Self__O23F->parent_arrayed_collection__ZFSE.capacity__LVWE ==  0)) {
-      Self__O23F->parent_arrayed_collection__ZFSE.storage__WVWE=create__YMFF( 2);
-      Self__O23F->parent_arrayed_collection__ZFSE.capacity__LVWE= 2;
-      Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE= 0;
-    } else {
-      new_capacity__Q23F=(__INTEGER)(Self__O23F->parent_arrayed_collection__ZFSE.capacity__LVWE <<  1);
-      __tmp__T33F=Self__O23F->parent_arrayed_collection__ZFSE.storage__WVWE;
-      __tmp__U33F=Self__O23F->parent_arrayed_collection__ZFSE.capacity__LVWE;
-      new__15EG=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__T33F)),((__UINTEGER_32 )(__INTEGER)(__tmp__U33F * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__Q23F * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__PAFG=(__INTEGER)(new_capacity__Q23F -  1);
-      Self__UOHG=__tmp__U33F;
-      while ((Self__UOHG <= __tmp__PAFG)) {
-        new__15EG[Self__UOHG]=NULL;
-        Self__UOHG=(__INTEGER)(Self__UOHG +  1);
-      };
-      Self__O23F->parent_arrayed_collection__ZFSE.storage__WVWE=new__15EG;
-      Self__O23F->parent_arrayed_collection__ZFSE.capacity__LVWE=new_capacity__Q23F;
-      Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE=(__INTEGER)(Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE +  1);
-    };
-  };
-  ((void **)Self__O23F->parent_arrayed_collection__ZFSE.storage__WVWE)[Self__O23F->parent_arrayed_collection__ZFSE.upper__4TWE]=Self__UM2F;
+    __tmp__JH4F=FALSE__;
+  };
+  if ((! __tmp__JH4F)) {
+    if ((Self__ZG4F->parent_arrayed_collection__DKSE.capacity__D0WE ==  0)) {
+      Self__ZG4F->parent_arrayed_collection__DKSE.storage__O0WE=create__3RFF( 2);
+      Self__ZG4F->parent_arrayed_collection__DKSE.capacity__D0WE= 2;
+      Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE= 0;
+    } else {
+      new_capacity__1G4F=(__INTEGER)(Self__ZG4F->parent_arrayed_collection__DKSE.capacity__D0WE <<  1);
+      __tmp__4H4F=Self__ZG4F->parent_arrayed_collection__DKSE.storage__O0WE;
+      __tmp__5H4F=Self__ZG4F->parent_arrayed_collection__DKSE.capacity__D0WE;
+      new__NNFG=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__4H4F)),((__UINTEGER_32 )(__INTEGER)(__tmp__5H4F * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__1G4F * ((__INTEGER )(sizeof(void *)))))));
+      __tmp__BOFG=(__INTEGER)(new_capacity__1G4F -  1);
+      Self__CWHG=__tmp__5H4F;
+      while ((Self__CWHG <= __tmp__BOFG)) {
+        new__NNFG[Self__CWHG]=NULL;
+        Self__CWHG=(__INTEGER)(Self__CWHG +  1);
+      };
+      Self__ZG4F->parent_arrayed_collection__DKSE.storage__O0WE=new__NNFG;
+      Self__ZG4F->parent_arrayed_collection__DKSE.capacity__D0WE=new_capacity__1G4F;
+      Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE=(__INTEGER)(Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE +  1);
+    };
+  };
+  ((void **)Self__ZG4F->parent_arrayed_collection__DKSE.storage__O0WE)[Self__ZG4F->parent_arrayed_collection__DKSE.upper__BWWE]=Self__TW2F;
 }
 
-static void free__BNGG(__LIP_STRING *Self__CNGG)
+static void free__EVGG(__LIP_STRING *Self__FVGG)
 // ({LIP_STRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER new_capacity__QGHG,__tmp__UHHG,__tmp__C1KG,Self__BHMG;
-  __FAST_ARRAYoLIP_STRINGo *Self__OGHG;
-  __BOOLEAN __tmp__4GHG;
-  void **__tmp__THHG,**new__O0KG;
-  Self__OGHG=((__FAST_ARRAYoLIP_STRINGo *)storage__X2EF);
-  new_capacity__QGHG= 0;
-  if (((__INTEGER)(Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF +  1) <= (__INTEGER)(Self__OGHG->parent_arrayed_collection__W2EF.capacity__UYOF -  1))) {
-    Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF=(__INTEGER)(Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF +  1);
-    __tmp__4GHG=TRUE__;
+  __INTEGER new_capacity__4NHG,__tmp__CPHG,__tmp__SCLG,Self__PPMG;
+  __FAST_ARRAYoLIP_STRINGo *Self__2NHG;
+  __BOOLEAN __tmp__MOHG;
+  void **__tmp__BPHG,**new__4BLG;
+  Self__2NHG=((__FAST_ARRAYoLIP_STRINGo *)storage__1BFF);
+  new_capacity__4NHG= 0;
+  if (((__INTEGER)(Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF +  1) <= (__INTEGER)(Self__2NHG->parent_arrayed_collection__0BFF.capacity__S4OF -  1))) {
+    Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF=(__INTEGER)(Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF +  1);
+    __tmp__MOHG=TRUE__;
   } else {
-    __tmp__4GHG=FALSE__;
-  };
-  if ((! __tmp__4GHG)) {
-    if ((Self__OGHG->parent_arrayed_collection__W2EF.capacity__UYOF ==  0)) {
-      Self__OGHG->parent_arrayed_collection__W2EF.storage__5YOF=create__CFXF( 2);
-      Self__OGHG->parent_arrayed_collection__W2EF.capacity__UYOF= 2;
-      Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF= 0;
-    } else {
-      new_capacity__QGHG=(__INTEGER)(Self__OGHG->parent_arrayed_collection__W2EF.capacity__UYOF <<  1);
-      __tmp__THHG=Self__OGHG->parent_arrayed_collection__W2EF.storage__5YOF;
-      __tmp__UHHG=Self__OGHG->parent_arrayed_collection__W2EF.capacity__UYOF;
-      new__O0KG=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__THHG)),((__UINTEGER_32 )(__INTEGER)(__tmp__UHHG * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__QGHG * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__C1KG=(__INTEGER)(new_capacity__QGHG -  1);
-      Self__BHMG=__tmp__UHHG;
-      while ((Self__BHMG <= __tmp__C1KG)) {
-        new__O0KG[Self__BHMG]=NULL;
-        Self__BHMG=(__INTEGER)(Self__BHMG +  1);
-      };
-      Self__OGHG->parent_arrayed_collection__W2EF.storage__5YOF=new__O0KG;
-      Self__OGHG->parent_arrayed_collection__W2EF.capacity__UYOF=new_capacity__QGHG;
-      Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF=(__INTEGER)(Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF +  1);
-    };
-  };
-  ((void **)Self__OGHG->parent_arrayed_collection__W2EF.storage__5YOF)[Self__OGHG->parent_arrayed_collection__W2EF.upper__NSOF]=Self__CNGG;
+    __tmp__MOHG=FALSE__;
+  };
+  if ((! __tmp__MOHG)) {
+    if ((Self__2NHG->parent_arrayed_collection__0BFF.capacity__S4OF ==  0)) {
+      Self__2NHG->parent_arrayed_collection__0BFF.storage__34OF=create__SNXF( 2);
+      Self__2NHG->parent_arrayed_collection__0BFF.capacity__S4OF= 2;
+      Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF= 0;
+    } else {
+      new_capacity__4NHG=(__INTEGER)(Self__2NHG->parent_arrayed_collection__0BFF.capacity__S4OF <<  1);
+      __tmp__BPHG=Self__2NHG->parent_arrayed_collection__0BFF.storage__34OF;
+      __tmp__CPHG=Self__2NHG->parent_arrayed_collection__0BFF.capacity__S4OF;
+      new__4BLG=((void **)realloc_dynamic__old_size__new_size__RELC(((__POINTER )((void **)__tmp__BPHG)),((__UINTEGER_32 )(__INTEGER)(__tmp__CPHG * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__4NHG * ((__INTEGER )(sizeof(void *)))))));
+      __tmp__SCLG=(__INTEGER)(new_capacity__4NHG -  1);
+      Self__PPMG=__tmp__CPHG;
+      while ((Self__PPMG <= __tmp__SCLG)) {
+        new__4BLG[Self__PPMG]=NULL;
+        Self__PPMG=(__INTEGER)(Self__PPMG +  1);
+      };
+      Self__2NHG->parent_arrayed_collection__0BFF.storage__34OF=new__4BLG;
+      Self__2NHG->parent_arrayed_collection__0BFF.capacity__S4OF=new_capacity__4NHG;
+      Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF=(__INTEGER)(Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF +  1);
+    };
+  };
+  ((void **)Self__2NHG->parent_arrayed_collection__0BFF.storage__34OF)[Self__2NHG->parent_arrayed_collection__0BFF.upper__4XOF]=Self__FVGG;
 }
 
-static void load_directory__is_recursive__Q0VF(__LIP_CALL *Self__R0VF,void *path__S0VF,__BOOLEAN is_rec__T0VF)
+static void load_directory__is_recursive__5BWF(__LIP_CALL *Self__ACWF,void *path__BCWF,__BOOLEAN is_rec__CCWF)
 // ({LIP_CALL},{NULLxSTRING_CONSTANT},{TRUExFALSE}) VoidRecursive, No inlinable.
 {
-  void *dir__V0VF,*__tmp__O1VF;
-  void *entry__U0VF;
-  __FILE_UNIX *Self__QBAH;
-  __INTEGER __tmp__S1VF,Self__5HMG,i1__IKIH,i2__JKIH;
-  void *__tmp__Z1VF,*__tmp__C2VF,*__tmp__Z2VF;
-  __STRING_CONSTANT *Self__KKIH;
-  __POSITION __tmp__H3VF;
-  __BOOLEAN __tmp__20VF,__tmp__G1VF,__tmp__D1VF,__tmp__H1VF;
-  __BOOLEAN result__HKIH,__tmp__F2VF,__tmp__P2VF,__tmp__S2VF;
-  dir__V0VF=NULL;
+  void *dir__ECWF,*__tmp__3CWF;
+  void *entry__DCWF;
+  __FILE_UNIX *Self__OKAH;
+  __INTEGER __tmp__BDWF,Self__UQMG,i1__BSIH,i2__CSIH;
+  void *__tmp__IDWF,*__tmp__RDWF,*__tmp__IEWF;
+  __STRING_CONSTANT *Self__DSIH;
+  __POSITION __tmp__WEWF;
+  __BOOLEAN __tmp__LCWF,__tmp__VCWF,__tmp__SCWF,__tmp__WCWF;
+  __BOOLEAN result__ASIH,__tmp__UDWF,__tmp__4DWF,__tmp__BEWF;
+  dir__ECWF=NULL;
   if (FILE_SYSTEM__->parent_directory__PFD==0) {
   } else {
     parent_directory__OED();
   };
-  entry__U0VF=get_entry__T0AC(path__S0VF);
-  if (((void *)entry__U0VF != (void *)NULL)) {
-    if (((struct ___OBJ *)entry__U0VF)->__id==__DIRECTORY_UNIX__) {
-      __tmp__20VF=((void *)((__DIRECTORY_UNIX *)entry__U0VF) != (void *)NULL);
+  entry__DCWF=get_entry__T0AC(path__BCWF);
+  if (((void *)entry__DCWF != (void *)NULL)) {
+    if (((struct ___OBJ *)entry__DCWF)->__id==__DIRECTORY_UNIX__) {
+      __tmp__LCWF=((void *)((__DIRECTORY_UNIX *)entry__DCWF) != (void *)NULL);
     } else {
-      __tmp__20VF=FALSE__;
+      __tmp__LCWF=FALSE__;
     };
-    __tmp__G1VF=__tmp__20VF;
+    __tmp__VCWF=__tmp__LCWF;
   } else {
-    __tmp__G1VF=FALSE__;
+    __tmp__VCWF=FALSE__;
   };
-  if (__tmp__G1VF) {
-    if (((struct ___OBJ *)entry__U0VF)->__id==__DIRECTORY_UNIX__) {
-      __tmp__D1VF=open__ZERD(entry__U0VF);
+  if (__tmp__VCWF) {
+    if (((struct ___OBJ *)entry__DCWF)->__id==__DIRECTORY_UNIX__) {
+      __tmp__SCWF=open__ZERD(entry__DCWF);
     } else {
-      Self__QBAH=((__FILE_UNIX *)entry__U0VF);
-      Self__QBAH->stream__EJRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__QBAH->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO),"r+b")));
-      __tmp__D1VF=(Self__QBAH->stream__EJRD != (void *)NULL);
+      Self__OKAH=((__FILE_UNIX *)entry__DCWF);
+      Self__OKAH->stream__EJRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__OKAH->parent_entry_unix__2CF.parent_entry__YED.path__BD)->storage__VQO),"r+b")));
+      __tmp__SCWF=(Self__OKAH->stream__EJRD != (void *)NULL);
     };
-    __tmp__H1VF=__tmp__D1VF;
+    __tmp__WCWF=__tmp__SCWF;
   } else {
-    __tmp__H1VF=FALSE__;
+    __tmp__WCWF=FALSE__;
   };
-  if (__tmp__H1VF) {
-    if (entry__U0VF==NULL) {
-      __tmp__O1VF=NULL;
+  if (__tmp__WCWF) {
+    if (entry__DCWF==NULL) {
+      __tmp__3CWF=NULL;
     } else {
-      switch (((struct ___OBJ *)entry__U0VF)->__id) {
+      switch (((struct ___OBJ *)entry__DCWF)->__id) {
       case __DIRECTORY_UNIX__: {
-        __tmp__O1VF=((void *)entry__U0VF);
+        __tmp__3CWF=((void *)entry__DCWF);
       } break;
       case __FILE_UNIX__: {
-        __tmp__O1VF=NULL;
+        __tmp__3CWF=NULL;
       } break;
       }
     };
-    dir__V0VF=__tmp__O1VF;
-    __tmp__S1VF=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__O1VF)->parent_directory__0ED.list__IFRD)->parent_linked_collection__HFRD.upper__TI3D;
-    Self__5HMG= 1;
-    while ((Self__5HMG <= __tmp__S1VF)) {
-      entry__U0VF=item__DVPE(dir__V0VF,Self__5HMG);
-      if (((struct ___OBJ *)entry__U0VF)->__id==__DIRECTORY_UNIX__) {
-        __tmp__Z1VF=((__DIRECTORY_UNIX *)entry__U0VF)->parent_entry_unix__ZED.parent_entry__YED.name__VNT;
+    dir__ECWF=__tmp__3CWF;
+    __tmp__BDWF=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__3CWF)->parent_directory__0ED.list__IFRD)->parent_linked_collection__HFRD.upper__VM3D;
+    Self__UQMG= 1;
+    while ((Self__UQMG <= __tmp__BDWF)) {
+      entry__DCWF=item__FZPE(dir__ECWF,Self__UQMG);
+      if (((struct ___OBJ *)entry__DCWF)->__id==__DIRECTORY_UNIX__) {
+        __tmp__IDWF=((__DIRECTORY_UNIX *)entry__DCWF)->parent_entry_unix__ZED.parent_entry__YED.name__VNT;
       } else {
-        __tmp__Z1VF=((__FILE_UNIX *)entry__U0VF)->parent_entry_unix__2CF.parent_entry__YED.name__VNT;
+        __tmp__IDWF=((__FILE_UNIX *)entry__DCWF)->parent_entry_unix__2CF.parent_entry__YED.name__VNT;
       };
-      Self__KKIH=((__STRING_CONSTANT *)__tmp__Z1VF);
-      result__HKIH=FALSE__;
-      i1__IKIH= 0;
-      i2__JKIH= 0;
-      if ((((__STRING_CONSTANT *)(&__string_155))->count__DD <= Self__KKIH->count__DD)) {
-        i1__IKIH=(__INTEGER)((__INTEGER)(Self__KKIH->count__DD - ((__STRING_CONSTANT *)(&__string_155))->count__DD) +  1);
-        i2__JKIH= 1;
-        while ((! (((i1__IKIH > Self__KKIH->count__DD) || (i2__JKIH > ((__STRING_CONSTANT *)(&__string_155))->count__DD)) || (((__CHARACTER *)Self__KKIH->storage__VQO)[(__INTEGER)(i1__IKIH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_155))->storage__VQO)[(__INTEGER)(i2__JKIH -  1)])))) {
-          i1__IKIH=(__INTEGER)(i1__IKIH +  1);
-          i2__JKIH=(__INTEGER)(i2__JKIH +  1);
+      Self__DSIH=((__STRING_CONSTANT *)__tmp__IDWF);
+      result__ASIH=FALSE__;
+      i1__BSIH= 0;
+      i2__CSIH= 0;
+      if ((((__STRING_CONSTANT *)(&__string_155))->count__DD <= Self__DSIH->count__DD)) {
+        i1__BSIH=(__INTEGER)((__INTEGER)(Self__DSIH->count__DD - ((__STRING_CONSTANT *)(&__string_155))->count__DD) +  1);
+        i2__CSIH= 1;
+        while ((! (((i1__BSIH > Self__DSIH->count__DD) || (i2__CSIH > ((__STRING_CONSTANT *)(&__string_155))->count__DD)) || (((__CHARACTER *)Self__DSIH->storage__VQO)[(__INTEGER)(i1__BSIH -  1)] != ((__CHARACTER *)((__STRING_CONSTANT *)(&__string_155))->storage__VQO)[(__INTEGER)(i2__CSIH -  1)])))) {
+          i1__BSIH=(__INTEGER)(i1__BSIH +  1);
+          i2__CSIH=(__INTEGER)(i2__CSIH +  1);
         };
-        result__HKIH=(i1__IKIH > Self__KKIH->count__DD);
+        result__ASIH=(i1__BSIH > Self__DSIH->count__DD);
       };
-      if (result__HKIH) {
-        if (((struct ___OBJ *)entry__U0VF)->__id==__DIRECTORY_UNIX__) {
-          __tmp__C2VF=((__DIRECTORY_UNIX *)entry__U0VF)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
+      if (result__ASIH) {
+        if (((struct ___OBJ *)entry__DCWF)->__id==__DIRECTORY_UNIX__) {
+          __tmp__RDWF=((__DIRECTORY_UNIX *)entry__DCWF)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
         } else {
-          __tmp__C2VF=((__FILE_UNIX *)entry__U0VF)->parent_entry_unix__2CF.parent_entry__YED.path__BD;
+          __tmp__RDWF=((__FILE_UNIX *)entry__DCWF)->parent_entry_unix__2CF.parent_entry__YED.path__BD;
         };
-        add_last__RBPD(path_file__A2VF,__tmp__C2VF);
-        __tmp__F2VF=TRUE__;
+        add_last__RBPD(path_file__PDWF,__tmp__RDWF);
+        __tmp__UDWF=TRUE__;
       } else {
-        __tmp__F2VF=FALSE__;
+        __tmp__UDWF=FALSE__;
       };
-      if ((! __tmp__F2VF)) {
-        if (is_rec__T0VF) {
-          if (((struct ___OBJ *)entry__U0VF)->__id==__DIRECTORY_UNIX__) {
-            __tmp__P2VF=((void *)((__DIRECTORY_UNIX *)entry__U0VF) != (void *)NULL);
+      if ((! __tmp__UDWF)) {
+        if (is_rec__CCWF) {
+          if (((struct ___OBJ *)entry__DCWF)->__id==__DIRECTORY_UNIX__) {
+            __tmp__4DWF=((void *)((__DIRECTORY_UNIX *)entry__DCWF) != (void *)NULL);
           } else {
-            __tmp__P2VF=FALSE__;
+            __tmp__4DWF=FALSE__;
           };
-          __tmp__S2VF=__tmp__P2VF;
+          __tmp__BEWF=__tmp__4DWF;
         } else {
-          __tmp__S2VF=FALSE__;
+          __tmp__BEWF=FALSE__;
         };
-        if (__tmp__S2VF) {
-          if (((struct ___OBJ *)entry__U0VF)->__id==__DIRECTORY_UNIX__) {
-            __tmp__Z2VF=((__DIRECTORY_UNIX *)entry__U0VF)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
+        if (__tmp__BEWF) {
+          if (((struct ___OBJ *)entry__DCWF)->__id==__DIRECTORY_UNIX__) {
+            __tmp__IEWF=((__DIRECTORY_UNIX *)entry__DCWF)->parent_entry_unix__ZED.parent_entry__YED.path__BD;
           } else {
-            __tmp__Z2VF=((__FILE_UNIX *)entry__U0VF)->parent_entry_unix__2CF.parent_entry__YED.path__BD;
+            __tmp__IEWF=((__FILE_UNIX *)entry__DCWF)->parent_entry_unix__2CF.parent_entry__YED.path__BD;
           };
-          load_directory__is_recursive__Q0VF(Self__R0VF,__tmp__Z2VF,TRUE__);
+          load_directory__is_recursive__5BWF(Self__ACWF,__tmp__IEWF,TRUE__);
         };
       };
-      Self__5HMG=(__INTEGER)(Self__5HMG +  1);
+      Self__UQMG=(__INTEGER)(Self__UQMG +  1);
     };
   } else {
-    copy__ZCS(string_tmp__VH,(&__string_328));
-    append__BOS(string_tmp__VH,path__S0VF);
-    append__BOS(string_tmp__VH,(&__string_289));
-    __tmp__H3VF=Self__R0VF->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
+    copy__ZCS(string_tmp__VH,(&__string_331));
+    append__BOS(string_tmp__VH,path__BCWF);
+    append__BOS(string_tmp__VH,(&__string_292));
+    __tmp__WEWF=Self__ACWF->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ;
     put_error__text__KNG( 2,string_tmp__VH);
-    put_position__UOG(__tmp__H3VF);
+    put_position__UOG(__tmp__WEWF);
     put_string__U1F(msg_err__PNG);
     if ((type_error__ONG !=  2)) {
       exit(( 1));
@@ -34850,169 +35038,107 @@ static void load_directory__is_recursive__Q0VF(__LIP_CALL *Self__R0VF,void *path
   };
 }
 
-static void append_in__LUGG(__LIP_STRING *Self__MUGG,void *str__NUGG)
+static void append_in__C2GG(__LIP_STRING *Self__D2GG,void *str__E2GG)
 // ({LIP_STRING},{NULLxSTRING}) VoidNo recursive, No inlinable.
 {
-  __INTEGER i__OUGG;
-  __CHARACTER car__PUGG;
-  car__PUGG='\0';
-  i__OUGG= 1;
-  while ((i__OUGG <= ((__STRING_CONSTANT *)Self__MUGG->value__52TE)->count__DD)) {
-    car__PUGG=((__CHARACTER *)((__STRING_CONSTANT *)Self__MUGG->value__52TE)->storage__VQO)[(__INTEGER)(i__OUGG -  1)];
-    if ((car__PUGG == '\\')) {
-      i__OUGG=(__INTEGER)(i__OUGG +  1);
-      if ((i__OUGG <= ((__STRING_CONSTANT *)Self__MUGG->value__52TE)->count__DD)) {
-        car__PUGG=((__CHARACTER *)((__STRING_CONSTANT *)Self__MUGG->value__52TE)->storage__VQO)[(__INTEGER)(i__OUGG -  1)];
-        if ((car__PUGG == 'a')) {
-          add_last__ZLT(str__NUGG,'\a');
+  __INTEGER i__F2GG;
+  __CHARACTER car__G2GG;
+  car__G2GG='\0';
+  i__F2GG= 1;
+  while ((i__F2GG <= ((__STRING_CONSTANT *)Self__D2GG->value__TBUE)->count__DD)) {
+    car__G2GG=((__CHARACTER *)((__STRING_CONSTANT *)Self__D2GG->value__TBUE)->storage__VQO)[(__INTEGER)(i__F2GG -  1)];
+    if ((car__G2GG == '\\')) {
+      i__F2GG=(__INTEGER)(i__F2GG +  1);
+      if ((i__F2GG <= ((__STRING_CONSTANT *)Self__D2GG->value__TBUE)->count__DD)) {
+        car__G2GG=((__CHARACTER *)((__STRING_CONSTANT *)Self__D2GG->value__TBUE)->storage__VQO)[(__INTEGER)(i__F2GG -  1)];
+        if ((car__G2GG == 'a')) {
+          add_last__ZLT(str__E2GG,'\a');
         };
-        if ((car__PUGG == 'b')) {
-          add_last__ZLT(str__NUGG,'\b');
+        if ((car__G2GG == 'b')) {
+          add_last__ZLT(str__E2GG,'\b');
         };
-        if ((car__PUGG == 'f')) {
-          add_last__ZLT(str__NUGG,'\f');
+        if ((car__G2GG == 'f')) {
+          add_last__ZLT(str__E2GG,'\f');
         };
-        if ((car__PUGG == 'n')) {
-          add_last__ZLT(str__NUGG,'\n');
+        if ((car__G2GG == 'n')) {
+          add_last__ZLT(str__E2GG,'\n');
         };
-        if ((car__PUGG == 'r')) {
-          add_last__ZLT(str__NUGG,'\r');
+        if ((car__G2GG == 'r')) {
+          add_last__ZLT(str__E2GG,'\r');
         };
-        if ((car__PUGG == 't')) {
-          add_last__ZLT(str__NUGG,'\t');
+        if ((car__G2GG == 't')) {
+          add_last__ZLT(str__E2GG,'\t');
         };
-        if ((car__PUGG == 'v')) {
-          add_last__ZLT(str__NUGG,'\v');
+        if ((car__G2GG == 'v')) {
+          add_last__ZLT(str__E2GG,'\v');
         };
-        if ((car__PUGG == '\\')) {
-          add_last__ZLT(str__NUGG,'\\');
+        if ((car__G2GG == '\\')) {
+          add_last__ZLT(str__E2GG,'\\');
         };
-        if ((car__PUGG == '?')) {
-          add_last__ZLT(str__NUGG,'\?');
+        if ((car__G2GG == '?')) {
+          add_last__ZLT(str__E2GG,'\?');
         };
-        if ((car__PUGG == '\'')) {
-          add_last__ZLT(str__NUGG,'\'');
+        if ((car__G2GG == '\'')) {
+          add_last__ZLT(str__E2GG,'\'');
         };
-        if ((car__PUGG == '\"')) {
-          add_last__ZLT(str__NUGG,'\"');
+        if ((car__G2GG == '\"')) {
+          add_last__ZLT(str__E2GG,'\"');
         };
       } else {
-        add_last__ZLT(str__NUGG,car__PUGG);
+        add_last__ZLT(str__E2GG,car__G2GG);
       };
     } else {
-      add_last__ZLT(str__NUGG,car__PUGG);
+      add_last__ZLT(str__E2GG,car__G2GG);
     };
-    i__OUGG=(__INTEGER)(i__OUGG +  1);
+    i__F2GG=(__INTEGER)(i__F2GG +  1);
   };
 }
 
-static void print_positif__JXJG(__INTEGER Self__KXJG)
+static void print_positif__Z4JG(__INTEGER Self__04JG)
 // ({INTEGER}) VoidRecursive, No inlinable.
 {
-  __INTEGER val__TXJG;
-  __CHARACTER char__SXJG;
-  char__SXJG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__KXJG %  10)) + ((__INTEGER_8 )'0')))));
-  val__TXJG=(__INTEGER)(Self__KXJG /  10);
-  if ((val__TXJG !=  0)) {
-    print_positif__JXJG(val__TXJG);
-  };
-  fputc((int)(char__SXJG),stdout);
+  __INTEGER val__D5JG;
+  __CHARACTER char__C5JG;
+  char__C5JG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__04JG %  10)) + ((__INTEGER_8 )'0')))));
+  val__D5JG=(__INTEGER)(Self__04JG /  10);
+  if ((val__D5JG !=  0)) {
+    print_positif__Z4JG(val__D5JG);
+  };
+  fputc((int)(char__C5JG),stdout);
 }
 
 static __BOOLEAN has__TLMB(__HASHED_SEToSTRING_CONSTANTo *Self__ULMB,void *e__VLMB)
 // ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
 {
-  __STRING_CONSTANT *Self__4KGH;
-  __INTEGER result__3KGH,__tmp__5KGH,Self__ALGH;
+  __STRING_CONSTANT *Self__LTGH;
+  __INTEGER result__KTGH,__tmp__MTGH,Self__NTGH;
   void *node__4LMB;
-  Self__4KGH=((__STRING_CONSTANT *)e__VLMB);
-  result__3KGH= 0;
-  __tmp__5KGH=Self__4KGH->count__DD;
-  Self__ALGH= 1;
-  while ((Self__ALGH <= __tmp__5KGH)) {
-    result__3KGH=(__INTEGER)((__INTEGER)( 5 * result__3KGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__4KGH->storage__VQO)[(__INTEGER)(Self__ALGH -  1)])));
-    Self__ALGH=(__INTEGER)(Self__ALGH +  1);
-  };
-  if ((result__3KGH <  0)) {
-    result__3KGH=(__INTEGER)(~ result__3KGH);
-  };
-  node__4LMB=((void **)Self__ULMB->buckets__PEV)[(__INTEGER)(result__3KGH % Self__ULMB->capacity__KIT)];
+  Self__LTGH=((__STRING_CONSTANT *)e__VLMB);
+  result__KTGH= 0;
+  __tmp__MTGH=Self__LTGH->count__DD;
+  Self__NTGH= 1;
+  while ((Self__NTGH <= __tmp__MTGH)) {
+    result__KTGH=(__INTEGER)((__INTEGER)( 5 * result__KTGH) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)Self__LTGH->storage__VQO)[(__INTEGER)(Self__NTGH -  1)])));
+    Self__NTGH=(__INTEGER)(Self__NTGH +  1);
+  };
+  if ((result__KTGH <  0)) {
+    result__KTGH=(__INTEGER)(~ result__KTGH);
+  };
+  node__4LMB=((void **)Self__ULMB->buckets__PEV)[(__INTEGER)(result__KTGH % Self__ULMB->capacity__KIT)];
   while ((! (((void *)node__4LMB == (void *)NULL) || __infix_equal_equal__45DB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__4LMB)->item__1EV,e__VLMB)))) {
     node__4LMB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__4LMB)->next__GFV;
   };
   return(((void *)node__4LMB != (void *)NULL));
 }
 
-static void display_raw__TLIC(__ITM_TYPE_MULTI *Self__ULIC,void *buffer__VLIC)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  __INTEGER __tmp__2LIC,Self__XKRC;
-  void *__tmp__DMIC,*__tmp__GMIC;
-  __ITM_TYPE_STYLE *Self__L3CH,*Self__X3CH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__N3CH;
-  __tmp__2LIC=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__ULIC->list_type__AKP)->parent_arrayed_collection__ZXC.upper__KIV -  1);
-  Self__XKRC= 0;
-  while ((Self__XKRC <= __tmp__2LIC)) {
-    __tmp__DMIC=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__ULIC->list_type__AKP)->parent_arrayed_collection__ZXC.storage__RMV)[Self__XKRC];
-    switch (((struct ___OBJ *)__tmp__DMIC)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__BOS(buffer__VLIC,((__ITM_TYPE_PARAMETER *)__tmp__DMIC)->parent_itm_type__3DE.name__KYP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__BOS(buffer__VLIC,((__ITM_TYPE_SIMPLE *)__tmp__DMIC)->name__KYP);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__OGPD(__tmp__DMIC,buffer__VLIC);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__SHPD(__tmp__DMIC,buffer__VLIC);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__L3CH=((__ITM_TYPE_STYLE *)__tmp__DMIC);
-      if (((void *)Self__L3CH->style__TYP != (void *)NULL)) {
-        append__BOS(buffer__VLIC,Self__L3CH->style__TYP);
-        add_last__ZLT(buffer__VLIC,' ');
-      };
-      append__BOS(buffer__VLIC,Self__L3CH->parent_itm_type_simple__BSN.name__KYP);
-    } break;
-    };
-    add_last__ZLT(buffer__VLIC,',');
-    Self__XKRC=(__INTEGER)(Self__XKRC +  1);
-  };
-  Self__N3CH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__ULIC->list_type__AKP);
-  __tmp__GMIC=((void **)Self__N3CH->parent_arrayed_collection__ZXC.storage__RMV)[Self__N3CH->parent_arrayed_collection__ZXC.upper__KIV];
-  switch (((struct ___OBJ *)__tmp__GMIC)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    append__BOS(buffer__VLIC,((__ITM_TYPE_PARAMETER *)__tmp__GMIC)->parent_itm_type__3DE.name__KYP);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    append__BOS(buffer__VLIC,((__ITM_TYPE_SIMPLE *)__tmp__GMIC)->name__KYP);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    append_in__OGPD(__tmp__GMIC,buffer__VLIC);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    append_in__SHPD(__tmp__GMIC,buffer__VLIC);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__X3CH=((__ITM_TYPE_STYLE *)__tmp__GMIC);
-    if (((void *)Self__X3CH->style__TYP != (void *)NULL)) {
-      append__BOS(buffer__VLIC,Self__X3CH->style__TYP);
-      add_last__ZLT(buffer__VLIC,' ');
-    };
-    append__BOS(buffer__VLIC,Self__X3CH->parent_itm_type_simple__BSN.name__KYP);
-  } break;
-  };
-}
-
 static __FAST_ARRAYoITM_LOCALo* create_with_capacity__QJK(__INTEGER new_count__SJK)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __POINTER ptr__Y3K,ptr_table__NKIH,next__MKIH,result__OKIH;
-  __POINTER ptr_table__SKIH,next__RKIH,result__TKIH;
+  __POINTER ptr__Y3K,ptr_table__GSIH,next__FSIH,result__HSIH;
+  __POINTER ptr_table__LSIH,next__KSIH,result__MSIH;
   __INTEGER typ_id__33K;
-  __UINTEGER_32 sz__03K,a__UCFH,new_size__VCFH,t__ZCFH,a__YCFH;
-  __UINTEGER_32 new_size__VKIH,lab_type__UKIH;
+  __UINTEGER_32 sz__03K,a__1KFH,new_size__2KFH,t__ALFH,a__5KFH;
+  __UINTEGER_32 new_size__OSIH,lab_type__NSIH;
   __FAST_ARRAYoITM_LOCALo *result__X3K,*Self__ZMU;
   result__X3K=NULL;
   ptr__Y3K=((__POINTER )(NULL));
@@ -35024,61 +35150,61 @@ static __FAST_ARRAYoITM_LOCALo* create_with_capacity__QJK(__INTEGER new_count__S
     typ_id__33K=__FAST_ARRAYoITM_LOCALo__;
     clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__03K);
     if ((typ_id__33K == (__INTEGER)(-  1))) {
-      a__UCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__VCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__03K + a__UCFH) & (__UINTEGER_32)(~ a__UCFH));
-      ptr_table__NKIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__MKIH=((__POINTER )(NULL));
-      result__OKIH=((__POINTER *)ptr_table__NKIH)[ 0];
-      if ((result__OKIH == (void *)NULL)) {
-        result__OKIH=new_lab__MRJ(new_size__VCFH);
-        next__MKIH=(void *)((unsigned long)result__OKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VCFH)));
-        ((__POINTER *)next__MKIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NKIH)[ 0]=next__MKIH;
+      a__1KFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__2KFH=(__UINTEGER_32)((__UINTEGER_32)(sz__03K + a__1KFH) & (__UINTEGER_32)(~ a__1KFH));
+      ptr_table__GSIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2KFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+      next__FSIH=((__POINTER )(NULL));
+      result__HSIH=((__POINTER *)ptr_table__GSIH)[ 0];
+      if ((result__HSIH == (void *)NULL)) {
+        result__HSIH=new_lab__MRJ(new_size__2KFH);
+        next__FSIH=(void *)((unsigned long)result__HSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KFH)));
+        ((__POINTER *)next__FSIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__GSIH)[ 0]=next__FSIH;
       } else {
-        next__MKIH=((__POINTER *)result__OKIH)[ 0];
-        if ((next__MKIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VCFH <<  1)) <=  4096)) {
-            next__MKIH=(void *)((unsigned long)result__OKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VCFH)));
+        next__FSIH=((__POINTER *)result__HSIH)[ 0];
+        if ((next__FSIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2KFH <<  1)) <=  4096)) {
+            next__FSIH=(void *)((unsigned long)result__HSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KFH)));
           } else {
-            next__MKIH=new_lab__MRJ(new_size__VCFH);
+            next__FSIH=new_lab__MRJ(new_size__2KFH);
           };
-          ((__POINTER *)next__MKIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NKIH)[ 0]=next__MKIH;
+          ((__POINTER *)next__FSIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__GSIH)[ 0]=next__FSIH;
         } else {
-          ((__POINTER *)result__OKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__OKIH=next__MKIH;
+          ((__POINTER *)result__HSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__HSIH=next__FSIH;
         };
       };
-      ptr__Y3K=result__OKIH;
+      ptr__Y3K=result__HSIH;
     } else {
-      t__ZCFH=((__UINTEGER_32 )typ_id__33K);
-      a__YCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__VKIH=(__UINTEGER_32)((__UINTEGER_32)(sz__03K + a__YCFH) & (__UINTEGER_32)(~ a__YCFH));
-      ptr_table__SKIH=((__POINTER )(&(table_type[(t__ZCFH)])));
-      lab_type__UKIH=(__UINTEGER_32)(t__ZCFH |  1);
-      next__RKIH=((__POINTER )(NULL));
-      result__TKIH=((__POINTER *)ptr_table__SKIH)[ 0];
-      if ((result__TKIH == (void *)NULL)) {
-        result__TKIH=new_lab__MRJ(lab_type__UKIH);
-        next__RKIH=(void *)((unsigned long)result__TKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VKIH)));
-        ((__POINTER *)next__RKIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SKIH)[ 0]=next__RKIH;
+      t__ALFH=((__UINTEGER_32 )typ_id__33K);
+      a__5KFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+      new_size__OSIH=(__UINTEGER_32)((__UINTEGER_32)(sz__03K + a__5KFH) & (__UINTEGER_32)(~ a__5KFH));
+      ptr_table__LSIH=((__POINTER )(&(table_type[(t__ALFH)])));
+      lab_type__NSIH=(__UINTEGER_32)(t__ALFH |  1);
+      next__KSIH=((__POINTER )(NULL));
+      result__MSIH=((__POINTER *)ptr_table__LSIH)[ 0];
+      if ((result__MSIH == (void *)NULL)) {
+        result__MSIH=new_lab__MRJ(lab_type__NSIH);
+        next__KSIH=(void *)((unsigned long)result__MSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OSIH)));
+        ((__POINTER *)next__KSIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__LSIH)[ 0]=next__KSIH;
       } else {
-        next__RKIH=((__POINTER *)result__TKIH)[ 0];
-        if ((next__RKIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VKIH <<  1)) <=  4096)) {
-            next__RKIH=(void *)((unsigned long)result__TKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VKIH)));
+        next__KSIH=((__POINTER *)result__MSIH)[ 0];
+        if ((next__KSIH == (void *)NULL)) {
+          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OSIH <<  1)) <=  4096)) {
+            next__KSIH=(void *)((unsigned long)result__MSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OSIH)));
           } else {
-            next__RKIH=new_lab__MRJ(lab_type__UKIH);
+            next__KSIH=new_lab__MRJ(lab_type__NSIH);
           };
-          ((__POINTER *)next__RKIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__SKIH)[ 0]=next__RKIH;
+          ((__POINTER *)next__KSIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__LSIH)[ 0]=next__KSIH;
         } else {
-          ((__POINTER *)result__TKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__TKIH=next__RKIH;
+          ((__POINTER *)result__MSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+          result__MSIH=next__KSIH;
         };
       };
-      ptr__Y3K=result__TKIH;
+      ptr__Y3K=result__MSIH;
     };
     result__X3K=((__FAST_ARRAYoITM_LOCALo *)ptr__Y3K);
     *(result__X3K) = *(FAST_ARRAYoITM_LOCALo__);
@@ -35203,57 +35329,57 @@ static void* copy__53J(void *tmp__B4J)
 static void** create__HTQB(__INTEGER nb_elements__JTQB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__I4CH,a__N4CH,new_size__J4CH,new_size2__K4CH,a__X5EH;
-  __UINTEGER_32 new_size__Y5EH;
-  __POINTER result__H4CH,ptr_table__XKIH,next__WKIH,result__YKIH;
-  void *result__1KIH;
+  __UINTEGER_32 sz__MHDH,a__RHDH,new_size__NHDH,new_size2__OHDH,a__4HFH;
+  __UINTEGER_32 new_size__5HFH;
+  __POINTER result__LHDH,ptr_table__QSIH,next__PSIH,result__RSIH;
+  void *result__USIH;
   __INTEGER Self__01MC;
   void **Result__MOTB;
-  sz__I4CH=((__UINTEGER_32 )(__INTEGER)(nb_elements__JTQB * ((__INTEGER )(sizeof(void *)))));
-  result__H4CH=((__POINTER )(NULL));
-  a__N4CH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__J4CH=(__UINTEGER_32)((__UINTEGER_32)(sz__I4CH + a__N4CH) & (__UINTEGER_32)(~ a__N4CH));
-  new_size2__K4CH=(__UINTEGER_32)(new_size__J4CH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__K4CH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__X5EH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__Y5EH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__K4CH + a__X5EH) & (__UINTEGER_32)(~ a__X5EH));
-    ptr_table__XKIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Y5EH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__WKIH=((__POINTER )(NULL));
-    result__YKIH=((__POINTER *)ptr_table__XKIH)[ 0];
-    if ((result__YKIH == (void *)NULL)) {
-      result__YKIH=new_lab__MRJ(new_size__Y5EH);
-      next__WKIH=(void *)((unsigned long)result__YKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y5EH)));
-      ((__POINTER *)next__WKIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__XKIH)[ 0]=next__WKIH;
-    } else {
-      next__WKIH=((__POINTER *)result__YKIH)[ 0];
-      if ((next__WKIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YKIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__Y5EH <<  1)) <=  4096)) {
-          next__WKIH=(void *)((unsigned long)result__YKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y5EH)));
-        } else {
-          next__WKIH=new_lab__MRJ(new_size__Y5EH);
-        };
-        ((__POINTER *)next__WKIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__XKIH)[ 0]=next__WKIH;
-      } else {
-        ((__POINTER *)result__YKIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WKIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__YKIH=next__WKIH;
-      };
-    };
-    ((__POINTER *)result__YKIH)[ 0]=((__POINTER ) 3);
-    result__H4CH=(void *)((unsigned long)result__YKIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__MHDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__JTQB * ((__INTEGER )(sizeof(void *)))));
+  result__LHDH=((__POINTER )(NULL));
+  a__RHDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__NHDH=(__UINTEGER_32)((__UINTEGER_32)(sz__MHDH + a__RHDH) & (__UINTEGER_32)(~ a__RHDH));
+  new_size2__OHDH=(__UINTEGER_32)(new_size__NHDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__OHDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__4HFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__5HFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OHDH + a__4HFH) & (__UINTEGER_32)(~ a__4HFH));
+    ptr_table__QSIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5HFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__PSIH=((__POINTER )(NULL));
+    result__RSIH=((__POINTER *)ptr_table__QSIH)[ 0];
+    if ((result__RSIH == (void *)NULL)) {
+      result__RSIH=new_lab__MRJ(new_size__5HFH);
+      next__PSIH=(void *)((unsigned long)result__RSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5HFH)));
+      ((__POINTER *)next__PSIH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__QSIH)[ 0]=next__PSIH;
+    } else {
+      next__PSIH=((__POINTER *)result__RSIH)[ 0];
+      if ((next__PSIH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__5HFH <<  1)) <=  4096)) {
+          next__PSIH=(void *)((unsigned long)result__RSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5HFH)));
+        } else {
+          next__PSIH=new_lab__MRJ(new_size__5HFH);
+        };
+        ((__POINTER *)next__PSIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__QSIH)[ 0]=next__PSIH;
+      } else {
+        ((__POINTER *)result__RSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__RSIH=next__PSIH;
+      };
+    };
+    ((__POINTER *)result__RSIH)[ 0]=((__POINTER ) 3);
+    result__LHDH=(void *)((unsigned long)result__RSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__1KIH=first_free__XDVB;
-    while ((((void *)result__1KIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__1KIH)->map_size_and_id__ITB &  4294967292LU) < new_size__J4CH))) {
-      result__1KIH=((__MEMORY *)result__1KIH)->map_next_free__JTB;
+    result__USIH=first_free__XDVB;
+    while ((((void *)result__USIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__USIH)->map_size_and_id__ITB &  4294967292LU) < new_size__NHDH))) {
+      result__USIH=((__MEMORY *)result__USIH)->map_next_free__JTB;
     };
-    if (((void *)result__1KIH == (void *)NULL)) {
-      result__1KIH=new_page__OA5();
+    if (((void *)result__USIH == (void *)NULL)) {
+      result__USIH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__1KIH,new_size__J4CH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__1KIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__H4CH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__1KIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__USIH,new_size__NHDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__USIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__LHDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__USIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__MOTB=((void **)result__H4CH);
+  Result__MOTB=((void **)result__LHDH);
   Self__01MC=(__INTEGER)(nb_elements__JTQB -  1);
   while ((Self__01MC >=  0)) {
     Result__MOTB[Self__01MC]=NULL;
@@ -35266,32 +35392,32 @@ static void* read_send_msg__M4N(__PARSER *Self__N4N,void *first_arg__O4N)
 // ({PARSER},{NULLxITM_LISTxITM_PROTOTYPExITM_READxITM_READ_ARG1xITM_READ_ARG2xITM_OLDxITM_EXTERNAL_TYPExITM_BLOCKxITM_EXTERNALxITM_READ_ARGSxITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRING}) With resultNo recursive, No inlinable.
 {
   void *result__Q4N,*arg__U4N,*tmp__LORB;
-  void *n__S4N,*result__25EH;
+  void *n__S4N,*result__DIFH;
   __INTEGER p1__V4N,p2__W4N,old_derive__X4N,sav_derive__Y4N;
-  __INTEGER typ_id__ELGH,typ_id__NLGH,typ_id__WLGH,Self__T0YC;
+  __INTEGER typ_id__RTGH,typ_id__0TGH,typ_id__DUGH,Self__T0YC;
   __INTEGER typ_id__QCR;
-  __POSITION pos__4WYG,p__KLGH,p__TLGH,p__2LGH,p__34Q;
-  __ITM_READ *result__CLGH;
-  __POINTER ptr__DLGH,ptr_table__5KIH,next__4KIH,result__ALIH;
-  __POINTER ptr_table__ELIH,next__DLIH,result__FLIH,ptr__MLGH;
-  __POINTER ptr_table__JLIH,next__ILIH,result__KLIH,ptr_table__OLIH;
-  __POINTER next__NLIH,result__PLIH,ptr__VLGH,ptr_table__TLIH;
-  __POINTER next__SLIH,result__ULIH,ptr_table__YLIH,next__XLIH;
-  __POINTER result__ZLIH,ptr__LCR,ptr_table__3LIH,next__2LIH;
-  __POINTER result__4LIH,ptr_table__CMIH,next__BMIH,result__DMIH;
-  __UINTEGER_32 sz__FLGH,a__GLGH,new_size__HLGH,t__ILGH,a__JLGH;
-  __UINTEGER_32 new_size__HLIH,lab_type__GLIH,sz__OLGH,a__PLGH;
-  __UINTEGER_32 new_size__QLGH,t__RLGH,a__SLGH,new_size__RLIH;
-  __UINTEGER_32 lab_type__QLIH,sz__XLGH,a__YLGH,new_size__ZLGH,t__0LGH;
-  __UINTEGER_32 a__1LGH,new_size__1LIH,lab_type__0LIH,sz__NCR,a__3AFH;
-  __UINTEGER_32 new_size__4AFH,t__CBFH,a__BBFH,new_size__FMIH;
-  __UINTEGER_32 lab_type__EMIH;
-  __ITM_READ_ARG1 *result__LLGH;
-  __ITM_READ_ARG2 *result__ULGH;
+  __POSITION pos__MAZG,p__XTGH,p__AUGH,p__JUGH,p__34Q;
+  __ITM_READ *result__PTGH;
+  __POINTER ptr__QTGH,ptr_table__YSIH,next__XSIH,result__ZSIH;
+  __POINTER ptr_table__3SIH,next__2SIH,result__4SIH,ptr__ZTGH;
+  __POINTER ptr_table__CTIH,next__BTIH,result__DTIH,ptr_table__HTIH;
+  __POINTER next__GTIH,result__ITIH,ptr__CUGH,ptr_table__MTIH;
+  __POINTER next__LTIH,result__NTIH,ptr_table__RTIH,next__QTIH;
+  __POINTER result__STIH,ptr__LCR,ptr_table__WTIH,next__VTIH;
+  __POINTER result__XTIH,ptr_table__1TIH,next__0TIH,result__2TIH;
+  __UINTEGER_32 sz__STGH,a__TTGH,new_size__UTGH,t__VTGH,a__WTGH;
+  __UINTEGER_32 new_size__ATIH,lab_type__5SIH,sz__1TGH,a__2TGH;
+  __UINTEGER_32 new_size__3TGH,t__4TGH,a__5TGH,new_size__KTIH;
+  __UINTEGER_32 lab_type__JTIH,sz__EUGH,a__FUGH,new_size__GUGH,t__HUGH;
+  __UINTEGER_32 a__IUGH,new_size__UTIH,lab_type__TTIH,sz__NCR,a__EJFH;
+  __UINTEGER_32 new_size__FJFH,t__JJFH,a__IJFH,new_size__4TIH;
+  __UINTEGER_32 lab_type__3TIH;
+  __ITM_READ_ARG1 *result__YTGH;
+  __ITM_READ_ARG2 *result__BUGH;
   __ITM_READ_ARGS *result__KCR;
-  void *l_arg__T4N,*result__NZFH;
-  __FAST_ARRAYoSTRINGo *Self__35EH,*Self__55EH;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__OZFH,*Self__PZFH;
+  void *l_arg__T4N,*result__0BGH;
+  __FAST_ARRAYoSTRINGo *Self__EIFH,*Self__GIFH;
+  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__1BGH,*Self__2BGH;
   __BOOLEAN __tmp__SCO;
   __FAST_ARRAYoITM_CODEo *Self__3CW;
   result__Q4N=NULL;
@@ -35306,39 +35432,39 @@ static void* read_send_msg__M4N(__PARSER *Self__N4N,void *first_arg__O4N)
     p1__V4N=(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD);
     p2__W4N=position__SBC;
     old_derive__X4N=short_derive__BCC;
-    result__25EH=NULL;
+    result__DIFH=NULL;
     if ((((__FAST_ARRAYoSTRINGo *)free__BOP)->parent_arrayed_collection__DKC.upper__GKC <  0)) {
-      result__25EH=create__NBB( 128);
+      result__DIFH=create__NBB( 128);
     } else {
-      Self__35EH=((__FAST_ARRAYoSTRINGo *)free__BOP);
-      result__25EH=((void **)Self__35EH->parent_arrayed_collection__DKC.storage__XGT)[Self__35EH->parent_arrayed_collection__DKC.upper__GKC];
-      Self__55EH=((__FAST_ARRAYoSTRINGo *)free__BOP);
-      Self__55EH->parent_arrayed_collection__DKC.upper__GKC=(__INTEGER)(Self__55EH->parent_arrayed_collection__DKC.upper__GKC -  1);
+      Self__EIFH=((__FAST_ARRAYoSTRINGo *)free__BOP);
+      result__DIFH=((void **)Self__EIFH->parent_arrayed_collection__DKC.storage__XGT)[Self__EIFH->parent_arrayed_collection__DKC.upper__GKC];
+      Self__GIFH=((__FAST_ARRAYoSTRINGo *)free__BOP);
+      Self__GIFH->parent_arrayed_collection__DKC.upper__GKC=(__INTEGER)(Self__GIFH->parent_arrayed_collection__DKC.upper__GKC -  1);
     };
-    n__S4N=result__25EH;
-    copy__ZCS(result__25EH,last_string__I0C);
-    result__NZFH=NULL;
+    n__S4N=result__DIFH;
+    copy__ZCS(result__DIFH,last_string__I0C);
+    result__0BGH=NULL;
     if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H)->parent_arrayed_collection__A4H.upper__IWT <  0)) {
-      result__NZFH=create_with_capacity__SVI( 16);
+      result__0BGH=create_with_capacity__SVI( 16);
     } else {
-      Self__OZFH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
-      result__NZFH=((void **)Self__OZFH->parent_arrayed_collection__A4H.storage__WAU)[Self__OZFH->parent_arrayed_collection__A4H.upper__IWT];
-      Self__PZFH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
-      Self__PZFH->parent_arrayed_collection__A4H.upper__IWT=(__INTEGER)(Self__PZFH->parent_arrayed_collection__A4H.upper__IWT -  1);
+      Self__1BGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
+      result__0BGH=((void **)Self__1BGH->parent_arrayed_collection__A4H.storage__WAU)[Self__1BGH->parent_arrayed_collection__A4H.upper__IWT];
+      Self__2BGH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__B4H);
+      Self__2BGH->parent_arrayed_collection__A4H.upper__IWT=(__INTEGER)(Self__2BGH->parent_arrayed_collection__A4H.upper__IWT -  1);
     };
-    l_arg__T4N=result__NZFH;
+    l_arg__T4N=result__0BGH;
     arg__U4N=read_argument__TOP(Self__N4N);
     if (((void *)arg__U4N != (void *)NULL)) {
-      add_last__U5U(result__NZFH,arg__U4N);
+      add_last__U5U(result__0BGH,arg__U4N);
       while (read_identifier__LAL()) {
         short__token__to__LBD((&__string_131),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
         append__BOS(n__S4N,(&__string_112));
         append__BOS(n__S4N,last_string__I0C);
         arg__U4N=read_argument__TOP(Self__N4N);
         if (((void *)arg__U4N == (void *)NULL)) {
-          pos__4WYG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_329));
-          put_position__UOG(pos__4WYG);
+          pos__MAZG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_332));
+          put_position__UOG(pos__MAZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
@@ -35347,247 +35473,247 @@ static void* read_send_msg__M4N(__PARSER *Self__N4N,void *first_arg__O4N)
         add_last__U5U(l_arg__T4N,arg__U4N);
       };
     };
-    get__IWB(result__25EH);
-    add_last__ASV(free__BOP,result__25EH);
-    ((__STRING *)result__25EH)->count__WFC= 0;
+    get__IWB(result__DIFH);
+    add_last__ASV(free__BOP,result__DIFH);
+    ((__STRING *)result__DIFH)->count__WFC= 0;
     if (is_shorter__5Y) {
-      if ((((! (((__FAST_ARRAYoITM_CODEo *)result__NZFH)->parent_arrayed_collection__RTF.upper__2HL <  0)) || ((void *)first_arg__O4N != (void *)NULL)) || (! fast_has__3DV(short_local__JCC,last_string__I0C)))) {
+      if ((((! (((__FAST_ARRAYoITM_CODEo *)result__0BGH)->parent_arrayed_collection__RTF.upper__2HL <  0)) || ((void *)first_arg__O4N != (void *)NULL)) || (! fast_has__3DV(short_local__JCC,last_string__I0C)))) {
         sav_derive__Y4N=short_derive__BCC;
         short_derive__BCC=old_derive__X4N;
         short__token__to__LBD((&__string_131),p1__V4N,p2__W4N);
         short_derive__BCC=(__INTEGER)(sav_derive__Y4N + (__INTEGER)(short_derive__BCC - old_derive__X4N));
       };
     };
-    if ((((__FAST_ARRAYoITM_CODEo *)result__NZFH)->parent_arrayed_collection__RTF.upper__2HL <  0)) {
+    if ((((__FAST_ARRAYoITM_CODEo *)result__0BGH)->parent_arrayed_collection__RTF.upper__2HL <  0)) {
       if (((void *)first_arg__O4N == (void *)NULL)) {
-        p__KLGH=current_position__JXF();
-        result__CLGH=NULL;
-        ptr__DLGH=((__POINTER )(NULL));
-        typ_id__ELGH= 0;
-        sz__FLGH=((__UINTEGER_32 )sizeof(__ITM_READ));
-        if ((sz__FLGH ==  0)) {
-          result__CLGH=ITM_READ__;
-        } else {
-          typ_id__ELGH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__FLGH);
-          if ((typ_id__ELGH == (__INTEGER)(-  1))) {
-            a__GLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__HLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__FLGH + a__GLGH) & (__UINTEGER_32)(~ a__GLGH));
-            ptr_table__5KIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__4KIH=((__POINTER )(NULL));
-            result__ALIH=((__POINTER *)ptr_table__5KIH)[ 0];
-            if ((result__ALIH == (void *)NULL)) {
-              result__ALIH=new_lab__MRJ(new_size__HLGH);
-              next__4KIH=(void *)((unsigned long)result__ALIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLGH)));
-              ((__POINTER *)next__4KIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__5KIH)[ 0]=next__4KIH;
+        p__XTGH=current_position__JXF();
+        result__PTGH=NULL;
+        ptr__QTGH=((__POINTER )(NULL));
+        typ_id__RTGH= 0;
+        sz__STGH=((__UINTEGER_32 )sizeof(__ITM_READ));
+        if ((sz__STGH ==  0)) {
+          result__PTGH=ITM_READ__;
+        } else {
+          typ_id__RTGH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__STGH);
+          if ((typ_id__RTGH == (__INTEGER)(-  1))) {
+            a__TTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__UTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__STGH + a__TTGH) & (__UINTEGER_32)(~ a__TTGH));
+            ptr_table__YSIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__XSIH=((__POINTER )(NULL));
+            result__ZSIH=((__POINTER *)ptr_table__YSIH)[ 0];
+            if ((result__ZSIH == (void *)NULL)) {
+              result__ZSIH=new_lab__MRJ(new_size__UTGH);
+              next__XSIH=(void *)((unsigned long)result__ZSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UTGH)));
+              ((__POINTER *)next__XSIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__YSIH)[ 0]=next__XSIH;
             } else {
-              next__4KIH=((__POINTER *)result__ALIH)[ 0];
-              if ((next__4KIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ALIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HLGH <<  1)) <=  4096)) {
-                  next__4KIH=(void *)((unsigned long)result__ALIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLGH)));
+              next__XSIH=((__POINTER *)result__ZSIH)[ 0];
+              if ((next__XSIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZSIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UTGH <<  1)) <=  4096)) {
+                  next__XSIH=(void *)((unsigned long)result__ZSIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UTGH)));
                 } else {
-                  next__4KIH=new_lab__MRJ(new_size__HLGH);
+                  next__XSIH=new_lab__MRJ(new_size__UTGH);
                 };
-                ((__POINTER *)next__4KIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__5KIH)[ 0]=next__4KIH;
+                ((__POINTER *)next__XSIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__YSIH)[ 0]=next__XSIH;
               } else {
-                ((__POINTER *)result__ALIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4KIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__ALIH=next__4KIH;
+                ((__POINTER *)result__ZSIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XSIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__ZSIH=next__XSIH;
               };
             };
-            ptr__DLGH=result__ALIH;
-          } else {
-            t__ILGH=((__UINTEGER_32 )typ_id__ELGH);
-            a__JLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__HLIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FLGH + a__JLGH) & (__UINTEGER_32)(~ a__JLGH));
-            ptr_table__ELIH=((__POINTER )(&(table_type[(t__ILGH)])));
-            lab_type__GLIH=(__UINTEGER_32)(t__ILGH |  1);
-            next__DLIH=((__POINTER )(NULL));
-            result__FLIH=((__POINTER *)ptr_table__ELIH)[ 0];
-            if ((result__FLIH == (void *)NULL)) {
-              result__FLIH=new_lab__MRJ(lab_type__GLIH);
-              next__DLIH=(void *)((unsigned long)result__FLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLIH)));
-              ((__POINTER *)next__DLIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__ELIH)[ 0]=next__DLIH;
+            ptr__QTGH=result__ZSIH;
+          } else {
+            t__VTGH=((__UINTEGER_32 )typ_id__RTGH);
+            a__WTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__ATIH=(__UINTEGER_32)((__UINTEGER_32)(sz__STGH + a__WTGH) & (__UINTEGER_32)(~ a__WTGH));
+            ptr_table__3SIH=((__POINTER )(&(table_type[(t__VTGH)])));
+            lab_type__5SIH=(__UINTEGER_32)(t__VTGH |  1);
+            next__2SIH=((__POINTER )(NULL));
+            result__4SIH=((__POINTER *)ptr_table__3SIH)[ 0];
+            if ((result__4SIH == (void *)NULL)) {
+              result__4SIH=new_lab__MRJ(lab_type__5SIH);
+              next__2SIH=(void *)((unsigned long)result__4SIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ATIH)));
+              ((__POINTER *)next__2SIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__3SIH)[ 0]=next__2SIH;
             } else {
-              next__DLIH=((__POINTER *)result__FLIH)[ 0];
-              if ((next__DLIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FLIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__HLIH <<  1)) <=  4096)) {
-                  next__DLIH=(void *)((unsigned long)result__FLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLIH)));
+              next__2SIH=((__POINTER *)result__4SIH)[ 0];
+              if ((next__2SIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4SIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ATIH <<  1)) <=  4096)) {
+                  next__2SIH=(void *)((unsigned long)result__4SIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ATIH)));
                 } else {
-                  next__DLIH=new_lab__MRJ(lab_type__GLIH);
+                  next__2SIH=new_lab__MRJ(lab_type__5SIH);
                 };
-                ((__POINTER *)next__DLIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__ELIH)[ 0]=next__DLIH;
+                ((__POINTER *)next__2SIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__3SIH)[ 0]=next__2SIH;
               } else {
-                ((__POINTER *)result__FLIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__FLIH=next__DLIH;
+                ((__POINTER *)result__4SIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2SIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__4SIH=next__2SIH;
               };
             };
-            ptr__DLGH=result__FLIH;
-          };
-          result__CLGH=((__ITM_READ *)ptr__DLGH);
-          *(result__CLGH) = *(ITM_READ__);
-        };
-        ((__ITM_READ *)result__CLGH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__KLGH;
-        result__Q4N=result__CLGH;
-      } else {
-        p__TLGH=current_position__JXF();
-        result__LLGH=NULL;
-        ptr__MLGH=((__POINTER )(NULL));
-        typ_id__NLGH= 0;
-        sz__OLGH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-        if ((sz__OLGH ==  0)) {
-          result__LLGH=ITM_READ_ARG1__;
-        } else {
-          typ_id__NLGH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__OLGH);
-          if ((typ_id__NLGH == (__INTEGER)(-  1))) {
-            a__PLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__QLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__OLGH + a__PLGH) & (__UINTEGER_32)(~ a__PLGH));
-            ptr_table__JLIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__ILIH=((__POINTER )(NULL));
-            result__KLIH=((__POINTER *)ptr_table__JLIH)[ 0];
-            if ((result__KLIH == (void *)NULL)) {
-              result__KLIH=new_lab__MRJ(new_size__QLGH);
-              next__ILIH=(void *)((unsigned long)result__KLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QLGH)));
-              ((__POINTER *)next__ILIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__JLIH)[ 0]=next__ILIH;
+            ptr__QTGH=result__4SIH;
+          };
+          result__PTGH=((__ITM_READ *)ptr__QTGH);
+          *(result__PTGH) = *(ITM_READ__);
+        };
+        ((__ITM_READ *)result__PTGH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__XTGH;
+        result__Q4N=result__PTGH;
+      } else {
+        p__AUGH=current_position__JXF();
+        result__YTGH=NULL;
+        ptr__ZTGH=((__POINTER )(NULL));
+        typ_id__0TGH= 0;
+        sz__1TGH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
+        if ((sz__1TGH ==  0)) {
+          result__YTGH=ITM_READ_ARG1__;
+        } else {
+          typ_id__0TGH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__1TGH);
+          if ((typ_id__0TGH == (__INTEGER)(-  1))) {
+            a__2TGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__3TGH=(__UINTEGER_32)((__UINTEGER_32)(sz__1TGH + a__2TGH) & (__UINTEGER_32)(~ a__2TGH));
+            ptr_table__CTIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3TGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__BTIH=((__POINTER )(NULL));
+            result__DTIH=((__POINTER *)ptr_table__CTIH)[ 0];
+            if ((result__DTIH == (void *)NULL)) {
+              result__DTIH=new_lab__MRJ(new_size__3TGH);
+              next__BTIH=(void *)((unsigned long)result__DTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3TGH)));
+              ((__POINTER *)next__BTIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__CTIH)[ 0]=next__BTIH;
             } else {
-              next__ILIH=((__POINTER *)result__KLIH)[ 0];
-              if ((next__ILIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KLIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__QLGH <<  1)) <=  4096)) {
-                  next__ILIH=(void *)((unsigned long)result__KLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QLGH)));
+              next__BTIH=((__POINTER *)result__DTIH)[ 0];
+              if ((next__BTIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3TGH <<  1)) <=  4096)) {
+                  next__BTIH=(void *)((unsigned long)result__DTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3TGH)));
                 } else {
-                  next__ILIH=new_lab__MRJ(new_size__QLGH);
+                  next__BTIH=new_lab__MRJ(new_size__3TGH);
                 };
-                ((__POINTER *)next__ILIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__JLIH)[ 0]=next__ILIH;
+                ((__POINTER *)next__BTIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__CTIH)[ 0]=next__BTIH;
               } else {
-                ((__POINTER *)result__KLIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ILIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__KLIH=next__ILIH;
+                ((__POINTER *)result__DTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__DTIH=next__BTIH;
               };
             };
-            ptr__MLGH=result__KLIH;
-          } else {
-            t__RLGH=((__UINTEGER_32 )typ_id__NLGH);
-            a__SLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__RLIH=(__UINTEGER_32)((__UINTEGER_32)(sz__OLGH + a__SLGH) & (__UINTEGER_32)(~ a__SLGH));
-            ptr_table__OLIH=((__POINTER )(&(table_type[(t__RLGH)])));
-            lab_type__QLIH=(__UINTEGER_32)(t__RLGH |  1);
-            next__NLIH=((__POINTER )(NULL));
-            result__PLIH=((__POINTER *)ptr_table__OLIH)[ 0];
-            if ((result__PLIH == (void *)NULL)) {
-              result__PLIH=new_lab__MRJ(lab_type__QLIH);
-              next__NLIH=(void *)((unsigned long)result__PLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RLIH)));
-              ((__POINTER *)next__NLIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__OLIH)[ 0]=next__NLIH;
+            ptr__ZTGH=result__DTIH;
+          } else {
+            t__4TGH=((__UINTEGER_32 )typ_id__0TGH);
+            a__5TGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__KTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1TGH + a__5TGH) & (__UINTEGER_32)(~ a__5TGH));
+            ptr_table__HTIH=((__POINTER )(&(table_type[(t__4TGH)])));
+            lab_type__JTIH=(__UINTEGER_32)(t__4TGH |  1);
+            next__GTIH=((__POINTER )(NULL));
+            result__ITIH=((__POINTER *)ptr_table__HTIH)[ 0];
+            if ((result__ITIH == (void *)NULL)) {
+              result__ITIH=new_lab__MRJ(lab_type__JTIH);
+              next__GTIH=(void *)((unsigned long)result__ITIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KTIH)));
+              ((__POINTER *)next__GTIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__HTIH)[ 0]=next__GTIH;
             } else {
-              next__NLIH=((__POINTER *)result__PLIH)[ 0];
-              if ((next__NLIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PLIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__RLIH <<  1)) <=  4096)) {
-                  next__NLIH=(void *)((unsigned long)result__PLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RLIH)));
+              next__GTIH=((__POINTER *)result__ITIH)[ 0];
+              if ((next__GTIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ITIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__KTIH <<  1)) <=  4096)) {
+                  next__GTIH=(void *)((unsigned long)result__ITIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KTIH)));
                 } else {
-                  next__NLIH=new_lab__MRJ(lab_type__QLIH);
+                  next__GTIH=new_lab__MRJ(lab_type__JTIH);
                 };
-                ((__POINTER *)next__NLIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OLIH)[ 0]=next__NLIH;
+                ((__POINTER *)next__GTIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__HTIH)[ 0]=next__GTIH;
               } else {
-                ((__POINTER *)result__PLIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__PLIH=next__NLIH;
+                ((__POINTER *)result__ITIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__ITIH=next__GTIH;
               };
             };
-            ptr__MLGH=result__PLIH;
+            ptr__ZTGH=result__ITIH;
           };
-          result__LLGH=((__ITM_READ_ARG1 *)ptr__MLGH);
-          *(result__LLGH) = *(ITM_READ_ARG1__);
+          result__YTGH=((__ITM_READ_ARG1 *)ptr__ZTGH);
+          *(result__YTGH) = *(ITM_READ_ARG1__);
         };
-        ((__ITM_READ_ARG1 *)result__LLGH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__TLGH;
-        result__Q4N=result__LLGH;
+        ((__ITM_READ_ARG1 *)result__YTGH)->parent_itm_read__KIL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__AUGH;
+        result__Q4N=result__YTGH;
       };
-      free__YVI(result__NZFH);
+      free__YVI(result__0BGH);
       __tmp__SCO=TRUE__;
     } else {
       __tmp__SCO=FALSE__;
     };
     if ((! __tmp__SCO)) {
-      if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__NZFH)->parent_arrayed_collection__RTF.upper__2HL +  1) ==  1)) {
-        p__2LGH=current_position__JXF();
-        result__ULGH=NULL;
-        ptr__VLGH=((__POINTER )(NULL));
-        typ_id__WLGH= 0;
-        sz__XLGH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
-        if ((sz__XLGH ==  0)) {
-          result__ULGH=ITM_READ_ARG2__;
-        } else {
-          typ_id__WLGH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XLGH);
-          if ((typ_id__WLGH == (__INTEGER)(-  1))) {
-            a__YLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ZLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XLGH + a__YLGH) & (__UINTEGER_32)(~ a__YLGH));
-            ptr_table__TLIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__SLIH=((__POINTER )(NULL));
-            result__ULIH=((__POINTER *)ptr_table__TLIH)[ 0];
-            if ((result__ULIH == (void *)NULL)) {
-              result__ULIH=new_lab__MRJ(new_size__ZLGH);
-              next__SLIH=(void *)((unsigned long)result__ULIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZLGH)));
-              ((__POINTER *)next__SLIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__TLIH)[ 0]=next__SLIH;
+      if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__0BGH)->parent_arrayed_collection__RTF.upper__2HL +  1) ==  1)) {
+        p__JUGH=current_position__JXF();
+        result__BUGH=NULL;
+        ptr__CUGH=((__POINTER )(NULL));
+        typ_id__DUGH= 0;
+        sz__EUGH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
+        if ((sz__EUGH ==  0)) {
+          result__BUGH=ITM_READ_ARG2__;
+        } else {
+          typ_id__DUGH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__EUGH);
+          if ((typ_id__DUGH == (__INTEGER)(-  1))) {
+            a__FUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__GUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__EUGH + a__FUGH) & (__UINTEGER_32)(~ a__FUGH));
+            ptr_table__MTIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__LTIH=((__POINTER )(NULL));
+            result__NTIH=((__POINTER *)ptr_table__MTIH)[ 0];
+            if ((result__NTIH == (void *)NULL)) {
+              result__NTIH=new_lab__MRJ(new_size__GUGH);
+              next__LTIH=(void *)((unsigned long)result__NTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GUGH)));
+              ((__POINTER *)next__LTIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__MTIH)[ 0]=next__LTIH;
             } else {
-              next__SLIH=((__POINTER *)result__ULIH)[ 0];
-              if ((next__SLIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ULIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZLGH <<  1)) <=  4096)) {
-                  next__SLIH=(void *)((unsigned long)result__ULIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZLGH)));
+              next__LTIH=((__POINTER *)result__NTIH)[ 0];
+              if ((next__LTIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__GUGH <<  1)) <=  4096)) {
+                  next__LTIH=(void *)((unsigned long)result__NTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GUGH)));
                 } else {
-                  next__SLIH=new_lab__MRJ(new_size__ZLGH);
+                  next__LTIH=new_lab__MRJ(new_size__GUGH);
                 };
-                ((__POINTER *)next__SLIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__TLIH)[ 0]=next__SLIH;
+                ((__POINTER *)next__LTIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__MTIH)[ 0]=next__LTIH;
               } else {
-                ((__POINTER *)result__ULIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__ULIH=next__SLIH;
+                ((__POINTER *)result__NTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__NTIH=next__LTIH;
               };
             };
-            ptr__VLGH=result__ULIH;
-          } else {
-            t__0LGH=((__UINTEGER_32 )typ_id__WLGH);
-            a__1LGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__1LIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XLGH + a__1LGH) & (__UINTEGER_32)(~ a__1LGH));
-            ptr_table__YLIH=((__POINTER )(&(table_type[(t__0LGH)])));
-            lab_type__0LIH=(__UINTEGER_32)(t__0LGH |  1);
-            next__XLIH=((__POINTER )(NULL));
-            result__ZLIH=((__POINTER *)ptr_table__YLIH)[ 0];
-            if ((result__ZLIH == (void *)NULL)) {
-              result__ZLIH=new_lab__MRJ(lab_type__0LIH);
-              next__XLIH=(void *)((unsigned long)result__ZLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1LIH)));
-              ((__POINTER *)next__XLIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__YLIH)[ 0]=next__XLIH;
+            ptr__CUGH=result__NTIH;
+          } else {
+            t__HUGH=((__UINTEGER_32 )typ_id__DUGH);
+            a__IUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__UTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__EUGH + a__IUGH) & (__UINTEGER_32)(~ a__IUGH));
+            ptr_table__RTIH=((__POINTER )(&(table_type[(t__HUGH)])));
+            lab_type__TTIH=(__UINTEGER_32)(t__HUGH |  1);
+            next__QTIH=((__POINTER )(NULL));
+            result__STIH=((__POINTER *)ptr_table__RTIH)[ 0];
+            if ((result__STIH == (void *)NULL)) {
+              result__STIH=new_lab__MRJ(lab_type__TTIH);
+              next__QTIH=(void *)((unsigned long)result__STIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UTIH)));
+              ((__POINTER *)next__QTIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__RTIH)[ 0]=next__QTIH;
             } else {
-              next__XLIH=((__POINTER *)result__ZLIH)[ 0];
-              if ((next__XLIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZLIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1LIH <<  1)) <=  4096)) {
-                  next__XLIH=(void *)((unsigned long)result__ZLIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1LIH)));
+              next__QTIH=((__POINTER *)result__STIH)[ 0];
+              if ((next__QTIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__STIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UTIH <<  1)) <=  4096)) {
+                  next__QTIH=(void *)((unsigned long)result__STIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UTIH)));
                 } else {
-                  next__XLIH=new_lab__MRJ(lab_type__0LIH);
+                  next__QTIH=new_lab__MRJ(lab_type__TTIH);
                 };
-                ((__POINTER *)next__XLIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__YLIH)[ 0]=next__XLIH;
+                ((__POINTER *)next__QTIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__RTIH)[ 0]=next__QTIH;
               } else {
-                ((__POINTER *)result__ZLIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XLIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__ZLIH=next__XLIH;
+                ((__POINTER *)result__STIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__STIH=next__QTIH;
               };
             };
-            ptr__VLGH=result__ZLIH;
+            ptr__CUGH=result__STIH;
           };
-          result__ULGH=((__ITM_READ_ARG2 *)ptr__VLGH);
-          *(result__ULGH) = *(ITM_READ_ARG2__);
+          result__BUGH=((__ITM_READ_ARG2 *)ptr__CUGH);
+          *(result__BUGH) = *(ITM_READ_ARG2__);
         };
-        ((__ITM_READ_ARG2 *)result__ULGH)->parent_itm_read__XKL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__2LGH;
-        result__Q4N=result__ULGH;
-        free__YVI(result__NZFH);
+        ((__ITM_READ_ARG2 *)result__BUGH)->parent_itm_read__XKL.parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__JUGH;
+        result__Q4N=result__BUGH;
+        free__YVI(result__0BGH);
       } else {
-        Self__3CW=((__FAST_ARRAYoITM_CODEo *)result__NZFH);
+        Self__3CW=((__FAST_ARRAYoITM_CODEo *)result__0BGH);
         add_last__U5U(Self__3CW,first_arg__O4N);
         if ((Self__3CW->parent_arrayed_collection__RTF.upper__2HL !=  0)) {
           if ((Self__3CW->parent_arrayed_collection__RTF.upper__2HL ==  1)) {
@@ -35604,7 +35730,7 @@ static void* read_send_msg__M4N(__PARSER *Self__N4N,void *first_arg__O4N)
             ((void **)Self__3CW->parent_arrayed_collection__RTF.storage__FYT)[ 0]=first_arg__O4N;
           };
         };
-        l_arg__T4N=copy__Q5H(result__NZFH);
+        l_arg__T4N=copy__Q5H(result__0BGH);
         p__34Q=current_position__JXF();
         result__KCR=NULL;
         ptr__LCR=((__POINTER )(NULL));
@@ -35616,61 +35742,61 @@ static void* read_send_msg__M4N(__PARSER *Self__N4N,void *first_arg__O4N)
           typ_id__QCR=-1;
           clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NCR);
           if ((typ_id__QCR == (__INTEGER)(-  1))) {
-            a__3AFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__4AFH=(__UINTEGER_32)((__UINTEGER_32)(sz__NCR + a__3AFH) & (__UINTEGER_32)(~ a__3AFH));
-            ptr_table__3LIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4AFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__2LIH=((__POINTER )(NULL));
-            result__4LIH=((__POINTER *)ptr_table__3LIH)[ 0];
-            if ((result__4LIH == (void *)NULL)) {
-              result__4LIH=new_lab__MRJ(new_size__4AFH);
-              next__2LIH=(void *)((unsigned long)result__4LIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4AFH)));
-              ((__POINTER *)next__2LIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3LIH)[ 0]=next__2LIH;
+            a__EJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__FJFH=(__UINTEGER_32)((__UINTEGER_32)(sz__NCR + a__EJFH) & (__UINTEGER_32)(~ a__EJFH));
+            ptr_table__WTIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__VTIH=((__POINTER )(NULL));
+            result__XTIH=((__POINTER *)ptr_table__WTIH)[ 0];
+            if ((result__XTIH == (void *)NULL)) {
+              result__XTIH=new_lab__MRJ(new_size__FJFH);
+              next__VTIH=(void *)((unsigned long)result__XTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FJFH)));
+              ((__POINTER *)next__VTIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__WTIH)[ 0]=next__VTIH;
             } else {
-              next__2LIH=((__POINTER *)result__4LIH)[ 0];
-              if ((next__2LIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4LIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4AFH <<  1)) <=  4096)) {
-                  next__2LIH=(void *)((unsigned long)result__4LIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4AFH)));
+              next__VTIH=((__POINTER *)result__XTIH)[ 0];
+              if ((next__VTIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XTIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FJFH <<  1)) <=  4096)) {
+                  next__VTIH=(void *)((unsigned long)result__XTIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FJFH)));
                 } else {
-                  next__2LIH=new_lab__MRJ(new_size__4AFH);
+                  next__VTIH=new_lab__MRJ(new_size__FJFH);
                 };
-                ((__POINTER *)next__2LIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__3LIH)[ 0]=next__2LIH;
+                ((__POINTER *)next__VTIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__WTIH)[ 0]=next__VTIH;
               } else {
-                ((__POINTER *)result__4LIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2LIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__4LIH=next__2LIH;
+                ((__POINTER *)result__XTIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VTIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__XTIH=next__VTIH;
               };
             };
-            ptr__LCR=result__4LIH;
-          } else {
-            t__CBFH=((__UINTEGER_32 )typ_id__QCR);
-            a__BBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__FMIH=(__UINTEGER_32)((__UINTEGER_32)(sz__NCR + a__BBFH) & (__UINTEGER_32)(~ a__BBFH));
-            ptr_table__CMIH=((__POINTER )(&(table_type[(t__CBFH)])));
-            lab_type__EMIH=(__UINTEGER_32)(t__CBFH |  1);
-            next__BMIH=((__POINTER )(NULL));
-            result__DMIH=((__POINTER *)ptr_table__CMIH)[ 0];
-            if ((result__DMIH == (void *)NULL)) {
-              result__DMIH=new_lab__MRJ(lab_type__EMIH);
-              next__BMIH=(void *)((unsigned long)result__DMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FMIH)));
-              ((__POINTER *)next__BMIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__CMIH)[ 0]=next__BMIH;
+            ptr__LCR=result__XTIH;
+          } else {
+            t__JJFH=((__UINTEGER_32 )typ_id__QCR);
+            a__IJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__4TIH=(__UINTEGER_32)((__UINTEGER_32)(sz__NCR + a__IJFH) & (__UINTEGER_32)(~ a__IJFH));
+            ptr_table__1TIH=((__POINTER )(&(table_type[(t__JJFH)])));
+            lab_type__3TIH=(__UINTEGER_32)(t__JJFH |  1);
+            next__0TIH=((__POINTER )(NULL));
+            result__2TIH=((__POINTER *)ptr_table__1TIH)[ 0];
+            if ((result__2TIH == (void *)NULL)) {
+              result__2TIH=new_lab__MRJ(lab_type__3TIH);
+              next__0TIH=(void *)((unsigned long)result__2TIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TIH)));
+              ((__POINTER *)next__0TIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__1TIH)[ 0]=next__0TIH;
             } else {
-              next__BMIH=((__POINTER *)result__DMIH)[ 0];
-              if ((next__BMIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FMIH <<  1)) <=  4096)) {
-                  next__BMIH=(void *)((unsigned long)result__DMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FMIH)));
+              next__0TIH=((__POINTER *)result__2TIH)[ 0];
+              if ((next__0TIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2TIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4TIH <<  1)) <=  4096)) {
+                  next__0TIH=(void *)((unsigned long)result__2TIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TIH)));
                 } else {
-                  next__BMIH=new_lab__MRJ(lab_type__EMIH);
+                  next__0TIH=new_lab__MRJ(lab_type__3TIH);
                 };
-                ((__POINTER *)next__BMIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__CMIH)[ 0]=next__BMIH;
+                ((__POINTER *)next__0TIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__1TIH)[ 0]=next__0TIH;
               } else {
-                ((__POINTER *)result__DMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__DMIH=next__BMIH;
+                ((__POINTER *)result__2TIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0TIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__2TIH=next__0TIH;
               };
             };
-            ptr__LCR=result__DMIH;
+            ptr__LCR=result__2TIH;
           };
           result__KCR=((__ITM_READ_ARGS *)ptr__LCR);
           *(result__KCR) = *(ITM_READ_ARGS__);
@@ -35688,14 +35814,14 @@ static void* readlip_expr_cmp__A11B(__PARSER *Self__B11B)
 {
   void *right__E11B,*result__D11B;
   void *op__F11B;
-  __POSITION pos__1ZYG,p__3TBD;
+  __POSITION pos__JDZG,p__3TBD;
   __STRING_CONSTANT *Self__NSBD;
   __LIP_BINARY *result__THGD,*Self__5WSD;
-  __POINTER ptr__UHGD,ptr_table__HMIH,next__GMIH,result__IMIH;
-  __POINTER ptr_table__MMIH,next__LMIH,result__NMIH;
+  __POINTER ptr__UHGD,ptr_table__AUIH,next__5TIH,result__BUIH;
+  __POINTER ptr_table__FUIH,next__EUIH,result__GUIH;
   __INTEGER typ_id__ZHGD;
-  __UINTEGER_32 sz__WHGD,a__NBFH,new_size__OBFH,t__SBFH,a__RBFH;
-  __UINTEGER_32 new_size__PMIH,lab_type__OMIH;
+  __UINTEGER_32 sz__WHGD,a__UJFH,new_size__VJFH,t__ZJFH,a__YJFH;
+  __UINTEGER_32 new_size__IUIH,lab_type__HUIH;
   __CHARACTER type__G11B;
   right__E11B=NULL;
   op__F11B=NULL;
@@ -35706,9 +35832,9 @@ static void* readlip_expr_cmp__A11B(__PARSER *Self__B11B)
       op__F11B=last_string__I0C;
       right__E11B=readlip_expr_binary__3N3B(Self__B11B);
       if (((void *)right__E11B == (void *)NULL)) {
-        pos__1ZYG=current_position__JXF();
-        put_error__text__KNG( 0,(&__string_237));
-        put_position__UOG(pos__1ZYG);
+        pos__JDZG=current_position__JXF();
+        put_error__text__KNG( 0,(&__string_240));
+        put_position__UOG(pos__JDZG);
         put_string__U1F(msg_err__PNG);
         if ((type_error__ONG !=  2)) {
           exit(( 1));
@@ -35744,61 +35870,61 @@ static void* readlip_expr_cmp__A11B(__PARSER *Self__B11B)
         typ_id__ZHGD=-1;
         clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__WHGD);
         if ((typ_id__ZHGD == (__INTEGER)(-  1))) {
-          a__NBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__OBFH=(__UINTEGER_32)((__UINTEGER_32)(sz__WHGD + a__NBFH) & (__UINTEGER_32)(~ a__NBFH));
-          ptr_table__HMIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OBFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__GMIH=((__POINTER )(NULL));
-          result__IMIH=((__POINTER *)ptr_table__HMIH)[ 0];
-          if ((result__IMIH == (void *)NULL)) {
-            result__IMIH=new_lab__MRJ(new_size__OBFH);
-            next__GMIH=(void *)((unsigned long)result__IMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OBFH)));
-            ((__POINTER *)next__GMIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__HMIH)[ 0]=next__GMIH;
-          } else {
-            next__GMIH=((__POINTER *)result__IMIH)[ 0];
-            if ((next__GMIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__OBFH <<  1)) <=  4096)) {
-                next__GMIH=(void *)((unsigned long)result__IMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OBFH)));
+          a__UJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__VJFH=(__UINTEGER_32)((__UINTEGER_32)(sz__WHGD + a__UJFH) & (__UINTEGER_32)(~ a__UJFH));
+          ptr_table__AUIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__5TIH=((__POINTER )(NULL));
+          result__BUIH=((__POINTER *)ptr_table__AUIH)[ 0];
+          if ((result__BUIH == (void *)NULL)) {
+            result__BUIH=new_lab__MRJ(new_size__VJFH);
+            next__5TIH=(void *)((unsigned long)result__BUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VJFH)));
+            ((__POINTER *)next__5TIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__AUIH)[ 0]=next__5TIH;
+          } else {
+            next__5TIH=((__POINTER *)result__BUIH)[ 0];
+            if ((next__5TIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__VJFH <<  1)) <=  4096)) {
+                next__5TIH=(void *)((unsigned long)result__BUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VJFH)));
               } else {
-                next__GMIH=new_lab__MRJ(new_size__OBFH);
+                next__5TIH=new_lab__MRJ(new_size__VJFH);
               };
-              ((__POINTER *)next__GMIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__HMIH)[ 0]=next__GMIH;
+              ((__POINTER *)next__5TIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__AUIH)[ 0]=next__5TIH;
             } else {
-              ((__POINTER *)result__IMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__IMIH=next__GMIH;
-            };
-          };
-          ptr__UHGD=result__IMIH;
-        } else {
-          t__SBFH=((__UINTEGER_32 )typ_id__ZHGD);
-          a__RBFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__PMIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WHGD + a__RBFH) & (__UINTEGER_32)(~ a__RBFH));
-          ptr_table__MMIH=((__POINTER )(&(table_type[(t__SBFH)])));
-          lab_type__OMIH=(__UINTEGER_32)(t__SBFH |  1);
-          next__LMIH=((__POINTER )(NULL));
-          result__NMIH=((__POINTER *)ptr_table__MMIH)[ 0];
-          if ((result__NMIH == (void *)NULL)) {
-            result__NMIH=new_lab__MRJ(lab_type__OMIH);
-            next__LMIH=(void *)((unsigned long)result__NMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMIH)));
-            ((__POINTER *)next__LMIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__MMIH)[ 0]=next__LMIH;
-          } else {
-            next__LMIH=((__POINTER *)result__NMIH)[ 0];
-            if ((next__LMIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PMIH <<  1)) <=  4096)) {
-                next__LMIH=(void *)((unsigned long)result__NMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMIH)));
+              ((__POINTER *)result__BUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5TIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__BUIH=next__5TIH;
+            };
+          };
+          ptr__UHGD=result__BUIH;
+        } else {
+          t__ZJFH=((__UINTEGER_32 )typ_id__ZHGD);
+          a__YJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__IUIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WHGD + a__YJFH) & (__UINTEGER_32)(~ a__YJFH));
+          ptr_table__FUIH=((__POINTER )(&(table_type[(t__ZJFH)])));
+          lab_type__HUIH=(__UINTEGER_32)(t__ZJFH |  1);
+          next__EUIH=((__POINTER )(NULL));
+          result__GUIH=((__POINTER *)ptr_table__FUIH)[ 0];
+          if ((result__GUIH == (void *)NULL)) {
+            result__GUIH=new_lab__MRJ(lab_type__HUIH);
+            next__EUIH=(void *)((unsigned long)result__GUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IUIH)));
+            ((__POINTER *)next__EUIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__FUIH)[ 0]=next__EUIH;
+          } else {
+            next__EUIH=((__POINTER *)result__GUIH)[ 0];
+            if ((next__EUIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__IUIH <<  1)) <=  4096)) {
+                next__EUIH=(void *)((unsigned long)result__GUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IUIH)));
               } else {
-                next__LMIH=new_lab__MRJ(lab_type__OMIH);
+                next__EUIH=new_lab__MRJ(lab_type__HUIH);
               };
-              ((__POINTER *)next__LMIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__MMIH)[ 0]=next__LMIH;
+              ((__POINTER *)next__EUIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__FUIH)[ 0]=next__EUIH;
             } else {
-              ((__POINTER *)result__NMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__NMIH=next__LMIH;
+              ((__POINTER *)result__GUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__GUIH=next__EUIH;
             };
           };
-          ptr__UHGD=result__NMIH;
+          ptr__UHGD=result__GUIH;
         };
         result__THGD=((__LIP_BINARY *)ptr__UHGD);
         *(result__THGD) = *(LIP_BINARY__);
@@ -35814,122 +35940,122 @@ static void* readlip_expr_cmp__A11B(__PARSER *Self__B11B)
   return(result__D11B);
 }
 
-static void** create__UUIE(__INTEGER nb_elements__WUIE)
+static void** create__WYIE(__INTEGER nb_elements__YYIE)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__HADH,a__MADH,new_size__IADH,new_size2__JADH,a__3BFH;
-  __UINTEGER_32 new_size__4BFH;
-  __POINTER result__GADH,ptr_table__RMIH,next__QMIH,result__SMIH;
-  void *result__VMIH;
-  __INTEGER Self__25XE;
-  void **Result__BWNE;
-  sz__HADH=((__UINTEGER_32 )(__INTEGER)(nb_elements__WUIE * ((__INTEGER )(sizeof(void *)))));
-  result__GADH=((__POINTER )(NULL));
-  a__MADH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__IADH=(__UINTEGER_32)((__UINTEGER_32)(sz__HADH + a__MADH) & (__UINTEGER_32)(~ a__MADH));
-  new_size2__JADH=(__UINTEGER_32)(new_size__IADH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__JADH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__3BFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__4BFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JADH + a__3BFH) & (__UINTEGER_32)(~ a__3BFH));
-    ptr_table__RMIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4BFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__QMIH=((__POINTER )(NULL));
-    result__SMIH=((__POINTER *)ptr_table__RMIH)[ 0];
-    if ((result__SMIH == (void *)NULL)) {
-      result__SMIH=new_lab__MRJ(new_size__4BFH);
-      next__QMIH=(void *)((unsigned long)result__SMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4BFH)));
-      ((__POINTER *)next__QMIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__RMIH)[ 0]=next__QMIH;
-    } else {
-      next__QMIH=((__POINTER *)result__SMIH)[ 0];
-      if ((next__QMIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SMIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__4BFH <<  1)) <=  4096)) {
-          next__QMIH=(void *)((unsigned long)result__SMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4BFH)));
-        } else {
-          next__QMIH=new_lab__MRJ(new_size__4BFH);
-        };
-        ((__POINTER *)next__QMIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RMIH)[ 0]=next__QMIH;
-      } else {
-        ((__POINTER *)result__SMIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__SMIH=next__QMIH;
-      };
-    };
-    ((__POINTER *)result__SMIH)[ 0]=((__POINTER ) 3);
-    result__GADH=(void *)((unsigned long)result__SMIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  __UINTEGER_32 sz__LJDH,a__QJDH,new_size__MJDH,new_size2__NJDH,a__EKFH;
+  __UINTEGER_32 new_size__FKFH;
+  __POINTER result__KJDH,ptr_table__KUIH,next__JUIH,result__LUIH;
+  void *result__OUIH;
+  __INTEGER Self__UEYE;
+  void **Result__D0NE;
+  sz__LJDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__YYIE * ((__INTEGER )(sizeof(void *)))));
+  result__KJDH=((__POINTER )(NULL));
+  a__QJDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__MJDH=(__UINTEGER_32)((__UINTEGER_32)(sz__LJDH + a__QJDH) & (__UINTEGER_32)(~ a__QJDH));
+  new_size2__NJDH=(__UINTEGER_32)(new_size__MJDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__NJDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__EKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__FKFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NJDH + a__EKFH) & (__UINTEGER_32)(~ a__EKFH));
+    ptr_table__KUIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__JUIH=((__POINTER )(NULL));
+    result__LUIH=((__POINTER *)ptr_table__KUIH)[ 0];
+    if ((result__LUIH == (void *)NULL)) {
+      result__LUIH=new_lab__MRJ(new_size__FKFH);
+      next__JUIH=(void *)((unsigned long)result__LUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FKFH)));
+      ((__POINTER *)next__JUIH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__KUIH)[ 0]=next__JUIH;
+    } else {
+      next__JUIH=((__POINTER *)result__LUIH)[ 0];
+      if ((next__JUIH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FKFH <<  1)) <=  4096)) {
+          next__JUIH=(void *)((unsigned long)result__LUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FKFH)));
+        } else {
+          next__JUIH=new_lab__MRJ(new_size__FKFH);
+        };
+        ((__POINTER *)next__JUIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__KUIH)[ 0]=next__JUIH;
+      } else {
+        ((__POINTER *)result__LUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__LUIH=next__JUIH;
+      };
+    };
+    ((__POINTER *)result__LUIH)[ 0]=((__POINTER ) 3);
+    result__KJDH=(void *)((unsigned long)result__LUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__VMIH=first_free__XDVB;
-    while ((((void *)result__VMIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__VMIH)->map_size_and_id__ITB &  4294967292LU) < new_size__IADH))) {
-      result__VMIH=((__MEMORY *)result__VMIH)->map_next_free__JTB;
+    result__OUIH=first_free__XDVB;
+    while ((((void *)result__OUIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__OUIH)->map_size_and_id__ITB &  4294967292LU) < new_size__MJDH))) {
+      result__OUIH=((__MEMORY *)result__OUIH)->map_next_free__JTB;
     };
-    if (((void *)result__VMIH == (void *)NULL)) {
-      result__VMIH=new_page__OA5();
+    if (((void *)result__OUIH == (void *)NULL)) {
+      result__OUIH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__VMIH,new_size__IADH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__VMIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__GADH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__VMIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__OUIH,new_size__MJDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__OUIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__KJDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__OUIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__BWNE=((void **)result__GADH);
-  Self__25XE=(__INTEGER)(nb_elements__WUIE -  1);
-  while ((Self__25XE >=  0)) {
-    Result__BWNE[Self__25XE]=NULL;
-    Self__25XE=(__INTEGER)(Self__25XE -  1);
+  Result__D0NE=((void **)result__KJDH);
+  Self__UEYE=(__INTEGER)(nb_elements__YYIE -  1);
+  while ((Self__UEYE >=  0)) {
+    Result__D0NE[Self__UEYE]=NULL;
+    Self__UEYE=(__INTEGER)(Self__UEYE -  1);
   };
-  return(Result__BWNE);
+  return(Result__D0NE);
 }
 
 static void** create__HRQB(__INTEGER nb_elements__JRQB)
 // ({INTEGER}) With resultNo recursive, No inlinable.
 {
-  __UINTEGER_32 sz__YADH,a__3ADH,new_size__ZADH,new_size2__0ADH,a__2CFH;
-  __UINTEGER_32 new_size__3CFH;
-  __POINTER result__XADH,ptr_table__ZMIH,next__YMIH,result__0MIH;
-  void *result__3MIH;
+  __UINTEGER_32 sz__2JDH,a__BKDH,new_size__3JDH,new_size2__4JDH,a__DLFH;
+  __UINTEGER_32 new_size__ELFH;
+  __POINTER result__1JDH,ptr_table__SUIH,next__RUIH,result__TUIH;
+  void *result__WUIH;
   __INTEGER Self__T0MC;
   void **Result__DLTB;
-  sz__YADH=((__UINTEGER_32 )(__INTEGER)(nb_elements__JRQB * ((__INTEGER )(sizeof(void *)))));
-  result__XADH=((__POINTER )(NULL));
-  a__3ADH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ZADH=(__UINTEGER_32)((__UINTEGER_32)(sz__YADH + a__3ADH) & (__UINTEGER_32)(~ a__3ADH));
-  new_size2__0ADH=(__UINTEGER_32)(new_size__ZADH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__0ADH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__2CFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__3CFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__0ADH + a__2CFH) & (__UINTEGER_32)(~ a__2CFH));
-    ptr_table__ZMIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3CFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__YMIH=((__POINTER )(NULL));
-    result__0MIH=((__POINTER *)ptr_table__ZMIH)[ 0];
-    if ((result__0MIH == (void *)NULL)) {
-      result__0MIH=new_lab__MRJ(new_size__3CFH);
-      next__YMIH=(void *)((unsigned long)result__0MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3CFH)));
-      ((__POINTER *)next__YMIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__ZMIH)[ 0]=next__YMIH;
-    } else {
-      next__YMIH=((__POINTER *)result__0MIH)[ 0];
-      if ((next__YMIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0MIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__3CFH <<  1)) <=  4096)) {
-          next__YMIH=(void *)((unsigned long)result__0MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3CFH)));
-        } else {
-          next__YMIH=new_lab__MRJ(new_size__3CFH);
-        };
-        ((__POINTER *)next__YMIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZMIH)[ 0]=next__YMIH;
-      } else {
-        ((__POINTER *)result__0MIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YMIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__0MIH=next__YMIH;
-      };
-    };
-    ((__POINTER *)result__0MIH)[ 0]=((__POINTER ) 3);
-    result__XADH=(void *)((unsigned long)result__0MIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
+  sz__2JDH=((__UINTEGER_32 )(__INTEGER)(nb_elements__JRQB * ((__INTEGER )(sizeof(void *)))));
+  result__1JDH=((__POINTER )(NULL));
+  a__BKDH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+  new_size__3JDH=(__UINTEGER_32)((__UINTEGER_32)(sz__2JDH + a__BKDH) & (__UINTEGER_32)(~ a__BKDH));
+  new_size2__4JDH=(__UINTEGER_32)(new_size__3JDH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
+  if ((new_size2__4JDH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
+    a__DLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+    new_size__ELFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4JDH + a__DLFH) & (__UINTEGER_32)(~ a__DLFH));
+    ptr_table__SUIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ELFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+    next__RUIH=((__POINTER )(NULL));
+    result__TUIH=((__POINTER *)ptr_table__SUIH)[ 0];
+    if ((result__TUIH == (void *)NULL)) {
+      result__TUIH=new_lab__MRJ(new_size__ELFH);
+      next__RUIH=(void *)((unsigned long)result__TUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ELFH)));
+      ((__POINTER *)next__RUIH)[ 0]=NULL;
+      ((__POINTER *)ptr_table__SUIH)[ 0]=next__RUIH;
+    } else {
+      next__RUIH=((__POINTER *)result__TUIH)[ 0];
+      if ((next__RUIH == (void *)NULL)) {
+        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TUIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ELFH <<  1)) <=  4096)) {
+          next__RUIH=(void *)((unsigned long)result__TUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ELFH)));
+        } else {
+          next__RUIH=new_lab__MRJ(new_size__ELFH);
+        };
+        ((__POINTER *)next__RUIH)[ 0]=NULL;
+        ((__POINTER *)ptr_table__SUIH)[ 0]=next__RUIH;
+      } else {
+        ((__POINTER *)result__TUIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+        result__TUIH=next__RUIH;
+      };
+    };
+    ((__POINTER *)result__TUIH)[ 0]=((__POINTER ) 3);
+    result__1JDH=(void *)((unsigned long)result__TUIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
   } else {
-    result__3MIH=first_free__XDVB;
-    while ((((void *)result__3MIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__3MIH)->map_size_and_id__ITB &  4294967292LU) < new_size__ZADH))) {
-      result__3MIH=((__MEMORY *)result__3MIH)->map_next_free__JTB;
+    result__WUIH=first_free__XDVB;
+    while ((((void *)result__WUIH != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__WUIH)->map_size_and_id__ITB &  4294967292LU) < new_size__3JDH))) {
+      result__WUIH=((__MEMORY *)result__WUIH)->map_next_free__JTB;
     };
-    if (((void *)result__3MIH == (void *)NULL)) {
-      result__3MIH=new_page__OA5();
+    if (((void *)result__WUIH == (void *)NULL)) {
+      result__WUIH=new_page__OA5();
     };
-    to_busy__index__TTFC(result__3MIH,new_size__ZADH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__3MIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
-    result__XADH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__3MIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
+    to_busy__index__TTFC(result__WUIH,new_size__3JDH,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__WUIH)) - (unsigned long)begin_memory__PVH)))) >>  26));
+    result__1JDH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__WUIH)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
   };
-  Result__DLTB=((void **)result__XADH);
+  Result__DLTB=((void **)result__1JDH);
   Self__T0MC=(__INTEGER)(nb_elements__JRQB -  1);
   while ((Self__T0MC >=  0)) {
     Result__DLTB[Self__T0MC]=NULL;
@@ -35942,13 +36068,13 @@ static void* read_argument__TOP(__PARSER *Self__UOP)
 // ({PARSER}) With resultNo recursive, No inlinable.
 {
   void *result__WOP;
-  __POSITION p__FMGH;
-  __ITM_READ *result__3LGH;
-  __POINTER ptr__4LGH,ptr_table__BNIH,next__ANIH,result__CNIH;
-  __POINTER ptr_table__GNIH,next__FNIH,result__HNIH;
-  __INTEGER typ_id__5LGH;
-  __UINTEGER_32 sz__AMGH,a__BMGH,new_size__CMGH,t__DMGH,a__EMGH;
-  __UINTEGER_32 new_size__JNIH,lab_type__INIH;
+  __POSITION p__SUGH;
+  __ITM_READ *result__KUGH;
+  __POINTER ptr__LUGH,ptr_table__0UIH,next__ZUIH,result__1UIH;
+  __POINTER ptr_table__5UIH,next__4UIH,result__AVIH;
+  __INTEGER typ_id__MUGH;
+  __UINTEGER_32 sz__NUGH,a__OUGH,new_size__PUGH,t__QUGH,a__RUGH;
+  __UINTEGER_32 new_size__CVIH,lab_type__BVIH;
   result__WOP=read_expr_primary__I4M(Self__UOP);
   if ((((void *)result__WOP == (void *)NULL) && read_identifier__LAL())) {
     if (is_shorter__5Y) {
@@ -35956,78 +36082,78 @@ static void* read_argument__TOP(__PARSER *Self__UOP)
         short__token__to__LBD((&__string_131),(__INTEGER)(position__SBC - ((__STRING_CONSTANT *)last_string__I0C)->count__DD),position__SBC);
       };
     };
-    p__FMGH=current_position__JXF();
-    result__3LGH=NULL;
-    ptr__4LGH=((__POINTER )(NULL));
-    typ_id__5LGH= 0;
-    sz__AMGH=((__UINTEGER_32 )sizeof(__ITM_READ));
-    if ((sz__AMGH ==  0)) {
-      result__3LGH=ITM_READ__;
-    } else {
-      typ_id__5LGH=-1;
-      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__AMGH);
-      if ((typ_id__5LGH == (__INTEGER)(-  1))) {
-        a__BMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__CMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AMGH + a__BMGH) & (__UINTEGER_32)(~ a__BMGH));
-        ptr_table__BNIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__ANIH=((__POINTER )(NULL));
-        result__CNIH=((__POINTER *)ptr_table__BNIH)[ 0];
-        if ((result__CNIH == (void *)NULL)) {
-          result__CNIH=new_lab__MRJ(new_size__CMGH);
-          next__ANIH=(void *)((unsigned long)result__CNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CMGH)));
-          ((__POINTER *)next__ANIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BNIH)[ 0]=next__ANIH;
-        } else {
-          next__ANIH=((__POINTER *)result__CNIH)[ 0];
-          if ((next__ANIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CNIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CMGH <<  1)) <=  4096)) {
-              next__ANIH=(void *)((unsigned long)result__CNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CMGH)));
+    p__SUGH=current_position__JXF();
+    result__KUGH=NULL;
+    ptr__LUGH=((__POINTER )(NULL));
+    typ_id__MUGH= 0;
+    sz__NUGH=((__UINTEGER_32 )sizeof(__ITM_READ));
+    if ((sz__NUGH ==  0)) {
+      result__KUGH=ITM_READ__;
+    } else {
+      typ_id__MUGH=-1;
+      clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__NUGH);
+      if ((typ_id__MUGH == (__INTEGER)(-  1))) {
+        a__OUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__PUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NUGH + a__OUGH) & (__UINTEGER_32)(~ a__OUGH));
+        ptr_table__0UIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__ZUIH=((__POINTER )(NULL));
+        result__1UIH=((__POINTER *)ptr_table__0UIH)[ 0];
+        if ((result__1UIH == (void *)NULL)) {
+          result__1UIH=new_lab__MRJ(new_size__PUGH);
+          next__ZUIH=(void *)((unsigned long)result__1UIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PUGH)));
+          ((__POINTER *)next__ZUIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__0UIH)[ 0]=next__ZUIH;
+        } else {
+          next__ZUIH=((__POINTER *)result__1UIH)[ 0];
+          if ((next__ZUIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1UIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__PUGH <<  1)) <=  4096)) {
+              next__ZUIH=(void *)((unsigned long)result__1UIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PUGH)));
             } else {
-              next__ANIH=new_lab__MRJ(new_size__CMGH);
-            };
-            ((__POINTER *)next__ANIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BNIH)[ 0]=next__ANIH;
-          } else {
-            ((__POINTER *)result__CNIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ANIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__CNIH=next__ANIH;
-          };
-        };
-        ptr__4LGH=result__CNIH;
-      } else {
-        t__DMGH=((__UINTEGER_32 )typ_id__5LGH);
-        a__EMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__JNIH=(__UINTEGER_32)((__UINTEGER_32)(sz__AMGH + a__EMGH) & (__UINTEGER_32)(~ a__EMGH));
-        ptr_table__GNIH=((__POINTER )(&(table_type[(t__DMGH)])));
-        lab_type__INIH=(__UINTEGER_32)(t__DMGH |  1);
-        next__FNIH=((__POINTER )(NULL));
-        result__HNIH=((__POINTER *)ptr_table__GNIH)[ 0];
-        if ((result__HNIH == (void *)NULL)) {
-          result__HNIH=new_lab__MRJ(lab_type__INIH);
-          next__FNIH=(void *)((unsigned long)result__HNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JNIH)));
-          ((__POINTER *)next__FNIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GNIH)[ 0]=next__FNIH;
-        } else {
-          next__FNIH=((__POINTER *)result__HNIH)[ 0];
-          if ((next__FNIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HNIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JNIH <<  1)) <=  4096)) {
-              next__FNIH=(void *)((unsigned long)result__HNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JNIH)));
+              next__ZUIH=new_lab__MRJ(new_size__PUGH);
+            };
+            ((__POINTER *)next__ZUIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__0UIH)[ 0]=next__ZUIH;
+          } else {
+            ((__POINTER *)result__1UIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZUIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__1UIH=next__ZUIH;
+          };
+        };
+        ptr__LUGH=result__1UIH;
+      } else {
+        t__QUGH=((__UINTEGER_32 )typ_id__MUGH);
+        a__RUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__CVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__NUGH + a__RUGH) & (__UINTEGER_32)(~ a__RUGH));
+        ptr_table__5UIH=((__POINTER )(&(table_type[(t__QUGH)])));
+        lab_type__BVIH=(__UINTEGER_32)(t__QUGH |  1);
+        next__4UIH=((__POINTER )(NULL));
+        result__AVIH=((__POINTER *)ptr_table__5UIH)[ 0];
+        if ((result__AVIH == (void *)NULL)) {
+          result__AVIH=new_lab__MRJ(lab_type__BVIH);
+          next__4UIH=(void *)((unsigned long)result__AVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVIH)));
+          ((__POINTER *)next__4UIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__5UIH)[ 0]=next__4UIH;
+        } else {
+          next__4UIH=((__POINTER *)result__AVIH)[ 0];
+          if ((next__4UIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CVIH <<  1)) <=  4096)) {
+              next__4UIH=(void *)((unsigned long)result__AVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVIH)));
             } else {
-              next__FNIH=new_lab__MRJ(lab_type__INIH);
+              next__4UIH=new_lab__MRJ(lab_type__BVIH);
             };
-            ((__POINTER *)next__FNIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GNIH)[ 0]=next__FNIH;
+            ((__POINTER *)next__4UIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__5UIH)[ 0]=next__4UIH;
           } else {
-            ((__POINTER *)result__HNIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__HNIH=next__FNIH;
+            ((__POINTER *)result__AVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4UIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__AVIH=next__4UIH;
           };
         };
-        ptr__4LGH=result__HNIH;
+        ptr__LUGH=result__AVIH;
       };
-      result__3LGH=((__ITM_READ *)ptr__4LGH);
-      *(result__3LGH) = *(ITM_READ__);
+      result__KUGH=((__ITM_READ *)ptr__LUGH);
+      *(result__KUGH) = *(ITM_READ__);
     };
-    ((__ITM_READ *)result__3LGH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__FMGH;
-    result__WOP=result__3LGH;
+    ((__ITM_READ *)result__KUGH)->parent_itm_code__QGJ.parent_itm_object__XDE.position__NDJ=p__SUGH;
+    result__WOP=result__KUGH;
   };
   return(result__WOP);
 }
@@ -36036,224 +36162,224 @@ static void* readlip_expr_binary__3N3B(__PARSER *Self__4N3B)
 // ({PARSER}) With resultNo recursive, No inlinable.
 {
   void *right__BO3B,*result__AO3B;
-  __POSITION pos__55YG,p__PMGH,p__2MGH;
-  __LIP_BINARY *result__GMGH,*Self__OMGH,*result__TMGH,*Self__1MGH;
-  __POINTER ptr__HMGH,ptr_table__RNIH,next__QNIH,result__SNIH;
-  __POINTER ptr_table__WNIH,next__VNIH,result__XNIH,ptr__UMGH;
-  __POINTER ptr_table__1NIH,next__0NIH,result__2NIH,ptr_table__AOIH;
-  __POINTER next__5NIH,result__BOIH;
-  __INTEGER typ_id__IMGH,typ_id__VMGH;
-  __UINTEGER_32 sz__JMGH,a__KMGH,new_size__LMGH,t__MMGH,a__NMGH;
-  __UINTEGER_32 new_size__ZNIH,lab_type__YNIH,sz__WMGH,a__XMGH;
-  __UINTEGER_32 new_size__YMGH,t__ZMGH,a__0MGH,new_size__DOIH;
-  __UINTEGER_32 lab_type__COIH;
-  __BOOLEAN result__KNIH,__tmp__WO3B,result__NNIH;
-  __CHARACTER result__LNIH,result__ONIH;
+  __POSITION pos__NJZG,p__2UGH,p__JVGH;
+  __LIP_BINARY *result__TUGH,*Self__1UGH,*result__AVGH,*Self__IVGH;
+  __POINTER ptr__UUGH,ptr_table__KVIH,next__JVIH,result__LVIH;
+  __POINTER ptr_table__PVIH,next__OVIH,result__QVIH,ptr__BVGH;
+  __POINTER ptr_table__UVIH,next__TVIH,result__VVIH,ptr_table__ZVIH;
+  __POINTER next__YVIH,result__0VIH;
+  __INTEGER typ_id__VUGH,typ_id__CVGH;
+  __UINTEGER_32 sz__WUGH,a__XUGH,new_size__YUGH,t__ZUGH,a__0UGH;
+  __UINTEGER_32 new_size__SVIH,lab_type__RVIH,sz__DVGH,a__EVGH;
+  __UINTEGER_32 new_size__FVGH,t__GVGH,a__HVGH,new_size__2VIH;
+  __UINTEGER_32 lab_type__1VIH;
+  __BOOLEAN result__DVIH,__tmp__WO3B,result__GVIH;
+  __CHARACTER result__EVIH,result__HVIH;
   right__BO3B=NULL;
   result__AO3B=readlip_expr_unary__4Z4B(Self__4N3B);
   if (((void *)result__AO3B != (void *)NULL)) {
     while_do__C45B:
     {
-      result__KNIH=FALSE__;
+      result__DVIH=FALSE__;
       if ((! read_space__3RD())) {
-        result__KNIH=FALSE__;
+        result__DVIH=FALSE__;
       } else {
-        result__LNIH='\0';
+        result__EVIH='\0';
         if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-          result__LNIH=((__CHARACTER )(( 0)));
+          result__EVIH=((__CHARACTER )(( 0)));
         } else {
-          result__LNIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+          result__EVIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
         };
-        if ((result__LNIH == '-')) {
+        if ((result__EVIH == '-')) {
           position__SBC=(__INTEGER)(position__SBC +  1);
-          result__KNIH=TRUE__;
+          result__DVIH=TRUE__;
         };
       };
-      if (result__KNIH) {
+      if (result__DVIH) {
         __tmp__WO3B=TRUE__;
       } else {
-        result__NNIH=FALSE__;
+        result__GVIH=FALSE__;
         if ((! read_space__3RD())) {
-          result__NNIH=FALSE__;
+          result__GVIH=FALSE__;
         } else {
-          result__ONIH='\0';
+          result__HVIH='\0';
           if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-            result__ONIH=((__CHARACTER )(( 0)));
+            result__HVIH=((__CHARACTER )(( 0)));
           } else {
-            result__ONIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+            result__HVIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
           };
-          if ((result__ONIH == '+')) {
+          if ((result__HVIH == '+')) {
             position__SBC=(__INTEGER)(position__SBC +  1);
-            result__NNIH=TRUE__;
+            result__GVIH=TRUE__;
           };
         };
-        __tmp__WO3B=result__NNIH;
+        __tmp__WO3B=result__GVIH;
       };
       if (__tmp__WO3B) {
         right__BO3B=readlip_expr_unary__4Z4B(Self__4N3B);
         if (((void *)right__BO3B == (void *)NULL)) {
-          pos__55YG=current_position__JXF();
-          put_error__text__KNG( 0,(&__string_237));
-          put_position__UOG(pos__55YG);
+          pos__NJZG=current_position__JXF();
+          put_error__text__KNG( 0,(&__string_240));
+          put_position__UOG(pos__NJZG);
           put_string__U1F(msg_err__PNG);
           if ((type_error__ONG !=  2)) {
             exit(( 1));
           };
         };
-        if (result__KNIH) {
-          p__PMGH=current_position__JXF();
-          result__GMGH=NULL;
-          ptr__HMGH=((__POINTER )(NULL));
-          typ_id__IMGH= 0;
-          sz__JMGH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__JMGH ==  0)) {
-            result__GMGH=LIP_BINARY__;
-          } else {
-            typ_id__IMGH=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__JMGH);
-            if ((typ_id__IMGH == (__INTEGER)(-  1))) {
-              a__KMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__LMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__JMGH + a__KMGH) & (__UINTEGER_32)(~ a__KMGH));
-              ptr_table__RNIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__QNIH=((__POINTER )(NULL));
-              result__SNIH=((__POINTER *)ptr_table__RNIH)[ 0];
-              if ((result__SNIH == (void *)NULL)) {
-                result__SNIH=new_lab__MRJ(new_size__LMGH);
-                next__QNIH=(void *)((unsigned long)result__SNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LMGH)));
-                ((__POINTER *)next__QNIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__RNIH)[ 0]=next__QNIH;
+        if (result__DVIH) {
+          p__2UGH=current_position__JXF();
+          result__TUGH=NULL;
+          ptr__UUGH=((__POINTER )(NULL));
+          typ_id__VUGH= 0;
+          sz__WUGH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
+          if ((sz__WUGH ==  0)) {
+            result__TUGH=LIP_BINARY__;
+          } else {
+            typ_id__VUGH=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__WUGH);
+            if ((typ_id__VUGH == (__INTEGER)(-  1))) {
+              a__XUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__YUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__WUGH + a__XUGH) & (__UINTEGER_32)(~ a__XUGH));
+              ptr_table__KVIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__JVIH=((__POINTER )(NULL));
+              result__LVIH=((__POINTER *)ptr_table__KVIH)[ 0];
+              if ((result__LVIH == (void *)NULL)) {
+                result__LVIH=new_lab__MRJ(new_size__YUGH);
+                next__JVIH=(void *)((unsigned long)result__LVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YUGH)));
+                ((__POINTER *)next__JVIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__KVIH)[ 0]=next__JVIH;
               } else {
-                next__QNIH=((__POINTER *)result__SNIH)[ 0];
-                if ((next__QNIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SNIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LMGH <<  1)) <=  4096)) {
-                    next__QNIH=(void *)((unsigned long)result__SNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LMGH)));
+                next__JVIH=((__POINTER *)result__LVIH)[ 0];
+                if ((next__JVIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YUGH <<  1)) <=  4096)) {
+                    next__JVIH=(void *)((unsigned long)result__LVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YUGH)));
                   } else {
-                    next__QNIH=new_lab__MRJ(new_size__LMGH);
+                    next__JVIH=new_lab__MRJ(new_size__YUGH);
                   };
-                  ((__POINTER *)next__QNIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__RNIH)[ 0]=next__QNIH;
+                  ((__POINTER *)next__JVIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__KVIH)[ 0]=next__JVIH;
                 } else {
-                  ((__POINTER *)result__SNIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__SNIH=next__QNIH;
+                  ((__POINTER *)result__LVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__LVIH=next__JVIH;
                 };
               };
-              ptr__HMGH=result__SNIH;
+              ptr__UUGH=result__LVIH;
             } else {
-              t__MMGH=((__UINTEGER_32 )typ_id__IMGH);
-              a__NMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__ZNIH=(__UINTEGER_32)((__UINTEGER_32)(sz__JMGH + a__NMGH) & (__UINTEGER_32)(~ a__NMGH));
-              ptr_table__WNIH=((__POINTER )(&(table_type[(t__MMGH)])));
-              lab_type__YNIH=(__UINTEGER_32)(t__MMGH |  1);
-              next__VNIH=((__POINTER )(NULL));
-              result__XNIH=((__POINTER *)ptr_table__WNIH)[ 0];
-              if ((result__XNIH == (void *)NULL)) {
-                result__XNIH=new_lab__MRJ(lab_type__YNIH);
-                next__VNIH=(void *)((unsigned long)result__XNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZNIH)));
-                ((__POINTER *)next__VNIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__WNIH)[ 0]=next__VNIH;
+              t__ZUGH=((__UINTEGER_32 )typ_id__VUGH);
+              a__0UGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__SVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WUGH + a__0UGH) & (__UINTEGER_32)(~ a__0UGH));
+              ptr_table__PVIH=((__POINTER )(&(table_type[(t__ZUGH)])));
+              lab_type__RVIH=(__UINTEGER_32)(t__ZUGH |  1);
+              next__OVIH=((__POINTER )(NULL));
+              result__QVIH=((__POINTER *)ptr_table__PVIH)[ 0];
+              if ((result__QVIH == (void *)NULL)) {
+                result__QVIH=new_lab__MRJ(lab_type__RVIH);
+                next__OVIH=(void *)((unsigned long)result__QVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SVIH)));
+                ((__POINTER *)next__OVIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__PVIH)[ 0]=next__OVIH;
               } else {
-                next__VNIH=((__POINTER *)result__XNIH)[ 0];
-                if ((next__VNIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XNIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZNIH <<  1)) <=  4096)) {
-                    next__VNIH=(void *)((unsigned long)result__XNIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZNIH)));
+                next__OVIH=((__POINTER *)result__QVIH)[ 0];
+                if ((next__OVIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SVIH <<  1)) <=  4096)) {
+                    next__OVIH=(void *)((unsigned long)result__QVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SVIH)));
                   } else {
-                    next__VNIH=new_lab__MRJ(lab_type__YNIH);
+                    next__OVIH=new_lab__MRJ(lab_type__RVIH);
                   };
-                  ((__POINTER *)next__VNIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__WNIH)[ 0]=next__VNIH;
+                  ((__POINTER *)next__OVIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__PVIH)[ 0]=next__OVIH;
                 } else {
-                  ((__POINTER *)result__XNIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VNIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__XNIH=next__VNIH;
+                  ((__POINTER *)result__QVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__QVIH=next__OVIH;
                 };
               };
-              ptr__HMGH=result__XNIH;
-            };
-            result__GMGH=((__LIP_BINARY *)ptr__HMGH);
-            *(result__GMGH) = *(LIP_BINARY__);
-          };
-          Self__OMGH=((__LIP_BINARY *)result__GMGH);
-          Self__OMGH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__PMGH;
-          Self__OMGH->left__MZQD=result__AO3B;
-          Self__OMGH->right__PZQD=right__BO3B;
-          Self__OMGH->operator__SZQD='-';
-          result__AO3B=result__GMGH;
-        } else {
-          p__2MGH=current_position__JXF();
-          result__TMGH=NULL;
-          ptr__UMGH=((__POINTER )(NULL));
-          typ_id__VMGH= 0;
-          sz__WMGH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__WMGH ==  0)) {
-            result__TMGH=LIP_BINARY__;
-          } else {
-            typ_id__VMGH=-1;
-            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__WMGH);
-            if ((typ_id__VMGH == (__INTEGER)(-  1))) {
-              a__XMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__YMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__WMGH + a__XMGH) & (__UINTEGER_32)(~ a__XMGH));
-              ptr_table__1NIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__0NIH=((__POINTER )(NULL));
-              result__2NIH=((__POINTER *)ptr_table__1NIH)[ 0];
-              if ((result__2NIH == (void *)NULL)) {
-                result__2NIH=new_lab__MRJ(new_size__YMGH);
-                next__0NIH=(void *)((unsigned long)result__2NIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YMGH)));
-                ((__POINTER *)next__0NIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__1NIH)[ 0]=next__0NIH;
+              ptr__UUGH=result__QVIH;
+            };
+            result__TUGH=((__LIP_BINARY *)ptr__UUGH);
+            *(result__TUGH) = *(LIP_BINARY__);
+          };
+          Self__1UGH=((__LIP_BINARY *)result__TUGH);
+          Self__1UGH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__2UGH;
+          Self__1UGH->left__MZQD=result__AO3B;
+          Self__1UGH->right__PZQD=right__BO3B;
+          Self__1UGH->operator__SZQD='-';
+          result__AO3B=result__TUGH;
+        } else {
+          p__JVGH=current_position__JXF();
+          result__AVGH=NULL;
+          ptr__BVGH=((__POINTER )(NULL));
+          typ_id__CVGH= 0;
+          sz__DVGH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
+          if ((sz__DVGH ==  0)) {
+            result__AVGH=LIP_BINARY__;
+          } else {
+            typ_id__CVGH=-1;
+            clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__DVGH);
+            if ((typ_id__CVGH == (__INTEGER)(-  1))) {
+              a__EVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__FVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__DVGH + a__EVGH) & (__UINTEGER_32)(~ a__EVGH));
+              ptr_table__UVIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FVGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+              next__TVIH=((__POINTER )(NULL));
+              result__VVIH=((__POINTER *)ptr_table__UVIH)[ 0];
+              if ((result__VVIH == (void *)NULL)) {
+                result__VVIH=new_lab__MRJ(new_size__FVGH);
+                next__TVIH=(void *)((unsigned long)result__VVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FVGH)));
+                ((__POINTER *)next__TVIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__UVIH)[ 0]=next__TVIH;
               } else {
-                next__0NIH=((__POINTER *)result__2NIH)[ 0];
-                if ((next__0NIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2NIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__YMGH <<  1)) <=  4096)) {
-                    next__0NIH=(void *)((unsigned long)result__2NIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YMGH)));
+                next__TVIH=((__POINTER *)result__VVIH)[ 0];
+                if ((next__TVIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VVIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__FVGH <<  1)) <=  4096)) {
+                    next__TVIH=(void *)((unsigned long)result__VVIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FVGH)));
                   } else {
-                    next__0NIH=new_lab__MRJ(new_size__YMGH);
+                    next__TVIH=new_lab__MRJ(new_size__FVGH);
                   };
-                  ((__POINTER *)next__0NIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__1NIH)[ 0]=next__0NIH;
+                  ((__POINTER *)next__TVIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__UVIH)[ 0]=next__TVIH;
                 } else {
-                  ((__POINTER *)result__2NIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0NIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__2NIH=next__0NIH;
+                  ((__POINTER *)result__VVIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__VVIH=next__TVIH;
                 };
               };
-              ptr__UMGH=result__2NIH;
+              ptr__BVGH=result__VVIH;
             } else {
-              t__ZMGH=((__UINTEGER_32 )typ_id__VMGH);
-              a__0MGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__DOIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WMGH + a__0MGH) & (__UINTEGER_32)(~ a__0MGH));
-              ptr_table__AOIH=((__POINTER )(&(table_type[(t__ZMGH)])));
-              lab_type__COIH=(__UINTEGER_32)(t__ZMGH |  1);
-              next__5NIH=((__POINTER )(NULL));
-              result__BOIH=((__POINTER *)ptr_table__AOIH)[ 0];
-              if ((result__BOIH == (void *)NULL)) {
-                result__BOIH=new_lab__MRJ(lab_type__COIH);
-                next__5NIH=(void *)((unsigned long)result__BOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DOIH)));
-                ((__POINTER *)next__5NIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__AOIH)[ 0]=next__5NIH;
+              t__GVGH=((__UINTEGER_32 )typ_id__CVGH);
+              a__HVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+              new_size__2VIH=(__UINTEGER_32)((__UINTEGER_32)(sz__DVGH + a__HVGH) & (__UINTEGER_32)(~ a__HVGH));
+              ptr_table__ZVIH=((__POINTER )(&(table_type[(t__GVGH)])));
+              lab_type__1VIH=(__UINTEGER_32)(t__GVGH |  1);
+              next__YVIH=((__POINTER )(NULL));
+              result__0VIH=((__POINTER *)ptr_table__ZVIH)[ 0];
+              if ((result__0VIH == (void *)NULL)) {
+                result__0VIH=new_lab__MRJ(lab_type__1VIH);
+                next__YVIH=(void *)((unsigned long)result__0VIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2VIH)));
+                ((__POINTER *)next__YVIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__ZVIH)[ 0]=next__YVIH;
               } else {
-                next__5NIH=((__POINTER *)result__BOIH)[ 0];
-                if ((next__5NIH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BOIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DOIH <<  1)) <=  4096)) {
-                    next__5NIH=(void *)((unsigned long)result__BOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DOIH)));
+                next__YVIH=((__POINTER *)result__0VIH)[ 0];
+                if ((next__YVIH == (void *)NULL)) {
+                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0VIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2VIH <<  1)) <=  4096)) {
+                    next__YVIH=(void *)((unsigned long)result__0VIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2VIH)));
                   } else {
-                    next__5NIH=new_lab__MRJ(lab_type__COIH);
+                    next__YVIH=new_lab__MRJ(lab_type__1VIH);
                   };
-                  ((__POINTER *)next__5NIH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__AOIH)[ 0]=next__5NIH;
+                  ((__POINTER *)next__YVIH)[ 0]=NULL;
+                  ((__POINTER *)ptr_table__ZVIH)[ 0]=next__YVIH;
                 } else {
-                  ((__POINTER *)result__BOIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5NIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__BOIH=next__5NIH;
+                  ((__POINTER *)result__0VIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YVIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                  result__0VIH=next__YVIH;
                 };
               };
-              ptr__UMGH=result__BOIH;
+              ptr__BVGH=result__0VIH;
             };
-            result__TMGH=((__LIP_BINARY *)ptr__UMGH);
-            *(result__TMGH) = *(LIP_BINARY__);
+            result__AVGH=((__LIP_BINARY *)ptr__BVGH);
+            *(result__AVGH) = *(LIP_BINARY__);
           };
-          Self__1MGH=((__LIP_BINARY *)result__TMGH);
-          Self__1MGH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__2MGH;
-          Self__1MGH->left__MZQD=result__AO3B;
-          Self__1MGH->right__PZQD=right__BO3B;
-          Self__1MGH->operator__SZQD='+';
-          result__AO3B=result__TMGH;
+          Self__IVGH=((__LIP_BINARY *)result__AVGH);
+          Self__IVGH->parent_lip_code__2PZB.parent_itm_object__5DE.position__NDJ=p__JVGH;
+          Self__IVGH->left__MZQD=result__AO3B;
+          Self__IVGH->right__PZQD=right__BO3B;
+          Self__IVGH->operator__SZQD='+';
+          result__AO3B=result__AVGH;
         };
         goto while_do__C45B;
       };
@@ -36265,75 +36391,75 @@ static void* readlip_expr_binary__3N3B(__PARSER *Self__4N3B)
 static void* readlip_expr_unary__4Z4B(__PARSER *Self__5Z4B)
 // ({PARSER}) With resultRecursive, No inlinable.
 {
-  void *result__B04B,*result__WBFE;
-  void *nam__E04B,*n__4OIH;
-  __POSITION pos__RBZG,p__G5ZC,p__3OIH,p__JCFE;
+  void *result__B04B,*result__YFFE;
+  void *nam__E04B,*n__XWIH;
+  __POSITION pos__5KZG,p__G5ZC,p__WWIH,p__LGFE;
   __LIP_UNARY *result__2NBD,*Self__YHSD;
-  __POINTER ptr__3NBD,ptr_table__LOIH,next__KOIH,result__MOIH;
-  __POINTER ptr_table__QOIH,next__POIH,result__ROIH,ptr__VOIH;
-  __POINTER ptr_table__BPIH,next__APIH,result__CPIH,ptr_table__GPIH;
-  __POINTER next__FPIH,result__HPIH,ptr__UTLE,ptr_table__LPIH;
-  __POINTER next__KPIH,result__MPIH,ptr_table__QPIH,next__PPIH;
-  __POINTER result__RPIH;
-  __INTEGER typ_id__COBD,typ_id__WOIH,typ_id__ZTLE;
-  __UINTEGER_32 sz__5NBD,a__DDFH,new_size__EDFH,t__IDFH,a__HDFH;
-  __UINTEGER_32 new_size__TOIH,lab_type__SOIH,sz__XOIH,a__YOIH;
-  __UINTEGER_32 new_size__ZOIH,t__0OIH,a__1OIH,new_size__JPIH;
-  __UINTEGER_32 lab_type__IPIH,sz__WTLE,a__LDFH,new_size__MDFH,t__QDFH;
-  __UINTEGER_32 a__PDFH,new_size__TPIH,lab_type__SPIH;
-  __LIP_CALL *result__UOIH,*Self__2OIH,*result__TTLE,*Self__21VE;
-  __CHARACTER type__D04B,result__FOIH,result__IOIH;
-  __BOOLEAN result__EOIH,__tmp__P04B,result__HOIH,__tmp__P14B;
+  __POINTER ptr__3NBD,ptr_table__EWIH,next__DWIH,result__FWIH;
+  __POINTER ptr_table__JWIH,next__IWIH,result__KWIH,ptr__OWIH;
+  __POINTER ptr_table__0WIH,next__ZWIH,result__1WIH,ptr_table__5WIH;
+  __POINTER next__4WIH,result__AXIH,ptr__WXLE,ptr_table__EXIH;
+  __POINTER next__DXIH,result__FXIH,ptr_table__JXIH,next__IXIH;
+  __POINTER result__KXIH;
+  __INTEGER typ_id__COBD,typ_id__PWIH,typ_id__1XLE;
+  __UINTEGER_32 sz__5NBD,a__KLFH,new_size__LLFH,t__PLFH,a__OLFH;
+  __UINTEGER_32 new_size__MWIH,lab_type__LWIH,sz__QWIH,a__RWIH;
+  __UINTEGER_32 new_size__SWIH,t__TWIH,a__UWIH,new_size__CXIH;
+  __UINTEGER_32 lab_type__BXIH,sz__YXLE,a__SLFH,new_size__TLFH,t__XLFH;
+  __UINTEGER_32 a__WLFH,new_size__MXIH,lab_type__LXIH;
+  __LIP_CALL *result__NWIH,*Self__VWIH,*result__VXLE,*Self__QAWE;
+  __CHARACTER type__D04B,result__4VIH,result__BWIH;
+  __BOOLEAN result__3VIH,__tmp__P04B,result__AWIH,__tmp__P14B;
   result__B04B=NULL;
   type__D04B='\0';
   nam__E04B=NULL;
-  result__EOIH=FALSE__;
+  result__3VIH=FALSE__;
   if ((! read_space__3RD())) {
-    result__EOIH=FALSE__;
+    result__3VIH=FALSE__;
   } else {
-    result__FOIH='\0';
+    result__4VIH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__FOIH=((__CHARACTER )(( 0)));
+      result__4VIH=((__CHARACTER )(( 0)));
     } else {
-      result__FOIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__4VIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__FOIH == '-')) {
+    if ((result__4VIH == '-')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__EOIH=TRUE__;
+      result__3VIH=TRUE__;
     };
   };
-  if (result__EOIH) {
+  if (result__3VIH) {
     __tmp__P04B=TRUE__;
   } else {
-    result__HOIH=FALSE__;
+    result__AWIH=FALSE__;
     if ((! read_space__3RD())) {
-      result__HOIH=FALSE__;
+      result__AWIH=FALSE__;
     } else {
-      result__IOIH='\0';
+      result__BWIH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__IOIH=((__CHARACTER )(( 0)));
+        result__BWIH=((__CHARACTER )(( 0)));
       } else {
-        result__IOIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__BWIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__IOIH == '!')) {
+      if ((result__BWIH == '!')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__HOIH=TRUE__;
+        result__AWIH=TRUE__;
       };
     };
-    __tmp__P04B=result__HOIH;
+    __tmp__P04B=result__AWIH;
   };
   if (__tmp__P04B) {
     result__B04B=readlip_expr_unary__4Z4B(Self__5Z4B);
     if (((void *)result__B04B == (void *)NULL)) {
-      pos__RBZG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_237));
-      put_position__UOG(pos__RBZG);
+      pos__5KZG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_240));
+      put_position__UOG(pos__5KZG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
-    if (result__EOIH) {
+    if (result__3VIH) {
       type__D04B='-';
     } else {
       type__D04B='!';
@@ -36349,61 +36475,61 @@ static void* readlip_expr_unary__4Z4B(__PARSER *Self__5Z4B)
       typ_id__COBD=-1;
       clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__5NBD);
       if ((typ_id__COBD == (__INTEGER)(-  1))) {
-        a__DDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__EDFH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NBD + a__DDFH) & (__UINTEGER_32)(~ a__DDFH));
-        ptr_table__LOIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EDFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__KOIH=((__POINTER )(NULL));
-        result__MOIH=((__POINTER *)ptr_table__LOIH)[ 0];
-        if ((result__MOIH == (void *)NULL)) {
-          result__MOIH=new_lab__MRJ(new_size__EDFH);
-          next__KOIH=(void *)((unsigned long)result__MOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EDFH)));
-          ((__POINTER *)next__KOIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LOIH)[ 0]=next__KOIH;
-        } else {
-          next__KOIH=((__POINTER *)result__MOIH)[ 0];
-          if ((next__KOIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MOIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__EDFH <<  1)) <=  4096)) {
-              next__KOIH=(void *)((unsigned long)result__MOIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EDFH)));
+        a__KLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__LLFH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NBD + a__KLFH) & (__UINTEGER_32)(~ a__KLFH));
+        ptr_table__EWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LLFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+        next__DWIH=((__POINTER )(NULL));
+        result__FWIH=((__POINTER *)ptr_table__EWIH)[ 0];
+        if ((result__FWIH == (void *)NULL)) {
+          result__FWIH=new_lab__MRJ(new_size__LLFH);
+          next__DWIH=(void *)((unsigned long)result__FWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LLFH)));
+          ((__POINTER *)next__DWIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__EWIH)[ 0]=next__DWIH;
+        } else {
+          next__DWIH=((__POINTER *)result__FWIH)[ 0];
+          if ((next__DWIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__LLFH <<  1)) <=  4096)) {
+              next__DWIH=(void *)((unsigned long)result__FWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LLFH)));
             } else {
-              next__KOIH=new_lab__MRJ(new_size__EDFH);
-            };
-            ((__POINTER *)next__KOIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__LOIH)[ 0]=next__KOIH;
-          } else {
-            ((__POINTER *)result__MOIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KOIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__MOIH=next__KOIH;
-          };
-        };
-        ptr__3NBD=result__MOIH;
-      } else {
-        t__IDFH=((__UINTEGER_32 )typ_id__COBD);
-        a__HDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__TOIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NBD + a__HDFH) & (__UINTEGER_32)(~ a__HDFH));
-        ptr_table__QOIH=((__POINTER )(&(table_type[(t__IDFH)])));
-        lab_type__SOIH=(__UINTEGER_32)(t__IDFH |  1);
-        next__POIH=((__POINTER )(NULL));
-        result__ROIH=((__POINTER *)ptr_table__QOIH)[ 0];
-        if ((result__ROIH == (void *)NULL)) {
-          result__ROIH=new_lab__MRJ(lab_type__SOIH);
-          next__POIH=(void *)((unsigned long)result__ROIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TOIH)));
-          ((__POINTER *)next__POIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QOIH)[ 0]=next__POIH;
-        } else {
-          next__POIH=((__POINTER *)result__ROIH)[ 0];
-          if ((next__POIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ROIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TOIH <<  1)) <=  4096)) {
-              next__POIH=(void *)((unsigned long)result__ROIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TOIH)));
+              next__DWIH=new_lab__MRJ(new_size__LLFH);
+            };
+            ((__POINTER *)next__DWIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__EWIH)[ 0]=next__DWIH;
+          } else {
+            ((__POINTER *)result__FWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__FWIH=next__DWIH;
+          };
+        };
+        ptr__3NBD=result__FWIH;
+      } else {
+        t__PLFH=((__UINTEGER_32 )typ_id__COBD);
+        a__OLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+        new_size__MWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NBD + a__OLFH) & (__UINTEGER_32)(~ a__OLFH));
+        ptr_table__JWIH=((__POINTER )(&(table_type[(t__PLFH)])));
+        lab_type__LWIH=(__UINTEGER_32)(t__PLFH |  1);
+        next__IWIH=((__POINTER )(NULL));
+        result__KWIH=((__POINTER *)ptr_table__JWIH)[ 0];
+        if ((result__KWIH == (void *)NULL)) {
+          result__KWIH=new_lab__MRJ(lab_type__LWIH);
+          next__IWIH=(void *)((unsigned long)result__KWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MWIH)));
+          ((__POINTER *)next__IWIH)[ 0]=NULL;
+          ((__POINTER *)ptr_table__JWIH)[ 0]=next__IWIH;
+        } else {
+          next__IWIH=((__POINTER *)result__KWIH)[ 0];
+          if ((next__IWIH == (void *)NULL)) {
+            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KWIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MWIH <<  1)) <=  4096)) {
+              next__IWIH=(void *)((unsigned long)result__KWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MWIH)));
             } else {
-              next__POIH=new_lab__MRJ(lab_type__SOIH);
+              next__IWIH=new_lab__MRJ(lab_type__LWIH);
             };
-            ((__POINTER *)next__POIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__QOIH)[ 0]=next__POIH;
+            ((__POINTER *)next__IWIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__JWIH)[ 0]=next__IWIH;
           } else {
-            ((__POINTER *)result__ROIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__POIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__ROIH=next__POIH;
+            ((__POINTER *)result__KWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+            result__KWIH=next__IWIH;
           };
         };
-        ptr__3NBD=result__ROIH;
+        ptr__3NBD=result__KWIH;
       };
       result__2NBD=((__LIP_UNARY *)ptr__3NBD);
       *(result__2NBD) = *(LIP_UNARY__);
@@ -36420,267 +36546,267 @@ static void* readlip_expr_unary__4Z4B(__PARSER *Self__5Z4B)
   if ((! __tmp__P14B)) {
     if (read_identifier__LAL()) {
       nam__E04B=last_string__I0C;
-      result__WBFE=NULL;
+      result__YFFE=NULL;
       if (read_identifier__LAL()) {
-        p__3OIH=current_position__JXF();
-        n__4OIH=last_string__I0C;
-        result__UOIH=NULL;
-        ptr__VOIH=((__POINTER )(NULL));
-        typ_id__WOIH= 0;
-        sz__XOIH=((__UINTEGER_32 )sizeof(__LIP_CALL));
-        if ((sz__XOIH ==  0)) {
-          result__UOIH=LIP_CALL__;
-        } else {
-          typ_id__WOIH=-1;
-          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__XOIH);
-          if ((typ_id__WOIH == (__INTEGER)(-  1))) {
-            a__YOIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ZOIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XOIH + a__YOIH) & (__UINTEGER_32)(~ a__YOIH));
-            ptr_table__BPIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZOIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__APIH=((__POINTER )(NULL));
-            result__CPIH=((__POINTER *)ptr_table__BPIH)[ 0];
-            if ((result__CPIH == (void *)NULL)) {
-              result__CPIH=new_lab__MRJ(new_size__ZOIH);
-              next__APIH=(void *)((unsigned long)result__CPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZOIH)));
-              ((__POINTER *)next__APIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__BPIH)[ 0]=next__APIH;
+        p__WWIH=current_position__JXF();
+        n__XWIH=last_string__I0C;
+        result__NWIH=NULL;
+        ptr__OWIH=((__POINTER )(NULL));
+        typ_id__PWIH= 0;
+        sz__QWIH=((__UINTEGER_32 )sizeof(__LIP_CALL));
+        if ((sz__QWIH ==  0)) {
+          result__NWIH=LIP_CALL__;
+        } else {
+          typ_id__PWIH=-1;
+          clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__QWIH);
+          if ((typ_id__PWIH == (__INTEGER)(-  1))) {
+            a__RWIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__SWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__QWIH + a__RWIH) & (__UINTEGER_32)(~ a__RWIH));
+            ptr_table__0WIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SWIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+            next__ZWIH=((__POINTER )(NULL));
+            result__1WIH=((__POINTER *)ptr_table__0WIH)[ 0];
+            if ((result__1WIH == (void *)NULL)) {
+              result__1WIH=new_lab__MRJ(new_size__SWIH);
+              next__ZWIH=(void *)((unsigned long)result__1WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SWIH)));
+              ((__POINTER *)next__ZWIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__0WIH)[ 0]=next__ZWIH;
             } else {
-              next__APIH=((__POINTER *)result__CPIH)[ 0];
-              if ((next__APIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CPIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__ZOIH <<  1)) <=  4096)) {
-                  next__APIH=(void *)((unsigned long)result__CPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZOIH)));
+              next__ZWIH=((__POINTER *)result__1WIH)[ 0];
+              if ((next__ZWIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1WIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__SWIH <<  1)) <=  4096)) {
+                  next__ZWIH=(void *)((unsigned long)result__1WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SWIH)));
                 } else {
-                  next__APIH=new_lab__MRJ(new_size__ZOIH);
+                  next__ZWIH=new_lab__MRJ(new_size__SWIH);
                 };
-                ((__POINTER *)next__APIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__BPIH)[ 0]=next__APIH;
+                ((__POINTER *)next__ZWIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__0WIH)[ 0]=next__ZWIH;
               } else {
-                ((__POINTER *)result__CPIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__APIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__CPIH=next__APIH;
+                ((__POINTER *)result__1WIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__1WIH=next__ZWIH;
               };
             };
-            ptr__VOIH=result__CPIH;
-          } else {
-            t__0OIH=((__UINTEGER_32 )typ_id__WOIH);
-            a__1OIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__JPIH=(__UINTEGER_32)((__UINTEGER_32)(sz__XOIH + a__1OIH) & (__UINTEGER_32)(~ a__1OIH));
-            ptr_table__GPIH=((__POINTER )(&(table_type[(t__0OIH)])));
-            lab_type__IPIH=(__UINTEGER_32)(t__0OIH |  1);
-            next__FPIH=((__POINTER )(NULL));
-            result__HPIH=((__POINTER *)ptr_table__GPIH)[ 0];
-            if ((result__HPIH == (void *)NULL)) {
-              result__HPIH=new_lab__MRJ(lab_type__IPIH);
-              next__FPIH=(void *)((unsigned long)result__HPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JPIH)));
-              ((__POINTER *)next__FPIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__GPIH)[ 0]=next__FPIH;
+            ptr__OWIH=result__1WIH;
+          } else {
+            t__TWIH=((__UINTEGER_32 )typ_id__PWIH);
+            a__UWIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+            new_size__CXIH=(__UINTEGER_32)((__UINTEGER_32)(sz__QWIH + a__UWIH) & (__UINTEGER_32)(~ a__UWIH));
+            ptr_table__5WIH=((__POINTER )(&(table_type[(t__TWIH)])));
+            lab_type__BXIH=(__UINTEGER_32)(t__TWIH |  1);
+            next__4WIH=((__POINTER )(NULL));
+            result__AXIH=((__POINTER *)ptr_table__5WIH)[ 0];
+            if ((result__AXIH == (void *)NULL)) {
+              result__AXIH=new_lab__MRJ(lab_type__BXIH);
+              next__4WIH=(void *)((unsigned long)result__AXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXIH)));
+              ((__POINTER *)next__4WIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__5WIH)[ 0]=next__4WIH;
             } else {
-              next__FPIH=((__POINTER *)result__HPIH)[ 0];
-              if ((next__FPIH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HPIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__JPIH <<  1)) <=  4096)) {
-                  next__FPIH=(void *)((unsigned long)result__HPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JPIH)));
+              next__4WIH=((__POINTER *)result__AXIH)[ 0];
+              if ((next__4WIH == (void *)NULL)) {
+                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__CXIH <<  1)) <=  4096)) {
+                  next__4WIH=(void *)((unsigned long)result__AXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXIH)));
                 } else {
-                  next__FPIH=new_lab__MRJ(lab_type__IPIH);
+                  next__4WIH=new_lab__MRJ(lab_type__BXIH);
                 };
-                ((__POINTER *)next__FPIH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GPIH)[ 0]=next__FPIH;
+                ((__POINTER *)next__4WIH)[ 0]=NULL;
+                ((__POINTER *)ptr_table__5WIH)[ 0]=next__4WIH;
               } else {
-                ((__POINTER *)result__HPIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FPIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__HPIH=next__FPIH;
+                ((__POINTER *)result__AXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4WIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+                result__AXIH=next__4WIH;
               };
             };
-            ptr__VOIH=result__HPIH;
-          };
-          result__UOIH=((__LIP_CALL *)ptr__VOIH);
-          *(result__UOIH) = *(LIP_CALL__);
-        };
-        Self__2OIH=((__LIP_CALL *)result__UOIH);
-        Self__2OIH->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ=p__3OIH;
-        Self__2OIH->name__S1TE=n__4OIH;
-        Self__2OIH->argument__H1TE=NULL;
-        result__WBFE=result__UOIH;
-      } else {
-        result__WBFE=readlip_expr_base__PCFE(Self__5Z4B);
-      };
-      p__JCFE=current_position__JXF();
-      result__TTLE=NULL;
-      ptr__UTLE=((__POINTER )(NULL));
-      typ_id__ZTLE= 0;
-      sz__WTLE=((__UINTEGER_32 )sizeof(__LIP_CALL));
-      if ((sz__WTLE ==  0)) {
-        result__TTLE=LIP_CALL__;
-      } else {
-        typ_id__ZTLE=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__WTLE);
-        if ((typ_id__ZTLE == (__INTEGER)(-  1))) {
-          a__LDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__MDFH=(__UINTEGER_32)((__UINTEGER_32)(sz__WTLE + a__LDFH) & (__UINTEGER_32)(~ a__LDFH));
-          ptr_table__LPIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MDFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__KPIH=((__POINTER )(NULL));
-          result__MPIH=((__POINTER *)ptr_table__LPIH)[ 0];
-          if ((result__MPIH == (void *)NULL)) {
-            result__MPIH=new_lab__MRJ(new_size__MDFH);
-            next__KPIH=(void *)((unsigned long)result__MPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MDFH)));
-            ((__POINTER *)next__KPIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__LPIH)[ 0]=next__KPIH;
-          } else {
-            next__KPIH=((__POINTER *)result__MPIH)[ 0];
-            if ((next__KPIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MDFH <<  1)) <=  4096)) {
-                next__KPIH=(void *)((unsigned long)result__MPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MDFH)));
+            ptr__OWIH=result__AXIH;
+          };
+          result__NWIH=((__LIP_CALL *)ptr__OWIH);
+          *(result__NWIH) = *(LIP_CALL__);
+        };
+        Self__VWIH=((__LIP_CALL *)result__NWIH);
+        Self__VWIH->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ=p__WWIH;
+        Self__VWIH->name__GAUE=n__XWIH;
+        Self__VWIH->argument__15TE=NULL;
+        result__YFFE=result__NWIH;
+      } else {
+        result__YFFE=readlip_expr_base__RGFE(Self__5Z4B);
+      };
+      p__LGFE=current_position__JXF();
+      result__VXLE=NULL;
+      ptr__WXLE=((__POINTER )(NULL));
+      typ_id__1XLE= 0;
+      sz__YXLE=((__UINTEGER_32 )sizeof(__LIP_CALL));
+      if ((sz__YXLE ==  0)) {
+        result__VXLE=LIP_CALL__;
+      } else {
+        typ_id__1XLE=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YXLE);
+        if ((typ_id__1XLE == (__INTEGER)(-  1))) {
+          a__SLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__TLFH=(__UINTEGER_32)((__UINTEGER_32)(sz__YXLE + a__SLFH) & (__UINTEGER_32)(~ a__SLFH));
+          ptr_table__EXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TLFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__DXIH=((__POINTER )(NULL));
+          result__FXIH=((__POINTER *)ptr_table__EXIH)[ 0];
+          if ((result__FXIH == (void *)NULL)) {
+            result__FXIH=new_lab__MRJ(new_size__TLFH);
+            next__DXIH=(void *)((unsigned long)result__FXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TLFH)));
+            ((__POINTER *)next__DXIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__EXIH)[ 0]=next__DXIH;
+          } else {
+            next__DXIH=((__POINTER *)result__FXIH)[ 0];
+            if ((next__DXIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TLFH <<  1)) <=  4096)) {
+                next__DXIH=(void *)((unsigned long)result__FXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TLFH)));
               } else {
-                next__KPIH=new_lab__MRJ(new_size__MDFH);
+                next__DXIH=new_lab__MRJ(new_size__TLFH);
               };
-              ((__POINTER *)next__KPIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__LPIH)[ 0]=next__KPIH;
+              ((__POINTER *)next__DXIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__EXIH)[ 0]=next__DXIH;
             } else {
-              ((__POINTER *)result__MPIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__MPIH=next__KPIH;
-            };
-          };
-          ptr__UTLE=result__MPIH;
-        } else {
-          t__QDFH=((__UINTEGER_32 )typ_id__ZTLE);
-          a__PDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__TPIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WTLE + a__PDFH) & (__UINTEGER_32)(~ a__PDFH));
-          ptr_table__QPIH=((__POINTER )(&(table_type[(t__QDFH)])));
-          lab_type__SPIH=(__UINTEGER_32)(t__QDFH |  1);
-          next__PPIH=((__POINTER )(NULL));
-          result__RPIH=((__POINTER *)ptr_table__QPIH)[ 0];
-          if ((result__RPIH == (void *)NULL)) {
-            result__RPIH=new_lab__MRJ(lab_type__SPIH);
-            next__PPIH=(void *)((unsigned long)result__RPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPIH)));
-            ((__POINTER *)next__PPIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__QPIH)[ 0]=next__PPIH;
-          } else {
-            next__PPIH=((__POINTER *)result__RPIH)[ 0];
-            if ((next__PPIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RPIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__TPIH <<  1)) <=  4096)) {
-                next__PPIH=(void *)((unsigned long)result__RPIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPIH)));
+              ((__POINTER *)result__FXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__FXIH=next__DXIH;
+            };
+          };
+          ptr__WXLE=result__FXIH;
+        } else {
+          t__XLFH=((__UINTEGER_32 )typ_id__1XLE);
+          a__WLFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__MXIH=(__UINTEGER_32)((__UINTEGER_32)(sz__YXLE + a__WLFH) & (__UINTEGER_32)(~ a__WLFH));
+          ptr_table__JXIH=((__POINTER )(&(table_type[(t__XLFH)])));
+          lab_type__LXIH=(__UINTEGER_32)(t__XLFH |  1);
+          next__IXIH=((__POINTER )(NULL));
+          result__KXIH=((__POINTER *)ptr_table__JXIH)[ 0];
+          if ((result__KXIH == (void *)NULL)) {
+            result__KXIH=new_lab__MRJ(lab_type__LXIH);
+            next__IXIH=(void *)((unsigned long)result__KXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MXIH)));
+            ((__POINTER *)next__IXIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__JXIH)[ 0]=next__IXIH;
+          } else {
+            next__IXIH=((__POINTER *)result__KXIH)[ 0];
+            if ((next__IXIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__MXIH <<  1)) <=  4096)) {
+                next__IXIH=(void *)((unsigned long)result__KXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MXIH)));
               } else {
-                next__PPIH=new_lab__MRJ(lab_type__SPIH);
+                next__IXIH=new_lab__MRJ(lab_type__LXIH);
               };
-              ((__POINTER *)next__PPIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__QPIH)[ 0]=next__PPIH;
+              ((__POINTER *)next__IXIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__JXIH)[ 0]=next__IXIH;
             } else {
-              ((__POINTER *)result__RPIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PPIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__RPIH=next__PPIH;
+              ((__POINTER *)result__KXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__KXIH=next__IXIH;
             };
           };
-          ptr__UTLE=result__RPIH;
+          ptr__WXLE=result__KXIH;
         };
-        result__TTLE=((__LIP_CALL *)ptr__UTLE);
-        *(result__TTLE) = *(LIP_CALL__);
+        result__VXLE=((__LIP_CALL *)ptr__WXLE);
+        *(result__VXLE) = *(LIP_CALL__);
       };
-      Self__21VE=((__LIP_CALL *)result__TTLE);
-      Self__21VE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ=p__JCFE;
-      Self__21VE->name__S1TE=nam__E04B;
-      Self__21VE->argument__H1TE=result__WBFE;
-      result__B04B=result__TTLE;
+      Self__QAWE=((__LIP_CALL *)result__VXLE);
+      Self__QAWE->parent_lip_code__314B.parent_itm_object__5DE.position__NDJ=p__LGFE;
+      Self__QAWE->name__GAUE=nam__E04B;
+      Self__QAWE->argument__15TE=result__YFFE;
+      result__B04B=result__VXLE;
     } else {
-      result__B04B=readlip_expr_base__PCFE(Self__5Z4B);
+      result__B04B=readlip_expr_base__RGFE(Self__5Z4B);
     };
   };
   return(result__B04B);
 }
 
-static void* readlip_expr_base__PCFE(__PARSER *Self__QCFE)
+static void* readlip_expr_base__RGFE(__PARSER *Self__SGFE)
 // ({PARSER}) With resultNo recursive, No inlinable.
 {
-  void *result__SCFE;
-  __POSITION pos__BCZG,pos__DCZG,pos__FCZG,p__KPRE;
-  void *result__JRPE;
-  __LIP_VALUE *result__VGSE,*Self__USWE;
-  __POINTER ptr__WGSE,ptr_table__1PIH,next__0PIH,result__2PIH;
-  __POINTER ptr_table__AQIH,next__5PIH,result__BQIH;
-  __INTEGER typ_id__1GSE;
-  __UINTEGER_32 sz__YGSE,a__TDFH,new_size__UDFH,t__YDFH,a__XDFH;
-  __UINTEGER_32 new_size__DQIH,lab_type__CQIH;
-  __BOOLEAN result__UPIH,result__XPIH,__tmp__WRPE,__tmp__GSPE;
-  __BOOLEAN result__FMQE,__tmp__1SPE;
-  __CHARACTER result__VPIH,result__YPIH;
-  result__SCFE=NULL;
-  result__UPIH=FALSE__;
+  void *result__UGFE;
+  __POSITION pos__PLZG,pos__RLZG,pos__TLZG,p__KTRE;
+  void *result__LVPE;
+  __LIP_VALUE *result__5KSE,*Self__PUWE;
+  __POINTER ptr__ALSE,ptr_table__UXIH,next__TXIH,result__VXIH;
+  __POINTER ptr_table__ZXIH,next__YXIH,result__0XIH;
+  __INTEGER typ_id__FLSE;
+  __UINTEGER_32 sz__CLSE,a__0LFH,new_size__1LFH,t__5LFH,a__4LFH;
+  __UINTEGER_32 new_size__2XIH,lab_type__1XIH;
+  __BOOLEAN result__NXIH,result__QXIH,__tmp__YVPE,__tmp__IWPE;
+  __BOOLEAN result__FQQE,__tmp__3WPE;
+  __CHARACTER result__OXIH,result__RXIH;
+  result__UGFE=NULL;
+  result__NXIH=FALSE__;
   if ((! read_space__3RD())) {
-    result__UPIH=FALSE__;
+    result__NXIH=FALSE__;
   } else {
-    result__VPIH='\0';
+    result__OXIH='\0';
     if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-      result__VPIH=((__CHARACTER )(( 0)));
+      result__OXIH=((__CHARACTER )(( 0)));
     } else {
-      result__VPIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+      result__OXIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
     };
-    if ((result__VPIH == '(')) {
+    if ((result__OXIH == '(')) {
       position__SBC=(__INTEGER)(position__SBC +  1);
-      result__UPIH=TRUE__;
+      result__NXIH=TRUE__;
     };
   };
-  if (result__UPIH) {
-    result__SCFE=readlip_expr_operator__MOZB(Self__QCFE);
-    if (((void *)result__SCFE == (void *)NULL)) {
-      pos__BCZG=current_position__JXF();
-      put_error__text__KNG( 0,(&__string_237));
-      put_position__UOG(pos__BCZG);
+  if (result__NXIH) {
+    result__UGFE=readlip_expr_operator__MOZB(Self__SGFE);
+    if (((void *)result__UGFE == (void *)NULL)) {
+      pos__PLZG=current_position__JXF();
+      put_error__text__KNG( 0,(&__string_240));
+      put_position__UOG(pos__PLZG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
-    result__XPIH=FALSE__;
+    result__QXIH=FALSE__;
     if ((! read_space__3RD())) {
-      result__XPIH=FALSE__;
+      result__QXIH=FALSE__;
     } else {
-      result__YPIH='\0';
+      result__RXIH='\0';
       if ((position__SBC > ((__STRING *)source__PBC)->count__WFC)) {
-        result__YPIH=((__CHARACTER )(( 0)));
+        result__RXIH=((__CHARACTER )(( 0)));
       } else {
-        result__YPIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
+        result__RXIH=((__CHARACTER *)((__STRING *)source__PBC)->storage__BCS)[(__INTEGER)(position__SBC -  1)];
       };
-      if ((result__YPIH == ')')) {
+      if ((result__RXIH == ')')) {
         position__SBC=(__INTEGER)(position__SBC +  1);
-        result__XPIH=TRUE__;
+        result__QXIH=TRUE__;
       };
     };
-    if ((! result__XPIH)) {
-      pos__DCZG=current_position__JXF();
-      put_error__text__KNG( 2,(&__string_235));
-      put_position__UOG(pos__DCZG);
+    if ((! result__QXIH)) {
+      pos__RLZG=current_position__JXF();
+      put_error__text__KNG( 2,(&__string_238));
+      put_position__UOG(pos__RLZG);
       put_string__U1F(msg_err__PNG);
       if ((type_error__ONG !=  2)) {
         exit(( 1));
       };
     };
   } else {
-    result__JRPE=NULL;
+    result__LVPE=NULL;
     if (read_integer__A2P()) {
-      result__JRPE=get__QFSE(LIP_INTEGER__,((__INTEGER )last_integer__ZRO));
-      __tmp__WRPE=TRUE__;
+      result__LVPE=get__0JSE(LIP_INTEGER__,((__INTEGER )last_integer__ZRO));
+      __tmp__YVPE=TRUE__;
     } else {
-      __tmp__WRPE=FALSE__;
+      __tmp__YVPE=FALSE__;
     };
-    if (__tmp__WRPE) {
-      __tmp__GSPE=TRUE__;
+    if (__tmp__YVPE) {
+      __tmp__IWPE=TRUE__;
     } else {
-      result__FMQE=read_string__LFQ();
-      if (result__FMQE) {
-        result__JRPE=get__N2EF(LIP_STRING__,last_string__I0C);
+      result__FQQE=read_string__LFQ();
+      if (result__FQQE) {
+        result__LVPE=get__RBFF(LIP_STRING__,last_string__I0C);
       };
-      __tmp__GSPE=result__FMQE;
+      __tmp__IWPE=result__FQQE;
     };
-    if ((! __tmp__GSPE)) {
+    if ((! __tmp__IWPE)) {
       if (read_cap_identifier__SZJ()) {
         if (((void *)last_string__I0C == (void *)(&__string_42))) {
-          result__JRPE=true__5TKF;
-          __tmp__1SPE=TRUE__;
+          result__LVPE=true__GZKF;
+          __tmp__3WPE=TRUE__;
         } else {
-          __tmp__1SPE=FALSE__;
+          __tmp__3WPE=FALSE__;
         };
-        if ((! __tmp__1SPE)) {
+        if ((! __tmp__3WPE)) {
           if (((void *)last_string__I0C == (void *)(&__string_43))) {
-            result__JRPE=LIP_BOOLEAN__;
+            result__LVPE=LIP_BOOLEAN__;
           } else {
-            pos__FCZG=current_position__JXF();
-            put_error__text__KNG( 0,(&__string_330));
-            put_position__UOG(pos__FCZG);
+            pos__TLZG=current_position__JXF();
+            put_error__text__KNG( 0,(&__string_333));
+            put_position__UOG(pos__TLZG);
             put_string__U1F(msg_err__PNG);
             if ((type_error__ONG !=  2)) {
               exit(( 1));
@@ -36689,84 +36815,84 @@ static void* readlip_expr_base__PCFE(__PARSER *Self__QCFE)
         };
       };
     };
-    if (((void *)result__JRPE != (void *)NULL)) {
-      p__KPRE=current_position__JXF();
-      result__VGSE=NULL;
-      ptr__WGSE=((__POINTER )(NULL));
-      typ_id__1GSE= 0;
-      sz__YGSE=((__UINTEGER_32 )sizeof(__LIP_VALUE));
-      if ((sz__YGSE ==  0)) {
-        result__VGSE=LIP_VALUE__;
-      } else {
-        typ_id__1GSE=-1;
-        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__YGSE);
-        if ((typ_id__1GSE == (__INTEGER)(-  1))) {
-          a__TDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__UDFH=(__UINTEGER_32)((__UINTEGER_32)(sz__YGSE + a__TDFH) & (__UINTEGER_32)(~ a__TDFH));
-          ptr_table__1PIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UDFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__0PIH=((__POINTER )(NULL));
-          result__2PIH=((__POINTER *)ptr_table__1PIH)[ 0];
-          if ((result__2PIH == (void *)NULL)) {
-            result__2PIH=new_lab__MRJ(new_size__UDFH);
-            next__0PIH=(void *)((unsigned long)result__2PIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UDFH)));
-            ((__POINTER *)next__0PIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__1PIH)[ 0]=next__0PIH;
-          } else {
-            next__0PIH=((__POINTER *)result__2PIH)[ 0];
-            if ((next__0PIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2PIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__UDFH <<  1)) <=  4096)) {
-                next__0PIH=(void *)((unsigned long)result__2PIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UDFH)));
+    if (((void *)result__LVPE != (void *)NULL)) {
+      p__KTRE=current_position__JXF();
+      result__5KSE=NULL;
+      ptr__ALSE=((__POINTER )(NULL));
+      typ_id__FLSE= 0;
+      sz__CLSE=((__UINTEGER_32 )sizeof(__LIP_VALUE));
+      if ((sz__CLSE ==  0)) {
+        result__5KSE=LIP_VALUE__;
+      } else {
+        typ_id__FLSE=-1;
+        clone_allocation_size__3SB=(__UINTEGER_32)(clone_allocation_size__3SB + sz__CLSE);
+        if ((typ_id__FLSE == (__INTEGER)(-  1))) {
+          a__0LFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__1LFH=(__UINTEGER_32)((__UINTEGER_32)(sz__CLSE + a__0LFH) & (__UINTEGER_32)(~ a__0LFH));
+          ptr_table__UXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1LFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
+          next__TXIH=((__POINTER )(NULL));
+          result__VXIH=((__POINTER *)ptr_table__UXIH)[ 0];
+          if ((result__VXIH == (void *)NULL)) {
+            result__VXIH=new_lab__MRJ(new_size__1LFH);
+            next__TXIH=(void *)((unsigned long)result__VXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1LFH)));
+            ((__POINTER *)next__TXIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__UXIH)[ 0]=next__TXIH;
+          } else {
+            next__TXIH=((__POINTER *)result__VXIH)[ 0];
+            if ((next__TXIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VXIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__1LFH <<  1)) <=  4096)) {
+                next__TXIH=(void *)((unsigned long)result__VXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1LFH)));
               } else {
-                next__0PIH=new_lab__MRJ(new_size__UDFH);
+                next__TXIH=new_lab__MRJ(new_size__1LFH);
               };
-              ((__POINTER *)next__0PIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__1PIH)[ 0]=next__0PIH;
+              ((__POINTER *)next__TXIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__UXIH)[ 0]=next__TXIH;
             } else {
-              ((__POINTER *)result__2PIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0PIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__2PIH=next__0PIH;
-            };
-          };
-          ptr__WGSE=result__2PIH;
-        } else {
-          t__YDFH=((__UINTEGER_32 )typ_id__1GSE);
-          a__XDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__DQIH=(__UINTEGER_32)((__UINTEGER_32)(sz__YGSE + a__XDFH) & (__UINTEGER_32)(~ a__XDFH));
-          ptr_table__AQIH=((__POINTER )(&(table_type[(t__YDFH)])));
-          lab_type__CQIH=(__UINTEGER_32)(t__YDFH |  1);
-          next__5PIH=((__POINTER )(NULL));
-          result__BQIH=((__POINTER *)ptr_table__AQIH)[ 0];
-          if ((result__BQIH == (void *)NULL)) {
-            result__BQIH=new_lab__MRJ(lab_type__CQIH);
-            next__5PIH=(void *)((unsigned long)result__BQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DQIH)));
-            ((__POINTER *)next__5PIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AQIH)[ 0]=next__5PIH;
-          } else {
-            next__5PIH=((__POINTER *)result__BQIH)[ 0];
-            if ((next__5PIH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BQIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__DQIH <<  1)) <=  4096)) {
-                next__5PIH=(void *)((unsigned long)result__BQIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DQIH)));
+              ((__POINTER *)result__VXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__VXIH=next__TXIH;
+            };
+          };
+          ptr__ALSE=result__VXIH;
+        } else {
+          t__5LFH=((__UINTEGER_32 )typ_id__FLSE);
+          a__4LFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
+          new_size__2XIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CLSE + a__4LFH) & (__UINTEGER_32)(~ a__4LFH));
+          ptr_table__ZXIH=((__POINTER )(&(table_type[(t__5LFH)])));
+          lab_type__1XIH=(__UINTEGER_32)(t__5LFH |  1);
+          next__YXIH=((__POINTER )(NULL));
+          result__0XIH=((__POINTER *)ptr_table__ZXIH)[ 0];
+          if ((result__0XIH == (void *)NULL)) {
+            result__0XIH=new_lab__MRJ(lab_type__1XIH);
+            next__YXIH=(void *)((unsigned long)result__0XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XIH)));
+            ((__POINTER *)next__YXIH)[ 0]=NULL;
+            ((__POINTER *)ptr_table__ZXIH)[ 0]=next__YXIH;
+          } else {
+            next__YXIH=((__POINTER *)result__0XIH)[ 0];
+            if ((next__YXIH == (void *)NULL)) {
+              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0XIH - (unsigned long)begin_memory__PVH)))) &  4095) + (__UINTEGER_32)(new_size__2XIH <<  1)) <=  4096)) {
+                next__YXIH=(void *)((unsigned long)result__0XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XIH)));
               } else {
-                next__5PIH=new_lab__MRJ(lab_type__CQIH);
+                next__YXIH=new_lab__MRJ(lab_type__1XIH);
               };
-              ((__POINTER *)next__5PIH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AQIH)[ 0]=next__5PIH;
+              ((__POINTER *)next__YXIH)[ 0]=NULL;
+              ((__POINTER *)ptr_table__ZXIH)[ 0]=next__YXIH;
             } else {
-              ((__POINTER *)result__BQIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5PIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__BQIH=next__5PIH;
+              ((__POINTER *)result__0XIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
+              result__0XIH=next__YXIH;
             };
           };
-          ptr__WGSE=result__BQIH;
+          ptr__ALSE=result__0XIH;
         };
-        result__VGSE=((__LIP_VALUE *)ptr__WGSE);
-        *(result__VGSE) = *(LIP_VALUE__);
+        result__5KSE=((__LIP_VALUE *)ptr__ALSE);
+        *(result__5KSE) = *(LIP_VALUE__);
       };
-      Self__USWE=((__LIP_VALUE *)result__VGSE);
-      Self__USWE->parent_lip_code__0DFE.parent_itm_object__5DE.position__NDJ=p__KPRE;
-      Self__USWE->value__RFUE=result__JRPE;
-      result__SCFE=result__VGSE;
+      Self__PUWE=((__LIP_VALUE *)result__5KSE);
+      Self__PUWE->parent_lip_code__2HFE.parent_itm_object__5DE.position__NDJ=p__KTRE;
+      Self__PUWE->value__FKUE=result__LVPE;
+      result__UGFE=result__5KSE;
     };
   };
-  return(result__SCFE);
+  return(result__UGFE);
 }
 
 //==========================//
diff --git a/lib2/string/string.li b/lib2/string/string.li
index 61fd72e..39c3b9f 100644
--- a/lib2/string/string.li
+++ b/lib2/string/string.li
@@ -29,7 +29,7 @@ Section Header
   
 Section Inherit
   
-  - parent_abstract_string:ABSTRACT_STRING := ABSTRACT_STRING;
+  - inherit_abstract_string:ABSTRACT_STRING := ABSTRACT_STRING;
   
   - parent_arrayed:ARRAYED := ARRAYED;
   
diff --git a/lib2/string/string_constant.li b/lib2/string/string_constant.li
index 91c3b0e..d0a2a14 100644
--- a/lib2/string/string_constant.li
+++ b/lib2/string/string_constant.li
@@ -29,7 +29,7 @@ Section Header
   
 Section Inherit
   
-  - parent_abstract_string:ABSTRACT_STRING := ABSTRACT_STRING;
+  - inherit_abstract_string:ABSTRACT_STRING := ABSTRACT_STRING;
         
 Section Public
     
diff --git a/shorter/javadoc.li b/shorter/javadoc.li
index c5c392e..7a63fa2 100644
--- a/shorter/javadoc.li
+++ b/shorter/javadoc.li
@@ -24,7 +24,7 @@
   "<strong><font color=\"#A020F0\">" + token + "</font></strong>";
 
   - keyword_section := 
-  "<br><br><strong><font color=\"#A020F0\">" + token + "</font></strong>";
+  "<dd><strong><font color=\"#A020F0\">" + token + "</font></strong></dd>";
     
   - operator :=
   "<font color=\"#B8860B\">" + token + "</font>";
@@ -75,9 +75,9 @@
   
   - slot_title := "</dl><a name=\"" + token + "\"><!-- --></a><hr><h3>" + token + "</h3><dl>";
   
-  - subsub_title := "<dt><b>" + token + "</b></dt>";
+  - subsub_title := "<dt><b><br>" + token + "</b></dt>";
   
-  - prototype_path := "<dd><code>" + token + "</code></dd><br>";
+  - prototype_path := "<dd><code>" + token + "</code></dd>";
   
   //
   // Recursive Option.
diff --git a/src/item/itm_type_parameter.li b/src/item/itm_type_parameter.li
index 6016999..5e4c0c5 100644
--- a/src/item/itm_type_parameter.li
+++ b/src/item/itm_type_parameter.li
@@ -40,3 +40,15 @@ Section Public
     result
   );
   
+  //  
+  // Display.
+  //
+  
+  - shorter_in buf:STRING <-
+  (
+    (style != NULL).if {
+      put style to buf like (ALIAS_STR.short_keyword);
+      buf.add_last ' ';
+    };    
+    put name to buf like (ALIAS_STR.short_keyprototype);
+  );
diff --git a/src/item/itm_type_simple.li b/src/item/itm_type_simple.li
index 134ee34..e257b28 100644
--- a/src/item/itm_type_simple.li
+++ b/src/item/itm_type_simple.li
@@ -106,11 +106,7 @@ Section Public
       put style to buf like (ALIAS_STR.short_keyword);
       buf.add_last ' ';
     };
-    (Self = type_self).if {
-      put name to buf like (ALIAS_STR.short_keyprototype);
-    } else {
-      put name to buf like (ALIAS_STR.short_prototype);
-    };    
+    put name to buf like (ALIAS_STR.short_prototype);
   );
   
   //
diff --git a/src/shorter.li b/src/shorter.li
index a07b4b5..fc721f5 100644
--- a/src/shorter.li
+++ b/src/shorter.li
@@ -95,7 +95,7 @@ Section Private
   \  -r               : recursive builder documentation        \n\
   \  -f <format_file> : formatting description file            \n\
   \                     (see `/lisaac/shorter/')               \n\
-  \  -d               : Lisaac doc style (no -c)               \n\
+  \  -d               : Lisaac doc style (no -c, -r)           \n\
   \                                                            \n\
   \Examples:                                                   \n\
   \  * Output format file:                                     \n\
@@ -104,6 +104,9 @@ Section Private
   \  * Build html documentation:                               \n\
   \    shorter -r -f html ~/lisaac/lib                         \n\
   \                                                            \n\
+  \  * Build html documentation style JavaDoc:                 \n\
+  \    shorter -d -f javadoc ~/lisaac/lib                         \n\
+  \                                                            \n\
   \Bug report:                                                 \n\
   \            post in : https://gna.org/bugs/?group=isaac     \n\
   \            mail to : sonntag at icps.u-strasbg.fr             \n";
diff --git a/src/type/prototype.li b/src/type/prototype.li
index 604ccce..d891016 100644
--- a/src/type/prototype.li
+++ b/src/type/prototype.li
@@ -382,7 +382,7 @@ Section Public
     // Table.
     shorter_table list_tmp select { sl:ITM_SLOT; 
       sl.id_section.is_inherit_or_insert
-    } title "Inherit Summary" in buf;
+    } title "Inherit/Insert Summary" in buf;
     
     shorter_table list_tmp select { sl:ITM_SLOT; 
       sl.name.has_prefix "create"
@@ -395,7 +395,7 @@ Section Public
     // Detail.
     shorter_detail list_tmp select { sl:ITM_SLOT; 
       sl.id_section.is_inherit_or_insert
-    } title "Inherit Detail" in buf;    
+    } title "Inherit/Insert Detail" in buf;    
     
     shorter_detail list_tmp select { sl:ITM_SLOT; 
       sl.name.has_prefix "create"
@@ -441,12 +441,14 @@ Section PROTOTYPE
     
     s := first_slot;
     {s != NULL}.while_do {
-      i := lst.lower;
-      {(i <= lst.upper) && {lst.item i.name != s.name}}.while_do {
-        i := i + 1;
-      };
-      (i > lst.upper).if {
-        lst.add_last s;
+      (is_short_private || {! s.id_section.is_private}).if {
+        i := lst.lower;
+        {(i <= lst.upper) && {lst.item i.name != s.name}}.while_do {
+          i := i + 1;
+        };
+        (i > lst.upper).if {
+          lst.add_last s;
+        };
       };
       s := s.next;
     };
@@ -455,7 +457,10 @@ Section PROTOTYPE
     s := first_slot;
     {(s != NULL) && {s.id_section.is_inherit_or_insert}}.while_do {      
       ps ?= s.result_type;
-      ((ps != NULL) && {s.style = '+'} && {ps.style = ALIAS_STR.keyword_expanded}).if {
+      ((ps != NULL) && {
+          ({s.style = '+'} && {ps.style = ALIAS_STR.keyword_expanded}) ||
+          {s.name.has_prefix "inherit"} || {s.name.has_prefix "insert"}
+      }).if {
         p := NULL;
         i := prototype_list.lower;
         {(i <= prototype_list.upper) && {p = NULL}}.while_do {                              
@@ -491,11 +496,17 @@ Section PROTOTYPE
         put string_tmp2 to string_tmp like (ALIAS_STR.short_table_slot_name);
         (
           (s.id_section.is_inherit_or_insert) && 
-          {(s.style != '+') || {
-              + ts:ITM_TYPE_SIMPLE;
-              ts ?= s.result_type;
-              (ts = NULL) || {ts.style != ALIAS_STR.keyword_expanded}
-          }}
+          {
+            (
+              (s.style != '+') || {
+                + ts:ITM_TYPE_SIMPLE;
+                ts ?= s.result_type;
+                (ts = NULL) || {ts.style != ALIAS_STR.keyword_expanded}
+              }
+            ) && 
+            {! s.name.has_prefix "inherit"} && 
+            {! s.name.has_prefix "insert"}
+          }
         ).if {
           put " No developed." to string_tmp like (ALIAS_STR.short_warning);
         };
@@ -523,6 +534,7 @@ Section PROTOTYPE
           put t to buf like (ALIAS_STR.short_sub_title);
           is_first := FALSE;
         };
+        //
         string_tmp2.clear;
         s.pretty_name_in string_tmp2;
         put string_tmp2 to buf like (ALIAS_STR.short_slot_title);
@@ -530,15 +542,26 @@ Section PROTOTYPE
         string_tmp.append " line #";
         s.position.line.append_in string_tmp;
         put string_tmp to buf like (ALIAS_STR.short_prototype_path);
+        //
+        put "Section:" to buf like (ALIAS_STR.short_subsub_title);
+        string_tmp.clear;
+        s.id_section.append_in string_tmp;
+        put string_tmp to buf like (ALIAS_STR.short_keyword_section);
+        //
         put "Profile:" to buf like (ALIAS_STR.short_subsub_title);
         s.shorter_profile_in buf;
+        //
         put "Description:" to buf like (ALIAS_STR.short_subsub_title);
         string_tmp.clear;
-        get_all_comment_slot (s.name) in string_tmp;
+        get_all_comment_slot (s.name) in string_tmp;        
         put string_tmp to buf like (ALIAS_STR.short_comment_slot_line);
+        //
         put "Parameters:" to buf like (ALIAS_STR.short_subsub_title);
+        //
         put "Contracts:" to buf like (ALIAS_STR.short_subsub_title);
+        //
         put "See also:" to buf like (ALIAS_STR.short_subsub_title);        
+        //
       };      
     };
   );
diff --git a/src/variable/section_.li b/src/variable/section_.li
index 17c59e6..724390f 100644
--- a/src/variable/section_.li
+++ b/src/variable/section_.li
@@ -101,16 +101,16 @@ Section Public
   //
   
   - append_in buf:STRING <-
-  (
+  ( 
     (name != NULL).if {
       buf.append name;
     } else {
       (type_list.lower).to (type_list.upper - 1) do { j:INTEGER;
-	buf.append (type_list.item j.intern_name);
-	buf.add_last ',';
-	buf.add_last ' ';	
-      };
-      buf.append (type_list.last.intern_name);
+        type_list.item j.append_in buf;
+        buf.add_last ',';
+        buf.add_last ' ';	
+      };      
+      type_list.last.append_in buf;
     };
   );
   

-- 
Lisaac compiler



More information about the Lisaac-commits mailing list