[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-518-gf3ff616

Benoit Sonntag sonntag at icps.u-strasbg.fr
Sat Oct 24 01:55:59 UTC 2009


The following commit has been merged in the master branch:
commit f3ff616ab8b3180a5492e64cb8c3048b42f131b0
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date:   Sat Oct 24 03:55:56 2009 +0200

    auto-install windows, unix ok without shorter.c

diff --git a/bin/lisaac.c b/bin/lisaac.c
index 26d1661..ba4e4b7 100644
--- a/bin/lisaac.c
+++ b/bin/lisaac.c
@@ -4102,7 +4102,7 @@ ____0 __string_444={____0__,38,"No argument for `help_command' method."};
 ____0 __string_445={____0__,33,"No argument for `version' method."};
 ____0 __string_446={____0__,18,"Compiler version: "};
 ____0 __string_447={____0__,18,"Built on:         "};
-____0 __string_448={____0__,25,"Su 24/10/2009 03:14:50,00"};
+____0 __string_448={____0__,25,"Su 24/10/2009 03:51:49,00"};
 ____0 __string_449={____0__,18,"Debug level:      "};
 ____0 __string_450={____0__,9,"No debug."};
 ____0 __string_451={____0__,18,"Inlining level:   "};
diff --git a/bin/shorter.c b/bin/shorter.c
deleted file mode 100644
index 8fb1814..0000000
--- a/bin/shorter.c
+++ /dev/null
@@ -1,40100 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL                 //
-//==========================//
-
-// SHORTER
-#include "path.h"
-// FILE_SYSTEM
-#include <unistd.h>
-// SYSTEM
-#include <time.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256  
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// DIRECTORY_UNIX
-
-#include <dirent.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-// FLOAT_REAL
-#include <math.h>
-// FS_MIN
-#include <unistd.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-  
-// Hardware 'print_char'
-void print_char(char car)
-{
-  fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
-  exit(code);
-}
-
-
-
-//==========================//
-// TYPE                     //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
-  unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
-  unsigned long __id;
-  __INTEGER count__SGC;
-  __INTEGER capacity__UCS;
-  __CHARACTER *storage__3CS;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 0
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
-  __INTEGER upper__CLC;
-  __INTEGER capacity__JGT;
-  void **storage__UGT;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 1
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
-  __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__5KC;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// ITM_TYPE_MONO
-#define __ITM_TYPE_MONO__ 2
-typedef struct ITM_TYPE_MONO_struct __ITM_TYPE_MONO;
-struct ITM_TYPE_MONO_struct {
-  void *Nothing;
-};
-__ITM_TYPE_MONO ITM_TYPE_MONO_;
-#define ITM_TYPE_MONO__ (&ITM_TYPE_MONO_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_MONO]
-#define __ARRAYED_COLLECTIONoITM_TYPE_MONOo__ 3
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_MONOo_struct __ARRAYED_COLLECTIONoITM_TYPE_MONOo;
-struct ARRAYED_COLLECTIONoITM_TYPE_MONOo_struct {
-  __INTEGER upper__4HV;
-  __INTEGER capacity__TNV;
-  void **storage__FMV;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_MONOo ARRAYED_COLLECTIONoITM_TYPE_MONOo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_MONOo__ (&ARRAYED_COLLECTIONoITM_TYPE_MONOo_)
-
-// FAST_ARRAY[ITM_TYPE_MONO]
-#define __FAST_ARRAYoITM_TYPE_MONOo__ 4
-typedef struct FAST_ARRAYoITM_TYPE_MONOo_struct __FAST_ARRAYoITM_TYPE_MONOo;
-struct FAST_ARRAYoITM_TYPE_MONOo_struct {
-  __ARRAYED_COLLECTIONoITM_TYPE_MONOo parent_arrayed_collection__SYC;
-};
-__FAST_ARRAYoITM_TYPE_MONOo FAST_ARRAYoITM_TYPE_MONOo_;
-#define FAST_ARRAYoITM_TYPE_MONOo__ (&FAST_ARRAYoITM_TYPE_MONOo_)
-
-// HASHED_DICTIONARY_NODE[ITM_TYPE_SIMPLE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__ 5
-typedef struct HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct {
-  void *key__R4T;
-  void *item__E5T;
-  void *next__24T;
-};
-__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[ITM_TYPE_SIMPLE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__ 6
-typedef struct HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct {
-  __INTEGER capacity__A4T;
-  __INTEGER count__CGZ;
-  void **buckets__F4T;
-};
-__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
-  unsigned long __id;
-  __INTEGER count__DD;
-  __CHARACTER *storage__RRO;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// ARRAYED_COLLECTION[STRING_CONSTANT]
-#define __ARRAYED_COLLECTIONoSTRING_CONSTANTo__ 7
-typedef struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct __ARRAYED_COLLECTIONoSTRING_CONSTANTo;
-struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct {
-  __INTEGER upper__2CPD;
-  __INTEGER capacity__XEPD;
-  void **storage__SFPD;
-};
-__ARRAYED_COLLECTIONoSTRING_CONSTANTo ARRAYED_COLLECTIONoSTRING_CONSTANTo_;
-#define ARRAYED_COLLECTIONoSTRING_CONSTANTo__ (&ARRAYED_COLLECTIONoSTRING_CONSTANTo_)
-
-// FAST_ARRAY[STRING_CONSTANT]
-#define __FAST_ARRAYoSTRING_CONSTANTo__ 8
-typedef struct FAST_ARRAYoSTRING_CONSTANTo_struct __FAST_ARRAYoSTRING_CONSTANTo;
-struct FAST_ARRAYoSTRING_CONSTANTo_struct {
-  __ARRAYED_COLLECTIONoSTRING_CONSTANTo parent_arrayed_collection__MBJ;
-};
-__FAST_ARRAYoSTRING_CONSTANTo FAST_ARRAYoSTRING_CONSTANTo_;
-#define FAST_ARRAYoSTRING_CONSTANTo__ (&FAST_ARRAYoSTRING_CONSTANTo_)
-
-// HASHED_SET_NODE[ABSTRACT_STRING]
-#define __HASHED_SET_NODEoABSTRACT_STRINGo__ 9
-typedef struct HASHED_SET_NODEoABSTRACT_STRINGo_struct __HASHED_SET_NODEoABSTRACT_STRINGo;
-struct HASHED_SET_NODEoABSTRACT_STRINGo_struct {
-  void *item__G0R;
-  void *next__S0R;
-};
-__HASHED_SET_NODEoABSTRACT_STRINGo HASHED_SET_NODEoABSTRACT_STRINGo_;
-#define HASHED_SET_NODEoABSTRACT_STRINGo__ (&HASHED_SET_NODEoABSTRACT_STRINGo_)
-
-// HASHED_SET[ABSTRACT_STRING]
-#define __HASHED_SEToABSTRACT_STRINGo__ 10
-typedef struct HASHED_SEToABSTRACT_STRINGo_struct __HASHED_SEToABSTRACT_STRINGo;
-struct HASHED_SEToABSTRACT_STRINGo_struct {
-  __INTEGER capacity__VZR;
-  __INTEGER count__10R;
-  void **buckets__0ZR;
-};
-__HASHED_SEToABSTRACT_STRINGo HASHED_SEToABSTRACT_STRINGo_;
-#define HASHED_SEToABSTRACT_STRINGo__ (&HASHED_SEToABSTRACT_STRINGo_)
-
-// POSITION
-typedef unsigned long __POSITION;
-
-// ITM_OBJECT
-#define __ITM_OBJECT__ 11
-typedef struct ITM_OBJECT_struct __ITM_OBJECT;
-struct ITM_OBJECT_struct {
-  __POSITION position__SFJ;
-};
-__ITM_OBJECT ITM_OBJECT_;
-#define ITM_OBJECT__ (&ITM_OBJECT_)
-
-// NAMED
-#define __NAMED__ 12
-typedef struct NAMED_struct __NAMED;
-struct NAMED_struct {
-  __ITM_OBJECT parent_itm_object__4;
-  void *name__LI;
-  __CHARACTER style__0FU;
-};
-__NAMED NAMED_;
-#define NAMED__ (&NAMED_)
-
-// PROTOTYPE
-#define __PROTOTYPE__ 13
-typedef struct PROTOTYPE_struct __PROTOTYPE;
-struct PROTOTYPE_struct {
-  __NAMED parent_named__5;
-  void *source__3BC;
-  void *last_slot__J3C;
-  void *type_style__S4C;
-  void *shortname__3JE;
-  void *default_value__LWE;
-  void *type_c__GYE;
-  __INTEGER index__GPG;
-  void *filename__FSG;
-  void *first_slot__2DZB;
-  void *comment_header__Q4QC;
-  void *comment_slot__YRTC;
-  void *idf_generic_list__MOE;
-  void *slot_list__YVS;
-};
-__PROTOTYPE PROTOTYPE_;
-#define PROTOTYPE__ (&PROTOTYPE_)
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-// HASHED_DICTIONARY_NODE[LINKED_LIST[STRING_CONSTANT],STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ 14
-typedef struct HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct {
-  void *key__HET;
-  void *next__SET;
-  void *item__KW3;
-};
-__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[LINKED_LIST[STRING_CONSTANT],STRING_CONSTANT]
-#define __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ 15
-typedef struct HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct {
-  __INTEGER capacity__WDT;
-  __INTEGER count__4MY;
-  void **buckets__1DT;
-};
-__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY_NODE[TYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__ 16
-typedef struct HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_struct {
-  void *key__V3R;
-  void *next__A4R;
-};
-__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[TYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__ 17
-typedef struct HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_struct {
-  __INTEGER capacity__E3R;
-  __INTEGER count__J4R;
-  void **buckets__J3R;
-};
-__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_)
-
-// UINTEGER_8
-typedef unsigned char __UINTEGER_8;
-
-// TYPE_FULL
-#define __TYPE_FULL__ 18
-typedef struct TYPE_FULL_struct __TYPE_FULL;
-struct TYPE_FULL_struct {
-  __UINTEGER_8 flag__UGS;
-};
-__TYPE_FULL TYPE_FULL_;
-#define TYPE_FULL__ (&TYPE_FULL_)
-
-// TYPE_ID
-#define __TYPE_ID__ 6
-typedef struct TYPE_ID_struct __TYPE_ID;
-struct TYPE_ID_struct {
-  unsigned long __id;
-};
-__TYPE_ID TYPE_ID_={__TYPE_ID__};
-#define TYPE_ID__ (&TYPE_ID_)
-
-// ARRAYED_COLLECTION[TYPE_ID]
-#define __ARRAYED_COLLECTIONoTYPE_IDo__ 19
-typedef struct ARRAYED_COLLECTIONoTYPE_IDo_struct __ARRAYED_COLLECTIONoTYPE_IDo;
-struct ARRAYED_COLLECTIONoTYPE_IDo_struct {
-  __INTEGER upper__O5R;
-  __INTEGER capacity__Q5R;
-  void **storage__MAS;
-};
-__ARRAYED_COLLECTIONoTYPE_IDo ARRAYED_COLLECTIONoTYPE_IDo_;
-#define ARRAYED_COLLECTIONoTYPE_IDo__ (&ARRAYED_COLLECTIONoTYPE_IDo_)
-
-// FAST_ARRAY[TYPE_ID]
-#define __FAST_ARRAYoTYPE_IDo__ 20
-typedef struct FAST_ARRAYoTYPE_IDo_struct __FAST_ARRAYoTYPE_IDo;
-struct FAST_ARRAYoTYPE_IDo_struct {
-  __ARRAYED_COLLECTIONoTYPE_IDo parent_arrayed_collection__ABB;
-};
-__FAST_ARRAYoTYPE_IDo FAST_ARRAYoTYPE_IDo_;
-#define FAST_ARRAYoTYPE_IDo__ (&FAST_ARRAYoTYPE_IDo_)
-
-// ENTRY
-#define __ENTRY__ 21
-typedef struct ENTRY_struct __ENTRY;
-struct ENTRY_struct {
-  void *path__BD;
-  void *name__OPT;
-};
-__ENTRY ENTRY_;
-#define ENTRY__ (&ENTRY_)
-
-// ENTRY_UNIX
-#define __ENTRY_UNIX__ 22
-typedef struct ENTRY_UNIX_struct __ENTRY_UNIX;
-struct ENTRY_UNIX_struct {
-  __ENTRY parent_entry__QGD;
-};
-__ENTRY_UNIX ENTRY_UNIX_;
-#define ENTRY_UNIX__ (&ENTRY_UNIX_)
-
-// DIRECTORY
-#define __DIRECTORY__ 23
-typedef struct DIRECTORY_struct __DIRECTORY;
-struct DIRECTORY_struct {
-  void *list__FIRD;
-};
-__DIRECTORY DIRECTORY_;
-#define DIRECTORY__ (&DIRECTORY_)
-
-// DIRECTORY_UNIX
-#define __DIRECTORY_UNIX__ 7
-typedef struct DIRECTORY_UNIX_struct __DIRECTORY_UNIX;
-struct DIRECTORY_UNIX_struct {
-  unsigned long __id;
-  __ENTRY_UNIX parent_entry_unix__RGD;
-  __DIRECTORY parent_directory__SGD;
-};
-__DIRECTORY_UNIX DIRECTORY_UNIX_={__DIRECTORY_UNIX__};
-#define DIRECTORY_UNIX__ (&DIRECTORY_UNIX_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// ITM_SLOT
-#define __ITM_SLOT__ 8
-typedef struct ITM_SLOT_struct __ITM_SLOT;
-struct ITM_SLOT_struct {
-  unsigned long __id;
-  __NAMED parent_named__15;
-  void *id_section__T3C;
-  void *comment__WZOB;
-  void *result_type__A4FC;
-  void *next__YGHC;
-  void *comment_chapter__S0HC;
-  __CHARACTER affect__P5FC;
-  void *argument_list__QDHC;
-  __INTEGER_8 stat_shorter__4OTD;
-};
-__ITM_SLOT ITM_SLOT_={__ITM_SLOT__};
-#define ITM_SLOT__ (&ITM_SLOT_)
-
-// ITM_SLOT_OPERATOR
-#define __ITM_SLOT_OPERATOR__ 9
-typedef struct ITM_SLOT_OPERATOR_struct __ITM_SLOT_OPERATOR;
-struct ITM_SLOT_OPERATOR_struct {
-  unsigned long __id;
-  __ITM_SLOT parent_itm_slot__0S5B;
-  __INTEGER priority_and_level__UZHC;
-  void *pretty_name__5ZHC;
-};
-__ITM_SLOT_OPERATOR ITM_SLOT_OPERATOR_={__ITM_SLOT_OPERATOR__};
-#define ITM_SLOT_OPERATOR__ (&ITM_SLOT_OPERATOR_)
-
-// SECTION_
-#define __SECTION___ 24
-typedef struct SECTION__struct __SECTION_;
-struct SECTION__struct {
-  void *name__MYDC;
-  void *type_list__1WFC;
-};
-__SECTION_ SECTION__;
-#define SECTION___ (&SECTION__)
-
-// MEMORY
-#define __MEMORY__ 25
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
-  volatile __UINTEGER_32 map_previous_linear__XTB;
-  volatile __UINTEGER_32 map_size_and_id__YTB;
-  void *map_next_free__ZTB;
-  void *map_previous_free__0TB;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// HASHED_DICTIONARY_NODE[ENTRY,ABSTRACT_STRING]
-#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__N2S;
-  void *item__TPOB;
-  void *next__Z2S;
-};
-__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_;
-#define HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_)
-
-// HASHED_DICTIONARY[ENTRY,ABSTRACT_STRING]
-#define __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ 27
-typedef struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo;
-struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct {
-  __INTEGER capacity__21S;
-  __INTEGER count__C3S;
-  void **buckets__B2S;
-};
-__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_;
-#define HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_)
-
-// LINKED_COLLECTION[STRING_CONSTANT]
-#define __LINKED_COLLECTIONoSTRING_CONSTANTo__ 28
-typedef struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct __LINKED_COLLECTIONoSTRING_CONSTANTo;
-struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct {
-  __INTEGER upper__0ED;
-};
-__LINKED_COLLECTIONoSTRING_CONSTANTo LINKED_COLLECTIONoSTRING_CONSTANTo_;
-#define LINKED_COLLECTIONoSTRING_CONSTANTo__ (&LINKED_COLLECTIONoSTRING_CONSTANTo_)
-
-// LINKED_LIST[STRING_CONSTANT]
-#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;
-  __INTEGER mem_idx__YTEC;
-  void *first_link__OTEC;
-  void *last_link__XTEC;
-  void *mem_lnk__0TEC;
-};
-__LINKED_LISToSTRING_CONSTANTo LINKED_LISToSTRING_CONSTANTo_;
-#define LINKED_LISToSTRING_CONSTANTo__ (&LINKED_LISToSTRING_CONSTANTo_)
-
-// PARSER
-#define __PARSER__ 30
-typedef struct PARSER_struct __PARSER;
-struct PARSER_struct {
-  void *Nothing;
-};
-__PARSER PARSER_;
-#define PARSER__ (&PARSER_)
-
-// ITM_ARGUMENT
-#define __ITM_ARGUMENT__ 31
-typedef struct ITM_ARGUMENT_struct __ITM_ARGUMENT;
-struct ITM_ARGUMENT_struct {
-  __ITM_OBJECT parent_itm_code__O5M;
-};
-__ITM_ARGUMENT ITM_ARGUMENT_;
-#define ITM_ARGUMENT__ (&ITM_ARGUMENT_)
-
-// ARRAYED_COLLECTION[ITM_ARGUMENT]
-#define __ARRAYED_COLLECTIONoITM_ARGUMENTo__ 32
-typedef struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct __ARRAYED_COLLECTIONoITM_ARGUMENTo;
-struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct {
-  __INTEGER upper__I5GC;
-  __INTEGER capacity__K5GC;
-  void **storage__GAHC;
-};
-__ARRAYED_COLLECTIONoITM_ARGUMENTo ARRAYED_COLLECTIONoITM_ARGUMENTo_;
-#define ARRAYED_COLLECTIONoITM_ARGUMENTo__ (&ARRAYED_COLLECTIONoITM_ARGUMENTo_)
-
-// FAST_ARRAY[ITM_ARGUMENT]
-#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__Z5YB;
-};
-__FAST_ARRAYoITM_ARGUMENTo FAST_ARRAYoITM_ARGUMENTo_;
-#define FAST_ARRAYoITM_ARGUMENTo__ (&FAST_ARRAYoITM_ARGUMENTo_)
-
-// ITM_TYPE_MULTI
-#define __ITM_TYPE_MULTI__ 10
-typedef struct ITM_TYPE_MULTI_struct __ITM_TYPE_MULTI;
-struct ITM_TYPE_MULTI_struct {
-  unsigned long __id;
-  void *list_type__2KP;
-};
-__ITM_TYPE_MULTI ITM_TYPE_MULTI_={__ITM_TYPE_MULTI__};
-#define ITM_TYPE_MULTI__ (&ITM_TYPE_MULTI_)
-
-// ITM_EXPRESSION
-#define __ITM_EXPRESSION__ 11
-typedef struct ITM_EXPRESSION_struct __ITM_EXPRESSION;
-struct ITM_EXPRESSION_struct {
-  unsigned long __id;
-  void *value_list__PJV;
-};
-__ITM_EXPRESSION ITM_EXPRESSION_={__ITM_EXPRESSION__};
-#define ITM_EXPRESSION__ (&ITM_EXPRESSION_)
-
-// ITM_RESULT
-#define __ITM_RESULT__ 12
-typedef struct ITM_RESULT_struct __ITM_RESULT;
-struct ITM_RESULT_struct {
-  unsigned long __id;
-  void *value__WKFC;
-};
-__ITM_RESULT ITM_RESULT_={__ITM_RESULT__};
-#define ITM_RESULT__ (&ITM_RESULT_)
-
-// HASHED_DICTIONARY_NODE[ITM_SLOT,STRING_CONSTANT]
-#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__ZAGC;
-  void *item__MBGC;
-  void *next__EBGC;
-};
-__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[ITM_SLOT,STRING_CONSTANT]
-#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__W3BC;
-  __INTEGER count__YOGC;
-  void **buckets__NAGC;
-};
-__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_)
-
-// ITM_TYPE_BLOCK
-#define __ITM_TYPE_BLOCK__ 13
-typedef struct ITM_TYPE_BLOCK_struct __ITM_TYPE_BLOCK;
-struct ITM_TYPE_BLOCK_struct {
-  unsigned long __id;
-  void *type_argument__SNN;
-  void *type_result__2NN;
-};
-__ITM_TYPE_BLOCK ITM_TYPE_BLOCK_={__ITM_TYPE_BLOCK__};
-#define ITM_TYPE_BLOCK__ (&ITM_TYPE_BLOCK_)
-
-// ITM_TYPE_SIMPLE
-#define __ITM_TYPE_SIMPLE__ 14
-typedef struct ITM_TYPE_SIMPLE_struct __ITM_TYPE_SIMPLE;
-struct ITM_TYPE_SIMPLE_struct {
-  unsigned long __id;
-  void *name__GZP;
-};
-__ITM_TYPE_SIMPLE ITM_TYPE_SIMPLE_={__ITM_TYPE_SIMPLE__};
-#define ITM_TYPE_SIMPLE__ (&ITM_TYPE_SIMPLE_)
-
-// ITM_TYPE_STYLE
-#define __ITM_TYPE_STYLE__ 15
-typedef struct ITM_TYPE_STYLE_struct __ITM_TYPE_STYLE;
-struct ITM_TYPE_STYLE_struct {
-  unsigned long __id;
-  __ITM_TYPE_SIMPLE parent_itm_type_simple__3SN;
-  void *style__PZP;
-};
-__ITM_TYPE_STYLE ITM_TYPE_STYLE_={__ITM_TYPE_STYLE__};
-#define ITM_TYPE_STYLE__ (&ITM_TYPE_STYLE_)
-
-// ITM_TYPE_GENERIC
-#define __ITM_TYPE_GENERIC__ 16
-typedef struct ITM_TYPE_GENERIC_struct __ITM_TYPE_GENERIC;
-struct ITM_TYPE_GENERIC_struct {
-  unsigned long __id;
-  __ITM_TYPE_STYLE parent_itm_type_style__4SN;
-  void *list_type__ZZP;
-};
-__ITM_TYPE_GENERIC ITM_TYPE_GENERIC_={__ITM_TYPE_GENERIC__};
-#define ITM_TYPE_GENERIC__ (&ITM_TYPE_GENERIC_)
-
-// ITM_ARG
-#define __ITM_ARG__ 17
-typedef struct ITM_ARG_struct __ITM_ARG;
-struct ITM_ARG_struct {
-  unsigned long __id;
-  __ITM_ARGUMENT parent_itm_argument__SEHB;
-  void *name__F0HC;
-  void *type__G0HC;
-};
-__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__CEFE;
-  void *type__YDQF;
-  void *name__XDQF;
-};
-__ITM_ARGS ITM_ARGS_={__ITM_ARGS__};
-#define ITM_ARGS__ (&ITM_ARGS_)
-
-// ITM_TYPE_PARAMETER
-#define __ITM_TYPE_PARAMETER__ 19
-typedef struct ITM_TYPE_PARAMETER_struct __ITM_TYPE_PARAMETER;
-struct ITM_TYPE_PARAMETER_struct {
-  unsigned long __id;
-  __ITM_TYPE_SIMPLE parent_itm_type__VFE;
-};
-__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__EFF;
-  __POINTER stream__BMRD;
-};
-__FILE_UNIX FILE_UNIX_={__FILE_UNIX__};
-#define FILE_UNIX__ (&FILE_UNIX_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_PARAMETER]
-#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__RABC;
-  __INTEGER capacity__TABC;
-  void **storage__PBBC;
-};
-__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__ 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__LOE;
-};
-__FAST_ARRAYoITM_TYPE_PARAMETERo FAST_ARRAYoITM_TYPE_PARAMETERo_;
-#define FAST_ARRAYoITM_TYPE_PARAMETERo__ (&FAST_ARRAYoITM_TYPE_PARAMETERo_)
-
-// LIP_CODE
-#define __LIP_CODE__ 38
-typedef struct LIP_CODE_struct __LIP_CODE;
-struct LIP_CODE_struct {
-  __ITM_OBJECT parent_itm_object__XFE;
-};
-__LIP_CODE LIP_CODE_;
-#define LIP_CODE__ (&LIP_CODE_)
-
-// LIP_AFFECT
-#define __LIP_AFFECT__ 21
-typedef struct LIP_AFFECT_struct __LIP_AFFECT;
-struct LIP_AFFECT_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__YSPB;
-  void *name__AGFC;
-  void *value__SGFC;
-};
-__LIP_AFFECT LIP_AFFECT_={__LIP_AFFECT__};
-#define LIP_AFFECT__ (&LIP_AFFECT_)
-
-// LIP_CALL
-#define __LIP_CALL__ 22
-typedef struct LIP_CALL_struct __LIP_CALL;
-struct LIP_CALL_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__XZ4B;
-  void *argument__4QUE;
-  void *name__JRUE;
-};
-__LIP_CALL LIP_CALL_={__LIP_CALL__};
-#define LIP_CALL__ (&LIP_CALL_)
-
-// LIP_IF
-#define __LIP_IF__ 23
-typedef struct LIP_IF_struct __LIP_IF;
-struct LIP_IF_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__PQYC;
-  void *condition__3FQD;
-  void *then__TGQD;
-  void *else__KHQD;
-};
-__LIP_IF LIP_IF_={__LIP_IF__};
-#define LIP_IF__ (&LIP_IF_)
-
-// LIP_PRINT
-#define __LIP_PRINT__ 24
-typedef struct LIP_PRINT_struct __LIP_PRINT;
-struct LIP_PRINT_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__BRYC;
-  void *message__NVUE;
-};
-__LIP_PRINT LIP_PRINT_={__LIP_PRINT__};
-#define LIP_PRINT__ (&LIP_PRINT_)
-
-// HASHED_SET_NODE[STRING_CONSTANT]
-#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__PEV;
-  void *next__0EV;
-};
-__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__ 40
-typedef struct HASHED_SEToSTRING_CONSTANTo_struct __HASHED_SEToSTRING_CONSTANTo;
-struct HASHED_SEToSTRING_CONSTANTo_struct {
-  __INTEGER capacity__HIT;
-  __INTEGER count__1FY;
-  void **buckets__DEV;
-};
-__HASHED_SEToSTRING_CONSTANTo HASHED_SEToSTRING_CONSTANTo_;
-#define HASHED_SEToSTRING_CONSTANTo__ (&HASHED_SEToSTRING_CONSTANTo_)
-
-// HASHED_SET_NODE[FAST_ARRAY[STRING_CONSTANT]]
-#define __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ 41
-typedef struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo;
-struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct {
-  void *item__3LQF;
-  void *next__JMQF;
-};
-__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__ 42
-typedef struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo;
-struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct {
-  __INTEGER capacity__MLQF;
-  __INTEGER count__DQQF;
-  void **buckets__RLQF;
-};
-__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_;
-#define HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ (&HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_)
-
-// ITM_CODE
-#define __ITM_CODE__ 43
-typedef struct ITM_CODE_struct __ITM_CODE;
-struct ITM_CODE_struct {
-  __ITM_OBJECT parent_itm_object__PFE;
-};
-__ITM_CODE ITM_CODE_;
-#define ITM_CODE__ (&ITM_CODE_)
-
-// ARRAYED_COLLECTION[ITM_CODE]
-#define __ARRAYED_COLLECTIONoITM_CODEo__ 44
-typedef struct ARRAYED_COLLECTIONoITM_CODEo_struct __ARRAYED_COLLECTIONoITM_CODEo;
-struct ARRAYED_COLLECTIONoITM_CODEo_struct {
-  __INTEGER upper__NJL;
-  __INTEGER capacity__TZT;
-  void **storage__4ZT;
-};
-__ARRAYED_COLLECTIONoITM_CODEo ARRAYED_COLLECTIONoITM_CODEo_;
-#define ARRAYED_COLLECTIONoITM_CODEo__ (&ARRAYED_COLLECTIONoITM_CODEo_)
-
-// FAST_ARRAY[ITM_CODE]
-#define __FAST_ARRAYoITM_CODEo__ 45
-typedef struct FAST_ARRAYoITM_CODEo_struct __FAST_ARRAYoITM_CODEo;
-struct FAST_ARRAYoITM_CODEo_struct {
-  __ARRAYED_COLLECTIONoITM_CODEo parent_arrayed_collection__JWF;
-};
-__FAST_ARRAYoITM_CODEo FAST_ARRAYoITM_CODEo_;
-#define FAST_ARRAYoITM_CODEo__ (&FAST_ARRAYoITM_CODEo_)
-
-// ARRAYED_COLLECTION[LIP_CODE]
-#define __ARRAYED_COLLECTIONoLIP_CODEo__ 46
-typedef struct ARRAYED_COLLECTIONoLIP_CODEo_struct __ARRAYED_COLLECTIONoLIP_CODEo;
-struct ARRAYED_COLLECTIONoLIP_CODEo_struct {
-  __INTEGER upper__ZGQD;
-  __INTEGER capacity__1UTD;
-  void **storage__GVTD;
-};
-__ARRAYED_COLLECTIONoLIP_CODEo ARRAYED_COLLECTIONoLIP_CODEo_;
-#define ARRAYED_COLLECTIONoLIP_CODEo__ (&ARRAYED_COLLECTIONoLIP_CODEo_)
-
-// FAST_ARRAY[LIP_CODE]
-#define __FAST_ARRAYoLIP_CODEo__ 47
-typedef struct FAST_ARRAYoLIP_CODEo_struct __FAST_ARRAYoLIP_CODEo;
-struct FAST_ARRAYoLIP_CODEo_struct {
-  __ARRAYED_COLLECTIONoLIP_CODEo parent_arrayed_collection__4MYC;
-};
-__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__ 48
-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;
-};
-__HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_;
-#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__ 49
-typedef struct HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_struct {
-  __INTEGER capacity__4XRD;
-  void **buckets__DYRD;
-};
-__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_)
-
-// LIP_BINARY
-#define __LIP_BINARY__ 25
-typedef struct LIP_BINARY_struct __LIP_BINARY;
-struct LIP_BINARY_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__WNZB;
-  void *left__J2QD;
-  void *right__M2QD;
-  __CHARACTER operator__P2QD;
-};
-__LIP_BINARY LIP_BINARY_={__LIP_BINARY__};
-#define LIP_BINARY__ (&LIP_BINARY_)
-
-// LIP_UNARY
-#define __LIP_UNARY__ 26
-typedef struct LIP_UNARY_struct __LIP_UNARY;
-struct LIP_UNARY_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__FZ4B;
-  void *value__G5QD;
-  __CHARACTER operator__J5QD;
-};
-__LIP_UNARY LIP_UNARY_={__LIP_UNARY__};
-#define LIP_UNARY__ (&LIP_UNARY_)
-
-// LIP_INTEGER
-#define __LIP_INTEGER__ 27
-typedef struct LIP_INTEGER_struct __LIP_INTEGER;
-struct LIP_INTEGER_struct {
-  unsigned long __id;
-  __INTEGER value__FP4F;
-};
-__LIP_INTEGER LIP_INTEGER_={__LIP_INTEGER__};
-#define LIP_INTEGER__ (&LIP_INTEGER_)
-
-// LIP_STRING
-#define __LIP_STRING__ 28
-typedef struct LIP_STRING_struct __LIP_STRING;
-struct LIP_STRING_struct {
-  unsigned long __id;
-  void *value__WSUE;
-};
-__LIP_STRING LIP_STRING_={__LIP_STRING__};
-#define LIP_STRING__ (&LIP_STRING_)
-
-// HASHED_SET_NODE[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ 50
-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__W5V;
-  void *next__CAW;
-};
-__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_;
-#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__ 51
-typedef struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo;
-struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct {
-  __INTEGER capacity__F5V;
-  __INTEGER count__ZHW;
-  void **buckets__K5V;
-};
-__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// ITM_LOCAL
-#define __ITM_LOCAL__ 52
-typedef struct ITM_LOCAL_struct __ITM_LOCAL;
-struct ITM_LOCAL_struct {
-  __ITM_OBJECT parent_itm_object__O3H;
-  void *name__P4K;
-};
-__ITM_LOCAL ITM_LOCAL_;
-#define ITM_LOCAL__ (&ITM_LOCAL_)
-
-// ARRAYED_COLLECTION[ITM_LOCAL]
-#define __ARRAYED_COLLECTIONoITM_LOCALo__ 53
-typedef struct ARRAYED_COLLECTIONoITM_LOCALo_struct __ARRAYED_COLLECTIONoITM_LOCALo;
-struct ARRAYED_COLLECTIONoITM_LOCALo_struct {
-  __INTEGER upper__M2K;
-  __INTEGER capacity__IMU;
-  void **storage__TMU;
-};
-__ARRAYED_COLLECTIONoITM_LOCALo ARRAYED_COLLECTIONoITM_LOCALo_;
-#define ARRAYED_COLLECTIONoITM_LOCALo__ (&ARRAYED_COLLECTIONoITM_LOCALo_)
-
-// FAST_ARRAY[ITM_LOCAL]
-#define __FAST_ARRAYoITM_LOCALo__ 54
-typedef struct FAST_ARRAYoITM_LOCALo_struct __FAST_ARRAYoITM_LOCALo;
-struct FAST_ARRAYoITM_LOCALo_struct {
-  __ARRAYED_COLLECTIONoITM_LOCALo parent_arrayed_collection__T3H;
-};
-__FAST_ARRAYoITM_LOCALo FAST_ARRAYoITM_LOCALo_;
-#define FAST_ARRAYoITM_LOCALo__ (&FAST_ARRAYoITM_LOCALo_)
-
-// NUMERIC
-#define __NUMERIC__ 55
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
-  void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 56
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
-  void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// SYSTEM
-#define __SYSTEM__ 57
-typedef struct SYSTEM_struct __SYSTEM;
-struct SYSTEM_struct {
-  void *Nothing;
-};
-__SYSTEM SYSTEM_;
-#define SYSTEM__ (&SYSTEM_)
-
-// ALIAS_STR
-#define __ALIAS_STR__ 58
-typedef struct ALIAS_STR_struct __ALIAS_STR;
-struct ALIAS_STR_struct {
-  void *Nothing;
-};
-__ALIAS_STR ALIAS_STR_;
-#define ALIAS_STR__ (&ALIAS_STR_)
-
-// ANY
-#define __ANY__ 59
-typedef struct ANY_struct __ANY;
-struct ANY_struct {
-  void *Nothing;
-};
-__ANY ANY_;
-#define ANY__ (&ANY_)
-
-// ANY_OPTION
-#define __ANY_OPTION__ 60
-typedef struct ANY_OPTION_struct __ANY_OPTION;
-struct ANY_OPTION_struct {
-  void *Nothing;
-};
-__ANY_OPTION ANY_OPTION_;
-#define ANY_OPTION__ (&ANY_OPTION_)
-
-// FALSE
-#define FALSE__ 0
-
-// SHORTER
-#define __SHORTER__ 61
-typedef struct SHORTER_struct __SHORTER;
-struct SHORTER_struct {
-  void *Nothing;
-};
-__SHORTER SHORTER_;
-#define SHORTER__ (&SHORTER_)
-
-// FILE_SYSTEM
-#define __FILE_SYSTEM__ 62
-typedef struct FILE_SYSTEM_struct __FILE_SYSTEM;
-struct FILE_SYSTEM_struct {
-  void *parent_directory__GHD;
-  int parent_directory__HHD;
-};
-__FILE_SYSTEM FILE_SYSTEM_;
-#define FILE_SYSTEM__ (&FILE_SYSTEM_)
-
-// HASHED_DICTIONARY_NODE[PROTOTYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ 63
-typedef struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct {
-  void *key__1MBC;
-  void *item__NBHD;
-  void *next__GNBC;
-};
-__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[PROTOTYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ 64
-typedef struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct {
-  __INTEGER capacity__KMBC;
-  __INTEGER count__PNBC;
-  void **buckets__PMBC;
-};
-__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_)
-
-// ARRAYED_COLLECTION[PROTOTYPE]
-#define __ARRAYED_COLLECTIONoPROTOTYPEo__ 65
-typedef struct ARRAYED_COLLECTIONoPROTOTYPEo_struct __ARRAYED_COLLECTIONoPROTOTYPEo;
-struct ARRAYED_COLLECTIONoPROTOTYPEo_struct {
-  __INTEGER upper__HJ;
-  __INTEGER capacity__WEU;
-  void **storage__DVT;
-};
-__ARRAYED_COLLECTIONoPROTOTYPEo ARRAYED_COLLECTIONoPROTOTYPEo_;
-#define ARRAYED_COLLECTIONoPROTOTYPEo__ (&ARRAYED_COLLECTIONoPROTOTYPEo_)
-
-// FAST_ARRAY[PROTOTYPE]
-#define __FAST_ARRAYoPROTOTYPEo__ 66
-typedef struct FAST_ARRAYoPROTOTYPEo_struct __FAST_ARRAYoPROTOTYPEo;
-struct FAST_ARRAYoPROTOTYPEo_struct {
-  __ARRAYED_COLLECTIONoPROTOTYPEo parent_arrayed_collection__AJ;
-};
-__FAST_ARRAYoPROTOTYPEo FAST_ARRAYoPROTOTYPEo_;
-#define FAST_ARRAYoPROTOTYPEo__ (&FAST_ARRAYoPROTOTYPEo_)
-
-// FS_MIN
-#define __FS_MIN__ 67
-typedef struct FS_MIN_struct __FS_MIN;
-struct FS_MIN_struct {
-  void *Nothing;
-};
-__FS_MIN FS_MIN_;
-#define FS_MIN__ (&FS_MIN_)
-
-// LINKED_LIST_NODE[STRING_CONSTANT]
-#define __LINKED_LIST_NODEoSTRING_CONSTANTo__ 68
-typedef struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct __LINKED_LIST_NODEoSTRING_CONSTANTo;
-struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct {
-  void *item__L0HD;
-  void *next__JROD;
-};
-__LINKED_LIST_NODEoSTRING_CONSTANTo LINKED_LIST_NODEoSTRING_CONSTANTo_;
-#define LINKED_LIST_NODEoSTRING_CONSTANTo__ (&LINKED_LIST_NODEoSTRING_CONSTANTo_)
-
-// TYPE
-#define __TYPE__ 69
-typedef struct TYPE_struct __TYPE;
-struct TYPE_struct {
-  void *Nothing;
-};
-__TYPE TYPE_;
-#define TYPE__ (&TYPE_)
-
-// ARRAYED_COLLECTION[SLOT]
-#define __ARRAYED_COLLECTIONoSLOTo__ 70
-typedef struct ARRAYED_COLLECTIONoSLOTo_struct __ARRAYED_COLLECTIONoSLOTo;
-struct ARRAYED_COLLECTIONoSLOTo_struct {
-  __INTEGER capacity__QFS;
-};
-__ARRAYED_COLLECTIONoSLOTo ARRAYED_COLLECTIONoSLOTo_;
-#define ARRAYED_COLLECTIONoSLOTo__ (&ARRAYED_COLLECTIONoSLOTo_)
-
-// FAST_ARRAY[SLOT]
-#define __FAST_ARRAYoSLOTo__ 71
-typedef struct FAST_ARRAYoSLOTo_struct __FAST_ARRAYoSLOTo;
-struct FAST_ARRAYoSLOTo_struct {
-  __ARRAYED_COLLECTIONoSLOTo parent_arrayed_collection__BAB;
-};
-__FAST_ARRAYoSLOTo FAST_ARRAYoSLOTo_;
-#define FAST_ARRAYoSLOTo__ (&FAST_ARRAYoSLOTo_)
-
-// LINKED_COLLECTION[ENTRY]
-#define __LINKED_COLLECTIONoENTRYo__ 72
-typedef struct LINKED_COLLECTIONoENTRYo_struct __LINKED_COLLECTIONoENTRYo;
-struct LINKED_COLLECTIONoENTRYo_struct {
-  __INTEGER upper__HR3D;
-};
-__LINKED_COLLECTIONoENTRYo LINKED_COLLECTIONoENTRYo_;
-#define LINKED_COLLECTIONoENTRYo__ (&LINKED_COLLECTIONoENTRYo_)
-
-// LINKED_LIST[ENTRY]
-#define __LINKED_LISToENTRYo__ 73
-typedef struct LINKED_LISToENTRYo_struct __LINKED_LISToENTRYo;
-struct LINKED_LISToENTRYo_struct {
-  __LINKED_COLLECTIONoENTRYo parent_linked_collection__EIRD;
-  __INTEGER mem_idx__VMWE;
-  void *first_link__OMWE;
-  void *mem_lnk__WMWE;
-  void *last_link__XMWE;
-};
-__LINKED_LISToENTRYo LINKED_LISToENTRYo_;
-#define LINKED_LISToENTRYo__ (&LINKED_LISToENTRYo_)
-
-// LINKED_LIST_NODE[ENTRY]
-#define __LINKED_LIST_NODEoENTRYo__ 74
-typedef struct LINKED_LIST_NODEoENTRYo_struct __LINKED_LIST_NODEoENTRYo;
-struct LINKED_LIST_NODEoENTRYo_struct {
-  void *item__IAXE;
-  void *next__G3FF;
-};
-__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__ 75
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct {
-  __INTEGER upper__ZUV;
-  __INTEGER capacity__UYV;
-  void **storage__PZV;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ 76
-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__FVP;
-};
-__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__ 77
-typedef struct ALIAS_ARRAYoITM_TYPE_MONOo_struct __ALIAS_ARRAYoITM_TYPE_MONOo;
-struct ALIAS_ARRAYoITM_TYPE_MONOo_struct {
-  void *Nothing;
-};
-__ALIAS_ARRAYoITM_TYPE_MONOo ALIAS_ARRAYoITM_TYPE_MONOo_;
-#define ALIAS_ARRAYoITM_TYPE_MONOo__ (&ALIAS_ARRAYoITM_TYPE_MONOo_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_MULTI]
-#define __ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ 78
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct __ARRAYED_COLLECTIONoITM_TYPE_MULTIo;
-struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct {
-  __INTEGER upper__SKP;
-  __INTEGER capacity__R1V;
-  void **storage__21V;
-};
-__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__ 79
-typedef struct FAST_ARRAYoITM_TYPE_MULTIo_struct __FAST_ARRAYoITM_TYPE_MULTIo;
-struct FAST_ARRAYoITM_TYPE_MULTIo_struct {
-  __ARRAYED_COLLECTIONoITM_TYPE_MULTIo parent_arrayed_collection__IKP;
-};
-__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__ 80
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_struct __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo;
-struct ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_struct {
-  __INTEGER upper__ENN;
-  __INTEGER capacity__0JV;
-  void **storage__FKV;
-};
-__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__ 81
-typedef struct FAST_ARRAYoITM_TYPE_BLOCKo_struct __FAST_ARRAYoITM_TYPE_BLOCKo;
-struct FAST_ARRAYoITM_TYPE_BLOCKo_struct {
-  __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo parent_arrayed_collection__0MN;
-};
-__FAST_ARRAYoITM_TYPE_BLOCKo FAST_ARRAYoITM_TYPE_BLOCKo_;
-#define FAST_ARRAYoITM_TYPE_BLOCKo__ (&FAST_ARRAYoITM_TYPE_BLOCKo_)
-
-// ITM_CONSTANT
-#define __ITM_CONSTANT__ 82
-typedef struct ITM_CONSTANT_struct __ITM_CONSTANT;
-struct ITM_CONSTANT_struct {
-  __ITM_CODE parent_itm_code__TYF;
-};
-__ITM_CONSTANT ITM_CONSTANT_;
-#define ITM_CONSTANT__ (&ITM_CONSTANT_)
-
-// ITM_REAL
-#define __ITM_REAL__ 29
-typedef struct ITM_REAL_struct __ITM_REAL;
-struct ITM_REAL_struct {
-  unsigned long __id;
-  __ITM_CONSTANT parent_itm_constant__BSO;
-};
-__ITM_REAL ITM_REAL_={__ITM_REAL__};
-#define ITM_REAL__ (&ITM_REAL_)
-
-// ITM_NUMBER
-#define __ITM_NUMBER__ 30
-typedef struct ITM_NUMBER_struct __ITM_NUMBER;
-struct ITM_NUMBER_struct {
-  unsigned long __id;
-  __ITM_CONSTANT parent_itm_constant__TSO;
-};
-__ITM_NUMBER ITM_NUMBER_={__ITM_NUMBER__};
-#define ITM_NUMBER__ (&ITM_NUMBER_)
-
-// ITM_CHARACTER
-#define __ITM_CHARACTER__ 31
-typedef struct ITM_CHARACTER_struct __ITM_CHARACTER;
-struct ITM_CHARACTER_struct {
-  unsigned long __id;
-  __ITM_CONSTANT parent_itm_constant__FTO;
-};
-__ITM_CHARACTER ITM_CHARACTER_={__ITM_CHARACTER__};
-#define ITM_CHARACTER__ (&ITM_CHARACTER_)
-
-// ITM_STRING
-#define __ITM_STRING__ 32
-typedef struct ITM_STRING_struct __ITM_STRING;
-struct ITM_STRING_struct {
-  unsigned long __id;
-  __ITM_CONSTANT parent_itm_constant__WTO;
-};
-__ITM_STRING ITM_STRING_={__ITM_STRING__};
-#define ITM_STRING__ (&ITM_STRING_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_GENERIC]
-#define __ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ 83
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct __ARRAYED_COLLECTIONoITM_TYPE_GENERICo;
-struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct {
-  __INTEGER upper__2YP;
-  __INTEGER capacity__HBW;
-  void **storage__SBW;
-};
-__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__ 84
-typedef struct FAST_ARRAYoITM_TYPE_GENERICo_struct __FAST_ARRAYoITM_TYPE_GENERICo;
-struct FAST_ARRAYoITM_TYPE_GENERICo_struct {
-  __ARRAYED_COLLECTIONoITM_TYPE_GENERICo parent_arrayed_collection__SYP;
-};
-__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__ 85
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct __ARRAYED_COLLECTIONoITM_TYPE_STYLEo;
-struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct {
-  __INTEGER upper__LPR;
-  __INTEGER capacity__PLW;
-  void **storage__0LW;
-};
-__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__ 86
-typedef struct FAST_ARRAYoITM_TYPE_STYLEo_struct __FAST_ARRAYoITM_TYPE_STYLEo;
-struct FAST_ARRAYoITM_TYPE_STYLEo_struct {
-  __ARRAYED_COLLECTIONoITM_TYPE_STYLEo parent_arrayed_collection__BPR;
-};
-__FAST_ARRAYoITM_TYPE_STYLEo FAST_ARRAYoITM_TYPE_STYLEo_;
-#define FAST_ARRAYoITM_TYPE_STYLEo__ (&FAST_ARRAYoITM_TYPE_STYLEo_)
-
-// ITM_LIST
-#define __ITM_LIST__ 33
-typedef struct ITM_LIST_struct __ITM_LIST;
-struct ITM_LIST_struct {
-  unsigned long __id;
-  __ITM_CODE parent_itm_code__SBF;
-};
-__ITM_LIST ITM_LIST_={__ITM_LIST__};
-#define ITM_LIST__ (&ITM_LIST_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_LOCAL]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ 87
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct {
-  __INTEGER upper__C3T;
-  __INTEGER capacity__NKU;
-  void **storage__YKU;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_LOCAL]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__ 88
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo;
-struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct {
-  __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo parent_arrayed_collection__ZTI;
-};
-__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__ 89
-typedef struct ALIAS_ARRAYoITM_LOCALo_struct __ALIAS_ARRAYoITM_LOCALo;
-struct ALIAS_ARRAYoITM_LOCALo_struct {
-  void *Nothing;
-};
-__ALIAS_ARRAYoITM_LOCALo ALIAS_ARRAYoITM_LOCALo_;
-#define ALIAS_ARRAYoITM_LOCALo__ (&ALIAS_ARRAYoITM_LOCALo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_CODE]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ 90
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct {
-  __INTEGER upper__BYT;
-  __INTEGER capacity__TBU;
-  void **storage__PCU;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_CODE]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_CODEoo__ 91
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct __FAST_ARRAYoFAST_ARRAYoITM_CODEoo;
-struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct {
-  __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo parent_arrayed_collection__PAI;
-};
-__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__ 92
-typedef struct ALIAS_ARRAYoITM_CODEo_struct __ALIAS_ARRAYoITM_CODEo;
-struct ALIAS_ARRAYoITM_CODEo_struct {
-  void *Nothing;
-};
-__ALIAS_ARRAYoITM_CODEo ALIAS_ARRAYoITM_CODEo_;
-#define ALIAS_ARRAYoITM_CODEo__ (&ALIAS_ARRAYoITM_CODEo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[STRING_CONSTANT]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ 93
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct {
-  __INTEGER upper__LUU;
-  __INTEGER capacity__QWU;
-  void **storage__1WU;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_)
-
-// FAST_ARRAY[FAST_ARRAY[STRING_CONSTANT]]
-#define __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ 94
-typedef struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo;
-struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct {
-  __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo parent_arrayed_collection__0AL;
-};
-__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_;
-#define FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ (&FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_)
-
-// ALIAS_ARRAY[STRING_CONSTANT]
-#define __ALIAS_ARRAYoSTRING_CONSTANTo__ 95
-typedef struct ALIAS_ARRAYoSTRING_CONSTANTo_struct __ALIAS_ARRAYoSTRING_CONSTANTo;
-struct ALIAS_ARRAYoSTRING_CONSTANTo_struct {
-  void *Nothing;
-};
-__ALIAS_ARRAYoSTRING_CONSTANTo ALIAS_ARRAYoSTRING_CONSTANTo_;
-#define ALIAS_ARRAYoSTRING_CONSTANTo__ (&ALIAS_ARRAYoSTRING_CONSTANTo_)
-
-// ITM_LIST_IDF
-#define __ITM_LIST_IDF__ 34
-typedef struct ITM_LIST_IDF_struct __ITM_LIST_IDF;
-struct ITM_LIST_IDF_struct {
-  unsigned long __id;
-  __ITM_CODE parent_itm_code__1EJ;
-};
-__ITM_LIST_IDF ITM_LIST_IDF_={__ITM_LIST_IDF__};
-#define ITM_LIST_IDF__ (&ITM_LIST_IDF_)
-
-// ITM_LDOTS
-#define __ITM_LDOTS__ 35
-typedef struct ITM_LDOTS_struct __ITM_LDOTS;
-struct ITM_LDOTS_struct {
-  unsigned long __id;
-  __ITM_CODE parent_itm_constant__IXF;
-};
-__ITM_LDOTS ITM_LDOTS_={__ITM_LDOTS__};
-#define ITM_LDOTS__ (&ITM_LDOTS_)
-
-// ITM_PROTOTYPE
-#define __ITM_PROTOTYPE__ 36
-typedef struct ITM_PROTOTYPE_struct __ITM_PROTOTYPE;
-struct ITM_PROTOTYPE_struct {
-  unsigned long __id;
-  __ITM_CONSTANT parent_itm_constant__UYF;
-};
-__ITM_PROTOTYPE ITM_PROTOTYPE_={__ITM_PROTOTYPE__};
-#define ITM_PROTOTYPE__ (&ITM_PROTOTYPE_)
-
-// ITM_WRITE
-#define __ITM_WRITE__ 96
-typedef struct ITM_WRITE_struct __ITM_WRITE;
-struct ITM_WRITE_struct {
-  __ITM_CODE parent_itm_code__QFJ;
-};
-__ITM_WRITE ITM_WRITE_;
-#define ITM_WRITE__ (&ITM_WRITE_)
-
-// ITM_WRITE_VALUE
-#define __ITM_WRITE_VALUE__ 37
-typedef struct ITM_WRITE_VALUE_struct __ITM_WRITE_VALUE;
-struct ITM_WRITE_VALUE_struct {
-  unsigned long __id;
-  __ITM_WRITE parent_itm_write__RFJ;
-};
-__ITM_WRITE_VALUE ITM_WRITE_VALUE_={__ITM_WRITE_VALUE__};
-#define ITM_WRITE_VALUE__ (&ITM_WRITE_VALUE_)
-
-// ITM_WRITE_CAST
-#define __ITM_WRITE_CAST__ 38
-typedef struct ITM_WRITE_CAST_struct __ITM_WRITE_CAST;
-struct ITM_WRITE_CAST_struct {
-  unsigned long __id;
-  __ITM_WRITE parent_itm_write__IGJ;
-};
-__ITM_WRITE_CAST ITM_WRITE_CAST_={__ITM_WRITE_CAST__};
-#define ITM_WRITE_CAST__ (&ITM_WRITE_CAST_)
-
-// ITM_READ
-#define __ITM_READ__ 39
-typedef struct ITM_READ_struct __ITM_READ;
-struct ITM_READ_struct {
-  unsigned long __id;
-  __ITM_CODE parent_itm_code__VIJ;
-};
-__ITM_READ ITM_READ_={__ITM_READ__};
-#define ITM_READ__ (&ITM_READ_)
-
-// ITM_WRITE_CODE
-#define __ITM_WRITE_CODE__ 40
-typedef struct ITM_WRITE_CODE_struct __ITM_WRITE_CODE;
-struct ITM_WRITE_CODE_struct {
-  unsigned long __id;
-  __ITM_WRITE parent_itm_write__TJJ;
-};
-__ITM_WRITE_CODE ITM_WRITE_CODE_={__ITM_WRITE_CODE__};
-#define ITM_WRITE_CODE__ (&ITM_WRITE_CODE_)
-
-// ITM_OPERATOR
-#define __ITM_OPERATOR__ 41
-typedef struct ITM_OPERATOR_struct __ITM_OPERATOR;
-struct ITM_OPERATOR_struct {
-  unsigned long __id;
-  __ITM_CODE parent_itm_code__VGL;
-  void *name__AKL;
-};
-__ITM_OPERATOR ITM_OPERATOR_={__ITM_OPERATOR__};
-#define ITM_OPERATOR__ (&ITM_OPERATOR_)
-
-// ITM_READ_ARG1
-#define __ITM_READ_ARG1__ 42
-typedef struct ITM_READ_ARG1_struct __ITM_READ_ARG1;
-struct ITM_READ_ARG1_struct {
-  unsigned long __id;
-  __ITM_READ parent_itm_read__1JL;
-};
-__ITM_READ_ARG1 ITM_READ_ARG1_={__ITM_READ_ARG1__};
-#define ITM_READ_ARG1__ (&ITM_READ_ARG1_)
-
-// ITM_READ_ARG2
-#define __ITM_READ_ARG2__ 43
-typedef struct ITM_READ_ARG2_struct __ITM_READ_ARG2;
-struct ITM_READ_ARG2_struct {
-  unsigned long __id;
-  __ITM_READ parent_itm_read__IML;
-};
-__ITM_READ_ARG2 ITM_READ_ARG2_={__ITM_READ_ARG2__};
-#define ITM_READ_ARG2__ (&ITM_READ_ARG2_)
-
-// ITM_OLD
-#define __ITM_OLD__ 44
-typedef struct ITM_OLD_struct __ITM_OLD;
-struct ITM_OLD_struct {
-  unsigned long __id;
-  __ITM_CODE parent_itm_code__W3L;
-};
-__ITM_OLD ITM_OLD_={__ITM_OLD__};
-#define ITM_OLD__ (&ITM_OLD_)
-
-// ITM_EXTERN
-#define __ITM_EXTERN__ 97
-typedef struct ITM_EXTERN_struct __ITM_EXTERN;
-struct ITM_EXTERN_struct {
-  __ITM_CODE parent_itm_code__K5M;
-};
-__ITM_EXTERN ITM_EXTERN_;
-#define ITM_EXTERN__ (&ITM_EXTERN_)
-
-// ITM_EXTERNAL_TYPE
-#define __ITM_EXTERNAL_TYPE__ 45
-typedef struct ITM_EXTERNAL_TYPE_struct __ITM_EXTERNAL_TYPE;
-struct ITM_EXTERNAL_TYPE_struct {
-  unsigned long __id;
-  __ITM_EXTERN parent_itm_extern__L5M;
-  __BOOLEAN is_persistant__IIN;
-};
-__ITM_EXTERNAL_TYPE ITM_EXTERNAL_TYPE_={__ITM_EXTERNAL_TYPE__};
-#define ITM_EXTERNAL_TYPE__ (&ITM_EXTERNAL_TYPE_)
-
-// ITM_BLOCK
-#define __ITM_BLOCK__ 46
-typedef struct ITM_BLOCK_struct __ITM_BLOCK;
-struct ITM_BLOCK_struct {
-  unsigned long __id;
-  void *list__KMDC;
-};
-__ITM_BLOCK ITM_BLOCK_={__ITM_BLOCK__};
-#define ITM_BLOCK__ (&ITM_BLOCK_)
-
-// ITM_EXTERNAL
-#define __ITM_EXTERNAL__ 47
-typedef struct ITM_EXTERNAL_struct __ITM_EXTERNAL;
-struct ITM_EXTERNAL_struct {
-  unsigned long __id;
-  __ITM_EXTERN parent_itm_extern__QGN;
-};
-__ITM_EXTERNAL ITM_EXTERNAL_={__ITM_EXTERNAL__};
-#define ITM_EXTERNAL__ (&ITM_EXTERNAL_)
-
-// ITM_READ_ARGS
-#define __ITM_READ_ARGS__ 48
-typedef struct ITM_READ_ARGS_struct __ITM_READ_ARGS;
-struct ITM_READ_ARGS_struct {
-  unsigned long __id;
-  __ITM_READ parent_itm_read__GEO;
-};
-__ITM_READ_ARGS ITM_READ_ARGS_={__ITM_READ_ARGS__};
-#define ITM_READ_ARGS__ (&ITM_READ_ARGS_)
-
-// ARRAYED_COLLECTION[LIP_INTEGER]
-#define __ARRAYED_COLLECTIONoLIP_INTEGERo__ 98
-typedef struct ARRAYED_COLLECTIONoLIP_INTEGERo_struct __ARRAYED_COLLECTIONoLIP_INTEGERo;
-struct ARRAYED_COLLECTIONoLIP_INTEGERo_struct {
-  __INTEGER upper__GIXE;
-  __INTEGER capacity__IMXE;
-  void **storage__TMXE;
-};
-__ARRAYED_COLLECTIONoLIP_INTEGERo ARRAYED_COLLECTIONoLIP_INTEGERo_;
-#define ARRAYED_COLLECTIONoLIP_INTEGERo__ (&ARRAYED_COLLECTIONoLIP_INTEGERo_)
-
-// FAST_ARRAY[LIP_INTEGER]
-#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__3YSE;
-};
-__FAST_ARRAYoLIP_INTEGERo FAST_ARRAYoLIP_INTEGERo_;
-#define FAST_ARRAYoLIP_INTEGERo__ (&FAST_ARRAYoLIP_INTEGERo_)
-
-// ARRAYED_COLLECTION[LIP_STRING]
-#define __ARRAYED_COLLECTIONoLIP_STRINGo__ 100
-typedef struct ARRAYED_COLLECTIONoLIP_STRINGo_struct __ARRAYED_COLLECTIONoLIP_STRINGo;
-struct ARRAYED_COLLECTIONoLIP_STRINGo_struct {
-  __INTEGER upper__WZPF;
-  __INTEGER capacity__4AQF;
-  void **storage__JBQF;
-};
-__ARRAYED_COLLECTIONoLIP_STRINGo ARRAYED_COLLECTIONoLIP_STRINGo_;
-#define ARRAYED_COLLECTIONoLIP_STRINGo__ (&ARRAYED_COLLECTIONoLIP_STRINGo_)
-
-// FAST_ARRAY[LIP_STRING]
-#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__G5FF;
-};
-__FAST_ARRAYoLIP_STRINGo FAST_ARRAYoLIP_STRINGo_;
-#define FAST_ARRAYoLIP_STRINGo__ (&FAST_ARRAYoLIP_STRINGo_)
-
-// LIP_BOOLEAN
-#define __LIP_BOOLEAN__ 49
-typedef struct LIP_BOOLEAN_struct __LIP_BOOLEAN;
-struct LIP_BOOLEAN_struct {
-  unsigned long __id;
-  __BOOLEAN value__MGQD;
-};
-__LIP_BOOLEAN LIP_BOOLEAN_={__LIP_BOOLEAN__};
-#define LIP_BOOLEAN__ (&LIP_BOOLEAN_)
-
-// TRUE
-#define TRUE__ 1
-
-// LIP_VALUE
-#define __LIP_VALUE__ 50
-typedef struct LIP_VALUE_struct __LIP_VALUE;
-struct LIP_VALUE_struct {
-  unsigned long __id;
-  __LIP_CODE parent_lip_code__1IFE;
-  void *value__I1UE;
-};
-__LIP_VALUE LIP_VALUE_={__LIP_VALUE__};
-#define LIP_VALUE__ (&LIP_VALUE_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[LIP_CODE]]
-#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__PTTD;
-  __INTEGER capacity__QFUD;
-  void **storage__MGUD;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_)
-
-// FAST_ARRAY[FAST_ARRAY[LIP_CODE]]
-#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__WOID;
-};
-__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__ 104
-typedef struct ALIAS_ARRAYoLIP_CODEo_struct __ALIAS_ARRAYoLIP_CODEo;
-struct ALIAS_ARRAYoLIP_CODEo_struct {
-  void *Nothing;
-};
-__ALIAS_ARRAYoLIP_CODEo ALIAS_ARRAYoLIP_CODEo_;
-#define ALIAS_ARRAYoLIP_CODEo__ (&ALIAS_ARRAYoLIP_CODEo_)
-
-// INPUT_STREAM
-#define __INPUT_STREAM__ 105
-typedef struct INPUT_STREAM_struct __INPUT_STREAM;
-struct INPUT_STREAM_struct {
-  void *Nothing;
-};
-__INPUT_STREAM INPUT_STREAM_;
-#define INPUT_STREAM__ (&INPUT_STREAM_)
-
-// STD_INPUT
-#define __STD_INPUT__ 106
-typedef struct STD_INPUT_struct __STD_INPUT;
-struct STD_INPUT_struct {
-  void *Nothing;
-};
-__STD_INPUT STD_INPUT_;
-#define STD_INPUT__ (&STD_INPUT_)
-
-// LIP_SLOT_DATA
-#define __LIP_SLOT_DATA__ 107
-typedef struct LIP_SLOT_DATA_struct __LIP_SLOT_DATA;
-struct LIP_SLOT_DATA_struct {
-  void *Nothing;
-};
-__LIP_SLOT_DATA LIP_SLOT_DATA_;
-#define LIP_SLOT_DATA__ (&LIP_SLOT_DATA_)
-
-// ARRAYED_COLLECTION[LIP_SLOT_DATA]
-#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__ADQF;
-  __INTEGER capacity__HJQF;
-  void **storage__SJQF;
-};
-__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__ 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__H0UE;
-};
-__FAST_ARRAYoLIP_SLOT_DATAo FAST_ARRAYoLIP_SLOT_DATAo_;
-#define FAST_ARRAYoLIP_SLOT_DATAo__ (&FAST_ARRAYoLIP_SLOT_DATAo_)
-
-// LIP_SLOT_CODE
-#define __LIP_SLOT_CODE__ 110
-typedef struct LIP_SLOT_CODE_struct __LIP_SLOT_CODE;
-struct LIP_SLOT_CODE_struct {
-  void *Nothing;
-};
-__LIP_SLOT_CODE LIP_SLOT_CODE_;
-#define LIP_SLOT_CODE__ (&LIP_SLOT_CODE_)
-
-// ARRAYED_COLLECTION[LIP_SLOT_CODE]
-#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__M2KF;
-  __INTEGER capacity__IEQF;
-  void **storage__TEQF;
-};
-__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__ 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__C2KF;
-};
-__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__ 113
-typedef struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct {
-  void *key__YOEC;
-  void *item__LPEC;
-  void *next__DPEC;
-};
-__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[SECTION_,STRING_CONSTANT]
-#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__HOEC;
-  __INTEGER count__JYFC;
-  void **buckets__MOEC;
-};
-__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_)
-
-// 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;
-struct HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct {
-  void *item__RREC;
-  void *key__4QEC;
-  void *next__JREC;
-};
-__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// HASHED_DICTIONARY[SECTION_,FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ 116
-typedef struct HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo;
-struct HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct {
-  __INTEGER capacity__NQEC;
-  __INTEGER count__D1FC;
-  void **buckets__SQEC;
-};
-__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_ARGUMENT]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__ 117
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_struct {
-  __INTEGER upper__0SGC;
-  __INTEGER capacity__CKHC;
-  void **storage__NKHC;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_ARGUMENT]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__ 118
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_struct __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo;
-struct FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_struct {
-  __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo parent_arrayed_collection__PS1B;
-};
-__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_;
-#define FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__ (&FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_)
-
-// ALIAS_ARRAY[ITM_ARGUMENT]
-#define __ALIAS_ARRAYoITM_ARGUMENTo__ 119
-typedef struct ALIAS_ARRAYoITM_ARGUMENTo_struct __ALIAS_ARRAYoITM_ARGUMENTo;
-struct ALIAS_ARRAYoITM_ARGUMENTo_struct {
-  void *Nothing;
-};
-__ALIAS_ARRAYoITM_ARGUMENTo ALIAS_ARRAYoITM_ARGUMENTo_;
-#define ALIAS_ARRAYoITM_ARGUMENTo__ (&ALIAS_ARRAYoITM_ARGUMENTo_)
-
-// ARRAYED_COLLECTION[ITM_SLOT]
-#define __ARRAYED_COLLECTIONoITM_SLOTo__ 120
-typedef struct ARRAYED_COLLECTIONoITM_SLOTo_struct __ARRAYED_COLLECTIONoITM_SLOTo;
-struct ARRAYED_COLLECTIONoITM_SLOTo_struct {
-  __INTEGER upper__UOTD;
-  __INTEGER capacity__RCWE;
-  void **storage__UPWE;
-};
-__ARRAYED_COLLECTIONoITM_SLOTo ARRAYED_COLLECTIONoITM_SLOTo_;
-#define ARRAYED_COLLECTIONoITM_SLOTo__ (&ARRAYED_COLLECTIONoITM_SLOTo_)
-
-// FAST_ARRAY[ITM_SLOT]
-#define __FAST_ARRAYoITM_SLOTo__ 121
-typedef struct FAST_ARRAYoITM_SLOTo_struct __FAST_ARRAYoITM_SLOTo;
-struct FAST_ARRAYoITM_SLOTo_struct {
-  __ARRAYED_COLLECTIONoITM_SLOTo parent_arrayed_collection__XNTD;
-};
-__FAST_ARRAYoITM_SLOTo FAST_ARRAYoITM_SLOTo_;
-#define FAST_ARRAYoITM_SLOTo__ (&FAST_ARRAYoITM_SLOTo_)
-
-// TYPE_NULL
-#define __TYPE_NULL__ 51
-typedef struct TYPE_NULL_struct __TYPE_NULL;
-struct TYPE_NULL_struct {
-  unsigned long __id;
-};
-__TYPE_NULL TYPE_NULL_={__TYPE_NULL__};
-#define TYPE_NULL__ (&TYPE_NULL_)
-
-// TYPE_VOID
-#define __TYPE_VOID__ 52
-typedef struct TYPE_VOID_struct __TYPE_VOID;
-struct TYPE_VOID_struct {
-  unsigned long __id;
-};
-__TYPE_VOID TYPE_VOID_={__TYPE_VOID__};
-#define TYPE_VOID__ (&TYPE_VOID_)
-
-// TYPE_CONTEXT
-#define __TYPE_CONTEXT__ 53
-typedef struct TYPE_CONTEXT_struct __TYPE_CONTEXT;
-struct TYPE_CONTEXT_struct {
-  unsigned long __id;
-};
-__TYPE_CONTEXT TYPE_CONTEXT_={__TYPE_CONTEXT__};
-#define TYPE_CONTEXT__ (&TYPE_CONTEXT_)
-
-// INTEGER_32
-typedef signed long __INTEGER_32;
-
-// UINTEGER_64
-typedef unsigned long long __UINTEGER_64;
-
-// INTEGER_64
-typedef signed long long __INTEGER_64;
-
-
-void *table_type[122];
-
-//==========================//
-// GLOBAL                   //
-//==========================//
-
-void *parent_numeric__J;
-__INTEGER type_error__5PG;
-void *msg_err__AQG;
-void *prototype_list__BJ;
-void *prototype_dico__LUS;
-void *list_tmp__YNTD;
-void *str_tmp__PP4E;
-void *str_tmp2__RR4E;
-void *str_tmp3__RV4E;
-void *list_id__CBB;
-void *string_tmp__LGD;
-void *string_tmp2__JZAC;
-void *alias__2GD;
-void *string_tmp3__PZAC;
-void *bucket_name__2ROB;
-void *bucket_list__XTOB;
-__POINTER begin_memory__4XH;
-__UINTEGER_32 nb_page__DUJ;
-__UINTEGER_64 capacity_max__R54;
-void *first_free__0BVB;
-void *short_dico__QD;
-void *object__ZBC;
-void *source__5BC;
-__INTEGER position__CCC;
-__INTEGER pos_cur__FCC;
-__INTEGER pos_line__GCC;
-__INTEGER pos_col__HCC;
-__BOOLEAN is_active_short__OCC;
-__INTEGER short_derive__PCC;
-void *short_local__XCC;
-void *last_comment_extern__XZC;
-void *last_string__D2C;
-void *last_section__S2C;
-void *token__BED;
-__BOOLEAN skip_comment__ZBE;
-void *last_comment_slot__LCE;
-__INTEGER begin_position__BDE;
-__BOOLEAN is_parameter_type__AME;
-void *last_group__TWF;
-__INTEGER old_position__ITI;
-__INTEGER old_pos_cur__KTI;
-__INTEGER old_pos_line__MTI;
-__INTEGER old_pos_col__OTI;
-__INTEGER old_short_derive__QTI;
-__INTEGER_64 last_integer__VSO;
-void *last_slot__VUOB;
-void *dico__JKP;
-void *dico__1MN;
-void *type_void__WYF;
-void *dico__XVI;
-void *type_self__DVN;
-void *type_null__1VN;
-void *dico__CPR;
-void *dico__TYP;
-void *list_data__HONC;
-void *stack__I0UE;
-void *list_method__D2KF;
-void *storage__4YSE;
-void *storage__H5FF;
-__UINTEGER_32 clone_allocation_size__NTB;
-__POINTER get_begin_memory__RAQB;
-void *list__FK;
-void *free__3OP;
-void *string_tmp__VH;
-void *output_code__SI;
-void *string_tmp3__HUD;
-void *string_tmp4__JUD;
-void *output_decl__VHE;
-void *string_tmp2__GCJ;
-void *path_file__1FXF;
-__BOOLEAN is_short_recursive__JB;
-__BOOLEAN is_shorter2__VI;
-__BOOLEAN is_shorter__LZ;
-__BOOLEAN is_short_code__11;
-__BOOLEAN is_short_private__J2;
-void *directory_list__YB;
-void *file_list__0B;
-void *current_list__2B;
-void *input_name__3B;
-void *proto_input__BI;
-void *output_name__DI;
-void *format_name__N1;
-void *string_tmp__4VX;
-__INTEGER index_count__P5;
-void *free_list__GVP;
-void *empty_list__NWP;
-void *bucket__YWP;
-void *free_list__0TI;
-void *free_list__QAI;
-void *free_list__1AL;
-void *empty_list__IOMF;
-void *bucket__SOMF;
-void *true__5YLF;
-void *free_list__XOID;
-__INTEGER last_integer__AZUE;
-void *last_string__SZUE;
-__BOOLEAN push_back_flag__P0MF;
-__CHARACTER memory__OGMF;
-void *free_list__QS1B;
-
-//==========================//
-// STRING CONSTANT          //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,4,"SELF"};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,4,"NULL"};
-__STRING_CONSTANT __string_3={__STRING_CONSTANT__,4,"VOID"};
-__STRING_CONSTANT __string_4={__STRING_CONSTANT__,7,"Section"};
-__STRING_CONSTANT __string_5={__STRING_CONSTANT__,5,"Right"};
-__STRING_CONSTANT __string_6={__STRING_CONSTANT__,4,"Left"};
-__STRING_CONSTANT __string_7={__STRING_CONSTANT__,3,"..."};
-__STRING_CONSTANT __string_8={__STRING_CONSTANT__,3,"Old"};
-__STRING_CONSTANT __string_9={__STRING_CONSTANT__,8,"Expanded"};
-__STRING_CONSTANT __string_10={__STRING_CONSTANT__,6,"Strict"};
-__STRING_CONSTANT __string_11={__STRING_CONSTANT__,6,"Result"};
-__STRING_CONSTANT __string_12={__STRING_CONSTANT__,2,":="};
-__STRING_CONSTANT __string_13={__STRING_CONSTANT__,2,"?="};
-__STRING_CONSTANT __string_14={__STRING_CONSTANT__,2,"<-"};
-__STRING_CONSTANT __string_15={__STRING_CONSTANT__,2,"->"};
-__STRING_CONSTANT __string_16={__STRING_CONSTANT__,1,"="};
-__STRING_CONSTANT __string_17={__STRING_CONSTANT__,2,"!="};
-__STRING_CONSTANT __string_18={__STRING_CONSTANT__,1,">"};
-__STRING_CONSTANT __string_19={__STRING_CONSTANT__,2,">="};
-__STRING_CONSTANT __string_20={__STRING_CONSTANT__,1,"<"};
-__STRING_CONSTANT __string_21={__STRING_CONSTANT__,2,"<="};
-__STRING_CONSTANT __string_22={__STRING_CONSTANT__,6,"Header"};
-__STRING_CONSTANT __string_23={__STRING_CONSTANT__,7,"Inherit"};
-__STRING_CONSTANT __string_24={__STRING_CONSTANT__,6,"Insert"};
-__STRING_CONSTANT __string_25={__STRING_CONSTANT__,9,"Interrupt"};
-__STRING_CONSTANT __string_26={__STRING_CONSTANT__,7,"Private"};
-__STRING_CONSTANT __string_27={__STRING_CONSTANT__,6,"Public"};
-__STRING_CONSTANT __string_28={__STRING_CONSTANT__,7,"Mapping"};
-__STRING_CONSTANT __string_29={__STRING_CONSTANT__,9,"Directory"};
-__STRING_CONSTANT __string_30={__STRING_CONSTANT__,8,"External"};
-__STRING_CONSTANT __string_31={__STRING_CONSTANT__,7,"DEFAULT"};
-__STRING_CONSTANT __string_32={__STRING_CONSTANT__,6,"Common"};
-__STRING_CONSTANT __string_33={__STRING_CONSTANT__,7,"INTEGER"};
-__STRING_CONSTANT __string_34={__STRING_CONSTANT__,4,"REAL"};
-__STRING_CONSTANT __string_35={__STRING_CONSTANT__,9,"CHARACTER"};
-__STRING_CONSTANT __string_36={__STRING_CONSTANT__,15,"STRING_CONSTANT"};
-__STRING_CONSTANT __string_37={__STRING_CONSTANT__,6,"STRING"};
-__STRING_CONSTANT __string_38={__STRING_CONSTANT__,12,"NATIVE_ARRAY"};
-__STRING_CONSTANT __string_39={__STRING_CONSTANT__,21,"NATIVE_ARRAY_VOLATILE"};
-__STRING_CONSTANT __string_40={__STRING_CONSTANT__,5,"BLOCK"};
-__STRING_CONSTANT __string_41={__STRING_CONSTANT__,7,"BOOLEAN"};
-__STRING_CONSTANT __string_42={__STRING_CONSTANT__,4,"TRUE"};
-__STRING_CONSTANT __string_43={__STRING_CONSTANT__,5,"FALSE"};
-__STRING_CONSTANT __string_44={__STRING_CONSTANT__,7,"POINTER"};
-__STRING_CONSTANT __string_45={__STRING_CONSTANT__,10,"___CONTEXT"};
-__STRING_CONSTANT __string_46={__STRING_CONSTANT__,10,"___GENERIC"};
-__STRING_CONSTANT __string_47={__STRING_CONSTANT__,10,"___TYPE_ID"};
-__STRING_CONSTANT __string_48={__STRING_CONSTANT__,11,"UINTEGER_64"};
-__STRING_CONSTANT __string_49={__STRING_CONSTANT__,11,"UINTEGER_32"};
-__STRING_CONSTANT __string_50={__STRING_CONSTANT__,11,"UINTEGER_16"};
-__STRING_CONSTANT __string_51={__STRING_CONSTANT__,10,"UINTEGER_8"};
-__STRING_CONSTANT __string_52={__STRING_CONSTANT__,10,"INTEGER_64"};
-__STRING_CONSTANT __string_53={__STRING_CONSTANT__,10,"INTEGER_32"};
-__STRING_CONSTANT __string_54={__STRING_CONSTANT__,10,"INTEGER_16"};
-__STRING_CONSTANT __string_55={__STRING_CONSTANT__,9,"INTEGER_8"};
-__STRING_CONSTANT __string_56={__STRING_CONSTANT__,23,"NATIVE_ARRAY__CHARACT\
-ER"};
-__STRING_CONSTANT __string_57={__STRING_CONSTANT__,37,"NATIVE_ARRAY__NATIVE_\
-ARRAY__CHARACTER"};
-__STRING_CONSTANT __string_58={__STRING_CONSTANT__,4,"Self"};
-__STRING_CONSTANT __string_59={__STRING_CONSTANT__,5,"__pos"};
-__STRING_CONSTANT __string_60={__STRING_CONSTANT__,5,"__tmp"};
-__STRING_CONSTANT __string_61={__STRING_CONSTANT__,6,"lisaac"};
-__STRING_CONSTANT __string_62={__STRING_CONSTANT__,4,"name"};
-__STRING_CONSTANT __string_63={__STRING_CONSTANT__,6,"export"};
-__STRING_CONSTANT __string_64={__STRING_CONSTANT__,6,"import"};
-__STRING_CONSTANT __string_65={__STRING_CONSTANT__,8,"external"};
-__STRING_CONSTANT __string_66={__STRING_CONSTANT__,7,"default"};
-__STRING_CONSTANT __string_67={__STRING_CONSTANT__,4,"type"};
-__STRING_CONSTANT __string_68={__STRING_CONSTANT__,7,"version"};
-__STRING_CONSTANT __string_69={__STRING_CONSTANT__,4,"date"};
-__STRING_CONSTANT __string_70={__STRING_CONSTANT__,7,"comment"};
-__STRING_CONSTANT __string_71={__STRING_CONSTANT__,6,"author"};
-__STRING_CONSTANT __string_72={__STRING_CONSTANT__,12,"bibliography"};
-__STRING_CONSTANT __string_73={__STRING_CONSTANT__,8,"language"};
-__STRING_CONSTANT __string_74={__STRING_CONSTANT__,9,"copyright"};
-__STRING_CONSTANT __string_75={__STRING_CONSTANT__,10,"bug_report"};
-__STRING_CONSTANT __string_76={__STRING_CONSTANT__,5,"value"};
-__STRING_CONSTANT __string_77={__STRING_CONSTANT__,4,"self"};
-__STRING_CONSTANT __string_78={__STRING_CONSTANT__,4,"__id"};
-__STRING_CONSTANT __string_79={__STRING_CONSTANT__,5,"clone"};
-__STRING_CONSTANT __string_80={__STRING_CONSTANT__,4,"main"};
-__STRING_CONSTANT __string_81={__STRING_CONSTANT__,7,"__infix"};
-__STRING_CONSTANT __string_82={__STRING_CONSTANT__,9,"__postfix"};
-__STRING_CONSTANT __string_83={__STRING_CONSTANT__,8,"__prefix"};
-__STRING_CONSTANT __string_84={__STRING_CONSTANT__,3,"to_"};
-__STRING_CONSTANT __string_85={__STRING_CONSTANT__,5,"from_"};
-__STRING_CONSTANT __string_86={__STRING_CONSTANT__,7,"storage"};
-__STRING_CONSTANT __string_87={__STRING_CONSTANT__,5,"count"};
-__STRING_CONSTANT __string_88={__STRING_CONSTANT__,3,"lip"};
-__STRING_CONSTANT __string_89={__STRING_CONSTANT__,2,"if"};
-__STRING_CONSTANT __string_90={__STRING_CONSTANT__,4,"else"};
-__STRING_CONSTANT __string_91={__STRING_CONSTANT__,5,"print"};
-__STRING_CONSTANT __string_92={__STRING_CONSTANT__,4,"exit"};
-__STRING_CONSTANT __string_93={__STRING_CONSTANT__,3,"run"};
-__STRING_CONSTANT __string_94={__STRING_CONSTANT__,4,"path"};
-__STRING_CONSTANT __string_95={__STRING_CONSTANT__,9,"front_end"};
-__STRING_CONSTANT __string_96={__STRING_CONSTANT__,8,"back_end"};
-__STRING_CONSTANT __string_97={__STRING_CONSTANT__,10,"input_file"};
-__STRING_CONSTANT __string_98={__STRING_CONSTANT__,11,"debug_level"};
-__STRING_CONSTANT __string_99={__STRING_CONSTANT__,15,"debug_with_code"};
-__STRING_CONSTANT __string_100={__STRING_CONSTANT__,14,"is_all_warning"};
-__STRING_CONSTANT __string_101={__STRING_CONSTANT__,15,"is_optimization"};
-__STRING_CONSTANT __string_102={__STRING_CONSTANT__,12,"inline_level"};
-__STRING_CONSTANT __string_103={__STRING_CONSTANT__,7,"is_java"};
-__STRING_CONSTANT __string_104={__STRING_CONSTANT__,12,"is_statistic"};
-__STRING_CONSTANT __string_105={__STRING_CONSTANT__,8,"is_quiet"};
-__STRING_CONSTANT __string_106={__STRING_CONSTANT__,11,"get_integer"};
-__STRING_CONSTANT __string_107={__STRING_CONSTANT__,10,"get_string"};
-__STRING_CONSTANT __string_108={__STRING_CONSTANT__,6,"is_cop"};
-__STRING_CONSTANT __string_109={__STRING_CONSTANT__,4,"void"};
-__STRING_CONSTANT __string_110={__STRING_CONSTANT__,9,"struct __"};
-__STRING_CONSTANT __string_111={__STRING_CONSTANT__,13,"/* NOTHING */"};
-__STRING_CONSTANT __string_112={__STRING_CONSTANT__,2,"__"};
-__STRING_CONSTANT __string_113={__STRING_CONSTANT__,22,"__PATH_LISAAC_SYSTEM\
-__"};
-__STRING_CONSTANT __string_114={__STRING_CONSTANT__,23,"__SHORT_LISAAC_FORMA\
-T__"};
-__STRING_CONSTANT __string_115={__STRING_CONSTANT__,5,"token"};
-__STRING_CONSTANT __string_116={__STRING_CONSTANT__,9,"type_file"};
-__STRING_CONSTANT __string_117={__STRING_CONSTANT__,5,"begin"};
-__STRING_CONSTANT __string_118={__STRING_CONSTANT__,3,"end"};
-__STRING_CONSTANT __string_119={__STRING_CONSTANT__,7,"keyword"};
-__STRING_CONSTANT __string_120={__STRING_CONSTANT__,15,"keyword_section"};
-__STRING_CONSTANT __string_121={__STRING_CONSTANT__,7,"integer"};
-__STRING_CONSTANT __string_122={__STRING_CONSTANT__,9,"character"};
-__STRING_CONSTANT __string_123={__STRING_CONSTANT__,6,"string"};
-__STRING_CONSTANT __string_124={__STRING_CONSTANT__,8,"operator"};
-__STRING_CONSTANT __string_125={__STRING_CONSTANT__,9,"prototype"};
-__STRING_CONSTANT __string_126={__STRING_CONSTANT__,12,"keyprototype"};
-__STRING_CONSTANT __string_127={__STRING_CONSTANT__,12,"comment_line"};
-__STRING_CONSTANT __string_128={__STRING_CONSTANT__,17,"comment_slot_line"};
-__STRING_CONSTANT __string_129={__STRING_CONSTANT__,19,"comment_header_line"};
-__STRING_CONSTANT __string_130={__STRING_CONSTANT__,4,"slot"};
-__STRING_CONSTANT __string_131={__STRING_CONSTANT__,9,"slot_call"};
-__STRING_CONSTANT __string_132={__STRING_CONSTANT__,10,"slot_style"};
-__STRING_CONSTANT __string_133={__STRING_CONSTANT__,5,"block"};
-__STRING_CONSTANT __string_134={__STRING_CONSTANT__,5,"local"};
-__STRING_CONSTANT __string_135={__STRING_CONSTANT__,7,"warning"};
-__STRING_CONSTANT __string_136={__STRING_CONSTANT__,10,"identifier"};
-__STRING_CONSTANT __string_137={__STRING_CONSTANT__,15,"identifier_slot"};
-__STRING_CONSTANT __string_138={__STRING_CONSTANT__,23,"prototype_comment_li\
-ght"};
-__STRING_CONSTANT __string_139={__STRING_CONSTANT__,17,"prototype_comment"};
-__STRING_CONSTANT __string_140={__STRING_CONSTANT__,5,"title"};
-__STRING_CONSTANT __string_141={__STRING_CONSTANT__,11,"table_begin"};
-__STRING_CONSTANT __string_142={__STRING_CONSTANT__,10,"table_item"};
-__STRING_CONSTANT __string_143={__STRING_CONSTANT__,15,"table_slot_name"};
-__STRING_CONSTANT __string_144={__STRING_CONSTANT__,18,"table_slot_comment"};
-__STRING_CONSTANT __string_145={__STRING_CONSTANT__,9,"table_end"};
-__STRING_CONSTANT __string_146={__STRING_CONSTANT__,9,"sub_title"};
-__STRING_CONSTANT __string_147={__STRING_CONSTANT__,10,"slot_title"};
-__STRING_CONSTANT __string_148={__STRING_CONSTANT__,12,"subsub_title"};
-__STRING_CONSTANT __string_149={__STRING_CONSTANT__,14,"prototype_path"};
-__STRING_CONSTANT __string_150={__STRING_CONSTANT__,5,"index"};
-__STRING_CONSTANT __string_151={__STRING_CONSTANT__,20,"directory_list_begin"};
-__STRING_CONSTANT __string_152={__STRING_CONSTANT__,19,"directory_list_item"};
-__STRING_CONSTANT __string_153={__STRING_CONSTANT__,18,"directory_list_end"};
-__STRING_CONSTANT __string_154={__STRING_CONSTANT__,15,"file_list_begin"};
-__STRING_CONSTANT __string_155={__STRING_CONSTANT__,14,"file_list_item"};
-__STRING_CONSTANT __string_156={__STRING_CONSTANT__,13,"file_list_end"};
-__STRING_CONSTANT __string_157={__STRING_CONSTANT__,1976,"------------------\
-----------------------------------------------\n--                   Lisaac \
-source Shorter                    --\n--            LORIA - LSIIT - ULP - CN\
-RS - FRANCE             --\n--         Benoit SONNTAG - sonntag at icps.u-stras\
-bg.fr         --\n--                   http://www.IsaacOS.com               \
-    --\n----------------------------------------------------------------\nUs\
-age:                                                      \n  shorter <input\
-_file[.li]> [Options]                       \n                              \
-                              \nOptions:                                    \
-                \n  -o <output>      : output file or directory             \
-  \n                     (default: <input_file.ext>)            \n  -p      \
-         : include `Section Private'              \n  -c               : inc\
-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, -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                                        \
-                    \n  * Build html documentation style JavaDoc:           \
-      \n    shorter -d -f belinda ~/lisaac/lib                      \n      \
-                                                      \nBug report:         \
-                                        \n            post in : https://gna.\
-org/bugs/?group=isaac     \n            mail to : sonntag at icps.u-strasbg.fr \
-            \n"};
-__STRING_CONSTANT __string_158={__STRING_CONSTANT__,8,"shorter/"};
-__STRING_CONSTANT __string_159={__STRING_CONSTANT__,3,".li"};
-__STRING_CONSTANT __string_160={__STRING_CONSTANT__,20,"Error: File format `"};
-__STRING_CONSTANT __string_161={__STRING_CONSTANT__,16,"' is not open !\n"};
-__STRING_CONSTANT __string_162={__STRING_CONSTANT__,26,"Incorrect slot ident\
-ifier."};
-__STRING_CONSTANT __string_163={__STRING_CONSTANT__,23,"Double definition sl\
-ot."};
-__STRING_CONSTANT __string_164={__STRING_CONSTANT__,26,"Assignment ':=' is n\
-eeded."};
-__STRING_CONSTANT __string_165={__STRING_CONSTANT__,28,"Incorrect format exp\
-ression."};
-__STRING_CONSTANT __string_166={__STRING_CONSTANT__,21,"Incorrect definition."};
-__STRING_CONSTANT __string_167={__STRING_CONSTANT__,20,"Added ';' is needed."};
-__STRING_CONSTANT __string_168={__STRING_CONSTANT__,17,"Incorrect symbol."};
-__STRING_CONSTANT __string_169={__STRING_CONSTANT__,18,"Error: directory `"};
-__STRING_CONSTANT __string_170={__STRING_CONSTANT__,13,"\' not found.\n"};
-__STRING_CONSTANT __string_171={__STRING_CONSTANT__,12,"\' not open.\n"};
-__STRING_CONSTANT __string_172={__STRING_CONSTANT__,4,".txt"};
-__STRING_CONSTANT __string_173={__STRING_CONSTANT__,14,"directory_list"};
-__STRING_CONSTANT __string_174={__STRING_CONSTANT__,9,"file_list"};
-__STRING_CONSTANT __string_175={__STRING_CONSTANT__,22,"Inherit/Insert Summa\
-ry"};
-__STRING_CONSTANT __string_176={__STRING_CONSTANT__,12,"Slot Summary"};
-__STRING_CONSTANT __string_177={__STRING_CONSTANT__,7,"inherit"};
-__STRING_CONSTANT __string_178={__STRING_CONSTANT__,6,"insert"};
-__STRING_CONSTANT __string_179={__STRING_CONSTANT__,14," No developed."};
-__STRING_CONSTANT __string_180={__STRING_CONSTANT__,6,"create"};
-__STRING_CONSTANT __string_181={__STRING_CONSTANT__,19,"Constructor Summary"};
-__STRING_CONSTANT __string_182={__STRING_CONSTANT__,21,"Inherit/Insert Detail"};
-__STRING_CONSTANT __string_183={__STRING_CONSTANT__,11,"Detail slot"};
-__STRING_CONSTANT __string_184={__STRING_CONSTANT__,7," line #"};
-__STRING_CONSTANT __string_185={__STRING_CONSTANT__,8,"Section:"};
-__STRING_CONSTANT __string_186={__STRING_CONSTANT__,8,"Profile:"};
-__STRING_CONSTANT __string_187={__STRING_CONSTANT__,18,"Constructor Detail"};
-__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_207={__STRING_CONSTANT__,24,"Identifier is incorr\
-ect."};
-__STRING_CONSTANT __string_208={__STRING_CONSTANT__,22,"Line counter overflo\
-w."};
-__STRING_CONSTANT __string_209={__STRING_CONSTANT__,40,"Column counter overf\
-low (line too long)."};
-__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_224={__STRING_CONSTANT__,12,"Error: File "};
-__STRING_CONSTANT __string_225={__STRING_CONSTANT__,18," is not created !\n"};
-__STRING_CONSTANT __string_226={__STRING_CONSTANT__,15," is not open !\n"};
-__STRING_CONSTANT __string_227={__STRING_CONSTANT__,20,"`Section' is needed."};
-__STRING_CONSTANT __string_228={__STRING_CONSTANT__,27,"Section `Header' is \
-needed."};
-__STRING_CONSTANT __string_229={__STRING_CONSTANT__,22,"Slot `name' not foun\
-d."};
-__STRING_CONSTANT __string_230={__STRING_CONSTANT__,23,"Incorrect type secti\
-on."};
-__STRING_CONSTANT __string_231={__STRING_CONSTANT__,50,"`Section Inherit/Ins\
-ert' must to be first section."};
-__STRING_CONSTANT __string_232={__STRING_CONSTANT__,78,"`Section Inherit' is\
- not possible with Expanded object (Use `Section Insert')."};
-__STRING_CONSTANT __string_233={__STRING_CONSTANT__,31,"No argument for inte\
-rrupt slot."};
-__STRING_CONSTANT __string_234={__STRING_CONSTANT__,33,"No argument for inhe\
-ritance slot."};
-__STRING_CONSTANT __string_235={__STRING_CONSTANT__,27,"Incorrect slot decla\
-ration."};
-__STRING_CONSTANT __string_236={__STRING_CONSTANT__,22,"Incorrect result typ\
-e."};
-__STRING_CONSTANT __string_237={__STRING_CONSTANT__,20,"Added ')' is needed."};
-__STRING_CONSTANT __string_238={__STRING_CONSTANT__,36,"Incorrect type for i\
-nheritance slot."};
-__STRING_CONSTANT __string_239={__STRING_CONSTANT__,21,"Incorrect expression."};
-__STRING_CONSTANT __string_240={__STRING_CONSTANT__,7,"__init_"};
-__STRING_CONSTANT __string_241={__STRING_CONSTANT__,10,"Added ';'."};
-__STRING_CONSTANT __string_242={__STRING_CONSTANT__,24,"Double slot declarat\
-ion."};
-__STRING_CONSTANT __string_243={__STRING_CONSTANT__,38,"Invariant: Sorry, No\
-t yet implemented."};
-__STRING_CONSTANT __string_244={__STRING_CONSTANT__,9,"Postfix '"};
-__STRING_CONSTANT __string_245={__STRING_CONSTANT__,7,"Infix '"};
-__STRING_CONSTANT __string_246={__STRING_CONSTANT__,8,"Prefix '"};
-__STRING_CONSTANT __string_247={__STRING_CONSTANT__,12,"Description:"};
-__STRING_CONSTANT __string_248={__STRING_CONSTANT__,1,"+"};
-__STRING_CONSTANT __string_249={__STRING_CONSTANT__,1,"-"};
-__STRING_CONSTANT __string_250={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-__STRING_CONSTANT __string_251={__STRING_CONSTANT__,29,"Unterminated string \
-constant."};
-__STRING_CONSTANT __string_252={__STRING_CONSTANT__,27,"Incorrect style slot\
- ('-')."};
-__STRING_CONSTANT __string_253={__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\
-k[512][PTHREAD_STACK_MIN];\n\ntypedef struct lith_object_struct lith_object;\
-\ntypedef struct lith_node_struct lith_node;\nstruct lith_node_struct {\n  p\
-thread_mutex_t mutex;\n  lith_node *next;\n  lith_object *object;\n};\nstruc\
-t lith_object_struct {\n  unsigned long __id; // Just for late binding.\n  l\
-ith_node *first;\n  lith_node *last;\n  lith_object *(*procedure)(lith_objec\
-t *obj,pthread_mutex_t *mutex);\n  pthread_mutex_t mutex;\n};\nstruct {\n  l\
-ith_node *first;\n  pthread_mutex_t mutex;\n} pool;\n\nvoid *thread_life(voi\
-d *ptr)\n{ lith_node node,*n;\n  lith_object *obj,*new_obj;\n\n  pthread_mut\
-ex_init(&node.mutex,NULL);\n  pthread_mutex_lock(&node.mutex);\n  node.objec\
-t = (lith_object *)ptr;\n  do {\n    // Append fifo object.\n    obj = node.\
-object;\n    node.next = NULL;\n    n = obj->last;\n    if (n == NULL) {\n  \
-    obj->first = &node;\n      pthread_mutex_unlock(&node.mutex);\n    } els\
-e {\n      n->next = &node;\n    };\n    obj->last = &node;\n    pthread_set\
-specific(current_thread,(void *)obj);\n    // Run procedure.\n    new_obj = \
-obj->procedure(obj,&node.mutex);\n    // Remove fifo object.\n    pthread_mu\
-tex_lock(&obj->mutex);\n    n = obj->first->next;\n    if (n != NULL) {\n   \
-   pthread_mutex_unlock(&n->mutex);\n    } else {\n      obj->last = NULL;\n\
-    };\n    obj->first = n;\n    pthread_mutex_unlock(&obj->mutex);\n    if \
-(new_obj != NULL) {\n      node.object = new_obj;\n    } else {\n      // Ad\
-d in pool.\n      pthread_mutex_lock(&pool.mutex);\n      node.next = pool.f\
-irst;\n      pool.first = &node;\n      pthread_mutex_unlock(&pool.mutex);\n\
-      // Sleep.\n      pthread_mutex_lock(&node.mutex);\n    };\n  } while (\
-1);\n  return NULL;\n};\n\nvoid run_procedure(lith_object *obj)\n{ lith_node\
- *node;\n  char *msg=\"COP Error!\\n\";\n  // Pool manager.\n  pthread_mutex\
-_lock(&pool.mutex);\n  node = pool.first;\n  if (node != NULL) {\n    pool.f\
-irst = node->next;\n  };\n  pthread_mutex_unlock(&pool.mutex);\n  // Run thr\
-ead.\n  if (node == NULL) {\n    pthread_attr_setstack(&thread_attr, thread_\
-stack[thread_counter++],PTHREAD_STACK_MIN);\n    if ((thread_counter>512) ||\
- pthread_create(&c_thread,&thread_attr, thread_life, (void *)obj)) {\n      \
-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_254={__STRING_CONSTANT__,11,"Added ':='."};
-__STRING_CONSTANT __string_255={__STRING_CONSTANT__,31,"Prototype identifier\
- is needed."};
-__STRING_CONSTANT __string_256={__STRING_CONSTANT__,34,"Incorrect name (file\
-name != name)."};
-__STRING_CONSTANT __string_257={__STRING_CONSTANT__,24,"Object can't be gene\
-ric."};
-__STRING_CONSTANT __string_258={__STRING_CONSTANT__,10,"Added ':'."};
-__STRING_CONSTANT __string_259={__STRING_CONSTANT__,12,"Type needed."};
-__STRING_CONSTANT __string_260={__STRING_CONSTANT__,27,"Sorry, not yet imple\
-mented."};
-__STRING_CONSTANT __string_261={__STRING_CONSTANT__,36,"Identifier parameter\
- type is needed."};
-__STRING_CONSTANT __string_262={__STRING_CONSTANT__,10,"Added ')'."};
-__STRING_CONSTANT __string_263={__STRING_CONSTANT__,28,"Invalid generic list\
- number."};
-__STRING_CONSTANT __string_264={__STRING_CONSTANT__,34,"Slot `name' must to \
-be first slot."};
-__STRING_CONSTANT __string_265={__STRING_CONSTANT__,20,"Incorrect type list."};
-__STRING_CONSTANT __string_266={__STRING_CONSTANT__,19,"Incorrect external."};
-__STRING_CONSTANT __string_267={__STRING_CONSTANT__,3,"// "};
-__STRING_CONSTANT __string_268={__STRING_CONSTANT__,15,"Incorrect expr."};
-__STRING_CONSTANT __string_269={__STRING_CONSTANT__,33,"Double `default' slo\
-t definition."};
-__STRING_CONSTANT __string_270={__STRING_CONSTANT__,30,"Double `type' slot d\
-efinition."};
-__STRING_CONSTANT __string_271={__STRING_CONSTANT__,17,"Incorrect number."};
-__STRING_CONSTANT __string_272={__STRING_CONSTANT__,21,"Added '<-' is needed."};
-__STRING_CONSTANT __string_273={__STRING_CONSTANT__,20,"Added '(' is needed."};
-__STRING_CONSTANT __string_274={__STRING_CONSTANT__,17,"Unreachable code."};
-__STRING_CONSTANT __string_275={__STRING_CONSTANT__,17,"Incorrect string."};
-__STRING_CONSTANT __string_276={__STRING_CONSTANT__,15,"Incorrect slot."};
-__STRING_CONSTANT __string_277={__STRING_CONSTANT__,59,"For a section, the p\
-rototype name only (without '['...']')."};
-__STRING_CONSTANT __string_278={__STRING_CONSTANT__,14,"Slot deferred."};
-__STRING_CONSTANT __string_279={__STRING_CONSTANT__,15,"Incorrect type."};
-__STRING_CONSTANT __string_280={__STRING_CONSTANT__,22,"Type `SELF' is neede\
-d."};
-__STRING_CONSTANT __string_281={__STRING_CONSTANT__,20,"Added ':' is needed."};
-__STRING_CONSTANT __string_282={__STRING_CONSTANT__,30,"Incorrect argument i\
-dentifier."};
-__STRING_CONSTANT __string_283={__STRING_CONSTANT__,24,"Incorrect argument t\
-ype."};
-__STRING_CONSTANT __string_284={__STRING_CONSTANT__,30,"Incorrect argument d\
-efinition."};
-__STRING_CONSTANT __string_285={__STRING_CONSTANT__,19,"Operator is needed."};
-__STRING_CONSTANT __string_286={__STRING_CONSTANT__,19,"Incorrect operator."};
-__STRING_CONSTANT __string_287={__STRING_CONSTANT__,10,"Added `''."};
-__STRING_CONSTANT __string_288={__STRING_CONSTANT__,29,"Operator declaration\
- invalid."};
-__STRING_CONSTANT __string_289={__STRING_CONSTANT__,39,"Not associativity fo\
-r postfix operator."};
-__STRING_CONSTANT __string_290={__STRING_CONSTANT__,38,"Not associativity fo\
-r prefix operator."};
-__STRING_CONSTANT __string_291={__STRING_CONSTANT__,32,"Incorrect in `Sectio\
-n External'."};
-__STRING_CONSTANT __string_292={__STRING_CONSTANT__,7,"Added '"};
-__STRING_CONSTANT __string_293={__STRING_CONSTANT__,2,"'."};
-__STRING_CONSTANT __string_294={__STRING_CONSTANT__,10,"Added '}'."};
-__STRING_CONSTANT __string_295={__STRING_CONSTANT__,27,"`Expanded' is not po\
-ssible."};
-__STRING_CONSTANT __string_296={__STRING_CONSTANT__,10,"Added ']'."};
-__STRING_CONSTANT __string_297={__STRING_CONSTANT__,45,"Impossible '<-' styl\
-e assignment with vector."};
-__STRING_CONSTANT __string_298={__STRING_CONSTANT__,28,"Sorry, Not yet imple\
-mented !"};
-__STRING_CONSTANT __string_299={__STRING_CONSTANT__,1,"{"};
-__STRING_CONSTANT __string_300={__STRING_CONSTANT__,1,"}"};
-__STRING_CONSTANT __string_301={__STRING_CONSTANT__,24,"Unknown escape seque\
-nce."};
-__STRING_CONSTANT __string_302={__STRING_CONSTANT__,39,"Invalid range charac\
-ter number [0,255]."};
-__STRING_CONSTANT __string_303={__STRING_CONSTANT__,23,"Character '\' is nee\
-ded."};
-__STRING_CONSTANT __string_304={__STRING_CONSTANT__,24,"Incorrect Result num\
-ber."};
-__STRING_CONSTANT __string_305={__STRING_CONSTANT__,25,"Incorrect live type \
-list."};
-__STRING_CONSTANT __string_306={__STRING_CONSTANT__,23,"Incorrect octal numb\
-er."};
-__STRING_CONSTANT __string_307={__STRING_CONSTANT__,24,"Incorrect binary num\
-ber."};
-__STRING_CONSTANT __string_308={__STRING_CONSTANT__,25,"Incorrect decimal nu\
-mber."};
-__STRING_CONSTANT __string_309={__STRING_CONSTANT__,6,"Slot `"};
-__STRING_CONSTANT __string_310={__STRING_CONSTANT__,12,"' not found."};
-__STRING_CONSTANT __string_311={__STRING_CONSTANT__,30,"No argument for `exi\
-t' method."};
-__STRING_CONSTANT __string_312={__STRING_CONSTANT__,23,"String argument need\
-ed."};
-__STRING_CONSTANT __string_313={__STRING_CONSTANT__,17,"Invalid argument."};
-__STRING_CONSTANT __string_314={__STRING_CONSTANT__,21,"No expression result."};
-__STRING_CONSTANT __string_315={__STRING_CONSTANT__,15,"BOOLEAN needed."};
-__STRING_CONSTANT __string_316={__STRING_CONSTANT__,18,"!@#$%^&<|*-+=~/?\\>"};
-__STRING_CONSTANT __string_317={__STRING_CONSTANT__,22,"Prototype name neede\
-d."};
-__STRING_CONSTANT __string_318={__STRING_CONSTANT__,30,"1) Sorry, not yet im\
-plemented."};
-__STRING_CONSTANT __string_319={__STRING_CONSTANT__,30,"2) Sorry, not yet im\
-plemented."};
-__STRING_CONSTANT __string_320={__STRING_CONSTANT__,7,"Style `"};
-__STRING_CONSTANT __string_321={__STRING_CONSTANT__,32,"' for parameter type\
- is ignored."};
-__STRING_CONSTANT __string_322={__STRING_CONSTANT__,10,"' ignored."};
-__STRING_CONSTANT __string_323={__STRING_CONSTANT__,21,"Incorrect identifier."};
-__STRING_CONSTANT __string_324={__STRING_CONSTANT__,21,"Incorrect local type."};
-__STRING_CONSTANT __string_325={__STRING_CONSTANT__,27,"Incorrect `Old' expr\
-ession."};
-__STRING_CONSTANT __string_326={__STRING_CONSTANT__,18,"Incorrect message."};
-__STRING_CONSTANT __string_327={__STRING_CONSTANT__,22,"Incorrect real numbe\
-r."};
-__STRING_CONSTANT __string_328={__STRING_CONSTANT__,28,"Character constant t\
-oo long."};
-__STRING_CONSTANT __string_329={__STRING_CONSTANT__,32,"Unterminated charact\
-er constant."};
-__STRING_CONSTANT __string_330={__STRING_CONSTANT__,37,"Incorrect multiple r\
-esult expression."};
-__STRING_CONSTANT __string_331={__STRING_CONSTANT__,36,"Error in INPUT_STREA\
-M.read_integer.\n"};
-__STRING_CONSTANT __string_332={__STRING_CONSTANT__,21,"Incorrect directory `"};
-__STRING_CONSTANT __string_333={__STRING_CONSTANT__,19,"Incorrect argument."};
-__STRING_CONSTANT __string_334={__STRING_CONSTANT__,15,"Type incorrect."};
-
-//==========================//
-// FUNCTION HEADER          //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __STRING* create__ZBB(__INTEGER needed_capacity__1BB);
-static __POINTER new_lab__RTJ(__UINTEGER_32 t__TTJ);
-static void** create__2DRB(__INTEGER nb_elements__4DRB);
-static __INTEGER fast_first_index_of__until__OLC(__CHARACTER *Self__PLC);
-static __CHARACTER* create__YIEB(__INTEGER nb_elements__0IEB);
-static __POINTER realloc_dynamic__old_size__new_size__KELC(__POINTER p__MELC,__UINTEGER_32 old_sz__NELC,__UINTEGER_32 new_sz__OELC);
-static void add_last__URV(__FAST_ARRAYoSTRINGo *Self__VRV,void *element__WRV);
-static __INTEGER prime_number_ceiling__021(__INTEGER integer__221);
-static void** create__QA4(__INTEGER nb_elements__SA4);
-static void** create__ZITC(__INTEGER nb_elements__1ITC);
-static void** create__JDSB(__INTEGER nb_elements__LDSB);
-static void** create__0E4(__INTEGER nb_elements__2E4);
-static void** create__PX2(__INTEGER nb_elements__RX2);
-static void** create__PHRB(__INTEGER nb_elements__RHRB);
-static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__EGR(__INTEGER new_count__GGR);
-static void** create__SWBB(__INTEGER nb_elements__UWBB);
-static void** create__PJXB(__INTEGER nb_elements__RJXB);
-static void** create__KSWB(__INTEGER nb_elements__MSWB);
-static void** create__JQXB(__INTEGER nb_elements__LQXB);
-static void** create__OG5(__INTEGER nb_elements__QG5);
-static void fast_put__to__JPZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__KPZ,void *v__LPZ,void *k__MPZ);
-static void** create__VFYB(__INTEGER nb_elements__XFYB);
-static void* get__IVI(void *n__KVI);
-static void** create__NFQB(__INTEGER nb_elements__PFQB);
-static void** create__3ZPB(__INTEGER nb_elements__5ZPB);
-static void** create__Z1ZB(__INTEGER nb_elements__11ZB);
-static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__THRC(__INTEGER new_count__VHRC);
-static void** create__FNUF(__INTEGER nb_elements__HNUF);
-static void** create__JPGF(__INTEGER nb_elements__LPGF);
-static void** create__ARYF(__INTEGER nb_elements__CRYF);
-static void** create__R2IE(__INTEGER nb_elements__T2IE);
-static void* search__XAVB(__UINTEGER_32 new_size__ZAVB);
-static void** create__C3XC(__INTEGER nb_elements__E3XC);
-static void** create__FCYC(__INTEGER nb_elements__HCYC);
-static void** create__3MBD(__INTEGER nb_elements__5MBD);
-static void** create__BJFF(__INTEGER nb_elements__DJFF);
-static void** create__EI2(__INTEGER nb_elements__GI2);
-static void add__EZR(__HASHED_SEToABSTRACT_STRINGo *Self__FZR,void *e__GZR);
-static void* operator__name__GHB(void *op__JHB);
-static void print__OJD(__STRING_CONSTANT *Self__PJD);
-static void* get__YWB(void *str__0WB);
-static void copy__VDS(__STRING *Self__WDS,void *other__XDS);
-static void append__3OS(__STRING *Self__4OS,void *other__5OS);
-static void* parent_directory__GGD();
-static void* get_entry__DZAC(void *p__FZAC);
-static void put_string__33F(void *s__53F);
-static __PROTOTYPE* create__name__generic_count__JBC(void *f__LBC,void *n__MBC);
-static __BOOLEAN read_space__XTD();
-static __BOOLEAN read_identifier__2BL();
-static __POSITION current_position__B0F();
-static void put_error__text__1PG(__INTEGER type__3PG,void *txt__4PG);
-static void put_position__FRG(__POSITION Self__GRG);
-static __BOOLEAN fast_has__IDT(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__JDT,void *k__KDT);
-static __INTEGER hash_code__RNW(__STRING_CONSTANT *Self__SNW);
-static __BOOLEAN read_symbol__4YJ(void *st__AZJ);
-static __BOOLEAN read_short_elt__EIKB();
-static void fast_put__to__U2R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__V2R,void *k__X2R);
-static __TYPE_FULL* create__with__CRB(void *typ__ERB,__UINTEGER_8 code__FRB);
-static void** create__1VNB(__INTEGER nb_elements__3VNB);
-static void add_last__K5R(__FAST_ARRAYoTYPE_IDo *Self__L5R,void *element__M5R);
-static __BOOLEAN open__WHRD(__DIRECTORY_UNIX *Self__XHRD);
-static void check_in__begin__ZQQC(void *entry__1QQC,__INTEGER n__2QQC);
-static void* fast_at__LV3(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__MV3,void *k__NV3);
-static void save_file__with__3DC(void *n__5DC,void *buf__AEC);
-static void resize__1VZ(__STRING *Self__2VZ,__INTEGER new_count__3VZ);
-static void move__to__by__LVCC(__CHARACTER *Self__MVCC,__INTEGER lower__NVCC,__INTEGER upper__OVCC,__INTEGER offset__PVCC);
-static __BOOLEAN __infix_equal_equal__V2DB(__STRING_CONSTANT *Self__W2DB,void *other__X2DB);
-static void* at__JK4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__KK4,void *k__LK4);
-static __BOOLEAN has_suffix__QJS(__STRING_CONSTANT *Self__RJS);
-static void replace_all__with__CRS(__STRING *Self__DRS,__CHARACTER old_char__ERS,__CHARACTER new_char__FRS);
-static __INTEGER last_index__NTC(void *n__PTC,__CHARACTER c__QTC);
-static void remove_between__to__MIT(__STRING *Self__NIT,__INTEGER start__OIT,__INTEGER end__PIT);
-static void to_upper__PTS(__STRING *Self__QTS);
-static void go_on__SBC(void *obj__UBC);
-static void put__to__like__X4XD(void *tok__Z4XD,void *buf__04XD,void *key__14XD);
-static void shorter_get_all_slot_in__ZAYD(__PROTOTYPE *Self__0AYD,void *lst__1AYD);
-static void pretty_name_in__FY4F(__ITM_SLOT *Self__GY4F,void *buffer__HY4F);
-static void pretty_name_in__0Z4F(__ITM_SLOT_OPERATOR *Self__1Z4F,void *buffer__2Z4F);
-static __BOOLEAN has_prefix__OTTF(__STRING_CONSTANT *Self__PTTF,void *p__QTTF);
-static void get_all_comment_slot__in__PL4E(__PROTOTYPE *Self__QL4E,void *n__RL4E,void *buf__SL4E);
-static void shorter_comment__in__light__CP4E(void *str__EP4E,void *buf__FP4E,__BOOLEAN is_light__GP4E);
-static void append_in__5KH(__UINTEGER_32 Self__ALH,void *buffer__BLH);
-static void append_in__S14F(__SECTION_ *Self__T14F,void *buf__U14F);
-static void shorter_profile_in__U24F(__ITM_SLOT *Self__V24F,void *buf__W24F);
-static void shorter_profile_in__R34F(__ITM_SLOT_OPERATOR *Self__S34F,void *buf__T34F);
-static void* new_page__H54();
-static void to_busy__index__3SFC(__MEMORY *Self__4SFC,__UINTEGER_32 sz__5SFC,__UINTEGER_32 idx__ATFC);
-static void** create__W5QB(__INTEGER nb_elements__Y5QB);
-static void* fast_reference_at__R3T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__S3T,void *k__T3T);
-static void** create__QMHE(__INTEGER nb_elements__SMHE);
-static __BOOLEAN has__PPW(__HASHED_SEToABSTRACT_STRINGo *Self__QPW,void *e__RPW);
-static void increase_capacity__XONB(__HASHED_SEToABSTRACT_STRINGo *Self__YONB);
-static void put_string__AKF(void *s__CKF);
-static __INTEGER hash_code__UFX(__STRING *Self__VFX);
-static __BOOLEAN fast_has__CAY(__HASHED_SEToABSTRACT_STRINGo *Self__DAY,void *e__EAY);
-static void from_external__YZS(__STRING *Self__ZZS,__CHARACTER *p__0ZS);
-static void* physical_get_entry__REF(void *new_path__TEF);
-static void put__to__N1S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__O1S,void *v__P1S,void *k__Q1S);
-static void reduce_path__J3HC(void *st__L3HC);
-static void* reference_at__VV0C(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__WV0C,void *k__XV0C);
-static __INTEGER fast_reverse_index_of__from__KA3(__CHARACTER *Self__LA3,__CHARACTER element__MA3,__INTEGER upper__NA3);
-static void* physical_get_entry__JY0C(void *new_path__LY0C);
-static void** create__G01C(__INTEGER nb_elements__I01C);
-static void** create__PRSC(__INTEGER nb_elements__RRSC);
-static void short__token__to__GDD(void *key__IDD,__INTEGER beg__JDD,__INTEGER end__KDD);
-static __INTEGER first_substring_index__W0ZE(__STRING *Self__X0ZE);
-static __BOOLEAN read_string__HGQ();
-static __BOOLEAN fast_memcmp__until__FYYB(__CHARACTER *Self__GYYB,__CHARACTER *other__HYYB,__INTEGER capacity__IYYB);
-static void reduce_path__UO3E(void *st__WO3E);
-static void* item__V3PE(__DIRECTORY_UNIX *Self__W3PE,__INTEGER i__X3PE);
-static void* item__X3ND(__LINKED_LISToSTRING_CONSTANTo *Self__Y3ND,__INTEGER i__Z3ND);
-static void** create__KZ3(__INTEGER nb_elements__MZ3);
-static __BOOLEAN read_word__ISF(void *st__KSF);
-static __BOOLEAN read_slot_header__KFE(__BOOLEAN first__MFE);
-static void* get_name__TROB(void *n__VROB);
-static void* read_type_list__ENO(__PARSER *Self__FNO,__BOOLEAN is_section__GNO);
-static __INTEGER hash_code__S30(__FAST_ARRAYoITM_TYPE_MONOo *Self__T30);
-static __CHARACTER read_style__PUF();
-static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__LJ5B(__INTEGER new_count__NJ5B);
-static void* read_loc_arg__with_self__BBHB(__PARSER *Self__CBHB,__BOOLEAN mute__DBHB,__BOOLEAN self_first__EBHB);
-static void* read_slot_operator__RS5B(void *list_arg__TS5B);
-static void add_last__E5GC(__FAST_ARRAYoITM_ARGUMENTo *Self__F5GC,void *element__G5GC);
-static void* read_slot_keyword__4X5B(void *list_arg__AY5B);
-static void** create__PRBD(__INTEGER nb_elements__RRBD);
-static void set_argument_list__5BHC(__ITM_SLOT *Self__ACHC,void *p__BCHC);
-static __ITM_TYPE_MULTI* get__4JP(void *lt__AKP);
-static void* read_type__CDM(__PARSER *Self__DDM,__BOOLEAN is_local__EDM);
-static void set_result_type__W2FC(__ITM_SLOT *Self__X2FC,void *t__Y2FC);
-static void* read_contract__5VF(__PARSER *Self__AWF);
-static void* read_expr__DBJ(__PARSER *Self__EBJ);
-static void set_value__type__DFHC(__ITM_SLOT *Self__EFHC,void *e__FFHC,void *p__GFHC);
-static __POSITION position__5A5B(__ITM_EXPRESSION *Self__AB5B);
-static __POSITION position__PIHC(__ITM_RESULT *Self__QIHC);
-static void fast_put__to__LNGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__MNGC,void *v__NNGC,void *k__ONGC);
-static void* fast_reference_at__05FC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__15FC,void *k__25FC);
-static void* fast_reference_at__CMNE(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__DMNE,void *k__EMNE);
-static void append_in__PJPD(__ITM_TYPE_BLOCK *Self__QJPD,void *buffer__RJPD);
-static void append_in__TKPD(__ITM_TYPE_GENERIC *Self__UKPD,void *buffer__VKPD);
-static void put__to__like__JNBG(void *tok__LNBG,void *buf__MNBG,void *key__NNBG);
-static void shorter_in__KKBG(__ITM_ARG *Self__LKBG,void *buf__MKBG);
-static void shorter_in__BLBG(__ITM_ARGS *Self__CLBG,void *buf__DLBG);
-static void shorter_in__0TDG(__ITM_TYPE_PARAMETER *Self__1TDG,void *buf__2TDG);
-static void shorter_in__LUDG(__ITM_TYPE_SIMPLE *Self__MUDG,void *buf__NUDG);
-static void shorter_raw_in__M2FG(__ITM_TYPE_MULTI *Self__N2FG,void *buf__O2FG);
-static void shorter_in__2UDG(__ITM_TYPE_BLOCK *Self__3UDG,void *buf__4UDG);
-static void shorter_in__EWDG(__ITM_TYPE_GENERIC *Self__FWDG,void *buf__GWDG);
-static void put__to__like__I0FG(void *tok__K0FG,void *buf__L0FG,void *key__M0FG);
-static void put__to__like__S0DG(void *tok__U0DG,void *buf__V0DG,void *key__W0DG);
-static void set_path__HPT(__DIRECTORY_UNIX *Self__IPT,void *n__JPT);
-static void set_path__CQT(__FILE_UNIX *Self__DQT,void *n__EQT);
-static __INTEGER last_index_of__since__KPGD(__STRING *Self__LPGD,__INTEGER start_index__NPGD);
-static void insert_string__to__OXU(__STRING *Self__PXU,void *s__QXU,__INTEGER i__RXU);
-static void read_escape_character__AALF();
-static __BOOLEAN read_cap_identifier__N1J();
-static void add_last__NABC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__OABC,void *element__PABC);
-static __BOOLEAN read_external__2TO();
-static void* read_expr_primary__E5M(__PARSER *Self__F5M);
-static __BOOLEAN read_integer__22P();
-static void* readlip_expr__YRPB();
-static void run__0FFC(__LIP_AFFECT *Self__1FFC);
-static void run__WQUE(__LIP_CALL *Self__XQUE);
-static void run__ZFQD(__LIP_IF *Self__0FQD);
-static void run__KVUE(__LIP_PRINT *Self__LVUE);
-static void add_last__ONV(__FAST_ARRAYoITM_TYPE_MONOo *Self__PNV,void *element__QNV);
-static void* alias__CWP(void *tmp__EWP);
-static void add__1IHB(__HASHED_SEToSTRING_CONSTANTo *Self__2IHB,void *e__3IHB);
-static void add_last__SEPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__TEPD,void *element__UEPD);
-static void free__TR5(void *tmp__VR5);
-static void free__YNQ(void *tmp__0NQ);
-static __INTEGER hash_code__NVRF(__FAST_ARRAYoSTRING_CONSTANTo *Self__OVRF);
-static void copy__BASD(__FAST_ARRAYoSTRING_CONSTANTo *Self__CASD,void *other__DASD);
-static __BOOLEAN fast_has__H4RF(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__I4RF,void *e__J4RF);
-static __BOOLEAN read_operator__GOM();
-static void* operator__name__ZEO(void *typ__1EO,void *op__2EO);
-static void append_in__MHBC(__ITM_TYPE_MULTI *Self__NHBC,void *buffer__OHBC);
-static void* read_prototype__DPN(__PARSER *Self__EPN,void *styl__FPN);
-static void read_def_local__M3H(__PARSER *Self__N3H);
-static __FAST_ARRAYoITM_CODEo* create_with_capacity__XXI(__INTEGER new_count__ZXI);
-static void add_last__I5U(__FAST_ARRAYoITM_CODEo *Self__J5U,void *element__K5U);
-static void* copy__5BI(void *tmp__BCI);
-static __BOOLEAN fast_has__RDV(__HASHED_SEToSTRING_CONSTANTo *Self__SDV,void *e__TDV);
-static void restore_context__EFL();
-static void* read_expr_message__LXL(__PARSER *Self__MXL);
-static void free__3XI(void *tmp__5XI);
-static void display_raw__MLIC(__ITM_TYPE_MULTI *Self__NLIC,void *buffer__OLIC);
-static void put__to__like__URGG(void *tok__WRGG,void *buf__XRGG,void *key__YRGG);
-static void put__to__like__NYDG(void *tok__PYDG,void *buf__QYDG,void *key__RYDG);
-static void put__to__like__GVFG(void *tok__IVFG,void *buf__JVFG);
-static void put__to__like__ZXFG(void *tok__1XFG,void *buf__2XFG,void *key__3XFG);
-static __BOOLEAN is_hexadecimal_digit__DQJE(__CHARACTER Self__EQJE);
-static void* read_constant__XRO();
-static void* read_group__C4GB(__PARSER *Self__D4GB);
-static void* readlip_expr_operator__GMZB(__PARSER *Self__HMZB);
-static __FAST_ARRAYoLIP_CODEo* create_with_capacity__DWKD(__INTEGER new_count__FWKD);
-static void add_last__JOUD(__FAST_ARRAYoLIP_CODEo *Self__KOUD,void *element__LOUD);
-static void* copy__ZPID(void *tmp__1PID);
-static void* fast_reference_at__PXRD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__QXRD,void *k__RXRD);
-static void* run_expr__D2QD(__LIP_BINARY *Self__E2QD);
-static void* run_expr__C5QD(__LIP_UNARY *Self__D5QD);
-static void* run_expr__IXUE(__LIP_CALL *Self__JXUE);
-static void* get__UYSE(__LIP_INTEGER *Self__VYSE,__INTEGER i__WYSE);
-static void* get__34FF(__LIP_STRING *Self__44FF,void *str__54FF);
-static void free__3D4F(__LIP_INTEGER *Self__4D4F);
-static void free__LIIG(__LIP_STRING *Self__MIIG);
-static void load_directory__is_recursive__LEXF(__LIP_CALL *Self__MEXF,void *path__NEXF,__BOOLEAN is_rec__OEXF);
-static void append_in__FPIG(__LIP_STRING *Self__GPIG,void *str__HPIG);
-static void print_positif__VHLG(__INTEGER Self__WHLG);
-static __BOOLEAN fast_has__1K1(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__2K1,void *e__3K1);
-static __BOOLEAN has__MIMB(__HASHED_SEToSTRING_CONSTANTo *Self__NIMB,void *e__OIMB);
-static __FAST_ARRAYoITM_LOCALo* create_with_capacity__LLK(__INTEGER new_count__NLK);
-static void add_last__Z1U(__FAST_ARRAYoITM_LOCALo *Self__01U,void *element__11U);
-static void free__RLK(void *tmp__TLK);
-static void* copy__05J(void *tmp__25J);
-static void append_collection__RDPD(__FAST_ARRAYoITM_LOCALo *Self__SDPD,void *other__TDPD);
-static void** create__KRQB(__INTEGER nb_elements__MRQB);
-static void* read_send_msg__I5N(__PARSER *Self__J5N,void *first_arg__K5N);
-static void* readlip_expr_cmp__0Y1B(__PARSER *Self__1Y1B);
-static void** create__3WIE(__INTEGER nb_elements__5WIE);
-static void** create__KPQB(__INTEGER nb_elements__MPQB);
-static void* read_argument__PPP(__PARSER *Self__QPP);
-static void* readlip_expr_binary__XL3B(__PARSER *Self__YL3B);
-static void* readlip_expr_unary__YX4B(__PARSER *Self__ZX4B);
-static void* readlip_expr_base__QHFE(__PARSER *Self__RHFE);
-
-//==========================//
-// SOURCE CODE              //
-//==========================//
-
-int main(int argc,char **argv)
-{
-  void *str__1ID,*cmd__HZ;
-  __INTEGER new_count__DNLH,typ_id__2MLH,Self__PJF,limit_up__QJF;
-  __INTEGER i__5KEB,new_capacity__UUIH,old_nb_elts__XUIH,upper__RNLH;
-  __INTEGER Self__PNLH,typ_id__SWG,new_capacity__ZKY,typ_id__50DB;
-  __INTEGER new_capacity__DVJC,typ_id__PPJ,typ_id__CQH;
-  __INTEGER new_capacity__ZMY,typ_id__PPC,new_capacity__UKX,typ_id__D1Q;
-  __INTEGER typ_id__AFR,new_capacity__3G1,typ_id__QTQ,typ_id__W1O;
-  __INTEGER typ_id__33Q,typ_id__KNK,new_capacity__3FZ,typ_id__NXQ;
-  __INTEGER typ_id__JWR,typ_id__HKK,typ_id__QAK,typ_id__KMM;
-  __INTEGER typ_id__ZJOF,new_capacity__U0RF,typ_id__QAG,typ_id__SVTE;
-  __INTEGER typ_id__MTMF,typ_id__W5NF,typ_id__BZMD,typ_id__YXED;
-  __INTEGER new_capacity__PFXD,Self__EPYE,typ_id__S0NF,Self__HQAG;
-  __INTEGER typ_id__PLNF,Self__APAG,typ_id__E1YB,new_capacity__ZFOC;
-  __INTEGER typ_id__J4YB,new_capacity__UJOC,typ_id__DI5B,typ_id__3CIE;
-  __INTEGER typ_id__ZUB,new_capacity__QZW,j__IZ,__tmp__P4,typ_id__2UIH;
-  __INTEGER new_capacity__WNT,old_nb_elts__WBFH,upper__CQ3C,Self__KWDD;
-  __INTEGER typ_id__DEKB,h__WMEB,idx__XMEB,idx__YFZB,new_capacity__ZFZB;
-  __INTEGER i__0FZB,typ_id__HIZB,typ_id__EVIH,typ_id__OVIH,typ_id__YVIH;
-  __INTEGER typ_id__ORED,typ_id__CZB,Self__BQWD,typ_id__E3B;
-  __INTEGER typ_id__CWIH,typ_id__W4B,i__QHHH,j__SHHH,Self__I1LH,i__UHHH;
-  __INTEGER j__WHHH,Self__N1LH,i__BAC,n__3VGH,Self__30QC,limit_up__40QC;
-  __INTEGER __tmp__GHYD,Self__2G5D,__tmp__5LYD,Self__OH5D,__tmp__WOTD;
-  __INTEGER Self__PQYD,__tmp__2BRE,Self__GKSE,__tmp__HRYD,Self__JI5D;
-  __INTEGER __tmp__DUYD,Self__YI5D,__tmp__LQTD,Self__WWYD,__tmp__VGRE;
-  __INTEGER Self__YKSE,__tmp__LRTD,Self__FXYD;
-  __POINTER ptr__1MLH,ptr_table__FNLH,next__ENLH,result__GNLH;
-  __POINTER ptr_table__KNLH,next__JNLH,result__LNLH,ptr__NWG;
-  __POINTER ptr_table__UNLH,next__TNLH,result__VNLH,ptr_table__ZNLH;
-  __POINTER next__YNLH,result__0NLH,ptr__00DB,ptr_table__4NLH;
-  __POINTER next__3NLH,result__5NLH,ptr_table__DOLH,next__COLH;
-  __POINTER result__EOLH,ptr__KPJ,ptr_table__IOLH,next__HOLH;
-  __POINTER result__JOLH,ptr_table__NOLH,next__MOLH,result__OOLH;
-  __POINTER ptr__3PH,ptr_table__SOLH,next__ROLH,result__TOLH;
-  __POINTER ptr_table__XOLH,next__WOLH,result__YOLH,ptr__KPC;
-  __POINTER ptr_table__2OLH,next__1OLH,result__3OLH,ptr_table__BPLH;
-  __POINTER next__APLH,result__CPLH,ptr__40Q,ptr_table__GPLH,next__FPLH;
-  __POINTER result__HPLH,ptr_table__LPLH,next__KPLH,result__MPLH;
-  __POINTER ptr__1ER,ptr_table__QPLH,next__PPLH,result__RPLH;
-  __POINTER ptr_table__VPLH,next__UPLH,result__WPLH,ptr__LTQ;
-  __POINTER ptr_table__0PLH,next__ZPLH,result__1PLH,ptr_table__5PLH;
-  __POINTER next__4PLH,result__AQLH,ptr__R1O,ptr_table__EQLH,next__DQLH;
-  __POINTER result__FQLH,ptr_table__JQLH,next__IQLH,result__KQLH;
-  __POINTER ptr__Y3Q,ptr_table__OQLH,next__NQLH,result__PQLH;
-  __POINTER ptr_table__TQLH,next__SQLH,result__UQLH,ptr__FNK;
-  __POINTER ptr_table__YQLH,next__XQLH,result__ZQLH,ptr_table__3QLH;
-  __POINTER next__2QLH,result__4QLH,ptr__IXQ,ptr_table__CRLH,next__BRLH;
-  __POINTER result__DRLH,ptr_table__HRLH,next__GRLH,result__IRLH;
-  __POINTER ptr__EWR,ptr_table__MRLH,next__LRLH,result__NRLH;
-  __POINTER ptr_table__RRLH,next__QRLH,result__SRLH,ptr__CKK;
-  __POINTER ptr_table__WRLH,next__VRLH,result__XRLH,ptr_table__1RLH;
-  __POINTER next__0RLH,result__2RLH,ptr__LAK,ptr_table__ASLH,next__5RLH;
-  __POINTER result__BSLH,ptr_table__FSLH,next__ESLH,result__GSLH;
-  __POINTER ptr__FMM,ptr_table__KSLH,next__JSLH,result__LSLH;
-  __POINTER ptr_table__PSLH,next__OSLH,result__QSLH,ptr__UJOF;
-  __POINTER ptr_table__USLH,next__TSLH,result__VSLH,ptr_table__ZSLH;
-  __POINTER next__YSLH,result__0SLH,ptr__LAG,ptr_table__4SLH,next__3SLH;
-  __POINTER result__5SLH,ptr_table__DTLH,next__CTLH,result__ETLH;
-  __POINTER ptr__NVTE,ptr_table__ITLH,next__HTLH,result__JTLH;
-  __POINTER ptr_table__NTLH,next__MTLH,result__OTLH,ptr__HTMF;
-  __POINTER ptr_table__STLH,next__RTLH,result__TTLH,ptr_table__XTLH;
-  __POINTER next__WTLH,result__YTLH,ptr__R5NF,ptr_table__2TLH;
-  __POINTER next__1TLH,result__3TLH,ptr_table__BULH,next__AULH;
-  __POINTER result__CULH,ptr__2YMD,ptr_table__GULH,next__FULH;
-  __POINTER result__HULH,ptr_table__LULH,next__KULH,result__MULH;
-  __POINTER ptr__TXED,ptr_table__QULH,next__PULH,result__RULH;
-  __POINTER ptr_table__VULH,next__UULH,result__WULH,result__PGHH;
-  __POINTER ptr_table__0ULH,next__ZULH,result__1ULH,ptr__N0NF;
-  __POINTER ptr_table__5ULH,next__4ULH,result__AVLH,ptr_table__EVLH;
-  __POINTER next__DVLH,result__FVLH,result__XGHH,ptr_table__JVLH;
-  __POINTER next__IVLH,result__KVLH,ptr__KLNF,ptr_table__OVLH;
-  __POINTER next__NVLH,result__PVLH,ptr_table__TVLH,next__SVLH;
-  __POINTER result__UVLH,result__5GHH,ptr_table__YVLH,next__XVLH;
-  __POINTER result__ZVLH,ptr__50YB,ptr_table__3VLH,next__2VLH;
-  __POINTER result__4VLH,ptr_table__CWLH,next__BWLH,result__DWLH;
-  __POINTER ptr__E4YB,ptr_table__HWLH,next__GWLH,result__IWLH;
-  __POINTER ptr_table__MWLH,next__LWLH,result__NWLH,ptr__4H5B;
-  __POINTER ptr_table__RWLH,next__QWLH,result__SWLH,ptr_table__WWLH;
-  __POINTER next__VWLH,result__XWLH,ptr__YCIE,ptr_table__1WLH;
-  __POINTER next__0WLH,result__2WLH,ptr_table__AXLH,next__5WLH;
-  __POINTER result__BXLH,ptr__UUB,ptr_table__FXLH,next__EXLH;
-  __POINTER result__GXLH,ptr_table__KXLH,next__JXLH,result__LXLH;
-  __POINTER ptr__1UIH,ptr_table__PXLH,next__OXLH,result__QXLH;
-  __POINTER ptr_table__UXLH,next__TXLH,result__VXLH,ptr__4DKB;
-  __POINTER ptr_table__2XLH,next__1XLH,result__3XLH,ptr_table__BYLH;
-  __POINTER next__AYLH,result__CYLH,ptr__CIZB,ptr_table__GYLH;
-  __POINTER next__FYLH,result__HYLH,ptr_table__LYLH,next__KYLH;
-  __POINTER result__MYLH,ptr__DVIH,ptr_table__QYLH,next__PYLH;
-  __POINTER result__RYLH,ptr_table__VYLH,next__UYLH,result__WYLH;
-  __POINTER ptr__NVIH,ptr_table__0YLH,next__ZYLH,result__1YLH;
-  __POINTER ptr_table__5YLH,next__4YLH,result__AZLH,ptr__XVIH;
-  __POINTER ptr_table__HZLH,next__GZLH,result__IZLH,ptr_table__MZLH;
-  __POINTER next__LZLH,result__NZLH,ptr__JRED,ptr_table__RZLH;
-  __POINTER next__QZLH,result__SZLH,ptr_table__WZLH,next__VZLH;
-  __POINTER result__XZLH,ptr__3YB,ptr_table__1ZLH,next__0ZLH;
-  __POINTER result__2ZLH,ptr_table__A0LH,next__5ZLH,result__B0LH;
-  __POINTER result__HHHH,ptr_table__F0LH,next__E0LH,result__G0LH;
-  __POINTER ptr__52B,ptr_table__K0LH,next__J0LH,result__L0LH;
-  __POINTER ptr_table__P0LH,next__O0LH,result__Q0LH,ptr__BWIH;
-  __POINTER ptr_table__U0LH,next__T0LH,result__V0LH,ptr_table__Z0LH;
-  __POINTER next__Y0LH,result__00LH,ptr__R4B,ptr_table__40LH,next__30LH;
-  __POINTER result__50LH,ptr_table__D1LH,next__C1LH,result__E1LH;
-  __UINTEGER_32 sz__3MLH,a__4MLH,new_size__5MLH,t__ANLH,a__BNLH;
-  __UINTEGER_32 new_size__NNLH,lab_type__MNLH,sz__PWG,a__ONGH;
-  __UINTEGER_32 new_size__PNGH,t__TNGH,a__SNGH,new_size__2NLH;
-  __UINTEGER_32 lab_type__1NLH,sz__20DB,a__WNGH,new_size__XNGH,t__1NGH;
-  __UINTEGER_32 a__0NGH,new_size__GOLH,lab_type__FOLH,sz__MPJ,a__4NGH;
-  __UINTEGER_32 new_size__5NGH,t__DOGH,a__COGH,new_size__QOLH;
-  __UINTEGER_32 lab_type__POLH,sz__5PH,a__GOGH,new_size__HOGH,t__LOGH;
-  __UINTEGER_32 a__KOGH,new_size__0OLH,lab_type__ZOLH,sz__MPC,a__OOGH;
-  __UINTEGER_32 new_size__POGH,t__TOGH,a__SOGH,new_size__EPLH;
-  __UINTEGER_32 lab_type__DPLH,sz__A1Q,a__WOGH,new_size__XOGH,t__1OGH;
-  __UINTEGER_32 a__0OGH,new_size__OPLH,lab_type__NPLH,sz__3ER,a__4OGH;
-  __UINTEGER_32 new_size__5OGH,t__DPGH,a__CPGH,new_size__YPLH;
-  __UINTEGER_32 lab_type__XPLH,sz__NTQ,a__GPGH,new_size__HPGH,t__LPGH;
-  __UINTEGER_32 a__KPGH,new_size__CQLH,lab_type__BQLH,sz__T1O,a__OPGH;
-  __UINTEGER_32 new_size__PPGH,t__TPGH,a__SPGH,new_size__MQLH;
-  __UINTEGER_32 lab_type__LQLH,sz__03Q,a__WPGH,new_size__XPGH,t__1PGH;
-  __UINTEGER_32 a__0PGH,new_size__WQLH,lab_type__VQLH,sz__HNK,a__4PGH;
-  __UINTEGER_32 new_size__5PGH,t__DQGH,a__CQGH,new_size__ARLH;
-  __UINTEGER_32 lab_type__5QLH,sz__KXQ,a__NCFH,new_size__OCFH,t__SCFH;
-  __UINTEGER_32 a__RCFH,new_size__KRLH,lab_type__JRLH,sz__GWR,a__GQGH;
-  __UINTEGER_32 new_size__HQGH,t__LQGH,a__KQGH,new_size__URLH;
-  __UINTEGER_32 lab_type__TRLH,sz__EKK,a__OQGH,new_size__PQGH,t__TQGH;
-  __UINTEGER_32 a__SQGH,new_size__4RLH,lab_type__3RLH,sz__NAK,a__WQGH;
-  __UINTEGER_32 new_size__XQGH,t__1QGH,a__0QGH,new_size__ISLH;
-  __UINTEGER_32 lab_type__HSLH,sz__HMM,a__4QGH,new_size__5QGH,t__DRGH;
-  __UINTEGER_32 a__CRGH,new_size__SSLH,lab_type__RSLH,sz__WJOF,a__GRGH;
-  __UINTEGER_32 new_size__HRGH,t__LRGH,a__KRGH,new_size__2SLH;
-  __UINTEGER_32 lab_type__1SLH,sz__NAG,a__1BFH,new_size__L0G,t__U1G;
-  __UINTEGER_32 a__BCFH,new_size__GTLH,lab_type__FTLH,sz__PVTE,a__ORGH;
-  __UINTEGER_32 new_size__PRGH,t__TRGH,a__SRGH,new_size__QTLH;
-  __UINTEGER_32 lab_type__PTLH,sz__JTMF,a__WRGH,new_size__XRGH,t__1RGH;
-  __UINTEGER_32 a__0RGH,new_size__0TLH,lab_type__ZTLH,sz__T5NF,a__4RGH;
-  __UINTEGER_32 new_size__5RGH,t__DSGH,a__CSGH,new_size__EULH;
-  __UINTEGER_32 lab_type__DULH,sz__4YMD,a__GSGH,new_size__HSGH,t__LSGH;
-  __UINTEGER_32 a__KSGH,new_size__OULH,lab_type__NULH,sz__VXED,a__OSGH;
-  __UINTEGER_32 new_size__PSGH,t__TSGH,a__SSGH,new_size__YULH;
-  __UINTEGER_32 lab_type__XULH,sz__RGHH,a__QGHH,new_size__SGHH;
-  __UINTEGER_32 new_size2__TGHH,a__UGHH,new_size__VGHH,sz__P0NF,a__WSGH;
-  __UINTEGER_32 new_size__XSGH,t__1SGH,a__0SGH,new_size__HVLH;
-  __UINTEGER_32 lab_type__GVLH,sz__ZGHH,a__YGHH,new_size__0GHH;
-  __UINTEGER_32 new_size2__1GHH,a__2GHH,new_size__3GHH,sz__MLNF,a__4SGH;
-  __UINTEGER_32 new_size__5SGH,t__DTGH,a__CTGH,new_size__WVLH;
-  __UINTEGER_32 lab_type__VVLH,sz__BHHH,a__AHHH,new_size__CHHH;
-  __UINTEGER_32 new_size2__DHHH,a__EHHH,new_size__FHHH,sz__B1YB,a__GTGH;
-  __UINTEGER_32 new_size__HTGH,t__LTGH,a__KTGH,new_size__FWLH;
-  __UINTEGER_32 lab_type__EWLH,sz__G4YB,a__OTGH,new_size__PTGH,t__TTGH;
-  __UINTEGER_32 a__STGH,new_size__PWLH,lab_type__OWLH,sz__AI5B,a__WTGH;
-  __UINTEGER_32 new_size__XTGH,t__1TGH,a__0TGH,new_size__ZWLH;
-  __UINTEGER_32 lab_type__YWLH,sz__0CIE,a__4TGH,new_size__5TGH,t__DUGH;
-  __UINTEGER_32 a__CUGH,new_size__DXLH,lab_type__CXLH,sz__WUB,a__GUGH;
-  __UINTEGER_32 new_size__HUGH,t__LUGH,a__KUGH,new_size__NXLH;
-  __UINTEGER_32 lab_type__MXLH,sz__3UIH,a__4UIH,new_size__5UIH,t__AVIH;
-  __UINTEGER_32 a__BVIH,new_size__XXLH,lab_type__WXLH,sz__AEKB,a__PUGH;
-  __UINTEGER_32 new_size__QUGH,t__UUGH,a__TUGH,new_size__EYLH;
-  __UINTEGER_32 lab_type__DYLH,sz__EIZB,a__0UGH,new_size__1UGH,t__5UGH;
-  __UINTEGER_32 a__4UGH,new_size__OYLH,lab_type__NYLH,sz__FVIH,a__GVIH;
-  __UINTEGER_32 new_size__HVIH,t__IVIH,a__JVIH,new_size__YYLH;
-  __UINTEGER_32 lab_type__XYLH,sz__PVIH,a__QVIH,new_size__RVIH,t__SVIH;
-  __UINTEGER_32 a__TVIH,new_size__CZLH,lab_type__BZLH,sz__ZVIH,a__0VIH;
-  __UINTEGER_32 new_size__1VIH,t__2VIH,a__3VIH,new_size__PZLH;
-  __UINTEGER_32 lab_type__OZLH,sz__LRED,a__QQFH,new_size__RQFH,t__VQFH;
-  __UINTEGER_32 a__UQFH,new_size__ZZLH,lab_type__YZLH,sz__5YB,a__IVGH;
-  __UINTEGER_32 new_size__JVGH,t__NVGH,a__MVGH,new_size__D0LH;
-  __UINTEGER_32 lab_type__C0LH,sz__JHHH,a__IHHH,new_size__KHHH;
-  __UINTEGER_32 new_size2__LHHH,a__MHHH,new_size__NHHH,sz__B3B,a__QVGH;
-  __UINTEGER_32 new_size__RVGH,t__VVGH,a__UVGH,new_size__S0LH;
-  __UINTEGER_32 lab_type__R0LH,sz__DWIH,a__EWIH,new_size__FWIH,t__GWIH;
-  __UINTEGER_32 a__HWIH,new_size__20LH,lab_type__10LH,sz__T4B,a__MIFH;
-  __UINTEGER_32 new_size__NIFH,t__RIFH,a__QIFH,new_size__G1LH;
-  __UINTEGER_32 lab_type__F1LH;
-  __STRING *Self__3KEB,*Self__UNT,*new__IX1G,*new__KX1G,*Self__PHHH;
-  __STRING *Self__THHH,*Self__XHHH,*Self__2VGH;
-  __ITM_TYPE_PARAMETER *result__HXQ,*Self__52V;
-  __LIP_BOOLEAN *result__Q5NF;
-  void *txt__1,*fmt_name__GOC,*__tmp__UPD,*k__PMEB,*element__EVGH;
-  void *i__LVIH,*element__KTEC,*i__5VIH,*__tmp__4B,*__tmp__2H;
-  void *title__ZMTD,*__tmp__RJYD,*__tmp__4JYD,*__tmp__HKYD,*__tmp__2KYD;
-  void *__tmp__LOTD,*__tmp__KOYD,*__tmp__XOYD,*__tmp__APYD,*__tmp__VPYD;
-  void *__tmp__FPTD,*t__VBRE,*__tmp__MPTD,*__tmp__HERE,*__tmp__UERE;
-  void *__tmp__3ERE,*__tmp__SFRE,*__tmp__RTYD,*__tmp__CQTD,*__tmp__NWYD;
-  void *__tmp__ZQTD,*t__OGRE,*__tmp__ARTD,*__tmp__5IRE;
-  void *p__AB;
-  __STRING_CONSTANT *result__0UIH,*Self__JXS,*Self__MUGH,*Self__AOS;
-  __STRING_CONSTANT *Self__HX1G,*Self__JX1G;
-  __POSITION pos__2S1G,pos__GT1G,pos__YU1G,pos__0U1G,pos__2U1G;
-  __POSITION pos__4U1G,pos__AV1G,__tmp__1SYD,__tmp__ATYD,__tmp__XVYD;
-  __POSITION __tmp__2VYD,__tmp__JIRE,__tmp__OIRE;
-  __TYPE_ID *result__AWIH,*result__Q4B;
-  void *ent__TB;
-  __DIRECTORY_UNIX *Self__NLSD;
-  void *dir__PLSD,*dir__XLSD,*__tmp__AD,*dir__SB;
-  __FILE_UNIX *Self__1LRD;
-  __PROTOTYPE *Self__XMTD;
-  void *s__0MTD,*s__CHYD,*s__1LYD,*s__YBRE,*s__DRYD,*s__5TYD,*s__RGRE;
-  void *__tmp__SRTD;
-  void *__tmp__BOTD,*__tmp__1IYD,*__tmp__UNYD,*__tmp__RDRE,*__tmp__YPTD;
-  void *__tmp__JTYD,*__tmp__FWYD,*__tmp__XIRE;
-  __SECTION_ *Self__RL2G,*Self__SL2G,*Self__TL2G,*Self__UL2G,*Self__VL2G;
-  void *__tmp__JJYD,*__tmp__COYD,*__tmp__5DRE;
-  void *__tmp__LJYD,*ts__IJYD,*__tmp__EOYD,*ts__BOYD,*__tmp__BERE;
-  void *ts__4DRE;
-  __CHARACTER *arg__0ID,*p__4KEB,*Self__WUIH,*new__YUIH,*path__KZ;
-  __CHARACTER *Self__VBFH,*new__YBFH,*Self__J1LH,*model__K1LH;
-  __CHARACTER *Self__O1LH,*model__P1LH;
-  __FAST_ARRAYoSTRINGo *result__0MLH,*Self__CNLH,*result__KAG,*Self__AGT;
-  void *result__ZID;
-  __CHARACTER ch__ZUIH,result__ZXLH,result__EZLH,result__4VDH;
-  __CHARACTER result__BMDH,__tmp__CJYD,__tmp__1NYD,__tmp__YDRE;
-  __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *result__MWG,*Self__SKT;
-  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *result__Z0DB;
-  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__ULCC;
-  __FAST_ARRAYoPROTOTYPEo *result__JPJ,*Self__NEU;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__2PH;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__ZOT;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__NMEB;
-  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__CUVB;
-  __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *result__JPC,*Self__KQS;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *result__30Q,*Self__L3V;
-  __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *result__0ER,*Self__3EW;
-  __FAST_ARRAYoITM_TYPE_MULTIo *result__KTQ,*Self__I1V;
-  __FAST_ARRAYoITM_TYPE_BLOCKo *result__Q1O,*Self__RJV;
-  __FAST_ARRAYoITM_TYPE_GENERICo *result__X3Q,*Self__4AW;
-  __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__ENK;
-  __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__ANU;
-  __FAST_ARRAYoITM_TYPE_STYLEo *result__DWR,*Self__GLW;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *result__BKK,*Self__EKU;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *result__KAK,*Self__BHU;
-  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *result__EMM,*Self__HWU;
-  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *result__TJOF,*Self__DOQF;
-  __FAST_ARRAYoLIP_INTEGERo *result__MVTE,*Self__5LXE;
-  __FAST_ARRAYoLIP_STRINGo *result__GTMF,*Self__VAQF;
-  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *result__1YMD,*Self__KKUD;
-  __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *result__SXED;
-  __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__1OSD;
-  void **Result__UWHE;
-  __FAST_ARRAYoLIP_SLOT_DATAo *result__M0NF,*Self__4IQF;
-  void **Result__SK1F;
-  __FAST_ARRAYoLIP_SLOT_CODEo *result__JLNF,*Self__5DQF;
-  void **Result__ZF1F;
-  __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *result__40YB;
-  __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__MWFC;
-  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__D4YB;
-  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__LZFC;
-  __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *result__3H5B,*Self__ZJHC;
-  __FAST_ARRAYoITM_SLOTo *result__XCIE,*Self__BPWE;
-  __HASHED_SEToABSTRACT_STRINGo *result__TUB,*Self__DDS;
-  __BOOLEAN __tmp__U0,__tmp__P1,result__Y2NB,__tmp__31,result__K3NB;
-  __BOOLEAN __tmp__L2,result__23NB,__tmp__Y2,result__O4NB,__tmp__14;
-  __BOOLEAN result__YXLH,result__5OEB,result__DZLH,result__MJG;
-  __BOOLEAN __tmp__JC,__tmp__FC,__tmp__UC,is_first_cur__BHYD;
-  __BOOLEAN __tmp__WHYD,__tmp__YJYD,__tmp__VJYD,__tmp__MKYD,__tmp__NKYD;
-  __BOOLEAN __tmp__QKYD,is_first_cur__0LYD,__tmp__PMYD,__tmp__ROYD;
-  __BOOLEAN __tmp__OOYD,__tmp__FPYD,__tmp__GPYD,__tmp__JPYD;
-  __BOOLEAN is_first_cur__XBRE,__tmp__MCRE,__tmp__OERE,__tmp__LERE;
-  __BOOLEAN __tmp__CFRE,__tmp__DFRE,__tmp__GFRE,is_first__CRYD;
-  __BOOLEAN __tmp__XRYD,is_first__4TYD,__tmp__TUYD,is_first__QGRE;
-  __BOOLEAN __tmp__FHRE;
-  __LINKED_LISToSTRING_CONSTANTo *result__3DKB,*Self__FVGH,*Self__JTEC;
-  void *node__YMEB,*node1__2FZB,*node2__3FZB,*__tmp__FOEB,*node__MUVB;
-  void **old_buckets__1FZB;
-  __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__BIZB;
-  __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__FDGC;
-  void *def__3OEB;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__CVIH,*Self__KVIH;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__MVIH,*Self__UVIH;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__WVIH,*Self__4VIH;
-  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__IRED,*Self__JOSD;
-  __FAST_ARRAYoSLOTo *result__2YB,*Self__HFS;
-  void **Result__3J1C;
-  __FAST_ARRAYoTYPE_IDo *result__42B,*Self__GIS;
-  __INTEGER_8 __tmp__THYD,__tmp__MMYD,__tmp__5OTD,__tmp__JCRE;
-  __INTEGER_8 __tmp__URYD,__tmp__QUYD,__tmp__TQTD,__tmp__CHRE;
-  void **__tmp__4VGH;
-  arg_count  = argc;
-  arg_vector = argv;
-  parent_numeric__J=NUMERIC__;
-  clone_allocation_size__NTB= 0;
-  STRING_CONSTANT__->count__DD=((__INTEGER )((0)));
-  STRING__->count__SGC= 0;
-  STRING_CONSTANT__->storage__RRO=((__CHARACTER *)(NULL));
-  STRING__->storage__3CS=NULL;
-  nb_page__DUJ= 0;
-  MEMORY__->map_size_and_id__YTB= 0;
-  capacity_max__R54= 0;
-  get_begin_memory__RAQB=((__POINTER )(NULL));
-  begin_memory__4XH=((__POINTER )(NULL));
-  MEMORY__->map_previous_linear__XTB= 0;
-  first_free__0BVB=NULL;
-  MEMORY__->map_next_free__ZTB=NULL;
-  MEMORY__->map_previous_free__0TB=NULL;
-  STRING__->capacity__UCS= 0;
-  HASHED_SEToABSTRACT_STRINGo__->buckets__0ZR=NULL;
-  HASHED_SEToABSTRACT_STRINGo__->capacity__VZR= 0;
-  HASHED_SEToABSTRACT_STRINGo__->count__10R= 0;
-  list__FK=NULL;
-  HASHED_SET_NODEoABSTRACT_STRINGo__->item__G0R=NULL;
-  HASHED_SET_NODEoABSTRACT_STRINGo__->next__S0R=NULL;
-  string_tmp__VH=create__ZBB( 256);
-  is_shorter__LZ=FALSE__;
-  ARRAYED_COLLECTIONoSTRINGo__->upper__CLC= 0;
-  ARRAYED_COLLECTIONoSTRINGo__->capacity__JGT= 0;
-  ARRAYED_COLLECTIONoSTRINGo__->storage__UGT=NULL;
-  FAST_ARRAYoSTRINGo__->parent_arrayed_collection__5KC=(*ARRAYED_COLLECTIONoSTRINGo__);
-  arg__0ID=NULL;
-  str__1ID=NULL;
-  new_count__DNLH=((__INTEGER )(arg_count));
-  result__0MLH=NULL;
-  ptr__1MLH=((__POINTER )(NULL));
-  typ_id__2MLH= 0;
-  sz__3MLH=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
-  if ((sz__3MLH ==  0)) {
-    result__0MLH=FAST_ARRAYoSTRINGo__;
-  } else {
-    typ_id__2MLH=__FAST_ARRAYoSTRINGo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3MLH);
-    if ((typ_id__2MLH == (__INTEGER)(-  1))) {
-      a__4MLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5MLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3MLH + a__4MLH) & (__UINTEGER_32)(~ a__4MLH));
-      ptr_table__FNLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5MLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ENLH=((__POINTER )(NULL));
-      result__GNLH=((__POINTER *)ptr_table__FNLH)[ 0];
-      if ((result__GNLH == (void *)NULL)) {
-        result__GNLH=new_lab__RTJ(new_size__5MLH);
-        next__ENLH=(void *)((unsigned long)result__GNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MLH)));
-        ((__POINTER *)next__ENLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FNLH)[ 0]=next__ENLH;
-      } else {
-        next__ENLH=((__POINTER *)result__GNLH)[ 0];
-        if ((next__ENLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GNLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5MLH <<  1)) <=  4096)) {
-            next__ENLH=(void *)((unsigned long)result__GNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MLH)));
-          } else {
-            next__ENLH=new_lab__RTJ(new_size__5MLH);
-          };
-          ((__POINTER *)next__ENLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FNLH)[ 0]=next__ENLH;
-        } else {
-          ((__POINTER *)result__GNLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ENLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__GNLH=next__ENLH;
-        };
-      };
-      ptr__1MLH=result__GNLH;
-    } else {
-      t__ANLH=((__UINTEGER_32 )typ_id__2MLH);
-      a__BNLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__NNLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3MLH + a__BNLH) & (__UINTEGER_32)(~ a__BNLH));
-      ptr_table__KNLH=((__POINTER )(&(table_type[(t__ANLH)])));
-      lab_type__MNLH=(__UINTEGER_32)(t__ANLH |  1);
-      next__JNLH=((__POINTER )(NULL));
-      result__LNLH=((__POINTER *)ptr_table__KNLH)[ 0];
-      if ((result__LNLH == (void *)NULL)) {
-        result__LNLH=new_lab__RTJ(lab_type__MNLH);
-        next__JNLH=(void *)((unsigned long)result__LNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NNLH)));
-        ((__POINTER *)next__JNLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KNLH)[ 0]=next__JNLH;
-      } else {
-        next__JNLH=((__POINTER *)result__LNLH)[ 0];
-        if ((next__JNLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LNLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NNLH <<  1)) <=  4096)) {
-            next__JNLH=(void *)((unsigned long)result__LNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NNLH)));
-          } else {
-            next__JNLH=new_lab__RTJ(lab_type__MNLH);
-          };
-          ((__POINTER *)next__JNLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KNLH)[ 0]=next__JNLH;
-        } else {
-          ((__POINTER *)result__LNLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JNLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__LNLH=next__JNLH;
-        };
-      };
-      ptr__1MLH=result__LNLH;
-    };
-    result__0MLH=((__FAST_ARRAYoSTRINGo *)ptr__1MLH);
-    *(result__0MLH) = *(FAST_ARRAYoSTRINGo__);
-  };
-  Self__CNLH=((__FAST_ARRAYoSTRINGo *)result__0MLH);
-  if ((Self__CNLH->parent_arrayed_collection__5KC.capacity__JGT < new_count__DNLH)) {
-    Self__CNLH->parent_arrayed_collection__5KC.storage__UGT=create__2DRB(new_count__DNLH);
-    Self__CNLH->parent_arrayed_collection__5KC.capacity__JGT=new_count__DNLH;
-  };
-  Self__CNLH->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(-  1);
-  result__ZID=result__0MLH;
-  Self__PJF= 0;
-  limit_up__QJF=(__INTEGER)(((__INTEGER )(arg_count)) -  1);
-  while ((Self__PJF <= limit_up__QJF)) {
-    arg__0ID=((__CHARACTER *)(arg_vector[(Self__PJF)]));
-    str__1ID=create__ZBB(fast_first_index_of__until__OLC(arg__0ID));
-    Self__3KEB=((__STRING *)str__1ID);
-    p__4KEB=arg__0ID;
-    i__5KEB= 0;
-    Self__3KEB->count__SGC= 0;
-    while ((((__CHARACTER *)p__4KEB)[i__5KEB] != '\0')) {
-      ch__ZUIH=((__CHARACTER *)p__4KEB)[i__5KEB];
-      new_capacity__UUIH= 0;
-      if ((Self__3KEB->capacity__UCS <= Self__3KEB->count__SGC)) {
-        if ((Self__3KEB->capacity__UCS ==  0)) {
-          Self__3KEB->capacity__UCS= 32;
-          Self__3KEB->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__UUIH=(__INTEGER)(Self__3KEB->capacity__UCS <<  1);
-          Self__WUIH=((__CHARACTER *)Self__3KEB->storage__3CS);
-          old_nb_elts__XUIH=Self__3KEB->capacity__UCS;
-          new__YUIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WUIH),((__UINTEGER_32 )old_nb_elts__XUIH),((__UINTEGER_32 )new_capacity__UUIH)));
-          upper__RNLH=(__INTEGER)(new_capacity__UUIH -  1);
-          Self__PNLH=old_nb_elts__XUIH;
-          while ((Self__PNLH <= upper__RNLH)) {
-            new__YUIH[Self__PNLH]='\0';
-            Self__PNLH=(__INTEGER)(Self__PNLH +  1);
-          };
-          Self__3KEB->storage__3CS=new__YUIH;
-          Self__3KEB->capacity__UCS=new_capacity__UUIH;
-        };
-      };
-      ((__CHARACTER *)Self__3KEB->storage__3CS)[Self__3KEB->count__SGC]=ch__ZUIH;
-      Self__3KEB->count__SGC=(__INTEGER)(Self__3KEB->count__SGC +  1);
-      i__5KEB=(__INTEGER)(i__5KEB +  1);
-    };
-    add_last__URV(result__ZID,str__1ID);
-    Self__PJF=(__INTEGER)(Self__PJF +  1);
-  };
-  output_name__DI=NULL;
-  format_name__N1=NULL;
-  is_short_code__11=FALSE__;
-  is_short_private__J2=FALSE__;
-  is_short_recursive__JB=FALSE__;
-  is_shorter2__VI=FALSE__;
-  input_name__3B=NULL;
-  FILE_SYSTEM__->parent_directory__HHD=1;
-  string_tmp__LGD=create__ZBB( 255);
-  ENTRY__->path__BD=NULL;
-  ENTRY__->name__OPT=NULL;
-  ENTRY_UNIX__->parent_entry__QGD=(*ENTRY__);
-  FILE_UNIX__->parent_entry_unix__EFF=(*ENTRY_UNIX__);
-  DIRECTORY_UNIX__->parent_entry_unix__RGD=(*ENTRY_UNIX__);
-  DIRECTORY__->list__FIRD=NULL;
-  DIRECTORY_UNIX__->parent_directory__SGD=(*DIRECTORY__);
-  HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->buckets__B2S=NULL;
-  HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->capacity__21S= 0;
-  HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->count__C3S= 0;
-  result__MWG=NULL;
-  ptr__NWG=((__POINTER )(NULL));
-  typ_id__SWG= 0;
-  sz__PWG=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo));
-  if ((sz__PWG ==  0)) {
-    result__MWG=HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
-  } else {
-    typ_id__SWG=__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PWG);
-    if ((typ_id__SWG == (__INTEGER)(-  1))) {
-      a__ONGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PNGH=(__UINTEGER_32)((__UINTEGER_32)(sz__PWG + a__ONGH) & (__UINTEGER_32)(~ a__ONGH));
-      ptr_table__UNLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PNGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__TNLH=((__POINTER )(NULL));
-      result__VNLH=((__POINTER *)ptr_table__UNLH)[ 0];
-      if ((result__VNLH == (void *)NULL)) {
-        result__VNLH=new_lab__RTJ(new_size__PNGH);
-        next__TNLH=(void *)((unsigned long)result__VNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PNGH)));
-        ((__POINTER *)next__TNLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__UNLH)[ 0]=next__TNLH;
-      } else {
-        next__TNLH=((__POINTER *)result__VNLH)[ 0];
-        if ((next__TNLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VNLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PNGH <<  1)) <=  4096)) {
-            next__TNLH=(void *)((unsigned long)result__VNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PNGH)));
-          } else {
-            next__TNLH=new_lab__RTJ(new_size__PNGH);
-          };
-          ((__POINTER *)next__TNLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UNLH)[ 0]=next__TNLH;
-        } else {
-          ((__POINTER *)result__VNLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TNLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__VNLH=next__TNLH;
-        };
-      };
-      ptr__NWG=result__VNLH;
-    } else {
-      t__TNGH=((__UINTEGER_32 )typ_id__SWG);
-      a__SNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2NLH=(__UINTEGER_32)((__UINTEGER_32)(sz__PWG + a__SNGH) & (__UINTEGER_32)(~ a__SNGH));
-      ptr_table__ZNLH=((__POINTER )(&(table_type[(t__TNGH)])));
-      lab_type__1NLH=(__UINTEGER_32)(t__TNGH |  1);
-      next__YNLH=((__POINTER )(NULL));
-      result__0NLH=((__POINTER *)ptr_table__ZNLH)[ 0];
-      if ((result__0NLH == (void *)NULL)) {
-        result__0NLH=new_lab__RTJ(lab_type__1NLH);
-        next__YNLH=(void *)((unsigned long)result__0NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NLH)));
-        ((__POINTER *)next__YNLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZNLH)[ 0]=next__YNLH;
-      } else {
-        next__YNLH=((__POINTER *)result__0NLH)[ 0];
-        if ((next__YNLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0NLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2NLH <<  1)) <=  4096)) {
-            next__YNLH=(void *)((unsigned long)result__0NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NLH)));
-          } else {
-            next__YNLH=new_lab__RTJ(lab_type__1NLH);
-          };
-          ((__POINTER *)next__YNLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZNLH)[ 0]=next__YNLH;
-        } else {
-          ((__POINTER *)result__0NLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YNLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__0NLH=next__YNLH;
-        };
-      };
-      ptr__NWG=result__0NLH;
-    };
-    result__MWG=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)ptr__NWG);
-    *(result__MWG) = *(HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__);
-  };
-  Self__SKT=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)result__MWG);
-  new_capacity__ZKY=prime_number_ceiling__021( 193);
-  Self__SKT->buckets__B2S=create__QA4(new_capacity__ZKY);
-  Self__SKT->capacity__21S=new_capacity__ZKY;
-  Self__SKT->count__C3S= 0;
-  alias__2GD=result__MWG;
-  HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->key__N2S=NULL;
-  HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->next__Z2S=NULL;
-  HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->item__TPOB=NULL;
-  string_tmp2__JZAC=create__ZBB( 255);
-  string_tmp3__PZAC=create__ZBB( 255);
-  ITM_OBJECT__->position__SFJ=((__POSITION ) 0);
-  NAMED__->parent_itm_object__4=(*ITM_OBJECT__);
-  NAMED__->name__LI=NULL;
-  NAMED__->style__0FU='\0';
-  PROTOTYPE__->parent_named__5=(*NAMED__);
-  HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->buckets__PMBC=NULL;
-  HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->capacity__KMBC= 0;
-  HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->count__PNBC= 0;
-  result__Z0DB=NULL;
-  ptr__00DB=((__POINTER )(NULL));
-  typ_id__50DB= 0;
-  sz__20DB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo));
-  if ((sz__20DB ==  0)) {
-    result__Z0DB=HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
-  } else {
-    typ_id__50DB=__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__20DB);
-    if ((typ_id__50DB == (__INTEGER)(-  1))) {
-      a__WNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XNGH=(__UINTEGER_32)((__UINTEGER_32)(sz__20DB + a__WNGH) & (__UINTEGER_32)(~ a__WNGH));
-      ptr_table__4NLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XNGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__3NLH=((__POINTER )(NULL));
-      result__5NLH=((__POINTER *)ptr_table__4NLH)[ 0];
-      if ((result__5NLH == (void *)NULL)) {
-        result__5NLH=new_lab__RTJ(new_size__XNGH);
-        next__3NLH=(void *)((unsigned long)result__5NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XNGH)));
-        ((__POINTER *)next__3NLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4NLH)[ 0]=next__3NLH;
-      } else {
-        next__3NLH=((__POINTER *)result__5NLH)[ 0];
-        if ((next__3NLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5NLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XNGH <<  1)) <=  4096)) {
-            next__3NLH=(void *)((unsigned long)result__5NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XNGH)));
-          } else {
-            next__3NLH=new_lab__RTJ(new_size__XNGH);
-          };
-          ((__POINTER *)next__3NLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4NLH)[ 0]=next__3NLH;
-        } else {
-          ((__POINTER *)result__5NLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3NLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5NLH=next__3NLH;
-        };
-      };
-      ptr__00DB=result__5NLH;
-    } else {
-      t__1NGH=((__UINTEGER_32 )typ_id__50DB);
-      a__0NGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__GOLH=(__UINTEGER_32)((__UINTEGER_32)(sz__20DB + a__0NGH) & (__UINTEGER_32)(~ a__0NGH));
-      ptr_table__DOLH=((__POINTER )(&(table_type[(t__1NGH)])));
-      lab_type__FOLH=(__UINTEGER_32)(t__1NGH |  1);
-      next__COLH=((__POINTER )(NULL));
-      result__EOLH=((__POINTER *)ptr_table__DOLH)[ 0];
-      if ((result__EOLH == (void *)NULL)) {
-        result__EOLH=new_lab__RTJ(lab_type__FOLH);
-        next__COLH=(void *)((unsigned long)result__EOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GOLH)));
-        ((__POINTER *)next__COLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DOLH)[ 0]=next__COLH;
-      } else {
-        next__COLH=((__POINTER *)result__EOLH)[ 0];
-        if ((next__COLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EOLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GOLH <<  1)) <=  4096)) {
-            next__COLH=(void *)((unsigned long)result__EOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GOLH)));
-          } else {
-            next__COLH=new_lab__RTJ(lab_type__FOLH);
-          };
-          ((__POINTER *)next__COLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DOLH)[ 0]=next__COLH;
-        } else {
-          ((__POINTER *)result__EOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__COLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__EOLH=next__COLH;
-        };
-      };
-      ptr__00DB=result__EOLH;
-    };
-    result__Z0DB=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)ptr__00DB);
-    *(result__Z0DB) = *(HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__);
-  };
-  Self__ULCC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)result__Z0DB);
-  new_capacity__DVJC=prime_number_ceiling__021( 193);
-  Self__ULCC->buckets__PMBC=create__ZITC(new_capacity__DVJC);
-  Self__ULCC->capacity__KMBC=new_capacity__DVJC;
-  Self__ULCC->count__PNBC= 0;
-  prototype_dico__LUS=result__Z0DB;
-  HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->key__1MBC=NULL;
-  HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->next__GNBC=NULL;
-  PROTOTYPE__->filename__FSG=NULL;
-  PROTOTYPE__->shortname__3JE=NULL;
-  ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__->upper__RABC= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__->capacity__TABC= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__->storage__PBBC=NULL;
-  FAST_ARRAYoITM_TYPE_PARAMETERo__->parent_arrayed_collection__LOE=(*ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__);
-  ITM_TYPE_SIMPLE__->name__GZP=NULL;
-  ITM_TYPE_PARAMETER__->parent_itm_type__VFE=(*ITM_TYPE_SIMPLE__);
-  PROTOTYPE__->idf_generic_list__MOE=NULL;
-  ARRAYED_COLLECTIONoPROTOTYPEo__->upper__HJ= 0;
-  ARRAYED_COLLECTIONoPROTOTYPEo__->storage__DVT=NULL;
-  ARRAYED_COLLECTIONoPROTOTYPEo__->capacity__WEU= 0;
-  FAST_ARRAYoPROTOTYPEo__->parent_arrayed_collection__AJ=(*ARRAYED_COLLECTIONoPROTOTYPEo__);
-  result__JPJ=NULL;
-  ptr__KPJ=((__POINTER )(NULL));
-  typ_id__PPJ= 0;
-  sz__MPJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoPROTOTYPEo));
-  if ((sz__MPJ ==  0)) {
-    result__JPJ=FAST_ARRAYoPROTOTYPEo__;
-  } else {
-    typ_id__PPJ=__FAST_ARRAYoPROTOTYPEo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MPJ);
-    if ((typ_id__PPJ == (__INTEGER)(-  1))) {
-      a__4NGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5NGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPJ + a__4NGH) & (__UINTEGER_32)(~ a__4NGH));
-      ptr_table__IOLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5NGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__HOLH=((__POINTER )(NULL));
-      result__JOLH=((__POINTER *)ptr_table__IOLH)[ 0];
-      if ((result__JOLH == (void *)NULL)) {
-        result__JOLH=new_lab__RTJ(new_size__5NGH);
-        next__HOLH=(void *)((unsigned long)result__JOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5NGH)));
-        ((__POINTER *)next__HOLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__IOLH)[ 0]=next__HOLH;
-      } else {
-        next__HOLH=((__POINTER *)result__JOLH)[ 0];
-        if ((next__HOLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JOLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5NGH <<  1)) <=  4096)) {
-            next__HOLH=(void *)((unsigned long)result__JOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5NGH)));
-          } else {
-            next__HOLH=new_lab__RTJ(new_size__5NGH);
-          };
-          ((__POINTER *)next__HOLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__IOLH)[ 0]=next__HOLH;
-        } else {
-          ((__POINTER *)result__JOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HOLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__JOLH=next__HOLH;
-        };
-      };
-      ptr__KPJ=result__JOLH;
-    } else {
-      t__DOGH=((__UINTEGER_32 )typ_id__PPJ);
-      a__COGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__QOLH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPJ + a__COGH) & (__UINTEGER_32)(~ a__COGH));
-      ptr_table__NOLH=((__POINTER )(&(table_type[(t__DOGH)])));
-      lab_type__POLH=(__UINTEGER_32)(t__DOGH |  1);
-      next__MOLH=((__POINTER )(NULL));
-      result__OOLH=((__POINTER *)ptr_table__NOLH)[ 0];
-      if ((result__OOLH == (void *)NULL)) {
-        result__OOLH=new_lab__RTJ(lab_type__POLH);
-        next__MOLH=(void *)((unsigned long)result__OOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QOLH)));
-        ((__POINTER *)next__MOLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NOLH)[ 0]=next__MOLH;
-      } else {
-        next__MOLH=((__POINTER *)result__OOLH)[ 0];
-        if ((next__MOLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OOLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QOLH <<  1)) <=  4096)) {
-            next__MOLH=(void *)((unsigned long)result__OOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QOLH)));
-          } else {
-            next__MOLH=new_lab__RTJ(lab_type__POLH);
-          };
-          ((__POINTER *)next__MOLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NOLH)[ 0]=next__MOLH;
-        } else {
-          ((__POINTER *)result__OOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MOLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__OOLH=next__MOLH;
-        };
-      };
-      ptr__KPJ=result__OOLH;
-    };
-    result__JPJ=((__FAST_ARRAYoPROTOTYPEo *)ptr__KPJ);
-    *(result__JPJ) = *(FAST_ARRAYoPROTOTYPEo__);
-  };
-  Self__NEU=((__FAST_ARRAYoPROTOTYPEo *)result__JPJ);
-  if ((Self__NEU->parent_arrayed_collection__AJ.capacity__WEU <  512)) {
-    Self__NEU->parent_arrayed_collection__AJ.storage__DVT=create__JDSB( 512);
-    Self__NEU->parent_arrayed_collection__AJ.capacity__WEU= 512;
-  };
-  Self__NEU->parent_arrayed_collection__AJ.upper__HJ=(__INTEGER)(-  1);
-  prototype_list__BJ=result__JPJ;
-  PROTOTYPE__->index__GPG= 0;
-  HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->item__NBHD=NULL;
-  string_tmp__4VX=create__ZBB( 128);
-  PROTOTYPE__->source__3BC=NULL;
-  HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->buckets__NAGC=NULL;
-  HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->capacity__W3BC= 0;
-  HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->count__YOGC= 0;
-  PROTOTYPE__->slot_list__YVS=NULL;
-  object__ZBC=NULL;
-  source__5BC=NULL;
-  position__CCC= 0;
-  pos_cur__FCC= 0;
-  pos_line__GCC= 0;
-  pos_col__HCC= 0;
-  string_tmp3__HUD=create__ZBB( 256);
-  string_tmp4__JUD=create__ZBB( 256);
-  short_derive__PCC= 0;
-  output_code__SI=create__ZBB( 4000000);
-  is_active_short__OCC=FALSE__;
-  HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->buckets__1DT=NULL;
-  HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->capacity__WDT= 0;
-  HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->count__4MY= 0;
-  result__2PH=NULL;
-  ptr__3PH=((__POINTER )(NULL));
-  typ_id__CQH= 0;
-  sz__5PH=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo));
-  if ((sz__5PH ==  0)) {
-    result__2PH=HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
-  } else {
-    typ_id__CQH=__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5PH);
-    if ((typ_id__CQH == (__INTEGER)(-  1))) {
-      a__GOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__5PH + a__GOGH) & (__UINTEGER_32)(~ a__GOGH));
-      ptr_table__SOLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ROLH=((__POINTER )(NULL));
-      result__TOLH=((__POINTER *)ptr_table__SOLH)[ 0];
-      if ((result__TOLH == (void *)NULL)) {
-        result__TOLH=new_lab__RTJ(new_size__HOGH);
-        next__ROLH=(void *)((unsigned long)result__TOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HOGH)));
-        ((__POINTER *)next__ROLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SOLH)[ 0]=next__ROLH;
-      } else {
-        next__ROLH=((__POINTER *)result__TOLH)[ 0];
-        if ((next__ROLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TOLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HOGH <<  1)) <=  4096)) {
-            next__ROLH=(void *)((unsigned long)result__TOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HOGH)));
-          } else {
-            next__ROLH=new_lab__RTJ(new_size__HOGH);
-          };
-          ((__POINTER *)next__ROLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__SOLH)[ 0]=next__ROLH;
-        } else {
-          ((__POINTER *)result__TOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ROLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__TOLH=next__ROLH;
-        };
-      };
-      ptr__3PH=result__TOLH;
-    } else {
-      t__LOGH=((__UINTEGER_32 )typ_id__CQH);
-      a__KOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0OLH=(__UINTEGER_32)((__UINTEGER_32)(sz__5PH + a__KOGH) & (__UINTEGER_32)(~ a__KOGH));
-      ptr_table__XOLH=((__POINTER )(&(table_type[(t__LOGH)])));
-      lab_type__ZOLH=(__UINTEGER_32)(t__LOGH |  1);
-      next__WOLH=((__POINTER )(NULL));
-      result__YOLH=((__POINTER *)ptr_table__XOLH)[ 0];
-      if ((result__YOLH == (void *)NULL)) {
-        result__YOLH=new_lab__RTJ(lab_type__ZOLH);
-        next__WOLH=(void *)((unsigned long)result__YOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0OLH)));
-        ((__POINTER *)next__WOLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__XOLH)[ 0]=next__WOLH;
-      } else {
-        next__WOLH=((__POINTER *)result__YOLH)[ 0];
-        if ((next__WOLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YOLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__0OLH <<  1)) <=  4096)) {
-            next__WOLH=(void *)((unsigned long)result__YOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0OLH)));
-          } else {
-            next__WOLH=new_lab__RTJ(lab_type__ZOLH);
-          };
-          ((__POINTER *)next__WOLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__XOLH)[ 0]=next__WOLH;
-        } else {
-          ((__POINTER *)result__YOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WOLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__YOLH=next__WOLH;
-        };
-      };
-      ptr__3PH=result__YOLH;
-    };
-    result__2PH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__3PH);
-    *(result__2PH) = *(HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
-  };
-  Self__ZOT=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__2PH);
-  new_capacity__ZMY=prime_number_ceiling__021( 193);
-  Self__ZOT->buckets__1DT=create__0E4(new_capacity__ZMY);
-  Self__ZOT->capacity__WDT=new_capacity__ZMY;
-  Self__ZOT->count__4MY= 0;
-  short_dico__QD=result__2PH;
-  HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->key__HET=NULL;
-  HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->next__SET=NULL;
-  token__BED=create__ZBB( 100);
-  HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->item__KW3=NULL;
-  LINKED_COLLECTIONoSTRING_CONSTANTo__->upper__0ED= 0;
-  LINKED_LISToSTRING_CONSTANTo__->parent_linked_collection__LD=(*LINKED_COLLECTIONoSTRING_CONSTANTo__);
-  LINKED_LISToSTRING_CONSTANTo__->mem_idx__YTEC= 0;
-  LINKED_LISToSTRING_CONSTANTo__->mem_lnk__0TEC=NULL;
-  LINKED_LISToSTRING_CONSTANTo__->first_link__OTEC=NULL;
-  LINKED_LIST_NODEoSTRING_CONSTANTo__->next__JROD=NULL;
-  LINKED_LIST_NODEoSTRING_CONSTANTo__->item__L0HD=NULL;
-  type_error__5PG= 0;
-  msg_err__AQG=create__ZBB( 256);
-  skip_comment__ZBE=FALSE__;
-  last_comment_slot__LCE=NULL;
-  last_comment_extern__XZC=NULL;
-  begin_position__BDE= 0;
-  last_string__D2C=NULL;
-  string_tmp2__GCJ=create__ZBB( 256);
-  last_integer__VSO= 0;
-  LINKED_LISToSTRING_CONSTANTo__->last_link__XTEC=NULL;
-  index_count__P5= 0;
-  HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->buckets__J3R=NULL;
-  HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->capacity__E3R= 0;
-  HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->count__J4R= 0;
-  result__JPC=NULL;
-  ptr__KPC=((__POINTER )(NULL));
-  typ_id__PPC= 0;
-  sz__MPC=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo));
-  if ((sz__MPC ==  0)) {
-    result__JPC=HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
-  } else {
-    typ_id__PPC=__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MPC);
-    if ((typ_id__PPC == (__INTEGER)(-  1))) {
-      a__OOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__POGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPC + a__OOGH) & (__UINTEGER_32)(~ a__OOGH));
-      ptr_table__2OLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__POGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__1OLH=((__POINTER )(NULL));
-      result__3OLH=((__POINTER *)ptr_table__2OLH)[ 0];
-      if ((result__3OLH == (void *)NULL)) {
-        result__3OLH=new_lab__RTJ(new_size__POGH);
-        next__1OLH=(void *)((unsigned long)result__3OLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__POGH)));
-        ((__POINTER *)next__1OLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__2OLH)[ 0]=next__1OLH;
-      } else {
-        next__1OLH=((__POINTER *)result__3OLH)[ 0];
-        if ((next__1OLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3OLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__POGH <<  1)) <=  4096)) {
-            next__1OLH=(void *)((unsigned long)result__3OLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__POGH)));
-          } else {
-            next__1OLH=new_lab__RTJ(new_size__POGH);
-          };
-          ((__POINTER *)next__1OLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2OLH)[ 0]=next__1OLH;
-        } else {
-          ((__POINTER *)result__3OLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1OLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__3OLH=next__1OLH;
-        };
-      };
-      ptr__KPC=result__3OLH;
-    } else {
-      t__TOGH=((__UINTEGER_32 )typ_id__PPC);
-      a__SOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EPLH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPC + a__SOGH) & (__UINTEGER_32)(~ a__SOGH));
-      ptr_table__BPLH=((__POINTER )(&(table_type[(t__TOGH)])));
-      lab_type__DPLH=(__UINTEGER_32)(t__TOGH |  1);
-      next__APLH=((__POINTER )(NULL));
-      result__CPLH=((__POINTER *)ptr_table__BPLH)[ 0];
-      if ((result__CPLH == (void *)NULL)) {
-        result__CPLH=new_lab__RTJ(lab_type__DPLH);
-        next__APLH=(void *)((unsigned long)result__CPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPLH)));
-        ((__POINTER *)next__APLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BPLH)[ 0]=next__APLH;
-      } else {
-        next__APLH=((__POINTER *)result__CPLH)[ 0];
-        if ((next__APLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CPLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__EPLH <<  1)) <=  4096)) {
-            next__APLH=(void *)((unsigned long)result__CPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPLH)));
-          } else {
-            next__APLH=new_lab__RTJ(lab_type__DPLH);
-          };
-          ((__POINTER *)next__APLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BPLH)[ 0]=next__APLH;
-        } else {
-          ((__POINTER *)result__CPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__APLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__CPLH=next__APLH;
-        };
-      };
-      ptr__KPC=result__CPLH;
-    };
-    result__JPC=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)ptr__KPC);
-    *(result__JPC) = *(HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__);
-  };
-  Self__KQS=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)result__JPC);
-  new_capacity__UKX=prime_number_ceiling__021( 193);
-  Self__KQS->buckets__J3R=create__PX2(new_capacity__UKX);
-  Self__KQS->capacity__E3R=new_capacity__UKX;
-  Self__KQS->count__J4R= 0;
-  HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__->key__V3R=NULL;
-  HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__->next__A4R=NULL;
-  ARRAYED_COLLECTIONoSLOTo__->capacity__QFS= 0;
-  FAST_ARRAYoSLOTo__->parent_arrayed_collection__BAB=(*ARRAYED_COLLECTIONoSLOTo__);
-  ITM_SLOT__->parent_named__15=(*NAMED__);
-  TYPE_FULL__->flag__UGS= 0;
-  ARRAYED_COLLECTIONoTYPE_IDo__->upper__O5R= 0;
-  ARRAYED_COLLECTIONoTYPE_IDo__->capacity__Q5R= 0;
-  ARRAYED_COLLECTIONoTYPE_IDo__->storage__MAS=NULL;
-  FAST_ARRAYoTYPE_IDo__->parent_arrayed_collection__ABB=(*ARRAYED_COLLECTIONoTYPE_IDo__);
-  list_id__CBB=NULL;
-  directory_list__YB=NULL;
-  file_list__0B=NULL;
-  current_list__2B=NULL;
-  LINKED_COLLECTIONoENTRYo__->upper__HR3D= 0;
-  LINKED_LISToENTRYo__->parent_linked_collection__EIRD=(*LINKED_COLLECTIONoENTRYo__);
-  LINKED_LISToENTRYo__->first_link__OMWE=NULL;
-  LINKED_LISToENTRYo__->mem_idx__VMWE= 0;
-  LINKED_LISToENTRYo__->mem_lnk__WMWE=NULL;
-  LINKED_LISToENTRYo__->last_link__XMWE=NULL;
-  LINKED_LIST_NODEoENTRYo__->item__IAXE=NULL;
-  LINKED_LIST_NODEoENTRYo__->next__G3FF=NULL;
-  FILE_UNIX__->stream__BMRD=((__POINTER )(NULL));
-  proto_input__BI=NULL;
-  HASHED_SEToSTRING_CONSTANTo__->buckets__DEV=NULL;
-  HASHED_SEToSTRING_CONSTANTo__->capacity__HIT= 0;
-  HASHED_SEToSTRING_CONSTANTo__->count__1FY= 0;
-  short_local__XCC=NULL;
-  output_decl__VHE=create__ZBB( 60000);
-  PROTOTYPE__->type_style__S4C=NULL;
-  is_parameter_type__AME=FALSE__;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->upper__ZUV= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->capacity__UYV= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->storage__PZV=NULL;
-  FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__->parent_arrayed_collection__FVP=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__);
-  ARRAYED_COLLECTIONoITM_TYPE_MONOo__->upper__4HV= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_MONOo__->storage__FMV=NULL;
-  ARRAYED_COLLECTIONoITM_TYPE_MONOo__->capacity__TNV= 0;
-  FAST_ARRAYoITM_TYPE_MONOo__->parent_arrayed_collection__SYC=(*ARRAYED_COLLECTIONoITM_TYPE_MONOo__);
-  result__30Q=NULL;
-  ptr__40Q=((__POINTER )(NULL));
-  typ_id__D1Q= 0;
-  sz__A1Q=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo));
-  if ((sz__A1Q ==  0)) {
-    result__30Q=FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
-  } else {
-    typ_id__D1Q=__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__A1Q);
-    if ((typ_id__D1Q == (__INTEGER)(-  1))) {
-      a__WOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__A1Q + a__WOGH) & (__UINTEGER_32)(~ a__WOGH));
-      ptr_table__GPLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__FPLH=((__POINTER )(NULL));
-      result__HPLH=((__POINTER *)ptr_table__GPLH)[ 0];
-      if ((result__HPLH == (void *)NULL)) {
-        result__HPLH=new_lab__RTJ(new_size__XOGH);
-        next__FPLH=(void *)((unsigned long)result__HPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOGH)));
-        ((__POINTER *)next__FPLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GPLH)[ 0]=next__FPLH;
-      } else {
-        next__FPLH=((__POINTER *)result__HPLH)[ 0];
-        if ((next__FPLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HPLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XOGH <<  1)) <=  4096)) {
-            next__FPLH=(void *)((unsigned long)result__HPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOGH)));
-          } else {
-            next__FPLH=new_lab__RTJ(new_size__XOGH);
-          };
-          ((__POINTER *)next__FPLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GPLH)[ 0]=next__FPLH;
-        } else {
-          ((__POINTER *)result__HPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__HPLH=next__FPLH;
-        };
-      };
-      ptr__40Q=result__HPLH;
-    } else {
-      t__1OGH=((__UINTEGER_32 )typ_id__D1Q);
-      a__0OGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__OPLH=(__UINTEGER_32)((__UINTEGER_32)(sz__A1Q + a__0OGH) & (__UINTEGER_32)(~ a__0OGH));
-      ptr_table__LPLH=((__POINTER )(&(table_type[(t__1OGH)])));
-      lab_type__NPLH=(__UINTEGER_32)(t__1OGH |  1);
-      next__KPLH=((__POINTER )(NULL));
-      result__MPLH=((__POINTER *)ptr_table__LPLH)[ 0];
-      if ((result__MPLH == (void *)NULL)) {
-        result__MPLH=new_lab__RTJ(lab_type__NPLH);
-        next__KPLH=(void *)((unsigned long)result__MPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OPLH)));
-        ((__POINTER *)next__KPLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LPLH)[ 0]=next__KPLH;
-      } else {
-        next__KPLH=((__POINTER *)result__MPLH)[ 0];
-        if ((next__KPLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OPLH <<  1)) <=  4096)) {
-            next__KPLH=(void *)((unsigned long)result__MPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OPLH)));
-          } else {
-            next__KPLH=new_lab__RTJ(lab_type__NPLH);
-          };
-          ((__POINTER *)next__KPLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LPLH)[ 0]=next__KPLH;
-        } else {
-          ((__POINTER *)result__MPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__MPLH=next__KPLH;
-        };
-      };
-      ptr__40Q=result__MPLH;
-    };
-    result__30Q=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__40Q);
-    *(result__30Q) = *(FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__);
-  };
-  Self__L3V=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)result__30Q);
-  if ((Self__L3V->parent_arrayed_collection__FVP.capacity__UYV <  5)) {
-    Self__L3V->parent_arrayed_collection__FVP.storage__PZV=create__PHRB( 5);
-    Self__L3V->parent_arrayed_collection__FVP.capacity__UYV= 5;
-  };
-  Self__L3V->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(-  1);
-  free_list__GVP=result__30Q;
-  empty_list__NWP=create_with_capacity__EGR( 0);
-  HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->buckets__K5V=NULL;
-  HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->capacity__F5V= 0;
-  HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->count__ZHW= 0;
-  result__0ER=NULL;
-  ptr__1ER=((__POINTER )(NULL));
-  typ_id__AFR= 0;
-  sz__3ER=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo));
-  if ((sz__3ER ==  0)) {
-    result__0ER=HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
-  } else {
-    typ_id__AFR=__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3ER);
-    if ((typ_id__AFR == (__INTEGER)(-  1))) {
-      a__4OGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5OGH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ER + a__4OGH) & (__UINTEGER_32)(~ a__4OGH));
-      ptr_table__QPLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5OGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__PPLH=((__POINTER )(NULL));
-      result__RPLH=((__POINTER *)ptr_table__QPLH)[ 0];
-      if ((result__RPLH == (void *)NULL)) {
-        result__RPLH=new_lab__RTJ(new_size__5OGH);
-        next__PPLH=(void *)((unsigned long)result__RPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5OGH)));
-        ((__POINTER *)next__PPLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QPLH)[ 0]=next__PPLH;
-      } else {
-        next__PPLH=((__POINTER *)result__RPLH)[ 0];
-        if ((next__PPLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RPLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5OGH <<  1)) <=  4096)) {
-            next__PPLH=(void *)((unsigned long)result__RPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5OGH)));
-          } else {
-            next__PPLH=new_lab__RTJ(new_size__5OGH);
-          };
-          ((__POINTER *)next__PPLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QPLH)[ 0]=next__PPLH;
-        } else {
-          ((__POINTER *)result__RPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__RPLH=next__PPLH;
-        };
-      };
-      ptr__1ER=result__RPLH;
-    } else {
-      t__DPGH=((__UINTEGER_32 )typ_id__AFR);
-      a__CPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__YPLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ER + a__CPGH) & (__UINTEGER_32)(~ a__CPGH));
-      ptr_table__VPLH=((__POINTER )(&(table_type[(t__DPGH)])));
-      lab_type__XPLH=(__UINTEGER_32)(t__DPGH |  1);
-      next__UPLH=((__POINTER )(NULL));
-      result__WPLH=((__POINTER *)ptr_table__VPLH)[ 0];
-      if ((result__WPLH == (void *)NULL)) {
-        result__WPLH=new_lab__RTJ(lab_type__XPLH);
-        next__UPLH=(void *)((unsigned long)result__WPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YPLH)));
-        ((__POINTER *)next__UPLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VPLH)[ 0]=next__UPLH;
-      } else {
-        next__UPLH=((__POINTER *)result__WPLH)[ 0];
-        if ((next__UPLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WPLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YPLH <<  1)) <=  4096)) {
-            next__UPLH=(void *)((unsigned long)result__WPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YPLH)));
-          } else {
-            next__UPLH=new_lab__RTJ(lab_type__XPLH);
-          };
-          ((__POINTER *)next__UPLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VPLH)[ 0]=next__UPLH;
-        } else {
-          ((__POINTER *)result__WPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WPLH=next__UPLH;
-        };
-      };
-      ptr__1ER=result__WPLH;
-    };
-    result__0ER=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)ptr__1ER);
-    *(result__0ER) = *(HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__);
-  };
-  Self__3EW=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)result__0ER);
-  new_capacity__3G1=prime_number_ceiling__021( 53);
-  Self__3EW->buckets__K5V=create__SWBB(new_capacity__3G1);
-  Self__3EW->capacity__F5V=new_capacity__3G1;
-  Self__3EW->count__ZHW= 0;
-  bucket__YWP=result__0ER;
-  ITM_TYPE_STYLE__->parent_itm_type_simple__3SN=(*ITM_TYPE_SIMPLE__);
-  ITM_TYPE_STYLE__->style__PZP=NULL;
-  ITM_TYPE_GENERIC__->parent_itm_type_style__4SN=(*ITM_TYPE_STYLE__);
-  HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__->item__W5V=NULL;
-  HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__->next__CAW=NULL;
-  ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->upper__SKP= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->capacity__R1V= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->storage__21V=NULL;
-  FAST_ARRAYoITM_TYPE_MULTIo__->parent_arrayed_collection__IKP=(*ARRAYED_COLLECTIONoITM_TYPE_MULTIo__);
-  result__KTQ=NULL;
-  ptr__LTQ=((__POINTER )(NULL));
-  typ_id__QTQ= 0;
-  sz__NTQ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_MULTIo));
-  if ((sz__NTQ ==  0)) {
-    result__KTQ=FAST_ARRAYoITM_TYPE_MULTIo__;
-  } else {
-    typ_id__QTQ=__FAST_ARRAYoITM_TYPE_MULTIo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NTQ);
-    if ((typ_id__QTQ == (__INTEGER)(-  1))) {
-      a__GPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NTQ + a__GPGH) & (__UINTEGER_32)(~ a__GPGH));
-      ptr_table__0PLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ZPLH=((__POINTER )(NULL));
-      result__1PLH=((__POINTER *)ptr_table__0PLH)[ 0];
-      if ((result__1PLH == (void *)NULL)) {
-        result__1PLH=new_lab__RTJ(new_size__HPGH);
-        next__ZPLH=(void *)((unsigned long)result__1PLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPGH)));
-        ((__POINTER *)next__ZPLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0PLH)[ 0]=next__ZPLH;
-      } else {
-        next__ZPLH=((__POINTER *)result__1PLH)[ 0];
-        if ((next__ZPLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1PLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HPGH <<  1)) <=  4096)) {
-            next__ZPLH=(void *)((unsigned long)result__1PLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPGH)));
-          } else {
-            next__ZPLH=new_lab__RTJ(new_size__HPGH);
-          };
-          ((__POINTER *)next__ZPLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0PLH)[ 0]=next__ZPLH;
-        } else {
-          ((__POINTER *)result__1PLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1PLH=next__ZPLH;
-        };
-      };
-      ptr__LTQ=result__1PLH;
-    } else {
-      t__LPGH=((__UINTEGER_32 )typ_id__QTQ);
-      a__KPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__CQLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NTQ + a__KPGH) & (__UINTEGER_32)(~ a__KPGH));
-      ptr_table__5PLH=((__POINTER )(&(table_type[(t__LPGH)])));
-      lab_type__BQLH=(__UINTEGER_32)(t__LPGH |  1);
-      next__4PLH=((__POINTER )(NULL));
-      result__AQLH=((__POINTER *)ptr_table__5PLH)[ 0];
-      if ((result__AQLH == (void *)NULL)) {
-        result__AQLH=new_lab__RTJ(lab_type__BQLH);
-        next__4PLH=(void *)((unsigned long)result__AQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CQLH)));
-        ((__POINTER *)next__4PLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__5PLH)[ 0]=next__4PLH;
-      } else {
-        next__4PLH=((__POINTER *)result__AQLH)[ 0];
-        if ((next__4PLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AQLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CQLH <<  1)) <=  4096)) {
-            next__4PLH=(void *)((unsigned long)result__AQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CQLH)));
-          } else {
-            next__4PLH=new_lab__RTJ(lab_type__BQLH);
-          };
-          ((__POINTER *)next__4PLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5PLH)[ 0]=next__4PLH;
-        } else {
-          ((__POINTER *)result__AQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4PLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__AQLH=next__4PLH;
-        };
-      };
-      ptr__LTQ=result__AQLH;
-    };
-    result__KTQ=((__FAST_ARRAYoITM_TYPE_MULTIo *)ptr__LTQ);
-    *(result__KTQ) = *(FAST_ARRAYoITM_TYPE_MULTIo__);
-  };
-  Self__I1V=((__FAST_ARRAYoITM_TYPE_MULTIo *)result__KTQ);
-  if ((Self__I1V->parent_arrayed_collection__IKP.capacity__R1V <  32)) {
-    Self__I1V->parent_arrayed_collection__IKP.storage__21V=create__PJXB( 32);
-    Self__I1V->parent_arrayed_collection__IKP.capacity__R1V= 32;
-  };
-  Self__I1V->parent_arrayed_collection__IKP.upper__SKP=(__INTEGER)(-  1);
-  dico__JKP=result__KTQ;
-  ITM_TYPE_MULTI__->list_type__2KP=NULL;
-  ITM_TYPE_BLOCK__->type_argument__SNN=NULL;
-  ITM_TYPE_GENERIC__->list_type__ZZP=NULL;
-  ITM_TYPE_BLOCK__->type_result__2NN=NULL;
-  ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__->upper__ENN= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__->capacity__0JV= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__->storage__FKV=NULL;
-  FAST_ARRAYoITM_TYPE_BLOCKo__->parent_arrayed_collection__0MN=(*ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__);
-  result__Q1O=NULL;
-  ptr__R1O=((__POINTER )(NULL));
-  typ_id__W1O= 0;
-  sz__T1O=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_BLOCKo));
-  if ((sz__T1O ==  0)) {
-    result__Q1O=FAST_ARRAYoITM_TYPE_BLOCKo__;
-  } else {
-    typ_id__W1O=__FAST_ARRAYoITM_TYPE_BLOCKo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__T1O);
-    if ((typ_id__W1O == (__INTEGER)(-  1))) {
-      a__OPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__T1O + a__OPGH) & (__UINTEGER_32)(~ a__OPGH));
-      ptr_table__EQLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__DQLH=((__POINTER )(NULL));
-      result__FQLH=((__POINTER *)ptr_table__EQLH)[ 0];
-      if ((result__FQLH == (void *)NULL)) {
-        result__FQLH=new_lab__RTJ(new_size__PPGH);
-        next__DQLH=(void *)((unsigned long)result__FQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PPGH)));
-        ((__POINTER *)next__DQLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__EQLH)[ 0]=next__DQLH;
-      } else {
-        next__DQLH=((__POINTER *)result__FQLH)[ 0];
-        if ((next__DQLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FQLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PPGH <<  1)) <=  4096)) {
-            next__DQLH=(void *)((unsigned long)result__FQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PPGH)));
-          } else {
-            next__DQLH=new_lab__RTJ(new_size__PPGH);
-          };
-          ((__POINTER *)next__DQLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__EQLH)[ 0]=next__DQLH;
-        } else {
-          ((__POINTER *)result__FQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__FQLH=next__DQLH;
-        };
-      };
-      ptr__R1O=result__FQLH;
-    } else {
-      t__TPGH=((__UINTEGER_32 )typ_id__W1O);
-      a__SPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__MQLH=(__UINTEGER_32)((__UINTEGER_32)(sz__T1O + a__SPGH) & (__UINTEGER_32)(~ a__SPGH));
-      ptr_table__JQLH=((__POINTER )(&(table_type[(t__TPGH)])));
-      lab_type__LQLH=(__UINTEGER_32)(t__TPGH |  1);
-      next__IQLH=((__POINTER )(NULL));
-      result__KQLH=((__POINTER *)ptr_table__JQLH)[ 0];
-      if ((result__KQLH == (void *)NULL)) {
-        result__KQLH=new_lab__RTJ(lab_type__LQLH);
-        next__IQLH=(void *)((unsigned long)result__KQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQLH)));
-        ((__POINTER *)next__IQLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__JQLH)[ 0]=next__IQLH;
-      } else {
-        next__IQLH=((__POINTER *)result__KQLH)[ 0];
-        if ((next__IQLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KQLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__MQLH <<  1)) <=  4096)) {
-            next__IQLH=(void *)((unsigned long)result__KQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQLH)));
-          } else {
-            next__IQLH=new_lab__RTJ(lab_type__LQLH);
-          };
-          ((__POINTER *)next__IQLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__JQLH)[ 0]=next__IQLH;
-        } else {
-          ((__POINTER *)result__KQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__KQLH=next__IQLH;
-        };
-      };
-      ptr__R1O=result__KQLH;
-    };
-    result__Q1O=((__FAST_ARRAYoITM_TYPE_BLOCKo *)ptr__R1O);
-    *(result__Q1O) = *(FAST_ARRAYoITM_TYPE_BLOCKo__);
-  };
-  Self__RJV=((__FAST_ARRAYoITM_TYPE_BLOCKo *)result__Q1O);
-  if ((Self__RJV->parent_arrayed_collection__0MN.capacity__0JV <  32)) {
-    Self__RJV->parent_arrayed_collection__0MN.storage__FKV=create__KSWB( 32);
-    Self__RJV->parent_arrayed_collection__0MN.capacity__0JV= 32;
-  };
-  Self__RJV->parent_arrayed_collection__0MN.upper__ENN=(__INTEGER)(-  1);
-  dico__1MN=result__Q1O;
-  ITM_CODE__->parent_itm_object__PFE=(*ITM_OBJECT__);
-  ITM_CONSTANT__->parent_itm_code__TYF=(*ITM_CODE__);
-  ITM_REAL__->parent_itm_constant__BSO=(*ITM_CONSTANT__);
-  ITM_NUMBER__->parent_itm_constant__TSO=(*ITM_CONSTANT__);
-  ITM_CHARACTER__->parent_itm_constant__FTO=(*ITM_CONSTANT__);
-  ITM_STRING__->parent_itm_constant__WTO=(*ITM_CONSTANT__);
-  ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->upper__2YP= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->capacity__HBW= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->storage__SBW=NULL;
-  FAST_ARRAYoITM_TYPE_GENERICo__->parent_arrayed_collection__SYP=(*ARRAYED_COLLECTIONoITM_TYPE_GENERICo__);
-  result__X3Q=NULL;
-  ptr__Y3Q=((__POINTER )(NULL));
-  typ_id__33Q= 0;
-  sz__03Q=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_GENERICo));
-  if ((sz__03Q ==  0)) {
-    result__X3Q=FAST_ARRAYoITM_TYPE_GENERICo__;
-  } else {
-    typ_id__33Q=__FAST_ARRAYoITM_TYPE_GENERICo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__03Q);
-    if ((typ_id__33Q == (__INTEGER)(-  1))) {
-      a__WPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__03Q + a__WPGH) & (__UINTEGER_32)(~ a__WPGH));
-      ptr_table__OQLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__NQLH=((__POINTER )(NULL));
-      result__PQLH=((__POINTER *)ptr_table__OQLH)[ 0];
-      if ((result__PQLH == (void *)NULL)) {
-        result__PQLH=new_lab__RTJ(new_size__XPGH);
-        next__NQLH=(void *)((unsigned long)result__PQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XPGH)));
-        ((__POINTER *)next__NQLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__OQLH)[ 0]=next__NQLH;
-      } else {
-        next__NQLH=((__POINTER *)result__PQLH)[ 0];
-        if ((next__NQLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PQLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XPGH <<  1)) <=  4096)) {
-            next__NQLH=(void *)((unsigned long)result__PQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XPGH)));
-          } else {
-            next__NQLH=new_lab__RTJ(new_size__XPGH);
-          };
-          ((__POINTER *)next__NQLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__OQLH)[ 0]=next__NQLH;
-        } else {
-          ((__POINTER *)result__PQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__PQLH=next__NQLH;
-        };
-      };
-      ptr__Y3Q=result__PQLH;
-    } else {
-      t__1PGH=((__UINTEGER_32 )typ_id__33Q);
-      a__0PGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__WQLH=(__UINTEGER_32)((__UINTEGER_32)(sz__03Q + a__0PGH) & (__UINTEGER_32)(~ a__0PGH));
-      ptr_table__TQLH=((__POINTER )(&(table_type[(t__1PGH)])));
-      lab_type__VQLH=(__UINTEGER_32)(t__1PGH |  1);
-      next__SQLH=((__POINTER )(NULL));
-      result__UQLH=((__POINTER *)ptr_table__TQLH)[ 0];
-      if ((result__UQLH == (void *)NULL)) {
-        result__UQLH=new_lab__RTJ(lab_type__VQLH);
-        next__SQLH=(void *)((unsigned long)result__UQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WQLH)));
-        ((__POINTER *)next__SQLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__TQLH)[ 0]=next__SQLH;
-      } else {
-        next__SQLH=((__POINTER *)result__UQLH)[ 0];
-        if ((next__SQLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UQLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WQLH <<  1)) <=  4096)) {
-            next__SQLH=(void *)((unsigned long)result__UQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WQLH)));
-          } else {
-            next__SQLH=new_lab__RTJ(lab_type__VQLH);
-          };
-          ((__POINTER *)next__SQLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__TQLH)[ 0]=next__SQLH;
-        } else {
-          ((__POINTER *)result__UQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__UQLH=next__SQLH;
-        };
-      };
-      ptr__Y3Q=result__UQLH;
-    };
-    result__X3Q=((__FAST_ARRAYoITM_TYPE_GENERICo *)ptr__Y3Q);
-    *(result__X3Q) = *(FAST_ARRAYoITM_TYPE_GENERICo__);
-  };
-  Self__4AW=((__FAST_ARRAYoITM_TYPE_GENERICo *)result__X3Q);
-  if ((Self__4AW->parent_arrayed_collection__SYP.capacity__HBW <  32)) {
-    Self__4AW->parent_arrayed_collection__SYP.storage__SBW=create__JQXB( 32);
-    Self__4AW->parent_arrayed_collection__SYP.capacity__HBW= 32;
-  };
-  Self__4AW->parent_arrayed_collection__SYP.upper__2YP=(__INTEGER)(-  1);
-  dico__TYP=result__X3Q;
-  HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->buckets__F4T=NULL;
-  HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->capacity__A4T= 0;
-  HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->count__CGZ= 0;
-  result__ENK=NULL;
-  ptr__FNK=((__POINTER )(NULL));
-  typ_id__KNK= 0;
-  sz__HNK=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo));
-  if ((sz__HNK ==  0)) {
-    result__ENK=HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
-  } else {
-    typ_id__KNK=__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__HNK);
-    if ((typ_id__KNK == (__INTEGER)(-  1))) {
-      a__4PGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5PGH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNK + a__4PGH) & (__UINTEGER_32)(~ a__4PGH));
-      ptr_table__YQLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5PGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__XQLH=((__POINTER )(NULL));
-      result__ZQLH=((__POINTER *)ptr_table__YQLH)[ 0];
-      if ((result__ZQLH == (void *)NULL)) {
-        result__ZQLH=new_lab__RTJ(new_size__5PGH);
-        next__XQLH=(void *)((unsigned long)result__ZQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5PGH)));
-        ((__POINTER *)next__XQLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__YQLH)[ 0]=next__XQLH;
-      } else {
-        next__XQLH=((__POINTER *)result__ZQLH)[ 0];
-        if ((next__XQLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZQLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5PGH <<  1)) <=  4096)) {
-            next__XQLH=(void *)((unsigned long)result__ZQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5PGH)));
-          } else {
-            next__XQLH=new_lab__RTJ(new_size__5PGH);
-          };
-          ((__POINTER *)next__XQLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__YQLH)[ 0]=next__XQLH;
-        } else {
-          ((__POINTER *)result__ZQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ZQLH=next__XQLH;
-        };
-      };
-      ptr__FNK=result__ZQLH;
-    } else {
-      t__DQGH=((__UINTEGER_32 )typ_id__KNK);
-      a__CQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ARLH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNK + a__CQGH) & (__UINTEGER_32)(~ a__CQGH));
-      ptr_table__3QLH=((__POINTER )(&(table_type[(t__DQGH)])));
-      lab_type__5QLH=(__UINTEGER_32)(t__DQGH |  1);
-      next__2QLH=((__POINTER )(NULL));
-      result__4QLH=((__POINTER *)ptr_table__3QLH)[ 0];
-      if ((result__4QLH == (void *)NULL)) {
-        result__4QLH=new_lab__RTJ(lab_type__5QLH);
-        next__2QLH=(void *)((unsigned long)result__4QLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARLH)));
-        ((__POINTER *)next__2QLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__3QLH)[ 0]=next__2QLH;
-      } else {
-        next__2QLH=((__POINTER *)result__4QLH)[ 0];
-        if ((next__2QLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4QLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ARLH <<  1)) <=  4096)) {
-            next__2QLH=(void *)((unsigned long)result__4QLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARLH)));
-          } else {
-            next__2QLH=new_lab__RTJ(lab_type__5QLH);
-          };
-          ((__POINTER *)next__2QLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3QLH)[ 0]=next__2QLH;
-        } else {
-          ((__POINTER *)result__4QLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2QLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__4QLH=next__2QLH;
-        };
-      };
-      ptr__FNK=result__4QLH;
-    };
-    result__ENK=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__FNK);
-    *(result__ENK) = *(HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
-  };
-  Self__ANU=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)result__ENK);
-  new_capacity__3FZ=prime_number_ceiling__021( 193);
-  Self__ANU->buckets__F4T=create__OG5(new_capacity__3FZ);
-  Self__ANU->capacity__A4T=new_capacity__3FZ;
-  Self__ANU->count__CGZ= 0;
-  dico__XVI=result__ENK;
-  HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->key__R4T=NULL;
-  HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->next__24T=NULL;
-  HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->item__E5T=NULL;
-  result__HXQ=NULL;
-  ptr__IXQ=((__POINTER )(NULL));
-  typ_id__NXQ= 0;
-  sz__KXQ=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-  if ((sz__KXQ ==  0)) {
-    result__HXQ=ITM_TYPE_PARAMETER__;
-  } else {
-    typ_id__NXQ=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__KXQ);
-    if ((typ_id__NXQ == (__INTEGER)(-  1))) {
-      a__NCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__OCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXQ + a__NCFH) & (__UINTEGER_32)(~ a__NCFH));
-      ptr_table__CRLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__BRLH=((__POINTER )(NULL));
-      result__DRLH=((__POINTER *)ptr_table__CRLH)[ 0];
-      if ((result__DRLH == (void *)NULL)) {
-        result__DRLH=new_lab__RTJ(new_size__OCFH);
-        next__BRLH=(void *)((unsigned long)result__DRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCFH)));
-        ((__POINTER *)next__BRLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__CRLH)[ 0]=next__BRLH;
-      } else {
-        next__BRLH=((__POINTER *)result__DRLH)[ 0];
-        if ((next__BRLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DRLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OCFH <<  1)) <=  4096)) {
-            next__BRLH=(void *)((unsigned long)result__DRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCFH)));
-          } else {
-            next__BRLH=new_lab__RTJ(new_size__OCFH);
-          };
-          ((__POINTER *)next__BRLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CRLH)[ 0]=next__BRLH;
-        } else {
-          ((__POINTER *)result__DRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__DRLH=next__BRLH;
-        };
-      };
-      ptr__IXQ=result__DRLH;
-    } else {
-      t__SCFH=((__UINTEGER_32 )typ_id__NXQ);
-      a__RCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__KRLH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXQ + a__RCFH) & (__UINTEGER_32)(~ a__RCFH));
-      ptr_table__HRLH=((__POINTER )(&(table_type[(t__SCFH)])));
-      lab_type__JRLH=(__UINTEGER_32)(t__SCFH |  1);
-      next__GRLH=((__POINTER )(NULL));
-      result__IRLH=((__POINTER *)ptr_table__HRLH)[ 0];
-      if ((result__IRLH == (void *)NULL)) {
-        result__IRLH=new_lab__RTJ(lab_type__JRLH);
-        next__GRLH=(void *)((unsigned long)result__IRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KRLH)));
-        ((__POINTER *)next__GRLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__HRLH)[ 0]=next__GRLH;
-      } else {
-        next__GRLH=((__POINTER *)result__IRLH)[ 0];
-        if ((next__GRLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IRLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__KRLH <<  1)) <=  4096)) {
-            next__GRLH=(void *)((unsigned long)result__IRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KRLH)));
-          } else {
-            next__GRLH=new_lab__RTJ(lab_type__JRLH);
-          };
-          ((__POINTER *)next__GRLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HRLH)[ 0]=next__GRLH;
-        } else {
-          ((__POINTER *)result__IRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__IRLH=next__GRLH;
-        };
-      };
-      ptr__IXQ=result__IRLH;
-    };
-    result__HXQ=((__ITM_TYPE_PARAMETER *)ptr__IXQ);
-    *(result__HXQ) = *(ITM_TYPE_PARAMETER__);
-  };
-  Self__52V=((__ITM_TYPE_PARAMETER *)result__HXQ);
-  Self__52V->parent_itm_type__VFE.name__GZP=(&__string_1);
-  fast_put__to__JPZ(result__ENK,Self__52V,(&__string_1));
-  type_self__DVN=result__HXQ;
-  ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->upper__LPR= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->capacity__PLW= 0;
-  ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->storage__0LW=NULL;
-  FAST_ARRAYoITM_TYPE_STYLEo__->parent_arrayed_collection__BPR=(*ARRAYED_COLLECTIONoITM_TYPE_STYLEo__);
-  result__DWR=NULL;
-  ptr__EWR=((__POINTER )(NULL));
-  typ_id__JWR= 0;
-  sz__GWR=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_STYLEo));
-  if ((sz__GWR ==  0)) {
-    result__DWR=FAST_ARRAYoITM_TYPE_STYLEo__;
-  } else {
-    typ_id__JWR=__FAST_ARRAYoITM_TYPE_STYLEo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GWR);
-    if ((typ_id__JWR == (__INTEGER)(-  1))) {
-      a__GQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__GWR + a__GQGH) & (__UINTEGER_32)(~ a__GQGH));
-      ptr_table__MRLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__LRLH=((__POINTER )(NULL));
-      result__NRLH=((__POINTER *)ptr_table__MRLH)[ 0];
-      if ((result__NRLH == (void *)NULL)) {
-        result__NRLH=new_lab__RTJ(new_size__HQGH);
-        next__LRLH=(void *)((unsigned long)result__NRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQGH)));
-        ((__POINTER *)next__LRLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MRLH)[ 0]=next__LRLH;
-      } else {
-        next__LRLH=((__POINTER *)result__NRLH)[ 0];
-        if ((next__LRLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NRLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HQGH <<  1)) <=  4096)) {
-            next__LRLH=(void *)((unsigned long)result__NRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQGH)));
-          } else {
-            next__LRLH=new_lab__RTJ(new_size__HQGH);
-          };
-          ((__POINTER *)next__LRLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MRLH)[ 0]=next__LRLH;
-        } else {
-          ((__POINTER *)result__NRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__NRLH=next__LRLH;
-        };
-      };
-      ptr__EWR=result__NRLH;
-    } else {
-      t__LQGH=((__UINTEGER_32 )typ_id__JWR);
-      a__KQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__URLH=(__UINTEGER_32)((__UINTEGER_32)(sz__GWR + a__KQGH) & (__UINTEGER_32)(~ a__KQGH));
-      ptr_table__RRLH=((__POINTER )(&(table_type[(t__LQGH)])));
-      lab_type__TRLH=(__UINTEGER_32)(t__LQGH |  1);
-      next__QRLH=((__POINTER )(NULL));
-      result__SRLH=((__POINTER *)ptr_table__RRLH)[ 0];
-      if ((result__SRLH == (void *)NULL)) {
-        result__SRLH=new_lab__RTJ(lab_type__TRLH);
-        next__QRLH=(void *)((unsigned long)result__SRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__URLH)));
-        ((__POINTER *)next__QRLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RRLH)[ 0]=next__QRLH;
-      } else {
-        next__QRLH=((__POINTER *)result__SRLH)[ 0];
-        if ((next__QRLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SRLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__URLH <<  1)) <=  4096)) {
-            next__QRLH=(void *)((unsigned long)result__SRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__URLH)));
-          } else {
-            next__QRLH=new_lab__RTJ(lab_type__TRLH);
-          };
-          ((__POINTER *)next__QRLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RRLH)[ 0]=next__QRLH;
-        } else {
-          ((__POINTER *)result__SRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__SRLH=next__QRLH;
-        };
-      };
-      ptr__EWR=result__SRLH;
-    };
-    result__DWR=((__FAST_ARRAYoITM_TYPE_STYLEo *)ptr__EWR);
-    *(result__DWR) = *(FAST_ARRAYoITM_TYPE_STYLEo__);
-  };
-  Self__GLW=((__FAST_ARRAYoITM_TYPE_STYLEo *)result__DWR);
-  if ((Self__GLW->parent_arrayed_collection__BPR.capacity__PLW <  32)) {
-    Self__GLW->parent_arrayed_collection__BPR.storage__0LW=create__VFYB( 32);
-    Self__GLW->parent_arrayed_collection__BPR.capacity__PLW= 32;
-  };
-  Self__GLW->parent_arrayed_collection__BPR.upper__LPR=(__INTEGER)(-  1);
-  dico__CPR=result__DWR;
-  type_null__1VN=get__IVI((&__string_2));
-  ITM_LIST__->parent_itm_code__SBF=(*ITM_CODE__);
-  last_group__TWF=NULL;
-  old_position__ITI= 0;
-  old_pos_cur__KTI= 0;
-  old_pos_line__MTI= 0;
-  old_pos_col__OTI= 0;
-  old_short_derive__QTI= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->upper__C3T= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->capacity__NKU= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->storage__YKU=NULL;
-  FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__->parent_arrayed_collection__ZTI=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__);
-  ARRAYED_COLLECTIONoITM_LOCALo__->upper__M2K= 0;
-  ARRAYED_COLLECTIONoITM_LOCALo__->capacity__IMU= 0;
-  ARRAYED_COLLECTIONoITM_LOCALo__->storage__TMU=NULL;
-  FAST_ARRAYoITM_LOCALo__->parent_arrayed_collection__T3H=(*ARRAYED_COLLECTIONoITM_LOCALo__);
-  result__BKK=NULL;
-  ptr__CKK=((__POINTER )(NULL));
-  typ_id__HKK= 0;
-  sz__EKK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo));
-  if ((sz__EKK ==  0)) {
-    result__BKK=FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
-  } else {
-    typ_id__HKK=__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EKK);
-    if ((typ_id__HKK == (__INTEGER)(-  1))) {
-      a__OQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__EKK + a__OQGH) & (__UINTEGER_32)(~ a__OQGH));
-      ptr_table__WRLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__VRLH=((__POINTER )(NULL));
-      result__XRLH=((__POINTER *)ptr_table__WRLH)[ 0];
-      if ((result__XRLH == (void *)NULL)) {
-        result__XRLH=new_lab__RTJ(new_size__PQGH);
-        next__VRLH=(void *)((unsigned long)result__XRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQGH)));
-        ((__POINTER *)next__VRLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__WRLH)[ 0]=next__VRLH;
-      } else {
-        next__VRLH=((__POINTER *)result__XRLH)[ 0];
-        if ((next__VRLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XRLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PQGH <<  1)) <=  4096)) {
-            next__VRLH=(void *)((unsigned long)result__XRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQGH)));
-          } else {
-            next__VRLH=new_lab__RTJ(new_size__PQGH);
-          };
-          ((__POINTER *)next__VRLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WRLH)[ 0]=next__VRLH;
-        } else {
-          ((__POINTER *)result__XRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__XRLH=next__VRLH;
-        };
-      };
-      ptr__CKK=result__XRLH;
-    } else {
-      t__TQGH=((__UINTEGER_32 )typ_id__HKK);
-      a__SQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__4RLH=(__UINTEGER_32)((__UINTEGER_32)(sz__EKK + a__SQGH) & (__UINTEGER_32)(~ a__SQGH));
-      ptr_table__1RLH=((__POINTER )(&(table_type[(t__TQGH)])));
-      lab_type__3RLH=(__UINTEGER_32)(t__TQGH |  1);
-      next__0RLH=((__POINTER )(NULL));
-      result__2RLH=((__POINTER *)ptr_table__1RLH)[ 0];
-      if ((result__2RLH == (void *)NULL)) {
-        result__2RLH=new_lab__RTJ(lab_type__3RLH);
-        next__0RLH=(void *)((unsigned long)result__2RLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4RLH)));
-        ((__POINTER *)next__0RLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1RLH)[ 0]=next__0RLH;
-      } else {
-        next__0RLH=((__POINTER *)result__2RLH)[ 0];
-        if ((next__0RLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2RLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__4RLH <<  1)) <=  4096)) {
-            next__0RLH=(void *)((unsigned long)result__2RLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4RLH)));
-          } else {
-            next__0RLH=new_lab__RTJ(lab_type__3RLH);
-          };
-          ((__POINTER *)next__0RLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1RLH)[ 0]=next__0RLH;
-        } else {
-          ((__POINTER *)result__2RLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0RLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__2RLH=next__0RLH;
-        };
-      };
-      ptr__CKK=result__2RLH;
-    };
-    result__BKK=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)ptr__CKK);
-    *(result__BKK) = *(FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__);
-  };
-  Self__EKU=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)result__BKK);
-  if ((Self__EKU->parent_arrayed_collection__ZTI.capacity__NKU <  5)) {
-    Self__EKU->parent_arrayed_collection__ZTI.storage__YKU=create__NFQB( 5);
-    Self__EKU->parent_arrayed_collection__ZTI.capacity__NKU= 5;
-  };
-  Self__EKU->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(-  1);
-  free_list__0TI=result__BKK;
-  ITM_LOCAL__->parent_itm_object__O3H=(*ITM_OBJECT__);
-  ITM_LOCAL__->name__P4K=NULL;
-  HASHED_SET_NODEoSTRING_CONSTANTo__->item__PEV=NULL;
-  HASHED_SET_NODEoSTRING_CONSTANTo__->next__0EV=NULL;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->upper__BYT= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->capacity__TBU= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->storage__PCU=NULL;
-  FAST_ARRAYoFAST_ARRAYoITM_CODEoo__->parent_arrayed_collection__PAI=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__);
-  ARRAYED_COLLECTIONoITM_CODEo__->upper__NJL= 0;
-  ARRAYED_COLLECTIONoITM_CODEo__->capacity__TZT= 0;
-  ARRAYED_COLLECTIONoITM_CODEo__->storage__4ZT=NULL;
-  FAST_ARRAYoITM_CODEo__->parent_arrayed_collection__JWF=(*ARRAYED_COLLECTIONoITM_CODEo__);
-  result__KAK=NULL;
-  ptr__LAK=((__POINTER )(NULL));
-  typ_id__QAK= 0;
-  sz__NAK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_CODEoo));
-  if ((sz__NAK ==  0)) {
-    result__KAK=FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
-  } else {
-    typ_id__QAK=__FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NAK);
-    if ((typ_id__QAK == (__INTEGER)(-  1))) {
-      a__WQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NAK + a__WQGH) & (__UINTEGER_32)(~ a__WQGH));
-      ptr_table__ASLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__5RLH=((__POINTER )(NULL));
-      result__BSLH=((__POINTER *)ptr_table__ASLH)[ 0];
-      if ((result__BSLH == (void *)NULL)) {
-        result__BSLH=new_lab__RTJ(new_size__XQGH);
-        next__5RLH=(void *)((unsigned long)result__BSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQGH)));
-        ((__POINTER *)next__5RLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ASLH)[ 0]=next__5RLH;
-      } else {
-        next__5RLH=((__POINTER *)result__BSLH)[ 0];
-        if ((next__5RLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BSLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XQGH <<  1)) <=  4096)) {
-            next__5RLH=(void *)((unsigned long)result__BSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQGH)));
-          } else {
-            next__5RLH=new_lab__RTJ(new_size__XQGH);
-          };
-          ((__POINTER *)next__5RLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ASLH)[ 0]=next__5RLH;
-        } else {
-          ((__POINTER *)result__BSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5RLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__BSLH=next__5RLH;
-        };
-      };
-      ptr__LAK=result__BSLH;
-    } else {
-      t__1QGH=((__UINTEGER_32 )typ_id__QAK);
-      a__0QGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ISLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NAK + a__0QGH) & (__UINTEGER_32)(~ a__0QGH));
-      ptr_table__FSLH=((__POINTER )(&(table_type[(t__1QGH)])));
-      lab_type__HSLH=(__UINTEGER_32)(t__1QGH |  1);
-      next__ESLH=((__POINTER )(NULL));
-      result__GSLH=((__POINTER *)ptr_table__FSLH)[ 0];
-      if ((result__GSLH == (void *)NULL)) {
-        result__GSLH=new_lab__RTJ(lab_type__HSLH);
-        next__ESLH=(void *)((unsigned long)result__GSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISLH)));
-        ((__POINTER *)next__ESLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FSLH)[ 0]=next__ESLH;
-      } else {
-        next__ESLH=((__POINTER *)result__GSLH)[ 0];
-        if ((next__ESLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GSLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ISLH <<  1)) <=  4096)) {
-            next__ESLH=(void *)((unsigned long)result__GSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISLH)));
-          } else {
-            next__ESLH=new_lab__RTJ(lab_type__HSLH);
-          };
-          ((__POINTER *)next__ESLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FSLH)[ 0]=next__ESLH;
-        } else {
-          ((__POINTER *)result__GSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ESLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__GSLH=next__ESLH;
-        };
-      };
-      ptr__LAK=result__GSLH;
-    };
-    result__KAK=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)ptr__LAK);
-    *(result__KAK) = *(FAST_ARRAYoFAST_ARRAYoITM_CODEoo__);
-  };
-  Self__BHU=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)result__KAK);
-  if ((Self__BHU->parent_arrayed_collection__PAI.capacity__TBU <  5)) {
-    Self__BHU->parent_arrayed_collection__PAI.storage__PCU=create__3ZPB( 5);
-    Self__BHU->parent_arrayed_collection__PAI.capacity__TBU= 5;
-  };
-  Self__BHU->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(-  1);
-  free_list__QAI=result__KAK;
-  ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->upper__LUU= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->capacity__QWU= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->storage__1WU=NULL;
-  FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__->parent_arrayed_collection__0AL=(*ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__);
-  ARRAYED_COLLECTIONoSTRING_CONSTANTo__->upper__2CPD= 0;
-  ARRAYED_COLLECTIONoSTRING_CONSTANTo__->capacity__XEPD= 0;
-  ARRAYED_COLLECTIONoSTRING_CONSTANTo__->storage__SFPD=NULL;
-  FAST_ARRAYoSTRING_CONSTANTo__->parent_arrayed_collection__MBJ=(*ARRAYED_COLLECTIONoSTRING_CONSTANTo__);
-  result__EMM=NULL;
-  ptr__FMM=((__POINTER )(NULL));
-  typ_id__KMM= 0;
-  sz__HMM=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo));
-  if ((sz__HMM ==  0)) {
-    result__EMM=FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
-  } else {
-    typ_id__KMM=__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__HMM);
-    if ((typ_id__KMM == (__INTEGER)(-  1))) {
-      a__4QGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5QGH=(__UINTEGER_32)((__UINTEGER_32)(sz__HMM + a__4QGH) & (__UINTEGER_32)(~ a__4QGH));
-      ptr_table__KSLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5QGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__JSLH=((__POINTER )(NULL));
-      result__LSLH=((__POINTER *)ptr_table__KSLH)[ 0];
-      if ((result__LSLH == (void *)NULL)) {
-        result__LSLH=new_lab__RTJ(new_size__5QGH);
-        next__JSLH=(void *)((unsigned long)result__LSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QGH)));
-        ((__POINTER *)next__JSLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KSLH)[ 0]=next__JSLH;
-      } else {
-        next__JSLH=((__POINTER *)result__LSLH)[ 0];
-        if ((next__JSLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LSLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5QGH <<  1)) <=  4096)) {
-            next__JSLH=(void *)((unsigned long)result__LSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QGH)));
-          } else {
-            next__JSLH=new_lab__RTJ(new_size__5QGH);
-          };
-          ((__POINTER *)next__JSLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KSLH)[ 0]=next__JSLH;
-        } else {
-          ((__POINTER *)result__LSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__LSLH=next__JSLH;
-        };
-      };
-      ptr__FMM=result__LSLH;
-    } else {
-      t__DRGH=((__UINTEGER_32 )typ_id__KMM);
-      a__CRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__SSLH=(__UINTEGER_32)((__UINTEGER_32)(sz__HMM + a__CRGH) & (__UINTEGER_32)(~ a__CRGH));
-      ptr_table__PSLH=((__POINTER )(&(table_type[(t__DRGH)])));
-      lab_type__RSLH=(__UINTEGER_32)(t__DRGH |  1);
-      next__OSLH=((__POINTER )(NULL));
-      result__QSLH=((__POINTER *)ptr_table__PSLH)[ 0];
-      if ((result__QSLH == (void *)NULL)) {
-        result__QSLH=new_lab__RTJ(lab_type__RSLH);
-        next__OSLH=(void *)((unsigned long)result__QSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SSLH)));
-        ((__POINTER *)next__OSLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__PSLH)[ 0]=next__OSLH;
-      } else {
-        next__OSLH=((__POINTER *)result__QSLH)[ 0];
-        if ((next__OSLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QSLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__SSLH <<  1)) <=  4096)) {
-            next__OSLH=(void *)((unsigned long)result__QSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SSLH)));
-          } else {
-            next__OSLH=new_lab__RTJ(lab_type__RSLH);
-          };
-          ((__POINTER *)next__OSLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PSLH)[ 0]=next__OSLH;
-        } else {
-          ((__POINTER *)result__QSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__QSLH=next__OSLH;
-        };
-      };
-      ptr__FMM=result__QSLH;
-    };
-    result__EMM=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)ptr__FMM);
-    *(result__EMM) = *(FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__);
-  };
-  Self__HWU=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)result__EMM);
-  if ((Self__HWU->parent_arrayed_collection__0AL.capacity__QWU <  5)) {
-    Self__HWU->parent_arrayed_collection__0AL.storage__1WU=create__Z1ZB( 5);
-    Self__HWU->parent_arrayed_collection__0AL.capacity__QWU= 5;
-  };
-  Self__HWU->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(-  1);
-  free_list__1AL=result__EMM;
-  ITM_LIST_IDF__->parent_itm_code__1EJ=(*ITM_CODE__);
-  ITM_LDOTS__->parent_itm_constant__IXF=(*ITM_CODE__);
-  ITM_PROTOTYPE__->parent_itm_constant__UYF=(*ITM_CONSTANT__);
-  ITM_WRITE__->parent_itm_code__QFJ=(*ITM_CODE__);
-  ITM_WRITE_VALUE__->parent_itm_write__RFJ=(*ITM_WRITE__);
-  ITM_WRITE_CAST__->parent_itm_write__IGJ=(*ITM_WRITE__);
-  ITM_READ__->parent_itm_code__VIJ=(*ITM_CODE__);
-  ITM_WRITE_CODE__->parent_itm_write__TJJ=(*ITM_WRITE__);
-  ITM_OPERATOR__->parent_itm_code__VGL=(*ITM_CODE__);
-  ITM_READ_ARG1__->parent_itm_read__1JL=(*ITM_READ__);
-  ITM_READ_ARG2__->parent_itm_read__IML=(*ITM_READ__);
-  ITM_EXPRESSION__->value_list__PJV=NULL;
-  ITM_OLD__->parent_itm_code__W3L=(*ITM_CODE__);
-  ITM_EXTERN__->parent_itm_code__K5M=(*ITM_CODE__);
-  ITM_EXTERNAL_TYPE__->parent_itm_extern__L5M=(*ITM_EXTERN__);
-  ITM_BLOCK__->list__KMDC=NULL;
-  ITM_EXTERNAL__->parent_itm_extern__QGN=(*ITM_EXTERN__);
-  ITM_READ_ARGS__->parent_itm_read__GEO=(*ITM_READ__);
-  ITM_RESULT__->value__WKFC=NULL;
-  ITM_OPERATOR__->name__AKL=NULL;
-  ITM_ARGUMENT__->parent_itm_code__O5M=(*ITM_OBJECT__);
-  ITM_ARG__->parent_itm_argument__SEHB=(*ITM_ARGUMENT__);
-  ITM_ARG__->name__F0HC=NULL;
-  ITM_ARG__->type__G0HC=NULL;
-  empty_list__IOMF=create_with_capacity__THRC( 0);
-  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->buckets__RLQF=NULL;
-  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->capacity__MLQF= 0;
-  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->count__DQQF= 0;
-  result__TJOF=NULL;
-  ptr__UJOF=((__POINTER )(NULL));
-  typ_id__ZJOF= 0;
-  sz__WJOF=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo));
-  if ((sz__WJOF ==  0)) {
-    result__TJOF=HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
-  } else {
-    typ_id__ZJOF=__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WJOF);
-    if ((typ_id__ZJOF == (__INTEGER)(-  1))) {
-      a__GRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__WJOF + a__GRGH) & (__UINTEGER_32)(~ a__GRGH));
-      ptr_table__USLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__TSLH=((__POINTER )(NULL));
-      result__VSLH=((__POINTER *)ptr_table__USLH)[ 0];
-      if ((result__VSLH == (void *)NULL)) {
-        result__VSLH=new_lab__RTJ(new_size__HRGH);
-        next__TSLH=(void *)((unsigned long)result__VSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRGH)));
-        ((__POINTER *)next__TSLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__USLH)[ 0]=next__TSLH;
-      } else {
-        next__TSLH=((__POINTER *)result__VSLH)[ 0];
-        if ((next__TSLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VSLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HRGH <<  1)) <=  4096)) {
-            next__TSLH=(void *)((unsigned long)result__VSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRGH)));
-          } else {
-            next__TSLH=new_lab__RTJ(new_size__HRGH);
-          };
-          ((__POINTER *)next__TSLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__USLH)[ 0]=next__TSLH;
-        } else {
-          ((__POINTER *)result__VSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__VSLH=next__TSLH;
-        };
-      };
-      ptr__UJOF=result__VSLH;
-    } else {
-      t__LRGH=((__UINTEGER_32 )typ_id__ZJOF);
-      a__KRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__2SLH=(__UINTEGER_32)((__UINTEGER_32)(sz__WJOF + a__KRGH) & (__UINTEGER_32)(~ a__KRGH));
-      ptr_table__ZSLH=((__POINTER )(&(table_type[(t__LRGH)])));
-      lab_type__1SLH=(__UINTEGER_32)(t__LRGH |  1);
-      next__YSLH=((__POINTER )(NULL));
-      result__0SLH=((__POINTER *)ptr_table__ZSLH)[ 0];
-      if ((result__0SLH == (void *)NULL)) {
-        result__0SLH=new_lab__RTJ(lab_type__1SLH);
-        next__YSLH=(void *)((unsigned long)result__0SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2SLH)));
-        ((__POINTER *)next__YSLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZSLH)[ 0]=next__YSLH;
-      } else {
-        next__YSLH=((__POINTER *)result__0SLH)[ 0];
-        if ((next__YSLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0SLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2SLH <<  1)) <=  4096)) {
-            next__YSLH=(void *)((unsigned long)result__0SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2SLH)));
-          } else {
-            next__YSLH=new_lab__RTJ(lab_type__1SLH);
-          };
-          ((__POINTER *)next__YSLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZSLH)[ 0]=next__YSLH;
-        } else {
-          ((__POINTER *)result__0SLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__0SLH=next__YSLH;
-        };
-      };
-      ptr__UJOF=result__0SLH;
-    };
-    result__TJOF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)ptr__UJOF);
-    *(result__TJOF) = *(HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__);
-  };
-  Self__DOQF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)result__TJOF);
-  new_capacity__U0RF=prime_number_ceiling__021( 53);
-  Self__DOQF->buckets__RLQF=create__FNUF(new_capacity__U0RF);
-  Self__DOQF->capacity__MLQF=new_capacity__U0RF;
-  Self__DOQF->count__DQQF= 0;
-  bucket__SOMF=result__TJOF;
-  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->item__3LQF=NULL;
-  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->next__JMQF=NULL;
-  ITM_ARGS__->parent_itm_argument__CEFE=(*ITM_ARGUMENT__);
-  ITM_ARGS__->name__XDQF=NULL;
-  ITM_ARGS__->type__YDQF=NULL;
-  ITM_EXTERNAL_TYPE__->is_persistant__IIN=FALSE__;
-  result__KAG=NULL;
-  ptr__LAG=((__POINTER )(NULL));
-  typ_id__QAG= 0;
-  sz__NAG=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
-  if ((sz__NAG ==  0)) {
-    result__KAG=FAST_ARRAYoSTRINGo__;
-  } else {
-    typ_id__QAG=__FAST_ARRAYoSTRINGo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NAG);
-    if ((typ_id__QAG == (__INTEGER)(-  1))) {
-      a__1BFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__L0G=(__UINTEGER_32)((__UINTEGER_32)(sz__NAG + a__1BFH) & (__UINTEGER_32)(~ a__1BFH));
-      ptr_table__4SLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L0G / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__3SLH=((__POINTER )(NULL));
-      result__5SLH=((__POINTER *)ptr_table__4SLH)[ 0];
-      if ((result__5SLH == (void *)NULL)) {
-        result__5SLH=new_lab__RTJ(new_size__L0G);
-        next__3SLH=(void *)((unsigned long)result__5SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L0G)));
-        ((__POINTER *)next__3SLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4SLH)[ 0]=next__3SLH;
-      } else {
-        next__3SLH=((__POINTER *)result__5SLH)[ 0];
-        if ((next__3SLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5SLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__L0G <<  1)) <=  4096)) {
-            next__3SLH=(void *)((unsigned long)result__5SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L0G)));
-          } else {
-            next__3SLH=new_lab__RTJ(new_size__L0G);
-          };
-          ((__POINTER *)next__3SLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__4SLH)[ 0]=next__3SLH;
-        } else {
-          ((__POINTER *)result__5SLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3SLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__5SLH=next__3SLH;
-        };
-      };
-      ptr__LAG=result__5SLH;
-    } else {
-      t__U1G=((__UINTEGER_32 )typ_id__QAG);
-      a__BCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__GTLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NAG + a__BCFH) & (__UINTEGER_32)(~ a__BCFH));
-      ptr_table__DTLH=((__POINTER )(&(table_type[(t__U1G)])));
-      lab_type__FTLH=(__UINTEGER_32)(t__U1G |  1);
-      next__CTLH=((__POINTER )(NULL));
-      result__ETLH=((__POINTER *)ptr_table__DTLH)[ 0];
-      if ((result__ETLH == (void *)NULL)) {
-        result__ETLH=new_lab__RTJ(lab_type__FTLH);
-        next__CTLH=(void *)((unsigned long)result__ETLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTLH)));
-        ((__POINTER *)next__CTLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DTLH)[ 0]=next__CTLH;
-      } else {
-        next__CTLH=((__POINTER *)result__ETLH)[ 0];
-        if ((next__CTLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ETLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GTLH <<  1)) <=  4096)) {
-            next__CTLH=(void *)((unsigned long)result__ETLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTLH)));
-          } else {
-            next__CTLH=new_lab__RTJ(lab_type__FTLH);
-          };
-          ((__POINTER *)next__CTLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__DTLH)[ 0]=next__CTLH;
-        } else {
-          ((__POINTER *)result__ETLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ETLH=next__CTLH;
-        };
-      };
-      ptr__LAG=result__ETLH;
-    };
-    result__KAG=((__FAST_ARRAYoSTRINGo *)ptr__LAG);
-    *(result__KAG) = *(FAST_ARRAYoSTRINGo__);
-  };
-  Self__AGT=((__FAST_ARRAYoSTRINGo *)result__KAG);
-  if ((Self__AGT->parent_arrayed_collection__5KC.capacity__JGT <  5)) {
-    Self__AGT->parent_arrayed_collection__5KC.storage__UGT=create__2DRB( 5);
-    Self__AGT->parent_arrayed_collection__5KC.capacity__JGT= 5;
-  };
-  Self__AGT->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(-  1);
-  free__3OP=result__KAG;
-  type_void__WYF=get__IVI((&__string_3));
-  PROTOTYPE__->default_value__LWE=NULL;
-  PROTOTYPE__->type_c__GYE=NULL;
-  LIP_CODE__->parent_itm_object__XFE=(*ITM_OBJECT__);
-  LIP_UNARY__->parent_lip_code__FZ4B=(*LIP_CODE__);
-  LIP_UNARY__->operator__J5QD='\0';
-  LIP_UNARY__->value__G5QD=NULL;
-  LIP_CALL__->parent_lip_code__XZ4B=(*LIP_CODE__);
-  LIP_CALL__->name__JRUE=NULL;
-  LIP_CALL__->argument__4QUE=NULL;
-  ARRAYED_COLLECTIONoLIP_INTEGERo__->upper__GIXE= 0;
-  ARRAYED_COLLECTIONoLIP_INTEGERo__->capacity__IMXE= 0;
-  ARRAYED_COLLECTIONoLIP_INTEGERo__->storage__TMXE=NULL;
-  FAST_ARRAYoLIP_INTEGERo__->parent_arrayed_collection__3YSE=(*ARRAYED_COLLECTIONoLIP_INTEGERo__);
-  result__MVTE=NULL;
-  ptr__NVTE=((__POINTER )(NULL));
-  typ_id__SVTE= 0;
-  sz__PVTE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_INTEGERo));
-  if ((sz__PVTE ==  0)) {
-    result__MVTE=FAST_ARRAYoLIP_INTEGERo__;
-  } else {
-    typ_id__SVTE=__FAST_ARRAYoLIP_INTEGERo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PVTE);
-    if ((typ_id__SVTE == (__INTEGER)(-  1))) {
-      a__ORGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVTE + a__ORGH) & (__UINTEGER_32)(~ a__ORGH));
-      ptr_table__ITLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__HTLH=((__POINTER )(NULL));
-      result__JTLH=((__POINTER *)ptr_table__ITLH)[ 0];
-      if ((result__JTLH == (void *)NULL)) {
-        result__JTLH=new_lab__RTJ(new_size__PRGH);
-        next__HTLH=(void *)((unsigned long)result__JTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRGH)));
-        ((__POINTER *)next__HTLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ITLH)[ 0]=next__HTLH;
-      } else {
-        next__HTLH=((__POINTER *)result__JTLH)[ 0];
-        if ((next__HTLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JTLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PRGH <<  1)) <=  4096)) {
-            next__HTLH=(void *)((unsigned long)result__JTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRGH)));
-          } else {
-            next__HTLH=new_lab__RTJ(new_size__PRGH);
-          };
-          ((__POINTER *)next__HTLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ITLH)[ 0]=next__HTLH;
-        } else {
-          ((__POINTER *)result__JTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__JTLH=next__HTLH;
-        };
-      };
-      ptr__NVTE=result__JTLH;
-    } else {
-      t__TRGH=((__UINTEGER_32 )typ_id__SVTE);
-      a__SRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__QTLH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVTE + a__SRGH) & (__UINTEGER_32)(~ a__SRGH));
-      ptr_table__NTLH=((__POINTER )(&(table_type[(t__TRGH)])));
-      lab_type__PTLH=(__UINTEGER_32)(t__TRGH |  1);
-      next__MTLH=((__POINTER )(NULL));
-      result__OTLH=((__POINTER *)ptr_table__NTLH)[ 0];
-      if ((result__OTLH == (void *)NULL)) {
-        result__OTLH=new_lab__RTJ(lab_type__PTLH);
-        next__MTLH=(void *)((unsigned long)result__OTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTLH)));
-        ((__POINTER *)next__MTLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NTLH)[ 0]=next__MTLH;
-      } else {
-        next__MTLH=((__POINTER *)result__OTLH)[ 0];
-        if ((next__MTLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OTLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QTLH <<  1)) <=  4096)) {
-            next__MTLH=(void *)((unsigned long)result__OTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTLH)));
-          } else {
-            next__MTLH=new_lab__RTJ(lab_type__PTLH);
-          };
-          ((__POINTER *)next__MTLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NTLH)[ 0]=next__MTLH;
-        } else {
-          ((__POINTER *)result__OTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__OTLH=next__MTLH;
-        };
-      };
-      ptr__NVTE=result__OTLH;
-    };
-    result__MVTE=((__FAST_ARRAYoLIP_INTEGERo *)ptr__NVTE);
-    *(result__MVTE) = *(FAST_ARRAYoLIP_INTEGERo__);
-  };
-  Self__5LXE=((__FAST_ARRAYoLIP_INTEGERo *)result__MVTE);
-  if ((Self__5LXE->parent_arrayed_collection__3YSE.capacity__IMXE <  10)) {
-    Self__5LXE->parent_arrayed_collection__3YSE.storage__TMXE=create__JPGF( 10);
-    Self__5LXE->parent_arrayed_collection__3YSE.capacity__IMXE= 10;
-  };
-  Self__5LXE->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(-  1);
-  storage__4YSE=result__MVTE;
-  LIP_INTEGER__->value__FP4F= 0;
-  ARRAYED_COLLECTIONoLIP_STRINGo__->upper__WZPF= 0;
-  ARRAYED_COLLECTIONoLIP_STRINGo__->capacity__4AQF= 0;
-  ARRAYED_COLLECTIONoLIP_STRINGo__->storage__JBQF=NULL;
-  FAST_ARRAYoLIP_STRINGo__->parent_arrayed_collection__G5FF=(*ARRAYED_COLLECTIONoLIP_STRINGo__);
-  result__GTMF=NULL;
-  ptr__HTMF=((__POINTER )(NULL));
-  typ_id__MTMF= 0;
-  sz__JTMF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_STRINGo));
-  if ((sz__JTMF ==  0)) {
-    result__GTMF=FAST_ARRAYoLIP_STRINGo__;
-  } else {
-    typ_id__MTMF=__FAST_ARRAYoLIP_STRINGo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__JTMF);
-    if ((typ_id__MTMF == (__INTEGER)(-  1))) {
-      a__WRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__JTMF + a__WRGH) & (__UINTEGER_32)(~ a__WRGH));
-      ptr_table__STLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__RTLH=((__POINTER )(NULL));
-      result__TTLH=((__POINTER *)ptr_table__STLH)[ 0];
-      if ((result__TTLH == (void *)NULL)) {
-        result__TTLH=new_lab__RTJ(new_size__XRGH);
-        next__RTLH=(void *)((unsigned long)result__TTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XRGH)));
-        ((__POINTER *)next__RTLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__STLH)[ 0]=next__RTLH;
-      } else {
-        next__RTLH=((__POINTER *)result__TTLH)[ 0];
-        if ((next__RTLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TTLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XRGH <<  1)) <=  4096)) {
-            next__RTLH=(void *)((unsigned long)result__TTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XRGH)));
-          } else {
-            next__RTLH=new_lab__RTJ(new_size__XRGH);
-          };
-          ((__POINTER *)next__RTLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__STLH)[ 0]=next__RTLH;
-        } else {
-          ((__POINTER *)result__TTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__TTLH=next__RTLH;
-        };
-      };
-      ptr__HTMF=result__TTLH;
-    } else {
-      t__1RGH=((__UINTEGER_32 )typ_id__MTMF);
-      a__0RGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0TLH=(__UINTEGER_32)((__UINTEGER_32)(sz__JTMF + a__0RGH) & (__UINTEGER_32)(~ a__0RGH));
-      ptr_table__XTLH=((__POINTER )(&(table_type[(t__1RGH)])));
-      lab_type__ZTLH=(__UINTEGER_32)(t__1RGH |  1);
-      next__WTLH=((__POINTER )(NULL));
-      result__YTLH=((__POINTER *)ptr_table__XTLH)[ 0];
-      if ((result__YTLH == (void *)NULL)) {
-        result__YTLH=new_lab__RTJ(lab_type__ZTLH);
-        next__WTLH=(void *)((unsigned long)result__YTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0TLH)));
-        ((__POINTER *)next__WTLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__XTLH)[ 0]=next__WTLH;
-      } else {
-        next__WTLH=((__POINTER *)result__YTLH)[ 0];
-        if ((next__WTLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YTLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__0TLH <<  1)) <=  4096)) {
-            next__WTLH=(void *)((unsigned long)result__YTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0TLH)));
-          } else {
-            next__WTLH=new_lab__RTJ(lab_type__ZTLH);
-          };
-          ((__POINTER *)next__WTLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__XTLH)[ 0]=next__WTLH;
-        } else {
-          ((__POINTER *)result__YTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__YTLH=next__WTLH;
-        };
-      };
-      ptr__HTMF=result__YTLH;
-    };
-    result__GTMF=((__FAST_ARRAYoLIP_STRINGo *)ptr__HTMF);
-    *(result__GTMF) = *(FAST_ARRAYoLIP_STRINGo__);
-  };
-  Self__VAQF=((__FAST_ARRAYoLIP_STRINGo *)result__GTMF);
-  if ((Self__VAQF->parent_arrayed_collection__G5FF.capacity__4AQF <  10)) {
-    Self__VAQF->parent_arrayed_collection__G5FF.storage__JBQF=create__ARYF( 10);
-    Self__VAQF->parent_arrayed_collection__G5FF.capacity__4AQF= 10;
-  };
-  Self__VAQF->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(-  1);
-  storage__H5FF=result__GTMF;
-  LIP_STRING__->value__WSUE=NULL;
-  LIP_BOOLEAN__->value__MGQD=FALSE__;
-  result__Q5NF=NULL;
-  ptr__R5NF=((__POINTER )(NULL));
-  typ_id__W5NF= 0;
-  sz__T5NF=((__UINTEGER_32 )sizeof(__LIP_BOOLEAN));
-  if ((sz__T5NF ==  0)) {
-    result__Q5NF=LIP_BOOLEAN__;
-  } else {
-    typ_id__W5NF=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__T5NF);
-    if ((typ_id__W5NF == (__INTEGER)(-  1))) {
-      a__4RGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5RGH=(__UINTEGER_32)((__UINTEGER_32)(sz__T5NF + a__4RGH) & (__UINTEGER_32)(~ a__4RGH));
-      ptr_table__2TLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5RGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__1TLH=((__POINTER )(NULL));
-      result__3TLH=((__POINTER *)ptr_table__2TLH)[ 0];
-      if ((result__3TLH == (void *)NULL)) {
-        result__3TLH=new_lab__RTJ(new_size__5RGH);
-        next__1TLH=(void *)((unsigned long)result__3TLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RGH)));
-        ((__POINTER *)next__1TLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__2TLH)[ 0]=next__1TLH;
-      } else {
-        next__1TLH=((__POINTER *)result__3TLH)[ 0];
-        if ((next__1TLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3TLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5RGH <<  1)) <=  4096)) {
-            next__1TLH=(void *)((unsigned long)result__3TLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RGH)));
-          } else {
-            next__1TLH=new_lab__RTJ(new_size__5RGH);
-          };
-          ((__POINTER *)next__1TLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2TLH)[ 0]=next__1TLH;
-        } else {
-          ((__POINTER *)result__3TLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1TLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__3TLH=next__1TLH;
-        };
-      };
-      ptr__R5NF=result__3TLH;
-    } else {
-      t__DSGH=((__UINTEGER_32 )typ_id__W5NF);
-      a__CSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EULH=(__UINTEGER_32)((__UINTEGER_32)(sz__T5NF + a__CSGH) & (__UINTEGER_32)(~ a__CSGH));
-      ptr_table__BULH=((__POINTER )(&(table_type[(t__DSGH)])));
-      lab_type__DULH=(__UINTEGER_32)(t__DSGH |  1);
-      next__AULH=((__POINTER )(NULL));
-      result__CULH=((__POINTER *)ptr_table__BULH)[ 0];
-      if ((result__CULH == (void *)NULL)) {
-        result__CULH=new_lab__RTJ(lab_type__DULH);
-        next__AULH=(void *)((unsigned long)result__CULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EULH)));
-        ((__POINTER *)next__AULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BULH)[ 0]=next__AULH;
-      } else {
-        next__AULH=((__POINTER *)result__CULH)[ 0];
-        if ((next__AULH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CULH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__EULH <<  1)) <=  4096)) {
-            next__AULH=(void *)((unsigned long)result__CULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EULH)));
-          } else {
-            next__AULH=new_lab__RTJ(lab_type__DULH);
-          };
-          ((__POINTER *)next__AULH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BULH)[ 0]=next__AULH;
-        } else {
-          ((__POINTER *)result__CULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__CULH=next__AULH;
-        };
-      };
-      ptr__R5NF=result__CULH;
-    };
-    result__Q5NF=((__LIP_BOOLEAN *)ptr__R5NF);
-    *(result__Q5NF) = *(LIP_BOOLEAN__);
-  };
-  ((__LIP_BOOLEAN *)result__Q5NF)->value__MGQD=TRUE__;
-  true__5YLF=result__Q5NF;
-  LIP_VALUE__->parent_lip_code__1IFE=(*LIP_CODE__);
-  LIP_VALUE__->value__I1UE=NULL;
-  LIP_BINARY__->parent_lip_code__WNZB=(*LIP_CODE__);
-  LIP_BINARY__->left__J2QD=NULL;
-  LIP_BINARY__->right__M2QD=NULL;
-  LIP_BINARY__->operator__P2QD='\0';
-  LIP_AFFECT__->parent_lip_code__YSPB=(*LIP_CODE__);
-  LIP_AFFECT__->name__AGFC=NULL;
-  LIP_AFFECT__->value__SGFC=NULL;
-  ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__->upper__PTTD= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__->capacity__QFUD= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__->storage__MGUD=NULL;
-  FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__->parent_arrayed_collection__WOID=(*ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__);
-  ARRAYED_COLLECTIONoLIP_CODEo__->upper__ZGQD= 0;
-  ARRAYED_COLLECTIONoLIP_CODEo__->capacity__1UTD= 0;
-  ARRAYED_COLLECTIONoLIP_CODEo__->storage__GVTD=NULL;
-  FAST_ARRAYoLIP_CODEo__->parent_arrayed_collection__4MYC=(*ARRAYED_COLLECTIONoLIP_CODEo__);
-  result__1YMD=NULL;
-  ptr__2YMD=((__POINTER )(NULL));
-  typ_id__BZMD= 0;
-  sz__4YMD=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo));
-  if ((sz__4YMD ==  0)) {
-    result__1YMD=FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__;
-  } else {
-    typ_id__BZMD=__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4YMD);
-    if ((typ_id__BZMD == (__INTEGER)(-  1))) {
-      a__GSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4YMD + a__GSGH) & (__UINTEGER_32)(~ a__GSGH));
-      ptr_table__GULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__FULH=((__POINTER )(NULL));
-      result__HULH=((__POINTER *)ptr_table__GULH)[ 0];
-      if ((result__HULH == (void *)NULL)) {
-        result__HULH=new_lab__RTJ(new_size__HSGH);
-        next__FULH=(void *)((unsigned long)result__HULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSGH)));
-        ((__POINTER *)next__FULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GULH)[ 0]=next__FULH;
-      } else {
-        next__FULH=((__POINTER *)result__HULH)[ 0];
-        if ((next__FULH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HULH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HSGH <<  1)) <=  4096)) {
-            next__FULH=(void *)((unsigned long)result__HULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSGH)));
-          } else {
-            next__FULH=new_lab__RTJ(new_size__HSGH);
-          };
-          ((__POINTER *)next__FULH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GULH)[ 0]=next__FULH;
-        } else {
-          ((__POINTER *)result__HULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__HULH=next__FULH;
-        };
-      };
-      ptr__2YMD=result__HULH;
-    } else {
-      t__LSGH=((__UINTEGER_32 )typ_id__BZMD);
-      a__KSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__OULH=(__UINTEGER_32)((__UINTEGER_32)(sz__4YMD + a__KSGH) & (__UINTEGER_32)(~ a__KSGH));
-      ptr_table__LULH=((__POINTER )(&(table_type[(t__LSGH)])));
-      lab_type__NULH=(__UINTEGER_32)(t__LSGH |  1);
-      next__KULH=((__POINTER )(NULL));
-      result__MULH=((__POINTER *)ptr_table__LULH)[ 0];
-      if ((result__MULH == (void *)NULL)) {
-        result__MULH=new_lab__RTJ(lab_type__NULH);
-        next__KULH=(void *)((unsigned long)result__MULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OULH)));
-        ((__POINTER *)next__KULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LULH)[ 0]=next__KULH;
-      } else {
-        next__KULH=((__POINTER *)result__MULH)[ 0];
-        if ((next__KULH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MULH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OULH <<  1)) <=  4096)) {
-            next__KULH=(void *)((unsigned long)result__MULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OULH)));
-          } else {
-            next__KULH=new_lab__RTJ(lab_type__NULH);
-          };
-          ((__POINTER *)next__KULH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LULH)[ 0]=next__KULH;
-        } else {
-          ((__POINTER *)result__MULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__MULH=next__KULH;
-        };
-      };
-      ptr__2YMD=result__MULH;
-    };
-    result__1YMD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)ptr__2YMD);
-    *(result__1YMD) = *(FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__);
-  };
-  Self__KKUD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)result__1YMD);
-  if ((Self__KKUD->parent_arrayed_collection__WOID.capacity__QFUD <  5)) {
-    Self__KKUD->parent_arrayed_collection__WOID.storage__MGUD=create__R2IE( 5);
-    Self__KKUD->parent_arrayed_collection__WOID.capacity__QFUD= 5;
-  };
-  Self__KKUD->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(-  1);
-  free_list__XOID=result__1YMD;
-  LIP_IF__->parent_lip_code__PQYC=(*LIP_CODE__);
-  LIP_IF__->condition__3FQD=NULL;
-  LIP_IF__->then__TGQD=NULL;
-  LIP_IF__->else__KHQD=NULL;
-  LIP_PRINT__->parent_lip_code__BRYC=(*LIP_CODE__);
-  LIP_PRINT__->message__NVUE=NULL;
-  HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__->buckets__DYRD=NULL;
-  HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__->capacity__4XRD= 0;
-  result__SXED=NULL;
-  ptr__TXED=((__POINTER )(NULL));
-  typ_id__YXED= 0;
-  sz__VXED=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo));
-  if ((sz__VXED ==  0)) {
-    result__SXED=HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__;
-  } else {
-    typ_id__YXED=__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__VXED);
-    if ((typ_id__YXED == (__INTEGER)(-  1))) {
-      a__OSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__VXED + a__OSGH) & (__UINTEGER_32)(~ a__OSGH));
-      ptr_table__QULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__PULH=((__POINTER )(NULL));
-      result__RULH=((__POINTER *)ptr_table__QULH)[ 0];
-      if ((result__RULH == (void *)NULL)) {
-        result__RULH=new_lab__RTJ(new_size__PSGH);
-        next__PULH=(void *)((unsigned long)result__RULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSGH)));
-        ((__POINTER *)next__PULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__QULH)[ 0]=next__PULH;
-      } else {
-        next__PULH=((__POINTER *)result__RULH)[ 0];
-        if ((next__PULH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RULH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PSGH <<  1)) <=  4096)) {
-            next__PULH=(void *)((unsigned long)result__RULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSGH)));
-          } else {
-            next__PULH=new_lab__RTJ(new_size__PSGH);
-          };
-          ((__POINTER *)next__PULH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QULH)[ 0]=next__PULH;
-        } else {
-          ((__POINTER *)result__RULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__RULH=next__PULH;
-        };
-      };
-      ptr__TXED=result__RULH;
-    } else {
-      t__TSGH=((__UINTEGER_32 )typ_id__YXED);
-      a__SSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__YULH=(__UINTEGER_32)((__UINTEGER_32)(sz__VXED + a__SSGH) & (__UINTEGER_32)(~ a__SSGH));
-      ptr_table__VULH=((__POINTER )(&(table_type[(t__TSGH)])));
-      lab_type__XULH=(__UINTEGER_32)(t__TSGH |  1);
-      next__UULH=((__POINTER )(NULL));
-      result__WULH=((__POINTER *)ptr_table__VULH)[ 0];
-      if ((result__WULH == (void *)NULL)) {
-        result__WULH=new_lab__RTJ(lab_type__XULH);
-        next__UULH=(void *)((unsigned long)result__WULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YULH)));
-        ((__POINTER *)next__UULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VULH)[ 0]=next__UULH;
-      } else {
-        next__UULH=((__POINTER *)result__WULH)[ 0];
-        if ((next__UULH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WULH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YULH <<  1)) <=  4096)) {
-            next__UULH=(void *)((unsigned long)result__WULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YULH)));
-          } else {
-            next__UULH=new_lab__RTJ(lab_type__XULH);
-          };
-          ((__POINTER *)next__UULH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VULH)[ 0]=next__UULH;
-        } else {
-          ((__POINTER *)result__WULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WULH=next__UULH;
-        };
-      };
-      ptr__TXED=result__WULH;
-    };
-    result__SXED=((__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *)ptr__TXED);
-    *(result__SXED) = *(HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__);
-  };
-  Self__1OSD=((__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *)result__SXED);
-  new_capacity__PFXD=prime_number_ceiling__021( 193);
-  sz__RGHH=((__UINTEGER_32 )(__INTEGER)(new_capacity__PFXD * ((__INTEGER )(sizeof(void *)))));
-  result__PGHH=((__POINTER )(NULL));
-  a__QGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__SGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__RGHH + a__QGHH) & (__UINTEGER_32)(~ a__QGHH));
-  new_size2__TGHH=(__UINTEGER_32)(new_size__SGHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__TGHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__UGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__VGHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TGHH + a__UGHH) & (__UINTEGER_32)(~ a__UGHH));
-    ptr_table__0ULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ZULH=((__POINTER )(NULL));
-    result__1ULH=((__POINTER *)ptr_table__0ULH)[ 0];
-    if ((result__1ULH == (void *)NULL)) {
-      result__1ULH=new_lab__RTJ(new_size__VGHH);
-      next__ZULH=(void *)((unsigned long)result__1ULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VGHH)));
-      ((__POINTER *)next__ZULH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__0ULH)[ 0]=next__ZULH;
-    } else {
-      next__ZULH=((__POINTER *)result__1ULH)[ 0];
-      if ((next__ZULH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1ULH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VGHH <<  1)) <=  4096)) {
-          next__ZULH=(void *)((unsigned long)result__1ULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VGHH)));
-        } else {
-          next__ZULH=new_lab__RTJ(new_size__VGHH);
-        };
-        ((__POINTER *)next__ZULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0ULH)[ 0]=next__ZULH;
-      } else {
-        ((__POINTER *)result__1ULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__1ULH=next__ZULH;
-      };
-    };
-    ((__POINTER *)result__1ULH)[ 0]=((__POINTER ) 3);
-    result__PGHH=(void *)((unsigned long)result__1ULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__PGHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__SGHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__UWHE=((void **)result__PGHH);
-  Self__EPYE=(__INTEGER)(new_capacity__PFXD -  1);
-  while ((Self__EPYE >=  0)) {
-    Result__UWHE[Self__EPYE]=NULL;
-    Self__EPYE=(__INTEGER)(Self__EPYE -  1);
-  };
-  Self__1OSD->buckets__DYRD=Result__UWHE;
-  Self__1OSD->capacity__4XRD=new_capacity__PFXD;
-  list_data__HONC=result__SXED;
-  push_back_flag__P0MF=FALSE__;
-  memory__OGMF='\0';
-  last_integer__AZUE= 0;
-  last_string__SZUE=create__ZBB( 1024);
-  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->upper__ADQF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->capacity__HJQF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->storage__SJQF=NULL;
-  FAST_ARRAYoLIP_SLOT_DATAo__->parent_arrayed_collection__H0UE=(*ARRAYED_COLLECTIONoLIP_SLOT_DATAo__);
-  result__M0NF=NULL;
-  ptr__N0NF=((__POINTER )(NULL));
-  typ_id__S0NF= 0;
-  sz__P0NF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_DATAo));
-  if ((sz__P0NF ==  0)) {
-    result__M0NF=FAST_ARRAYoLIP_SLOT_DATAo__;
-  } else {
-    typ_id__S0NF=__FAST_ARRAYoLIP_SLOT_DATAo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__P0NF);
-    if ((typ_id__S0NF == (__INTEGER)(-  1))) {
-      a__WSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__P0NF + a__WSGH) & (__UINTEGER_32)(~ a__WSGH));
-      ptr_table__5ULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__4ULH=((__POINTER )(NULL));
-      result__AVLH=((__POINTER *)ptr_table__5ULH)[ 0];
-      if ((result__AVLH == (void *)NULL)) {
-        result__AVLH=new_lab__RTJ(new_size__XSGH);
-        next__4ULH=(void *)((unsigned long)result__AVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XSGH)));
-        ((__POINTER *)next__4ULH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__5ULH)[ 0]=next__4ULH;
-      } else {
-        next__4ULH=((__POINTER *)result__AVLH)[ 0];
-        if ((next__4ULH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AVLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XSGH <<  1)) <=  4096)) {
-            next__4ULH=(void *)((unsigned long)result__AVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XSGH)));
-          } else {
-            next__4ULH=new_lab__RTJ(new_size__XSGH);
-          };
-          ((__POINTER *)next__4ULH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5ULH)[ 0]=next__4ULH;
-        } else {
-          ((__POINTER *)result__AVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4ULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__AVLH=next__4ULH;
-        };
-      };
-      ptr__N0NF=result__AVLH;
-    } else {
-      t__1SGH=((__UINTEGER_32 )typ_id__S0NF);
-      a__0SGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HVLH=(__UINTEGER_32)((__UINTEGER_32)(sz__P0NF + a__0SGH) & (__UINTEGER_32)(~ a__0SGH));
-      ptr_table__EVLH=((__POINTER )(&(table_type[(t__1SGH)])));
-      lab_type__GVLH=(__UINTEGER_32)(t__1SGH |  1);
-      next__DVLH=((__POINTER )(NULL));
-      result__FVLH=((__POINTER *)ptr_table__EVLH)[ 0];
-      if ((result__FVLH == (void *)NULL)) {
-        result__FVLH=new_lab__RTJ(lab_type__GVLH);
-        next__DVLH=(void *)((unsigned long)result__FVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVLH)));
-        ((__POINTER *)next__DVLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__EVLH)[ 0]=next__DVLH;
-      } else {
-        next__DVLH=((__POINTER *)result__FVLH)[ 0];
-        if ((next__DVLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FVLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HVLH <<  1)) <=  4096)) {
-            next__DVLH=(void *)((unsigned long)result__FVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVLH)));
-          } else {
-            next__DVLH=new_lab__RTJ(lab_type__GVLH);
-          };
-          ((__POINTER *)next__DVLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__EVLH)[ 0]=next__DVLH;
-        } else {
-          ((__POINTER *)result__FVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__FVLH=next__DVLH;
-        };
-      };
-      ptr__N0NF=result__FVLH;
-    };
-    result__M0NF=((__FAST_ARRAYoLIP_SLOT_DATAo *)ptr__N0NF);
-    *(result__M0NF) = *(FAST_ARRAYoLIP_SLOT_DATAo__);
-  };
-  Self__4IQF=((__FAST_ARRAYoLIP_SLOT_DATAo *)result__M0NF);
-  if ((Self__4IQF->parent_arrayed_collection__H0UE.capacity__HJQF <  8)) {
-    sz__ZGHH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) <<  3));
-    result__XGHH=((__POINTER )(NULL));
-    a__YGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__0GHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZGHH + a__YGHH) & (__UINTEGER_32)(~ a__YGHH));
-    new_size2__1GHH=(__UINTEGER_32)(new_size__0GHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__1GHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__2GHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__3GHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1GHH + a__2GHH) & (__UINTEGER_32)(~ a__2GHH));
-      ptr_table__JVLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3GHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__IVLH=((__POINTER )(NULL));
-      result__KVLH=((__POINTER *)ptr_table__JVLH)[ 0];
-      if ((result__KVLH == (void *)NULL)) {
-        result__KVLH=new_lab__RTJ(new_size__3GHH);
-        next__IVLH=(void *)((unsigned long)result__KVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GHH)));
-        ((__POINTER *)next__IVLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__JVLH)[ 0]=next__IVLH;
-      } else {
-        next__IVLH=((__POINTER *)result__KVLH)[ 0];
-        if ((next__IVLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KVLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3GHH <<  1)) <=  4096)) {
-            next__IVLH=(void *)((unsigned long)result__KVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GHH)));
-          } else {
-            next__IVLH=new_lab__RTJ(new_size__3GHH);
-          };
-          ((__POINTER *)next__IVLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__JVLH)[ 0]=next__IVLH;
-        } else {
-          ((__POINTER *)result__KVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__KVLH=next__IVLH;
-        };
-      };
-      ((__POINTER *)result__KVLH)[ 0]=((__POINTER ) 3);
-      result__XGHH=(void *)((unsigned long)result__KVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__XGHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__0GHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    Result__SK1F=((void **)result__XGHH);
-    Self__HQAG= 7;
-    while ((Self__HQAG >=  0)) {
-      Result__SK1F[Self__HQAG]=NULL;
-      Self__HQAG=(__INTEGER)(Self__HQAG -  1);
-    };
-    Self__4IQF->parent_arrayed_collection__H0UE.storage__SJQF=Result__SK1F;
-    Self__4IQF->parent_arrayed_collection__H0UE.capacity__HJQF= 8;
-  };
-  Self__4IQF->parent_arrayed_collection__H0UE.upper__ADQF=(__INTEGER)(-  1);
-  stack__I0UE=result__M0NF;
-  path_file__1FXF=create_with_capacity__THRC( 3000);
-  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->upper__M2KF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->capacity__IEQF= 0;
-  ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->storage__TEQF=NULL;
-  FAST_ARRAYoLIP_SLOT_CODEo__->parent_arrayed_collection__C2KF=(*ARRAYED_COLLECTIONoLIP_SLOT_CODEo__);
-  result__JLNF=NULL;
-  ptr__KLNF=((__POINTER )(NULL));
-  typ_id__PLNF= 0;
-  sz__MLNF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_CODEo));
-  if ((sz__MLNF ==  0)) {
-    result__JLNF=FAST_ARRAYoLIP_SLOT_CODEo__;
-  } else {
-    typ_id__PLNF=__FAST_ARRAYoLIP_SLOT_CODEo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MLNF);
-    if ((typ_id__PLNF == (__INTEGER)(-  1))) {
-      a__4SGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5SGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLNF + a__4SGH) & (__UINTEGER_32)(~ a__4SGH));
-      ptr_table__OVLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5SGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__NVLH=((__POINTER )(NULL));
-      result__PVLH=((__POINTER *)ptr_table__OVLH)[ 0];
-      if ((result__PVLH == (void *)NULL)) {
-        result__PVLH=new_lab__RTJ(new_size__5SGH);
-        next__NVLH=(void *)((unsigned long)result__PVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5SGH)));
-        ((__POINTER *)next__NVLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__OVLH)[ 0]=next__NVLH;
-      } else {
-        next__NVLH=((__POINTER *)result__PVLH)[ 0];
-        if ((next__NVLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PVLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5SGH <<  1)) <=  4096)) {
-            next__NVLH=(void *)((unsigned long)result__PVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5SGH)));
-          } else {
-            next__NVLH=new_lab__RTJ(new_size__5SGH);
-          };
-          ((__POINTER *)next__NVLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__OVLH)[ 0]=next__NVLH;
-        } else {
-          ((__POINTER *)result__PVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__PVLH=next__NVLH;
-        };
-      };
-      ptr__KLNF=result__PVLH;
-    } else {
-      t__DTGH=((__UINTEGER_32 )typ_id__PLNF);
-      a__CTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__WVLH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLNF + a__CTGH) & (__UINTEGER_32)(~ a__CTGH));
-      ptr_table__TVLH=((__POINTER )(&(table_type[(t__DTGH)])));
-      lab_type__VVLH=(__UINTEGER_32)(t__DTGH |  1);
-      next__SVLH=((__POINTER )(NULL));
-      result__UVLH=((__POINTER *)ptr_table__TVLH)[ 0];
-      if ((result__UVLH == (void *)NULL)) {
-        result__UVLH=new_lab__RTJ(lab_type__VVLH);
-        next__SVLH=(void *)((unsigned long)result__UVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVLH)));
-        ((__POINTER *)next__SVLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__TVLH)[ 0]=next__SVLH;
-      } else {
-        next__SVLH=((__POINTER *)result__UVLH)[ 0];
-        if ((next__SVLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UVLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WVLH <<  1)) <=  4096)) {
-            next__SVLH=(void *)((unsigned long)result__UVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVLH)));
-          } else {
-            next__SVLH=new_lab__RTJ(lab_type__VVLH);
-          };
-          ((__POINTER *)next__SVLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__TVLH)[ 0]=next__SVLH;
-        } else {
-          ((__POINTER *)result__UVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__UVLH=next__SVLH;
-        };
-      };
-      ptr__KLNF=result__UVLH;
-    };
-    result__JLNF=((__FAST_ARRAYoLIP_SLOT_CODEo *)ptr__KLNF);
-    *(result__JLNF) = *(FAST_ARRAYoLIP_SLOT_CODEo__);
-  };
-  Self__5DQF=((__FAST_ARRAYoLIP_SLOT_CODEo *)result__JLNF);
-  if ((Self__5DQF->parent_arrayed_collection__C2KF.capacity__IEQF <  32)) {
-    sz__BHHH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) <<  5));
-    result__5GHH=((__POINTER )(NULL));
-    a__AHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__CHHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BHHH + a__AHHH) & (__UINTEGER_32)(~ a__AHHH));
-    new_size2__DHHH=(__UINTEGER_32)(new_size__CHHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__DHHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__EHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__FHHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__DHHH + a__EHHH) & (__UINTEGER_32)(~ a__EHHH));
-      ptr_table__YVLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FHHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__XVLH=((__POINTER )(NULL));
-      result__ZVLH=((__POINTER *)ptr_table__YVLH)[ 0];
-      if ((result__ZVLH == (void *)NULL)) {
-        result__ZVLH=new_lab__RTJ(new_size__FHHH);
-        next__XVLH=(void *)((unsigned long)result__ZVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHHH)));
-        ((__POINTER *)next__XVLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__YVLH)[ 0]=next__XVLH;
-      } else {
-        next__XVLH=((__POINTER *)result__ZVLH)[ 0];
-        if ((next__XVLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZVLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FHHH <<  1)) <=  4096)) {
-            next__XVLH=(void *)((unsigned long)result__ZVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHHH)));
-          } else {
-            next__XVLH=new_lab__RTJ(new_size__FHHH);
-          };
-          ((__POINTER *)next__XVLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__YVLH)[ 0]=next__XVLH;
-        } else {
-          ((__POINTER *)result__ZVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ZVLH=next__XVLH;
-        };
-      };
-      ((__POINTER *)result__ZVLH)[ 0]=((__POINTER ) 3);
-      result__5GHH=(void *)((unsigned long)result__ZVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__5GHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__CHHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    Result__ZF1F=((void **)result__5GHH);
-    Self__APAG= 31;
-    while ((Self__APAG >=  0)) {
-      Result__ZF1F[Self__APAG]=NULL;
-      Self__APAG=(__INTEGER)(Self__APAG -  1);
-    };
-    Self__5DQF->parent_arrayed_collection__C2KF.storage__TEQF=Result__ZF1F;
-    Self__5DQF->parent_arrayed_collection__C2KF.capacity__IEQF= 32;
-  };
-  Self__5DQF->parent_arrayed_collection__C2KF.upper__M2KF=(__INTEGER)(-  1);
-  list_method__D2KF=result__JLNF;
-  PROTOTYPE__->comment_slot__YRTC=NULL;
-  PROTOTYPE__->comment_header__Q4QC=NULL;
-  HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->buckets__MOEC=NULL;
-  HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->capacity__HOEC= 0;
-  HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->count__JYFC= 0;
-  result__40YB=NULL;
-  ptr__50YB=((__POINTER )(NULL));
-  typ_id__E1YB= 0;
-  sz__B1YB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo));
-  if ((sz__B1YB ==  0)) {
-    result__40YB=HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
-  } else {
-    typ_id__E1YB=__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__B1YB);
-    if ((typ_id__E1YB == (__INTEGER)(-  1))) {
-      a__GTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__B1YB + a__GTGH) & (__UINTEGER_32)(~ a__GTGH));
-      ptr_table__3VLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__2VLH=((__POINTER )(NULL));
-      result__4VLH=((__POINTER *)ptr_table__3VLH)[ 0];
-      if ((result__4VLH == (void *)NULL)) {
-        result__4VLH=new_lab__RTJ(new_size__HTGH);
-        next__2VLH=(void *)((unsigned long)result__4VLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTGH)));
-        ((__POINTER *)next__2VLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__3VLH)[ 0]=next__2VLH;
-      } else {
-        next__2VLH=((__POINTER *)result__4VLH)[ 0];
-        if ((next__2VLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HTGH <<  1)) <=  4096)) {
-            next__2VLH=(void *)((unsigned long)result__4VLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTGH)));
-          } else {
-            next__2VLH=new_lab__RTJ(new_size__HTGH);
-          };
-          ((__POINTER *)next__2VLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3VLH)[ 0]=next__2VLH;
-        } else {
-          ((__POINTER *)result__4VLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__4VLH=next__2VLH;
-        };
-      };
-      ptr__50YB=result__4VLH;
-    } else {
-      t__LTGH=((__UINTEGER_32 )typ_id__E1YB);
-      a__KTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__FWLH=(__UINTEGER_32)((__UINTEGER_32)(sz__B1YB + a__KTGH) & (__UINTEGER_32)(~ a__KTGH));
-      ptr_table__CWLH=((__POINTER )(&(table_type[(t__LTGH)])));
-      lab_type__EWLH=(__UINTEGER_32)(t__LTGH |  1);
-      next__BWLH=((__POINTER )(NULL));
-      result__DWLH=((__POINTER *)ptr_table__CWLH)[ 0];
-      if ((result__DWLH == (void *)NULL)) {
-        result__DWLH=new_lab__RTJ(lab_type__EWLH);
-        next__BWLH=(void *)((unsigned long)result__DWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWLH)));
-        ((__POINTER *)next__BWLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__CWLH)[ 0]=next__BWLH;
-      } else {
-        next__BWLH=((__POINTER *)result__DWLH)[ 0];
-        if ((next__BWLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FWLH <<  1)) <=  4096)) {
-            next__BWLH=(void *)((unsigned long)result__DWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWLH)));
-          } else {
-            next__BWLH=new_lab__RTJ(lab_type__EWLH);
-          };
-          ((__POINTER *)next__BWLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__CWLH)[ 0]=next__BWLH;
-        } else {
-          ((__POINTER *)result__DWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__DWLH=next__BWLH;
-        };
-      };
-      ptr__50YB=result__DWLH;
-    };
-    result__40YB=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)ptr__50YB);
-    *(result__40YB) = *(HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__);
-  };
-  Self__MWFC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)result__40YB);
-  new_capacity__ZFOC=prime_number_ceiling__021( 193);
-  Self__MWFC->buckets__MOEC=create__C3XC(new_capacity__ZFOC);
-  Self__MWFC->capacity__HOEC=new_capacity__ZFOC;
-  Self__MWFC->count__JYFC= 0;
-  bucket_name__2ROB=result__40YB;
-  HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->key__YOEC=NULL;
-  HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->next__DPEC=NULL;
-  HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->item__LPEC=NULL;
-  SECTION___->name__MYDC=NULL;
-  SECTION___->type_list__1WFC=NULL;
-  last_section__S2C=NULL;
-  PROTOTYPE__->last_slot__J3C=NULL;
-  ITM_SLOT__->id_section__T3C=NULL;
-  ITM_SLOT__->comment__WZOB=NULL;
-  ITM_SLOT__->result_type__A4FC=NULL;
-  ITM_SLOT__->affect__P5FC='\0';
-  ITM_SLOT__->argument_list__QDHC=NULL;
-  ITM_SLOT__->next__YGHC=NULL;
-  ITM_SLOT__->comment_chapter__S0HC=NULL;
-  ITM_SLOT__->stat_shorter__4OTD= 0;
-  ITM_SLOT_OPERATOR__->parent_itm_slot__0S5B=(*ITM_SLOT__);
-  HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->buckets__SQEC=NULL;
-  HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->capacity__NQEC= 0;
-  HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->count__D1FC= 0;
-  result__D4YB=NULL;
-  ptr__E4YB=((__POINTER )(NULL));
-  typ_id__J4YB= 0;
-  sz__G4YB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo));
-  if ((sz__G4YB ==  0)) {
-    result__D4YB=HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
-  } else {
-    typ_id__J4YB=__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__G4YB);
-    if ((typ_id__J4YB == (__INTEGER)(-  1))) {
-      a__OTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__G4YB + a__OTGH) & (__UINTEGER_32)(~ a__OTGH));
-      ptr_table__HWLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__GWLH=((__POINTER )(NULL));
-      result__IWLH=((__POINTER *)ptr_table__HWLH)[ 0];
-      if ((result__IWLH == (void *)NULL)) {
-        result__IWLH=new_lab__RTJ(new_size__PTGH);
-        next__GWLH=(void *)((unsigned long)result__IWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PTGH)));
-        ((__POINTER *)next__GWLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__HWLH)[ 0]=next__GWLH;
-      } else {
-        next__GWLH=((__POINTER *)result__IWLH)[ 0];
-        if ((next__GWLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IWLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PTGH <<  1)) <=  4096)) {
-            next__GWLH=(void *)((unsigned long)result__IWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PTGH)));
-          } else {
-            next__GWLH=new_lab__RTJ(new_size__PTGH);
-          };
-          ((__POINTER *)next__GWLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HWLH)[ 0]=next__GWLH;
-        } else {
-          ((__POINTER *)result__IWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__IWLH=next__GWLH;
-        };
-      };
-      ptr__E4YB=result__IWLH;
-    } else {
-      t__TTGH=((__UINTEGER_32 )typ_id__J4YB);
-      a__STGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PWLH=(__UINTEGER_32)((__UINTEGER_32)(sz__G4YB + a__STGH) & (__UINTEGER_32)(~ a__STGH));
-      ptr_table__MWLH=((__POINTER )(&(table_type[(t__TTGH)])));
-      lab_type__OWLH=(__UINTEGER_32)(t__TTGH |  1);
-      next__LWLH=((__POINTER )(NULL));
-      result__NWLH=((__POINTER *)ptr_table__MWLH)[ 0];
-      if ((result__NWLH == (void *)NULL)) {
-        result__NWLH=new_lab__RTJ(lab_type__OWLH);
-        next__LWLH=(void *)((unsigned long)result__NWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWLH)));
-        ((__POINTER *)next__LWLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MWLH)[ 0]=next__LWLH;
-      } else {
-        next__LWLH=((__POINTER *)result__NWLH)[ 0];
-        if ((next__LWLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NWLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PWLH <<  1)) <=  4096)) {
-            next__LWLH=(void *)((unsigned long)result__NWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWLH)));
-          } else {
-            next__LWLH=new_lab__RTJ(lab_type__OWLH);
-          };
-          ((__POINTER *)next__LWLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MWLH)[ 0]=next__LWLH;
-        } else {
-          ((__POINTER *)result__NWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__NWLH=next__LWLH;
-        };
-      };
-      ptr__E4YB=result__NWLH;
-    };
-    result__D4YB=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__E4YB);
-    *(result__D4YB) = *(HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
-  };
-  Self__LZFC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__D4YB);
-  new_capacity__UJOC=prime_number_ceiling__021( 193);
-  Self__LZFC->buckets__SQEC=create__FCYC(new_capacity__UJOC);
-  Self__LZFC->capacity__NQEC=new_capacity__UJOC;
-  Self__LZFC->count__D1FC= 0;
-  bucket_list__XTOB=result__D4YB;
-  HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->key__4QEC=NULL;
-  HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->next__JREC=NULL;
-  HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->item__RREC=NULL;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->upper__0SGC= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->capacity__CKHC= 0;
-  ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->storage__NKHC=NULL;
-  FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__->parent_arrayed_collection__PS1B=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__);
-  ARRAYED_COLLECTIONoITM_ARGUMENTo__->upper__I5GC= 0;
-  ARRAYED_COLLECTIONoITM_ARGUMENTo__->capacity__K5GC= 0;
-  ARRAYED_COLLECTIONoITM_ARGUMENTo__->storage__GAHC=NULL;
-  FAST_ARRAYoITM_ARGUMENTo__->parent_arrayed_collection__Z5YB=(*ARRAYED_COLLECTIONoITM_ARGUMENTo__);
-  result__3H5B=NULL;
-  ptr__4H5B=((__POINTER )(NULL));
-  typ_id__DI5B= 0;
-  sz__AI5B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo));
-  if ((sz__AI5B ==  0)) {
-    result__3H5B=FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
-  } else {
-    typ_id__DI5B=__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__AI5B);
-    if ((typ_id__DI5B == (__INTEGER)(-  1))) {
-      a__WTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AI5B + a__WTGH) & (__UINTEGER_32)(~ a__WTGH));
-      ptr_table__RWLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__QWLH=((__POINTER )(NULL));
-      result__SWLH=((__POINTER *)ptr_table__RWLH)[ 0];
-      if ((result__SWLH == (void *)NULL)) {
-        result__SWLH=new_lab__RTJ(new_size__XTGH);
-        next__QWLH=(void *)((unsigned long)result__SWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XTGH)));
-        ((__POINTER *)next__QWLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RWLH)[ 0]=next__QWLH;
-      } else {
-        next__QWLH=((__POINTER *)result__SWLH)[ 0];
-        if ((next__QWLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SWLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XTGH <<  1)) <=  4096)) {
-            next__QWLH=(void *)((unsigned long)result__SWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XTGH)));
-          } else {
-            next__QWLH=new_lab__RTJ(new_size__XTGH);
-          };
-          ((__POINTER *)next__QWLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RWLH)[ 0]=next__QWLH;
-        } else {
-          ((__POINTER *)result__SWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__SWLH=next__QWLH;
-        };
-      };
-      ptr__4H5B=result__SWLH;
-    } else {
-      t__1TGH=((__UINTEGER_32 )typ_id__DI5B);
-      a__0TGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ZWLH=(__UINTEGER_32)((__UINTEGER_32)(sz__AI5B + a__0TGH) & (__UINTEGER_32)(~ a__0TGH));
-      ptr_table__WWLH=((__POINTER )(&(table_type[(t__1TGH)])));
-      lab_type__YWLH=(__UINTEGER_32)(t__1TGH |  1);
-      next__VWLH=((__POINTER )(NULL));
-      result__XWLH=((__POINTER *)ptr_table__WWLH)[ 0];
-      if ((result__XWLH == (void *)NULL)) {
-        result__XWLH=new_lab__RTJ(lab_type__YWLH);
-        next__VWLH=(void *)((unsigned long)result__XWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZWLH)));
-        ((__POINTER *)next__VWLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__WWLH)[ 0]=next__VWLH;
-      } else {
-        next__VWLH=((__POINTER *)result__XWLH)[ 0];
-        if ((next__VWLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XWLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZWLH <<  1)) <=  4096)) {
-            next__VWLH=(void *)((unsigned long)result__XWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZWLH)));
-          } else {
-            next__VWLH=new_lab__RTJ(lab_type__YWLH);
-          };
-          ((__POINTER *)next__VWLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WWLH)[ 0]=next__VWLH;
-        } else {
-          ((__POINTER *)result__XWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__XWLH=next__VWLH;
-        };
-      };
-      ptr__4H5B=result__XWLH;
-    };
-    result__3H5B=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)ptr__4H5B);
-    *(result__3H5B) = *(FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__);
-  };
-  Self__ZJHC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)result__3H5B);
-  if ((Self__ZJHC->parent_arrayed_collection__PS1B.capacity__CKHC <  5)) {
-    Self__ZJHC->parent_arrayed_collection__PS1B.storage__NKHC=create__3MBD( 5);
-    Self__ZJHC->parent_arrayed_collection__PS1B.capacity__CKHC= 5;
-  };
-  Self__ZJHC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(-  1);
-  free_list__QS1B=result__3H5B;
-  ITM_SLOT_OPERATOR__->priority_and_level__UZHC= 0;
-  ITM_SLOT_OPERATOR__->pretty_name__5ZHC=NULL;
-  last_slot__VUOB=NULL;
-  HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->key__ZAGC=NULL;
-  HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->next__EBGC=NULL;
-  HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->item__MBGC=NULL;
-  PROTOTYPE__->first_slot__2DZB=NULL;
-  ARRAYED_COLLECTIONoITM_SLOTo__->upper__UOTD= 0;
-  ARRAYED_COLLECTIONoITM_SLOTo__->capacity__RCWE= 0;
-  ARRAYED_COLLECTIONoITM_SLOTo__->storage__UPWE=NULL;
-  FAST_ARRAYoITM_SLOTo__->parent_arrayed_collection__XNTD=(*ARRAYED_COLLECTIONoITM_SLOTo__);
-  result__XCIE=NULL;
-  ptr__YCIE=((__POINTER )(NULL));
-  typ_id__3CIE= 0;
-  sz__0CIE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_SLOTo));
-  if ((sz__0CIE ==  0)) {
-    result__XCIE=FAST_ARRAYoITM_SLOTo__;
-  } else {
-    typ_id__3CIE=__FAST_ARRAYoITM_SLOTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0CIE);
-    if ((typ_id__3CIE == (__INTEGER)(-  1))) {
-      a__4TGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__5TGH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CIE + a__4TGH) & (__UINTEGER_32)(~ a__4TGH));
-      ptr_table__1WLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5TGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__0WLH=((__POINTER )(NULL));
-      result__2WLH=((__POINTER *)ptr_table__1WLH)[ 0];
-      if ((result__2WLH == (void *)NULL)) {
-        result__2WLH=new_lab__RTJ(new_size__5TGH);
-        next__0WLH=(void *)((unsigned long)result__2WLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TGH)));
-        ((__POINTER *)next__0WLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1WLH)[ 0]=next__0WLH;
-      } else {
-        next__0WLH=((__POINTER *)result__2WLH)[ 0];
-        if ((next__0WLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2WLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5TGH <<  1)) <=  4096)) {
-            next__0WLH=(void *)((unsigned long)result__2WLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TGH)));
-          } else {
-            next__0WLH=new_lab__RTJ(new_size__5TGH);
-          };
-          ((__POINTER *)next__0WLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1WLH)[ 0]=next__0WLH;
-        } else {
-          ((__POINTER *)result__2WLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0WLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__2WLH=next__0WLH;
-        };
-      };
-      ptr__YCIE=result__2WLH;
-    } else {
-      t__DUGH=((__UINTEGER_32 )typ_id__3CIE);
-      a__CUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__DXLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CIE + a__CUGH) & (__UINTEGER_32)(~ a__CUGH));
-      ptr_table__AXLH=((__POINTER )(&(table_type[(t__DUGH)])));
-      lab_type__CXLH=(__UINTEGER_32)(t__DUGH |  1);
-      next__5WLH=((__POINTER )(NULL));
-      result__BXLH=((__POINTER *)ptr_table__AXLH)[ 0];
-      if ((result__BXLH == (void *)NULL)) {
-        result__BXLH=new_lab__RTJ(lab_type__CXLH);
-        next__5WLH=(void *)((unsigned long)result__BXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DXLH)));
-        ((__POINTER *)next__5WLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__AXLH)[ 0]=next__5WLH;
-      } else {
-        next__5WLH=((__POINTER *)result__BXLH)[ 0];
-        if ((next__5WLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BXLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__DXLH <<  1)) <=  4096)) {
-            next__5WLH=(void *)((unsigned long)result__BXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DXLH)));
-          } else {
-            next__5WLH=new_lab__RTJ(lab_type__CXLH);
-          };
-          ((__POINTER *)next__5WLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AXLH)[ 0]=next__5WLH;
-        } else {
-          ((__POINTER *)result__BXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5WLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__BXLH=next__5WLH;
-        };
-      };
-      ptr__YCIE=result__BXLH;
-    };
-    result__XCIE=((__FAST_ARRAYoITM_SLOTo *)ptr__YCIE);
-    *(result__XCIE) = *(FAST_ARRAYoITM_SLOTo__);
-  };
-  Self__BPWE=((__FAST_ARRAYoITM_SLOTo *)result__XCIE);
-  if ((Self__BPWE->parent_arrayed_collection__XNTD.capacity__RCWE <  256)) {
-    Self__BPWE->parent_arrayed_collection__XNTD.storage__UPWE=create__BJFF( 256);
-    Self__BPWE->parent_arrayed_collection__XNTD.capacity__RCWE= 256;
-  };
-  Self__BPWE->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(-  1);
-  list_tmp__YNTD=result__XCIE;
-  str_tmp__PP4E=create__ZBB( 512);
-  str_tmp2__RR4E=create__ZBB( 64);
-  str_tmp3__RV4E=create__ZBB( 64);
-  txt__1=NULL;
-  p__AB=NULL;
-  create__ZBB( 255);
-  result__TUB=NULL;
-  ptr__UUB=((__POINTER )(NULL));
-  typ_id__ZUB= 0;
-  sz__WUB=((__UINTEGER_32 )sizeof(__HASHED_SEToABSTRACT_STRINGo));
-  if ((sz__WUB ==  0)) {
-    result__TUB=HASHED_SEToABSTRACT_STRINGo__;
-  } else {
-    typ_id__ZUB=__HASHED_SEToABSTRACT_STRINGo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WUB);
-    if ((typ_id__ZUB == (__INTEGER)(-  1))) {
-      a__GUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__HUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__WUB + a__GUGH) & (__UINTEGER_32)(~ a__GUGH));
-      ptr_table__FXLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__EXLH=((__POINTER )(NULL));
-      result__GXLH=((__POINTER *)ptr_table__FXLH)[ 0];
-      if ((result__GXLH == (void *)NULL)) {
-        result__GXLH=new_lab__RTJ(new_size__HUGH);
-        next__EXLH=(void *)((unsigned long)result__GXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HUGH)));
-        ((__POINTER *)next__EXLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FXLH)[ 0]=next__EXLH;
-      } else {
-        next__EXLH=((__POINTER *)result__GXLH)[ 0];
-        if ((next__EXLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GXLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HUGH <<  1)) <=  4096)) {
-            next__EXLH=(void *)((unsigned long)result__GXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HUGH)));
-          } else {
-            next__EXLH=new_lab__RTJ(new_size__HUGH);
-          };
-          ((__POINTER *)next__EXLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FXLH)[ 0]=next__EXLH;
-        } else {
-          ((__POINTER *)result__GXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__GXLH=next__EXLH;
-        };
-      };
-      ptr__UUB=result__GXLH;
-    } else {
-      t__LUGH=((__UINTEGER_32 )typ_id__ZUB);
-      a__KUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__NXLH=(__UINTEGER_32)((__UINTEGER_32)(sz__WUB + a__KUGH) & (__UINTEGER_32)(~ a__KUGH));
-      ptr_table__KXLH=((__POINTER )(&(table_type[(t__LUGH)])));
-      lab_type__MXLH=(__UINTEGER_32)(t__LUGH |  1);
-      next__JXLH=((__POINTER )(NULL));
-      result__LXLH=((__POINTER *)ptr_table__KXLH)[ 0];
-      if ((result__LXLH == (void *)NULL)) {
-        result__LXLH=new_lab__RTJ(lab_type__MXLH);
-        next__JXLH=(void *)((unsigned long)result__LXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NXLH)));
-        ((__POINTER *)next__JXLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__KXLH)[ 0]=next__JXLH;
-      } else {
-        next__JXLH=((__POINTER *)result__LXLH)[ 0];
-        if ((next__JXLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LXLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NXLH <<  1)) <=  4096)) {
-            next__JXLH=(void *)((unsigned long)result__LXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NXLH)));
-          } else {
-            next__JXLH=new_lab__RTJ(lab_type__MXLH);
-          };
-          ((__POINTER *)next__JXLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KXLH)[ 0]=next__JXLH;
-        } else {
-          ((__POINTER *)result__LXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__LXLH=next__JXLH;
-        };
-      };
-      ptr__UUB=result__LXLH;
-    };
-    result__TUB=((__HASHED_SEToABSTRACT_STRINGo *)ptr__UUB);
-    *(result__TUB) = *(HASHED_SEToABSTRACT_STRINGo__);
-  };
-  Self__DDS=((__HASHED_SEToABSTRACT_STRINGo *)result__TUB);
-  new_capacity__QZW=prime_number_ceiling__021( 53);
-  Self__DDS->buckets__0ZR=create__EI2(new_capacity__QZW);
-  Self__DDS->capacity__VZR=new_capacity__QZW;
-  Self__DDS->count__10R= 0;
-  list__FK=result__TUB;
-  add__EZR(result__TUB,(&__string_4));
-  add__EZR(list__FK,(&__string_5));
-  add__EZR(list__FK,(&__string_6));
-  add__EZR(list__FK,(&__string_7));
-  add__EZR(list__FK,(&__string_8));
-  add__EZR(list__FK,(&__string_9));
-  add__EZR(list__FK,(&__string_10));
-  add__EZR(list__FK,(&__string_11));
-  add__EZR(list__FK,(&__string_12));
-  add__EZR(list__FK,(&__string_13));
-  add__EZR(list__FK,(&__string_14));
-  add__EZR(list__FK,(&__string_15));
-  add__EZR(list__FK,(&__string_16));
-  add__EZR(list__FK,(&__string_17));
-  add__EZR(list__FK,(&__string_18));
-  add__EZR(list__FK,(&__string_19));
-  add__EZR(list__FK,(&__string_20));
-  add__EZR(list__FK,(&__string_21));
-  add__EZR(list__FK,(&__string_22));
-  add__EZR(list__FK,(&__string_23));
-  add__EZR(list__FK,(&__string_24));
-  add__EZR(list__FK,(&__string_25));
-  add__EZR(list__FK,(&__string_26));
-  add__EZR(list__FK,(&__string_27));
-  add__EZR(list__FK,(&__string_28));
-  add__EZR(list__FK,(&__string_29));
-  add__EZR(list__FK,(&__string_30));
-  add__EZR(list__FK,(&__string_31));
-  add__EZR(list__FK,(&__string_32));
-  add__EZR(list__FK,(&__string_33));
-  add__EZR(list__FK,(&__string_34));
-  add__EZR(list__FK,(&__string_35));
-  add__EZR(list__FK,(&__string_36));
-  add__EZR(list__FK,(&__string_37));
-  add__EZR(list__FK,(&__string_38));
-  add__EZR(list__FK,(&__string_39));
-  add__EZR(list__FK,(&__string_40));
-  add__EZR(list__FK,(&__string_41));
-  add__EZR(list__FK,(&__string_42));
-  add__EZR(list__FK,(&__string_43));
-  add__EZR(list__FK,(&__string_44));
-  add__EZR(list__FK,(&__string_45));
-  add__EZR(list__FK,(&__string_46));
-  add__EZR(list__FK,(&__string_47));
-  add__EZR(list__FK,(&__string_1));
-  add__EZR(list__FK,(&__string_48));
-  add__EZR(list__FK,(&__string_49));
-  add__EZR(list__FK,(&__string_50));
-  add__EZR(list__FK,(&__string_51));
-  add__EZR(list__FK,(&__string_52));
-  add__EZR(list__FK,(&__string_53));
-  add__EZR(list__FK,(&__string_54));
-  add__EZR(list__FK,(&__string_55));
-  add__EZR(list__FK,(&__string_56));
-  add__EZR(list__FK,(&__string_57));
-  add__EZR(list__FK,(&__string_58));
-  add__EZR(list__FK,(&__string_59));
-  add__EZR(list__FK,(&__string_2));
-  add__EZR(list__FK,(&__string_3));
-  add__EZR(list__FK,(&__string_60));
-  add__EZR(list__FK,(&__string_61));
-  add__EZR(list__FK,(&__string_62));
-  add__EZR(list__FK,(&__string_63));
-  add__EZR(list__FK,(&__string_64));
-  add__EZR(list__FK,(&__string_65));
-  add__EZR(list__FK,(&__string_66));
-  add__EZR(list__FK,(&__string_67));
-  add__EZR(list__FK,(&__string_68));
-  add__EZR(list__FK,(&__string_69));
-  add__EZR(list__FK,(&__string_70));
-  add__EZR(list__FK,(&__string_71));
-  add__EZR(list__FK,(&__string_72));
-  add__EZR(list__FK,(&__string_73));
-  add__EZR(list__FK,(&__string_74));
-  add__EZR(list__FK,(&__string_75));
-  add__EZR(list__FK,(&__string_76));
-  add__EZR(list__FK,(&__string_77));
-  add__EZR(list__FK,(&__string_78));
-  add__EZR(list__FK,(&__string_79));
-  add__EZR(list__FK,(&__string_80));
-  add__EZR(list__FK,(&__string_81));
-  add__EZR(list__FK,(&__string_82));
-  add__EZR(list__FK,(&__string_83));
-  add__EZR(list__FK,(&__string_84));
-  add__EZR(list__FK,(&__string_85));
-  add__EZR(list__FK,(&__string_86));
-  add__EZR(list__FK,(&__string_87));
-  add__EZR(list__FK,(&__string_88));
-  add__EZR(list__FK,(&__string_89));
-  add__EZR(list__FK,(&__string_90));
-  add__EZR(list__FK,(&__string_91));
-  add__EZR(list__FK,(&__string_92));
-  add__EZR(list__FK,(&__string_93));
-  add__EZR(list__FK,(&__string_94));
-  add__EZR(list__FK,(&__string_95));
-  add__EZR(list__FK,(&__string_96));
-  add__EZR(list__FK,(&__string_97));
-  add__EZR(list__FK,(&__string_98));
-  add__EZR(list__FK,(&__string_99));
-  add__EZR(list__FK,(&__string_100));
-  add__EZR(list__FK,(&__string_101));
-  add__EZR(list__FK,(&__string_102));
-  add__EZR(list__FK,(&__string_103));
-  add__EZR(list__FK,(&__string_104));
-  add__EZR(list__FK,(&__string_105));
-  add__EZR(list__FK,(&__string_106));
-  add__EZR(list__FK,(&__string_107));
-  add__EZR(list__FK,(&__string_108));
-  add__EZR(list__FK,(&__string_109));
-  add__EZR(list__FK,(&__string_110));
-  add__EZR(list__FK,(&__string_111));
-  add__EZR(list__FK,(&__string_112));
-  add__EZR(list__FK,(&__string_113));
-  add__EZR(list__FK,(&__string_114));
-  add__EZR(list__FK,(&__string_115));
-  add__EZR(list__FK,(&__string_116));
-  add__EZR(list__FK,(&__string_117));
-  add__EZR(list__FK,(&__string_118));
-  add__EZR(list__FK,(&__string_119));
-  add__EZR(list__FK,(&__string_120));
-  add__EZR(list__FK,(&__string_121));
-  add__EZR(list__FK,(&__string_122));
-  add__EZR(list__FK,(&__string_123));
-  add__EZR(list__FK,(&__string_124));
-  add__EZR(list__FK,(&__string_125));
-  add__EZR(list__FK,(&__string_126));
-  add__EZR(list__FK,(&__string_127));
-  add__EZR(list__FK,(&__string_128));
-  add__EZR(list__FK,(&__string_129));
-  add__EZR(list__FK,(&__string_70));
-  add__EZR(list__FK,(&__string_130));
-  add__EZR(list__FK,(&__string_131));
-  add__EZR(list__FK,(&__string_132));
-  add__EZR(list__FK,(&__string_133));
-  add__EZR(list__FK,(&__string_65));
-  add__EZR(list__FK,(&__string_134));
-  add__EZR(list__FK,(&__string_135));
-  add__EZR(list__FK,(&__string_136));
-  add__EZR(list__FK,(&__string_137));
-  add__EZR(list__FK,(&__string_138));
-  add__EZR(list__FK,(&__string_139));
-  add__EZR(list__FK,(&__string_140));
-  add__EZR(list__FK,(&__string_141));
-  add__EZR(list__FK,(&__string_142));
-  add__EZR(list__FK,(&__string_143));
-  add__EZR(list__FK,(&__string_144));
-  add__EZR(list__FK,(&__string_145));
-  add__EZR(list__FK,(&__string_146));
-  add__EZR(list__FK,(&__string_147));
-  add__EZR(list__FK,(&__string_148));
-  add__EZR(list__FK,(&__string_149));
-  add__EZR(list__FK,(&__string_150));
-  add__EZR(list__FK,(&__string_66));
-  add__EZR(list__FK,(&__string_151));
-  add__EZR(list__FK,(&__string_152));
-  add__EZR(list__FK,(&__string_153));
-  add__EZR(list__FK,(&__string_154));
-  add__EZR(list__FK,(&__string_155));
-  add__EZR(list__FK,(&__string_156));
-  operator__name__GHB((&__string_16));
-  operator__name__GHB((&__string_17));
-  cmd__HZ=NULL;
-  path__KZ=NULL;
-  is_shorter__LZ=TRUE__;
-  j__IZ= 1;
-  while ((j__IZ <= ((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.upper__CLC)) {
-    cmd__HZ=((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ];
-    if ((((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 0] == '-')) {
-      if ((((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'o')) {
-        j__IZ=(__INTEGER)(j__IZ +  1);
-        if ((j__IZ > (__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.upper__CLC +  1))) {
-          print__OJD((&__string_157));
-          exit(( 1));
-        };
-        output_name__DI=get__YWB(((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ]);
-        __tmp__U0=TRUE__;
-      } else {
-        __tmp__U0=FALSE__;
-      };
-      if (__tmp__U0) {
-        __tmp__P1=TRUE__;
-      } else {
-        result__Y2NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'f');
-        if (result__Y2NB) {
-          j__IZ=(__INTEGER)(j__IZ +  1);
-          if ((j__IZ > (__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.upper__CLC +  1))) {
-            print__OJD((&__string_157));
-            exit(( 1));
-          };
-          format_name__N1=get__YWB(((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ]);
-        };
-        __tmp__P1=result__Y2NB;
-      };
-      if (__tmp__P1) {
-        __tmp__31=TRUE__;
-      } else {
-        result__K3NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'c');
-        if (result__K3NB) {
-          is_short_code__11=TRUE__;
-        };
-        __tmp__31=result__K3NB;
-      };
-      if (__tmp__31) {
-        __tmp__L2=TRUE__;
-      } else {
-        result__23NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'p');
-        if (result__23NB) {
-          is_short_private__J2=TRUE__;
-        };
-        __tmp__L2=result__23NB;
-      };
-      if (__tmp__L2) {
-        __tmp__Y2=TRUE__;
-      } else {
-        result__O4NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'r');
-        if (result__O4NB) {
-          is_short_recursive__JB=TRUE__;
-        };
-        __tmp__Y2=result__O4NB;
-      };
-      if ((! __tmp__Y2)) {
-        if ((((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'd')) {
-          is_shorter__LZ=FALSE__;
-          is_shorter2__VI=TRUE__;
-          is_short_recursive__JB=TRUE__;
-        } else {
-          print__OJD((&__string_157));
-          exit(( 1));
-        };
-      };
-    } else {
-      if (((void *)input_name__3B != (void *)NULL)) {
-        print__OJD((&__string_157));
-        exit(( 1));
-      };
-      copy__VDS(string_tmp__VH,((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ]);
-      input_name__3B=get__YWB(string_tmp__VH);
-    };
-    j__IZ=(__INTEGER)(j__IZ +  1);
-  };
-  if (((void *)input_name__3B == (void *)NULL)) {
-    print__OJD((&__string_157));
-    exit(( 1));
-  };
-  if (((void *)format_name__N1 != (void *)NULL)) {
-    path__KZ=((__CHARACTER *)(LISAAC_DIRECTORY));
-    __tmp__P4=fast_first_index_of__until__OLC(path__KZ);
-    result__0UIH=NULL;
-    ptr__1UIH=((__POINTER )(NULL));
-    typ_id__2UIH= 0;
-    sz__3UIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__3UIH ==  0)) {
-      result__0UIH=STRING_CONSTANT__;
-    } else {
-      typ_id__2UIH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3UIH);
-      if ((typ_id__2UIH == (__INTEGER)(-  1))) {
-        a__4UIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__5UIH=(__UINTEGER_32)((__UINTEGER_32)(sz__3UIH + a__4UIH) & (__UINTEGER_32)(~ a__4UIH));
-        ptr_table__PXLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5UIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__OXLH=((__POINTER )(NULL));
-        result__QXLH=((__POINTER *)ptr_table__PXLH)[ 0];
-        if ((result__QXLH == (void *)NULL)) {
-          result__QXLH=new_lab__RTJ(new_size__5UIH);
-          next__OXLH=(void *)((unsigned long)result__QXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UIH)));
-          ((__POINTER *)next__OXLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PXLH)[ 0]=next__OXLH;
-        } else {
-          next__OXLH=((__POINTER *)result__QXLH)[ 0];
-          if ((next__OXLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QXLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5UIH <<  1)) <=  4096)) {
-              next__OXLH=(void *)((unsigned long)result__QXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UIH)));
-            } else {
-              next__OXLH=new_lab__RTJ(new_size__5UIH);
-            };
-            ((__POINTER *)next__OXLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__PXLH)[ 0]=next__OXLH;
-          } else {
-            ((__POINTER *)result__QXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__QXLH=next__OXLH;
-          };
-        };
-        ptr__1UIH=result__QXLH;
-      } else {
-        t__AVIH=((__UINTEGER_32 )typ_id__2UIH);
-        a__BVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__XXLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3UIH + a__BVIH) & (__UINTEGER_32)(~ a__BVIH));
-        ptr_table__UXLH=((__POINTER )(&(table_type[(t__AVIH)])));
-        lab_type__WXLH=(__UINTEGER_32)(t__AVIH |  1);
-        next__TXLH=((__POINTER )(NULL));
-        result__VXLH=((__POINTER *)ptr_table__UXLH)[ 0];
-        if ((result__VXLH == (void *)NULL)) {
-          result__VXLH=new_lab__RTJ(lab_type__WXLH);
-          next__TXLH=(void *)((unsigned long)result__VXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XXLH)));
-          ((__POINTER *)next__TXLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UXLH)[ 0]=next__TXLH;
-        } else {
-          next__TXLH=((__POINTER *)result__VXLH)[ 0];
-          if ((next__TXLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VXLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XXLH <<  1)) <=  4096)) {
-              next__TXLH=(void *)((unsigned long)result__VXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XXLH)));
-            } else {
-              next__TXLH=new_lab__RTJ(lab_type__WXLH);
-            };
-            ((__POINTER *)next__TXLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UXLH)[ 0]=next__TXLH;
-          } else {
-            ((__POINTER *)result__VXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__VXLH=next__TXLH;
-          };
-        };
-        ptr__1UIH=result__VXLH;
-      };
-      result__0UIH=((__STRING_CONSTANT *)ptr__1UIH);
-      *(result__0UIH) = *(STRING_CONSTANT__);
-    };
-    Self__JXS=((__STRING_CONSTANT *)result__0UIH);
-    Self__JXS->storage__RRO=path__KZ;
-    Self__JXS->count__DD=__tmp__P4;
-    copy__VDS(string_tmp__VH,result__0UIH);
-    Self__MUGH=((__STRING_CONSTANT *)result__0UIH);
-    if ((((__CHARACTER *)Self__MUGH->storage__RRO)[(__INTEGER)(Self__MUGH->count__DD -  1)] != '/')) {
-      Self__AOS=((__STRING_CONSTANT *)result__0UIH);
-      __tmp__14=(((__CHARACTER *)Self__AOS->storage__RRO)[(__INTEGER)(Self__AOS->count__DD -  1)] != '\\');
-    } else {
-      __tmp__14=FALSE__;
-    };
-    if (__tmp__14) {
-      Self__UNT=((__STRING *)string_tmp__VH);
-      new_capacity__WNT= 0;
-      if ((Self__UNT->capacity__UCS <= Self__UNT->count__SGC)) {
-        if ((Self__UNT->capacity__UCS ==  0)) {
-          Self__UNT->capacity__UCS= 32;
-          Self__UNT->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__WNT=(__INTEGER)(Self__UNT->capacity__UCS <<  1);
-          Self__VBFH=((__CHARACTER *)Self__UNT->storage__3CS);
-          old_nb_elts__WBFH=Self__UNT->capacity__UCS;
-          new__YBFH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VBFH),((__UINTEGER_32 )old_nb_elts__WBFH),((__UINTEGER_32 )new_capacity__WNT)));
-          upper__CQ3C=(__INTEGER)(new_capacity__WNT -  1);
-          Self__KWDD=old_nb_elts__WBFH;
-          while ((Self__KWDD <= upper__CQ3C)) {
-            new__YBFH[Self__KWDD]='\0';
-            Self__KWDD=(__INTEGER)(Self__KWDD +  1);
-          };
-          Self__UNT->storage__3CS=new__YBFH;
-          Self__UNT->capacity__UCS=new_capacity__WNT;
-        };
-      };
-      ((__CHARACTER *)Self__UNT->storage__3CS)[Self__UNT->count__SGC]='/';
-      Self__UNT->count__SGC=(__INTEGER)(Self__UNT->count__SGC +  1);
-    };
-    append__3OS(string_tmp__VH,(&__string_158));
-    append__3OS(string_tmp__VH,format_name__N1);
-    append__3OS(string_tmp__VH,(&__string_159));
-    fmt_name__GOC=get__YWB(string_tmp__VH);
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    if (((void *)get_entry__DZAC(fmt_name__GOC) == (void *)NULL)) {
-      put_string__33F((&__string_160));
-      put_string__33F(fmt_name__GOC);
-      put_string__33F((&__string_161));
-      exit(( 1));
-    };
-    object__ZBC=create__name__generic_count__JBC(fmt_name__GOC,(&__string_114));
-    source__5BC=((__PROTOTYPE *)object__ZBC)->source__3BC;
-    position__CCC= 1;
-    pos_cur__FCC= 1;
-    pos_line__GCC= 1;
-    pos_col__HCC= 0;
-    while_do__LMF:
-    {
-      result__YXLH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__YXLH=FALSE__;
-      } else {
-        result__ZXLH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__ZXLH=((__CHARACTER )(( 0)));
-        } else {
-          result__ZXLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__ZXLH == '-')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__YXLH=TRUE__;
-        };
-      };
-      if (result__YXLH) {
-        if ((! read_identifier__2BL())) {
-          pos__2S1G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_162));
-          put_position__FRG(pos__2S1G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__3DKB=NULL;
-        ptr__4DKB=((__POINTER )(NULL));
-        typ_id__DEKB= 0;
-        sz__AEKB=((__UINTEGER_32 )sizeof(__LINKED_LISToSTRING_CONSTANTo));
-        if ((sz__AEKB ==  0)) {
-          result__3DKB=LINKED_LISToSTRING_CONSTANTo__;
-        } else {
-          typ_id__DEKB=__LINKED_LISToSTRING_CONSTANTo__;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__AEKB);
-          if ((typ_id__DEKB == (__INTEGER)(-  1))) {
-            a__PUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__QUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AEKB + a__PUGH) & (__UINTEGER_32)(~ a__PUGH));
-            ptr_table__2XLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__1XLH=((__POINTER )(NULL));
-            result__3XLH=((__POINTER *)ptr_table__2XLH)[ 0];
-            if ((result__3XLH == (void *)NULL)) {
-              result__3XLH=new_lab__RTJ(new_size__QUGH);
-              next__1XLH=(void *)((unsigned long)result__3XLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUGH)));
-              ((__POINTER *)next__1XLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__2XLH)[ 0]=next__1XLH;
-            } else {
-              next__1XLH=((__POINTER *)result__3XLH)[ 0];
-              if ((next__1XLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3XLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QUGH <<  1)) <=  4096)) {
-                  next__1XLH=(void *)((unsigned long)result__3XLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUGH)));
-                } else {
-                  next__1XLH=new_lab__RTJ(new_size__QUGH);
-                };
-                ((__POINTER *)next__1XLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__2XLH)[ 0]=next__1XLH;
-              } else {
-                ((__POINTER *)result__3XLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1XLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__3XLH=next__1XLH;
-              };
-            };
-            ptr__4DKB=result__3XLH;
-          } else {
-            t__UUGH=((__UINTEGER_32 )typ_id__DEKB);
-            a__TUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__EYLH=(__UINTEGER_32)((__UINTEGER_32)(sz__AEKB + a__TUGH) & (__UINTEGER_32)(~ a__TUGH));
-            ptr_table__BYLH=((__POINTER )(&(table_type[(t__UUGH)])));
-            lab_type__DYLH=(__UINTEGER_32)(t__UUGH |  1);
-            next__AYLH=((__POINTER )(NULL));
-            result__CYLH=((__POINTER *)ptr_table__BYLH)[ 0];
-            if ((result__CYLH == (void *)NULL)) {
-              result__CYLH=new_lab__RTJ(lab_type__DYLH);
-              next__AYLH=(void *)((unsigned long)result__CYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYLH)));
-              ((__POINTER *)next__AYLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__BYLH)[ 0]=next__AYLH;
-            } else {
-              next__AYLH=((__POINTER *)result__CYLH)[ 0];
-              if ((next__AYLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CYLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__EYLH <<  1)) <=  4096)) {
-                  next__AYLH=(void *)((unsigned long)result__CYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYLH)));
-                } else {
-                  next__AYLH=new_lab__RTJ(lab_type__DYLH);
-                };
-                ((__POINTER *)next__AYLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__BYLH)[ 0]=next__AYLH;
-              } else {
-                ((__POINTER *)result__CYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__CYLH=next__AYLH;
-              };
-            };
-            ptr__4DKB=result__CYLH;
-          };
-          result__3DKB=((__LINKED_LISToSTRING_CONSTANTo *)ptr__4DKB);
-          *(result__3DKB) = *(LINKED_LISToSTRING_CONSTANTo__);
-        };
-        if (fast_has__IDT(short_dico__QD,last_string__D2C)) {
-          pos__GT1G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_163));
-          put_position__FRG(pos__GT1G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        __tmp__UPD=last_string__D2C;
-        Self__NMEB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
-        k__PMEB=last_string__D2C;
-        h__WMEB=hash_code__RNW(last_string__D2C);
-        idx__XMEB=(__INTEGER)(h__WMEB % Self__NMEB->capacity__WDT);
-        node__YMEB=((void **)Self__NMEB->buckets__1DT)[idx__XMEB];
-        while ((! (((void *)node__YMEB == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YMEB)->key__HET == (void *)k__PMEB)))) {
-          node__YMEB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YMEB)->next__SET;
-        };
-        if (((void *)node__YMEB == (void *)NULL)) {
-          if ((Self__NMEB->capacity__WDT == Self__NMEB->count__4MY)) {
-            idx__YFZB= 0;
-            node1__2FZB=NULL;
-            node2__3FZB=NULL;
-            old_buckets__1FZB=Self__NMEB->buckets__1DT;
-            new_capacity__ZFZB=prime_number_ceiling__021((__INTEGER)(Self__NMEB->capacity__WDT +  1));
-            Self__NMEB->buckets__1DT=create__0E4(new_capacity__ZFZB);
-            i__0FZB=(__INTEGER)(Self__NMEB->capacity__WDT -  1);
-            Self__NMEB->capacity__WDT=new_capacity__ZFZB;
-            while ((i__0FZB >=  0)) {
-              node1__2FZB=((void **)old_buckets__1FZB)[i__0FZB];
-              while (((void *)node1__2FZB != (void *)NULL)) {
-                node2__3FZB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__2FZB)->next__SET;
-                idx__YFZB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__2FZB)->key__HET) % Self__NMEB->capacity__WDT);
-                ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__2FZB)->next__SET=((void **)Self__NMEB->buckets__1DT)[idx__YFZB];
-                ((void **)Self__NMEB->buckets__1DT)[idx__YFZB]=node1__2FZB;
-                node1__2FZB=node2__3FZB;
-              };
-              i__0FZB=(__INTEGER)(i__0FZB -  1);
-            };
-            idx__XMEB=(__INTEGER)(h__WMEB % Self__NMEB->capacity__WDT);
-          };
-          __tmp__FOEB=((void **)Self__NMEB->buckets__1DT)[idx__XMEB];
-          result__BIZB=NULL;
-          ptr__CIZB=((__POINTER )(NULL));
-          typ_id__HIZB= 0;
-          sz__EIZB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo));
-          if ((sz__EIZB ==  0)) {
-            result__BIZB=HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
-          } else {
-            typ_id__HIZB=__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EIZB);
-            if ((typ_id__HIZB == (__INTEGER)(-  1))) {
-              a__0UGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__1UGH=(__UINTEGER_32)((__UINTEGER_32)(sz__EIZB + a__0UGH) & (__UINTEGER_32)(~ a__0UGH));
-              ptr_table__GYLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1UGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__FYLH=((__POINTER )(NULL));
-              result__HYLH=((__POINTER *)ptr_table__GYLH)[ 0];
-              if ((result__HYLH == (void *)NULL)) {
-                result__HYLH=new_lab__RTJ(new_size__1UGH);
-                next__FYLH=(void *)((unsigned long)result__HYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UGH)));
-                ((__POINTER *)next__FYLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GYLH)[ 0]=next__FYLH;
-              } else {
-                next__FYLH=((__POINTER *)result__HYLH)[ 0];
-                if ((next__FYLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HYLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__1UGH <<  1)) <=  4096)) {
-                    next__FYLH=(void *)((unsigned long)result__HYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UGH)));
-                  } else {
-                    next__FYLH=new_lab__RTJ(new_size__1UGH);
-                  };
-                  ((__POINTER *)next__FYLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__GYLH)[ 0]=next__FYLH;
-                } else {
-                  ((__POINTER *)result__HYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__HYLH=next__FYLH;
-                };
-              };
-              ptr__CIZB=result__HYLH;
-            } else {
-              t__5UGH=((__UINTEGER_32 )typ_id__HIZB);
-              a__4UGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__OYLH=(__UINTEGER_32)((__UINTEGER_32)(sz__EIZB + a__4UGH) & (__UINTEGER_32)(~ a__4UGH));
-              ptr_table__LYLH=((__POINTER )(&(table_type[(t__5UGH)])));
-              lab_type__NYLH=(__UINTEGER_32)(t__5UGH |  1);
-              next__KYLH=((__POINTER )(NULL));
-              result__MYLH=((__POINTER *)ptr_table__LYLH)[ 0];
-              if ((result__MYLH == (void *)NULL)) {
-                result__MYLH=new_lab__RTJ(lab_type__NYLH);
-                next__KYLH=(void *)((unsigned long)result__MYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OYLH)));
-                ((__POINTER *)next__KYLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__LYLH)[ 0]=next__KYLH;
-              } else {
-                next__KYLH=((__POINTER *)result__MYLH)[ 0];
-                if ((next__KYLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MYLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OYLH <<  1)) <=  4096)) {
-                    next__KYLH=(void *)((unsigned long)result__MYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OYLH)));
-                  } else {
-                    next__KYLH=new_lab__RTJ(lab_type__NYLH);
-                  };
-                  ((__POINTER *)next__KYLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__LYLH)[ 0]=next__KYLH;
-                } else {
-                  ((__POINTER *)result__MYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__MYLH=next__KYLH;
-                };
-              };
-              ptr__CIZB=result__MYLH;
-            };
-            result__BIZB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__CIZB);
-            *(result__BIZB) = *(HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
-          };
-          Self__FDGC=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__BIZB);
-          Self__FDGC->item__KW3=result__3DKB;
-          Self__FDGC->key__HET=__tmp__UPD;
-          Self__FDGC->next__SET=__tmp__FOEB;
-          node__YMEB=result__BIZB;
-          ((void **)Self__NMEB->buckets__1DT)[idx__XMEB]=result__BIZB;
-          Self__NMEB->count__4MY=(__INTEGER)(Self__NMEB->count__4MY +  1);
-        } else {
-          ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YMEB)->item__KW3=result__3DKB;
-        };
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__YU1G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_164));
-          put_position__FRG(pos__YU1G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        def__3OEB=result__3DKB;
-        result__5OEB=FALSE__;
-        if (read_short_elt__EIKB()) {
-          result__5OEB=TRUE__;
-          Self__FVGH=((__LINKED_LISToSTRING_CONSTANTo *)result__3DKB);
-          element__EVGH=last_string__D2C;
-          if (((void *)Self__FVGH->first_link__OTEC == (void *)NULL)) {
-            i__LVIH=last_string__D2C;
-            result__CVIH=NULL;
-            ptr__DVIH=((__POINTER )(NULL));
-            typ_id__EVIH= 0;
-            sz__FVIH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-            if ((sz__FVIH ==  0)) {
-              result__CVIH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
-            } else {
-              typ_id__EVIH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-              clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__FVIH);
-              if ((typ_id__EVIH == (__INTEGER)(-  1))) {
-                a__GVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__HVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FVIH + a__GVIH) & (__UINTEGER_32)(~ a__GVIH));
-                ptr_table__QYLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HVIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__PYLH=((__POINTER )(NULL));
-                result__RYLH=((__POINTER *)ptr_table__QYLH)[ 0];
-                if ((result__RYLH == (void *)NULL)) {
-                  result__RYLH=new_lab__RTJ(new_size__HVIH);
-                  next__PYLH=(void *)((unsigned long)result__RYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVIH)));
-                  ((__POINTER *)next__PYLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__QYLH)[ 0]=next__PYLH;
-                } else {
-                  next__PYLH=((__POINTER *)result__RYLH)[ 0];
-                  if ((next__PYLH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RYLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HVIH <<  1)) <=  4096)) {
-                      next__PYLH=(void *)((unsigned long)result__RYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVIH)));
-                    } else {
-                      next__PYLH=new_lab__RTJ(new_size__HVIH);
-                    };
-                    ((__POINTER *)next__PYLH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__QYLH)[ 0]=next__PYLH;
-                  } else {
-                    ((__POINTER *)result__RYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__RYLH=next__PYLH;
-                  };
-                };
-                ptr__DVIH=result__RYLH;
-              } else {
-                t__IVIH=((__UINTEGER_32 )typ_id__EVIH);
-                a__JVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__YYLH=(__UINTEGER_32)((__UINTEGER_32)(sz__FVIH + a__JVIH) & (__UINTEGER_32)(~ a__JVIH));
-                ptr_table__VYLH=((__POINTER )(&(table_type[(t__IVIH)])));
-                lab_type__XYLH=(__UINTEGER_32)(t__IVIH |  1);
-                next__UYLH=((__POINTER )(NULL));
-                result__WYLH=((__POINTER *)ptr_table__VYLH)[ 0];
-                if ((result__WYLH == (void *)NULL)) {
-                  result__WYLH=new_lab__RTJ(lab_type__XYLH);
-                  next__UYLH=(void *)((unsigned long)result__WYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYLH)));
-                  ((__POINTER *)next__UYLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__VYLH)[ 0]=next__UYLH;
-                } else {
-                  next__UYLH=((__POINTER *)result__WYLH)[ 0];
-                  if ((next__UYLH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WYLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YYLH <<  1)) <=  4096)) {
-                      next__UYLH=(void *)((unsigned long)result__WYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYLH)));
-                    } else {
-                      next__UYLH=new_lab__RTJ(lab_type__XYLH);
-                    };
-                    ((__POINTER *)next__UYLH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__VYLH)[ 0]=next__UYLH;
-                  } else {
-                    ((__POINTER *)result__WYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__WYLH=next__UYLH;
-                  };
-                };
-                ptr__DVIH=result__WYLH;
-              };
-              result__CVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__DVIH);
-              *(result__CVIH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
-            };
-            Self__KVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__CVIH);
-            Self__KVIH->item__L0HD=i__LVIH;
-            Self__KVIH->next__JROD=NULL;
-            Self__FVGH->first_link__OTEC=result__CVIH;
-            Self__FVGH->parent_linked_collection__LD.upper__0ED= 1;
-            Self__FVGH->last_link__XTEC=result__CVIH;
-            Self__FVGH->mem_idx__YTEC= 1;
-            Self__FVGH->mem_lnk__0TEC=result__CVIH;
-          } else {
-            result__MVIH=NULL;
-            ptr__NVIH=((__POINTER )(NULL));
-            typ_id__OVIH= 0;
-            sz__PVIH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-            if ((sz__PVIH ==  0)) {
-              result__MVIH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
-            } else {
-              typ_id__OVIH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-              clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PVIH);
-              if ((typ_id__OVIH == (__INTEGER)(-  1))) {
-                a__QVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__RVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVIH + a__QVIH) & (__UINTEGER_32)(~ a__QVIH));
-                ptr_table__0YLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RVIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__ZYLH=((__POINTER )(NULL));
-                result__1YLH=((__POINTER *)ptr_table__0YLH)[ 0];
-                if ((result__1YLH == (void *)NULL)) {
-                  result__1YLH=new_lab__RTJ(new_size__RVIH);
-                  next__ZYLH=(void *)((unsigned long)result__1YLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVIH)));
-                  ((__POINTER *)next__ZYLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__0YLH)[ 0]=next__ZYLH;
-                } else {
-                  next__ZYLH=((__POINTER *)result__1YLH)[ 0];
-                  if ((next__ZYLH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1YLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__RVIH <<  1)) <=  4096)) {
-                      next__ZYLH=(void *)((unsigned long)result__1YLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVIH)));
-                    } else {
-                      next__ZYLH=new_lab__RTJ(new_size__RVIH);
-                    };
-                    ((__POINTER *)next__ZYLH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__0YLH)[ 0]=next__ZYLH;
-                  } else {
-                    ((__POINTER *)result__1YLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__1YLH=next__ZYLH;
-                  };
-                };
-                ptr__NVIH=result__1YLH;
-              } else {
-                t__SVIH=((__UINTEGER_32 )typ_id__OVIH);
-                a__TVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__CZLH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVIH + a__TVIH) & (__UINTEGER_32)(~ a__TVIH));
-                ptr_table__5YLH=((__POINTER )(&(table_type[(t__SVIH)])));
-                lab_type__BZLH=(__UINTEGER_32)(t__SVIH |  1);
-                next__4YLH=((__POINTER )(NULL));
-                result__AZLH=((__POINTER *)ptr_table__5YLH)[ 0];
-                if ((result__AZLH == (void *)NULL)) {
-                  result__AZLH=new_lab__RTJ(lab_type__BZLH);
-                  next__4YLH=(void *)((unsigned long)result__AZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CZLH)));
-                  ((__POINTER *)next__4YLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__5YLH)[ 0]=next__4YLH;
-                } else {
-                  next__4YLH=((__POINTER *)result__AZLH)[ 0];
-                  if ((next__4YLH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AZLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CZLH <<  1)) <=  4096)) {
-                      next__4YLH=(void *)((unsigned long)result__AZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CZLH)));
-                    } else {
-                      next__4YLH=new_lab__RTJ(lab_type__BZLH);
-                    };
-                    ((__POINTER *)next__4YLH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__5YLH)[ 0]=next__4YLH;
-                  } else {
-                    ((__POINTER *)result__AZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4YLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__AZLH=next__4YLH;
-                  };
-                };
-                ptr__NVIH=result__AZLH;
-              };
-              result__MVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__NVIH);
-              *(result__MVIH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
-            };
-            Self__UVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__MVIH);
-            Self__UVIH->item__L0HD=element__EVGH;
-            Self__UVIH->next__JROD=NULL;
-            ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__FVGH->last_link__XTEC)->next__JROD=result__MVIH;
-            Self__FVGH->parent_linked_collection__LD.upper__0ED=(__INTEGER)(Self__FVGH->parent_linked_collection__LD.upper__0ED +  1);
-            Self__FVGH->last_link__XTEC=result__MVIH;
-          };
-          while_do__FQSB:
-          {
-            result__DZLH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__DZLH=FALSE__;
-            } else {
-              result__EZLH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__EZLH=((__CHARACTER )(( 0)));
-              } else {
-                result__EZLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__EZLH == '+')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__DZLH=TRUE__;
-              };
-            };
-            if (result__DZLH) {
-              if ((! read_short_elt__EIKB())) {
-                pos__0U1G=current_position__B0F();
-                put_error__text__1PG( 0,(&__string_165));
-                put_position__FRG(pos__0U1G);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-              Self__JTEC=((__LINKED_LISToSTRING_CONSTANTo *)def__3OEB);
-              element__KTEC=last_string__D2C;
-              if (((void *)Self__JTEC->first_link__OTEC == (void *)NULL)) {
-                i__5VIH=last_string__D2C;
-                result__WVIH=NULL;
-                ptr__XVIH=((__POINTER )(NULL));
-                typ_id__YVIH= 0;
-                sz__ZVIH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-                if ((sz__ZVIH ==  0)) {
-                  result__WVIH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
-                } else {
-                  typ_id__YVIH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZVIH);
-                  if ((typ_id__YVIH == (__INTEGER)(-  1))) {
-                    a__0VIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__1VIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZVIH + a__0VIH) & (__UINTEGER_32)(~ a__0VIH));
-                    ptr_table__HZLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1VIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__GZLH=((__POINTER )(NULL));
-                    result__IZLH=((__POINTER *)ptr_table__HZLH)[ 0];
-                    if ((result__IZLH == (void *)NULL)) {
-                      result__IZLH=new_lab__RTJ(new_size__1VIH);
-                      next__GZLH=(void *)((unsigned long)result__IZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1VIH)));
-                      ((__POINTER *)next__GZLH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__HZLH)[ 0]=next__GZLH;
-                    } else {
-                      next__GZLH=((__POINTER *)result__IZLH)[ 0];
-                      if ((next__GZLH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IZLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__1VIH <<  1)) <=  4096)) {
-                          next__GZLH=(void *)((unsigned long)result__IZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1VIH)));
-                        } else {
-                          next__GZLH=new_lab__RTJ(new_size__1VIH);
-                        };
-                        ((__POINTER *)next__GZLH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__HZLH)[ 0]=next__GZLH;
-                      } else {
-                        ((__POINTER *)result__IZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__IZLH=next__GZLH;
-                      };
-                    };
-                    ptr__XVIH=result__IZLH;
-                  } else {
-                    t__2VIH=((__UINTEGER_32 )typ_id__YVIH);
-                    a__3VIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__PZLH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZVIH + a__3VIH) & (__UINTEGER_32)(~ a__3VIH));
-                    ptr_table__MZLH=((__POINTER )(&(table_type[(t__2VIH)])));
-                    lab_type__OZLH=(__UINTEGER_32)(t__2VIH |  1);
-                    next__LZLH=((__POINTER )(NULL));
-                    result__NZLH=((__POINTER *)ptr_table__MZLH)[ 0];
-                    if ((result__NZLH == (void *)NULL)) {
-                      result__NZLH=new_lab__RTJ(lab_type__OZLH);
-                      next__LZLH=(void *)((unsigned long)result__NZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZLH)));
-                      ((__POINTER *)next__LZLH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__MZLH)[ 0]=next__LZLH;
-                    } else {
-                      next__LZLH=((__POINTER *)result__NZLH)[ 0];
-                      if ((next__LZLH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NZLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PZLH <<  1)) <=  4096)) {
-                          next__LZLH=(void *)((unsigned long)result__NZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZLH)));
-                        } else {
-                          next__LZLH=new_lab__RTJ(lab_type__OZLH);
-                        };
-                        ((__POINTER *)next__LZLH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__MZLH)[ 0]=next__LZLH;
-                      } else {
-                        ((__POINTER *)result__NZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__NZLH=next__LZLH;
-                      };
-                    };
-                    ptr__XVIH=result__NZLH;
-                  };
-                  result__WVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__XVIH);
-                  *(result__WVIH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
-                };
-                Self__4VIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__WVIH);
-                Self__4VIH->item__L0HD=i__5VIH;
-                Self__4VIH->next__JROD=NULL;
-                Self__JTEC->first_link__OTEC=result__WVIH;
-                Self__JTEC->parent_linked_collection__LD.upper__0ED= 1;
-                Self__JTEC->last_link__XTEC=result__WVIH;
-                Self__JTEC->mem_idx__YTEC= 1;
-                Self__JTEC->mem_lnk__0TEC=result__WVIH;
-              } else {
-                result__IRED=NULL;
-                ptr__JRED=((__POINTER )(NULL));
-                typ_id__ORED= 0;
-                sz__LRED=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
-                if ((sz__LRED ==  0)) {
-                  result__IRED=LINKED_LIST_NODEoSTRING_CONSTANTo__;
-                } else {
-                  typ_id__ORED=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LRED);
-                  if ((typ_id__ORED == (__INTEGER)(-  1))) {
-                    a__QQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__RQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__LRED + a__QQFH) & (__UINTEGER_32)(~ a__QQFH));
-                    ptr_table__RZLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__QZLH=((__POINTER )(NULL));
-                    result__SZLH=((__POINTER *)ptr_table__RZLH)[ 0];
-                    if ((result__SZLH == (void *)NULL)) {
-                      result__SZLH=new_lab__RTJ(new_size__RQFH);
-                      next__QZLH=(void *)((unsigned long)result__SZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RQFH)));
-                      ((__POINTER *)next__QZLH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__RZLH)[ 0]=next__QZLH;
-                    } else {
-                      next__QZLH=((__POINTER *)result__SZLH)[ 0];
-                      if ((next__QZLH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SZLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__RQFH <<  1)) <=  4096)) {
-                          next__QZLH=(void *)((unsigned long)result__SZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RQFH)));
-                        } else {
-                          next__QZLH=new_lab__RTJ(new_size__RQFH);
-                        };
-                        ((__POINTER *)next__QZLH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__RZLH)[ 0]=next__QZLH;
-                      } else {
-                        ((__POINTER *)result__SZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__SZLH=next__QZLH;
-                      };
-                    };
-                    ptr__JRED=result__SZLH;
-                  } else {
-                    t__VQFH=((__UINTEGER_32 )typ_id__ORED);
-                    a__UQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__ZZLH=(__UINTEGER_32)((__UINTEGER_32)(sz__LRED + a__UQFH) & (__UINTEGER_32)(~ a__UQFH));
-                    ptr_table__WZLH=((__POINTER )(&(table_type[(t__VQFH)])));
-                    lab_type__YZLH=(__UINTEGER_32)(t__VQFH |  1);
-                    next__VZLH=((__POINTER )(NULL));
-                    result__XZLH=((__POINTER *)ptr_table__WZLH)[ 0];
-                    if ((result__XZLH == (void *)NULL)) {
-                      result__XZLH=new_lab__RTJ(lab_type__YZLH);
-                      next__VZLH=(void *)((unsigned long)result__XZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZLH)));
-                      ((__POINTER *)next__VZLH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__WZLH)[ 0]=next__VZLH;
-                    } else {
-                      next__VZLH=((__POINTER *)result__XZLH)[ 0];
-                      if ((next__VZLH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XZLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZZLH <<  1)) <=  4096)) {
-                          next__VZLH=(void *)((unsigned long)result__XZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZLH)));
-                        } else {
-                          next__VZLH=new_lab__RTJ(lab_type__YZLH);
-                        };
-                        ((__POINTER *)next__VZLH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__WZLH)[ 0]=next__VZLH;
-                      } else {
-                        ((__POINTER *)result__XZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__XZLH=next__VZLH;
-                      };
-                    };
-                    ptr__JRED=result__XZLH;
-                  };
-                  result__IRED=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__JRED);
-                  *(result__IRED) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
-                };
-                Self__JOSD=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__IRED);
-                Self__JOSD->item__L0HD=element__KTEC;
-                Self__JOSD->next__JROD=NULL;
-                ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__JTEC->last_link__XTEC)->next__JROD=result__IRED;
-                Self__JTEC->parent_linked_collection__LD.upper__0ED=(__INTEGER)(Self__JTEC->parent_linked_collection__LD.upper__0ED +  1);
-                Self__JTEC->last_link__XTEC=result__IRED;
-              };
-              goto while_do__FQSB;
-            };
-          };
-        };
-        if ((! result__5OEB)) {
-          pos__2U1G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_166));
-          put_position__FRG(pos__2U1G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__MJG=FALSE__;
-        if ((! read_space__XTD())) {
-          result__MJG=FALSE__;
-        } else {
-          result__4VDH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__4VDH=((__CHARACTER )(( 0)));
-          } else {
-            result__4VDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__4VDH == ';')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__MJG=TRUE__;
-          };
-        };
-        if ((! result__MJG)) {
-          pos__4U1G=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_167));
-          put_position__FRG(pos__4U1G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        goto while_do__LMF;
-      };
-    };
-    read_space__XTD();
-    result__BMDH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__BMDH=((__CHARACTER )(( 0)));
-    } else {
-      result__BMDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__BMDH != ((__CHARACTER )(( 0))))) {
-      pos__AV1G=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_168));
-      put_position__FRG(pos__AV1G);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    object__ZBC=NULL;
-  };
-  index_count__P5=(__INTEGER)(index_count__P5 +  1);
-  fast_put__to__U2R(result__JPC,(&__string_2));
-  result__2YB=NULL;
-  ptr__3YB=((__POINTER )(NULL));
-  typ_id__CZB= 0;
-  sz__5YB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSLOTo));
-  if ((sz__5YB ==  0)) {
-    result__2YB=FAST_ARRAYoSLOTo__;
-  } else {
-    typ_id__CZB=__FAST_ARRAYoSLOTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5YB);
-    if ((typ_id__CZB == (__INTEGER)(-  1))) {
-      a__IVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__JVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__5YB + a__IVGH) & (__UINTEGER_32)(~ a__IVGH));
-      ptr_table__1ZLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JVGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__0ZLH=((__POINTER )(NULL));
-      result__2ZLH=((__POINTER *)ptr_table__1ZLH)[ 0];
-      if ((result__2ZLH == (void *)NULL)) {
-        result__2ZLH=new_lab__RTJ(new_size__JVGH);
-        next__0ZLH=(void *)((unsigned long)result__2ZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVGH)));
-        ((__POINTER *)next__0ZLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1ZLH)[ 0]=next__0ZLH;
-      } else {
-        next__0ZLH=((__POINTER *)result__2ZLH)[ 0];
-        if ((next__0ZLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2ZLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JVGH <<  1)) <=  4096)) {
-            next__0ZLH=(void *)((unsigned long)result__2ZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVGH)));
-          } else {
-            next__0ZLH=new_lab__RTJ(new_size__JVGH);
-          };
-          ((__POINTER *)next__0ZLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1ZLH)[ 0]=next__0ZLH;
-        } else {
-          ((__POINTER *)result__2ZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0ZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__2ZLH=next__0ZLH;
-        };
-      };
-      ptr__3YB=result__2ZLH;
-    } else {
-      t__NVGH=((__UINTEGER_32 )typ_id__CZB);
-      a__MVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__D0LH=(__UINTEGER_32)((__UINTEGER_32)(sz__5YB + a__MVGH) & (__UINTEGER_32)(~ a__MVGH));
-      ptr_table__A0LH=((__POINTER )(&(table_type[(t__NVGH)])));
-      lab_type__C0LH=(__UINTEGER_32)(t__NVGH |  1);
-      next__5ZLH=((__POINTER )(NULL));
-      result__B0LH=((__POINTER *)ptr_table__A0LH)[ 0];
-      if ((result__B0LH == (void *)NULL)) {
-        result__B0LH=new_lab__RTJ(lab_type__C0LH);
-        next__5ZLH=(void *)((unsigned long)result__B0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0LH)));
-        ((__POINTER *)next__5ZLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__A0LH)[ 0]=next__5ZLH;
-      } else {
-        next__5ZLH=((__POINTER *)result__B0LH)[ 0];
-        if ((next__5ZLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B0LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__D0LH <<  1)) <=  4096)) {
-            next__5ZLH=(void *)((unsigned long)result__B0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0LH)));
-          } else {
-            next__5ZLH=new_lab__RTJ(lab_type__C0LH);
-          };
-          ((__POINTER *)next__5ZLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__A0LH)[ 0]=next__5ZLH;
-        } else {
-          ((__POINTER *)result__B0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5ZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__B0LH=next__5ZLH;
-        };
-      };
-      ptr__3YB=result__B0LH;
-    };
-    result__2YB=((__FAST_ARRAYoSLOTo *)ptr__3YB);
-    *(result__2YB) = *(FAST_ARRAYoSLOTo__);
-  };
-  Self__HFS=((__FAST_ARRAYoSLOTo *)result__2YB);
-  if ((Self__HFS->parent_arrayed_collection__BAB.capacity__QFS <  1)) {
-    sz__JHHH=((__UINTEGER_32 )((__INTEGER )(sizeof(void *))));
-    result__HHHH=((__POINTER )(NULL));
-    a__IHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__KHHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JHHH + a__IHHH) & (__UINTEGER_32)(~ a__IHHH));
-    new_size2__LHHH=(__UINTEGER_32)(new_size__KHHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__LHHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__MHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__NHHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LHHH + a__MHHH) & (__UINTEGER_32)(~ a__MHHH));
-      ptr_table__F0LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NHHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__E0LH=((__POINTER )(NULL));
-      result__G0LH=((__POINTER *)ptr_table__F0LH)[ 0];
-      if ((result__G0LH == (void *)NULL)) {
-        result__G0LH=new_lab__RTJ(new_size__NHHH);
-        next__E0LH=(void *)((unsigned long)result__G0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NHHH)));
-        ((__POINTER *)next__E0LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__F0LH)[ 0]=next__E0LH;
-      } else {
-        next__E0LH=((__POINTER *)result__G0LH)[ 0];
-        if ((next__E0LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G0LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NHHH <<  1)) <=  4096)) {
-            next__E0LH=(void *)((unsigned long)result__G0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NHHH)));
-          } else {
-            next__E0LH=new_lab__RTJ(new_size__NHHH);
-          };
-          ((__POINTER *)next__E0LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__F0LH)[ 0]=next__E0LH;
-        } else {
-          ((__POINTER *)result__G0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__G0LH=next__E0LH;
-        };
-      };
-      ((__POINTER *)result__G0LH)[ 0]=((__POINTER ) 3);
-      result__HHHH=(void *)((unsigned long)result__G0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__HHHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__KHHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    Result__3J1C=((void **)result__HHHH);
-    Self__BQWD= 0;
-    while ((Self__BQWD >=  0)) {
-      Result__3J1C[Self__BQWD]=NULL;
-      Self__BQWD=(__INTEGER)(Self__BQWD -  1);
-    };
-    Self__HFS->parent_arrayed_collection__BAB.capacity__QFS= 1;
-  };
-  create__with__CRB(TYPE_NULL__, 0);
-  fast_put__to__U2R(result__JPC,(&__string_3));
-  create__with__CRB(TYPE_VOID__, 0);
-  fast_put__to__U2R(result__JPC,(&__string_45));
-  create__with__CRB(TYPE_CONTEXT__, 1);
-  result__42B=NULL;
-  ptr__52B=((__POINTER )(NULL));
-  typ_id__E3B= 0;
-  sz__B3B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoTYPE_IDo));
-  if ((sz__B3B ==  0)) {
-    result__42B=FAST_ARRAYoTYPE_IDo__;
-  } else {
-    typ_id__E3B=__FAST_ARRAYoTYPE_IDo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__B3B);
-    if ((typ_id__E3B == (__INTEGER)(-  1))) {
-      a__QVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__RVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__B3B + a__QVGH) & (__UINTEGER_32)(~ a__QVGH));
-      ptr_table__K0LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RVGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__J0LH=((__POINTER )(NULL));
-      result__L0LH=((__POINTER *)ptr_table__K0LH)[ 0];
-      if ((result__L0LH == (void *)NULL)) {
-        result__L0LH=new_lab__RTJ(new_size__RVGH);
-        next__J0LH=(void *)((unsigned long)result__L0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVGH)));
-        ((__POINTER *)next__J0LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__K0LH)[ 0]=next__J0LH;
-      } else {
-        next__J0LH=((__POINTER *)result__L0LH)[ 0];
-        if ((next__J0LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L0LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__RVGH <<  1)) <=  4096)) {
-            next__J0LH=(void *)((unsigned long)result__L0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVGH)));
-          } else {
-            next__J0LH=new_lab__RTJ(new_size__RVGH);
-          };
-          ((__POINTER *)next__J0LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__K0LH)[ 0]=next__J0LH;
-        } else {
-          ((__POINTER *)result__L0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__L0LH=next__J0LH;
-        };
-      };
-      ptr__52B=result__L0LH;
-    } else {
-      t__VVGH=((__UINTEGER_32 )typ_id__E3B);
-      a__UVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__S0LH=(__UINTEGER_32)((__UINTEGER_32)(sz__B3B + a__UVGH) & (__UINTEGER_32)(~ a__UVGH));
-      ptr_table__P0LH=((__POINTER )(&(table_type[(t__VVGH)])));
-      lab_type__R0LH=(__UINTEGER_32)(t__VVGH |  1);
-      next__O0LH=((__POINTER )(NULL));
-      result__Q0LH=((__POINTER *)ptr_table__P0LH)[ 0];
-      if ((result__Q0LH == (void *)NULL)) {
-        result__Q0LH=new_lab__RTJ(lab_type__R0LH);
-        next__O0LH=(void *)((unsigned long)result__Q0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0LH)));
-        ((__POINTER *)next__O0LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__P0LH)[ 0]=next__O0LH;
-      } else {
-        next__O0LH=((__POINTER *)result__Q0LH)[ 0];
-        if ((next__O0LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q0LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__S0LH <<  1)) <=  4096)) {
-            next__O0LH=(void *)((unsigned long)result__Q0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0LH)));
-          } else {
-            next__O0LH=new_lab__RTJ(lab_type__R0LH);
-          };
-          ((__POINTER *)next__O0LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__P0LH)[ 0]=next__O0LH;
-        } else {
-          ((__POINTER *)result__Q0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Q0LH=next__O0LH;
-        };
-      };
-      ptr__52B=result__Q0LH;
-    };
-    result__42B=((__FAST_ARRAYoTYPE_IDo *)ptr__52B);
-    *(result__42B) = *(FAST_ARRAYoTYPE_IDo__);
-  };
-  Self__GIS=((__FAST_ARRAYoTYPE_IDo *)result__42B);
-  if ((Self__GIS->parent_arrayed_collection__ABB.capacity__Q5R <  3)) {
-    Self__GIS->parent_arrayed_collection__ABB.storage__MAS=create__1VNB( 3);
-    Self__GIS->parent_arrayed_collection__ABB.capacity__Q5R= 3;
-  };
-  Self__GIS->parent_arrayed_collection__ABB.upper__O5R=(__INTEGER)(-  1);
-  list_id__CBB=result__42B;
-  result__AWIH=NULL;
-  ptr__BWIH=((__POINTER )(NULL));
-  typ_id__CWIH= 0;
-  sz__DWIH=((__UINTEGER_32 )sizeof(__TYPE_ID));
-  if ((sz__DWIH ==  0)) {
-    result__AWIH=TYPE_ID__;
-  } else {
-    typ_id__CWIH=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__DWIH);
-    if ((typ_id__CWIH == (__INTEGER)(-  1))) {
-      a__EWIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__FWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWIH + a__EWIH) & (__UINTEGER_32)(~ a__EWIH));
-      ptr_table__U0LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FWIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__T0LH=((__POINTER )(NULL));
-      result__V0LH=((__POINTER *)ptr_table__U0LH)[ 0];
-      if ((result__V0LH == (void *)NULL)) {
-        result__V0LH=new_lab__RTJ(new_size__FWIH);
-        next__T0LH=(void *)((unsigned long)result__V0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWIH)));
-        ((__POINTER *)next__T0LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__U0LH)[ 0]=next__T0LH;
-      } else {
-        next__T0LH=((__POINTER *)result__V0LH)[ 0];
-        if ((next__T0LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V0LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FWIH <<  1)) <=  4096)) {
-            next__T0LH=(void *)((unsigned long)result__V0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWIH)));
-          } else {
-            next__T0LH=new_lab__RTJ(new_size__FWIH);
-          };
-          ((__POINTER *)next__T0LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__U0LH)[ 0]=next__T0LH;
-        } else {
-          ((__POINTER *)result__V0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__V0LH=next__T0LH;
-        };
-      };
-      ptr__BWIH=result__V0LH;
-    } else {
-      t__GWIH=((__UINTEGER_32 )typ_id__CWIH);
-      a__HWIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__20LH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWIH + a__HWIH) & (__UINTEGER_32)(~ a__HWIH));
-      ptr_table__Z0LH=((__POINTER )(&(table_type[(t__GWIH)])));
-      lab_type__10LH=(__UINTEGER_32)(t__GWIH |  1);
-      next__Y0LH=((__POINTER )(NULL));
-      result__00LH=((__POINTER *)ptr_table__Z0LH)[ 0];
-      if ((result__00LH == (void *)NULL)) {
-        result__00LH=new_lab__RTJ(lab_type__10LH);
-        next__Y0LH=(void *)((unsigned long)result__00LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__20LH)));
-        ((__POINTER *)next__Y0LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__Z0LH)[ 0]=next__Y0LH;
-      } else {
-        next__Y0LH=((__POINTER *)result__00LH)[ 0];
-        if ((next__Y0LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__00LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__20LH <<  1)) <=  4096)) {
-            next__Y0LH=(void *)((unsigned long)result__00LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__20LH)));
-          } else {
-            next__Y0LH=new_lab__RTJ(lab_type__10LH);
-          };
-          ((__POINTER *)next__Y0LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__Z0LH)[ 0]=next__Y0LH;
-        } else {
-          ((__POINTER *)result__00LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__00LH=next__Y0LH;
-        };
-      };
-      ptr__BWIH=result__00LH;
-    };
-    result__AWIH=((__TYPE_ID *)ptr__BWIH);
-    *(result__AWIH) = *(TYPE_ID__);
-  };
-  create__with__CRB(((__TYPE_ID *)result__AWIH), 0);
-  add_last__K5R(result__42B,result__AWIH);
-  result__Q4B=NULL;
-  ptr__R4B=((__POINTER )(NULL));
-  typ_id__W4B= 0;
-  sz__T4B=((__UINTEGER_32 )sizeof(__TYPE_ID));
-  if ((sz__T4B ==  0)) {
-    result__Q4B=TYPE_ID__;
-  } else {
-    typ_id__W4B=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__T4B);
-    if ((typ_id__W4B == (__INTEGER)(-  1))) {
-      a__MIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__NIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__T4B + a__MIFH) & (__UINTEGER_32)(~ a__MIFH));
-      ptr_table__40LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__30LH=((__POINTER )(NULL));
-      result__50LH=((__POINTER *)ptr_table__40LH)[ 0];
-      if ((result__50LH == (void *)NULL)) {
-        result__50LH=new_lab__RTJ(new_size__NIFH);
-        next__30LH=(void *)((unsigned long)result__50LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NIFH)));
-        ((__POINTER *)next__30LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__40LH)[ 0]=next__30LH;
-      } else {
-        next__30LH=((__POINTER *)result__50LH)[ 0];
-        if ((next__30LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__50LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NIFH <<  1)) <=  4096)) {
-            next__30LH=(void *)((unsigned long)result__50LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NIFH)));
-          } else {
-            next__30LH=new_lab__RTJ(new_size__NIFH);
-          };
-          ((__POINTER *)next__30LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__40LH)[ 0]=next__30LH;
-        } else {
-          ((__POINTER *)result__50LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__30LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__50LH=next__30LH;
-        };
-      };
-      ptr__R4B=result__50LH;
-    } else {
-      t__RIFH=((__UINTEGER_32 )typ_id__W4B);
-      a__QIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__G1LH=(__UINTEGER_32)((__UINTEGER_32)(sz__T4B + a__QIFH) & (__UINTEGER_32)(~ a__QIFH));
-      ptr_table__D1LH=((__POINTER )(&(table_type[(t__RIFH)])));
-      lab_type__F1LH=(__UINTEGER_32)(t__RIFH |  1);
-      next__C1LH=((__POINTER )(NULL));
-      result__E1LH=((__POINTER *)ptr_table__D1LH)[ 0];
-      if ((result__E1LH == (void *)NULL)) {
-        result__E1LH=new_lab__RTJ(lab_type__F1LH);
-        next__C1LH=(void *)((unsigned long)result__E1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G1LH)));
-        ((__POINTER *)next__C1LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__D1LH)[ 0]=next__C1LH;
-      } else {
-        next__C1LH=((__POINTER *)result__E1LH)[ 0];
-        if ((next__C1LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E1LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__G1LH <<  1)) <=  4096)) {
-            next__C1LH=(void *)((unsigned long)result__E1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G1LH)));
-          } else {
-            next__C1LH=new_lab__RTJ(lab_type__F1LH);
-          };
-          ((__POINTER *)next__C1LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__D1LH)[ 0]=next__C1LH;
-        } else {
-          ((__POINTER *)result__E1LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C1LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__E1LH=next__C1LH;
-        };
-      };
-      ptr__R4B=result__E1LH;
-    };
-    result__Q4B=((__TYPE_ID *)ptr__R4B);
-    *(result__Q4B) = *(TYPE_ID__);
-  };
-  create__with__CRB(((__TYPE_ID *)result__Q4B), 0);
-  add_last__K5R(list_id__CBB,result__Q4B);
-  if (is_short_recursive__JB) {
-    directory_list__YB=create__ZBB( 100);
-    file_list__0B=create__ZBB( 100);
-    current_list__2B=create__ZBB( 100);
-    __tmp__4B=input_name__3B;
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    ent__TB=get_entry__DZAC(__tmp__4B);
-    if (((void *)ent__TB == (void *)NULL)) {
-      __tmp__JC=TRUE__;
-    } else {
-      if (((struct ___OBJ *)ent__TB)->__id==__DIRECTORY_UNIX__) {
-        Self__NLSD=((__DIRECTORY_UNIX *)ent__TB);
-        dir__PLSD=Self__NLSD;
-        __tmp__FC=((void *)Self__NLSD != (void *)NULL);
-      } else {
-        dir__XLSD=NULL;
-        __tmp__FC=FALSE__;
-      };
-      __tmp__JC=(! __tmp__FC);
-    };
-    if (__tmp__JC) {
-      print__OJD((&__string_169));
-      print__OJD(input_name__3B);
-      print__OJD((&__string_170));
-      exit(( 1));
-    };
-    if (((struct ___OBJ *)ent__TB)->__id==__DIRECTORY_UNIX__) {
-      __tmp__UC=open__WHRD(ent__TB);
-    } else {
-      Self__1LRD=((__FILE_UNIX *)ent__TB);
-      Self__1LRD->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__1LRD->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
-      __tmp__UC=(Self__1LRD->stream__BMRD != (void *)NULL);
-    };
-    if ((! __tmp__UC)) {
-      print__OJD((&__string_169));
-      print__OJD(input_name__3B);
-      print__OJD((&__string_171));
-      exit(( 1));
-    };
-    if (ent__TB==NULL) {
-      __tmp__AD=NULL;
-    } else {
-      switch (((struct ___OBJ *)ent__TB)->__id) {
-      case __DIRECTORY_UNIX__: {
-        __tmp__AD=((void *)ent__TB);
-      } break;
-      case __FILE_UNIX__: {
-        __tmp__AD=NULL;
-      } break;
-      }
-    };
-    dir__SB=__tmp__AD;
-    check_in__begin__ZQQC(__tmp__AD,(__INTEGER)(((__STRING_CONSTANT *)((__DIRECTORY_UNIX *)__tmp__AD)->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->count__DD +  1));
-    if (fast_has__IDT(result__2PH,(&__string_150))) {
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_150)))->first_link__OTEC)->item__L0HD;
-      Self__HX1G=((__STRING_CONSTANT *)txt__1);
-      new__IX1G=create__ZBB(Self__HX1G->count__DD);
-      copy__VDS(new__IX1G,Self__HX1G);
-      copy__VDS(string_tmp__VH,(&__string_150));
-      if (fast_has__IDT(result__2PH,(&__string_116))) {
-        append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
-      } else {
-        append__3OS(string_tmp__VH,(&__string_172));
-      };
-      save_file__with__3DC(get__YWB(string_tmp__VH),new__IX1G);
-    };
-    if (fast_has__IDT(result__2PH,(&__string_66))) {
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_66)))->first_link__OTEC)->item__L0HD;
-      Self__JX1G=((__STRING_CONSTANT *)txt__1);
-      new__KX1G=create__ZBB(Self__JX1G->count__DD);
-      copy__VDS(new__KX1G,Self__JX1G);
-      copy__VDS(string_tmp__VH,(&__string_66));
-      if (fast_has__IDT(result__2PH,(&__string_116))) {
-        append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
-      } else {
-        append__3OS(string_tmp__VH,(&__string_172));
-      };
-      save_file__with__3DC(get__YWB(string_tmp__VH),new__KX1G);
-    };
-    if (fast_has__IDT(result__2PH,(&__string_151))) {
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_151)))->first_link__OTEC)->item__L0HD;
-      Self__PHHH=((__STRING *)directory_list__YB);
-      i__QHHH=Self__PHHH->count__SGC;
-      j__SHHH=((__STRING_CONSTANT *)txt__1)->count__DD;
-      resize__1VZ(Self__PHHH,(__INTEGER)(i__QHHH + j__SHHH));
-      if (((i__QHHH >  0) && (j__SHHH >  0))) {
-        move__to__by__LVCC(Self__PHHH->storage__3CS, 0,(__INTEGER)(i__QHHH -  1),j__SHHH);
-      };
-      Self__J1LH=((__CHARACTER *)Self__PHHH->storage__3CS);
-      model__K1LH=((__STRING_CONSTANT *)txt__1)->storage__RRO;
-      Self__I1LH=(__INTEGER)(j__SHHH -  1);
-      while ((Self__I1LH >=  0)) {
-        Self__J1LH[Self__I1LH]=((__CHARACTER *)model__K1LH)[Self__I1LH];
-        Self__I1LH=(__INTEGER)(Self__I1LH -  1);
-      };
-    };
-    Self__CUVB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__2PH);
-    node__MUVB=((void **)Self__CUVB->buckets__1DT)[(__INTEGER)(hash_code__RNW((&__string_153)) % Self__CUVB->capacity__WDT)];
-    while ((! (((void *)node__MUVB == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MUVB)->key__HET,(&__string_153))))) {
-      node__MUVB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MUVB)->next__SET;
-    };
-    if (((void *)node__MUVB != (void *)NULL)) {
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)at__JK4(result__2PH,(&__string_153)))->first_link__OTEC)->item__L0HD;
-      append__3OS(directory_list__YB,txt__1);
-    };
-    copy__VDS(string_tmp__VH,(&__string_173));
-    if (fast_has__IDT(result__2PH,(&__string_116))) {
-      append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
-    } else {
-      append__3OS(string_tmp__VH,(&__string_172));
-    };
-    save_file__with__3DC(get__YWB(string_tmp__VH),directory_list__YB);
-    if (fast_has__IDT(result__2PH,(&__string_154))) {
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_154)))->first_link__OTEC)->item__L0HD;
-      Self__THHH=((__STRING *)file_list__0B);
-      i__UHHH=Self__THHH->count__SGC;
-      j__WHHH=((__STRING_CONSTANT *)txt__1)->count__DD;
-      resize__1VZ(Self__THHH,(__INTEGER)(i__UHHH + j__WHHH));
-      if (((i__UHHH >  0) && (j__WHHH >  0))) {
-        move__to__by__LVCC(Self__THHH->storage__3CS, 0,(__INTEGER)(i__UHHH -  1),j__WHHH);
-      };
-      Self__O1LH=((__CHARACTER *)Self__THHH->storage__3CS);
-      model__P1LH=((__STRING_CONSTANT *)txt__1)->storage__RRO;
-      Self__N1LH=(__INTEGER)(j__WHHH -  1);
-      while ((Self__N1LH >=  0)) {
-        Self__O1LH[Self__N1LH]=((__CHARACTER *)model__P1LH)[Self__N1LH];
-        Self__N1LH=(__INTEGER)(Self__N1LH -  1);
-      };
-    };
-    if (fast_has__IDT(result__2PH,(&__string_156))) {
-      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_156)))->first_link__OTEC)->item__L0HD;
-      append__3OS(file_list__0B,txt__1);
-    };
-    copy__VDS(string_tmp__VH,(&__string_174));
-    if (fast_has__IDT(result__2PH,(&__string_116))) {
-      append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
-    } else {
-      append__3OS(string_tmp__VH,(&__string_172));
-    };
-    save_file__with__3DC(get__YWB(string_tmp__VH),file_list__0B);
-  } else {
-    if ((! has_suffix__QJS(input_name__3B))) {
-      copy__VDS(string_tmp__VH,input_name__3B);
-      append__3OS(string_tmp__VH,(&__string_159));
-      input_name__3B=get__YWB(string_tmp__VH);
-    };
-    __tmp__2H=input_name__3B;
-    copy__VDS(string_tmp__VH,input_name__3B);
-    replace_all__with__CRS(string_tmp__VH,'\\','/');
-    i__BAC=last_index__NTC(string_tmp__VH,'/');
-    if ((i__BAC >=  1)) {
-      Self__XHHH=((__STRING *)string_tmp__VH);
-      if ((i__BAC > Self__XHHH->count__SGC)) {
-        Self__XHHH->count__SGC= 0;
-      } else {
-        if ((i__BAC >  0)) {
-          remove_between__to__MIT(Self__XHHH, 1,i__BAC);
-        };
-      };
-    };
-    i__BAC=last_index__NTC(string_tmp__VH,'.');
-    Self__2VGH=((__STRING *)string_tmp__VH);
-    n__3VGH=(__INTEGER)((__INTEGER)(((__STRING *)string_tmp__VH)->count__SGC - i__BAC) +  1);
-    if ((n__3VGH > Self__2VGH->count__SGC)) {
-      Self__2VGH->count__SGC= 0;
-    } else {
-      Self__2VGH->count__SGC=(__INTEGER)(Self__2VGH->count__SGC - n__3VGH);
-    };
-    to_upper__PTS(string_tmp__VH);
-    proto_input__BI=create__name__generic_count__JBC(__tmp__2H,get__YWB(string_tmp__VH));
-    go_on__SBC(proto_input__BI);
-    if (((void *)output_name__DI == (void *)NULL)) {
-      copy__VDS(string_tmp__VH,((__PROTOTYPE *)proto_input__BI)->parent_named__5.name__LI);
-      if (fast_has__IDT(result__2PH,(&__string_116))) {
-        append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
-      } else {
-        append__3OS(string_tmp__VH,(&__string_172));
-      };
-      output_name__DI=get__YWB(string_tmp__VH);
-    };
-    save_file__with__3DC(output_name__DI,output_code__SI);
-  };
-  if (is_shorter2__VI) {
-    Self__30QC= 0;
-    limit_up__40QC=result__JPJ->parent_arrayed_collection__AJ.upper__HJ;
-    while ((Self__30QC <= limit_up__40QC)) {
-      p__AB=((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[Self__30QC];
-      ((__STRING *)output_code__SI)->count__SGC= 0;
-      Self__XMTD=((__PROTOTYPE *)p__AB);
-      title__ZMTD=NULL;
-      s__0MTD=NULL;
-      put__to__like__X4XD(Self__XMTD->parent_named__5.name__LI,output_code__SI,(&__string_140));
-      if (((void *)Self__XMTD->comment_slot__YRTC != (void *)NULL)) {
-        put__to__like__X4XD(Self__XMTD->comment_slot__YRTC,output_code__SI,(&__string_138));
-      };
-      if (((void *)Self__XMTD->comment_header__Q4QC != (void *)NULL)) {
-        put__to__like__X4XD(Self__XMTD->comment_header__Q4QC,output_code__SI,(&__string_139));
-      };
-      ((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(-  1);
-      shorter_get_all_slot_in__ZAYD(Self__XMTD,list_tmp__YNTD);
-      s__CHYD=NULL;
-      is_first_cur__BHYD=TRUE__;
-      __tmp__GHYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__2G5D= 0;
-      while ((Self__2G5D <= __tmp__GHYD)) {
-        s__CHYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__2G5D];
-        if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-          __tmp__BOTD=((__ITM_SLOT *)s__CHYD)->id_section__T3C;
-        } else {
-          __tmp__BOTD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.id_section__T3C;
-        };
-        Self__RL2G=((__SECTION_ *)__tmp__BOTD);
-        if ((((void *)Self__RL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__RL2G->name__MYDC == (void *)(&__string_24)))) {
-          if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-            __tmp__THYD=((__ITM_SLOT *)s__CHYD)->stat_shorter__4OTD;
-          } else {
-            __tmp__THYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-          };
-          __tmp__WHYD=(__tmp__THYD ==  0);
-        } else {
-          __tmp__WHYD=FALSE__;
-        };
-        if (__tmp__WHYD) {
-          if (is_first_cur__BHYD) {
-            if (((void *)(&__string_175) == (void *)NULL)) {
-              put__to__like__X4XD((&__string_176),output_code__SI,(&__string_141));
-            } else {
-              put__to__like__X4XD((&__string_175),output_code__SI,(&__string_141));
-            };
-            is_first_cur__BHYD=FALSE__;
-          };
-          if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-            ((__ITM_SLOT *)s__CHYD)->stat_shorter__4OTD= 1;
-          } else {
-            ((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 1;
-          };
-          ((__STRING *)string_tmp__VH)->count__SGC= 0;
-          ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-          if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__FY4F(s__CHYD,string_tmp2__GCJ);
-          } else {
-            pretty_name_in__0Z4F(s__CHYD,string_tmp2__GCJ);
-          };
-          put__to__like__X4XD(string_tmp2__GCJ,string_tmp__VH,(&__string_143));
-          if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-            __tmp__1IYD=((__ITM_SLOT *)s__CHYD)->id_section__T3C;
-          } else {
-            __tmp__1IYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.id_section__T3C;
-          };
-          Self__SL2G=((__SECTION_ *)__tmp__1IYD);
-          if ((((void *)Self__SL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__SL2G->name__MYDC == (void *)(&__string_24)))) {
-            if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-              __tmp__CJYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.style__0FU;
-            } else {
-              __tmp__CJYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
-            };
-            if ((__tmp__CJYD != '+')) {
-              __tmp__YJYD=TRUE__;
-            } else {
-              if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-                __tmp__JJYD=((__ITM_SLOT *)s__CHYD)->result_type__A4FC;
-              } else {
-                __tmp__JJYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.result_type__A4FC;
-              };
-              if (__tmp__JJYD==NULL) {
-                __tmp__LJYD=NULL;
-              } else {
-                switch (((struct ___OBJ *)__tmp__JJYD)->__id) {
-                case __ITM_TYPE_PARAMETER__: {
-                  __tmp__LJYD=((void *)__tmp__JJYD);
-                } break;
-                case __ITM_TYPE_SIMPLE__: {
-                  __tmp__LJYD=((void *)__tmp__JJYD);
-                } break;
-                case __ITM_TYPE_MULTI__: {
-                  __tmp__LJYD=NULL;
-                } break;
-                case __ITM_TYPE_BLOCK__: {
-                  __tmp__LJYD=NULL;
-                } break;
-                case __ITM_TYPE_GENERIC__: {
-                  __tmp__LJYD=((void *)__tmp__JJYD);
-                } break;
-                case __ITM_TYPE_STYLE__: {
-                  __tmp__LJYD=((void *)__tmp__JJYD);
-                } break;
-                }
-              };
-              ts__IJYD=__tmp__LJYD;
-              if (((void *)__tmp__LJYD == (void *)NULL)) {
-                __tmp__VJYD=TRUE__;
-              } else {
-                switch (((struct ___OBJ *)__tmp__LJYD)->__id) {
-                case __ITM_TYPE_PARAMETER__: {
-                  __tmp__RJYD=NULL;
-                } break;
-                case __ITM_TYPE_SIMPLE__: {
-                  __tmp__RJYD=NULL;
-                } break;
-                case __ITM_TYPE_GENERIC__: {
-                  __tmp__RJYD=((__ITM_TYPE_GENERIC *)__tmp__LJYD)->parent_itm_type_style__4SN.style__PZP;
-                } break;
-                case __ITM_TYPE_STYLE__: {
-                  __tmp__RJYD=((__ITM_TYPE_STYLE *)__tmp__LJYD)->style__PZP;
-                } break;
-                };
-                __tmp__VJYD=((void *)__tmp__RJYD != (void *)(&__string_9));
-              };
-              __tmp__YJYD=__tmp__VJYD;
-            };
-            if (__tmp__YJYD) {
-              if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-                __tmp__4JYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.name__LI;
-              } else {
-                __tmp__4JYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-              };
-              __tmp__MKYD=(! has_prefix__OTTF(__tmp__4JYD,(&__string_177)));
-            } else {
-              __tmp__MKYD=FALSE__;
-            };
-            if (__tmp__MKYD) {
-              if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-                __tmp__HKYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.name__LI;
-              } else {
-                __tmp__HKYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-              };
-              __tmp__NKYD=(! has_prefix__OTTF(__tmp__HKYD,(&__string_178)));
-            } else {
-              __tmp__NKYD=FALSE__;
-            };
-            __tmp__QKYD=__tmp__NKYD;
-          } else {
-            __tmp__QKYD=FALSE__;
-          };
-          if (__tmp__QKYD) {
-            put__to__like__X4XD((&__string_179),string_tmp__VH,(&__string_135));
-          };
-          ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-          if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
-            __tmp__2KYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__2KYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__2KYD,string_tmp2__GCJ);
-          ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
-          shorter_comment__in__light__CP4E(string_tmp2__GCJ,string_tmp3__HUD,TRUE__);
-          put__to__like__X4XD(string_tmp3__HUD,string_tmp__VH,(&__string_144));
-          put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_142));
-        };
-        Self__2G5D=(__INTEGER)(Self__2G5D +  1);
-      };
-      if ((! is_first_cur__BHYD)) {
-        put__to__like__X4XD(NULL,output_code__SI,(&__string_145));
-      };
-      s__1LYD=NULL;
-      is_first_cur__0LYD=TRUE__;
-      __tmp__5LYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__OH5D= 0;
-      while ((Self__OH5D <= __tmp__5LYD)) {
-        s__1LYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__OH5D];
-        if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-          __tmp__LOTD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
-        } else {
-          __tmp__LOTD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-        };
-        if (has_prefix__OTTF(__tmp__LOTD,(&__string_180))) {
-          if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-            __tmp__MMYD=((__ITM_SLOT *)s__1LYD)->stat_shorter__4OTD;
-          } else {
-            __tmp__MMYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-          };
-          __tmp__PMYD=(__tmp__MMYD ==  0);
-        } else {
-          __tmp__PMYD=FALSE__;
-        };
-        if (__tmp__PMYD) {
-          if (is_first_cur__0LYD) {
-            if (((void *)(&__string_181) == (void *)NULL)) {
-              put__to__like__X4XD((&__string_176),output_code__SI,(&__string_141));
-            } else {
-              put__to__like__X4XD((&__string_181),output_code__SI,(&__string_141));
-            };
-            is_first_cur__0LYD=FALSE__;
-          };
-          if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-            ((__ITM_SLOT *)s__1LYD)->stat_shorter__4OTD= 1;
-          } else {
-            ((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 1;
-          };
-          ((__STRING *)string_tmp__VH)->count__SGC= 0;
-          ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-          if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__FY4F(s__1LYD,string_tmp2__GCJ);
-          } else {
-            pretty_name_in__0Z4F(s__1LYD,string_tmp2__GCJ);
-          };
-          put__to__like__X4XD(string_tmp2__GCJ,string_tmp__VH,(&__string_143));
-          if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-            __tmp__UNYD=((__ITM_SLOT *)s__1LYD)->id_section__T3C;
-          } else {
-            __tmp__UNYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.id_section__T3C;
-          };
-          Self__TL2G=((__SECTION_ *)__tmp__UNYD);
-          if ((((void *)Self__TL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__TL2G->name__MYDC == (void *)(&__string_24)))) {
-            if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-              __tmp__1NYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.style__0FU;
-            } else {
-              __tmp__1NYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
-            };
-            if ((__tmp__1NYD != '+')) {
-              __tmp__ROYD=TRUE__;
-            } else {
-              if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-                __tmp__COYD=((__ITM_SLOT *)s__1LYD)->result_type__A4FC;
-              } else {
-                __tmp__COYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.result_type__A4FC;
-              };
-              if (__tmp__COYD==NULL) {
-                __tmp__EOYD=NULL;
-              } else {
-                switch (((struct ___OBJ *)__tmp__COYD)->__id) {
-                case __ITM_TYPE_PARAMETER__: {
-                  __tmp__EOYD=((void *)__tmp__COYD);
-                } break;
-                case __ITM_TYPE_SIMPLE__: {
-                  __tmp__EOYD=((void *)__tmp__COYD);
-                } break;
-                case __ITM_TYPE_MULTI__: {
-                  __tmp__EOYD=NULL;
-                } break;
-                case __ITM_TYPE_BLOCK__: {
-                  __tmp__EOYD=NULL;
-                } break;
-                case __ITM_TYPE_GENERIC__: {
-                  __tmp__EOYD=((void *)__tmp__COYD);
-                } break;
-                case __ITM_TYPE_STYLE__: {
-                  __tmp__EOYD=((void *)__tmp__COYD);
-                } break;
-                }
-              };
-              ts__BOYD=__tmp__EOYD;
-              if (((void *)__tmp__EOYD == (void *)NULL)) {
-                __tmp__OOYD=TRUE__;
-              } else {
-                switch (((struct ___OBJ *)__tmp__EOYD)->__id) {
-                case __ITM_TYPE_PARAMETER__: {
-                  __tmp__KOYD=NULL;
-                } break;
-                case __ITM_TYPE_SIMPLE__: {
-                  __tmp__KOYD=NULL;
-                } break;
-                case __ITM_TYPE_GENERIC__: {
-                  __tmp__KOYD=((__ITM_TYPE_GENERIC *)__tmp__EOYD)->parent_itm_type_style__4SN.style__PZP;
-                } break;
-                case __ITM_TYPE_STYLE__: {
-                  __tmp__KOYD=((__ITM_TYPE_STYLE *)__tmp__EOYD)->style__PZP;
-                } break;
-                };
-                __tmp__OOYD=((void *)__tmp__KOYD != (void *)(&__string_9));
-              };
-              __tmp__ROYD=__tmp__OOYD;
-            };
-            if (__tmp__ROYD) {
-              if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-                __tmp__XOYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
-              } else {
-                __tmp__XOYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-              };
-              __tmp__FPYD=(! has_prefix__OTTF(__tmp__XOYD,(&__string_177)));
-            } else {
-              __tmp__FPYD=FALSE__;
-            };
-            if (__tmp__FPYD) {
-              if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-                __tmp__APYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
-              } else {
-                __tmp__APYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-              };
-              __tmp__GPYD=(! has_prefix__OTTF(__tmp__APYD,(&__string_178)));
-            } else {
-              __tmp__GPYD=FALSE__;
-            };
-            __tmp__JPYD=__tmp__GPYD;
-          } else {
-            __tmp__JPYD=FALSE__;
-          };
-          if (__tmp__JPYD) {
-            put__to__like__X4XD((&__string_179),string_tmp__VH,(&__string_135));
-          };
-          ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-          if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
-            __tmp__VPYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__VPYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__VPYD,string_tmp2__GCJ);
-          ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
-          shorter_comment__in__light__CP4E(string_tmp2__GCJ,string_tmp3__HUD,TRUE__);
-          put__to__like__X4XD(string_tmp3__HUD,string_tmp__VH,(&__string_144));
-          put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_142));
-        };
-        Self__OH5D=(__INTEGER)(Self__OH5D +  1);
-      };
-      if ((! is_first_cur__0LYD)) {
-        put__to__like__X4XD(NULL,output_code__SI,(&__string_145));
-      };
-      __tmp__WOTD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__PQYD= 0;
-      while ((Self__PQYD <= __tmp__WOTD)) {
-        s__0MTD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__PQYD];
-        if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
-          __tmp__5OTD=((__ITM_SLOT *)s__0MTD)->stat_shorter__4OTD;
-        } else {
-          __tmp__5OTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-        };
-        if ((__tmp__5OTD ==  0)) {
-          if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
-            __tmp__FPTD=((__ITM_SLOT *)s__0MTD)->comment_chapter__S0HC;
-          } else {
-            __tmp__FPTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.comment_chapter__S0HC;
-          };
-          title__ZMTD=__tmp__FPTD;
-          t__VBRE=__tmp__FPTD;
-          s__YBRE=NULL;
-          is_first_cur__XBRE=TRUE__;
-          __tmp__2BRE=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-          Self__GKSE= 0;
-          while ((Self__GKSE <= __tmp__2BRE)) {
-            s__YBRE=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__GKSE];
-            if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-              __tmp__MPTD=((__ITM_SLOT *)s__YBRE)->comment_chapter__S0HC;
-            } else {
-              __tmp__MPTD=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.comment_chapter__S0HC;
-            };
-            if (((void *)__tmp__MPTD == (void *)title__ZMTD)) {
-              if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                __tmp__JCRE=((__ITM_SLOT *)s__YBRE)->stat_shorter__4OTD;
-              } else {
-                __tmp__JCRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-              };
-              __tmp__MCRE=(__tmp__JCRE ==  0);
-            } else {
-              __tmp__MCRE=FALSE__;
-            };
-            if (__tmp__MCRE) {
-              if (is_first_cur__XBRE) {
-                if (((void *)t__VBRE == (void *)NULL)) {
-                  put__to__like__X4XD((&__string_176),output_code__SI,(&__string_141));
-                } else {
-                  put__to__like__X4XD(t__VBRE,output_code__SI,(&__string_141));
-                };
-                is_first_cur__XBRE=FALSE__;
-              };
-              if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                ((__ITM_SLOT *)s__YBRE)->stat_shorter__4OTD= 1;
-              } else {
-                ((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.stat_shorter__4OTD= 1;
-              };
-              ((__STRING *)string_tmp__VH)->count__SGC= 0;
-              ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-              if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                pretty_name_in__FY4F(s__YBRE,string_tmp2__GCJ);
-              } else {
-                pretty_name_in__0Z4F(s__YBRE,string_tmp2__GCJ);
-              };
-              put__to__like__X4XD(string_tmp2__GCJ,string_tmp__VH,(&__string_143));
-              if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                __tmp__RDRE=((__ITM_SLOT *)s__YBRE)->id_section__T3C;
-              } else {
-                __tmp__RDRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.id_section__T3C;
-              };
-              Self__UL2G=((__SECTION_ *)__tmp__RDRE);
-              if ((((void *)Self__UL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__UL2G->name__MYDC == (void *)(&__string_24)))) {
-                if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                  __tmp__YDRE=((__ITM_SLOT *)s__YBRE)->parent_named__15.style__0FU;
-                } else {
-                  __tmp__YDRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
-                };
-                if ((__tmp__YDRE != '+')) {
-                  __tmp__OERE=TRUE__;
-                } else {
-                  if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                    __tmp__5DRE=((__ITM_SLOT *)s__YBRE)->result_type__A4FC;
-                  } else {
-                    __tmp__5DRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.result_type__A4FC;
-                  };
-                  if (__tmp__5DRE==NULL) {
-                    __tmp__BERE=NULL;
-                  } else {
-                    switch (((struct ___OBJ *)__tmp__5DRE)->__id) {
-                    case __ITM_TYPE_PARAMETER__: {
-                      __tmp__BERE=((void *)__tmp__5DRE);
-                    } break;
-                    case __ITM_TYPE_SIMPLE__: {
-                      __tmp__BERE=((void *)__tmp__5DRE);
-                    } break;
-                    case __ITM_TYPE_MULTI__: {
-                      __tmp__BERE=NULL;
-                    } break;
-                    case __ITM_TYPE_BLOCK__: {
-                      __tmp__BERE=NULL;
-                    } break;
-                    case __ITM_TYPE_GENERIC__: {
-                      __tmp__BERE=((void *)__tmp__5DRE);
-                    } break;
-                    case __ITM_TYPE_STYLE__: {
-                      __tmp__BERE=((void *)__tmp__5DRE);
-                    } break;
-                    }
-                  };
-                  ts__4DRE=__tmp__BERE;
-                  if (((void *)__tmp__BERE == (void *)NULL)) {
-                    __tmp__LERE=TRUE__;
-                  } else {
-                    switch (((struct ___OBJ *)__tmp__BERE)->__id) {
-                    case __ITM_TYPE_PARAMETER__: {
-                      __tmp__HERE=NULL;
-                    } break;
-                    case __ITM_TYPE_SIMPLE__: {
-                      __tmp__HERE=NULL;
-                    } break;
-                    case __ITM_TYPE_GENERIC__: {
-                      __tmp__HERE=((__ITM_TYPE_GENERIC *)__tmp__BERE)->parent_itm_type_style__4SN.style__PZP;
-                    } break;
-                    case __ITM_TYPE_STYLE__: {
-                      __tmp__HERE=((__ITM_TYPE_STYLE *)__tmp__BERE)->style__PZP;
-                    } break;
-                    };
-                    __tmp__LERE=((void *)__tmp__HERE != (void *)(&__string_9));
-                  };
-                  __tmp__OERE=__tmp__LERE;
-                };
-                if (__tmp__OERE) {
-                  if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                    __tmp__UERE=((__ITM_SLOT *)s__YBRE)->parent_named__15.name__LI;
-                  } else {
-                    __tmp__UERE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-                  };
-                  __tmp__CFRE=(! has_prefix__OTTF(__tmp__UERE,(&__string_177)));
-                } else {
-                  __tmp__CFRE=FALSE__;
-                };
-                if (__tmp__CFRE) {
-                  if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                    __tmp__3ERE=((__ITM_SLOT *)s__YBRE)->parent_named__15.name__LI;
-                  } else {
-                    __tmp__3ERE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-                  };
-                  __tmp__DFRE=(! has_prefix__OTTF(__tmp__3ERE,(&__string_178)));
-                } else {
-                  __tmp__DFRE=FALSE__;
-                };
-                __tmp__GFRE=__tmp__DFRE;
-              } else {
-                __tmp__GFRE=FALSE__;
-              };
-              if (__tmp__GFRE) {
-                put__to__like__X4XD((&__string_179),string_tmp__VH,(&__string_135));
-              };
-              ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-              if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
-                __tmp__SFRE=((__ITM_SLOT *)s__YBRE)->parent_named__15.name__LI;
-              } else {
-                __tmp__SFRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-              };
-              get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__SFRE,string_tmp2__GCJ);
-              ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
-              shorter_comment__in__light__CP4E(string_tmp2__GCJ,string_tmp3__HUD,TRUE__);
-              put__to__like__X4XD(string_tmp3__HUD,string_tmp__VH,(&__string_144));
-              put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_142));
-            };
-            Self__GKSE=(__INTEGER)(Self__GKSE +  1);
-          };
-          if ((! is_first_cur__XBRE)) {
-            put__to__like__X4XD(NULL,output_code__SI,(&__string_145));
-          };
-        };
-        Self__PQYD=(__INTEGER)(Self__PQYD +  1);
-      };
-      s__DRYD=NULL;
-      is_first__CRYD=TRUE__;
-      __tmp__HRYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__JI5D= 0;
-      while ((Self__JI5D <= __tmp__HRYD)) {
-        s__DRYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__JI5D];
-        if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-          __tmp__YPTD=((__ITM_SLOT *)s__DRYD)->id_section__T3C;
-        } else {
-          __tmp__YPTD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.id_section__T3C;
-        };
-        Self__VL2G=((__SECTION_ *)__tmp__YPTD);
-        if ((((void *)Self__VL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__VL2G->name__MYDC == (void *)(&__string_24)))) {
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            __tmp__URYD=((__ITM_SLOT *)s__DRYD)->stat_shorter__4OTD;
-          } else {
-            __tmp__URYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-          };
-          __tmp__XRYD=(__tmp__URYD ==  1);
-        } else {
-          __tmp__XRYD=FALSE__;
-        };
-        if (__tmp__XRYD) {
-          if (is_first__CRYD) {
-            if (((void *)(&__string_182) == (void *)NULL)) {
-              put__to__like__X4XD((&__string_183),output_code__SI,(&__string_146));
-            } else {
-              put__to__like__X4XD((&__string_182),output_code__SI,(&__string_146));
-            };
-            is_first__CRYD=FALSE__;
-          };
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            ((__ITM_SLOT *)s__DRYD)->stat_shorter__4OTD= 2;
-          } else {
-            ((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 2;
-          };
-          ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__FY4F(s__DRYD,string_tmp2__GCJ);
-          } else {
-            pretty_name_in__0Z4F(s__DRYD,string_tmp2__GCJ);
-          };
-          put__to__like__X4XD(string_tmp2__GCJ,output_code__SI,(&__string_147));
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            __tmp__1SYD=((__ITM_SLOT *)s__DRYD)->parent_named__15.parent_itm_object__4.position__SFJ;
-          } else {
-            __tmp__1SYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-          };
-          copy__VDS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__1SYD)) &  511)])->filename__FSG);
-          append__3OS(string_tmp__VH,(&__string_184));
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            __tmp__ATYD=((__ITM_SLOT *)s__DRYD)->parent_named__15.parent_itm_object__4.position__SFJ;
-          } else {
-            __tmp__ATYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-          };
-          append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__ATYD) >>  17),string_tmp__VH);
-          put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_149));
-          put__to__like__X4XD((&__string_185),output_code__SI,(&__string_148));
-          ((__STRING *)string_tmp__VH)->count__SGC= 0;
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            __tmp__JTYD=((__ITM_SLOT *)s__DRYD)->id_section__T3C;
-          } else {
-            __tmp__JTYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.id_section__T3C;
-          };
-          append_in__S14F(__tmp__JTYD,string_tmp__VH);
-          put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_120));
-          put__to__like__X4XD((&__string_186),output_code__SI,(&__string_148));
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            shorter_profile_in__U24F(s__DRYD,output_code__SI);
-          } else {
-            shorter_profile_in__R34F(s__DRYD,output_code__SI);
-          };
-          ((__STRING *)string_tmp__VH)->count__SGC= 0;
-          if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
-            __tmp__RTYD=((__ITM_SLOT *)s__DRYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__RTYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__RTYD,string_tmp__VH);
-          shorter_comment__in__light__CP4E(string_tmp__VH,output_code__SI,FALSE__);
-        };
-        Self__JI5D=(__INTEGER)(Self__JI5D +  1);
-      };
-      s__5TYD=NULL;
-      is_first__4TYD=TRUE__;
-      __tmp__DUYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__YI5D= 0;
-      while ((Self__YI5D <= __tmp__DUYD)) {
-        s__5TYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__YI5D];
-        if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-          __tmp__CQTD=((__ITM_SLOT *)s__5TYD)->parent_named__15.name__LI;
-        } else {
-          __tmp__CQTD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-        };
-        if (has_prefix__OTTF(__tmp__CQTD,(&__string_180))) {
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            __tmp__QUYD=((__ITM_SLOT *)s__5TYD)->stat_shorter__4OTD;
-          } else {
-            __tmp__QUYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-          };
-          __tmp__TUYD=(__tmp__QUYD ==  1);
-        } else {
-          __tmp__TUYD=FALSE__;
-        };
-        if (__tmp__TUYD) {
-          if (is_first__4TYD) {
-            if (((void *)(&__string_187) == (void *)NULL)) {
-              put__to__like__X4XD((&__string_183),output_code__SI,(&__string_146));
-            } else {
-              put__to__like__X4XD((&__string_187),output_code__SI,(&__string_146));
-            };
-            is_first__4TYD=FALSE__;
-          };
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            ((__ITM_SLOT *)s__5TYD)->stat_shorter__4OTD= 2;
-          } else {
-            ((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 2;
-          };
-          ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            pretty_name_in__FY4F(s__5TYD,string_tmp2__GCJ);
-          } else {
-            pretty_name_in__0Z4F(s__5TYD,string_tmp2__GCJ);
-          };
-          put__to__like__X4XD(string_tmp2__GCJ,output_code__SI,(&__string_147));
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            __tmp__XVYD=((__ITM_SLOT *)s__5TYD)->parent_named__15.parent_itm_object__4.position__SFJ;
-          } else {
-            __tmp__XVYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-          };
-          copy__VDS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__XVYD)) &  511)])->filename__FSG);
-          append__3OS(string_tmp__VH,(&__string_184));
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            __tmp__2VYD=((__ITM_SLOT *)s__5TYD)->parent_named__15.parent_itm_object__4.position__SFJ;
-          } else {
-            __tmp__2VYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-          };
-          append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__2VYD) >>  17),string_tmp__VH);
-          put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_149));
-          put__to__like__X4XD((&__string_185),output_code__SI,(&__string_148));
-          ((__STRING *)string_tmp__VH)->count__SGC= 0;
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            __tmp__FWYD=((__ITM_SLOT *)s__5TYD)->id_section__T3C;
-          } else {
-            __tmp__FWYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.id_section__T3C;
-          };
-          append_in__S14F(__tmp__FWYD,string_tmp__VH);
-          put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_120));
-          put__to__like__X4XD((&__string_186),output_code__SI,(&__string_148));
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            shorter_profile_in__U24F(s__5TYD,output_code__SI);
-          } else {
-            shorter_profile_in__R34F(s__5TYD,output_code__SI);
-          };
-          ((__STRING *)string_tmp__VH)->count__SGC= 0;
-          if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
-            __tmp__NWYD=((__ITM_SLOT *)s__5TYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__NWYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__NWYD,string_tmp__VH);
-          shorter_comment__in__light__CP4E(string_tmp__VH,output_code__SI,FALSE__);
-        };
-        Self__YI5D=(__INTEGER)(Self__YI5D +  1);
-      };
-      __tmp__LQTD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__WWYD= 0;
-      while ((Self__WWYD <= __tmp__LQTD)) {
-        s__0MTD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__WWYD];
-        if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
-          __tmp__TQTD=((__ITM_SLOT *)s__0MTD)->stat_shorter__4OTD;
-        } else {
-          __tmp__TQTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-        };
-        if ((__tmp__TQTD ==  1)) {
-          if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
-            __tmp__ZQTD=((__ITM_SLOT *)s__0MTD)->comment_chapter__S0HC;
-          } else {
-            __tmp__ZQTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.comment_chapter__S0HC;
-          };
-          title__ZMTD=__tmp__ZQTD;
-          t__OGRE=__tmp__ZQTD;
-          s__RGRE=NULL;
-          is_first__QGRE=TRUE__;
-          __tmp__VGRE=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-          Self__YKSE= 0;
-          while ((Self__YKSE <= __tmp__VGRE)) {
-            s__RGRE=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__YKSE];
-            if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-              __tmp__ARTD=((__ITM_SLOT *)s__RGRE)->comment_chapter__S0HC;
-            } else {
-              __tmp__ARTD=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.comment_chapter__S0HC;
-            };
-            if (((void *)__tmp__ARTD == (void *)title__ZMTD)) {
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                __tmp__CHRE=((__ITM_SLOT *)s__RGRE)->stat_shorter__4OTD;
-              } else {
-                __tmp__CHRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.stat_shorter__4OTD;
-              };
-              __tmp__FHRE=(__tmp__CHRE ==  1);
-            } else {
-              __tmp__FHRE=FALSE__;
-            };
-            if (__tmp__FHRE) {
-              if (is_first__QGRE) {
-                if (((void *)t__OGRE == (void *)NULL)) {
-                  put__to__like__X4XD((&__string_183),output_code__SI,(&__string_146));
-                } else {
-                  put__to__like__X4XD(t__OGRE,output_code__SI,(&__string_146));
-                };
-                is_first__QGRE=FALSE__;
-              };
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                ((__ITM_SLOT *)s__RGRE)->stat_shorter__4OTD= 2;
-              } else {
-                ((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.stat_shorter__4OTD= 2;
-              };
-              ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                pretty_name_in__FY4F(s__RGRE,string_tmp2__GCJ);
-              } else {
-                pretty_name_in__0Z4F(s__RGRE,string_tmp2__GCJ);
-              };
-              put__to__like__X4XD(string_tmp2__GCJ,output_code__SI,(&__string_147));
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                __tmp__JIRE=((__ITM_SLOT *)s__RGRE)->parent_named__15.parent_itm_object__4.position__SFJ;
-              } else {
-                __tmp__JIRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-              };
-              copy__VDS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__JIRE)) &  511)])->filename__FSG);
-              append__3OS(string_tmp__VH,(&__string_184));
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                __tmp__OIRE=((__ITM_SLOT *)s__RGRE)->parent_named__15.parent_itm_object__4.position__SFJ;
-              } else {
-                __tmp__OIRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-              };
-              append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__OIRE) >>  17),string_tmp__VH);
-              put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_149));
-              put__to__like__X4XD((&__string_185),output_code__SI,(&__string_148));
-              ((__STRING *)string_tmp__VH)->count__SGC= 0;
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                __tmp__XIRE=((__ITM_SLOT *)s__RGRE)->id_section__T3C;
-              } else {
-                __tmp__XIRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.id_section__T3C;
-              };
-              append_in__S14F(__tmp__XIRE,string_tmp__VH);
-              put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_120));
-              put__to__like__X4XD((&__string_186),output_code__SI,(&__string_148));
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                shorter_profile_in__U24F(s__RGRE,output_code__SI);
-              } else {
-                shorter_profile_in__R34F(s__RGRE,output_code__SI);
-              };
-              ((__STRING *)string_tmp__VH)->count__SGC= 0;
-              if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
-                __tmp__5IRE=((__ITM_SLOT *)s__RGRE)->parent_named__15.name__LI;
-              } else {
-                __tmp__5IRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-              };
-              get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__5IRE,string_tmp__VH);
-              shorter_comment__in__light__CP4E(string_tmp__VH,output_code__SI,FALSE__);
-            };
-            Self__YKSE=(__INTEGER)(Self__YKSE +  1);
-          };
-        };
-        Self__WWYD=(__INTEGER)(Self__WWYD +  1);
-      };
-      __tmp__LRTD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      Self__FXYD= 0;
-      __tmp__4VGH=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE;
-      while ((Self__FXYD <= __tmp__LRTD)) {
-        __tmp__SRTD=((void **)__tmp__4VGH)[Self__FXYD];
-        if (((struct ___OBJ *)__tmp__SRTD)->__id==__ITM_SLOT__) {
-          ((__ITM_SLOT *)__tmp__SRTD)->stat_shorter__4OTD= 0;
-        } else {
-          ((__ITM_SLOT_OPERATOR *)__tmp__SRTD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 0;
-        };
-        Self__FXYD=(__INTEGER)(Self__FXYD +  1);
-      };
-      copy__VDS(string_tmp__VH,((__PROTOTYPE *)p__AB)->parent_named__5.name__LI);
-      if (fast_has__IDT(short_dico__QD,(&__string_116))) {
-        append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_116)))->first_link__OTEC)->item__L0HD);
-      } else {
-        append__3OS(string_tmp__VH,(&__string_172));
-      };
-      save_file__with__3DC(get__YWB(string_tmp__VH),output_code__SI);
-      Self__30QC=(__INTEGER)(Self__30QC +  1);
-    };
-  };
-  return( 0);
-}
-
-static __STRING* create__ZBB(__INTEGER needed_capacity__1BB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __STRING *result__YSB,*Self__FCS;
-  __POINTER ptr__ZSB,ptr_table__S1LH,next__R1LH,result__T1LH;
-  __POINTER ptr_table__X1LH,next__W1LH,result__Y1LH;
-  __INTEGER typ_id__5SB;
-  __UINTEGER_32 sz__2SB,a__BWGH,new_size__CWGH,t__GWGH,a__FWGH;
-  __UINTEGER_32 new_size__01LH,lab_type__Z1LH;
-  result__YSB=NULL;
-  ptr__ZSB=((__POINTER )(NULL));
-  typ_id__5SB= 0;
-  sz__2SB=((__UINTEGER_32 )sizeof(__STRING));
-  if ((sz__2SB ==  0)) {
-    result__YSB=STRING__;
-  } else {
-    typ_id__5SB=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2SB);
-    if ((typ_id__5SB == (__INTEGER)(-  1))) {
-      a__BWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__CWGH=(__UINTEGER_32)((__UINTEGER_32)(sz__2SB + a__BWGH) & (__UINTEGER_32)(~ a__BWGH));
-      ptr_table__S1LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CWGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__R1LH=((__POINTER )(NULL));
-      result__T1LH=((__POINTER *)ptr_table__S1LH)[ 0];
-      if ((result__T1LH == (void *)NULL)) {
-        result__T1LH=new_lab__RTJ(new_size__CWGH);
-        next__R1LH=(void *)((unsigned long)result__T1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CWGH)));
-        ((__POINTER *)next__R1LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__S1LH)[ 0]=next__R1LH;
-      } else {
-        next__R1LH=((__POINTER *)result__T1LH)[ 0];
-        if ((next__R1LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T1LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CWGH <<  1)) <=  4096)) {
-            next__R1LH=(void *)((unsigned long)result__T1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CWGH)));
-          } else {
-            next__R1LH=new_lab__RTJ(new_size__CWGH);
-          };
-          ((__POINTER *)next__R1LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__S1LH)[ 0]=next__R1LH;
-        } else {
-          ((__POINTER *)result__T1LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R1LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__T1LH=next__R1LH;
-        };
-      };
-      ptr__ZSB=result__T1LH;
-    } else {
-      t__GWGH=((__UINTEGER_32 )typ_id__5SB);
-      a__FWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__01LH=(__UINTEGER_32)((__UINTEGER_32)(sz__2SB + a__FWGH) & (__UINTEGER_32)(~ a__FWGH));
-      ptr_table__X1LH=((__POINTER )(&(table_type[(t__GWGH)])));
-      lab_type__Z1LH=(__UINTEGER_32)(t__GWGH |  1);
-      next__W1LH=((__POINTER )(NULL));
-      result__Y1LH=((__POINTER *)ptr_table__X1LH)[ 0];
-      if ((result__Y1LH == (void *)NULL)) {
-        result__Y1LH=new_lab__RTJ(lab_type__Z1LH);
-        next__W1LH=(void *)((unsigned long)result__Y1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__01LH)));
-        ((__POINTER *)next__W1LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__X1LH)[ 0]=next__W1LH;
-      } else {
-        next__W1LH=((__POINTER *)result__Y1LH)[ 0];
-        if ((next__W1LH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y1LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__01LH <<  1)) <=  4096)) {
-            next__W1LH=(void *)((unsigned long)result__Y1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__01LH)));
-          } else {
-            next__W1LH=new_lab__RTJ(lab_type__Z1LH);
-          };
-          ((__POINTER *)next__W1LH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__X1LH)[ 0]=next__W1LH;
-        } else {
-          ((__POINTER *)result__Y1LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W1LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Y1LH=next__W1LH;
-        };
-      };
-      ptr__ZSB=result__Y1LH;
-    };
-    result__YSB=((__STRING *)ptr__ZSB);
-    *(result__YSB) = *(STRING__);
-  };
-  Self__FCS=((__STRING *)result__YSB);
-  if ((needed_capacity__1BB >  0)) {
-    if ((Self__FCS->capacity__UCS < needed_capacity__1BB)) {
-      Self__FCS->storage__3CS=create__YIEB(needed_capacity__1BB);
-      Self__FCS->capacity__UCS=needed_capacity__1BB;
-    };
-  };
-  Self__FCS->count__SGC= 0;
-  return(result__YSB);
-}
-
-static __POINTER new_lab__RTJ(__UINTEGER_32 t__TTJ)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 idx__VTJ,pv__2TJ;
-  void *blc__YTJ,*prev__ZTJ,*prev__L3HH,*next__M3HH;
-  __MEMORY *Self__4NAH,*Self__K3HH;
-  __POINTER result__0TJ;
-  __BOOLEAN __tmp__2UJ;
-  idx__VTJ= 0;
-  blc__YTJ=NULL;
-  prev__ZTJ=NULL;
-  pv__2TJ= 0;
-  while_do__YEK:
-  {
-    if ((idx__VTJ < nb_page__DUJ)) {
-      blc__YTJ=((void *)(last_block[(idx__VTJ)]));
-      __tmp__2UJ=(((__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB &  4294967292LU) <  4096) || ((__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB &  1) ==  1));
-    } else {
-      __tmp__2UJ=FALSE__;
-    };
-    if (__tmp__2UJ) {
-      idx__VTJ=(__UINTEGER_32)(idx__VTJ +  1);
-      goto while_do__YEK;
-    };
-  };
-  if ((idx__VTJ >= nb_page__DUJ)) {
-    blc__YTJ=new_page__H54();
-  };
-  ((__MEMORY *)blc__YTJ)->map_size_and_id__YTB=(__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB -  4096);
-  Self__4NAH=((__MEMORY *)blc__YTJ);
-  result__0TJ=((__POINTER )((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__4NAH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__4NAH->map_size_and_id__YTB &  4294967292LU))))));
-  if (((__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB &  4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    Self__K3HH=((__MEMORY *)blc__YTJ);
-    prev__L3HH=Self__K3HH->map_previous_free__0TB;
-    next__M3HH=Self__K3HH->map_next_free__ZTB;
-    if (((void *)prev__L3HH == (void *)NULL)) {
-      first_free__0BVB=next__M3HH;
-    } else {
-      ((__MEMORY *)prev__L3HH)->map_next_free__ZTB=next__M3HH;
-    };
-    if (((void *)next__M3HH != (void *)NULL)) {
-      ((__MEMORY *)next__M3HH)->map_previous_free__0TB=prev__L3HH;
-    };
-    pv__2TJ=((__MEMORY *)blc__YTJ)->map_previous_linear__XTB;
-    if ((pv__2TJ !=  4294967295LU)) {
-      prev__ZTJ=((void *)(void *)((unsigned long)begin_memory__4XH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__2TJ))));
-      ((__MEMORY *)prev__ZTJ)->map_size_and_id__YTB=(__UINTEGER_32)((__UINTEGER_32)(((__MEMORY *)prev__ZTJ)->map_size_and_id__YTB + ((__MEMORY *)blc__YTJ)->map_size_and_id__YTB) +  8);
-      last_block[(idx__VTJ)] = (prev__ZTJ);
-    };
-  };
-  ((__POINTER *)result__0TJ)[ 0]=((__POINTER )t__TTJ);
-  return((void *)((unsigned long)result__0TJ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__2DRB(__INTEGER nb_elements__4DRB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__HCHH,a__GCHH,new_size__ICHH,new_size2__JCHH,a__KCHH;
-  __UINTEGER_32 new_size__LCHH;
-  __POINTER result__FCHH,ptr_table__JTJH,next__ITJH,result__KTJH;
-  __INTEGER Self__EANC;
-  void **Result__ECUB;
-  sz__HCHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__4DRB * ((__INTEGER )(sizeof(void *)))));
-  result__FCHH=((__POINTER )(NULL));
-  a__GCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ICHH=(__UINTEGER_32)((__UINTEGER_32)(sz__HCHH + a__GCHH) & (__UINTEGER_32)(~ a__GCHH));
-  new_size2__JCHH=(__UINTEGER_32)(new_size__ICHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__JCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__KCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__LCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JCHH + a__KCHH) & (__UINTEGER_32)(~ a__KCHH));
-    ptr_table__JTJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ITJH=((__POINTER )(NULL));
-    result__KTJH=((__POINTER *)ptr_table__JTJH)[ 0];
-    if ((result__KTJH == (void *)NULL)) {
-      result__KTJH=new_lab__RTJ(new_size__LCHH);
-      next__ITJH=(void *)((unsigned long)result__KTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LCHH)));
-      ((__POINTER *)next__ITJH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__JTJH)[ 0]=next__ITJH;
-    } else {
-      next__ITJH=((__POINTER *)result__KTJH)[ 0];
-      if ((next__ITJH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KTJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__LCHH <<  1)) <=  4096)) {
-          next__ITJH=(void *)((unsigned long)result__KTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LCHH)));
-        } else {
-          next__ITJH=new_lab__RTJ(new_size__LCHH);
-        };
-        ((__POINTER *)next__ITJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__JTJH)[ 0]=next__ITJH;
-      } else {
-        ((__POINTER *)result__KTJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ITJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__KTJH=next__ITJH;
-      };
-    };
-    ((__POINTER *)result__KTJH)[ 0]=((__POINTER ) 3);
-    result__FCHH=(void *)((unsigned long)result__KTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__FCHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ICHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__ECUB=((void **)result__FCHH);
-  Self__EANC=(__INTEGER)(nb_elements__4DRB -  1);
-  while ((Self__EANC >=  0)) {
-    Result__ECUB[Self__EANC]=NULL;
-    Self__EANC=(__INTEGER)(Self__EANC -  1);
-  };
-  return(Result__ECUB);
-}
-
-static __INTEGER fast_first_index_of__until__OLC(__CHARACTER *Self__PLC)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER idx__1LC;
-  idx__1LC= 0;
-  while ((! ((idx__1LC >  1024) || ('\0' == Self__PLC[idx__1LC])))) {
-    idx__1LC=(__INTEGER)(idx__1LC +  1);
-  };
-  return(idx__1LC);
-}
-
-static __CHARACTER* create__YIEB(__INTEGER nb_elements__0IEB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__5BHH,a__4BHH,new_size__ACHH,new_size2__BCHH,a__CCHH;
-  __UINTEGER_32 new_size__DCHH;
-  __POINTER result__3BHH,ptr_table__21LH,next__11LH,result__31LH;
-  __INTEGER Self__KUKC;
-  __CHARACTER *Result__13JB;
-  sz__5BHH=((__UINTEGER_32 )nb_elements__0IEB);
-  result__3BHH=((__POINTER )(NULL));
-  a__4BHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ACHH=(__UINTEGER_32)((__UINTEGER_32)(sz__5BHH + a__4BHH) & (__UINTEGER_32)(~ a__4BHH));
-  new_size2__BCHH=(__UINTEGER_32)(new_size__ACHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__BCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__CCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__DCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BCHH + a__CCHH) & (__UINTEGER_32)(~ a__CCHH));
-    ptr_table__21LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__11LH=((__POINTER )(NULL));
-    result__31LH=((__POINTER *)ptr_table__21LH)[ 0];
-    if ((result__31LH == (void *)NULL)) {
-      result__31LH=new_lab__RTJ(new_size__DCHH);
-      next__11LH=(void *)((unsigned long)result__31LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DCHH)));
-      ((__POINTER *)next__11LH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__21LH)[ 0]=next__11LH;
-    } else {
-      next__11LH=((__POINTER *)result__31LH)[ 0];
-      if ((next__11LH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__31LH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__DCHH <<  1)) <=  4096)) {
-          next__11LH=(void *)((unsigned long)result__31LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DCHH)));
-        } else {
-          next__11LH=new_lab__RTJ(new_size__DCHH);
-        };
-        ((__POINTER *)next__11LH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__21LH)[ 0]=next__11LH;
-      } else {
-        ((__POINTER *)result__31LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__11LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__31LH=next__11LH;
-      };
-    };
-    ((__POINTER *)result__31LH)[ 0]=((__POINTER ) 3);
-    result__3BHH=(void *)((unsigned long)result__31LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__3BHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ACHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__13JB=((__CHARACTER *)result__3BHH);
-  Self__KUKC=(__INTEGER)(nb_elements__0IEB -  1);
-  while ((Self__KUKC >=  0)) {
-    Result__13JB[Self__KUKC]='\0';
-    Self__KUKC=(__INTEGER)(Self__KUKC -  1);
-  };
-  return(Result__13JB);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__KELC(__POINTER p__MELC,__UINTEGER_32 old_sz__NELC,__UINTEGER_32 new_sz__OELC)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
-  void *mem__ZELC,*nxt__RFED,*result__SFED,*next__WFND,*new_free__VFND;
-  void *prev__I3HH,*next__J3HH;
-  __POINTER result__0ELC,result__NCHH,ptr_table__EWH,next__JWH;
-  __POINTER result__HWH,__tmp__4FLC,last__3SHD,src__3CED,dst__4CED;
-  __UINTEGER_32 a__BNFH,old_size__QELC,old_size2__TELC,a__FNFH;
-  __UINTEGER_32 new_size__WELC,a__OCHH,new_size__QCHH,new_size2__RCHH;
-  __UINTEGER_32 a__SCHH,new_size__TCHH,a__BUH,__tmp__LGLC,sz__WFED;
-  __UINTEGER_32 old_size__TFED,prev__XFND,new_size__0FND;
-  __INTEGER siz__B2LH,Self__G2LH,siz__CDED,Self__QQHD;
-  __MEMORY *Self__NFED;
-  __POINTER *na_src__D2LH,*na_dst__F2LH,*na_src__ADED,*na_dst__BDED;
-  mem__ZELC=NULL;
-  result__0ELC=((__POINTER )(NULL));
-  a__BNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  old_size__QELC=(__UINTEGER_32)((__UINTEGER_32)(old_sz__NELC + a__BNFH) & (__UINTEGER_32)(~ a__BNFH));
-  old_size2__TELC=(__UINTEGER_32)(old_size__QELC + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  a__FNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__WELC=(__UINTEGER_32)((__UINTEGER_32)(new_sz__OELC + a__FNFH) & (__UINTEGER_32)(~ a__FNFH));
-  if ((old_size2__TELC <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    result__NCHH=((__POINTER )(NULL));
-    a__OCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__QCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size__WELC + a__OCHH) & (__UINTEGER_32)(~ a__OCHH));
-    new_size2__RCHH=(__UINTEGER_32)(new_size__QCHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-    if ((new_size2__RCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-      a__SCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__TCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RCHH + a__SCHH) & (__UINTEGER_32)(~ a__SCHH));
-      ptr_table__EWH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__JWH=((__POINTER )(NULL));
-      result__HWH=((__POINTER *)ptr_table__EWH)[ 0];
-      if ((result__HWH == (void *)NULL)) {
-        result__HWH=new_lab__RTJ(new_size__TCHH);
-        next__JWH=(void *)((unsigned long)result__HWH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCHH)));
-        ((__POINTER *)next__JWH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__EWH)[ 0]=next__JWH;
-      } else {
-        next__JWH=((__POINTER *)result__HWH)[ 0];
-        if ((next__JWH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HWH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__TCHH <<  1)) <=  4096)) {
-            next__JWH=(void *)((unsigned long)result__HWH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCHH)));
-          } else {
-            next__JWH=new_lab__RTJ(new_size__TCHH);
-          };
-          ((__POINTER *)next__JWH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__EWH)[ 0]=next__JWH;
-        } else {
-          ((__POINTER *)result__HWH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JWH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__HWH=next__JWH;
-        };
-      };
-      ((__POINTER *)result__HWH)[ 0]=((__POINTER ) 3);
-      result__NCHH=(void *)((unsigned long)result__HWH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-    } else {
-      result__NCHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__QCHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-    };
-    result__0ELC=result__NCHH;
-    siz__B2LH=((__INTEGER )old_size__QELC);
-    siz__B2LH=(__INTEGER)(siz__B2LH / ((__INTEGER )(sizeof(void *))));
-    na_src__D2LH=((__POINTER *)p__MELC);
-    na_dst__F2LH=((__POINTER *)result__NCHH);
-    Self__G2LH=(__INTEGER)(siz__B2LH -  1);
-    while ((Self__G2LH >=  0)) {
-      na_dst__F2LH[Self__G2LH]=na_src__D2LH[Self__G2LH];
-      Self__G2LH=(__INTEGER)(Self__G2LH -  1);
-    };
-    __tmp__4FLC=(void *)((unsigned long)p__MELC - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
-    a__BUH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    last__3SHD=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__TELC + a__BUH) & (__UINTEGER_32)(~ a__BUH)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
-    ((__POINTER *)__tmp__4FLC)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__3SHD)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
-    ((__POINTER *)last__3SHD)[ 0]=__tmp__4FLC;
-  } else {
-    mem__ZELC=((void *)(void *)((unsigned long)p__MELC - (unsigned long)((__POINTER ) 8)));
-    __tmp__LGLC=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__MELC - (unsigned long)begin_memory__4XH)))) >>  26);
-    Self__NFED=((__MEMORY *)mem__ZELC);
-    nxt__RFED=NULL;
-    result__SFED=NULL;
-    sz__WFED= 0;
-    old_size__TFED=(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  4294967292LU);
-    if ((new_size__WELC > old_size__TFED)) {
-      if ((! ((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  2) !=  0))) {
-        nxt__RFED=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  4294967292LU)))));
-        sz__WFED=(__UINTEGER_32)((__UINTEGER_32)(new_size__WELC - old_size__TFED) -  8);
-        if ((((__UINTEGER_32)(((__MEMORY *)nxt__RFED)->map_size_and_id__YTB &  1) ==  0) && ((__UINTEGER_32)(((__MEMORY *)nxt__RFED)->map_size_and_id__YTB &  4294967292LU) >= sz__WFED))) {
-          to_busy__index__3SFC(nxt__RFED,sz__WFED,__tmp__LGLC);
-          Self__NFED->map_size_and_id__YTB=(__UINTEGER_32)((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB + (__UINTEGER_32)(((__MEMORY *)nxt__RFED)->map_size_and_id__YTB &  4294967294LU)) +  8);
-          if (((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  2) !=  0)) {
-            last_block[(__tmp__LGLC)] = (Self__NFED);
-          } else {
-            nxt__RFED=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  4294967292LU)))));
-            ((__MEMORY *)nxt__RFED)->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)begin_memory__4XH))));
-          };
-          result__SFED=Self__NFED;
-        };
-      };
-      if (((void *)result__SFED == (void *)NULL)) {
-        result__SFED=search__XAVB(new_size__WELC);
-        src__3CED=(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-        dst__4CED=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__SFED)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-        siz__CDED=((__INTEGER )old_size__TFED);
-        siz__CDED=(__INTEGER)(siz__CDED / ((__INTEGER )(sizeof(void *))));
-        na_src__ADED=((__POINTER *)src__3CED);
-        na_dst__BDED=((__POINTER *)dst__4CED);
-        Self__QQHD=(__INTEGER)(siz__CDED -  1);
-        while ((Self__QQHD >=  0)) {
-          na_dst__BDED[Self__QQHD]=na_src__ADED[Self__QQHD];
-          Self__QQHD=(__INTEGER)(Self__QQHD -  1);
-        };
-        prev__XFND=Self__NFED->map_previous_linear__XTB;
-        next__WFND=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  4294967292LU)))));
-        new_free__VFND=((void *)(void *)((unsigned long)begin_memory__4XH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__XFND))));
-        new_size__0FND=(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  4294967294LU);
-        if (((prev__XFND ==  4294967295LU) || ((__UINTEGER_32)(((__MEMORY *)new_free__VFND)->map_size_and_id__YTB &  1) !=  0))) {
-          new_free__VFND=Self__NFED;
-          Self__NFED->map_next_free__ZTB=first_free__0BVB;
-          Self__NFED->map_previous_free__0TB=NULL;
-          if (((void *)first_free__0BVB != (void *)NULL)) {
-            ((__MEMORY *)first_free__0BVB)->map_previous_free__0TB=Self__NFED;
-          };
-          first_free__0BVB=Self__NFED;
-        } else {
-          new_size__0FND=(__UINTEGER_32)((__UINTEGER_32)(new_size__0FND + ((__MEMORY *)new_free__VFND)->map_size_and_id__YTB) +  8);
-        };
-        if (((! ((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  2) !=  0)) && ((__UINTEGER_32)(((__MEMORY *)next__WFND)->map_size_and_id__YTB &  1) ==  0))) {
-          new_size__0FND=(__UINTEGER_32)((__UINTEGER_32)(new_size__0FND + ((__MEMORY *)next__WFND)->map_size_and_id__YTB) +  8);
-          prev__I3HH=((__MEMORY *)next__WFND)->map_previous_free__0TB;
-          next__J3HH=((__MEMORY *)next__WFND)->map_next_free__ZTB;
-          if (((void *)prev__I3HH == (void *)NULL)) {
-            first_free__0BVB=next__J3HH;
-          } else {
-            ((__MEMORY *)prev__I3HH)->map_next_free__ZTB=next__J3HH;
-          };
-          if (((void *)next__J3HH != (void *)NULL)) {
-            ((__MEMORY *)next__J3HH)->map_previous_free__0TB=prev__I3HH;
-          };
-        };
-        ((__MEMORY *)new_free__VFND)->map_size_and_id__YTB=new_size__0FND;
-        if (((__UINTEGER_32)(((__MEMORY *)new_free__VFND)->map_size_and_id__YTB &  2) !=  0)) {
-          last_block[(__tmp__LGLC)] = (new_free__VFND);
-        } else {
-          next__WFND=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB &  4294967292LU)))));
-          ((__MEMORY *)next__WFND)->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__VFND) - (unsigned long)begin_memory__4XH))));
-        };
-      };
-    } else {
-      result__SFED=Self__NFED;
-    };
-    result__0ELC=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__SFED)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  return(result__0ELC);
-}
-
-static void add_last__URV(__FAST_ARRAYoSTRINGo *Self__VRV,void *element__WRV)
-// ({FAST_ARRAYoSTRINGo},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__XRV,__tmp__1SV,__tmp__XHEC,Self__HQVD;
-  __BOOLEAN __tmp__FSV;
-  void **__tmp__0SV,**new__DHEC;
-  new_capacity__XRV= 0;
-  if (((__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.upper__CLC +  1) <= (__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.capacity__JGT -  1))) {
-    Self__VRV->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.upper__CLC +  1);
-    __tmp__FSV=TRUE__;
-  } else {
-    __tmp__FSV=FALSE__;
-  };
-  if ((! __tmp__FSV)) {
-    if ((Self__VRV->parent_arrayed_collection__5KC.capacity__JGT ==  0)) {
-      Self__VRV->parent_arrayed_collection__5KC.storage__UGT=create__2DRB( 2);
-      Self__VRV->parent_arrayed_collection__5KC.capacity__JGT= 2;
-      Self__VRV->parent_arrayed_collection__5KC.upper__CLC= 0;
-    } else {
-      new_capacity__XRV=(__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.capacity__JGT <<  1);
-      __tmp__0SV=Self__VRV->parent_arrayed_collection__5KC.storage__UGT;
-      __tmp__1SV=Self__VRV->parent_arrayed_collection__5KC.capacity__JGT;
-      new__DHEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__0SV)),((__UINTEGER_32 )(__INTEGER)(__tmp__1SV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__XRV * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__XHEC=(__INTEGER)(new_capacity__XRV -  1);
-      Self__HQVD=__tmp__1SV;
-      while ((Self__HQVD <= __tmp__XHEC)) {
-        new__DHEC[Self__HQVD]=NULL;
-        Self__HQVD=(__INTEGER)(Self__HQVD +  1);
-      };
-      Self__VRV->parent_arrayed_collection__5KC.storage__UGT=new__DHEC;
-      Self__VRV->parent_arrayed_collection__5KC.capacity__JGT=new_capacity__XRV;
-      Self__VRV->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.upper__CLC +  1);
-    };
-  };
-  ((void **)Self__VRV->parent_arrayed_collection__5KC.storage__UGT)[Self__VRV->parent_arrayed_collection__5KC.upper__CLC]=element__WRV;
-}
-
-static __INTEGER prime_number_ceiling__021(__INTEGER integer__221)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__421;
-  __BOOLEAN __tmp__G31,__tmp__T31,result__TNCB,__tmp__A41,result__FOCB;
-  __BOOLEAN __tmp__N41,result__XOCB,__tmp__041,result__JPCB,__tmp__H51;
-  __BOOLEAN result__1PCB,__tmp__U51,result__NQCB,__tmp__BA2;
-  __BOOLEAN result__5QCB,__tmp__OA2,result__RRCB,__tmp__1A2;
-  __BOOLEAN result__DSCB,__tmp__IB2,result__VSCB,__tmp__VB2;
-  __BOOLEAN result__HTCB,__tmp__CC2,result__ZTCB,__tmp__PC2;
-  __BOOLEAN result__LUCB,__tmp__2C2,result__3UCB,__tmp__JD2;
-  __BOOLEAN result__PVCB,__tmp__WD2,result__BWCB,__tmp__DE2;
-  __BOOLEAN result__TWCB,__tmp__QE2,result__FXCB,__tmp__3E2;
-  __BOOLEAN result__XXCB,__tmp__KF2,result__JYCB,__tmp__XF2;
-  __BOOLEAN result__1YCB,__tmp__EG2,result__NZCB,__tmp__RG2;
-  __BOOLEAN result__5ZCB,__tmp__4G2,result__R0CB,__tmp__LH2;
-  __BOOLEAN result__D1CB;
-  result__421= 0;
-  if ((integer__221 <=  11)) {
-    result__421= 11;
-    __tmp__G31=TRUE__;
-  } else {
-    __tmp__G31=FALSE__;
-  };
-  if (__tmp__G31) {
-    __tmp__T31=TRUE__;
-  } else {
-    result__TNCB=(integer__221 <=  23);
-    if (result__TNCB) {
-      result__421= 23;
-    };
-    __tmp__T31=result__TNCB;
-  };
-  if (__tmp__T31) {
-    __tmp__A41=TRUE__;
-  } else {
-    result__FOCB=(integer__221 <=  53);
-    if (result__FOCB) {
-      result__421= 53;
-    };
-    __tmp__A41=result__FOCB;
-  };
-  if (__tmp__A41) {
-    __tmp__N41=TRUE__;
-  } else {
-    result__XOCB=(integer__221 <=  97);
-    if (result__XOCB) {
-      result__421= 97;
-    };
-    __tmp__N41=result__XOCB;
-  };
-  if (__tmp__N41) {
-    __tmp__041=TRUE__;
-  } else {
-    result__JPCB=(integer__221 <=  193);
-    if (result__JPCB) {
-      result__421= 193;
-    };
-    __tmp__041=result__JPCB;
-  };
-  if (__tmp__041) {
-    __tmp__H51=TRUE__;
-  } else {
-    result__1PCB=(integer__221 <=  389);
-    if (result__1PCB) {
-      result__421= 389;
-    };
-    __tmp__H51=result__1PCB;
-  };
-  if (__tmp__H51) {
-    __tmp__U51=TRUE__;
-  } else {
-    result__NQCB=(integer__221 <=  769);
-    if (result__NQCB) {
-      result__421= 769;
-    };
-    __tmp__U51=result__NQCB;
-  };
-  if (__tmp__U51) {
-    __tmp__BA2=TRUE__;
-  } else {
-    result__5QCB=(integer__221 <=  1543);
-    if (result__5QCB) {
-      result__421= 1543;
-    };
-    __tmp__BA2=result__5QCB;
-  };
-  if (__tmp__BA2) {
-    __tmp__OA2=TRUE__;
-  } else {
-    result__RRCB=(integer__221 <=  3079);
-    if (result__RRCB) {
-      result__421= 3079;
-    };
-    __tmp__OA2=result__RRCB;
-  };
-  if (__tmp__OA2) {
-    __tmp__1A2=TRUE__;
-  } else {
-    result__DSCB=(integer__221 <=  6151);
-    if (result__DSCB) {
-      result__421= 6151;
-    };
-    __tmp__1A2=result__DSCB;
-  };
-  if (__tmp__1A2) {
-    __tmp__IB2=TRUE__;
-  } else {
-    result__VSCB=(integer__221 <=  12289);
-    if (result__VSCB) {
-      result__421= 12289;
-    };
-    __tmp__IB2=result__VSCB;
-  };
-  if (__tmp__IB2) {
-    __tmp__VB2=TRUE__;
-  } else {
-    result__HTCB=(integer__221 <=  24593);
-    if (result__HTCB) {
-      result__421= 24593;
-    };
-    __tmp__VB2=result__HTCB;
-  };
-  if (__tmp__VB2) {
-    __tmp__CC2=TRUE__;
-  } else {
-    result__ZTCB=(integer__221 <=  49157);
-    if (result__ZTCB) {
-      result__421= 49157;
-    };
-    __tmp__CC2=result__ZTCB;
-  };
-  if (__tmp__CC2) {
-    __tmp__PC2=TRUE__;
-  } else {
-    result__LUCB=(integer__221 <=  98317);
-    if (result__LUCB) {
-      result__421= 98317;
-    };
-    __tmp__PC2=result__LUCB;
-  };
-  if (__tmp__PC2) {
-    __tmp__2C2=TRUE__;
-  } else {
-    result__3UCB=(integer__221 <=  196613);
-    if (result__3UCB) {
-      result__421= 196613;
-    };
-    __tmp__2C2=result__3UCB;
-  };
-  if (__tmp__2C2) {
-    __tmp__JD2=TRUE__;
-  } else {
-    result__PVCB=(integer__221 <=  393241);
-    if (result__PVCB) {
-      result__421= 393241;
-    };
-    __tmp__JD2=result__PVCB;
-  };
-  if (__tmp__JD2) {
-    __tmp__WD2=TRUE__;
-  } else {
-    result__BWCB=(integer__221 <=  786433);
-    if (result__BWCB) {
-      result__421= 786433;
-    };
-    __tmp__WD2=result__BWCB;
-  };
-  if (__tmp__WD2) {
-    __tmp__DE2=TRUE__;
-  } else {
-    result__TWCB=(integer__221 <=  1572869);
-    if (result__TWCB) {
-      result__421= 1572869;
-    };
-    __tmp__DE2=result__TWCB;
-  };
-  if (__tmp__DE2) {
-    __tmp__QE2=TRUE__;
-  } else {
-    result__FXCB=(integer__221 <=  3145739);
-    if (result__FXCB) {
-      result__421= 3145739;
-    };
-    __tmp__QE2=result__FXCB;
-  };
-  if (__tmp__QE2) {
-    __tmp__3E2=TRUE__;
-  } else {
-    result__XXCB=(integer__221 <=  6291469);
-    if (result__XXCB) {
-      result__421= 6291469;
-    };
-    __tmp__3E2=result__XXCB;
-  };
-  if (__tmp__3E2) {
-    __tmp__KF2=TRUE__;
-  } else {
-    result__JYCB=(integer__221 <=  12582917);
-    if (result__JYCB) {
-      result__421= 12582917;
-    };
-    __tmp__KF2=result__JYCB;
-  };
-  if (__tmp__KF2) {
-    __tmp__XF2=TRUE__;
-  } else {
-    result__1YCB=(integer__221 <=  25165843);
-    if (result__1YCB) {
-      result__421= 25165843;
-    };
-    __tmp__XF2=result__1YCB;
-  };
-  if (__tmp__XF2) {
-    __tmp__EG2=TRUE__;
-  } else {
-    result__NZCB=(integer__221 <=  50331653);
-    if (result__NZCB) {
-      result__421= 50331653;
-    };
-    __tmp__EG2=result__NZCB;
-  };
-  if (__tmp__EG2) {
-    __tmp__RG2=TRUE__;
-  } else {
-    result__5ZCB=(integer__221 <=  100663319);
-    if (result__5ZCB) {
-      result__421= 100663319;
-    };
-    __tmp__RG2=result__5ZCB;
-  };
-  if (__tmp__RG2) {
-    __tmp__4G2=TRUE__;
-  } else {
-    result__R0CB=(integer__221 <=  201326611);
-    if (result__R0CB) {
-      result__421= 201326611;
-    };
-    __tmp__4G2=result__R0CB;
-  };
-  if (__tmp__4G2) {
-    __tmp__LH2=TRUE__;
-  } else {
-    result__D1CB=(integer__221 <=  402653189);
-    if (result__D1CB) {
-      result__421= 402653189;
-    };
-    __tmp__LH2=result__D1CB;
-  };
-  if ((! __tmp__LH2)) {
-    if ((integer__221 <=  805306457)) {
-      result__421= 805306457;
-    } else {
-      result__421= 1610612741;
-    };
-  };
-  return(result__421);
-}
-
-static void** create__QA4(__INTEGER nb_elements__SA4)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__1HHH,a__0HHH,new_size__2HHH,new_size2__3HHH,a__4HHH;
-  __UINTEGER_32 new_size__5HHH;
-  __POINTER result__ZHHH,ptr_table__PWIH,next__OWIH,result__QWIH;
-  __INTEGER Self__C1JC;
-  void **Result__WWEB;
-  sz__1HHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__SA4 * ((__INTEGER )(sizeof(void *)))));
-  result__ZHHH=((__POINTER )(NULL));
-  a__0HHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__2HHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1HHH + a__0HHH) & (__UINTEGER_32)(~ a__0HHH));
-  new_size2__3HHH=(__UINTEGER_32)(new_size__2HHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__3HHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__4HHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__5HHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3HHH + a__4HHH) & (__UINTEGER_32)(~ a__4HHH));
-    ptr_table__PWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5HHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__OWIH=((__POINTER )(NULL));
-    result__QWIH=((__POINTER *)ptr_table__PWIH)[ 0];
-    if ((result__QWIH == (void *)NULL)) {
-      result__QWIH=new_lab__RTJ(new_size__5HHH);
-      next__OWIH=(void *)((unsigned long)result__QWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5HHH)));
-      ((__POINTER *)next__OWIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__PWIH)[ 0]=next__OWIH;
-    } else {
-      next__OWIH=((__POINTER *)result__QWIH)[ 0];
-      if ((next__OWIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QWIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5HHH <<  1)) <=  4096)) {
-          next__OWIH=(void *)((unsigned long)result__QWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5HHH)));
-        } else {
-          next__OWIH=new_lab__RTJ(new_size__5HHH);
-        };
-        ((__POINTER *)next__OWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__PWIH)[ 0]=next__OWIH;
-      } else {
-        ((__POINTER *)result__QWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__QWIH=next__OWIH;
-      };
-    };
-    ((__POINTER *)result__QWIH)[ 0]=((__POINTER ) 3);
-    result__ZHHH=(void *)((unsigned long)result__QWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__ZHHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2HHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__WWEB=((void **)result__ZHHH);
-  Self__C1JC=(__INTEGER)(nb_elements__SA4 -  1);
-  while ((Self__C1JC >=  0)) {
-    Result__WWEB[Self__C1JC]=NULL;
-    Self__C1JC=(__INTEGER)(Self__C1JC -  1);
-  };
-  return(Result__WWEB);
-}
-
-static void** create__ZITC(__INTEGER nb_elements__1ITC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__DIHH,a__CIHH,new_size__EIHH,new_size2__FIHH,a__GIHH;
-  __UINTEGER_32 new_size__HIHH;
-  __POINTER result__BIHH,ptr_table__UWIH,next__TWIH,result__VWIH;
-  __INTEGER Self__CVWD;
-  void **Result__EF3C;
-  sz__DIHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__1ITC * ((__INTEGER )(sizeof(void *)))));
-  result__BIHH=((__POINTER )(NULL));
-  a__CIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__EIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DIHH + a__CIHH) & (__UINTEGER_32)(~ a__CIHH));
-  new_size2__FIHH=(__UINTEGER_32)(new_size__EIHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__FIHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__GIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__HIHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FIHH + a__GIHH) & (__UINTEGER_32)(~ a__GIHH));
-    ptr_table__UWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__TWIH=((__POINTER )(NULL));
-    result__VWIH=((__POINTER *)ptr_table__UWIH)[ 0];
-    if ((result__VWIH == (void *)NULL)) {
-      result__VWIH=new_lab__RTJ(new_size__HIHH);
-      next__TWIH=(void *)((unsigned long)result__VWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HIHH)));
-      ((__POINTER *)next__TWIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__UWIH)[ 0]=next__TWIH;
-    } else {
-      next__TWIH=((__POINTER *)result__VWIH)[ 0];
-      if ((next__TWIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VWIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HIHH <<  1)) <=  4096)) {
-          next__TWIH=(void *)((unsigned long)result__VWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HIHH)));
-        } else {
-          next__TWIH=new_lab__RTJ(new_size__HIHH);
-        };
-        ((__POINTER *)next__TWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__UWIH)[ 0]=next__TWIH;
-      } else {
-        ((__POINTER *)result__VWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__VWIH=next__TWIH;
-      };
-    };
-    ((__POINTER *)result__VWIH)[ 0]=((__POINTER ) 3);
-    result__BIHH=(void *)((unsigned long)result__VWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__BIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EIHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__EF3C=((void **)result__BIHH);
-  Self__CVWD=(__INTEGER)(nb_elements__1ITC -  1);
-  while ((Self__CVWD >=  0)) {
-    Result__EF3C[Self__CVWD]=NULL;
-    Self__CVWD=(__INTEGER)(Self__CVWD -  1);
-  };
-  return(Result__EF3C);
-}
-
-static void** create__JDSB(__INTEGER nb_elements__LDSB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__LIHH,a__KIHH,new_size__MIHH,new_size2__NIHH,a__OIHH;
-  __UINTEGER_32 new_size__PIHH;
-  __POINTER result__JIHH,ptr_table__ZWIH,next__YWIH,result__0WIH;
-  __INTEGER Self__KHNC;
-  void **Result__CIVB;
-  sz__LIHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__LDSB * ((__INTEGER )(sizeof(void *)))));
-  result__JIHH=((__POINTER )(NULL));
-  a__KIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__MIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LIHH + a__KIHH) & (__UINTEGER_32)(~ a__KIHH));
-  new_size2__NIHH=(__UINTEGER_32)(new_size__MIHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__NIHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__OIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__PIHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NIHH + a__OIHH) & (__UINTEGER_32)(~ a__OIHH));
-    ptr_table__ZWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__YWIH=((__POINTER )(NULL));
-    result__0WIH=((__POINTER *)ptr_table__ZWIH)[ 0];
-    if ((result__0WIH == (void *)NULL)) {
-      result__0WIH=new_lab__RTJ(new_size__PIHH);
-      next__YWIH=(void *)((unsigned long)result__0WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PIHH)));
-      ((__POINTER *)next__YWIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__ZWIH)[ 0]=next__YWIH;
-    } else {
-      next__YWIH=((__POINTER *)result__0WIH)[ 0];
-      if ((next__YWIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0WIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PIHH <<  1)) <=  4096)) {
-          next__YWIH=(void *)((unsigned long)result__0WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PIHH)));
-        } else {
-          next__YWIH=new_lab__RTJ(new_size__PIHH);
-        };
-        ((__POINTER *)next__YWIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__ZWIH)[ 0]=next__YWIH;
-      } else {
-        ((__POINTER *)result__0WIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__0WIH=next__YWIH;
-      };
-    };
-    ((__POINTER *)result__0WIH)[ 0]=((__POINTER ) 3);
-    result__JIHH=(void *)((unsigned long)result__0WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__JIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MIHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__CIVB=((void **)result__JIHH);
-  Self__KHNC=(__INTEGER)(nb_elements__LDSB -  1);
-  while ((Self__KHNC >=  0)) {
-    Result__CIVB[Self__KHNC]=NULL;
-    Self__KHNC=(__INTEGER)(Self__KHNC -  1);
-  };
-  return(Result__CIVB);
-}
-
-static void** create__0E4(__INTEGER nb_elements__2E4)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__TIHH,a__SIHH,new_size__UIHH,new_size2__VIHH,a__WIHH;
-  __UINTEGER_32 new_size__XIHH;
-  __POINTER result__RIHH,ptr_table__4WIH,next__3WIH,result__5WIH;
-  __INTEGER Self__J2JC;
-  void **Result__X2EB;
-  sz__TIHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__2E4 * ((__INTEGER )(sizeof(void *)))));
-  result__RIHH=((__POINTER )(NULL));
-  a__SIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__UIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TIHH + a__SIHH) & (__UINTEGER_32)(~ a__SIHH));
-  new_size2__VIHH=(__UINTEGER_32)(new_size__UIHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__VIHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__WIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__XIHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VIHH + a__WIHH) & (__UINTEGER_32)(~ a__WIHH));
-    ptr_table__4WIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__3WIH=((__POINTER )(NULL));
-    result__5WIH=((__POINTER *)ptr_table__4WIH)[ 0];
-    if ((result__5WIH == (void *)NULL)) {
-      result__5WIH=new_lab__RTJ(new_size__XIHH);
-      next__3WIH=(void *)((unsigned long)result__5WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XIHH)));
-      ((__POINTER *)next__3WIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__4WIH)[ 0]=next__3WIH;
-    } else {
-      next__3WIH=((__POINTER *)result__5WIH)[ 0];
-      if ((next__3WIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5WIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XIHH <<  1)) <=  4096)) {
-          next__3WIH=(void *)((unsigned long)result__5WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XIHH)));
-        } else {
-          next__3WIH=new_lab__RTJ(new_size__XIHH);
-        };
-        ((__POINTER *)next__3WIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__4WIH)[ 0]=next__3WIH;
-      } else {
-        ((__POINTER *)result__5WIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3WIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__5WIH=next__3WIH;
-      };
-    };
-    ((__POINTER *)result__5WIH)[ 0]=((__POINTER ) 3);
-    result__RIHH=(void *)((unsigned long)result__5WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__RIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__UIHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__X2EB=((void **)result__RIHH);
-  Self__J2JC=(__INTEGER)(nb_elements__2E4 -  1);
-  while ((Self__J2JC >=  0)) {
-    Result__X2EB[Self__J2JC]=NULL;
-    Self__J2JC=(__INTEGER)(Self__J2JC -  1);
-  };
-  return(Result__X2EB);
-}
-
-static void** create__PX2(__INTEGER nb_elements__RX2)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__1IHH,a__0IHH,new_size__2IHH,new_size2__3IHH,a__4IHH;
-  __UINTEGER_32 new_size__5IHH;
-  __POINTER result__ZIHH,ptr_table__DXIH,next__CXIH,result__EXIH;
-  __INTEGER Self__LUJC;
-  void **Result__0NDB;
-  sz__1IHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RX2 * ((__INTEGER )(sizeof(void *)))));
-  result__ZIHH=((__POINTER )(NULL));
-  a__0IHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__2IHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1IHH + a__0IHH) & (__UINTEGER_32)(~ a__0IHH));
-  new_size2__3IHH=(__UINTEGER_32)(new_size__2IHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__3IHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__4IHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__5IHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3IHH + a__4IHH) & (__UINTEGER_32)(~ a__4IHH));
-    ptr_table__DXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5IHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__CXIH=((__POINTER )(NULL));
-    result__EXIH=((__POINTER *)ptr_table__DXIH)[ 0];
-    if ((result__EXIH == (void *)NULL)) {
-      result__EXIH=new_lab__RTJ(new_size__5IHH);
-      next__CXIH=(void *)((unsigned long)result__EXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5IHH)));
-      ((__POINTER *)next__CXIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__DXIH)[ 0]=next__CXIH;
-    } else {
-      next__CXIH=((__POINTER *)result__EXIH)[ 0];
-      if ((next__CXIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EXIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5IHH <<  1)) <=  4096)) {
-          next__CXIH=(void *)((unsigned long)result__EXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5IHH)));
-        } else {
-          next__CXIH=new_lab__RTJ(new_size__5IHH);
-        };
-        ((__POINTER *)next__CXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__DXIH)[ 0]=next__CXIH;
-      } else {
-        ((__POINTER *)result__EXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__EXIH=next__CXIH;
-      };
-    };
-    ((__POINTER *)result__EXIH)[ 0]=((__POINTER ) 3);
-    result__ZIHH=(void *)((unsigned long)result__EXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__ZIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2IHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__0NDB=((void **)result__ZIHH);
-  Self__LUJC=(__INTEGER)(nb_elements__RX2 -  1);
-  while ((Self__LUJC >=  0)) {
-    Result__0NDB[Self__LUJC]=NULL;
-    Self__LUJC=(__INTEGER)(Self__LUJC -  1);
-  };
-  return(Result__0NDB);
-}
-
-static void** create__PHRB(__INTEGER nb_elements__RHRB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__DJHH,a__CJHH,new_size__EJHH,new_size2__FJHH,a__GJHH;
-  __UINTEGER_32 new_size__HJHH;
-  __POINTER result__BJHH,ptr_table__IXIH,next__HXIH,result__JXIH;
-  __INTEGER Self__LBNC;
-  void **Result__ZGUB;
-  sz__DJHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RHRB * ((__INTEGER )(sizeof(void *)))));
-  result__BJHH=((__POINTER )(NULL));
-  a__CJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__EJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DJHH + a__CJHH) & (__UINTEGER_32)(~ a__CJHH));
-  new_size2__FJHH=(__UINTEGER_32)(new_size__EJHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__FJHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__GJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__HJHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FJHH + a__GJHH) & (__UINTEGER_32)(~ a__GJHH));
-    ptr_table__IXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__HXIH=((__POINTER )(NULL));
-    result__JXIH=((__POINTER *)ptr_table__IXIH)[ 0];
-    if ((result__JXIH == (void *)NULL)) {
-      result__JXIH=new_lab__RTJ(new_size__HJHH);
-      next__HXIH=(void *)((unsigned long)result__JXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HJHH)));
-      ((__POINTER *)next__HXIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__IXIH)[ 0]=next__HXIH;
-    } else {
-      next__HXIH=((__POINTER *)result__JXIH)[ 0];
-      if ((next__HXIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JXIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HJHH <<  1)) <=  4096)) {
-          next__HXIH=(void *)((unsigned long)result__JXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HJHH)));
-        } else {
-          next__HXIH=new_lab__RTJ(new_size__HJHH);
-        };
-        ((__POINTER *)next__HXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__IXIH)[ 0]=next__HXIH;
-      } else {
-        ((__POINTER *)result__JXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__JXIH=next__HXIH;
-      };
-    };
-    ((__POINTER *)result__JXIH)[ 0]=((__POINTER ) 3);
-    result__BJHH=(void *)((unsigned long)result__JXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__BJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EJHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__ZGUB=((void **)result__BJHH);
-  Self__LBNC=(__INTEGER)(nb_elements__RHRB -  1);
-  while ((Self__LBNC >=  0)) {
-    Result__ZGUB[Self__LBNC]=NULL;
-    Self__LBNC=(__INTEGER)(Self__LBNC -  1);
-  };
-  return(Result__ZGUB);
-}
-
-static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__EGR(__INTEGER new_count__GGR)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __POINTER ptr__CMR,ptr_table__NXIH,next__MXIH,result__OXIH;
-  __POINTER ptr_table__SXIH,next__RXIH,result__TXIH;
-  __INTEGER typ_id__HMR;
-  __UINTEGER_32 sz__EMR,a__FCFH,new_size__GCFH,t__KCFH,a__JCFH;
-  __UINTEGER_32 new_size__VXIH,lab_type__UXIH;
-  __FAST_ARRAYoITM_TYPE_MONOo *result__BMR,*Self__TJW;
-  result__BMR=NULL;
-  ptr__CMR=((__POINTER )(NULL));
-  typ_id__HMR= 0;
-  sz__EMR=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_MONOo));
-  if ((sz__EMR ==  0)) {
-    result__BMR=FAST_ARRAYoITM_TYPE_MONOo__;
-  } else {
-    typ_id__HMR=__FAST_ARRAYoITM_TYPE_MONOo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EMR);
-    if ((typ_id__HMR == (__INTEGER)(-  1))) {
-      a__FCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__GCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__EMR + a__FCFH) & (__UINTEGER_32)(~ a__FCFH));
-      ptr_table__NXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__MXIH=((__POINTER )(NULL));
-      result__OXIH=((__POINTER *)ptr_table__NXIH)[ 0];
-      if ((result__OXIH == (void *)NULL)) {
-        result__OXIH=new_lab__RTJ(new_size__GCFH);
-        next__MXIH=(void *)((unsigned long)result__OXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GCFH)));
-        ((__POINTER *)next__MXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NXIH)[ 0]=next__MXIH;
-      } else {
-        next__MXIH=((__POINTER *)result__OXIH)[ 0];
-        if ((next__MXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OXIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GCFH <<  1)) <=  4096)) {
-            next__MXIH=(void *)((unsigned long)result__OXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GCFH)));
-          } else {
-            next__MXIH=new_lab__RTJ(new_size__GCFH);
-          };
-          ((__POINTER *)next__MXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NXIH)[ 0]=next__MXIH;
-        } else {
-          ((__POINTER *)result__OXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__OXIH=next__MXIH;
-        };
-      };
-      ptr__CMR=result__OXIH;
-    } else {
-      t__KCFH=((__UINTEGER_32 )typ_id__HMR);
-      a__JCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__VXIH=(__UINTEGER_32)((__UINTEGER_32)(sz__EMR + a__JCFH) & (__UINTEGER_32)(~ a__JCFH));
-      ptr_table__SXIH=((__POINTER )(&(table_type[(t__KCFH)])));
-      lab_type__UXIH=(__UINTEGER_32)(t__KCFH |  1);
-      next__RXIH=((__POINTER )(NULL));
-      result__TXIH=((__POINTER *)ptr_table__SXIH)[ 0];
-      if ((result__TXIH == (void *)NULL)) {
-        result__TXIH=new_lab__RTJ(lab_type__UXIH);
-        next__RXIH=(void *)((unsigned long)result__TXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VXIH)));
-        ((__POINTER *)next__RXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SXIH)[ 0]=next__RXIH;
-      } else {
-        next__RXIH=((__POINTER *)result__TXIH)[ 0];
-        if ((next__RXIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TXIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VXIH <<  1)) <=  4096)) {
-            next__RXIH=(void *)((unsigned long)result__TXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VXIH)));
-          } else {
-            next__RXIH=new_lab__RTJ(lab_type__UXIH);
-          };
-          ((__POINTER *)next__RXIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__SXIH)[ 0]=next__RXIH;
-        } else {
-          ((__POINTER *)result__TXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__TXIH=next__RXIH;
-        };
-      };
-      ptr__CMR=result__TXIH;
-    };
-    result__BMR=((__FAST_ARRAYoITM_TYPE_MONOo *)ptr__CMR);
-    *(result__BMR) = *(FAST_ARRAYoITM_TYPE_MONOo__);
-  };
-  Self__TJW=((__FAST_ARRAYoITM_TYPE_MONOo *)result__BMR);
-  if ((Self__TJW->parent_arrayed_collection__SYC.capacity__TNV < new_count__GGR)) {
-    Self__TJW->parent_arrayed_collection__SYC.storage__FMV=create__W5QB(new_count__GGR);
-    Self__TJW->parent_arrayed_collection__SYC.capacity__TNV=new_count__GGR;
-  };
-  Self__TJW->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(-  1);
-  return(result__BMR);
-}
-
-static void** create__SWBB(__INTEGER nb_elements__UWBB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__LJHH,a__KJHH,new_size__MJHH,new_size2__NJHH,a__OJHH;
-  __UINTEGER_32 new_size__PJHH;
-  __POINTER result__JJHH,ptr_table__XXIH,next__WXIH,result__YXIH;
-  __INTEGER Self__3LKC;
-  void **Result__AVIB;
-  sz__LJHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__UWBB * ((__INTEGER )(sizeof(void *)))));
-  result__JJHH=((__POINTER )(NULL));
-  a__KJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__MJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LJHH + a__KJHH) & (__UINTEGER_32)(~ a__KJHH));
-  new_size2__NJHH=(__UINTEGER_32)(new_size__MJHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__NJHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__OJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__PJHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NJHH + a__OJHH) & (__UINTEGER_32)(~ a__OJHH));
-    ptr_table__XXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__WXIH=((__POINTER )(NULL));
-    result__YXIH=((__POINTER *)ptr_table__XXIH)[ 0];
-    if ((result__YXIH == (void *)NULL)) {
-      result__YXIH=new_lab__RTJ(new_size__PJHH);
-      next__WXIH=(void *)((unsigned long)result__YXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PJHH)));
-      ((__POINTER *)next__WXIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__XXIH)[ 0]=next__WXIH;
-    } else {
-      next__WXIH=((__POINTER *)result__YXIH)[ 0];
-      if ((next__WXIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YXIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PJHH <<  1)) <=  4096)) {
-          next__WXIH=(void *)((unsigned long)result__YXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PJHH)));
-        } else {
-          next__WXIH=new_lab__RTJ(new_size__PJHH);
-        };
-        ((__POINTER *)next__WXIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__XXIH)[ 0]=next__WXIH;
-      } else {
-        ((__POINTER *)result__YXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__YXIH=next__WXIH;
-      };
-    };
-    ((__POINTER *)result__YXIH)[ 0]=((__POINTER ) 3);
-    result__JJHH=(void *)((unsigned long)result__YXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__JJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MJHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__AVIB=((void **)result__JJHH);
-  Self__3LKC=(__INTEGER)(nb_elements__UWBB -  1);
-  while ((Self__3LKC >=  0)) {
-    Result__AVIB[Self__3LKC]=NULL;
-    Self__3LKC=(__INTEGER)(Self__3LKC -  1);
-  };
-  return(Result__AVIB);
-}
-
-static void** create__PJXB(__INTEGER nb_elements__RJXB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__TJHH,a__SJHH,new_size__UJHH,new_size2__VJHH,a__WJHH;
-  __UINTEGER_32 new_size__XJHH;
-  __POINTER result__RJHH,ptr_table__2XIH,next__1XIH,result__3XIH;
-  __INTEGER Self__KZOC;
-  void **Result__CV0B;
-  sz__TJHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RJXB * ((__INTEGER )(sizeof(void *)))));
-  result__RJHH=((__POINTER )(NULL));
-  a__SJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__UJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TJHH + a__SJHH) & (__UINTEGER_32)(~ a__SJHH));
-  new_size2__VJHH=(__UINTEGER_32)(new_size__UJHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__VJHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__WJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__XJHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VJHH + a__WJHH) & (__UINTEGER_32)(~ a__WJHH));
-    ptr_table__2XIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__1XIH=((__POINTER )(NULL));
-    result__3XIH=((__POINTER *)ptr_table__2XIH)[ 0];
-    if ((result__3XIH == (void *)NULL)) {
-      result__3XIH=new_lab__RTJ(new_size__XJHH);
-      next__1XIH=(void *)((unsigned long)result__3XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJHH)));
-      ((__POINTER *)next__1XIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__2XIH)[ 0]=next__1XIH;
-    } else {
-      next__1XIH=((__POINTER *)result__3XIH)[ 0];
-      if ((next__1XIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3XIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XJHH <<  1)) <=  4096)) {
-          next__1XIH=(void *)((unsigned long)result__3XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJHH)));
-        } else {
-          next__1XIH=new_lab__RTJ(new_size__XJHH);
-        };
-        ((__POINTER *)next__1XIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__2XIH)[ 0]=next__1XIH;
-      } else {
-        ((__POINTER *)result__3XIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1XIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__3XIH=next__1XIH;
-      };
-    };
-    ((__POINTER *)result__3XIH)[ 0]=((__POINTER ) 3);
-    result__RJHH=(void *)((unsigned long)result__3XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__RJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__UJHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__CV0B=((void **)result__RJHH);
-  Self__KZOC=(__INTEGER)(nb_elements__RJXB -  1);
-  while ((Self__KZOC >=  0)) {
-    Result__CV0B[Self__KZOC]=NULL;
-    Self__KZOC=(__INTEGER)(Self__KZOC -  1);
-  };
-  return(Result__CV0B);
-}
-
-static void** create__KSWB(__INTEGER nb_elements__MSWB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__1JHH,a__0JHH,new_size__2JHH,new_size2__3JHH,a__4JHH;
-  __UINTEGER_32 new_size__5JHH;
-  __POINTER result__ZJHH,ptr_table__BYIH,next__AYIH,result__CYIH;
-  __INTEGER Self__DYOC;
-  void **Result__LH0B;
-  sz__1JHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MSWB * ((__INTEGER )(sizeof(void *)))));
-  result__ZJHH=((__POINTER )(NULL));
-  a__0JHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__2JHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1JHH + a__0JHH) & (__UINTEGER_32)(~ a__0JHH));
-  new_size2__3JHH=(__UINTEGER_32)(new_size__2JHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__3JHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__4JHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__5JHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3JHH + a__4JHH) & (__UINTEGER_32)(~ a__4JHH));
-    ptr_table__BYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5JHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__AYIH=((__POINTER )(NULL));
-    result__CYIH=((__POINTER *)ptr_table__BYIH)[ 0];
-    if ((result__CYIH == (void *)NULL)) {
-      result__CYIH=new_lab__RTJ(new_size__5JHH);
-      next__AYIH=(void *)((unsigned long)result__CYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JHH)));
-      ((__POINTER *)next__AYIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__BYIH)[ 0]=next__AYIH;
-    } else {
-      next__AYIH=((__POINTER *)result__CYIH)[ 0];
-      if ((next__AYIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CYIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5JHH <<  1)) <=  4096)) {
-          next__AYIH=(void *)((unsigned long)result__CYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JHH)));
-        } else {
-          next__AYIH=new_lab__RTJ(new_size__5JHH);
-        };
-        ((__POINTER *)next__AYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BYIH)[ 0]=next__AYIH;
-      } else {
-        ((__POINTER *)result__CYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__CYIH=next__AYIH;
-      };
-    };
-    ((__POINTER *)result__CYIH)[ 0]=((__POINTER ) 3);
-    result__ZJHH=(void *)((unsigned long)result__CYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__ZJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2JHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__LH0B=((void **)result__ZJHH);
-  Self__DYOC=(__INTEGER)(nb_elements__MSWB -  1);
-  while ((Self__DYOC >=  0)) {
-    Result__LH0B[Self__DYOC]=NULL;
-    Self__DYOC=(__INTEGER)(Self__DYOC -  1);
-  };
-  return(Result__LH0B);
-}
-
-static void** create__JQXB(__INTEGER nb_elements__LQXB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__DKHH,a__CKHH,new_size__EKHH,new_size2__FKHH,a__GKHH;
-  __UINTEGER_32 new_size__HKHH;
-  __POINTER result__BKHH,ptr_table__GYIH,next__FYIH,result__HYIH;
-  __INTEGER Self__R0OC;
-  void **Result__Y20B;
-  sz__DKHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__LQXB * ((__INTEGER )(sizeof(void *)))));
-  result__BKHH=((__POINTER )(NULL));
-  a__CKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__EKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DKHH + a__CKHH) & (__UINTEGER_32)(~ a__CKHH));
-  new_size2__FKHH=(__UINTEGER_32)(new_size__EKHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__FKHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__GKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__HKHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FKHH + a__GKHH) & (__UINTEGER_32)(~ a__GKHH));
-    ptr_table__GYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__FYIH=((__POINTER )(NULL));
-    result__HYIH=((__POINTER *)ptr_table__GYIH)[ 0];
-    if ((result__HYIH == (void *)NULL)) {
-      result__HYIH=new_lab__RTJ(new_size__HKHH);
-      next__FYIH=(void *)((unsigned long)result__HYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HKHH)));
-      ((__POINTER *)next__FYIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__GYIH)[ 0]=next__FYIH;
-    } else {
-      next__FYIH=((__POINTER *)result__HYIH)[ 0];
-      if ((next__FYIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HYIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HKHH <<  1)) <=  4096)) {
-          next__FYIH=(void *)((unsigned long)result__HYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HKHH)));
-        } else {
-          next__FYIH=new_lab__RTJ(new_size__HKHH);
-        };
-        ((__POINTER *)next__FYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__GYIH)[ 0]=next__FYIH;
-      } else {
-        ((__POINTER *)result__HYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__HYIH=next__FYIH;
-      };
-    };
-    ((__POINTER *)result__HYIH)[ 0]=((__POINTER ) 3);
-    result__BKHH=(void *)((unsigned long)result__HYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__BKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EKHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__Y20B=((void **)result__BKHH);
-  Self__R0OC=(__INTEGER)(nb_elements__LQXB -  1);
-  while ((Self__R0OC >=  0)) {
-    Result__Y20B[Self__R0OC]=NULL;
-    Self__R0OC=(__INTEGER)(Self__R0OC -  1);
-  };
-  return(Result__Y20B);
-}
-
-static void** create__OG5(__INTEGER nb_elements__QG5)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__LKHH,a__KKHH,new_size__MKHH,new_size2__NKHH,a__OKHH;
-  __UINTEGER_32 new_size__PKHH;
-  __POINTER result__JKHH,ptr_table__LYIH,next__KYIH,result__MYIH;
-  __INTEGER Self__GAKC;
-  void **Result__Y4FB;
-  sz__LKHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__QG5 * ((__INTEGER )(sizeof(void *)))));
-  result__JKHH=((__POINTER )(NULL));
-  a__KKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__MKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LKHH + a__KKHH) & (__UINTEGER_32)(~ a__KKHH));
-  new_size2__NKHH=(__UINTEGER_32)(new_size__MKHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__NKHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__OKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__PKHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NKHH + a__OKHH) & (__UINTEGER_32)(~ a__OKHH));
-    ptr_table__LYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__KYIH=((__POINTER )(NULL));
-    result__MYIH=((__POINTER *)ptr_table__LYIH)[ 0];
-    if ((result__MYIH == (void *)NULL)) {
-      result__MYIH=new_lab__RTJ(new_size__PKHH);
-      next__KYIH=(void *)((unsigned long)result__MYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKHH)));
-      ((__POINTER *)next__KYIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__LYIH)[ 0]=next__KYIH;
-    } else {
-      next__KYIH=((__POINTER *)result__MYIH)[ 0];
-      if ((next__KYIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MYIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PKHH <<  1)) <=  4096)) {
-          next__KYIH=(void *)((unsigned long)result__MYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKHH)));
-        } else {
-          next__KYIH=new_lab__RTJ(new_size__PKHH);
-        };
-        ((__POINTER *)next__KYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__LYIH)[ 0]=next__KYIH;
-      } else {
-        ((__POINTER *)result__MYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__MYIH=next__KYIH;
-      };
-    };
-    ((__POINTER *)result__MYIH)[ 0]=((__POINTER ) 3);
-    result__JKHH=(void *)((unsigned long)result__MYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__JKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MKHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__Y4FB=((void **)result__JKHH);
-  Self__GAKC=(__INTEGER)(nb_elements__QG5 -  1);
-  while ((Self__GAKC >=  0)) {
-    Result__Y4FB[Self__GAKC]=NULL;
-    Self__GAKC=(__INTEGER)(Self__GAKC -  1);
-  };
-  return(Result__Y4FB);
-}
-
-static void fast_put__to__JPZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__KPZ,void *v__LPZ,void *k__MPZ)
-// ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{ITM_TYPE_PARAMETERxITM_TYPE_SIMPLE},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER h__TPZ,idx__UPZ,idx__WATB,new_capacity__XATB,i__YATB;
-  __INTEGER typ_id__FDTB;
-  __POINTER ptr__ADTB,ptr_table__QYIH,next__PYIH,result__RYIH;
-  __POINTER ptr_table__VYIH,next__UYIH,result__WYIH;
-  __UINTEGER_32 sz__CDTB,a__NOFH,new_size__OOFH,t__SOFH,a__ROFH;
-  __UINTEGER_32 new_size__YYIH,lab_type__XYIH;
-  void *node__VPZ,*node1__0ATB,*node2__1ATB,*__tmp__CRZ;
-  void **old_buckets__ZATB;
-  __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__5CTB;
-  __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__WWEC;
-  h__TPZ=hash_code__RNW(k__MPZ);
-  idx__UPZ=(__INTEGER)(h__TPZ % Self__KPZ->capacity__A4T);
-  node__VPZ=((void **)Self__KPZ->buckets__F4T)[idx__UPZ];
-  while ((! (((void *)node__VPZ == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__VPZ)->key__R4T == (void *)k__MPZ)))) {
-    node__VPZ=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__VPZ)->next__24T;
-  };
-  if (((void *)node__VPZ == (void *)NULL)) {
-    if ((Self__KPZ->capacity__A4T == Self__KPZ->count__CGZ)) {
-      idx__WATB= 0;
-      node1__0ATB=NULL;
-      node2__1ATB=NULL;
-      old_buckets__ZATB=Self__KPZ->buckets__F4T;
-      new_capacity__XATB=prime_number_ceiling__021((__INTEGER)(Self__KPZ->capacity__A4T +  1));
-      Self__KPZ->buckets__F4T=create__OG5(new_capacity__XATB);
-      i__YATB=(__INTEGER)(Self__KPZ->capacity__A4T -  1);
-      Self__KPZ->capacity__A4T=new_capacity__XATB;
-      while ((i__YATB >=  0)) {
-        node1__0ATB=((void **)old_buckets__ZATB)[i__YATB];
-        while (((void *)node1__0ATB != (void *)NULL)) {
-          node2__1ATB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__0ATB)->next__24T;
-          idx__WATB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__0ATB)->key__R4T) % Self__KPZ->capacity__A4T);
-          ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__0ATB)->next__24T=((void **)Self__KPZ->buckets__F4T)[idx__WATB];
-          ((void **)Self__KPZ->buckets__F4T)[idx__WATB]=node1__0ATB;
-          node1__0ATB=node2__1ATB;
-        };
-        i__YATB=(__INTEGER)(i__YATB -  1);
-      };
-      idx__UPZ=(__INTEGER)(h__TPZ % Self__KPZ->capacity__A4T);
-    };
-    __tmp__CRZ=((void **)Self__KPZ->buckets__F4T)[idx__UPZ];
-    result__5CTB=NULL;
-    ptr__ADTB=((__POINTER )(NULL));
-    typ_id__FDTB= 0;
-    sz__CDTB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo));
-    if ((sz__CDTB ==  0)) {
-      result__5CTB=HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
-    } else {
-      typ_id__FDTB=__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__CDTB);
-      if ((typ_id__FDTB == (__INTEGER)(-  1))) {
-        a__NOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__OOFH=(__UINTEGER_32)((__UINTEGER_32)(sz__CDTB + a__NOFH) & (__UINTEGER_32)(~ a__NOFH));
-        ptr_table__QYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OOFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__PYIH=((__POINTER )(NULL));
-        result__RYIH=((__POINTER *)ptr_table__QYIH)[ 0];
-        if ((result__RYIH == (void *)NULL)) {
-          result__RYIH=new_lab__RTJ(new_size__OOFH);
-          next__PYIH=(void *)((unsigned long)result__RYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOFH)));
-          ((__POINTER *)next__PYIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QYIH)[ 0]=next__PYIH;
-        } else {
-          next__PYIH=((__POINTER *)result__RYIH)[ 0];
-          if ((next__PYIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RYIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OOFH <<  1)) <=  4096)) {
-              next__PYIH=(void *)((unsigned long)result__RYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOFH)));
-            } else {
-              next__PYIH=new_lab__RTJ(new_size__OOFH);
-            };
-            ((__POINTER *)next__PYIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__QYIH)[ 0]=next__PYIH;
-          } else {
-            ((__POINTER *)result__RYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__RYIH=next__PYIH;
-          };
-        };
-        ptr__ADTB=result__RYIH;
-      } else {
-        t__SOFH=((__UINTEGER_32 )typ_id__FDTB);
-        a__ROFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__YYIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CDTB + a__ROFH) & (__UINTEGER_32)(~ a__ROFH));
-        ptr_table__VYIH=((__POINTER )(&(table_type[(t__SOFH)])));
-        lab_type__XYIH=(__UINTEGER_32)(t__SOFH |  1);
-        next__UYIH=((__POINTER )(NULL));
-        result__WYIH=((__POINTER *)ptr_table__VYIH)[ 0];
-        if ((result__WYIH == (void *)NULL)) {
-          result__WYIH=new_lab__RTJ(lab_type__XYIH);
-          next__UYIH=(void *)((unsigned long)result__WYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYIH)));
-          ((__POINTER *)next__UYIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VYIH)[ 0]=next__UYIH;
-        } else {
-          next__UYIH=((__POINTER *)result__WYIH)[ 0];
-          if ((next__UYIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WYIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YYIH <<  1)) <=  4096)) {
-              next__UYIH=(void *)((unsigned long)result__WYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYIH)));
-            } else {
-              next__UYIH=new_lab__RTJ(lab_type__XYIH);
-            };
-            ((__POINTER *)next__UYIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__VYIH)[ 0]=next__UYIH;
-          } else {
-            ((__POINTER *)result__WYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__WYIH=next__UYIH;
-          };
-        };
-        ptr__ADTB=result__WYIH;
-      };
-      result__5CTB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__ADTB);
-      *(result__5CTB) = *(HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
-    };
-    Self__WWEC=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)result__5CTB);
-    Self__WWEC->item__E5T=v__LPZ;
-    Self__WWEC->key__R4T=k__MPZ;
-    Self__WWEC->next__24T=__tmp__CRZ;
-    node__VPZ=result__5CTB;
-    ((void **)Self__KPZ->buckets__F4T)[idx__UPZ]=result__5CTB;
-    Self__KPZ->count__CGZ=(__INTEGER)(Self__KPZ->count__CGZ +  1);
-  } else {
-    ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__VPZ)->item__E5T=v__LPZ;
-  };
-}
-
-static void** create__VFYB(__INTEGER nb_elements__XFYB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__TKHH,a__SKHH,new_size__UKHH,new_size2__VKHH,a__WKHH;
-  __UINTEGER_32 new_size__XKHH;
-  __POINTER result__RKHH,ptr_table__0YIH,next__ZYIH,result__1YIH;
-  __INTEGER Self__Y1OC;
-  void **Result__WG1B;
-  sz__TKHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XFYB * ((__INTEGER )(sizeof(void *)))));
-  result__RKHH=((__POINTER )(NULL));
-  a__SKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__UKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TKHH + a__SKHH) & (__UINTEGER_32)(~ a__SKHH));
-  new_size2__VKHH=(__UINTEGER_32)(new_size__UKHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__VKHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__WKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__XKHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VKHH + a__WKHH) & (__UINTEGER_32)(~ a__WKHH));
-    ptr_table__0YIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__ZYIH=((__POINTER )(NULL));
-    result__1YIH=((__POINTER *)ptr_table__0YIH)[ 0];
-    if ((result__1YIH == (void *)NULL)) {
-      result__1YIH=new_lab__RTJ(new_size__XKHH);
-      next__ZYIH=(void *)((unsigned long)result__1YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKHH)));
-      ((__POINTER *)next__ZYIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__0YIH)[ 0]=next__ZYIH;
-    } else {
-      next__ZYIH=((__POINTER *)result__1YIH)[ 0];
-      if ((next__ZYIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1YIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XKHH <<  1)) <=  4096)) {
-          next__ZYIH=(void *)((unsigned long)result__1YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKHH)));
-        } else {
-          next__ZYIH=new_lab__RTJ(new_size__XKHH);
-        };
-        ((__POINTER *)next__ZYIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0YIH)[ 0]=next__ZYIH;
-      } else {
-        ((__POINTER *)result__1YIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__1YIH=next__ZYIH;
-      };
-    };
-    ((__POINTER *)result__1YIH)[ 0]=((__POINTER ) 3);
-    result__RKHH=(void *)((unsigned long)result__1YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__RKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__UKHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__WG1B=((void **)result__RKHH);
-  Self__Y1OC=(__INTEGER)(nb_elements__XFYB -  1);
-  while ((Self__Y1OC >=  0)) {
-    Result__WG1B[Self__Y1OC]=NULL;
-    Self__Y1OC=(__INTEGER)(Self__Y1OC -  1);
-  };
-  return(Result__WG1B);
-}
-
-static void* get__IVI(void *n__KVI)
-// ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *result__SVI;
-  __ITM_TYPE_SIMPLE *result__2NL,*Self__DTU;
-  __POINTER ptr__3NL,ptr_table__5YIH,next__4YIH,result__AZIH;
-  __POINTER ptr_table__EZIH,next__DZIH,result__FZIH;
-  __INTEGER typ_id__COL;
-  __UINTEGER_32 sz__5NL,a__VCFH,new_size__WCFH,t__0CFH,a__ZCFH;
-  __UINTEGER_32 new_size__HZIH,lab_type__GZIH;
-  result__SVI=fast_reference_at__R3T(dico__XVI,n__KVI);
-  if (((void *)result__SVI == (void *)NULL)) {
-    result__2NL=NULL;
-    ptr__3NL=((__POINTER )(NULL));
-    typ_id__COL= 0;
-    sz__5NL=((__UINTEGER_32 )sizeof(__ITM_TYPE_SIMPLE));
-    if ((sz__5NL ==  0)) {
-      result__2NL=ITM_TYPE_SIMPLE__;
-    } else {
-      typ_id__COL=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5NL);
-      if ((typ_id__COL == (__INTEGER)(-  1))) {
-        a__VCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__WCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NL + a__VCFH) & (__UINTEGER_32)(~ a__VCFH));
-        ptr_table__5YIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__4YIH=((__POINTER )(NULL));
-        result__AZIH=((__POINTER *)ptr_table__5YIH)[ 0];
-        if ((result__AZIH == (void *)NULL)) {
-          result__AZIH=new_lab__RTJ(new_size__WCFH);
-          next__4YIH=(void *)((unsigned long)result__AZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCFH)));
-          ((__POINTER *)next__4YIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5YIH)[ 0]=next__4YIH;
-        } else {
-          next__4YIH=((__POINTER *)result__AZIH)[ 0];
-          if ((next__4YIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WCFH <<  1)) <=  4096)) {
-              next__4YIH=(void *)((unsigned long)result__AZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCFH)));
-            } else {
-              next__4YIH=new_lab__RTJ(new_size__WCFH);
-            };
-            ((__POINTER *)next__4YIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__5YIH)[ 0]=next__4YIH;
-          } else {
-            ((__POINTER *)result__AZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4YIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__AZIH=next__4YIH;
-          };
-        };
-        ptr__3NL=result__AZIH;
-      } else {
-        t__0CFH=((__UINTEGER_32 )typ_id__COL);
-        a__ZCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__HZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NL + a__ZCFH) & (__UINTEGER_32)(~ a__ZCFH));
-        ptr_table__EZIH=((__POINTER )(&(table_type[(t__0CFH)])));
-        lab_type__GZIH=(__UINTEGER_32)(t__0CFH |  1);
-        next__DZIH=((__POINTER )(NULL));
-        result__FZIH=((__POINTER *)ptr_table__EZIH)[ 0];
-        if ((result__FZIH == (void *)NULL)) {
-          result__FZIH=new_lab__RTJ(lab_type__GZIH);
-          next__DZIH=(void *)((unsigned long)result__FZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HZIH)));
-          ((__POINTER *)next__DZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__EZIH)[ 0]=next__DZIH;
-        } else {
-          next__DZIH=((__POINTER *)result__FZIH)[ 0];
-          if ((next__DZIH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HZIH <<  1)) <=  4096)) {
-              next__DZIH=(void *)((unsigned long)result__FZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HZIH)));
-            } else {
-              next__DZIH=new_lab__RTJ(lab_type__GZIH);
-            };
-            ((__POINTER *)next__DZIH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__EZIH)[ 0]=next__DZIH;
-          } else {
-            ((__POINTER *)result__FZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__FZIH=next__DZIH;
-          };
-        };
-        ptr__3NL=result__FZIH;
-      };
-      result__2NL=((__ITM_TYPE_SIMPLE *)ptr__3NL);
-      *(result__2NL) = *(ITM_TYPE_SIMPLE__);
-    };
-    Self__DTU=((__ITM_TYPE_SIMPLE *)result__2NL);
-    Self__DTU->name__GZP=n__KVI;
-    fast_put__to__JPZ(dico__XVI,Self__DTU,n__KVI);
-    result__SVI=result__2NL;
-  };
-  return(result__SVI);
-}
-
-static void** create__NFQB(__INTEGER nb_elements__PFQB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__1KHH,a__0KHH,new_size__2KHH,new_size2__3KHH,a__4KHH;
-  __UINTEGER_32 new_size__5KHH;
-  __POINTER result__ZKHH,ptr_table__JZIH,next__IZIH,result__KZIH;
-  __INTEGER Self__3WMC;
-  void **Result__W4SB;
-  sz__1KHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__PFQB * ((__INTEGER )(sizeof(void *)))));
-  result__ZKHH=((__POINTER )(NULL));
-  a__0KHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__2KHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1KHH + a__0KHH) & (__UINTEGER_32)(~ a__0KHH));
-  new_size2__3KHH=(__UINTEGER_32)(new_size__2KHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__3KHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__4KHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__5KHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3KHH + a__4KHH) & (__UINTEGER_32)(~ a__4KHH));
-    ptr_table__JZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5KHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__IZIH=((__POINTER )(NULL));
-    result__KZIH=((__POINTER *)ptr_table__JZIH)[ 0];
-    if ((result__KZIH == (void *)NULL)) {
-      result__KZIH=new_lab__RTJ(new_size__5KHH);
-      next__IZIH=(void *)((unsigned long)result__KZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KHH)));
-      ((__POINTER *)next__IZIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__JZIH)[ 0]=next__IZIH;
-    } else {
-      next__IZIH=((__POINTER *)result__KZIH)[ 0];
-      if ((next__IZIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5KHH <<  1)) <=  4096)) {
-          next__IZIH=(void *)((unsigned long)result__KZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KHH)));
-        } else {
-          next__IZIH=new_lab__RTJ(new_size__5KHH);
-        };
-        ((__POINTER *)next__IZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__JZIH)[ 0]=next__IZIH;
-      } else {
-        ((__POINTER *)result__KZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__KZIH=next__IZIH;
-      };
-    };
-    ((__POINTER *)result__KZIH)[ 0]=((__POINTER ) 3);
-    result__ZKHH=(void *)((unsigned long)result__KZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__ZKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2KHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__W4SB=((void **)result__ZKHH);
-  Self__3WMC=(__INTEGER)(nb_elements__PFQB -  1);
-  while ((Self__3WMC >=  0)) {
-    Result__W4SB[Self__3WMC]=NULL;
-    Self__3WMC=(__INTEGER)(Self__3WMC -  1);
-  };
-  return(Result__W4SB);
-}
-
-static void** create__3ZPB(__INTEGER nb_elements__5ZPB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__DLHH,a__CLHH,new_size__ELHH,new_size2__FLHH,a__GLHH;
-  __UINTEGER_32 new_size__HLHH;
-  __POINTER result__BLHH,ptr_table__OZIH,next__NZIH,result__PZIH;
-  __INTEGER Self__WVMC;
-  void **Result__LWSB;
-  sz__DLHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5ZPB * ((__INTEGER )(sizeof(void *)))));
-  result__BLHH=((__POINTER )(NULL));
-  a__CLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ELHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DLHH + a__CLHH) & (__UINTEGER_32)(~ a__CLHH));
-  new_size2__FLHH=(__UINTEGER_32)(new_size__ELHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__FLHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__GLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__HLHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FLHH + a__GLHH) & (__UINTEGER_32)(~ a__GLHH));
-    ptr_table__OZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HLHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__NZIH=((__POINTER )(NULL));
-    result__PZIH=((__POINTER *)ptr_table__OZIH)[ 0];
-    if ((result__PZIH == (void *)NULL)) {
-      result__PZIH=new_lab__RTJ(new_size__HLHH);
-      next__NZIH=(void *)((unsigned long)result__PZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLHH)));
-      ((__POINTER *)next__NZIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__OZIH)[ 0]=next__NZIH;
-    } else {
-      next__NZIH=((__POINTER *)result__PZIH)[ 0];
-      if ((next__NZIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HLHH <<  1)) <=  4096)) {
-          next__NZIH=(void *)((unsigned long)result__PZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLHH)));
-        } else {
-          next__NZIH=new_lab__RTJ(new_size__HLHH);
-        };
-        ((__POINTER *)next__NZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__OZIH)[ 0]=next__NZIH;
-      } else {
-        ((__POINTER *)result__PZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__PZIH=next__NZIH;
-      };
-    };
-    ((__POINTER *)result__PZIH)[ 0]=((__POINTER ) 3);
-    result__BLHH=(void *)((unsigned long)result__PZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__BLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ELHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__LWSB=((void **)result__BLHH);
-  Self__WVMC=(__INTEGER)(nb_elements__5ZPB -  1);
-  while ((Self__WVMC >=  0)) {
-    Result__LWSB[Self__WVMC]=NULL;
-    Self__WVMC=(__INTEGER)(Self__WVMC -  1);
-  };
-  return(Result__LWSB);
-}
-
-static void** create__Z1ZB(__INTEGER nb_elements__11ZB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__LLHH,a__KLHH,new_size__MLHH,new_size2__NLHH,a__OLHH;
-  __UINTEGER_32 new_size__PLHH;
-  __POINTER result__JLHH,ptr_table__TZIH,next__SZIH,result__UZIH;
-  __INTEGER Self__E5OC;
-  void **Result__RC2B;
-  sz__LLHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__11ZB * ((__INTEGER )(sizeof(void *)))));
-  result__JLHH=((__POINTER )(NULL));
-  a__KLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__MLHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LLHH + a__KLHH) & (__UINTEGER_32)(~ a__KLHH));
-  new_size2__NLHH=(__UINTEGER_32)(new_size__MLHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__NLHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__OLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__PLHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NLHH + a__OLHH) & (__UINTEGER_32)(~ a__OLHH));
-    ptr_table__TZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__SZIH=((__POINTER )(NULL));
-    result__UZIH=((__POINTER *)ptr_table__TZIH)[ 0];
-    if ((result__UZIH == (void *)NULL)) {
-      result__UZIH=new_lab__RTJ(new_size__PLHH);
-      next__SZIH=(void *)((unsigned long)result__UZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLHH)));
-      ((__POINTER *)next__SZIH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__TZIH)[ 0]=next__SZIH;
-    } else {
-      next__SZIH=((__POINTER *)result__UZIH)[ 0];
-      if ((next__SZIH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PLHH <<  1)) <=  4096)) {
-          next__SZIH=(void *)((unsigned long)result__UZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLHH)));
-        } else {
-          next__SZIH=new_lab__RTJ(new_size__PLHH);
-        };
-        ((__POINTER *)next__SZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__TZIH)[ 0]=next__SZIH;
-      } else {
-        ((__POINTER *)result__UZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__UZIH=next__SZIH;
-      };
-    };
-    ((__POINTER *)result__UZIH)[ 0]=((__POINTER ) 3);
-    result__JLHH=(void *)((unsigned long)result__UZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__JLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MLHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__RC2B=((void **)result__JLHH);
-  Self__E5OC=(__INTEGER)(nb_elements__11ZB -  1);
-  while ((Self__E5OC >=  0)) {
-    Result__RC2B[Self__E5OC]=NULL;
-    Self__E5OC=(__INTEGER)(Self__E5OC -  1);
-  };
-  return(Result__RC2B);
-}
-
-static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__THRC(__INTEGER new_count__VHRC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __POINTER ptr__ZD1C,ptr_table__YZIH,next__XZIH,result__ZZIH;
-  __POINTER ptr_table__3ZIH,next__2ZIH,result__4ZIH;
-  __INTEGER typ_id__4D1C;
-  __UINTEGER_32 sz__1D1C,a__3CFH,new_size__4CFH,t__CDFH,a__BDFH;
-  __UINTEGER_32 new_size__A0IH,lab_type__5ZIH;
-  __FAST_ARRAYoSTRING_CONSTANTo *result__YD1C,*Self__DBSD;
-  result__YD1C=NULL;
-  ptr__ZD1C=((__POINTER )(NULL));
-  typ_id__4D1C= 0;
-  sz__1D1C=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRING_CONSTANTo));
-  if ((sz__1D1C ==  0)) {
-    result__YD1C=FAST_ARRAYoSTRING_CONSTANTo__;
-  } else {
-    typ_id__4D1C=__FAST_ARRAYoSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1D1C);
-    if ((typ_id__4D1C == (__INTEGER)(-  1))) {
-      a__3CFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__4CFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1D1C + a__3CFH) & (__UINTEGER_32)(~ a__3CFH));
-      ptr_table__YZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4CFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__XZIH=((__POINTER )(NULL));
-      result__ZZIH=((__POINTER *)ptr_table__YZIH)[ 0];
-      if ((result__ZZIH == (void *)NULL)) {
-        result__ZZIH=new_lab__RTJ(new_size__4CFH);
-        next__XZIH=(void *)((unsigned long)result__ZZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CFH)));
-        ((__POINTER *)next__XZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__YZIH)[ 0]=next__XZIH;
-      } else {
-        next__XZIH=((__POINTER *)result__ZZIH)[ 0];
-        if ((next__XZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__4CFH <<  1)) <=  4096)) {
-            next__XZIH=(void *)((unsigned long)result__ZZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CFH)));
-          } else {
-            next__XZIH=new_lab__RTJ(new_size__4CFH);
-          };
-          ((__POINTER *)next__XZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__YZIH)[ 0]=next__XZIH;
-        } else {
-          ((__POINTER *)result__ZZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__ZZIH=next__XZIH;
-        };
-      };
-      ptr__ZD1C=result__ZZIH;
-    } else {
-      t__CDFH=((__UINTEGER_32 )typ_id__4D1C);
-      a__BDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__A0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__1D1C + a__BDFH) & (__UINTEGER_32)(~ a__BDFH));
-      ptr_table__3ZIH=((__POINTER )(&(table_type[(t__CDFH)])));
-      lab_type__5ZIH=(__UINTEGER_32)(t__CDFH |  1);
-      next__2ZIH=((__POINTER )(NULL));
-      result__4ZIH=((__POINTER *)ptr_table__3ZIH)[ 0];
-      if ((result__4ZIH == (void *)NULL)) {
-        result__4ZIH=new_lab__RTJ(lab_type__5ZIH);
-        next__2ZIH=(void *)((unsigned long)result__4ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0IH)));
-        ((__POINTER *)next__2ZIH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__3ZIH)[ 0]=next__2ZIH;
-      } else {
-        next__2ZIH=((__POINTER *)result__4ZIH)[ 0];
-        if ((next__2ZIH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4ZIH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__A0IH <<  1)) <=  4096)) {
-            next__2ZIH=(void *)((unsigned long)result__4ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0IH)));
-          } else {
-            next__2ZIH=new_lab__RTJ(lab_type__5ZIH);
-          };
-          ((__POINTER *)next__2ZIH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__3ZIH)[ 0]=next__2ZIH;
-        } else {
-          ((__POINTER *)result__4ZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2ZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__4ZIH=next__2ZIH;
-        };
-      };
-      ptr__ZD1C=result__4ZIH;
-    };
-    result__YD1C=((__FAST_ARRAYoSTRING_CONSTANTo *)ptr__ZD1C);
-    *(result__YD1C) = *(FAST_ARRAYoSTRING_CONSTANTo__);
-  };
-  Self__DBSD=((__FAST_ARRAYoSTRING_CONSTANTo *)result__YD1C);
-  if ((Self__DBSD->parent_arrayed_collection__MBJ.capacity__XEPD < new_count__VHRC)) {
-    Self__DBSD->parent_arrayed_collection__MBJ.storage__SFPD=create__QMHE(new_count__VHRC);
-    Self__DBSD->parent_arrayed_collection__MBJ.capacity__XEPD=new_count__VHRC;
-  };
-  Self__DBSD->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(-  1);
-  return(result__YD1C);
-}
-
-static void** create__FNUF(__INTEGER nb_elements__HNUF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__TLHH,a__SLHH,new_size__ULHH,new_size2__VLHH,a__WLHH;
-  __UINTEGER_32 new_size__XLHH;
-  __POINTER result__RLHH,ptr_table__C0IH,next__B0IH,result__D0IH;
-  __INTEGER Self__5JAG;
-  void **Result__P3YF;
-  sz__TLHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__HNUF * ((__INTEGER )(sizeof(void *)))));
-  result__RLHH=((__POINTER )(NULL));
-  a__SLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ULHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TLHH + a__SLHH) & (__UINTEGER_32)(~ a__SLHH));
-  new_size2__VLHH=(__UINTEGER_32)(new_size__ULHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__VLHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__WLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__XLHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VLHH + a__WLHH) & (__UINTEGER_32)(~ a__WLHH));
-    ptr_table__C0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XLHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__B0IH=((__POINTER )(NULL));
-    result__D0IH=((__POINTER *)ptr_table__C0IH)[ 0];
-    if ((result__D0IH == (void *)NULL)) {
-      result__D0IH=new_lab__RTJ(new_size__XLHH);
-      next__B0IH=(void *)((unsigned long)result__D0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLHH)));
-      ((__POINTER *)next__B0IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__C0IH)[ 0]=next__B0IH;
-    } else {
-      next__B0IH=((__POINTER *)result__D0IH)[ 0];
-      if ((next__B0IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D0IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XLHH <<  1)) <=  4096)) {
-          next__B0IH=(void *)((unsigned long)result__D0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLHH)));
-        } else {
-          next__B0IH=new_lab__RTJ(new_size__XLHH);
-        };
-        ((__POINTER *)next__B0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__C0IH)[ 0]=next__B0IH;
-      } else {
-        ((__POINTER *)result__D0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__D0IH=next__B0IH;
-      };
-    };
-    ((__POINTER *)result__D0IH)[ 0]=((__POINTER ) 3);
-    result__RLHH=(void *)((unsigned long)result__D0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__RLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ULHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__P3YF=((void **)result__RLHH);
-  Self__5JAG=(__INTEGER)(nb_elements__HNUF -  1);
-  while ((Self__5JAG >=  0)) {
-    Result__P3YF[Self__5JAG]=NULL;
-    Self__5JAG=(__INTEGER)(Self__5JAG -  1);
-  };
-  return(Result__P3YF);
-}
-
-static void** create__JPGF(__INTEGER nb_elements__LPGF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__1LHH,a__0LHH,new_size__2LHH,new_size2__3LHH,a__4LHH;
-  __UINTEGER_32 new_size__5LHH;
-  __POINTER result__ZLHH,ptr_table__H0IH,next__G0IH,result__I0IH;
-  __INTEGER Self__ECRF;
-  void **Result__CWKF;
-  sz__1LHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__LPGF * ((__INTEGER )(sizeof(void *)))));
-  result__ZLHH=((__POINTER )(NULL));
-  a__0LHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__2LHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1LHH + a__0LHH) & (__UINTEGER_32)(~ a__0LHH));
-  new_size2__3LHH=(__UINTEGER_32)(new_size__2LHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__3LHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__4LHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__5LHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3LHH + a__4LHH) & (__UINTEGER_32)(~ a__4LHH));
-    ptr_table__H0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5LHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__G0IH=((__POINTER )(NULL));
-    result__I0IH=((__POINTER *)ptr_table__H0IH)[ 0];
-    if ((result__I0IH == (void *)NULL)) {
-      result__I0IH=new_lab__RTJ(new_size__5LHH);
-      next__G0IH=(void *)((unsigned long)result__I0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LHH)));
-      ((__POINTER *)next__G0IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__H0IH)[ 0]=next__G0IH;
-    } else {
-      next__G0IH=((__POINTER *)result__I0IH)[ 0];
-      if ((next__G0IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I0IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5LHH <<  1)) <=  4096)) {
-          next__G0IH=(void *)((unsigned long)result__I0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LHH)));
-        } else {
-          next__G0IH=new_lab__RTJ(new_size__5LHH);
-        };
-        ((__POINTER *)next__G0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__H0IH)[ 0]=next__G0IH;
-      } else {
-        ((__POINTER *)result__I0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__I0IH=next__G0IH;
-      };
-    };
-    ((__POINTER *)result__I0IH)[ 0]=((__POINTER ) 3);
-    result__ZLHH=(void *)((unsigned long)result__I0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__ZLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2LHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__CWKF=((void **)result__ZLHH);
-  Self__ECRF=(__INTEGER)(nb_elements__LPGF -  1);
-  while ((Self__ECRF >=  0)) {
-    Result__CWKF[Self__ECRF]=NULL;
-    Self__ECRF=(__INTEGER)(Self__ECRF -  1);
-  };
-  return(Result__CWKF);
-}
-
-static void** create__ARYF(__INTEGER nb_elements__CRYF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__DMHH,a__CMHH,new_size__EMHH,new_size2__FMHH,a__GMHH;
-  __UINTEGER_32 new_size__HMHH;
-  __POINTER result__BMHH,ptr_table__M0IH,next__L0IH,result__N0IH;
-  __INTEGER Self__ZNAG;
-  void **Result__GC1F;
-  sz__DMHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__CRYF * ((__INTEGER )(sizeof(void *)))));
-  result__BMHH=((__POINTER )(NULL));
-  a__CMHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__EMHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DMHH + a__CMHH) & (__UINTEGER_32)(~ a__CMHH));
-  new_size2__FMHH=(__UINTEGER_32)(new_size__EMHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__FMHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__GMHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__HMHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FMHH + a__GMHH) & (__UINTEGER_32)(~ a__GMHH));
-    ptr_table__M0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HMHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__L0IH=((__POINTER )(NULL));
-    result__N0IH=((__POINTER *)ptr_table__M0IH)[ 0];
-    if ((result__N0IH == (void *)NULL)) {
-      result__N0IH=new_lab__RTJ(new_size__HMHH);
-      next__L0IH=(void *)((unsigned long)result__N0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMHH)));
-      ((__POINTER *)next__L0IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__M0IH)[ 0]=next__L0IH;
-    } else {
-      next__L0IH=((__POINTER *)result__N0IH)[ 0];
-      if ((next__L0IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N0IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HMHH <<  1)) <=  4096)) {
-          next__L0IH=(void *)((unsigned long)result__N0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMHH)));
-        } else {
-          next__L0IH=new_lab__RTJ(new_size__HMHH);
-        };
-        ((__POINTER *)next__L0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__M0IH)[ 0]=next__L0IH;
-      } else {
-        ((__POINTER *)result__N0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__N0IH=next__L0IH;
-      };
-    };
-    ((__POINTER *)result__N0IH)[ 0]=((__POINTER ) 3);
-    result__BMHH=(void *)((unsigned long)result__N0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__BMHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EMHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__GC1F=((void **)result__BMHH);
-  Self__ZNAG=(__INTEGER)(nb_elements__CRYF -  1);
-  while ((Self__ZNAG >=  0)) {
-    Result__GC1F[Self__ZNAG]=NULL;
-    Self__ZNAG=(__INTEGER)(Self__ZNAG -  1);
-  };
-  return(Result__GC1F);
-}
-
-static void** create__R2IE(__INTEGER nb_elements__T2IE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__LLJB,a__FDFH,new_size__NLJB,new_size2__QLJB,a__JDFH;
-  __UINTEGER_32 new_size__KDFH;
-  __POINTER result__TLJB,ptr_table__R0IH,next__Q0IH,result__S0IH;
-  __INTEGER Self__IYYE;
-  void **Result__AAOE;
-  sz__LLJB=((__UINTEGER_32 )(__INTEGER)(nb_elements__T2IE * ((__INTEGER )(sizeof(void *)))));
-  result__TLJB=((__POINTER )(NULL));
-  a__FDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__NLJB=(__UINTEGER_32)((__UINTEGER_32)(sz__LLJB + a__FDFH) & (__UINTEGER_32)(~ a__FDFH));
-  new_size2__QLJB=(__UINTEGER_32)(new_size__NLJB + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__QLJB <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__JDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__KDFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__QLJB + a__JDFH) & (__UINTEGER_32)(~ a__JDFH));
-    ptr_table__R0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KDFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__Q0IH=((__POINTER )(NULL));
-    result__S0IH=((__POINTER *)ptr_table__R0IH)[ 0];
-    if ((result__S0IH == (void *)NULL)) {
-      result__S0IH=new_lab__RTJ(new_size__KDFH);
-      next__Q0IH=(void *)((unsigned long)result__S0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KDFH)));
-      ((__POINTER *)next__Q0IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__R0IH)[ 0]=next__Q0IH;
-    } else {
-      next__Q0IH=((__POINTER *)result__S0IH)[ 0];
-      if ((next__Q0IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S0IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__KDFH <<  1)) <=  4096)) {
-          next__Q0IH=(void *)((unsigned long)result__S0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KDFH)));
-        } else {
-          next__Q0IH=new_lab__RTJ(new_size__KDFH);
-        };
-        ((__POINTER *)next__Q0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__R0IH)[ 0]=next__Q0IH;
-      } else {
-        ((__POINTER *)result__S0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__S0IH=next__Q0IH;
-      };
-    };
-    ((__POINTER *)result__S0IH)[ 0]=((__POINTER ) 3);
-    result__TLJB=(void *)((unsigned long)result__S0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__TLJB=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__NLJB))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__AAOE=((void **)result__TLJB);
-  Self__IYYE=(__INTEGER)(nb_elements__T2IE -  1);
-  while ((Self__IYYE >=  0)) {
-    Result__AAOE[Self__IYYE]=NULL;
-    Self__IYYE=(__INTEGER)(Self__IYYE -  1);
-  };
-  return(Result__AAOE);
-}
-
-static void* search__XAVB(__UINTEGER_32 new_size__ZAVB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
-  void *result__1AVB;
-  result__1AVB=first_free__0BVB;
-  while ((((void *)result__1AVB != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__1AVB)->map_size_and_id__YTB &  4294967292LU) < new_size__ZAVB))) {
-    result__1AVB=((__MEMORY *)result__1AVB)->map_next_free__ZTB;
-  };
-  if (((void *)result__1AVB == (void *)NULL)) {
-    result__1AVB=new_page__H54();
-  };
-  to_busy__index__3SFC(result__1AVB,new_size__ZAVB,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__1AVB)) - (unsigned long)begin_memory__4XH)))) >>  26));
-  return(result__1AVB);
-}
-
-static void** create__C3XC(__INTEGER nb_elements__E3XC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__MAHH,a__LAHH,new_size__NAHH,new_size2__OAHH,a__PAHH;
-  __UINTEGER_32 new_size__QAHH;
-  __POINTER result__KAHH,ptr_table__W0IH,next__V0IH,result__X0IH;
-  __INTEGER Self__BXWD;
-  void **Result__0U5C;
-  sz__MAHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__E3XC * ((__INTEGER )(sizeof(void *)))));
-  result__KAHH=((__POINTER )(NULL));
-  a__LAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__NAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__MAHH + a__LAHH) & (__UINTEGER_32)(~ a__LAHH));
-  new_size2__OAHH=(__UINTEGER_32)(new_size__NAHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__OAHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__PAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__QAHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OAHH + a__PAHH) & (__UINTEGER_32)(~ a__PAHH));
-    ptr_table__W0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QAHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__V0IH=((__POINTER )(NULL));
-    result__X0IH=((__POINTER *)ptr_table__W0IH)[ 0];
-    if ((result__X0IH == (void *)NULL)) {
-      result__X0IH=new_lab__RTJ(new_size__QAHH);
-      next__V0IH=(void *)((unsigned long)result__X0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QAHH)));
-      ((__POINTER *)next__V0IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__W0IH)[ 0]=next__V0IH;
-    } else {
-      next__V0IH=((__POINTER *)result__X0IH)[ 0];
-      if ((next__V0IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X0IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QAHH <<  1)) <=  4096)) {
-          next__V0IH=(void *)((unsigned long)result__X0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QAHH)));
-        } else {
-          next__V0IH=new_lab__RTJ(new_size__QAHH);
-        };
-        ((__POINTER *)next__V0IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__W0IH)[ 0]=next__V0IH;
-      } else {
-        ((__POINTER *)result__X0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__X0IH=next__V0IH;
-      };
-    };
-    ((__POINTER *)result__X0IH)[ 0]=((__POINTER ) 3);
-    result__KAHH=(void *)((unsigned long)result__X0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__KAHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__NAHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__0U5C=((void **)result__KAHH);
-  Self__BXWD=(__INTEGER)(nb_elements__E3XC -  1);
-  while ((Self__BXWD >=  0)) {
-    Result__0U5C[Self__BXWD]=NULL;
-    Self__BXWD=(__INTEGER)(Self__BXWD -  1);
-  };
-  return(Result__0U5C);
-}
-
-static void** create__FCYC(__INTEGER nb_elements__HCYC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__UAHH,a__TAHH,new_size__VAHH,new_size2__WAHH,a__XAHH;
-  __UINTEGER_32 new_size__YAHH;
-  __POINTER result__SAHH,ptr_table__10IH,next__00IH,result__20IH;
-  __INTEGER Self__10WD;
-  void **Result__E05C;
-  sz__UAHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__HCYC * ((__INTEGER )(sizeof(void *)))));
-  result__SAHH=((__POINTER )(NULL));
-  a__TAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__VAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__UAHH + a__TAHH) & (__UINTEGER_32)(~ a__TAHH));
-  new_size2__WAHH=(__UINTEGER_32)(new_size__VAHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__WAHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__XAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__YAHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WAHH + a__XAHH) & (__UINTEGER_32)(~ a__XAHH));
-    ptr_table__10IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YAHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__00IH=((__POINTER )(NULL));
-    result__20IH=((__POINTER *)ptr_table__10IH)[ 0];
-    if ((result__20IH == (void *)NULL)) {
-      result__20IH=new_lab__RTJ(new_size__YAHH);
-      next__00IH=(void *)((unsigned long)result__20IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAHH)));
-      ((__POINTER *)next__00IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__10IH)[ 0]=next__00IH;
-    } else {
-      next__00IH=((__POINTER *)result__20IH)[ 0];
-      if ((next__00IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__20IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YAHH <<  1)) <=  4096)) {
-          next__00IH=(void *)((unsigned long)result__20IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAHH)));
-        } else {
-          next__00IH=new_lab__RTJ(new_size__YAHH);
-        };
-        ((__POINTER *)next__00IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__10IH)[ 0]=next__00IH;
-      } else {
-        ((__POINTER *)result__20IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__00IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__20IH=next__00IH;
-      };
-    };
-    ((__POINTER *)result__20IH)[ 0]=((__POINTER ) 3);
-    result__SAHH=(void *)((unsigned long)result__20IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__SAHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__VAHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__E05C=((void **)result__SAHH);
-  Self__10WD=(__INTEGER)(nb_elements__HCYC -  1);
-  while ((Self__10WD >=  0)) {
-    Result__E05C[Self__10WD]=NULL;
-    Self__10WD=(__INTEGER)(Self__10WD -  1);
-  };
-  return(Result__E05C);
-}
-
-static void** create__3MBD(__INTEGER nb_elements__5MBD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__2AHH,a__1AHH,new_size__3AHH,new_size2__4AHH,a__5AHH;
-  __UINTEGER_32 new_size__ABHH;
-  __POINTER result__0AHH,ptr_table__A1IH,next__50IH,result__B1IH;
-  __INTEGER Self__GJXD;
-  void **Result__JCGD;
-  sz__2AHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5MBD * ((__INTEGER )(sizeof(void *)))));
-  result__0AHH=((__POINTER )(NULL));
-  a__1AHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__3AHH=(__UINTEGER_32)((__UINTEGER_32)(sz__2AHH + a__1AHH) & (__UINTEGER_32)(~ a__1AHH));
-  new_size2__4AHH=(__UINTEGER_32)(new_size__3AHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__4AHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__5AHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__ABHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4AHH + a__5AHH) & (__UINTEGER_32)(~ a__5AHH));
-    ptr_table__A1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ABHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__50IH=((__POINTER )(NULL));
-    result__B1IH=((__POINTER *)ptr_table__A1IH)[ 0];
-    if ((result__B1IH == (void *)NULL)) {
-      result__B1IH=new_lab__RTJ(new_size__ABHH);
-      next__50IH=(void *)((unsigned long)result__B1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABHH)));
-      ((__POINTER *)next__50IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__A1IH)[ 0]=next__50IH;
-    } else {
-      next__50IH=((__POINTER *)result__B1IH)[ 0];
-      if ((next__50IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B1IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ABHH <<  1)) <=  4096)) {
-          next__50IH=(void *)((unsigned long)result__B1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABHH)));
-        } else {
-          next__50IH=new_lab__RTJ(new_size__ABHH);
-        };
-        ((__POINTER *)next__50IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__A1IH)[ 0]=next__50IH;
-      } else {
-        ((__POINTER *)result__B1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__50IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__B1IH=next__50IH;
-      };
-    };
-    ((__POINTER *)result__B1IH)[ 0]=((__POINTER ) 3);
-    result__0AHH=(void *)((unsigned long)result__B1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__0AHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__3AHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__JCGD=((void **)result__0AHH);
-  Self__GJXD=(__INTEGER)(nb_elements__5MBD -  1);
-  while ((Self__GJXD >=  0)) {
-    Result__JCGD[Self__GJXD]=NULL;
-    Self__GJXD=(__INTEGER)(Self__GJXD -  1);
-  };
-  return(Result__JCGD);
-}
-
-static void** create__BJFF(__INTEGER nb_elements__DJFF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__EBHH,a__DBHH,new_size__FBHH,new_size2__GBHH,a__HBHH;
-  __UINTEGER_32 new_size__IBHH;
-  __POINTER result__CBHH,ptr_table__F1IH,next__E1IH,result__G1IH;
-  __INTEGER Self__55QF;
-  void **Result__QZJF;
-  sz__EBHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__DJFF * ((__INTEGER )(sizeof(void *)))));
-  result__CBHH=((__POINTER )(NULL));
-  a__DBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__FBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__EBHH + a__DBHH) & (__UINTEGER_32)(~ a__DBHH));
-  new_size2__GBHH=(__UINTEGER_32)(new_size__FBHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__GBHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__HBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__IBHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GBHH + a__HBHH) & (__UINTEGER_32)(~ a__HBHH));
-    ptr_table__F1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IBHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__E1IH=((__POINTER )(NULL));
-    result__G1IH=((__POINTER *)ptr_table__F1IH)[ 0];
-    if ((result__G1IH == (void *)NULL)) {
-      result__G1IH=new_lab__RTJ(new_size__IBHH);
-      next__E1IH=(void *)((unsigned long)result__G1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBHH)));
-      ((__POINTER *)next__E1IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__F1IH)[ 0]=next__E1IH;
-    } else {
-      next__E1IH=((__POINTER *)result__G1IH)[ 0];
-      if ((next__E1IH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G1IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IBHH <<  1)) <=  4096)) {
-          next__E1IH=(void *)((unsigned long)result__G1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBHH)));
-        } else {
-          next__E1IH=new_lab__RTJ(new_size__IBHH);
-        };
-        ((__POINTER *)next__E1IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__F1IH)[ 0]=next__E1IH;
-      } else {
-        ((__POINTER *)result__G1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__G1IH=next__E1IH;
-      };
-    };
-    ((__POINTER *)result__G1IH)[ 0]=((__POINTER ) 3);
-    result__CBHH=(void *)((unsigned long)result__G1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__CBHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__FBHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__QZJF=((void **)result__CBHH);
-  Self__55QF=(__INTEGER)(nb_elements__DJFF -  1);
-  while ((Self__55QF >=  0)) {
-    Result__QZJF[Self__55QF]=NULL;
-    Self__55QF=(__INTEGER)(Self__55QF -  1);
-  };
-  return(Result__QZJF);
-}
-
-static void** create__EI2(__INTEGER nb_elements__GI2)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__MBHH,a__LBHH,new_size__NBHH,new_size2__OBHH,a__PBHH;
-  __UINTEGER_32 new_size__QBHH;
-  __POINTER result__KBHH,ptr_table__K1IH,next__J1IH,result__L1IH;
-  __INTEGER Self__ETJC;
-  void **Result__P3CB;
-  sz__MBHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__GI2 * ((__INTEGER )(sizeof(void *)))));
-  result__KBHH=((__POINTER )(NULL));
-  a__LBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__NBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__MBHH + a__LBHH) & (__UINTEGER_32)(~ a__LBHH));
-  new_size2__OBHH=(__UINTEGER_32)(new_size__NBHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__OBHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__PBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__QBHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OBHH + a__PBHH) & (__UINTEGER_32)(~ a__PBHH));
-    ptr_table__K1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QBHH / ((__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__RTJ(new_size__QBHH);
-      next__J1IH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QBHH)));
-      ((__POINTER *)next__J1IH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__K1IH)[ 0]=next__J1IH;
-    } 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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QBHH <<  1)) <=  4096)) {
-          next__J1IH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QBHH)));
-        } else {
-          next__J1IH=new_lab__RTJ(new_size__QBHH);
-        };
-        ((__POINTER *)next__J1IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__K1IH)[ 0]=next__J1IH;
-      } else {
-        ((__POINTER *)result__L1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__L1IH=next__J1IH;
-      };
-    };
-    ((__POINTER *)result__L1IH)[ 0]=((__POINTER ) 3);
-    result__KBHH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__KBHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__NBHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__P3CB=((void **)result__KBHH);
-  Self__ETJC=(__INTEGER)(nb_elements__GI2 -  1);
-  while ((Self__ETJC >=  0)) {
-    Result__P3CB[Self__ETJC]=NULL;
-    Self__ETJC=(__INTEGER)(Self__ETJC -  1);
-  };
-  return(Result__P3CB);
-}
-
-static void add__EZR(__HASHED_SEToABSTRACT_STRINGo *Self__FZR,void *e__GZR)
-// ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER h__NZR,idx__OZR,typ_id__Q1IH;
-  __POINTER ptr__P1IH,ptr_table__01IH,next__Z1IH,result__11IH;
-  __POINTER ptr_table__51IH,next__41IH,result__A2IH;
-  __UINTEGER_32 sz__R1IH,a__S1IH,new_size__T1IH,t__U1IH,a__V1IH;
-  __UINTEGER_32 new_size__C2IH,lab_type__B2IH;
-  void *node__RZR,*n__Y1IH;
-  __HASHED_SET_NODEoABSTRACT_STRINGo *result__O1IH,*Self__W1IH;
-  has__PPW(Self__FZR,e__GZR);
-  has__PPW(Self__FZR,e__GZR);
-  h__NZR=hash_code__RNW(e__GZR);
-  idx__OZR=(__INTEGER)(h__NZR % Self__FZR->capacity__VZR);
-  node__RZR=((void **)Self__FZR->buckets__0ZR)[idx__OZR];
-  while ((! (((void *)node__RZR == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__RZR)->item__G0R,e__GZR)))) {
-    node__RZR=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__RZR)->next__S0R;
-  };
-  if (((void *)node__RZR == (void *)NULL)) {
-    if ((Self__FZR->capacity__VZR == Self__FZR->count__10R)) {
-      increase_capacity__XONB(Self__FZR);
-      idx__OZR=(__INTEGER)(h__NZR % Self__FZR->capacity__VZR);
-    };
-    n__Y1IH=((void **)Self__FZR->buckets__0ZR)[idx__OZR];
-    result__O1IH=NULL;
-    ptr__P1IH=((__POINTER )(NULL));
-    typ_id__Q1IH= 0;
-    sz__R1IH=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
-    if ((sz__R1IH ==  0)) {
-      result__O1IH=HASHED_SET_NODEoABSTRACT_STRINGo__;
-    } else {
-      typ_id__Q1IH=__HASHED_SET_NODEoABSTRACT_STRINGo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__R1IH);
-      if ((typ_id__Q1IH == (__INTEGER)(-  1))) {
-        a__S1IH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__T1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__R1IH + a__S1IH) & (__UINTEGER_32)(~ a__S1IH));
-        ptr_table__01IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T1IH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__Z1IH=((__POINTER )(NULL));
-        result__11IH=((__POINTER *)ptr_table__01IH)[ 0];
-        if ((result__11IH == (void *)NULL)) {
-          result__11IH=new_lab__RTJ(new_size__T1IH);
-          next__Z1IH=(void *)((unsigned long)result__11IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T1IH)));
-          ((__POINTER *)next__Z1IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__01IH)[ 0]=next__Z1IH;
-        } else {
-          next__Z1IH=((__POINTER *)result__11IH)[ 0];
-          if ((next__Z1IH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__11IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__T1IH <<  1)) <=  4096)) {
-              next__Z1IH=(void *)((unsigned long)result__11IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T1IH)));
-            } else {
-              next__Z1IH=new_lab__RTJ(new_size__T1IH);
-            };
-            ((__POINTER *)next__Z1IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__01IH)[ 0]=next__Z1IH;
-          } else {
-            ((__POINTER *)result__11IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Z1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__11IH=next__Z1IH;
-          };
-        };
-        ptr__P1IH=result__11IH;
-      } else {
-        t__U1IH=((__UINTEGER_32 )typ_id__Q1IH);
-        a__V1IH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__C2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__R1IH + a__V1IH) & (__UINTEGER_32)(~ a__V1IH));
-        ptr_table__51IH=((__POINTER )(&(table_type[(t__U1IH)])));
-        lab_type__B2IH=(__UINTEGER_32)(t__U1IH |  1);
-        next__41IH=((__POINTER )(NULL));
-        result__A2IH=((__POINTER *)ptr_table__51IH)[ 0];
-        if ((result__A2IH == (void *)NULL)) {
-          result__A2IH=new_lab__RTJ(lab_type__B2IH);
-          next__41IH=(void *)((unsigned long)result__A2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C2IH)));
-          ((__POINTER *)next__41IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__51IH)[ 0]=next__41IH;
-        } else {
-          next__41IH=((__POINTER *)result__A2IH)[ 0];
-          if ((next__41IH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A2IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__C2IH <<  1)) <=  4096)) {
-              next__41IH=(void *)((unsigned long)result__A2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C2IH)));
-            } else {
-              next__41IH=new_lab__RTJ(lab_type__B2IH);
-            };
-            ((__POINTER *)next__41IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__51IH)[ 0]=next__41IH;
-          } else {
-            ((__POINTER *)result__A2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__41IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__A2IH=next__41IH;
-          };
-        };
-        ptr__P1IH=result__A2IH;
-      };
-      result__O1IH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__P1IH);
-      *(result__O1IH) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
-    };
-    Self__W1IH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__O1IH);
-    Self__W1IH->item__G0R=e__GZR;
-    Self__W1IH->next__S0R=n__Y1IH;
-    node__RZR=result__O1IH;
-    ((void **)Self__FZR->buckets__0ZR)[idx__OZR]=result__O1IH;
-    Self__FZR->count__10R=(__INTEGER)(Self__FZR->count__10R +  1);
-  };
-}
-
-static void* operator__name__GHB(void *op__JHB)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER __tmp__RHB,Self__KWB;
-  __CHARACTER c__LHB;
-  __BOOLEAN __tmp__5HB,__tmp__MIB,result__PCDB,__tmp__ZIB,result__BDDB;
-  __BOOLEAN __tmp__GJB,result__TDDB,__tmp__TJB,result__FEDB,__tmp__AKB;
-  __BOOLEAN result__XEDB,__tmp__NKB,result__JFDB,__tmp__0KB;
-  __BOOLEAN result__1FDB,__tmp__HLB,result__NGDB,__tmp__ULB;
-  __BOOLEAN result__5GDB,__tmp__BMB,result__RHDB,__tmp__OMB;
-  __BOOLEAN result__DIDB,__tmp__1MB,result__VIDB,__tmp__INB;
-  __BOOLEAN result__HJDB,__tmp__VNB,result__ZJDB,__tmp__COB;
-  __BOOLEAN result__LKDB,__tmp__POB,result__3KDB;
-  c__LHB='\0';
-  copy__VDS(string_tmp__VH,(&__string_81));
-  __tmp__RHB=((__STRING_CONSTANT *)op__JHB)->count__DD;
-  Self__KWB= 1;
-  while ((Self__KWB <= __tmp__RHB)) {
-    c__LHB=((__CHARACTER *)((__STRING_CONSTANT *)op__JHB)->storage__RRO)[(__INTEGER)(Self__KWB -  1)];
-    if ((c__LHB == '+')) {
-      append__3OS(string_tmp__VH,(&__string_188));
-      __tmp__5HB=TRUE__;
-    } else {
-      __tmp__5HB=FALSE__;
-    };
-    if (__tmp__5HB) {
-      __tmp__MIB=TRUE__;
-    } else {
-      result__PCDB=(c__LHB == '-');
-      if (result__PCDB) {
-        append__3OS(string_tmp__VH,(&__string_189));
-      };
-      __tmp__MIB=result__PCDB;
-    };
-    if (__tmp__MIB) {
-      __tmp__ZIB=TRUE__;
-    } else {
-      result__BDDB=(c__LHB == '~');
-      if (result__BDDB) {
-        append__3OS(string_tmp__VH,(&__string_190));
-      };
-      __tmp__ZIB=result__BDDB;
-    };
-    if (__tmp__ZIB) {
-      __tmp__GJB=TRUE__;
-    } else {
-      result__TDDB=(c__LHB == '!');
-      if (result__TDDB) {
-        append__3OS(string_tmp__VH,(&__string_191));
-      };
-      __tmp__GJB=result__TDDB;
-    };
-    if (__tmp__GJB) {
-      __tmp__TJB=TRUE__;
-    } else {
-      result__FEDB=(c__LHB == '/');
-      if (result__FEDB) {
-        append__3OS(string_tmp__VH,(&__string_192));
-      };
-      __tmp__TJB=result__FEDB;
-    };
-    if (__tmp__TJB) {
-      __tmp__AKB=TRUE__;
-    } else {
-      result__XEDB=(c__LHB == '*');
-      if (result__XEDB) {
-        append__3OS(string_tmp__VH,(&__string_193));
-      };
-      __tmp__AKB=result__XEDB;
-    };
-    if (__tmp__AKB) {
-      __tmp__NKB=TRUE__;
-    } else {
-      result__JFDB=(c__LHB == '^');
-      if (result__JFDB) {
-        append__3OS(string_tmp__VH,(&__string_194));
-      };
-      __tmp__NKB=result__JFDB;
-    };
-    if (__tmp__NKB) {
-      __tmp__0KB=TRUE__;
-    } else {
-      result__1FDB=(c__LHB == '%');
-      if (result__1FDB) {
-        append__3OS(string_tmp__VH,(&__string_195));
-      };
-      __tmp__0KB=result__1FDB;
-    };
-    if (__tmp__0KB) {
-      __tmp__HLB=TRUE__;
-    } else {
-      result__NGDB=(c__LHB == '>');
-      if (result__NGDB) {
-        append__3OS(string_tmp__VH,(&__string_196));
-      };
-      __tmp__HLB=result__NGDB;
-    };
-    if (__tmp__HLB) {
-      __tmp__ULB=TRUE__;
-    } else {
-      result__5GDB=(c__LHB == '<');
-      if (result__5GDB) {
-        append__3OS(string_tmp__VH,(&__string_197));
-      };
-      __tmp__ULB=result__5GDB;
-    };
-    if (__tmp__ULB) {
-      __tmp__BMB=TRUE__;
-    } else {
-      result__RHDB=(c__LHB == '=');
-      if (result__RHDB) {
-        append__3OS(string_tmp__VH,(&__string_198));
-      };
-      __tmp__BMB=result__RHDB;
-    };
-    if (__tmp__BMB) {
-      __tmp__OMB=TRUE__;
-    } else {
-      result__DIDB=(c__LHB == '\\');
-      if (result__DIDB) {
-        append__3OS(string_tmp__VH,(&__string_199));
-      };
-      __tmp__OMB=result__DIDB;
-    };
-    if (__tmp__OMB) {
-      __tmp__1MB=TRUE__;
-    } else {
-      result__VIDB=(c__LHB == '|');
-      if (result__VIDB) {
-        append__3OS(string_tmp__VH,(&__string_200));
-      };
-      __tmp__1MB=result__VIDB;
-    };
-    if (__tmp__1MB) {
-      __tmp__INB=TRUE__;
-    } else {
-      result__HJDB=(c__LHB == '&');
-      if (result__HJDB) {
-        append__3OS(string_tmp__VH,(&__string_201));
-      };
-      __tmp__INB=result__HJDB;
-    };
-    if (__tmp__INB) {
-      __tmp__VNB=TRUE__;
-    } else {
-      result__ZJDB=(c__LHB == '$');
-      if (result__ZJDB) {
-        append__3OS(string_tmp__VH,(&__string_202));
-      };
-      __tmp__VNB=result__ZJDB;
-    };
-    if (__tmp__VNB) {
-      __tmp__COB=TRUE__;
-    } else {
-      result__LKDB=(c__LHB == '#');
-      if (result__LKDB) {
-        append__3OS(string_tmp__VH,(&__string_203));
-      };
-      __tmp__COB=result__LKDB;
-    };
-    if (__tmp__COB) {
-      __tmp__POB=TRUE__;
-    } else {
-      result__3KDB=(c__LHB == '@');
-      if (result__3KDB) {
-        append__3OS(string_tmp__VH,(&__string_204));
-      };
-      __tmp__POB=result__3KDB;
-    };
-    if ((! __tmp__POB)) {
-      if ((c__LHB == '?')) {
-        append__3OS(string_tmp__VH,(&__string_205));
-      };
-    };
-    Self__KWB=(__INTEGER)(Self__KWB +  1);
-  };
-  return(get__YWB(string_tmp__VH));
-}
-
-static void print__OJD(__STRING_CONSTANT *Self__PJD)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
-  put_string__AKF(Self__PJD);
-}
-
-static void* get__YWB(void *str__0WB)
-// ({NULLxSTRING}) With resultNo recursive, No inlinable.
-{
-  void *result__2WB,*__tmp__0XB;
-  void *result__LMS;
-  __STRING_CONSTANT *result__ZMD,*result__AJF,*Self__LFT;
-  __POINTER ptr__0MD,ptr_table__E2IH,next__D2IH,result__F2IH;
-  __POINTER ptr_table__J2IH,next__I2IH,result__K2IH,ptr__2CJB;
-  __POINTER ptr_table__O2IH,next__N2IH,result__P2IH,ptr_table__T2IH;
-  __POINTER next__S2IH,result__U2IH;
-  __INTEGER typ_id__5MD,c__NFT,Self__J2LH,h__M4S,idx__N4S,typ_id__BDJB;
-  __UINTEGER_32 sz__2MD,a__AEFH,new_size__BEFH,t__FEFH,a__EEFH;
-  __UINTEGER_32 new_size__M2IH,lab_type__L2IH,sz__4CJB,a__1OFH;
-  __UINTEGER_32 new_size__2OFH,t__APFH,a__5OFH,new_size__W2IH;
-  __UINTEGER_32 lab_type__V2IH;
-  __HASHED_SEToABSTRACT_STRINGo *Self__YLS,*Self__E4S;
-  void *node__KMS,*node__O4S,*n__4GCB;
-  __CHARACTER *Self__K2LH,*model__L2LH;
-  __HASHED_SET_NODEoABSTRACT_STRINGo *result__1CJB,*Self__V5CC;
-  result__2WB=NULL;
-  Self__YLS=((__HASHED_SEToABSTRACT_STRINGo *)list__FK);
-  result__LMS=NULL;
-  node__KMS=((void **)Self__YLS->buckets__0ZR)[(__INTEGER)(hash_code__UFX(str__0WB) % Self__YLS->capacity__VZR)];
-  while ((! (((void *)node__KMS == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__KMS)->item__G0R,str__0WB)))) {
-    node__KMS=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__KMS)->next__S0R;
-  };
-  if (((void *)node__KMS != (void *)NULL)) {
-    result__LMS=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__KMS)->item__G0R;
-  };
-  if (((void *)result__LMS == (void *)NULL)) {
-    result__ZMD=NULL;
-    ptr__0MD=((__POINTER )(NULL));
-    typ_id__5MD= 0;
-    sz__2MD=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__2MD ==  0)) {
-      result__ZMD=STRING_CONSTANT__;
-    } else {
-      typ_id__5MD=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2MD);
-      if ((typ_id__5MD == (__INTEGER)(-  1))) {
-        a__AEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__BEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__2MD + a__AEFH) & (__UINTEGER_32)(~ a__AEFH));
-        ptr_table__E2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__D2IH=((__POINTER )(NULL));
-        result__F2IH=((__POINTER *)ptr_table__E2IH)[ 0];
-        if ((result__F2IH == (void *)NULL)) {
-          result__F2IH=new_lab__RTJ(new_size__BEFH);
-          next__D2IH=(void *)((unsigned long)result__F2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BEFH)));
-          ((__POINTER *)next__D2IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__E2IH)[ 0]=next__D2IH;
-        } else {
-          next__D2IH=((__POINTER *)result__F2IH)[ 0];
-          if ((next__D2IH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F2IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__BEFH <<  1)) <=  4096)) {
-              next__D2IH=(void *)((unsigned long)result__F2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BEFH)));
-            } else {
-              next__D2IH=new_lab__RTJ(new_size__BEFH);
-            };
-            ((__POINTER *)next__D2IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__E2IH)[ 0]=next__D2IH;
-          } else {
-            ((__POINTER *)result__F2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__F2IH=next__D2IH;
-          };
-        };
-        ptr__0MD=result__F2IH;
-      } else {
-        t__FEFH=((__UINTEGER_32 )typ_id__5MD);
-        a__EEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__M2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__2MD + a__EEFH) & (__UINTEGER_32)(~ a__EEFH));
-        ptr_table__J2IH=((__POINTER )(&(table_type[(t__FEFH)])));
-        lab_type__L2IH=(__UINTEGER_32)(t__FEFH |  1);
-        next__I2IH=((__POINTER )(NULL));
-        result__K2IH=((__POINTER *)ptr_table__J2IH)[ 0];
-        if ((result__K2IH == (void *)NULL)) {
-          result__K2IH=new_lab__RTJ(lab_type__L2IH);
-          next__I2IH=(void *)((unsigned long)result__K2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2IH)));
-          ((__POINTER *)next__I2IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__J2IH)[ 0]=next__I2IH;
-        } else {
-          next__I2IH=((__POINTER *)result__K2IH)[ 0];
-          if ((next__I2IH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K2IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__M2IH <<  1)) <=  4096)) {
-              next__I2IH=(void *)((unsigned long)result__K2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2IH)));
-            } else {
-              next__I2IH=new_lab__RTJ(lab_type__L2IH);
-            };
-            ((__POINTER *)next__I2IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__J2IH)[ 0]=next__I2IH;
-          } else {
-            ((__POINTER *)result__K2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__K2IH=next__I2IH;
-          };
-        };
-        ptr__0MD=result__K2IH;
-      };
-      result__ZMD=((__STRING_CONSTANT *)ptr__0MD);
-      *(result__ZMD) = *(STRING_CONSTANT__);
-    };
-    result__AJF=result__ZMD;
-    Self__LFT=((__STRING_CONSTANT *)result__ZMD);
-    c__NFT=((__STRING *)str__0WB)->count__SGC;
-    if ((c__NFT !=  0)) {
-      Self__LFT->storage__RRO=create__YIEB((__INTEGER)(c__NFT +  1));
-      Self__K2LH=((__CHARACTER *)Self__LFT->storage__RRO);
-      model__L2LH=((__STRING *)str__0WB)->storage__3CS;
-      Self__J2LH=(__INTEGER)(c__NFT -  1);
-      while ((Self__J2LH >=  0)) {
-        Self__K2LH[Self__J2LH]=((__CHARACTER *)model__L2LH)[Self__J2LH];
-        Self__J2LH=(__INTEGER)(Self__J2LH -  1);
-      };
-      ((__CHARACTER *)Self__LFT->storage__RRO)[c__NFT]='\0';
-      Self__LFT->count__DD=c__NFT;
-    };
-    result__2WB=result__ZMD;
-    Self__E4S=((__HASHED_SEToABSTRACT_STRINGo *)list__FK);
-    fast_has__CAY(Self__E4S,result__ZMD);
-    fast_has__CAY(Self__E4S,result__ZMD);
-    h__M4S=hash_code__RNW(result__ZMD);
-    idx__N4S=(__INTEGER)(h__M4S % Self__E4S->capacity__VZR);
-    node__O4S=((void **)Self__E4S->buckets__0ZR)[idx__N4S];
-    while ((! (((void *)node__O4S == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__O4S)->item__G0R == (void *)result__AJF)))) {
-      node__O4S=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__O4S)->next__S0R;
-    };
-    if (((void *)node__O4S == (void *)NULL)) {
-      if ((Self__E4S->capacity__VZR == Self__E4S->count__10R)) {
-        increase_capacity__XONB(Self__E4S);
-        idx__N4S=(__INTEGER)(h__M4S % Self__E4S->capacity__VZR);
-      };
-      n__4GCB=((void **)Self__E4S->buckets__0ZR)[idx__N4S];
-      result__1CJB=NULL;
-      ptr__2CJB=((__POINTER )(NULL));
-      typ_id__BDJB= 0;
-      sz__4CJB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
-      if ((sz__4CJB ==  0)) {
-        result__1CJB=HASHED_SET_NODEoABSTRACT_STRINGo__;
-      } else {
-        typ_id__BDJB=__HASHED_SET_NODEoABSTRACT_STRINGo__;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4CJB);
-        if ((typ_id__BDJB == (__INTEGER)(-  1))) {
-          a__1OFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__2OFH=(__UINTEGER_32)((__UINTEGER_32)(sz__4CJB + a__1OFH) & (__UINTEGER_32)(~ a__1OFH));
-          ptr_table__O2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2OFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__N2IH=((__POINTER )(NULL));
-          result__P2IH=((__POINTER *)ptr_table__O2IH)[ 0];
-          if ((result__P2IH == (void *)NULL)) {
-            result__P2IH=new_lab__RTJ(new_size__2OFH);
-            next__N2IH=(void *)((unsigned long)result__P2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2OFH)));
-            ((__POINTER *)next__N2IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__O2IH)[ 0]=next__N2IH;
-          } else {
-            next__N2IH=((__POINTER *)result__P2IH)[ 0];
-            if ((next__N2IH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P2IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2OFH <<  1)) <=  4096)) {
-                next__N2IH=(void *)((unsigned long)result__P2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2OFH)));
-              } else {
-                next__N2IH=new_lab__RTJ(new_size__2OFH);
-              };
-              ((__POINTER *)next__N2IH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__O2IH)[ 0]=next__N2IH;
-            } else {
-              ((__POINTER *)result__P2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__P2IH=next__N2IH;
-            };
-          };
-          ptr__2CJB=result__P2IH;
-        } else {
-          t__APFH=((__UINTEGER_32 )typ_id__BDJB);
-          a__5OFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__W2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__4CJB + a__5OFH) & (__UINTEGER_32)(~ a__5OFH));
-          ptr_table__T2IH=((__POINTER )(&(table_type[(t__APFH)])));
-          lab_type__V2IH=(__UINTEGER_32)(t__APFH |  1);
-          next__S2IH=((__POINTER )(NULL));
-          result__U2IH=((__POINTER *)ptr_table__T2IH)[ 0];
-          if ((result__U2IH == (void *)NULL)) {
-            result__U2IH=new_lab__RTJ(lab_type__V2IH);
-            next__S2IH=(void *)((unsigned long)result__U2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W2IH)));
-            ((__POINTER *)next__S2IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__T2IH)[ 0]=next__S2IH;
-          } else {
-            next__S2IH=((__POINTER *)result__U2IH)[ 0];
-            if ((next__S2IH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U2IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__W2IH <<  1)) <=  4096)) {
-                next__S2IH=(void *)((unsigned long)result__U2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W2IH)));
-              } else {
-                next__S2IH=new_lab__RTJ(lab_type__V2IH);
-              };
-              ((__POINTER *)next__S2IH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__T2IH)[ 0]=next__S2IH;
-            } else {
-              ((__POINTER *)result__U2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__U2IH=next__S2IH;
-            };
-          };
-          ptr__2CJB=result__U2IH;
-        };
-        result__1CJB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__2CJB);
-        *(result__1CJB) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
-      };
-      Self__V5CC=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__1CJB);
-      Self__V5CC->item__G0R=result__ZMD;
-      Self__V5CC->next__S0R=n__4GCB;
-      node__O4S=result__1CJB;
-      ((void **)Self__E4S->buckets__0ZR)[idx__N4S]=result__1CJB;
-      Self__E4S->count__10R=(__INTEGER)(Self__E4S->count__10R +  1);
-    };
-  } else {
-    if (result__LMS==NULL) {
-      __tmp__0XB=NULL;
-    } else {
-      __tmp__0XB=((void *)result__LMS);
-    };
-    result__2WB=__tmp__0XB;
-  };
-  return(result__2WB);
-}
-
-static void copy__VDS(__STRING *Self__WDS,void *other__XDS)
-// ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__YDS,Self__O2LH;
-  __CHARACTER *__tmp__NES,*__tmp__PES,*Self__P2LH,*model__Q2LH;
-  if (((struct ___OBJ *)other__XDS)->__id==__STRING_CONSTANT__) {
-    __tmp__YDS=((__STRING_CONSTANT *)other__XDS)->count__DD;
-  } else {
-    __tmp__YDS=((__STRING *)other__XDS)->count__SGC;
-  };
-  Self__WDS->count__SGC=__tmp__YDS;
-  if ((__tmp__YDS >  0)) {
-    if ((Self__WDS->capacity__UCS < __tmp__YDS)) {
-      Self__WDS->storage__3CS=create__YIEB(__tmp__YDS);
-      Self__WDS->capacity__UCS=Self__WDS->count__SGC;
-    };
-    __tmp__NES=Self__WDS->storage__3CS;
-    if (((struct ___OBJ *)other__XDS)->__id==__STRING_CONSTANT__) {
-      __tmp__PES=((__STRING_CONSTANT *)other__XDS)->storage__RRO;
-    } else {
-      __tmp__PES=((__STRING *)other__XDS)->storage__3CS;
-    };
-    Self__P2LH=((__CHARACTER *)__tmp__NES);
-    model__Q2LH=__tmp__PES;
-    Self__O2LH=(__INTEGER)(Self__WDS->count__SGC -  1);
-    while ((Self__O2LH >=  0)) {
-      Self__P2LH[Self__O2LH]=((__CHARACTER *)model__Q2LH)[Self__O2LH];
-      Self__O2LH=(__INTEGER)(Self__O2LH -  1);
-    };
-  };
-}
-
-static void append__3OS(__STRING *Self__4OS,void *other__5OS)
-// ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__IPS,needed_capacity__BPS,old_nb_elts__D0DC;
-  __INTEGER upper__02IH,Self__Y2IH,dest__5JBC,src_capacity__AKBC;
-  __INTEGER i2__QKBC,i1__PKBC;
-  __CHARACTER *Self__C0DC,*new__00DC,*__tmp__FQS,*__tmp__GQS,*Self__3JBC;
-  __CHARACTER *src__4JBC;
-  if (((struct ___OBJ *)other__5OS)->__id==__STRING_CONSTANT__) {
-    __tmp__IPS=((__STRING_CONSTANT *)other__5OS)->count__DD;
-  } else {
-    __tmp__IPS=((__STRING *)other__5OS)->count__SGC;
-  };
-  needed_capacity__BPS=(__INTEGER)(Self__4OS->count__SGC + __tmp__IPS);
-  if ((Self__4OS->capacity__UCS < needed_capacity__BPS)) {
-    if ((Self__4OS->capacity__UCS ==  0)) {
-      Self__4OS->capacity__UCS=needed_capacity__BPS;
-      Self__4OS->storage__3CS=create__YIEB(needed_capacity__BPS);
-    } else {
-      Self__C0DC=((__CHARACTER *)Self__4OS->storage__3CS);
-      old_nb_elts__D0DC=Self__4OS->capacity__UCS;
-      new__00DC=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__C0DC),((__UINTEGER_32 )old_nb_elts__D0DC),((__UINTEGER_32 )needed_capacity__BPS)));
-      upper__02IH=(__INTEGER)(needed_capacity__BPS -  1);
-      Self__Y2IH=old_nb_elts__D0DC;
-      while ((Self__Y2IH <= upper__02IH)) {
-        new__00DC[Self__Y2IH]='\0';
-        Self__Y2IH=(__INTEGER)(Self__Y2IH +  1);
-      };
-      Self__4OS->storage__3CS=new__00DC;
-      Self__4OS->capacity__UCS=needed_capacity__BPS;
-    };
-  };
-  __tmp__FQS=Self__4OS->storage__3CS;
-  if (((struct ___OBJ *)other__5OS)->__id==__STRING_CONSTANT__) {
-    __tmp__GQS=((__STRING_CONSTANT *)other__5OS)->storage__RRO;
-  } else {
-    __tmp__GQS=((__STRING *)other__5OS)->storage__3CS;
-  };
-  Self__3JBC=((__CHARACTER *)__tmp__FQS);
-  src__4JBC=__tmp__GQS;
-  dest__5JBC=Self__4OS->count__SGC;
-  src_capacity__AKBC=__tmp__IPS;
-  i2__QKBC= 0;
-  i1__PKBC=dest__5JBC;
-  while ((i2__QKBC != src_capacity__AKBC)) {
-    Self__3JBC[i1__PKBC]=((__CHARACTER *)src__4JBC)[i2__QKBC];
-    i2__QKBC=(__INTEGER)(i2__QKBC +  1);
-    i1__PKBC=(__INTEGER)(i1__PKBC +  1);
-  };
-  Self__4OS->count__SGC=needed_capacity__BPS;
-}
-
-static void* parent_directory__GGD()
-// () With resultNo recursive, No inlinable.
-{
-  __STRING *Self__SBHH;
-  __INTEGER new_capacity__JMHH,old_nb_elts__MMHH,upper__52IH,Self__32IH;
-  void *__tmp__WGD;
-  void *__tmp__XGD,*result__KGD;
-  __CHARACTER *Self__LMHH,*new__NMHH,*cwd__JGD;
-  ((__STRING *)string_tmp__LGD)->count__SGC= 0;
-  Self__SBHH=((__STRING *)string_tmp__LGD);
-  if ((Self__SBHH->capacity__UCS > Self__SBHH->count__SGC)) {
-    ((__CHARACTER *)Self__SBHH->storage__3CS)[Self__SBHH->count__SGC]='\0';
-  } else {
-    new_capacity__JMHH= 0;
-    if ((Self__SBHH->capacity__UCS <= Self__SBHH->count__SGC)) {
-      if ((Self__SBHH->capacity__UCS ==  0)) {
-        Self__SBHH->capacity__UCS= 32;
-        Self__SBHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__JMHH=(__INTEGER)(Self__SBHH->capacity__UCS <<  1);
-        Self__LMHH=((__CHARACTER *)Self__SBHH->storage__3CS);
-        old_nb_elts__MMHH=Self__SBHH->capacity__UCS;
-        new__NMHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LMHH),((__UINTEGER_32 )old_nb_elts__MMHH),((__UINTEGER_32 )new_capacity__JMHH)));
-        upper__52IH=(__INTEGER)(new_capacity__JMHH -  1);
-        Self__32IH=old_nb_elts__MMHH;
-        while ((Self__32IH <= upper__52IH)) {
-          new__NMHH[Self__32IH]='\0';
-          Self__32IH=(__INTEGER)(Self__32IH +  1);
-        };
-        Self__SBHH->storage__3CS=new__NMHH;
-        Self__SBHH->capacity__UCS=new_capacity__JMHH;
-      };
-    };
-    ((__CHARACTER *)Self__SBHH->storage__3CS)[Self__SBHH->count__SGC]='\0';
-    Self__SBHH->count__SGC=(__INTEGER)(Self__SBHH->count__SGC +  1);
-    Self__SBHH->count__SGC=(__INTEGER)(Self__SBHH->count__SGC -  1);
-  };
-  cwd__JGD=Self__SBHH->storage__3CS;
-  getcwd((cwd__JGD),255);
-  from_external__YZS(string_tmp__LGD,cwd__JGD);
-  __tmp__WGD=physical_get_entry__REF(string_tmp__LGD);
-  if (__tmp__WGD==NULL) {
-    __tmp__XGD=NULL;
-  } else {
-    switch (((struct ___OBJ *)__tmp__WGD)->__id) {
-    case __DIRECTORY_UNIX__: {
-      __tmp__XGD=((void *)__tmp__WGD);
-    } break;
-    case __FILE_UNIX__: {
-      __tmp__XGD=NULL;
-    } break;
-    }
-  };
-  result__KGD=__tmp__XGD;
-  put__to__N1S(alias__2GD,__tmp__XGD,((__DIRECTORY_UNIX *)__tmp__XGD)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
-  FILE_SYSTEM__->parent_directory__GHD=__tmp__XGD;
-  FILE_SYSTEM__->parent_directory__HHD=0;
-  return(__tmp__XGD);
-}
-
-static void* get_entry__DZAC(void *p__FZAC)
-// ({NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
-{
-  void *result__HZAC;
-  __INTEGER idx__IZAC,new_capacity__PMHH,old_nb_elts__SMHH,upper__E3IH;
-  __INTEGER Self__C3IH,n__WMHH,n__XMHH,__tmp__S1AC;
-  void *__tmp__CFIC,*__tmp__31AC,*dir__11AC;
-  __STRING *Self__QMHH,*Self__GEFH,*Self__VMHH;
-  __CHARACTER *Self__RMHH,*new__TMHH;
-  __BOOLEAN __tmp__B1AC,__tmp__M1AC;
-  result__HZAC=NULL;
-  idx__IZAC= 0;
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    __tmp__CFIC=FILE_SYSTEM__->parent_directory__GHD;
-  } else {
-    __tmp__CFIC=parent_directory__GGD();
-  };
-  copy__VDS(string_tmp2__JZAC,((__DIRECTORY_UNIX *)__tmp__CFIC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  Self__QMHH=((__STRING *)string_tmp2__JZAC);
-  new_capacity__PMHH= 0;
-  if ((Self__QMHH->capacity__UCS <= Self__QMHH->count__SGC)) {
-    if ((Self__QMHH->capacity__UCS ==  0)) {
-      Self__QMHH->capacity__UCS= 32;
-      Self__QMHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__PMHH=(__INTEGER)(Self__QMHH->capacity__UCS <<  1);
-      Self__RMHH=((__CHARACTER *)Self__QMHH->storage__3CS);
-      old_nb_elts__SMHH=Self__QMHH->capacity__UCS;
-      new__TMHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RMHH),((__UINTEGER_32 )old_nb_elts__SMHH),((__UINTEGER_32 )new_capacity__PMHH)));
-      upper__E3IH=(__INTEGER)(new_capacity__PMHH -  1);
-      Self__C3IH=old_nb_elts__SMHH;
-      while ((Self__C3IH <= upper__E3IH)) {
-        new__TMHH[Self__C3IH]='\0';
-        Self__C3IH=(__INTEGER)(Self__C3IH +  1);
-      };
-      Self__QMHH->storage__3CS=new__TMHH;
-      Self__QMHH->capacity__UCS=new_capacity__PMHH;
-    };
-  };
-  ((__CHARACTER *)Self__QMHH->storage__3CS)[Self__QMHH->count__SGC]='/';
-  Self__QMHH->count__SGC=(__INTEGER)(Self__QMHH->count__SGC +  1);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  append__3OS(string_tmp2__JZAC,p__FZAC);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  reduce_path__J3HC(string_tmp2__JZAC);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  copy__VDS(string_tmp3__PZAC,string_tmp2__JZAC);
-  do {
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    result__HZAC=reference_at__VV0C(alias__2GD,string_tmp2__JZAC);
-    if (((void *)result__HZAC == (void *)NULL)) {
-      if (FILE_SYSTEM__->parent_directory__HHD==0) {
-      } else {
-        parent_directory__GGD();
-      };
-      Self__GEFH=((__STRING *)string_tmp2__JZAC);
-      idx__IZAC=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__GEFH->storage__3CS,'/',(__INTEGER)(Self__GEFH->count__SGC -  1)));
-      if ((idx__IZAC >  0)) {
-        if (FILE_SYSTEM__->parent_directory__HHD==0) {
-        } else {
-          parent_directory__GGD();
-        };
-        Self__VMHH=((__STRING *)string_tmp2__JZAC);
-        n__WMHH=(__INTEGER)(idx__IZAC -  1);
-        if ((n__WMHH < Self__VMHH->count__SGC)) {
-          n__XMHH=(__INTEGER)(Self__VMHH->count__SGC - n__WMHH);
-          if ((n__XMHH > Self__VMHH->count__SGC)) {
-            Self__VMHH->count__SGC= 0;
-          } else {
-            Self__VMHH->count__SGC=(__INTEGER)(Self__VMHH->count__SGC - n__XMHH);
-          };
-        };
-      } else {
-        if (FILE_SYSTEM__->parent_directory__HHD==0) {
-        } else {
-          parent_directory__GGD();
-        };
-        ((__STRING *)string_tmp2__JZAC)->count__SGC= 0;
-      };
-    };
-    if (((void *)result__HZAC == (void *)NULL)) {
-      if (FILE_SYSTEM__->parent_directory__HHD==0) {
-      } else {
-        parent_directory__GGD();
-      };
-      __tmp__B1AC=(((__STRING *)string_tmp2__JZAC)->count__SGC !=  0);
-    } else {
-      __tmp__B1AC=FALSE__;
-    };
-  } while (__tmp__B1AC);
-  if (((void *)result__HZAC == (void *)NULL)) {
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    result__HZAC=physical_get_entry__JY0C(string_tmp3__PZAC);
-    __tmp__M1AC=TRUE__;
-  } else {
-    __tmp__M1AC=FALSE__;
-  };
-  if ((! __tmp__M1AC)) {
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    __tmp__S1AC=((__STRING *)string_tmp3__PZAC)->count__SGC;
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    if ((__tmp__S1AC != ((__STRING *)string_tmp2__JZAC)->count__SGC)) {
-      if (result__HZAC==NULL) {
-        __tmp__31AC=NULL;
-      } else {
-        switch (((struct ___OBJ *)result__HZAC)->__id) {
-        case __DIRECTORY_UNIX__: {
-          __tmp__31AC=((void *)result__HZAC);
-        } break;
-        case __FILE_UNIX__: {
-          __tmp__31AC=NULL;
-        } break;
-        }
-      };
-      dir__11AC=__tmp__31AC;
-      if (FILE_SYSTEM__->parent_directory__HHD==0) {
-      } else {
-        parent_directory__GGD();
-      };
-      result__HZAC=physical_get_entry__REF(string_tmp3__PZAC);
-    };
-  };
-  return(result__HZAC);
-}
-
-static void put_string__33F(void *s__53F)
-// ({NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__O4F,__tmp__Q4F,Self__JZG,limit_up__KZG;
-  __CHARACTER *__tmp__NEFH,*__tmp__0XGH;
-  __CHARACTER __tmp__X4F;
-  if (((struct ___OBJ *)s__53F)->__id==__STRING_CONSTANT__) {
-    __tmp__O4F= 1;
-  } else {
-    __tmp__O4F= 1;
-  };
-  if (((struct ___OBJ *)s__53F)->__id==__STRING_CONSTANT__) {
-    __tmp__Q4F=((__STRING_CONSTANT *)s__53F)->count__DD;
-  } else {
-    __tmp__Q4F=((__STRING *)s__53F)->count__SGC;
-  };
-  Self__JZG=__tmp__O4F;
-  limit_up__KZG=__tmp__Q4F;
-  __tmp__NEFH=((__STRING *)s__53F)->storage__3CS;
-  __tmp__0XGH=((__STRING_CONSTANT *)s__53F)->storage__RRO;
-  while ((Self__JZG <= limit_up__KZG)) {
-    if (((struct ___OBJ *)s__53F)->__id==__STRING_CONSTANT__) {
-      __tmp__X4F=((__CHARACTER *)__tmp__0XGH)[(__INTEGER)(Self__JZG -  1)];
-    } else {
-      __tmp__X4F=((__CHARACTER *)__tmp__NEFH)[(__INTEGER)(Self__JZG -  1)];
-    };
-    fputc((int)(__tmp__X4F),stderr);
-    Self__JZG=(__INTEGER)(Self__JZG +  1);
-  };
-}
-
-static __PROTOTYPE* create__name__generic_count__JBC(void *f__LBC,void *n__MBC)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __PROTOTYPE *result__XVC,*Self__2TS;
-  __POINTER ptr__YVC,ptr_table__H3IH,next__G3IH,result__I3IH;
-  __POINTER ptr_table__M3IH,next__L3IH,result__N3IH,ptr__JD3;
-  __POINTER ptr_table__R3IH,next__Q3IH,result__S3IH,ptr_table__W3IH;
-  __POINTER next__V3IH,result__X3IH,ptr__E5GD,ptr_table__13IH;
-  __POINTER next__03IH,result__23IH,ptr_table__A4IH,next__53IH;
-  __POINTER result__B4IH,file__AUS,ptr__OJ3,ptr_table__P4IH,next__O4IH;
-  __POINTER result__Q4IH,ptr_table__U4IH,next__T4IH,result__V4IH;
-  __INTEGER typ_id__3VC,idx__DUS,typ_id__OD3,new_capacity__GTX;
-  __INTEGER __tmp__KUX,__tmp__LNEC,Self__FUVD,h__FMBC,idx__GMBC;
-  __INTEGER idx__Z2GD,new_capacity__02GD,i__12GD,typ_id__J5GD;
-  __INTEGER new_capacity__0MHH,old_nb_elts__3MHH,upper__H4IH,Self__F4IH;
-  __INTEGER result__HWX,new_capacity__ANHH,old_nb_elts__DNHH;
-  __INTEGER upper__M4IH,Self__K4IH,typ_id__TJ3,new_capacity__MMJC;
-  __UINTEGER_32 sz__0VC,a__QEFH,new_size__REFH,t__VEFH,a__UEFH;
-  __UINTEGER_32 new_size__P3IH,lab_type__O3IH,sz__LD3,a__YEFH;
-  __UINTEGER_32 new_size__ZEFH,t__3EFH,a__2EFH,new_size__Z3IH;
-  __UINTEGER_32 lab_type__Y3IH,sz__G5GD,a__PFFH,new_size__QFFH,t__UFFH;
-  __UINTEGER_32 a__TFFH,new_size__D4IH,lab_type__C4IH,sz__QJ3,a__XFFH;
-  __UINTEGER_32 new_size__YFFH,t__2FFH,a__1FFH,new_size__X4IH;
-  __UINTEGER_32 lab_type__W4IH;
-  __STRING_CONSTANT *Self__MRX;
-  __STRING *Self__YMHH,*Self__TBHH,*Self__UBHH;
-  void *__tmp__RVS;
-  __FAST_ARRAYoITM_TYPE_PARAMETERo *result__ID3,*Self__Z1BC;
-  __FAST_ARRAYoPROTOTYPEo *Self__ETX;
-  __BOOLEAN __tmp__UTX;
-  void **__tmp__JUX,**new__XMEC;
-  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__2LBC;
-  void *node__IMBC,*node1__32GD,*node2__42GD,*__tmp__2NBC;
-  void **old_buckets__22GD;
-  __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *result__D5GD;
-  __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *Self__0ATD;
-  __CHARACTER *Self__2MHH,*new__4MHH,*Self__CNHH,*new__ENHH,*ptr__QWX;
-  __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *result__NJ3,*Self__P3BC;
-  result__XVC=NULL;
-  ptr__YVC=((__POINTER )(NULL));
-  typ_id__3VC= 0;
-  sz__0VC=((__UINTEGER_32 )sizeof(__PROTOTYPE));
-  if ((sz__0VC ==  0)) {
-    result__XVC=PROTOTYPE__;
-  } else {
-    typ_id__3VC=__PROTOTYPE__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0VC);
-    if ((typ_id__3VC == (__INTEGER)(-  1))) {
-      a__QEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__REFH=(__UINTEGER_32)((__UINTEGER_32)(sz__0VC + a__QEFH) & (__UINTEGER_32)(~ a__QEFH));
-      ptr_table__H3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__REFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__G3IH=((__POINTER )(NULL));
-      result__I3IH=((__POINTER *)ptr_table__H3IH)[ 0];
-      if ((result__I3IH == (void *)NULL)) {
-        result__I3IH=new_lab__RTJ(new_size__REFH);
-        next__G3IH=(void *)((unsigned long)result__I3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REFH)));
-        ((__POINTER *)next__G3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__H3IH)[ 0]=next__G3IH;
-      } else {
-        next__G3IH=((__POINTER *)result__I3IH)[ 0];
-        if ((next__G3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I3IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__REFH <<  1)) <=  4096)) {
-            next__G3IH=(void *)((unsigned long)result__I3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REFH)));
-          } else {
-            next__G3IH=new_lab__RTJ(new_size__REFH);
-          };
-          ((__POINTER *)next__G3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__H3IH)[ 0]=next__G3IH;
-        } else {
-          ((__POINTER *)result__I3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__I3IH=next__G3IH;
-        };
-      };
-      ptr__YVC=result__I3IH;
-    } else {
-      t__VEFH=((__UINTEGER_32 )typ_id__3VC);
-      a__UEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__P3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__0VC + a__UEFH) & (__UINTEGER_32)(~ a__UEFH));
-      ptr_table__M3IH=((__POINTER )(&(table_type[(t__VEFH)])));
-      lab_type__O3IH=(__UINTEGER_32)(t__VEFH |  1);
-      next__L3IH=((__POINTER )(NULL));
-      result__N3IH=((__POINTER *)ptr_table__M3IH)[ 0];
-      if ((result__N3IH == (void *)NULL)) {
-        result__N3IH=new_lab__RTJ(lab_type__O3IH);
-        next__L3IH=(void *)((unsigned long)result__N3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3IH)));
-        ((__POINTER *)next__L3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__M3IH)[ 0]=next__L3IH;
-      } else {
-        next__L3IH=((__POINTER *)result__N3IH)[ 0];
-        if ((next__L3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N3IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__P3IH <<  1)) <=  4096)) {
-            next__L3IH=(void *)((unsigned long)result__N3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3IH)));
-          } else {
-            next__L3IH=new_lab__RTJ(lab_type__O3IH);
-          };
-          ((__POINTER *)next__L3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__M3IH)[ 0]=next__L3IH;
-        } else {
-          ((__POINTER *)result__N3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__N3IH=next__L3IH;
-        };
-      };
-      ptr__YVC=result__N3IH;
-    };
-    result__XVC=((__PROTOTYPE *)ptr__YVC);
-    *(result__XVC) = *(PROTOTYPE__);
-  };
-  Self__2TS=((__PROTOTYPE *)result__XVC);
-  Self__2TS->filename__FSG=f__LBC;
-  Self__2TS->parent_named__5.name__LI=n__MBC;
-  Self__MRX=((__STRING_CONSTANT *)n__MBC);
-  idx__DUS=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__MRX->storage__RRO,'.',(__INTEGER)(Self__MRX->count__DD -  1)));
-  if ((idx__DUS !=  0)) {
-    copy__VDS(string_tmp__VH,n__MBC);
-    Self__YMHH=((__STRING *)string_tmp__VH);
-    if ((idx__DUS > Self__YMHH->count__SGC)) {
-      Self__YMHH->count__SGC= 0;
-    } else {
-      if ((idx__DUS >  0)) {
-        remove_between__to__MIT(Self__YMHH, 1,idx__DUS);
-      };
-    };
-    Self__2TS->shortname__3JE=get__YWB(string_tmp__VH);
-  } else {
-    Self__2TS->shortname__3JE=n__MBC;
-  };
-  result__ID3=NULL;
-  ptr__JD3=((__POINTER )(NULL));
-  typ_id__OD3= 0;
-  sz__LD3=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_PARAMETERo));
-  if ((sz__LD3 ==  0)) {
-    result__ID3=FAST_ARRAYoITM_TYPE_PARAMETERo__;
-  } else {
-    typ_id__OD3=__FAST_ARRAYoITM_TYPE_PARAMETERo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LD3);
-    if ((typ_id__OD3 == (__INTEGER)(-  1))) {
-      a__YEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ZEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__LD3 + a__YEFH) & (__UINTEGER_32)(~ a__YEFH));
-      ptr_table__R3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__Q3IH=((__POINTER )(NULL));
-      result__S3IH=((__POINTER *)ptr_table__R3IH)[ 0];
-      if ((result__S3IH == (void *)NULL)) {
-        result__S3IH=new_lab__RTJ(new_size__ZEFH);
-        next__Q3IH=(void *)((unsigned long)result__S3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZEFH)));
-        ((__POINTER *)next__Q3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__R3IH)[ 0]=next__Q3IH;
-      } else {
-        next__Q3IH=((__POINTER *)result__S3IH)[ 0];
-        if ((next__Q3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S3IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZEFH <<  1)) <=  4096)) {
-            next__Q3IH=(void *)((unsigned long)result__S3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZEFH)));
-          } else {
-            next__Q3IH=new_lab__RTJ(new_size__ZEFH);
-          };
-          ((__POINTER *)next__Q3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__R3IH)[ 0]=next__Q3IH;
-        } else {
-          ((__POINTER *)result__S3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__S3IH=next__Q3IH;
-        };
-      };
-      ptr__JD3=result__S3IH;
-    } else {
-      t__3EFH=((__UINTEGER_32 )typ_id__OD3);
-      a__2EFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__Z3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__LD3 + a__2EFH) & (__UINTEGER_32)(~ a__2EFH));
-      ptr_table__W3IH=((__POINTER )(&(table_type[(t__3EFH)])));
-      lab_type__Y3IH=(__UINTEGER_32)(t__3EFH |  1);
-      next__V3IH=((__POINTER )(NULL));
-      result__X3IH=((__POINTER *)ptr_table__W3IH)[ 0];
-      if ((result__X3IH == (void *)NULL)) {
-        result__X3IH=new_lab__RTJ(lab_type__Y3IH);
-        next__V3IH=(void *)((unsigned long)result__X3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3IH)));
-        ((__POINTER *)next__V3IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__W3IH)[ 0]=next__V3IH;
-      } else {
-        next__V3IH=((__POINTER *)result__X3IH)[ 0];
-        if ((next__V3IH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X3IH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__Z3IH <<  1)) <=  4096)) {
-            next__V3IH=(void *)((unsigned long)result__X3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3IH)));
-          } else {
-            next__V3IH=new_lab__RTJ(lab_type__Y3IH);
-          };
-          ((__POINTER *)next__V3IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__W3IH)[ 0]=next__V3IH;
-        } else {
-          ((__POINTER *)result__X3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__X3IH=next__V3IH;
-        };
-      };
-      ptr__JD3=result__X3IH;
-    };
-    result__ID3=((__FAST_ARRAYoITM_TYPE_PARAMETERo *)ptr__JD3);
-    *(result__ID3) = *(FAST_ARRAYoITM_TYPE_PARAMETERo__);
-  };
-  Self__Z1BC=((__FAST_ARRAYoITM_TYPE_PARAMETERo *)result__ID3);
-  if ((Self__Z1BC->parent_arrayed_collection__LOE.capacity__TABC <  0)) {
-    Self__Z1BC->parent_arrayed_collection__LOE.storage__PBBC=create__G01C( 0);
-    Self__Z1BC->parent_arrayed_collection__LOE.capacity__TABC= 0;
-  };
-  Self__Z1BC->parent_arrayed_collection__LOE.upper__RABC=(__INTEGER)(-  1);
-  Self__2TS->idf_generic_list__MOE=result__ID3;
-  Self__2TS->index__GPG=(__INTEGER)(((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ +  1);
-  Self__ETX=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ);
-  new_capacity__GTX= 0;
-  if (((__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.upper__HJ +  1) <= (__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.capacity__WEU -  1))) {
-    Self__ETX->parent_arrayed_collection__AJ.upper__HJ=(__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.upper__HJ +  1);
-    __tmp__UTX=TRUE__;
-  } else {
-    __tmp__UTX=FALSE__;
-  };
-  if ((! __tmp__UTX)) {
-    if ((Self__ETX->parent_arrayed_collection__AJ.capacity__WEU ==  0)) {
-      Self__ETX->parent_arrayed_collection__AJ.storage__DVT=create__JDSB( 2);
-      Self__ETX->parent_arrayed_collection__AJ.capacity__WEU= 2;
-      Self__ETX->parent_arrayed_collection__AJ.upper__HJ= 0;
-    } else {
-      new_capacity__GTX=(__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.capacity__WEU <<  1);
-      __tmp__JUX=Self__ETX->parent_arrayed_collection__AJ.storage__DVT;
-      __tmp__KUX=Self__ETX->parent_arrayed_collection__AJ.capacity__WEU;
-      new__XMEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__JUX)),((__UINTEGER_32 )(__INTEGER)(__tmp__KUX * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__GTX * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__LNEC=(__INTEGER)(new_capacity__GTX -  1);
-      Self__FUVD=__tmp__KUX;
-      while ((Self__FUVD <= __tmp__LNEC)) {
-        new__XMEC[Self__FUVD]=NULL;
-        Self__FUVD=(__INTEGER)(Self__FUVD +  1);
-      };
-      Self__ETX->parent_arrayed_collection__AJ.storage__DVT=new__XMEC;
-      Self__ETX->parent_arrayed_collection__AJ.capacity__WEU=new_capacity__GTX;
-      Self__ETX->parent_arrayed_collection__AJ.upper__HJ=(__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.upper__HJ +  1);
-    };
-  };
-  ((void **)Self__ETX->parent_arrayed_collection__AJ.storage__DVT)[Self__ETX->parent_arrayed_collection__AJ.upper__HJ]=Self__2TS;
-  Self__2LBC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__LUS);
-  h__FMBC=hash_code__RNW(f__LBC);
-  idx__GMBC=(__INTEGER)(h__FMBC % Self__2LBC->capacity__KMBC);
-  node__IMBC=((void **)Self__2LBC->buckets__PMBC)[idx__GMBC];
-  while ((! (((void *)node__IMBC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__IMBC)->key__1MBC == (void *)f__LBC)))) {
-    node__IMBC=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__IMBC)->next__GNBC;
-  };
-  if (((void *)node__IMBC == (void *)NULL)) {
-    if ((Self__2LBC->capacity__KMBC == Self__2LBC->count__PNBC)) {
-      idx__Z2GD= 0;
-      node1__32GD=NULL;
-      node2__42GD=NULL;
-      old_buckets__22GD=Self__2LBC->buckets__PMBC;
-      new_capacity__02GD=prime_number_ceiling__021((__INTEGER)(Self__2LBC->capacity__KMBC +  1));
-      Self__2LBC->buckets__PMBC=create__ZITC(new_capacity__02GD);
-      i__12GD=(__INTEGER)(Self__2LBC->capacity__KMBC -  1);
-      Self__2LBC->capacity__KMBC=new_capacity__02GD;
-      while ((i__12GD >=  0)) {
-        node1__32GD=((void **)old_buckets__22GD)[i__12GD];
-        while (((void *)node1__32GD != (void *)NULL)) {
-          node2__42GD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__32GD)->next__GNBC;
-          idx__Z2GD=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__32GD)->key__1MBC) % Self__2LBC->capacity__KMBC);
-          ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__32GD)->next__GNBC=((void **)Self__2LBC->buckets__PMBC)[idx__Z2GD];
-          ((void **)Self__2LBC->buckets__PMBC)[idx__Z2GD]=node1__32GD;
-          node1__32GD=node2__42GD;
-        };
-        i__12GD=(__INTEGER)(i__12GD -  1);
-      };
-      idx__GMBC=(__INTEGER)(h__FMBC % Self__2LBC->capacity__KMBC);
-    };
-    __tmp__2NBC=((void **)Self__2LBC->buckets__PMBC)[idx__GMBC];
-    result__D5GD=NULL;
-    ptr__E5GD=((__POINTER )(NULL));
-    typ_id__J5GD= 0;
-    sz__G5GD=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo));
-    if ((sz__G5GD ==  0)) {
-      result__D5GD=HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
-    } else {
-      typ_id__J5GD=__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__G5GD);
-      if ((typ_id__J5GD == (__INTEGER)(-  1))) {
-        a__PFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__QFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__G5GD + a__PFFH) & (__UINTEGER_32)(~ a__PFFH));
-        ptr_table__13IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QFFH / ((__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__RTJ(new_size__QFFH);
-          next__03IH=(void *)((unsigned long)result__23IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFFH)));
-          ((__POINTER *)next__03IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__13IH)[ 0]=next__03IH;
-        } 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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QFFH <<  1)) <=  4096)) {
-              next__03IH=(void *)((unsigned long)result__23IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFFH)));
-            } else {
-              next__03IH=new_lab__RTJ(new_size__QFFH);
-            };
-            ((__POINTER *)next__03IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__13IH)[ 0]=next__03IH;
-          } else {
-            ((__POINTER *)result__23IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__03IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__23IH=next__03IH;
-          };
-        };
-        ptr__E5GD=result__23IH;
-      } else {
-        t__UFFH=((__UINTEGER_32 )typ_id__J5GD);
-        a__TFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__D4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__G5GD + a__TFFH) & (__UINTEGER_32)(~ a__TFFH));
-        ptr_table__A4IH=((__POINTER )(&(table_type[(t__UFFH)])));
-        lab_type__C4IH=(__UINTEGER_32)(t__UFFH |  1);
-        next__53IH=((__POINTER )(NULL));
-        result__B4IH=((__POINTER *)ptr_table__A4IH)[ 0];
-        if ((result__B4IH == (void *)NULL)) {
-          result__B4IH=new_lab__RTJ(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;
-        } 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__4XH)))) &  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)));
-            } else {
-              next__53IH=new_lab__RTJ(lab_type__C4IH);
-            };
-            ((__POINTER *)next__53IH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__A4IH)[ 0]=next__53IH;
-          } else {
-            ((__POINTER *)result__B4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__53IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__B4IH=next__53IH;
-          };
-        };
-        ptr__E5GD=result__B4IH;
-      };
-      result__D5GD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)ptr__E5GD);
-      *(result__D5GD) = *(HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__);
-    };
-    Self__0ATD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)result__D5GD);
-    Self__0ATD->item__NBHD=Self__2TS;
-    Self__0ATD->key__1MBC=f__LBC;
-    Self__0ATD->next__GNBC=__tmp__2NBC;
-    node__IMBC=result__D5GD;
-    ((void **)Self__2LBC->buckets__PMBC)[idx__GMBC]=result__D5GD;
-    Self__2LBC->count__PNBC=(__INTEGER)(Self__2LBC->count__PNBC +  1);
-  } else {
-    ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__IMBC)->item__NBHD=Self__2TS;
-  };
-  copy__VDS(string_tmp__4VX,f__LBC);
-  Self__TBHH=((__STRING *)string_tmp__4VX);
-  if ((Self__TBHH->capacity__UCS > Self__TBHH->count__SGC)) {
-    ((__CHARACTER *)Self__TBHH->storage__3CS)[Self__TBHH->count__SGC]='\0';
-  } else {
-    new_capacity__0MHH= 0;
-    if ((Self__TBHH->capacity__UCS <= Self__TBHH->count__SGC)) {
-      if ((Self__TBHH->capacity__UCS ==  0)) {
-        Self__TBHH->capacity__UCS= 32;
-        Self__TBHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__0MHH=(__INTEGER)(Self__TBHH->capacity__UCS <<  1);
-        Self__2MHH=((__CHARACTER *)Self__TBHH->storage__3CS);
-        old_nb_elts__3MHH=Self__TBHH->capacity__UCS;
-        new__4MHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2MHH),((__UINTEGER_32 )old_nb_elts__3MHH),((__UINTEGER_32 )new_capacity__0MHH)));
-        upper__H4IH=(__INTEGER)(new_capacity__0MHH -  1);
-        Self__F4IH=old_nb_elts__3MHH;
-        while ((Self__F4IH <= upper__H4IH)) {
-          new__4MHH[Self__F4IH]='\0';
-          Self__F4IH=(__INTEGER)(Self__F4IH +  1);
-        };
-        Self__TBHH->storage__3CS=new__4MHH;
-        Self__TBHH->capacity__UCS=new_capacity__0MHH;
-      };
-    };
-    ((__CHARACTER *)Self__TBHH->storage__3CS)[Self__TBHH->count__SGC]='\0';
-    Self__TBHH->count__SGC=(__INTEGER)(Self__TBHH->count__SGC +  1);
-    Self__TBHH->count__SGC=(__INTEGER)(Self__TBHH->count__SGC -  1);
-  };
-  file__AUS=((__POINTER )(fopen((char*)(Self__TBHH->storage__3CS),"rb")));
-  fseek((FILE*)((file__AUS)),0,SEEK_END);
-  result__HWX=((__INTEGER )(ftell((FILE *)(file__AUS))));
-  fseek((FILE*)((file__AUS)),0,SEEK_SET);
-  Self__2TS->source__3BC=create__ZBB((__INTEGER)(result__HWX +  1));
-  __tmp__RVS=Self__2TS->source__3BC;
-  Self__UBHH=((__STRING *)__tmp__RVS);
-  if ((Self__UBHH->capacity__UCS > Self__UBHH->count__SGC)) {
-    ((__CHARACTER *)Self__UBHH->storage__3CS)[Self__UBHH->count__SGC]='\0';
-  } else {
-    new_capacity__ANHH= 0;
-    if ((Self__UBHH->capacity__UCS <= Self__UBHH->count__SGC)) {
-      if ((Self__UBHH->capacity__UCS ==  0)) {
-        Self__UBHH->capacity__UCS= 32;
-        Self__UBHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__ANHH=(__INTEGER)(Self__UBHH->capacity__UCS <<  1);
-        Self__CNHH=((__CHARACTER *)Self__UBHH->storage__3CS);
-        old_nb_elts__DNHH=Self__UBHH->capacity__UCS;
-        new__ENHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CNHH),((__UINTEGER_32 )old_nb_elts__DNHH),((__UINTEGER_32 )new_capacity__ANHH)));
-        upper__M4IH=(__INTEGER)(new_capacity__ANHH -  1);
-        Self__K4IH=old_nb_elts__DNHH;
-        while ((Self__K4IH <= upper__M4IH)) {
-          new__ENHH[Self__K4IH]='\0';
-          Self__K4IH=(__INTEGER)(Self__K4IH +  1);
-        };
-        Self__UBHH->storage__3CS=new__ENHH;
-        Self__UBHH->capacity__UCS=new_capacity__ANHH;
-      };
-    };
-    ((__CHARACTER *)Self__UBHH->storage__3CS)[Self__UBHH->count__SGC]='\0';
-    Self__UBHH->count__SGC=(__INTEGER)(Self__UBHH->count__SGC +  1);
-    Self__UBHH->count__SGC=(__INTEGER)(Self__UBHH->count__SGC -  1);
-  };
-  ptr__QWX=Self__UBHH->storage__3CS;
-  fread((void *)((ptr__QWX)),(size_t)(1), (size_t)((result__HWX)),(FILE*)((file__AUS)));
-  ((__CHARACTER *)ptr__QWX)[result__HWX]='\0';
-  from_external__YZS(__tmp__RVS,ptr__QWX);
-  fclose((FILE*)((file__AUS)));
-  result__NJ3=NULL;
-  ptr__OJ3=((__POINTER )(NULL));
-  typ_id__TJ3= 0;
-  sz__QJ3=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo));
-  if ((sz__QJ3 ==  0)) {
-    result__NJ3=HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
-  } else {
-    typ_id__TJ3=__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QJ3);
-    if ((typ_id__TJ3 == (__INTEGER)(-  1))) {
-      a__XFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__YFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__QJ3 + a__XFFH) & (__UINTEGER_32)(~ a__XFFH));
-      ptr_table__P4IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YFFH / ((__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__RTJ(new_size__YFFH);
-        next__O4IH=(void *)((unsigned long)result__Q4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFFH)));
-        ((__POINTER *)next__O4IH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__P4IH)[ 0]=next__O4IH;
-      } 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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YFFH <<  1)) <=  4096)) {
-            next__O4IH=(void *)((unsigned long)result__Q4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFFH)));
-          } else {
-            next__O4IH=new_lab__RTJ(new_size__YFFH);
-          };
-          ((__POINTER *)next__O4IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__P4IH)[ 0]=next__O4IH;
-        } else {
-          ((__POINTER *)result__Q4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__Q4IH=next__O4IH;
-        };
-      };
-      ptr__OJ3=result__Q4IH;
-    } else {
-      t__2FFH=((__UINTEGER_32 )typ_id__TJ3);
-      a__1FFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__X4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__QJ3 + a__1FFH) & (__UINTEGER_32)(~ a__1FFH));
-      ptr_table__U4IH=((__POINTER )(&(table_type[(t__2FFH)])));
-      lab_type__W4IH=(__UINTEGER_32)(t__2FFH |  1);
-      next__T4IH=((__POINTER )(NULL));
-      result__V4IH=((__POINTER *)ptr_table__U4IH)[ 0];
-      if ((result__V4IH == (void *)NULL)) {
-        result__V4IH=new_lab__RTJ(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;
-      } 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__4XH)))) &  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)));
-          } else {
-            next__T4IH=new_lab__RTJ(lab_type__W4IH);
-          };
-          ((__POINTER *)next__T4IH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__U4IH)[ 0]=next__T4IH;
-        } else {
-          ((__POINTER *)result__V4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__V4IH=next__T4IH;
-        };
-      };
-      ptr__OJ3=result__V4IH;
-    };
-    result__NJ3=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)ptr__OJ3);
-    *(result__NJ3) = *(HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__);
-  };
-  Self__P3BC=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)result__NJ3);
-  new_capacity__MMJC=prime_number_ceiling__021( 193);
-  Self__P3BC->buckets__NAGC=create__PRSC(new_capacity__MMJC);
-  Self__P3BC->capacity__W3BC=new_capacity__MMJC;
-  Self__P3BC->count__YOGC= 0;
-  Self__2TS->slot_list__YVS=result__NJ3;
-  Self__2TS->parent_named__5.parent_itm_object__4.position__SFJ=((__POSITION )(__UINTEGER_32)(((__UINTEGER_32 )Self__2TS->index__GPG) |  131072));
-  return(result__XVC);
-}
-
-static __BOOLEAN read_space__XTD()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER pos2__2TD,level_comment__3TD,stat__4TD,pos__1TD,posold__0TD;
-  __INTEGER __tmp__K1DH,__tmp__L1DH,__tmp__M1DH,Self__1RDD;
-  __INTEGER new_capacity__SQHH,old_nb_elts__VQHH,upper__VBJH,Self__TBJH;
-  __INTEGER new_capacity__YQHH,old_nb_elts__1QHH,upper__0BJH,Self__YBJH;
-  __INTEGER new_capacity__4QHH,old_nb_elts__BRHH,upper__5BJH,Self__3BJH;
-  __INTEGER new_capacity__ERHH,old_nb_elts__HRHH,upper__ECJH,Self__CCJH;
-  __INTEGER Self__KCEB,up__MCEB,nb__I1D,p__J1D,__tmp__44DH,__tmp__54DH;
-  __INTEGER __tmp__A5DH;
-  __STRING *Self__TQHH,*Self__ZQHH,*Self__5QHH,*Self__FRHH;
-  __POSITION pos__A1VG;
-  __CHARACTER *__tmp__YYGH,*__tmp__ZYGH,*__tmp__0YGH,*Self__UQHH;
-  __CHARACTER *new__WQHH,*Self__0QHH,*new__2QHH,*Self__ARHH,*new__CRHH;
-  __CHARACTER *Self__GRHH,*new__IRHH,*__tmp__NHFH,*__tmp__OHFH;
-  __CHARACTER *__tmp__PHFH,*__tmp__QHFH,*__tmp__1YGH,*__tmp__2YGH;
-  __CHARACTER *__tmp__3YGH;
-  __CHARACTER result__L0DH,result__Y0DH,result__B1DH,result__N1DH;
-  __CHARACTER result__01DH,result__H2DH,result__Q2DH,result__Z2DH;
-  __CHARACTER result__K3DH,result__X3DH,result__E4DH,result__R4DH;
-  __CHARACTER result__ACF;
-  __BOOLEAN __tmp__IVD,__tmp__LYD,__tmp__25D;
-  pos2__2TD= 0;
-  level_comment__3TD= 0;
-  stat__4TD= 0;
-  pos__1TD=position__CCC;
-  posold__0TD=(__INTEGER)(-  1);
-  if (is_shorter2__VI) {
-    ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
-    ((__STRING *)string_tmp4__JUD)->count__SGC= 0;
-  };
-  while ((posold__0TD != position__CCC)) {
-    posold__0TD=position__CCC;
-    __tmp__K1DH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__L1DH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__M1DH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__YYGH=((__STRING *)source__5BC)->storage__3CS;
-    __tmp__ZYGH=((__STRING *)source__5BC)->storage__3CS;
-    __tmp__0YGH=((__STRING *)source__5BC)->storage__3CS;
-    until_do__YPI:
-    {
-      result__L0DH='\0';
-      if ((position__CCC > __tmp__K1DH)) {
-        result__L0DH=((__CHARACTER )(( 0)));
-      } else {
-        result__L0DH=((__CHARACTER *)__tmp__YYGH)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__L0DH == ((__CHARACTER )(( 0))))) {
-        __tmp__IVD=TRUE__;
-      } else {
-        result__Y0DH='\0';
-        if ((position__CCC > __tmp__L1DH)) {
-          result__Y0DH=((__CHARACTER )(( 0)));
-        } else {
-          result__Y0DH=((__CHARACTER *)__tmp__ZYGH)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__IVD=(((__INTEGER_8 )result__Y0DH) > ((__INTEGER_8 )' '));
-      };
-      if ((! __tmp__IVD)) {
-        if ((is_shorter2__VI | is_shorter__LZ)) {
-          result__B1DH='\0';
-          if ((position__CCC > __tmp__M1DH)) {
-            result__B1DH=((__CHARACTER )(( 0)));
-          } else {
-            result__B1DH=((__CHARACTER *)__tmp__0YGH)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__B1DH == '\n')) {
-            Self__1RDD=stat__4TD;
-            if ((stat__4TD ==  0)) {
-              stat__4TD= 1;
-            };
-            if ((Self__1RDD ==  1)) {
-              stat__4TD= 2;
-            };
-          };
-        };
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto until_do__YPI;
-      };
-    };
-    if ((position__CCC < ((__STRING *)source__5BC)->count__SGC)) {
-      result__N1DH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__N1DH=((__CHARACTER )(( 0)));
-      } else {
-        result__N1DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if (((result__N1DH == '/') && (((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)((__INTEGER)(position__CCC +  1) -  1)] == '/'))) {
-        position__CCC=(__INTEGER)(position__CCC +  2);
-        pos2__2TD=position__CCC;
-        until_do__ZX2D:
-        {
-          result__01DH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__01DH=((__CHARACTER )(( 0)));
-          } else {
-            result__01DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__01DH == ((__CHARACTER )(( 0))))) {
-            __tmp__LYD=TRUE__;
-          } else {
-            result__H2DH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__H2DH=((__CHARACTER )(( 0)));
-            } else {
-              result__H2DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            __tmp__LYD=(result__H2DH == '\n');
-          };
-          if ((! __tmp__LYD)) {
-            if (is_shorter2__VI) {
-              if (((stat__4TD ==  0) || (stat__4TD ==  1))) {
-                result__Q2DH='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__Q2DH=((__CHARACTER )(( 0)));
-                } else {
-                  result__Q2DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                Self__TQHH=((__STRING *)string_tmp3__HUD);
-                new_capacity__SQHH= 0;
-                if ((Self__TQHH->capacity__UCS <= Self__TQHH->count__SGC)) {
-                  if ((Self__TQHH->capacity__UCS ==  0)) {
-                    Self__TQHH->capacity__UCS= 32;
-                    Self__TQHH->storage__3CS=create__YIEB( 32);
-                  } else {
-                    new_capacity__SQHH=(__INTEGER)(Self__TQHH->capacity__UCS <<  1);
-                    Self__UQHH=((__CHARACTER *)Self__TQHH->storage__3CS);
-                    old_nb_elts__VQHH=Self__TQHH->capacity__UCS;
-                    new__WQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UQHH),((__UINTEGER_32 )old_nb_elts__VQHH),((__UINTEGER_32 )new_capacity__SQHH)));
-                    upper__VBJH=(__INTEGER)(new_capacity__SQHH -  1);
-                    Self__TBJH=old_nb_elts__VQHH;
-                    while ((Self__TBJH <= upper__VBJH)) {
-                      new__WQHH[Self__TBJH]='\0';
-                      Self__TBJH=(__INTEGER)(Self__TBJH +  1);
-                    };
-                    Self__TQHH->storage__3CS=new__WQHH;
-                    Self__TQHH->capacity__UCS=new_capacity__SQHH;
-                  };
-                };
-                ((__CHARACTER *)Self__TQHH->storage__3CS)[Self__TQHH->count__SGC]=result__Q2DH;
-                Self__TQHH->count__SGC=(__INTEGER)(Self__TQHH->count__SGC +  1);
-              };
-              if ((stat__4TD ==  2)) {
-                result__Z2DH='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__Z2DH=((__CHARACTER )(( 0)));
-                } else {
-                  result__Z2DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                Self__ZQHH=((__STRING *)string_tmp4__JUD);
-                new_capacity__YQHH= 0;
-                if ((Self__ZQHH->capacity__UCS <= Self__ZQHH->count__SGC)) {
-                  if ((Self__ZQHH->capacity__UCS ==  0)) {
-                    Self__ZQHH->capacity__UCS= 32;
-                    Self__ZQHH->storage__3CS=create__YIEB( 32);
-                  } else {
-                    new_capacity__YQHH=(__INTEGER)(Self__ZQHH->capacity__UCS <<  1);
-                    Self__0QHH=((__CHARACTER *)Self__ZQHH->storage__3CS);
-                    old_nb_elts__1QHH=Self__ZQHH->capacity__UCS;
-                    new__2QHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0QHH),((__UINTEGER_32 )old_nb_elts__1QHH),((__UINTEGER_32 )new_capacity__YQHH)));
-                    upper__0BJH=(__INTEGER)(new_capacity__YQHH -  1);
-                    Self__YBJH=old_nb_elts__1QHH;
-                    while ((Self__YBJH <= upper__0BJH)) {
-                      new__2QHH[Self__YBJH]='\0';
-                      Self__YBJH=(__INTEGER)(Self__YBJH +  1);
-                    };
-                    Self__ZQHH->storage__3CS=new__2QHH;
-                    Self__ZQHH->capacity__UCS=new_capacity__YQHH;
-                  };
-                };
-                ((__CHARACTER *)Self__ZQHH->storage__3CS)[Self__ZQHH->count__SGC]=result__Z2DH;
-                Self__ZQHH->count__SGC=(__INTEGER)(Self__ZQHH->count__SGC +  1);
-              };
-            };
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            goto until_do__ZX2D;
-          };
-        };
-        if (is_shorter2__VI) {
-          if (((stat__4TD ==  0) || (stat__4TD ==  1))) {
-            Self__5QHH=((__STRING *)string_tmp3__HUD);
-            new_capacity__4QHH= 0;
-            if ((Self__5QHH->capacity__UCS <= Self__5QHH->count__SGC)) {
-              if ((Self__5QHH->capacity__UCS ==  0)) {
-                Self__5QHH->capacity__UCS= 32;
-                Self__5QHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__4QHH=(__INTEGER)(Self__5QHH->capacity__UCS <<  1);
-                Self__ARHH=((__CHARACTER *)Self__5QHH->storage__3CS);
-                old_nb_elts__BRHH=Self__5QHH->capacity__UCS;
-                new__CRHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ARHH),((__UINTEGER_32 )old_nb_elts__BRHH),((__UINTEGER_32 )new_capacity__4QHH)));
-                upper__5BJH=(__INTEGER)(new_capacity__4QHH -  1);
-                Self__3BJH=old_nb_elts__BRHH;
-                while ((Self__3BJH <= upper__5BJH)) {
-                  new__CRHH[Self__3BJH]='\0';
-                  Self__3BJH=(__INTEGER)(Self__3BJH +  1);
-                };
-                Self__5QHH->storage__3CS=new__CRHH;
-                Self__5QHH->capacity__UCS=new_capacity__4QHH;
-              };
-            };
-            ((__CHARACTER *)Self__5QHH->storage__3CS)[Self__5QHH->count__SGC]='\n';
-            Self__5QHH->count__SGC=(__INTEGER)(Self__5QHH->count__SGC +  1);
-          };
-          if ((stat__4TD ==  2)) {
-            Self__FRHH=((__STRING *)string_tmp4__JUD);
-            new_capacity__ERHH= 0;
-            if ((Self__FRHH->capacity__UCS <= Self__FRHH->count__SGC)) {
-              if ((Self__FRHH->capacity__UCS ==  0)) {
-                Self__FRHH->capacity__UCS= 32;
-                Self__FRHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__ERHH=(__INTEGER)(Self__FRHH->capacity__UCS <<  1);
-                Self__GRHH=((__CHARACTER *)Self__FRHH->storage__3CS);
-                old_nb_elts__HRHH=Self__FRHH->capacity__UCS;
-                new__IRHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GRHH),((__UINTEGER_32 )old_nb_elts__HRHH),((__UINTEGER_32 )new_capacity__ERHH)));
-                upper__ECJH=(__INTEGER)(new_capacity__ERHH -  1);
-                Self__CCJH=old_nb_elts__HRHH;
-                while ((Self__CCJH <= upper__ECJH)) {
-                  new__IRHH[Self__CCJH]='\0';
-                  Self__CCJH=(__INTEGER)(Self__CCJH +  1);
-                };
-                Self__FRHH->storage__3CS=new__IRHH;
-                Self__FRHH->capacity__UCS=new_capacity__ERHH;
-              };
-            };
-            ((__CHARACTER *)Self__FRHH->storage__3CS)[Self__FRHH->count__SGC]='\n';
-            Self__FRHH->count__SGC=(__INTEGER)(Self__FRHH->count__SGC +  1);
-          };
-        };
-        if (is_shorter__LZ) {
-          Self__KCEB=(__INTEGER)((__INTEGER)(pos2__2TD -  2) + short_derive__PCC);
-          up__MCEB=((__STRING *)output_code__SI)->count__SGC;
-          if ((( 1 <= Self__KCEB) && (up__MCEB >= Self__KCEB))) {
-            remove_between__to__MIT(output_code__SI,(__INTEGER)((__INTEGER)(pos2__2TD -  2) + short_derive__PCC),(__INTEGER)((__INTEGER)(pos2__2TD -  1) + short_derive__PCC));
-            short_derive__PCC=(__INTEGER)(short_derive__PCC -  2);
-          };
-          nb__I1D= 0;
-          p__J1D=(__INTEGER)(pos2__2TD -  3);
-          __tmp__NHFH=((__STRING *)source__5BC)->storage__3CS;
-          __tmp__OHFH=((__STRING *)source__5BC)->storage__3CS;
-          while (((p__J1D >=  1) && (((__INTEGER_8 )((__CHARACTER *)__tmp__NHFH)[(__INTEGER)(p__J1D -  1)]) <= ((__INTEGER_8 )' ')))) {
-            if ((((__CHARACTER *)__tmp__OHFH)[(__INTEGER)(p__J1D -  1)] == '\n')) {
-              nb__I1D=(__INTEGER)(nb__I1D +  1);
-            };
-            p__J1D=(__INTEGER)(p__J1D -  1);
-          };
-          if ((nb__I1D >  1)) {
-            stat__4TD= 2;
-          };
-          if (((stat__4TD ==  0) || (stat__4TD ==  1))) {
-            short__token__to__GDD((&__string_128),pos2__2TD,position__CCC);
-          };
-          if ((stat__4TD ==  2)) {
-            short__token__to__GDD((&__string_127),pos2__2TD,position__CCC);
-          };
-        };
-        position__CCC=(__INTEGER)(position__CCC +  1);
-      };
-    };
-    if ((position__CCC < ((__STRING *)source__5BC)->count__SGC)) {
-      pos2__2TD=position__CCC;
-      result__K3DH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__K3DH=((__CHARACTER )(( 0)));
-      } else {
-        result__K3DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if (((result__K3DH == '/') && (((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)((__INTEGER)(position__CCC +  1) -  1)] == '*'))) {
-        position__CCC=(__INTEGER)(position__CCC +  2);
-        level_comment__3TD= 1;
-        __tmp__44DH=((__STRING *)source__5BC)->count__SGC;
-        __tmp__54DH=((__STRING *)source__5BC)->count__SGC;
-        __tmp__A5DH=((__STRING *)source__5BC)->count__SGC;
-        __tmp__PHFH=((__STRING *)source__5BC)->storage__3CS;
-        __tmp__QHFH=((__STRING *)source__5BC)->storage__3CS;
-        __tmp__1YGH=((__STRING *)source__5BC)->storage__3CS;
-        __tmp__2YGH=((__STRING *)source__5BC)->storage__3CS;
-        __tmp__3YGH=((__STRING *)source__5BC)->storage__3CS;
-        until_do__1Y2D:
-        {
-          result__X3DH='\0';
-          if ((position__CCC > __tmp__44DH)) {
-            result__X3DH=((__CHARACTER )(( 0)));
-          } else {
-            result__X3DH=((__CHARACTER *)__tmp__PHFH)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((! ((result__X3DH == ((__CHARACTER )(( 0)))) || (level_comment__3TD ==  0)))) {
-            result__E4DH='\0';
-            if ((position__CCC > __tmp__54DH)) {
-              result__E4DH=((__CHARACTER )(( 0)));
-            } else {
-              result__E4DH=((__CHARACTER *)__tmp__QHFH)[(__INTEGER)(position__CCC -  1)];
-            };
-            if (((result__E4DH == '/') && (((__CHARACTER *)__tmp__1YGH)[(__INTEGER)((__INTEGER)(position__CCC +  1) -  1)] == '*'))) {
-              level_comment__3TD=(__INTEGER)(level_comment__3TD +  1);
-              position__CCC=(__INTEGER)(position__CCC +  2);
-              __tmp__25D=TRUE__;
-            } else {
-              __tmp__25D=FALSE__;
-            };
-            if ((! __tmp__25D)) {
-              result__R4DH='\0';
-              if ((position__CCC > __tmp__A5DH)) {
-                result__R4DH=((__CHARACTER )(( 0)));
-              } else {
-                result__R4DH=((__CHARACTER *)__tmp__2YGH)[(__INTEGER)(position__CCC -  1)];
-              };
-              if (((result__R4DH == '*') && (((__CHARACTER *)__tmp__3YGH)[(__INTEGER)((__INTEGER)(position__CCC +  1) -  1)] == '/'))) {
-                level_comment__3TD=(__INTEGER)(level_comment__3TD -  1);
-                position__CCC=(__INTEGER)(position__CCC +  2);
-              } else {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-              };
-            };
-            goto until_do__1Y2D;
-          };
-        };
-        if ((level_comment__3TD !=  0)) {
-          position__CCC=pos2__2TD;
-          pos__A1VG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_206));
-          put_position__FRG(pos__A1VG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        short__token__to__GDD((&__string_70),pos2__2TD,position__CCC);
-      };
-    };
-  };
-  if ((is_shorter2__VI && (! skip_comment__ZBE))) {
-    if ((((__STRING *)string_tmp3__HUD)->count__SGC ==  0)) {
-      last_comment_slot__LCE=NULL;
-    } else {
-      last_comment_slot__LCE=get__YWB(string_tmp3__HUD);
-    };
-    if ((((__STRING *)string_tmp4__JUD)->count__SGC !=  0)) {
-      last_comment_extern__XZC=get__YWB(string_tmp4__JUD);
-    };
-  };
-  begin_position__BDE=position__CCC;
-  result__ACF='\0';
-  if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-    result__ACF=((__CHARACTER )(( 0)));
-  } else {
-    result__ACF=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-  };
-  return(((position__CCC != pos__1TD) | (result__ACF != ((__CHARACTER )(( 0))))));
-}
-
-static __BOOLEAN read_identifier__2BL()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER posold__ACL,idx__BCL,new_capacity__GNHH,old_nb_elts__JNHH;
-  __INTEGER upper__14IH,Self__Z4IH;
-  __STRING *Self__HNHH;
-  __POSITION pos__J31G;
-  __BOOLEAN result__5BL,__tmp__OCL,result__3FFH,__tmp__4DL,result__AGFH;
-  __BOOLEAN result__JYGH,__tmp__0DL,__tmp__1DL;
-  __CHARACTER result__HWDH,result__VWDH,result__CXDH,result__LXDH;
-  __CHARACTER result__UXDH,result__3XDH;
-  __CHARACTER *Self__INHH,*new__KNHH;
-  result__5BL=FALSE__;
-  posold__ACL= 0;
-  idx__BCL= 0;
-  if ((! read_space__XTD())) {
-    __tmp__OCL=TRUE__;
-  } else {
-    result__HWDH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__HWDH=((__CHARACTER )(( 0)));
-    } else {
-      result__HWDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    result__3FFH=FALSE__;
-    if ((((__INTEGER_8 )result__HWDH) >= ((__INTEGER_8 )'a'))) {
-      result__3FFH=(((__INTEGER_8 )result__HWDH) <= ((__INTEGER_8 )'z'));
-    };
-    __tmp__OCL=(! result__3FFH);
-  };
-  if (__tmp__OCL) {
-    result__5BL=FALSE__;
-  } else {
-    posold__ACL=position__CCC;
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    until_do__P1ZE:
-    {
-      result__VWDH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__VWDH=((__CHARACTER )(( 0)));
-      } else {
-        result__VWDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__VWDH == ((__CHARACTER )(( 0))))) {
-        __tmp__4DL=TRUE__;
-      } else {
-        result__CXDH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__CXDH=((__CHARACTER )(( 0)));
-        } else {
-          result__CXDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        result__AGFH=FALSE__;
-        if ((((__INTEGER_8 )result__CXDH) >= ((__INTEGER_8 )'a'))) {
-          result__AGFH=(((__INTEGER_8 )result__CXDH) <= ((__INTEGER_8 )'z'));
-        };
-        if ((! result__AGFH)) {
-          result__LXDH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__LXDH=((__CHARACTER )(( 0)));
-          } else {
-            result__LXDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          result__JYGH=FALSE__;
-          if ((((__INTEGER_8 )result__LXDH) >= ((__INTEGER_8 )'0'))) {
-            result__JYGH=(((__INTEGER_8 )result__LXDH) <= ((__INTEGER_8 )'9'));
-          };
-          __tmp__0DL=(! result__JYGH);
-        } else {
-          __tmp__0DL=FALSE__;
-        };
-        if (__tmp__0DL) {
-          result__UXDH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__UXDH=((__CHARACTER )(( 0)));
-          } else {
-            result__UXDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__1DL=(result__UXDH != '_');
-        } else {
-          __tmp__1DL=FALSE__;
-        };
-        __tmp__4DL=__tmp__1DL;
-      };
-      if ((! __tmp__4DL)) {
-        result__3XDH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__3XDH=((__CHARACTER )(( 0)));
-        } else {
-          result__3XDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        Self__HNHH=((__STRING *)string_tmp__VH);
-        new_capacity__GNHH= 0;
-        if ((Self__HNHH->capacity__UCS <= Self__HNHH->count__SGC)) {
-          if ((Self__HNHH->capacity__UCS ==  0)) {
-            Self__HNHH->capacity__UCS= 32;
-            Self__HNHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__GNHH=(__INTEGER)(Self__HNHH->capacity__UCS <<  1);
-            Self__INHH=((__CHARACTER *)Self__HNHH->storage__3CS);
-            old_nb_elts__JNHH=Self__HNHH->capacity__UCS;
-            new__KNHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__INHH),((__UINTEGER_32 )old_nb_elts__JNHH),((__UINTEGER_32 )new_capacity__GNHH)));
-            upper__14IH=(__INTEGER)(new_capacity__GNHH -  1);
-            Self__Z4IH=old_nb_elts__JNHH;
-            while ((Self__Z4IH <= upper__14IH)) {
-              new__KNHH[Self__Z4IH]='\0';
-              Self__Z4IH=(__INTEGER)(Self__Z4IH +  1);
-            };
-            Self__HNHH->storage__3CS=new__KNHH;
-            Self__HNHH->capacity__UCS=new_capacity__GNHH;
-          };
-        };
-        ((__CHARACTER *)Self__HNHH->storage__3CS)[Self__HNHH->count__SGC]=result__3XDH;
-        Self__HNHH->count__SGC=(__INTEGER)(Self__HNHH->count__SGC +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto until_do__P1ZE;
-      };
-    };
-    if ((((__STRING *)string_tmp__VH)->count__SGC !=  0)) {
-      idx__BCL=first_substring_index__W0ZE(string_tmp__VH);
-      if ((idx__BCL !=  0)) {
-        position__CCC=(__INTEGER)(posold__ACL + idx__BCL);
-        pos__J31G=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_207));
-        put_position__FRG(pos__J31G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      last_string__D2C=get__YWB(string_tmp__VH);
-      result__5BL=TRUE__;
-    };
-  };
-  return(result__5BL);
-}
-
-static __POSITION current_position__B0F()
-// () With resultNo recursive, No inlinable.
-{
-  __POSITION result__E0F;
-  __CHARACTER *__tmp__LYGH;
-  result__E0F=((__POSITION ) 0);
-  __tmp__LYGH=((__STRING *)source__5BC)->storage__3CS;
-  while ((pos_cur__FCC != position__CCC)) {
-    if ((((__CHARACTER *)__tmp__LYGH)[(__INTEGER)(pos_cur__FCC -  1)] == '\n')) {
-      pos_col__HCC= 0;
-      pos_line__GCC=(__INTEGER)(pos_line__GCC +  1);
-    } else {
-      pos_col__HCC=(__INTEGER)(pos_col__HCC +  1);
-    };
-    pos_cur__FCC=(__INTEGER)(pos_cur__FCC +  1);
-  };
-  if ((pos_line__GCC >  32767)) {
-    result__E0F=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__ZBC)->index__GPG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__HCC <<  9))) |  4294836224LU));
-    put_error__text__1PG( 0,(&__string_208));
-    put_position__FRG(result__E0F);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  if ((pos_col__HCC >  255)) {
-    result__E0F=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__ZBC)->index__GPG) |  130560) | ((__UINTEGER_32 )(__INTEGER)(pos_line__GCC <<  17))));
-    put_error__text__1PG( 0,(&__string_209));
-    put_position__FRG(result__E0F);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  return(((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__ZBC)->index__GPG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__HCC <<  9))) | ((__UINTEGER_32 )(__INTEGER)(pos_line__GCC <<  17)))));
-}
-
-static void put_error__text__1PG(__INTEGER type__3PG,void *txt__4PG)
-// ({INTEGER},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
-  type_error__5PG=type__3PG;
-  ((__STRING *)msg_err__AQG)->count__SGC= 0;
-  if ((type__3PG ==  0)) {
-    append__3OS(msg_err__AQG,(&__string_210));
-  };
-  if ((type__3PG ==  1)) {
-    append__3OS(msg_err__AQG,(&__string_211));
-  };
-  if ((type__3PG ==  2)) {
-    append__3OS(msg_err__AQG,(&__string_212));
-  };
-  if ((type__3PG ==  3)) {
-    append__3OS(msg_err__AQG,(&__string_213));
-  };
-  append__3OS(msg_err__AQG,txt__4PG);
-}
-
-static void put_position__FRG(__POSITION Self__GRG)
-// ({POSITION}) VoidNo recursive, No inlinable.
-{
-  __UINTEGER_32 c__IRG,__tmp__QSG,cols__LRG;
-  __STRING *Self__NNHH,*Self__TNHH,*Self__ZNHH,*Self__5NHH,*Self__FOHH;
-  __INTEGER new_capacity__MNHH,old_nb_elts__PNHH,upper__A5IH,Self__44IH;
-  __INTEGER pos__HRG,Self__3NH,limit_up__4NH,new_capacity__SNHH;
-  __INTEGER old_nb_elts__VNHH,upper__F5IH,Self__D5IH,new_capacity__YNHH;
-  __INTEGER old_nb_elts__1NHH,upper__K5IH,Self__I5IH,new_capacity__4NHH;
-  __INTEGER old_nb_elts__BOHH,upper__P5IH,Self__N5IH,new_capacity__EOHH;
-  __INTEGER old_nb_elts__HOHH,upper__U5IH,Self__S5IH;
-  void *src__ORG;
-  __CHARACTER char__PRG;
-  __CHARACTER *Self__ONHH,*new__QNHH,*__tmp__TGFH,*Self__UNHH,*new__WNHH;
-  __CHARACTER *Self__0NHH,*new__2NHH,*Self__AOHH,*new__COHH,*Self__GOHH;
-  __CHARACTER *new__IOHH;
-  c__IRG= 0;
-  char__PRG='\0';
-  append__3OS(msg_err__AQG,(&__string_214));
-  append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >>  17),msg_err__AQG);
-  append__3OS(msg_err__AQG,(&__string_215));
-  append_in__5KH((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >>  9) &  255),msg_err__AQG);
-  append__3OS(msg_err__AQG,(&__string_216));
-  append__3OS(msg_err__AQG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__GRG)) &  511)])->parent_named__5.name__LI);
-  Self__NNHH=((__STRING *)msg_err__AQG);
-  new_capacity__MNHH= 0;
-  if ((Self__NNHH->capacity__UCS <= Self__NNHH->count__SGC)) {
-    if ((Self__NNHH->capacity__UCS ==  0)) {
-      Self__NNHH->capacity__UCS= 32;
-      Self__NNHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__MNHH=(__INTEGER)(Self__NNHH->capacity__UCS <<  1);
-      Self__ONHH=((__CHARACTER *)Self__NNHH->storage__3CS);
-      old_nb_elts__PNHH=Self__NNHH->capacity__UCS;
-      new__QNHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ONHH),((__UINTEGER_32 )old_nb_elts__PNHH),((__UINTEGER_32 )new_capacity__MNHH)));
-      upper__A5IH=(__INTEGER)(new_capacity__MNHH -  1);
-      Self__44IH=old_nb_elts__PNHH;
-      while ((Self__44IH <= upper__A5IH)) {
-        new__QNHH[Self__44IH]='\0';
-        Self__44IH=(__INTEGER)(Self__44IH +  1);
-      };
-      Self__NNHH->storage__3CS=new__QNHH;
-      Self__NNHH->capacity__UCS=new_capacity__MNHH;
-    };
-  };
-  ((__CHARACTER *)Self__NNHH->storage__3CS)[Self__NNHH->count__SGC]='(';
-  Self__NNHH->count__SGC=(__INTEGER)(Self__NNHH->count__SGC +  1);
-  append__3OS(msg_err__AQG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__GRG)) &  511)])->filename__FSG);
-  append__3OS(msg_err__AQG,(&__string_217));
-  src__ORG=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__GRG)) &  511)])->source__3BC;
-  pos__HRG= 1;
-  __tmp__QSG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >>  17) -  1);
-  Self__3NH= 1;
-  limit_up__4NH=((__INTEGER )__tmp__QSG);
-  __tmp__TGFH=((__STRING *)src__ORG)->storage__3CS;
-  while ((Self__3NH <= limit_up__4NH)) {
-    while ((((__CHARACTER *)__tmp__TGFH)[(__INTEGER)(pos__HRG -  1)] != '\n')) {
-      pos__HRG=(__INTEGER)(pos__HRG +  1);
-    };
-    pos__HRG=(__INTEGER)(pos__HRG +  1);
-    Self__3NH=(__INTEGER)(Self__3NH +  1);
-  };
-  ((__STRING *)string_tmp__VH)->count__SGC= 0;
-  cols__LRG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >>  9) &  255);
-  while ((! ((pos__HRG > ((__STRING *)src__ORG)->count__SGC) || (((__CHARACTER *)((__STRING *)src__ORG)->storage__3CS)[(__INTEGER)(pos__HRG -  1)] == '\n')))) {
-    char__PRG=((__CHARACTER *)((__STRING *)src__ORG)->storage__3CS)[(__INTEGER)(pos__HRG -  1)];
-    Self__TNHH=((__STRING *)msg_err__AQG);
-    new_capacity__SNHH= 0;
-    if ((Self__TNHH->capacity__UCS <= Self__TNHH->count__SGC)) {
-      if ((Self__TNHH->capacity__UCS ==  0)) {
-        Self__TNHH->capacity__UCS= 32;
-        Self__TNHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__SNHH=(__INTEGER)(Self__TNHH->capacity__UCS <<  1);
-        Self__UNHH=((__CHARACTER *)Self__TNHH->storage__3CS);
-        old_nb_elts__VNHH=Self__TNHH->capacity__UCS;
-        new__WNHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UNHH),((__UINTEGER_32 )old_nb_elts__VNHH),((__UINTEGER_32 )new_capacity__SNHH)));
-        upper__F5IH=(__INTEGER)(new_capacity__SNHH -  1);
-        Self__D5IH=old_nb_elts__VNHH;
-        while ((Self__D5IH <= upper__F5IH)) {
-          new__WNHH[Self__D5IH]='\0';
-          Self__D5IH=(__INTEGER)(Self__D5IH +  1);
-        };
-        Self__TNHH->storage__3CS=new__WNHH;
-        Self__TNHH->capacity__UCS=new_capacity__SNHH;
-      };
-    };
-    ((__CHARACTER *)Self__TNHH->storage__3CS)[Self__TNHH->count__SGC]=char__PRG;
-    Self__TNHH->count__SGC=(__INTEGER)(Self__TNHH->count__SGC +  1);
-    if ((c__IRG < cols__LRG)) {
-      if ((char__PRG == '\t')) {
-        Self__ZNHH=((__STRING *)string_tmp__VH);
-        new_capacity__YNHH= 0;
-        if ((Self__ZNHH->capacity__UCS <= Self__ZNHH->count__SGC)) {
-          if ((Self__ZNHH->capacity__UCS ==  0)) {
-            Self__ZNHH->capacity__UCS= 32;
-            Self__ZNHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__YNHH=(__INTEGER)(Self__ZNHH->capacity__UCS <<  1);
-            Self__0NHH=((__CHARACTER *)Self__ZNHH->storage__3CS);
-            old_nb_elts__1NHH=Self__ZNHH->capacity__UCS;
-            new__2NHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0NHH),((__UINTEGER_32 )old_nb_elts__1NHH),((__UINTEGER_32 )new_capacity__YNHH)));
-            upper__K5IH=(__INTEGER)(new_capacity__YNHH -  1);
-            Self__I5IH=old_nb_elts__1NHH;
-            while ((Self__I5IH <= upper__K5IH)) {
-              new__2NHH[Self__I5IH]='\0';
-              Self__I5IH=(__INTEGER)(Self__I5IH +  1);
-            };
-            Self__ZNHH->storage__3CS=new__2NHH;
-            Self__ZNHH->capacity__UCS=new_capacity__YNHH;
-          };
-        };
-        ((__CHARACTER *)Self__ZNHH->storage__3CS)[Self__ZNHH->count__SGC]='\t';
-        Self__ZNHH->count__SGC=(__INTEGER)(Self__ZNHH->count__SGC +  1);
-      } else {
-        Self__5NHH=((__STRING *)string_tmp__VH);
-        new_capacity__4NHH= 0;
-        if ((Self__5NHH->capacity__UCS <= Self__5NHH->count__SGC)) {
-          if ((Self__5NHH->capacity__UCS ==  0)) {
-            Self__5NHH->capacity__UCS= 32;
-            Self__5NHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__4NHH=(__INTEGER)(Self__5NHH->capacity__UCS <<  1);
-            Self__AOHH=((__CHARACTER *)Self__5NHH->storage__3CS);
-            old_nb_elts__BOHH=Self__5NHH->capacity__UCS;
-            new__COHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__AOHH),((__UINTEGER_32 )old_nb_elts__BOHH),((__UINTEGER_32 )new_capacity__4NHH)));
-            upper__P5IH=(__INTEGER)(new_capacity__4NHH -  1);
-            Self__N5IH=old_nb_elts__BOHH;
-            while ((Self__N5IH <= upper__P5IH)) {
-              new__COHH[Self__N5IH]='\0';
-              Self__N5IH=(__INTEGER)(Self__N5IH +  1);
-            };
-            Self__5NHH->storage__3CS=new__COHH;
-            Self__5NHH->capacity__UCS=new_capacity__4NHH;
-          };
-        };
-        ((__CHARACTER *)Self__5NHH->storage__3CS)[Self__5NHH->count__SGC]=' ';
-        Self__5NHH->count__SGC=(__INTEGER)(Self__5NHH->count__SGC +  1);
-      };
-    };
-    c__IRG=(__UINTEGER_32)(c__IRG +  1);
-    pos__HRG=(__INTEGER)(pos__HRG +  1);
-  };
-  Self__FOHH=((__STRING *)msg_err__AQG);
-  new_capacity__EOHH= 0;
-  if ((Self__FOHH->capacity__UCS <= Self__FOHH->count__SGC)) {
-    if ((Self__FOHH->capacity__UCS ==  0)) {
-      Self__FOHH->capacity__UCS= 32;
-      Self__FOHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__EOHH=(__INTEGER)(Self__FOHH->capacity__UCS <<  1);
-      Self__GOHH=((__CHARACTER *)Self__FOHH->storage__3CS);
-      old_nb_elts__HOHH=Self__FOHH->capacity__UCS;
-      new__IOHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GOHH),((__UINTEGER_32 )old_nb_elts__HOHH),((__UINTEGER_32 )new_capacity__EOHH)));
-      upper__U5IH=(__INTEGER)(new_capacity__EOHH -  1);
-      Self__S5IH=old_nb_elts__HOHH;
-      while ((Self__S5IH <= upper__U5IH)) {
-        new__IOHH[Self__S5IH]='\0';
-        Self__S5IH=(__INTEGER)(Self__S5IH +  1);
-      };
-      Self__FOHH->storage__3CS=new__IOHH;
-      Self__FOHH->capacity__UCS=new_capacity__EOHH;
-    };
-  };
-  ((__CHARACTER *)Self__FOHH->storage__3CS)[Self__FOHH->count__SGC]='\n';
-  Self__FOHH->count__SGC=(__INTEGER)(Self__FOHH->count__SGC +  1);
-  append__3OS(msg_err__AQG,string_tmp__VH);
-  append__3OS(msg_err__AQG,(&__string_218));
-}
-
-static __BOOLEAN fast_has__IDT(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__JDT,void *k__KDT)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__UDT;
-  node__UDT=((void **)Self__JDT->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__KDT) % Self__JDT->capacity__WDT)];
-  while ((! (((void *)node__UDT == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UDT)->key__HET == (void *)k__KDT)))) {
-    node__UDT=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UDT)->next__SET;
-  };
-  return(((void *)node__UDT != (void *)NULL));
-}
-
-static __INTEGER hash_code__RNW(__STRING_CONSTANT *Self__SNW)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__UNW,__tmp__VNW,Self__0R1;
-  __CHARACTER *__tmp__YGFH;
-  result__UNW= 0;
-  __tmp__VNW=Self__SNW->count__DD;
-  Self__0R1= 1;
-  __tmp__YGFH=Self__SNW->storage__RRO;
-  while ((Self__0R1 <= __tmp__VNW)) {
-    result__UNW=(__INTEGER)((__INTEGER)( 5 * result__UNW) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__YGFH)[(__INTEGER)(Self__0R1 -  1)])));
-    Self__0R1=(__INTEGER)(Self__0R1 +  1);
-  };
-  if ((result__UNW <  0)) {
-    result__UNW=(__INTEGER)(~ result__UNW);
-  };
-  return(result__UNW);
-}
-
-static __BOOLEAN read_symbol__4YJ(void *st__AZJ)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER posold__CZJ,j__DZJ,__tmp__3GFH,__tmp__4GFH,__tmp__5GFH;
-  __BOOLEAN result__EZJ,__tmp__M0J,__tmp__J0J;
-  __CHARACTER *__tmp__AHFH,*__tmp__WYGH,*__tmp__XYGH;
-  __CHARACTER result__DZDH,result__QZDH;
-  posold__CZJ= 0;
-  j__DZJ= 0;
-  result__EZJ=FALSE__;
-  if ((! read_space__XTD())) {
-    result__EZJ=FALSE__;
-  } else {
-    posold__CZJ=position__CCC;
-    j__DZJ= 1;
-    __tmp__3GFH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__4GFH=((__STRING_CONSTANT *)st__AZJ)->count__DD;
-    __tmp__5GFH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__AHFH=((__STRING_CONSTANT *)st__AZJ)->storage__RRO;
-    __tmp__WYGH=((__STRING *)source__5BC)->storage__3CS;
-    __tmp__XYGH=((__STRING *)source__5BC)->storage__3CS;
-    until_do__XB5:
-    {
-      result__DZDH='\0';
-      if ((position__CCC > __tmp__3GFH)) {
-        result__DZDH=((__CHARACTER )(( 0)));
-      } else {
-        result__DZDH=((__CHARACTER *)__tmp__WYGH)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__DZDH == ((__CHARACTER )(( 0))))) {
-        __tmp__M0J=TRUE__;
-      } else {
-        if ((j__DZJ > __tmp__4GFH)) {
-          __tmp__J0J=TRUE__;
-        } else {
-          result__QZDH='\0';
-          if ((position__CCC > __tmp__5GFH)) {
-            result__QZDH=((__CHARACTER )(( 0)));
-          } else {
-            result__QZDH=((__CHARACTER *)__tmp__XYGH)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__J0J=(result__QZDH != ((__CHARACTER *)__tmp__AHFH)[(__INTEGER)(j__DZJ -  1)]);
-        };
-        __tmp__M0J=__tmp__J0J;
-      };
-      if ((! __tmp__M0J)) {
-        j__DZJ=(__INTEGER)(j__DZJ +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto until_do__XB5;
-      };
-    };
-    if ((j__DZJ > ((__STRING_CONSTANT *)st__AZJ)->count__DD)) {
-      result__EZJ=TRUE__;
-      last_string__D2C=st__AZJ;
-    } else {
-      position__CCC=posold__CZJ;
-      result__EZJ=FALSE__;
-    };
-  };
-  return(result__EZJ);
-}
-
-static __BOOLEAN read_short_elt__EIKB()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER j__IIKB,new_capacity__KOHH,old_nb_elts__NOHH,upper__Z5IH;
-  __INTEGER Self__X5IH,new_capacity__QOHH,old_nb_elts__TOHH,upper__45IH;
-  __INTEGER Self__25IH,new_capacity__WOHH,old_nb_elts__ZOHH,upper__DAJH;
-  __INTEGER Self__BAJH,new_capacity__2OHH,old_nb_elts__5OHH,upper__IAJH;
-  __INTEGER Self__GAJH,new_capacity__CPHH,old_nb_elts__FPHH,upper__NAJH;
-  __INTEGER Self__LAJH,new_capacity__IPHH,old_nb_elts__LPHH,upper__SAJH;
-  __INTEGER Self__QAJH,new_capacity__OPHH,old_nb_elts__RPHH,upper__XAJH;
-  __INTEGER Self__VAJH,new_capacity__UPHH,old_nb_elts__XPHH,upper__2AJH;
-  __INTEGER Self__0AJH,new_capacity__0PHH,old_nb_elts__3PHH,upper__BBJH;
-  __INTEGER Self__5AJH,new_capacity__AQHH,old_nb_elts__DQHH,upper__GBJH;
-  __INTEGER Self__EBJH,new_capacity__GQHH,old_nb_elts__JQHH,upper__LBJH;
-  __INTEGER Self__JBJH,new_capacity__MQHH,old_nb_elts__PQHH,upper__QBJH;
-  __INTEGER Self__OBJH;
-  __POSITION pos__LLG;
-  __STRING *Self__LOHH,*Self__ROHH,*Self__XOHH,*Self__3OHH,*Self__DPHH;
-  __STRING *Self__JPHH,*Self__PPHH,*Self__VPHH,*Self__1PHH,*Self__BQHH;
-  __STRING *Self__HQHH,*Self__NQHH;
-  __BOOLEAN result__HIKB,__tmp__1IKB;
-  __CHARACTER __tmp__AKKB,ch__RQHH;
-  __CHARACTER *Self__MOHH,*new__OOHH,*Self__SOHH,*new__UOHH,*Self__YOHH;
-  __CHARACTER *new__0OHH,*Self__4OHH,*new__APHH,*Self__EPHH,*new__GPHH;
-  __CHARACTER *Self__KPHH,*new__MPHH,*Self__QPHH,*new__SPHH,*Self__WPHH;
-  __CHARACTER *new__YPHH,*Self__2PHH,*new__4PHH,*Self__CQHH,*new__EQHH;
-  __CHARACTER *Self__IQHH,*new__KQHH,*Self__OQHH,*new__QQHH;
-  result__HIKB=FALSE__;
-  j__IIKB= 0;
-  if (read_identifier__2BL()) {
-    if (((void *)last_string__D2C != (void *)(&__string_115))) {
-      pos__LLG=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_219));
-      put_position__FRG(pos__LLG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    last_string__D2C=NULL;
-    result__HIKB=TRUE__;
-    __tmp__1IKB=TRUE__;
-  } else {
-    __tmp__1IKB=FALSE__;
-  };
-  if ((! __tmp__1IKB)) {
-    if (read_string__HGQ()) {
-      ((__STRING *)string_tmp__VH)->count__SGC= 0;
-      j__IIKB= 1;
-      while ((j__IIKB <= ((__STRING_CONSTANT *)last_string__D2C)->count__DD)) {
-        if ((((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[(__INTEGER)(j__IIKB -  1)] == '\\')) {
-          j__IIKB=(__INTEGER)(j__IIKB +  1);
-          __tmp__AKKB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[(__INTEGER)(j__IIKB -  1)];
-          if ((__tmp__AKKB == 'a')) {
-            Self__LOHH=((__STRING *)string_tmp__VH);
-            new_capacity__KOHH= 0;
-            if ((Self__LOHH->capacity__UCS <= Self__LOHH->count__SGC)) {
-              if ((Self__LOHH->capacity__UCS ==  0)) {
-                Self__LOHH->capacity__UCS= 32;
-                Self__LOHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__KOHH=(__INTEGER)(Self__LOHH->capacity__UCS <<  1);
-                Self__MOHH=((__CHARACTER *)Self__LOHH->storage__3CS);
-                old_nb_elts__NOHH=Self__LOHH->capacity__UCS;
-                new__OOHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MOHH),((__UINTEGER_32 )old_nb_elts__NOHH),((__UINTEGER_32 )new_capacity__KOHH)));
-                upper__Z5IH=(__INTEGER)(new_capacity__KOHH -  1);
-                Self__X5IH=old_nb_elts__NOHH;
-                while ((Self__X5IH <= upper__Z5IH)) {
-                  new__OOHH[Self__X5IH]='\0';
-                  Self__X5IH=(__INTEGER)(Self__X5IH +  1);
-                };
-                Self__LOHH->storage__3CS=new__OOHH;
-                Self__LOHH->capacity__UCS=new_capacity__KOHH;
-              };
-            };
-            ((__CHARACTER *)Self__LOHH->storage__3CS)[Self__LOHH->count__SGC]='\a';
-            Self__LOHH->count__SGC=(__INTEGER)(Self__LOHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == 'b')) {
-            Self__ROHH=((__STRING *)string_tmp__VH);
-            new_capacity__QOHH= 0;
-            if ((Self__ROHH->capacity__UCS <= Self__ROHH->count__SGC)) {
-              if ((Self__ROHH->capacity__UCS ==  0)) {
-                Self__ROHH->capacity__UCS= 32;
-                Self__ROHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__QOHH=(__INTEGER)(Self__ROHH->capacity__UCS <<  1);
-                Self__SOHH=((__CHARACTER *)Self__ROHH->storage__3CS);
-                old_nb_elts__TOHH=Self__ROHH->capacity__UCS;
-                new__UOHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__SOHH),((__UINTEGER_32 )old_nb_elts__TOHH),((__UINTEGER_32 )new_capacity__QOHH)));
-                upper__45IH=(__INTEGER)(new_capacity__QOHH -  1);
-                Self__25IH=old_nb_elts__TOHH;
-                while ((Self__25IH <= upper__45IH)) {
-                  new__UOHH[Self__25IH]='\0';
-                  Self__25IH=(__INTEGER)(Self__25IH +  1);
-                };
-                Self__ROHH->storage__3CS=new__UOHH;
-                Self__ROHH->capacity__UCS=new_capacity__QOHH;
-              };
-            };
-            ((__CHARACTER *)Self__ROHH->storage__3CS)[Self__ROHH->count__SGC]='\b';
-            Self__ROHH->count__SGC=(__INTEGER)(Self__ROHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == 'f')) {
-            Self__XOHH=((__STRING *)string_tmp__VH);
-            new_capacity__WOHH= 0;
-            if ((Self__XOHH->capacity__UCS <= Self__XOHH->count__SGC)) {
-              if ((Self__XOHH->capacity__UCS ==  0)) {
-                Self__XOHH->capacity__UCS= 32;
-                Self__XOHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__WOHH=(__INTEGER)(Self__XOHH->capacity__UCS <<  1);
-                Self__YOHH=((__CHARACTER *)Self__XOHH->storage__3CS);
-                old_nb_elts__ZOHH=Self__XOHH->capacity__UCS;
-                new__0OHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__YOHH),((__UINTEGER_32 )old_nb_elts__ZOHH),((__UINTEGER_32 )new_capacity__WOHH)));
-                upper__DAJH=(__INTEGER)(new_capacity__WOHH -  1);
-                Self__BAJH=old_nb_elts__ZOHH;
-                while ((Self__BAJH <= upper__DAJH)) {
-                  new__0OHH[Self__BAJH]='\0';
-                  Self__BAJH=(__INTEGER)(Self__BAJH +  1);
-                };
-                Self__XOHH->storage__3CS=new__0OHH;
-                Self__XOHH->capacity__UCS=new_capacity__WOHH;
-              };
-            };
-            ((__CHARACTER *)Self__XOHH->storage__3CS)[Self__XOHH->count__SGC]='\f';
-            Self__XOHH->count__SGC=(__INTEGER)(Self__XOHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == 'n')) {
-            Self__3OHH=((__STRING *)string_tmp__VH);
-            new_capacity__2OHH= 0;
-            if ((Self__3OHH->capacity__UCS <= Self__3OHH->count__SGC)) {
-              if ((Self__3OHH->capacity__UCS ==  0)) {
-                Self__3OHH->capacity__UCS= 32;
-                Self__3OHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__2OHH=(__INTEGER)(Self__3OHH->capacity__UCS <<  1);
-                Self__4OHH=((__CHARACTER *)Self__3OHH->storage__3CS);
-                old_nb_elts__5OHH=Self__3OHH->capacity__UCS;
-                new__APHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__4OHH),((__UINTEGER_32 )old_nb_elts__5OHH),((__UINTEGER_32 )new_capacity__2OHH)));
-                upper__IAJH=(__INTEGER)(new_capacity__2OHH -  1);
-                Self__GAJH=old_nb_elts__5OHH;
-                while ((Self__GAJH <= upper__IAJH)) {
-                  new__APHH[Self__GAJH]='\0';
-                  Self__GAJH=(__INTEGER)(Self__GAJH +  1);
-                };
-                Self__3OHH->storage__3CS=new__APHH;
-                Self__3OHH->capacity__UCS=new_capacity__2OHH;
-              };
-            };
-            ((__CHARACTER *)Self__3OHH->storage__3CS)[Self__3OHH->count__SGC]='\n';
-            Self__3OHH->count__SGC=(__INTEGER)(Self__3OHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == 'r')) {
-            Self__DPHH=((__STRING *)string_tmp__VH);
-            new_capacity__CPHH= 0;
-            if ((Self__DPHH->capacity__UCS <= Self__DPHH->count__SGC)) {
-              if ((Self__DPHH->capacity__UCS ==  0)) {
-                Self__DPHH->capacity__UCS= 32;
-                Self__DPHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__CPHH=(__INTEGER)(Self__DPHH->capacity__UCS <<  1);
-                Self__EPHH=((__CHARACTER *)Self__DPHH->storage__3CS);
-                old_nb_elts__FPHH=Self__DPHH->capacity__UCS;
-                new__GPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__EPHH),((__UINTEGER_32 )old_nb_elts__FPHH),((__UINTEGER_32 )new_capacity__CPHH)));
-                upper__NAJH=(__INTEGER)(new_capacity__CPHH -  1);
-                Self__LAJH=old_nb_elts__FPHH;
-                while ((Self__LAJH <= upper__NAJH)) {
-                  new__GPHH[Self__LAJH]='\0';
-                  Self__LAJH=(__INTEGER)(Self__LAJH +  1);
-                };
-                Self__DPHH->storage__3CS=new__GPHH;
-                Self__DPHH->capacity__UCS=new_capacity__CPHH;
-              };
-            };
-            ((__CHARACTER *)Self__DPHH->storage__3CS)[Self__DPHH->count__SGC]='\r';
-            Self__DPHH->count__SGC=(__INTEGER)(Self__DPHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == 't')) {
-            Self__JPHH=((__STRING *)string_tmp__VH);
-            new_capacity__IPHH= 0;
-            if ((Self__JPHH->capacity__UCS <= Self__JPHH->count__SGC)) {
-              if ((Self__JPHH->capacity__UCS ==  0)) {
-                Self__JPHH->capacity__UCS= 32;
-                Self__JPHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__IPHH=(__INTEGER)(Self__JPHH->capacity__UCS <<  1);
-                Self__KPHH=((__CHARACTER *)Self__JPHH->storage__3CS);
-                old_nb_elts__LPHH=Self__JPHH->capacity__UCS;
-                new__MPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__KPHH),((__UINTEGER_32 )old_nb_elts__LPHH),((__UINTEGER_32 )new_capacity__IPHH)));
-                upper__SAJH=(__INTEGER)(new_capacity__IPHH -  1);
-                Self__QAJH=old_nb_elts__LPHH;
-                while ((Self__QAJH <= upper__SAJH)) {
-                  new__MPHH[Self__QAJH]='\0';
-                  Self__QAJH=(__INTEGER)(Self__QAJH +  1);
-                };
-                Self__JPHH->storage__3CS=new__MPHH;
-                Self__JPHH->capacity__UCS=new_capacity__IPHH;
-              };
-            };
-            ((__CHARACTER *)Self__JPHH->storage__3CS)[Self__JPHH->count__SGC]='\t';
-            Self__JPHH->count__SGC=(__INTEGER)(Self__JPHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == 'v')) {
-            Self__PPHH=((__STRING *)string_tmp__VH);
-            new_capacity__OPHH= 0;
-            if ((Self__PPHH->capacity__UCS <= Self__PPHH->count__SGC)) {
-              if ((Self__PPHH->capacity__UCS ==  0)) {
-                Self__PPHH->capacity__UCS= 32;
-                Self__PPHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__OPHH=(__INTEGER)(Self__PPHH->capacity__UCS <<  1);
-                Self__QPHH=((__CHARACTER *)Self__PPHH->storage__3CS);
-                old_nb_elts__RPHH=Self__PPHH->capacity__UCS;
-                new__SPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QPHH),((__UINTEGER_32 )old_nb_elts__RPHH),((__UINTEGER_32 )new_capacity__OPHH)));
-                upper__XAJH=(__INTEGER)(new_capacity__OPHH -  1);
-                Self__VAJH=old_nb_elts__RPHH;
-                while ((Self__VAJH <= upper__XAJH)) {
-                  new__SPHH[Self__VAJH]='\0';
-                  Self__VAJH=(__INTEGER)(Self__VAJH +  1);
-                };
-                Self__PPHH->storage__3CS=new__SPHH;
-                Self__PPHH->capacity__UCS=new_capacity__OPHH;
-              };
-            };
-            ((__CHARACTER *)Self__PPHH->storage__3CS)[Self__PPHH->count__SGC]='\v';
-            Self__PPHH->count__SGC=(__INTEGER)(Self__PPHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == '\\')) {
-            Self__VPHH=((__STRING *)string_tmp__VH);
-            new_capacity__UPHH= 0;
-            if ((Self__VPHH->capacity__UCS <= Self__VPHH->count__SGC)) {
-              if ((Self__VPHH->capacity__UCS ==  0)) {
-                Self__VPHH->capacity__UCS= 32;
-                Self__VPHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__UPHH=(__INTEGER)(Self__VPHH->capacity__UCS <<  1);
-                Self__WPHH=((__CHARACTER *)Self__VPHH->storage__3CS);
-                old_nb_elts__XPHH=Self__VPHH->capacity__UCS;
-                new__YPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WPHH),((__UINTEGER_32 )old_nb_elts__XPHH),((__UINTEGER_32 )new_capacity__UPHH)));
-                upper__2AJH=(__INTEGER)(new_capacity__UPHH -  1);
-                Self__0AJH=old_nb_elts__XPHH;
-                while ((Self__0AJH <= upper__2AJH)) {
-                  new__YPHH[Self__0AJH]='\0';
-                  Self__0AJH=(__INTEGER)(Self__0AJH +  1);
-                };
-                Self__VPHH->storage__3CS=new__YPHH;
-                Self__VPHH->capacity__UCS=new_capacity__UPHH;
-              };
-            };
-            ((__CHARACTER *)Self__VPHH->storage__3CS)[Self__VPHH->count__SGC]='\\';
-            Self__VPHH->count__SGC=(__INTEGER)(Self__VPHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == '?')) {
-            Self__1PHH=((__STRING *)string_tmp__VH);
-            new_capacity__0PHH= 0;
-            if ((Self__1PHH->capacity__UCS <= Self__1PHH->count__SGC)) {
-              if ((Self__1PHH->capacity__UCS ==  0)) {
-                Self__1PHH->capacity__UCS= 32;
-                Self__1PHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__0PHH=(__INTEGER)(Self__1PHH->capacity__UCS <<  1);
-                Self__2PHH=((__CHARACTER *)Self__1PHH->storage__3CS);
-                old_nb_elts__3PHH=Self__1PHH->capacity__UCS;
-                new__4PHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2PHH),((__UINTEGER_32 )old_nb_elts__3PHH),((__UINTEGER_32 )new_capacity__0PHH)));
-                upper__BBJH=(__INTEGER)(new_capacity__0PHH -  1);
-                Self__5AJH=old_nb_elts__3PHH;
-                while ((Self__5AJH <= upper__BBJH)) {
-                  new__4PHH[Self__5AJH]='\0';
-                  Self__5AJH=(__INTEGER)(Self__5AJH +  1);
-                };
-                Self__1PHH->storage__3CS=new__4PHH;
-                Self__1PHH->capacity__UCS=new_capacity__0PHH;
-              };
-            };
-            ((__CHARACTER *)Self__1PHH->storage__3CS)[Self__1PHH->count__SGC]='\?';
-            Self__1PHH->count__SGC=(__INTEGER)(Self__1PHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == '\'')) {
-            Self__BQHH=((__STRING *)string_tmp__VH);
-            new_capacity__AQHH= 0;
-            if ((Self__BQHH->capacity__UCS <= Self__BQHH->count__SGC)) {
-              if ((Self__BQHH->capacity__UCS ==  0)) {
-                Self__BQHH->capacity__UCS= 32;
-                Self__BQHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__AQHH=(__INTEGER)(Self__BQHH->capacity__UCS <<  1);
-                Self__CQHH=((__CHARACTER *)Self__BQHH->storage__3CS);
-                old_nb_elts__DQHH=Self__BQHH->capacity__UCS;
-                new__EQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CQHH),((__UINTEGER_32 )old_nb_elts__DQHH),((__UINTEGER_32 )new_capacity__AQHH)));
-                upper__GBJH=(__INTEGER)(new_capacity__AQHH -  1);
-                Self__EBJH=old_nb_elts__DQHH;
-                while ((Self__EBJH <= upper__GBJH)) {
-                  new__EQHH[Self__EBJH]='\0';
-                  Self__EBJH=(__INTEGER)(Self__EBJH +  1);
-                };
-                Self__BQHH->storage__3CS=new__EQHH;
-                Self__BQHH->capacity__UCS=new_capacity__AQHH;
-              };
-            };
-            ((__CHARACTER *)Self__BQHH->storage__3CS)[Self__BQHH->count__SGC]='\'';
-            Self__BQHH->count__SGC=(__INTEGER)(Self__BQHH->count__SGC +  1);
-          };
-          if ((__tmp__AKKB == '\"')) {
-            Self__HQHH=((__STRING *)string_tmp__VH);
-            new_capacity__GQHH= 0;
-            if ((Self__HQHH->capacity__UCS <= Self__HQHH->count__SGC)) {
-              if ((Self__HQHH->capacity__UCS ==  0)) {
-                Self__HQHH->capacity__UCS= 32;
-                Self__HQHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__GQHH=(__INTEGER)(Self__HQHH->capacity__UCS <<  1);
-                Self__IQHH=((__CHARACTER *)Self__HQHH->storage__3CS);
-                old_nb_elts__JQHH=Self__HQHH->capacity__UCS;
-                new__KQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IQHH),((__UINTEGER_32 )old_nb_elts__JQHH),((__UINTEGER_32 )new_capacity__GQHH)));
-                upper__LBJH=(__INTEGER)(new_capacity__GQHH -  1);
-                Self__JBJH=old_nb_elts__JQHH;
-                while ((Self__JBJH <= upper__LBJH)) {
-                  new__KQHH[Self__JBJH]='\0';
-                  Self__JBJH=(__INTEGER)(Self__JBJH +  1);
-                };
-                Self__HQHH->storage__3CS=new__KQHH;
-                Self__HQHH->capacity__UCS=new_capacity__GQHH;
-              };
-            };
-            ((__CHARACTER *)Self__HQHH->storage__3CS)[Self__HQHH->count__SGC]='\"';
-            Self__HQHH->count__SGC=(__INTEGER)(Self__HQHH->count__SGC +  1);
-          };
-        } else {
-          Self__NQHH=((__STRING *)string_tmp__VH);
-          ch__RQHH=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[(__INTEGER)(j__IIKB -  1)];
-          new_capacity__MQHH= 0;
-          if ((Self__NQHH->capacity__UCS <= Self__NQHH->count__SGC)) {
-            if ((Self__NQHH->capacity__UCS ==  0)) {
-              Self__NQHH->capacity__UCS= 32;
-              Self__NQHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__MQHH=(__INTEGER)(Self__NQHH->capacity__UCS <<  1);
-              Self__OQHH=((__CHARACTER *)Self__NQHH->storage__3CS);
-              old_nb_elts__PQHH=Self__NQHH->capacity__UCS;
-              new__QQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__OQHH),((__UINTEGER_32 )old_nb_elts__PQHH),((__UINTEGER_32 )new_capacity__MQHH)));
-              upper__QBJH=(__INTEGER)(new_capacity__MQHH -  1);
-              Self__OBJH=old_nb_elts__PQHH;
-              while ((Self__OBJH <= upper__QBJH)) {
-                new__QQHH[Self__OBJH]='\0';
-                Self__OBJH=(__INTEGER)(Self__OBJH +  1);
-              };
-              Self__NQHH->storage__3CS=new__QQHH;
-              Self__NQHH->capacity__UCS=new_capacity__MQHH;
-            };
-          };
-          ((__CHARACTER *)Self__NQHH->storage__3CS)[Self__NQHH->count__SGC]=ch__RQHH;
-          Self__NQHH->count__SGC=(__INTEGER)(Self__NQHH->count__SGC +  1);
-        };
-        j__IIKB=(__INTEGER)(j__IIKB +  1);
-      };
-      last_string__D2C=get__YWB(string_tmp__VH);
-      result__HIKB=TRUE__;
-    };
-  };
-  return(result__HIKB);
-}
-
-static void fast_put__to__U2R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__V2R,void *k__X2R)
-// ({HASHED_DICTIONARYoTYPExSTRING_CONSTANTo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER h__42R,idx__52R,idx__ERNB,new_capacity__FRNB,i__GRNB;
-  __INTEGER typ_id__VTNB;
-  __POINTER ptr__QTNB,ptr_table__HCJH,next__GCJH,result__ICJH;
-  __POINTER ptr_table__MCJH,next__LCJH,result__NCJH;
-  __UINTEGER_32 sz__STNB,a__2HFH,new_size__3HFH,t__BIFH,a__AIFH;
-  __UINTEGER_32 new_size__PCJH,lab_type__OCJH;
-  void *node__C3R,*node1__IRNB,*node2__JRNB,*__tmp__W4R;
-  void **old_buckets__HRNB;
-  __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *result__PTNB;
-  __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *Self__BTDC;
-  h__42R=hash_code__RNW(k__X2R);
-  idx__52R=(__INTEGER)(h__42R % Self__V2R->capacity__E3R);
-  node__C3R=((void **)Self__V2R->buckets__J3R)[idx__52R];
-  while ((! (((void *)node__C3R == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__C3R)->key__V3R == (void *)k__X2R)))) {
-    node__C3R=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__C3R)->next__A4R;
-  };
-  if (((void *)node__C3R == (void *)NULL)) {
-    if ((Self__V2R->capacity__E3R == Self__V2R->count__J4R)) {
-      idx__ERNB= 0;
-      node1__IRNB=NULL;
-      node2__JRNB=NULL;
-      old_buckets__HRNB=Self__V2R->buckets__J3R;
-      new_capacity__FRNB=prime_number_ceiling__021((__INTEGER)(Self__V2R->capacity__E3R +  1));
-      Self__V2R->buckets__J3R=create__PX2(new_capacity__FRNB);
-      i__GRNB=(__INTEGER)(Self__V2R->capacity__E3R -  1);
-      Self__V2R->capacity__E3R=new_capacity__FRNB;
-      while ((i__GRNB >=  0)) {
-        node1__IRNB=((void **)old_buckets__HRNB)[i__GRNB];
-        while (((void *)node1__IRNB != (void *)NULL)) {
-          node2__JRNB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__IRNB)->next__A4R;
-          idx__ERNB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__IRNB)->key__V3R) % Self__V2R->capacity__E3R);
-          ((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__IRNB)->next__A4R=((void **)Self__V2R->buckets__J3R)[idx__ERNB];
-          ((void **)Self__V2R->buckets__J3R)[idx__ERNB]=node1__IRNB;
-          node1__IRNB=node2__JRNB;
-        };
-        i__GRNB=(__INTEGER)(i__GRNB -  1);
-      };
-      idx__52R=(__INTEGER)(h__42R % Self__V2R->capacity__E3R);
-    };
-    __tmp__W4R=((void **)Self__V2R->buckets__J3R)[idx__52R];
-    result__PTNB=NULL;
-    ptr__QTNB=((__POINTER )(NULL));
-    typ_id__VTNB= 0;
-    sz__STNB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo));
-    if ((sz__STNB ==  0)) {
-      result__PTNB=HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
-    } else {
-      typ_id__VTNB=__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__STNB);
-      if ((typ_id__VTNB == (__INTEGER)(-  1))) {
-        a__2HFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__3HFH=(__UINTEGER_32)((__UINTEGER_32)(sz__STNB + a__2HFH) & (__UINTEGER_32)(~ a__2HFH));
-        ptr_table__HCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3HFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__GCJH=((__POINTER )(NULL));
-        result__ICJH=((__POINTER *)ptr_table__HCJH)[ 0];
-        if ((result__ICJH == (void *)NULL)) {
-          result__ICJH=new_lab__RTJ(new_size__3HFH);
-          next__GCJH=(void *)((unsigned long)result__ICJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3HFH)));
-          ((__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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3HFH <<  1)) <=  4096)) {
-              next__GCJH=(void *)((unsigned long)result__ICJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3HFH)));
-            } else {
-              next__GCJH=new_lab__RTJ(new_size__3HFH);
-            };
-            ((__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__QTNB=result__ICJH;
-      } else {
-        t__BIFH=((__UINTEGER_32 )typ_id__VTNB);
-        a__AIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__PCJH=(__UINTEGER_32)((__UINTEGER_32)(sz__STNB + a__AIFH) & (__UINTEGER_32)(~ a__AIFH));
-        ptr_table__MCJH=((__POINTER )(&(table_type[(t__BIFH)])));
-        lab_type__OCJH=(__UINTEGER_32)(t__BIFH |  1);
-        next__LCJH=((__POINTER )(NULL));
-        result__NCJH=((__POINTER *)ptr_table__MCJH)[ 0];
-        if ((result__NCJH == (void *)NULL)) {
-          result__NCJH=new_lab__RTJ(lab_type__OCJH);
-          next__LCJH=(void *)((unsigned long)result__NCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PCJH)));
-          ((__POINTER *)next__LCJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MCJH)[ 0]=next__LCJH;
-        } else {
-          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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PCJH <<  1)) <=  4096)) {
-              next__LCJH=(void *)((unsigned long)result__NCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PCJH)));
-            } else {
-              next__LCJH=new_lab__RTJ(lab_type__OCJH);
-            };
-            ((__POINTER *)next__LCJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__MCJH)[ 0]=next__LCJH;
-          } else {
-            ((__POINTER *)result__NCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__NCJH=next__LCJH;
-          };
-        };
-        ptr__QTNB=result__NCJH;
-      };
-      result__PTNB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)ptr__QTNB);
-      *(result__PTNB) = *(HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__);
-    };
-    Self__BTDC=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)result__PTNB);
-    Self__BTDC->key__V3R=k__X2R;
-    Self__BTDC->next__A4R=__tmp__W4R;
-    node__C3R=result__PTNB;
-    ((void **)Self__V2R->buckets__J3R)[idx__52R]=result__PTNB;
-    Self__V2R->count__J4R=(__INTEGER)(Self__V2R->count__J4R +  1);
-  };
-}
-
-static __TYPE_FULL* create__with__CRB(void *typ__ERB,__UINTEGER_8 code__FRB)
-// ({TYPE_NULLxTYPE_VOIDxTYPE_CONTEXTxTYPE_ID},{UINTEGER_8}) With resultNo recursive, No inlinable.
-{
-  __TYPE_FULL *result__L1B,*Self__QGS;
-  __POINTER ptr__M1B,ptr_table__RCJH,next__QCJH,result__SCJH;
-  __POINTER ptr_table__WCJH,next__VCJH,result__XCJH;
-  __INTEGER typ_id__R1B;
-  __UINTEGER_32 sz__O1B,a__EIFH,new_size__FIFH,t__JIFH,a__IIFH;
-  __UINTEGER_32 new_size__ZCJH,lab_type__YCJH;
-  void *__tmp__2GS,*__tmp__EHS;
-  __BOOLEAN __tmp__QHS,__tmp__RHS;
-  result__L1B=NULL;
-  ptr__M1B=((__POINTER )(NULL));
-  typ_id__R1B= 0;
-  sz__O1B=((__UINTEGER_32 )sizeof(__TYPE_FULL));
-  if ((sz__O1B ==  0)) {
-    result__L1B=TYPE_FULL__;
-  } else {
-    typ_id__R1B=__TYPE_FULL__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__O1B);
-    if ((typ_id__R1B == (__INTEGER)(-  1))) {
-      a__EIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__FIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__O1B + a__EIFH) & (__UINTEGER_32)(~ a__EIFH));
-      ptr_table__RCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__QCJH=((__POINTER )(NULL));
-      result__SCJH=((__POINTER *)ptr_table__RCJH)[ 0];
-      if ((result__SCJH == (void *)NULL)) {
-        result__SCJH=new_lab__RTJ(new_size__FIFH);
-        next__QCJH=(void *)((unsigned long)result__SCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FIFH)));
-        ((__POINTER *)next__QCJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RCJH)[ 0]=next__QCJH;
-      } else {
-        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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FIFH <<  1)) <=  4096)) {
-            next__QCJH=(void *)((unsigned long)result__SCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FIFH)));
-          } else {
-            next__QCJH=new_lab__RTJ(new_size__FIFH);
-          };
-          ((__POINTER *)next__QCJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RCJH)[ 0]=next__QCJH;
-        } else {
-          ((__POINTER *)result__SCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__SCJH=next__QCJH;
-        };
-      };
-      ptr__M1B=result__SCJH;
-    } else {
-      t__JIFH=((__UINTEGER_32 )typ_id__R1B);
-      a__IIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__ZCJH=(__UINTEGER_32)((__UINTEGER_32)(sz__O1B + a__IIFH) & (__UINTEGER_32)(~ a__IIFH));
-      ptr_table__WCJH=((__POINTER )(&(table_type[(t__JIFH)])));
-      lab_type__YCJH=(__UINTEGER_32)(t__JIFH |  1);
-      next__VCJH=((__POINTER )(NULL));
-      result__XCJH=((__POINTER *)ptr_table__WCJH)[ 0];
-      if ((result__XCJH == (void *)NULL)) {
-        result__XCJH=new_lab__RTJ(lab_type__YCJH);
-        next__VCJH=(void *)((unsigned long)result__XCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZCJH)));
-        ((__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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZCJH <<  1)) <=  4096)) {
-            next__VCJH=(void *)((unsigned long)result__XCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZCJH)));
-          } else {
-            next__VCJH=new_lab__RTJ(lab_type__YCJH);
-          };
-          ((__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__M1B=result__XCJH;
-    };
-    result__L1B=((__TYPE_FULL *)ptr__M1B);
-    *(result__L1B) = *(TYPE_FULL__);
-  };
-  Self__QGS=((__TYPE_FULL *)result__L1B);
-  Self__QGS->flag__UGS=code__FRB;
-  if (((void *)typ__ERB != (void *)NULL)) {
-    switch (((struct ___OBJ *)typ__ERB)->__id) {
-    case __TYPE_NULL__: {
-      __tmp__2GS=(&__string_2);
-    } break;
-    case __TYPE_VOID__: {
-      __tmp__2GS=(&__string_3);
-    } break;
-    case __TYPE_CONTEXT__: {
-      __tmp__2GS=(&__string_45);
-    } break;
-    case __TYPE_ID__: {
-      __tmp__2GS=(&__string_47);
-    } break;
-    };
-    __tmp__QHS=((void *)__tmp__2GS != (void *)NULL);
-  } else {
-    __tmp__QHS=FALSE__;
-  };
-  if (__tmp__QHS) {
-    switch (((struct ___OBJ *)typ__ERB)->__id) {
-    case __TYPE_NULL__: {
-      __tmp__EHS=(&__string_2);
-    } break;
-    case __TYPE_VOID__: {
-      __tmp__EHS=(&__string_3);
-    } break;
-    case __TYPE_CONTEXT__: {
-      __tmp__EHS=(&__string_45);
-    } break;
-    case __TYPE_ID__: {
-      __tmp__EHS=(&__string_47);
-    } break;
-    };
-    __tmp__RHS=__infix_equal_equal__V2DB(__tmp__EHS,(&__string_33));
-  } else {
-    __tmp__RHS=FALSE__;
-  };
-  if ((__tmp__RHS && (! ((__UINTEGER_8)(Self__QGS->flag__UGS &  1) !=  0)))) {
-    print__OJD((&__string_220));
-    fputc((int)('\n'),stdout);
-    exit(( 1));
-  };
-  return(result__L1B);
-}
-
-static void** create__1VNB(__INTEGER nb_elements__3VNB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__XBHH,a__WBHH,new_size__YBHH,new_size2__ZBHH,a__0BHH;
-  __UINTEGER_32 new_size__1BHH;
-  __POINTER result__VBHH,ptr_table__1CJH,next__0CJH,result__2CJH;
-  __INTEGER Self__UFMC;
-  void **Result__I2RB;
-  sz__XBHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__3VNB * ((__INTEGER )(sizeof(void *)))));
-  result__VBHH=((__POINTER )(NULL));
-  a__WBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__YBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XBHH + a__WBHH) & (__UINTEGER_32)(~ a__WBHH));
-  new_size2__ZBHH=(__UINTEGER_32)(new_size__YBHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__ZBHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__0BHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__1BHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZBHH + a__0BHH) & (__UINTEGER_32)(~ a__0BHH));
-    ptr_table__1CJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1BHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__0CJH=((__POINTER )(NULL));
-    result__2CJH=((__POINTER *)ptr_table__1CJH)[ 0];
-    if ((result__2CJH == (void *)NULL)) {
-      result__2CJH=new_lab__RTJ(new_size__1BHH);
-      next__0CJH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BHH)));
-      ((__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__4XH)))) &  4095) + (__UINTEGER_32)(new_size__1BHH <<  1)) <=  4096)) {
-          next__0CJH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BHH)));
-        } else {
-          next__0CJH=new_lab__RTJ(new_size__1BHH);
-        };
-        ((__POINTER *)next__0CJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__1CJH)[ 0]=next__0CJH;
-      } else {
-        ((__POINTER *)result__2CJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0CJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__2CJH=next__0CJH;
-      };
-    };
-    ((__POINTER *)result__2CJH)[ 0]=((__POINTER ) 3);
-    result__VBHH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__VBHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__YBHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__I2RB=((void **)result__VBHH);
-  Self__UFMC=(__INTEGER)(nb_elements__3VNB -  1);
-  while ((Self__UFMC >=  0)) {
-    Result__I2RB[Self__UFMC]=NULL;
-    Self__UFMC=(__INTEGER)(Self__UFMC -  1);
-  };
-  return(Result__I2RB);
-}
-
-static void add_last__K5R(__FAST_ARRAYoTYPE_IDo *Self__L5R,void *element__M5R)
-// ({FAST_ARRAYoTYPE_IDo},{NULLxTYPE_ID}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__N5R,__tmp__WAS,__tmp__HVDC,Self__NEVD;
-  __BOOLEAN __tmp__35R;
-  void **__tmp__VAS,**new__TUDC;
-  new_capacity__N5R= 0;
-  if (((__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.upper__O5R +  1) <= (__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R -  1))) {
-    Self__L5R->parent_arrayed_collection__ABB.upper__O5R=(__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.upper__O5R +  1);
-    __tmp__35R=TRUE__;
-  } else {
-    __tmp__35R=FALSE__;
-  };
-  if ((! __tmp__35R)) {
-    if ((Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R ==  0)) {
-      Self__L5R->parent_arrayed_collection__ABB.storage__MAS=create__1VNB( 2);
-      Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R= 2;
-      Self__L5R->parent_arrayed_collection__ABB.upper__O5R= 0;
-    } else {
-      new_capacity__N5R=(__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R <<  1);
-      __tmp__VAS=Self__L5R->parent_arrayed_collection__ABB.storage__MAS;
-      __tmp__WAS=Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R;
-      new__TUDC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__VAS)),((__UINTEGER_32 )(__INTEGER)(__tmp__WAS * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__N5R * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__HVDC=(__INTEGER)(new_capacity__N5R -  1);
-      Self__NEVD=__tmp__WAS;
-      while ((Self__NEVD <= __tmp__HVDC)) {
-        new__TUDC[Self__NEVD]=NULL;
-        Self__NEVD=(__INTEGER)(Self__NEVD +  1);
-      };
-      Self__L5R->parent_arrayed_collection__ABB.storage__MAS=new__TUDC;
-      Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R=new_capacity__N5R;
-      Self__L5R->parent_arrayed_collection__ABB.upper__O5R=(__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.upper__O5R +  1);
-    };
-  };
-  ((void **)Self__L5R->parent_arrayed_collection__ABB.storage__MAS)[Self__L5R->parent_arrayed_collection__ABB.upper__O5R]=element__M5R;
-}
-
-static __BOOLEAN open__WHRD(__DIRECTORY_UNIX *Self__XHRD)
-// ({DIRECTORY_UNIX}) With resultNo recursive, No inlinable.
-{
-  __POINTER dirent__3HRD,ptr__KXLE,ptr_table__ADJH,next__5CJH;
-  __POINTER result__BDJH,ptr_table__FDJH,next__EDJH,result__GDJH;
-  __POINTER dir__1HRD,ptr__ZDJH,ptr_table__DEJH,next__CEJH,result__EEJH;
-  __POINTER ptr_table__IEJH,next__HEJH,result__JEJH,ptr__KFOF;
-  __POINTER ptr_table__NEJH,next__MEJH,result__OEJH,ptr_table__SEJH;
-  __POINTER next__REJH,result__TEJH;
-  __INTEGER i__BIRD,typ_id__PXLE,new_capacity__KRHH,old_nb_elts__NRHH;
-  __INTEGER upper__MDJH,Self__KDJH,new_capacity__TRHH,old_nb_elts__WRHH;
-  __INTEGER upper__RDJH,Self__PDJH,Self__YVFF,i__0RHH,j__2RHH;
-  __INTEGER Self__T2LH,idx__SV3E,new_capacity__3RHH,old_nb_elts__ASHH;
-  __INTEGER upper__WDJH,Self__UDJH,n__GZTD,n__NQFH,typ_id__0DJH;
-  __INTEGER typ_id__PFOF;
-  __UINTEGER_32 sz__MXLE,a__UIFH,new_size__VIFH,t__ZIFH,a__YIFH;
-  __UINTEGER_32 new_size__IDJH,lab_type__HDJH,sz__1DJH,a__2DJH;
-  __UINTEGER_32 new_size__3DJH,t__4DJH,a__5DJH,new_size__LEJH;
-  __UINTEGER_32 lab_type__KEJH,sz__MFOF,a__5QFH,new_size__ARFH,t__ERFH;
-  __UINTEGER_32 a__DRFH,new_size__VEJH,lab_type__UEJH;
-  __STRING *Self__LRHH,*new__EZQE,*Self__RRHH,*Self__MN3E,*Self__ZRHH;
-  __STRING *Self__4RHH,*Self__C1SD,*Self__FZTD;
-  void *other__1RHH;
-  void *result__RV3E;
-  void *__tmp__FY3E,*dir__DY3E;
-  void *__tmp__QKRD;
-  __CHARACTER *n__0HRD,*Self__MRHH,*new__ORHH,*Self__VRHH,*new__XRHH;
-  __CHARACTER *__tmp__MZGH,*__tmp__NZGH,*Self__U2LH,*model__V2LH;
-  __CHARACTER *Self__5RHH,*new__BSHH;
-  __BOOLEAN result__AIRD,result__QRHH,__tmp__UX3E;
-  __LINKED_LISToENTRYo *result__JXLE,*Self__MMWE,*Self__UQMF;
-  __CHARACTER ch__PRHH;
-  __LINKED_LIST_NODEoENTRYo *result__YDJH,*Self__AEJH,*result__JFOF;
-  __LINKED_LIST_NODEoENTRYo *Self__RNQF;
-  n__0HRD=NULL;
-  dirent__3HRD=((__POINTER )(NULL));
-  result__AIRD=FALSE__;
-  i__BIRD= 0;
-  if (((void *)Self__XHRD->parent_directory__SGD.list__FIRD == (void *)NULL)) {
-    result__JXLE=NULL;
-    ptr__KXLE=((__POINTER )(NULL));
-    typ_id__PXLE= 0;
-    sz__MXLE=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
-    if ((sz__MXLE ==  0)) {
-      result__JXLE=LINKED_LISToENTRYo__;
-    } else {
-      typ_id__PXLE=__LINKED_LISToENTRYo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MXLE);
-      if ((typ_id__PXLE == (__INTEGER)(-  1))) {
-        a__UIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__VIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXLE + a__UIFH) & (__UINTEGER_32)(~ a__UIFH));
-        ptr_table__ADJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__5CJH=((__POINTER )(NULL));
-        result__BDJH=((__POINTER *)ptr_table__ADJH)[ 0];
-        if ((result__BDJH == (void *)NULL)) {
-          result__BDJH=new_lab__RTJ(new_size__VIFH);
-          next__5CJH=(void *)((unsigned long)result__BDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VIFH)));
-          ((__POINTER *)next__5CJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ADJH)[ 0]=next__5CJH;
-        } else {
-          next__5CJH=((__POINTER *)result__BDJH)[ 0];
-          if ((next__5CJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BDJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VIFH <<  1)) <=  4096)) {
-              next__5CJH=(void *)((unsigned long)result__BDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VIFH)));
-            } else {
-              next__5CJH=new_lab__RTJ(new_size__VIFH);
-            };
-            ((__POINTER *)next__5CJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ADJH)[ 0]=next__5CJH;
-          } else {
-            ((__POINTER *)result__BDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5CJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__BDJH=next__5CJH;
-          };
-        };
-        ptr__KXLE=result__BDJH;
-      } else {
-        t__ZIFH=((__UINTEGER_32 )typ_id__PXLE);
-        a__YIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__IDJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXLE + a__YIFH) & (__UINTEGER_32)(~ a__YIFH));
-        ptr_table__FDJH=((__POINTER )(&(table_type[(t__ZIFH)])));
-        lab_type__HDJH=(__UINTEGER_32)(t__ZIFH |  1);
-        next__EDJH=((__POINTER )(NULL));
-        result__GDJH=((__POINTER *)ptr_table__FDJH)[ 0];
-        if ((result__GDJH == (void *)NULL)) {
-          result__GDJH=new_lab__RTJ(lab_type__HDJH);
-          next__EDJH=(void *)((unsigned long)result__GDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IDJH)));
-          ((__POINTER *)next__EDJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FDJH)[ 0]=next__EDJH;
-        } else {
-          next__EDJH=((__POINTER *)result__GDJH)[ 0];
-          if ((next__EDJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GDJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IDJH <<  1)) <=  4096)) {
-              next__EDJH=(void *)((unsigned long)result__GDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IDJH)));
-            } else {
-              next__EDJH=new_lab__RTJ(lab_type__HDJH);
-            };
-            ((__POINTER *)next__EDJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FDJH)[ 0]=next__EDJH;
-          } else {
-            ((__POINTER *)result__GDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__GDJH=next__EDJH;
-          };
-        };
-        ptr__KXLE=result__GDJH;
-      };
-      result__JXLE=((__LINKED_LISToENTRYo *)ptr__KXLE);
-      *(result__JXLE) = *(LINKED_LISToENTRYo__);
-    };
-    Self__XHRD->parent_directory__SGD.list__FIRD=result__JXLE;
-  } else {
-    Self__MMWE=((__LINKED_LISToENTRYo *)Self__XHRD->parent_directory__SGD.list__FIRD);
-    if (((void *)Self__MMWE->first_link__OMWE != (void *)NULL)) {
-      Self__MMWE->first_link__OMWE=NULL;
-      Self__MMWE->mem_idx__VMWE= 0;
-      Self__MMWE->mem_lnk__WMWE=NULL;
-      Self__MMWE->parent_linked_collection__EIRD.upper__HR3D= 0;
-      Self__MMWE->last_link__XMWE=NULL;
-    };
-  };
-  dir__1HRD=((__POINTER )(opendir((((__STRING_CONSTANT *)Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->storage__RRO))));
-  if ((dir__1HRD != (void *)NULL)) {
-    result__AIRD=TRUE__;
-    do {
-      dirent__3HRD=((__POINTER )(readdir((dir__1HRD))));
-      if ((dirent__3HRD != (void *)NULL)) {
-        n__0HRD=((__CHARACTER *)(((struct dirent *)(dirent__3HRD))->d_name));
-        ((__STRING *)string_tmp__LGD)->count__SGC= 0;
-        i__BIRD= 0;
-        while ((((__CHARACTER *)n__0HRD)[i__BIRD] != '\0')) {
-          Self__LRHH=((__STRING *)string_tmp__LGD);
-          ch__PRHH=((__CHARACTER *)n__0HRD)[i__BIRD];
-          new_capacity__KRHH= 0;
-          if ((Self__LRHH->capacity__UCS <= Self__LRHH->count__SGC)) {
-            if ((Self__LRHH->capacity__UCS ==  0)) {
-              Self__LRHH->capacity__UCS= 32;
-              Self__LRHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__KRHH=(__INTEGER)(Self__LRHH->capacity__UCS <<  1);
-              Self__MRHH=((__CHARACTER *)Self__LRHH->storage__3CS);
-              old_nb_elts__NRHH=Self__LRHH->capacity__UCS;
-              new__ORHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MRHH),((__UINTEGER_32 )old_nb_elts__NRHH),((__UINTEGER_32 )new_capacity__KRHH)));
-              upper__MDJH=(__INTEGER)(new_capacity__KRHH -  1);
-              Self__KDJH=old_nb_elts__NRHH;
-              while ((Self__KDJH <= upper__MDJH)) {
-                new__ORHH[Self__KDJH]='\0';
-                Self__KDJH=(__INTEGER)(Self__KDJH +  1);
-              };
-              Self__LRHH->storage__3CS=new__ORHH;
-              Self__LRHH->capacity__UCS=new_capacity__KRHH;
-            };
-          };
-          ((__CHARACTER *)Self__LRHH->storage__3CS)[Self__LRHH->count__SGC]=ch__PRHH;
-          Self__LRHH->count__SGC=(__INTEGER)(Self__LRHH->count__SGC +  1);
-          i__BIRD=(__INTEGER)(i__BIRD +  1);
-        };
-        new__EZQE=create__ZBB(((__STRING_CONSTANT *)(&__string_221))->count__DD);
-        copy__VDS(new__EZQE,(&__string_221));
-        Self__RRHH=((__STRING *)string_tmp__LGD);
-        result__QRHH=FALSE__;
-        if ((Self__RRHH->count__SGC == new__EZQE->count__SGC)) {
-          result__QRHH=((Self__RRHH->count__SGC ==  0) || fast_memcmp__until__FYYB(Self__RRHH->storage__3CS,new__EZQE->storage__3CS,Self__RRHH->count__SGC));
-        };
-        if ((! result__QRHH)) {
-          Self__MN3E=((__STRING *)string_tmp__LGD);
-          new_capacity__TRHH= 0;
-          if ((Self__MN3E->capacity__UCS <= Self__MN3E->count__SGC)) {
-            if ((Self__MN3E->capacity__UCS ==  0)) {
-              Self__MN3E->capacity__UCS= 32;
-              Self__MN3E->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__TRHH=(__INTEGER)(Self__MN3E->capacity__UCS <<  1);
-              Self__VRHH=((__CHARACTER *)Self__MN3E->storage__3CS);
-              old_nb_elts__WRHH=Self__MN3E->capacity__UCS;
-              new__XRHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VRHH),((__UINTEGER_32 )old_nb_elts__WRHH),((__UINTEGER_32 )new_capacity__TRHH)));
-              upper__RDJH=(__INTEGER)(new_capacity__TRHH -  1);
-              Self__PDJH=old_nb_elts__WRHH;
-              while ((Self__PDJH <= upper__RDJH)) {
-                new__XRHH[Self__PDJH]='\0';
-                Self__PDJH=(__INTEGER)(Self__PDJH +  1);
-              };
-              Self__MN3E->storage__3CS=new__XRHH;
-              Self__MN3E->capacity__UCS=new_capacity__TRHH;
-            };
-          };
-          ((__CHARACTER *)Self__MN3E->storage__3CS)[Self__MN3E->count__SGC]=' ';
-          Self__MN3E->count__SGC=(__INTEGER)(Self__MN3E->count__SGC +  1);
-          Self__YVFF=Self__MN3E->count__SGC;
-          __tmp__MZGH=Self__MN3E->storage__3CS;
-          __tmp__NZGH=Self__MN3E->storage__3CS;
-          while ((Self__YVFF >=  2)) {
-            ((__CHARACTER *)__tmp__NZGH)[(__INTEGER)(Self__YVFF -  1)]=((__CHARACTER *)__tmp__MZGH)[(__INTEGER)((__INTEGER)(Self__YVFF -  1) -  1)];
-            Self__YVFF=(__INTEGER)(Self__YVFF -  1);
-          };
-          ((__CHARACTER *)Self__MN3E->storage__3CS)[ 0]='/';
-          Self__ZRHH=((__STRING *)string_tmp__LGD);
-          other__1RHH=Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-          i__0RHH=Self__ZRHH->count__SGC;
-          j__2RHH=((__STRING_CONSTANT *)other__1RHH)->count__DD;
-          resize__1VZ(Self__ZRHH,(__INTEGER)(i__0RHH + j__2RHH));
-          if (((i__0RHH >  0) && (j__2RHH >  0))) {
-            move__to__by__LVCC(Self__ZRHH->storage__3CS, 0,(__INTEGER)(i__0RHH -  1),j__2RHH);
-          };
-          Self__U2LH=((__CHARACTER *)Self__ZRHH->storage__3CS);
-          model__V2LH=((__STRING_CONSTANT *)other__1RHH)->storage__RRO;
-          Self__T2LH=(__INTEGER)(j__2RHH -  1);
-          while ((Self__T2LH >=  0)) {
-            Self__U2LH[Self__T2LH]=((__CHARACTER *)model__V2LH)[Self__T2LH];
-            Self__T2LH=(__INTEGER)(Self__T2LH -  1);
-          };
-          reduce_path__UO3E(string_tmp__LGD);
-          result__RV3E=NULL;
-          idx__SV3E= 0;
-          copy__VDS(string_tmp2__JZAC,Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
-          Self__4RHH=((__STRING *)string_tmp2__JZAC);
-          new_capacity__3RHH= 0;
-          if ((Self__4RHH->capacity__UCS <= Self__4RHH->count__SGC)) {
-            if ((Self__4RHH->capacity__UCS ==  0)) {
-              Self__4RHH->capacity__UCS= 32;
-              Self__4RHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__3RHH=(__INTEGER)(Self__4RHH->capacity__UCS <<  1);
-              Self__5RHH=((__CHARACTER *)Self__4RHH->storage__3CS);
-              old_nb_elts__ASHH=Self__4RHH->capacity__UCS;
-              new__BSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5RHH),((__UINTEGER_32 )old_nb_elts__ASHH),((__UINTEGER_32 )new_capacity__3RHH)));
-              upper__WDJH=(__INTEGER)(new_capacity__3RHH -  1);
-              Self__UDJH=old_nb_elts__ASHH;
-              while ((Self__UDJH <= upper__WDJH)) {
-                new__BSHH[Self__UDJH]='\0';
-                Self__UDJH=(__INTEGER)(Self__UDJH +  1);
-              };
-              Self__4RHH->storage__3CS=new__BSHH;
-              Self__4RHH->capacity__UCS=new_capacity__3RHH;
-            };
-          };
-          ((__CHARACTER *)Self__4RHH->storage__3CS)[Self__4RHH->count__SGC]='/';
-          Self__4RHH->count__SGC=(__INTEGER)(Self__4RHH->count__SGC +  1);
-          append__3OS(string_tmp2__JZAC,string_tmp__LGD);
-          reduce_path__UO3E(string_tmp2__JZAC);
-          copy__VDS(string_tmp3__PZAC,string_tmp2__JZAC);
-          do {
-            result__RV3E=reference_at__VV0C(alias__2GD,string_tmp2__JZAC);
-            if (((void *)result__RV3E == (void *)NULL)) {
-              Self__C1SD=((__STRING *)string_tmp2__JZAC);
-              idx__SV3E=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__C1SD->storage__3CS,'/',(__INTEGER)(Self__C1SD->count__SGC -  1)));
-              if ((idx__SV3E >  0)) {
-                Self__FZTD=((__STRING *)string_tmp2__JZAC);
-                n__GZTD=(__INTEGER)(idx__SV3E -  1);
-                if ((n__GZTD < Self__FZTD->count__SGC)) {
-                  n__NQFH=(__INTEGER)(Self__FZTD->count__SGC - n__GZTD);
-                  if ((n__NQFH > Self__FZTD->count__SGC)) {
-                    Self__FZTD->count__SGC= 0;
-                  } else {
-                    Self__FZTD->count__SGC=(__INTEGER)(Self__FZTD->count__SGC - n__NQFH);
-                  };
-                };
-              } else {
-                ((__STRING *)string_tmp2__JZAC)->count__SGC= 0;
-              };
-            };
-          } while ((((void *)result__RV3E == (void *)NULL) && (((__STRING *)string_tmp2__JZAC)->count__SGC !=  0)));
-          if (((void *)result__RV3E == (void *)NULL)) {
-            if (FILE_SYSTEM__->parent_directory__HHD==0) {
-            } else {
-              parent_directory__GGD();
-            };
-            result__RV3E=physical_get_entry__JY0C(string_tmp3__PZAC);
-            __tmp__UX3E=TRUE__;
-          } else {
-            __tmp__UX3E=FALSE__;
-          };
-          if ((! __tmp__UX3E)) {
-            if ((((__STRING *)string_tmp3__PZAC)->count__SGC != ((__STRING *)string_tmp2__JZAC)->count__SGC)) {
-              if (result__RV3E==NULL) {
-                __tmp__FY3E=NULL;
-              } else {
-                switch (((struct ___OBJ *)result__RV3E)->__id) {
-                case __DIRECTORY_UNIX__: {
-                  __tmp__FY3E=((void *)result__RV3E);
-                } break;
-                case __FILE_UNIX__: {
-                  __tmp__FY3E=NULL;
-                } break;
-                }
-              };
-              dir__DY3E=__tmp__FY3E;
-              result__RV3E=physical_get_entry__REF(string_tmp3__PZAC);
-            };
-          };
-          if (((void *)result__RV3E == (void *)NULL)) {
-            result__AIRD=FALSE__;
-          } else {
-            if (((struct ___OBJ *)result__RV3E)->__id==__DIRECTORY_UNIX__) {
-              __tmp__QKRD=((__DIRECTORY_UNIX *)result__RV3E)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-            } else {
-              __tmp__QKRD=((__FILE_UNIX *)result__RV3E)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-            };
-            if ((((__STRING_CONSTANT *)__tmp__QKRD)->count__DD >= ((__STRING_CONSTANT *)Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->count__DD)) {
-              Self__UQMF=((__LINKED_LISToENTRYo *)Self__XHRD->parent_directory__SGD.list__FIRD);
-              if (((void *)Self__UQMF->first_link__OMWE == (void *)NULL)) {
-                result__YDJH=NULL;
-                ptr__ZDJH=((__POINTER )(NULL));
-                typ_id__0DJH= 0;
-                sz__1DJH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
-                if ((sz__1DJH ==  0)) {
-                  result__YDJH=LINKED_LIST_NODEoENTRYo__;
-                } else {
-                  typ_id__0DJH=__LINKED_LIST_NODEoENTRYo__;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1DJH);
-                  if ((typ_id__0DJH == (__INTEGER)(-  1))) {
-                    a__2DJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__3DJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1DJH + a__2DJH) & (__UINTEGER_32)(~ a__2DJH));
-                    ptr_table__DEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3DJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__CEJH=((__POINTER )(NULL));
-                    result__EEJH=((__POINTER *)ptr_table__DEJH)[ 0];
-                    if ((result__EEJH == (void *)NULL)) {
-                      result__EEJH=new_lab__RTJ(new_size__3DJH);
-                      next__CEJH=(void *)((unsigned long)result__EEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DJH)));
-                      ((__POINTER *)next__CEJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__DEJH)[ 0]=next__CEJH;
-                    } else {
-                      next__CEJH=((__POINTER *)result__EEJH)[ 0];
-                      if ((next__CEJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EEJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3DJH <<  1)) <=  4096)) {
-                          next__CEJH=(void *)((unsigned long)result__EEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DJH)));
-                        } else {
-                          next__CEJH=new_lab__RTJ(new_size__3DJH);
-                        };
-                        ((__POINTER *)next__CEJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__DEJH)[ 0]=next__CEJH;
-                      } else {
-                        ((__POINTER *)result__EEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__EEJH=next__CEJH;
-                      };
-                    };
-                    ptr__ZDJH=result__EEJH;
-                  } else {
-                    t__4DJH=((__UINTEGER_32 )typ_id__0DJH);
-                    a__5DJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__LEJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1DJH + a__5DJH) & (__UINTEGER_32)(~ a__5DJH));
-                    ptr_table__IEJH=((__POINTER )(&(table_type[(t__4DJH)])));
-                    lab_type__KEJH=(__UINTEGER_32)(t__4DJH |  1);
-                    next__HEJH=((__POINTER )(NULL));
-                    result__JEJH=((__POINTER *)ptr_table__IEJH)[ 0];
-                    if ((result__JEJH == (void *)NULL)) {
-                      result__JEJH=new_lab__RTJ(lab_type__KEJH);
-                      next__HEJH=(void *)((unsigned long)result__JEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LEJH)));
-                      ((__POINTER *)next__HEJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__IEJH)[ 0]=next__HEJH;
-                    } else {
-                      next__HEJH=((__POINTER *)result__JEJH)[ 0];
-                      if ((next__HEJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JEJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__LEJH <<  1)) <=  4096)) {
-                          next__HEJH=(void *)((unsigned long)result__JEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LEJH)));
-                        } else {
-                          next__HEJH=new_lab__RTJ(lab_type__KEJH);
-                        };
-                        ((__POINTER *)next__HEJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__IEJH)[ 0]=next__HEJH;
-                      } else {
-                        ((__POINTER *)result__JEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__JEJH=next__HEJH;
-                      };
-                    };
-                    ptr__ZDJH=result__JEJH;
-                  };
-                  result__YDJH=((__LINKED_LIST_NODEoENTRYo *)ptr__ZDJH);
-                  *(result__YDJH) = *(LINKED_LIST_NODEoENTRYo__);
-                };
-                Self__AEJH=((__LINKED_LIST_NODEoENTRYo *)result__YDJH);
-                Self__AEJH->item__IAXE=result__RV3E;
-                Self__AEJH->next__G3FF=NULL;
-                Self__UQMF->first_link__OMWE=result__YDJH;
-                Self__UQMF->parent_linked_collection__EIRD.upper__HR3D= 1;
-                Self__UQMF->last_link__XMWE=result__YDJH;
-                Self__UQMF->mem_idx__VMWE= 1;
-                Self__UQMF->mem_lnk__WMWE=result__YDJH;
-              } else {
-                result__JFOF=NULL;
-                ptr__KFOF=((__POINTER )(NULL));
-                typ_id__PFOF= 0;
-                sz__MFOF=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
-                if ((sz__MFOF ==  0)) {
-                  result__JFOF=LINKED_LIST_NODEoENTRYo__;
-                } else {
-                  typ_id__PFOF=__LINKED_LIST_NODEoENTRYo__;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MFOF);
-                  if ((typ_id__PFOF == (__INTEGER)(-  1))) {
-                    a__5QFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__ARFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MFOF + a__5QFH) & (__UINTEGER_32)(~ a__5QFH));
-                    ptr_table__NEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ARFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__MEJH=((__POINTER )(NULL));
-                    result__OEJH=((__POINTER *)ptr_table__NEJH)[ 0];
-                    if ((result__OEJH == (void *)NULL)) {
-                      result__OEJH=new_lab__RTJ(new_size__ARFH);
-                      next__MEJH=(void *)((unsigned long)result__OEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARFH)));
-                      ((__POINTER *)next__MEJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__NEJH)[ 0]=next__MEJH;
-                    } else {
-                      next__MEJH=((__POINTER *)result__OEJH)[ 0];
-                      if ((next__MEJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OEJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ARFH <<  1)) <=  4096)) {
-                          next__MEJH=(void *)((unsigned long)result__OEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARFH)));
-                        } else {
-                          next__MEJH=new_lab__RTJ(new_size__ARFH);
-                        };
-                        ((__POINTER *)next__MEJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__NEJH)[ 0]=next__MEJH;
-                      } else {
-                        ((__POINTER *)result__OEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__OEJH=next__MEJH;
-                      };
-                    };
-                    ptr__KFOF=result__OEJH;
-                  } else {
-                    t__ERFH=((__UINTEGER_32 )typ_id__PFOF);
-                    a__DRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__VEJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MFOF + a__DRFH) & (__UINTEGER_32)(~ a__DRFH));
-                    ptr_table__SEJH=((__POINTER )(&(table_type[(t__ERFH)])));
-                    lab_type__UEJH=(__UINTEGER_32)(t__ERFH |  1);
-                    next__REJH=((__POINTER )(NULL));
-                    result__TEJH=((__POINTER *)ptr_table__SEJH)[ 0];
-                    if ((result__TEJH == (void *)NULL)) {
-                      result__TEJH=new_lab__RTJ(lab_type__UEJH);
-                      next__REJH=(void *)((unsigned long)result__TEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEJH)));
-                      ((__POINTER *)next__REJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__SEJH)[ 0]=next__REJH;
-                    } else {
-                      next__REJH=((__POINTER *)result__TEJH)[ 0];
-                      if ((next__REJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TEJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VEJH <<  1)) <=  4096)) {
-                          next__REJH=(void *)((unsigned long)result__TEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEJH)));
-                        } else {
-                          next__REJH=new_lab__RTJ(lab_type__UEJH);
-                        };
-                        ((__POINTER *)next__REJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__SEJH)[ 0]=next__REJH;
-                      } else {
-                        ((__POINTER *)result__TEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__REJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__TEJH=next__REJH;
-                      };
-                    };
-                    ptr__KFOF=result__TEJH;
-                  };
-                  result__JFOF=((__LINKED_LIST_NODEoENTRYo *)ptr__KFOF);
-                  *(result__JFOF) = *(LINKED_LIST_NODEoENTRYo__);
-                };
-                Self__RNQF=((__LINKED_LIST_NODEoENTRYo *)result__JFOF);
-                Self__RNQF->item__IAXE=result__RV3E;
-                Self__RNQF->next__G3FF=NULL;
-                ((__LINKED_LIST_NODEoENTRYo *)Self__UQMF->last_link__XMWE)->next__G3FF=result__JFOF;
-                Self__UQMF->parent_linked_collection__EIRD.upper__HR3D=(__INTEGER)(Self__UQMF->parent_linked_collection__EIRD.upper__HR3D +  1);
-                Self__UQMF->last_link__XMWE=result__JFOF;
-              };
-            };
-          };
-        };
-      };
-    } while (((dirent__3HRD != (void *)NULL) & result__AIRD));
-    closedir((dir__1HRD));
-  };
-  return(result__AIRD);
-}
-
-static void check_in__begin__ZQQC(void *entry__1QQC,__INTEGER n__2QQC)
-// ({NULLxDIRECTORY_UNIXxFILE_UNIX},{INTEGER}) VoidRecursive, No inlinable.
-{
-  void *tok__4QQC,*__tmp__IRQC,*__tmp__YSQC,*k__3VDC,*k__2CFG;
-  void *__tmp__EVQC,*__tmp__JVQC;
-  void *dir__ARQC,*__tmp__PRQC;
-  __FILE_UNIX *Self__423G;
-  __INTEGER __tmp__URQC,Self__LR3D,__tmp__JSQC,Self__2R3D,__tmp__UTQC;
-  __INTEGER Self__MCFG,new_capacity__DSHH,old_nb_elts__GSHH,upper__ZEJH;
-  __INTEGER Self__XEJH,new_capacity__JSHH,old_nb_elts__MSHH,upper__4EJH;
-  __INTEGER Self__2EJH,i__B0BD,j__C0BD,Self__HAKB,__tmp__CYQC;
-  __INTEGER Self__UGSE,new_capacity__PSHH,old_nb_elts__SSHH,upper__EFJH;
-  __INTEGER Self__CFJH;
-  void *__tmp__0RQC,*__tmp__PSQC,*__tmp__XSQC,*__tmp__DVQC,*__tmp__IVQC;
-  __STRING *Self__KSS,*Self__ESHH,*Self__KSHH,*Self__5ZBD,*Self__212;
-  __STRING *Self__QSHH;
-  void *tok_lst__5QQC;
-  __BOOLEAN __tmp__BRQC,__tmp__1RQC,__tmp__QSQC;
-  __CHARACTER *Self__FSHH,*new__HSHH,*Self__LSHH,*new__NSHH,*Self__SJEB;
-  __CHARACTER *model__TJEB,*Self__RSHH,*new__TSHH;
-  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__2VDC,*Self__1CFG;
-  void *node__GWDC,*node__GDFG;
-  tok__4QQC=NULL;
-  tok_lst__5QQC=NULL;
-  dir__ARQC=NULL;
-  if (((struct ___OBJ *)entry__1QQC)->__id==__DIRECTORY_UNIX__) {
-    __tmp__BRQC=open__WHRD(entry__1QQC);
-  } else {
-    Self__423G=((__FILE_UNIX *)entry__1QQC);
-    Self__423G->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__423G->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
-    __tmp__BRQC=(Self__423G->stream__BMRD != (void *)NULL);
-  };
-  if ((! __tmp__BRQC)) {
-    print__OJD((&__string_222));
-    if (((struct ___OBJ *)entry__1QQC)->__id==__DIRECTORY_UNIX__) {
-      __tmp__IRQC=((__DIRECTORY_UNIX *)entry__1QQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-    } else {
-      __tmp__IRQC=((__FILE_UNIX *)entry__1QQC)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-    };
-    print__OJD(__tmp__IRQC);
-    print__OJD((&__string_171));
-  } else {
-    if (entry__1QQC==NULL) {
-      __tmp__PRQC=NULL;
-    } else {
-      switch (((struct ___OBJ *)entry__1QQC)->__id) {
-      case __DIRECTORY_UNIX__: {
-        __tmp__PRQC=((void *)entry__1QQC);
-      } break;
-      case __FILE_UNIX__: {
-        __tmp__PRQC=NULL;
-      } break;
-      }
-    };
-    dir__ARQC=__tmp__PRQC;
-    __tmp__URQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__PRQC)->parent_directory__SGD.list__FIRD)->parent_linked_collection__EIRD.upper__HR3D;
-    Self__LR3D= 1;
-    while ((Self__LR3D <= __tmp__URQC)) {
-      __tmp__0RQC=item__V3PE(dir__ARQC,Self__LR3D);
-      if (((struct ___OBJ *)__tmp__0RQC)->__id==__DIRECTORY_UNIX__) {
-        __tmp__1RQC=((void *)((__DIRECTORY_UNIX *)__tmp__0RQC) != (void *)NULL);
-      } else {
-        __tmp__1RQC=FALSE__;
-      };
-      if (__tmp__1RQC) {
-        check_in__begin__ZQQC(item__V3PE(dir__ARQC,Self__LR3D),n__2QQC);
-      };
-      Self__LR3D=(__INTEGER)(Self__LR3D +  1);
-    };
-    __tmp__JSQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__PRQC)->parent_directory__SGD.list__FIRD)->parent_linked_collection__EIRD.upper__HR3D;
-    Self__2R3D= 1;
-    while ((Self__2R3D <= __tmp__JSQC)) {
-      __tmp__PSQC=item__V3PE(dir__ARQC,Self__2R3D);
-      if (((struct ___OBJ *)__tmp__PSQC)->__id==__DIRECTORY_UNIX__) {
-        __tmp__QSQC=((void *)((__DIRECTORY_UNIX *)__tmp__PSQC) != (void *)NULL);
-      } else {
-        __tmp__QSQC=FALSE__;
-      };
-      if ((! __tmp__QSQC)) {
-        __tmp__XSQC=item__V3PE(dir__ARQC,Self__2R3D);
-        if (((struct ___OBJ *)__tmp__XSQC)->__id==__DIRECTORY_UNIX__) {
-          __tmp__YSQC=((__DIRECTORY_UNIX *)__tmp__XSQC)->parent_entry_unix__RGD.parent_entry__QGD.name__OPT;
-        } else {
-          __tmp__YSQC=((__FILE_UNIX *)__tmp__XSQC)->parent_entry_unix__EFF.parent_entry__QGD.name__OPT;
-        };
-        if (has_suffix__QJS(__tmp__YSQC)) {
-          copy__VDS(string_tmp__VH,__tmp__YSQC);
-          Self__KSS=((__STRING *)string_tmp__VH);
-          if (( 3 > Self__KSS->count__SGC)) {
-            Self__KSS->count__SGC= 0;
-          } else {
-            Self__KSS->count__SGC=(__INTEGER)(Self__KSS->count__SGC -  3);
-          };
-          to_upper__PTS(string_tmp__VH);
-          tok__4QQC=get__YWB(string_tmp__VH);
-          if (fast_has__IDT(short_dico__QD,(&__string_155))) {
-            tok_lst__5QQC=fast_at__LV3(short_dico__QD,(&__string_155));
-            __tmp__UTQC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__5QQC)->parent_linked_collection__LD.upper__0ED;
-            Self__MCFG= 1;
-            while ((Self__MCFG <= __tmp__UTQC)) {
-              if (((void *)item__X3ND(tok_lst__5QQC,Self__MCFG) == (void *)NULL)) {
-                append__3OS(current_list__2B,tok__4QQC);
-                append__3OS(file_list__0B,tok__4QQC);
-              } else {
-                append__3OS(current_list__2B,item__X3ND(tok_lst__5QQC,Self__MCFG));
-                append__3OS(file_list__0B,item__X3ND(tok_lst__5QQC,Self__MCFG));
-              };
-              Self__MCFG=(__INTEGER)(Self__MCFG +  1);
-            };
-          } else {
-            append__3OS(current_list__2B,tok__4QQC);
-            Self__ESHH=((__STRING *)current_list__2B);
-            new_capacity__DSHH= 0;
-            if ((Self__ESHH->capacity__UCS <= Self__ESHH->count__SGC)) {
-              if ((Self__ESHH->capacity__UCS ==  0)) {
-                Self__ESHH->capacity__UCS= 32;
-                Self__ESHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__DSHH=(__INTEGER)(Self__ESHH->capacity__UCS <<  1);
-                Self__FSHH=((__CHARACTER *)Self__ESHH->storage__3CS);
-                old_nb_elts__GSHH=Self__ESHH->capacity__UCS;
-                new__HSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FSHH),((__UINTEGER_32 )old_nb_elts__GSHH),((__UINTEGER_32 )new_capacity__DSHH)));
-                upper__ZEJH=(__INTEGER)(new_capacity__DSHH -  1);
-                Self__XEJH=old_nb_elts__GSHH;
-                while ((Self__XEJH <= upper__ZEJH)) {
-                  new__HSHH[Self__XEJH]='\0';
-                  Self__XEJH=(__INTEGER)(Self__XEJH +  1);
-                };
-                Self__ESHH->storage__3CS=new__HSHH;
-                Self__ESHH->capacity__UCS=new_capacity__DSHH;
-              };
-            };
-            ((__CHARACTER *)Self__ESHH->storage__3CS)[Self__ESHH->count__SGC]='\n';
-            Self__ESHH->count__SGC=(__INTEGER)(Self__ESHH->count__SGC +  1);
-            append__3OS(file_list__0B,tok__4QQC);
-            Self__KSHH=((__STRING *)file_list__0B);
-            new_capacity__JSHH= 0;
-            if ((Self__KSHH->capacity__UCS <= Self__KSHH->count__SGC)) {
-              if ((Self__KSHH->capacity__UCS ==  0)) {
-                Self__KSHH->capacity__UCS= 32;
-                Self__KSHH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__JSHH=(__INTEGER)(Self__KSHH->capacity__UCS <<  1);
-                Self__LSHH=((__CHARACTER *)Self__KSHH->storage__3CS);
-                old_nb_elts__MSHH=Self__KSHH->capacity__UCS;
-                new__NSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LSHH),((__UINTEGER_32 )old_nb_elts__MSHH),((__UINTEGER_32 )new_capacity__JSHH)));
-                upper__4EJH=(__INTEGER)(new_capacity__JSHH -  1);
-                Self__2EJH=old_nb_elts__MSHH;
-                while ((Self__2EJH <= upper__4EJH)) {
-                  new__NSHH[Self__2EJH]='\0';
-                  Self__2EJH=(__INTEGER)(Self__2EJH +  1);
-                };
-                Self__KSHH->storage__3CS=new__NSHH;
-                Self__KSHH->capacity__UCS=new_capacity__JSHH;
-              };
-            };
-            ((__CHARACTER *)Self__KSHH->storage__3CS)[Self__KSHH->count__SGC]='\n';
-            Self__KSHH->count__SGC=(__INTEGER)(Self__KSHH->count__SGC +  1);
-          };
-          Self__2VDC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__LUS);
-          k__3VDC=tok__4QQC;
-          node__GWDC=((void **)Self__2VDC->buckets__PMBC)[(__INTEGER)(hash_code__RNW(tok__4QQC) % Self__2VDC->capacity__KMBC)];
-          while ((! (((void *)node__GWDC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GWDC)->key__1MBC == (void *)k__3VDC)))) {
-            node__GWDC=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GWDC)->next__GNBC;
-          };
-          if (((void *)node__GWDC != (void *)NULL)) {
-            print__OJD((&__string_223));
-            Self__1CFG=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__LUS);
-            k__2CFG=tok__4QQC;
-            node__GDFG=((void **)Self__1CFG->buckets__PMBC)[(__INTEGER)(hash_code__RNW(tok__4QQC) % Self__1CFG->capacity__KMBC)];
-            while (((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GDFG)->key__1MBC != (void *)k__2CFG)) {
-              node__GDFG=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GDFG)->next__GNBC;
-            };
-            print__OJD(((__PROTOTYPE *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GDFG)->item__NBHD)->filename__FSG);
-            fputc((int)('\n'),stdout);
-            __tmp__DVQC=item__V3PE(dir__ARQC,Self__2R3D);
-            if (((struct ___OBJ *)__tmp__DVQC)->__id==__DIRECTORY_UNIX__) {
-              __tmp__EVQC=((__DIRECTORY_UNIX *)__tmp__DVQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-            } else {
-              __tmp__EVQC=((__FILE_UNIX *)__tmp__DVQC)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-            };
-            print__OJD(__tmp__EVQC);
-            fputc((int)('\n'),stdout);
-            exit(( 1));
-          };
-          __tmp__IVQC=item__V3PE(dir__ARQC,Self__2R3D);
-          if (((struct ___OBJ *)__tmp__IVQC)->__id==__DIRECTORY_UNIX__) {
-            __tmp__JVQC=((__DIRECTORY_UNIX *)__tmp__IVQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-          } else {
-            __tmp__JVQC=((__FILE_UNIX *)__tmp__IVQC)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-          };
-          proto_input__BI=create__name__generic_count__JBC(__tmp__JVQC,tok__4QQC);
-          go_on__SBC(proto_input__BI);
-          if (is_shorter__LZ) {
-            copy__VDS(string_tmp__VH,tok__4QQC);
-            if (fast_has__IDT(short_dico__QD,(&__string_116))) {
-              append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_116)))->first_link__OTEC)->item__L0HD);
-            } else {
-              append__3OS(string_tmp__VH,(&__string_172));
-            };
-            save_file__with__3DC(get__YWB(string_tmp__VH),output_code__SI);
-          };
-        };
-      };
-      Self__2R3D=(__INTEGER)(Self__2R3D +  1);
-    };
-    if ((((__STRING *)current_list__2B)->count__SGC !=  0)) {
-      if (fast_has__IDT(short_dico__QD,(&__string_154))) {
-        tok__4QQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_154)))->first_link__OTEC)->item__L0HD;
-        Self__5ZBD=((__STRING *)current_list__2B);
-        i__B0BD=Self__5ZBD->count__SGC;
-        j__C0BD=((__STRING_CONSTANT *)tok__4QQC)->count__DD;
-        resize__1VZ(Self__5ZBD,(__INTEGER)(i__B0BD + j__C0BD));
-        if (((i__B0BD >  0) && (j__C0BD >  0))) {
-          move__to__by__LVCC(Self__5ZBD->storage__3CS, 0,(__INTEGER)(i__B0BD -  1),j__C0BD);
-        };
-        Self__SJEB=((__CHARACTER *)Self__5ZBD->storage__3CS);
-        model__TJEB=((__STRING_CONSTANT *)tok__4QQC)->storage__RRO;
-        Self__HAKB=(__INTEGER)(j__C0BD -  1);
-        while ((Self__HAKB >=  0)) {
-          Self__SJEB[Self__HAKB]=((__CHARACTER *)model__TJEB)[Self__HAKB];
-          Self__HAKB=(__INTEGER)(Self__HAKB -  1);
-        };
-      };
-      if (fast_has__IDT(short_dico__QD,(&__string_156))) {
-        tok__4QQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_156)))->first_link__OTEC)->item__L0HD;
-        append__3OS(current_list__2B,tok__4QQC);
-      };
-      copy__VDS(string_tmp__VH,((__DIRECTORY_UNIX *)__tmp__PRQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
-      Self__212=((__STRING *)string_tmp__VH);
-      if ((n__2QQC > Self__212->count__SGC)) {
-        Self__212->count__SGC= 0;
-      } else {
-        if ((n__2QQC >  0)) {
-          remove_between__to__MIT(Self__212, 1,n__2QQC);
-        };
-      };
-      if ((((__STRING *)string_tmp__VH)->count__SGC !=  0)) {
-        replace_all__with__CRS(string_tmp__VH,'/','-');
-        tok__4QQC=get__YWB(string_tmp__VH);
-        if (fast_has__IDT(short_dico__QD,(&__string_152))) {
-          tok_lst__5QQC=fast_at__LV3(short_dico__QD,(&__string_152));
-          __tmp__CYQC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__5QQC)->parent_linked_collection__LD.upper__0ED;
-          Self__UGSE= 1;
-          while ((Self__UGSE <= __tmp__CYQC)) {
-            if (((void *)item__X3ND(tok_lst__5QQC,Self__UGSE) == (void *)NULL)) {
-              append__3OS(directory_list__YB,tok__4QQC);
-            } else {
-              append__3OS(directory_list__YB,item__X3ND(tok_lst__5QQC,Self__UGSE));
-            };
-            Self__UGSE=(__INTEGER)(Self__UGSE +  1);
-          };
-        } else {
-          append__3OS(directory_list__YB,tok__4QQC);
-          Self__QSHH=((__STRING *)directory_list__YB);
-          new_capacity__PSHH= 0;
-          if ((Self__QSHH->capacity__UCS <= Self__QSHH->count__SGC)) {
-            if ((Self__QSHH->capacity__UCS ==  0)) {
-              Self__QSHH->capacity__UCS= 32;
-              Self__QSHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__PSHH=(__INTEGER)(Self__QSHH->capacity__UCS <<  1);
-              Self__RSHH=((__CHARACTER *)Self__QSHH->storage__3CS);
-              old_nb_elts__SSHH=Self__QSHH->capacity__UCS;
-              new__TSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RSHH),((__UINTEGER_32 )old_nb_elts__SSHH),((__UINTEGER_32 )new_capacity__PSHH)));
-              upper__EFJH=(__INTEGER)(new_capacity__PSHH -  1);
-              Self__CFJH=old_nb_elts__SSHH;
-              while ((Self__CFJH <= upper__EFJH)) {
-                new__TSHH[Self__CFJH]='\0';
-                Self__CFJH=(__INTEGER)(Self__CFJH +  1);
-              };
-              Self__QSHH->storage__3CS=new__TSHH;
-              Self__QSHH->capacity__UCS=new_capacity__PSHH;
-            };
-          };
-          ((__CHARACTER *)Self__QSHH->storage__3CS)[Self__QSHH->count__SGC]='\n';
-          Self__QSHH->count__SGC=(__INTEGER)(Self__QSHH->count__SGC +  1);
-        };
-        copy__VDS(string_tmp__VH,tok__4QQC);
-        if (fast_has__IDT(short_dico__QD,(&__string_116))) {
-          append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_116)))->first_link__OTEC)->item__L0HD);
-        } else {
-          append__3OS(string_tmp__VH,(&__string_172));
-        };
-        save_file__with__3DC(get__YWB(string_tmp__VH),current_list__2B);
-        ((__STRING *)current_list__2B)->count__SGC= 0;
-      };
-    };
-  };
-}
-
-static void* fast_at__LV3(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__MV3,void *k__NV3)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__XV3;
-  node__XV3=((void **)Self__MV3->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__NV3) % Self__MV3->capacity__WDT)];
-  while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__XV3)->key__HET != (void *)k__NV3)) {
-    node__XV3=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__XV3)->next__SET;
-  };
-  return(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__XV3)->item__KW3);
-}
-
-static void save_file__with__3DC(void *n__5DC,void *buf__AEC)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __STRING *Self__4IFH,*Self__U1BD,*Self__WSHH,*Self__2SHH,*Self__TYS;
-  __INTEGER new_capacity__VSHH,old_nb_elts__YSHH,upper__JFJH,Self__HFJH;
-  __INTEGER new_capacity__1SHH,old_nb_elts__4SHH,upper__OFJH,Self__MFJH;
-  __INTEGER new_capacity__BTHH,old_nb_elts__ETHH,upper__TFJH,Self__RFJH;
-  __INTEGER __tmp__UGC;
-  void *result__BYAC,*__tmp__RYAC,*__tmp__PGC,*file__CEC;
-  void *__tmp__02HC;
-  __POINTER stream__IEIC,ptr__2NPF;
-  void *__tmp__QYAC;
-  __FILE_UNIX *Self__S33G,*Self__QIUE,*Self__ZJUE;
-  __BOOLEAN __tmp__3EC,result__KEIC;
-  __CHARACTER *Self__XSHH,*new__ZSHH,*Self__3SHH,*new__5SHH,*Self__DTHH;
-  __CHARACTER *new__FTHH;
-  if (is_short_recursive__JB) {
-    if (((void *)output_name__DI != (void *)NULL)) {
-      copy__VDS(string_tmp__VH,output_name__DI);
-      Self__4IFH=((__STRING *)string_tmp__VH);
-      if ((((__CHARACTER *)Self__4IFH->storage__3CS)[(__INTEGER)(Self__4IFH->count__SGC -  1)] != '/')) {
-        __tmp__3EC=TRUE__;
-      } else {
-        Self__U1BD=((__STRING *)string_tmp__VH);
-        __tmp__3EC=(((__CHARACTER *)Self__U1BD->storage__3CS)[(__INTEGER)(Self__U1BD->count__SGC -  1)] != '\\');
-      };
-      if (__tmp__3EC) {
-        Self__WSHH=((__STRING *)string_tmp__VH);
-        new_capacity__VSHH= 0;
-        if ((Self__WSHH->capacity__UCS <= Self__WSHH->count__SGC)) {
-          if ((Self__WSHH->capacity__UCS ==  0)) {
-            Self__WSHH->capacity__UCS= 32;
-            Self__WSHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__VSHH=(__INTEGER)(Self__WSHH->capacity__UCS <<  1);
-            Self__XSHH=((__CHARACTER *)Self__WSHH->storage__3CS);
-            old_nb_elts__YSHH=Self__WSHH->capacity__UCS;
-            new__ZSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XSHH),((__UINTEGER_32 )old_nb_elts__YSHH),((__UINTEGER_32 )new_capacity__VSHH)));
-            upper__JFJH=(__INTEGER)(new_capacity__VSHH -  1);
-            Self__HFJH=old_nb_elts__YSHH;
-            while ((Self__HFJH <= upper__JFJH)) {
-              new__ZSHH[Self__HFJH]='\0';
-              Self__HFJH=(__INTEGER)(Self__HFJH +  1);
-            };
-            Self__WSHH->storage__3CS=new__ZSHH;
-            Self__WSHH->capacity__UCS=new_capacity__VSHH;
-          };
-        };
-        ((__CHARACTER *)Self__WSHH->storage__3CS)[Self__WSHH->count__SGC]='/';
-        Self__WSHH->count__SGC=(__INTEGER)(Self__WSHH->count__SGC +  1);
-      };
-    } else {
-      ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    };
-    append__3OS(string_tmp__VH,n__5DC);
-  } else {
-    copy__VDS(string_tmp__VH,output_name__DI);
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  result__BYAC=NULL;
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    __tmp__02HC=FILE_SYSTEM__->parent_directory__GHD;
-  } else {
-    __tmp__02HC=parent_directory__GGD();
-  };
-  copy__VDS(string_tmp__LGD,((__DIRECTORY_UNIX *)__tmp__02HC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  Self__2SHH=((__STRING *)string_tmp__LGD);
-  new_capacity__1SHH= 0;
-  if ((Self__2SHH->capacity__UCS <= Self__2SHH->count__SGC)) {
-    if ((Self__2SHH->capacity__UCS ==  0)) {
-      Self__2SHH->capacity__UCS= 32;
-      Self__2SHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__1SHH=(__INTEGER)(Self__2SHH->capacity__UCS <<  1);
-      Self__3SHH=((__CHARACTER *)Self__2SHH->storage__3CS);
-      old_nb_elts__4SHH=Self__2SHH->capacity__UCS;
-      new__5SHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3SHH),((__UINTEGER_32 )old_nb_elts__4SHH),((__UINTEGER_32 )new_capacity__1SHH)));
-      upper__OFJH=(__INTEGER)(new_capacity__1SHH -  1);
-      Self__MFJH=old_nb_elts__4SHH;
-      while ((Self__MFJH <= upper__OFJH)) {
-        new__5SHH[Self__MFJH]='\0';
-        Self__MFJH=(__INTEGER)(Self__MFJH +  1);
-      };
-      Self__2SHH->storage__3CS=new__5SHH;
-      Self__2SHH->capacity__UCS=new_capacity__1SHH;
-    };
-  };
-  ((__CHARACTER *)Self__2SHH->storage__3CS)[Self__2SHH->count__SGC]='/';
-  Self__2SHH->count__SGC=(__INTEGER)(Self__2SHH->count__SGC +  1);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  append__3OS(string_tmp__LGD,string_tmp__VH);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  reduce_path__J3HC(string_tmp__LGD);
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  result__KEIC=FALSE__;
-  Self__TYS=((__STRING *)string_tmp__LGD);
-  if ((Self__TYS->capacity__UCS > Self__TYS->count__SGC)) {
-    ((__CHARACTER *)Self__TYS->storage__3CS)[Self__TYS->count__SGC]='\0';
-  } else {
-    new_capacity__BTHH= 0;
-    if ((Self__TYS->capacity__UCS <= Self__TYS->count__SGC)) {
-      if ((Self__TYS->capacity__UCS ==  0)) {
-        Self__TYS->capacity__UCS= 32;
-        Self__TYS->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__BTHH=(__INTEGER)(Self__TYS->capacity__UCS <<  1);
-        Self__DTHH=((__CHARACTER *)Self__TYS->storage__3CS);
-        old_nb_elts__ETHH=Self__TYS->capacity__UCS;
-        new__FTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DTHH),((__UINTEGER_32 )old_nb_elts__ETHH),((__UINTEGER_32 )new_capacity__BTHH)));
-        upper__TFJH=(__INTEGER)(new_capacity__BTHH -  1);
-        Self__RFJH=old_nb_elts__ETHH;
-        while ((Self__RFJH <= upper__TFJH)) {
-          new__FTHH[Self__RFJH]='\0';
-          Self__RFJH=(__INTEGER)(Self__RFJH +  1);
-        };
-        Self__TYS->storage__3CS=new__FTHH;
-        Self__TYS->capacity__UCS=new_capacity__BTHH;
-      };
-    };
-    ((__CHARACTER *)Self__TYS->storage__3CS)[Self__TYS->count__SGC]='\0';
-    Self__TYS->count__SGC=(__INTEGER)(Self__TYS->count__SGC +  1);
-    Self__TYS->count__SGC=(__INTEGER)(Self__TYS->count__SGC -  1);
-  };
-  stream__IEIC=((__POINTER )(fopen((char*)(Self__TYS->storage__3CS),"w+b")));
-  if ((stream__IEIC != (void *)NULL)) {
-    result__KEIC=(((__INTEGER )(fclose((FILE*)(stream__IEIC)))) ==  0);
-  };
-  if (result__KEIC) {
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    __tmp__QYAC=get_entry__DZAC(string_tmp__LGD);
-    if (__tmp__QYAC==NULL) {
-      __tmp__RYAC=NULL;
-    } else {
-      switch (((struct ___OBJ *)__tmp__QYAC)->__id) {
-      case __DIRECTORY_UNIX__: {
-        __tmp__RYAC=NULL;
-      } break;
-      case __FILE_UNIX__: {
-        __tmp__RYAC=((void *)__tmp__QYAC);
-      } break;
-      }
-    };
-    result__BYAC=__tmp__RYAC;
-  };
-  if (((void *)result__BYAC == (void *)NULL)) {
-    put_string__33F((&__string_224));
-    put_string__33F(string_tmp__VH);
-    put_string__33F((&__string_225));
-    exit(( 1));
-  };
-  Self__S33G=((__FILE_UNIX *)result__BYAC);
-  Self__S33G->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__S33G->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
-  if ((! (Self__S33G->stream__BMRD != (void *)NULL))) {
-    put_string__33F((&__string_224));
-    put_string__33F(string_tmp__VH);
-    put_string__33F((&__string_226));
-    exit(( 1));
-  };
-  if (result__BYAC==NULL) {
-    __tmp__PGC=NULL;
-  } else {
-    __tmp__PGC=((void *)result__BYAC);
-  };
-  file__CEC=__tmp__PGC;
-  __tmp__UGC=((__STRING *)buf__AEC)->count__SGC;
-  Self__QIUE=((__FILE_UNIX *)__tmp__PGC);
-  ptr__2NPF=((__POINTER )((__UINTEGER_8 *)((__STRING *)buf__AEC)->storage__3CS));
-  ptr__2NPF=(void *)((unsigned long)ptr__2NPF - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 0)));
-  fwrite((void *)((((__UINTEGER_8 *)ptr__2NPF))),(size_t)(1), (size_t)((__tmp__UGC)),(FILE*)((Self__QIUE->stream__BMRD)));
-  Self__ZJUE=((__FILE_UNIX *)__tmp__PGC);
-  fclose((FILE*)((Self__ZJUE->stream__BMRD)));
-  Self__ZJUE->stream__BMRD=NULL;
-}
-
-static void resize__1VZ(__STRING *Self__2VZ,__INTEGER new_count__3VZ)
-// ({STRING},{INTEGER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER old_nb_elts__GIEH,upper__YFJH,Self__WFJH,lower__0FJH;
-  __INTEGER upper__3FJH,Self__1FJH;
-  __CHARACTER *Self__FIEH,*new__IIEH,*Self__2FJH;
-  if ((! (new_count__3VZ <= Self__2VZ->count__SGC))) {
-    if ((Self__2VZ->capacity__UCS < new_count__3VZ)) {
-      if ((Self__2VZ->capacity__UCS ==  0)) {
-        Self__2VZ->storage__3CS=create__YIEB(new_count__3VZ);
-      } else {
-        Self__FIEH=((__CHARACTER *)Self__2VZ->storage__3CS);
-        old_nb_elts__GIEH=Self__2VZ->capacity__UCS;
-        new__IIEH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FIEH),((__UINTEGER_32 )old_nb_elts__GIEH),((__UINTEGER_32 )new_count__3VZ)));
-        upper__YFJH=(__INTEGER)(new_count__3VZ -  1);
-        Self__WFJH=old_nb_elts__GIEH;
-        while ((Self__WFJH <= upper__YFJH)) {
-          new__IIEH[Self__WFJH]='\0';
-          Self__WFJH=(__INTEGER)(Self__WFJH +  1);
-        };
-        Self__2VZ->storage__3CS=new__IIEH;
-      };
-      Self__2VZ->capacity__UCS=new_count__3VZ;
-    } else {
-      Self__2FJH=((__CHARACTER *)Self__2VZ->storage__3CS);
-      lower__0FJH=Self__2VZ->count__SGC;
-      upper__3FJH=(__INTEGER)(new_count__3VZ -  1);
-      Self__1FJH=lower__0FJH;
-      while ((Self__1FJH <= upper__3FJH)) {
-        Self__2FJH[Self__1FJH]='\0';
-        Self__1FJH=(__INTEGER)(Self__1FJH +  1);
-      };
-    };
-  };
-  Self__2VZ->count__SGC=new_count__3VZ;
-}
-
-static void move__to__by__LVCC(__CHARACTER *Self__MVCC,__INTEGER lower__NVCC,__INTEGER upper__OVCC,__INTEGER offset__PVCC)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER Self__0NHD,Self__JOHD;
-  if ((offset__PVCC !=  0)) {
-    if ((offset__PVCC <  0)) {
-      Self__0NHD=lower__NVCC;
-      while ((Self__0NHD <= upper__OVCC)) {
-        Self__MVCC[(__INTEGER)(Self__0NHD + offset__PVCC)]=Self__MVCC[Self__0NHD];
-        Self__0NHD=(__INTEGER)(Self__0NHD +  1);
-      };
-    } else {
-      Self__JOHD=upper__OVCC;
-      while ((Self__JOHD >= lower__NVCC)) {
-        Self__MVCC[(__INTEGER)(Self__JOHD + offset__PVCC)]=Self__MVCC[Self__JOHD];
-        Self__JOHD=(__INTEGER)(Self__JOHD -  1);
-      };
-    };
-  };
-}
-
-static __BOOLEAN __infix_equal_equal__V2DB(__STRING_CONSTANT *Self__W2DB,void *other__X2DB)
-// ({STRING_CONSTANT},{NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
-{
-  __INTEGER __tmp__A3DB,__tmp__B3DB;
-  __BOOLEAN result__Z2DB;
-  __CHARACTER *__tmp__S3DB,*__tmp__T3DB;
-  result__Z2DB=FALSE__;
-  __tmp__A3DB=Self__W2DB->count__DD;
-  if (((struct ___OBJ *)other__X2DB)->__id==__STRING_CONSTANT__) {
-    __tmp__B3DB=((__STRING_CONSTANT *)other__X2DB)->count__DD;
-  } else {
-    __tmp__B3DB=((__STRING *)other__X2DB)->count__SGC;
-  };
-  if ((__tmp__A3DB == __tmp__B3DB)) {
-    if ((Self__W2DB->count__DD ==  0)) {
-      result__Z2DB=TRUE__;
-    } else {
-      __tmp__S3DB=Self__W2DB->storage__RRO;
-      if (((struct ___OBJ *)other__X2DB)->__id==__STRING_CONSTANT__) {
-        __tmp__T3DB=((__STRING_CONSTANT *)other__X2DB)->storage__RRO;
-      } else {
-        __tmp__T3DB=((__STRING *)other__X2DB)->storage__3CS;
-      };
-      result__Z2DB=fast_memcmp__until__FYYB(__tmp__S3DB,__tmp__T3DB,Self__W2DB->count__DD);
-    };
-  };
-  return(result__Z2DB);
-}
-
-static void* at__JK4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__KK4,void *k__LK4)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__VK4;
-  node__VK4=((void **)Self__KK4->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__LK4) % Self__KK4->capacity__WDT)];
-  while ((! __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VK4)->key__HET,k__LK4))) {
-    node__VK4=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VK4)->next__SET;
-  };
-  return(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VK4)->item__KW3);
-}
-
-static __BOOLEAN has_suffix__QJS(__STRING_CONSTANT *Self__RJS)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER i1__VJS,i2__WJS,__tmp__KJFH,__tmp__LJFH;
-  __BOOLEAN result__UJS;
-  __CHARACTER *__tmp__MJFH,*__tmp__NJFH;
-  result__UJS=FALSE__;
-  i1__VJS= 0;
-  i2__WJS= 0;
-  if ((((__STRING_CONSTANT *)(&__string_159))->count__DD <= Self__RJS->count__DD)) {
-    i1__VJS=(__INTEGER)((__INTEGER)(Self__RJS->count__DD - ((__STRING_CONSTANT *)(&__string_159))->count__DD) +  1);
-    i2__WJS= 1;
-    __tmp__KJFH=Self__RJS->count__DD;
-    __tmp__LJFH=((__STRING_CONSTANT *)(&__string_159))->count__DD;
-    __tmp__MJFH=Self__RJS->storage__RRO;
-    __tmp__NJFH=((__STRING_CONSTANT *)(&__string_159))->storage__RRO;
-    while ((! (((i1__VJS > __tmp__KJFH) || (i2__WJS > __tmp__LJFH)) || (((__CHARACTER *)__tmp__MJFH)[(__INTEGER)(i1__VJS -  1)] != ((__CHARACTER *)__tmp__NJFH)[(__INTEGER)(i2__WJS -  1)])))) {
-      i1__VJS=(__INTEGER)(i1__VJS +  1);
-      i2__WJS=(__INTEGER)(i2__WJS +  1);
-    };
-    result__UJS=(i1__VJS > Self__RJS->count__DD);
-  };
-  return(result__UJS);
-}
-
-static void replace_all__with__CRS(__STRING *Self__DRS,__CHARACTER old_char__ERS,__CHARACTER new_char__FRS)
-// ({STRING},{CHARACTER},{CHARACTER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__LRS,Self__BSIC;
-  __CHARACTER *__tmp__IRS,*Self__BLBC;
-  __tmp__IRS=Self__DRS->storage__3CS;
-  __tmp__LRS=(__INTEGER)(Self__DRS->count__SGC -  1);
-  Self__BLBC=((__CHARACTER *)__tmp__IRS);
-  Self__BSIC=__tmp__LRS;
-  while ((Self__BSIC >=  0)) {
-    if ((old_char__ERS == Self__BLBC[Self__BSIC])) {
-      Self__BLBC[Self__BSIC]=new_char__FRS;
-    };
-    Self__BSIC=(__INTEGER)(Self__BSIC -  1);
-  };
-}
-
-static __INTEGER last_index__NTC(void *n__PTC,__CHARACTER c__QTC)
-// ({NULLxSTRING},{CHARACTER}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__STC;
-  __CHARACTER *__tmp__OJFH;
-  result__STC=((__STRING *)n__PTC)->count__SGC;
-  __tmp__OJFH=((__STRING *)n__PTC)->storage__3CS;
-  while ((! ((result__STC <  1) || (((__CHARACTER *)__tmp__OJFH)[(__INTEGER)(result__STC -  1)] == c__QTC)))) {
-    result__STC=(__INTEGER)(result__STC -  1);
-  };
-  return(result__STC);
-}
-
-static void remove_between__to__MIT(__STRING *Self__NIT,__INTEGER start__OIT,__INTEGER end__PIT)
-// ({STRING},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER len__QIT,__tmp__NJT,__tmp__OJT,Self__XUEB;
-  __CHARACTER *__tmp__E2GH,*__tmp__F2GH;
-  len__QIT=(__INTEGER)((__INTEGER)(end__PIT - start__OIT) +  1);
-  if ((len__QIT >  0)) {
-    __tmp__NJT=(__INTEGER)(end__PIT +  1);
-    __tmp__OJT=Self__NIT->count__SGC;
-    Self__XUEB=__tmp__NJT;
-    __tmp__E2GH=Self__NIT->storage__3CS;
-    __tmp__F2GH=Self__NIT->storage__3CS;
-    while ((Self__XUEB <= __tmp__OJT)) {
-      ((__CHARACTER *)__tmp__F2GH)[(__INTEGER)((__INTEGER)(Self__XUEB - len__QIT) -  1)]=((__CHARACTER *)__tmp__E2GH)[(__INTEGER)(Self__XUEB -  1)];
-      Self__XUEB=(__INTEGER)(Self__XUEB +  1);
-    };
-    Self__NIT->count__SGC=(__INTEGER)(Self__NIT->count__SGC - len__QIT);
-  };
-}
-
-static void to_upper__PTS(__STRING *Self__QTS)
-// ({STRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER Self__MPX;
-  __CHARACTER *__tmp__4ZGH,*__tmp__5ZGH;
-  __CHARACTER Self__3ZGH,result__2ZGH;
-  Self__MPX=Self__QTS->count__SGC;
-  __tmp__4ZGH=Self__QTS->storage__3CS;
-  __tmp__5ZGH=Self__QTS->storage__3CS;
-  while ((Self__MPX >=  1)) {
-    Self__3ZGH=((__CHARACTER *)__tmp__4ZGH)[(__INTEGER)(Self__MPX -  1)];
-    result__2ZGH='\0';
-    if (((((__INTEGER_8 )Self__3ZGH) <  97) || (((__INTEGER_8 )Self__3ZGH) >  122))) {
-      result__2ZGH=Self__3ZGH;
-    } else {
-      result__2ZGH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__3ZGH) -  32))));
-    };
-    ((__CHARACTER *)__tmp__5ZGH)[(__INTEGER)(Self__MPX -  1)]=result__2ZGH;
-    Self__MPX=(__INTEGER)(Self__MPX -  1);
-  };
-}
-
-static void go_on__SBC(void *obj__UBC)
-// ({NULLxPROTOTYPE}) VoidNo recursive, No inlinable.
-{
-  __POINTER ptr__NHG,ptr_table__AGJH,next__5FJH,result__BGJH;
-  __POINTER ptr_table__FGJH,next__EGJH,result__GGJH,ptr__ZGJH;
-  __POINTER ptr_table__BHJH,next__AHJH,result__CHJH,ptr_table__GHJH;
-  __POINTER next__FHJH,result__HHJH,ptr__JKID,ptr_table__LHJH;
-  __POINTER next__KHJH,result__MHJH,ptr_table__QHJH,next__PHJH;
-  __POINTER result__RHJH,ptr__YHJH,ptr_table__EIJH,next__DIJH;
-  __POINTER result__FIJH,ptr_table__JIJH,next__IIJH,result__KIJH;
-  __POINTER ptr__5IJH,ptr_table__LJJH,next__KJJH,result__MJJH;
-  __POINTER ptr_table__QJJH,next__PJJH,result__RJJH,ptr__VJJH;
-  __POINTER ptr_table__BKJH,next__AKJH,result__CKJH,ptr_table__GKJH;
-  __POINTER next__FKJH,result__HKJH,ptr__LKJH,ptr_table__UKJH;
-  __POINTER next__TKJH,result__VKJH,ptr_table__ZKJH,next__YKJH;
-  __POINTER result__0KJH,ptr__4KJH,ptr_table__HLJH,next__GLJH;
-  __POINTER result__ILJH,ptr_table__MLJH,next__LLJH,result__NLJH;
-  __INTEGER typ_id__SHG,new_capacity__WFY,old_derive__LYC,pos_sec__KYC;
-  __INTEGER new_capacity__HTHH,old_nb_elts__KTHH,upper__MGJH,Self__KGJH;
-  __INTEGER new_capacity__NTHH,old_nb_elts__QTHH,upper__RGJH,Self__PGJH;
-  __INTEGER new_capacity__TTHH,old_nb_elts__WTHH,upper__WGJH,Self__UGJH;
-  __INTEGER typ_id__0GJH,h__A0FC,idx__B0FC,idx__5HID,new_capacity__AIID;
-  __INTEGER i__BIID,typ_id__OKID,old_pos__LUOB,old_derive__MUOB;
-  __INTEGER typ_id__ZHJH,new_capacity__YLHC,other_upper__XLHC;
-  __INTEGER Self__IBXD,new_capacity__DUHC,__tmp__HVHC,__tmp__LMTD;
-  __INTEGER Self__3GYE,__tmp__2DHC,typ_id__AJJH,typ_id__WJJH;
-  __INTEGER typ_id__MKJH,typ_id__5KJH,__tmp__1CEH,__tmp__2CEH;
-  __INTEGER __tmp__3CEH,__tmp__CI3B,Self__OZPC;
-  __UINTEGER_32 sz__PHG,a__RJFH,new_size__SJFH,t__WJFH,a__VJFH;
-  __UINTEGER_32 new_size__IGJH,lab_type__HGJH,sz__1GJH,a__2GJH;
-  __UINTEGER_32 new_size__3GJH,t__4GJH,a__5GJH,new_size__JHJH;
-  __UINTEGER_32 lab_type__IHJH,sz__LKID,a__IKFH,new_size__JKFH,t__NKFH;
-  __UINTEGER_32 a__MKFH,new_size__THJH,lab_type__SHJH,sz__0HJH,a__1HJH;
-  __UINTEGER_32 new_size__2HJH,t__3HJH,a__4HJH,new_size__MIJH;
-  __UINTEGER_32 lab_type__LIJH,sz__BJJH,a__CJJH,new_size__DJJH,t__EJJH;
-  __UINTEGER_32 a__FJJH,new_size__TJJH,lab_type__SJJH,sz__XJJH,a__YJJH;
-  __UINTEGER_32 new_size__ZJJH,t__0JJH,a__1JJH,new_size__JKJH;
-  __UINTEGER_32 lab_type__IKJH,sz__NKJH,a__OKJH,new_size__PKJH,t__QKJH;
-  __UINTEGER_32 a__RKJH,new_size__2KJH,lab_type__1KJH,sz__ALJH,a__BLJH;
-  __UINTEGER_32 new_size__CLJH,t__DLJH,a__ELJH,new_size__PLJH;
-  __UINTEGER_32 lab_type__OLJH;
-  __POSITION pos__KGWG,pos__MGWG,pos__OGWG,pos__ZGWG,pos__1GWG;
-  __POSITION pos__4GWG,pos__AHWG,p__AIJH,__tmp__OEHC,__tmp__1EHC;
-  __POSITION pos__PLWG,pos__RLWG,pos__TLWG,pos__VLWG,pos__C4ID;
-  __POSITION pos__3LWG,__tmp__AGBD,__tmp__IGBD,__tmp__2GBD,__tmp__FHBD;
-  __POSITION pos__HMWG,__tmp__A4OB,__tmp__C4OB,pos__CNWG,pos__ENWG;
-  __STRING *Self__ITHH,*Self__OTHH,*Self__UTHH;
-  void *n__XPOB,*__tmp__RYOB,*n__TFBD,*__tmp__XZOB,*__tmp__H0OB;
-  void *__tmp__V3OB,*__tmp__0DZB;
-  __SECTION_ *Self__1B4G,*Self__2B4G,*result__YGJH,*Self__RHWG;
-  __SECTION_ *Self__TF4G,*Self__UF4G;
-  void *__tmp__S3C,*s__NUOB,*result__U5YB,*__tmp__2XOB,*__tmp__LH3B;
-  void *s__YDZB,*__tmp__IEZB;
-  void *__tmp__U3C,*result__LQEC,*result__TTOB,*sec__UFBD;
-  void *t__HUOB;
-  void *arg__T5YB,*__tmp__1DHC,*__tmp__NEHC,*__tmp__0EHC;
-  __ITM_ARG *result__XHJH,*Self__5HJH,*result__4IJH,*Self__GJJH;
-  __ITM_SLOT_OPERATOR *Self__SDHC,*Self__C4FC,*Self__3FHC;
-  void *tm__E4FC,*__tmp__N4FC;
-  void *expr__4G3B;
-  void *__tmp__MH3B;
-  __ITM_SLOT *result__UJJH,*Self__2JJH;
-  __ITM_PROTOTYPE *result__KKJH;
-  __ITM_READ_ARG1 *result__3KJH;
-  __PROTOTYPE *Self__XDZB;
-  __HASHED_SEToSTRING_CONSTANTo *result__MHG,*Self__ZHT,*Self__3H3B;
-  void *t__TYC,*k__AQEC,*k__ZZFC,*lt__IUOB;
-  __BOOLEAN result__Y2LH,result__02LH,result__XDE,result__FDEB;
-  __BOOLEAN __tmp__SDEB,result__QC5,result__XJFH,result__PW5;
-  __BOOLEAN __tmp__KFEB,result__ESAB,__tmp__LFEB,__tmp__OFEB,__tmp__F4C;
-  __BOOLEAN __tmp__03C,result__GUOB,result__UHJH,result__NIJH;
-  __BOOLEAN __tmp__EBZB,result__QIJH,__tmp__RUHC,__tmp__AEHC;
-  __BOOLEAN result__VIJH,__tmp__YVOB,result__YIJH,result__1IJH;
-  __BOOLEAN result__QLJH,__tmp__L2OB,__tmp__M2OB;
-  __CHARACTER result__KA4G,result__PA4G,result__UA4G,result__ZA4G;
-  __CHARACTER result__4A4G,result__HB4G,result__MB4G,result__RB4G;
-  __CHARACTER result__WB4G,affect__KUOB,style__JUOB,result__VHJH;
-  __CHARACTER result__OIJH,result__RIJH,result__WIJH,result__ZIJH;
-  __CHARACTER result__2IJH,result__RLJH,result__4F4G,result__HG4G;
-  __CHARACTER result__MG4G,result__RG4G,result__IH4G;
-  __CHARACTER *Self__JTHH,*new__LTHH,*Self__PTHH,*new__RTHH,*Self__VTHH;
-  __CHARACTER *new__XTHH,*__tmp__Q0GH,*__tmp__R0GH,*__tmp__S0GH;
-  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__5PEC;
-  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__XZFC;
-  void *node__KQEC,*node__C0FC,*node1__DIID,*node2__EIID,*__tmp__Q1FC;
-  void **old_buckets__CIID;
-  __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__IKID;
-  __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__KHTD;
-  void *result__KS1B,*result__MS4B,*larg__VFBD;
-  __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__HEZC,*Self__3EZC;
-  __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__BUHC;
-  __FAST_ARRAYoITM_ARGUMENTo *Self__VLHC,*Self__K0GH,*Self__N0GH;
-  void **__tmp__LMHC,**__tmp__NMHC,**Self__JKSD;
-  void **__tmp__GVHC,**new__XLTD;
-  void *__tmp__T3OB,*__tmp__ZDZB;
-  void **__tmp__5H3B,**Self__3GHC;
-  object__ZBC=obj__UBC;
-  source__5BC=((__PROTOTYPE *)obj__UBC)->source__3BC;
-  position__CCC= 1;
-  pos_cur__FCC= 1;
-  pos_line__GCC= 1;
-  pos_col__HCC= 0;
-  if (is_shorter__LZ) {
-    is_active_short__OCC=TRUE__;
-    short_derive__PCC= 0;
-    copy__VDS(output_code__SI,source__5BC);
-    result__MHG=NULL;
-    ptr__NHG=((__POINTER )(NULL));
-    typ_id__SHG= 0;
-    sz__PHG=((__UINTEGER_32 )sizeof(__HASHED_SEToSTRING_CONSTANTo));
-    if ((sz__PHG ==  0)) {
-      result__MHG=HASHED_SEToSTRING_CONSTANTo__;
-    } else {
-      typ_id__SHG=__HASHED_SEToSTRING_CONSTANTo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PHG);
-      if ((typ_id__SHG == (__INTEGER)(-  1))) {
-        a__RJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__SJFH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHG + a__RJFH) & (__UINTEGER_32)(~ a__RJFH));
-        ptr_table__AGJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__5FJH=((__POINTER )(NULL));
-        result__BGJH=((__POINTER *)ptr_table__AGJH)[ 0];
-        if ((result__BGJH == (void *)NULL)) {
-          result__BGJH=new_lab__RTJ(new_size__SJFH);
-          next__5FJH=(void *)((unsigned long)result__BGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJFH)));
-          ((__POINTER *)next__5FJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AGJH)[ 0]=next__5FJH;
-        } else {
-          next__5FJH=((__POINTER *)result__BGJH)[ 0];
-          if ((next__5FJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BGJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__SJFH <<  1)) <=  4096)) {
-              next__5FJH=(void *)((unsigned long)result__BGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJFH)));
-            } else {
-              next__5FJH=new_lab__RTJ(new_size__SJFH);
-            };
-            ((__POINTER *)next__5FJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AGJH)[ 0]=next__5FJH;
-          } else {
-            ((__POINTER *)result__BGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5FJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__BGJH=next__5FJH;
-          };
-        };
-        ptr__NHG=result__BGJH;
-      } else {
-        t__WJFH=((__UINTEGER_32 )typ_id__SHG);
-        a__VJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__IGJH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHG + a__VJFH) & (__UINTEGER_32)(~ a__VJFH));
-        ptr_table__FGJH=((__POINTER )(&(table_type[(t__WJFH)])));
-        lab_type__HGJH=(__UINTEGER_32)(t__WJFH |  1);
-        next__EGJH=((__POINTER )(NULL));
-        result__GGJH=((__POINTER *)ptr_table__FGJH)[ 0];
-        if ((result__GGJH == (void *)NULL)) {
-          result__GGJH=new_lab__RTJ(lab_type__HGJH);
-          next__EGJH=(void *)((unsigned long)result__GGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGJH)));
-          ((__POINTER *)next__EGJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FGJH)[ 0]=next__EGJH;
-        } else {
-          next__EGJH=((__POINTER *)result__GGJH)[ 0];
-          if ((next__EGJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GGJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IGJH <<  1)) <=  4096)) {
-              next__EGJH=(void *)((unsigned long)result__GGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGJH)));
-            } else {
-              next__EGJH=new_lab__RTJ(lab_type__HGJH);
-            };
-            ((__POINTER *)next__EGJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FGJH)[ 0]=next__EGJH;
-          } else {
-            ((__POINTER *)result__GGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EGJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__GGJH=next__EGJH;
-          };
-        };
-        ptr__NHG=result__GGJH;
-      };
-      result__MHG=((__HASHED_SEToSTRING_CONSTANTo *)ptr__NHG);
-      *(result__MHG) = *(HASHED_SEToSTRING_CONSTANTo__);
-    };
-    Self__ZHT=((__HASHED_SEToSTRING_CONSTANTo *)result__MHG);
-    new_capacity__WFY=prime_number_ceiling__021( 53);
-    Self__ZHT->buckets__DEV=create__KZ3(new_capacity__WFY);
-    Self__ZHT->capacity__HIT=new_capacity__WFY;
-    Self__ZHT->count__1FY= 0;
-    short_local__XCC=result__MHG;
-    short__token__to__GDD((&__string_117), 1, 1);
-  };
-  t__TYC=NULL;
-  old_derive__LYC=short_derive__PCC;
-  read_space__XTD();
-  if (is_shorter__LZ) {
-    remove_between__to__MIT(output_code__SI,(__INTEGER)( 1 + old_derive__LYC),(__INTEGER)((__INTEGER)(position__CCC -  1) + short_derive__PCC));
-    short_derive__PCC=(__INTEGER)(short_derive__PCC - (__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) - (__INTEGER)( 1 + old_derive__LYC)));
-  };
-  pos_sec__KYC=position__CCC;
-  old_derive__LYC=short_derive__PCC;
-  last_comment_extern__XZC=NULL;
-  result__Y2LH=read_word__ISF((&__string_4));
-  if (is_shorter__LZ) {
-    if (result__Y2LH) {
-      short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-    };
-  };
-  if ((! result__Y2LH)) {
-    pos__KGWG=current_position__B0F();
-    put_error__text__1PG( 0,(&__string_227));
-    put_position__FRG(pos__KGWG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  result__02LH=read_word__ISF((&__string_22));
-  if (is_shorter__LZ) {
-    if (result__02LH) {
-      if (((void *)(&__string_22) == (void *)(&__string_4))) {
-        short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      } else {
-        short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      };
-    };
-  };
-  if ((! result__02LH)) {
-    pos__MGWG=current_position__B0F();
-    put_error__text__1PG( 0,(&__string_228));
-    put_position__FRG(pos__MGWG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  if ((! read_slot_header__KFE(TRUE__))) {
-    pos__OGWG=current_position__B0F();
-    put_error__text__1PG( 0,(&__string_229));
-    put_position__FRG(pos__OGWG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  while (read_slot_header__KFE(FALSE__)) {
-  };
-  if (is_shorter2__VI) {
-    ((__PROTOTYPE *)object__ZBC)->comment_header__Q4QC=last_comment_extern__XZC;
-  };
-  while_do__FBF:
-  {
-    result__XDE=read_word__ISF((&__string_4));
-    if (is_shorter__LZ) {
-      if (result__XDE) {
-        short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      };
-    };
-    if (result__XDE) {
-      last_comment_extern__XZC=NULL;
-      result__FDEB=FALSE__;
-      if ((! read_space__XTD())) {
-        __tmp__SDEB=TRUE__;
-      } else {
-        result__KA4G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__KA4G=((__CHARACTER )(( 0)));
-        } else {
-          result__KA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        result__QC5=FALSE__;
-        if ((((__INTEGER_8 )result__KA4G) >= ((__INTEGER_8 )'A'))) {
-          result__QC5=(((__INTEGER_8 )result__KA4G) <= ((__INTEGER_8 )'Z'));
-        };
-        __tmp__SDEB=(! result__QC5);
-      };
-      if (__tmp__SDEB) {
-        result__FDEB=FALSE__;
-      } else {
-        ((__STRING *)string_tmp__VH)->count__SGC= 0;
-        result__PA4G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__PA4G=((__CHARACTER )(( 0)));
-        } else {
-          result__PA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        Self__ITHH=((__STRING *)string_tmp__VH);
-        new_capacity__HTHH= 0;
-        if ((Self__ITHH->capacity__UCS <= Self__ITHH->count__SGC)) {
-          if ((Self__ITHH->capacity__UCS ==  0)) {
-            Self__ITHH->capacity__UCS= 32;
-            Self__ITHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__HTHH=(__INTEGER)(Self__ITHH->capacity__UCS <<  1);
-            Self__JTHH=((__CHARACTER *)Self__ITHH->storage__3CS);
-            old_nb_elts__KTHH=Self__ITHH->capacity__UCS;
-            new__LTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JTHH),((__UINTEGER_32 )old_nb_elts__KTHH),((__UINTEGER_32 )new_capacity__HTHH)));
-            upper__MGJH=(__INTEGER)(new_capacity__HTHH -  1);
-            Self__KGJH=old_nb_elts__KTHH;
-            while ((Self__KGJH <= upper__MGJH)) {
-              new__LTHH[Self__KGJH]='\0';
-              Self__KGJH=(__INTEGER)(Self__KGJH +  1);
-            };
-            Self__ITHH->storage__3CS=new__LTHH;
-            Self__ITHH->capacity__UCS=new_capacity__HTHH;
-          };
-        };
-        ((__CHARACTER *)Self__ITHH->storage__3CS)[Self__ITHH->count__SGC]=result__PA4G;
-        Self__ITHH->count__SGC=(__INTEGER)(Self__ITHH->count__SGC +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__UA4G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__UA4G=((__CHARACTER )(( 0)));
-        } else {
-          result__UA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        result__XJFH=FALSE__;
-        if ((((__INTEGER_8 )result__UA4G) >= ((__INTEGER_8 )'a'))) {
-          result__XJFH=(((__INTEGER_8 )result__UA4G) <= ((__INTEGER_8 )'z'));
-        };
-        if (result__XJFH) {
-          result__ZA4G='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__ZA4G=((__CHARACTER )(( 0)));
-          } else {
-            result__ZA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__OTHH=((__STRING *)string_tmp__VH);
-          new_capacity__NTHH= 0;
-          if ((Self__OTHH->capacity__UCS <= Self__OTHH->count__SGC)) {
-            if ((Self__OTHH->capacity__UCS ==  0)) {
-              Self__OTHH->capacity__UCS= 32;
-              Self__OTHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__NTHH=(__INTEGER)(Self__OTHH->capacity__UCS <<  1);
-              Self__PTHH=((__CHARACTER *)Self__OTHH->storage__3CS);
-              old_nb_elts__QTHH=Self__OTHH->capacity__UCS;
-              new__RTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PTHH),((__UINTEGER_32 )old_nb_elts__QTHH),((__UINTEGER_32 )new_capacity__NTHH)));
-              upper__RGJH=(__INTEGER)(new_capacity__NTHH -  1);
-              Self__PGJH=old_nb_elts__QTHH;
-              while ((Self__PGJH <= upper__RGJH)) {
-                new__RTHH[Self__PGJH]='\0';
-                Self__PGJH=(__INTEGER)(Self__PGJH +  1);
-              };
-              Self__OTHH->storage__3CS=new__RTHH;
-              Self__OTHH->capacity__UCS=new_capacity__NTHH;
-            };
-          };
-          ((__CHARACTER *)Self__OTHH->storage__3CS)[Self__OTHH->count__SGC]=result__ZA4G;
-          Self__OTHH->count__SGC=(__INTEGER)(Self__OTHH->count__SGC +  1);
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          while_do__O1GF:
-          {
-            result__4A4G='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__4A4G=((__CHARACTER )(( 0)));
-            } else {
-              result__4A4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__4A4G != ((__CHARACTER )(( 0))))) {
-              result__HB4G='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__HB4G=((__CHARACTER )(( 0)));
-              } else {
-                result__HB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              result__PW5=FALSE__;
-              if ((((__INTEGER_8 )result__HB4G) >= ((__INTEGER_8 )'a'))) {
-                result__PW5=(((__INTEGER_8 )result__HB4G) <= ((__INTEGER_8 )'z'));
-              };
-              if (result__PW5) {
-                __tmp__KFEB=TRUE__;
-              } else {
-                result__MB4G='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__MB4G=((__CHARACTER )(( 0)));
-                } else {
-                  result__MB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                result__ESAB=FALSE__;
-                if ((((__INTEGER_8 )result__MB4G) >= ((__INTEGER_8 )'0'))) {
-                  result__ESAB=(((__INTEGER_8 )result__MB4G) <= ((__INTEGER_8 )'9'));
-                };
-                __tmp__KFEB=result__ESAB;
-              };
-              if (__tmp__KFEB) {
-                __tmp__LFEB=TRUE__;
-              } else {
-                result__RB4G='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__RB4G=((__CHARACTER )(( 0)));
-                } else {
-                  result__RB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                __tmp__LFEB=(result__RB4G == '_');
-              };
-              __tmp__OFEB=__tmp__LFEB;
-            } else {
-              __tmp__OFEB=FALSE__;
-            };
-            if (__tmp__OFEB) {
-              result__WB4G='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__WB4G=((__CHARACTER )(( 0)));
-              } else {
-                result__WB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              Self__UTHH=((__STRING *)string_tmp__VH);
-              new_capacity__TTHH= 0;
-              if ((Self__UTHH->capacity__UCS <= Self__UTHH->count__SGC)) {
-                if ((Self__UTHH->capacity__UCS ==  0)) {
-                  Self__UTHH->capacity__UCS= 32;
-                  Self__UTHH->storage__3CS=create__YIEB( 32);
-                } else {
-                  new_capacity__TTHH=(__INTEGER)(Self__UTHH->capacity__UCS <<  1);
-                  Self__VTHH=((__CHARACTER *)Self__UTHH->storage__3CS);
-                  old_nb_elts__WTHH=Self__UTHH->capacity__UCS;
-                  new__XTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VTHH),((__UINTEGER_32 )old_nb_elts__WTHH),((__UINTEGER_32 )new_capacity__TTHH)));
-                  upper__WGJH=(__INTEGER)(new_capacity__TTHH -  1);
-                  Self__UGJH=old_nb_elts__WTHH;
-                  while ((Self__UGJH <= upper__WGJH)) {
-                    new__XTHH[Self__UGJH]='\0';
-                    Self__UGJH=(__INTEGER)(Self__UGJH +  1);
-                  };
-                  Self__UTHH->storage__3CS=new__XTHH;
-                  Self__UTHH->capacity__UCS=new_capacity__TTHH;
-                };
-              };
-              ((__CHARACTER *)Self__UTHH->storage__3CS)[Self__UTHH->count__SGC]=result__WB4G;
-              Self__UTHH->count__SGC=(__INTEGER)(Self__UTHH->count__SGC +  1);
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              goto while_do__O1GF;
-            };
-          };
-          last_string__D2C=get__YWB(string_tmp__VH);
-          result__FDEB=TRUE__;
-          short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        } else {
-          position__CCC=(__INTEGER)(position__CCC -  1);
-          result__FDEB=FALSE__;
-        };
-      };
-      if (result__FDEB) {
-        n__XPOB=last_string__D2C;
-        if ((! (((((((((void *)n__XPOB == (void *)(&__string_23)) || ((void *)n__XPOB == (void *)(&__string_24))) || ((void *)n__XPOB == (void *)(&__string_25))) || ((void *)n__XPOB == (void *)(&__string_26))) || ((void *)n__XPOB == (void *)(&__string_27))) || ((void *)n__XPOB == (void *)(&__string_28))) || ((void *)n__XPOB == (void *)(&__string_29))) || ((void *)n__XPOB == (void *)(&__string_30))))) {
-          pos__ZGWG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_230));
-          put_position__FRG(pos__ZGWG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        last_section__S2C=get_name__TROB(last_string__D2C);
-        if (((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_28))) {
-          __tmp__F4C=TRUE__;
-        } else {
-          Self__1B4G=((__SECTION_ *)last_section__S2C);
-          if (((((void *)Self__1B4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__1B4G->name__MYDC == (void *)(&__string_24))) && ((void *)((__PROTOTYPE *)object__ZBC)->last_slot__J3C != (void *)NULL))) {
-            __tmp__S3C=((__PROTOTYPE *)object__ZBC)->last_slot__J3C;
-            if (((struct ___OBJ *)__tmp__S3C)->__id==__ITM_SLOT__) {
-              __tmp__U3C=((__ITM_SLOT *)__tmp__S3C)->id_section__T3C;
-            } else {
-              __tmp__U3C=((__ITM_SLOT_OPERATOR *)__tmp__S3C)->parent_itm_slot__0S5B.id_section__T3C;
-            };
-            Self__2B4G=((__SECTION_ *)__tmp__U3C);
-            __tmp__03C=(! (((void *)Self__2B4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__2B4G->name__MYDC == (void *)(&__string_24))));
-          } else {
-            __tmp__03C=FALSE__;
-          };
-          if (__tmp__03C) {
-            pos__1GWG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_231));
-            put_position__FRG(pos__1GWG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          __tmp__F4C=__tmp__03C;
-        };
-        if ((! __tmp__F4C)) {
-          if ((((((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_23)) && ((void *)((__PROTOTYPE *)object__ZBC)->type_style__S4C == (void *)(&__string_9))) && ((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI != (void *)(&__string_42))) && ((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI != (void *)(&__string_43)))) {
-            pos__4GWG=current_position__B0F();
-            put_error__text__1PG( 2,(&__string_232));
-            put_position__FRG(pos__4GWG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-        };
-      } else {
-        t__TYC=read_type_list__ENO(PARSER__,TRUE__);
-        if (((void *)t__TYC == (void *)NULL)) {
-          pos__AHWG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_230));
-          put_position__FRG(pos__AHWG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        Self__5PEC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__XTOB);
-        k__AQEC=t__TYC;
-        result__LQEC=NULL;
-        node__KQEC=((void **)Self__5PEC->buckets__SQEC)[(__INTEGER)(hash_code__S30(t__TYC) % Self__5PEC->capacity__NQEC)];
-        while ((! (((void *)node__KQEC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__KQEC)->key__4QEC == (void *)k__AQEC)))) {
-          node__KQEC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__KQEC)->next__JREC;
-        };
-        if (((void *)node__KQEC != (void *)NULL)) {
-          result__LQEC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__KQEC)->item__RREC;
-        };
-        result__TTOB=result__LQEC;
-        if (((void *)result__LQEC == (void *)NULL)) {
-          result__YGJH=NULL;
-          ptr__ZGJH=((__POINTER )(NULL));
-          typ_id__0GJH= 0;
-          sz__1GJH=((__UINTEGER_32 )sizeof(__SECTION_));
-          if ((sz__1GJH ==  0)) {
-            result__YGJH=SECTION___;
-          } else {
-            typ_id__0GJH=__SECTION___;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1GJH);
-            if ((typ_id__0GJH == (__INTEGER)(-  1))) {
-              a__2GJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3GJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1GJH + a__2GJH) & (__UINTEGER_32)(~ a__2GJH));
-              ptr_table__BHJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3GJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__AHJH=((__POINTER )(NULL));
-              result__CHJH=((__POINTER *)ptr_table__BHJH)[ 0];
-              if ((result__CHJH == (void *)NULL)) {
-                result__CHJH=new_lab__RTJ(new_size__3GJH);
-                next__AHJH=(void *)((unsigned long)result__CHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GJH)));
-                ((__POINTER *)next__AHJH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__BHJH)[ 0]=next__AHJH;
-              } else {
-                next__AHJH=((__POINTER *)result__CHJH)[ 0];
-                if ((next__AHJH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CHJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3GJH <<  1)) <=  4096)) {
-                    next__AHJH=(void *)((unsigned long)result__CHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GJH)));
-                  } else {
-                    next__AHJH=new_lab__RTJ(new_size__3GJH);
-                  };
-                  ((__POINTER *)next__AHJH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__BHJH)[ 0]=next__AHJH;
-                } else {
-                  ((__POINTER *)result__CHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__CHJH=next__AHJH;
-                };
-              };
-              ptr__ZGJH=result__CHJH;
-            } else {
-              t__4GJH=((__UINTEGER_32 )typ_id__0GJH);
-              a__5GJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__JHJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1GJH + a__5GJH) & (__UINTEGER_32)(~ a__5GJH));
-              ptr_table__GHJH=((__POINTER )(&(table_type[(t__4GJH)])));
-              lab_type__IHJH=(__UINTEGER_32)(t__4GJH |  1);
-              next__FHJH=((__POINTER )(NULL));
-              result__HHJH=((__POINTER *)ptr_table__GHJH)[ 0];
-              if ((result__HHJH == (void *)NULL)) {
-                result__HHJH=new_lab__RTJ(lab_type__IHJH);
-                next__FHJH=(void *)((unsigned long)result__HHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JHJH)));
-                ((__POINTER *)next__FHJH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GHJH)[ 0]=next__FHJH;
-              } else {
-                next__FHJH=((__POINTER *)result__HHJH)[ 0];
-                if ((next__FHJH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HHJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JHJH <<  1)) <=  4096)) {
-                    next__FHJH=(void *)((unsigned long)result__HHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JHJH)));
-                  } else {
-                    next__FHJH=new_lab__RTJ(lab_type__IHJH);
-                  };
-                  ((__POINTER *)next__FHJH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__GHJH)[ 0]=next__FHJH;
-                } else {
-                  ((__POINTER *)result__HHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__HHJH=next__FHJH;
-                };
-              };
-              ptr__ZGJH=result__HHJH;
-            };
-            result__YGJH=((__SECTION_ *)ptr__ZGJH);
-            *(result__YGJH) = *(SECTION___);
-          };
-          result__TTOB=result__YGJH;
-          Self__RHWG=((__SECTION_ *)result__YGJH);
-          Self__RHWG->name__MYDC=NULL;
-          Self__RHWG->type_list__1WFC=t__TYC;
-          Self__XZFC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__XTOB);
-          k__ZZFC=t__TYC;
-          h__A0FC=hash_code__S30(t__TYC);
-          idx__B0FC=(__INTEGER)(h__A0FC % Self__XZFC->capacity__NQEC);
-          node__C0FC=((void **)Self__XZFC->buckets__SQEC)[idx__B0FC];
-          while ((! (((void *)node__C0FC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__C0FC)->key__4QEC == (void *)k__ZZFC)))) {
-            node__C0FC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__C0FC)->next__JREC;
-          };
-          if (((void *)node__C0FC == (void *)NULL)) {
-            if ((Self__XZFC->capacity__NQEC == Self__XZFC->count__D1FC)) {
-              idx__5HID= 0;
-              node1__DIID=NULL;
-              node2__EIID=NULL;
-              old_buckets__CIID=Self__XZFC->buckets__SQEC;
-              new_capacity__AIID=prime_number_ceiling__021((__INTEGER)(Self__XZFC->capacity__NQEC +  1));
-              Self__XZFC->buckets__SQEC=create__FCYC(new_capacity__AIID);
-              i__BIID=(__INTEGER)(Self__XZFC->capacity__NQEC -  1);
-              Self__XZFC->capacity__NQEC=new_capacity__AIID;
-              while ((i__BIID >=  0)) {
-                node1__DIID=((void **)old_buckets__CIID)[i__BIID];
-                while (((void *)node1__DIID != (void *)NULL)) {
-                  node2__EIID=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DIID)->next__JREC;
-                  idx__5HID=(__INTEGER)(hash_code__S30(((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DIID)->key__4QEC) % Self__XZFC->capacity__NQEC);
-                  ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DIID)->next__JREC=((void **)Self__XZFC->buckets__SQEC)[idx__5HID];
-                  ((void **)Self__XZFC->buckets__SQEC)[idx__5HID]=node1__DIID;
-                  node1__DIID=node2__EIID;
-                };
-                i__BIID=(__INTEGER)(i__BIID -  1);
-              };
-              idx__B0FC=(__INTEGER)(h__A0FC % Self__XZFC->capacity__NQEC);
-            };
-            __tmp__Q1FC=((void **)Self__XZFC->buckets__SQEC)[idx__B0FC];
-            result__IKID=NULL;
-            ptr__JKID=((__POINTER )(NULL));
-            typ_id__OKID= 0;
-            sz__LKID=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo));
-            if ((sz__LKID ==  0)) {
-              result__IKID=HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
-            } else {
-              typ_id__OKID=__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
-              clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LKID);
-              if ((typ_id__OKID == (__INTEGER)(-  1))) {
-                a__IKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__JKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__LKID + a__IKFH) & (__UINTEGER_32)(~ a__IKFH));
-                ptr_table__LHJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__KHJH=((__POINTER )(NULL));
-                result__MHJH=((__POINTER *)ptr_table__LHJH)[ 0];
-                if ((result__MHJH == (void *)NULL)) {
-                  result__MHJH=new_lab__RTJ(new_size__JKFH);
-                  next__KHJH=(void *)((unsigned long)result__MHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKFH)));
-                  ((__POINTER *)next__KHJH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__LHJH)[ 0]=next__KHJH;
-                } else {
-                  next__KHJH=((__POINTER *)result__MHJH)[ 0];
-                  if ((next__KHJH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MHJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JKFH <<  1)) <=  4096)) {
-                      next__KHJH=(void *)((unsigned long)result__MHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKFH)));
-                    } else {
-                      next__KHJH=new_lab__RTJ(new_size__JKFH);
-                    };
-                    ((__POINTER *)next__KHJH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__LHJH)[ 0]=next__KHJH;
-                  } else {
-                    ((__POINTER *)result__MHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__MHJH=next__KHJH;
-                  };
-                };
-                ptr__JKID=result__MHJH;
-              } else {
-                t__NKFH=((__UINTEGER_32 )typ_id__OKID);
-                a__MKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__THJH=(__UINTEGER_32)((__UINTEGER_32)(sz__LKID + a__MKFH) & (__UINTEGER_32)(~ a__MKFH));
-                ptr_table__QHJH=((__POINTER )(&(table_type[(t__NKFH)])));
-                lab_type__SHJH=(__UINTEGER_32)(t__NKFH |  1);
-                next__PHJH=((__POINTER )(NULL));
-                result__RHJH=((__POINTER *)ptr_table__QHJH)[ 0];
-                if ((result__RHJH == (void *)NULL)) {
-                  result__RHJH=new_lab__RTJ(lab_type__SHJH);
-                  next__PHJH=(void *)((unsigned long)result__RHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__THJH)));
-                  ((__POINTER *)next__PHJH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__QHJH)[ 0]=next__PHJH;
-                } else {
-                  next__PHJH=((__POINTER *)result__RHJH)[ 0];
-                  if ((next__PHJH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RHJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__THJH <<  1)) <=  4096)) {
-                      next__PHJH=(void *)((unsigned long)result__RHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__THJH)));
-                    } else {
-                      next__PHJH=new_lab__RTJ(lab_type__SHJH);
-                    };
-                    ((__POINTER *)next__PHJH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__QHJH)[ 0]=next__PHJH;
-                  } else {
-                    ((__POINTER *)result__RHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__RHJH=next__PHJH;
-                  };
-                };
-                ptr__JKID=result__RHJH;
-              };
-              result__IKID=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__JKID);
-              *(result__IKID) = *(HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
-            };
-            Self__KHTD=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__IKID);
-            Self__KHTD->item__RREC=result__YGJH;
-            Self__KHTD->key__4QEC=t__TYC;
-            Self__KHTD->next__JREC=__tmp__Q1FC;
-            node__C0FC=result__IKID;
-            ((void **)Self__XZFC->buckets__SQEC)[idx__B0FC]=result__IKID;
-            Self__XZFC->count__D1FC=(__INTEGER)(Self__XZFC->count__D1FC +  1);
-          } else {
-            ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__C0FC)->item__RREC=result__YGJH;
-          };
-        };
-        last_section__S2C=result__TTOB;
-      };
-      do {
-        result__GUOB=FALSE__;
-        t__HUOB=NULL;
-        lt__IUOB=NULL;
-        affect__KUOB='\0';
-        old_pos__LUOB= 0;
-        old_derive__MUOB= 0;
-        s__NUOB=NULL;
-        style__JUOB=read_style__PUF();
-        if ((style__JUOB != ' ')) {
-          result__GUOB=TRUE__;
-          result__U5YB=NULL;
-          result__KS1B=NULL;
-          if ((((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B)->parent_arrayed_collection__PS1B.upper__0SGC <  0)) {
-            result__KS1B=create_with_capacity__LJ5B( 16);
-          } else {
-            Self__HEZC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B);
-            result__KS1B=((void **)Self__HEZC->parent_arrayed_collection__PS1B.storage__NKHC)[Self__HEZC->parent_arrayed_collection__PS1B.upper__0SGC];
-            Self__3EZC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B);
-            Self__3EZC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(Self__3EZC->parent_arrayed_collection__PS1B.upper__0SGC -  1);
-          };
-          arg__T5YB=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,TRUE__);
-          if (((void *)arg__T5YB == (void *)NULL)) {
-            result__UHJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__UHJH=FALSE__;
-            } else {
-              result__VHJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__VHJH=((__CHARACTER )(( 0)));
-              } else {
-                result__VHJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__VHJH == '\'')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__UHJH=TRUE__;
-              };
-            };
-            if (result__UHJH) {
-              result__U5YB=read_slot_operator__RS5B(result__KS1B);
-            } else {
-              p__AIJH=current_position__B0F();
-              result__XHJH=NULL;
-              ptr__YHJH=((__POINTER )(NULL));
-              typ_id__ZHJH= 0;
-              sz__0HJH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-              if ((sz__0HJH ==  0)) {
-                result__XHJH=ITM_ARG__;
-              } else {
-                typ_id__ZHJH=-1;
-                clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0HJH);
-                if ((typ_id__ZHJH == (__INTEGER)(-  1))) {
-                  a__1HJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__2HJH=(__UINTEGER_32)((__UINTEGER_32)(sz__0HJH + a__1HJH) & (__UINTEGER_32)(~ a__1HJH));
-                  ptr_table__EIJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2HJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                  next__DIJH=((__POINTER )(NULL));
-                  result__FIJH=((__POINTER *)ptr_table__EIJH)[ 0];
-                  if ((result__FIJH == (void *)NULL)) {
-                    result__FIJH=new_lab__RTJ(new_size__2HJH);
-                    next__DIJH=(void *)((unsigned long)result__FIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2HJH)));
-                    ((__POINTER *)next__DIJH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__EIJH)[ 0]=next__DIJH;
-                  } else {
-                    next__DIJH=((__POINTER *)result__FIJH)[ 0];
-                    if ((next__DIJH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FIJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2HJH <<  1)) <=  4096)) {
-                        next__DIJH=(void *)((unsigned long)result__FIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2HJH)));
-                      } else {
-                        next__DIJH=new_lab__RTJ(new_size__2HJH);
-                      };
-                      ((__POINTER *)next__DIJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__EIJH)[ 0]=next__DIJH;
-                    } else {
-                      ((__POINTER *)result__FIJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DIJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__FIJH=next__DIJH;
-                    };
-                  };
-                  ptr__YHJH=result__FIJH;
-                } else {
-                  t__3HJH=((__UINTEGER_32 )typ_id__ZHJH);
-                  a__4HJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__MIJH=(__UINTEGER_32)((__UINTEGER_32)(sz__0HJH + a__4HJH) & (__UINTEGER_32)(~ a__4HJH));
-                  ptr_table__JIJH=((__POINTER )(&(table_type[(t__3HJH)])));
-                  lab_type__LIJH=(__UINTEGER_32)(t__3HJH |  1);
-                  next__IIJH=((__POINTER )(NULL));
-                  result__KIJH=((__POINTER *)ptr_table__JIJH)[ 0];
-                  if ((result__KIJH == (void *)NULL)) {
-                    result__KIJH=new_lab__RTJ(lab_type__LIJH);
-                    next__IIJH=(void *)((unsigned long)result__KIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MIJH)));
-                    ((__POINTER *)next__IIJH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__JIJH)[ 0]=next__IIJH;
-                  } else {
-                    next__IIJH=((__POINTER *)result__KIJH)[ 0];
-                    if ((next__IIJH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KIJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__MIJH <<  1)) <=  4096)) {
-                        next__IIJH=(void *)((unsigned long)result__KIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MIJH)));
-                      } else {
-                        next__IIJH=new_lab__RTJ(lab_type__LIJH);
-                      };
-                      ((__POINTER *)next__IIJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__JIJH)[ 0]=next__IIJH;
-                    } else {
-                      ((__POINTER *)result__KIJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IIJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__KIJH=next__IIJH;
-                    };
-                  };
-                  ptr__YHJH=result__KIJH;
-                };
-                result__XHJH=((__ITM_ARG *)ptr__YHJH);
-                *(result__XHJH) = *(ITM_ARG__);
-              };
-              Self__5HJH=((__ITM_ARG *)result__XHJH);
-              Self__5HJH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=p__AIJH;
-              Self__5HJH->name__F0HC=(&__string_58);
-              Self__5HJH->type__G0HC=type_self__DVN;
-              arg__T5YB=result__XHJH;
-              add_last__E5GC(result__KS1B,result__XHJH);
-              result__U5YB=read_slot_keyword__4X5B(result__KS1B);
-            };
-          } else {
-            add_last__E5GC(result__KS1B,arg__T5YB);
-            result__NIJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__NIJH=FALSE__;
-            } else {
-              result__OIJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__OIJH=((__CHARACTER )(( 0)));
-              } else {
-                result__OIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__OIJH == '.')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__NIJH=TRUE__;
-              };
-            };
-            if (result__NIJH) {
-              result__U5YB=read_slot_keyword__4X5B(result__KS1B);
-              __tmp__EBZB=TRUE__;
-            } else {
-              __tmp__EBZB=FALSE__;
-            };
-            if ((! __tmp__EBZB)) {
-              result__QIJH=FALSE__;
-              if ((! read_space__XTD())) {
-                result__QIJH=FALSE__;
-              } else {
-                result__RIJH='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__RIJH=((__CHARACTER )(( 0)));
-                } else {
-                  result__RIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                if ((result__RIJH == '\'')) {
-                  position__CCC=(__INTEGER)(position__CCC +  1);
-                  result__QIJH=TRUE__;
-                };
-              };
-              if (result__QIJH) {
-                result__U5YB=read_slot_operator__RS5B(result__KS1B);
-              };
-            };
-          };
-          if (((void *)result__U5YB != (void *)NULL)) {
-            result__MS4B=create_with_capacity__LJ5B((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.upper__I5GC +  1));
-            Self__VLHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B);
-            new_capacity__YLHC= 0;
-            other_upper__XLHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.upper__I5GC;
-            if ((other_upper__XLHC >=  0)) {
-              new_capacity__YLHC=(__INTEGER)(other_upper__XLHC +  1);
-              if ((Self__VLHC->parent_arrayed_collection__Z5YB.capacity__K5GC < new_capacity__YLHC)) {
-                Self__VLHC->parent_arrayed_collection__Z5YB.storage__GAHC=create__PRBD(new_capacity__YLHC);
-                Self__VLHC->parent_arrayed_collection__Z5YB.capacity__K5GC=new_capacity__YLHC;
-              };
-              __tmp__LMHC=Self__VLHC->parent_arrayed_collection__Z5YB.storage__GAHC;
-              __tmp__NMHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.storage__GAHC;
-              Self__JKSD=((void **)__tmp__LMHC);
-              Self__IBXD=other_upper__XLHC;
-              while ((Self__IBXD >=  0)) {
-                Self__JKSD[Self__IBXD]=((void **)__tmp__NMHC)[Self__IBXD];
-                Self__IBXD=(__INTEGER)(Self__IBXD -  1);
-              };
-            };
-            Self__VLHC->parent_arrayed_collection__Z5YB.upper__I5GC=other_upper__XLHC;
-            ((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(-  1);
-            Self__BUHC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B);
-            new_capacity__DUHC= 0;
-            if (((__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC +  1) <= (__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC -  1))) {
-              Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC +  1);
-              __tmp__RUHC=TRUE__;
-            } else {
-              __tmp__RUHC=FALSE__;
-            };
-            if ((! __tmp__RUHC)) {
-              if ((Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC ==  0)) {
-                Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC=create__3MBD( 2);
-                Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC= 2;
-                Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC= 0;
-              } else {
-                new_capacity__DUHC=(__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC <<  1);
-                __tmp__GVHC=Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC;
-                __tmp__HVHC=Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC;
-                new__XLTD=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__GVHC)),((__UINTEGER_32 )(__INTEGER)(__tmp__HVHC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__DUHC * ((__INTEGER )(sizeof(void *)))))));
-                __tmp__LMTD=(__INTEGER)(new_capacity__DUHC -  1);
-                Self__3GYE=__tmp__HVHC;
-                while ((Self__3GYE <= __tmp__LMTD)) {
-                  new__XLTD[Self__3GYE]=NULL;
-                  Self__3GYE=(__INTEGER)(Self__3GYE +  1);
-                };
-                Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC=new__XLTD;
-                Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC=new_capacity__DUHC;
-                Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC +  1);
-              };
-            };
-            ((void **)Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC)[Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC]=result__KS1B;
-            if (((struct ___OBJ *)result__U5YB)->__id==__ITM_SLOT__) {
-              set_argument_list__5BHC(result__U5YB,result__MS4B);
-            } else {
-              Self__SDHC=((__ITM_SLOT_OPERATOR *)result__U5YB);
-              if (((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B)->parent_arrayed_collection__Z5YB.upper__I5GC +  1) >  1)) {
-                __tmp__AEHC=TRUE__;
-              } else {
-                __tmp__1DHC=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
-                if (((struct ___OBJ *)__tmp__1DHC)->__id==__ITM_ARG__) {
-                  __tmp__2DHC= 1;
-                } else {
-                  __tmp__2DHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__1DHC)->name__XDQF)->parent_arrayed_collection__MBJ.upper__2CPD +  1);
-                };
-                __tmp__AEHC=(__tmp__2DHC >  1);
-              };
-              if (__tmp__AEHC) {
-                if (((void *)((__SECTION_ *)Self__SDHC->parent_itm_slot__0S5B.id_section__T3C)->name__MYDC == (void *)(&__string_25))) {
-                  Self__K0GH=((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B);
-                  __tmp__NEHC=((void **)Self__K0GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__K0GH->parent_arrayed_collection__Z5YB.upper__I5GC];
-                  if (((struct ___OBJ *)__tmp__NEHC)->__id==__ITM_ARG__) {
-                    __tmp__OEHC=((__ITM_ARG *)__tmp__NEHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
-                  } else {
-                    __tmp__OEHC=((__ITM_ARGS *)__tmp__NEHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
-                  };
-                  put_error__text__1PG( 1,(&__string_233));
-                  put_position__FRG(__tmp__OEHC);
-                  put_string__33F(msg_err__AQG);
-                  if ((type_error__5PG !=  2)) {
-                    exit(( 1));
-                  };
-                };
-                Self__TF4G=((__SECTION_ *)Self__SDHC->parent_itm_slot__0S5B.id_section__T3C);
-                if ((((void *)Self__TF4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__TF4G->name__MYDC == (void *)(&__string_24)))) {
-                  Self__N0GH=((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B);
-                  __tmp__0EHC=((void **)Self__N0GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__N0GH->parent_arrayed_collection__Z5YB.upper__I5GC];
-                  if (((struct ___OBJ *)__tmp__0EHC)->__id==__ITM_ARG__) {
-                    __tmp__1EHC=((__ITM_ARG *)__tmp__0EHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
-                  } else {
-                    __tmp__1EHC=((__ITM_ARGS *)__tmp__0EHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
-                  };
-                  put_error__text__1PG( 1,(&__string_234));
-                  put_position__FRG(__tmp__1EHC);
-                  put_string__33F(msg_err__AQG);
-                  if ((type_error__5PG !=  2)) {
-                    exit(( 1));
-                  };
-                };
-              };
-              Self__SDHC->parent_itm_slot__0S5B.argument_list__QDHC=result__MS4B;
-            };
-          };
-          last_slot__VUOB=result__U5YB;
-          if (((void *)result__U5YB == (void *)NULL)) {
-            pos__PLWG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_235));
-            put_position__FRG(pos__PLWG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-            ((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.style__0FU=style__JUOB;
-          } else {
-            ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.style__0FU=style__JUOB;
-          };
-          if (((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14)))) {
-            affect__KUOB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
-          } else {
-            affect__KUOB=' ';
-          };
-          if ((affect__KUOB == ' ')) {
-            result__VIJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__VIJH=FALSE__;
-            } else {
-              result__WIJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__WIJH=((__CHARACTER )(( 0)));
-              } else {
-                result__WIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__WIJH == ':')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__VIJH=TRUE__;
-              };
-            };
-            __tmp__YVOB=result__VIJH;
-          } else {
-            __tmp__YVOB=FALSE__;
-          };
-          if (__tmp__YVOB) {
-            result__YIJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__YIJH=FALSE__;
-            } else {
-              result__ZIJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__ZIJH=((__CHARACTER )(( 0)));
-              } else {
-                result__ZIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__ZIJH == '(')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__YIJH=TRUE__;
-              };
-            };
-            if (result__YIJH) {
-              lt__IUOB=read_type_list__ENO(PARSER__,FALSE__);
-              if (((void *)lt__IUOB == (void *)NULL)) {
-                pos__RLWG=current_position__B0F();
-                put_error__text__1PG( 0,(&__string_236));
-                put_position__FRG(pos__RLWG);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-              result__1IJH=FALSE__;
-              if ((! read_space__XTD())) {
-                result__1IJH=FALSE__;
-              } else {
-                result__2IJH='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__2IJH=((__CHARACTER )(( 0)));
-                } else {
-                  result__2IJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                if ((result__2IJH == ')')) {
-                  position__CCC=(__INTEGER)(position__CCC +  1);
-                  result__1IJH=TRUE__;
-                };
-              };
-              if ((! result__1IJH)) {
-                pos__TLWG=current_position__B0F();
-                put_error__text__1PG( 2,(&__string_237));
-                put_position__FRG(pos__TLWG);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-              t__HUOB=get__4JP(lt__IUOB);
-            } else {
-              t__HUOB=read_type__CDM(PARSER__,FALSE__);
-              if (((void *)t__HUOB == (void *)NULL)) {
-                pos__VLWG=current_position__B0F();
-                put_error__text__1PG( 0,(&__string_236));
-                put_position__FRG(pos__VLWG);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-            };
-            if (((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14)))) {
-              affect__KUOB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
-            };
-          } else {
-            t__HUOB=type_void__WYF;
-          };
-          __tmp__2XOB=last_slot__VUOB;
-          if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-            set_result_type__W2FC(last_slot__VUOB,t__HUOB);
-          } else {
-            Self__C4FC=((__ITM_SLOT_OPERATOR *)__tmp__2XOB);
-            tm__E4FC=NULL;
-            Self__UF4G=((__SECTION_ *)Self__C4FC->parent_itm_slot__0S5B.id_section__T3C);
-            if ((((void *)Self__UF4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__UF4G->name__MYDC == (void *)(&__string_24)))) {
-              if (t__HUOB==NULL) {
-                __tmp__N4FC=NULL;
-              } else {
-                switch (((struct ___OBJ *)t__HUOB)->__id) {
-                case __ITM_TYPE_PARAMETER__: {
-                  __tmp__N4FC=((void *)t__HUOB);
-                } break;
-                case __ITM_TYPE_SIMPLE__: {
-                  __tmp__N4FC=((void *)t__HUOB);
-                } break;
-                case __ITM_TYPE_MULTI__: {
-                  __tmp__N4FC=NULL;
-                } break;
-                case __ITM_TYPE_BLOCK__: {
-                  __tmp__N4FC=((void *)t__HUOB);
-                } break;
-                case __ITM_TYPE_GENERIC__: {
-                  __tmp__N4FC=((void *)t__HUOB);
-                } break;
-                case __ITM_TYPE_STYLE__: {
-                  __tmp__N4FC=((void *)t__HUOB);
-                } break;
-                }
-              };
-              tm__E4FC=__tmp__N4FC;
-              if (((((void *)__tmp__N4FC == (void *)NULL) || ((void *)__tmp__N4FC == (void *)type_self__DVN)) || ((void *)__tmp__N4FC == (void *)type_void__WYF))) {
-                pos__C4ID=Self__C4FC->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-                put_error__text__1PG( 1,(&__string_238));
-                put_position__FRG(pos__C4ID);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-            };
-            Self__C4FC->parent_itm_slot__0S5B.result_type__A4FC=t__HUOB;
-          };
-          if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-            ((__ITM_SLOT *)last_slot__VUOB)->affect__P5FC=affect__KUOB;
-          } else {
-            ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.affect__P5FC=affect__KUOB;
-          };
-          if ((affect__KUOB != ' ')) {
-            read_space__XTD();
-            if (is_shorter2__VI) {
-              if (((void *)last_comment_slot__LCE != (void *)NULL)) {
-                __tmp__RYOB=last_comment_slot__LCE;
-                if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-                  ((__ITM_SLOT *)last_slot__VUOB)->comment__WZOB=__tmp__RYOB;
-                } else {
-                  ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment__WZOB=__tmp__RYOB;
-                };
-              };
-              if (((void *)last_comment_extern__XZC != (void *)NULL)) {
-                if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-                  ((__ITM_SLOT *)last_slot__VUOB)->comment_chapter__S0HC=last_comment_extern__XZC;
-                } else {
-                  ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment_chapter__S0HC=last_comment_extern__XZC;
-                };
-              };
-              skip_comment__ZBE=TRUE__;
-            };
-            old_pos__LUOB=position__CCC;
-            old_derive__MUOB=short_derive__PCC;
-            if (((void *)read_contract__5VF(PARSER__) != (void *)NULL)) {
-              if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-              };
-            };
-            expr__4G3B=read_expr__DBJ(PARSER__);
-            if (((void *)expr__4G3B == (void *)NULL)) {
-              pos__3LWG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_239));
-              put_position__FRG(pos__3LWG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            __tmp__LH3B=last_slot__VUOB;
-            __tmp__MH3B=object__ZBC;
-            if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-              set_value__type__DFHC(last_slot__VUOB,expr__4G3B,object__ZBC);
-            } else {
-              Self__3FHC=((__ITM_SLOT_OPERATOR *)__tmp__LH3B);
-              if ((Self__3FHC->parent_itm_slot__0S5B.affect__P5FC != '<')) {
-                copy__VDS(string_tmp__VH,(&__string_240));
-                append__3OS(string_tmp__VH,Self__3FHC->parent_itm_slot__0S5B.parent_named__15.name__LI);
-                n__TFBD=get__YWB(string_tmp__VH);
-                sec__UFBD=get_name__TROB((&__string_27));
-                larg__VFBD=create_with_capacity__LJ5B( 1);
-                switch (((struct ___OBJ *)expr__4G3B)->__id) {
-                case __ITM_LIST__: {
-                  __tmp__AGBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LDOTS__: {
-                  __tmp__AGBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_PROTOTYPE__: {
-                  __tmp__AGBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LIST_IDF__: {
-                  __tmp__AGBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_VALUE__: {
-                  __tmp__AGBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CAST__: {
-                  __tmp__AGBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ__: {
-                  __tmp__AGBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CODE__: {
-                  __tmp__AGBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_OPERATOR__: {
-                  __tmp__AGBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG1__: {
-                  __tmp__AGBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG2__: {
-                  __tmp__AGBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXPRESSION__: {
-                  __tmp__AGBD=position__5A5B(expr__4G3B);
-                } break;
-                case __ITM_OLD__: {
-                  __tmp__AGBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL_TYPE__: {
-                  __tmp__AGBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_BLOCK__: {
-                  __tmp__AGBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL__: {
-                  __tmp__AGBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARGS__: {
-                  __tmp__AGBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_REAL__: {
-                  __tmp__AGBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_NUMBER__: {
-                  __tmp__AGBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_CHARACTER__: {
-                  __tmp__AGBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_STRING__: {
-                  __tmp__AGBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_RESULT__: {
-                  __tmp__AGBD=position__PIHC(expr__4G3B);
-                } break;
-                };
-                result__4IJH=NULL;
-                ptr__5IJH=((__POINTER )(NULL));
-                typ_id__AJJH= 0;
-                sz__BJJH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-                if ((sz__BJJH ==  0)) {
-                  result__4IJH=ITM_ARG__;
-                } else {
-                  typ_id__AJJH=-1;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__BJJH);
-                  if ((typ_id__AJJH == (__INTEGER)(-  1))) {
-                    a__CJJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__DJJH=(__UINTEGER_32)((__UINTEGER_32)(sz__BJJH + a__CJJH) & (__UINTEGER_32)(~ a__CJJH));
-                    ptr_table__LJJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DJJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__KJJH=((__POINTER )(NULL));
-                    result__MJJH=((__POINTER *)ptr_table__LJJH)[ 0];
-                    if ((result__MJJH == (void *)NULL)) {
-                      result__MJJH=new_lab__RTJ(new_size__DJJH);
-                      next__KJJH=(void *)((unsigned long)result__MJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJJH)));
-                      ((__POINTER *)next__KJJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__LJJH)[ 0]=next__KJJH;
-                    } else {
-                      next__KJJH=((__POINTER *)result__MJJH)[ 0];
-                      if ((next__KJJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MJJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__DJJH <<  1)) <=  4096)) {
-                          next__KJJH=(void *)((unsigned long)result__MJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJJH)));
-                        } else {
-                          next__KJJH=new_lab__RTJ(new_size__DJJH);
-                        };
-                        ((__POINTER *)next__KJJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__LJJH)[ 0]=next__KJJH;
-                      } else {
-                        ((__POINTER *)result__MJJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KJJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__MJJH=next__KJJH;
-                      };
-                    };
-                    ptr__5IJH=result__MJJH;
-                  } else {
-                    t__EJJH=((__UINTEGER_32 )typ_id__AJJH);
-                    a__FJJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__TJJH=(__UINTEGER_32)((__UINTEGER_32)(sz__BJJH + a__FJJH) & (__UINTEGER_32)(~ a__FJJH));
-                    ptr_table__QJJH=((__POINTER )(&(table_type[(t__EJJH)])));
-                    lab_type__SJJH=(__UINTEGER_32)(t__EJJH |  1);
-                    next__PJJH=((__POINTER )(NULL));
-                    result__RJJH=((__POINTER *)ptr_table__QJJH)[ 0];
-                    if ((result__RJJH == (void *)NULL)) {
-                      result__RJJH=new_lab__RTJ(lab_type__SJJH);
-                      next__PJJH=(void *)((unsigned long)result__RJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TJJH)));
-                      ((__POINTER *)next__PJJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__QJJH)[ 0]=next__PJJH;
-                    } else {
-                      next__PJJH=((__POINTER *)result__RJJH)[ 0];
-                      if ((next__PJJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RJJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__TJJH <<  1)) <=  4096)) {
-                          next__PJJH=(void *)((unsigned long)result__RJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TJJH)));
-                        } else {
-                          next__PJJH=new_lab__RTJ(lab_type__SJJH);
-                        };
-                        ((__POINTER *)next__PJJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__QJJH)[ 0]=next__PJJH;
-                      } else {
-                        ((__POINTER *)result__RJJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PJJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__RJJH=next__PJJH;
-                      };
-                    };
-                    ptr__5IJH=result__RJJH;
-                  };
-                  result__4IJH=((__ITM_ARG *)ptr__5IJH);
-                  *(result__4IJH) = *(ITM_ARG__);
-                };
-                Self__GJJH=((__ITM_ARG *)result__4IJH);
-                Self__GJJH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=__tmp__AGBD;
-                Self__GJJH->name__F0HC=(&__string_58);
-                Self__GJJH->type__G0HC=type_self__DVN;
-                add_last__E5GC(larg__VFBD,result__4IJH);
-                switch (((struct ___OBJ *)expr__4G3B)->__id) {
-                case __ITM_LIST__: {
-                  __tmp__IGBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LDOTS__: {
-                  __tmp__IGBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_PROTOTYPE__: {
-                  __tmp__IGBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LIST_IDF__: {
-                  __tmp__IGBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_VALUE__: {
-                  __tmp__IGBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CAST__: {
-                  __tmp__IGBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ__: {
-                  __tmp__IGBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CODE__: {
-                  __tmp__IGBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_OPERATOR__: {
-                  __tmp__IGBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG1__: {
-                  __tmp__IGBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG2__: {
-                  __tmp__IGBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXPRESSION__: {
-                  __tmp__IGBD=position__5A5B(expr__4G3B);
-                } break;
-                case __ITM_OLD__: {
-                  __tmp__IGBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL_TYPE__: {
-                  __tmp__IGBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_BLOCK__: {
-                  __tmp__IGBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL__: {
-                  __tmp__IGBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARGS__: {
-                  __tmp__IGBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_REAL__: {
-                  __tmp__IGBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_NUMBER__: {
-                  __tmp__IGBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_CHARACTER__: {
-                  __tmp__IGBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_STRING__: {
-                  __tmp__IGBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_RESULT__: {
-                  __tmp__IGBD=position__PIHC(expr__4G3B);
-                } break;
-                };
-                result__UJJH=NULL;
-                ptr__VJJH=((__POINTER )(NULL));
-                typ_id__WJJH= 0;
-                sz__XJJH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
-                if ((sz__XJJH ==  0)) {
-                  result__UJJH=ITM_SLOT__;
-                } else {
-                  typ_id__WJJH=-1;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XJJH);
-                  if ((typ_id__WJJH == (__INTEGER)(-  1))) {
-                    a__YJJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__ZJJH=(__UINTEGER_32)((__UINTEGER_32)(sz__XJJH + a__YJJH) & (__UINTEGER_32)(~ a__YJJH));
-                    ptr_table__BKJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZJJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__AKJH=((__POINTER )(NULL));
-                    result__CKJH=((__POINTER *)ptr_table__BKJH)[ 0];
-                    if ((result__CKJH == (void *)NULL)) {
-                      result__CKJH=new_lab__RTJ(new_size__ZJJH);
-                      next__AKJH=(void *)((unsigned long)result__CKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZJJH)));
-                      ((__POINTER *)next__AKJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__BKJH)[ 0]=next__AKJH;
-                    } else {
-                      next__AKJH=((__POINTER *)result__CKJH)[ 0];
-                      if ((next__AKJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CKJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZJJH <<  1)) <=  4096)) {
-                          next__AKJH=(void *)((unsigned long)result__CKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZJJH)));
-                        } else {
-                          next__AKJH=new_lab__RTJ(new_size__ZJJH);
-                        };
-                        ((__POINTER *)next__AKJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__BKJH)[ 0]=next__AKJH;
-                      } else {
-                        ((__POINTER *)result__CKJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__CKJH=next__AKJH;
-                      };
-                    };
-                    ptr__VJJH=result__CKJH;
-                  } else {
-                    t__0JJH=((__UINTEGER_32 )typ_id__WJJH);
-                    a__1JJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__JKJH=(__UINTEGER_32)((__UINTEGER_32)(sz__XJJH + a__1JJH) & (__UINTEGER_32)(~ a__1JJH));
-                    ptr_table__GKJH=((__POINTER )(&(table_type[(t__0JJH)])));
-                    lab_type__IKJH=(__UINTEGER_32)(t__0JJH |  1);
-                    next__FKJH=((__POINTER )(NULL));
-                    result__HKJH=((__POINTER *)ptr_table__GKJH)[ 0];
-                    if ((result__HKJH == (void *)NULL)) {
-                      result__HKJH=new_lab__RTJ(lab_type__IKJH);
-                      next__FKJH=(void *)((unsigned long)result__HKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKJH)));
-                      ((__POINTER *)next__FKJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__GKJH)[ 0]=next__FKJH;
-                    } else {
-                      next__FKJH=((__POINTER *)result__HKJH)[ 0];
-                      if ((next__FKJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HKJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JKJH <<  1)) <=  4096)) {
-                          next__FKJH=(void *)((unsigned long)result__HKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKJH)));
-                        } else {
-                          next__FKJH=new_lab__RTJ(lab_type__IKJH);
-                        };
-                        ((__POINTER *)next__FKJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__GKJH)[ 0]=next__FKJH;
-                      } else {
-                        ((__POINTER *)result__HKJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__HKJH=next__FKJH;
-                      };
-                    };
-                    ptr__VJJH=result__HKJH;
-                  };
-                  result__UJJH=((__ITM_SLOT *)ptr__VJJH);
-                  *(result__UJJH) = *(ITM_SLOT__);
-                };
-                Self__2JJH=((__ITM_SLOT *)result__UJJH);
-                Self__2JJH->parent_named__15.name__LI=n__TFBD;
-                Self__2JJH->parent_named__15.parent_itm_object__4.position__SFJ=__tmp__IGBD;
-                Self__2JJH->id_section__T3C=sec__UFBD;
-                ((__ITM_SLOT *)result__UJJH)->affect__P5FC='<';
-                set_value__type__DFHC(result__UJJH,expr__4G3B,__tmp__MH3B);
-                set_argument_list__5BHC(result__UJJH,larg__VFBD);
-                set_result_type__W2FC(result__UJJH,Self__3FHC->parent_itm_slot__0S5B.result_type__A4FC);
-                fast_put__to__LNGC(((__PROTOTYPE *)__tmp__MH3B)->slot_list__YVS,result__UJJH,result__UJJH->parent_named__15.name__LI);
-                switch (((struct ___OBJ *)expr__4G3B)->__id) {
-                case __ITM_LIST__: {
-                  __tmp__2GBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LDOTS__: {
-                  __tmp__2GBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_PROTOTYPE__: {
-                  __tmp__2GBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LIST_IDF__: {
-                  __tmp__2GBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_VALUE__: {
-                  __tmp__2GBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CAST__: {
-                  __tmp__2GBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ__: {
-                  __tmp__2GBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CODE__: {
-                  __tmp__2GBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_OPERATOR__: {
-                  __tmp__2GBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG1__: {
-                  __tmp__2GBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG2__: {
-                  __tmp__2GBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXPRESSION__: {
-                  __tmp__2GBD=position__5A5B(expr__4G3B);
-                } break;
-                case __ITM_OLD__: {
-                  __tmp__2GBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL_TYPE__: {
-                  __tmp__2GBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_BLOCK__: {
-                  __tmp__2GBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL__: {
-                  __tmp__2GBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARGS__: {
-                  __tmp__2GBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_REAL__: {
-                  __tmp__2GBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_NUMBER__: {
-                  __tmp__2GBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_CHARACTER__: {
-                  __tmp__2GBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_STRING__: {
-                  __tmp__2GBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_RESULT__: {
-                  __tmp__2GBD=position__PIHC(expr__4G3B);
-                } break;
-                };
-                get__IVI(((__PROTOTYPE *)__tmp__MH3B)->parent_named__5.name__LI);
-                result__KKJH=NULL;
-                ptr__LKJH=((__POINTER )(NULL));
-                typ_id__MKJH= 0;
-                sz__NKJH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-                if ((sz__NKJH ==  0)) {
-                  result__KKJH=ITM_PROTOTYPE__;
-                } else {
-                  typ_id__MKJH=-1;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NKJH);
-                  if ((typ_id__MKJH == (__INTEGER)(-  1))) {
-                    a__OKJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__PKJH=(__UINTEGER_32)((__UINTEGER_32)(sz__NKJH + a__OKJH) & (__UINTEGER_32)(~ a__OKJH));
-                    ptr_table__UKJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PKJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__TKJH=((__POINTER )(NULL));
-                    result__VKJH=((__POINTER *)ptr_table__UKJH)[ 0];
-                    if ((result__VKJH == (void *)NULL)) {
-                      result__VKJH=new_lab__RTJ(new_size__PKJH);
-                      next__TKJH=(void *)((unsigned long)result__VKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKJH)));
-                      ((__POINTER *)next__TKJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__UKJH)[ 0]=next__TKJH;
-                    } else {
-                      next__TKJH=((__POINTER *)result__VKJH)[ 0];
-                      if ((next__TKJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VKJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PKJH <<  1)) <=  4096)) {
-                          next__TKJH=(void *)((unsigned long)result__VKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKJH)));
-                        } else {
-                          next__TKJH=new_lab__RTJ(new_size__PKJH);
-                        };
-                        ((__POINTER *)next__TKJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__UKJH)[ 0]=next__TKJH;
-                      } else {
-                        ((__POINTER *)result__VKJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__VKJH=next__TKJH;
-                      };
-                    };
-                    ptr__LKJH=result__VKJH;
-                  } else {
-                    t__QKJH=((__UINTEGER_32 )typ_id__MKJH);
-                    a__RKJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__2KJH=(__UINTEGER_32)((__UINTEGER_32)(sz__NKJH + a__RKJH) & (__UINTEGER_32)(~ a__RKJH));
-                    ptr_table__ZKJH=((__POINTER )(&(table_type[(t__QKJH)])));
-                    lab_type__1KJH=(__UINTEGER_32)(t__QKJH |  1);
-                    next__YKJH=((__POINTER )(NULL));
-                    result__0KJH=((__POINTER *)ptr_table__ZKJH)[ 0];
-                    if ((result__0KJH == (void *)NULL)) {
-                      result__0KJH=new_lab__RTJ(lab_type__1KJH);
-                      next__YKJH=(void *)((unsigned long)result__0KJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KJH)));
-                      ((__POINTER *)next__YKJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__ZKJH)[ 0]=next__YKJH;
-                    } else {
-                      next__YKJH=((__POINTER *)result__0KJH)[ 0];
-                      if ((next__YKJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0KJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2KJH <<  1)) <=  4096)) {
-                          next__YKJH=(void *)((unsigned long)result__0KJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KJH)));
-                        } else {
-                          next__YKJH=new_lab__RTJ(lab_type__1KJH);
-                        };
-                        ((__POINTER *)next__YKJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__ZKJH)[ 0]=next__YKJH;
-                      } else {
-                        ((__POINTER *)result__0KJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__0KJH=next__YKJH;
-                      };
-                    };
-                    ptr__LKJH=result__0KJH;
-                  };
-                  result__KKJH=((__ITM_PROTOTYPE *)ptr__LKJH);
-                  *(result__KKJH) = *(ITM_PROTOTYPE__);
-                };
-                ((__ITM_PROTOTYPE *)result__KKJH)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__2GBD;
-                switch (((struct ___OBJ *)expr__4G3B)->__id) {
-                case __ITM_LIST__: {
-                  __tmp__FHBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LDOTS__: {
-                  __tmp__FHBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_PROTOTYPE__: {
-                  __tmp__FHBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_LIST_IDF__: {
-                  __tmp__FHBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_VALUE__: {
-                  __tmp__FHBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CAST__: {
-                  __tmp__FHBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ__: {
-                  __tmp__FHBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_WRITE_CODE__: {
-                  __tmp__FHBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_OPERATOR__: {
-                  __tmp__FHBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG1__: {
-                  __tmp__FHBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARG2__: {
-                  __tmp__FHBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXPRESSION__: {
-                  __tmp__FHBD=position__5A5B(expr__4G3B);
-                } break;
-                case __ITM_OLD__: {
-                  __tmp__FHBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL_TYPE__: {
-                  __tmp__FHBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_BLOCK__: {
-                  __tmp__FHBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_EXTERNAL__: {
-                  __tmp__FHBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_READ_ARGS__: {
-                  __tmp__FHBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_REAL__: {
-                  __tmp__FHBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_NUMBER__: {
-                  __tmp__FHBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_CHARACTER__: {
-                  __tmp__FHBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_STRING__: {
-                  __tmp__FHBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-                } break;
-                case __ITM_RESULT__: {
-                  __tmp__FHBD=position__PIHC(expr__4G3B);
-                } break;
-                };
-                result__3KJH=NULL;
-                ptr__4KJH=((__POINTER )(NULL));
-                typ_id__5KJH= 0;
-                sz__ALJH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-                if ((sz__ALJH ==  0)) {
-                  result__3KJH=ITM_READ_ARG1__;
-                } else {
-                  typ_id__5KJH=-1;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ALJH);
-                  if ((typ_id__5KJH == (__INTEGER)(-  1))) {
-                    a__BLJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__CLJH=(__UINTEGER_32)((__UINTEGER_32)(sz__ALJH + a__BLJH) & (__UINTEGER_32)(~ a__BLJH));
-                    ptr_table__HLJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CLJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__GLJH=((__POINTER )(NULL));
-                    result__ILJH=((__POINTER *)ptr_table__HLJH)[ 0];
-                    if ((result__ILJH == (void *)NULL)) {
-                      result__ILJH=new_lab__RTJ(new_size__CLJH);
-                      next__GLJH=(void *)((unsigned long)result__ILJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLJH)));
-                      ((__POINTER *)next__GLJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__HLJH)[ 0]=next__GLJH;
-                    } else {
-                      next__GLJH=((__POINTER *)result__ILJH)[ 0];
-                      if ((next__GLJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ILJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CLJH <<  1)) <=  4096)) {
-                          next__GLJH=(void *)((unsigned long)result__ILJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLJH)));
-                        } else {
-                          next__GLJH=new_lab__RTJ(new_size__CLJH);
-                        };
-                        ((__POINTER *)next__GLJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__HLJH)[ 0]=next__GLJH;
-                      } else {
-                        ((__POINTER *)result__ILJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GLJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__ILJH=next__GLJH;
-                      };
-                    };
-                    ptr__4KJH=result__ILJH;
-                  } else {
-                    t__DLJH=((__UINTEGER_32 )typ_id__5KJH);
-                    a__ELJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__PLJH=(__UINTEGER_32)((__UINTEGER_32)(sz__ALJH + a__ELJH) & (__UINTEGER_32)(~ a__ELJH));
-                    ptr_table__MLJH=((__POINTER )(&(table_type[(t__DLJH)])));
-                    lab_type__OLJH=(__UINTEGER_32)(t__DLJH |  1);
-                    next__LLJH=((__POINTER )(NULL));
-                    result__NLJH=((__POINTER *)ptr_table__MLJH)[ 0];
-                    if ((result__NLJH == (void *)NULL)) {
-                      result__NLJH=new_lab__RTJ(lab_type__OLJH);
-                      next__LLJH=(void *)((unsigned long)result__NLJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLJH)));
-                      ((__POINTER *)next__LLJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__MLJH)[ 0]=next__LLJH;
-                    } else {
-                      next__LLJH=((__POINTER *)result__NLJH)[ 0];
-                      if ((next__LLJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NLJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PLJH <<  1)) <=  4096)) {
-                          next__LLJH=(void *)((unsigned long)result__NLJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLJH)));
-                        } else {
-                          next__LLJH=new_lab__RTJ(lab_type__OLJH);
-                        };
-                        ((__POINTER *)next__LLJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__MLJH)[ 0]=next__LLJH;
-                      } else {
-                        ((__POINTER *)result__NLJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LLJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__NLJH=next__LLJH;
-                      };
-                    };
-                    ptr__4KJH=result__NLJH;
-                  };
-                  result__3KJH=((__ITM_READ_ARG1 *)ptr__4KJH);
-                  *(result__3KJH) = *(ITM_READ_ARG1__);
-                };
-                ((__ITM_READ_ARG1 *)result__3KJH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__FHBD;
-              };
-            };
-            if (((void *)read_contract__5VF(PARSER__) != (void *)NULL)) {
-              if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-              };
-            };
-          };
-          result__QLJH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__QLJH=FALSE__;
-          } else {
-            result__RLJH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__RLJH=((__CHARACTER )(( 0)));
-            } else {
-              result__RLJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__RLJH == ';')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__QLJH=TRUE__;
-            };
-          };
-          if ((! result__QLJH)) {
-            pos__HMWG=current_position__B0F();
-            put_error__text__1PG( 2,(&__string_241));
-            put_position__FRG(pos__HMWG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          if (is_shorter2__VI) {
-            skip_comment__ZBE=FALSE__;
-            read_space__XTD();
-            if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-              __tmp__XZOB=((__ITM_SLOT *)last_slot__VUOB)->comment__WZOB;
-            } else {
-              __tmp__XZOB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment__WZOB;
-            };
-            if ((((void *)__tmp__XZOB == (void *)NULL) && ((void *)last_comment_slot__LCE != (void *)NULL))) {
-              __tmp__H0OB=last_comment_slot__LCE;
-              if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-                ((__ITM_SLOT *)last_slot__VUOB)->comment__WZOB=__tmp__H0OB;
-              } else {
-                ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment__WZOB=__tmp__H0OB;
-              };
-            };
-          };
-          if (is_shorter__LZ) {
-            if ((((! is_short_code__11) && (old_pos__LUOB !=  0)) && ((void *)((__SECTION_ *)last_section__S2C)->name__MYDC != (void *)(&__string_22)))) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )current_position__B0F()) >>  9) &  255) <  5)) {
-                __tmp__1CEH=((__STRING *)source__5BC)->count__SGC;
-                __tmp__2CEH=((__STRING *)source__5BC)->count__SGC;
-                __tmp__3CEH=((__STRING *)source__5BC)->count__SGC;
-                __tmp__Q0GH=((__STRING *)source__5BC)->storage__3CS;
-                __tmp__R0GH=((__STRING *)source__5BC)->storage__3CS;
-                __tmp__S0GH=((__STRING *)source__5BC)->storage__3CS;
-                while_do__EQLE:
-                {
-                  result__4F4G='\0';
-                  if ((position__CCC > __tmp__1CEH)) {
-                    result__4F4G=((__CHARACTER )(( 0)));
-                  } else {
-                    result__4F4G=((__CHARACTER *)__tmp__Q0GH)[(__INTEGER)(position__CCC -  1)];
-                  };
-                  if ((result__4F4G != ((__CHARACTER )(( 0))))) {
-                    result__HG4G='\0';
-                    if ((position__CCC > __tmp__2CEH)) {
-                      result__HG4G=((__CHARACTER )(( 0)));
-                    } else {
-                      result__HG4G=((__CHARACTER *)__tmp__R0GH)[(__INTEGER)(position__CCC -  1)];
-                    };
-                    __tmp__L2OB=(((((((result__HG4G == ' ') || (result__HG4G == '\t')) || (result__HG4G == '\n')) || (result__HG4G == '\r')) || (result__HG4G == '\0')) || (result__HG4G == '\f')) || (result__HG4G == '\v'));
-                  } else {
-                    __tmp__L2OB=FALSE__;
-                  };
-                  if (__tmp__L2OB) {
-                    result__MG4G='\0';
-                    if ((position__CCC > __tmp__3CEH)) {
-                      result__MG4G=((__CHARACTER )(( 0)));
-                    } else {
-                      result__MG4G=((__CHARACTER *)__tmp__S0GH)[(__INTEGER)(position__CCC -  1)];
-                    };
-                    __tmp__M2OB=(result__MG4G != '\n');
-                  } else {
-                    __tmp__M2OB=FALSE__;
-                  };
-                  if (__tmp__M2OB) {
-                    position__CCC=(__INTEGER)(position__CCC +  1);
-                    goto while_do__EQLE;
-                  };
-                };
-                result__RG4G='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__RG4G=((__CHARACTER )(( 0)));
-                } else {
-                  result__RG4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                if ((result__RG4G == '\n')) {
-                  position__CCC=(__INTEGER)(position__CCC +  1);
-                };
-              };
-              remove_between__to__MIT(output_code__SI,(__INTEGER)(old_pos__LUOB + old_derive__MUOB),(__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) -  1));
-              short_derive__PCC=(__INTEGER)(old_derive__MUOB - (__INTEGER)(position__CCC - old_pos__LUOB));
-            };
-          };
-          __tmp__T3OB=((__PROTOTYPE *)object__ZBC)->slot_list__YVS;
-          if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-            __tmp__V3OB=((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.name__LI;
-          } else {
-            __tmp__V3OB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          s__NUOB=fast_reference_at__05FC(__tmp__T3OB,__tmp__V3OB);
-          if (((void *)s__NUOB != (void *)NULL)) {
-            put_error__text__1PG( 1,(&__string_242));
-            if (((struct ___OBJ *)s__NUOB)->__id==__ITM_SLOT__) {
-              __tmp__A4OB=((__ITM_SLOT *)s__NUOB)->parent_named__15.parent_itm_object__4.position__SFJ;
-            } else {
-              __tmp__A4OB=((__ITM_SLOT_OPERATOR *)s__NUOB)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-            };
-            put_position__FRG(__tmp__A4OB);
-            if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-              __tmp__C4OB=((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.parent_itm_object__4.position__SFJ;
-            } else {
-              __tmp__C4OB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
-            };
-            put_position__FRG(__tmp__C4OB);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          Self__XDZB=((__PROTOTYPE *)object__ZBC);
-          s__YDZB=last_slot__VUOB;
-          __tmp__ZDZB=Self__XDZB->slot_list__YVS;
-          if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
-            __tmp__0DZB=((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.name__LI;
-          } else {
-            __tmp__0DZB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          fast_put__to__LNGC(__tmp__ZDZB,last_slot__VUOB,__tmp__0DZB);
-          if (((void *)Self__XDZB->first_slot__2DZB == (void *)NULL)) {
-            Self__XDZB->first_slot__2DZB=s__YDZB;
-          } else {
-            __tmp__IEZB=Self__XDZB->last_slot__J3C;
-            if (((struct ___OBJ *)__tmp__IEZB)->__id==__ITM_SLOT__) {
-              ((__ITM_SLOT *)__tmp__IEZB)->next__YGHC=s__YDZB;
-            } else {
-              ((__ITM_SLOT_OPERATOR *)__tmp__IEZB)->parent_itm_slot__0S5B.next__YGHC=s__YDZB;
-            };
-          };
-          Self__XDZB->last_slot__J3C=s__YDZB;
-          if (is_shorter__LZ) {
-            Self__3H3B=((__HASHED_SEToSTRING_CONSTANTo *)short_local__XCC);
-            Self__3H3B->count__1FY= 0;
-            __tmp__5H3B=Self__3H3B->buckets__DEV;
-            __tmp__CI3B=(__INTEGER)(Self__3H3B->capacity__HIT -  1);
-            Self__3GHC=((void **)__tmp__5H3B);
-            Self__OZPC=__tmp__CI3B;
-            while ((Self__OZPC >=  0)) {
-              Self__3GHC[Self__OZPC]=NULL;
-              Self__OZPC=(__INTEGER)(Self__OZPC -  1);
-            };
-          };
-        };
-      } while (result__GUOB);
-      if (is_shorter__LZ) {
-        if (((! is_short_private__J2) && ((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_26)))) {
-          remove_between__to__MIT(output_code__SI,(__INTEGER)(pos_sec__KYC + old_derive__LYC),(__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) -  1));
-          short_derive__PCC=(__INTEGER)(old_derive__LYC - (__INTEGER)(position__CCC - pos_sec__KYC));
-        };
-        pos_sec__KYC=position__CCC;
-        old_derive__LYC=short_derive__PCC;
-      };
-      goto while_do__FBF;
-    };
-  };
-  if (((void *)read_contract__5VF(PARSER__) != (void *)NULL)) {
-    pos__CNWG=current_position__B0F();
-    put_error__text__1PG( 2,(&__string_243));
-    put_position__FRG(pos__CNWG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  read_space__XTD();
-  result__IH4G='\0';
-  if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-    result__IH4G=((__CHARACTER )(( 0)));
-  } else {
-    result__IH4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-  };
-  if ((result__IH4G != ((__CHARACTER )(( 0))))) {
-    pos__ENWG=current_position__B0F();
-    put_error__text__1PG( 0,(&__string_168));
-    put_position__FRG(pos__ENWG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  short__token__to__GDD((&__string_118),((__STRING *)source__5BC)->count__SGC,((__STRING *)source__5BC)->count__SGC);
-  object__ZBC=NULL;
-}
-
-static void put__to__like__X4XD(void *tok__Z4XD,void *buf__04XD,void *key__14XD)
-// ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__M5XD,Self__LIQE;
-  void *lst__24XD;
-  lst__24XD=NULL;
-  if (((void *)key__14XD != (void *)NULL)) {
-    lst__24XD=fast_reference_at__CMNE(short_dico__QD,key__14XD);
-    if (((void *)lst__24XD != (void *)NULL)) {
-      __tmp__M5XD=((__LINKED_LISToSTRING_CONSTANTo *)lst__24XD)->parent_linked_collection__LD.upper__0ED;
-      Self__LIQE= 1;
-      while ((Self__LIQE <= __tmp__M5XD)) {
-        if (((void *)item__X3ND(lst__24XD,Self__LIQE) == (void *)NULL)) {
-          append__3OS(buf__04XD,tok__Z4XD);
-        } else {
-          append__3OS(buf__04XD,item__X3ND(lst__24XD,Self__LIQE));
-        };
-        Self__LIQE=(__INTEGER)(Self__LIQE +  1);
-      };
-    };
-  };
-}
-
-static void shorter_get_all_slot_in__ZAYD(__PROTOTYPE *Self__0AYD,void *lst__1AYD)
-// ({PROTOTYPE},{NULLxFAST_ARRAYoITM_SLOTo}) VoidRecursive, No inlinable.
-{
-  void *ps__3AYD,*__tmp__ZDYD;
-  void *p__4AYD;
-  __INTEGER i__5AYD,__tmp__3KFH,new_capacity__3IXE,__tmp__BKXE;
-  __INTEGER __tmp__Y5PF,Self__QGAG,__tmp__GLFH;
-  void *s__2AYD,*__tmp__HCYD,*__tmp__ADYD,*__tmp__ZGYD;
-  void *__tmp__QBYD,*__tmp__MDYD;
-  void *__tmp__4KFH,*__tmp__5KFH,*__tmp__ICYD,*__tmp__JCYD,*__tmp__KEYD;
-  void *__tmp__UEYD,*__tmp__2EYD,*__tmp__HLFH,*__tmp__ILFH,*__tmp__JLFH;
-  void *__tmp__KLFH,*__tmp__DGYD,*__tmp__EGYD;
-  __SECTION_ *Self__LBFC;
-  void *__tmp__XDYD;
-  __BOOLEAN __tmp__VBYD,__tmp__MCYD,__tmp__LJXE,__tmp__QDYD,__tmp__GQLF;
-  __BOOLEAN __tmp__AFYD,__tmp__BFYD,__tmp__EFYD;
-  void **__tmp__W0GH,**__tmp__AKXE,**new__E5PF;
-  __FAST_ARRAYoITM_SLOTo *Self__1IXE;
-  __CHARACTER __tmp__DEYD;
-  void **__tmp__00GH,**__tmp__10GH;
-  ps__3AYD=NULL;
-  p__4AYD=NULL;
-  i__5AYD= 0;
-  s__2AYD=Self__0AYD->first_slot__2DZB;
-  while (((void *)s__2AYD != (void *)NULL)) {
-    if (is_short_private__J2) {
-      __tmp__VBYD=TRUE__;
-    } else {
-      if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-        __tmp__QBYD=((__ITM_SLOT *)s__2AYD)->id_section__T3C;
-      } else {
-        __tmp__QBYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.id_section__T3C;
-      };
-      __tmp__VBYD=((void *)((__SECTION_ *)__tmp__QBYD)->name__MYDC != (void *)(&__string_26));
-    };
-    if (__tmp__VBYD) {
-      i__5AYD= 0;
-      __tmp__3KFH=((__FAST_ARRAYoITM_SLOTo *)lst__1AYD)->parent_arrayed_collection__XNTD.upper__UOTD;
-      __tmp__4KFH=((__ITM_SLOT *)s__2AYD)->parent_named__15.name__LI;
-      __tmp__5KFH=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-      __tmp__W0GH=((__FAST_ARRAYoITM_SLOTo *)lst__1AYD)->parent_arrayed_collection__XNTD.storage__UPWE;
-      while_do__RJSE:
-      {
-        if ((i__5AYD <= __tmp__3KFH)) {
-          __tmp__HCYD=((void **)__tmp__W0GH)[i__5AYD];
-          if (((struct ___OBJ *)__tmp__HCYD)->__id==__ITM_SLOT__) {
-            __tmp__ICYD=((__ITM_SLOT *)__tmp__HCYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__ICYD=((__ITM_SLOT_OPERATOR *)__tmp__HCYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-            __tmp__JCYD=__tmp__4KFH;
-          } else {
-            __tmp__JCYD=__tmp__5KFH;
-          };
-          __tmp__MCYD=((void *)__tmp__ICYD != (void *)__tmp__JCYD);
-        } else {
-          __tmp__MCYD=FALSE__;
-        };
-        if (__tmp__MCYD) {
-          i__5AYD=(__INTEGER)(i__5AYD +  1);
-          goto while_do__RJSE;
-        };
-      };
-      if ((i__5AYD > ((__FAST_ARRAYoITM_SLOTo *)lst__1AYD)->parent_arrayed_collection__XNTD.upper__UOTD)) {
-        Self__1IXE=((__FAST_ARRAYoITM_SLOTo *)lst__1AYD);
-        new_capacity__3IXE= 0;
-        if (((__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD +  1) <= (__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE -  1))) {
-          Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD +  1);
-          __tmp__LJXE=TRUE__;
-        } else {
-          __tmp__LJXE=FALSE__;
-        };
-        if ((! __tmp__LJXE)) {
-          if ((Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE ==  0)) {
-            Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE=create__BJFF( 2);
-            Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE= 2;
-            Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD= 0;
-          } else {
-            new_capacity__3IXE=(__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE <<  1);
-            __tmp__AKXE=Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE;
-            __tmp__BKXE=Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE;
-            new__E5PF=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__AKXE)),((__UINTEGER_32 )(__INTEGER)(__tmp__BKXE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__3IXE * ((__INTEGER )(sizeof(void *)))))));
-            __tmp__Y5PF=(__INTEGER)(new_capacity__3IXE -  1);
-            Self__QGAG=__tmp__BKXE;
-            while ((Self__QGAG <= __tmp__Y5PF)) {
-              new__E5PF[Self__QGAG]=NULL;
-              Self__QGAG=(__INTEGER)(Self__QGAG +  1);
-            };
-            Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE=new__E5PF;
-            Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE=new_capacity__3IXE;
-            Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD +  1);
-          };
-        };
-        ((void **)Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE)[Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD]=s__2AYD;
-      };
-    };
-    if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-      __tmp__ADYD=((__ITM_SLOT *)s__2AYD)->next__YGHC;
-    } else {
-      __tmp__ADYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.next__YGHC;
-    };
-    s__2AYD=__tmp__ADYD;
-  };
-  s__2AYD=Self__0AYD->first_slot__2DZB;
-  while_do__QG5D:
-  {
-    if (((void *)s__2AYD != (void *)NULL)) {
-      if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-        __tmp__MDYD=((__ITM_SLOT *)s__2AYD)->id_section__T3C;
-      } else {
-        __tmp__MDYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.id_section__T3C;
-      };
-      Self__LBFC=((__SECTION_ *)__tmp__MDYD);
-      __tmp__QDYD=(((void *)Self__LBFC->name__MYDC == (void *)(&__string_23)) || ((void *)Self__LBFC->name__MYDC == (void *)(&__string_24)));
-    } else {
-      __tmp__QDYD=FALSE__;
-    };
-    if (__tmp__QDYD) {
-      if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-        __tmp__XDYD=((__ITM_SLOT *)s__2AYD)->result_type__A4FC;
-      } else {
-        __tmp__XDYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.result_type__A4FC;
-      };
-      if (__tmp__XDYD==NULL) {
-        __tmp__ZDYD=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__XDYD)->__id) {
-        case __ITM_TYPE_PARAMETER__: {
-          __tmp__ZDYD=((void *)__tmp__XDYD);
-        } break;
-        case __ITM_TYPE_SIMPLE__: {
-          __tmp__ZDYD=((void *)__tmp__XDYD);
-        } break;
-        case __ITM_TYPE_MULTI__: {
-          __tmp__ZDYD=NULL;
-        } break;
-        case __ITM_TYPE_BLOCK__: {
-          __tmp__ZDYD=NULL;
-        } break;
-        case __ITM_TYPE_GENERIC__: {
-          __tmp__ZDYD=((void *)__tmp__XDYD);
-        } break;
-        case __ITM_TYPE_STYLE__: {
-          __tmp__ZDYD=((void *)__tmp__XDYD);
-        } break;
-        }
-      };
-      ps__3AYD=__tmp__ZDYD;
-      if (((void *)__tmp__ZDYD != (void *)NULL)) {
-        if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-          __tmp__DEYD=((__ITM_SLOT *)s__2AYD)->parent_named__15.style__0FU;
-        } else {
-          __tmp__DEYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
-        };
-        if ((__tmp__DEYD == '+')) {
-          switch (((struct ___OBJ *)__tmp__ZDYD)->__id) {
-          case __ITM_TYPE_PARAMETER__: {
-            __tmp__KEYD=NULL;
-          } break;
-          case __ITM_TYPE_SIMPLE__: {
-            __tmp__KEYD=NULL;
-          } break;
-          case __ITM_TYPE_GENERIC__: {
-            __tmp__KEYD=((__ITM_TYPE_GENERIC *)__tmp__ZDYD)->parent_itm_type_style__4SN.style__PZP;
-          } break;
-          case __ITM_TYPE_STYLE__: {
-            __tmp__KEYD=((__ITM_TYPE_STYLE *)__tmp__ZDYD)->style__PZP;
-          } break;
-          };
-          __tmp__GQLF=((void *)__tmp__KEYD == (void *)(&__string_9));
-        } else {
-          __tmp__GQLF=FALSE__;
-        };
-        if (__tmp__GQLF) {
-          __tmp__AFYD=TRUE__;
-        } else {
-          if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-            __tmp__UEYD=((__ITM_SLOT *)s__2AYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__UEYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          __tmp__AFYD=has_prefix__OTTF(__tmp__UEYD,(&__string_177));
-        };
-        if (__tmp__AFYD) {
-          __tmp__BFYD=TRUE__;
-        } else {
-          if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-            __tmp__2EYD=((__ITM_SLOT *)s__2AYD)->parent_named__15.name__LI;
-          } else {
-            __tmp__2EYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
-          };
-          __tmp__BFYD=has_prefix__OTTF(__tmp__2EYD,(&__string_178));
-        };
-        __tmp__EFYD=__tmp__BFYD;
-      } else {
-        __tmp__EFYD=FALSE__;
-      };
-      if (__tmp__EFYD) {
-        p__4AYD=NULL;
-        i__5AYD= 0;
-        __tmp__GLFH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ;
-        __tmp__HLFH=((__ITM_TYPE_PARAMETER *)__tmp__ZDYD)->parent_itm_type__VFE.name__GZP;
-        __tmp__ILFH=((__ITM_TYPE_SIMPLE *)__tmp__ZDYD)->name__GZP;
-        __tmp__JLFH=((__ITM_TYPE_GENERIC *)__tmp__ZDYD)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP;
-        __tmp__KLFH=((__ITM_TYPE_STYLE *)__tmp__ZDYD)->parent_itm_type_simple__3SN.name__GZP;
-        __tmp__00GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
-        __tmp__10GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
-        while (((i__5AYD <= __tmp__GLFH) && ((void *)p__4AYD == (void *)NULL))) {
-          __tmp__DGYD=((__PROTOTYPE *)((void **)__tmp__00GH)[i__5AYD])->parent_named__5.name__LI;
-          switch (((struct ___OBJ *)ps__3AYD)->__id) {
-          case __ITM_TYPE_PARAMETER__: {
-            __tmp__EGYD=__tmp__HLFH;
-          } break;
-          case __ITM_TYPE_SIMPLE__: {
-            __tmp__EGYD=__tmp__ILFH;
-          } break;
-          case __ITM_TYPE_GENERIC__: {
-            __tmp__EGYD=__tmp__JLFH;
-          } break;
-          case __ITM_TYPE_STYLE__: {
-            __tmp__EGYD=__tmp__KLFH;
-          } break;
-          };
-          if (((void *)__tmp__DGYD == (void *)__tmp__EGYD)) {
-            p__4AYD=((void **)__tmp__10GH)[i__5AYD];
-          };
-          i__5AYD=(__INTEGER)(i__5AYD +  1);
-        };
-        if (((void *)p__4AYD != (void *)NULL)) {
-          shorter_get_all_slot_in__ZAYD(p__4AYD,lst__1AYD);
-        };
-      };
-      if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
-        __tmp__ZGYD=((__ITM_SLOT *)s__2AYD)->next__YGHC;
-      } else {
-        __tmp__ZGYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.next__YGHC;
-      };
-      s__2AYD=__tmp__ZGYD;
-      goto while_do__QG5D;
-    };
-  };
-}
-
-static void pretty_name_in__FY4F(__ITM_SLOT *Self__GY4F,void *buffer__HY4F)
-// ({ITM_SLOT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER j__IY4F,new_capacity__ZTHH,old_nb_elts__2THH,upper__WLJH;
-  __INTEGER Self__ULJH,new_capacity__5THH,old_nb_elts__CUHH,upper__1LJH;
-  __INTEGER Self__ZLJH,new_capacity__FUHH,old_nb_elts__IUHH,upper__AMJH;
-  __INTEGER Self__4LJH;
-  __STRING *Self__0THH,*Self__AUHH,*Self__GUHH;
-  __STRING_CONSTANT *Self__XLFH;
-  __CHARACTER *Self__1THH,*new__3THH,*Self__BUHH,*new__DUHH,*Self__HUHH;
-  __CHARACTER *new__JUHH;
-  __CHARACTER ch__EUHH,ch__KUHH;
-  j__IY4F= 1;
-  while ((j__IY4F < ((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->count__DD)) {
-    if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__IY4F -  1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)((__INTEGER)(j__IY4F +  1) -  1)] == '_'))) {
-      Self__0THH=((__STRING *)buffer__HY4F);
-      new_capacity__ZTHH= 0;
-      if ((Self__0THH->capacity__UCS <= Self__0THH->count__SGC)) {
-        if ((Self__0THH->capacity__UCS ==  0)) {
-          Self__0THH->capacity__UCS= 32;
-          Self__0THH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__ZTHH=(__INTEGER)(Self__0THH->capacity__UCS <<  1);
-          Self__1THH=((__CHARACTER *)Self__0THH->storage__3CS);
-          old_nb_elts__2THH=Self__0THH->capacity__UCS;
-          new__3THH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1THH),((__UINTEGER_32 )old_nb_elts__2THH),((__UINTEGER_32 )new_capacity__ZTHH)));
-          upper__WLJH=(__INTEGER)(new_capacity__ZTHH -  1);
-          Self__ULJH=old_nb_elts__2THH;
-          while ((Self__ULJH <= upper__WLJH)) {
-            new__3THH[Self__ULJH]='\0';
-            Self__ULJH=(__INTEGER)(Self__ULJH +  1);
-          };
-          Self__0THH->storage__3CS=new__3THH;
-          Self__0THH->capacity__UCS=new_capacity__ZTHH;
-        };
-      };
-      ((__CHARACTER *)Self__0THH->storage__3CS)[Self__0THH->count__SGC]=' ';
-      Self__0THH->count__SGC=(__INTEGER)(Self__0THH->count__SGC +  1);
-      j__IY4F=(__INTEGER)(j__IY4F +  2);
-    } else {
-      Self__AUHH=((__STRING *)buffer__HY4F);
-      ch__EUHH=((__CHARACTER *)((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__IY4F -  1)];
-      new_capacity__5THH= 0;
-      if ((Self__AUHH->capacity__UCS <= Self__AUHH->count__SGC)) {
-        if ((Self__AUHH->capacity__UCS ==  0)) {
-          Self__AUHH->capacity__UCS= 32;
-          Self__AUHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__5THH=(__INTEGER)(Self__AUHH->capacity__UCS <<  1);
-          Self__BUHH=((__CHARACTER *)Self__AUHH->storage__3CS);
-          old_nb_elts__CUHH=Self__AUHH->capacity__UCS;
-          new__DUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BUHH),((__UINTEGER_32 )old_nb_elts__CUHH),((__UINTEGER_32 )new_capacity__5THH)));
-          upper__1LJH=(__INTEGER)(new_capacity__5THH -  1);
-          Self__ZLJH=old_nb_elts__CUHH;
-          while ((Self__ZLJH <= upper__1LJH)) {
-            new__DUHH[Self__ZLJH]='\0';
-            Self__ZLJH=(__INTEGER)(Self__ZLJH +  1);
-          };
-          Self__AUHH->storage__3CS=new__DUHH;
-          Self__AUHH->capacity__UCS=new_capacity__5THH;
-        };
-      };
-      ((__CHARACTER *)Self__AUHH->storage__3CS)[Self__AUHH->count__SGC]=ch__EUHH;
-      Self__AUHH->count__SGC=(__INTEGER)(Self__AUHH->count__SGC +  1);
-      j__IY4F=(__INTEGER)(j__IY4F +  1);
-    };
-  };
-  Self__XLFH=((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI);
-  Self__GUHH=((__STRING *)buffer__HY4F);
-  ch__KUHH=((__CHARACTER *)Self__XLFH->storage__RRO)[(__INTEGER)(Self__XLFH->count__DD -  1)];
-  new_capacity__FUHH= 0;
-  if ((Self__GUHH->capacity__UCS <= Self__GUHH->count__SGC)) {
-    if ((Self__GUHH->capacity__UCS ==  0)) {
-      Self__GUHH->capacity__UCS= 32;
-      Self__GUHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__FUHH=(__INTEGER)(Self__GUHH->capacity__UCS <<  1);
-      Self__HUHH=((__CHARACTER *)Self__GUHH->storage__3CS);
-      old_nb_elts__IUHH=Self__GUHH->capacity__UCS;
-      new__JUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HUHH),((__UINTEGER_32 )old_nb_elts__IUHH),((__UINTEGER_32 )new_capacity__FUHH)));
-      upper__AMJH=(__INTEGER)(new_capacity__FUHH -  1);
-      Self__4LJH=old_nb_elts__IUHH;
-      while ((Self__4LJH <= upper__AMJH)) {
-        new__JUHH[Self__4LJH]='\0';
-        Self__4LJH=(__INTEGER)(Self__4LJH +  1);
-      };
-      Self__GUHH->storage__3CS=new__JUHH;
-      Self__GUHH->capacity__UCS=new_capacity__FUHH;
-    };
-  };
-  ((__CHARACTER *)Self__GUHH->storage__3CS)[Self__GUHH->count__SGC]=ch__KUHH;
-  Self__GUHH->count__SGC=(__INTEGER)(Self__GUHH->count__SGC +  1);
-}
-
-static void pretty_name_in__0Z4F(__ITM_SLOT_OPERATOR *Self__1Z4F,void *buffer__2Z4F)
-// ({ITM_SLOT_OPERATOR},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __STRING *Self__MUHH;
-  __INTEGER new_capacity__LUHH,old_nb_elts__OUHH,upper__FMJH,Self__DMJH;
-  __BOOLEAN __tmp__H04F;
-  __CHARACTER *Self__NUHH,*new__PUHH;
-  if (has_prefix__OTTF(Self__1Z4F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_82))) {
-    append__3OS(buffer__2Z4F,(&__string_244));
-    __tmp__H04F=TRUE__;
-  } else {
-    __tmp__H04F=FALSE__;
-  };
-  if ((! __tmp__H04F)) {
-    if (has_prefix__OTTF(Self__1Z4F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_81))) {
-      append__3OS(buffer__2Z4F,(&__string_245));
-    } else {
-      append__3OS(buffer__2Z4F,(&__string_246));
-    };
-  };
-  append__3OS(buffer__2Z4F,Self__1Z4F->pretty_name__5ZHC);
-  Self__MUHH=((__STRING *)buffer__2Z4F);
-  new_capacity__LUHH= 0;
-  if ((Self__MUHH->capacity__UCS <= Self__MUHH->count__SGC)) {
-    if ((Self__MUHH->capacity__UCS ==  0)) {
-      Self__MUHH->capacity__UCS= 32;
-      Self__MUHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__LUHH=(__INTEGER)(Self__MUHH->capacity__UCS <<  1);
-      Self__NUHH=((__CHARACTER *)Self__MUHH->storage__3CS);
-      old_nb_elts__OUHH=Self__MUHH->capacity__UCS;
-      new__PUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NUHH),((__UINTEGER_32 )old_nb_elts__OUHH),((__UINTEGER_32 )new_capacity__LUHH)));
-      upper__FMJH=(__INTEGER)(new_capacity__LUHH -  1);
-      Self__DMJH=old_nb_elts__OUHH;
-      while ((Self__DMJH <= upper__FMJH)) {
-        new__PUHH[Self__DMJH]='\0';
-        Self__DMJH=(__INTEGER)(Self__DMJH +  1);
-      };
-      Self__MUHH->storage__3CS=new__PUHH;
-      Self__MUHH->capacity__UCS=new_capacity__LUHH;
-    };
-  };
-  ((__CHARACTER *)Self__MUHH->storage__3CS)[Self__MUHH->count__SGC]='\'';
-  Self__MUHH->count__SGC=(__INTEGER)(Self__MUHH->count__SGC +  1);
-}
-
-static __BOOLEAN has_prefix__OTTF(__STRING_CONSTANT *Self__PTTF,void *p__QTTF)
-// ({STRING_CONSTANT},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER i__TTTF;
-  __BOOLEAN result__STTF;
-  __CHARACTER *__tmp__AMFH,*__tmp__BMFH;
-  result__STTF=FALSE__;
-  i__TTTF= 0;
-  if ((((__STRING_CONSTANT *)p__QTTF)->count__DD <= Self__PTTF->count__DD)) {
-    i__TTTF=((__STRING_CONSTANT *)p__QTTF)->count__DD;
-    __tmp__AMFH=Self__PTTF->storage__RRO;
-    __tmp__BMFH=((__STRING_CONSTANT *)p__QTTF)->storage__RRO;
-    while ((! ((i__TTTF ==  0) || (((__CHARACTER *)__tmp__AMFH)[(__INTEGER)(i__TTTF -  1)] != ((__CHARACTER *)__tmp__BMFH)[(__INTEGER)(i__TTTF -  1)])))) {
-      i__TTTF=(__INTEGER)(i__TTTF -  1);
-    };
-    result__STTF=(i__TTTF ==  0);
-  };
-  return(result__STTF);
-}
-
-static void get_all_comment_slot__in__PL4E(__PROTOTYPE *Self__QL4E,void *n__RL4E,void *buf__SL4E)
-// ({PROTOTYPE},{NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  void *ps__UL4E,*__tmp__CN4E;
-  void *p__VL4E;
-  __INTEGER i__WL4E,__tmp__FMFH;
-  void *s__TL4E,*__tmp__XO4E;
-  void *__tmp__4L4E,*__tmp__HM4E,*__tmp__GMFH,*__tmp__HMFH,*__tmp__IMFH;
-  void *__tmp__JMFH,*__tmp__BO4E,*__tmp__CO4E;
-  void *__tmp__VM4E;
-  __SECTION_ *Self__U41G;
-  void *__tmp__AN4E;
-  __BOOLEAN __tmp__BM4E,__tmp__ZM4E;
-  void **__tmp__20GH,**__tmp__30GH;
-  ps__UL4E=NULL;
-  p__VL4E=NULL;
-  i__WL4E= 0;
-  s__TL4E=fast_reference_at__05FC(Self__QL4E->slot_list__YVS,n__RL4E);
-  if (((void *)s__TL4E != (void *)NULL)) {
-    if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
-      __tmp__4L4E=((__ITM_SLOT *)s__TL4E)->comment__WZOB;
-    } else {
-      __tmp__4L4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.comment__WZOB;
-    };
-    __tmp__BM4E=((void *)__tmp__4L4E != (void *)NULL);
-  } else {
-    __tmp__BM4E=FALSE__;
-  };
-  if (__tmp__BM4E) {
-    if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
-      __tmp__HM4E=((__ITM_SLOT *)s__TL4E)->comment__WZOB;
-    } else {
-      __tmp__HM4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.comment__WZOB;
-    };
-    append__3OS(buf__SL4E,__tmp__HM4E);
-  };
-  s__TL4E=Self__QL4E->first_slot__2DZB;
-  while_do__QQGF:
-  {
-    if (((void *)s__TL4E != (void *)NULL)) {
-      if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
-        __tmp__VM4E=((__ITM_SLOT *)s__TL4E)->id_section__T3C;
-      } else {
-        __tmp__VM4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.id_section__T3C;
-      };
-      Self__U41G=((__SECTION_ *)__tmp__VM4E);
-      __tmp__ZM4E=(((void *)Self__U41G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__U41G->name__MYDC == (void *)(&__string_24)));
-    } else {
-      __tmp__ZM4E=FALSE__;
-    };
-    if (__tmp__ZM4E) {
-      if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
-        __tmp__AN4E=((__ITM_SLOT *)s__TL4E)->result_type__A4FC;
-      } else {
-        __tmp__AN4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.result_type__A4FC;
-      };
-      if (__tmp__AN4E==NULL) {
-        __tmp__CN4E=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__AN4E)->__id) {
-        case __ITM_TYPE_PARAMETER__: {
-          __tmp__CN4E=((void *)__tmp__AN4E);
-        } break;
-        case __ITM_TYPE_SIMPLE__: {
-          __tmp__CN4E=((void *)__tmp__AN4E);
-        } break;
-        case __ITM_TYPE_MULTI__: {
-          __tmp__CN4E=NULL;
-        } break;
-        case __ITM_TYPE_BLOCK__: {
-          __tmp__CN4E=NULL;
-        } break;
-        case __ITM_TYPE_GENERIC__: {
-          __tmp__CN4E=((void *)__tmp__AN4E);
-        } break;
-        case __ITM_TYPE_STYLE__: {
-          __tmp__CN4E=((void *)__tmp__AN4E);
-        } break;
-        }
-      };
-      ps__UL4E=__tmp__CN4E;
-      if (((void *)__tmp__CN4E != (void *)NULL)) {
-        p__VL4E=NULL;
-        i__WL4E= 0;
-        __tmp__FMFH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ;
-        __tmp__GMFH=((__ITM_TYPE_PARAMETER *)__tmp__CN4E)->parent_itm_type__VFE.name__GZP;
-        __tmp__HMFH=((__ITM_TYPE_SIMPLE *)__tmp__CN4E)->name__GZP;
-        __tmp__IMFH=((__ITM_TYPE_GENERIC *)__tmp__CN4E)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP;
-        __tmp__JMFH=((__ITM_TYPE_STYLE *)__tmp__CN4E)->parent_itm_type_simple__3SN.name__GZP;
-        __tmp__20GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
-        __tmp__30GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
-        while (((i__WL4E <= __tmp__FMFH) && ((void *)p__VL4E == (void *)NULL))) {
-          __tmp__BO4E=((__PROTOTYPE *)((void **)__tmp__20GH)[i__WL4E])->parent_named__5.name__LI;
-          switch (((struct ___OBJ *)ps__UL4E)->__id) {
-          case __ITM_TYPE_PARAMETER__: {
-            __tmp__CO4E=__tmp__GMFH;
-          } break;
-          case __ITM_TYPE_SIMPLE__: {
-            __tmp__CO4E=__tmp__HMFH;
-          } break;
-          case __ITM_TYPE_GENERIC__: {
-            __tmp__CO4E=__tmp__IMFH;
-          } break;
-          case __ITM_TYPE_STYLE__: {
-            __tmp__CO4E=__tmp__JMFH;
-          } break;
-          };
-          if (((void *)__tmp__BO4E == (void *)__tmp__CO4E)) {
-            p__VL4E=((void **)__tmp__30GH)[i__WL4E];
-          };
-          i__WL4E=(__INTEGER)(i__WL4E +  1);
-        };
-        if (((void *)p__VL4E != (void *)NULL)) {
-          get_all_comment_slot__in__PL4E(p__VL4E,n__RL4E,buf__SL4E);
-        };
-      };
-      if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
-        __tmp__XO4E=((__ITM_SLOT *)s__TL4E)->next__YGHC;
-      } else {
-        __tmp__XO4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.next__YGHC;
-      };
-      s__TL4E=__tmp__XO4E;
-      goto while_do__QQGF;
-    };
-  };
-}
-
-static void shorter_comment__in__light__CP4E(void *str__EP4E,void *buf__FP4E,__BOOLEAN is_light__GP4E)
-// ({NULLxSTRING},{NULLxSTRING},{TRUExFALSE}) VoidNo recursive, No inlinable.
-{
-  __INTEGER stat__IP4E,old_stat__JP4E,i__LP4E,cur__HP4E,__tmp__5P4E;
-  __INTEGER new_capacity__RUHH,old_nb_elts__UUHH,upper__KMJH,Self__IMJH;
-  __INTEGER new_capacity__XUHH,old_nb_elts__0UHH,upper__PMJH,Self__NMJH;
-  __INTEGER new_capacity__3UHH,old_nb_elts__AVHH,upper__UMJH,Self__SMJH;
-  __INTEGER new_capacity__DVHH,old_nb_elts__GVHH,upper__ZMJH,Self__XMJH;
-  __INTEGER new_capacity__JVHH,old_nb_elts__MVHH,upper__4MJH,Self__2MJH;
-  __INTEGER new_capacity__PVHH,old_nb_elts__SVHH,upper__DNJH,Self__BNJH;
-  void *code_balise__NP4E;
-  __STRING *Self__SUHH,*Self__YUHH,*Self__4UHH,*Self__EVHH,*Self__A1GH;
-  __STRING *Self__NCSE,*Self__KVHH,*Self__QVHH;
-  void *__tmp__UV4E;
-  __CHARACTER car__KP4E,result__40GH,result__3W2F,Self__PGOB;
-  __CHARACTER result__RGOB;
-  __BOOLEAN __tmp__GR4E,__tmp__LS4E,__tmp__DT4E,__tmp__0S4E;
-  __BOOLEAN result__QCSE,__tmp__3V4E,__tmp__3X4E;
-  __CHARACTER *Self__TUHH,*new__VUHH,*Self__ZUHH,*new__1UHH,*Self__5UHH;
-  __CHARACTER *new__BVHH,*Self__FVHH,*new__HVHH,*Self__LVHH,*new__NVHH;
-  __CHARACTER *Self__RVHH,*new__TVHH;
-  stat__IP4E= 0;
-  old_stat__JP4E= 0;
-  car__KP4E='\0';
-  i__LP4E= 0;
-  cur__HP4E= 1;
-  ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
-  code_balise__NP4E=(&__string_128);
-  while ((cur__HP4E <= ((__STRING *)str__EP4E)->count__SGC)) {
-    car__KP4E=((__CHARACTER *)((__STRING *)str__EP4E)->storage__3CS)[(__INTEGER)(cur__HP4E -  1)];
-    __tmp__5P4E=stat__IP4E;
-    if ((stat__IP4E ==  0)) {
-      if ((car__KP4E == '*')) {
-        if ((((__STRING *)str_tmp__PP4E)->count__SGC >  1)) {
-          if (is_light__GP4E) {
-            append__3OS(buf__FP4E,str_tmp__PP4E);
-            cur__HP4E=(__INTEGER)(((__STRING *)str__EP4E)->count__SGC +  1);
-          } else {
-            put__to__like__X4XD((&__string_247),buf__FP4E,(&__string_148));
-            put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,code_balise__NP4E);
-          };
-        };
-        ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
-        stat__IP4E= 1;
-        __tmp__GR4E=TRUE__;
-      } else {
-        __tmp__GR4E=FALSE__;
-      };
-      if ((! __tmp__GR4E)) {
-        if ((car__KP4E == '`')) {
-          old_stat__JP4E=stat__IP4E;
-          stat__IP4E= 2;
-          ((__STRING *)str_tmp2__RR4E)->count__SGC= 0;
-        } else {
-          Self__SUHH=((__STRING *)str_tmp__PP4E);
-          new_capacity__RUHH= 0;
-          if ((Self__SUHH->capacity__UCS <= Self__SUHH->count__SGC)) {
-            if ((Self__SUHH->capacity__UCS ==  0)) {
-              Self__SUHH->capacity__UCS= 32;
-              Self__SUHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__RUHH=(__INTEGER)(Self__SUHH->capacity__UCS <<  1);
-              Self__TUHH=((__CHARACTER *)Self__SUHH->storage__3CS);
-              old_nb_elts__UUHH=Self__SUHH->capacity__UCS;
-              new__VUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TUHH),((__UINTEGER_32 )old_nb_elts__UUHH),((__UINTEGER_32 )new_capacity__RUHH)));
-              upper__KMJH=(__INTEGER)(new_capacity__RUHH -  1);
-              Self__IMJH=old_nb_elts__UUHH;
-              while ((Self__IMJH <= upper__KMJH)) {
-                new__VUHH[Self__IMJH]='\0';
-                Self__IMJH=(__INTEGER)(Self__IMJH +  1);
-              };
-              Self__SUHH->storage__3CS=new__VUHH;
-              Self__SUHH->capacity__UCS=new_capacity__RUHH;
-            };
-          };
-          ((__CHARACTER *)Self__SUHH->storage__3CS)[Self__SUHH->count__SGC]=car__KP4E;
-          Self__SUHH->count__SGC=(__INTEGER)(Self__SUHH->count__SGC +  1);
-        };
-      };
-    };
-    if ((__tmp__5P4E ==  1)) {
-      result__40GH='\0';
-      if (((((__INTEGER_8 )car__KP4E) <  65) || (((__INTEGER_8 )car__KP4E) >  90))) {
-        result__40GH=car__KP4E;
-      } else {
-        result__40GH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )car__KP4E) +  32))));
-      };
-      if (((((__INTEGER_8 )result__40GH) >= ((__INTEGER_8 )'a')) && (((__INTEGER_8 )result__40GH) <= ((__INTEGER_8 )'z')))) {
-        result__3W2F='\0';
-        if (((((__INTEGER_8 )car__KP4E) <  65) || (((__INTEGER_8 )car__KP4E) >  90))) {
-          result__3W2F=car__KP4E;
-        } else {
-          result__3W2F=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )car__KP4E) +  32))));
-        };
-        Self__YUHH=((__STRING *)str_tmp__PP4E);
-        new_capacity__XUHH= 0;
-        if ((Self__YUHH->capacity__UCS <= Self__YUHH->count__SGC)) {
-          if ((Self__YUHH->capacity__UCS ==  0)) {
-            Self__YUHH->capacity__UCS= 32;
-            Self__YUHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__XUHH=(__INTEGER)(Self__YUHH->capacity__UCS <<  1);
-            Self__ZUHH=((__CHARACTER *)Self__YUHH->storage__3CS);
-            old_nb_elts__0UHH=Self__YUHH->capacity__UCS;
-            new__1UHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZUHH),((__UINTEGER_32 )old_nb_elts__0UHH),((__UINTEGER_32 )new_capacity__XUHH)));
-            upper__PMJH=(__INTEGER)(new_capacity__XUHH -  1);
-            Self__NMJH=old_nb_elts__0UHH;
-            while ((Self__NMJH <= upper__PMJH)) {
-              new__1UHH[Self__NMJH]='\0';
-              Self__NMJH=(__INTEGER)(Self__NMJH +  1);
-            };
-            Self__YUHH->storage__3CS=new__1UHH;
-            Self__YUHH->capacity__UCS=new_capacity__XUHH;
-          };
-        };
-        ((__CHARACTER *)Self__YUHH->storage__3CS)[Self__YUHH->count__SGC]=result__3W2F;
-        Self__YUHH->count__SGC=(__INTEGER)(Self__YUHH->count__SGC +  1);
-        __tmp__LS4E=TRUE__;
-      } else {
-        __tmp__LS4E=FALSE__;
-      };
-      if (__tmp__LS4E) {
-        __tmp__DT4E=TRUE__;
-      } else {
-        __tmp__0S4E=((car__KP4E == ' ') && (((__STRING *)str_tmp__PP4E)->count__SGC !=  0));
-        if (__tmp__0S4E) {
-          Self__4UHH=((__STRING *)str_tmp__PP4E);
-          new_capacity__3UHH= 0;
-          if ((Self__4UHH->capacity__UCS <= Self__4UHH->count__SGC)) {
-            if ((Self__4UHH->capacity__UCS ==  0)) {
-              Self__4UHH->capacity__UCS= 32;
-              Self__4UHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__3UHH=(__INTEGER)(Self__4UHH->capacity__UCS <<  1);
-              Self__5UHH=((__CHARACTER *)Self__4UHH->storage__3CS);
-              old_nb_elts__AVHH=Self__4UHH->capacity__UCS;
-              new__BVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5UHH),((__UINTEGER_32 )old_nb_elts__AVHH),((__UINTEGER_32 )new_capacity__3UHH)));
-              upper__UMJH=(__INTEGER)(new_capacity__3UHH -  1);
-              Self__SMJH=old_nb_elts__AVHH;
-              while ((Self__SMJH <= upper__UMJH)) {
-                new__BVHH[Self__SMJH]='\0';
-                Self__SMJH=(__INTEGER)(Self__SMJH +  1);
-              };
-              Self__4UHH->storage__3CS=new__BVHH;
-              Self__4UHH->capacity__UCS=new_capacity__3UHH;
-            };
-          };
-          ((__CHARACTER *)Self__4UHH->storage__3CS)[Self__4UHH->count__SGC]='_';
-          Self__4UHH->count__SGC=(__INTEGER)(Self__4UHH->count__SGC +  1);
-        };
-        __tmp__DT4E=__tmp__0S4E;
-      };
-      if ((! __tmp__DT4E)) {
-        if ((car__KP4E == ':')) {
-          if ((((__STRING *)str_tmp__PP4E)->count__SGC !=  0)) {
-            code_balise__NP4E=get__YWB(str_tmp__PP4E);
-            if (((void *)fast_reference_at__CMNE(short_dico__QD,code_balise__NP4E) == (void *)NULL)) {
-              code_balise__NP4E=NULL;
-            } else {
-              replace_all__with__CRS(str_tmp__PP4E,'_',' ');
-              Self__EVHH=((__STRING *)str_tmp__PP4E);
-              new_capacity__DVHH= 0;
-              if ((Self__EVHH->capacity__UCS <= Self__EVHH->count__SGC)) {
-                if ((Self__EVHH->capacity__UCS ==  0)) {
-                  Self__EVHH->capacity__UCS= 32;
-                  Self__EVHH->storage__3CS=create__YIEB( 32);
-                } else {
-                  new_capacity__DVHH=(__INTEGER)(Self__EVHH->capacity__UCS <<  1);
-                  Self__FVHH=((__CHARACTER *)Self__EVHH->storage__3CS);
-                  old_nb_elts__GVHH=Self__EVHH->capacity__UCS;
-                  new__HVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FVHH),((__UINTEGER_32 )old_nb_elts__GVHH),((__UINTEGER_32 )new_capacity__DVHH)));
-                  upper__ZMJH=(__INTEGER)(new_capacity__DVHH -  1);
-                  Self__XMJH=old_nb_elts__GVHH;
-                  while ((Self__XMJH <= upper__ZMJH)) {
-                    new__HVHH[Self__XMJH]='\0';
-                    Self__XMJH=(__INTEGER)(Self__XMJH +  1);
-                  };
-                  Self__EVHH->storage__3CS=new__HVHH;
-                  Self__EVHH->capacity__UCS=new_capacity__DVHH;
-                };
-              };
-              ((__CHARACTER *)Self__EVHH->storage__3CS)[Self__EVHH->count__SGC]=':';
-              Self__EVHH->count__SGC=(__INTEGER)(Self__EVHH->count__SGC +  1);
-              Self__A1GH=((__STRING *)str_tmp__PP4E);
-              Self__PGOB=((__CHARACTER *)((__STRING *)str_tmp__PP4E)->storage__3CS)[ 0];
-              result__RGOB='\0';
-              if (((((__INTEGER_8 )Self__PGOB) <  97) || (((__INTEGER_8 )Self__PGOB) >  122))) {
-                result__RGOB=Self__PGOB;
-              } else {
-                result__RGOB=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__PGOB) -  32))));
-              };
-              ((__CHARACTER *)Self__A1GH->storage__3CS)[ 0]=result__RGOB;
-              put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,(&__string_148));
-            };
-          };
-          ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
-          stat__IP4E= 3;
-        };
-      };
-    };
-    if ((__tmp__5P4E ==  2)) {
-      if ((car__KP4E == '\'')) {
-        if (((void *)code_balise__NP4E != (void *)NULL)) {
-          i__LP4E= 0;
-          while_do__H23F:
-          {
-            if ((i__LP4E <= ((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD)) {
-              ((__STRING *)str_tmp3__RV4E)->count__SGC= 0;
-              __tmp__UV4E=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[i__LP4E];
-              if (((struct ___OBJ *)__tmp__UV4E)->__id==__ITM_SLOT__) {
-                pretty_name_in__FY4F(__tmp__UV4E,str_tmp3__RV4E);
-              } else {
-                pretty_name_in__0Z4F(__tmp__UV4E,str_tmp3__RV4E);
-              };
-              Self__NCSE=((__STRING *)str_tmp3__RV4E);
-              result__QCSE=FALSE__;
-              if ((Self__NCSE->count__SGC == ((__STRING *)str_tmp2__RR4E)->count__SGC)) {
-                result__QCSE=((Self__NCSE->count__SGC ==  0) || fast_memcmp__until__FYYB(Self__NCSE->storage__3CS,((__STRING *)str_tmp2__RR4E)->storage__3CS,Self__NCSE->count__SGC));
-              };
-              __tmp__3V4E=(! result__QCSE);
-            } else {
-              __tmp__3V4E=FALSE__;
-            };
-            if (__tmp__3V4E) {
-              i__LP4E=(__INTEGER)(i__LP4E +  1);
-              goto while_do__H23F;
-            };
-          };
-          if ((i__LP4E <= ((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD)) {
-            put__to__like__X4XD(str_tmp2__RR4E,str_tmp__PP4E,(&__string_137));
-          } else {
-            put__to__like__X4XD(str_tmp2__RR4E,str_tmp__PP4E,(&__string_136));
-          };
-        };
-        stat__IP4E=old_stat__JP4E;
-      } else {
-        Self__KVHH=((__STRING *)str_tmp2__RR4E);
-        new_capacity__JVHH= 0;
-        if ((Self__KVHH->capacity__UCS <= Self__KVHH->count__SGC)) {
-          if ((Self__KVHH->capacity__UCS ==  0)) {
-            Self__KVHH->capacity__UCS= 32;
-            Self__KVHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__JVHH=(__INTEGER)(Self__KVHH->capacity__UCS <<  1);
-            Self__LVHH=((__CHARACTER *)Self__KVHH->storage__3CS);
-            old_nb_elts__MVHH=Self__KVHH->capacity__UCS;
-            new__NVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LVHH),((__UINTEGER_32 )old_nb_elts__MVHH),((__UINTEGER_32 )new_capacity__JVHH)));
-            upper__4MJH=(__INTEGER)(new_capacity__JVHH -  1);
-            Self__2MJH=old_nb_elts__MVHH;
-            while ((Self__2MJH <= upper__4MJH)) {
-              new__NVHH[Self__2MJH]='\0';
-              Self__2MJH=(__INTEGER)(Self__2MJH +  1);
-            };
-            Self__KVHH->storage__3CS=new__NVHH;
-            Self__KVHH->capacity__UCS=new_capacity__JVHH;
-          };
-        };
-        ((__CHARACTER *)Self__KVHH->storage__3CS)[Self__KVHH->count__SGC]=car__KP4E;
-        Self__KVHH->count__SGC=(__INTEGER)(Self__KVHH->count__SGC +  1);
-      };
-    };
-    if ((__tmp__5P4E ==  3)) {
-      if ((car__KP4E == '*')) {
-        if ((((__STRING *)str_tmp__PP4E)->count__SGC >  1)) {
-          put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,code_balise__NP4E);
-        };
-        ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
-        stat__IP4E= 1;
-        __tmp__3X4E=TRUE__;
-      } else {
-        __tmp__3X4E=FALSE__;
-      };
-      if ((! __tmp__3X4E)) {
-        if ((car__KP4E == '`')) {
-          old_stat__JP4E=stat__IP4E;
-          stat__IP4E= 2;
-          ((__STRING *)str_tmp2__RR4E)->count__SGC= 0;
-        } else {
-          Self__QVHH=((__STRING *)str_tmp__PP4E);
-          new_capacity__PVHH= 0;
-          if ((Self__QVHH->capacity__UCS <= Self__QVHH->count__SGC)) {
-            if ((Self__QVHH->capacity__UCS ==  0)) {
-              Self__QVHH->capacity__UCS= 32;
-              Self__QVHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__PVHH=(__INTEGER)(Self__QVHH->capacity__UCS <<  1);
-              Self__RVHH=((__CHARACTER *)Self__QVHH->storage__3CS);
-              old_nb_elts__SVHH=Self__QVHH->capacity__UCS;
-              new__TVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RVHH),((__UINTEGER_32 )old_nb_elts__SVHH),((__UINTEGER_32 )new_capacity__PVHH)));
-              upper__DNJH=(__INTEGER)(new_capacity__PVHH -  1);
-              Self__BNJH=old_nb_elts__SVHH;
-              while ((Self__BNJH <= upper__DNJH)) {
-                new__TVHH[Self__BNJH]='\0';
-                Self__BNJH=(__INTEGER)(Self__BNJH +  1);
-              };
-              Self__QVHH->storage__3CS=new__TVHH;
-              Self__QVHH->capacity__UCS=new_capacity__PVHH;
-            };
-          };
-          ((__CHARACTER *)Self__QVHH->storage__3CS)[Self__QVHH->count__SGC]=car__KP4E;
-          Self__QVHH->count__SGC=(__INTEGER)(Self__QVHH->count__SGC +  1);
-        };
-      };
-    };
-    cur__HP4E=(__INTEGER)(cur__HP4E +  1);
-  };
-  if ((((__STRING *)str_tmp__PP4E)->count__SGC >  1)) {
-    if (is_light__GP4E) {
-      append__3OS(buf__FP4E,str_tmp__PP4E);
-    } else {
-      if ((stat__IP4E ==  0)) {
-        put__to__like__X4XD((&__string_247),buf__FP4E,(&__string_148));
-      };
-      put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,code_balise__NP4E);
-    };
-  };
-}
-
-static void append_in__5KH(__UINTEGER_32 Self__ALH,void *buffer__BLH)
-// ({UINTEGER_32},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __UINTEGER_32 val__CLH;
-  __INTEGER i__FLH,j__GLH,new_capacity__VVHH,old_nb_elts__YVHH;
-  __INTEGER upper__INJH,Self__GNJH,new_capacity__1VHH,old_nb_elts__4VHH;
-  __INTEGER upper__NNJH,Self__LNJH;
-  __STRING *Self__WVHH,*Self__2VHH,*Self__F1GH;
-  __CHARACTER *Self__XVHH,*new__ZVHH,*Self__3VHH,*new__5VHH;
-  __CHARACTER ch__AWHH,tmp__H1GH;
-  val__CLH= 0;
-  i__FLH= 0;
-  j__GLH= 0;
-  if ((Self__ALH ==  0)) {
-    Self__WVHH=((__STRING *)buffer__BLH);
-    new_capacity__VVHH= 0;
-    if ((Self__WVHH->capacity__UCS <= Self__WVHH->count__SGC)) {
-      if ((Self__WVHH->capacity__UCS ==  0)) {
-        Self__WVHH->capacity__UCS= 32;
-        Self__WVHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__VVHH=(__INTEGER)(Self__WVHH->capacity__UCS <<  1);
-        Self__XVHH=((__CHARACTER *)Self__WVHH->storage__3CS);
-        old_nb_elts__YVHH=Self__WVHH->capacity__UCS;
-        new__ZVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XVHH),((__UINTEGER_32 )old_nb_elts__YVHH),((__UINTEGER_32 )new_capacity__VVHH)));
-        upper__INJH=(__INTEGER)(new_capacity__VVHH -  1);
-        Self__GNJH=old_nb_elts__YVHH;
-        while ((Self__GNJH <= upper__INJH)) {
-          new__ZVHH[Self__GNJH]='\0';
-          Self__GNJH=(__INTEGER)(Self__GNJH +  1);
-        };
-        Self__WVHH->storage__3CS=new__ZVHH;
-        Self__WVHH->capacity__UCS=new_capacity__VVHH;
-      };
-    };
-    ((__CHARACTER *)Self__WVHH->storage__3CS)[Self__WVHH->count__SGC]='0';
-    Self__WVHH->count__SGC=(__INTEGER)(Self__WVHH->count__SGC +  1);
-  } else {
-    i__FLH=(__INTEGER)(((__STRING *)buffer__BLH)->count__SGC +  1);
-    val__CLH=Self__ALH;
-    while ((val__CLH !=  0)) {
-      Self__2VHH=((__STRING *)buffer__BLH);
-      ch__AWHH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__UINTEGER_32)(val__CLH %  10)) + ((__INTEGER_8 )'0')))));
-      new_capacity__1VHH= 0;
-      if ((Self__2VHH->capacity__UCS <= Self__2VHH->count__SGC)) {
-        if ((Self__2VHH->capacity__UCS ==  0)) {
-          Self__2VHH->capacity__UCS= 32;
-          Self__2VHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__1VHH=(__INTEGER)(Self__2VHH->capacity__UCS <<  1);
-          Self__3VHH=((__CHARACTER *)Self__2VHH->storage__3CS);
-          old_nb_elts__4VHH=Self__2VHH->capacity__UCS;
-          new__5VHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3VHH),((__UINTEGER_32 )old_nb_elts__4VHH),((__UINTEGER_32 )new_capacity__1VHH)));
-          upper__NNJH=(__INTEGER)(new_capacity__1VHH -  1);
-          Self__LNJH=old_nb_elts__4VHH;
-          while ((Self__LNJH <= upper__NNJH)) {
-            new__5VHH[Self__LNJH]='\0';
-            Self__LNJH=(__INTEGER)(Self__LNJH +  1);
-          };
-          Self__2VHH->storage__3CS=new__5VHH;
-          Self__2VHH->capacity__UCS=new_capacity__1VHH;
-        };
-      };
-      ((__CHARACTER *)Self__2VHH->storage__3CS)[Self__2VHH->count__SGC]=ch__AWHH;
-      Self__2VHH->count__SGC=(__INTEGER)(Self__2VHH->count__SGC +  1);
-      val__CLH=(__UINTEGER_32)(val__CLH /  10);
-    };
-    j__GLH=((__STRING *)buffer__BLH)->count__SGC;
-    while ((i__FLH < j__GLH)) {
-      Self__F1GH=((__STRING *)buffer__BLH);
-      tmp__H1GH=((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(i__FLH -  1)];
-      ((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(i__FLH -  1)]=((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(j__GLH -  1)];
-      ((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(j__GLH -  1)]=tmp__H1GH;
-      j__GLH=(__INTEGER)(j__GLH -  1);
-      i__FLH=(__INTEGER)(i__FLH +  1);
-    };
-  };
-}
-
-static void append_in__S14F(__SECTION_ *Self__T14F,void *buf__U14F)
-// ({SECTION_},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__H24F,Self__XSDG,new_capacity__DWHH,old_nb_elts__GWHH;
-  __INTEGER upper__SNJH,Self__QNJH,new_capacity__JWHH,old_nb_elts__MWHH;
-  __INTEGER upper__XNJH,Self__VNJH,new_capacity__PWHH,old_nb_elts__SWHH;
-  __INTEGER upper__2NJH,Self__0NJH,new_capacity__XWHH,old_nb_elts__0WHH;
-  __INTEGER upper__BOJH,Self__5NJH;
-  void *__tmp__O24F,*__tmp__R24F;
-  __ITM_TYPE_STYLE *Self__CWHH,*Self__WWHH;
-  __STRING *Self__EWHH,*Self__KWHH,*Self__QWHH,*Self__YWHH;
-  __CHARACTER *Self__FWHH,*new__HWHH,*Self__LWHH,*new__NWHH,*Self__RWHH;
-  __CHARACTER *new__TWHH,*Self__ZWHH,*new__1WHH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__P1GH;
-  if (((void *)Self__T14F->name__MYDC != (void *)NULL)) {
-    append__3OS(buf__U14F,Self__T14F->name__MYDC);
-  } else {
-    __tmp__H24F=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__T14F->type_list__1WFC)->parent_arrayed_collection__SYC.upper__4HV -  1);
-    Self__XSDG= 0;
-    while ((Self__XSDG <= __tmp__H24F)) {
-      __tmp__O24F=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__T14F->type_list__1WFC)->parent_arrayed_collection__SYC.storage__FMV)[Self__XSDG];
-      switch (((struct ___OBJ *)__tmp__O24F)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        append__3OS(buf__U14F,((__ITM_TYPE_PARAMETER *)__tmp__O24F)->parent_itm_type__VFE.name__GZP);
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        append__3OS(buf__U14F,((__ITM_TYPE_SIMPLE *)__tmp__O24F)->name__GZP);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        append_in__PJPD(__tmp__O24F,buf__U14F);
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        append_in__TKPD(__tmp__O24F,buf__U14F);
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        Self__CWHH=((__ITM_TYPE_STYLE *)__tmp__O24F);
-        if (((void *)Self__CWHH->style__PZP != (void *)NULL)) {
-          append__3OS(buf__U14F,Self__CWHH->style__PZP);
-          Self__EWHH=((__STRING *)buf__U14F);
-          new_capacity__DWHH= 0;
-          if ((Self__EWHH->capacity__UCS <= Self__EWHH->count__SGC)) {
-            if ((Self__EWHH->capacity__UCS ==  0)) {
-              Self__EWHH->capacity__UCS= 32;
-              Self__EWHH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__DWHH=(__INTEGER)(Self__EWHH->capacity__UCS <<  1);
-              Self__FWHH=((__CHARACTER *)Self__EWHH->storage__3CS);
-              old_nb_elts__GWHH=Self__EWHH->capacity__UCS;
-              new__HWHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FWHH),((__UINTEGER_32 )old_nb_elts__GWHH),((__UINTEGER_32 )new_capacity__DWHH)));
-              upper__SNJH=(__INTEGER)(new_capacity__DWHH -  1);
-              Self__QNJH=old_nb_elts__GWHH;
-              while ((Self__QNJH <= upper__SNJH)) {
-                new__HWHH[Self__QNJH]='\0';
-                Self__QNJH=(__INTEGER)(Self__QNJH +  1);
-              };
-              Self__EWHH->storage__3CS=new__HWHH;
-              Self__EWHH->capacity__UCS=new_capacity__DWHH;
-            };
-          };
-          ((__CHARACTER *)Self__EWHH->storage__3CS)[Self__EWHH->count__SGC]=' ';
-          Self__EWHH->count__SGC=(__INTEGER)(Self__EWHH->count__SGC +  1);
-        };
-        append__3OS(buf__U14F,Self__CWHH->parent_itm_type_simple__3SN.name__GZP);
-      } break;
-      };
-      Self__KWHH=((__STRING *)buf__U14F);
-      new_capacity__JWHH= 0;
-      if ((Self__KWHH->capacity__UCS <= Self__KWHH->count__SGC)) {
-        if ((Self__KWHH->capacity__UCS ==  0)) {
-          Self__KWHH->capacity__UCS= 32;
-          Self__KWHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__JWHH=(__INTEGER)(Self__KWHH->capacity__UCS <<  1);
-          Self__LWHH=((__CHARACTER *)Self__KWHH->storage__3CS);
-          old_nb_elts__MWHH=Self__KWHH->capacity__UCS;
-          new__NWHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LWHH),((__UINTEGER_32 )old_nb_elts__MWHH),((__UINTEGER_32 )new_capacity__JWHH)));
-          upper__XNJH=(__INTEGER)(new_capacity__JWHH -  1);
-          Self__VNJH=old_nb_elts__MWHH;
-          while ((Self__VNJH <= upper__XNJH)) {
-            new__NWHH[Self__VNJH]='\0';
-            Self__VNJH=(__INTEGER)(Self__VNJH +  1);
-          };
-          Self__KWHH->storage__3CS=new__NWHH;
-          Self__KWHH->capacity__UCS=new_capacity__JWHH;
-        };
-      };
-      ((__CHARACTER *)Self__KWHH->storage__3CS)[Self__KWHH->count__SGC]=',';
-      Self__KWHH->count__SGC=(__INTEGER)(Self__KWHH->count__SGC +  1);
-      Self__QWHH=((__STRING *)buf__U14F);
-      new_capacity__PWHH= 0;
-      if ((Self__QWHH->capacity__UCS <= Self__QWHH->count__SGC)) {
-        if ((Self__QWHH->capacity__UCS ==  0)) {
-          Self__QWHH->capacity__UCS= 32;
-          Self__QWHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__PWHH=(__INTEGER)(Self__QWHH->capacity__UCS <<  1);
-          Self__RWHH=((__CHARACTER *)Self__QWHH->storage__3CS);
-          old_nb_elts__SWHH=Self__QWHH->capacity__UCS;
-          new__TWHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RWHH),((__UINTEGER_32 )old_nb_elts__SWHH),((__UINTEGER_32 )new_capacity__PWHH)));
-          upper__2NJH=(__INTEGER)(new_capacity__PWHH -  1);
-          Self__0NJH=old_nb_elts__SWHH;
-          while ((Self__0NJH <= upper__2NJH)) {
-            new__TWHH[Self__0NJH]='\0';
-            Self__0NJH=(__INTEGER)(Self__0NJH +  1);
-          };
-          Self__QWHH->storage__3CS=new__TWHH;
-          Self__QWHH->capacity__UCS=new_capacity__PWHH;
-        };
-      };
-      ((__CHARACTER *)Self__QWHH->storage__3CS)[Self__QWHH->count__SGC]=' ';
-      Self__QWHH->count__SGC=(__INTEGER)(Self__QWHH->count__SGC +  1);
-      Self__XSDG=(__INTEGER)(Self__XSDG +  1);
-    };
-    Self__P1GH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__T14F->type_list__1WFC);
-    __tmp__R24F=((void **)Self__P1GH->parent_arrayed_collection__SYC.storage__FMV)[Self__P1GH->parent_arrayed_collection__SYC.upper__4HV];
-    switch (((struct ___OBJ *)__tmp__R24F)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__3OS(buf__U14F,((__ITM_TYPE_PARAMETER *)__tmp__R24F)->parent_itm_type__VFE.name__GZP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__3OS(buf__U14F,((__ITM_TYPE_SIMPLE *)__tmp__R24F)->name__GZP);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__PJPD(__tmp__R24F,buf__U14F);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__TKPD(__tmp__R24F,buf__U14F);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__WWHH=((__ITM_TYPE_STYLE *)__tmp__R24F);
-      if (((void *)Self__WWHH->style__PZP != (void *)NULL)) {
-        append__3OS(buf__U14F,Self__WWHH->style__PZP);
-        Self__YWHH=((__STRING *)buf__U14F);
-        new_capacity__XWHH= 0;
-        if ((Self__YWHH->capacity__UCS <= Self__YWHH->count__SGC)) {
-          if ((Self__YWHH->capacity__UCS ==  0)) {
-            Self__YWHH->capacity__UCS= 32;
-            Self__YWHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__XWHH=(__INTEGER)(Self__YWHH->capacity__UCS <<  1);
-            Self__ZWHH=((__CHARACTER *)Self__YWHH->storage__3CS);
-            old_nb_elts__0WHH=Self__YWHH->capacity__UCS;
-            new__1WHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZWHH),((__UINTEGER_32 )old_nb_elts__0WHH),((__UINTEGER_32 )new_capacity__XWHH)));
-            upper__BOJH=(__INTEGER)(new_capacity__XWHH -  1);
-            Self__5NJH=old_nb_elts__0WHH;
-            while ((Self__5NJH <= upper__BOJH)) {
-              new__1WHH[Self__5NJH]='\0';
-              Self__5NJH=(__INTEGER)(Self__5NJH +  1);
-            };
-            Self__YWHH->storage__3CS=new__1WHH;
-            Self__YWHH->capacity__UCS=new_capacity__XWHH;
-          };
-        };
-        ((__CHARACTER *)Self__YWHH->storage__3CS)[Self__YWHH->count__SGC]=' ';
-        Self__YWHH->count__SGC=(__INTEGER)(Self__YWHH->count__SGC +  1);
-      };
-      append__3OS(buf__U14F,Self__WWHH->parent_itm_type_simple__3SN.name__GZP);
-    } break;
-    };
-  };
-}
-
-static void shorter_profile_in__U24F(__ITM_SLOT *Self__V24F,void *buf__W24F)
-// ({ITM_SLOT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER j__O55F,new_capacity__3WHH,old_nb_elts__AXHH,upper__GOJH;
-  __INTEGER Self__EOJH,i__P55F,new_capacity__DXHH,old_nb_elts__GXHH;
-  __INTEGER upper__LOJH,Self__JOJH,new_capacity__JXHH,old_nb_elts__MXHH;
-  __INTEGER upper__QOJH,Self__OOJH,new_capacity__PXHH,old_nb_elts__SXHH;
-  __INTEGER upper__VOJH,Self__TOJH,new_capacity__VXHH,old_nb_elts__YXHH;
-  __INTEGER upper__0OJH,Self__YOJH,new_capacity__1XHH,old_nb_elts__4XHH;
-  __INTEGER upper__5OJH,Self__3OJH,new_capacity__BYHH,old_nb_elts__EYHH;
-  __INTEGER upper__EPJH,Self__CPJH,new_capacity__HYHH,old_nb_elts__KYHH;
-  __INTEGER upper__JPJH,Self__HPJH,new_capacity__NYHH,old_nb_elts__QYHH;
-  __INTEGER upper__OPJH,Self__MPJH,new_capacity__TYHH,old_nb_elts__WYHH;
-  __INTEGER upper__TPJH,Self__RPJH,new_capacity__1YHH,old_nb_elts__4YHH;
-  __INTEGER upper__YPJH,Self__WPJH;
-  void *__tmp__U55F,*__tmp__2AAG,*__tmp__2BAG;
-  __STRING *Self__4WHH,*Self__EXHH,*Self__KXHH,*Self__QXHH,*Self__WXHH;
-  __STRING *Self__2XHH,*Self__CYHH,*Self__IYHH,*Self__OYHH,*Self__UYHH;
-  __STRING *Self__2YHH;
-  __STRING_CONSTANT *Self__4MFH;
-  void *__tmp__O34F;
-  __ITM_TYPE_MULTI *Self__K51G;
-  __ITM_TYPE_STYLE *Self__ZYHH;
-  __CHARACTER *Self__5WHH,*new__BXHH,*Self__FXHH,*new__HXHH,*Self__LXHH;
-  __CHARACTER *new__NXHH,*Self__RXHH,*new__TXHH,*Self__XXHH,*new__ZXHH;
-  __CHARACTER *Self__3XHH,*new__5XHH,*Self__DYHH,*new__FYHH,*Self__JYHH;
-  __CHARACTER *new__LYHH,*Self__PYHH,*new__RYHH,*Self__VYHH,*new__XYHH;
-  __CHARACTER *Self__3YHH,*new__5YHH;
-  __CHARACTER ch__UXHH,ch__0XHH;
-  __FAST_ARRAYoITM_ARGUMENTo *Self__S1GH;
-  if ((Self__V24F->parent_named__15.style__0FU == '+')) {
-    put__to__like__JNBG((&__string_248),buf__W24F,(&__string_132));
-  } else {
-    put__to__like__JNBG((&__string_249),buf__W24F,(&__string_132));
-  };
-  ((__STRING *)string_tmp__VH)->count__SGC= 0;
-  j__O55F= 1;
-  __tmp__U55F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
-  if (((struct ___OBJ *)__tmp__U55F)->__id==__ITM_ARG__) {
-    shorter_in__KKBG(__tmp__U55F,buf__W24F);
-  } else {
-    shorter_in__BLBG(__tmp__U55F,buf__W24F);
-  };
-  Self__4WHH=((__STRING *)buf__W24F);
-  new_capacity__3WHH= 0;
-  if ((Self__4WHH->capacity__UCS <= Self__4WHH->count__SGC)) {
-    if ((Self__4WHH->capacity__UCS ==  0)) {
-      Self__4WHH->capacity__UCS= 32;
-      Self__4WHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__3WHH=(__INTEGER)(Self__4WHH->capacity__UCS <<  1);
-      Self__5WHH=((__CHARACTER *)Self__4WHH->storage__3CS);
-      old_nb_elts__AXHH=Self__4WHH->capacity__UCS;
-      new__BXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5WHH),((__UINTEGER_32 )old_nb_elts__AXHH),((__UINTEGER_32 )new_capacity__3WHH)));
-      upper__GOJH=(__INTEGER)(new_capacity__3WHH -  1);
-      Self__EOJH=old_nb_elts__AXHH;
-      while ((Self__EOJH <= upper__GOJH)) {
-        new__BXHH[Self__EOJH]='\0';
-        Self__EOJH=(__INTEGER)(Self__EOJH +  1);
-      };
-      Self__4WHH->storage__3CS=new__BXHH;
-      Self__4WHH->capacity__UCS=new_capacity__3WHH;
-    };
-  };
-  ((__CHARACTER *)Self__4WHH->storage__3CS)[Self__4WHH->count__SGC]='.';
-  Self__4WHH->count__SGC=(__INTEGER)(Self__4WHH->count__SGC +  1);
-  i__P55F= 1;
-  while ((j__O55F < ((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->count__DD)) {
-    if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__O55F -  1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)((__INTEGER)(j__O55F +  1) -  1)] == '_'))) {
-      put__to__like__JNBG(string_tmp__VH,buf__W24F,(&__string_130));
-      Self__EXHH=((__STRING *)buf__W24F);
-      new_capacity__DXHH= 0;
-      if ((Self__EXHH->capacity__UCS <= Self__EXHH->count__SGC)) {
-        if ((Self__EXHH->capacity__UCS ==  0)) {
-          Self__EXHH->capacity__UCS= 32;
-          Self__EXHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__DXHH=(__INTEGER)(Self__EXHH->capacity__UCS <<  1);
-          Self__FXHH=((__CHARACTER *)Self__EXHH->storage__3CS);
-          old_nb_elts__GXHH=Self__EXHH->capacity__UCS;
-          new__HXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FXHH),((__UINTEGER_32 )old_nb_elts__GXHH),((__UINTEGER_32 )new_capacity__DXHH)));
-          upper__LOJH=(__INTEGER)(new_capacity__DXHH -  1);
-          Self__JOJH=old_nb_elts__GXHH;
-          while ((Self__JOJH <= upper__LOJH)) {
-            new__HXHH[Self__JOJH]='\0';
-            Self__JOJH=(__INTEGER)(Self__JOJH +  1);
-          };
-          Self__EXHH->storage__3CS=new__HXHH;
-          Self__EXHH->capacity__UCS=new_capacity__DXHH;
-        };
-      };
-      ((__CHARACTER *)Self__EXHH->storage__3CS)[Self__EXHH->count__SGC]=' ';
-      Self__EXHH->count__SGC=(__INTEGER)(Self__EXHH->count__SGC +  1);
-      __tmp__2AAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[i__P55F];
-      if (((struct ___OBJ *)__tmp__2AAG)->__id==__ITM_ARG__) {
-        shorter_in__KKBG(__tmp__2AAG,buf__W24F);
-      } else {
-        shorter_in__BLBG(__tmp__2AAG,buf__W24F);
-      };
-      Self__KXHH=((__STRING *)buf__W24F);
-      new_capacity__JXHH= 0;
-      if ((Self__KXHH->capacity__UCS <= Self__KXHH->count__SGC)) {
-        if ((Self__KXHH->capacity__UCS ==  0)) {
-          Self__KXHH->capacity__UCS= 32;
-          Self__KXHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__JXHH=(__INTEGER)(Self__KXHH->capacity__UCS <<  1);
-          Self__LXHH=((__CHARACTER *)Self__KXHH->storage__3CS);
-          old_nb_elts__MXHH=Self__KXHH->capacity__UCS;
-          new__NXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LXHH),((__UINTEGER_32 )old_nb_elts__MXHH),((__UINTEGER_32 )new_capacity__JXHH)));
-          upper__QOJH=(__INTEGER)(new_capacity__JXHH -  1);
-          Self__OOJH=old_nb_elts__MXHH;
-          while ((Self__OOJH <= upper__QOJH)) {
-            new__NXHH[Self__OOJH]='\0';
-            Self__OOJH=(__INTEGER)(Self__OOJH +  1);
-          };
-          Self__KXHH->storage__3CS=new__NXHH;
-          Self__KXHH->capacity__UCS=new_capacity__JXHH;
-        };
-      };
-      ((__CHARACTER *)Self__KXHH->storage__3CS)[Self__KXHH->count__SGC]=' ';
-      Self__KXHH->count__SGC=(__INTEGER)(Self__KXHH->count__SGC +  1);
-      ((__STRING *)string_tmp__VH)->count__SGC= 0;
-      j__O55F=(__INTEGER)(j__O55F +  2);
-      i__P55F=(__INTEGER)(i__P55F +  1);
-    } else {
-      Self__QXHH=((__STRING *)string_tmp__VH);
-      ch__UXHH=((__CHARACTER *)((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__O55F -  1)];
-      new_capacity__PXHH= 0;
-      if ((Self__QXHH->capacity__UCS <= Self__QXHH->count__SGC)) {
-        if ((Self__QXHH->capacity__UCS ==  0)) {
-          Self__QXHH->capacity__UCS= 32;
-          Self__QXHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__PXHH=(__INTEGER)(Self__QXHH->capacity__UCS <<  1);
-          Self__RXHH=((__CHARACTER *)Self__QXHH->storage__3CS);
-          old_nb_elts__SXHH=Self__QXHH->capacity__UCS;
-          new__TXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RXHH),((__UINTEGER_32 )old_nb_elts__SXHH),((__UINTEGER_32 )new_capacity__PXHH)));
-          upper__VOJH=(__INTEGER)(new_capacity__PXHH -  1);
-          Self__TOJH=old_nb_elts__SXHH;
-          while ((Self__TOJH <= upper__VOJH)) {
-            new__TXHH[Self__TOJH]='\0';
-            Self__TOJH=(__INTEGER)(Self__TOJH +  1);
-          };
-          Self__QXHH->storage__3CS=new__TXHH;
-          Self__QXHH->capacity__UCS=new_capacity__PXHH;
-        };
-      };
-      ((__CHARACTER *)Self__QXHH->storage__3CS)[Self__QXHH->count__SGC]=ch__UXHH;
-      Self__QXHH->count__SGC=(__INTEGER)(Self__QXHH->count__SGC +  1);
-      j__O55F=(__INTEGER)(j__O55F +  1);
-    };
-  };
-  Self__4MFH=((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI);
-  Self__WXHH=((__STRING *)string_tmp__VH);
-  ch__0XHH=((__CHARACTER *)Self__4MFH->storage__RRO)[(__INTEGER)(Self__4MFH->count__DD -  1)];
-  new_capacity__VXHH= 0;
-  if ((Self__WXHH->capacity__UCS <= Self__WXHH->count__SGC)) {
-    if ((Self__WXHH->capacity__UCS ==  0)) {
-      Self__WXHH->capacity__UCS= 32;
-      Self__WXHH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__VXHH=(__INTEGER)(Self__WXHH->capacity__UCS <<  1);
-      Self__XXHH=((__CHARACTER *)Self__WXHH->storage__3CS);
-      old_nb_elts__YXHH=Self__WXHH->capacity__UCS;
-      new__ZXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XXHH),((__UINTEGER_32 )old_nb_elts__YXHH),((__UINTEGER_32 )new_capacity__VXHH)));
-      upper__0OJH=(__INTEGER)(new_capacity__VXHH -  1);
-      Self__YOJH=old_nb_elts__YXHH;
-      while ((Self__YOJH <= upper__0OJH)) {
-        new__ZXHH[Self__YOJH]='\0';
-        Self__YOJH=(__INTEGER)(Self__YOJH +  1);
-      };
-      Self__WXHH->storage__3CS=new__ZXHH;
-      Self__WXHH->capacity__UCS=new_capacity__VXHH;
-    };
-  };
-  ((__CHARACTER *)Self__WXHH->storage__3CS)[Self__WXHH->count__SGC]=ch__0XHH;
-  Self__WXHH->count__SGC=(__INTEGER)(Self__WXHH->count__SGC +  1);
-  put__to__like__JNBG(string_tmp__VH,buf__W24F,(&__string_130));
-  if ((i__P55F <= ((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC)->parent_arrayed_collection__Z5YB.upper__I5GC)) {
-    Self__2XHH=((__STRING *)buf__W24F);
-    new_capacity__1XHH= 0;
-    if ((Self__2XHH->capacity__UCS <= Self__2XHH->count__SGC)) {
-      if ((Self__2XHH->capacity__UCS ==  0)) {
-        Self__2XHH->capacity__UCS= 32;
-        Self__2XHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__1XHH=(__INTEGER)(Self__2XHH->capacity__UCS <<  1);
-        Self__3XHH=((__CHARACTER *)Self__2XHH->storage__3CS);
-        old_nb_elts__4XHH=Self__2XHH->capacity__UCS;
-        new__5XHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3XHH),((__UINTEGER_32 )old_nb_elts__4XHH),((__UINTEGER_32 )new_capacity__1XHH)));
-        upper__5OJH=(__INTEGER)(new_capacity__1XHH -  1);
-        Self__3OJH=old_nb_elts__4XHH;
-        while ((Self__3OJH <= upper__5OJH)) {
-          new__5XHH[Self__3OJH]='\0';
-          Self__3OJH=(__INTEGER)(Self__3OJH +  1);
-        };
-        Self__2XHH->storage__3CS=new__5XHH;
-        Self__2XHH->capacity__UCS=new_capacity__1XHH;
-      };
-    };
-    ((__CHARACTER *)Self__2XHH->storage__3CS)[Self__2XHH->count__SGC]=' ';
-    Self__2XHH->count__SGC=(__INTEGER)(Self__2XHH->count__SGC +  1);
-    Self__S1GH=((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC);
-    __tmp__2BAG=((void **)Self__S1GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__S1GH->parent_arrayed_collection__Z5YB.upper__I5GC];
-    if (((struct ___OBJ *)__tmp__2BAG)->__id==__ITM_ARG__) {
-      shorter_in__KKBG(__tmp__2BAG,buf__W24F);
-    } else {
-      shorter_in__BLBG(__tmp__2BAG,buf__W24F);
-    };
-    Self__CYHH=((__STRING *)buf__W24F);
-    new_capacity__BYHH= 0;
-    if ((Self__CYHH->capacity__UCS <= Self__CYHH->count__SGC)) {
-      if ((Self__CYHH->capacity__UCS ==  0)) {
-        Self__CYHH->capacity__UCS= 32;
-        Self__CYHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__BYHH=(__INTEGER)(Self__CYHH->capacity__UCS <<  1);
-        Self__DYHH=((__CHARACTER *)Self__CYHH->storage__3CS);
-        old_nb_elts__EYHH=Self__CYHH->capacity__UCS;
-        new__FYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DYHH),((__UINTEGER_32 )old_nb_elts__EYHH),((__UINTEGER_32 )new_capacity__BYHH)));
-        upper__EPJH=(__INTEGER)(new_capacity__BYHH -  1);
-        Self__CPJH=old_nb_elts__EYHH;
-        while ((Self__CPJH <= upper__EPJH)) {
-          new__FYHH[Self__CPJH]='\0';
-          Self__CPJH=(__INTEGER)(Self__CPJH +  1);
-        };
-        Self__CYHH->storage__3CS=new__FYHH;
-        Self__CYHH->capacity__UCS=new_capacity__BYHH;
-      };
-    };
-    ((__CHARACTER *)Self__CYHH->storage__3CS)[Self__CYHH->count__SGC]=' ';
-    Self__CYHH->count__SGC=(__INTEGER)(Self__CYHH->count__SGC +  1);
-  };
-  if (((void *)Self__V24F->result_type__A4FC != (void *)type_void__WYF)) {
-    Self__IYHH=((__STRING *)buf__W24F);
-    new_capacity__HYHH= 0;
-    if ((Self__IYHH->capacity__UCS <= Self__IYHH->count__SGC)) {
-      if ((Self__IYHH->capacity__UCS ==  0)) {
-        Self__IYHH->capacity__UCS= 32;
-        Self__IYHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__HYHH=(__INTEGER)(Self__IYHH->capacity__UCS <<  1);
-        Self__JYHH=((__CHARACTER *)Self__IYHH->storage__3CS);
-        old_nb_elts__KYHH=Self__IYHH->capacity__UCS;
-        new__LYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JYHH),((__UINTEGER_32 )old_nb_elts__KYHH),((__UINTEGER_32 )new_capacity__HYHH)));
-        upper__JPJH=(__INTEGER)(new_capacity__HYHH -  1);
-        Self__HPJH=old_nb_elts__KYHH;
-        while ((Self__HPJH <= upper__JPJH)) {
-          new__LYHH[Self__HPJH]='\0';
-          Self__HPJH=(__INTEGER)(Self__HPJH +  1);
-        };
-        Self__IYHH->storage__3CS=new__LYHH;
-        Self__IYHH->capacity__UCS=new_capacity__HYHH;
-      };
-    };
-    ((__CHARACTER *)Self__IYHH->storage__3CS)[Self__IYHH->count__SGC]=':';
-    Self__IYHH->count__SGC=(__INTEGER)(Self__IYHH->count__SGC +  1);
-    __tmp__O34F=Self__V24F->result_type__A4FC;
-    switch (((struct ___OBJ *)__tmp__O34F)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      shorter_in__0TDG(__tmp__O34F,buf__W24F);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      shorter_in__LUDG(__tmp__O34F,buf__W24F);
-    } break;
-    case __ITM_TYPE_MULTI__: {
-      Self__K51G=((__ITM_TYPE_MULTI *)__tmp__O34F);
-      Self__OYHH=((__STRING *)buf__W24F);
-      new_capacity__NYHH= 0;
-      if ((Self__OYHH->capacity__UCS <= Self__OYHH->count__SGC)) {
-        if ((Self__OYHH->capacity__UCS ==  0)) {
-          Self__OYHH->capacity__UCS= 32;
-          Self__OYHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__NYHH=(__INTEGER)(Self__OYHH->capacity__UCS <<  1);
-          Self__PYHH=((__CHARACTER *)Self__OYHH->storage__3CS);
-          old_nb_elts__QYHH=Self__OYHH->capacity__UCS;
-          new__RYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PYHH),((__UINTEGER_32 )old_nb_elts__QYHH),((__UINTEGER_32 )new_capacity__NYHH)));
-          upper__OPJH=(__INTEGER)(new_capacity__NYHH -  1);
-          Self__MPJH=old_nb_elts__QYHH;
-          while ((Self__MPJH <= upper__OPJH)) {
-            new__RYHH[Self__MPJH]='\0';
-            Self__MPJH=(__INTEGER)(Self__MPJH +  1);
-          };
-          Self__OYHH->storage__3CS=new__RYHH;
-          Self__OYHH->capacity__UCS=new_capacity__NYHH;
-        };
-      };
-      ((__CHARACTER *)Self__OYHH->storage__3CS)[Self__OYHH->count__SGC]='(';
-      Self__OYHH->count__SGC=(__INTEGER)(Self__OYHH->count__SGC +  1);
-      shorter_raw_in__M2FG(Self__K51G,buf__W24F);
-      Self__UYHH=((__STRING *)buf__W24F);
-      new_capacity__TYHH= 0;
-      if ((Self__UYHH->capacity__UCS <= Self__UYHH->count__SGC)) {
-        if ((Self__UYHH->capacity__UCS ==  0)) {
-          Self__UYHH->capacity__UCS= 32;
-          Self__UYHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__TYHH=(__INTEGER)(Self__UYHH->capacity__UCS <<  1);
-          Self__VYHH=((__CHARACTER *)Self__UYHH->storage__3CS);
-          old_nb_elts__WYHH=Self__UYHH->capacity__UCS;
-          new__XYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VYHH),((__UINTEGER_32 )old_nb_elts__WYHH),((__UINTEGER_32 )new_capacity__TYHH)));
-          upper__TPJH=(__INTEGER)(new_capacity__TYHH -  1);
-          Self__RPJH=old_nb_elts__WYHH;
-          while ((Self__RPJH <= upper__TPJH)) {
-            new__XYHH[Self__RPJH]='\0';
-            Self__RPJH=(__INTEGER)(Self__RPJH +  1);
-          };
-          Self__UYHH->storage__3CS=new__XYHH;
-          Self__UYHH->capacity__UCS=new_capacity__TYHH;
-        };
-      };
-      ((__CHARACTER *)Self__UYHH->storage__3CS)[Self__UYHH->count__SGC]=')';
-      Self__UYHH->count__SGC=(__INTEGER)(Self__UYHH->count__SGC +  1);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      shorter_in__2UDG(__tmp__O34F,buf__W24F);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      shorter_in__EWDG(__tmp__O34F,buf__W24F);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__ZYHH=((__ITM_TYPE_STYLE *)__tmp__O34F);
-      if (((void *)Self__ZYHH->style__PZP != (void *)NULL)) {
-        put__to__like__I0FG(Self__ZYHH->style__PZP,buf__W24F,(&__string_119));
-        Self__2YHH=((__STRING *)buf__W24F);
-        new_capacity__1YHH= 0;
-        if ((Self__2YHH->capacity__UCS <= Self__2YHH->count__SGC)) {
-          if ((Self__2YHH->capacity__UCS ==  0)) {
-            Self__2YHH->capacity__UCS= 32;
-            Self__2YHH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__1YHH=(__INTEGER)(Self__2YHH->capacity__UCS <<  1);
-            Self__3YHH=((__CHARACTER *)Self__2YHH->storage__3CS);
-            old_nb_elts__4YHH=Self__2YHH->capacity__UCS;
-            new__5YHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3YHH),((__UINTEGER_32 )old_nb_elts__4YHH),((__UINTEGER_32 )new_capacity__1YHH)));
-            upper__YPJH=(__INTEGER)(new_capacity__1YHH -  1);
-            Self__WPJH=old_nb_elts__4YHH;
-            while ((Self__WPJH <= upper__YPJH)) {
-              new__5YHH[Self__WPJH]='\0';
-              Self__WPJH=(__INTEGER)(Self__WPJH +  1);
-            };
-            Self__2YHH->storage__3CS=new__5YHH;
-            Self__2YHH->capacity__UCS=new_capacity__1YHH;
-          };
-        };
-        ((__CHARACTER *)Self__2YHH->storage__3CS)[Self__2YHH->count__SGC]=' ';
-        Self__2YHH->count__SGC=(__INTEGER)(Self__2YHH->count__SGC +  1);
-      };
-      put__to__like__I0FG(Self__ZYHH->parent_itm_type_simple__3SN.name__GZP,buf__W24F,(&__string_125));
-    } break;
-    };
-  };
-}
-
-static void shorter_profile_in__R34F(__ITM_SLOT_OPERATOR *Self__S34F,void *buf__T34F)
-// ({ITM_SLOT_OPERATOR},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  void *__tmp__4CAG,*__tmp__TDAG,*__tmp__JEAG,*__tmp__TEAG;
-  __STRING *Self__CZHH,*Self__IZHH,*Self__OZHH,*Self__UZHH,*Self__0ZHH;
-  __STRING *Self__A0HH,*Self__G0HH,*Self__M0HH,*Self__S0HH,*Self__Y0HH;
-  __STRING *Self__40HH,*Self__E1HH,*Self__LVFB,*Self__K1HH,*Self__Q1HH;
-  __STRING *Self__W1HH,*Self__21HH,*Self__C2HH,*Self__I2HH,*Self__O2HH;
-  __STRING *Self__U2HH,*Self__02HH,*Self__C3HH;
-  __INTEGER new_capacity__BZHH,old_nb_elts__EZHH,upper__3PJH,Self__1PJH;
-  __INTEGER new_capacity__HZHH,old_nb_elts__KZHH,upper__CQJH,Self__AQJH;
-  __INTEGER new_capacity__NZHH,old_nb_elts__QZHH,upper__HQJH,Self__FQJH;
-  __INTEGER new_capacity__TZHH,old_nb_elts__WZHH,upper__MQJH,Self__KQJH;
-  __INTEGER new_capacity__ZZHH,old_nb_elts__2ZHH,upper__RQJH,Self__PQJH;
-  __INTEGER new_capacity__5ZHH,old_nb_elts__C0HH,upper__WQJH,Self__UQJH;
-  __INTEGER new_capacity__F0HH,old_nb_elts__I0HH,upper__1QJH,Self__ZQJH;
-  __INTEGER new_capacity__L0HH,old_nb_elts__O0HH,upper__ARJH,Self__4QJH;
-  __INTEGER new_capacity__R0HH,old_nb_elts__U0HH,upper__FRJH,Self__DRJH;
-  __INTEGER Self__ZMMG,result__1MMG,i__LOMG,j__MOMG,new_capacity__X0HH;
-  __INTEGER old_nb_elts__00HH,upper__KRJH,Self__IRJH,new_capacity__30HH;
-  __INTEGER old_nb_elts__A1HH,upper__PRJH,Self__NRJH,new_capacity__D1HH;
-  __INTEGER old_nb_elts__G1HH,upper__URJH,Self__SRJH,new_capacity__J1HH;
-  __INTEGER old_nb_elts__M1HH,upper__ZRJH,Self__XRJH,new_capacity__P1HH;
-  __INTEGER old_nb_elts__S1HH,upper__4RJH,Self__2RJH,new_capacity__V1HH;
-  __INTEGER old_nb_elts__Y1HH,upper__DSJH,Self__BSJH,new_capacity__11HH;
-  __INTEGER old_nb_elts__41HH,upper__ISJH,Self__GSJH,new_capacity__B2HH;
-  __INTEGER old_nb_elts__E2HH,upper__NSJH,Self__LSJH,new_capacity__H2HH;
-  __INTEGER old_nb_elts__K2HH,upper__SSJH,Self__QSJH,new_capacity__N2HH;
-  __INTEGER old_nb_elts__Q2HH,upper__XSJH,Self__VSJH,new_capacity__T2HH;
-  __INTEGER old_nb_elts__W2HH,upper__2SJH,Self__0SJH,new_capacity__Z2HH;
-  __INTEGER old_nb_elts__22HH,upper__BTJH,Self__5SJH,new_capacity__B3HH;
-  __INTEGER old_nb_elts__E3HH,upper__GTJH,Self__ETJH;
-  void *result__XGMG;
-  __INTEGER_32 Self__AOMG,val__IOMG;
-  void *__tmp__L44F;
-  __ITM_TYPE_MULTI *Self__L0DG;
-  __ITM_TYPE_STYLE *Self__52HH;
-  __CHARACTER *Self__DZHH,*new__FZHH,*Self__JZHH,*new__LZHH,*Self__PZHH;
-  __CHARACTER *new__RZHH,*Self__VZHH,*new__XZHH,*Self__1ZHH,*new__3ZHH;
-  __CHARACTER *Self__B0HH,*new__D0HH,*Self__H0HH,*new__J0HH,*Self__N0HH;
-  __CHARACTER *new__P0HH,*Self__T0HH,*new__V0HH,*Self__Z0HH,*new__10HH;
-  __CHARACTER *Self__50HH,*new__B1HH,*Self__F1HH,*new__H1HH,*Self__L1HH;
-  __CHARACTER *new__N1HH,*Self__R1HH,*new__T1HH,*Self__X1HH,*new__Z1HH;
-  __CHARACTER *Self__31HH,*new__51HH,*Self__D2HH,*new__F2HH,*Self__J2HH;
-  __CHARACTER *new__L2HH,*Self__P2HH,*new__R2HH,*Self__V2HH,*new__X2HH;
-  __CHARACTER *Self__12HH,*new__32HH,*Self__D3HH,*new__F3HH;
-  __BOOLEAN __tmp__DDAG;
-  __CHARACTER ch__I1HH,tmp__OVFB;
-  if ((Self__S34F->parent_itm_slot__0S5B.parent_named__15.style__0FU == '+')) {
-    put__to__like__S0DG((&__string_248),buf__T34F,(&__string_132));
-  } else {
-    put__to__like__S0DG((&__string_249),buf__T34F,(&__string_132));
-  };
-  if (has_prefix__OTTF(Self__S34F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_82))) {
-    __tmp__4CAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
-    if (((struct ___OBJ *)__tmp__4CAG)->__id==__ITM_ARG__) {
-      shorter_in__KKBG(__tmp__4CAG,buf__T34F);
-    } else {
-      shorter_in__BLBG(__tmp__4CAG,buf__T34F);
-    };
-    Self__CZHH=((__STRING *)buf__T34F);
-    new_capacity__BZHH= 0;
-    if ((Self__CZHH->capacity__UCS <= Self__CZHH->count__SGC)) {
-      if ((Self__CZHH->capacity__UCS ==  0)) {
-        Self__CZHH->capacity__UCS= 32;
-        Self__CZHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__BZHH=(__INTEGER)(Self__CZHH->capacity__UCS <<  1);
-        Self__DZHH=((__CHARACTER *)Self__CZHH->storage__3CS);
-        old_nb_elts__EZHH=Self__CZHH->capacity__UCS;
-        new__FZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DZHH),((__UINTEGER_32 )old_nb_elts__EZHH),((__UINTEGER_32 )new_capacity__BZHH)));
-        upper__3PJH=(__INTEGER)(new_capacity__BZHH -  1);
-        Self__1PJH=old_nb_elts__EZHH;
-        while ((Self__1PJH <= upper__3PJH)) {
-          new__FZHH[Self__1PJH]='\0';
-          Self__1PJH=(__INTEGER)(Self__1PJH +  1);
-        };
-        Self__CZHH->storage__3CS=new__FZHH;
-        Self__CZHH->capacity__UCS=new_capacity__BZHH;
-      };
-    };
-    ((__CHARACTER *)Self__CZHH->storage__3CS)[Self__CZHH->count__SGC]=' ';
-    Self__CZHH->count__SGC=(__INTEGER)(Self__CZHH->count__SGC +  1);
-    Self__IZHH=((__STRING *)buf__T34F);
-    new_capacity__HZHH= 0;
-    if ((Self__IZHH->capacity__UCS <= Self__IZHH->count__SGC)) {
-      if ((Self__IZHH->capacity__UCS ==  0)) {
-        Self__IZHH->capacity__UCS= 32;
-        Self__IZHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__HZHH=(__INTEGER)(Self__IZHH->capacity__UCS <<  1);
-        Self__JZHH=((__CHARACTER *)Self__IZHH->storage__3CS);
-        old_nb_elts__KZHH=Self__IZHH->capacity__UCS;
-        new__LZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JZHH),((__UINTEGER_32 )old_nb_elts__KZHH),((__UINTEGER_32 )new_capacity__HZHH)));
-        upper__CQJH=(__INTEGER)(new_capacity__HZHH -  1);
-        Self__AQJH=old_nb_elts__KZHH;
-        while ((Self__AQJH <= upper__CQJH)) {
-          new__LZHH[Self__AQJH]='\0';
-          Self__AQJH=(__INTEGER)(Self__AQJH +  1);
-        };
-        Self__IZHH->storage__3CS=new__LZHH;
-        Self__IZHH->capacity__UCS=new_capacity__HZHH;
-      };
-    };
-    ((__CHARACTER *)Self__IZHH->storage__3CS)[Self__IZHH->count__SGC]='\'';
-    Self__IZHH->count__SGC=(__INTEGER)(Self__IZHH->count__SGC +  1);
-    put__to__like__S0DG(Self__S34F->pretty_name__5ZHC,buf__T34F,(&__string_130));
-    Self__OZHH=((__STRING *)buf__T34F);
-    new_capacity__NZHH= 0;
-    if ((Self__OZHH->capacity__UCS <= Self__OZHH->count__SGC)) {
-      if ((Self__OZHH->capacity__UCS ==  0)) {
-        Self__OZHH->capacity__UCS= 32;
-        Self__OZHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__NZHH=(__INTEGER)(Self__OZHH->capacity__UCS <<  1);
-        Self__PZHH=((__CHARACTER *)Self__OZHH->storage__3CS);
-        old_nb_elts__QZHH=Self__OZHH->capacity__UCS;
-        new__RZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PZHH),((__UINTEGER_32 )old_nb_elts__QZHH),((__UINTEGER_32 )new_capacity__NZHH)));
-        upper__HQJH=(__INTEGER)(new_capacity__NZHH -  1);
-        Self__FQJH=old_nb_elts__QZHH;
-        while ((Self__FQJH <= upper__HQJH)) {
-          new__RZHH[Self__FQJH]='\0';
-          Self__FQJH=(__INTEGER)(Self__FQJH +  1);
-        };
-        Self__OZHH->storage__3CS=new__RZHH;
-        Self__OZHH->capacity__UCS=new_capacity__NZHH;
-      };
-    };
-    ((__CHARACTER *)Self__OZHH->storage__3CS)[Self__OZHH->count__SGC]='\'';
-    Self__OZHH->count__SGC=(__INTEGER)(Self__OZHH->count__SGC +  1);
-    Self__UZHH=((__STRING *)buf__T34F);
-    new_capacity__TZHH= 0;
-    if ((Self__UZHH->capacity__UCS <= Self__UZHH->count__SGC)) {
-      if ((Self__UZHH->capacity__UCS ==  0)) {
-        Self__UZHH->capacity__UCS= 32;
-        Self__UZHH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__TZHH=(__INTEGER)(Self__UZHH->capacity__UCS <<  1);
-        Self__VZHH=((__CHARACTER *)Self__UZHH->storage__3CS);
-        old_nb_elts__WZHH=Self__UZHH->capacity__UCS;
-        new__XZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VZHH),((__UINTEGER_32 )old_nb_elts__WZHH),((__UINTEGER_32 )new_capacity__TZHH)));
-        upper__MQJH=(__INTEGER)(new_capacity__TZHH -  1);
-        Self__KQJH=old_nb_elts__WZHH;
-        while ((Self__KQJH <= upper__MQJH)) {
-          new__XZHH[Self__KQJH]='\0';
-          Self__KQJH=(__INTEGER)(Self__KQJH +  1);
-        };
-        Self__UZHH->storage__3CS=new__XZHH;
-        Self__UZHH->capacity__UCS=new_capacity__TZHH;
-      };
-    };
-    ((__CHARACTER *)Self__UZHH->storage__3CS)[Self__UZHH->count__SGC]=' ';
-    Self__UZHH->count__SGC=(__INTEGER)(Self__UZHH->count__SGC +  1);
-    __tmp__DDAG=TRUE__;
-  } else {
-    __tmp__DDAG=FALSE__;
-  };
-  if ((! __tmp__DDAG)) {
-    if (has_prefix__OTTF(Self__S34F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_81))) {
-      __tmp__TDAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
-      if (((struct ___OBJ *)__tmp__TDAG)->__id==__ITM_ARG__) {
-        shorter_in__KKBG(__tmp__TDAG,buf__T34F);
-      } else {
-        shorter_in__BLBG(__tmp__TDAG,buf__T34F);
-      };
-      Self__0ZHH=((__STRING *)buf__T34F);
-      new_capacity__ZZHH= 0;
-      if ((Self__0ZHH->capacity__UCS <= Self__0ZHH->count__SGC)) {
-        if ((Self__0ZHH->capacity__UCS ==  0)) {
-          Self__0ZHH->capacity__UCS= 32;
-          Self__0ZHH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__ZZHH=(__INTEGER)(Self__0ZHH->capacity__UCS <<  1);
-          Self__1ZHH=((__CHARACTER *)Self__0ZHH->storage__3CS);
-          old_nb_elts__2ZHH=Self__0ZHH->capacity__UCS;
-          new__3ZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1ZHH),((__UINTEGER_32 )old_nb_elts__2ZHH),((__UINTEGER_32 )new_capacity__ZZHH)));
-          upper__RQJH=(__INTEGER)(new_capacity__ZZHH -  1);
-          Self__PQJH=old_nb_elts__2ZHH;
-          while ((Self__PQJH <= upper__RQJH)) {
-            new__3ZHH[Self__PQJH]='\0';
-            Self__PQJH=(__INTEGER)(Self__PQJH +  1);
-          };
-          Self__0ZHH->storage__3CS=new__3ZHH;
-          Self__0ZHH->capacity__UCS=new_capacity__ZZHH;
-        };
-      };
-      ((__CHARACTER *)Self__0ZHH->storage__3CS)[Self__0ZHH->count__SGC]=' ';
-      Self__0ZHH->count__SGC=(__INTEGER)(Self__0ZHH->count__SGC +  1);
-      Self__A0HH=((__STRING *)buf__T34F);
-      new_capacity__5ZHH= 0;
-      if ((Self__A0HH->capacity__UCS <= Self__A0HH->count__SGC)) {
-        if ((Self__A0HH->capacity__UCS ==  0)) {
-          Self__A0HH->capacity__UCS= 32;
-          Self__A0HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__5ZHH=(__INTEGER)(Self__A0HH->capacity__UCS <<  1);
-          Self__B0HH=((__CHARACTER *)Self__A0HH->storage__3CS);
-          old_nb_elts__C0HH=Self__A0HH->capacity__UCS;
-          new__D0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__B0HH),((__UINTEGER_32 )old_nb_elts__C0HH),((__UINTEGER_32 )new_capacity__5ZHH)));
-          upper__WQJH=(__INTEGER)(new_capacity__5ZHH -  1);
-          Self__UQJH=old_nb_elts__C0HH;
-          while ((Self__UQJH <= upper__WQJH)) {
-            new__D0HH[Self__UQJH]='\0';
-            Self__UQJH=(__INTEGER)(Self__UQJH +  1);
-          };
-          Self__A0HH->storage__3CS=new__D0HH;
-          Self__A0HH->capacity__UCS=new_capacity__5ZHH;
-        };
-      };
-      ((__CHARACTER *)Self__A0HH->storage__3CS)[Self__A0HH->count__SGC]='\'';
-      Self__A0HH->count__SGC=(__INTEGER)(Self__A0HH->count__SGC +  1);
-      put__to__like__S0DG(Self__S34F->pretty_name__5ZHC,buf__T34F,(&__string_130));
-      Self__G0HH=((__STRING *)buf__T34F);
-      new_capacity__F0HH= 0;
-      if ((Self__G0HH->capacity__UCS <= Self__G0HH->count__SGC)) {
-        if ((Self__G0HH->capacity__UCS ==  0)) {
-          Self__G0HH->capacity__UCS= 32;
-          Self__G0HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__F0HH=(__INTEGER)(Self__G0HH->capacity__UCS <<  1);
-          Self__H0HH=((__CHARACTER *)Self__G0HH->storage__3CS);
-          old_nb_elts__I0HH=Self__G0HH->capacity__UCS;
-          new__J0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__H0HH),((__UINTEGER_32 )old_nb_elts__I0HH),((__UINTEGER_32 )new_capacity__F0HH)));
-          upper__1QJH=(__INTEGER)(new_capacity__F0HH -  1);
-          Self__ZQJH=old_nb_elts__I0HH;
-          while ((Self__ZQJH <= upper__1QJH)) {
-            new__J0HH[Self__ZQJH]='\0';
-            Self__ZQJH=(__INTEGER)(Self__ZQJH +  1);
-          };
-          Self__G0HH->storage__3CS=new__J0HH;
-          Self__G0HH->capacity__UCS=new_capacity__F0HH;
-        };
-      };
-      ((__CHARACTER *)Self__G0HH->storage__3CS)[Self__G0HH->count__SGC]='\'';
-      Self__G0HH->count__SGC=(__INTEGER)(Self__G0HH->count__SGC +  1);
-      if ((Self__S34F->priority_and_level__UZHC !=  0)) {
-        Self__M0HH=((__STRING *)buf__T34F);
-        new_capacity__L0HH= 0;
-        if ((Self__M0HH->capacity__UCS <= Self__M0HH->count__SGC)) {
-          if ((Self__M0HH->capacity__UCS ==  0)) {
-            Self__M0HH->capacity__UCS= 32;
-            Self__M0HH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__L0HH=(__INTEGER)(Self__M0HH->capacity__UCS <<  1);
-            Self__N0HH=((__CHARACTER *)Self__M0HH->storage__3CS);
-            old_nb_elts__O0HH=Self__M0HH->capacity__UCS;
-            new__P0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__N0HH),((__UINTEGER_32 )old_nb_elts__O0HH),((__UINTEGER_32 )new_capacity__L0HH)));
-            upper__ARJH=(__INTEGER)(new_capacity__L0HH -  1);
-            Self__4QJH=old_nb_elts__O0HH;
-            while ((Self__4QJH <= upper__ARJH)) {
-              new__P0HH[Self__4QJH]='\0';
-              Self__4QJH=(__INTEGER)(Self__4QJH +  1);
-            };
-            Self__M0HH->storage__3CS=new__P0HH;
-            Self__M0HH->capacity__UCS=new_capacity__L0HH;
-          };
-        };
-        ((__CHARACTER *)Self__M0HH->storage__3CS)[Self__M0HH->count__SGC]=' ';
-        Self__M0HH->count__SGC=(__INTEGER)(Self__M0HH->count__SGC +  1);
-        result__XGMG=NULL;
-        if ((Self__S34F->priority_and_level__UZHC >=  0)) {
-          result__XGMG=(&__string_6);
-        } else {
-          result__XGMG=(&__string_5);
-        };
-        put__to__like__S0DG(result__XGMG,buf__T34F,(&__string_119));
-        Self__S0HH=((__STRING *)buf__T34F);
-        new_capacity__R0HH= 0;
-        if ((Self__S0HH->capacity__UCS <= Self__S0HH->count__SGC)) {
-          if ((Self__S0HH->capacity__UCS ==  0)) {
-            Self__S0HH->capacity__UCS= 32;
-            Self__S0HH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__R0HH=(__INTEGER)(Self__S0HH->capacity__UCS <<  1);
-            Self__T0HH=((__CHARACTER *)Self__S0HH->storage__3CS);
-            old_nb_elts__U0HH=Self__S0HH->capacity__UCS;
-            new__V0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__T0HH),((__UINTEGER_32 )old_nb_elts__U0HH),((__UINTEGER_32 )new_capacity__R0HH)));
-            upper__FRJH=(__INTEGER)(new_capacity__R0HH -  1);
-            Self__DRJH=old_nb_elts__U0HH;
-            while ((Self__DRJH <= upper__FRJH)) {
-              new__V0HH[Self__DRJH]='\0';
-              Self__DRJH=(__INTEGER)(Self__DRJH +  1);
-            };
-            Self__S0HH->storage__3CS=new__V0HH;
-            Self__S0HH->capacity__UCS=new_capacity__R0HH;
-          };
-        };
-        ((__CHARACTER *)Self__S0HH->storage__3CS)[Self__S0HH->count__SGC]=' ';
-        Self__S0HH->count__SGC=(__INTEGER)(Self__S0HH->count__SGC +  1);
-        ((__STRING *)string_tmp__VH)->count__SGC= 0;
-        Self__ZMMG=Self__S34F->priority_and_level__UZHC;
-        result__1MMG= 0;
-        if ((Self__ZMMG <  0)) {
-          result__1MMG=(__INTEGER)(- Self__ZMMG);
-        } else {
-          result__1MMG=Self__ZMMG;
-        };
-        Self__AOMG=((__INTEGER_32 )result__1MMG);
-        val__IOMG= 0;
-        i__LOMG= 0;
-        j__MOMG= 0;
-        if ((Self__AOMG ==  0)) {
-          Self__Y0HH=((__STRING *)string_tmp__VH);
-          new_capacity__X0HH= 0;
-          if ((Self__Y0HH->capacity__UCS <= Self__Y0HH->count__SGC)) {
-            if ((Self__Y0HH->capacity__UCS ==  0)) {
-              Self__Y0HH->capacity__UCS= 32;
-              Self__Y0HH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__X0HH=(__INTEGER)(Self__Y0HH->capacity__UCS <<  1);
-              Self__Z0HH=((__CHARACTER *)Self__Y0HH->storage__3CS);
-              old_nb_elts__00HH=Self__Y0HH->capacity__UCS;
-              new__10HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__Z0HH),((__UINTEGER_32 )old_nb_elts__00HH),((__UINTEGER_32 )new_capacity__X0HH)));
-              upper__KRJH=(__INTEGER)(new_capacity__X0HH -  1);
-              Self__IRJH=old_nb_elts__00HH;
-              while ((Self__IRJH <= upper__KRJH)) {
-                new__10HH[Self__IRJH]='\0';
-                Self__IRJH=(__INTEGER)(Self__IRJH +  1);
-              };
-              Self__Y0HH->storage__3CS=new__10HH;
-              Self__Y0HH->capacity__UCS=new_capacity__X0HH;
-            };
-          };
-          ((__CHARACTER *)Self__Y0HH->storage__3CS)[Self__Y0HH->count__SGC]='0';
-          Self__Y0HH->count__SGC=(__INTEGER)(Self__Y0HH->count__SGC +  1);
-        } else {
-          if ((Self__AOMG >  0)) {
-            val__IOMG=Self__AOMG;
-          } else {
-            val__IOMG=(__INTEGER_32)(- Self__AOMG);
-            Self__40HH=((__STRING *)string_tmp__VH);
-            new_capacity__30HH= 0;
-            if ((Self__40HH->capacity__UCS <= Self__40HH->count__SGC)) {
-              if ((Self__40HH->capacity__UCS ==  0)) {
-                Self__40HH->capacity__UCS= 32;
-                Self__40HH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__30HH=(__INTEGER)(Self__40HH->capacity__UCS <<  1);
-                Self__50HH=((__CHARACTER *)Self__40HH->storage__3CS);
-                old_nb_elts__A1HH=Self__40HH->capacity__UCS;
-                new__B1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__50HH),((__UINTEGER_32 )old_nb_elts__A1HH),((__UINTEGER_32 )new_capacity__30HH)));
-                upper__PRJH=(__INTEGER)(new_capacity__30HH -  1);
-                Self__NRJH=old_nb_elts__A1HH;
-                while ((Self__NRJH <= upper__PRJH)) {
-                  new__B1HH[Self__NRJH]='\0';
-                  Self__NRJH=(__INTEGER)(Self__NRJH +  1);
-                };
-                Self__40HH->storage__3CS=new__B1HH;
-                Self__40HH->capacity__UCS=new_capacity__30HH;
-              };
-            };
-            ((__CHARACTER *)Self__40HH->storage__3CS)[Self__40HH->count__SGC]='-';
-            Self__40HH->count__SGC=(__INTEGER)(Self__40HH->count__SGC +  1);
-          };
-          i__LOMG=(__INTEGER)(((__STRING *)string_tmp__VH)->count__SGC +  1);
-          while ((val__IOMG !=  0)) {
-            Self__E1HH=((__STRING *)string_tmp__VH);
-            ch__I1HH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__IOMG %  10)) + ((__INTEGER_8 )'0')))));
-            new_capacity__D1HH= 0;
-            if ((Self__E1HH->capacity__UCS <= Self__E1HH->count__SGC)) {
-              if ((Self__E1HH->capacity__UCS ==  0)) {
-                Self__E1HH->capacity__UCS= 32;
-                Self__E1HH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__D1HH=(__INTEGER)(Self__E1HH->capacity__UCS <<  1);
-                Self__F1HH=((__CHARACTER *)Self__E1HH->storage__3CS);
-                old_nb_elts__G1HH=Self__E1HH->capacity__UCS;
-                new__H1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__F1HH),((__UINTEGER_32 )old_nb_elts__G1HH),((__UINTEGER_32 )new_capacity__D1HH)));
-                upper__URJH=(__INTEGER)(new_capacity__D1HH -  1);
-                Self__SRJH=old_nb_elts__G1HH;
-                while ((Self__SRJH <= upper__URJH)) {
-                  new__H1HH[Self__SRJH]='\0';
-                  Self__SRJH=(__INTEGER)(Self__SRJH +  1);
-                };
-                Self__E1HH->storage__3CS=new__H1HH;
-                Self__E1HH->capacity__UCS=new_capacity__D1HH;
-              };
-            };
-            ((__CHARACTER *)Self__E1HH->storage__3CS)[Self__E1HH->count__SGC]=ch__I1HH;
-            Self__E1HH->count__SGC=(__INTEGER)(Self__E1HH->count__SGC +  1);
-            val__IOMG=(__INTEGER_32)(val__IOMG /  10);
-          };
-          j__MOMG=((__STRING *)string_tmp__VH)->count__SGC;
-          while ((i__LOMG < j__MOMG)) {
-            Self__LVFB=((__STRING *)string_tmp__VH);
-            tmp__OVFB=((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(i__LOMG -  1)];
-            ((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(i__LOMG -  1)]=((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(j__MOMG -  1)];
-            ((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(j__MOMG -  1)]=tmp__OVFB;
-            j__MOMG=(__INTEGER)(j__MOMG -  1);
-            i__LOMG=(__INTEGER)(i__LOMG +  1);
-          };
-        };
-        put__to__like__S0DG(string_tmp__VH,buf__T34F,(&__string_119));
-      };
-      Self__K1HH=((__STRING *)buf__T34F);
-      new_capacity__J1HH= 0;
-      if ((Self__K1HH->capacity__UCS <= Self__K1HH->count__SGC)) {
-        if ((Self__K1HH->capacity__UCS ==  0)) {
-          Self__K1HH->capacity__UCS= 32;
-          Self__K1HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__J1HH=(__INTEGER)(Self__K1HH->capacity__UCS <<  1);
-          Self__L1HH=((__CHARACTER *)Self__K1HH->storage__3CS);
-          old_nb_elts__M1HH=Self__K1HH->capacity__UCS;
-          new__N1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__L1HH),((__UINTEGER_32 )old_nb_elts__M1HH),((__UINTEGER_32 )new_capacity__J1HH)));
-          upper__ZRJH=(__INTEGER)(new_capacity__J1HH -  1);
-          Self__XRJH=old_nb_elts__M1HH;
-          while ((Self__XRJH <= upper__ZRJH)) {
-            new__N1HH[Self__XRJH]='\0';
-            Self__XRJH=(__INTEGER)(Self__XRJH +  1);
-          };
-          Self__K1HH->storage__3CS=new__N1HH;
-          Self__K1HH->capacity__UCS=new_capacity__J1HH;
-        };
-      };
-      ((__CHARACTER *)Self__K1HH->storage__3CS)[Self__K1HH->count__SGC]=' ';
-      Self__K1HH->count__SGC=(__INTEGER)(Self__K1HH->count__SGC +  1);
-      __tmp__JEAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 1];
-      if (((struct ___OBJ *)__tmp__JEAG)->__id==__ITM_ARG__) {
-        shorter_in__KKBG(__tmp__JEAG,buf__T34F);
-      } else {
-        shorter_in__BLBG(__tmp__JEAG,buf__T34F);
-      };
-      Self__Q1HH=((__STRING *)buf__T34F);
-      new_capacity__P1HH= 0;
-      if ((Self__Q1HH->capacity__UCS <= Self__Q1HH->count__SGC)) {
-        if ((Self__Q1HH->capacity__UCS ==  0)) {
-          Self__Q1HH->capacity__UCS= 32;
-          Self__Q1HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__P1HH=(__INTEGER)(Self__Q1HH->capacity__UCS <<  1);
-          Self__R1HH=((__CHARACTER *)Self__Q1HH->storage__3CS);
-          old_nb_elts__S1HH=Self__Q1HH->capacity__UCS;
-          new__T1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__R1HH),((__UINTEGER_32 )old_nb_elts__S1HH),((__UINTEGER_32 )new_capacity__P1HH)));
-          upper__4RJH=(__INTEGER)(new_capacity__P1HH -  1);
-          Self__2RJH=old_nb_elts__S1HH;
-          while ((Self__2RJH <= upper__4RJH)) {
-            new__T1HH[Self__2RJH]='\0';
-            Self__2RJH=(__INTEGER)(Self__2RJH +  1);
-          };
-          Self__Q1HH->storage__3CS=new__T1HH;
-          Self__Q1HH->capacity__UCS=new_capacity__P1HH;
-        };
-      };
-      ((__CHARACTER *)Self__Q1HH->storage__3CS)[Self__Q1HH->count__SGC]=' ';
-      Self__Q1HH->count__SGC=(__INTEGER)(Self__Q1HH->count__SGC +  1);
-    } else {
-      Self__W1HH=((__STRING *)buf__T34F);
-      new_capacity__V1HH= 0;
-      if ((Self__W1HH->capacity__UCS <= Self__W1HH->count__SGC)) {
-        if ((Self__W1HH->capacity__UCS ==  0)) {
-          Self__W1HH->capacity__UCS= 32;
-          Self__W1HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__V1HH=(__INTEGER)(Self__W1HH->capacity__UCS <<  1);
-          Self__X1HH=((__CHARACTER *)Self__W1HH->storage__3CS);
-          old_nb_elts__Y1HH=Self__W1HH->capacity__UCS;
-          new__Z1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__X1HH),((__UINTEGER_32 )old_nb_elts__Y1HH),((__UINTEGER_32 )new_capacity__V1HH)));
-          upper__DSJH=(__INTEGER)(new_capacity__V1HH -  1);
-          Self__BSJH=old_nb_elts__Y1HH;
-          while ((Self__BSJH <= upper__DSJH)) {
-            new__Z1HH[Self__BSJH]='\0';
-            Self__BSJH=(__INTEGER)(Self__BSJH +  1);
-          };
-          Self__W1HH->storage__3CS=new__Z1HH;
-          Self__W1HH->capacity__UCS=new_capacity__V1HH;
-        };
-      };
-      ((__CHARACTER *)Self__W1HH->storage__3CS)[Self__W1HH->count__SGC]='\'';
-      Self__W1HH->count__SGC=(__INTEGER)(Self__W1HH->count__SGC +  1);
-      put__to__like__S0DG(Self__S34F->pretty_name__5ZHC,buf__T34F,(&__string_130));
-      Self__21HH=((__STRING *)buf__T34F);
-      new_capacity__11HH= 0;
-      if ((Self__21HH->capacity__UCS <= Self__21HH->count__SGC)) {
-        if ((Self__21HH->capacity__UCS ==  0)) {
-          Self__21HH->capacity__UCS= 32;
-          Self__21HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__11HH=(__INTEGER)(Self__21HH->capacity__UCS <<  1);
-          Self__31HH=((__CHARACTER *)Self__21HH->storage__3CS);
-          old_nb_elts__41HH=Self__21HH->capacity__UCS;
-          new__51HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__31HH),((__UINTEGER_32 )old_nb_elts__41HH),((__UINTEGER_32 )new_capacity__11HH)));
-          upper__ISJH=(__INTEGER)(new_capacity__11HH -  1);
-          Self__GSJH=old_nb_elts__41HH;
-          while ((Self__GSJH <= upper__ISJH)) {
-            new__51HH[Self__GSJH]='\0';
-            Self__GSJH=(__INTEGER)(Self__GSJH +  1);
-          };
-          Self__21HH->storage__3CS=new__51HH;
-          Self__21HH->capacity__UCS=new_capacity__11HH;
-        };
-      };
-      ((__CHARACTER *)Self__21HH->storage__3CS)[Self__21HH->count__SGC]='\'';
-      Self__21HH->count__SGC=(__INTEGER)(Self__21HH->count__SGC +  1);
-      Self__C2HH=((__STRING *)buf__T34F);
-      new_capacity__B2HH= 0;
-      if ((Self__C2HH->capacity__UCS <= Self__C2HH->count__SGC)) {
-        if ((Self__C2HH->capacity__UCS ==  0)) {
-          Self__C2HH->capacity__UCS= 32;
-          Self__C2HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__B2HH=(__INTEGER)(Self__C2HH->capacity__UCS <<  1);
-          Self__D2HH=((__CHARACTER *)Self__C2HH->storage__3CS);
-          old_nb_elts__E2HH=Self__C2HH->capacity__UCS;
-          new__F2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__D2HH),((__UINTEGER_32 )old_nb_elts__E2HH),((__UINTEGER_32 )new_capacity__B2HH)));
-          upper__NSJH=(__INTEGER)(new_capacity__B2HH -  1);
-          Self__LSJH=old_nb_elts__E2HH;
-          while ((Self__LSJH <= upper__NSJH)) {
-            new__F2HH[Self__LSJH]='\0';
-            Self__LSJH=(__INTEGER)(Self__LSJH +  1);
-          };
-          Self__C2HH->storage__3CS=new__F2HH;
-          Self__C2HH->capacity__UCS=new_capacity__B2HH;
-        };
-      };
-      ((__CHARACTER *)Self__C2HH->storage__3CS)[Self__C2HH->count__SGC]=' ';
-      Self__C2HH->count__SGC=(__INTEGER)(Self__C2HH->count__SGC +  1);
-      __tmp__TEAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
-      if (((struct ___OBJ *)__tmp__TEAG)->__id==__ITM_ARG__) {
-        shorter_in__KKBG(__tmp__TEAG,buf__T34F);
-      } else {
-        shorter_in__BLBG(__tmp__TEAG,buf__T34F);
-      };
-      Self__I2HH=((__STRING *)buf__T34F);
-      new_capacity__H2HH= 0;
-      if ((Self__I2HH->capacity__UCS <= Self__I2HH->count__SGC)) {
-        if ((Self__I2HH->capacity__UCS ==  0)) {
-          Self__I2HH->capacity__UCS= 32;
-          Self__I2HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__H2HH=(__INTEGER)(Self__I2HH->capacity__UCS <<  1);
-          Self__J2HH=((__CHARACTER *)Self__I2HH->storage__3CS);
-          old_nb_elts__K2HH=Self__I2HH->capacity__UCS;
-          new__L2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__J2HH),((__UINTEGER_32 )old_nb_elts__K2HH),((__UINTEGER_32 )new_capacity__H2HH)));
-          upper__SSJH=(__INTEGER)(new_capacity__H2HH -  1);
-          Self__QSJH=old_nb_elts__K2HH;
-          while ((Self__QSJH <= upper__SSJH)) {
-            new__L2HH[Self__QSJH]='\0';
-            Self__QSJH=(__INTEGER)(Self__QSJH +  1);
-          };
-          Self__I2HH->storage__3CS=new__L2HH;
-          Self__I2HH->capacity__UCS=new_capacity__H2HH;
-        };
-      };
-      ((__CHARACTER *)Self__I2HH->storage__3CS)[Self__I2HH->count__SGC]=' ';
-      Self__I2HH->count__SGC=(__INTEGER)(Self__I2HH->count__SGC +  1);
-    };
-  };
-  if (((void *)Self__S34F->parent_itm_slot__0S5B.result_type__A4FC != (void *)type_void__WYF)) {
-    Self__O2HH=((__STRING *)buf__T34F);
-    new_capacity__N2HH= 0;
-    if ((Self__O2HH->capacity__UCS <= Self__O2HH->count__SGC)) {
-      if ((Self__O2HH->capacity__UCS ==  0)) {
-        Self__O2HH->capacity__UCS= 32;
-        Self__O2HH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__N2HH=(__INTEGER)(Self__O2HH->capacity__UCS <<  1);
-        Self__P2HH=((__CHARACTER *)Self__O2HH->storage__3CS);
-        old_nb_elts__Q2HH=Self__O2HH->capacity__UCS;
-        new__R2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__P2HH),((__UINTEGER_32 )old_nb_elts__Q2HH),((__UINTEGER_32 )new_capacity__N2HH)));
-        upper__XSJH=(__INTEGER)(new_capacity__N2HH -  1);
-        Self__VSJH=old_nb_elts__Q2HH;
-        while ((Self__VSJH <= upper__XSJH)) {
-          new__R2HH[Self__VSJH]='\0';
-          Self__VSJH=(__INTEGER)(Self__VSJH +  1);
-        };
-        Self__O2HH->storage__3CS=new__R2HH;
-        Self__O2HH->capacity__UCS=new_capacity__N2HH;
-      };
-    };
-    ((__CHARACTER *)Self__O2HH->storage__3CS)[Self__O2HH->count__SGC]=':';
-    Self__O2HH->count__SGC=(__INTEGER)(Self__O2HH->count__SGC +  1);
-    __tmp__L44F=Self__S34F->parent_itm_slot__0S5B.result_type__A4FC;
-    switch (((struct ___OBJ *)__tmp__L44F)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      shorter_in__0TDG(__tmp__L44F,buf__T34F);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      shorter_in__LUDG(__tmp__L44F,buf__T34F);
-    } break;
-    case __ITM_TYPE_MULTI__: {
-      Self__L0DG=((__ITM_TYPE_MULTI *)__tmp__L44F);
-      Self__U2HH=((__STRING *)buf__T34F);
-      new_capacity__T2HH= 0;
-      if ((Self__U2HH->capacity__UCS <= Self__U2HH->count__SGC)) {
-        if ((Self__U2HH->capacity__UCS ==  0)) {
-          Self__U2HH->capacity__UCS= 32;
-          Self__U2HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__T2HH=(__INTEGER)(Self__U2HH->capacity__UCS <<  1);
-          Self__V2HH=((__CHARACTER *)Self__U2HH->storage__3CS);
-          old_nb_elts__W2HH=Self__U2HH->capacity__UCS;
-          new__X2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__V2HH),((__UINTEGER_32 )old_nb_elts__W2HH),((__UINTEGER_32 )new_capacity__T2HH)));
-          upper__2SJH=(__INTEGER)(new_capacity__T2HH -  1);
-          Self__0SJH=old_nb_elts__W2HH;
-          while ((Self__0SJH <= upper__2SJH)) {
-            new__X2HH[Self__0SJH]='\0';
-            Self__0SJH=(__INTEGER)(Self__0SJH +  1);
-          };
-          Self__U2HH->storage__3CS=new__X2HH;
-          Self__U2HH->capacity__UCS=new_capacity__T2HH;
-        };
-      };
-      ((__CHARACTER *)Self__U2HH->storage__3CS)[Self__U2HH->count__SGC]='(';
-      Self__U2HH->count__SGC=(__INTEGER)(Self__U2HH->count__SGC +  1);
-      shorter_raw_in__M2FG(Self__L0DG,buf__T34F);
-      Self__02HH=((__STRING *)buf__T34F);
-      new_capacity__Z2HH= 0;
-      if ((Self__02HH->capacity__UCS <= Self__02HH->count__SGC)) {
-        if ((Self__02HH->capacity__UCS ==  0)) {
-          Self__02HH->capacity__UCS= 32;
-          Self__02HH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__Z2HH=(__INTEGER)(Self__02HH->capacity__UCS <<  1);
-          Self__12HH=((__CHARACTER *)Self__02HH->storage__3CS);
-          old_nb_elts__22HH=Self__02HH->capacity__UCS;
-          new__32HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__12HH),((__UINTEGER_32 )old_nb_elts__22HH),((__UINTEGER_32 )new_capacity__Z2HH)));
-          upper__BTJH=(__INTEGER)(new_capacity__Z2HH -  1);
-          Self__5SJH=old_nb_elts__22HH;
-          while ((Self__5SJH <= upper__BTJH)) {
-            new__32HH[Self__5SJH]='\0';
-            Self__5SJH=(__INTEGER)(Self__5SJH +  1);
-          };
-          Self__02HH->storage__3CS=new__32HH;
-          Self__02HH->capacity__UCS=new_capacity__Z2HH;
-        };
-      };
-      ((__CHARACTER *)Self__02HH->storage__3CS)[Self__02HH->count__SGC]=')';
-      Self__02HH->count__SGC=(__INTEGER)(Self__02HH->count__SGC +  1);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      shorter_in__2UDG(__tmp__L44F,buf__T34F);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      shorter_in__EWDG(__tmp__L44F,buf__T34F);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__52HH=((__ITM_TYPE_STYLE *)__tmp__L44F);
-      if (((void *)Self__52HH->style__PZP != (void *)NULL)) {
-        put__to__like__I0FG(Self__52HH->style__PZP,buf__T34F,(&__string_119));
-        Self__C3HH=((__STRING *)buf__T34F);
-        new_capacity__B3HH= 0;
-        if ((Self__C3HH->capacity__UCS <= Self__C3HH->count__SGC)) {
-          if ((Self__C3HH->capacity__UCS ==  0)) {
-            Self__C3HH->capacity__UCS= 32;
-            Self__C3HH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__B3HH=(__INTEGER)(Self__C3HH->capacity__UCS <<  1);
-            Self__D3HH=((__CHARACTER *)Self__C3HH->storage__3CS);
-            old_nb_elts__E3HH=Self__C3HH->capacity__UCS;
-            new__F3HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__D3HH),((__UINTEGER_32 )old_nb_elts__E3HH),((__UINTEGER_32 )new_capacity__B3HH)));
-            upper__GTJH=(__INTEGER)(new_capacity__B3HH -  1);
-            Self__ETJH=old_nb_elts__E3HH;
-            while ((Self__ETJH <= upper__GTJH)) {
-              new__F3HH[Self__ETJH]='\0';
-              Self__ETJH=(__INTEGER)(Self__ETJH +  1);
-            };
-            Self__C3HH->storage__3CS=new__F3HH;
-            Self__C3HH->capacity__UCS=new_capacity__B3HH;
-          };
-        };
-        ((__CHARACTER *)Self__C3HH->storage__3CS)[Self__C3HH->count__SGC]=' ';
-        Self__C3HH->count__SGC=(__INTEGER)(Self__C3HH->count__SGC +  1);
-      };
-      put__to__like__I0FG(Self__52HH->parent_itm_type_simple__3SN.name__GZP,buf__T34F,(&__string_125));
-    } break;
-    };
-  };
-}
-
-static void* new_page__H54()
-// () With resultNo recursive, No inlinable.
-{
-  __UINTEGER_64 cap__WZSB,old_size__K54;
-  __POINTER mem__ZZSB;
-  void *block__Q54;
-  if ((capacity_max__R54 ==  0)) {
-    mem__ZZSB=((__POINTER )(NULL));
-    cap__WZSB= 33554432;
-    do {
-      cap__WZSB=(__UINTEGER_64)(cap__WZSB <<  1);
-      mem__ZZSB=((__POINTER )(malloc((cap__WZSB))));
-      if ((mem__ZZSB != (void *)NULL)) {
-        free((mem__ZZSB));
-      };
-    } while ((! ((mem__ZZSB == (void *)NULL) || (cap__WZSB == ((__UINTEGER_64 )(2048LU << 20))))));
-    if ((mem__ZZSB == (void *)NULL)) {
-      cap__WZSB=(__UINTEGER_64)(cap__WZSB >>  1);
-    };
-    get_begin_memory__RAQB=((__POINTER )(malloc((cap__WZSB))));
-    capacity_max__R54=cap__WZSB;
-    begin_memory__4XH=get_begin_memory__RAQB;
-  };
-  old_size__K54=((__UINTEGER_64 )(__UINTEGER_32)(nb_page__DUJ <<  26));
-  nb_page__DUJ=(__UINTEGER_32)(nb_page__DUJ +  1);
-  if (((__UINTEGER_64)(old_size__K54 +  67108864) > capacity_max__R54)) {
-    print__OJD((&__string_250));
-    exit(( 1));
-  };
-  block__Q54=((void *)(void *)((unsigned long)begin_memory__4XH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )old_size__K54)))));
-  ((__MEMORY *)block__Q54)->map_previous_linear__XTB= 4294967295LU;
-  ((__MEMORY *)block__Q54)->map_size_and_id__YTB= 67108858;
-  ((__MEMORY *)block__Q54)->map_next_free__ZTB=first_free__0BVB;
-  ((__MEMORY *)block__Q54)->map_previous_free__0TB=NULL;
-  if (((void *)first_free__0BVB != (void *)NULL)) {
-    ((__MEMORY *)first_free__0BVB)->map_previous_free__0TB=block__Q54;
-  };
-  first_free__0BVB=block__Q54;
-  last_block[((__UINTEGER_32)(nb_page__DUJ -  1))] = (block__Q54);
-  return(block__Q54);
-}
-
-static void to_busy__index__3SFC(__MEMORY *Self__4SFC,__UINTEGER_32 sz__5SFC,__UINTEGER_32 idx__ATFC)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
-  void *new__HTFC,*prev__CDOC,*next__DDOC;
-  __UINTEGER_32 siz__BTFC,new_size__ETFC;
-  __MEMORY *Self__NRCC,*Self__TNAH;
-  new__HTFC=NULL;
-  prev__CDOC=Self__4SFC->map_previous_free__0TB;
-  next__DDOC=Self__4SFC->map_next_free__ZTB;
-  if (((void *)prev__CDOC == (void *)NULL)) {
-    first_free__0BVB=next__DDOC;
-  } else {
-    ((__MEMORY *)prev__CDOC)->map_next_free__ZTB=next__DDOC;
-  };
-  if (((void *)next__DDOC != (void *)NULL)) {
-    ((__MEMORY *)next__DDOC)->map_previous_free__0TB=prev__CDOC;
-  };
-  siz__BTFC=Self__4SFC->map_size_and_id__YTB;
-  new_size__ETFC=(__UINTEGER_32)(siz__BTFC - sz__5SFC);
-  if ((new_size__ETFC > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) +  2) +  8))) {
-    siz__BTFC=sz__5SFC;
-    new__HTFC=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__4SFC) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__5SFC))));
-    ((__MEMORY *)new__HTFC)->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__4SFC) - (unsigned long)begin_memory__4XH))));
-    ((__MEMORY *)new__HTFC)->map_size_and_id__YTB=(__UINTEGER_32)(new_size__ETFC -  8);
-    Self__NRCC=((__MEMORY *)new__HTFC);
-    Self__NRCC->map_next_free__ZTB=first_free__0BVB;
-    Self__NRCC->map_previous_free__0TB=NULL;
-    if (((void *)first_free__0BVB != (void *)NULL)) {
-      ((__MEMORY *)first_free__0BVB)->map_previous_free__0TB=Self__NRCC;
-    };
-    first_free__0BVB=Self__NRCC;
-    if (((__UINTEGER_32)(((__MEMORY *)new__HTFC)->map_size_and_id__YTB &  2) !=  0)) {
-      last_block[(idx__ATFC)] = (new__HTFC);
-    } else {
-      Self__TNAH=((__MEMORY *)new__HTFC);
-      ((__MEMORY *)((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TNAH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TNAH->map_size_and_id__YTB &  4294967292LU))))))->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__HTFC)) - (unsigned long)begin_memory__4XH))));
-    };
-  };
-  Self__4SFC->map_size_and_id__YTB=(__UINTEGER_32)(siz__BTFC |  1);
-}
-
-static void** create__W5QB(__INTEGER nb_elements__Y5QB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__XCHH,a__WCHH,new_size__YCHH,new_size2__ZCHH,a__0CHH;
-  __UINTEGER_32 new_size__1CHH;
-  __POINTER result__VCHH,ptr_table__OTJH,next__NTJH,result__PTJH;
-  __INTEGER Self__34MC;
-  void **Result__42TB;
-  sz__XCHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__Y5QB * ((__INTEGER )(sizeof(void *)))));
-  result__VCHH=((__POINTER )(NULL));
-  a__WCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__YCHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XCHH + a__WCHH) & (__UINTEGER_32)(~ a__WCHH));
-  new_size2__ZCHH=(__UINTEGER_32)(new_size__YCHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__ZCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__0CHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__1CHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZCHH + a__0CHH) & (__UINTEGER_32)(~ a__0CHH));
-    ptr_table__OTJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1CHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__NTJH=((__POINTER )(NULL));
-    result__PTJH=((__POINTER *)ptr_table__OTJH)[ 0];
-    if ((result__PTJH == (void *)NULL)) {
-      result__PTJH=new_lab__RTJ(new_size__1CHH);
-      next__NTJH=(void *)((unsigned long)result__PTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1CHH)));
-      ((__POINTER *)next__NTJH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__OTJH)[ 0]=next__NTJH;
-    } else {
-      next__NTJH=((__POINTER *)result__PTJH)[ 0];
-      if ((next__NTJH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PTJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__1CHH <<  1)) <=  4096)) {
-          next__NTJH=(void *)((unsigned long)result__PTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1CHH)));
-        } else {
-          next__NTJH=new_lab__RTJ(new_size__1CHH);
-        };
-        ((__POINTER *)next__NTJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__OTJH)[ 0]=next__NTJH;
-      } else {
-        ((__POINTER *)result__PTJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__PTJH=next__NTJH;
-      };
-    };
-    ((__POINTER *)result__PTJH)[ 0]=((__POINTER ) 3);
-    result__VCHH=(void *)((unsigned long)result__PTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__VCHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__YCHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__42TB=((void **)result__VCHH);
-  Self__34MC=(__INTEGER)(nb_elements__Y5QB -  1);
-  while ((Self__34MC >=  0)) {
-    Result__42TB[Self__34MC]=NULL;
-    Self__34MC=(__INTEGER)(Self__34MC -  1);
-  };
-  return(Result__42TB);
-}
-
-static void* fast_reference_at__R3T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__S3T,void *k__T3T)
-// ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *result__43T;
-  void *node__33T;
-  result__43T=NULL;
-  node__33T=((void **)Self__S3T->buckets__F4T)[(__INTEGER)(hash_code__RNW(k__T3T) % Self__S3T->capacity__A4T)];
-  while ((! (((void *)node__33T == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__33T)->key__R4T == (void *)k__T3T)))) {
-    node__33T=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__33T)->next__24T;
-  };
-  if (((void *)node__33T != (void *)NULL)) {
-    result__43T=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__33T)->item__E5T;
-  };
-  return(result__43T);
-}
-
-static void** create__QMHE(__INTEGER nb_elements__SMHE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__5CHH,a__4CHH,new_size__ADHH,new_size2__BDHH,a__CDHH;
-  __UINTEGER_32 new_size__DDHH;
-  __POINTER result__3CHH,ptr_table__TTJH,next__STJH,result__UTJH;
-  __INTEGER Self__AVYE;
-  void **Result__J4ME;
-  sz__5CHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__SMHE * ((__INTEGER )(sizeof(void *)))));
-  result__3CHH=((__POINTER )(NULL));
-  a__4CHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ADHH=(__UINTEGER_32)((__UINTEGER_32)(sz__5CHH + a__4CHH) & (__UINTEGER_32)(~ a__4CHH));
-  new_size2__BDHH=(__UINTEGER_32)(new_size__ADHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__BDHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__CDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__DDHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BDHH + a__CDHH) & (__UINTEGER_32)(~ a__CDHH));
-    ptr_table__TTJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DDHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__STJH=((__POINTER )(NULL));
-    result__UTJH=((__POINTER *)ptr_table__TTJH)[ 0];
-    if ((result__UTJH == (void *)NULL)) {
-      result__UTJH=new_lab__RTJ(new_size__DDHH);
-      next__STJH=(void *)((unsigned long)result__UTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DDHH)));
-      ((__POINTER *)next__STJH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__TTJH)[ 0]=next__STJH;
-    } else {
-      next__STJH=((__POINTER *)result__UTJH)[ 0];
-      if ((next__STJH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UTJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__DDHH <<  1)) <=  4096)) {
-          next__STJH=(void *)((unsigned long)result__UTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DDHH)));
-        } else {
-          next__STJH=new_lab__RTJ(new_size__DDHH);
-        };
-        ((__POINTER *)next__STJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__TTJH)[ 0]=next__STJH;
-      } else {
-        ((__POINTER *)result__UTJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__STJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__UTJH=next__STJH;
-      };
-    };
-    ((__POINTER *)result__UTJH)[ 0]=((__POINTER ) 3);
-    result__3CHH=(void *)((unsigned long)result__UTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__3CHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ADHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__J4ME=((void **)result__3CHH);
-  Self__AVYE=(__INTEGER)(nb_elements__SMHE -  1);
-  while ((Self__AVYE >=  0)) {
-    Result__J4ME[Self__AVYE]=NULL;
-    Self__AVYE=(__INTEGER)(Self__AVYE -  1);
-  };
-  return(Result__J4ME);
-}
-
-static __BOOLEAN has__PPW(__HASHED_SEToABSTRACT_STRINGo *Self__QPW,void *e__RPW)
-// ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__0PW;
-  node__0PW=((void **)Self__QPW->buckets__0ZR)[(__INTEGER)(hash_code__RNW(e__RPW) % Self__QPW->capacity__VZR)];
-  while ((! (((void *)node__0PW == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__0PW)->item__G0R,e__RPW)))) {
-    node__0PW=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__0PW)->next__S0R;
-  };
-  return(((void *)node__0PW != (void *)NULL));
-}
-
-static void increase_capacity__XONB(__HASHED_SEToABSTRACT_STRINGo *Self__YONB)
-// ({HASHED_SEToABSTRACT_STRINGo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER idx__0ONB,new_capacity__1ONB,i__ZONB;
-  void *node1__3ONB,*node2__4ONB;
-  void **old_buckets__2ONB;
-  idx__0ONB= 0;
-  node1__3ONB=NULL;
-  node2__4ONB=NULL;
-  new_capacity__1ONB=prime_number_ceiling__021((__INTEGER)(Self__YONB->capacity__VZR +  1));
-  old_buckets__2ONB=Self__YONB->buckets__0ZR;
-  Self__YONB->buckets__0ZR=create__EI2(new_capacity__1ONB);
-  i__ZONB=(__INTEGER)(Self__YONB->capacity__VZR -  1);
-  Self__YONB->capacity__VZR=new_capacity__1ONB;
-  while ((i__ZONB >=  0)) {
-    node1__3ONB=((void **)old_buckets__2ONB)[i__ZONB];
-    while (((void *)node1__3ONB != (void *)NULL)) {
-      node2__4ONB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__3ONB)->next__S0R;
-      idx__0ONB=(__INTEGER)(hash_code__RNW(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__3ONB)->item__G0R) % Self__YONB->capacity__VZR);
-      ((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__3ONB)->next__S0R=((void **)Self__YONB->buckets__0ZR)[idx__0ONB];
-      ((void **)Self__YONB->buckets__0ZR)[idx__0ONB]=node1__3ONB;
-      node1__3ONB=node2__4ONB;
-    };
-    i__ZONB=(__INTEGER)(i__ZONB -  1);
-  };
-}
-
-static void put_string__AKF(void *s__CKF)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__TKF,Self__IDG,limit_up__JDG;
-  __CHARACTER *__tmp__BPFH,*__tmp__41GH;
-  __CHARACTER __tmp__0KF;
-  if (((struct ___OBJ *)s__CKF)->__id==__STRING_CONSTANT__) {
-  };
-  if (((struct ___OBJ *)s__CKF)->__id==__STRING_CONSTANT__) {
-    __tmp__TKF=((__STRING_CONSTANT *)s__CKF)->count__DD;
-  } else {
-    __tmp__TKF=((__STRING *)s__CKF)->count__SGC;
-  };
-  Self__IDG= 1;
-  limit_up__JDG=__tmp__TKF;
-  __tmp__BPFH=((__STRING *)s__CKF)->storage__3CS;
-  __tmp__41GH=((__STRING_CONSTANT *)s__CKF)->storage__RRO;
-  while ((Self__IDG <= limit_up__JDG)) {
-    if (((struct ___OBJ *)s__CKF)->__id==__STRING_CONSTANT__) {
-      __tmp__0KF=((__CHARACTER *)__tmp__41GH)[(__INTEGER)(Self__IDG -  1)];
-    } else {
-      __tmp__0KF=((__CHARACTER *)__tmp__BPFH)[(__INTEGER)(Self__IDG -  1)];
-    };
-    fputc((int)(__tmp__0KF),stdout);
-    Self__IDG=(__INTEGER)(Self__IDG +  1);
-  };
-}
-
-static __INTEGER hash_code__UFX(__STRING *Self__VFX)
-// ({STRING}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__XFX,__tmp__YFX,Self__QT2;
-  __CHARACTER *__tmp__HFEH;
-  result__XFX= 0;
-  __tmp__YFX=Self__VFX->count__SGC;
-  Self__QT2= 1;
-  __tmp__HFEH=Self__VFX->storage__3CS;
-  while ((Self__QT2 <= __tmp__YFX)) {
-    result__XFX=(__INTEGER)((__INTEGER)( 5 * result__XFX) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__HFEH)[(__INTEGER)(Self__QT2 -  1)])));
-    Self__QT2=(__INTEGER)(Self__QT2 +  1);
-  };
-  if ((result__XFX <  0)) {
-    result__XFX=(__INTEGER)(~ result__XFX);
-  };
-  return(result__XFX);
-}
-
-static __BOOLEAN fast_has__CAY(__HASHED_SEToABSTRACT_STRINGo *Self__DAY,void *e__EAY)
-// ({HASHED_SEToABSTRACT_STRINGo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__NAY;
-  node__NAY=((void **)Self__DAY->buckets__0ZR)[(__INTEGER)(hash_code__RNW(e__EAY) % Self__DAY->capacity__VZR)];
-  while ((! (((void *)node__NAY == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__NAY)->item__G0R == (void *)e__EAY)))) {
-    node__NAY=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__NAY)->next__S0R;
-  };
-  return(((void *)node__NAY != (void *)NULL));
-}
-
-static void from_external__YZS(__STRING *Self__ZZS,__CHARACTER *p__0ZS)
-// ({STRING},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo}) VoidNo recursive, No inlinable.
-{
-  Self__ZZS->count__SGC= 0;
-  while ((((__CHARACTER *)p__0ZS)[Self__ZZS->count__SGC] != '\0')) {
-    Self__ZZS->count__SGC=(__INTEGER)(Self__ZZS->count__SGC +  1);
-  };
-  if (((void *)Self__ZZS->storage__3CS != (void *)p__0ZS)) {
-    Self__ZZS->storage__3CS=p__0ZS;
-    Self__ZZS->capacity__UCS=(__INTEGER)(Self__ZZS->count__SGC +  1);
-  };
-}
-
-static void* physical_get_entry__REF(void *new_path__TEF)
-// ({NULLxSTRING}) With resultNo recursive, No inlinable.
-{
-  void *result__WEF;
-  __STRING *Self__51GH;
-  __INTEGER new_capacity__N3HH,old_nb_elts__Q3HH,upper__0TJH,Self__YTJH;
-  __INTEGER typ_id__4TJH,typ_id__QUJH;
-  __FILE_UNIX *result__2TJH;
-  __POINTER ptr__3TJH,ptr_table__FUJH,next__EUJH,result__GUJH;
-  __POINTER ptr_table__KUJH,next__JUJH,result__LUJH,ptr__PUJH;
-  __POINTER ptr_table__XUJH,next__WUJH,result__YUJH,ptr_table__2UJH;
-  __POINTER next__1UJH,result__3UJH;
-  __UINTEGER_32 sz__5TJH,a__AUJH,new_size__BUJH,t__CUJH,a__DUJH;
-  __UINTEGER_32 new_size__NUJH,lab_type__MUJH,sz__RUJH,a__SUJH;
-  __UINTEGER_32 new_size__TUJH,t__UUJH,a__VUJH,new_size__5UJH;
-  __UINTEGER_32 lab_type__4UJH;
-  __DIRECTORY_UNIX *result__OUJH;
-  void *__tmp__PFF;
-  __CHARACTER *Self__P3HH,*new__R3HH,*pe__VEF;
-  result__WEF=NULL;
-  Self__51GH=((__STRING *)new_path__TEF);
-  if ((Self__51GH->capacity__UCS > Self__51GH->count__SGC)) {
-    ((__CHARACTER *)Self__51GH->storage__3CS)[Self__51GH->count__SGC]='\0';
-  } else {
-    new_capacity__N3HH= 0;
-    if ((Self__51GH->capacity__UCS <= Self__51GH->count__SGC)) {
-      if ((Self__51GH->capacity__UCS ==  0)) {
-        Self__51GH->capacity__UCS= 32;
-        Self__51GH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__N3HH=(__INTEGER)(Self__51GH->capacity__UCS <<  1);
-        Self__P3HH=((__CHARACTER *)Self__51GH->storage__3CS);
-        old_nb_elts__Q3HH=Self__51GH->capacity__UCS;
-        new__R3HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__P3HH),((__UINTEGER_32 )old_nb_elts__Q3HH),((__UINTEGER_32 )new_capacity__N3HH)));
-        upper__0TJH=(__INTEGER)(new_capacity__N3HH -  1);
-        Self__YTJH=old_nb_elts__Q3HH;
-        while ((Self__YTJH <= upper__0TJH)) {
-          new__R3HH[Self__YTJH]='\0';
-          Self__YTJH=(__INTEGER)(Self__YTJH +  1);
-        };
-        Self__51GH->storage__3CS=new__R3HH;
-        Self__51GH->capacity__UCS=new_capacity__N3HH;
-      };
-    };
-    ((__CHARACTER *)Self__51GH->storage__3CS)[Self__51GH->count__SGC]='\0';
-    Self__51GH->count__SGC=(__INTEGER)(Self__51GH->count__SGC +  1);
-    Self__51GH->count__SGC=(__INTEGER)(Self__51GH->count__SGC -  1);
-  };
-  pe__VEF=Self__51GH->storage__3CS;
-  { struct stat t;
-  if ((((__INTEGER )(stat((pe__VEF),&t))) ==  0)) {
-    if ((((__INTEGER )(S_ISDIR(t.st_mode))) ==  0)) {
-      result__2TJH=NULL;
-      ptr__3TJH=((__POINTER )(NULL));
-      typ_id__4TJH= 0;
-      sz__5TJH=((__UINTEGER_32 )sizeof(__FILE_UNIX));
-      if ((sz__5TJH ==  0)) {
-        result__2TJH=FILE_UNIX__;
-      } else {
-        typ_id__4TJH=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5TJH);
-        if ((typ_id__4TJH == (__INTEGER)(-  1))) {
-          a__AUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__BUJH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TJH + a__AUJH) & (__UINTEGER_32)(~ a__AUJH));
-          ptr_table__FUJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BUJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__EUJH=((__POINTER )(NULL));
-          result__GUJH=((__POINTER *)ptr_table__FUJH)[ 0];
-          if ((result__GUJH == (void *)NULL)) {
-            result__GUJH=new_lab__RTJ(new_size__BUJH);
-            next__EUJH=(void *)((unsigned long)result__GUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUJH)));
-            ((__POINTER *)next__EUJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FUJH)[ 0]=next__EUJH;
-          } else {
-            next__EUJH=((__POINTER *)result__GUJH)[ 0];
-            if ((next__EUJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GUJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__BUJH <<  1)) <=  4096)) {
-                next__EUJH=(void *)((unsigned long)result__GUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUJH)));
-              } else {
-                next__EUJH=new_lab__RTJ(new_size__BUJH);
-              };
-              ((__POINTER *)next__EUJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FUJH)[ 0]=next__EUJH;
-            } else {
-              ((__POINTER *)result__GUJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EUJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__GUJH=next__EUJH;
-            };
-          };
-          ptr__3TJH=result__GUJH;
-        } else {
-          t__CUJH=((__UINTEGER_32 )typ_id__4TJH);
-          a__DUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__NUJH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TJH + a__DUJH) & (__UINTEGER_32)(~ a__DUJH));
-          ptr_table__KUJH=((__POINTER )(&(table_type[(t__CUJH)])));
-          lab_type__MUJH=(__UINTEGER_32)(t__CUJH |  1);
-          next__JUJH=((__POINTER )(NULL));
-          result__LUJH=((__POINTER *)ptr_table__KUJH)[ 0];
-          if ((result__LUJH == (void *)NULL)) {
-            result__LUJH=new_lab__RTJ(lab_type__MUJH);
-            next__JUJH=(void *)((unsigned long)result__LUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUJH)));
-            ((__POINTER *)next__JUJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__KUJH)[ 0]=next__JUJH;
-          } else {
-            next__JUJH=((__POINTER *)result__LUJH)[ 0];
-            if ((next__JUJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LUJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NUJH <<  1)) <=  4096)) {
-                next__JUJH=(void *)((unsigned long)result__LUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUJH)));
-              } else {
-                next__JUJH=new_lab__RTJ(lab_type__MUJH);
-              };
-              ((__POINTER *)next__JUJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__KUJH)[ 0]=next__JUJH;
-            } else {
-              ((__POINTER *)result__LUJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JUJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__LUJH=next__JUJH;
-            };
-          };
-          ptr__3TJH=result__LUJH;
-        };
-        result__2TJH=((__FILE_UNIX *)ptr__3TJH);
-        *(result__2TJH) = *(FILE_UNIX__);
-      };
-      result__WEF=result__2TJH;
-    } else {
-      result__OUJH=NULL;
-      ptr__PUJH=((__POINTER )(NULL));
-      typ_id__QUJH= 0;
-      sz__RUJH=((__UINTEGER_32 )sizeof(__DIRECTORY_UNIX));
-      if ((sz__RUJH ==  0)) {
-        result__OUJH=DIRECTORY_UNIX__;
-      } else {
-        typ_id__QUJH=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__RUJH);
-        if ((typ_id__QUJH == (__INTEGER)(-  1))) {
-          a__SUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__TUJH=(__UINTEGER_32)((__UINTEGER_32)(sz__RUJH + a__SUJH) & (__UINTEGER_32)(~ a__SUJH));
-          ptr_table__XUJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TUJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__WUJH=((__POINTER )(NULL));
-          result__YUJH=((__POINTER *)ptr_table__XUJH)[ 0];
-          if ((result__YUJH == (void *)NULL)) {
-            result__YUJH=new_lab__RTJ(new_size__TUJH);
-            next__WUJH=(void *)((unsigned long)result__YUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TUJH)));
-            ((__POINTER *)next__WUJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__XUJH)[ 0]=next__WUJH;
-          } else {
-            next__WUJH=((__POINTER *)result__YUJH)[ 0];
-            if ((next__WUJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YUJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__TUJH <<  1)) <=  4096)) {
-                next__WUJH=(void *)((unsigned long)result__YUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TUJH)));
-              } else {
-                next__WUJH=new_lab__RTJ(new_size__TUJH);
-              };
-              ((__POINTER *)next__WUJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__XUJH)[ 0]=next__WUJH;
-            } else {
-              ((__POINTER *)result__YUJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WUJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__YUJH=next__WUJH;
-            };
-          };
-          ptr__PUJH=result__YUJH;
-        } else {
-          t__UUJH=((__UINTEGER_32 )typ_id__QUJH);
-          a__VUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__5UJH=(__UINTEGER_32)((__UINTEGER_32)(sz__RUJH + a__VUJH) & (__UINTEGER_32)(~ a__VUJH));
-          ptr_table__2UJH=((__POINTER )(&(table_type[(t__UUJH)])));
-          lab_type__4UJH=(__UINTEGER_32)(t__UUJH |  1);
-          next__1UJH=((__POINTER )(NULL));
-          result__3UJH=((__POINTER *)ptr_table__2UJH)[ 0];
-          if ((result__3UJH == (void *)NULL)) {
-            result__3UJH=new_lab__RTJ(lab_type__4UJH);
-            next__1UJH=(void *)((unsigned long)result__3UJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UJH)));
-            ((__POINTER *)next__1UJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__2UJH)[ 0]=next__1UJH;
-          } else {
-            next__1UJH=((__POINTER *)result__3UJH)[ 0];
-            if ((next__1UJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3UJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5UJH <<  1)) <=  4096)) {
-                next__1UJH=(void *)((unsigned long)result__3UJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UJH)));
-              } else {
-                next__1UJH=new_lab__RTJ(lab_type__4UJH);
-              };
-              ((__POINTER *)next__1UJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__2UJH)[ 0]=next__1UJH;
-            } else {
-              ((__POINTER *)result__3UJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1UJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__3UJH=next__1UJH;
-            };
-          };
-          ptr__PUJH=result__3UJH;
-        };
-        result__OUJH=((__DIRECTORY_UNIX *)ptr__PUJH);
-        *(result__OUJH) = *(DIRECTORY_UNIX__);
-      };
-      result__WEF=result__OUJH;
-    };
-    if (((struct ___OBJ *)result__WEF)->__id==__DIRECTORY_UNIX__) {
-      set_path__HPT(result__WEF,new_path__TEF);
-    } else {
-      set_path__CQT(result__WEF,new_path__TEF);
-    };
-    if (((struct ___OBJ *)result__WEF)->__id==__DIRECTORY_UNIX__) {
-      __tmp__PFF=((__DIRECTORY_UNIX *)result__WEF)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-    } else {
-      __tmp__PFF=((__FILE_UNIX *)result__WEF)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-    };
-    put__to__N1S(alias__2GD,result__WEF,__tmp__PFF);
-  };
-  };
-  return(result__WEF);
-}
-
-static void put__to__N1S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__O1S,void *v__P1S,void *k__Q1S)
-// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxDIRECTORY_UNIXxFILE_UNIX},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER h__X1S,idx__Y1S,idx__5KOB,new_capacity__ALOB,i__BLOB;
-  __INTEGER typ_id__PNOB;
-  __POINTER ptr__KNOB,ptr_table__BVJH,next__AVJH,result__CVJH;
-  __POINTER ptr_table__GVJH,next__FVJH,result__HVJH;
-  __UINTEGER_32 sz__MNOB,a__5PFH,new_size__AQFH,t__EQFH,a__DQFH;
-  __UINTEGER_32 new_size__JVJH,lab_type__IVJH;
-  void *node__01S,*node1__DLOB,*node2__ELOB,*__tmp__P3S;
-  void **old_buckets__CLOB;
-  __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *result__JNOB;
-  __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *Self__QXDC;
-  h__X1S=hash_code__RNW(k__Q1S);
-  idx__Y1S=(__INTEGER)(h__X1S % Self__O1S->capacity__21S);
-  node__01S=((void **)Self__O1S->buckets__B2S)[idx__Y1S];
-  while ((! (((void *)node__01S == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__01S)->key__N2S,k__Q1S)))) {
-    node__01S=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__01S)->next__Z2S;
-  };
-  if (((void *)node__01S == (void *)NULL)) {
-    if ((Self__O1S->capacity__21S == Self__O1S->count__C3S)) {
-      idx__5KOB= 0;
-      node1__DLOB=NULL;
-      node2__ELOB=NULL;
-      old_buckets__CLOB=Self__O1S->buckets__B2S;
-      new_capacity__ALOB=prime_number_ceiling__021((__INTEGER)(Self__O1S->capacity__21S +  1));
-      Self__O1S->buckets__B2S=create__QA4(new_capacity__ALOB);
-      i__BLOB=(__INTEGER)(Self__O1S->capacity__21S -  1);
-      Self__O1S->capacity__21S=new_capacity__ALOB;
-      while ((i__BLOB >=  0)) {
-        node1__DLOB=((void **)old_buckets__CLOB)[i__BLOB];
-        while (((void *)node1__DLOB != (void *)NULL)) {
-          node2__ELOB=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__DLOB)->next__Z2S;
-          idx__5KOB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__DLOB)->key__N2S) % Self__O1S->capacity__21S);
-          ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__DLOB)->next__Z2S=((void **)Self__O1S->buckets__B2S)[idx__5KOB];
-          ((void **)Self__O1S->buckets__B2S)[idx__5KOB]=node1__DLOB;
-          node1__DLOB=node2__ELOB;
-        };
-        i__BLOB=(__INTEGER)(i__BLOB -  1);
-      };
-      idx__Y1S=(__INTEGER)(h__X1S % Self__O1S->capacity__21S);
-    };
-    __tmp__P3S=((void **)Self__O1S->buckets__B2S)[idx__Y1S];
-    result__JNOB=NULL;
-    ptr__KNOB=((__POINTER )(NULL));
-    typ_id__PNOB= 0;
-    sz__MNOB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo));
-    if ((sz__MNOB ==  0)) {
-      result__JNOB=HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
-    } else {
-      typ_id__PNOB=__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MNOB);
-      if ((typ_id__PNOB == (__INTEGER)(-  1))) {
-        a__5PFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__AQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNOB + a__5PFH) & (__UINTEGER_32)(~ a__5PFH));
-        ptr_table__BVJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__AVJH=((__POINTER )(NULL));
-        result__CVJH=((__POINTER *)ptr_table__BVJH)[ 0];
-        if ((result__CVJH == (void *)NULL)) {
-          result__CVJH=new_lab__RTJ(new_size__AQFH);
-          next__AVJH=(void *)((unsigned long)result__CVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AQFH)));
-          ((__POINTER *)next__AVJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BVJH)[ 0]=next__AVJH;
-        } else {
-          next__AVJH=((__POINTER *)result__CVJH)[ 0];
-          if ((next__AVJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CVJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__AQFH <<  1)) <=  4096)) {
-              next__AVJH=(void *)((unsigned long)result__CVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AQFH)));
-            } else {
-              next__AVJH=new_lab__RTJ(new_size__AQFH);
-            };
-            ((__POINTER *)next__AVJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BVJH)[ 0]=next__AVJH;
-          } else {
-            ((__POINTER *)result__CVJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AVJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__CVJH=next__AVJH;
-          };
-        };
-        ptr__KNOB=result__CVJH;
-      } else {
-        t__EQFH=((__UINTEGER_32 )typ_id__PNOB);
-        a__DQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__JVJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNOB + a__DQFH) & (__UINTEGER_32)(~ a__DQFH));
-        ptr_table__GVJH=((__POINTER )(&(table_type[(t__EQFH)])));
-        lab_type__IVJH=(__UINTEGER_32)(t__EQFH |  1);
-        next__FVJH=((__POINTER )(NULL));
-        result__HVJH=((__POINTER *)ptr_table__GVJH)[ 0];
-        if ((result__HVJH == (void *)NULL)) {
-          result__HVJH=new_lab__RTJ(lab_type__IVJH);
-          next__FVJH=(void *)((unsigned long)result__HVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVJH)));
-          ((__POINTER *)next__FVJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GVJH)[ 0]=next__FVJH;
-        } else {
-          next__FVJH=((__POINTER *)result__HVJH)[ 0];
-          if ((next__FVJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HVJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JVJH <<  1)) <=  4096)) {
-              next__FVJH=(void *)((unsigned long)result__HVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVJH)));
-            } else {
-              next__FVJH=new_lab__RTJ(lab_type__IVJH);
-            };
-            ((__POINTER *)next__FVJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GVJH)[ 0]=next__FVJH;
-          } else {
-            ((__POINTER *)result__HVJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FVJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__HVJH=next__FVJH;
-          };
-        };
-        ptr__KNOB=result__HVJH;
-      };
-      result__JNOB=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)ptr__KNOB);
-      *(result__JNOB) = *(HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__);
-    };
-    Self__QXDC=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)result__JNOB);
-    Self__QXDC->item__TPOB=v__P1S;
-    Self__QXDC->key__N2S=k__Q1S;
-    Self__QXDC->next__Z2S=__tmp__P3S;
-    node__01S=result__JNOB;
-    ((void **)Self__O1S->buckets__B2S)[idx__Y1S]=result__JNOB;
-    Self__O1S->count__C3S=(__INTEGER)(Self__O1S->count__C3S +  1);
-  } else {
-    ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__01S)->item__TPOB=v__P1S;
-  };
-}
-
-static void reduce_path__J3HC(void *st__L3HC)
-// ({NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER stat__N3HC,i__M3HC,Self__ATOE,n__GDHH,idx__44HC,n__IDHH;
-  __INTEGER Self__2MFF,n__KDHH,idx__EDIC,new_capacity__T3HH;
-  __INTEGER old_nb_elts__W3HH,upper__QVJH,Self__OVJH;
-  __STRING *Self__FDHH,*Self__HDHH,*Self__JDHH,*Self__IQFH,*Self__KQFH;
-  __STRING *Self__U3HH;
-  __CHARACTER car__O3HC,Self__LVJH;
-  __BOOLEAN __tmp__V5HC,__tmp__0AIC,result__KLHE,result__KVJH;
-  __BOOLEAN __tmp__MVJH,__tmp__1BIC;
-  __CHARACTER *Self__V3HH,*new__X3HH;
-  stat__N3HC= 0;
-  car__O3HC='\0';
-  replace_all__with__CRS(st__L3HC,'\\','/');
-  i__M3HC= 1;
-  while ((i__M3HC <= ((__STRING *)st__L3HC)->count__SGC)) {
-    car__O3HC=((__CHARACTER *)((__STRING *)st__L3HC)->storage__3CS)[(__INTEGER)(i__M3HC -  1)];
-    if ((car__O3HC == '/')) {
-      Self__ATOE=stat__N3HC;
-      if ((stat__N3HC ==  0)) {
-        stat__N3HC= 1;
-      };
-      if ((Self__ATOE ==  1)) {
-        Self__FDHH=((__STRING *)st__L3HC);
-        n__GDHH=(__INTEGER)(i__M3HC -  1);
-        if ((n__GDHH > Self__FDHH->count__SGC)) {
-          Self__FDHH->count__SGC= 0;
-        } else {
-          if ((n__GDHH >  0)) {
-            remove_between__to__MIT(Self__FDHH, 1,n__GDHH);
-          };
-        };
-        i__M3HC= 1;
-      };
-      if ((Self__ATOE ==  2)) {
-        remove_between__to__MIT(st__L3HC,(__INTEGER)(i__M3HC -  1),i__M3HC);
-        i__M3HC=(__INTEGER)(i__M3HC -  2);
-        stat__N3HC= 1;
-      };
-      if ((Self__ATOE ==  3)) {
-        idx__44HC=last_index_of__since__KPGD(st__L3HC,(__INTEGER)(i__M3HC -  4));
-        if ((idx__44HC ==  0)) {
-          Self__HDHH=((__STRING *)st__L3HC);
-          n__IDHH=(__INTEGER)(i__M3HC -  1);
-          if ((n__IDHH > Self__HDHH->count__SGC)) {
-            Self__HDHH->count__SGC= 0;
-          } else {
-            if ((n__IDHH >  0)) {
-              remove_between__to__MIT(Self__HDHH, 1,n__IDHH);
-            };
-          };
-          i__M3HC= 1;
-        } else {
-          remove_between__to__MIT(st__L3HC,idx__44HC,(__INTEGER)(i__M3HC -  1));
-          i__M3HC=idx__44HC;
-        };
-        stat__N3HC= 1;
-      };
-      __tmp__V5HC=TRUE__;
-    } else {
-      __tmp__V5HC=FALSE__;
-    };
-    if (__tmp__V5HC) {
-      __tmp__0AIC=TRUE__;
-    } else {
-      result__KLHE=(car__O3HC == '.');
-      if (result__KLHE) {
-        Self__2MFF=stat__N3HC;
-        if ((stat__N3HC ==  1)) {
-          stat__N3HC= 2;
-        };
-        if ((Self__2MFF ==  2)) {
-          stat__N3HC= 3;
-        };
-        if ((Self__2MFF ==  3)) {
-          stat__N3HC= 0;
-        };
-      };
-      __tmp__0AIC=result__KLHE;
-    };
-    if ((! __tmp__0AIC)) {
-      if (((car__O3HC == ':') && (i__M3HC >  2))) {
-        Self__LVJH=((__CHARACTER *)((__STRING *)st__L3HC)->storage__3CS)[(__INTEGER)((__INTEGER)(i__M3HC -  1) -  1)];
-        result__KVJH=FALSE__;
-        if ((((__INTEGER_8 )Self__LVJH) >= ((__INTEGER_8 )'a'))) {
-          result__KVJH=(((__INTEGER_8 )Self__LVJH) <= ((__INTEGER_8 )'z'));
-          __tmp__MVJH=TRUE__;
-        } else {
-          __tmp__MVJH=FALSE__;
-        };
-        if ((! __tmp__MVJH)) {
-          if ((((__INTEGER_8 )Self__LVJH) >= ((__INTEGER_8 )'A'))) {
-            result__KVJH=(((__INTEGER_8 )Self__LVJH) <= ((__INTEGER_8 )'Z'));
-          };
-        };
-        __tmp__1BIC=result__KVJH;
-      } else {
-        __tmp__1BIC=FALSE__;
-      };
-      if ((__tmp__1BIC && (((__CHARACTER *)((__STRING *)st__L3HC)->storage__3CS)[(__INTEGER)((__INTEGER)(i__M3HC -  2) -  1)] == '/'))) {
-        Self__JDHH=((__STRING *)st__L3HC);
-        n__KDHH=(__INTEGER)(i__M3HC -  2);
-        if ((n__KDHH > Self__JDHH->count__SGC)) {
-          Self__JDHH->count__SGC= 0;
-        } else {
-          if ((n__KDHH >  0)) {
-            remove_between__to__MIT(Self__JDHH, 1,n__KDHH);
-          };
-        };
-        i__M3HC= 1;
-      } else {
-        stat__N3HC= 0;
-      };
-    };
-    i__M3HC=(__INTEGER)(i__M3HC +  1);
-  };
-  if ((stat__N3HC ==  1)) {
-    Self__IQFH=((__STRING *)st__L3HC);
-    if (( 1 > Self__IQFH->count__SGC)) {
-      Self__IQFH->count__SGC= 0;
-    } else {
-      Self__IQFH->count__SGC=(__INTEGER)(Self__IQFH->count__SGC -  1);
-    };
-  };
-  if ((stat__N3HC ==  2)) {
-    Self__KQFH=((__STRING *)st__L3HC);
-    if (( 2 > Self__KQFH->count__SGC)) {
-      Self__KQFH->count__SGC= 0;
-    } else {
-      Self__KQFH->count__SGC=(__INTEGER)(Self__KQFH->count__SGC -  2);
-    };
-  };
-  if ((stat__N3HC ==  3)) {
-    idx__EDIC=last_index_of__since__KPGD(st__L3HC,(__INTEGER)(i__M3HC -  4));
-    if ((idx__EDIC ==  0)) {
-      ((__STRING *)st__L3HC)->count__SGC= 0;
-    } else {
-      remove_between__to__MIT(st__L3HC,idx__EDIC,(__INTEGER)(i__M3HC -  1));
-    };
-  };
-  if ((((__STRING *)st__L3HC)->count__SGC ==  0)) {
-    Self__U3HH=((__STRING *)st__L3HC);
-    new_capacity__T3HH= 0;
-    if ((Self__U3HH->capacity__UCS <= Self__U3HH->count__SGC)) {
-      if ((Self__U3HH->capacity__UCS ==  0)) {
-        Self__U3HH->capacity__UCS= 32;
-        Self__U3HH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__T3HH=(__INTEGER)(Self__U3HH->capacity__UCS <<  1);
-        Self__V3HH=((__CHARACTER *)Self__U3HH->storage__3CS);
-        old_nb_elts__W3HH=Self__U3HH->capacity__UCS;
-        new__X3HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__V3HH),((__UINTEGER_32 )old_nb_elts__W3HH),((__UINTEGER_32 )new_capacity__T3HH)));
-        upper__QVJH=(__INTEGER)(new_capacity__T3HH -  1);
-        Self__OVJH=old_nb_elts__W3HH;
-        while ((Self__OVJH <= upper__QVJH)) {
-          new__X3HH[Self__OVJH]='\0';
-          Self__OVJH=(__INTEGER)(Self__OVJH +  1);
-        };
-        Self__U3HH->storage__3CS=new__X3HH;
-        Self__U3HH->capacity__UCS=new_capacity__T3HH;
-      };
-    };
-    ((__CHARACTER *)Self__U3HH->storage__3CS)[Self__U3HH->count__SGC]='/';
-    Self__U3HH->count__SGC=(__INTEGER)(Self__U3HH->count__SGC +  1);
-  };
-}
-
-static void* reference_at__VV0C(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__WV0C,void *k__XV0C)
-// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxSTRING}) With resultNo recursive, No inlinable.
-{
-  void *result__BW0C;
-  void *node__AW0C;
-  result__BW0C=NULL;
-  node__AW0C=((void **)Self__WV0C->buckets__B2S)[(__INTEGER)(hash_code__UFX(k__XV0C) % Self__WV0C->capacity__21S)];
-  while ((! (((void *)node__AW0C == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__AW0C)->key__N2S,k__XV0C)))) {
-    node__AW0C=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__AW0C)->next__Z2S;
-  };
-  if (((void *)node__AW0C != (void *)NULL)) {
-    result__BW0C=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__AW0C)->item__TPOB;
-  };
-  return(result__BW0C);
-}
-
-static __INTEGER fast_reverse_index_of__from__KA3(__CHARACTER *Self__LA3,__CHARACTER element__MA3,__INTEGER upper__NA3)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo},{CHARACTER},{INTEGER}) With resultNo recursive, No inlinable.
-{
-  __INTEGER idx__XA3;
-  idx__XA3=upper__NA3;
-  while ((! ((idx__XA3 <  0) || (element__MA3 == Self__LA3[idx__XA3])))) {
-    idx__XA3=(__INTEGER)(idx__XA3 -  1);
-  };
-  return(idx__XA3);
-}
-
-static void* physical_get_entry__JY0C(void *new_path__LY0C)
-// ({NULLxSTRING}) With resultNo recursive, No inlinable.
-{
-  void *result__OY0C;
-  __STRING *Self__A2GH;
-  __INTEGER new_capacity__Z3HH,old_nb_elts__23HH,upper__VVJH,Self__TVJH;
-  __INTEGER typ_id__J0I,typ_id__01I;
-  __FILE_UNIX *result__D0I;
-  __POINTER ptr__E0I,ptr_table__YVJH,next__XVJH,result__ZVJH;
-  __POINTER ptr_table__3VJH,next__2VJH,result__4VJH,ptr__V1I;
-  __POINTER ptr_table__CWJH,next__BWJH,result__DWJH,ptr_table__HWJH;
-  __POINTER next__GWJH,result__IWJH;
-  __UINTEGER_32 sz__G0I,a__Y1FH,new_size__Z1FH,t__31FH,a__21FH;
-  __UINTEGER_32 new_size__AWJH,lab_type__5VJH,sz__X1I,a__A2FH;
-  __UINTEGER_32 new_size__B2FH,t__F2FH,a__E2FH,new_size__KWJH;
-  __UINTEGER_32 lab_type__JWJH;
-  __DIRECTORY_UNIX *result__U1I;
-  void *__tmp__FZ0C;
-  __CHARACTER *Self__13HH,*new__33HH,*pe__NY0C;
-  result__OY0C=NULL;
-  Self__A2GH=((__STRING *)new_path__LY0C);
-  if ((Self__A2GH->capacity__UCS > Self__A2GH->count__SGC)) {
-    ((__CHARACTER *)Self__A2GH->storage__3CS)[Self__A2GH->count__SGC]='\0';
-  } else {
-    new_capacity__Z3HH= 0;
-    if ((Self__A2GH->capacity__UCS <= Self__A2GH->count__SGC)) {
-      if ((Self__A2GH->capacity__UCS ==  0)) {
-        Self__A2GH->capacity__UCS= 32;
-        Self__A2GH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__Z3HH=(__INTEGER)(Self__A2GH->capacity__UCS <<  1);
-        Self__13HH=((__CHARACTER *)Self__A2GH->storage__3CS);
-        old_nb_elts__23HH=Self__A2GH->capacity__UCS;
-        new__33HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__13HH),((__UINTEGER_32 )old_nb_elts__23HH),((__UINTEGER_32 )new_capacity__Z3HH)));
-        upper__VVJH=(__INTEGER)(new_capacity__Z3HH -  1);
-        Self__TVJH=old_nb_elts__23HH;
-        while ((Self__TVJH <= upper__VVJH)) {
-          new__33HH[Self__TVJH]='\0';
-          Self__TVJH=(__INTEGER)(Self__TVJH +  1);
-        };
-        Self__A2GH->storage__3CS=new__33HH;
-        Self__A2GH->capacity__UCS=new_capacity__Z3HH;
-      };
-    };
-    ((__CHARACTER *)Self__A2GH->storage__3CS)[Self__A2GH->count__SGC]='\0';
-    Self__A2GH->count__SGC=(__INTEGER)(Self__A2GH->count__SGC +  1);
-    Self__A2GH->count__SGC=(__INTEGER)(Self__A2GH->count__SGC -  1);
-  };
-  pe__NY0C=Self__A2GH->storage__3CS;
-  { struct stat t;
-  if ((((__INTEGER )(stat((pe__NY0C),&t))) ==  0)) {
-    if ((((__INTEGER )(S_ISDIR(t.st_mode))) ==  0)) {
-      result__D0I=NULL;
-      ptr__E0I=((__POINTER )(NULL));
-      typ_id__J0I= 0;
-      sz__G0I=((__UINTEGER_32 )sizeof(__FILE_UNIX));
-      if ((sz__G0I ==  0)) {
-        result__D0I=FILE_UNIX__;
-      } else {
-        typ_id__J0I=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__G0I);
-        if ((typ_id__J0I == (__INTEGER)(-  1))) {
-          a__Y1FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__Z1FH=(__UINTEGER_32)((__UINTEGER_32)(sz__G0I + a__Y1FH) & (__UINTEGER_32)(~ a__Y1FH));
-          ptr_table__YVJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z1FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__XVJH=((__POINTER )(NULL));
-          result__ZVJH=((__POINTER *)ptr_table__YVJH)[ 0];
-          if ((result__ZVJH == (void *)NULL)) {
-            result__ZVJH=new_lab__RTJ(new_size__Z1FH);
-            next__XVJH=(void *)((unsigned long)result__ZVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z1FH)));
-            ((__POINTER *)next__XVJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__YVJH)[ 0]=next__XVJH;
-          } else {
-            next__XVJH=((__POINTER *)result__ZVJH)[ 0];
-            if ((next__XVJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZVJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__Z1FH <<  1)) <=  4096)) {
-                next__XVJH=(void *)((unsigned long)result__ZVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z1FH)));
-              } else {
-                next__XVJH=new_lab__RTJ(new_size__Z1FH);
-              };
-              ((__POINTER *)next__XVJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__YVJH)[ 0]=next__XVJH;
-            } else {
-              ((__POINTER *)result__ZVJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XVJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__ZVJH=next__XVJH;
-            };
-          };
-          ptr__E0I=result__ZVJH;
-        } else {
-          t__31FH=((__UINTEGER_32 )typ_id__J0I);
-          a__21FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__AWJH=(__UINTEGER_32)((__UINTEGER_32)(sz__G0I + a__21FH) & (__UINTEGER_32)(~ a__21FH));
-          ptr_table__3VJH=((__POINTER )(&(table_type[(t__31FH)])));
-          lab_type__5VJH=(__UINTEGER_32)(t__31FH |  1);
-          next__2VJH=((__POINTER )(NULL));
-          result__4VJH=((__POINTER *)ptr_table__3VJH)[ 0];
-          if ((result__4VJH == (void *)NULL)) {
-            result__4VJH=new_lab__RTJ(lab_type__5VJH);
-            next__2VJH=(void *)((unsigned long)result__4VJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWJH)));
-            ((__POINTER *)next__2VJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__3VJH)[ 0]=next__2VJH;
-          } else {
-            next__2VJH=((__POINTER *)result__4VJH)[ 0];
-            if ((next__2VJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__AWJH <<  1)) <=  4096)) {
-                next__2VJH=(void *)((unsigned long)result__4VJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWJH)));
-              } else {
-                next__2VJH=new_lab__RTJ(lab_type__5VJH);
-              };
-              ((__POINTER *)next__2VJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3VJH)[ 0]=next__2VJH;
-            } else {
-              ((__POINTER *)result__4VJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__4VJH=next__2VJH;
-            };
-          };
-          ptr__E0I=result__4VJH;
-        };
-        result__D0I=((__FILE_UNIX *)ptr__E0I);
-        *(result__D0I) = *(FILE_UNIX__);
-      };
-      result__OY0C=result__D0I;
-    } else {
-      result__U1I=NULL;
-      ptr__V1I=((__POINTER )(NULL));
-      typ_id__01I= 0;
-      sz__X1I=((__UINTEGER_32 )sizeof(__DIRECTORY_UNIX));
-      if ((sz__X1I ==  0)) {
-        result__U1I=DIRECTORY_UNIX__;
-      } else {
-        typ_id__01I=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__X1I);
-        if ((typ_id__01I == (__INTEGER)(-  1))) {
-          a__A2FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__B2FH=(__UINTEGER_32)((__UINTEGER_32)(sz__X1I + a__A2FH) & (__UINTEGER_32)(~ a__A2FH));
-          ptr_table__CWJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B2FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__BWJH=((__POINTER )(NULL));
-          result__DWJH=((__POINTER *)ptr_table__CWJH)[ 0];
-          if ((result__DWJH == (void *)NULL)) {
-            result__DWJH=new_lab__RTJ(new_size__B2FH);
-            next__BWJH=(void *)((unsigned long)result__DWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B2FH)));
-            ((__POINTER *)next__BWJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__CWJH)[ 0]=next__BWJH;
-          } else {
-            next__BWJH=((__POINTER *)result__DWJH)[ 0];
-            if ((next__BWJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__B2FH <<  1)) <=  4096)) {
-                next__BWJH=(void *)((unsigned long)result__DWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B2FH)));
-              } else {
-                next__BWJH=new_lab__RTJ(new_size__B2FH);
-              };
-              ((__POINTER *)next__BWJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__CWJH)[ 0]=next__BWJH;
-            } else {
-              ((__POINTER *)result__DWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__DWJH=next__BWJH;
-            };
-          };
-          ptr__V1I=result__DWJH;
-        } else {
-          t__F2FH=((__UINTEGER_32 )typ_id__01I);
-          a__E2FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__KWJH=(__UINTEGER_32)((__UINTEGER_32)(sz__X1I + a__E2FH) & (__UINTEGER_32)(~ a__E2FH));
-          ptr_table__HWJH=((__POINTER )(&(table_type[(t__F2FH)])));
-          lab_type__JWJH=(__UINTEGER_32)(t__F2FH |  1);
-          next__GWJH=((__POINTER )(NULL));
-          result__IWJH=((__POINTER *)ptr_table__HWJH)[ 0];
-          if ((result__IWJH == (void *)NULL)) {
-            result__IWJH=new_lab__RTJ(lab_type__JWJH);
-            next__GWJH=(void *)((unsigned long)result__IWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KWJH)));
-            ((__POINTER *)next__GWJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__HWJH)[ 0]=next__GWJH;
-          } else {
-            next__GWJH=((__POINTER *)result__IWJH)[ 0];
-            if ((next__GWJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IWJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__KWJH <<  1)) <=  4096)) {
-                next__GWJH=(void *)((unsigned long)result__IWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KWJH)));
-              } else {
-                next__GWJH=new_lab__RTJ(lab_type__JWJH);
-              };
-              ((__POINTER *)next__GWJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__HWJH)[ 0]=next__GWJH;
-            } else {
-              ((__POINTER *)result__IWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__IWJH=next__GWJH;
-            };
-          };
-          ptr__V1I=result__IWJH;
-        };
-        result__U1I=((__DIRECTORY_UNIX *)ptr__V1I);
-        *(result__U1I) = *(DIRECTORY_UNIX__);
-      };
-      result__OY0C=result__U1I;
-    };
-    if (((struct ___OBJ *)result__OY0C)->__id==__DIRECTORY_UNIX__) {
-      set_path__HPT(result__OY0C,new_path__LY0C);
-    } else {
-      set_path__CQT(result__OY0C,new_path__LY0C);
-    };
-    if (FILE_SYSTEM__->parent_directory__HHD==0) {
-    } else {
-      parent_directory__GGD();
-    };
-    if (((struct ___OBJ *)result__OY0C)->__id==__DIRECTORY_UNIX__) {
-      __tmp__FZ0C=((__DIRECTORY_UNIX *)result__OY0C)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-    } else {
-      __tmp__FZ0C=((__FILE_UNIX *)result__OY0C)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-    };
-    put__to__N1S(alias__2GD,result__OY0C,__tmp__FZ0C);
-  };
-  };
-  return(result__OY0C);
-}
-
-static void** create__G01C(__INTEGER nb_elements__I01C)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__NDHH,a__MDHH,new_size__ODHH,new_size2__PDHH,a__QDHH;
-  __UINTEGER_32 new_size__RDHH;
-  __POINTER result__LDHH,ptr_table__MWJH,next__LWJH,result__NWJH;
-  __INTEGER Self__VCXD;
-  void **Result__5WCD;
-  sz__NDHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__I01C * ((__INTEGER )(sizeof(void *)))));
-  result__LDHH=((__POINTER )(NULL));
-  a__MDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__ODHH=(__UINTEGER_32)((__UINTEGER_32)(sz__NDHH + a__MDHH) & (__UINTEGER_32)(~ a__MDHH));
-  new_size2__PDHH=(__UINTEGER_32)(new_size__ODHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__PDHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__QDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__RDHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__PDHH + a__QDHH) & (__UINTEGER_32)(~ a__QDHH));
-    ptr_table__MWJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RDHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__LWJH=((__POINTER )(NULL));
-    result__NWJH=((__POINTER *)ptr_table__MWJH)[ 0];
-    if ((result__NWJH == (void *)NULL)) {
-      result__NWJH=new_lab__RTJ(new_size__RDHH);
-      next__LWJH=(void *)((unsigned long)result__NWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RDHH)));
-      ((__POINTER *)next__LWJH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__MWJH)[ 0]=next__LWJH;
-    } else {
-      next__LWJH=((__POINTER *)result__NWJH)[ 0];
-      if ((next__LWJH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NWJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__RDHH <<  1)) <=  4096)) {
-          next__LWJH=(void *)((unsigned long)result__NWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RDHH)));
-        } else {
-          next__LWJH=new_lab__RTJ(new_size__RDHH);
-        };
-        ((__POINTER *)next__LWJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MWJH)[ 0]=next__LWJH;
-      } else {
-        ((__POINTER *)result__NWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__NWJH=next__LWJH;
-      };
-    };
-    ((__POINTER *)result__NWJH)[ 0]=((__POINTER ) 3);
-    result__LDHH=(void *)((unsigned long)result__NWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__LDHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ODHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__5WCD=((void **)result__LDHH);
-  Self__VCXD=(__INTEGER)(nb_elements__I01C -  1);
-  while ((Self__VCXD >=  0)) {
-    Result__5WCD[Self__VCXD]=NULL;
-    Self__VCXD=(__INTEGER)(Self__VCXD -  1);
-  };
-  return(Result__5WCD);
-}
-
-static void** create__PRSC(__INTEGER nb_elements__RRSC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__VDHH,a__UDHH,new_size__WDHH,new_size2__XDHH,a__YDHH;
-  __UINTEGER_32 new_size__ZDHH;
-  __POINTER result__TDHH,ptr_table__RWJH,next__QWJH,result__SWJH;
-  __INTEGER Self__1TWD;
-  void **Result__H31C;
-  sz__VDHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RRSC * ((__INTEGER )(sizeof(void *)))));
-  result__TDHH=((__POINTER )(NULL));
-  a__UDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__WDHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VDHH + a__UDHH) & (__UINTEGER_32)(~ a__UDHH));
-  new_size2__XDHH=(__UINTEGER_32)(new_size__WDHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__XDHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__YDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__ZDHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XDHH + a__YDHH) & (__UINTEGER_32)(~ a__YDHH));
-    ptr_table__RWJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZDHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__QWJH=((__POINTER )(NULL));
-    result__SWJH=((__POINTER *)ptr_table__RWJH)[ 0];
-    if ((result__SWJH == (void *)NULL)) {
-      result__SWJH=new_lab__RTJ(new_size__ZDHH);
-      next__QWJH=(void *)((unsigned long)result__SWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZDHH)));
-      ((__POINTER *)next__QWJH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__RWJH)[ 0]=next__QWJH;
-    } else {
-      next__QWJH=((__POINTER *)result__SWJH)[ 0];
-      if ((next__QWJH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SWJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZDHH <<  1)) <=  4096)) {
-          next__QWJH=(void *)((unsigned long)result__SWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZDHH)));
-        } else {
-          next__QWJH=new_lab__RTJ(new_size__ZDHH);
-        };
-        ((__POINTER *)next__QWJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RWJH)[ 0]=next__QWJH;
-      } else {
-        ((__POINTER *)result__SWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__SWJH=next__QWJH;
-      };
-    };
-    ((__POINTER *)result__SWJH)[ 0]=((__POINTER ) 3);
-    result__TDHH=(void *)((unsigned long)result__SWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__TDHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__WDHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__H31C=((void **)result__TDHH);
-  Self__1TWD=(__INTEGER)(nb_elements__RRSC -  1);
-  while ((Self__1TWD >=  0)) {
-    Result__H31C[Self__1TWD]=NULL;
-    Self__1TWD=(__INTEGER)(Self__1TWD -  1);
-  };
-  return(Result__H31C);
-}
-
-static void short__token__to__GDD(void *key__IDD,__INTEGER beg__JDD,__INTEGER end__KDD)
-// ({STRING_CONSTANT},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER pos__LDD,__tmp__GED,Self__1J4,new_capacity__F4HH;
-  __INTEGER old_nb_elts__I4HH,upper__3WJH,Self__1WJH,__tmp__2ED;
-  __INTEGER Self__ML4,__tmp__SFD,__tmp__VFD;
-  void *add_text__MDD;
-  __STRING *Self__G4HH;
-  void *fmt__NDD;
-  __CHARACTER ch__K4HH;
-  __CHARACTER *Self__H4HH,*new__J4HH;
-  pos__LDD= 0;
-  add_text__MDD=NULL;
-  fmt__NDD=NULL;
-  if (is_shorter__LZ) {
-    if (is_active_short__OCC) {
-      if (fast_has__IDT(short_dico__QD,key__IDD)) {
-        ((__STRING *)token__BED)->count__SGC= 0;
-        pos__LDD=(__INTEGER)(beg__JDD + short_derive__PCC);
-        __tmp__GED=(__INTEGER)(end__KDD -  1);
-        Self__1J4=beg__JDD;
-        while ((Self__1J4 <= __tmp__GED)) {
-          Self__G4HH=((__STRING *)token__BED);
-          ch__K4HH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(Self__1J4 -  1)];
-          new_capacity__F4HH= 0;
-          if ((Self__G4HH->capacity__UCS <= Self__G4HH->count__SGC)) {
-            if ((Self__G4HH->capacity__UCS ==  0)) {
-              Self__G4HH->capacity__UCS= 32;
-              Self__G4HH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__F4HH=(__INTEGER)(Self__G4HH->capacity__UCS <<  1);
-              Self__H4HH=((__CHARACTER *)Self__G4HH->storage__3CS);
-              old_nb_elts__I4HH=Self__G4HH->capacity__UCS;
-              new__J4HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__H4HH),((__UINTEGER_32 )old_nb_elts__I4HH),((__UINTEGER_32 )new_capacity__F4HH)));
-              upper__3WJH=(__INTEGER)(new_capacity__F4HH -  1);
-              Self__1WJH=old_nb_elts__I4HH;
-              while ((Self__1WJH <= upper__3WJH)) {
-                new__J4HH[Self__1WJH]='\0';
-                Self__1WJH=(__INTEGER)(Self__1WJH +  1);
-              };
-              Self__G4HH->storage__3CS=new__J4HH;
-              Self__G4HH->capacity__UCS=new_capacity__F4HH;
-            };
-          };
-          ((__CHARACTER *)Self__G4HH->storage__3CS)[Self__G4HH->count__SGC]=ch__K4HH;
-          Self__G4HH->count__SGC=(__INTEGER)(Self__G4HH->count__SGC +  1);
-          remove_between__to__MIT(((__STRING *)output_code__SI),pos__LDD,pos__LDD);
-          Self__1J4=(__INTEGER)(Self__1J4 +  1);
-        };
-        short_derive__PCC=(__INTEGER)(short_derive__PCC - ((__STRING *)token__BED)->count__SGC);
-        fmt__NDD=at__JK4(short_dico__QD,key__IDD);
-        __tmp__2ED=((__LINKED_LISToSTRING_CONSTANTo *)fmt__NDD)->parent_linked_collection__LD.upper__0ED;
-        Self__ML4= 1;
-        while ((Self__ML4 <= __tmp__2ED)) {
-          if (((void *)item__X3ND(fmt__NDD,Self__ML4) == (void *)NULL)) {
-            add_text__MDD=token__BED;
-          } else {
-            add_text__MDD=item__X3ND(fmt__NDD,Self__ML4);
-          };
-          insert_string__to__OXU(output_code__SI,add_text__MDD,pos__LDD);
-          if (((struct ___OBJ *)add_text__MDD)->__id==__STRING_CONSTANT__) {
-            __tmp__SFD=((__STRING_CONSTANT *)add_text__MDD)->count__DD;
-          } else {
-            __tmp__SFD=((__STRING *)add_text__MDD)->count__SGC;
-          };
-          pos__LDD=(__INTEGER)(pos__LDD + __tmp__SFD);
-          if (((struct ___OBJ *)add_text__MDD)->__id==__STRING_CONSTANT__) {
-            __tmp__VFD=((__STRING_CONSTANT *)add_text__MDD)->count__DD;
-          } else {
-            __tmp__VFD=((__STRING *)add_text__MDD)->count__SGC;
-          };
-          short_derive__PCC=(__INTEGER)(short_derive__PCC + __tmp__VFD);
-          Self__ML4=(__INTEGER)(Self__ML4 +  1);
-        };
-      };
-    };
-  };
-}
-
-static __INTEGER first_substring_index__W0ZE(__STRING *Self__X0ZE)
-// ({STRING}) With resultNo recursive, No inlinable.
-{
-  __INTEGER i__OA5E,result__QA5E,s__PA5E,__tmp__LGEH,__tmp__MGEH;
-  __INTEGER __tmp__NGEH,__tmp__QGEH;
-  __CHARACTER *__tmp__OGEH,*__tmp__PGEH;
-  i__OA5E= 0;
-  result__QA5E= 0;
-  s__PA5E= 1;
-  __tmp__LGEH=((__STRING_CONSTANT *)(&__string_112))->count__DD;
-  __tmp__MGEH=Self__X0ZE->count__SGC;
-  __tmp__NGEH=((__STRING_CONSTANT *)(&__string_112))->count__DD;
-  __tmp__OGEH=Self__X0ZE->storage__3CS;
-  __tmp__PGEH=((__STRING_CONSTANT *)(&__string_112))->storage__RRO;
-  __tmp__QGEH=((__STRING_CONSTANT *)(&__string_112))->count__DD;
-  while ((! ((result__QA5E !=  0) || ((__INTEGER)((__INTEGER)(s__PA5E + __tmp__LGEH) -  1) > __tmp__MGEH)))) {
-    i__OA5E= 1;
-    while ((! ((i__OA5E > __tmp__NGEH) || (((__CHARACTER *)__tmp__OGEH)[(__INTEGER)((__INTEGER)((__INTEGER)(s__PA5E + i__OA5E) -  1) -  1)] != ((__CHARACTER *)__tmp__PGEH)[(__INTEGER)(i__OA5E -  1)])))) {
-      i__OA5E=(__INTEGER)(i__OA5E +  1);
-    };
-    if ((i__OA5E > __tmp__QGEH)) {
-      result__QA5E=s__PA5E;
-    } else {
-      s__PA5E=(__INTEGER)(s__PA5E +  1);
-    };
-  };
-  return(result__QA5E);
-}
-
-static __BOOLEAN read_string__HGQ()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER old_pos__LGQ,new_capacity__53HH,old_nb_elts__C4HH;
-  __INTEGER upper__YWJH,Self__WWJH;
-  __STRING *Self__A4HH;
-  __POSITION pos__CSXG;
-  __BOOLEAN result__KGQ,__tmp__VGQ,__tmp__UHQ,__tmp__VHQ;
-  __CHARACTER result__4Q5G,result__IR5G,result__RR5G,result__WR5G;
-  __CHARACTER result__1R5G,result__AS5G,result__FS5G;
-  __CHARACTER *Self__B4HH,*new__D4HH;
-  result__KGQ=FALSE__;
-  old_pos__LGQ= 0;
-  if (read_space__XTD()) {
-    result__4Q5G='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__4Q5G=((__CHARACTER )(( 0)));
-    } else {
-      result__4Q5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    __tmp__VGQ=(result__4Q5G == '\"');
-  } else {
-    __tmp__VGQ=FALSE__;
-  };
-  if (__tmp__VGQ) {
-    old_pos__LGQ=position__CCC;
-    position__CCC=(__INTEGER)(position__CCC +  1);
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    until_do__QKRC:
-    {
-      result__IR5G='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__IR5G=((__CHARACTER )(( 0)));
-      } else {
-        result__IR5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__IR5G == ((__CHARACTER )(( 0))))) {
-        __tmp__UHQ=TRUE__;
-      } else {
-        result__RR5G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__RR5G=((__CHARACTER )(( 0)));
-        } else {
-          result__RR5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__UHQ=(result__RR5G == '\n');
-      };
-      if (__tmp__UHQ) {
-        __tmp__VHQ=TRUE__;
-      } else {
-        result__WR5G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__WR5G=((__CHARACTER )(( 0)));
-        } else {
-          result__WR5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__VHQ=(result__WR5G == '\"');
-      };
-      if ((! __tmp__VHQ)) {
-        result__1R5G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__1R5G=((__CHARACTER )(( 0)));
-        } else {
-          result__1R5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        Self__A4HH=((__STRING *)string_tmp__VH);
-        new_capacity__53HH= 0;
-        if ((Self__A4HH->capacity__UCS <= Self__A4HH->count__SGC)) {
-          if ((Self__A4HH->capacity__UCS ==  0)) {
-            Self__A4HH->capacity__UCS= 32;
-            Self__A4HH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__53HH=(__INTEGER)(Self__A4HH->capacity__UCS <<  1);
-            Self__B4HH=((__CHARACTER *)Self__A4HH->storage__3CS);
-            old_nb_elts__C4HH=Self__A4HH->capacity__UCS;
-            new__D4HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__B4HH),((__UINTEGER_32 )old_nb_elts__C4HH),((__UINTEGER_32 )new_capacity__53HH)));
-            upper__YWJH=(__INTEGER)(new_capacity__53HH -  1);
-            Self__WWJH=old_nb_elts__C4HH;
-            while ((Self__WWJH <= upper__YWJH)) {
-              new__D4HH[Self__WWJH]='\0';
-              Self__WWJH=(__INTEGER)(Self__WWJH +  1);
-            };
-            Self__A4HH->storage__3CS=new__D4HH;
-            Self__A4HH->capacity__UCS=new_capacity__53HH;
-          };
-        };
-        ((__CHARACTER *)Self__A4HH->storage__3CS)[Self__A4HH->count__SGC]=result__1R5G;
-        Self__A4HH->count__SGC=(__INTEGER)(Self__A4HH->count__SGC +  1);
-        result__AS5G='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__AS5G=((__CHARACTER )(( 0)));
-        } else {
-          result__AS5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__AS5G == '\\')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          read_escape_character__AALF();
-        } else {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-        };
-        goto until_do__QKRC;
-      };
-    };
-    result__FS5G='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__FS5G=((__CHARACTER )(( 0)));
-    } else {
-      result__FS5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__FS5G == '\"')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      last_string__D2C=get__YWB(string_tmp__VH);
-      result__KGQ=TRUE__;
-      short__token__to__GDD((&__string_123),old_pos__LGQ,position__CCC);
-    } else {
-      position__CCC=begin_position__BDE;
-      pos__CSXG=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_251));
-      put_position__FRG(pos__CSXG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  };
-  return(result__KGQ);
-}
-
-static __BOOLEAN fast_memcmp__until__FYYB(__CHARACTER *Self__GYYB,__CHARACTER *other__HYYB,__INTEGER capacity__IYYB)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER}) With resultNo recursive, No inlinable.
-{
-  __INTEGER i__0YYB;
-  i__0YYB=(__INTEGER)(capacity__IYYB -  1);
-  while (((i__0YYB >=  0) && (Self__GYYB[i__0YYB] == ((__CHARACTER *)other__HYYB)[i__0YYB]))) {
-    i__0YYB=(__INTEGER)(i__0YYB -  1);
-  };
-  return((i__0YYB <  0));
-}
-
-static void reduce_path__UO3E(void *st__WO3E)
-// ({NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER stat__YO3E,i__XO3E,Self__JW1F,n__2DHH,idx__JQ3E,n__4DHH;
-  __INTEGER Self__ETEG,n__AEHH,idx__PU3E,new_capacity__L4HH;
-  __INTEGER old_nb_elts__O4HH,upper__CXJH,Self__AXJH;
-  __STRING *Self__1DHH,*Self__3DHH,*Self__5DHH,*Self__ZQFH,*Self__1QFH;
-  __STRING *Self__M4HH;
-  __CHARACTER car__ZO3E,Self__3D3E;
-  __BOOLEAN __tmp__AR3E,__tmp__FS3E,result__ZAYF,result__5D3E;
-  __BOOLEAN __tmp__JE3E,__tmp__GT3E;
-  __CHARACTER *Self__N4HH,*new__P4HH;
-  stat__YO3E= 0;
-  car__ZO3E='\0';
-  replace_all__with__CRS(st__WO3E,'\\','/');
-  i__XO3E= 1;
-  while ((i__XO3E <= ((__STRING *)st__WO3E)->count__SGC)) {
-    car__ZO3E=((__CHARACTER *)((__STRING *)st__WO3E)->storage__3CS)[(__INTEGER)(i__XO3E -  1)];
-    if ((car__ZO3E == '/')) {
-      Self__JW1F=stat__YO3E;
-      if ((stat__YO3E ==  0)) {
-        stat__YO3E= 1;
-      };
-      if ((Self__JW1F ==  1)) {
-        Self__1DHH=((__STRING *)st__WO3E);
-        n__2DHH=(__INTEGER)(i__XO3E -  1);
-        if ((n__2DHH > Self__1DHH->count__SGC)) {
-          Self__1DHH->count__SGC= 0;
-        } else {
-          if ((n__2DHH >  0)) {
-            remove_between__to__MIT(Self__1DHH, 1,n__2DHH);
-          };
-        };
-        i__XO3E= 1;
-      };
-      if ((Self__JW1F ==  2)) {
-        remove_between__to__MIT(st__WO3E,(__INTEGER)(i__XO3E -  1),i__XO3E);
-        i__XO3E=(__INTEGER)(i__XO3E -  2);
-        stat__YO3E= 1;
-      };
-      if ((Self__JW1F ==  3)) {
-        idx__JQ3E=last_index_of__since__KPGD(st__WO3E,(__INTEGER)(i__XO3E -  4));
-        if ((idx__JQ3E ==  0)) {
-          Self__3DHH=((__STRING *)st__WO3E);
-          n__4DHH=(__INTEGER)(i__XO3E -  1);
-          if ((n__4DHH > Self__3DHH->count__SGC)) {
-            Self__3DHH->count__SGC= 0;
-          } else {
-            if ((n__4DHH >  0)) {
-              remove_between__to__MIT(Self__3DHH, 1,n__4DHH);
-            };
-          };
-          i__XO3E= 1;
-        } else {
-          remove_between__to__MIT(st__WO3E,idx__JQ3E,(__INTEGER)(i__XO3E -  1));
-          i__XO3E=idx__JQ3E;
-        };
-        stat__YO3E= 1;
-      };
-      __tmp__AR3E=TRUE__;
-    } else {
-      __tmp__AR3E=FALSE__;
-    };
-    if (__tmp__AR3E) {
-      __tmp__FS3E=TRUE__;
-    } else {
-      result__ZAYF=(car__ZO3E == '.');
-      if (result__ZAYF) {
-        Self__ETEG=stat__YO3E;
-        if ((stat__YO3E ==  1)) {
-          stat__YO3E= 2;
-        };
-        if ((Self__ETEG ==  2)) {
-          stat__YO3E= 3;
-        };
-        if ((Self__ETEG ==  3)) {
-          stat__YO3E= 0;
-        };
-      };
-      __tmp__FS3E=result__ZAYF;
-    };
-    if ((! __tmp__FS3E)) {
-      if (((car__ZO3E == ':') && (i__XO3E >  2))) {
-        Self__3D3E=((__CHARACTER *)((__STRING *)st__WO3E)->storage__3CS)[(__INTEGER)((__INTEGER)(i__XO3E -  1) -  1)];
-        result__5D3E=FALSE__;
-        if ((((__INTEGER_8 )Self__3D3E) >= ((__INTEGER_8 )'a'))) {
-          result__5D3E=(((__INTEGER_8 )Self__3D3E) <= ((__INTEGER_8 )'z'));
-          __tmp__JE3E=TRUE__;
-        } else {
-          __tmp__JE3E=FALSE__;
-        };
-        if ((! __tmp__JE3E)) {
-          if ((((__INTEGER_8 )Self__3D3E) >= ((__INTEGER_8 )'A'))) {
-            result__5D3E=(((__INTEGER_8 )Self__3D3E) <= ((__INTEGER_8 )'Z'));
-          };
-        };
-        __tmp__GT3E=result__5D3E;
-      } else {
-        __tmp__GT3E=FALSE__;
-      };
-      if ((__tmp__GT3E && (((__CHARACTER *)((__STRING *)st__WO3E)->storage__3CS)[(__INTEGER)((__INTEGER)(i__XO3E -  2) -  1)] == '/'))) {
-        Self__5DHH=((__STRING *)st__WO3E);
-        n__AEHH=(__INTEGER)(i__XO3E -  2);
-        if ((n__AEHH > Self__5DHH->count__SGC)) {
-          Self__5DHH->count__SGC= 0;
-        } else {
-          if ((n__AEHH >  0)) {
-            remove_between__to__MIT(Self__5DHH, 1,n__AEHH);
-          };
-        };
-        i__XO3E= 1;
-      } else {
-        stat__YO3E= 0;
-      };
-    };
-    i__XO3E=(__INTEGER)(i__XO3E +  1);
-  };
-  if ((stat__YO3E ==  1)) {
-    Self__ZQFH=((__STRING *)st__WO3E);
-    if (( 1 > Self__ZQFH->count__SGC)) {
-      Self__ZQFH->count__SGC= 0;
-    } else {
-      Self__ZQFH->count__SGC=(__INTEGER)(Self__ZQFH->count__SGC -  1);
-    };
-  };
-  if ((stat__YO3E ==  2)) {
-    Self__1QFH=((__STRING *)st__WO3E);
-    if (( 2 > Self__1QFH->count__SGC)) {
-      Self__1QFH->count__SGC= 0;
-    } else {
-      Self__1QFH->count__SGC=(__INTEGER)(Self__1QFH->count__SGC -  2);
-    };
-  };
-  if ((stat__YO3E ==  3)) {
-    idx__PU3E=last_index_of__since__KPGD(st__WO3E,(__INTEGER)(i__XO3E -  4));
-    if ((idx__PU3E ==  0)) {
-      ((__STRING *)st__WO3E)->count__SGC= 0;
-    } else {
-      remove_between__to__MIT(st__WO3E,idx__PU3E,(__INTEGER)(i__XO3E -  1));
-    };
-  };
-  if ((((__STRING *)st__WO3E)->count__SGC ==  0)) {
-    Self__M4HH=((__STRING *)st__WO3E);
-    new_capacity__L4HH= 0;
-    if ((Self__M4HH->capacity__UCS <= Self__M4HH->count__SGC)) {
-      if ((Self__M4HH->capacity__UCS ==  0)) {
-        Self__M4HH->capacity__UCS= 32;
-        Self__M4HH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__L4HH=(__INTEGER)(Self__M4HH->capacity__UCS <<  1);
-        Self__N4HH=((__CHARACTER *)Self__M4HH->storage__3CS);
-        old_nb_elts__O4HH=Self__M4HH->capacity__UCS;
-        new__P4HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__N4HH),((__UINTEGER_32 )old_nb_elts__O4HH),((__UINTEGER_32 )new_capacity__L4HH)));
-        upper__CXJH=(__INTEGER)(new_capacity__L4HH -  1);
-        Self__AXJH=old_nb_elts__O4HH;
-        while ((Self__AXJH <= upper__CXJH)) {
-          new__P4HH[Self__AXJH]='\0';
-          Self__AXJH=(__INTEGER)(Self__AXJH +  1);
-        };
-        Self__M4HH->storage__3CS=new__P4HH;
-        Self__M4HH->capacity__UCS=new_capacity__L4HH;
-      };
-    };
-    ((__CHARACTER *)Self__M4HH->storage__3CS)[Self__M4HH->count__SGC]='/';
-    Self__M4HH->count__SGC=(__INTEGER)(Self__M4HH->count__SGC +  1);
-  };
-}
-
-static void* item__V3PE(__DIRECTORY_UNIX *Self__W3PE,__INTEGER i__X3PE)
-// ({DIRECTORY_UNIX},{INTEGER}) With resultNo recursive, No inlinable.
-{
-  __LINKED_LISToENTRYo *Self__V5WE;
-  Self__V5WE=((__LINKED_LISToENTRYo *)Self__W3PE->parent_directory__SGD.list__FIRD);
-  if ((i__X3PE != Self__V5WE->mem_idx__VMWE)) {
-    if ((Self__V5WE->mem_idx__VMWE > i__X3PE)) {
-      Self__V5WE->mem_idx__VMWE= 1;
-      Self__V5WE->mem_lnk__WMWE=Self__V5WE->first_link__OMWE;
-    };
-    while ((i__X3PE != Self__V5WE->mem_idx__VMWE)) {
-      Self__V5WE->mem_lnk__WMWE=((__LINKED_LIST_NODEoENTRYo *)Self__V5WE->mem_lnk__WMWE)->next__G3FF;
-      Self__V5WE->mem_idx__VMWE=(__INTEGER)(Self__V5WE->mem_idx__VMWE +  1);
-    };
-  };
-  return(((__LINKED_LIST_NODEoENTRYo *)Self__V5WE->mem_lnk__WMWE)->item__IAXE);
-}
-
-static void* item__X3ND(__LINKED_LISToSTRING_CONSTANTo *Self__Y3ND,__INTEGER i__Z3ND)
-// ({LINKED_LISToSTRING_CONSTANTo},{INTEGER}) With resultNo recursive, No inlinable.
-{
-  if ((i__Z3ND != Self__Y3ND->mem_idx__YTEC)) {
-    if ((Self__Y3ND->mem_idx__YTEC > i__Z3ND)) {
-      Self__Y3ND->mem_idx__YTEC= 1;
-      Self__Y3ND->mem_lnk__0TEC=Self__Y3ND->first_link__OTEC;
-    };
-    while ((i__Z3ND != Self__Y3ND->mem_idx__YTEC)) {
-      Self__Y3ND->mem_lnk__0TEC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__Y3ND->mem_lnk__0TEC)->next__JROD;
-      Self__Y3ND->mem_idx__YTEC=(__INTEGER)(Self__Y3ND->mem_idx__YTEC +  1);
-    };
-  };
-  return(((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__Y3ND->mem_lnk__0TEC)->item__L0HD);
-}
-
-static void** create__KZ3(__INTEGER nb_elements__MZ3)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__DEHH,a__CEHH,new_size__EEHH,new_size2__FEHH,a__GEHH;
-  __UINTEGER_32 new_size__HEHH;
-  __POINTER result__BEHH,ptr_table__FXJH,next__EXJH,result__GXJH;
-  __INTEGER Self__1ZJC;
-  void **Result__WREB;
-  sz__DEHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MZ3 * ((__INTEGER )(sizeof(void *)))));
-  result__BEHH=((__POINTER )(NULL));
-  a__CEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__EEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DEHH + a__CEHH) & (__UINTEGER_32)(~ a__CEHH));
-  new_size2__FEHH=(__UINTEGER_32)(new_size__EEHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__FEHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__GEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__HEHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FEHH + a__GEHH) & (__UINTEGER_32)(~ a__GEHH));
-    ptr_table__FXJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HEHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__EXJH=((__POINTER )(NULL));
-    result__GXJH=((__POINTER *)ptr_table__FXJH)[ 0];
-    if ((result__GXJH == (void *)NULL)) {
-      result__GXJH=new_lab__RTJ(new_size__HEHH);
-      next__EXJH=(void *)((unsigned long)result__GXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEHH)));
-      ((__POINTER *)next__EXJH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__FXJH)[ 0]=next__EXJH;
-    } else {
-      next__EXJH=((__POINTER *)result__GXJH)[ 0];
-      if ((next__EXJH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GXJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HEHH <<  1)) <=  4096)) {
-          next__EXJH=(void *)((unsigned long)result__GXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEHH)));
-        } else {
-          next__EXJH=new_lab__RTJ(new_size__HEHH);
-        };
-        ((__POINTER *)next__EXJH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__FXJH)[ 0]=next__EXJH;
-      } else {
-        ((__POINTER *)result__GXJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EXJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__GXJH=next__EXJH;
-      };
-    };
-    ((__POINTER *)result__GXJH)[ 0]=((__POINTER ) 3);
-    result__BEHH=(void *)((unsigned long)result__GXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__BEHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EEHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__WREB=((void **)result__BEHH);
-  Self__1ZJC=(__INTEGER)(nb_elements__MZ3 -  1);
-  while ((Self__1ZJC >=  0)) {
-    Result__WREB[Self__1ZJC]=NULL;
-    Self__1ZJC=(__INTEGER)(Self__1ZJC -  1);
-  };
-  return(Result__WREB);
-}
-
-static __BOOLEAN read_word__ISF(void *st__KSF)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER posold__MSF,idx__NSF,__tmp__LOEH,__tmp__MOEH;
-  __BOOLEAN result__OSF,__tmp__MTF;
-  __CHARACTER *__tmp__NOEH,*__tmp__G4GH;
-  __CHARACTER result__XXAH;
-  posold__MSF= 0;
-  idx__NSF= 0;
-  result__OSF=FALSE__;
-  if ((! read_space__XTD())) {
-    result__OSF=FALSE__;
-  } else {
-    posold__MSF=position__CCC;
-    idx__NSF= 1;
-    __tmp__LOEH=((__STRING_CONSTANT *)st__KSF)->count__DD;
-    __tmp__MOEH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__NOEH=((__STRING_CONSTANT *)st__KSF)->storage__RRO;
-    __tmp__G4GH=((__STRING *)source__5BC)->storage__3CS;
-    until_do__C53:
-    {
-      if ((idx__NSF > __tmp__LOEH)) {
-        __tmp__MTF=TRUE__;
-      } else {
-        result__XXAH='\0';
-        if ((position__CCC > __tmp__MOEH)) {
-          result__XXAH=((__CHARACTER )(( 0)));
-        } else {
-          result__XXAH=((__CHARACTER *)__tmp__G4GH)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__MTF=(result__XXAH != ((__CHARACTER *)__tmp__NOEH)[(__INTEGER)(idx__NSF -  1)]);
-      };
-      if ((! __tmp__MTF)) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        idx__NSF=(__INTEGER)(idx__NSF +  1);
-        goto until_do__C53;
-      };
-    };
-    if ((idx__NSF > ((__STRING_CONSTANT *)st__KSF)->count__DD)) {
-      last_string__D2C=st__KSF;
-      result__OSF=TRUE__;
-    } else {
-      position__CCC=posold__MSF;
-    };
-  };
-  return(result__OSF);
-}
-
-static __BOOLEAN read_slot_header__KFE(__BOOLEAN first__MFE)
-// ({TRUExFALSE}) With resultNo recursive, No inlinable.
-{
-  void *v__QFE;
-  void *instr__YFE;
-  __POSITION pos__TZXG,pos__VZXG,pos__XZXG,pos__ZZXG,pos__1ZXG;
-  __POSITION pos__3ZXG,pos__5ZXG,pos__MD2G,pos__B0XG,pos__D0XG;
-  __POSITION pos__F0XG,pos__H0XG,pos__OD2G,pos__J0XG,pos__L0XG;
-  __POSITION pos__N0XG,pos__P0XG,pos__R0XG,pos__T0XG,pos__V0XG;
-  __POSITION pos__X0XG,pos__Z0XG,pos__10XG,pos__30XG,pos__QD2G;
-  __POSITION pos__50XG,pos__B1XG,pos__BKM,pos__D1XG,pos__F1XG,pos__H1XG;
-  __POSITION pos__J1XG,__tmp__SFQD,__tmp__XFQD,__tmp__SD2G,pos__L1XG;
-  __POSITION pos__N1XG,pos__P1XG,pos__R1XG,pos__T1XG,pos__V1XG;
-  void *res__UKE,*__tmp__WME;
-  __INTEGER __tmp__NME,__tmp__PME,__tmp__RME,typ_id__T4HH,typ_id__34HH;
-  __INTEGER new_capacity__F5HH,old_nb_elts__I5HH,upper__TYJH,Self__RYJH;
-  __INTEGER new_capacity__L5HH,old_nb_elts__O5HH,upper__YYJH,Self__WYJH;
-  void *n__LRFH,*n__KNGB;
-  void *result__MRFH,*result__SNGB;
-  __ITM_TYPE_PARAMETER *result__R4HH,*Self__Z4HH,*result__14HH;
-  __ITM_TYPE_PARAMETER *Self__D5HH;
-  __POINTER ptr__S4HH,ptr_table__UXJH,next__TXJH,result__VXJH;
-  __POINTER ptr_table__ZXJH,next__YXJH,result__0XJH,ptr__24HH;
-  __POINTER ptr_table__EYJH,next__DYJH,result__FYJH,ptr_table__JYJH;
-  __POINTER next__IYJH,result__KYJH;
-  __UINTEGER_32 sz__U4HH,a__V4HH,new_size__W4HH,t__X4HH,a__Y4HH;
-  __UINTEGER_32 new_size__2XJH,lab_type__1XJH,sz__44HH,a__54HH;
-  __UINTEGER_32 new_size__A5HH,t__B5HH,a__C5HH,new_size__MYJH;
-  __UINTEGER_32 lab_type__LYJH;
-  __STRING *Self__G5HH,*Self__M5HH;
-  __BOOLEAN result__OFE,result__KXJH,__tmp__4IE,result__MXJH;
-  __BOOLEAN result__NXJH,__tmp__WKE,result__QXJH,__tmp__GLE,__tmp__ULE;
-  __BOOLEAN result__GUL,__tmp__CME,result__3XJH,result__AYJH;
-  __BOOLEAN result__NYJH,__tmp__BRE,__tmp__HTE,__tmp__TRE,__tmp__3UE;
-  __BOOLEAN result__RBH,__tmp__ZWE,result__DCH,__tmp__VYE,result__VCH;
-  __BOOLEAN __tmp__C0E,result__HDH,__tmp__I2E,result__ZDH,result__0YJH;
-  __BOOLEAN result__3YJH,result__AZJH,result__DZJH;
-  __CHARACTER style__SFE,result__OXJH,result__RXJH,result__4XJH;
-  __CHARACTER result__BYJH,result__OYJH,result__1YJH,result__4YJH;
-  __CHARACTER result__BZJH,result__EZJH;
-  __CHARACTER *Self__H5HH,*new__J5HH,*Self__N5HH,*new__P5HH;
-  result__OFE=FALSE__;
-  v__QFE=NULL;
-  instr__YFE=NULL;
-  style__SFE=read_style__PUF();
-  if ((style__SFE != ' ')) {
-    result__OFE=TRUE__;
-    if (((! first__MFE) && (style__SFE == '+'))) {
-      pos__TZXG=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_252));
-      put_position__FRG(pos__TZXG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    if (first__MFE) {
-      if (read_word__ISF((&__string_62))) {
-        if ((style__SFE == '-')) {
-          append__3OS(output_decl__VHE,(&__string_253));
-        };
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        ((__PROTOTYPE *)object__ZBC)->parent_named__5.parent_itm_object__4.position__SFJ=current_position__B0F();
-        ((__PROTOTYPE *)object__ZBC)->parent_named__5.style__0FU=style__SFE;
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__VZXG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__VZXG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__KXJH=read_word__ISF((&__string_9));
-        if (is_shorter__LZ) {
-          if (result__KXJH) {
-            if (((void *)(&__string_9) == (void *)(&__string_4))) {
-              short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-            } else {
-              short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-            };
-          };
-        };
-        if (result__KXJH) {
-          __tmp__4IE=TRUE__;
-        } else {
-          result__MXJH=read_word__ISF((&__string_10));
-          if (is_shorter__LZ) {
-            if (result__MXJH) {
-              if (((void *)(&__string_10) == (void *)(&__string_4))) {
-                short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-              } else {
-                short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-              };
-            };
-          };
-          __tmp__4IE=result__MXJH;
-        };
-        if (__tmp__4IE) {
-          ((__PROTOTYPE *)object__ZBC)->type_style__S4C=last_string__D2C;
-        };
-        if ((! read_cap_identifier__N1J())) {
-          pos__XZXG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_255));
-          put_position__FRG(pos__XZXG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        short__token__to__GDD((&__string_125),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if (((void *)((__PROTOTYPE *)object__ZBC)->shortname__3JE != (void *)last_string__D2C)) {
-          pos__ZZXG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_256));
-          put_position__FRG(pos__ZZXG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__NXJH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__NXJH=FALSE__;
-        } else {
-          result__OXJH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__OXJH=((__CHARACTER )(( 0)));
-          } else {
-            result__OXJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__OXJH == '(')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__NXJH=TRUE__;
-          };
-        };
-        if (result__NXJH) {
-          if (((! is_shorter__LZ) && (! is_shorter2__VI))) {
-            pos__1ZXG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_257));
-            put_position__FRG(pos__1ZXG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          res__UKE=NULL;
-          __tmp__WKE=read_identifier__2BL();
-          if (__tmp__WKE) {
-            result__QXJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__QXJH=FALSE__;
-            } else {
-              result__RXJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__RXJH=((__CHARACTER )(( 0)));
-              } else {
-                result__RXJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__RXJH == ':')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__QXJH=TRUE__;
-              };
-            };
-            if ((! result__QXJH)) {
-              pos__3ZXG=current_position__B0F();
-              put_error__text__1PG( 2,(&__string_258));
-              put_position__FRG(pos__3ZXG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            __tmp__GLE=((void *)read_type__CDM(PARSER__,TRUE__) == (void *)NULL);
-            if (__tmp__GLE) {
-              pos__5ZXG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_259));
-              put_position__FRG(pos__5ZXG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            pos__MD2G=current_position__B0F();
-            put_error__text__1PG( 1,(&__string_260));
-            put_position__FRG(pos__MD2G);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-            __tmp__ULE=TRUE__;
-          } else {
-            __tmp__ULE=FALSE__;
-          };
-          if ((! __tmp__ULE)) {
-            result__GUL=read_cap_identifier__N1J();
-            if (result__GUL) {
-              __tmp__CME=is_parameter_type__AME;
-              if ((! __tmp__CME)) {
-                pos__B0XG=current_position__B0F();
-                put_error__text__1PG( 0,(&__string_261));
-                put_position__FRG(pos__B0XG);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-              __tmp__NME=position__CCC;
-              __tmp__PME=((__STRING_CONSTANT *)last_string__D2C)->count__DD;
-              __tmp__RME=(__INTEGER)(__tmp__NME - __tmp__PME);
-              short__token__to__GDD((&__string_126),__tmp__RME,position__CCC);
-              n__LRFH=last_string__D2C;
-              result__MRFH=fast_reference_at__R3T(dico__XVI,n__LRFH);
-              if (((void *)result__MRFH == (void *)NULL)) {
-                result__R4HH=NULL;
-                ptr__S4HH=((__POINTER )(NULL));
-                typ_id__T4HH= 0;
-                sz__U4HH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-                if ((sz__U4HH ==  0)) {
-                  result__R4HH=ITM_TYPE_PARAMETER__;
-                } else {
-                  typ_id__T4HH=-1;
-                  clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__U4HH);
-                  if ((typ_id__T4HH == (__INTEGER)(-  1))) {
-                    a__V4HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__W4HH=(__UINTEGER_32)((__UINTEGER_32)(sz__U4HH + a__V4HH) & (__UINTEGER_32)(~ a__V4HH));
-                    ptr_table__UXJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__W4HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                    next__TXJH=((__POINTER )(NULL));
-                    result__VXJH=((__POINTER *)ptr_table__UXJH)[ 0];
-                    if ((result__VXJH == (void *)NULL)) {
-                      result__VXJH=new_lab__RTJ(new_size__W4HH);
-                      next__TXJH=(void *)((unsigned long)result__VXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4HH)));
-                      ((__POINTER *)next__TXJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__UXJH)[ 0]=next__TXJH;
-                    } else {
-                      next__TXJH=((__POINTER *)result__VXJH)[ 0];
-                      if ((next__TXJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VXJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__W4HH <<  1)) <=  4096)) {
-                          next__TXJH=(void *)((unsigned long)result__VXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4HH)));
-                        } else {
-                          next__TXJH=new_lab__RTJ(new_size__W4HH);
-                        };
-                        ((__POINTER *)next__TXJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__UXJH)[ 0]=next__TXJH;
-                      } else {
-                        ((__POINTER *)result__VXJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TXJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__VXJH=next__TXJH;
-                      };
-                    };
-                    ptr__S4HH=result__VXJH;
-                  } else {
-                    t__X4HH=((__UINTEGER_32 )typ_id__T4HH);
-                    a__Y4HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                    new_size__2XJH=(__UINTEGER_32)((__UINTEGER_32)(sz__U4HH + a__Y4HH) & (__UINTEGER_32)(~ a__Y4HH));
-                    ptr_table__ZXJH=((__POINTER )(&(table_type[(t__X4HH)])));
-                    lab_type__1XJH=(__UINTEGER_32)(t__X4HH |  1);
-                    next__YXJH=((__POINTER )(NULL));
-                    result__0XJH=((__POINTER *)ptr_table__ZXJH)[ 0];
-                    if ((result__0XJH == (void *)NULL)) {
-                      result__0XJH=new_lab__RTJ(lab_type__1XJH);
-                      next__YXJH=(void *)((unsigned long)result__0XJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XJH)));
-                      ((__POINTER *)next__YXJH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__ZXJH)[ 0]=next__YXJH;
-                    } else {
-                      next__YXJH=((__POINTER *)result__0XJH)[ 0];
-                      if ((next__YXJH == (void *)NULL)) {
-                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0XJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2XJH <<  1)) <=  4096)) {
-                          next__YXJH=(void *)((unsigned long)result__0XJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XJH)));
-                        } else {
-                          next__YXJH=new_lab__RTJ(lab_type__1XJH);
-                        };
-                        ((__POINTER *)next__YXJH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__ZXJH)[ 0]=next__YXJH;
-                      } else {
-                        ((__POINTER *)result__0XJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YXJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                        result__0XJH=next__YXJH;
-                      };
-                    };
-                    ptr__S4HH=result__0XJH;
-                  };
-                  result__R4HH=((__ITM_TYPE_PARAMETER *)ptr__S4HH);
-                  *(result__R4HH) = *(ITM_TYPE_PARAMETER__);
-                };
-                Self__Z4HH=((__ITM_TYPE_PARAMETER *)result__R4HH);
-                Self__Z4HH->parent_itm_type__VFE.name__GZP=n__LRFH;
-                fast_put__to__JPZ(dico__XVI,Self__Z4HH,n__LRFH);
-                result__MRFH=result__R4HH;
-              };
-              if (result__MRFH==NULL) {
-                __tmp__WME=NULL;
-              } else {
-                switch (((struct ___OBJ *)result__MRFH)->__id) {
-                case __ITM_TYPE_PARAMETER__: {
-                  __tmp__WME=((void *)result__MRFH);
-                } break;
-                case __ITM_TYPE_SIMPLE__: {
-                  __tmp__WME=NULL;
-                } break;
-                }
-              };
-              res__UKE=__tmp__WME;
-            };
-          };
-          if (((void *)res__UKE == (void *)NULL)) {
-            pos__D0XG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_261));
-            put_position__FRG(pos__D0XG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          add_last__NABC(((__PROTOTYPE *)object__ZBC)->idf_generic_list__MOE,res__UKE);
-          while_do__LYK:
-          {
-            result__3XJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__3XJH=FALSE__;
-            } else {
-              result__4XJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__4XJH=((__CHARACTER )(( 0)));
-              } else {
-                result__4XJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__4XJH == ',')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__3XJH=TRUE__;
-              };
-            };
-            if (result__3XJH) {
-              res__UKE=NULL;
-              __tmp__WKE=read_identifier__2BL();
-              if (__tmp__WKE) {
-                result__AYJH=FALSE__;
-                if ((! read_space__XTD())) {
-                  result__AYJH=FALSE__;
-                } else {
-                  result__BYJH='\0';
-                  if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                    result__BYJH=((__CHARACTER )(( 0)));
-                  } else {
-                    result__BYJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                  };
-                  if ((result__BYJH == ':')) {
-                    position__CCC=(__INTEGER)(position__CCC +  1);
-                    result__AYJH=TRUE__;
-                  };
-                };
-                if ((! result__AYJH)) {
-                  pos__F0XG=current_position__B0F();
-                  put_error__text__1PG( 2,(&__string_258));
-                  put_position__FRG(pos__F0XG);
-                  put_string__33F(msg_err__AQG);
-                  if ((type_error__5PG !=  2)) {
-                    exit(( 1));
-                  };
-                };
-                __tmp__GLE=((void *)read_type__CDM(PARSER__,TRUE__) == (void *)NULL);
-                if (__tmp__GLE) {
-                  pos__H0XG=current_position__B0F();
-                  put_error__text__1PG( 0,(&__string_259));
-                  put_position__FRG(pos__H0XG);
-                  put_string__33F(msg_err__AQG);
-                  if ((type_error__5PG !=  2)) {
-                    exit(( 1));
-                  };
-                };
-                pos__OD2G=current_position__B0F();
-                put_error__text__1PG( 1,(&__string_260));
-                put_position__FRG(pos__OD2G);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-                __tmp__ULE=TRUE__;
-              } else {
-                __tmp__ULE=FALSE__;
-              };
-              if ((! __tmp__ULE)) {
-                result__GUL=read_cap_identifier__N1J();
-                if (result__GUL) {
-                  __tmp__CME=is_parameter_type__AME;
-                  if ((! __tmp__CME)) {
-                    pos__J0XG=current_position__B0F();
-                    put_error__text__1PG( 0,(&__string_261));
-                    put_position__FRG(pos__J0XG);
-                    put_string__33F(msg_err__AQG);
-                    if ((type_error__5PG !=  2)) {
-                      exit(( 1));
-                    };
-                  };
-                  __tmp__NME=position__CCC;
-                  __tmp__PME=((__STRING_CONSTANT *)last_string__D2C)->count__DD;
-                  __tmp__RME=(__INTEGER)(__tmp__NME - __tmp__PME);
-                  short__token__to__GDD((&__string_126),__tmp__RME,position__CCC);
-                  n__KNGB=last_string__D2C;
-                  result__SNGB=fast_reference_at__R3T(dico__XVI,n__KNGB);
-                  if (((void *)result__SNGB == (void *)NULL)) {
-                    result__14HH=NULL;
-                    ptr__24HH=((__POINTER )(NULL));
-                    typ_id__34HH= 0;
-                    sz__44HH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-                    if ((sz__44HH ==  0)) {
-                      result__14HH=ITM_TYPE_PARAMETER__;
-                    } else {
-                      typ_id__34HH=-1;
-                      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__44HH);
-                      if ((typ_id__34HH == (__INTEGER)(-  1))) {
-                        a__54HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                        new_size__A5HH=(__UINTEGER_32)((__UINTEGER_32)(sz__44HH + a__54HH) & (__UINTEGER_32)(~ a__54HH));
-                        ptr_table__EYJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A5HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                        next__DYJH=((__POINTER )(NULL));
-                        result__FYJH=((__POINTER *)ptr_table__EYJH)[ 0];
-                        if ((result__FYJH == (void *)NULL)) {
-                          result__FYJH=new_lab__RTJ(new_size__A5HH);
-                          next__DYJH=(void *)((unsigned long)result__FYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A5HH)));
-                          ((__POINTER *)next__DYJH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__EYJH)[ 0]=next__DYJH;
-                        } else {
-                          next__DYJH=((__POINTER *)result__FYJH)[ 0];
-                          if ((next__DYJH == (void *)NULL)) {
-                            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FYJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__A5HH <<  1)) <=  4096)) {
-                              next__DYJH=(void *)((unsigned long)result__FYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A5HH)));
-                            } else {
-                              next__DYJH=new_lab__RTJ(new_size__A5HH);
-                            };
-                            ((__POINTER *)next__DYJH)[ 0]=NULL;
-                            ((__POINTER *)ptr_table__EYJH)[ 0]=next__DYJH;
-                          } else {
-                            ((__POINTER *)result__FYJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DYJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                            result__FYJH=next__DYJH;
-                          };
-                        };
-                        ptr__24HH=result__FYJH;
-                      } else {
-                        t__B5HH=((__UINTEGER_32 )typ_id__34HH);
-                        a__C5HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                        new_size__MYJH=(__UINTEGER_32)((__UINTEGER_32)(sz__44HH + a__C5HH) & (__UINTEGER_32)(~ a__C5HH));
-                        ptr_table__JYJH=((__POINTER )(&(table_type[(t__B5HH)])));
-                        lab_type__LYJH=(__UINTEGER_32)(t__B5HH |  1);
-                        next__IYJH=((__POINTER )(NULL));
-                        result__KYJH=((__POINTER *)ptr_table__JYJH)[ 0];
-                        if ((result__KYJH == (void *)NULL)) {
-                          result__KYJH=new_lab__RTJ(lab_type__LYJH);
-                          next__IYJH=(void *)((unsigned long)result__KYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MYJH)));
-                          ((__POINTER *)next__IYJH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__JYJH)[ 0]=next__IYJH;
-                        } else {
-                          next__IYJH=((__POINTER *)result__KYJH)[ 0];
-                          if ((next__IYJH == (void *)NULL)) {
-                            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KYJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__MYJH <<  1)) <=  4096)) {
-                              next__IYJH=(void *)((unsigned long)result__KYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MYJH)));
-                            } else {
-                              next__IYJH=new_lab__RTJ(lab_type__LYJH);
-                            };
-                            ((__POINTER *)next__IYJH)[ 0]=NULL;
-                            ((__POINTER *)ptr_table__JYJH)[ 0]=next__IYJH;
-                          } else {
-                            ((__POINTER *)result__KYJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IYJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                            result__KYJH=next__IYJH;
-                          };
-                        };
-                        ptr__24HH=result__KYJH;
-                      };
-                      result__14HH=((__ITM_TYPE_PARAMETER *)ptr__24HH);
-                      *(result__14HH) = *(ITM_TYPE_PARAMETER__);
-                    };
-                    Self__D5HH=((__ITM_TYPE_PARAMETER *)result__14HH);
-                    Self__D5HH->parent_itm_type__VFE.name__GZP=n__KNGB;
-                    fast_put__to__JPZ(dico__XVI,Self__D5HH,n__KNGB);
-                    result__SNGB=result__14HH;
-                  };
-                  if (result__SNGB==NULL) {
-                    __tmp__WME=NULL;
-                  } else {
-                    switch (((struct ___OBJ *)result__SNGB)->__id) {
-                    case __ITM_TYPE_PARAMETER__: {
-                      __tmp__WME=((void *)result__SNGB);
-                    } break;
-                    case __ITM_TYPE_SIMPLE__: {
-                      __tmp__WME=NULL;
-                    } break;
-                    }
-                  };
-                  res__UKE=__tmp__WME;
-                };
-              };
-              if (((void *)res__UKE == (void *)NULL)) {
-                pos__L0XG=current_position__B0F();
-                put_error__text__1PG( 0,(&__string_261));
-                put_position__FRG(pos__L0XG);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-              add_last__NABC(((__PROTOTYPE *)object__ZBC)->idf_generic_list__MOE,res__UKE);
-              goto while_do__LYK;
-            };
-          };
-          result__NYJH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__NYJH=FALSE__;
-          } else {
-            result__OYJH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__OYJH=((__CHARACTER )(( 0)));
-            } else {
-              result__OYJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__OYJH == ')')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__NYJH=TRUE__;
-            };
-          };
-          if ((! result__NYJH)) {
-            pos__N0XG=current_position__B0F();
-            put_error__text__1PG( 2,(&__string_262));
-            put_position__FRG(pos__N0XG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          if (((! is_shorter__LZ) && (! is_shorter2__VI))) {
-            if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_PARAMETERo *)((__PROTOTYPE *)object__ZBC)->idf_generic_list__MOE)->parent_arrayed_collection__LOE.upper__RABC +  1) !=  0)) {
-              pos__P0XG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_263));
-              put_position__FRG(pos__P0XG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-          };
-        };
-      } else {
-        pos__R0XG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_264));
-        put_position__FRG(pos__R0XG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      __tmp__BRE=TRUE__;
-    } else {
-      __tmp__BRE=FALSE__;
-    };
-    if (__tmp__BRE) {
-      __tmp__HTE=TRUE__;
-    } else {
-      __tmp__TRE=(read_word__ISF((&__string_63)) || read_word__ISF((&__string_64)));
-      if (__tmp__TRE) {
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__T0XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__T0XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (((void *)read_type_list__ENO(PARSER__,FALSE__) == (void *)NULL)) {
-          pos__V0XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_265));
-          put_position__FRG(pos__V0XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-      __tmp__HTE=__tmp__TRE;
-    };
-    if (__tmp__HTE) {
-      __tmp__3UE=TRUE__;
-    } else {
-      result__RBH=read_word__ISF((&__string_65));
-      if (result__RBH) {
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__X0XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__X0XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if ((! read_external__2TO())) {
-          pos__Z0XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_266));
-          put_position__FRG(pos__Z0XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        append__3OS(output_decl__VHE,(&__string_267));
-        append__3OS(output_decl__VHE,((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI);
-        Self__G5HH=((__STRING *)output_decl__VHE);
-        new_capacity__F5HH= 0;
-        if ((Self__G5HH->capacity__UCS <= Self__G5HH->count__SGC)) {
-          if ((Self__G5HH->capacity__UCS ==  0)) {
-            Self__G5HH->capacity__UCS= 32;
-            Self__G5HH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__F5HH=(__INTEGER)(Self__G5HH->capacity__UCS <<  1);
-            Self__H5HH=((__CHARACTER *)Self__G5HH->storage__3CS);
-            old_nb_elts__I5HH=Self__G5HH->capacity__UCS;
-            new__J5HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__H5HH),((__UINTEGER_32 )old_nb_elts__I5HH),((__UINTEGER_32 )new_capacity__F5HH)));
-            upper__TYJH=(__INTEGER)(new_capacity__F5HH -  1);
-            Self__RYJH=old_nb_elts__I5HH;
-            while ((Self__RYJH <= upper__TYJH)) {
-              new__J5HH[Self__RYJH]='\0';
-              Self__RYJH=(__INTEGER)(Self__RYJH +  1);
-            };
-            Self__G5HH->storage__3CS=new__J5HH;
-            Self__G5HH->capacity__UCS=new_capacity__F5HH;
-          };
-        };
-        ((__CHARACTER *)Self__G5HH->storage__3CS)[Self__G5HH->count__SGC]='\n';
-        Self__G5HH->count__SGC=(__INTEGER)(Self__G5HH->count__SGC +  1);
-        append__3OS(output_decl__VHE,last_string__D2C);
-        Self__M5HH=((__STRING *)output_decl__VHE);
-        new_capacity__L5HH= 0;
-        if ((Self__M5HH->capacity__UCS <= Self__M5HH->count__SGC)) {
-          if ((Self__M5HH->capacity__UCS ==  0)) {
-            Self__M5HH->capacity__UCS= 32;
-            Self__M5HH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__L5HH=(__INTEGER)(Self__M5HH->capacity__UCS <<  1);
-            Self__N5HH=((__CHARACTER *)Self__M5HH->storage__3CS);
-            old_nb_elts__O5HH=Self__M5HH->capacity__UCS;
-            new__P5HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__N5HH),((__UINTEGER_32 )old_nb_elts__O5HH),((__UINTEGER_32 )new_capacity__L5HH)));
-            upper__YYJH=(__INTEGER)(new_capacity__L5HH -  1);
-            Self__WYJH=old_nb_elts__O5HH;
-            while ((Self__WYJH <= upper__YYJH)) {
-              new__P5HH[Self__WYJH]='\0';
-              Self__WYJH=(__INTEGER)(Self__WYJH +  1);
-            };
-            Self__M5HH->storage__3CS=new__P5HH;
-            Self__M5HH->capacity__UCS=new_capacity__L5HH;
-          };
-        };
-        ((__CHARACTER *)Self__M5HH->storage__3CS)[Self__M5HH->count__SGC]='\n';
-        Self__M5HH->count__SGC=(__INTEGER)(Self__M5HH->count__SGC +  1);
-      };
-      __tmp__3UE=result__RBH;
-    };
-    if (__tmp__3UE) {
-      __tmp__ZWE=TRUE__;
-    } else {
-      result__DCH=read_word__ISF((&__string_66));
-      if (result__DCH) {
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__10XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__10XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        v__QFE=read_expr_primary__E5M(PARSER__);
-        if (((void *)v__QFE == (void *)NULL)) {
-          pos__30XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_268));
-          put_position__FRG(pos__30XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (((void *)((__PROTOTYPE *)object__ZBC)->default_value__LWE != (void *)NULL)) {
-          pos__QD2G=current_position__B0F();
-          put_error__text__1PG( 1,(&__string_269));
-          put_position__FRG(pos__QD2G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        ((__PROTOTYPE *)object__ZBC)->default_value__LWE=v__QFE;
-      };
-      __tmp__ZWE=result__DCH;
-    };
-    if (__tmp__ZWE) {
-      __tmp__VYE=TRUE__;
-    } else {
-      result__VCH=read_word__ISF((&__string_67));
-      if (result__VCH) {
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__50XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__50XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if ((! read_external__2TO())) {
-          pos__B1XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_266));
-          put_position__FRG(pos__B1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (((void *)((__PROTOTYPE *)object__ZBC)->type_c__GYE != (void *)NULL)) {
-          pos__BKM=current_position__B0F();
-          put_error__text__1PG( 1,(&__string_270));
-          put_position__FRG(pos__BKM);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        ((__PROTOTYPE *)object__ZBC)->type_c__GYE=last_string__D2C;
-      };
-      __tmp__VYE=result__VCH;
-    };
-    if (__tmp__VYE) {
-      __tmp__C0E=TRUE__;
-    } else {
-      result__HDH=read_word__ISF((&__string_68));
-      if (result__HDH) {
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__D1XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__D1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if ((! read_integer__22P())) {
-          pos__F1XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_271));
-          put_position__FRG(pos__F1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-      __tmp__C0E=result__HDH;
-    };
-    if (__tmp__C0E) {
-      __tmp__I2E=TRUE__;
-    } else {
-      result__ZDH=read_word__ISF((&__string_88));
-      if (result__ZDH) {
-        if ((! read_symbol__4YJ((&__string_14)))) {
-          pos__H1XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_272));
-          put_position__FRG(pos__H1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__0YJH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__0YJH=FALSE__;
-        } else {
-          result__1YJH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__1YJH=((__CHARACTER )(( 0)));
-          } else {
-            result__1YJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__1YJH == '(')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__0YJH=TRUE__;
-          };
-        };
-        if ((! result__0YJH)) {
-          pos__J1XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_273));
-          put_position__FRG(pos__J1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        while_do__UDFB:
-        {
-          instr__YFE=readlip_expr__YRPB();
-          if (((void *)instr__YFE != (void *)NULL)) {
-            switch (((struct ___OBJ *)instr__YFE)->__id) {
-            case __LIP_AFFECT__: {
-              run__0FFC(instr__YFE);
-            } break;
-            case __LIP_BINARY__: {
-              __tmp__SFQD=((__LIP_BINARY *)instr__YFE)->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
-              put_error__text__1PG( 2,(&__string_274));
-              put_position__FRG(__tmp__SFQD);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            } break;
-            case __LIP_UNARY__: {
-              __tmp__XFQD=((__LIP_UNARY *)instr__YFE)->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
-              put_error__text__1PG( 2,(&__string_274));
-              put_position__FRG(__tmp__XFQD);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            } break;
-            case __LIP_CALL__: {
-              run__WQUE(instr__YFE);
-            } break;
-            case __LIP_IF__: {
-              run__ZFQD(instr__YFE);
-            } break;
-            case __LIP_PRINT__: {
-              run__KVUE(instr__YFE);
-            } break;
-            case __LIP_VALUE__: {
-              __tmp__SD2G=((__LIP_VALUE *)instr__YFE)->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ;
-              put_error__text__1PG( 2,(&__string_274));
-              put_position__FRG(__tmp__SD2G);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            } break;
-            };
-            result__3YJH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__3YJH=FALSE__;
-            } else {
-              result__4YJH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__4YJH=((__CHARACTER )(( 0)));
-              } else {
-                result__4YJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__4YJH == ';')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__3YJH=TRUE__;
-              };
-            };
-            if ((! result__3YJH)) {
-              pos__L1XG=current_position__B0F();
-              put_error__text__1PG( 2,(&__string_167));
-              put_position__FRG(pos__L1XG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            goto while_do__UDFB;
-          };
-        };
-        result__AZJH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__AZJH=FALSE__;
-        } else {
-          result__BZJH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__BZJH=((__CHARACTER )(( 0)));
-          } else {
-            result__BZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__BZJH == ')')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__AZJH=TRUE__;
-          };
-        };
-        if ((! result__AZJH)) {
-          pos__N1XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_237));
-          put_position__FRG(pos__N1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-      __tmp__I2E=result__ZDH;
-    };
-    if ((! __tmp__I2E)) {
-      if (((((((read_word__ISF((&__string_69)) || read_word__ISF((&__string_70))) || read_word__ISF((&__string_71))) || read_word__ISF((&__string_72))) || read_word__ISF((&__string_73))) || read_word__ISF((&__string_74))) || read_word__ISF((&__string_75)))) {
-        short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        if ((! read_symbol__4YJ((&__string_12)))) {
-          pos__P1XG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_254));
-          put_position__FRG(pos__P1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if ((! read_string__HGQ())) {
-          pos__R1XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_275));
-          put_position__FRG(pos__R1XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (is_shorter2__VI) {
-          ((__PROTOTYPE *)object__ZBC)->comment_slot__YRTC=last_string__D2C;
-        };
-      } else {
-        pos__T1XG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_276));
-        put_position__FRG(pos__T1XG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-    result__DZJH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__DZJH=FALSE__;
-    } else {
-      result__EZJH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__EZJH=((__CHARACTER )(( 0)));
-      } else {
-        result__EZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__EZJH == ';')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__DZJH=TRUE__;
-      };
-    };
-    if ((! result__DZJH)) {
-      pos__V1XG=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_241));
-      put_position__FRG(pos__V1XG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  };
-  return(result__OFE);
-}
-
-static void* get_name__TROB(void *n__VROB)
-// ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *result__FOEC,*result__XROB;
-  __SECTION_ *result__P2YB,*Self__YWFC;
-  __POINTER ptr__Q2YB,ptr_table__HZJH,next__GZJH,result__IZJH;
-  __POINTER ptr_table__MZJH,next__LZJH,result__NZJH,ptr__RDID;
-  __POINTER ptr_table__RZJH,next__QZJH,result__SZJH,ptr_table__WZJH;
-  __POINTER next__VZJH,result__XZJH;
-  __INTEGER typ_id__V2YB,h__GXFC,idx__HXFC,idx__HBID,new_capacity__IBID;
-  __INTEGER i__JBID,typ_id__WDID;
-  __UINTEGER_32 sz__S2YB,a__PSFH,new_size__QSFH,t__USFH,a__TSFH;
-  __UINTEGER_32 new_size__PZJH,lab_type__OZJH,sz__TDID,a__BSFH;
-  __UINTEGER_32 new_size__CSFH,t__GSFH,a__FSFH,new_size__ZZJH;
-  __UINTEGER_32 lab_type__YZJH;
-  __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__ZNEC,*Self__3WFC;
-  void *node__EOEC,*node__IXFC,*node1__LBID,*node2__MBID,*__tmp__WYFC;
-  void **old_buckets__KBID;
-  __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *result__QDID;
-  __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *Self__LGTD;
-  Self__ZNEC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__2ROB);
-  result__FOEC=NULL;
-  node__EOEC=((void **)Self__ZNEC->buckets__MOEC)[(__INTEGER)(hash_code__RNW(n__VROB) % Self__ZNEC->capacity__HOEC)];
-  while ((! (((void *)node__EOEC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__EOEC)->key__YOEC == (void *)n__VROB)))) {
-    node__EOEC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__EOEC)->next__DPEC;
-  };
-  if (((void *)node__EOEC != (void *)NULL)) {
-    result__FOEC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__EOEC)->item__LPEC;
-  };
-  result__XROB=result__FOEC;
-  if (((void *)result__FOEC == (void *)NULL)) {
-    result__P2YB=NULL;
-    ptr__Q2YB=((__POINTER )(NULL));
-    typ_id__V2YB= 0;
-    sz__S2YB=((__UINTEGER_32 )sizeof(__SECTION_));
-    if ((sz__S2YB ==  0)) {
-      result__P2YB=SECTION___;
-    } else {
-      typ_id__V2YB=__SECTION___;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__S2YB);
-      if ((typ_id__V2YB == (__INTEGER)(-  1))) {
-        a__PSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__QSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__S2YB + a__PSFH) & (__UINTEGER_32)(~ a__PSFH));
-        ptr_table__HZJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__GZJH=((__POINTER )(NULL));
-        result__IZJH=((__POINTER *)ptr_table__HZJH)[ 0];
-        if ((result__IZJH == (void *)NULL)) {
-          result__IZJH=new_lab__RTJ(new_size__QSFH);
-          next__GZJH=(void *)((unsigned long)result__IZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QSFH)));
-          ((__POINTER *)next__GZJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__HZJH)[ 0]=next__GZJH;
-        } else {
-          next__GZJH=((__POINTER *)result__IZJH)[ 0];
-          if ((next__GZJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IZJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QSFH <<  1)) <=  4096)) {
-              next__GZJH=(void *)((unsigned long)result__IZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QSFH)));
-            } else {
-              next__GZJH=new_lab__RTJ(new_size__QSFH);
-            };
-            ((__POINTER *)next__GZJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__HZJH)[ 0]=next__GZJH;
-          } else {
-            ((__POINTER *)result__IZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__IZJH=next__GZJH;
-          };
-        };
-        ptr__Q2YB=result__IZJH;
-      } else {
-        t__USFH=((__UINTEGER_32 )typ_id__V2YB);
-        a__TSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__PZJH=(__UINTEGER_32)((__UINTEGER_32)(sz__S2YB + a__TSFH) & (__UINTEGER_32)(~ a__TSFH));
-        ptr_table__MZJH=((__POINTER )(&(table_type[(t__USFH)])));
-        lab_type__OZJH=(__UINTEGER_32)(t__USFH |  1);
-        next__LZJH=((__POINTER )(NULL));
-        result__NZJH=((__POINTER *)ptr_table__MZJH)[ 0];
-        if ((result__NZJH == (void *)NULL)) {
-          result__NZJH=new_lab__RTJ(lab_type__OZJH);
-          next__LZJH=(void *)((unsigned long)result__NZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZJH)));
-          ((__POINTER *)next__LZJH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MZJH)[ 0]=next__LZJH;
-        } else {
-          next__LZJH=((__POINTER *)result__NZJH)[ 0];
-          if ((next__LZJH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NZJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PZJH <<  1)) <=  4096)) {
-              next__LZJH=(void *)((unsigned long)result__NZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZJH)));
-            } else {
-              next__LZJH=new_lab__RTJ(lab_type__OZJH);
-            };
-            ((__POINTER *)next__LZJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__MZJH)[ 0]=next__LZJH;
-          } else {
-            ((__POINTER *)result__NZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__NZJH=next__LZJH;
-          };
-        };
-        ptr__Q2YB=result__NZJH;
-      };
-      result__P2YB=((__SECTION_ *)ptr__Q2YB);
-      *(result__P2YB) = *(SECTION___);
-    };
-    result__XROB=result__P2YB;
-    Self__YWFC=((__SECTION_ *)result__P2YB);
-    Self__YWFC->name__MYDC=n__VROB;
-    Self__YWFC->type_list__1WFC=NULL;
-    Self__3WFC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__2ROB);
-    h__GXFC=hash_code__RNW(n__VROB);
-    idx__HXFC=(__INTEGER)(h__GXFC % Self__3WFC->capacity__HOEC);
-    node__IXFC=((void **)Self__3WFC->buckets__MOEC)[idx__HXFC];
-    while ((! (((void *)node__IXFC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IXFC)->key__YOEC == (void *)n__VROB)))) {
-      node__IXFC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IXFC)->next__DPEC;
-    };
-    if (((void *)node__IXFC == (void *)NULL)) {
-      if ((Self__3WFC->capacity__HOEC == Self__3WFC->count__JYFC)) {
-        idx__HBID= 0;
-        node1__LBID=NULL;
-        node2__MBID=NULL;
-        old_buckets__KBID=Self__3WFC->buckets__MOEC;
-        new_capacity__IBID=prime_number_ceiling__021((__INTEGER)(Self__3WFC->capacity__HOEC +  1));
-        Self__3WFC->buckets__MOEC=create__C3XC(new_capacity__IBID);
-        i__JBID=(__INTEGER)(Self__3WFC->capacity__HOEC -  1);
-        Self__3WFC->capacity__HOEC=new_capacity__IBID;
-        while ((i__JBID >=  0)) {
-          node1__LBID=((void **)old_buckets__KBID)[i__JBID];
-          while (((void *)node1__LBID != (void *)NULL)) {
-            node2__MBID=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__LBID)->next__DPEC;
-            idx__HBID=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__LBID)->key__YOEC) % Self__3WFC->capacity__HOEC);
-            ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__LBID)->next__DPEC=((void **)Self__3WFC->buckets__MOEC)[idx__HBID];
-            ((void **)Self__3WFC->buckets__MOEC)[idx__HBID]=node1__LBID;
-            node1__LBID=node2__MBID;
-          };
-          i__JBID=(__INTEGER)(i__JBID -  1);
-        };
-        idx__HXFC=(__INTEGER)(h__GXFC % Self__3WFC->capacity__HOEC);
-      };
-      __tmp__WYFC=((void **)Self__3WFC->buckets__MOEC)[idx__HXFC];
-      result__QDID=NULL;
-      ptr__RDID=((__POINTER )(NULL));
-      typ_id__WDID= 0;
-      sz__TDID=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo));
-      if ((sz__TDID ==  0)) {
-        result__QDID=HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
-      } else {
-        typ_id__WDID=__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__TDID);
-        if ((typ_id__WDID == (__INTEGER)(-  1))) {
-          a__BSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__CSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__TDID + a__BSFH) & (__UINTEGER_32)(~ a__BSFH));
-          ptr_table__RZJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__QZJH=((__POINTER )(NULL));
-          result__SZJH=((__POINTER *)ptr_table__RZJH)[ 0];
-          if ((result__SZJH == (void *)NULL)) {
-            result__SZJH=new_lab__RTJ(new_size__CSFH);
-            next__QZJH=(void *)((unsigned long)result__SZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSFH)));
-            ((__POINTER *)next__QZJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__RZJH)[ 0]=next__QZJH;
-          } else {
-            next__QZJH=((__POINTER *)result__SZJH)[ 0];
-            if ((next__QZJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SZJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CSFH <<  1)) <=  4096)) {
-                next__QZJH=(void *)((unsigned long)result__SZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSFH)));
-              } else {
-                next__QZJH=new_lab__RTJ(new_size__CSFH);
-              };
-              ((__POINTER *)next__QZJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__RZJH)[ 0]=next__QZJH;
-            } else {
-              ((__POINTER *)result__SZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__SZJH=next__QZJH;
-            };
-          };
-          ptr__RDID=result__SZJH;
-        } else {
-          t__GSFH=((__UINTEGER_32 )typ_id__WDID);
-          a__FSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__ZZJH=(__UINTEGER_32)((__UINTEGER_32)(sz__TDID + a__FSFH) & (__UINTEGER_32)(~ a__FSFH));
-          ptr_table__WZJH=((__POINTER )(&(table_type[(t__GSFH)])));
-          lab_type__YZJH=(__UINTEGER_32)(t__GSFH |  1);
-          next__VZJH=((__POINTER )(NULL));
-          result__XZJH=((__POINTER *)ptr_table__WZJH)[ 0];
-          if ((result__XZJH == (void *)NULL)) {
-            result__XZJH=new_lab__RTJ(lab_type__YZJH);
-            next__VZJH=(void *)((unsigned long)result__XZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZJH)));
-            ((__POINTER *)next__VZJH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WZJH)[ 0]=next__VZJH;
-          } else {
-            next__VZJH=((__POINTER *)result__XZJH)[ 0];
-            if ((next__VZJH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XZJH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZZJH <<  1)) <=  4096)) {
-                next__VZJH=(void *)((unsigned long)result__XZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZJH)));
-              } else {
-                next__VZJH=new_lab__RTJ(lab_type__YZJH);
-              };
-              ((__POINTER *)next__VZJH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__WZJH)[ 0]=next__VZJH;
-            } else {
-              ((__POINTER *)result__XZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__XZJH=next__VZJH;
-            };
-          };
-          ptr__RDID=result__XZJH;
-        };
-        result__QDID=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)ptr__RDID);
-        *(result__QDID) = *(HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__);
-      };
-      Self__LGTD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)result__QDID);
-      Self__LGTD->item__LPEC=result__P2YB;
-      Self__LGTD->key__YOEC=n__VROB;
-      Self__LGTD->next__DPEC=__tmp__WYFC;
-      node__IXFC=result__QDID;
-      ((void **)Self__3WFC->buckets__MOEC)[idx__HXFC]=result__QDID;
-      Self__3WFC->count__JYFC=(__INTEGER)(Self__3WFC->count__JYFC +  1);
-    } else {
-      ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IXFC)->item__LPEC=result__P2YB;
-    };
-  };
-  return(result__XROB);
-}
-
-static void* read_type_list__ENO(__PARSER *Self__FNO,__BOOLEAN is_section__GNO)
-// ({PARSER},{TRUExFALSE}) With resultNo recursive, No inlinable.
-{
-  void *ts__KNO,*__tmp__XNO,*__tmp__BPO;
-  void *t__JNO;
-  __POSITION pos__B4XG,pos__D4XG,pos__F4XG;
-  void *lst__INO,*result__JEHH;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__KEHH,*Self__LEHH;
-  __BOOLEAN result__0ZJH;
-  __CHARACTER result__1ZJH;
-  lst__INO=NULL;
-  ts__KNO=NULL;
-  t__JNO=read_type__CDM(Self__FNO,FALSE__);
-  if (((void *)t__JNO != (void *)NULL)) {
-    if (is_section__GNO) {
-      if (t__JNO==NULL) {
-        __tmp__XNO=NULL;
-      } else {
-        switch (((struct ___OBJ *)t__JNO)->__id) {
-        case __ITM_TYPE_PARAMETER__: {
-          __tmp__XNO=((void *)t__JNO);
-        } break;
-        case __ITM_TYPE_SIMPLE__: {
-          __tmp__XNO=((void *)t__JNO);
-        } break;
-        case __ITM_TYPE_BLOCK__: {
-          __tmp__XNO=NULL;
-        } break;
-        case __ITM_TYPE_GENERIC__: {
-          __tmp__XNO=((void *)t__JNO);
-        } break;
-        case __ITM_TYPE_STYLE__: {
-          __tmp__XNO=((void *)t__JNO);
-        } break;
-        }
-      };
-      ts__KNO=__tmp__XNO;
-      if (((void *)__tmp__XNO == (void *)NULL)) {
-        pos__B4XG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_277));
-        put_position__FRG(pos__B4XG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-    result__JEHH=NULL;
-    if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP)->parent_arrayed_collection__FVP.upper__ZUV <  0)) {
-      result__JEHH=create_with_capacity__EGR( 16);
-    } else {
-      Self__KEHH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-      result__JEHH=((void **)Self__KEHH->parent_arrayed_collection__FVP.storage__PZV)[Self__KEHH->parent_arrayed_collection__FVP.upper__ZUV];
-      Self__LEHH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-      Self__LEHH->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__LEHH->parent_arrayed_collection__FVP.upper__ZUV -  1);
-    };
-    lst__INO=result__JEHH;
-    add_last__ONV(result__JEHH,t__JNO);
-    while_do__YVP:
-    {
-      result__0ZJH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__0ZJH=FALSE__;
-      } else {
-        result__1ZJH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__1ZJH=((__CHARACTER )(( 0)));
-        } else {
-          result__1ZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__1ZJH == ',')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__0ZJH=TRUE__;
-        };
-      };
-      if (result__0ZJH) {
-        t__JNO=read_type__CDM(Self__FNO,FALSE__);
-        if (((void *)t__JNO == (void *)NULL)) {
-          pos__D4XG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_265));
-          put_position__FRG(pos__D4XG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (is_section__GNO) {
-          if (t__JNO==NULL) {
-            __tmp__BPO=NULL;
-          } else {
-            switch (((struct ___OBJ *)t__JNO)->__id) {
-            case __ITM_TYPE_PARAMETER__: {
-              __tmp__BPO=((void *)t__JNO);
-            } break;
-            case __ITM_TYPE_SIMPLE__: {
-              __tmp__BPO=((void *)t__JNO);
-            } break;
-            case __ITM_TYPE_BLOCK__: {
-              __tmp__BPO=NULL;
-            } break;
-            case __ITM_TYPE_GENERIC__: {
-              __tmp__BPO=((void *)t__JNO);
-            } break;
-            case __ITM_TYPE_STYLE__: {
-              __tmp__BPO=((void *)t__JNO);
-            } break;
-            }
-          };
-          ts__KNO=__tmp__BPO;
-          if (((void *)__tmp__BPO == (void *)NULL)) {
-            pos__F4XG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_277));
-            put_position__FRG(pos__F4XG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-        };
-        add_last__ONV(lst__INO,t__JNO);
-        goto while_do__YVP;
-      };
-    };
-    lst__INO=alias__CWP(result__JEHH);
-  };
-  return(lst__INO);
-}
-
-static __INTEGER hash_code__S30(__FAST_ARRAYoITM_TYPE_MONOo *Self__T30)
-// ({FAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__V30,__tmp__E40,__tmp__T40;
-  void *__tmp__D40,*__tmp__S40;
-  __BOOLEAN __tmp__G40;
-  result__V30= 0;
-  if ((! (Self__T30->parent_arrayed_collection__SYC.upper__4HV <  0))) {
-    if (((void *)((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[Self__T30->parent_arrayed_collection__SYC.upper__4HV] != (void *)NULL)) {
-      __tmp__D40=((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[Self__T30->parent_arrayed_collection__SYC.upper__4HV];
-      switch (((struct ___OBJ *)__tmp__D40)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        __tmp__E40=hash_code__RNW(((__ITM_TYPE_PARAMETER *)__tmp__D40)->parent_itm_type__VFE.name__GZP);
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        __tmp__E40=hash_code__RNW(((__ITM_TYPE_SIMPLE *)__tmp__D40)->name__GZP);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        print__OJD((&__string_278));
-        fputc((int)('\n'),stdout);
-        exit(( 1));
-        __tmp__E40= 0;
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        __tmp__E40=hash_code__RNW(((__ITM_TYPE_GENERIC *)__tmp__D40)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP);
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        __tmp__E40=hash_code__RNW(((__ITM_TYPE_STYLE *)__tmp__D40)->parent_itm_type_simple__3SN.name__GZP);
-      } break;
-      };
-      result__V30=__tmp__E40;
-      __tmp__G40=TRUE__;
-    } else {
-      __tmp__G40=FALSE__;
-    };
-    if ((! __tmp__G40)) {
-      if (((void *)((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[ 0] != (void *)NULL)) {
-        __tmp__S40=((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[ 0];
-        switch (((struct ___OBJ *)__tmp__S40)->__id) {
-        case __ITM_TYPE_PARAMETER__: {
-          __tmp__T40=hash_code__RNW(((__ITM_TYPE_PARAMETER *)__tmp__S40)->parent_itm_type__VFE.name__GZP);
-        } break;
-        case __ITM_TYPE_SIMPLE__: {
-          __tmp__T40=hash_code__RNW(((__ITM_TYPE_SIMPLE *)__tmp__S40)->name__GZP);
-        } break;
-        case __ITM_TYPE_BLOCK__: {
-          print__OJD((&__string_278));
-          fputc((int)('\n'),stdout);
-          exit(( 1));
-          __tmp__T40= 0;
-        } break;
-        case __ITM_TYPE_GENERIC__: {
-          __tmp__T40=hash_code__RNW(((__ITM_TYPE_GENERIC *)__tmp__S40)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP);
-        } break;
-        case __ITM_TYPE_STYLE__: {
-          __tmp__T40=hash_code__RNW(((__ITM_TYPE_STYLE *)__tmp__S40)->parent_itm_type_simple__3SN.name__GZP);
-        } break;
-        };
-        result__V30=__tmp__T40;
-      };
-    };
-  };
-  return(result__V30);
-}
-
-static __CHARACTER read_style__PUF()
-// () With resultNo recursive, No inlinable.
-{
-  __CHARACTER result__SUF,result__4ZJH,result__B0JH;
-  __BOOLEAN result__3ZJH,__tmp__5UF,result__A0JH;
-  result__SUF='\0';
-  result__3ZJH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__3ZJH=FALSE__;
-  } else {
-    result__4ZJH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__4ZJH=((__CHARACTER )(( 0)));
-    } else {
-      result__4ZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__4ZJH == '-')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__3ZJH=TRUE__;
-    };
-  };
-  if (result__3ZJH) {
-    result__SUF='-';
-    short__token__to__GDD((&__string_132),(__INTEGER)(position__CCC -  1),position__CCC);
-    __tmp__5UF=TRUE__;
-  } else {
-    __tmp__5UF=FALSE__;
-  };
-  if ((! __tmp__5UF)) {
-    result__A0JH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__A0JH=FALSE__;
-    } else {
-      result__B0JH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__B0JH=((__CHARACTER )(( 0)));
-      } else {
-        result__B0JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__B0JH == '+')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__A0JH=TRUE__;
-      };
-    };
-    if (result__A0JH) {
-      result__SUF='+';
-      short__token__to__GDD((&__string_132),(__INTEGER)(position__CCC -  1),position__CCC);
-    } else {
-      result__SUF=' ';
-    };
-  };
-  return(result__SUF);
-}
-
-static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__LJ5B(__INTEGER new_count__NJ5B)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __POINTER ptr__C15B,ptr_table__E0JH,next__D0JH,result__F0JH;
-  __POINTER ptr_table__J0JH,next__I0JH,result__K0JH;
-  __INTEGER typ_id__H15B;
-  __UINTEGER_32 sz__E15B,a__XSFH,new_size__YSFH,t__2SFH,a__1SFH;
-  __UINTEGER_32 new_size__M0JH,lab_type__L0JH;
-  __FAST_ARRAYoITM_ARGUMENTo *result__B15B,*Self__KSHC;
-  result__B15B=NULL;
-  ptr__C15B=((__POINTER )(NULL));
-  typ_id__H15B= 0;
-  sz__E15B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_ARGUMENTo));
-  if ((sz__E15B ==  0)) {
-    result__B15B=FAST_ARRAYoITM_ARGUMENTo__;
-  } else {
-    typ_id__H15B=__FAST_ARRAYoITM_ARGUMENTo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__E15B);
-    if ((typ_id__H15B == (__INTEGER)(-  1))) {
-      a__XSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__YSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__E15B + a__XSFH) & (__UINTEGER_32)(~ a__XSFH));
-      ptr_table__E0JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__D0JH=((__POINTER )(NULL));
-      result__F0JH=((__POINTER *)ptr_table__E0JH)[ 0];
-      if ((result__F0JH == (void *)NULL)) {
-        result__F0JH=new_lab__RTJ(new_size__YSFH);
-        next__D0JH=(void *)((unsigned long)result__F0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YSFH)));
-        ((__POINTER *)next__D0JH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__E0JH)[ 0]=next__D0JH;
-      } else {
-        next__D0JH=((__POINTER *)result__F0JH)[ 0];
-        if ((next__D0JH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F0JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YSFH <<  1)) <=  4096)) {
-            next__D0JH=(void *)((unsigned long)result__F0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YSFH)));
-          } else {
-            next__D0JH=new_lab__RTJ(new_size__YSFH);
-          };
-          ((__POINTER *)next__D0JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__E0JH)[ 0]=next__D0JH;
-        } else {
-          ((__POINTER *)result__F0JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D0JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__F0JH=next__D0JH;
-        };
-      };
-      ptr__C15B=result__F0JH;
-    } else {
-      t__2SFH=((__UINTEGER_32 )typ_id__H15B);
-      a__1SFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__M0JH=(__UINTEGER_32)((__UINTEGER_32)(sz__E15B + a__1SFH) & (__UINTEGER_32)(~ a__1SFH));
-      ptr_table__J0JH=((__POINTER )(&(table_type[(t__2SFH)])));
-      lab_type__L0JH=(__UINTEGER_32)(t__2SFH |  1);
-      next__I0JH=((__POINTER )(NULL));
-      result__K0JH=((__POINTER *)ptr_table__J0JH)[ 0];
-      if ((result__K0JH == (void *)NULL)) {
-        result__K0JH=new_lab__RTJ(lab_type__L0JH);
-        next__I0JH=(void *)((unsigned long)result__K0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M0JH)));
-        ((__POINTER *)next__I0JH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__J0JH)[ 0]=next__I0JH;
-      } else {
-        next__I0JH=((__POINTER *)result__K0JH)[ 0];
-        if ((next__I0JH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__M0JH <<  1)) <=  4096)) {
-            next__I0JH=(void *)((unsigned long)result__K0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M0JH)));
-          } else {
-            next__I0JH=new_lab__RTJ(lab_type__L0JH);
-          };
-          ((__POINTER *)next__I0JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__J0JH)[ 0]=next__I0JH;
-        } else {
-          ((__POINTER *)result__K0JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__K0JH=next__I0JH;
-        };
-      };
-      ptr__C15B=result__K0JH;
-    };
-    result__B15B=((__FAST_ARRAYoITM_ARGUMENTo *)ptr__C15B);
-    *(result__B15B) = *(FAST_ARRAYoITM_ARGUMENTo__);
-  };
-  Self__KSHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__B15B);
-  if ((Self__KSHC->parent_arrayed_collection__Z5YB.capacity__K5GC < new_count__NJ5B)) {
-    Self__KSHC->parent_arrayed_collection__Z5YB.storage__GAHC=create__PRBD(new_count__NJ5B);
-    Self__KSHC->parent_arrayed_collection__Z5YB.capacity__K5GC=new_count__NJ5B;
-  };
-  Self__KSHC->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(-  1);
-  return(result__B15B);
-}
-
-static void* read_loc_arg__with_self__BBHB(__PARSER *Self__CBHB,__BOOLEAN mute__DBHB,__BOOLEAN self_first__EBHB)
-// ({PARSER},{TRUExFALSE},{TRUExFALSE}) With resultNo recursive, No inlinable.
-{
-  void *result__GBHB,*result__A4EE;
-  void *t__HBHB,*t__03EE,*__tmp__ZCFE,*t__0X5B;
-  __POSITION pos__IBHB,pos__R5XG,pos__T5XG,pos__V5XG,pos__X5XG;
-  __POSITION pos__Z5XG,pos__GAYG,pos__IAYG,p__YX5B,p__DPMF,pos__SCYG;
-  __POSITION pos__UCYG;
-  void *n__LBHB,*n__ZX5B;
-  void *tb__MBHB,*__tmp__AEHB,*tb__B4EE,*__tmp__0CFE;
-  __ITM_ARG *result__S0JH,*Self__00JH,*result__YCAC,*Self__B0HC;
-  __POINTER ptr__T0JH,ptr_table__50JH,next__40JH,result__A1JH;
-  __POINTER ptr_table__E1JH,next__D1JH,result__F1JH,ptr__ZCAC;
-  __POINTER ptr_table__U1JH,next__T1JH,result__V1JH,ptr_table__Z1JH;
-  __POINTER next__Y1JH,result__01JH,ptr__ER1F,ptr_table__41JH;
-  __POINTER next__31JH,result__51JH,ptr_table__D2JH,next__C2JH;
-  __POINTER result__E2JH,ptr__VANF,ptr_table__I2JH,next__H2JH;
-  __POINTER result__J2JH,ptr_table__N2JH,next__M2JH,result__O2JH;
-  __INTEGER typ_id__U0JH,beg__43EE,Self__LNTF,limit_up__MNTF;
-  __INTEGER typ_id__4CAC,__tmp__Y0IG,i__2JOG,h__4OQF,idx__5OQF;
-  __INTEGER idx__LP2F,new_capacity__MP2F,i__KP2F,typ_id__JR1F;
-  __INTEGER typ_id__0ANF,__tmp__PEFE,Self__MPMF;
-  __UINTEGER_32 sz__V0JH,a__W0JH,new_size__X0JH,t__Y0JH,a__Z0JH;
-  __UINTEGER_32 new_size__H1JH,lab_type__G1JH,sz__1CAC,a__BVFH;
-  __UINTEGER_32 new_size__CVFH,t__GVFH,a__FVFH,new_size__21JH;
-  __UINTEGER_32 lab_type__11JH,sz__GR1F,a__AUFH,new_size__BUFH,t__FUFH;
-  __UINTEGER_32 a__EUFH,new_size__G2JH,lab_type__F2JH,sz__XANF,a__LUFH;
-  __UINTEGER_32 new_size__MUFH,t__QUFH,a__PUFH,new_size__Q2JH;
-  __UINTEGER_32 lab_type__P2JH;
-  void *tm__13EE;
-  __ITM_ARGS *result__UANF,*Self__TDQF;
-  __BOOLEAN result__O0JH,__tmp__XBHB,result__P0JH,__tmp__0CHB;
-  __BOOLEAN __tmp__DEHB,__tmp__HEHB,__tmp__MFHB,result__I1JH,mute__53EE;
-  __BOOLEAN result__M1JH,__tmp__M4EE,result__N1JH,__tmp__JAFE;
-  __BOOLEAN result__Q1JH,__tmp__ADFE,__tmp__3CFE,__tmp__DDFE;
-  __BOOLEAN __tmp__CMQF,result__WZIG,result__R2JH;
-  __CHARACTER result__Q0JH,result__I55G,result__J1JH,result__O1JH;
-  __CHARACTER result__N55G,result__R1JH,result__S2JH;
-  void *type__23EE,*result__AVP;
-  void *name__33EE,*result__MEHH,*result__BOMF,*e__XKQF,*result__KLQF;
-  void *e__XOQF;
-  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__NEHH,*Self__OEHH;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__Y5AB,*Self__OABB;
-  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__WKQF,*Self__WOQF;
-  void *node__JLQF,*node__APQF,*node1__OP2F,*node2__PP2F,*__tmp__QQQF;
-  __FAST_ARRAYoSTRING_CONSTANTo *Self__TZIG,*o__XZIG,*__tmp__D0IG;
-  void **__tmp__T0IG,**__tmp__V0IG,**Self__IJOG;
-  void **old_buckets__NP2F;
-  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *result__DR1F;
-  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *Self__DL5F;
-  result__GBHB=NULL;
-  t__HBHB=NULL;
-  pos__IBHB=((__POSITION ) 0);
-  n__LBHB=NULL;
-  tb__MBHB=NULL;
-  if (self_first__EBHB) {
-    result__O0JH=read_word__ISF((&__string_58));
-    if (is_shorter__LZ) {
-      if (result__O0JH) {
-        if (((void *)(&__string_58) == (void *)(&__string_4))) {
-          short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        } else {
-          short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        };
-      };
-    };
-    __tmp__XBHB=result__O0JH;
-  } else {
-    __tmp__XBHB=FALSE__;
-  };
-  if ((__tmp__XBHB || ((! self_first__EBHB) && read_identifier__2BL()))) {
-    pos__IBHB=current_position__B0F();
-    n__LBHB=last_string__D2C;
-    result__P0JH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__P0JH=FALSE__;
-    } else {
-      result__Q0JH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__Q0JH=((__CHARACTER )(( 0)));
-      } else {
-        result__Q0JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__Q0JH == ':')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__P0JH=TRUE__;
-      };
-    };
-    if (result__P0JH) {
-      result__I55G='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__I55G=((__CHARACTER )(( 0)));
-      } else {
-        result__I55G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      __tmp__0CHB=(result__I55G != '=');
-    } else {
-      __tmp__0CHB=FALSE__;
-    };
-    if (__tmp__0CHB) {
-      t__HBHB=read_type__CDM(Self__CBHB,TRUE__);
-      if (((void *)t__HBHB == (void *)NULL)) {
-        pos__R5XG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_279));
-        put_position__FRG(pos__R5XG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      if ((self_first__EBHB && ((void *)t__HBHB != (void *)type_self__DVN))) {
-        if (((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI != (void *)(&__string_40))) {
-          __tmp__DEHB=TRUE__;
-        } else {
-          if (t__HBHB==NULL) {
-            __tmp__AEHB=NULL;
-          } else {
-            switch (((struct ___OBJ *)t__HBHB)->__id) {
-            case __ITM_TYPE_PARAMETER__: {
-              __tmp__AEHB=NULL;
-            } break;
-            case __ITM_TYPE_SIMPLE__: {
-              __tmp__AEHB=NULL;
-            } break;
-            case __ITM_TYPE_BLOCK__: {
-              __tmp__AEHB=((void *)t__HBHB);
-            } break;
-            case __ITM_TYPE_GENERIC__: {
-              __tmp__AEHB=NULL;
-            } break;
-            case __ITM_TYPE_STYLE__: {
-              __tmp__AEHB=NULL;
-            } break;
-            }
-          };
-          tb__MBHB=__tmp__AEHB;
-          __tmp__DEHB=((void *)__tmp__AEHB == (void *)NULL);
-        };
-        __tmp__HEHB=__tmp__DEHB;
-      } else {
-        __tmp__HEHB=FALSE__;
-      };
-      if (__tmp__HEHB) {
-        pos__T5XG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_280));
-        put_position__FRG(pos__T5XG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      result__S0JH=NULL;
-      ptr__T0JH=((__POINTER )(NULL));
-      typ_id__U0JH= 0;
-      sz__V0JH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-      if ((sz__V0JH ==  0)) {
-        result__S0JH=ITM_ARG__;
-      } else {
-        typ_id__U0JH=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__V0JH);
-        if ((typ_id__U0JH == (__INTEGER)(-  1))) {
-          a__W0JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__X0JH=(__UINTEGER_32)((__UINTEGER_32)(sz__V0JH + a__W0JH) & (__UINTEGER_32)(~ a__W0JH));
-          ptr_table__50JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X0JH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__40JH=((__POINTER )(NULL));
-          result__A1JH=((__POINTER *)ptr_table__50JH)[ 0];
-          if ((result__A1JH == (void *)NULL)) {
-            result__A1JH=new_lab__RTJ(new_size__X0JH);
-            next__40JH=(void *)((unsigned long)result__A1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X0JH)));
-            ((__POINTER *)next__40JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__50JH)[ 0]=next__40JH;
-          } else {
-            next__40JH=((__POINTER *)result__A1JH)[ 0];
-            if ((next__40JH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A1JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__X0JH <<  1)) <=  4096)) {
-                next__40JH=(void *)((unsigned long)result__A1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X0JH)));
-              } else {
-                next__40JH=new_lab__RTJ(new_size__X0JH);
-              };
-              ((__POINTER *)next__40JH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__50JH)[ 0]=next__40JH;
-            } else {
-              ((__POINTER *)result__A1JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__40JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__A1JH=next__40JH;
-            };
-          };
-          ptr__T0JH=result__A1JH;
-        } else {
-          t__Y0JH=((__UINTEGER_32 )typ_id__U0JH);
-          a__Z0JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__H1JH=(__UINTEGER_32)((__UINTEGER_32)(sz__V0JH + a__Z0JH) & (__UINTEGER_32)(~ a__Z0JH));
-          ptr_table__E1JH=((__POINTER )(&(table_type[(t__Y0JH)])));
-          lab_type__G1JH=(__UINTEGER_32)(t__Y0JH |  1);
-          next__D1JH=((__POINTER )(NULL));
-          result__F1JH=((__POINTER *)ptr_table__E1JH)[ 0];
-          if ((result__F1JH == (void *)NULL)) {
-            result__F1JH=new_lab__RTJ(lab_type__G1JH);
-            next__D1JH=(void *)((unsigned long)result__F1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H1JH)));
-            ((__POINTER *)next__D1JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__E1JH)[ 0]=next__D1JH;
-          } else {
-            next__D1JH=((__POINTER *)result__F1JH)[ 0];
-            if ((next__D1JH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F1JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__H1JH <<  1)) <=  4096)) {
-                next__D1JH=(void *)((unsigned long)result__F1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H1JH)));
-              } else {
-                next__D1JH=new_lab__RTJ(lab_type__G1JH);
-              };
-              ((__POINTER *)next__D1JH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__E1JH)[ 0]=next__D1JH;
-            } else {
-              ((__POINTER *)result__F1JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D1JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__F1JH=next__D1JH;
-            };
-          };
-          ptr__T0JH=result__F1JH;
-        };
-        result__S0JH=((__ITM_ARG *)ptr__T0JH);
-        *(result__S0JH) = *(ITM_ARG__);
-      };
-      Self__00JH=((__ITM_ARG *)result__S0JH);
-      Self__00JH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=pos__IBHB;
-      Self__00JH->name__F0HC=n__LBHB;
-      Self__00JH->type__G0HC=t__HBHB;
-      result__GBHB=result__S0JH;
-      if (is_shorter__LZ) {
-        add__1IHB(short_local__XCC,n__LBHB);
-      };
-    } else {
-      if ((! mute__DBHB)) {
-        pos__V5XG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_281));
-        put_position__FRG(pos__V5XG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-    __tmp__MFHB=TRUE__;
-  } else {
-    __tmp__MFHB=FALSE__;
-  };
-  if ((! __tmp__MFHB)) {
-    result__I1JH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__I1JH=FALSE__;
-    } else {
-      result__J1JH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__J1JH=((__CHARACTER )(( 0)));
-      } else {
-        result__J1JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__J1JH == '(')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__I1JH=TRUE__;
-      };
-    };
-    if (result__I1JH) {
-      t__03EE=NULL;
-      tm__13EE=NULL;
-      type__23EE=NULL;
-      name__33EE=NULL;
-      beg__43EE= 0;
-      result__A4EE=NULL;
-      tb__B4EE=NULL;
-      mute__53EE=mute__DBHB;
-      if (self_first__EBHB) {
-        result__M1JH=read_word__ISF((&__string_58));
-        if (is_shorter__LZ) {
-          if (result__M1JH) {
-            if (((void *)(&__string_58) == (void *)(&__string_4))) {
-              short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-            } else {
-              short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-            };
-          };
-        };
-        __tmp__M4EE=result__M1JH;
-      } else {
-        __tmp__M4EE=FALSE__;
-      };
-      if ((__tmp__M4EE || read_identifier__2BL())) {
-        result__MEHH=NULL;
-        if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL)->parent_arrayed_collection__0AL.upper__LUU <  0)) {
-          result__MEHH=create_with_capacity__THRC( 16);
-        } else {
-          Self__NEHH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
-          result__MEHH=((void **)Self__NEHH->parent_arrayed_collection__0AL.storage__1WU)[Self__NEHH->parent_arrayed_collection__0AL.upper__LUU];
-          Self__OEHH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
-          Self__OEHH->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__OEHH->parent_arrayed_collection__0AL.upper__LUU -  1);
-        };
-        name__33EE=result__MEHH;
-        result__AVP=NULL;
-        if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP)->parent_arrayed_collection__FVP.upper__ZUV <  0)) {
-          result__AVP=create_with_capacity__EGR( 16);
-        } else {
-          Self__Y5AB=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-          result__AVP=((void **)Self__Y5AB->parent_arrayed_collection__FVP.storage__PZV)[Self__Y5AB->parent_arrayed_collection__FVP.upper__ZUV];
-          Self__OABB=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-          Self__OABB->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__OABB->parent_arrayed_collection__FVP.upper__ZUV -  1);
-        };
-        type__23EE=result__AVP;
-        beg__43EE= 0;
-        do {
-          if (((((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD +  1) !=  0) && (! read_identifier__2BL())) && (! mute__53EE))) {
-            pos__X5XG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_282));
-            put_position__FRG(pos__X5XG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          add_last__SEPD(name__33EE,last_string__D2C);
-          result__N1JH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__N1JH=FALSE__;
-          } else {
-            result__O1JH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__O1JH=((__CHARACTER )(( 0)));
-            } else {
-              result__O1JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__O1JH == ':')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__N1JH=TRUE__;
-            };
-          };
-          if (result__N1JH) {
-            result__N55G='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__N55G=((__CHARACTER )(( 0)));
-            } else {
-              result__N55G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            __tmp__JAFE=(result__N55G != '=');
-          } else {
-            __tmp__JAFE=FALSE__;
-          };
-          if (__tmp__JAFE) {
-            mute__53EE=FALSE__;
-            t__03EE=read_type__CDM(Self__CBHB,TRUE__);
-            if (((void *)t__03EE == (void *)NULL)) {
-              pos__Z5XG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_283));
-              put_position__FRG(pos__Z5XG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            Self__LNTF=beg__43EE;
-            limit_up__MNTF=((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD;
-            while ((Self__LNTF <= limit_up__MNTF)) {
-              add_last__ONV(type__23EE,t__03EE);
-              Self__LNTF=(__INTEGER)(Self__LNTF +  1);
-            };
-            beg__43EE=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD +  1);
-          };
-          result__Q1JH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__Q1JH=FALSE__;
-          } else {
-            result__R1JH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__R1JH=((__CHARACTER )(( 0)));
-            } else {
-              result__R1JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__R1JH == ',')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__Q1JH=TRUE__;
-            };
-          };
-        } while (result__Q1JH);
-        if ((beg__43EE != (__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD +  1))) {
-          if ((! mute__53EE)) {
-            pos__GAYG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_283));
-            put_position__FRG(pos__GAYG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          free__TR5(result__MEHH);
-          free__YNQ(result__AVP);
-        } else {
-          if (self_first__EBHB) {
-            if (((void *)((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__AVP)->parent_arrayed_collection__SYC.storage__FMV)[ 0] != (void *)type_self__DVN)) {
-              __tmp__ADFE=TRUE__;
-            } else {
-              if (((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI == (void *)(&__string_40))) {
-                __tmp__ZCFE=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__AVP)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
-                if (__tmp__ZCFE==NULL) {
-                  __tmp__0CFE=NULL;
-                } else {
-                  switch (((struct ___OBJ *)__tmp__ZCFE)->__id) {
-                  case __ITM_TYPE_PARAMETER__: {
-                    __tmp__0CFE=NULL;
-                  } break;
-                  case __ITM_TYPE_SIMPLE__: {
-                    __tmp__0CFE=NULL;
-                  } break;
-                  case __ITM_TYPE_BLOCK__: {
-                    __tmp__0CFE=((void *)__tmp__ZCFE);
-                  } break;
-                  case __ITM_TYPE_GENERIC__: {
-                    __tmp__0CFE=NULL;
-                  } break;
-                  case __ITM_TYPE_STYLE__: {
-                    __tmp__0CFE=NULL;
-                  } break;
-                  }
-                };
-                tb__B4EE=__tmp__0CFE;
-                __tmp__3CFE=((void *)__tmp__0CFE == (void *)NULL);
-              } else {
-                __tmp__3CFE=FALSE__;
-              };
-              __tmp__ADFE=__tmp__3CFE;
-            };
-            __tmp__DDFE=__tmp__ADFE;
-          } else {
-            __tmp__DDFE=FALSE__;
-          };
-          if (__tmp__DDFE) {
-            pos__IAYG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_280));
-            put_position__FRG(pos__IAYG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          if (((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD +  1) ==  1)) {
-            p__YX5B=current_position__B0F();
-            n__ZX5B=((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.storage__SFPD)[ 0];
-            t__0X5B=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__AVP)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
-            result__YCAC=NULL;
-            ptr__ZCAC=((__POINTER )(NULL));
-            typ_id__4CAC= 0;
-            sz__1CAC=((__UINTEGER_32 )sizeof(__ITM_ARG));
-            if ((sz__1CAC ==  0)) {
-              result__YCAC=ITM_ARG__;
-            } else {
-              typ_id__4CAC=-1;
-              clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1CAC);
-              if ((typ_id__4CAC == (__INTEGER)(-  1))) {
-                a__BVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__CVFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1CAC + a__BVFH) & (__UINTEGER_32)(~ a__BVFH));
-                ptr_table__U1JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CVFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__T1JH=((__POINTER )(NULL));
-                result__V1JH=((__POINTER *)ptr_table__U1JH)[ 0];
-                if ((result__V1JH == (void *)NULL)) {
-                  result__V1JH=new_lab__RTJ(new_size__CVFH);
-                  next__T1JH=(void *)((unsigned long)result__V1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVFH)));
-                  ((__POINTER *)next__T1JH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__U1JH)[ 0]=next__T1JH;
-                } else {
-                  next__T1JH=((__POINTER *)result__V1JH)[ 0];
-                  if ((next__T1JH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CVFH <<  1)) <=  4096)) {
-                      next__T1JH=(void *)((unsigned long)result__V1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVFH)));
-                    } else {
-                      next__T1JH=new_lab__RTJ(new_size__CVFH);
-                    };
-                    ((__POINTER *)next__T1JH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__U1JH)[ 0]=next__T1JH;
-                  } else {
-                    ((__POINTER *)result__V1JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__V1JH=next__T1JH;
-                  };
-                };
-                ptr__ZCAC=result__V1JH;
-              } else {
-                t__GVFH=((__UINTEGER_32 )typ_id__4CAC);
-                a__FVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__21JH=(__UINTEGER_32)((__UINTEGER_32)(sz__1CAC + a__FVFH) & (__UINTEGER_32)(~ a__FVFH));
-                ptr_table__Z1JH=((__POINTER )(&(table_type[(t__GVFH)])));
-                lab_type__11JH=(__UINTEGER_32)(t__GVFH |  1);
-                next__Y1JH=((__POINTER )(NULL));
-                result__01JH=((__POINTER *)ptr_table__Z1JH)[ 0];
-                if ((result__01JH == (void *)NULL)) {
-                  result__01JH=new_lab__RTJ(lab_type__11JH);
-                  next__Y1JH=(void *)((unsigned long)result__01JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21JH)));
-                  ((__POINTER *)next__Y1JH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__Z1JH)[ 0]=next__Y1JH;
-                } else {
-                  next__Y1JH=((__POINTER *)result__01JH)[ 0];
-                  if ((next__Y1JH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__21JH <<  1)) <=  4096)) {
-                      next__Y1JH=(void *)((unsigned long)result__01JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21JH)));
-                    } else {
-                      next__Y1JH=new_lab__RTJ(lab_type__11JH);
-                    };
-                    ((__POINTER *)next__Y1JH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__Z1JH)[ 0]=next__Y1JH;
-                  } else {
-                    ((__POINTER *)result__01JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__01JH=next__Y1JH;
-                  };
-                };
-                ptr__ZCAC=result__01JH;
-              };
-              result__YCAC=((__ITM_ARG *)ptr__ZCAC);
-              *(result__YCAC) = *(ITM_ARG__);
-            };
-            Self__B0HC=((__ITM_ARG *)result__YCAC);
-            Self__B0HC->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=p__YX5B;
-            Self__B0HC->name__F0HC=n__ZX5B;
-            Self__B0HC->type__G0HC=t__0X5B;
-            result__A4EE=result__YCAC;
-            free__TR5(result__MEHH);
-            free__YNQ(result__AVP);
-          } else {
-            result__BOMF=NULL;
-            if ((((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD <  0)) {
-              result__BOMF=empty_list__IOMF;
-            } else {
-              Self__WKQF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__SOMF);
-              e__XKQF=result__MEHH;
-              result__KLQF=NULL;
-              node__JLQF=((void **)Self__WKQF->buckets__RLQF)[(__INTEGER)(hash_code__NVRF(result__MEHH) % Self__WKQF->capacity__MLQF)];
-              until_do__VWRF:
-              {
-                if (((void *)node__JLQF == (void *)NULL)) {
-                  __tmp__CMQF=TRUE__;
-                } else {
-                  Self__TZIG=((__FAST_ARRAYoSTRING_CONSTANTo *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__JLQF)->item__3LQF);
-                  result__WZIG=FALSE__;
-                  o__XZIG=NULL;
-                  if (((void *)Self__TZIG == (void *)e__XKQF)) {
-                    result__WZIG=TRUE__;
-                  } else {
-                    if (e__XKQF==NULL) {
-                      __tmp__D0IG=NULL;
-                    } else {
-                      __tmp__D0IG=((__FAST_ARRAYoSTRING_CONSTANTo *)e__XKQF);
-                    };
-                    o__XZIG=__tmp__D0IG;
-                    if ((((void *)__tmp__D0IG != (void *)NULL) && (Self__TZIG->parent_arrayed_collection__MBJ.upper__2CPD == __tmp__D0IG->parent_arrayed_collection__MBJ.upper__2CPD))) {
-                      __tmp__T0IG=Self__TZIG->parent_arrayed_collection__MBJ.storage__SFPD;
-                      __tmp__V0IG=__tmp__D0IG->parent_arrayed_collection__MBJ.storage__SFPD;
-                      __tmp__Y0IG=(__INTEGER)(Self__TZIG->parent_arrayed_collection__MBJ.upper__2CPD +  1);
-                      Self__IJOG=((void **)__tmp__T0IG);
-                      i__2JOG=(__INTEGER)(__tmp__Y0IG -  1);
-                      while (((i__2JOG >=  0) && ((void *)Self__IJOG[i__2JOG] == (void *)((void **)__tmp__V0IG)[i__2JOG]))) {
-                        i__2JOG=(__INTEGER)(i__2JOG -  1);
-                      };
-                      result__WZIG=(i__2JOG <  0);
-                    };
-                  };
-                  __tmp__CMQF=result__WZIG;
-                };
-                if ((! __tmp__CMQF)) {
-                  node__JLQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__JLQF)->next__JMQF;
-                  goto until_do__VWRF;
-                };
-              };
-              if (((void *)node__JLQF != (void *)NULL)) {
-                result__KLQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__JLQF)->item__3LQF;
-              };
-              result__BOMF=result__KLQF;
-              if (((void *)result__KLQF == (void *)NULL)) {
-                result__BOMF=create_with_capacity__THRC((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD +  1));
-                copy__BASD(result__BOMF,result__MEHH);
-                Self__WOQF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__SOMF);
-                e__XOQF=result__BOMF;
-                fast_has__H4RF(Self__WOQF,result__BOMF);
-                fast_has__H4RF(Self__WOQF,result__BOMF);
-                h__4OQF=hash_code__NVRF(result__BOMF);
-                idx__5OQF=(__INTEGER)(h__4OQF % Self__WOQF->capacity__MLQF);
-                node__APQF=((void **)Self__WOQF->buckets__RLQF)[idx__5OQF];
-                while ((! (((void *)node__APQF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__APQF)->item__3LQF == (void *)e__XOQF)))) {
-                  node__APQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__APQF)->next__JMQF;
-                };
-                if (((void *)node__APQF == (void *)NULL)) {
-                  if ((Self__WOQF->capacity__MLQF == Self__WOQF->count__DQQF)) {
-                    idx__LP2F= 0;
-                    node1__OP2F=NULL;
-                    node2__PP2F=NULL;
-                    new_capacity__MP2F=prime_number_ceiling__021((__INTEGER)(Self__WOQF->capacity__MLQF +  1));
-                    old_buckets__NP2F=Self__WOQF->buckets__RLQF;
-                    Self__WOQF->buckets__RLQF=create__FNUF(new_capacity__MP2F);
-                    i__KP2F=(__INTEGER)(Self__WOQF->capacity__MLQF -  1);
-                    Self__WOQF->capacity__MLQF=new_capacity__MP2F;
-                    while ((i__KP2F >=  0)) {
-                      node1__OP2F=((void **)old_buckets__NP2F)[i__KP2F];
-                      while (((void *)node1__OP2F != (void *)NULL)) {
-                        node2__PP2F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__OP2F)->next__JMQF;
-                        idx__LP2F=(__INTEGER)(hash_code__NVRF(((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__OP2F)->item__3LQF) % Self__WOQF->capacity__MLQF);
-                        ((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__OP2F)->next__JMQF=((void **)Self__WOQF->buckets__RLQF)[idx__LP2F];
-                        ((void **)Self__WOQF->buckets__RLQF)[idx__LP2F]=node1__OP2F;
-                        node1__OP2F=node2__PP2F;
-                      };
-                      i__KP2F=(__INTEGER)(i__KP2F -  1);
-                    };
-                    idx__5OQF=(__INTEGER)(h__4OQF % Self__WOQF->capacity__MLQF);
-                  };
-                  __tmp__QQQF=((void **)Self__WOQF->buckets__RLQF)[idx__5OQF];
-                  result__DR1F=NULL;
-                  ptr__ER1F=((__POINTER )(NULL));
-                  typ_id__JR1F= 0;
-                  sz__GR1F=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo));
-                  if ((sz__GR1F ==  0)) {
-                    result__DR1F=HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
-                  } else {
-                    typ_id__JR1F=__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
-                    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GR1F);
-                    if ((typ_id__JR1F == (__INTEGER)(-  1))) {
-                      a__AUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                      new_size__BUFH=(__UINTEGER_32)((__UINTEGER_32)(sz__GR1F + a__AUFH) & (__UINTEGER_32)(~ a__AUFH));
-                      ptr_table__41JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BUFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                      next__31JH=((__POINTER )(NULL));
-                      result__51JH=((__POINTER *)ptr_table__41JH)[ 0];
-                      if ((result__51JH == (void *)NULL)) {
-                        result__51JH=new_lab__RTJ(new_size__BUFH);
-                        next__31JH=(void *)((unsigned long)result__51JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUFH)));
-                        ((__POINTER *)next__31JH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__41JH)[ 0]=next__31JH;
-                      } else {
-                        next__31JH=((__POINTER *)result__51JH)[ 0];
-                        if ((next__31JH == (void *)NULL)) {
-                          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__51JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__BUFH <<  1)) <=  4096)) {
-                            next__31JH=(void *)((unsigned long)result__51JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUFH)));
-                          } else {
-                            next__31JH=new_lab__RTJ(new_size__BUFH);
-                          };
-                          ((__POINTER *)next__31JH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__41JH)[ 0]=next__31JH;
-                        } else {
-                          ((__POINTER *)result__51JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__31JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                          result__51JH=next__31JH;
-                        };
-                      };
-                      ptr__ER1F=result__51JH;
-                    } else {
-                      t__FUFH=((__UINTEGER_32 )typ_id__JR1F);
-                      a__EUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                      new_size__G2JH=(__UINTEGER_32)((__UINTEGER_32)(sz__GR1F + a__EUFH) & (__UINTEGER_32)(~ a__EUFH));
-                      ptr_table__D2JH=((__POINTER )(&(table_type[(t__FUFH)])));
-                      lab_type__F2JH=(__UINTEGER_32)(t__FUFH |  1);
-                      next__C2JH=((__POINTER )(NULL));
-                      result__E2JH=((__POINTER *)ptr_table__D2JH)[ 0];
-                      if ((result__E2JH == (void *)NULL)) {
-                        result__E2JH=new_lab__RTJ(lab_type__F2JH);
-                        next__C2JH=(void *)((unsigned long)result__E2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2JH)));
-                        ((__POINTER *)next__C2JH)[ 0]=NULL;
-                        ((__POINTER *)ptr_table__D2JH)[ 0]=next__C2JH;
-                      } else {
-                        next__C2JH=((__POINTER *)result__E2JH)[ 0];
-                        if ((next__C2JH == (void *)NULL)) {
-                          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E2JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__G2JH <<  1)) <=  4096)) {
-                            next__C2JH=(void *)((unsigned long)result__E2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2JH)));
-                          } else {
-                            next__C2JH=new_lab__RTJ(lab_type__F2JH);
-                          };
-                          ((__POINTER *)next__C2JH)[ 0]=NULL;
-                          ((__POINTER *)ptr_table__D2JH)[ 0]=next__C2JH;
-                        } else {
-                          ((__POINTER *)result__E2JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C2JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                          result__E2JH=next__C2JH;
-                        };
-                      };
-                      ptr__ER1F=result__E2JH;
-                    };
-                    result__DR1F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)ptr__ER1F);
-                    *(result__DR1F) = *(HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__);
-                  };
-                  Self__DL5F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)result__DR1F);
-                  Self__DL5F->item__3LQF=result__BOMF;
-                  Self__DL5F->next__JMQF=__tmp__QQQF;
-                  node__APQF=result__DR1F;
-                  ((void **)Self__WOQF->buckets__RLQF)[idx__5OQF]=result__DR1F;
-                  Self__WOQF->count__DQQF=(__INTEGER)(Self__WOQF->count__DQQF +  1);
-                };
-              };
-            };
-            free__TR5(result__MEHH);
-            name__33EE=result__BOMF;
-            type__23EE=alias__CWP(result__AVP);
-            tm__13EE=get__4JP(type__23EE);
-            p__DPMF=current_position__B0F();
-            result__UANF=NULL;
-            ptr__VANF=((__POINTER )(NULL));
-            typ_id__0ANF= 0;
-            sz__XANF=((__UINTEGER_32 )sizeof(__ITM_ARGS));
-            if ((sz__XANF ==  0)) {
-              result__UANF=ITM_ARGS__;
-            } else {
-              typ_id__0ANF=-1;
-              clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XANF);
-              if ((typ_id__0ANF == (__INTEGER)(-  1))) {
-                a__LUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__MUFH=(__UINTEGER_32)((__UINTEGER_32)(sz__XANF + a__LUFH) & (__UINTEGER_32)(~ a__LUFH));
-                ptr_table__I2JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MUFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__H2JH=((__POINTER )(NULL));
-                result__J2JH=((__POINTER *)ptr_table__I2JH)[ 0];
-                if ((result__J2JH == (void *)NULL)) {
-                  result__J2JH=new_lab__RTJ(new_size__MUFH);
-                  next__H2JH=(void *)((unsigned long)result__J2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUFH)));
-                  ((__POINTER *)next__H2JH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__I2JH)[ 0]=next__H2JH;
-                } else {
-                  next__H2JH=((__POINTER *)result__J2JH)[ 0];
-                  if ((next__H2JH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J2JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__MUFH <<  1)) <=  4096)) {
-                      next__H2JH=(void *)((unsigned long)result__J2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUFH)));
-                    } else {
-                      next__H2JH=new_lab__RTJ(new_size__MUFH);
-                    };
-                    ((__POINTER *)next__H2JH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__I2JH)[ 0]=next__H2JH;
-                  } else {
-                    ((__POINTER *)result__J2JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H2JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__J2JH=next__H2JH;
-                  };
-                };
-                ptr__VANF=result__J2JH;
-              } else {
-                t__QUFH=((__UINTEGER_32 )typ_id__0ANF);
-                a__PUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__Q2JH=(__UINTEGER_32)((__UINTEGER_32)(sz__XANF + a__PUFH) & (__UINTEGER_32)(~ a__PUFH));
-                ptr_table__N2JH=((__POINTER )(&(table_type[(t__QUFH)])));
-                lab_type__P2JH=(__UINTEGER_32)(t__QUFH |  1);
-                next__M2JH=((__POINTER )(NULL));
-                result__O2JH=((__POINTER *)ptr_table__N2JH)[ 0];
-                if ((result__O2JH == (void *)NULL)) {
-                  result__O2JH=new_lab__RTJ(lab_type__P2JH);
-                  next__M2JH=(void *)((unsigned long)result__O2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2JH)));
-                  ((__POINTER *)next__M2JH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__N2JH)[ 0]=next__M2JH;
-                } else {
-                  next__M2JH=((__POINTER *)result__O2JH)[ 0];
-                  if ((next__M2JH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O2JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__Q2JH <<  1)) <=  4096)) {
-                      next__M2JH=(void *)((unsigned long)result__O2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2JH)));
-                    } else {
-                      next__M2JH=new_lab__RTJ(lab_type__P2JH);
-                    };
-                    ((__POINTER *)next__M2JH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__N2JH)[ 0]=next__M2JH;
-                  } else {
-                    ((__POINTER *)result__O2JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M2JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__O2JH=next__M2JH;
-                  };
-                };
-                ptr__VANF=result__O2JH;
-              };
-              result__UANF=((__ITM_ARGS *)ptr__VANF);
-              *(result__UANF) = *(ITM_ARGS__);
-            };
-            Self__TDQF=((__ITM_ARGS *)result__UANF);
-            Self__TDQF->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ=p__DPMF;
-            Self__TDQF->name__XDQF=result__BOMF;
-            Self__TDQF->type__YDQF=tm__13EE;
-            result__A4EE=result__UANF;
-          };
-          if (is_shorter__LZ) {
-            __tmp__PEFE=((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD;
-            Self__MPMF= 0;
-            while ((Self__MPMF <= __tmp__PEFE)) {
-              add__1IHB(short_local__XCC,((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__MPMF]);
-              Self__MPMF=(__INTEGER)(Self__MPMF +  1);
-            };
-          };
-        };
-      };
-      result__GBHB=result__A4EE;
-      if (((void *)result__A4EE == (void *)NULL)) {
-        if ((! mute__DBHB)) {
-          pos__SCYG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_284));
-          put_position__FRG(pos__SCYG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      } else {
-        result__R2JH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__R2JH=FALSE__;
-        } else {
-          result__S2JH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__S2JH=((__CHARACTER )(( 0)));
-          } else {
-            result__S2JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__S2JH == ')')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__R2JH=TRUE__;
-          };
-        };
-        if ((! result__R2JH)) {
-          pos__UCYG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_262));
-          put_position__FRG(pos__UCYG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-    };
-  };
-  return(result__GBHB);
-}
-
-static void* read_slot_operator__RS5B(void *list_arg__TS5B)
-// ({NULLxFAST_ARRAYoITM_ARGUMENTo}) With resultNo recursive, No inlinable.
-{
-  void *associativity__XS5B,*name__VS5B,*pretty_name__WS5B;
-  __INTEGER priority__YS5B,typ_id__IKAC;
-  void *arg__ZS5B;
-  __POSITION pos__WCYG,pos__YCYG,pos__0CYG,pos__5CYG,pos__BDYG;
-  __POSITION pos__DDYG,__tmp__TX5B;
-  void *__tmp__UX5B;
-  __ITM_SLOT_OPERATOR *result__CKAC,*Self__Z1HC,*Self__LZHC;
-  __POINTER ptr__DKAC,ptr_table__22JH,next__12JH,result__32JH;
-  __POINTER ptr_table__B3JH,next__A3JH,result__C3JH;
-  __UINTEGER_32 sz__FKAC,a__ZUFH,new_size__0UFH,t__4UFH,a__3UFH;
-  __UINTEGER_32 new_size__E3JH,lab_type__D3JH;
-  __BOOLEAN result__U2JH,result__Y2JH,__tmp__YU5B,result__02JH;
-  __CHARACTER result__V2JH;
-  associativity__XS5B=NULL;
-  priority__YS5B= 0;
-  arg__ZS5B=NULL;
-  if ((! read_operator__GOM())) {
-    pos__WCYG=current_position__B0F();
-    put_error__text__1PG( 0,(&__string_285));
-    put_position__FRG(pos__WCYG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  if ((((void *)last_string__D2C == (void *)(&__string_16)) || ((void *)last_string__D2C == (void *)(&__string_17)))) {
-    pos__YCYG=current_position__B0F();
-    put_error__text__1PG( 0,(&__string_286));
-    put_position__FRG(pos__YCYG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  name__VS5B=last_string__D2C;
-  pretty_name__WS5B=name__VS5B;
-  result__U2JH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__U2JH=FALSE__;
-  } else {
-    result__V2JH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__V2JH=((__CHARACTER )(( 0)));
-    } else {
-      result__V2JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__V2JH == '\'')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__U2JH=TRUE__;
-    };
-  };
-  if ((! result__U2JH)) {
-    pos__0CYG=current_position__B0F();
-    put_error__text__1PG( 2,(&__string_287));
-    put_position__FRG(pos__0CYG);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  result__Y2JH=read_word__ISF((&__string_6));
-  if (is_shorter__LZ) {
-    if (result__Y2JH) {
-      if (((void *)(&__string_6) == (void *)(&__string_4))) {
-        short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      } else {
-        short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      };
-    };
-  };
-  if (result__Y2JH) {
-    __tmp__YU5B=TRUE__;
-  } else {
-    result__02JH=read_word__ISF((&__string_5));
-    if (is_shorter__LZ) {
-      if (result__02JH) {
-        if (((void *)(&__string_5) == (void *)(&__string_4))) {
-          short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        } else {
-          short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        };
-      };
-    };
-    __tmp__YU5B=result__02JH;
-  };
-  if (__tmp__YU5B) {
-    associativity__XS5B=last_string__D2C;
-    if (read_integer__22P()) {
-      priority__YS5B=((__INTEGER )last_integer__VSO);
-    };
-  };
-  if ((((__FAST_ARRAYoITM_ARGUMENTo *)list_arg__TS5B)->parent_arrayed_collection__Z5YB.upper__I5GC <  0)) {
-    arg__ZS5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,TRUE__);
-    if (((void *)arg__ZS5B == (void *)NULL)) {
-      pos__5CYG=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_288));
-      put_position__FRG(pos__5CYG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    add_last__E5GC(list_arg__TS5B,arg__ZS5B);
-    name__VS5B=operator__name__ZEO((&__string_83),name__VS5B);
-    if (((void *)associativity__XS5B != (void *)NULL)) {
-      pos__BDYG=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_289));
-      put_position__FRG(pos__BDYG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  } else {
-    arg__ZS5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,FALSE__);
-    if (((void *)arg__ZS5B != (void *)NULL)) {
-      add_last__E5GC(list_arg__TS5B,arg__ZS5B);
-      name__VS5B=operator__name__ZEO((&__string_81),name__VS5B);
-      if (((void *)associativity__XS5B == (void *)NULL)) {
-        associativity__XS5B=(&__string_6);
-      };
-    } else {
-      name__VS5B=operator__name__ZEO((&__string_82),name__VS5B);
-      if (((void *)associativity__XS5B != (void *)NULL)) {
-        pos__DDYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_290));
-        put_position__FRG(pos__DDYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-  };
-  __tmp__TX5B=current_position__B0F();
-  __tmp__UX5B=last_section__S2C;
-  result__CKAC=NULL;
-  ptr__DKAC=((__POINTER )(NULL));
-  typ_id__IKAC= 0;
-  sz__FKAC=((__UINTEGER_32 )sizeof(__ITM_SLOT_OPERATOR));
-  if ((sz__FKAC ==  0)) {
-    result__CKAC=ITM_SLOT_OPERATOR__;
-  } else {
-    typ_id__IKAC=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__FKAC);
-    if ((typ_id__IKAC == (__INTEGER)(-  1))) {
-      a__ZUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__0UFH=(__UINTEGER_32)((__UINTEGER_32)(sz__FKAC + a__ZUFH) & (__UINTEGER_32)(~ a__ZUFH));
-      ptr_table__22JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0UFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__12JH=((__POINTER )(NULL));
-      result__32JH=((__POINTER *)ptr_table__22JH)[ 0];
-      if ((result__32JH == (void *)NULL)) {
-        result__32JH=new_lab__RTJ(new_size__0UFH);
-        next__12JH=(void *)((unsigned long)result__32JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UFH)));
-        ((__POINTER *)next__12JH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__22JH)[ 0]=next__12JH;
-      } else {
-        next__12JH=((__POINTER *)result__32JH)[ 0];
-        if ((next__12JH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__32JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__0UFH <<  1)) <=  4096)) {
-            next__12JH=(void *)((unsigned long)result__32JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UFH)));
-          } else {
-            next__12JH=new_lab__RTJ(new_size__0UFH);
-          };
-          ((__POINTER *)next__12JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__22JH)[ 0]=next__12JH;
-        } else {
-          ((__POINTER *)result__32JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__12JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__32JH=next__12JH;
-        };
-      };
-      ptr__DKAC=result__32JH;
-    } else {
-      t__4UFH=((__UINTEGER_32 )typ_id__IKAC);
-      a__3UFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__E3JH=(__UINTEGER_32)((__UINTEGER_32)(sz__FKAC + a__3UFH) & (__UINTEGER_32)(~ a__3UFH));
-      ptr_table__B3JH=((__POINTER )(&(table_type[(t__4UFH)])));
-      lab_type__D3JH=(__UINTEGER_32)(t__4UFH |  1);
-      next__A3JH=((__POINTER )(NULL));
-      result__C3JH=((__POINTER *)ptr_table__B3JH)[ 0];
-      if ((result__C3JH == (void *)NULL)) {
-        result__C3JH=new_lab__RTJ(lab_type__D3JH);
-        next__A3JH=(void *)((unsigned long)result__C3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3JH)));
-        ((__POINTER *)next__A3JH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__B3JH)[ 0]=next__A3JH;
-      } else {
-        next__A3JH=((__POINTER *)result__C3JH)[ 0];
-        if ((next__A3JH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C3JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__E3JH <<  1)) <=  4096)) {
-            next__A3JH=(void *)((unsigned long)result__C3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3JH)));
-          } else {
-            next__A3JH=new_lab__RTJ(lab_type__D3JH);
-          };
-          ((__POINTER *)next__A3JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__B3JH)[ 0]=next__A3JH;
-        } else {
-          ((__POINTER *)result__C3JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A3JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__C3JH=next__A3JH;
-        };
-      };
-      ptr__DKAC=result__C3JH;
-    };
-    result__CKAC=((__ITM_SLOT_OPERATOR *)ptr__DKAC);
-    *(result__CKAC) = *(ITM_SLOT_OPERATOR__);
-  };
-  Self__Z1HC=((__ITM_SLOT_OPERATOR *)result__CKAC);
-  Self__Z1HC->parent_itm_slot__0S5B.parent_named__15.name__LI=name__VS5B;
-  Self__Z1HC->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ=__tmp__TX5B;
-  Self__Z1HC->parent_itm_slot__0S5B.id_section__T3C=__tmp__UX5B;
-  Self__LZHC=((__ITM_SLOT_OPERATOR *)result__CKAC);
-  if (((void *)associativity__XS5B == (void *)(&__string_6))) {
-    Self__LZHC->priority_and_level__UZHC=priority__YS5B;
-  } else {
-    Self__LZHC->priority_and_level__UZHC=(__INTEGER)(- priority__YS5B);
-  };
-  ((__ITM_SLOT_OPERATOR *)result__CKAC)->pretty_name__5ZHC=pretty_name__WS5B;
-  return(result__CKAC);
-}
-
-static void add_last__E5GC(__FAST_ARRAYoITM_ARGUMENTo *Self__F5GC,void *element__G5GC)
-// ({FAST_ARRAYoITM_ARGUMENTo},{NULLxITM_ARGxITM_ARGS}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__H5GC,__tmp__QAHC,__tmp__PKTD,Self__4EYE;
-  __BOOLEAN __tmp__X5GC;
-  void **__tmp__PAHC,**new__1JTD;
-  new_capacity__H5GC= 0;
-  if (((__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC +  1) <= (__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC -  1))) {
-    Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC +  1);
-    __tmp__X5GC=TRUE__;
-  } else {
-    __tmp__X5GC=FALSE__;
-  };
-  if ((! __tmp__X5GC)) {
-    if ((Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC ==  0)) {
-      Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC=create__PRBD( 2);
-      Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC= 2;
-      Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC= 0;
-    } else {
-      new_capacity__H5GC=(__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC <<  1);
-      __tmp__PAHC=Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC;
-      __tmp__QAHC=Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC;
-      new__1JTD=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__PAHC)),((__UINTEGER_32 )(__INTEGER)(__tmp__QAHC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__H5GC * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__PKTD=(__INTEGER)(new_capacity__H5GC -  1);
-      Self__4EYE=__tmp__QAHC;
-      while ((Self__4EYE <= __tmp__PKTD)) {
-        new__1JTD[Self__4EYE]=NULL;
-        Self__4EYE=(__INTEGER)(Self__4EYE +  1);
-      };
-      Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC=new__1JTD;
-      Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC=new_capacity__H5GC;
-      Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC +  1);
-    };
-  };
-  ((void **)Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC]=element__G5GC;
-}
-
-static void* read_slot_keyword__4X5B(void *list_arg__AY5B)
-// ({NULLxFAST_ARRAYoITM_ARGUMENTo}) With resultNo recursive, No inlinable.
-{
-  void *n__CY5B,*result__2OP;
-  void *arg__DY5B;
-  void *result__EY5B;
-  __POSITION pos__5EYG,pos__BFYG,p__P3JH;
-  void *result__MRP;
-  void *sec__Q3JH;
-  __ITM_SLOT *result__F3JH,*Self__N3JH;
-  __POINTER ptr__G3JH,ptr_table__S3JH,next__R3JH,result__T3JH;
-  __POINTER ptr_table__X3JH,next__W3JH,result__Y3JH;
-  __INTEGER typ_id__H3JH;
-  __UINTEGER_32 sz__I3JH,a__J3JH,new_size__K3JH,t__L3JH,a__M3JH;
-  __UINTEGER_32 new_size__03JH,lab_type__Z3JH;
-  __FAST_ARRAYoSTRINGo *Self__ZZAB,*Self__P0AB;
-  n__CY5B=NULL;
-  arg__DY5B=NULL;
-  result__EY5B=NULL;
-  if (read_identifier__2BL()) {
-    short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-    result__2OP=NULL;
-    if ((((__FAST_ARRAYoSTRINGo *)free__3OP)->parent_arrayed_collection__5KC.upper__CLC <  0)) {
-      result__2OP=create__ZBB( 128);
-    } else {
-      Self__ZZAB=((__FAST_ARRAYoSTRINGo *)free__3OP);
-      result__2OP=((void **)Self__ZZAB->parent_arrayed_collection__5KC.storage__UGT)[Self__ZZAB->parent_arrayed_collection__5KC.upper__CLC];
-      Self__P0AB=((__FAST_ARRAYoSTRINGo *)free__3OP);
-      Self__P0AB->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__P0AB->parent_arrayed_collection__5KC.upper__CLC -  1);
-    };
-    n__CY5B=result__2OP;
-    copy__VDS(result__2OP,last_string__D2C);
-    arg__DY5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,FALSE__);
-    if (((void *)arg__DY5B != (void *)NULL)) {
-      add_last__E5GC(list_arg__AY5B,arg__DY5B);
-      if (read_identifier__2BL()) {
-        if (((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_30))) {
-          pos__5EYG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_291));
-          put_position__FRG(pos__5EYG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        do {
-          short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-          append__3OS(n__CY5B,(&__string_112));
-          append__3OS(n__CY5B,last_string__D2C);
-          arg__DY5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,FALSE__);
-          if (((void *)arg__DY5B == (void *)NULL)) {
-            pos__BFYG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_168));
-            put_position__FRG(pos__BFYG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          add_last__E5GC(list_arg__AY5B,arg__DY5B);
-        } while (read_identifier__2BL());
-      };
-    };
-    result__MRP=get__YWB(result__2OP);
-    add_last__URV(free__3OP,result__2OP);
-    ((__STRING *)result__2OP)->count__SGC= 0;
-    p__P3JH=current_position__B0F();
-    sec__Q3JH=last_section__S2C;
-    result__F3JH=NULL;
-    ptr__G3JH=((__POINTER )(NULL));
-    typ_id__H3JH= 0;
-    sz__I3JH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
-    if ((sz__I3JH ==  0)) {
-      result__F3JH=ITM_SLOT__;
-    } else {
-      typ_id__H3JH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__I3JH);
-      if ((typ_id__H3JH == (__INTEGER)(-  1))) {
-        a__J3JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__K3JH=(__UINTEGER_32)((__UINTEGER_32)(sz__I3JH + a__J3JH) & (__UINTEGER_32)(~ a__J3JH));
-        ptr_table__S3JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__K3JH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__R3JH=((__POINTER )(NULL));
-        result__T3JH=((__POINTER *)ptr_table__S3JH)[ 0];
-        if ((result__T3JH == (void *)NULL)) {
-          result__T3JH=new_lab__RTJ(new_size__K3JH);
-          next__R3JH=(void *)((unsigned long)result__T3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3JH)));
-          ((__POINTER *)next__R3JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__S3JH)[ 0]=next__R3JH;
-        } else {
-          next__R3JH=((__POINTER *)result__T3JH)[ 0];
-          if ((next__R3JH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T3JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__K3JH <<  1)) <=  4096)) {
-              next__R3JH=(void *)((unsigned long)result__T3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3JH)));
-            } else {
-              next__R3JH=new_lab__RTJ(new_size__K3JH);
-            };
-            ((__POINTER *)next__R3JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__S3JH)[ 0]=next__R3JH;
-          } else {
-            ((__POINTER *)result__T3JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R3JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__T3JH=next__R3JH;
-          };
-        };
-        ptr__G3JH=result__T3JH;
-      } else {
-        t__L3JH=((__UINTEGER_32 )typ_id__H3JH);
-        a__M3JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__03JH=(__UINTEGER_32)((__UINTEGER_32)(sz__I3JH + a__M3JH) & (__UINTEGER_32)(~ a__M3JH));
-        ptr_table__X3JH=((__POINTER )(&(table_type[(t__L3JH)])));
-        lab_type__Z3JH=(__UINTEGER_32)(t__L3JH |  1);
-        next__W3JH=((__POINTER )(NULL));
-        result__Y3JH=((__POINTER *)ptr_table__X3JH)[ 0];
-        if ((result__Y3JH == (void *)NULL)) {
-          result__Y3JH=new_lab__RTJ(lab_type__Z3JH);
-          next__W3JH=(void *)((unsigned long)result__Y3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__03JH)));
-          ((__POINTER *)next__W3JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__X3JH)[ 0]=next__W3JH;
-        } else {
-          next__W3JH=((__POINTER *)result__Y3JH)[ 0];
-          if ((next__W3JH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y3JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__03JH <<  1)) <=  4096)) {
-              next__W3JH=(void *)((unsigned long)result__Y3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__03JH)));
-            } else {
-              next__W3JH=new_lab__RTJ(lab_type__Z3JH);
-            };
-            ((__POINTER *)next__W3JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__X3JH)[ 0]=next__W3JH;
-          } else {
-            ((__POINTER *)result__Y3JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W3JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__Y3JH=next__W3JH;
-          };
-        };
-        ptr__G3JH=result__Y3JH;
-      };
-      result__F3JH=((__ITM_SLOT *)ptr__G3JH);
-      *(result__F3JH) = *(ITM_SLOT__);
-    };
-    Self__N3JH=((__ITM_SLOT *)result__F3JH);
-    Self__N3JH->parent_named__15.name__LI=result__MRP;
-    Self__N3JH->parent_named__15.parent_itm_object__4.position__SFJ=p__P3JH;
-    Self__N3JH->id_section__T3C=sec__Q3JH;
-    result__EY5B=result__F3JH;
-  };
-  return(result__EY5B);
-}
-
-static void** create__PRBD(__INTEGER nb_elements__RRBD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__REHH,a__QEHH,new_size__SEHH,new_size2__TEHH,a__UEHH;
-  __UINTEGER_32 new_size__VEHH;
-  __POINTER result__PEHH,ptr_table__23JH,next__13JH,result__33JH;
-  __INTEGER Self__NKXD;
-  void **Result__0FGD;
-  sz__REHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RRBD * ((__INTEGER )(sizeof(void *)))));
-  result__PEHH=((__POINTER )(NULL));
-  a__QEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__SEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__REHH + a__QEHH) & (__UINTEGER_32)(~ a__QEHH));
-  new_size2__TEHH=(__UINTEGER_32)(new_size__SEHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__TEHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__UEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__VEHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TEHH + a__UEHH) & (__UINTEGER_32)(~ a__UEHH));
-    ptr_table__23JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VEHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__13JH=((__POINTER )(NULL));
-    result__33JH=((__POINTER *)ptr_table__23JH)[ 0];
-    if ((result__33JH == (void *)NULL)) {
-      result__33JH=new_lab__RTJ(new_size__VEHH);
-      next__13JH=(void *)((unsigned long)result__33JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEHH)));
-      ((__POINTER *)next__13JH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__23JH)[ 0]=next__13JH;
-    } else {
-      next__13JH=((__POINTER *)result__33JH)[ 0];
-      if ((next__13JH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__33JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VEHH <<  1)) <=  4096)) {
-          next__13JH=(void *)((unsigned long)result__33JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEHH)));
-        } else {
-          next__13JH=new_lab__RTJ(new_size__VEHH);
-        };
-        ((__POINTER *)next__13JH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__23JH)[ 0]=next__13JH;
-      } else {
-        ((__POINTER *)result__33JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__13JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__33JH=next__13JH;
-      };
-    };
-    ((__POINTER *)result__33JH)[ 0]=((__POINTER ) 3);
-    result__PEHH=(void *)((unsigned long)result__33JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__PEHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__SEHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__0FGD=((void **)result__PEHH);
-  Self__NKXD=(__INTEGER)(nb_elements__RRBD -  1);
-  while ((Self__NKXD >=  0)) {
-    Result__0FGD[Self__NKXD]=NULL;
-    Self__NKXD=(__INTEGER)(Self__NKXD -  1);
-  };
-  return(Result__0FGD);
-}
-
-static void set_argument_list__5BHC(__ITM_SLOT *Self__ACHC,void *p__BCHC)
-// ({ITM_SLOT},{NULLxFAST_ARRAYoITM_ARGUMENTo}) VoidNo recursive, No inlinable.
-{
-  void *__tmp__JCHC,*__tmp__1CHC,*__tmp__IDHC;
-  __INTEGER __tmp__KCHC;
-  __POSITION __tmp__2CHC,__tmp__JDHC;
-  __SECTION_ *Self__GE2G;
-  __BOOLEAN __tmp__OCHC;
-  __FAST_ARRAYoITM_ARGUMENTo *Self__52GH,*Self__G1ID;
-  if (((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC)->parent_arrayed_collection__Z5YB.upper__I5GC +  1) >  1)) {
-    __tmp__OCHC=TRUE__;
-  } else {
-    __tmp__JCHC=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
-    if (((struct ___OBJ *)__tmp__JCHC)->__id==__ITM_ARG__) {
-      __tmp__KCHC= 1;
-    } else {
-      __tmp__KCHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__JCHC)->name__XDQF)->parent_arrayed_collection__MBJ.upper__2CPD +  1);
-    };
-    __tmp__OCHC=(__tmp__KCHC >  1);
-  };
-  if (__tmp__OCHC) {
-    if (((void *)((__SECTION_ *)Self__ACHC->id_section__T3C)->name__MYDC == (void *)(&__string_25))) {
-      Self__52GH=((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC);
-      __tmp__1CHC=((void **)Self__52GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__52GH->parent_arrayed_collection__Z5YB.upper__I5GC];
-      if (((struct ___OBJ *)__tmp__1CHC)->__id==__ITM_ARG__) {
-        __tmp__2CHC=((__ITM_ARG *)__tmp__1CHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
-      } else {
-        __tmp__2CHC=((__ITM_ARGS *)__tmp__1CHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
-      };
-      put_error__text__1PG( 1,(&__string_233));
-      put_position__FRG(__tmp__2CHC);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    Self__GE2G=((__SECTION_ *)Self__ACHC->id_section__T3C);
-    if ((((void *)Self__GE2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__GE2G->name__MYDC == (void *)(&__string_24)))) {
-      Self__G1ID=((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC);
-      __tmp__IDHC=((void **)Self__G1ID->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__G1ID->parent_arrayed_collection__Z5YB.upper__I5GC];
-      if (((struct ___OBJ *)__tmp__IDHC)->__id==__ITM_ARG__) {
-        __tmp__JDHC=((__ITM_ARG *)__tmp__IDHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
-      } else {
-        __tmp__JDHC=((__ITM_ARGS *)__tmp__IDHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
-      };
-      put_error__text__1PG( 1,(&__string_234));
-      put_position__FRG(__tmp__JDHC);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  };
-  Self__ACHC->argument_list__QDHC=p__BCHC;
-}
-
-static __ITM_TYPE_MULTI* get__4JP(void *lt__AKP)
-// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
-  __ITM_TYPE_MULTI *result__CKP,*__tmp__ULP,*result__QZHB;
-  __INTEGER idx__DKP,__tmp__E3GH,typ_id__WZHB,new_capacity__MWAB;
-  __INTEGER __tmp__QXAB,__tmp__0MFC,Self__22VD;
-  void *__tmp__TLP;
-  __POINTER ptr__RZHB,ptr_table__B4JH,next__A4JH,result__C4JH;
-  __POINTER ptr_table__G4JH,next__F4JH,result__H4JH;
-  __UINTEGER_32 sz__TZHB,a__JVFH,new_size__KVFH,t__OVFH,a__NVFH;
-  __UINTEGER_32 new_size__J4JH,lab_type__I4JH;
-  void **__tmp__XEHH,**__tmp__PXAB,**new__GMFC;
-  __FAST_ARRAYoITM_TYPE_MULTIo *Self__KWAB;
-  __BOOLEAN __tmp__0WAB;
-  result__CKP=NULL;
-  idx__DKP= 0;
-  __tmp__E3GH=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.upper__SKP;
-  __tmp__XEHH=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.storage__21V;
-  while (((idx__DKP <= __tmp__E3GH) && ((void *)((__ITM_TYPE_MULTI *)((void **)__tmp__XEHH)[idx__DKP])->list_type__2KP != (void *)lt__AKP))) {
-    idx__DKP=(__INTEGER)(idx__DKP +  1);
-  };
-  if ((idx__DKP <= ((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.upper__SKP)) {
-    __tmp__TLP=((void **)((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.storage__21V)[idx__DKP];
-    if (__tmp__TLP==NULL) {
-      __tmp__ULP=NULL;
-    } else {
-      __tmp__ULP=((__ITM_TYPE_MULTI *)__tmp__TLP);
-    };
-    result__CKP=__tmp__ULP;
-  } else {
-    result__QZHB=NULL;
-    ptr__RZHB=((__POINTER )(NULL));
-    typ_id__WZHB= 0;
-    sz__TZHB=((__UINTEGER_32 )sizeof(__ITM_TYPE_MULTI));
-    if ((sz__TZHB ==  0)) {
-      result__QZHB=ITM_TYPE_MULTI__;
-    } else {
-      typ_id__WZHB=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__TZHB);
-      if ((typ_id__WZHB == (__INTEGER)(-  1))) {
-        a__JVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__KVFH=(__UINTEGER_32)((__UINTEGER_32)(sz__TZHB + a__JVFH) & (__UINTEGER_32)(~ a__JVFH));
-        ptr_table__B4JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KVFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__A4JH=((__POINTER )(NULL));
-        result__C4JH=((__POINTER *)ptr_table__B4JH)[ 0];
-        if ((result__C4JH == (void *)NULL)) {
-          result__C4JH=new_lab__RTJ(new_size__KVFH);
-          next__A4JH=(void *)((unsigned long)result__C4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KVFH)));
-          ((__POINTER *)next__A4JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__B4JH)[ 0]=next__A4JH;
-        } else {
-          next__A4JH=((__POINTER *)result__C4JH)[ 0];
-          if ((next__A4JH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__KVFH <<  1)) <=  4096)) {
-              next__A4JH=(void *)((unsigned long)result__C4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KVFH)));
-            } else {
-              next__A4JH=new_lab__RTJ(new_size__KVFH);
-            };
-            ((__POINTER *)next__A4JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__B4JH)[ 0]=next__A4JH;
-          } else {
-            ((__POINTER *)result__C4JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A4JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__C4JH=next__A4JH;
-          };
-        };
-        ptr__RZHB=result__C4JH;
-      } else {
-        t__OVFH=((__UINTEGER_32 )typ_id__WZHB);
-        a__NVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__J4JH=(__UINTEGER_32)((__UINTEGER_32)(sz__TZHB + a__NVFH) & (__UINTEGER_32)(~ a__NVFH));
-        ptr_table__G4JH=((__POINTER )(&(table_type[(t__OVFH)])));
-        lab_type__I4JH=(__UINTEGER_32)(t__OVFH |  1);
-        next__F4JH=((__POINTER )(NULL));
-        result__H4JH=((__POINTER *)ptr_table__G4JH)[ 0];
-        if ((result__H4JH == (void *)NULL)) {
-          result__H4JH=new_lab__RTJ(lab_type__I4JH);
-          next__F4JH=(void *)((unsigned long)result__H4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4JH)));
-          ((__POINTER *)next__F4JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__G4JH)[ 0]=next__F4JH;
-        } else {
-          next__F4JH=((__POINTER *)result__H4JH)[ 0];
-          if ((next__F4JH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H4JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__J4JH <<  1)) <=  4096)) {
-              next__F4JH=(void *)((unsigned long)result__H4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4JH)));
-            } else {
-              next__F4JH=new_lab__RTJ(lab_type__I4JH);
-            };
-            ((__POINTER *)next__F4JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__G4JH)[ 0]=next__F4JH;
-          } else {
-            ((__POINTER *)result__H4JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F4JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__H4JH=next__F4JH;
-          };
-        };
-        ptr__RZHB=result__H4JH;
-      };
-      result__QZHB=((__ITM_TYPE_MULTI *)ptr__RZHB);
-      *(result__QZHB) = *(ITM_TYPE_MULTI__);
-    };
-    ((__ITM_TYPE_MULTI *)result__QZHB)->list_type__2KP=lt__AKP;
-    result__CKP=result__QZHB;
-    Self__KWAB=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP);
-    new_capacity__MWAB= 0;
-    if (((__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.upper__SKP +  1) <= (__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V -  1))) {
-      Self__KWAB->parent_arrayed_collection__IKP.upper__SKP=(__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.upper__SKP +  1);
-      __tmp__0WAB=TRUE__;
-    } else {
-      __tmp__0WAB=FALSE__;
-    };
-    if ((! __tmp__0WAB)) {
-      if ((Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V ==  0)) {
-        Self__KWAB->parent_arrayed_collection__IKP.storage__21V=create__PJXB( 2);
-        Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V= 2;
-        Self__KWAB->parent_arrayed_collection__IKP.upper__SKP= 0;
-      } else {
-        new_capacity__MWAB=(__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V <<  1);
-        __tmp__PXAB=Self__KWAB->parent_arrayed_collection__IKP.storage__21V;
-        __tmp__QXAB=Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V;
-        new__GMFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__PXAB)),((__UINTEGER_32 )(__INTEGER)(__tmp__QXAB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MWAB * ((__INTEGER )(sizeof(void *)))))));
-        __tmp__0MFC=(__INTEGER)(new_capacity__MWAB -  1);
-        Self__22VD=__tmp__QXAB;
-        while ((Self__22VD <= __tmp__0MFC)) {
-          new__GMFC[Self__22VD]=NULL;
-          Self__22VD=(__INTEGER)(Self__22VD +  1);
-        };
-        Self__KWAB->parent_arrayed_collection__IKP.storage__21V=new__GMFC;
-        Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V=new_capacity__MWAB;
-        Self__KWAB->parent_arrayed_collection__IKP.upper__SKP=(__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.upper__SKP +  1);
-      };
-    };
-    ((void **)Self__KWAB->parent_arrayed_collection__IKP.storage__21V)[Self__KWAB->parent_arrayed_collection__IKP.upper__SKP]=result__QZHB;
-  };
-  return(result__CKP);
-}
-
-static void* read_type__CDM(__PARSER *Self__DDM,__BOOLEAN is_local__EDM)
-// ({PARSER},{TRUExFALSE}) With resultRecursive, No inlinable.
-{
-  void *style__GDM;
-  void *result__HDM;
-  void *typ_arg__JDM,*typ_res__KDM,*typ_arg__RMN,*typ_res__SMN;
-  __POSITION pos__QIYG,pos__SIYG,pos__UIYG,__tmp__NGM,pos__YIYG;
-  __POSITION pos__XKYG,pos__ZKYG;
-  __ITM_TYPE_STYLE *Self__S5HH;
-  __STRING *Self__U5HH;
-  __INTEGER new_capacity__T5HH,old_nb_elts__W5HH,upper__24JH,Self__04JH;
-  __INTEGER idx__VMN,__tmp__P3GH,typ_id__EYGB,new_capacity__QJAB;
-  __INTEGER __tmp__UKAB,__tmp__MKFC,Self__30VD;
-  void *result__UMN;
-  __ITM_TYPE_BLOCK *result__4XGB,*Self__LYCC;
-  __POINTER ptr__5XGB,ptr_table__C5JH,next__B5JH,result__D5JH;
-  __POINTER ptr_table__H5JH,next__G5JH,result__I5JH;
-  __UINTEGER_32 sz__BYGB,a__AWFH,new_size__BWFH,t__FWFH,a__EWFH;
-  __UINTEGER_32 new_size__K5JH,lab_type__J5JH;
-  void *lst__IDM;
-  __BOOLEAN result__K4JH,result__N4JH,result__Q4JH,result__T4JH;
-  __BOOLEAN result__W4JH,result__44JH,__tmp__4JAB,result__M5JH;
-  __BOOLEAN __tmp__MIM,result__O5JH;
-  __CHARACTER result__L4JH,result__O4JH,result__R4JH,result__U4JH;
-  __CHARACTER result__X4JH,result__54JH;
-  __CHARACTER *Self__V5HH,*new__X5HH;
-  void **__tmp__YEHH,**__tmp__ZEHH,**__tmp__TKAB,**new__YJFC;
-  __FAST_ARRAYoITM_TYPE_BLOCKo *Self__OJAB;
-  style__GDM=NULL;
-  result__HDM=NULL;
-  lst__IDM=NULL;
-  typ_arg__JDM=NULL;
-  typ_res__KDM=NULL;
-  result__K4JH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__K4JH=FALSE__;
-  } else {
-    result__L4JH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__L4JH=((__CHARACTER )(( 0)));
-    } else {
-      result__L4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__L4JH == '{')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__K4JH=TRUE__;
-    };
-  };
-  if (result__K4JH) {
-    result__N4JH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__N4JH=FALSE__;
-    } else {
-      result__O4JH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__O4JH=((__CHARACTER )(( 0)));
-      } else {
-        result__O4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__O4JH == '(')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__N4JH=TRUE__;
-      };
-    };
-    if (result__N4JH) {
-      lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
-      if (((void *)lst__IDM == (void *)NULL)) {
-        pos__QIYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_265));
-        put_position__FRG(pos__QIYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.upper__4HV +  1) ==  1)) {
-        typ_arg__JDM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
-      } else {
-        typ_arg__JDM=get__4JP(lst__IDM);
-      };
-      result__Q4JH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__Q4JH=FALSE__;
-      } else {
-        result__R4JH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__R4JH=((__CHARACTER )(( 0)));
-        } else {
-          result__R4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__R4JH == ')')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__Q4JH=TRUE__;
-        };
-      };
-      if ((! result__Q4JH)) {
-        pos__SIYG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_262));
-        put_position__FRG(pos__SIYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      result__T4JH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__T4JH=FALSE__;
-      } else {
-        result__U4JH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__U4JH=((__CHARACTER )(( 0)));
-        } else {
-          result__U4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__U4JH == ';')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__T4JH=TRUE__;
-        };
-      };
-      if ((! result__T4JH)) {
-        pos__UIYG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_241));
-        put_position__FRG(pos__UIYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
-    } else {
-      lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
-      if (((void *)lst__IDM != (void *)NULL)) {
-        result__W4JH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__W4JH=FALSE__;
-        } else {
-          result__X4JH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__X4JH=((__CHARACTER )(( 0)));
-          } else {
-            result__X4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__X4JH == ';')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__W4JH=TRUE__;
-          };
-        };
-        if (result__W4JH) {
-          if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.upper__4HV +  1) ==  1)) {
-            typ_arg__JDM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
-          } else {
-            typ_arg__JDM=get__4JP(lst__IDM);
-            copy__VDS(string_tmp__VH,(&__string_292));
-            switch (((struct ___OBJ *)typ_arg__JDM)->__id) {
-            case __ITM_TYPE_PARAMETER__: {
-              append__3OS(string_tmp__VH,((__ITM_TYPE_PARAMETER *)typ_arg__JDM)->parent_itm_type__VFE.name__GZP);
-            } break;
-            case __ITM_TYPE_SIMPLE__: {
-              append__3OS(string_tmp__VH,((__ITM_TYPE_SIMPLE *)typ_arg__JDM)->name__GZP);
-            } break;
-            case __ITM_TYPE_MULTI__: {
-              append_in__MHBC(typ_arg__JDM,string_tmp__VH);
-            } break;
-            case __ITM_TYPE_BLOCK__: {
-              append_in__PJPD(typ_arg__JDM,string_tmp__VH);
-            } break;
-            case __ITM_TYPE_GENERIC__: {
-              append_in__TKPD(typ_arg__JDM,string_tmp__VH);
-            } break;
-            case __ITM_TYPE_STYLE__: {
-              Self__S5HH=((__ITM_TYPE_STYLE *)typ_arg__JDM);
-              if (((void *)Self__S5HH->style__PZP != (void *)NULL)) {
-                append__3OS(string_tmp__VH,Self__S5HH->style__PZP);
-                Self__U5HH=((__STRING *)string_tmp__VH);
-                new_capacity__T5HH= 0;
-                if ((Self__U5HH->capacity__UCS <= Self__U5HH->count__SGC)) {
-                  if ((Self__U5HH->capacity__UCS ==  0)) {
-                    Self__U5HH->capacity__UCS= 32;
-                    Self__U5HH->storage__3CS=create__YIEB( 32);
-                  } else {
-                    new_capacity__T5HH=(__INTEGER)(Self__U5HH->capacity__UCS <<  1);
-                    Self__V5HH=((__CHARACTER *)Self__U5HH->storage__3CS);
-                    old_nb_elts__W5HH=Self__U5HH->capacity__UCS;
-                    new__X5HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__V5HH),((__UINTEGER_32 )old_nb_elts__W5HH),((__UINTEGER_32 )new_capacity__T5HH)));
-                    upper__24JH=(__INTEGER)(new_capacity__T5HH -  1);
-                    Self__04JH=old_nb_elts__W5HH;
-                    while ((Self__04JH <= upper__24JH)) {
-                      new__X5HH[Self__04JH]='\0';
-                      Self__04JH=(__INTEGER)(Self__04JH +  1);
-                    };
-                    Self__U5HH->storage__3CS=new__X5HH;
-                    Self__U5HH->capacity__UCS=new_capacity__T5HH;
-                  };
-                };
-                ((__CHARACTER *)Self__U5HH->storage__3CS)[Self__U5HH->count__SGC]=' ';
-                Self__U5HH->count__SGC=(__INTEGER)(Self__U5HH->count__SGC +  1);
-              };
-              append__3OS(string_tmp__VH,Self__S5HH->parent_itm_type_simple__3SN.name__GZP);
-            } break;
-            };
-            append__3OS(string_tmp__VH,(&__string_293));
-            __tmp__NGM=current_position__B0F();
-            put_error__text__1PG( 2,string_tmp__VH);
-            put_position__FRG(__tmp__NGM);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
-        };
-      };
-    };
-    if (((void *)lst__IDM != (void *)NULL)) {
-      if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.upper__4HV +  1) ==  1)) {
-        typ_res__KDM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
-      } else {
-        typ_res__KDM=get__4JP(lst__IDM);
-      };
-    };
-    result__44JH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__44JH=FALSE__;
-    } else {
-      result__54JH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__54JH=((__CHARACTER )(( 0)));
-      } else {
-        result__54JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__54JH == '}')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__44JH=TRUE__;
-      };
-    };
-    if ((! result__44JH)) {
-      pos__YIYG=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_294));
-      put_position__FRG(pos__YIYG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    typ_arg__RMN=typ_arg__JDM;
-    typ_res__SMN=typ_res__KDM;
-    result__UMN=NULL;
-    idx__VMN= 0;
-    __tmp__P3GH=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.upper__ENN;
-    __tmp__YEHH=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.storage__FKV;
-    __tmp__ZEHH=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.storage__FKV;
-    while (((idx__VMN <= __tmp__P3GH) && (((void *)((__ITM_TYPE_BLOCK *)((void **)__tmp__YEHH)[idx__VMN])->type_argument__SNN != (void *)typ_arg__RMN) || ((void *)((__ITM_TYPE_BLOCK *)((void **)__tmp__ZEHH)[idx__VMN])->type_result__2NN != (void *)typ_res__SMN)))) {
-      idx__VMN=(__INTEGER)(idx__VMN +  1);
-    };
-    if ((idx__VMN <= ((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.upper__ENN)) {
-      result__UMN=((void **)((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.storage__FKV)[idx__VMN];
-    } else {
-      result__4XGB=NULL;
-      ptr__5XGB=((__POINTER )(NULL));
-      typ_id__EYGB= 0;
-      sz__BYGB=((__UINTEGER_32 )sizeof(__ITM_TYPE_BLOCK));
-      if ((sz__BYGB ==  0)) {
-        result__4XGB=ITM_TYPE_BLOCK__;
-      } else {
-        typ_id__EYGB=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__BYGB);
-        if ((typ_id__EYGB == (__INTEGER)(-  1))) {
-          a__AWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__BWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYGB + a__AWFH) & (__UINTEGER_32)(~ a__AWFH));
-          ptr_table__C5JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__B5JH=((__POINTER )(NULL));
-          result__D5JH=((__POINTER *)ptr_table__C5JH)[ 0];
-          if ((result__D5JH == (void *)NULL)) {
-            result__D5JH=new_lab__RTJ(new_size__BWFH);
-            next__B5JH=(void *)((unsigned long)result__D5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BWFH)));
-            ((__POINTER *)next__B5JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__C5JH)[ 0]=next__B5JH;
-          } else {
-            next__B5JH=((__POINTER *)result__D5JH)[ 0];
-            if ((next__B5JH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D5JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__BWFH <<  1)) <=  4096)) {
-                next__B5JH=(void *)((unsigned long)result__D5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BWFH)));
-              } else {
-                next__B5JH=new_lab__RTJ(new_size__BWFH);
-              };
-              ((__POINTER *)next__B5JH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__C5JH)[ 0]=next__B5JH;
-            } else {
-              ((__POINTER *)result__D5JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B5JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__D5JH=next__B5JH;
-            };
-          };
-          ptr__5XGB=result__D5JH;
-        } else {
-          t__FWFH=((__UINTEGER_32 )typ_id__EYGB);
-          a__EWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__K5JH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYGB + a__EWFH) & (__UINTEGER_32)(~ a__EWFH));
-          ptr_table__H5JH=((__POINTER )(&(table_type[(t__FWFH)])));
-          lab_type__J5JH=(__UINTEGER_32)(t__FWFH |  1);
-          next__G5JH=((__POINTER )(NULL));
-          result__I5JH=((__POINTER *)ptr_table__H5JH)[ 0];
-          if ((result__I5JH == (void *)NULL)) {
-            result__I5JH=new_lab__RTJ(lab_type__J5JH);
-            next__G5JH=(void *)((unsigned long)result__I5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K5JH)));
-            ((__POINTER *)next__G5JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__H5JH)[ 0]=next__G5JH;
-          } else {
-            next__G5JH=((__POINTER *)result__I5JH)[ 0];
-            if ((next__G5JH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I5JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__K5JH <<  1)) <=  4096)) {
-                next__G5JH=(void *)((unsigned long)result__I5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K5JH)));
-              } else {
-                next__G5JH=new_lab__RTJ(lab_type__J5JH);
-              };
-              ((__POINTER *)next__G5JH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__H5JH)[ 0]=next__G5JH;
-            } else {
-              ((__POINTER *)result__I5JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G5JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__I5JH=next__G5JH;
-            };
-          };
-          ptr__5XGB=result__I5JH;
-        };
-        result__4XGB=((__ITM_TYPE_BLOCK *)ptr__5XGB);
-        *(result__4XGB) = *(ITM_TYPE_BLOCK__);
-      };
-      Self__LYCC=((__ITM_TYPE_BLOCK *)result__4XGB);
-      Self__LYCC->type_argument__SNN=typ_arg__JDM;
-      Self__LYCC->type_result__2NN=typ_res__KDM;
-      result__UMN=result__4XGB;
-      Self__OJAB=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN);
-      new_capacity__QJAB= 0;
-      if (((__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.upper__ENN +  1) <= (__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV -  1))) {
-        Self__OJAB->parent_arrayed_collection__0MN.upper__ENN=(__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.upper__ENN +  1);
-        __tmp__4JAB=TRUE__;
-      } else {
-        __tmp__4JAB=FALSE__;
-      };
-      if ((! __tmp__4JAB)) {
-        if ((Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV ==  0)) {
-          Self__OJAB->parent_arrayed_collection__0MN.storage__FKV=create__KSWB( 2);
-          Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV= 2;
-          Self__OJAB->parent_arrayed_collection__0MN.upper__ENN= 0;
-        } else {
-          new_capacity__QJAB=(__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV <<  1);
-          __tmp__TKAB=Self__OJAB->parent_arrayed_collection__0MN.storage__FKV;
-          __tmp__UKAB=Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV;
-          new__YJFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__TKAB)),((__UINTEGER_32 )(__INTEGER)(__tmp__UKAB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__QJAB * ((__INTEGER )(sizeof(void *)))))));
-          __tmp__MKFC=(__INTEGER)(new_capacity__QJAB -  1);
-          Self__30VD=__tmp__UKAB;
-          while ((Self__30VD <= __tmp__MKFC)) {
-            new__YJFC[Self__30VD]=NULL;
-            Self__30VD=(__INTEGER)(Self__30VD +  1);
-          };
-          Self__OJAB->parent_arrayed_collection__0MN.storage__FKV=new__YJFC;
-          Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV=new_capacity__QJAB;
-          Self__OJAB->parent_arrayed_collection__0MN.upper__ENN=(__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.upper__ENN +  1);
-        };
-      };
-      ((void **)Self__OJAB->parent_arrayed_collection__0MN.storage__FKV)[Self__OJAB->parent_arrayed_collection__0MN.upper__ENN]=result__4XGB;
-    };
-    result__HDM=result__UMN;
-  } else {
-    result__M5JH=read_word__ISF((&__string_9));
-    if (is_shorter__LZ) {
-      if (result__M5JH) {
-        if (((void *)(&__string_9) == (void *)(&__string_4))) {
-          short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        } else {
-          short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        };
-      };
-    };
-    if (result__M5JH) {
-      __tmp__MIM=TRUE__;
-    } else {
-      result__O5JH=read_word__ISF((&__string_10));
-      if (is_shorter__LZ) {
-        if (result__O5JH) {
-          if (((void *)(&__string_10) == (void *)(&__string_4))) {
-            short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-          } else {
-            short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-          };
-        };
-      };
-      __tmp__MIM=result__O5JH;
-    };
-    if (__tmp__MIM) {
-      style__GDM=last_string__D2C;
-      if ((is_local__EDM && ((void *)last_string__D2C == (void *)(&__string_9)))) {
-        pos__XKYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_295));
-        put_position__FRG(pos__XKYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-    result__HDM=read_prototype__DPN(Self__DDM,style__GDM);
-    if (((void *)read_contract__5VF(Self__DDM) != (void *)NULL)) {
-      pos__ZKYG=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_260));
-      put_position__FRG(pos__ZKYG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  };
-  return(result__HDM);
-}
-
-static void set_result_type__W2FC(__ITM_SLOT *Self__X2FC,void *t__Y2FC)
-// ({ITM_SLOT},{NULLxITM_TYPE_PARAMETERxITM_TYPE_SIMPLExITM_TYPE_MULTIxITM_TYPE_BLOCKxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
-{
-  void *tm__Z2FC,*__tmp__C3FC;
-  __SECTION_ *Self__ME2G;
-  __POSITION pos__U3ID;
-  tm__Z2FC=NULL;
-  Self__ME2G=((__SECTION_ *)Self__X2FC->id_section__T3C);
-  if ((((void *)Self__ME2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__ME2G->name__MYDC == (void *)(&__string_24)))) {
-    if (t__Y2FC==NULL) {
-      __tmp__C3FC=NULL;
-    } else {
-      switch (((struct ___OBJ *)t__Y2FC)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        __tmp__C3FC=((void *)t__Y2FC);
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        __tmp__C3FC=((void *)t__Y2FC);
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        __tmp__C3FC=NULL;
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        __tmp__C3FC=((void *)t__Y2FC);
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        __tmp__C3FC=((void *)t__Y2FC);
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        __tmp__C3FC=((void *)t__Y2FC);
-      } break;
-      }
-    };
-    tm__Z2FC=__tmp__C3FC;
-    if (((((void *)__tmp__C3FC == (void *)NULL) || ((void *)__tmp__C3FC == (void *)type_self__DVN)) || ((void *)__tmp__C3FC == (void *)type_void__WYF))) {
-      pos__U3ID=Self__X2FC->parent_named__15.parent_itm_object__4.position__SFJ;
-      put_error__text__1PG( 1,(&__string_238));
-      put_position__FRG(pos__U3ID);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  };
-  Self__X2FC->result_type__A4FC=t__Y2FC;
-}
-
-static void* read_contract__5VF(__PARSER *Self__AWF)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *e__DWF;
-  void *result__EWF;
-  __POSITION p__05JH,p__YYL,pos__BLYG,pos__DLYG,p__3AKH;
-  __ITM_LIST *result__S5JH;
-  __POINTER ptr__T5JH,ptr_table__25JH,next__15JH,result__35JH;
-  __POINTER ptr_table__BAKH,next__AAKH,result__CAKH,ptr__04L;
-  __POINTER ptr_table__GAKH,next__FAKH,result__HAKH,ptr_table__LAKH;
-  __POINTER next__KAKH,result__MAKH,ptr__WAKH,ptr_table__5AKH;
-  __POINTER next__4AKH,result__ABKH,ptr_table__EBKH,next__DBKH;
-  __POINTER result__FBKH;
-  __INTEGER typ_id__U5JH,typ_id__54L,typ_id__XAKH;
-  __UINTEGER_32 sz__V5JH,a__W5JH,new_size__X5JH,t__Y5JH,a__Z5JH;
-  __UINTEGER_32 new_size__EAKH,lab_type__DAKH,sz__24L,a__OWFH;
-  __UINTEGER_32 new_size__PWFH,t__TWFH,a__SWFH,new_size__OAKH;
-  __UINTEGER_32 lab_type__NAKH,sz__YAKH,a__ZAKH,new_size__0AKH,t__1AKH;
-  __UINTEGER_32 a__2AKH,new_size__HBKH,lab_type__GBKH;
-  __ITM_LDOTS *result__Z4L;
-  __ITM_PROTOTYPE *result__VAKH;
-  __BOOLEAN continue__CWF,result__P5JH,result__PAKH,result__SAKH;
-  void *lst__KWF,*result__0EHH;
-  __CHARACTER result__Q5JH,result__QAKH,result__TAKH;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__1EHH,*Self__2EHH;
-  continue__CWF=FALSE__;
-  e__DWF=NULL;
-  result__EWF=NULL;
-  lst__KWF=NULL;
-  result__P5JH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__P5JH=FALSE__;
-  } else {
-    result__Q5JH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__Q5JH=((__CHARACTER )(( 0)));
-    } else {
-      result__Q5JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__Q5JH == '[')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__P5JH=TRUE__;
-    };
-  };
-  if (result__P5JH) {
-    p__05JH=current_position__B0F();
-    result__S5JH=NULL;
-    ptr__T5JH=((__POINTER )(NULL));
-    typ_id__U5JH= 0;
-    sz__V5JH=((__UINTEGER_32 )sizeof(__ITM_LIST));
-    if ((sz__V5JH ==  0)) {
-      result__S5JH=ITM_LIST__;
-    } else {
-      typ_id__U5JH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__V5JH);
-      if ((typ_id__U5JH == (__INTEGER)(-  1))) {
-        a__W5JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__X5JH=(__UINTEGER_32)((__UINTEGER_32)(sz__V5JH + a__W5JH) & (__UINTEGER_32)(~ a__W5JH));
-        ptr_table__25JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X5JH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__15JH=((__POINTER )(NULL));
-        result__35JH=((__POINTER *)ptr_table__25JH)[ 0];
-        if ((result__35JH == (void *)NULL)) {
-          result__35JH=new_lab__RTJ(new_size__X5JH);
-          next__15JH=(void *)((unsigned long)result__35JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5JH)));
-          ((__POINTER *)next__15JH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__25JH)[ 0]=next__15JH;
-        } else {
-          next__15JH=((__POINTER *)result__35JH)[ 0];
-          if ((next__15JH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__35JH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__X5JH <<  1)) <=  4096)) {
-              next__15JH=(void *)((unsigned long)result__35JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5JH)));
-            } else {
-              next__15JH=new_lab__RTJ(new_size__X5JH);
-            };
-            ((__POINTER *)next__15JH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__25JH)[ 0]=next__15JH;
-          } else {
-            ((__POINTER *)result__35JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__15JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__35JH=next__15JH;
-          };
-        };
-        ptr__T5JH=result__35JH;
-      } else {
-        t__Y5JH=((__UINTEGER_32 )typ_id__U5JH);
-        a__Z5JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__EAKH=(__UINTEGER_32)((__UINTEGER_32)(sz__V5JH + a__Z5JH) & (__UINTEGER_32)(~ a__Z5JH));
-        ptr_table__BAKH=((__POINTER )(&(table_type[(t__Y5JH)])));
-        lab_type__DAKH=(__UINTEGER_32)(t__Y5JH |  1);
-        next__AAKH=((__POINTER )(NULL));
-        result__CAKH=((__POINTER *)ptr_table__BAKH)[ 0];
-        if ((result__CAKH == (void *)NULL)) {
-          result__CAKH=new_lab__RTJ(lab_type__DAKH);
-          next__AAKH=(void *)((unsigned long)result__CAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAKH)));
-          ((__POINTER *)next__AAKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BAKH)[ 0]=next__AAKH;
-        } else {
-          next__AAKH=((__POINTER *)result__CAKH)[ 0];
-          if ((next__AAKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CAKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__EAKH <<  1)) <=  4096)) {
-              next__AAKH=(void *)((unsigned long)result__CAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAKH)));
-            } else {
-              next__AAKH=new_lab__RTJ(lab_type__DAKH);
-            };
-            ((__POINTER *)next__AAKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BAKH)[ 0]=next__AAKH;
-          } else {
-            ((__POINTER *)result__CAKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AAKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__CAKH=next__AAKH;
-          };
-        };
-        ptr__T5JH=result__CAKH;
-      };
-      result__S5JH=((__ITM_LIST *)ptr__T5JH);
-      *(result__S5JH) = *(ITM_LIST__);
-    };
-    ((__ITM_LIST *)result__S5JH)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ=p__05JH;
-    last_group__TWF=result__S5JH;
-    result__EWF=result__S5JH;
-    read_def_local__M3H(Self__AWF);
-    result__0EHH=NULL;
-    if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT <  0)) {
-      result__0EHH=create_with_capacity__XXI( 16);
-    } else {
-      Self__1EHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-      result__0EHH=((void **)Self__1EHH->parent_arrayed_collection__PAI.storage__PCU)[Self__1EHH->parent_arrayed_collection__PAI.upper__BYT];
-      Self__2EHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-      Self__2EHH->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__2EHH->parent_arrayed_collection__PAI.upper__BYT -  1);
-    };
-    lst__KWF=result__0EHH;
-    do {
-      e__DWF=read_expr__DBJ(Self__AWF);
-      if (((void *)e__DWF == (void *)NULL)) {
-        continue__CWF=read_word__ISF((&__string_7));
-        if (continue__CWF) {
-          p__YYL=current_position__B0F();
-          result__Z4L=NULL;
-          ptr__04L=((__POINTER )(NULL));
-          typ_id__54L= 0;
-          sz__24L=((__UINTEGER_32 )sizeof(__ITM_LDOTS));
-          if ((sz__24L ==  0)) {
-            result__Z4L=ITM_LDOTS__;
-          } else {
-            typ_id__54L=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__24L);
-            if ((typ_id__54L == (__INTEGER)(-  1))) {
-              a__OWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__PWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__24L + a__OWFH) & (__UINTEGER_32)(~ a__OWFH));
-              ptr_table__GAKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__FAKH=((__POINTER )(NULL));
-              result__HAKH=((__POINTER *)ptr_table__GAKH)[ 0];
-              if ((result__HAKH == (void *)NULL)) {
-                result__HAKH=new_lab__RTJ(new_size__PWFH);
-                next__FAKH=(void *)((unsigned long)result__HAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWFH)));
-                ((__POINTER *)next__FAKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GAKH)[ 0]=next__FAKH;
-              } else {
-                next__FAKH=((__POINTER *)result__HAKH)[ 0];
-                if ((next__FAKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HAKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PWFH <<  1)) <=  4096)) {
-                    next__FAKH=(void *)((unsigned long)result__HAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWFH)));
-                  } else {
-                    next__FAKH=new_lab__RTJ(new_size__PWFH);
-                  };
-                  ((__POINTER *)next__FAKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__GAKH)[ 0]=next__FAKH;
-                } else {
-                  ((__POINTER *)result__HAKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FAKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__HAKH=next__FAKH;
-                };
-              };
-              ptr__04L=result__HAKH;
-            } else {
-              t__TWFH=((__UINTEGER_32 )typ_id__54L);
-              a__SWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__OAKH=(__UINTEGER_32)((__UINTEGER_32)(sz__24L + a__SWFH) & (__UINTEGER_32)(~ a__SWFH));
-              ptr_table__LAKH=((__POINTER )(&(table_type[(t__TWFH)])));
-              lab_type__NAKH=(__UINTEGER_32)(t__TWFH |  1);
-              next__KAKH=((__POINTER )(NULL));
-              result__MAKH=((__POINTER *)ptr_table__LAKH)[ 0];
-              if ((result__MAKH == (void *)NULL)) {
-                result__MAKH=new_lab__RTJ(lab_type__NAKH);
-                next__KAKH=(void *)((unsigned long)result__MAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OAKH)));
-                ((__POINTER *)next__KAKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__LAKH)[ 0]=next__KAKH;
-              } else {
-                next__KAKH=((__POINTER *)result__MAKH)[ 0];
-                if ((next__KAKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MAKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OAKH <<  1)) <=  4096)) {
-                    next__KAKH=(void *)((unsigned long)result__MAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OAKH)));
-                  } else {
-                    next__KAKH=new_lab__RTJ(lab_type__NAKH);
-                  };
-                  ((__POINTER *)next__KAKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__LAKH)[ 0]=next__KAKH;
-                } else {
-                  ((__POINTER *)result__MAKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KAKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__MAKH=next__KAKH;
-                };
-              };
-              ptr__04L=result__MAKH;
-            };
-            result__Z4L=((__ITM_LDOTS *)ptr__04L);
-            *(result__Z4L) = *(ITM_LDOTS__);
-          };
-          ((__ITM_LDOTS *)result__Z4L)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ=p__YYL;
-          add_last__I5U(lst__KWF,result__Z4L);
-        };
-      } else {
-        add_last__I5U(lst__KWF,e__DWF);
-        result__PAKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__PAKH=FALSE__;
-        } else {
-          result__QAKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__QAKH=((__CHARACTER )(( 0)));
-          } else {
-            result__QAKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__QAKH == ';')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__PAKH=TRUE__;
-          };
-        };
-        if ((! result__PAKH)) {
-          pos__BLYG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_241));
-          put_position__FRG(pos__BLYG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        continue__CWF=TRUE__;
-      };
-    } while (continue__CWF);
-    result__SAKH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__SAKH=FALSE__;
-    } else {
-      result__TAKH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__TAKH=((__CHARACTER )(( 0)));
-      } else {
-        result__TAKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__TAKH == ']')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__SAKH=TRUE__;
-      };
-    };
-    if ((! result__SAKH)) {
-      pos__DLYG=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_296));
-      put_position__FRG(pos__DLYG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    p__3AKH=current_position__B0F();
-    result__VAKH=NULL;
-    ptr__WAKH=((__POINTER )(NULL));
-    typ_id__XAKH= 0;
-    sz__YAKH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-    if ((sz__YAKH ==  0)) {
-      result__VAKH=ITM_PROTOTYPE__;
-    } else {
-      typ_id__XAKH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__YAKH);
-      if ((typ_id__XAKH == (__INTEGER)(-  1))) {
-        a__ZAKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__0AKH=(__UINTEGER_32)((__UINTEGER_32)(sz__YAKH + a__ZAKH) & (__UINTEGER_32)(~ a__ZAKH));
-        ptr_table__5AKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0AKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__4AKH=((__POINTER )(NULL));
-        result__ABKH=((__POINTER *)ptr_table__5AKH)[ 0];
-        if ((result__ABKH == (void *)NULL)) {
-          result__ABKH=new_lab__RTJ(new_size__0AKH);
-          next__4AKH=(void *)((unsigned long)result__ABKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0AKH)));
-          ((__POINTER *)next__4AKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__5AKH)[ 0]=next__4AKH;
-        } else {
-          next__4AKH=((__POINTER *)result__ABKH)[ 0];
-          if ((next__4AKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ABKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__0AKH <<  1)) <=  4096)) {
-              next__4AKH=(void *)((unsigned long)result__ABKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0AKH)));
-            } else {
-              next__4AKH=new_lab__RTJ(new_size__0AKH);
-            };
-            ((__POINTER *)next__4AKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__5AKH)[ 0]=next__4AKH;
-          } else {
-            ((__POINTER *)result__ABKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4AKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__ABKH=next__4AKH;
-          };
-        };
-        ptr__WAKH=result__ABKH;
-      } else {
-        t__1AKH=((__UINTEGER_32 )typ_id__XAKH);
-        a__2AKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__HBKH=(__UINTEGER_32)((__UINTEGER_32)(sz__YAKH + a__2AKH) & (__UINTEGER_32)(~ a__2AKH));
-        ptr_table__EBKH=((__POINTER )(&(table_type[(t__1AKH)])));
-        lab_type__GBKH=(__UINTEGER_32)(t__1AKH |  1);
-        next__DBKH=((__POINTER )(NULL));
-        result__FBKH=((__POINTER *)ptr_table__EBKH)[ 0];
-        if ((result__FBKH == (void *)NULL)) {
-          result__FBKH=new_lab__RTJ(lab_type__GBKH);
-          next__DBKH=(void *)((unsigned long)result__FBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HBKH)));
-          ((__POINTER *)next__DBKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__EBKH)[ 0]=next__DBKH;
-        } else {
-          next__DBKH=((__POINTER *)result__FBKH)[ 0];
-          if ((next__DBKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FBKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HBKH <<  1)) <=  4096)) {
-              next__DBKH=(void *)((unsigned long)result__FBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HBKH)));
-            } else {
-              next__DBKH=new_lab__RTJ(lab_type__GBKH);
-            };
-            ((__POINTER *)next__DBKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__EBKH)[ 0]=next__DBKH;
-          } else {
-            ((__POINTER *)result__FBKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DBKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__FBKH=next__DBKH;
-          };
-        };
-        ptr__WAKH=result__FBKH;
-      };
-      result__VAKH=((__ITM_PROTOTYPE *)ptr__WAKH);
-      *(result__VAKH) = *(ITM_PROTOTYPE__);
-    };
-    ((__ITM_PROTOTYPE *)result__VAKH)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=p__3AKH;
-    e__DWF=result__VAKH;
-    add_last__I5U(result__0EHH,result__VAKH);
-    copy__5BI(result__0EHH);
-  };
-  return(result__EWF);
-}
-
-static void* read_expr__DBJ(__PARSER *Self__EBJ)
-// ({PARSER}) With resultRecursive, No inlinable.
-{
-  void *result__GBJ,*value__HBJ,*result__SGL,*expr__TGL,*__tmp__ZJL;
-  void *__tmp__ALL,*__tmp__GML;
-  __INTEGER p__OBJ,typ_id__LA1C,typ_id__3BKH,typ_id__QCKH,typ_id__DDKH;
-  __INTEGER typ_id__ESJD,typ_id__CAKD,typ_id__XTJD,last_msg__XGL;
-  __INTEGER first_msg__YGL,typ_id__UEKH,typ_id__VTP,typ_id__TFKH;
-  __INTEGER index__52LH,__tmp__32LH,i__A3LH,typ_id__GGKH,__tmp__CG1C;
-  __INTEGER i__QJCD,typ_id__JYO,typ_id__2ZO;
-  void *name__PBJ,*n__2EKH,*n__MIP;
-  __POSITION p__IFRC,pos__MLYG,p__DCKH,pos__OLYG,pos__QLYG,__tmp__JGJ;
-  __POSITION p__JDKH,pos__ULYG,__tmp__KJJ,__tmp__UJJ,__tmp__3JJ,p__1EKH;
-  __POSITION pos__5LYG,p__LIP,__tmp__3JL,__tmp__DLL,__tmp__KML;
-  __ITM_LIST_IDF *result__FA1C;
-  __POINTER ptr__GA1C,ptr_table__SBKH,next__RBKH,result__TBKH;
-  __POINTER ptr_table__XBKH,next__WBKH,result__YBKH,ptr__2BKH;
-  __POINTER ptr_table__FCKH,next__ECKH,result__GCKH,ptr_table__KCKH;
-  __POINTER next__JCKH,result__LCKH,ptr__PCKH,ptr_table__YCKH;
-  __POINTER next__XCKH,result__ZCKH,ptr_table__3CKH,next__2CKH;
-  __POINTER result__4CKH,ptr__CDKH,ptr_table__LDKH,next__KDKH;
-  __POINTER result__MDKH,ptr_table__QDKH,next__PDKH,result__RDKH;
-  __POINTER ptr__5RJD,ptr_table__VDKH,next__UDKH,result__WDKH;
-  __POINTER ptr_table__0DKH,next__ZDKH,result__1DKH,ptr__35JD;
-  __POINTER ptr_table__5DKH,next__4DKH,result__AEKH,ptr_table__EEKH;
-  __POINTER next__DEKH,result__FEKH,ptr__STJD,ptr_table__JEKH;
-  __POINTER next__IEKH,result__KEKH,ptr_table__OEKH,next__NEKH;
-  __POINTER result__PEKH,ptr__TEKH,ptr_table__4EKH,next__3EKH;
-  __POINTER result__5EKH,ptr_table__DFKH,next__CFKH,result__EFKH;
-  __POINTER ptr__QTP,ptr_table__IFKH,next__HFKH,result__JFKH;
-  __POINTER ptr_table__NFKH,next__MFKH,result__OFKH,ptr__SFKH;
-  __POINTER ptr_table__1FKH,next__0FKH,result__2FKH,ptr_table__AGKH;
-  __POINTER next__5FKH,result__BGKH,ptr__FGKH,ptr_table__OGKH;
-  __POINTER next__NGKH,result__PGKH,ptr_table__TGKH,next__SGKH;
-  __POINTER result__UGKH,ptr__EYO,ptr_table__YGKH,next__XGKH;
-  __POINTER result__ZGKH,ptr_table__3GKH,next__2GKH,result__4GKH;
-  __POINTER ptr__XZO,ptr_table__CHKH,next__BHKH,result__DHKH;
-  __POINTER ptr_table__HHKH,next__GHKH,result__IHKH;
-  __UINTEGER_32 sz__IA1C,a__WWFH,new_size__XWFH,t__1WFH,a__0WFH;
-  __UINTEGER_32 new_size__0BKH,lab_type__ZBKH,sz__4BKH,a__5BKH;
-  __UINTEGER_32 new_size__ACKH,t__BCKH,a__CCKH,new_size__NCKH;
-  __UINTEGER_32 lab_type__MCKH,sz__RCKH,a__SCKH,new_size__TCKH,t__UCKH;
-  __UINTEGER_32 a__VCKH,new_size__ADKH,lab_type__5CKH,sz__EDKH,a__FDKH;
-  __UINTEGER_32 new_size__GDKH,t__HDKH,a__IDKH,new_size__TDKH;
-  __UINTEGER_32 lab_type__SDKH,sz__BSJD,a__UEGH,new_size__VEGH,t__ZEGH;
-  __UINTEGER_32 a__YEGH,new_size__3DKH,lab_type__2DKH,sz__55JD,a__4WFH;
-  __UINTEGER_32 new_size__5WFH,t__DXFH,a__CXFH,new_size__HEKH;
-  __UINTEGER_32 lab_type__GEKH,sz__UTJD,a__2EGH,new_size__3EGH,t__BFGH;
-  __UINTEGER_32 a__AFGH,new_size__REKH,lab_type__QEKH,sz__VEKH,a__WEKH;
-  __UINTEGER_32 new_size__XEKH,t__YEKH,a__ZEKH,new_size__GFKH;
-  __UINTEGER_32 lab_type__FFKH,sz__STP,a__MFGH,new_size__NFGH,t__RFGH;
-  __UINTEGER_32 a__QFGH,new_size__QFKH,lab_type__PFKH,sz__UFKH,a__VFKH;
-  __UINTEGER_32 new_size__WFKH,t__XFKH,a__YFKH,new_size__DGKH;
-  __UINTEGER_32 lab_type__CGKH,sz__HGKH,a__IGKH,new_size__JGKH,t__KGKH;
-  __UINTEGER_32 a__LGKH,new_size__WGKH,lab_type__VGKH,sz__GYO,a__FGGH;
-  __UINTEGER_32 new_size__GGGH,t__KGGH,a__JGGH,new_size__AHKH;
-  __UINTEGER_32 lab_type__5GKH,sz__ZZO,a__QYFH,new_size__RYFH,t__VYFH;
-  __UINTEGER_32 a__UYFH,new_size__KHKH,lab_type__JHKH;
-  __ITM_WRITE_VALUE *result__1BKH,*result__4RJD;
-  __ITM_WRITE_CAST *result__OCKH,*result__RTJD;
-  __ITM_READ *result__BDKH;
-  __ITM_WRITE_CODE *result__25JD;
-  void *itm_op__WGL,*__tmp__0JL,*__tmp__BLL,*__tmp__HML;
-  __ITM_OPERATOR *result__SEKH,*Self__0EKH,*result__PTP,*Self__LNV;
-  __ITM_READ_ARG1 *result__RFKH,*result__EGKH;
-  __ITM_READ_ARG2 *result__DYO;
-  __ITM_EXPRESSION *result__WZO;
-  __CHARACTER affect__IBJ,result__JBKH,result__MBKH,result__PBKH;
-  __BOOLEAN again__JBJ,result__IBKH,result__LBKH,result__OBKH;
-  __BOOLEAN __tmp__TEJ,__tmp__VGJ,__tmp__ZLL;
-  void *l_assignment__NBJ,*result__VAL,*result__CFRC;
-  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__XU5,*Self__NV5;
-  void *result__KAI,*l_expr__UGL;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__UM4,*Self__KN4;
-  __FAST_ARRAYoITM_CODEo *Self__12LH,*Self__YF1C;
-  void **__tmp__22LH,**Self__42LH,**__tmp__BG1C,**Self__5ICD;
-  result__GBJ=NULL;
-  value__HBJ=NULL;
-  affect__IBJ='\0';
-  again__JBJ=FALSE__;
-  l_assignment__NBJ=NULL;
-  p__OBJ= 0;
-  name__PBJ=NULL;
-  old_position__ITI=position__CCC;
-  old_pos_cur__KTI=pos_cur__FCC;
-  old_pos_line__MTI=pos_line__GCC;
-  old_pos_col__OTI=pos_col__HCC;
-  old_short_derive__QTI=short_derive__PCC;
-  result__IBKH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__IBKH=FALSE__;
-  } else {
-    result__JBKH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__JBKH=((__CHARACTER )(( 0)));
-    } else {
-      result__JBKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__JBKH == '(')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__IBKH=TRUE__;
-    };
-  };
-  if (result__IBKH) {
-    result__VAL=NULL;
-    if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL)->parent_arrayed_collection__0AL.upper__LUU <  0)) {
-      result__VAL=create_with_capacity__THRC( 16);
-    } else {
-      Self__XU5=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
-      result__VAL=((void **)Self__XU5->parent_arrayed_collection__0AL.storage__1WU)[Self__XU5->parent_arrayed_collection__0AL.upper__LUU];
-      Self__NV5=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
-      Self__NV5->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__NV5->parent_arrayed_collection__0AL.upper__LUU -  1);
-    };
-    l_assignment__NBJ=result__VAL;
-    do {
-      again__JBJ=FALSE__;
-      if (read_identifier__2BL()) {
-        p__OBJ=(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD);
-        copy__VDS(string_tmp2__GCJ,last_string__D2C);
-        while (read_identifier__2BL()) {
-          append__3OS(string_tmp2__GCJ,(&__string_112));
-          append__3OS(string_tmp2__GCJ,last_string__D2C);
-        };
-        name__PBJ=get__YWB(string_tmp2__GCJ);
-        add_last__SEPD(l_assignment__NBJ,name__PBJ);
-        if (is_shorter__LZ) {
-          if ((! fast_has__RDV(short_local__XCC,name__PBJ))) {
-            short__token__to__GDD((&__string_131),p__OBJ,position__CCC);
-          };
-        };
-        result__LBKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__LBKH=FALSE__;
-        } else {
-          result__MBKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__MBKH=((__CHARACTER )(( 0)));
-          } else {
-            result__MBKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__MBKH == ',')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__LBKH=TRUE__;
-          };
-        };
-        if (result__LBKH) {
-          again__JBJ=TRUE__;
-        };
-      };
-    } while (again__JBJ);
-    if ((! (((__FAST_ARRAYoSTRING_CONSTANTo *)result__VAL)->parent_arrayed_collection__MBJ.upper__2CPD <  0))) {
-      result__OBKH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__OBKH=FALSE__;
-      } else {
-        result__PBKH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__PBKH=((__CHARACTER )(( 0)));
-        } else {
-          result__PBKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__PBKH == ')')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__OBKH=TRUE__;
-        };
-      };
-      __tmp__TEJ=result__OBKH;
-    } else {
-      __tmp__TEJ=FALSE__;
-    };
-    if ((__tmp__TEJ && ((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14))))) {
-      result__CFRC=create_with_capacity__THRC((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__VAL)->parent_arrayed_collection__MBJ.upper__2CPD +  1));
-      copy__BASD(result__CFRC,result__VAL);
-      free__TR5(result__VAL);
-      l_assignment__NBJ=result__CFRC;
-      p__IFRC=current_position__B0F();
-      result__FA1C=NULL;
-      ptr__GA1C=((__POINTER )(NULL));
-      typ_id__LA1C= 0;
-      sz__IA1C=((__UINTEGER_32 )sizeof(__ITM_LIST_IDF));
-      if ((sz__IA1C ==  0)) {
-        result__FA1C=ITM_LIST_IDF__;
-      } else {
-        typ_id__LA1C=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__IA1C);
-        if ((typ_id__LA1C == (__INTEGER)(-  1))) {
-          a__WWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__XWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__IA1C + a__WWFH) & (__UINTEGER_32)(~ a__WWFH));
-          ptr_table__SBKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__RBKH=((__POINTER )(NULL));
-          result__TBKH=((__POINTER *)ptr_table__SBKH)[ 0];
-          if ((result__TBKH == (void *)NULL)) {
-            result__TBKH=new_lab__RTJ(new_size__XWFH);
-            next__RBKH=(void *)((unsigned long)result__TBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWFH)));
-            ((__POINTER *)next__RBKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__SBKH)[ 0]=next__RBKH;
-          } else {
-            next__RBKH=((__POINTER *)result__TBKH)[ 0];
-            if ((next__RBKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TBKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XWFH <<  1)) <=  4096)) {
-                next__RBKH=(void *)((unsigned long)result__TBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWFH)));
-              } else {
-                next__RBKH=new_lab__RTJ(new_size__XWFH);
-              };
-              ((__POINTER *)next__RBKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__SBKH)[ 0]=next__RBKH;
-            } else {
-              ((__POINTER *)result__TBKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RBKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__TBKH=next__RBKH;
-            };
-          };
-          ptr__GA1C=result__TBKH;
-        } else {
-          t__1WFH=((__UINTEGER_32 )typ_id__LA1C);
-          a__0WFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__0BKH=(__UINTEGER_32)((__UINTEGER_32)(sz__IA1C + a__0WFH) & (__UINTEGER_32)(~ a__0WFH));
-          ptr_table__XBKH=((__POINTER )(&(table_type[(t__1WFH)])));
-          lab_type__ZBKH=(__UINTEGER_32)(t__1WFH |  1);
-          next__WBKH=((__POINTER )(NULL));
-          result__YBKH=((__POINTER *)ptr_table__XBKH)[ 0];
-          if ((result__YBKH == (void *)NULL)) {
-            result__YBKH=new_lab__RTJ(lab_type__ZBKH);
-            next__WBKH=(void *)((unsigned long)result__YBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0BKH)));
-            ((__POINTER *)next__WBKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__XBKH)[ 0]=next__WBKH;
-          } else {
-            next__WBKH=((__POINTER *)result__YBKH)[ 0];
-            if ((next__WBKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YBKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__0BKH <<  1)) <=  4096)) {
-                next__WBKH=(void *)((unsigned long)result__YBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0BKH)));
-              } else {
-                next__WBKH=new_lab__RTJ(lab_type__ZBKH);
-              };
-              ((__POINTER *)next__WBKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__XBKH)[ 0]=next__WBKH;
-            } else {
-              ((__POINTER *)result__YBKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WBKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__YBKH=next__WBKH;
-            };
-          };
-          ptr__GA1C=result__YBKH;
-        };
-        result__FA1C=((__ITM_LIST_IDF *)ptr__GA1C);
-        *(result__FA1C) = *(ITM_LIST_IDF__);
-      };
-      ((__ITM_LIST_IDF *)result__FA1C)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ=p__IFRC;
-      result__GBJ=result__FA1C;
-      affect__IBJ=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
-      value__HBJ=read_expr__DBJ(Self__EBJ);
-      if (((void *)value__HBJ == (void *)NULL)) {
-        pos__MLYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_239));
-        put_position__FRG(pos__MLYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      if ((affect__IBJ == ':')) {
-        p__DCKH=result__FA1C->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-        result__1BKH=NULL;
-        ptr__2BKH=((__POINTER )(NULL));
-        typ_id__3BKH= 0;
-        sz__4BKH=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
-        if ((sz__4BKH ==  0)) {
-          result__1BKH=ITM_WRITE_VALUE__;
-        } else {
-          typ_id__3BKH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4BKH);
-          if ((typ_id__3BKH == (__INTEGER)(-  1))) {
-            a__5BKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ACKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4BKH + a__5BKH) & (__UINTEGER_32)(~ a__5BKH));
-            ptr_table__FCKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ACKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__ECKH=((__POINTER )(NULL));
-            result__GCKH=((__POINTER *)ptr_table__FCKH)[ 0];
-            if ((result__GCKH == (void *)NULL)) {
-              result__GCKH=new_lab__RTJ(new_size__ACKH);
-              next__ECKH=(void *)((unsigned long)result__GCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACKH)));
-              ((__POINTER *)next__ECKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FCKH)[ 0]=next__ECKH;
-            } else {
-              next__ECKH=((__POINTER *)result__GCKH)[ 0];
-              if ((next__ECKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GCKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ACKH <<  1)) <=  4096)) {
-                  next__ECKH=(void *)((unsigned long)result__GCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACKH)));
-                } else {
-                  next__ECKH=new_lab__RTJ(new_size__ACKH);
-                };
-                ((__POINTER *)next__ECKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__FCKH)[ 0]=next__ECKH;
-              } else {
-                ((__POINTER *)result__GCKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ECKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__GCKH=next__ECKH;
-              };
-            };
-            ptr__2BKH=result__GCKH;
-          } else {
-            t__BCKH=((__UINTEGER_32 )typ_id__3BKH);
-            a__CCKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__NCKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4BKH + a__CCKH) & (__UINTEGER_32)(~ a__CCKH));
-            ptr_table__KCKH=((__POINTER )(&(table_type[(t__BCKH)])));
-            lab_type__MCKH=(__UINTEGER_32)(t__BCKH |  1);
-            next__JCKH=((__POINTER )(NULL));
-            result__LCKH=((__POINTER *)ptr_table__KCKH)[ 0];
-            if ((result__LCKH == (void *)NULL)) {
-              result__LCKH=new_lab__RTJ(lab_type__MCKH);
-              next__JCKH=(void *)((unsigned long)result__LCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NCKH)));
-              ((__POINTER *)next__JCKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__KCKH)[ 0]=next__JCKH;
-            } else {
-              next__JCKH=((__POINTER *)result__LCKH)[ 0];
-              if ((next__JCKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LCKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NCKH <<  1)) <=  4096)) {
-                  next__JCKH=(void *)((unsigned long)result__LCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NCKH)));
-                } else {
-                  next__JCKH=new_lab__RTJ(lab_type__MCKH);
-                };
-                ((__POINTER *)next__JCKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__KCKH)[ 0]=next__JCKH;
-              } else {
-                ((__POINTER *)result__LCKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JCKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__LCKH=next__JCKH;
-              };
-            };
-            ptr__2BKH=result__LCKH;
-          };
-          result__1BKH=((__ITM_WRITE_VALUE *)ptr__2BKH);
-          *(result__1BKH) = *(ITM_WRITE_VALUE__);
-        };
-        ((__ITM_WRITE_VALUE *)result__1BKH)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=p__DCKH;
-        result__GBJ=result__1BKH;
-      };
-      if ((affect__IBJ == '<')) {
-        pos__OLYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_297));
-        put_position__FRG(pos__OLYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      if ((affect__IBJ == '?')) {
-        pos__QLYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_298));
-        put_position__FRG(pos__QLYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-        switch (((struct ___OBJ *)result__GBJ)->__id) {
-        case __ITM_LIST__: {
-          __tmp__JGJ=((__ITM_LIST *)result__GBJ)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_LDOTS__: {
-          __tmp__JGJ=((__ITM_LDOTS *)result__GBJ)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_PROTOTYPE__: {
-          __tmp__JGJ=((__ITM_PROTOTYPE *)result__GBJ)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_LIST_IDF__: {
-          __tmp__JGJ=((__ITM_LIST_IDF *)result__GBJ)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_WRITE_VALUE__: {
-          __tmp__JGJ=((__ITM_WRITE_VALUE *)result__GBJ)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_WRITE_CAST__: {
-          __tmp__JGJ=((__ITM_WRITE_CAST *)result__GBJ)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_READ__: {
-          __tmp__JGJ=((__ITM_READ *)result__GBJ)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_WRITE_CODE__: {
-          __tmp__JGJ=((__ITM_WRITE_CODE *)result__GBJ)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_OPERATOR__: {
-          __tmp__JGJ=((__ITM_OPERATOR *)result__GBJ)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_READ_ARG1__: {
-          __tmp__JGJ=((__ITM_READ_ARG1 *)result__GBJ)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_READ_ARG2__: {
-          __tmp__JGJ=((__ITM_READ_ARG2 *)result__GBJ)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_EXPRESSION__: {
-          __tmp__JGJ=position__5A5B(result__GBJ);
-        } break;
-        case __ITM_OLD__: {
-          __tmp__JGJ=((__ITM_OLD *)result__GBJ)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_EXTERNAL_TYPE__: {
-          __tmp__JGJ=((__ITM_EXTERNAL_TYPE *)result__GBJ)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_BLOCK__: {
-          __tmp__JGJ=((__ITM_LIST *)((__ITM_BLOCK *)result__GBJ)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_EXTERNAL__: {
-          __tmp__JGJ=((__ITM_EXTERNAL *)result__GBJ)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_READ_ARGS__: {
-          __tmp__JGJ=((__ITM_READ_ARGS *)result__GBJ)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_REAL__: {
-          __tmp__JGJ=((__ITM_REAL *)result__GBJ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_NUMBER__: {
-          __tmp__JGJ=((__ITM_NUMBER *)result__GBJ)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_CHARACTER__: {
-          __tmp__JGJ=((__ITM_CHARACTER *)result__GBJ)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_STRING__: {
-          __tmp__JGJ=((__ITM_STRING *)result__GBJ)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-        } break;
-        case __ITM_RESULT__: {
-          __tmp__JGJ=position__PIHC(result__GBJ);
-        } break;
-        };
-        result__OCKH=NULL;
-        ptr__PCKH=((__POINTER )(NULL));
-        typ_id__QCKH= 0;
-        sz__RCKH=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
-        if ((sz__RCKH ==  0)) {
-          result__OCKH=ITM_WRITE_CAST__;
-        } else {
-          typ_id__QCKH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__RCKH);
-          if ((typ_id__QCKH == (__INTEGER)(-  1))) {
-            a__SCKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__TCKH=(__UINTEGER_32)((__UINTEGER_32)(sz__RCKH + a__SCKH) & (__UINTEGER_32)(~ a__SCKH));
-            ptr_table__YCKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TCKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__XCKH=((__POINTER )(NULL));
-            result__ZCKH=((__POINTER *)ptr_table__YCKH)[ 0];
-            if ((result__ZCKH == (void *)NULL)) {
-              result__ZCKH=new_lab__RTJ(new_size__TCKH);
-              next__XCKH=(void *)((unsigned long)result__ZCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCKH)));
-              ((__POINTER *)next__XCKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__YCKH)[ 0]=next__XCKH;
-            } else {
-              next__XCKH=((__POINTER *)result__ZCKH)[ 0];
-              if ((next__XCKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZCKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__TCKH <<  1)) <=  4096)) {
-                  next__XCKH=(void *)((unsigned long)result__ZCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCKH)));
-                } else {
-                  next__XCKH=new_lab__RTJ(new_size__TCKH);
-                };
-                ((__POINTER *)next__XCKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__YCKH)[ 0]=next__XCKH;
-              } else {
-                ((__POINTER *)result__ZCKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XCKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__ZCKH=next__XCKH;
-              };
-            };
-            ptr__PCKH=result__ZCKH;
-          } else {
-            t__UCKH=((__UINTEGER_32 )typ_id__QCKH);
-            a__VCKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ADKH=(__UINTEGER_32)((__UINTEGER_32)(sz__RCKH + a__VCKH) & (__UINTEGER_32)(~ a__VCKH));
-            ptr_table__3CKH=((__POINTER )(&(table_type[(t__UCKH)])));
-            lab_type__5CKH=(__UINTEGER_32)(t__UCKH |  1);
-            next__2CKH=((__POINTER )(NULL));
-            result__4CKH=((__POINTER *)ptr_table__3CKH)[ 0];
-            if ((result__4CKH == (void *)NULL)) {
-              result__4CKH=new_lab__RTJ(lab_type__5CKH);
-              next__2CKH=(void *)((unsigned long)result__4CKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ADKH)));
-              ((__POINTER *)next__2CKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3CKH)[ 0]=next__2CKH;
-            } else {
-              next__2CKH=((__POINTER *)result__4CKH)[ 0];
-              if ((next__2CKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4CKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ADKH <<  1)) <=  4096)) {
-                  next__2CKH=(void *)((unsigned long)result__4CKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ADKH)));
-                } else {
-                  next__2CKH=new_lab__RTJ(lab_type__5CKH);
-                };
-                ((__POINTER *)next__2CKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__3CKH)[ 0]=next__2CKH;
-              } else {
-                ((__POINTER *)result__4CKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2CKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__4CKH=next__2CKH;
-              };
-            };
-            ptr__PCKH=result__4CKH;
-          };
-          result__OCKH=((__ITM_WRITE_CAST *)ptr__PCKH);
-          *(result__OCKH) = *(ITM_WRITE_CAST__);
-        };
-        ((__ITM_WRITE_CAST *)result__OCKH)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__JGJ;
-        result__GBJ=result__OCKH;
-      };
-    } else {
-      free__TR5(l_assignment__NBJ);
-    };
-    __tmp__VGJ=TRUE__;
-  } else {
-    __tmp__VGJ=FALSE__;
-  };
-  if ((! __tmp__VGJ)) {
-    if (read_identifier__2BL()) {
-      p__OBJ=(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD);
-      copy__VDS(string_tmp2__GCJ,last_string__D2C);
-      while (read_identifier__2BL()) {
-        append__3OS(string_tmp2__GCJ,(&__string_112));
-        append__3OS(string_tmp2__GCJ,last_string__D2C);
-      };
-      name__PBJ=get__YWB(string_tmp2__GCJ);
-      if (is_shorter__LZ) {
-        if ((! fast_has__RDV(short_local__XCC,name__PBJ))) {
-          short__token__to__GDD((&__string_131),p__OBJ,position__CCC);
-        };
-      };
-      if (((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14)))) {
-        p__JDKH=current_position__B0F();
-        result__BDKH=NULL;
-        ptr__CDKH=((__POINTER )(NULL));
-        typ_id__DDKH= 0;
-        sz__EDKH=((__UINTEGER_32 )sizeof(__ITM_READ));
-        if ((sz__EDKH ==  0)) {
-          result__BDKH=ITM_READ__;
-        } else {
-          typ_id__DDKH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EDKH);
-          if ((typ_id__DDKH == (__INTEGER)(-  1))) {
-            a__FDKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__GDKH=(__UINTEGER_32)((__UINTEGER_32)(sz__EDKH + a__FDKH) & (__UINTEGER_32)(~ a__FDKH));
-            ptr_table__LDKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GDKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__KDKH=((__POINTER )(NULL));
-            result__MDKH=((__POINTER *)ptr_table__LDKH)[ 0];
-            if ((result__MDKH == (void *)NULL)) {
-              result__MDKH=new_lab__RTJ(new_size__GDKH);
-              next__KDKH=(void *)((unsigned long)result__MDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GDKH)));
-              ((__POINTER *)next__KDKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__LDKH)[ 0]=next__KDKH;
-            } else {
-              next__KDKH=((__POINTER *)result__MDKH)[ 0];
-              if ((next__KDKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MDKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GDKH <<  1)) <=  4096)) {
-                  next__KDKH=(void *)((unsigned long)result__MDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GDKH)));
-                } else {
-                  next__KDKH=new_lab__RTJ(new_size__GDKH);
-                };
-                ((__POINTER *)next__KDKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__LDKH)[ 0]=next__KDKH;
-              } else {
-                ((__POINTER *)result__MDKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__MDKH=next__KDKH;
-              };
-            };
-            ptr__CDKH=result__MDKH;
-          } else {
-            t__HDKH=((__UINTEGER_32 )typ_id__DDKH);
-            a__IDKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__TDKH=(__UINTEGER_32)((__UINTEGER_32)(sz__EDKH + a__IDKH) & (__UINTEGER_32)(~ a__IDKH));
-            ptr_table__QDKH=((__POINTER )(&(table_type[(t__HDKH)])));
-            lab_type__SDKH=(__UINTEGER_32)(t__HDKH |  1);
-            next__PDKH=((__POINTER )(NULL));
-            result__RDKH=((__POINTER *)ptr_table__QDKH)[ 0];
-            if ((result__RDKH == (void *)NULL)) {
-              result__RDKH=new_lab__RTJ(lab_type__SDKH);
-              next__PDKH=(void *)((unsigned long)result__RDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TDKH)));
-              ((__POINTER *)next__PDKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__QDKH)[ 0]=next__PDKH;
-            } else {
-              next__PDKH=((__POINTER *)result__RDKH)[ 0];
-              if ((next__PDKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RDKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__TDKH <<  1)) <=  4096)) {
-                  next__PDKH=(void *)((unsigned long)result__RDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TDKH)));
-                } else {
-                  next__PDKH=new_lab__RTJ(lab_type__SDKH);
-                };
-                ((__POINTER *)next__PDKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__QDKH)[ 0]=next__PDKH;
-              } else {
-                ((__POINTER *)result__RDKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__RDKH=next__PDKH;
-              };
-            };
-            ptr__CDKH=result__RDKH;
-          };
-          result__BDKH=((__ITM_READ *)ptr__CDKH);
-          *(result__BDKH) = *(ITM_READ__);
-        };
-        ((__ITM_READ *)result__BDKH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__JDKH;
-        result__GBJ=result__BDKH;
-        affect__IBJ=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
-        value__HBJ=read_expr__DBJ(Self__EBJ);
-        if (((void *)value__HBJ == (void *)NULL)) {
-          pos__ULYG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_239));
-          put_position__FRG(pos__ULYG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if ((affect__IBJ == ':')) {
-          __tmp__KJJ=result__BDKH->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          result__4RJD=NULL;
-          ptr__5RJD=((__POINTER )(NULL));
-          typ_id__ESJD= 0;
-          sz__BSJD=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
-          if ((sz__BSJD ==  0)) {
-            result__4RJD=ITM_WRITE_VALUE__;
-          } else {
-            typ_id__ESJD=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__BSJD);
-            if ((typ_id__ESJD == (__INTEGER)(-  1))) {
-              a__UEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__VEGH=(__UINTEGER_32)((__UINTEGER_32)(sz__BSJD + a__UEGH) & (__UINTEGER_32)(~ a__UEGH));
-              ptr_table__VDKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VEGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__UDKH=((__POINTER )(NULL));
-              result__WDKH=((__POINTER *)ptr_table__VDKH)[ 0];
-              if ((result__WDKH == (void *)NULL)) {
-                result__WDKH=new_lab__RTJ(new_size__VEGH);
-                next__UDKH=(void *)((unsigned long)result__WDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEGH)));
-                ((__POINTER *)next__UDKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__VDKH)[ 0]=next__UDKH;
-              } else {
-                next__UDKH=((__POINTER *)result__WDKH)[ 0];
-                if ((next__UDKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WDKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VEGH <<  1)) <=  4096)) {
-                    next__UDKH=(void *)((unsigned long)result__WDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEGH)));
-                  } else {
-                    next__UDKH=new_lab__RTJ(new_size__VEGH);
-                  };
-                  ((__POINTER *)next__UDKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__VDKH)[ 0]=next__UDKH;
-                } else {
-                  ((__POINTER *)result__WDKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__WDKH=next__UDKH;
-                };
-              };
-              ptr__5RJD=result__WDKH;
-            } else {
-              t__ZEGH=((__UINTEGER_32 )typ_id__ESJD);
-              a__YEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3DKH=(__UINTEGER_32)((__UINTEGER_32)(sz__BSJD + a__YEGH) & (__UINTEGER_32)(~ a__YEGH));
-              ptr_table__0DKH=((__POINTER )(&(table_type[(t__ZEGH)])));
-              lab_type__2DKH=(__UINTEGER_32)(t__ZEGH |  1);
-              next__ZDKH=((__POINTER )(NULL));
-              result__1DKH=((__POINTER *)ptr_table__0DKH)[ 0];
-              if ((result__1DKH == (void *)NULL)) {
-                result__1DKH=new_lab__RTJ(lab_type__2DKH);
-                next__ZDKH=(void *)((unsigned long)result__1DKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DKH)));
-                ((__POINTER *)next__ZDKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__0DKH)[ 0]=next__ZDKH;
-              } else {
-                next__ZDKH=((__POINTER *)result__1DKH)[ 0];
-                if ((next__ZDKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1DKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3DKH <<  1)) <=  4096)) {
-                    next__ZDKH=(void *)((unsigned long)result__1DKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DKH)));
-                  } else {
-                    next__ZDKH=new_lab__RTJ(lab_type__2DKH);
-                  };
-                  ((__POINTER *)next__ZDKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__0DKH)[ 0]=next__ZDKH;
-                } else {
-                  ((__POINTER *)result__1DKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__1DKH=next__ZDKH;
-                };
-              };
-              ptr__5RJD=result__1DKH;
-            };
-            result__4RJD=((__ITM_WRITE_VALUE *)ptr__5RJD);
-            *(result__4RJD) = *(ITM_WRITE_VALUE__);
-          };
-          ((__ITM_WRITE_VALUE *)result__4RJD)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__KJJ;
-          result__GBJ=result__4RJD;
-        };
-        if ((affect__IBJ == '<')) {
-          switch (((struct ___OBJ *)result__GBJ)->__id) {
-          case __ITM_LIST__: {
-            __tmp__UJJ=((__ITM_LIST *)result__GBJ)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_LDOTS__: {
-            __tmp__UJJ=((__ITM_LDOTS *)result__GBJ)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_PROTOTYPE__: {
-            __tmp__UJJ=((__ITM_PROTOTYPE *)result__GBJ)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_LIST_IDF__: {
-            __tmp__UJJ=((__ITM_LIST_IDF *)result__GBJ)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_WRITE_VALUE__: {
-            __tmp__UJJ=((__ITM_WRITE_VALUE *)result__GBJ)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_WRITE_CAST__: {
-            __tmp__UJJ=((__ITM_WRITE_CAST *)result__GBJ)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ__: {
-            __tmp__UJJ=((__ITM_READ *)result__GBJ)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_WRITE_CODE__: {
-            __tmp__UJJ=((__ITM_WRITE_CODE *)result__GBJ)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_OPERATOR__: {
-            __tmp__UJJ=((__ITM_OPERATOR *)result__GBJ)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ_ARG1__: {
-            __tmp__UJJ=((__ITM_READ_ARG1 *)result__GBJ)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ_ARG2__: {
-            __tmp__UJJ=((__ITM_READ_ARG2 *)result__GBJ)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_EXPRESSION__: {
-            __tmp__UJJ=position__5A5B(result__GBJ);
-          } break;
-          case __ITM_OLD__: {
-            __tmp__UJJ=((__ITM_OLD *)result__GBJ)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_EXTERNAL_TYPE__: {
-            __tmp__UJJ=((__ITM_EXTERNAL_TYPE *)result__GBJ)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_BLOCK__: {
-            __tmp__UJJ=((__ITM_LIST *)((__ITM_BLOCK *)result__GBJ)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_EXTERNAL__: {
-            __tmp__UJJ=((__ITM_EXTERNAL *)result__GBJ)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ_ARGS__: {
-            __tmp__UJJ=((__ITM_READ_ARGS *)result__GBJ)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_REAL__: {
-            __tmp__UJJ=((__ITM_REAL *)result__GBJ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_NUMBER__: {
-            __tmp__UJJ=((__ITM_NUMBER *)result__GBJ)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_CHARACTER__: {
-            __tmp__UJJ=((__ITM_CHARACTER *)result__GBJ)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_STRING__: {
-            __tmp__UJJ=((__ITM_STRING *)result__GBJ)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_RESULT__: {
-            __tmp__UJJ=position__PIHC(result__GBJ);
-          } break;
-          };
-          result__25JD=NULL;
-          ptr__35JD=((__POINTER )(NULL));
-          typ_id__CAKD= 0;
-          sz__55JD=((__UINTEGER_32 )sizeof(__ITM_WRITE_CODE));
-          if ((sz__55JD ==  0)) {
-            result__25JD=ITM_WRITE_CODE__;
-          } else {
-            typ_id__CAKD=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__55JD);
-            if ((typ_id__CAKD == (__INTEGER)(-  1))) {
-              a__4WFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__5WFH=(__UINTEGER_32)((__UINTEGER_32)(sz__55JD + a__4WFH) & (__UINTEGER_32)(~ a__4WFH));
-              ptr_table__5DKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5WFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__4DKH=((__POINTER )(NULL));
-              result__AEKH=((__POINTER *)ptr_table__5DKH)[ 0];
-              if ((result__AEKH == (void *)NULL)) {
-                result__AEKH=new_lab__RTJ(new_size__5WFH);
-                next__4DKH=(void *)((unsigned long)result__AEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5WFH)));
-                ((__POINTER *)next__4DKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__5DKH)[ 0]=next__4DKH;
-              } else {
-                next__4DKH=((__POINTER *)result__AEKH)[ 0];
-                if ((next__4DKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AEKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5WFH <<  1)) <=  4096)) {
-                    next__4DKH=(void *)((unsigned long)result__AEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5WFH)));
-                  } else {
-                    next__4DKH=new_lab__RTJ(new_size__5WFH);
-                  };
-                  ((__POINTER *)next__4DKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__5DKH)[ 0]=next__4DKH;
-                } else {
-                  ((__POINTER *)result__AEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4DKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__AEKH=next__4DKH;
-                };
-              };
-              ptr__35JD=result__AEKH;
-            } else {
-              t__DXFH=((__UINTEGER_32 )typ_id__CAKD);
-              a__CXFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__HEKH=(__UINTEGER_32)((__UINTEGER_32)(sz__55JD + a__CXFH) & (__UINTEGER_32)(~ a__CXFH));
-              ptr_table__EEKH=((__POINTER )(&(table_type[(t__DXFH)])));
-              lab_type__GEKH=(__UINTEGER_32)(t__DXFH |  1);
-              next__DEKH=((__POINTER )(NULL));
-              result__FEKH=((__POINTER *)ptr_table__EEKH)[ 0];
-              if ((result__FEKH == (void *)NULL)) {
-                result__FEKH=new_lab__RTJ(lab_type__GEKH);
-                next__DEKH=(void *)((unsigned long)result__FEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEKH)));
-                ((__POINTER *)next__DEKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__EEKH)[ 0]=next__DEKH;
-              } else {
-                next__DEKH=((__POINTER *)result__FEKH)[ 0];
-                if ((next__DEKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FEKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HEKH <<  1)) <=  4096)) {
-                    next__DEKH=(void *)((unsigned long)result__FEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEKH)));
-                  } else {
-                    next__DEKH=new_lab__RTJ(lab_type__GEKH);
-                  };
-                  ((__POINTER *)next__DEKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__EEKH)[ 0]=next__DEKH;
-                } else {
-                  ((__POINTER *)result__FEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DEKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__FEKH=next__DEKH;
-                };
-              };
-              ptr__35JD=result__FEKH;
-            };
-            result__25JD=((__ITM_WRITE_CODE *)ptr__35JD);
-            *(result__25JD) = *(ITM_WRITE_CODE__);
-          };
-          ((__ITM_WRITE_CODE *)result__25JD)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__UJJ;
-          result__GBJ=result__25JD;
-        };
-        if ((affect__IBJ == '?')) {
-          switch (((struct ___OBJ *)result__GBJ)->__id) {
-          case __ITM_LIST__: {
-            __tmp__3JJ=((__ITM_LIST *)result__GBJ)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_LDOTS__: {
-            __tmp__3JJ=((__ITM_LDOTS *)result__GBJ)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_PROTOTYPE__: {
-            __tmp__3JJ=((__ITM_PROTOTYPE *)result__GBJ)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_LIST_IDF__: {
-            __tmp__3JJ=((__ITM_LIST_IDF *)result__GBJ)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_WRITE_VALUE__: {
-            __tmp__3JJ=((__ITM_WRITE_VALUE *)result__GBJ)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_WRITE_CAST__: {
-            __tmp__3JJ=((__ITM_WRITE_CAST *)result__GBJ)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ__: {
-            __tmp__3JJ=((__ITM_READ *)result__GBJ)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_WRITE_CODE__: {
-            __tmp__3JJ=((__ITM_WRITE_CODE *)result__GBJ)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_OPERATOR__: {
-            __tmp__3JJ=((__ITM_OPERATOR *)result__GBJ)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ_ARG1__: {
-            __tmp__3JJ=((__ITM_READ_ARG1 *)result__GBJ)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ_ARG2__: {
-            __tmp__3JJ=((__ITM_READ_ARG2 *)result__GBJ)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_EXPRESSION__: {
-            __tmp__3JJ=position__5A5B(result__GBJ);
-          } break;
-          case __ITM_OLD__: {
-            __tmp__3JJ=((__ITM_OLD *)result__GBJ)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_EXTERNAL_TYPE__: {
-            __tmp__3JJ=((__ITM_EXTERNAL_TYPE *)result__GBJ)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_BLOCK__: {
-            __tmp__3JJ=((__ITM_LIST *)((__ITM_BLOCK *)result__GBJ)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_EXTERNAL__: {
-            __tmp__3JJ=((__ITM_EXTERNAL *)result__GBJ)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_READ_ARGS__: {
-            __tmp__3JJ=((__ITM_READ_ARGS *)result__GBJ)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_REAL__: {
-            __tmp__3JJ=((__ITM_REAL *)result__GBJ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_NUMBER__: {
-            __tmp__3JJ=((__ITM_NUMBER *)result__GBJ)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_CHARACTER__: {
-            __tmp__3JJ=((__ITM_CHARACTER *)result__GBJ)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_STRING__: {
-            __tmp__3JJ=((__ITM_STRING *)result__GBJ)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-          } break;
-          case __ITM_RESULT__: {
-            __tmp__3JJ=position__PIHC(result__GBJ);
-          } break;
-          };
-          result__RTJD=NULL;
-          ptr__STJD=((__POINTER )(NULL));
-          typ_id__XTJD= 0;
-          sz__UTJD=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
-          if ((sz__UTJD ==  0)) {
-            result__RTJD=ITM_WRITE_CAST__;
-          } else {
-            typ_id__XTJD=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UTJD);
-            if ((typ_id__XTJD == (__INTEGER)(-  1))) {
-              a__2EGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3EGH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTJD + a__2EGH) & (__UINTEGER_32)(~ a__2EGH));
-              ptr_table__JEKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3EGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__IEKH=((__POINTER )(NULL));
-              result__KEKH=((__POINTER *)ptr_table__JEKH)[ 0];
-              if ((result__KEKH == (void *)NULL)) {
-                result__KEKH=new_lab__RTJ(new_size__3EGH);
-                next__IEKH=(void *)((unsigned long)result__KEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3EGH)));
-                ((__POINTER *)next__IEKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__JEKH)[ 0]=next__IEKH;
-              } else {
-                next__IEKH=((__POINTER *)result__KEKH)[ 0];
-                if ((next__IEKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KEKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3EGH <<  1)) <=  4096)) {
-                    next__IEKH=(void *)((unsigned long)result__KEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3EGH)));
-                  } else {
-                    next__IEKH=new_lab__RTJ(new_size__3EGH);
-                  };
-                  ((__POINTER *)next__IEKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__JEKH)[ 0]=next__IEKH;
-                } else {
-                  ((__POINTER *)result__KEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IEKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__KEKH=next__IEKH;
-                };
-              };
-              ptr__STJD=result__KEKH;
-            } else {
-              t__BFGH=((__UINTEGER_32 )typ_id__XTJD);
-              a__AFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__REKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTJD + a__AFGH) & (__UINTEGER_32)(~ a__AFGH));
-              ptr_table__OEKH=((__POINTER )(&(table_type[(t__BFGH)])));
-              lab_type__QEKH=(__UINTEGER_32)(t__BFGH |  1);
-              next__NEKH=((__POINTER )(NULL));
-              result__PEKH=((__POINTER *)ptr_table__OEKH)[ 0];
-              if ((result__PEKH == (void *)NULL)) {
-                result__PEKH=new_lab__RTJ(lab_type__QEKH);
-                next__NEKH=(void *)((unsigned long)result__PEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REKH)));
-                ((__POINTER *)next__NEKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OEKH)[ 0]=next__NEKH;
-              } else {
-                next__NEKH=((__POINTER *)result__PEKH)[ 0];
-                if ((next__NEKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PEKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__REKH <<  1)) <=  4096)) {
-                    next__NEKH=(void *)((unsigned long)result__PEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REKH)));
-                  } else {
-                    next__NEKH=new_lab__RTJ(lab_type__QEKH);
-                  };
-                  ((__POINTER *)next__NEKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__OEKH)[ 0]=next__NEKH;
-                } else {
-                  ((__POINTER *)result__PEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NEKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__PEKH=next__NEKH;
-                };
-              };
-              ptr__STJD=result__PEKH;
-            };
-            result__RTJD=((__ITM_WRITE_CAST *)ptr__STJD);
-            *(result__RTJD) = *(ITM_WRITE_CAST__);
-          };
-          ((__ITM_WRITE_CAST *)result__RTJD)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__3JJ;
-          result__GBJ=result__RTJD;
-        };
-      };
-    };
-  };
-  if (((void *)result__GBJ == (void *)NULL)) {
-    restore_context__EFL();
-    result__SGL=NULL;
-    expr__TGL=NULL;
-    itm_op__WGL=NULL;
-    last_msg__XGL= 0;
-    first_msg__YGL= 0;
-    result__KAI=NULL;
-    if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT <  0)) {
-      result__KAI=create_with_capacity__XXI( 16);
-    } else {
-      Self__UM4=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-      result__KAI=((void **)Self__UM4->parent_arrayed_collection__PAI.storage__PCU)[Self__UM4->parent_arrayed_collection__PAI.upper__BYT];
-      Self__KN4=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-      Self__KN4->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__KN4->parent_arrayed_collection__PAI.upper__BYT -  1);
-    };
-    l_expr__UGL=result__KAI;
-    while (read_operator__GOM()) {
-      p__1EKH=current_position__B0F();
-      n__2EKH=last_string__D2C;
-      result__SEKH=NULL;
-      ptr__TEKH=((__POINTER )(NULL));
-      typ_id__UEKH= 0;
-      sz__VEKH=((__UINTEGER_32 )sizeof(__ITM_OPERATOR));
-      if ((sz__VEKH ==  0)) {
-        result__SEKH=ITM_OPERATOR__;
-      } else {
-        typ_id__UEKH=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__VEKH);
-        if ((typ_id__UEKH == (__INTEGER)(-  1))) {
-          a__WEKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__XEKH=(__UINTEGER_32)((__UINTEGER_32)(sz__VEKH + a__WEKH) & (__UINTEGER_32)(~ a__WEKH));
-          ptr_table__4EKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XEKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__3EKH=((__POINTER )(NULL));
-          result__5EKH=((__POINTER *)ptr_table__4EKH)[ 0];
-          if ((result__5EKH == (void *)NULL)) {
-            result__5EKH=new_lab__RTJ(new_size__XEKH);
-            next__3EKH=(void *)((unsigned long)result__5EKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XEKH)));
-            ((__POINTER *)next__3EKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__4EKH)[ 0]=next__3EKH;
-          } else {
-            next__3EKH=((__POINTER *)result__5EKH)[ 0];
-            if ((next__3EKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5EKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XEKH <<  1)) <=  4096)) {
-                next__3EKH=(void *)((unsigned long)result__5EKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XEKH)));
-              } else {
-                next__3EKH=new_lab__RTJ(new_size__XEKH);
-              };
-              ((__POINTER *)next__3EKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__4EKH)[ 0]=next__3EKH;
-            } else {
-              ((__POINTER *)result__5EKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3EKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__5EKH=next__3EKH;
-            };
-          };
-          ptr__TEKH=result__5EKH;
-        } else {
-          t__YEKH=((__UINTEGER_32 )typ_id__UEKH);
-          a__ZEKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__GFKH=(__UINTEGER_32)((__UINTEGER_32)(sz__VEKH + a__ZEKH) & (__UINTEGER_32)(~ a__ZEKH));
-          ptr_table__DFKH=((__POINTER )(&(table_type[(t__YEKH)])));
-          lab_type__FFKH=(__UINTEGER_32)(t__YEKH |  1);
-          next__CFKH=((__POINTER )(NULL));
-          result__EFKH=((__POINTER *)ptr_table__DFKH)[ 0];
-          if ((result__EFKH == (void *)NULL)) {
-            result__EFKH=new_lab__RTJ(lab_type__FFKH);
-            next__CFKH=(void *)((unsigned long)result__EFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GFKH)));
-            ((__POINTER *)next__CFKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DFKH)[ 0]=next__CFKH;
-          } else {
-            next__CFKH=((__POINTER *)result__EFKH)[ 0];
-            if ((next__CFKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EFKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GFKH <<  1)) <=  4096)) {
-                next__CFKH=(void *)((unsigned long)result__EFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GFKH)));
-              } else {
-                next__CFKH=new_lab__RTJ(lab_type__FFKH);
-              };
-              ((__POINTER *)next__CFKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__DFKH)[ 0]=next__CFKH;
-            } else {
-              ((__POINTER *)result__EFKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CFKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__EFKH=next__CFKH;
-            };
-          };
-          ptr__TEKH=result__EFKH;
-        };
-        result__SEKH=((__ITM_OPERATOR *)ptr__TEKH);
-        *(result__SEKH) = *(ITM_OPERATOR__);
-      };
-      Self__0EKH=((__ITM_OPERATOR *)result__SEKH);
-      Self__0EKH->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ=p__1EKH;
-      Self__0EKH->name__AKL=n__2EKH;
-      expr__TGL=result__SEKH;
-      add_last__I5U(l_expr__UGL,result__SEKH);
-    };
-    expr__TGL=read_expr_message__LXL(Self__EBJ);
-    if (((void *)expr__TGL == (void *)NULL)) {
-      if ((! (((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL <  0))) {
-        pos__5LYG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_239));
-        put_position__FRG(pos__5LYG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      free__3XI(result__KAI);
-    } else {
-      first_msg__YGL=(__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL +  1);
-      do {
-        last_msg__XGL=(__INTEGER)(((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.upper__NJL +  1);
-        add_last__I5U(l_expr__UGL,expr__TGL);
-        if (read_operator__GOM()) {
-          do {
-            p__LIP=current_position__B0F();
-            n__MIP=last_string__D2C;
-            result__PTP=NULL;
-            ptr__QTP=((__POINTER )(NULL));
-            typ_id__VTP= 0;
-            sz__STP=((__UINTEGER_32 )sizeof(__ITM_OPERATOR));
-            if ((sz__STP ==  0)) {
-              result__PTP=ITM_OPERATOR__;
-            } else {
-              typ_id__VTP=-1;
-              clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__STP);
-              if ((typ_id__VTP == (__INTEGER)(-  1))) {
-                a__MFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__NFGH=(__UINTEGER_32)((__UINTEGER_32)(sz__STP + a__MFGH) & (__UINTEGER_32)(~ a__MFGH));
-                ptr_table__IFKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NFGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                next__HFKH=((__POINTER )(NULL));
-                result__JFKH=((__POINTER *)ptr_table__IFKH)[ 0];
-                if ((result__JFKH == (void *)NULL)) {
-                  result__JFKH=new_lab__RTJ(new_size__NFGH);
-                  next__HFKH=(void *)((unsigned long)result__JFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NFGH)));
-                  ((__POINTER *)next__HFKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__IFKH)[ 0]=next__HFKH;
-                } else {
-                  next__HFKH=((__POINTER *)result__JFKH)[ 0];
-                  if ((next__HFKH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JFKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NFGH <<  1)) <=  4096)) {
-                      next__HFKH=(void *)((unsigned long)result__JFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NFGH)));
-                    } else {
-                      next__HFKH=new_lab__RTJ(new_size__NFGH);
-                    };
-                    ((__POINTER *)next__HFKH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__IFKH)[ 0]=next__HFKH;
-                  } else {
-                    ((__POINTER *)result__JFKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HFKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__JFKH=next__HFKH;
-                  };
-                };
-                ptr__QTP=result__JFKH;
-              } else {
-                t__RFGH=((__UINTEGER_32 )typ_id__VTP);
-                a__QFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                new_size__QFKH=(__UINTEGER_32)((__UINTEGER_32)(sz__STP + a__QFGH) & (__UINTEGER_32)(~ a__QFGH));
-                ptr_table__NFKH=((__POINTER )(&(table_type[(t__RFGH)])));
-                lab_type__PFKH=(__UINTEGER_32)(t__RFGH |  1);
-                next__MFKH=((__POINTER )(NULL));
-                result__OFKH=((__POINTER *)ptr_table__NFKH)[ 0];
-                if ((result__OFKH == (void *)NULL)) {
-                  result__OFKH=new_lab__RTJ(lab_type__PFKH);
-                  next__MFKH=(void *)((unsigned long)result__OFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFKH)));
-                  ((__POINTER *)next__MFKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__NFKH)[ 0]=next__MFKH;
-                } else {
-                  next__MFKH=((__POINTER *)result__OFKH)[ 0];
-                  if ((next__MFKH == (void *)NULL)) {
-                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OFKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QFKH <<  1)) <=  4096)) {
-                      next__MFKH=(void *)((unsigned long)result__OFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFKH)));
-                    } else {
-                      next__MFKH=new_lab__RTJ(lab_type__PFKH);
-                    };
-                    ((__POINTER *)next__MFKH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__NFKH)[ 0]=next__MFKH;
-                  } else {
-                    ((__POINTER *)result__OFKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MFKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                    result__OFKH=next__MFKH;
-                  };
-                };
-                ptr__QTP=result__OFKH;
-              };
-              result__PTP=((__ITM_OPERATOR *)ptr__QTP);
-              *(result__PTP) = *(ITM_OPERATOR__);
-            };
-            Self__LNV=((__ITM_OPERATOR *)result__PTP);
-            Self__LNV->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ=p__LIP;
-            Self__LNV->name__AKL=n__MIP;
-            expr__TGL=result__PTP;
-            add_last__I5U(l_expr__UGL,result__PTP);
-          } while (read_operator__GOM());
-          expr__TGL=read_expr_message__LXL(Self__EBJ);
-        } else {
-          expr__TGL=NULL;
-        };
-      } while (((void *)expr__TGL != (void *)NULL));
-      while ((last_msg__XGL < ((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.upper__NJL)) {
-        __tmp__ZJL=((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[(__INTEGER)(last_msg__XGL +  1)];
-        if (__tmp__ZJL==NULL) {
-          __tmp__0JL=NULL;
-        } else {
-          switch (((struct ___OBJ *)__tmp__ZJL)->__id) {
-          case __ITM_LIST__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_LDOTS__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_PROTOTYPE__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_LIST_IDF__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_WRITE_VALUE__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_WRITE_CAST__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_READ__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_WRITE_CODE__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_OPERATOR__: {
-            __tmp__0JL=((void *)__tmp__ZJL);
-          } break;
-          case __ITM_READ_ARG1__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_READ_ARG2__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_EXPRESSION__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_OLD__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_EXTERNAL_TYPE__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_BLOCK__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_EXTERNAL__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_READ_ARGS__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_REAL__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_NUMBER__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_CHARACTER__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_STRING__: {
-            __tmp__0JL=NULL;
-          } break;
-          case __ITM_RESULT__: {
-            __tmp__0JL=NULL;
-          } break;
-          }
-        };
-        itm_op__WGL=__tmp__0JL;
-        __tmp__3JL=((__ITM_OPERATOR *)__tmp__0JL)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-        operator__name__ZEO((&__string_82),((__ITM_OPERATOR *)__tmp__0JL)->name__AKL);
-        result__RFKH=NULL;
-        ptr__SFKH=((__POINTER )(NULL));
-        typ_id__TFKH= 0;
-        sz__UFKH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-        if ((sz__UFKH ==  0)) {
-          result__RFKH=ITM_READ_ARG1__;
-        } else {
-          typ_id__TFKH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UFKH);
-          if ((typ_id__TFKH == (__INTEGER)(-  1))) {
-            a__VFKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__WFKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UFKH + a__VFKH) & (__UINTEGER_32)(~ a__VFKH));
-            ptr_table__1FKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WFKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__0FKH=((__POINTER )(NULL));
-            result__2FKH=((__POINTER *)ptr_table__1FKH)[ 0];
-            if ((result__2FKH == (void *)NULL)) {
-              result__2FKH=new_lab__RTJ(new_size__WFKH);
-              next__0FKH=(void *)((unsigned long)result__2FKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WFKH)));
-              ((__POINTER *)next__0FKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__1FKH)[ 0]=next__0FKH;
-            } else {
-              next__0FKH=((__POINTER *)result__2FKH)[ 0];
-              if ((next__0FKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2FKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WFKH <<  1)) <=  4096)) {
-                  next__0FKH=(void *)((unsigned long)result__2FKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WFKH)));
-                } else {
-                  next__0FKH=new_lab__RTJ(new_size__WFKH);
-                };
-                ((__POINTER *)next__0FKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__1FKH)[ 0]=next__0FKH;
-              } else {
-                ((__POINTER *)result__2FKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0FKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__2FKH=next__0FKH;
-              };
-            };
-            ptr__SFKH=result__2FKH;
-          } else {
-            t__XFKH=((__UINTEGER_32 )typ_id__TFKH);
-            a__YFKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__DGKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UFKH + a__YFKH) & (__UINTEGER_32)(~ a__YFKH));
-            ptr_table__AGKH=((__POINTER )(&(table_type[(t__XFKH)])));
-            lab_type__CGKH=(__UINTEGER_32)(t__XFKH |  1);
-            next__5FKH=((__POINTER )(NULL));
-            result__BGKH=((__POINTER *)ptr_table__AGKH)[ 0];
-            if ((result__BGKH == (void *)NULL)) {
-              result__BGKH=new_lab__RTJ(lab_type__CGKH);
-              next__5FKH=(void *)((unsigned long)result__BGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DGKH)));
-              ((__POINTER *)next__5FKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AGKH)[ 0]=next__5FKH;
-            } else {
-              next__5FKH=((__POINTER *)result__BGKH)[ 0];
-              if ((next__5FKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BGKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__DGKH <<  1)) <=  4096)) {
-                  next__5FKH=(void *)((unsigned long)result__BGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DGKH)));
-                } else {
-                  next__5FKH=new_lab__RTJ(lab_type__CGKH);
-                };
-                ((__POINTER *)next__5FKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__AGKH)[ 0]=next__5FKH;
-              } else {
-                ((__POINTER *)result__BGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5FKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__BGKH=next__5FKH;
-              };
-            };
-            ptr__SFKH=result__BGKH;
-          };
-          result__RFKH=((__ITM_READ_ARG1 *)ptr__SFKH);
-          *(result__RFKH) = *(ITM_READ_ARG1__);
-        };
-        ((__ITM_READ_ARG1 *)result__RFKH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__3JL;
-        expr__TGL=result__RFKH;
-        ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[last_msg__XGL]=result__RFKH;
-        Self__12LH=((__FAST_ARRAYoITM_CODEo *)l_expr__UGL);
-        index__52LH=(__INTEGER)(last_msg__XGL +  1);
-        __tmp__22LH=Self__12LH->parent_arrayed_collection__JWF.storage__4ZT;
-        __tmp__32LH=Self__12LH->parent_arrayed_collection__JWF.upper__NJL;
-        Self__42LH=((void **)__tmp__22LH);
-        i__A3LH=index__52LH;
-        while ((i__A3LH != __tmp__32LH)) {
-          Self__42LH[i__A3LH]=Self__42LH[(__INTEGER)(i__A3LH +  1)];
-          i__A3LH=(__INTEGER)(i__A3LH +  1);
-        };
-        Self__12LH->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__12LH->parent_arrayed_collection__JWF.upper__NJL -  1);
-      };
-      if (((__INTEGER)(last_msg__XGL - first_msg__YGL) <  3)) {
-        while ((first_msg__YGL !=  0)) {
-          __tmp__ALL=((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[(__INTEGER)(first_msg__YGL -  1)];
-          if (__tmp__ALL==NULL) {
-            __tmp__BLL=NULL;
-          } else {
-            switch (((struct ___OBJ *)__tmp__ALL)->__id) {
-            case __ITM_LIST__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_LDOTS__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_PROTOTYPE__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_LIST_IDF__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_WRITE_VALUE__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_WRITE_CAST__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_READ__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_WRITE_CODE__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_OPERATOR__: {
-              __tmp__BLL=((void *)__tmp__ALL);
-            } break;
-            case __ITM_READ_ARG1__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_READ_ARG2__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_EXPRESSION__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_OLD__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_EXTERNAL_TYPE__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_BLOCK__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_EXTERNAL__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_READ_ARGS__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_REAL__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_NUMBER__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_CHARACTER__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_STRING__: {
-              __tmp__BLL=NULL;
-            } break;
-            case __ITM_RESULT__: {
-              __tmp__BLL=NULL;
-            } break;
-            }
-          };
-          itm_op__WGL=__tmp__BLL;
-          __tmp__DLL=((__ITM_OPERATOR *)__tmp__BLL)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-          operator__name__ZEO((&__string_83),((__ITM_OPERATOR *)__tmp__BLL)->name__AKL);
-          result__EGKH=NULL;
-          ptr__FGKH=((__POINTER )(NULL));
-          typ_id__GGKH= 0;
-          sz__HGKH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-          if ((sz__HGKH ==  0)) {
-            result__EGKH=ITM_READ_ARG1__;
-          } else {
-            typ_id__GGKH=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__HGKH);
-            if ((typ_id__GGKH == (__INTEGER)(-  1))) {
-              a__IGKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__JGKH=(__UINTEGER_32)((__UINTEGER_32)(sz__HGKH + a__IGKH) & (__UINTEGER_32)(~ a__IGKH));
-              ptr_table__OGKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JGKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__NGKH=((__POINTER )(NULL));
-              result__PGKH=((__POINTER *)ptr_table__OGKH)[ 0];
-              if ((result__PGKH == (void *)NULL)) {
-                result__PGKH=new_lab__RTJ(new_size__JGKH);
-                next__NGKH=(void *)((unsigned long)result__PGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JGKH)));
-                ((__POINTER *)next__NGKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OGKH)[ 0]=next__NGKH;
-              } else {
-                next__NGKH=((__POINTER *)result__PGKH)[ 0];
-                if ((next__NGKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PGKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JGKH <<  1)) <=  4096)) {
-                    next__NGKH=(void *)((unsigned long)result__PGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JGKH)));
-                  } else {
-                    next__NGKH=new_lab__RTJ(new_size__JGKH);
-                  };
-                  ((__POINTER *)next__NGKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__OGKH)[ 0]=next__NGKH;
-                } else {
-                  ((__POINTER *)result__PGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NGKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__PGKH=next__NGKH;
-                };
-              };
-              ptr__FGKH=result__PGKH;
-            } else {
-              t__KGKH=((__UINTEGER_32 )typ_id__GGKH);
-              a__LGKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__WGKH=(__UINTEGER_32)((__UINTEGER_32)(sz__HGKH + a__LGKH) & (__UINTEGER_32)(~ a__LGKH));
-              ptr_table__TGKH=((__POINTER )(&(table_type[(t__KGKH)])));
-              lab_type__VGKH=(__UINTEGER_32)(t__KGKH |  1);
-              next__SGKH=((__POINTER )(NULL));
-              result__UGKH=((__POINTER *)ptr_table__TGKH)[ 0];
-              if ((result__UGKH == (void *)NULL)) {
-                result__UGKH=new_lab__RTJ(lab_type__VGKH);
-                next__SGKH=(void *)((unsigned long)result__UGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WGKH)));
-                ((__POINTER *)next__SGKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__TGKH)[ 0]=next__SGKH;
-              } else {
-                next__SGKH=((__POINTER *)result__UGKH)[ 0];
-                if ((next__SGKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UGKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WGKH <<  1)) <=  4096)) {
-                    next__SGKH=(void *)((unsigned long)result__UGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WGKH)));
-                  } else {
-                    next__SGKH=new_lab__RTJ(lab_type__VGKH);
-                  };
-                  ((__POINTER *)next__SGKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__TGKH)[ 0]=next__SGKH;
-                } else {
-                  ((__POINTER *)result__UGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SGKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__UGKH=next__SGKH;
-                };
-              };
-              ptr__FGKH=result__UGKH;
-            };
-            result__EGKH=((__ITM_READ_ARG1 *)ptr__FGKH);
-            *(result__EGKH) = *(ITM_READ_ARG1__);
-          };
-          ((__ITM_READ_ARG1 *)result__EGKH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__DLL;
-          expr__TGL=result__EGKH;
-          ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[first_msg__YGL]=result__EGKH;
-          first_msg__YGL=(__INTEGER)(first_msg__YGL -  1);
-          Self__YF1C=((__FAST_ARRAYoITM_CODEo *)l_expr__UGL);
-          __tmp__BG1C=Self__YF1C->parent_arrayed_collection__JWF.storage__4ZT;
-          __tmp__CG1C=Self__YF1C->parent_arrayed_collection__JWF.upper__NJL;
-          Self__5ICD=((void **)__tmp__BG1C);
-          i__QJCD=first_msg__YGL;
-          while ((i__QJCD != __tmp__CG1C)) {
-            Self__5ICD[i__QJCD]=Self__5ICD[(__INTEGER)(i__QJCD +  1)];
-            i__QJCD=(__INTEGER)(i__QJCD +  1);
-          };
-          Self__YF1C->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__YF1C->parent_arrayed_collection__JWF.upper__NJL -  1);
-        };
-      };
-      if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL +  1) ==  1)) {
-        result__SGL=((void **)((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.storage__4ZT)[ 0];
-        free__3XI(result__KAI);
-        __tmp__ZLL=TRUE__;
-      } else {
-        __tmp__ZLL=FALSE__;
-      };
-      if ((! __tmp__ZLL)) {
-        if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL +  1) ==  3)) {
-          __tmp__GML=((void **)((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.storage__4ZT)[ 1];
-          if (__tmp__GML==NULL) {
-            __tmp__HML=NULL;
-          } else {
-            switch (((struct ___OBJ *)__tmp__GML)->__id) {
-            case __ITM_LIST__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_LDOTS__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_PROTOTYPE__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_LIST_IDF__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_WRITE_VALUE__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_WRITE_CAST__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_READ__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_WRITE_CODE__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_OPERATOR__: {
-              __tmp__HML=((void *)__tmp__GML);
-            } break;
-            case __ITM_READ_ARG1__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_READ_ARG2__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_EXPRESSION__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_OLD__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_EXTERNAL_TYPE__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_BLOCK__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_EXTERNAL__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_READ_ARGS__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_REAL__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_NUMBER__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_CHARACTER__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_STRING__: {
-              __tmp__HML=NULL;
-            } break;
-            case __ITM_RESULT__: {
-              __tmp__HML=NULL;
-            } break;
-            }
-          };
-          itm_op__WGL=__tmp__HML;
-          __tmp__KML=((__ITM_OPERATOR *)__tmp__HML)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-          operator__name__ZEO((&__string_81),((__ITM_OPERATOR *)__tmp__HML)->name__AKL);
-          result__DYO=NULL;
-          ptr__EYO=((__POINTER )(NULL));
-          typ_id__JYO= 0;
-          sz__GYO=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
-          if ((sz__GYO ==  0)) {
-            result__DYO=ITM_READ_ARG2__;
-          } else {
-            typ_id__JYO=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GYO);
-            if ((typ_id__JYO == (__INTEGER)(-  1))) {
-              a__FGGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__GGGH=(__UINTEGER_32)((__UINTEGER_32)(sz__GYO + a__FGGH) & (__UINTEGER_32)(~ a__FGGH));
-              ptr_table__YGKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GGGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__XGKH=((__POINTER )(NULL));
-              result__ZGKH=((__POINTER *)ptr_table__YGKH)[ 0];
-              if ((result__ZGKH == (void *)NULL)) {
-                result__ZGKH=new_lab__RTJ(new_size__GGGH);
-                next__XGKH=(void *)((unsigned long)result__ZGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GGGH)));
-                ((__POINTER *)next__XGKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__YGKH)[ 0]=next__XGKH;
-              } else {
-                next__XGKH=((__POINTER *)result__ZGKH)[ 0];
-                if ((next__XGKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZGKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GGGH <<  1)) <=  4096)) {
-                    next__XGKH=(void *)((unsigned long)result__ZGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GGGH)));
-                  } else {
-                    next__XGKH=new_lab__RTJ(new_size__GGGH);
-                  };
-                  ((__POINTER *)next__XGKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__YGKH)[ 0]=next__XGKH;
-                } else {
-                  ((__POINTER *)result__ZGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XGKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__ZGKH=next__XGKH;
-                };
-              };
-              ptr__EYO=result__ZGKH;
-            } else {
-              t__KGGH=((__UINTEGER_32 )typ_id__JYO);
-              a__JGGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__AHKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GYO + a__JGGH) & (__UINTEGER_32)(~ a__JGGH));
-              ptr_table__3GKH=((__POINTER )(&(table_type[(t__KGGH)])));
-              lab_type__5GKH=(__UINTEGER_32)(t__KGGH |  1);
-              next__2GKH=((__POINTER )(NULL));
-              result__4GKH=((__POINTER *)ptr_table__3GKH)[ 0];
-              if ((result__4GKH == (void *)NULL)) {
-                result__4GKH=new_lab__RTJ(lab_type__5GKH);
-                next__2GKH=(void *)((unsigned long)result__4GKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AHKH)));
-                ((__POINTER *)next__2GKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__3GKH)[ 0]=next__2GKH;
-              } else {
-                next__2GKH=((__POINTER *)result__4GKH)[ 0];
-                if ((next__2GKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4GKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__AHKH <<  1)) <=  4096)) {
-                    next__2GKH=(void *)((unsigned long)result__4GKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AHKH)));
-                  } else {
-                    next__2GKH=new_lab__RTJ(lab_type__5GKH);
-                  };
-                  ((__POINTER *)next__2GKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__3GKH)[ 0]=next__2GKH;
-                } else {
-                  ((__POINTER *)result__4GKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2GKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__4GKH=next__2GKH;
-                };
-              };
-              ptr__EYO=result__4GKH;
-            };
-            result__DYO=((__ITM_READ_ARG2 *)ptr__EYO);
-            *(result__DYO) = *(ITM_READ_ARG2__);
-          };
-          ((__ITM_READ_ARG2 *)result__DYO)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__KML;
-          result__SGL=result__DYO;
-          free__3XI(result__KAI);
-        } else {
-          l_expr__UGL=copy__5BI(result__KAI);
-          result__WZO=NULL;
-          ptr__XZO=((__POINTER )(NULL));
-          typ_id__2ZO= 0;
-          sz__ZZO=((__UINTEGER_32 )sizeof(__ITM_EXPRESSION));
-          if ((sz__ZZO ==  0)) {
-            result__WZO=ITM_EXPRESSION__;
-          } else {
-            typ_id__2ZO=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZZO);
-            if ((typ_id__2ZO == (__INTEGER)(-  1))) {
-              a__QYFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__RYFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZZO + a__QYFH) & (__UINTEGER_32)(~ a__QYFH));
-              ptr_table__CHKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RYFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__BHKH=((__POINTER )(NULL));
-              result__DHKH=((__POINTER *)ptr_table__CHKH)[ 0];
-              if ((result__DHKH == (void *)NULL)) {
-                result__DHKH=new_lab__RTJ(new_size__RYFH);
-                next__BHKH=(void *)((unsigned long)result__DHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RYFH)));
-                ((__POINTER *)next__BHKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__CHKH)[ 0]=next__BHKH;
-              } else {
-                next__BHKH=((__POINTER *)result__DHKH)[ 0];
-                if ((next__BHKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DHKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__RYFH <<  1)) <=  4096)) {
-                    next__BHKH=(void *)((unsigned long)result__DHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RYFH)));
-                  } else {
-                    next__BHKH=new_lab__RTJ(new_size__RYFH);
-                  };
-                  ((__POINTER *)next__BHKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__CHKH)[ 0]=next__BHKH;
-                } else {
-                  ((__POINTER *)result__DHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__DHKH=next__BHKH;
-                };
-              };
-              ptr__XZO=result__DHKH;
-            } else {
-              t__VYFH=((__UINTEGER_32 )typ_id__2ZO);
-              a__UYFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__KHKH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZZO + a__UYFH) & (__UINTEGER_32)(~ a__UYFH));
-              ptr_table__HHKH=((__POINTER )(&(table_type[(t__VYFH)])));
-              lab_type__JHKH=(__UINTEGER_32)(t__VYFH |  1);
-              next__GHKH=((__POINTER )(NULL));
-              result__IHKH=((__POINTER *)ptr_table__HHKH)[ 0];
-              if ((result__IHKH == (void *)NULL)) {
-                result__IHKH=new_lab__RTJ(lab_type__JHKH);
-                next__GHKH=(void *)((unsigned long)result__IHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHKH)));
-                ((__POINTER *)next__GHKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__HHKH)[ 0]=next__GHKH;
-              } else {
-                next__GHKH=((__POINTER *)result__IHKH)[ 0];
-                if ((next__GHKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IHKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__KHKH <<  1)) <=  4096)) {
-                    next__GHKH=(void *)((unsigned long)result__IHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHKH)));
-                  } else {
-                    next__GHKH=new_lab__RTJ(lab_type__JHKH);
-                  };
-                  ((__POINTER *)next__GHKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__HHKH)[ 0]=next__GHKH;
-                } else {
-                  ((__POINTER *)result__IHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__IHKH=next__GHKH;
-                };
-              };
-              ptr__XZO=result__IHKH;
-            };
-            result__WZO=((__ITM_EXPRESSION *)ptr__XZO);
-            *(result__WZO) = *(ITM_EXPRESSION__);
-          };
-          ((__ITM_EXPRESSION *)result__WZO)->value_list__PJV=l_expr__UGL;
-          result__SGL=result__WZO;
-        };
-      };
-    };
-    result__GBJ=result__SGL;
-  };
-  return(result__GBJ);
-}
-
-static void set_value__type__DFHC(__ITM_SLOT *Self__EFHC,void *e__FFHC,void *p__GFHC)
-// ({ITM_SLOT},{NULLxITM_LISTxITM_LDOTSxITM_PROTOTYPExITM_LIST_IDFxITM_WRITE_VALUExITM_WRITE_CASTxITM_READxITM_WRITE_CODExITM_OPERATORxITM_READ_ARG1xITM_READ_ARG2xITM_EXPRESSIONxITM_OLDxITM_EXTERNAL_TYPExITM_BLOCKxITM_EXTERNALxITM_READ_ARGSxITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRINGxITM_RESULT},{NULLxPROTOTYPE}) VoidRecursive, No inlinable.
-{
-  void *n__WDBD;
-  void *sec__XDBD;
-  __POSITION __tmp__DEBD,__tmp__LEBD,__tmp__5EBD,__tmp__IFBD;
-  __ITM_ARG *result__35HH,*Self__FAIH;
-  __POINTER ptr__45HH,ptr_table__MHKH,next__LHKH,result__NHKH;
-  __POINTER ptr_table__RHKH,next__QHKH,result__SHKH,ptr__YQAC;
-  __POINTER ptr_table__WHKH,next__VHKH,result__XHKH,ptr_table__1HKH;
-  __POINTER next__0HKH,result__2HKH,ptr__OWI,ptr_table__AIKH,next__5HKH;
-  __POINTER result__BIKH,ptr_table__FIKH,next__EIKH,result__GIKH;
-  __POINTER ptr__1GCD,ptr_table__KIKH,next__JIKH,result__LIKH;
-  __POINTER ptr_table__PIKH,next__OIKH,result__QIKH;
-  __INTEGER typ_id__55HH,typ_id__3QAC,typ_id__TWI,typ_id__AHCD;
-  __UINTEGER_32 sz__AAIH,a__BAIH,new_size__CAIH,t__DAIH,a__EAIH;
-  __UINTEGER_32 new_size__UHKH,lab_type__THKH,sz__0QAC,a__YYFH;
-  __UINTEGER_32 new_size__ZYFH,t__3YFH,a__2YFH,new_size__4HKH;
-  __UINTEGER_32 lab_type__3HKH,sz__QWI,a__UZFH,new_size__VZFH,t__ZZFH;
-  __UINTEGER_32 a__YZFH,new_size__IIKH,lab_type__HIKH,sz__3GCD,a__2ZFH;
-  __UINTEGER_32 new_size__3ZFH,t__B0FH,a__A0FH,new_size__SIKH;
-  __UINTEGER_32 lab_type__RIKH;
-  __ITM_SLOT *result__XQAC,*Self__C2HC;
-  __ITM_PROTOTYPE *result__NWI;
-  __ITM_READ_ARG1 *result__0GCD;
-  void *larg__YDBD;
-  if ((Self__EFHC->affect__P5FC != '<')) {
-    copy__VDS(string_tmp__VH,(&__string_240));
-    append__3OS(string_tmp__VH,Self__EFHC->parent_named__15.name__LI);
-    n__WDBD=get__YWB(string_tmp__VH);
-    sec__XDBD=get_name__TROB((&__string_27));
-    larg__YDBD=create_with_capacity__LJ5B( 1);
-    switch (((struct ___OBJ *)e__FFHC)->__id) {
-    case __ITM_LIST__: {
-      __tmp__DEBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LDOTS__: {
-      __tmp__DEBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_PROTOTYPE__: {
-      __tmp__DEBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LIST_IDF__: {
-      __tmp__DEBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_VALUE__: {
-      __tmp__DEBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CAST__: {
-      __tmp__DEBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ__: {
-      __tmp__DEBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CODE__: {
-      __tmp__DEBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_OPERATOR__: {
-      __tmp__DEBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG1__: {
-      __tmp__DEBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG2__: {
-      __tmp__DEBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXPRESSION__: {
-      __tmp__DEBD=position__5A5B(e__FFHC);
-    } break;
-    case __ITM_OLD__: {
-      __tmp__DEBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL_TYPE__: {
-      __tmp__DEBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_BLOCK__: {
-      __tmp__DEBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL__: {
-      __tmp__DEBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARGS__: {
-      __tmp__DEBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_REAL__: {
-      __tmp__DEBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_NUMBER__: {
-      __tmp__DEBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_CHARACTER__: {
-      __tmp__DEBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_STRING__: {
-      __tmp__DEBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_RESULT__: {
-      __tmp__DEBD=position__PIHC(e__FFHC);
-    } break;
-    };
-    result__35HH=NULL;
-    ptr__45HH=((__POINTER )(NULL));
-    typ_id__55HH= 0;
-    sz__AAIH=((__UINTEGER_32 )sizeof(__ITM_ARG));
-    if ((sz__AAIH ==  0)) {
-      result__35HH=ITM_ARG__;
-    } else {
-      typ_id__55HH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__AAIH);
-      if ((typ_id__55HH == (__INTEGER)(-  1))) {
-        a__BAIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__CAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__AAIH + a__BAIH) & (__UINTEGER_32)(~ a__BAIH));
-        ptr_table__MHKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CAIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__LHKH=((__POINTER )(NULL));
-        result__NHKH=((__POINTER *)ptr_table__MHKH)[ 0];
-        if ((result__NHKH == (void *)NULL)) {
-          result__NHKH=new_lab__RTJ(new_size__CAIH);
-          next__LHKH=(void *)((unsigned long)result__NHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CAIH)));
-          ((__POINTER *)next__LHKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MHKH)[ 0]=next__LHKH;
-        } else {
-          next__LHKH=((__POINTER *)result__NHKH)[ 0];
-          if ((next__LHKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NHKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CAIH <<  1)) <=  4096)) {
-              next__LHKH=(void *)((unsigned long)result__NHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CAIH)));
-            } else {
-              next__LHKH=new_lab__RTJ(new_size__CAIH);
-            };
-            ((__POINTER *)next__LHKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__MHKH)[ 0]=next__LHKH;
-          } else {
-            ((__POINTER *)result__NHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__NHKH=next__LHKH;
-          };
-        };
-        ptr__45HH=result__NHKH;
-      } else {
-        t__DAIH=((__UINTEGER_32 )typ_id__55HH);
-        a__EAIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__UHKH=(__UINTEGER_32)((__UINTEGER_32)(sz__AAIH + a__EAIH) & (__UINTEGER_32)(~ a__EAIH));
-        ptr_table__RHKH=((__POINTER )(&(table_type[(t__DAIH)])));
-        lab_type__THKH=(__UINTEGER_32)(t__DAIH |  1);
-        next__QHKH=((__POINTER )(NULL));
-        result__SHKH=((__POINTER *)ptr_table__RHKH)[ 0];
-        if ((result__SHKH == (void *)NULL)) {
-          result__SHKH=new_lab__RTJ(lab_type__THKH);
-          next__QHKH=(void *)((unsigned long)result__SHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHKH)));
-          ((__POINTER *)next__QHKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RHKH)[ 0]=next__QHKH;
-        } else {
-          next__QHKH=((__POINTER *)result__SHKH)[ 0];
-          if ((next__QHKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SHKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__UHKH <<  1)) <=  4096)) {
-              next__QHKH=(void *)((unsigned long)result__SHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHKH)));
-            } else {
-              next__QHKH=new_lab__RTJ(lab_type__THKH);
-            };
-            ((__POINTER *)next__QHKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__RHKH)[ 0]=next__QHKH;
-          } else {
-            ((__POINTER *)result__SHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__SHKH=next__QHKH;
-          };
-        };
-        ptr__45HH=result__SHKH;
-      };
-      result__35HH=((__ITM_ARG *)ptr__45HH);
-      *(result__35HH) = *(ITM_ARG__);
-    };
-    Self__FAIH=((__ITM_ARG *)result__35HH);
-    Self__FAIH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=__tmp__DEBD;
-    Self__FAIH->name__F0HC=(&__string_58);
-    Self__FAIH->type__G0HC=type_self__DVN;
-    add_last__E5GC(larg__YDBD,result__35HH);
-    switch (((struct ___OBJ *)e__FFHC)->__id) {
-    case __ITM_LIST__: {
-      __tmp__LEBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LDOTS__: {
-      __tmp__LEBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_PROTOTYPE__: {
-      __tmp__LEBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LIST_IDF__: {
-      __tmp__LEBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_VALUE__: {
-      __tmp__LEBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CAST__: {
-      __tmp__LEBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ__: {
-      __tmp__LEBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CODE__: {
-      __tmp__LEBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_OPERATOR__: {
-      __tmp__LEBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG1__: {
-      __tmp__LEBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG2__: {
-      __tmp__LEBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXPRESSION__: {
-      __tmp__LEBD=position__5A5B(e__FFHC);
-    } break;
-    case __ITM_OLD__: {
-      __tmp__LEBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL_TYPE__: {
-      __tmp__LEBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_BLOCK__: {
-      __tmp__LEBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL__: {
-      __tmp__LEBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARGS__: {
-      __tmp__LEBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_REAL__: {
-      __tmp__LEBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_NUMBER__: {
-      __tmp__LEBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_CHARACTER__: {
-      __tmp__LEBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_STRING__: {
-      __tmp__LEBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_RESULT__: {
-      __tmp__LEBD=position__PIHC(e__FFHC);
-    } break;
-    };
-    result__XQAC=NULL;
-    ptr__YQAC=((__POINTER )(NULL));
-    typ_id__3QAC= 0;
-    sz__0QAC=((__UINTEGER_32 )sizeof(__ITM_SLOT));
-    if ((sz__0QAC ==  0)) {
-      result__XQAC=ITM_SLOT__;
-    } else {
-      typ_id__3QAC=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0QAC);
-      if ((typ_id__3QAC == (__INTEGER)(-  1))) {
-        a__YYFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ZYFH=(__UINTEGER_32)((__UINTEGER_32)(sz__0QAC + a__YYFH) & (__UINTEGER_32)(~ a__YYFH));
-        ptr_table__WHKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZYFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__VHKH=((__POINTER )(NULL));
-        result__XHKH=((__POINTER *)ptr_table__WHKH)[ 0];
-        if ((result__XHKH == (void *)NULL)) {
-          result__XHKH=new_lab__RTJ(new_size__ZYFH);
-          next__VHKH=(void *)((unsigned long)result__XHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZYFH)));
-          ((__POINTER *)next__VHKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WHKH)[ 0]=next__VHKH;
-        } else {
-          next__VHKH=((__POINTER *)result__XHKH)[ 0];
-          if ((next__VHKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XHKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZYFH <<  1)) <=  4096)) {
-              next__VHKH=(void *)((unsigned long)result__XHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZYFH)));
-            } else {
-              next__VHKH=new_lab__RTJ(new_size__ZYFH);
-            };
-            ((__POINTER *)next__VHKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WHKH)[ 0]=next__VHKH;
-          } else {
-            ((__POINTER *)result__XHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__XHKH=next__VHKH;
-          };
-        };
-        ptr__YQAC=result__XHKH;
-      } else {
-        t__3YFH=((__UINTEGER_32 )typ_id__3QAC);
-        a__2YFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__4HKH=(__UINTEGER_32)((__UINTEGER_32)(sz__0QAC + a__2YFH) & (__UINTEGER_32)(~ a__2YFH));
-        ptr_table__1HKH=((__POINTER )(&(table_type[(t__3YFH)])));
-        lab_type__3HKH=(__UINTEGER_32)(t__3YFH |  1);
-        next__0HKH=((__POINTER )(NULL));
-        result__2HKH=((__POINTER *)ptr_table__1HKH)[ 0];
-        if ((result__2HKH == (void *)NULL)) {
-          result__2HKH=new_lab__RTJ(lab_type__3HKH);
-          next__0HKH=(void *)((unsigned long)result__2HKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HKH)));
-          ((__POINTER *)next__0HKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__1HKH)[ 0]=next__0HKH;
-        } else {
-          next__0HKH=((__POINTER *)result__2HKH)[ 0];
-          if ((next__0HKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2HKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__4HKH <<  1)) <=  4096)) {
-              next__0HKH=(void *)((unsigned long)result__2HKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HKH)));
-            } else {
-              next__0HKH=new_lab__RTJ(lab_type__3HKH);
-            };
-            ((__POINTER *)next__0HKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__1HKH)[ 0]=next__0HKH;
-          } else {
-            ((__POINTER *)result__2HKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0HKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__2HKH=next__0HKH;
-          };
-        };
-        ptr__YQAC=result__2HKH;
-      };
-      result__XQAC=((__ITM_SLOT *)ptr__YQAC);
-      *(result__XQAC) = *(ITM_SLOT__);
-    };
-    Self__C2HC=((__ITM_SLOT *)result__XQAC);
-    Self__C2HC->parent_named__15.name__LI=n__WDBD;
-    Self__C2HC->parent_named__15.parent_itm_object__4.position__SFJ=__tmp__LEBD;
-    Self__C2HC->id_section__T3C=sec__XDBD;
-    ((__ITM_SLOT *)result__XQAC)->affect__P5FC='<';
-    set_value__type__DFHC(result__XQAC,e__FFHC,p__GFHC);
-    set_argument_list__5BHC(result__XQAC,larg__YDBD);
-    set_result_type__W2FC(result__XQAC,Self__EFHC->result_type__A4FC);
-    fast_put__to__LNGC(((__PROTOTYPE *)p__GFHC)->slot_list__YVS,result__XQAC,result__XQAC->parent_named__15.name__LI);
-    switch (((struct ___OBJ *)e__FFHC)->__id) {
-    case __ITM_LIST__: {
-      __tmp__5EBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LDOTS__: {
-      __tmp__5EBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_PROTOTYPE__: {
-      __tmp__5EBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LIST_IDF__: {
-      __tmp__5EBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_VALUE__: {
-      __tmp__5EBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CAST__: {
-      __tmp__5EBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ__: {
-      __tmp__5EBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CODE__: {
-      __tmp__5EBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_OPERATOR__: {
-      __tmp__5EBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG1__: {
-      __tmp__5EBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG2__: {
-      __tmp__5EBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXPRESSION__: {
-      __tmp__5EBD=position__5A5B(e__FFHC);
-    } break;
-    case __ITM_OLD__: {
-      __tmp__5EBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL_TYPE__: {
-      __tmp__5EBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_BLOCK__: {
-      __tmp__5EBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL__: {
-      __tmp__5EBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARGS__: {
-      __tmp__5EBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_REAL__: {
-      __tmp__5EBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_NUMBER__: {
-      __tmp__5EBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_CHARACTER__: {
-      __tmp__5EBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_STRING__: {
-      __tmp__5EBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_RESULT__: {
-      __tmp__5EBD=position__PIHC(e__FFHC);
-    } break;
-    };
-    get__IVI(((__PROTOTYPE *)p__GFHC)->parent_named__5.name__LI);
-    result__NWI=NULL;
-    ptr__OWI=((__POINTER )(NULL));
-    typ_id__TWI= 0;
-    sz__QWI=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-    if ((sz__QWI ==  0)) {
-      result__NWI=ITM_PROTOTYPE__;
-    } else {
-      typ_id__TWI=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QWI);
-      if ((typ_id__TWI == (__INTEGER)(-  1))) {
-        a__UZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__VZFH=(__UINTEGER_32)((__UINTEGER_32)(sz__QWI + a__UZFH) & (__UINTEGER_32)(~ a__UZFH));
-        ptr_table__AIKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VZFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__5HKH=((__POINTER )(NULL));
-        result__BIKH=((__POINTER *)ptr_table__AIKH)[ 0];
-        if ((result__BIKH == (void *)NULL)) {
-          result__BIKH=new_lab__RTJ(new_size__VZFH);
-          next__5HKH=(void *)((unsigned long)result__BIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VZFH)));
-          ((__POINTER *)next__5HKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__AIKH)[ 0]=next__5HKH;
-        } else {
-          next__5HKH=((__POINTER *)result__BIKH)[ 0];
-          if ((next__5HKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BIKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VZFH <<  1)) <=  4096)) {
-              next__5HKH=(void *)((unsigned long)result__BIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VZFH)));
-            } else {
-              next__5HKH=new_lab__RTJ(new_size__VZFH);
-            };
-            ((__POINTER *)next__5HKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AIKH)[ 0]=next__5HKH;
-          } else {
-            ((__POINTER *)result__BIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5HKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__BIKH=next__5HKH;
-          };
-        };
-        ptr__OWI=result__BIKH;
-      } else {
-        t__ZZFH=((__UINTEGER_32 )typ_id__TWI);
-        a__YZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__IIKH=(__UINTEGER_32)((__UINTEGER_32)(sz__QWI + a__YZFH) & (__UINTEGER_32)(~ a__YZFH));
-        ptr_table__FIKH=((__POINTER )(&(table_type[(t__ZZFH)])));
-        lab_type__HIKH=(__UINTEGER_32)(t__ZZFH |  1);
-        next__EIKH=((__POINTER )(NULL));
-        result__GIKH=((__POINTER *)ptr_table__FIKH)[ 0];
-        if ((result__GIKH == (void *)NULL)) {
-          result__GIKH=new_lab__RTJ(lab_type__HIKH);
-          next__EIKH=(void *)((unsigned long)result__GIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIKH)));
-          ((__POINTER *)next__EIKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__FIKH)[ 0]=next__EIKH;
-        } else {
-          next__EIKH=((__POINTER *)result__GIKH)[ 0];
-          if ((next__EIKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GIKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IIKH <<  1)) <=  4096)) {
-              next__EIKH=(void *)((unsigned long)result__GIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIKH)));
-            } else {
-              next__EIKH=new_lab__RTJ(lab_type__HIKH);
-            };
-            ((__POINTER *)next__EIKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FIKH)[ 0]=next__EIKH;
-          } else {
-            ((__POINTER *)result__GIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__GIKH=next__EIKH;
-          };
-        };
-        ptr__OWI=result__GIKH;
-      };
-      result__NWI=((__ITM_PROTOTYPE *)ptr__OWI);
-      *(result__NWI) = *(ITM_PROTOTYPE__);
-    };
-    ((__ITM_PROTOTYPE *)result__NWI)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__5EBD;
-    switch (((struct ___OBJ *)e__FFHC)->__id) {
-    case __ITM_LIST__: {
-      __tmp__IFBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LDOTS__: {
-      __tmp__IFBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_PROTOTYPE__: {
-      __tmp__IFBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_LIST_IDF__: {
-      __tmp__IFBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_VALUE__: {
-      __tmp__IFBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CAST__: {
-      __tmp__IFBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ__: {
-      __tmp__IFBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_WRITE_CODE__: {
-      __tmp__IFBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_OPERATOR__: {
-      __tmp__IFBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG1__: {
-      __tmp__IFBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARG2__: {
-      __tmp__IFBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXPRESSION__: {
-      __tmp__IFBD=position__5A5B(e__FFHC);
-    } break;
-    case __ITM_OLD__: {
-      __tmp__IFBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL_TYPE__: {
-      __tmp__IFBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_BLOCK__: {
-      __tmp__IFBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_EXTERNAL__: {
-      __tmp__IFBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_READ_ARGS__: {
-      __tmp__IFBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_REAL__: {
-      __tmp__IFBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_NUMBER__: {
-      __tmp__IFBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_CHARACTER__: {
-      __tmp__IFBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_STRING__: {
-      __tmp__IFBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-    } break;
-    case __ITM_RESULT__: {
-      __tmp__IFBD=position__PIHC(e__FFHC);
-    } break;
-    };
-    result__0GCD=NULL;
-    ptr__1GCD=((__POINTER )(NULL));
-    typ_id__AHCD= 0;
-    sz__3GCD=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-    if ((sz__3GCD ==  0)) {
-      result__0GCD=ITM_READ_ARG1__;
-    } else {
-      typ_id__AHCD=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3GCD);
-      if ((typ_id__AHCD == (__INTEGER)(-  1))) {
-        a__2ZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__3ZFH=(__UINTEGER_32)((__UINTEGER_32)(sz__3GCD + a__2ZFH) & (__UINTEGER_32)(~ a__2ZFH));
-        ptr_table__KIKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3ZFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__JIKH=((__POINTER )(NULL));
-        result__LIKH=((__POINTER *)ptr_table__KIKH)[ 0];
-        if ((result__LIKH == (void *)NULL)) {
-          result__LIKH=new_lab__RTJ(new_size__3ZFH);
-          next__JIKH=(void *)((unsigned long)result__LIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZFH)));
-          ((__POINTER *)next__JIKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__KIKH)[ 0]=next__JIKH;
-        } else {
-          next__JIKH=((__POINTER *)result__LIKH)[ 0];
-          if ((next__JIKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LIKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3ZFH <<  1)) <=  4096)) {
-              next__JIKH=(void *)((unsigned long)result__LIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZFH)));
-            } else {
-              next__JIKH=new_lab__RTJ(new_size__3ZFH);
-            };
-            ((__POINTER *)next__JIKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__KIKH)[ 0]=next__JIKH;
-          } else {
-            ((__POINTER *)result__LIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__LIKH=next__JIKH;
-          };
-        };
-        ptr__1GCD=result__LIKH;
-      } else {
-        t__B0FH=((__UINTEGER_32 )typ_id__AHCD);
-        a__A0FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__SIKH=(__UINTEGER_32)((__UINTEGER_32)(sz__3GCD + a__A0FH) & (__UINTEGER_32)(~ a__A0FH));
-        ptr_table__PIKH=((__POINTER )(&(table_type[(t__B0FH)])));
-        lab_type__RIKH=(__UINTEGER_32)(t__B0FH |  1);
-        next__OIKH=((__POINTER )(NULL));
-        result__QIKH=((__POINTER *)ptr_table__PIKH)[ 0];
-        if ((result__QIKH == (void *)NULL)) {
-          result__QIKH=new_lab__RTJ(lab_type__RIKH);
-          next__OIKH=(void *)((unsigned long)result__QIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIKH)));
-          ((__POINTER *)next__OIKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PIKH)[ 0]=next__OIKH;
-        } else {
-          next__OIKH=((__POINTER *)result__QIKH)[ 0];
-          if ((next__OIKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QIKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__SIKH <<  1)) <=  4096)) {
-              next__OIKH=(void *)((unsigned long)result__QIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIKH)));
-            } else {
-              next__OIKH=new_lab__RTJ(lab_type__RIKH);
-            };
-            ((__POINTER *)next__OIKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__PIKH)[ 0]=next__OIKH;
-          } else {
-            ((__POINTER *)result__QIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__QIKH=next__OIKH;
-          };
-        };
-        ptr__1GCD=result__QIKH;
-      };
-      result__0GCD=((__ITM_READ_ARG1 *)ptr__1GCD);
-      *(result__0GCD) = *(ITM_READ_ARG1__);
-    };
-    ((__ITM_READ_ARG1 *)result__0GCD)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__IFBD;
-  };
-}
-
-static __POSITION position__5A5B(__ITM_EXPRESSION *Self__AB5B)
-// ({ITM_EXPRESSION}) With resultRecursive, No inlinable.
-{
-  void *__tmp__DB5B;
-  __POSITION __tmp__EB5B;
-  __tmp__DB5B=((void **)((__FAST_ARRAYoITM_CODEo *)Self__AB5B->value_list__PJV)->parent_arrayed_collection__JWF.storage__4ZT)[ 0];
-  switch (((struct ___OBJ *)__tmp__DB5B)->__id) {
-  case __ITM_LIST__: {
-    __tmp__EB5B=((__ITM_LIST *)__tmp__DB5B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_LDOTS__: {
-    __tmp__EB5B=((__ITM_LDOTS *)__tmp__DB5B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_PROTOTYPE__: {
-    __tmp__EB5B=((__ITM_PROTOTYPE *)__tmp__DB5B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_LIST_IDF__: {
-    __tmp__EB5B=((__ITM_LIST_IDF *)__tmp__DB5B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_WRITE_VALUE__: {
-    __tmp__EB5B=((__ITM_WRITE_VALUE *)__tmp__DB5B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_WRITE_CAST__: {
-    __tmp__EB5B=((__ITM_WRITE_CAST *)__tmp__DB5B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ__: {
-    __tmp__EB5B=((__ITM_READ *)__tmp__DB5B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_WRITE_CODE__: {
-    __tmp__EB5B=((__ITM_WRITE_CODE *)__tmp__DB5B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_OPERATOR__: {
-    __tmp__EB5B=((__ITM_OPERATOR *)__tmp__DB5B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ_ARG1__: {
-    __tmp__EB5B=((__ITM_READ_ARG1 *)__tmp__DB5B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ_ARG2__: {
-    __tmp__EB5B=((__ITM_READ_ARG2 *)__tmp__DB5B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_EXPRESSION__: {
-    __tmp__EB5B=position__5A5B(__tmp__DB5B);
-  } break;
-  case __ITM_OLD__: {
-    __tmp__EB5B=((__ITM_OLD *)__tmp__DB5B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_EXTERNAL_TYPE__: {
-    __tmp__EB5B=((__ITM_EXTERNAL_TYPE *)__tmp__DB5B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_BLOCK__: {
-    __tmp__EB5B=((__ITM_LIST *)((__ITM_BLOCK *)__tmp__DB5B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_EXTERNAL__: {
-    __tmp__EB5B=((__ITM_EXTERNAL *)__tmp__DB5B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ_ARGS__: {
-    __tmp__EB5B=((__ITM_READ_ARGS *)__tmp__DB5B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_REAL__: {
-    __tmp__EB5B=((__ITM_REAL *)__tmp__DB5B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_NUMBER__: {
-    __tmp__EB5B=((__ITM_NUMBER *)__tmp__DB5B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_CHARACTER__: {
-    __tmp__EB5B=((__ITM_CHARACTER *)__tmp__DB5B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_STRING__: {
-    __tmp__EB5B=((__ITM_STRING *)__tmp__DB5B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_RESULT__: {
-    __tmp__EB5B=position__PIHC(__tmp__DB5B);
-  } break;
-  };
-  return(__tmp__EB5B);
-}
-
-static __POSITION position__PIHC(__ITM_RESULT *Self__QIHC)
-// ({ITM_RESULT}) With resultRecursive, No inlinable.
-{
-  void *__tmp__SIHC;
-  __POSITION __tmp__TIHC;
-  __tmp__SIHC=Self__QIHC->value__WKFC;
-  switch (((struct ___OBJ *)__tmp__SIHC)->__id) {
-  case __ITM_LIST__: {
-    __tmp__TIHC=((__ITM_LIST *)__tmp__SIHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_LDOTS__: {
-    __tmp__TIHC=((__ITM_LDOTS *)__tmp__SIHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_PROTOTYPE__: {
-    __tmp__TIHC=((__ITM_PROTOTYPE *)__tmp__SIHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_LIST_IDF__: {
-    __tmp__TIHC=((__ITM_LIST_IDF *)__tmp__SIHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_WRITE_VALUE__: {
-    __tmp__TIHC=((__ITM_WRITE_VALUE *)__tmp__SIHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_WRITE_CAST__: {
-    __tmp__TIHC=((__ITM_WRITE_CAST *)__tmp__SIHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ__: {
-    __tmp__TIHC=((__ITM_READ *)__tmp__SIHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_WRITE_CODE__: {
-    __tmp__TIHC=((__ITM_WRITE_CODE *)__tmp__SIHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_OPERATOR__: {
-    __tmp__TIHC=((__ITM_OPERATOR *)__tmp__SIHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ_ARG1__: {
-    __tmp__TIHC=((__ITM_READ_ARG1 *)__tmp__SIHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ_ARG2__: {
-    __tmp__TIHC=((__ITM_READ_ARG2 *)__tmp__SIHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_EXPRESSION__: {
-    __tmp__TIHC=position__5A5B(__tmp__SIHC);
-  } break;
-  case __ITM_OLD__: {
-    __tmp__TIHC=((__ITM_OLD *)__tmp__SIHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_EXTERNAL_TYPE__: {
-    __tmp__TIHC=((__ITM_EXTERNAL_TYPE *)__tmp__SIHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_BLOCK__: {
-    __tmp__TIHC=((__ITM_LIST *)((__ITM_BLOCK *)__tmp__SIHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_EXTERNAL__: {
-    __tmp__TIHC=((__ITM_EXTERNAL *)__tmp__SIHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_READ_ARGS__: {
-    __tmp__TIHC=((__ITM_READ_ARGS *)__tmp__SIHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_REAL__: {
-    __tmp__TIHC=((__ITM_REAL *)__tmp__SIHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_NUMBER__: {
-    __tmp__TIHC=((__ITM_NUMBER *)__tmp__SIHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_CHARACTER__: {
-    __tmp__TIHC=((__ITM_CHARACTER *)__tmp__SIHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_STRING__: {
-    __tmp__TIHC=((__ITM_STRING *)__tmp__SIHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
-  } break;
-  case __ITM_RESULT__: {
-    __tmp__TIHC=position__PIHC(__tmp__SIHC);
-  } break;
-  };
-  return(__tmp__TIHC);
-}
-
-static void fast_put__to__LNGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__MNGC,void *v__NNGC,void *k__ONGC)
-// ({HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo},{NULLxITM_SLOTxITM_SLOT_OPERATOR},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER h__VNGC,idx__WNGC,idx__KRID,new_capacity__LRID,i__MRID;
-  __INTEGER typ_id__ZTID;
-  __POINTER ptr__UTID,ptr_table__UIKH,next__TIKH,result__VIKH;
-  __POINTER ptr_table__ZIKH,next__YIKH,result__0IKH;
-  __UINTEGER_32 sz__WTID,a__MZFH,new_size__NZFH,t__RZFH,a__QZFH;
-  __UINTEGER_32 new_size__2IKH,lab_type__1IKH;
-  void *node__XNGC,*node1__ORID,*node2__PRID,*__tmp__FPGC;
-  void **old_buckets__NRID;
-  __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *result__TTID;
-  __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *Self__FITD;
-  h__VNGC=hash_code__RNW(k__ONGC);
-  idx__WNGC=(__INTEGER)(h__VNGC % Self__MNGC->capacity__W3BC);
-  node__XNGC=((void **)Self__MNGC->buckets__NAGC)[idx__WNGC];
-  while ((! (((void *)node__XNGC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__XNGC)->key__ZAGC == (void *)k__ONGC)))) {
-    node__XNGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__XNGC)->next__EBGC;
-  };
-  if (((void *)node__XNGC == (void *)NULL)) {
-    if ((Self__MNGC->capacity__W3BC == Self__MNGC->count__YOGC)) {
-      idx__KRID= 0;
-      node1__ORID=NULL;
-      node2__PRID=NULL;
-      old_buckets__NRID=Self__MNGC->buckets__NAGC;
-      new_capacity__LRID=prime_number_ceiling__021((__INTEGER)(Self__MNGC->capacity__W3BC +  1));
-      Self__MNGC->buckets__NAGC=create__PRSC(new_capacity__LRID);
-      i__MRID=(__INTEGER)(Self__MNGC->capacity__W3BC -  1);
-      Self__MNGC->capacity__W3BC=new_capacity__LRID;
-      while ((i__MRID >=  0)) {
-        node1__ORID=((void **)old_buckets__NRID)[i__MRID];
-        while (((void *)node1__ORID != (void *)NULL)) {
-          node2__PRID=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__ORID)->next__EBGC;
-          idx__KRID=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__ORID)->key__ZAGC) % Self__MNGC->capacity__W3BC);
-          ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__ORID)->next__EBGC=((void **)Self__MNGC->buckets__NAGC)[idx__KRID];
-          ((void **)Self__MNGC->buckets__NAGC)[idx__KRID]=node1__ORID;
-          node1__ORID=node2__PRID;
-        };
-        i__MRID=(__INTEGER)(i__MRID -  1);
-      };
-      idx__WNGC=(__INTEGER)(h__VNGC % Self__MNGC->capacity__W3BC);
-    };
-    __tmp__FPGC=((void **)Self__MNGC->buckets__NAGC)[idx__WNGC];
-    result__TTID=NULL;
-    ptr__UTID=((__POINTER )(NULL));
-    typ_id__ZTID= 0;
-    sz__WTID=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo));
-    if ((sz__WTID ==  0)) {
-      result__TTID=HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
-    } else {
-      typ_id__ZTID=__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WTID);
-      if ((typ_id__ZTID == (__INTEGER)(-  1))) {
-        a__MZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__NZFH=(__UINTEGER_32)((__UINTEGER_32)(sz__WTID + a__MZFH) & (__UINTEGER_32)(~ a__MZFH));
-        ptr_table__UIKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NZFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__TIKH=((__POINTER )(NULL));
-        result__VIKH=((__POINTER *)ptr_table__UIKH)[ 0];
-        if ((result__VIKH == (void *)NULL)) {
-          result__VIKH=new_lab__RTJ(new_size__NZFH);
-          next__TIKH=(void *)((unsigned long)result__VIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NZFH)));
-          ((__POINTER *)next__TIKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UIKH)[ 0]=next__TIKH;
-        } else {
-          next__TIKH=((__POINTER *)result__VIKH)[ 0];
-          if ((next__TIKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VIKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NZFH <<  1)) <=  4096)) {
-              next__TIKH=(void *)((unsigned long)result__VIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NZFH)));
-            } else {
-              next__TIKH=new_lab__RTJ(new_size__NZFH);
-            };
-            ((__POINTER *)next__TIKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__UIKH)[ 0]=next__TIKH;
-          } else {
-            ((__POINTER *)result__VIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__VIKH=next__TIKH;
-          };
-        };
-        ptr__UTID=result__VIKH;
-      } else {
-        t__RZFH=((__UINTEGER_32 )typ_id__ZTID);
-        a__QZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__2IKH=(__UINTEGER_32)((__UINTEGER_32)(sz__WTID + a__QZFH) & (__UINTEGER_32)(~ a__QZFH));
-        ptr_table__ZIKH=((__POINTER )(&(table_type[(t__RZFH)])));
-        lab_type__1IKH=(__UINTEGER_32)(t__RZFH |  1);
-        next__YIKH=((__POINTER )(NULL));
-        result__0IKH=((__POINTER *)ptr_table__ZIKH)[ 0];
-        if ((result__0IKH == (void *)NULL)) {
-          result__0IKH=new_lab__RTJ(lab_type__1IKH);
-          next__YIKH=(void *)((unsigned long)result__0IKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2IKH)));
-          ((__POINTER *)next__YIKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__ZIKH)[ 0]=next__YIKH;
-        } else {
-          next__YIKH=((__POINTER *)result__0IKH)[ 0];
-          if ((next__YIKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0IKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2IKH <<  1)) <=  4096)) {
-              next__YIKH=(void *)((unsigned long)result__0IKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2IKH)));
-            } else {
-              next__YIKH=new_lab__RTJ(lab_type__1IKH);
-            };
-            ((__POINTER *)next__YIKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ZIKH)[ 0]=next__YIKH;
-          } else {
-            ((__POINTER *)result__0IKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__0IKH=next__YIKH;
-          };
-        };
-        ptr__UTID=result__0IKH;
-      };
-      result__TTID=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)ptr__UTID);
-      *(result__TTID) = *(HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__);
-    };
-    Self__FITD=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)result__TTID);
-    Self__FITD->item__MBGC=v__NNGC;
-    Self__FITD->key__ZAGC=k__ONGC;
-    Self__FITD->next__EBGC=__tmp__FPGC;
-    node__XNGC=result__TTID;
-    ((void **)Self__MNGC->buckets__NAGC)[idx__WNGC]=result__TTID;
-    Self__MNGC->count__YOGC=(__INTEGER)(Self__MNGC->count__YOGC +  1);
-  } else {
-    ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__XNGC)->item__MBGC=v__NNGC;
-  };
-}
-
-static void* fast_reference_at__05FC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__15FC,void *k__25FC)
-// ({HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *result__HAGC;
-  void *node__GAGC;
-  result__HAGC=NULL;
-  node__GAGC=((void **)Self__15FC->buckets__NAGC)[(__INTEGER)(hash_code__RNW(k__25FC) % Self__15FC->capacity__W3BC)];
-  while ((! (((void *)node__GAGC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__GAGC)->key__ZAGC == (void *)k__25FC)))) {
-    node__GAGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__GAGC)->next__EBGC;
-  };
-  if (((void *)node__GAGC != (void *)NULL)) {
-    result__HAGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__GAGC)->item__MBGC;
-  };
-  return(result__HAGC);
-}
-
-static void* fast_reference_at__CMNE(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__DMNE,void *k__EMNE)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *result__OMNE;
-  void *node__NMNE;
-  result__OMNE=NULL;
-  node__NMNE=((void **)Self__DMNE->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__EMNE) % Self__DMNE->capacity__WDT)];
-  while ((! (((void *)node__NMNE == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NMNE)->key__HET == (void *)k__EMNE)))) {
-    node__NMNE=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NMNE)->next__SET;
-  };
-  if (((void *)node__NMNE != (void *)NULL)) {
-    result__OMNE=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NMNE)->item__KW3;
-  };
-  return(result__OMNE);
-}
-
-static void append_in__PJPD(__ITM_TYPE_BLOCK *Self__QJPD,void *buffer__RJPD)
-// ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  void *typ_mul__SJPD,*__tmp__EKPD;
-  __STRING *Self__KAIH,*Self__SAIH,*Self__YAIH,*Self__4AIH,*Self__GBIH;
-  __STRING *Self__MBIH;
-  __INTEGER new_capacity__JAIH,old_nb_elts__MAIH,upper__AJKH,Self__4IKH;
-  __INTEGER new_capacity__RAIH,old_nb_elts__UAIH,upper__FJKH,Self__DJKH;
-  __INTEGER new_capacity__XAIH,old_nb_elts__0AIH,upper__KJKH,Self__IJKH;
-  __INTEGER new_capacity__3AIH,old_nb_elts__ABIH,upper__PJKH,Self__NJKH;
-  __INTEGER new_capacity__FBIH,old_nb_elts__IBIH,upper__UJKH,Self__SJKH;
-  __INTEGER new_capacity__LBIH,old_nb_elts__OBIH,upper__ZJKH,Self__XJKH;
-  void *__tmp__ZJPD,*__tmp__DKPD,*__tmp__KKPD;
-  __ITM_TYPE_STYLE *Self__QAIH,*Self__EBIH;
-  __CHARACTER *Self__LAIH,*new__NAIH,*Self__TAIH,*new__VAIH,*Self__ZAIH;
-  __CHARACTER *new__1AIH,*Self__5AIH,*new__BBIH,*Self__HBIH,*new__JBIH;
-  __CHARACTER *Self__NBIH,*new__PBIH;
-  typ_mul__SJPD=NULL;
-  Self__KAIH=((__STRING *)buffer__RJPD);
-  new_capacity__JAIH= 0;
-  if ((Self__KAIH->capacity__UCS <= Self__KAIH->count__SGC)) {
-    if ((Self__KAIH->capacity__UCS ==  0)) {
-      Self__KAIH->capacity__UCS= 32;
-      Self__KAIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__JAIH=(__INTEGER)(Self__KAIH->capacity__UCS <<  1);
-      Self__LAIH=((__CHARACTER *)Self__KAIH->storage__3CS);
-      old_nb_elts__MAIH=Self__KAIH->capacity__UCS;
-      new__NAIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LAIH),((__UINTEGER_32 )old_nb_elts__MAIH),((__UINTEGER_32 )new_capacity__JAIH)));
-      upper__AJKH=(__INTEGER)(new_capacity__JAIH -  1);
-      Self__4IKH=old_nb_elts__MAIH;
-      while ((Self__4IKH <= upper__AJKH)) {
-        new__NAIH[Self__4IKH]='\0';
-        Self__4IKH=(__INTEGER)(Self__4IKH +  1);
-      };
-      Self__KAIH->storage__3CS=new__NAIH;
-      Self__KAIH->capacity__UCS=new_capacity__JAIH;
-    };
-  };
-  ((__CHARACTER *)Self__KAIH->storage__3CS)[Self__KAIH->count__SGC]='{';
-  Self__KAIH->count__SGC=(__INTEGER)(Self__KAIH->count__SGC +  1);
-  if (((void *)Self__QJPD->type_argument__SNN != (void *)NULL)) {
-    __tmp__ZJPD=Self__QJPD->type_argument__SNN;
-    switch (((struct ___OBJ *)__tmp__ZJPD)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__3OS(buffer__RJPD,((__ITM_TYPE_PARAMETER *)__tmp__ZJPD)->parent_itm_type__VFE.name__GZP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__3OS(buffer__RJPD,((__ITM_TYPE_SIMPLE *)__tmp__ZJPD)->name__GZP);
-    } break;
-    case __ITM_TYPE_MULTI__: {
-      append_in__MHBC(__tmp__ZJPD,buffer__RJPD);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__PJPD(__tmp__ZJPD,buffer__RJPD);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__TKPD(__tmp__ZJPD,buffer__RJPD);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__QAIH=((__ITM_TYPE_STYLE *)__tmp__ZJPD);
-      if (((void *)Self__QAIH->style__PZP != (void *)NULL)) {
-        append__3OS(buffer__RJPD,Self__QAIH->style__PZP);
-        Self__SAIH=((__STRING *)buffer__RJPD);
-        new_capacity__RAIH= 0;
-        if ((Self__SAIH->capacity__UCS <= Self__SAIH->count__SGC)) {
-          if ((Self__SAIH->capacity__UCS ==  0)) {
-            Self__SAIH->capacity__UCS= 32;
-            Self__SAIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__RAIH=(__INTEGER)(Self__SAIH->capacity__UCS <<  1);
-            Self__TAIH=((__CHARACTER *)Self__SAIH->storage__3CS);
-            old_nb_elts__UAIH=Self__SAIH->capacity__UCS;
-            new__VAIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TAIH),((__UINTEGER_32 )old_nb_elts__UAIH),((__UINTEGER_32 )new_capacity__RAIH)));
-            upper__FJKH=(__INTEGER)(new_capacity__RAIH -  1);
-            Self__DJKH=old_nb_elts__UAIH;
-            while ((Self__DJKH <= upper__FJKH)) {
-              new__VAIH[Self__DJKH]='\0';
-              Self__DJKH=(__INTEGER)(Self__DJKH +  1);
-            };
-            Self__SAIH->storage__3CS=new__VAIH;
-            Self__SAIH->capacity__UCS=new_capacity__RAIH;
-          };
-        };
-        ((__CHARACTER *)Self__SAIH->storage__3CS)[Self__SAIH->count__SGC]=' ';
-        Self__SAIH->count__SGC=(__INTEGER)(Self__SAIH->count__SGC +  1);
-      };
-      append__3OS(buffer__RJPD,Self__QAIH->parent_itm_type_simple__3SN.name__GZP);
-    } break;
-    };
-    Self__YAIH=((__STRING *)buffer__RJPD);
-    new_capacity__XAIH= 0;
-    if ((Self__YAIH->capacity__UCS <= Self__YAIH->count__SGC)) {
-      if ((Self__YAIH->capacity__UCS ==  0)) {
-        Self__YAIH->capacity__UCS= 32;
-        Self__YAIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__XAIH=(__INTEGER)(Self__YAIH->capacity__UCS <<  1);
-        Self__ZAIH=((__CHARACTER *)Self__YAIH->storage__3CS);
-        old_nb_elts__0AIH=Self__YAIH->capacity__UCS;
-        new__1AIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZAIH),((__UINTEGER_32 )old_nb_elts__0AIH),((__UINTEGER_32 )new_capacity__XAIH)));
-        upper__KJKH=(__INTEGER)(new_capacity__XAIH -  1);
-        Self__IJKH=old_nb_elts__0AIH;
-        while ((Self__IJKH <= upper__KJKH)) {
-          new__1AIH[Self__IJKH]='\0';
-          Self__IJKH=(__INTEGER)(Self__IJKH +  1);
-        };
-        Self__YAIH->storage__3CS=new__1AIH;
-        Self__YAIH->capacity__UCS=new_capacity__XAIH;
-      };
-    };
-    ((__CHARACTER *)Self__YAIH->storage__3CS)[Self__YAIH->count__SGC]=';';
-    Self__YAIH->count__SGC=(__INTEGER)(Self__YAIH->count__SGC +  1);
-    Self__4AIH=((__STRING *)buffer__RJPD);
-    new_capacity__3AIH= 0;
-    if ((Self__4AIH->capacity__UCS <= Self__4AIH->count__SGC)) {
-      if ((Self__4AIH->capacity__UCS ==  0)) {
-        Self__4AIH->capacity__UCS= 32;
-        Self__4AIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__3AIH=(__INTEGER)(Self__4AIH->capacity__UCS <<  1);
-        Self__5AIH=((__CHARACTER *)Self__4AIH->storage__3CS);
-        old_nb_elts__ABIH=Self__4AIH->capacity__UCS;
-        new__BBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5AIH),((__UINTEGER_32 )old_nb_elts__ABIH),((__UINTEGER_32 )new_capacity__3AIH)));
-        upper__PJKH=(__INTEGER)(new_capacity__3AIH -  1);
-        Self__NJKH=old_nb_elts__ABIH;
-        while ((Self__NJKH <= upper__PJKH)) {
-          new__BBIH[Self__NJKH]='\0';
-          Self__NJKH=(__INTEGER)(Self__NJKH +  1);
-        };
-        Self__4AIH->storage__3CS=new__BBIH;
-        Self__4AIH->capacity__UCS=new_capacity__3AIH;
-      };
-    };
-    ((__CHARACTER *)Self__4AIH->storage__3CS)[Self__4AIH->count__SGC]=' ';
-    Self__4AIH->count__SGC=(__INTEGER)(Self__4AIH->count__SGC +  1);
-  };
-  if (((void *)Self__QJPD->type_result__2NN != (void *)NULL)) {
-    __tmp__DKPD=Self__QJPD->type_result__2NN;
-    if (__tmp__DKPD==NULL) {
-      __tmp__EKPD=NULL;
-    } else {
-      switch (((struct ___OBJ *)__tmp__DKPD)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        __tmp__EKPD=NULL;
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        __tmp__EKPD=NULL;
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        __tmp__EKPD=((void *)__tmp__DKPD);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        __tmp__EKPD=NULL;
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        __tmp__EKPD=NULL;
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        __tmp__EKPD=NULL;
-      } break;
-      }
-    };
-    typ_mul__SJPD=__tmp__EKPD;
-    if (((void *)__tmp__EKPD == (void *)NULL)) {
-      __tmp__KKPD=Self__QJPD->type_result__2NN;
-      switch (((struct ___OBJ *)__tmp__KKPD)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        append__3OS(buffer__RJPD,((__ITM_TYPE_PARAMETER *)__tmp__KKPD)->parent_itm_type__VFE.name__GZP);
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        append__3OS(buffer__RJPD,((__ITM_TYPE_SIMPLE *)__tmp__KKPD)->name__GZP);
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        append_in__MHBC(__tmp__KKPD,buffer__RJPD);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        append_in__PJPD(__tmp__KKPD,buffer__RJPD);
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        append_in__TKPD(__tmp__KKPD,buffer__RJPD);
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        Self__EBIH=((__ITM_TYPE_STYLE *)__tmp__KKPD);
-        if (((void *)Self__EBIH->style__PZP != (void *)NULL)) {
-          append__3OS(buffer__RJPD,Self__EBIH->style__PZP);
-          Self__GBIH=((__STRING *)buffer__RJPD);
-          new_capacity__FBIH= 0;
-          if ((Self__GBIH->capacity__UCS <= Self__GBIH->count__SGC)) {
-            if ((Self__GBIH->capacity__UCS ==  0)) {
-              Self__GBIH->capacity__UCS= 32;
-              Self__GBIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__FBIH=(__INTEGER)(Self__GBIH->capacity__UCS <<  1);
-              Self__HBIH=((__CHARACTER *)Self__GBIH->storage__3CS);
-              old_nb_elts__IBIH=Self__GBIH->capacity__UCS;
-              new__JBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HBIH),((__UINTEGER_32 )old_nb_elts__IBIH),((__UINTEGER_32 )new_capacity__FBIH)));
-              upper__UJKH=(__INTEGER)(new_capacity__FBIH -  1);
-              Self__SJKH=old_nb_elts__IBIH;
-              while ((Self__SJKH <= upper__UJKH)) {
-                new__JBIH[Self__SJKH]='\0';
-                Self__SJKH=(__INTEGER)(Self__SJKH +  1);
-              };
-              Self__GBIH->storage__3CS=new__JBIH;
-              Self__GBIH->capacity__UCS=new_capacity__FBIH;
-            };
-          };
-          ((__CHARACTER *)Self__GBIH->storage__3CS)[Self__GBIH->count__SGC]=' ';
-          Self__GBIH->count__SGC=(__INTEGER)(Self__GBIH->count__SGC +  1);
-        };
-        append__3OS(buffer__RJPD,Self__EBIH->parent_itm_type_simple__3SN.name__GZP);
-      } break;
-      };
-    } else {
-      display_raw__MLIC(__tmp__EKPD,buffer__RJPD);
-    };
-  };
-  Self__MBIH=((__STRING *)buffer__RJPD);
-  new_capacity__LBIH= 0;
-  if ((Self__MBIH->capacity__UCS <= Self__MBIH->count__SGC)) {
-    if ((Self__MBIH->capacity__UCS ==  0)) {
-      Self__MBIH->capacity__UCS= 32;
-      Self__MBIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__LBIH=(__INTEGER)(Self__MBIH->capacity__UCS <<  1);
-      Self__NBIH=((__CHARACTER *)Self__MBIH->storage__3CS);
-      old_nb_elts__OBIH=Self__MBIH->capacity__UCS;
-      new__PBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NBIH),((__UINTEGER_32 )old_nb_elts__OBIH),((__UINTEGER_32 )new_capacity__LBIH)));
-      upper__ZJKH=(__INTEGER)(new_capacity__LBIH -  1);
-      Self__XJKH=old_nb_elts__OBIH;
-      while ((Self__XJKH <= upper__ZJKH)) {
-        new__PBIH[Self__XJKH]='\0';
-        Self__XJKH=(__INTEGER)(Self__XJKH +  1);
-      };
-      Self__MBIH->storage__3CS=new__PBIH;
-      Self__MBIH->capacity__UCS=new_capacity__LBIH;
-    };
-  };
-  ((__CHARACTER *)Self__MBIH->storage__3CS)[Self__MBIH->count__SGC]='}';
-  Self__MBIH->count__SGC=(__INTEGER)(Self__MBIH->count__SGC +  1);
-}
-
-static void append_in__TKPD(__ITM_TYPE_GENERIC *Self__UKPD,void *buffer__VKPD)
-// ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  __STRING *Self__SBIH,*Self__YBIH,*Self__ACIH,*Self__GCIH,*Self__MCIH;
-  __STRING *Self__SCIH;
-  __INTEGER new_capacity__RBIH,old_nb_elts__UBIH,upper__4JKH,Self__2JKH;
-  __INTEGER new_capacity__XBIH,old_nb_elts__0BIH,upper__DKKH,Self__BKKH;
-  __INTEGER __tmp__GLPD,Self__Y2UD,new_capacity__5BIH,old_nb_elts__CCIH;
-  __INTEGER upper__IKKH,Self__GKKH,new_capacity__FCIH,old_nb_elts__ICIH;
-  __INTEGER upper__NKKH,Self__LKKH,new_capacity__LCIH,old_nb_elts__OCIH;
-  __INTEGER upper__SKKH,Self__QKKH,new_capacity__RCIH,old_nb_elts__UCIH;
-  __INTEGER upper__XKKH,Self__VKKH;
-  void *__tmp__NLPD,*__tmp__QLPD;
-  __ITM_TYPE_STYLE *Self__4BIH,*Self__SLPD;
-  __CHARACTER *Self__TBIH,*new__VBIH,*Self__ZBIH,*new__1BIH,*Self__BCIH;
-  __CHARACTER *new__DCIH,*Self__HCIH,*new__JCIH,*Self__NCIH,*new__PCIH;
-  __CHARACTER *Self__TCIH,*new__VCIH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__2ARB;
-  if (((void *)Self__UKPD->parent_itm_type_style__4SN.style__PZP != (void *)NULL)) {
-    append__3OS(buffer__VKPD,Self__UKPD->parent_itm_type_style__4SN.style__PZP);
-    Self__SBIH=((__STRING *)buffer__VKPD);
-    new_capacity__RBIH= 0;
-    if ((Self__SBIH->capacity__UCS <= Self__SBIH->count__SGC)) {
-      if ((Self__SBIH->capacity__UCS ==  0)) {
-        Self__SBIH->capacity__UCS= 32;
-        Self__SBIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__RBIH=(__INTEGER)(Self__SBIH->capacity__UCS <<  1);
-        Self__TBIH=((__CHARACTER *)Self__SBIH->storage__3CS);
-        old_nb_elts__UBIH=Self__SBIH->capacity__UCS;
-        new__VBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TBIH),((__UINTEGER_32 )old_nb_elts__UBIH),((__UINTEGER_32 )new_capacity__RBIH)));
-        upper__4JKH=(__INTEGER)(new_capacity__RBIH -  1);
-        Self__2JKH=old_nb_elts__UBIH;
-        while ((Self__2JKH <= upper__4JKH)) {
-          new__VBIH[Self__2JKH]='\0';
-          Self__2JKH=(__INTEGER)(Self__2JKH +  1);
-        };
-        Self__SBIH->storage__3CS=new__VBIH;
-        Self__SBIH->capacity__UCS=new_capacity__RBIH;
-      };
-    };
-    ((__CHARACTER *)Self__SBIH->storage__3CS)[Self__SBIH->count__SGC]=' ';
-    Self__SBIH->count__SGC=(__INTEGER)(Self__SBIH->count__SGC +  1);
-  };
-  append__3OS(buffer__VKPD,Self__UKPD->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP);
-  Self__YBIH=((__STRING *)buffer__VKPD);
-  new_capacity__XBIH= 0;
-  if ((Self__YBIH->capacity__UCS <= Self__YBIH->count__SGC)) {
-    if ((Self__YBIH->capacity__UCS ==  0)) {
-      Self__YBIH->capacity__UCS= 32;
-      Self__YBIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__XBIH=(__INTEGER)(Self__YBIH->capacity__UCS <<  1);
-      Self__ZBIH=((__CHARACTER *)Self__YBIH->storage__3CS);
-      old_nb_elts__0BIH=Self__YBIH->capacity__UCS;
-      new__1BIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZBIH),((__UINTEGER_32 )old_nb_elts__0BIH),((__UINTEGER_32 )new_capacity__XBIH)));
-      upper__DKKH=(__INTEGER)(new_capacity__XBIH -  1);
-      Self__BKKH=old_nb_elts__0BIH;
-      while ((Self__BKKH <= upper__DKKH)) {
-        new__1BIH[Self__BKKH]='\0';
-        Self__BKKH=(__INTEGER)(Self__BKKH +  1);
-      };
-      Self__YBIH->storage__3CS=new__1BIH;
-      Self__YBIH->capacity__UCS=new_capacity__XBIH;
-    };
-  };
-  ((__CHARACTER *)Self__YBIH->storage__3CS)[Self__YBIH->count__SGC]='(';
-  Self__YBIH->count__SGC=(__INTEGER)(Self__YBIH->count__SGC +  1);
-  __tmp__GLPD=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__UKPD->list_type__ZZP)->parent_arrayed_collection__SYC.upper__4HV -  1);
-  Self__Y2UD= 0;
-  while ((Self__Y2UD <= __tmp__GLPD)) {
-    __tmp__NLPD=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__UKPD->list_type__ZZP)->parent_arrayed_collection__SYC.storage__FMV)[Self__Y2UD];
-    switch (((struct ___OBJ *)__tmp__NLPD)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__3OS(buffer__VKPD,((__ITM_TYPE_PARAMETER *)__tmp__NLPD)->parent_itm_type__VFE.name__GZP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__3OS(buffer__VKPD,((__ITM_TYPE_SIMPLE *)__tmp__NLPD)->name__GZP);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__PJPD(__tmp__NLPD,buffer__VKPD);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__TKPD(__tmp__NLPD,buffer__VKPD);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__4BIH=((__ITM_TYPE_STYLE *)__tmp__NLPD);
-      if (((void *)Self__4BIH->style__PZP != (void *)NULL)) {
-        append__3OS(buffer__VKPD,Self__4BIH->style__PZP);
-        Self__ACIH=((__STRING *)buffer__VKPD);
-        new_capacity__5BIH= 0;
-        if ((Self__ACIH->capacity__UCS <= Self__ACIH->count__SGC)) {
-          if ((Self__ACIH->capacity__UCS ==  0)) {
-            Self__ACIH->capacity__UCS= 32;
-            Self__ACIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__5BIH=(__INTEGER)(Self__ACIH->capacity__UCS <<  1);
-            Self__BCIH=((__CHARACTER *)Self__ACIH->storage__3CS);
-            old_nb_elts__CCIH=Self__ACIH->capacity__UCS;
-            new__DCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BCIH),((__UINTEGER_32 )old_nb_elts__CCIH),((__UINTEGER_32 )new_capacity__5BIH)));
-            upper__IKKH=(__INTEGER)(new_capacity__5BIH -  1);
-            Self__GKKH=old_nb_elts__CCIH;
-            while ((Self__GKKH <= upper__IKKH)) {
-              new__DCIH[Self__GKKH]='\0';
-              Self__GKKH=(__INTEGER)(Self__GKKH +  1);
-            };
-            Self__ACIH->storage__3CS=new__DCIH;
-            Self__ACIH->capacity__UCS=new_capacity__5BIH;
-          };
-        };
-        ((__CHARACTER *)Self__ACIH->storage__3CS)[Self__ACIH->count__SGC]=' ';
-        Self__ACIH->count__SGC=(__INTEGER)(Self__ACIH->count__SGC +  1);
-      };
-      append__3OS(buffer__VKPD,Self__4BIH->parent_itm_type_simple__3SN.name__GZP);
-    } break;
-    };
-    Self__GCIH=((__STRING *)buffer__VKPD);
-    new_capacity__FCIH= 0;
-    if ((Self__GCIH->capacity__UCS <= Self__GCIH->count__SGC)) {
-      if ((Self__GCIH->capacity__UCS ==  0)) {
-        Self__GCIH->capacity__UCS= 32;
-        Self__GCIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__FCIH=(__INTEGER)(Self__GCIH->capacity__UCS <<  1);
-        Self__HCIH=((__CHARACTER *)Self__GCIH->storage__3CS);
-        old_nb_elts__ICIH=Self__GCIH->capacity__UCS;
-        new__JCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HCIH),((__UINTEGER_32 )old_nb_elts__ICIH),((__UINTEGER_32 )new_capacity__FCIH)));
-        upper__NKKH=(__INTEGER)(new_capacity__FCIH -  1);
-        Self__LKKH=old_nb_elts__ICIH;
-        while ((Self__LKKH <= upper__NKKH)) {
-          new__JCIH[Self__LKKH]='\0';
-          Self__LKKH=(__INTEGER)(Self__LKKH +  1);
-        };
-        Self__GCIH->storage__3CS=new__JCIH;
-        Self__GCIH->capacity__UCS=new_capacity__FCIH;
-      };
-    };
-    ((__CHARACTER *)Self__GCIH->storage__3CS)[Self__GCIH->count__SGC]=',';
-    Self__GCIH->count__SGC=(__INTEGER)(Self__GCIH->count__SGC +  1);
-    Self__Y2UD=(__INTEGER)(Self__Y2UD +  1);
-  };
-  Self__2ARB=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__UKPD->list_type__ZZP);
-  __tmp__QLPD=((void **)Self__2ARB->parent_arrayed_collection__SYC.storage__FMV)[Self__2ARB->parent_arrayed_collection__SYC.upper__4HV];
-  switch (((struct ___OBJ *)__tmp__QLPD)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    append__3OS(buffer__VKPD,((__ITM_TYPE_PARAMETER *)__tmp__QLPD)->parent_itm_type__VFE.name__GZP);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    append__3OS(buffer__VKPD,((__ITM_TYPE_SIMPLE *)__tmp__QLPD)->name__GZP);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    append_in__PJPD(__tmp__QLPD,buffer__VKPD);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    append_in__TKPD(__tmp__QLPD,buffer__VKPD);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__SLPD=((__ITM_TYPE_STYLE *)__tmp__QLPD);
-    if (((void *)Self__SLPD->style__PZP != (void *)NULL)) {
-      append__3OS(buffer__VKPD,Self__SLPD->style__PZP);
-      Self__MCIH=((__STRING *)buffer__VKPD);
-      new_capacity__LCIH= 0;
-      if ((Self__MCIH->capacity__UCS <= Self__MCIH->count__SGC)) {
-        if ((Self__MCIH->capacity__UCS ==  0)) {
-          Self__MCIH->capacity__UCS= 32;
-          Self__MCIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__LCIH=(__INTEGER)(Self__MCIH->capacity__UCS <<  1);
-          Self__NCIH=((__CHARACTER *)Self__MCIH->storage__3CS);
-          old_nb_elts__OCIH=Self__MCIH->capacity__UCS;
-          new__PCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NCIH),((__UINTEGER_32 )old_nb_elts__OCIH),((__UINTEGER_32 )new_capacity__LCIH)));
-          upper__SKKH=(__INTEGER)(new_capacity__LCIH -  1);
-          Self__QKKH=old_nb_elts__OCIH;
-          while ((Self__QKKH <= upper__SKKH)) {
-            new__PCIH[Self__QKKH]='\0';
-            Self__QKKH=(__INTEGER)(Self__QKKH +  1);
-          };
-          Self__MCIH->storage__3CS=new__PCIH;
-          Self__MCIH->capacity__UCS=new_capacity__LCIH;
-        };
-      };
-      ((__CHARACTER *)Self__MCIH->storage__3CS)[Self__MCIH->count__SGC]=' ';
-      Self__MCIH->count__SGC=(__INTEGER)(Self__MCIH->count__SGC +  1);
-    };
-    append__3OS(buffer__VKPD,Self__SLPD->parent_itm_type_simple__3SN.name__GZP);
-  } break;
-  };
-  Self__SCIH=((__STRING *)buffer__VKPD);
-  new_capacity__RCIH= 0;
-  if ((Self__SCIH->capacity__UCS <= Self__SCIH->count__SGC)) {
-    if ((Self__SCIH->capacity__UCS ==  0)) {
-      Self__SCIH->capacity__UCS= 32;
-      Self__SCIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__RCIH=(__INTEGER)(Self__SCIH->capacity__UCS <<  1);
-      Self__TCIH=((__CHARACTER *)Self__SCIH->storage__3CS);
-      old_nb_elts__UCIH=Self__SCIH->capacity__UCS;
-      new__VCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TCIH),((__UINTEGER_32 )old_nb_elts__UCIH),((__UINTEGER_32 )new_capacity__RCIH)));
-      upper__XKKH=(__INTEGER)(new_capacity__RCIH -  1);
-      Self__VKKH=old_nb_elts__UCIH;
-      while ((Self__VKKH <= upper__XKKH)) {
-        new__VCIH[Self__VKKH]='\0';
-        Self__VKKH=(__INTEGER)(Self__VKKH +  1);
-      };
-      Self__SCIH->storage__3CS=new__VCIH;
-      Self__SCIH->capacity__UCS=new_capacity__RCIH;
-    };
-  };
-  ((__CHARACTER *)Self__SCIH->storage__3CS)[Self__SCIH->count__SGC]=')';
-  Self__SCIH->count__SGC=(__INTEGER)(Self__SCIH->count__SGC +  1);
-}
-
-static void put__to__like__JNBG(void *tok__LNBG,void *buf__MNBG,void *key__NNBG)
-// ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__4NBG,Self__KPHG;
-  void *lst__ONBG;
-  lst__ONBG=NULL;
-  if (((void *)key__NNBG != (void *)NULL)) {
-    lst__ONBG=fast_reference_at__CMNE(short_dico__QD,key__NNBG);
-    if (((void *)lst__ONBG != (void *)NULL)) {
-      __tmp__4NBG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ONBG)->parent_linked_collection__LD.upper__0ED;
-      Self__KPHG= 1;
-      while ((Self__KPHG <= __tmp__4NBG)) {
-        if (((void *)item__X3ND(lst__ONBG,Self__KPHG) == (void *)NULL)) {
-          append__3OS(buf__MNBG,tok__LNBG);
-        } else {
-          append__3OS(buf__MNBG,item__X3ND(lst__ONBG,Self__KPHG));
-        };
-        Self__KPHG=(__INTEGER)(Self__KPHG +  1);
-      };
-    };
-  };
-}
-
-static void shorter_in__KKBG(__ITM_ARG *Self__LKBG,void *buf__MKBG)
-// ({ITM_ARG},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __STRING *Self__YCIH,*Self__ADIH;
-  __INTEGER new_capacity__XCIH,old_nb_elts__0CIH,upper__2KKH,Self__0KKH;
-  __INTEGER new_capacity__5CIH,old_nb_elts__CDIH,upper__BLKH,Self__5KKH;
-  void *__tmp__ALBG;
-  __ITM_TYPE_STYLE *Self__3CIH;
-  __CHARACTER *Self__ZCIH,*new__1CIH,*Self__BDIH,*new__DDIH;
-  if (((void *)Self__LKBG->name__F0HC == (void *)(&__string_58))) {
-    put__to__like__URGG(Self__LKBG->name__F0HC,buf__MKBG,(&__string_119));
-  } else {
-    put__to__like__URGG(Self__LKBG->name__F0HC,buf__MKBG,(&__string_134));
-  };
-  Self__YCIH=((__STRING *)buf__MKBG);
-  new_capacity__XCIH= 0;
-  if ((Self__YCIH->capacity__UCS <= Self__YCIH->count__SGC)) {
-    if ((Self__YCIH->capacity__UCS ==  0)) {
-      Self__YCIH->capacity__UCS= 32;
-      Self__YCIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__XCIH=(__INTEGER)(Self__YCIH->capacity__UCS <<  1);
-      Self__ZCIH=((__CHARACTER *)Self__YCIH->storage__3CS);
-      old_nb_elts__0CIH=Self__YCIH->capacity__UCS;
-      new__1CIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZCIH),((__UINTEGER_32 )old_nb_elts__0CIH),((__UINTEGER_32 )new_capacity__XCIH)));
-      upper__2KKH=(__INTEGER)(new_capacity__XCIH -  1);
-      Self__0KKH=old_nb_elts__0CIH;
-      while ((Self__0KKH <= upper__2KKH)) {
-        new__1CIH[Self__0KKH]='\0';
-        Self__0KKH=(__INTEGER)(Self__0KKH +  1);
-      };
-      Self__YCIH->storage__3CS=new__1CIH;
-      Self__YCIH->capacity__UCS=new_capacity__XCIH;
-    };
-  };
-  ((__CHARACTER *)Self__YCIH->storage__3CS)[Self__YCIH->count__SGC]=':';
-  Self__YCIH->count__SGC=(__INTEGER)(Self__YCIH->count__SGC +  1);
-  __tmp__ALBG=Self__LKBG->type__G0HC;
-  switch (((struct ___OBJ *)__tmp__ALBG)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    shorter_in__0TDG(__tmp__ALBG,buf__MKBG);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    shorter_in__LUDG(__tmp__ALBG,buf__MKBG);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    shorter_in__2UDG(__tmp__ALBG,buf__MKBG);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    shorter_in__EWDG(__tmp__ALBG,buf__MKBG);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__3CIH=((__ITM_TYPE_STYLE *)__tmp__ALBG);
-    if (((void *)Self__3CIH->style__PZP != (void *)NULL)) {
-      put__to__like__I0FG(Self__3CIH->style__PZP,buf__MKBG,(&__string_119));
-      Self__ADIH=((__STRING *)buf__MKBG);
-      new_capacity__5CIH= 0;
-      if ((Self__ADIH->capacity__UCS <= Self__ADIH->count__SGC)) {
-        if ((Self__ADIH->capacity__UCS ==  0)) {
-          Self__ADIH->capacity__UCS= 32;
-          Self__ADIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__5CIH=(__INTEGER)(Self__ADIH->capacity__UCS <<  1);
-          Self__BDIH=((__CHARACTER *)Self__ADIH->storage__3CS);
-          old_nb_elts__CDIH=Self__ADIH->capacity__UCS;
-          new__DDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BDIH),((__UINTEGER_32 )old_nb_elts__CDIH),((__UINTEGER_32 )new_capacity__5CIH)));
-          upper__BLKH=(__INTEGER)(new_capacity__5CIH -  1);
-          Self__5KKH=old_nb_elts__CDIH;
-          while ((Self__5KKH <= upper__BLKH)) {
-            new__DDIH[Self__5KKH]='\0';
-            Self__5KKH=(__INTEGER)(Self__5KKH +  1);
-          };
-          Self__ADIH->storage__3CS=new__DDIH;
-          Self__ADIH->capacity__UCS=new_capacity__5CIH;
-        };
-      };
-      ((__CHARACTER *)Self__ADIH->storage__3CS)[Self__ADIH->count__SGC]=' ';
-      Self__ADIH->count__SGC=(__INTEGER)(Self__ADIH->count__SGC +  1);
-    };
-    put__to__like__I0FG(Self__3CIH->parent_itm_type_simple__3SN.name__GZP,buf__MKBG,(&__string_125));
-  } break;
-  };
-}
-
-static void shorter_in__BLBG(__ITM_ARGS *Self__CLBG,void *buf__DLBG)
-// ({ITM_ARGS},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __STRING *Self__GDIH,*Self__MDIH,*Self__UDIH,*Self__0DIH,*Self__AEIH;
-  __STRING *Self__IEIH,*Self__OEIH;
-  __INTEGER new_capacity__FDIH,old_nb_elts__IDIH,upper__GLKH,Self__ELKH;
-  __INTEGER __tmp__KLBG,Self__1XDG,new_capacity__LDIH,old_nb_elts__ODIH;
-  __INTEGER upper__LLKH,Self__JLKH,new_capacity__TDIH,old_nb_elts__WDIH;
-  __INTEGER upper__QLKH,Self__OLKH,new_capacity__ZDIH,old_nb_elts__2DIH;
-  __INTEGER upper__VLKH,Self__TLKH,new_capacity__5DIH,old_nb_elts__CEIH;
-  __INTEGER upper__0LKH,Self__YLKH,new_capacity__HEIH,old_nb_elts__KEIH;
-  __INTEGER upper__5LKH,Self__3LKH,new_capacity__NEIH,old_nb_elts__QEIH;
-  __INTEGER upper__EMKH,Self__CMKH;
-  void *__tmp__JMBG,*__tmp__RMBG;
-  __ITM_TYPE_STYLE *Self__RDIH,*Self__FEIH;
-  __CHARACTER *Self__HDIH,*new__JDIH,*Self__NDIH,*new__PDIH,*Self__VDIH;
-  __CHARACTER *new__XDIH,*Self__1DIH,*new__3DIH,*Self__BEIH,*new__DEIH;
-  __CHARACTER *Self__JEIH,*new__LEIH,*Self__PEIH,*new__REIH;
-  __FAST_ARRAYoSTRING_CONSTANTo *Self__C4GH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__E1FH;
-  Self__GDIH=((__STRING *)buf__DLBG);
-  new_capacity__FDIH= 0;
-  if ((Self__GDIH->capacity__UCS <= Self__GDIH->count__SGC)) {
-    if ((Self__GDIH->capacity__UCS ==  0)) {
-      Self__GDIH->capacity__UCS= 32;
-      Self__GDIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__FDIH=(__INTEGER)(Self__GDIH->capacity__UCS <<  1);
-      Self__HDIH=((__CHARACTER *)Self__GDIH->storage__3CS);
-      old_nb_elts__IDIH=Self__GDIH->capacity__UCS;
-      new__JDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HDIH),((__UINTEGER_32 )old_nb_elts__IDIH),((__UINTEGER_32 )new_capacity__FDIH)));
-      upper__GLKH=(__INTEGER)(new_capacity__FDIH -  1);
-      Self__ELKH=old_nb_elts__IDIH;
-      while ((Self__ELKH <= upper__GLKH)) {
-        new__JDIH[Self__ELKH]='\0';
-        Self__ELKH=(__INTEGER)(Self__ELKH +  1);
-      };
-      Self__GDIH->storage__3CS=new__JDIH;
-      Self__GDIH->capacity__UCS=new_capacity__FDIH;
-    };
-  };
-  ((__CHARACTER *)Self__GDIH->storage__3CS)[Self__GDIH->count__SGC]='(';
-  Self__GDIH->count__SGC=(__INTEGER)(Self__GDIH->count__SGC +  1);
-  __tmp__KLBG=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.upper__2CPD -  1);
-  Self__1XDG= 0;
-  while ((Self__1XDG <= __tmp__KLBG)) {
-    if (((void *)((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__1XDG] == (void *)(&__string_58))) {
-      put__to__like__NYDG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__1XDG],buf__DLBG,(&__string_119));
-    } else {
-      put__to__like__NYDG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__1XDG],buf__DLBG,(&__string_134));
-    };
-    Self__MDIH=((__STRING *)buf__DLBG);
-    new_capacity__LDIH= 0;
-    if ((Self__MDIH->capacity__UCS <= Self__MDIH->count__SGC)) {
-      if ((Self__MDIH->capacity__UCS ==  0)) {
-        Self__MDIH->capacity__UCS= 32;
-        Self__MDIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__LDIH=(__INTEGER)(Self__MDIH->capacity__UCS <<  1);
-        Self__NDIH=((__CHARACTER *)Self__MDIH->storage__3CS);
-        old_nb_elts__ODIH=Self__MDIH->capacity__UCS;
-        new__PDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NDIH),((__UINTEGER_32 )old_nb_elts__ODIH),((__UINTEGER_32 )new_capacity__LDIH)));
-        upper__LLKH=(__INTEGER)(new_capacity__LDIH -  1);
-        Self__JLKH=old_nb_elts__ODIH;
-        while ((Self__JLKH <= upper__LLKH)) {
-          new__PDIH[Self__JLKH]='\0';
-          Self__JLKH=(__INTEGER)(Self__JLKH +  1);
-        };
-        Self__MDIH->storage__3CS=new__PDIH;
-        Self__MDIH->capacity__UCS=new_capacity__LDIH;
-      };
-    };
-    ((__CHARACTER *)Self__MDIH->storage__3CS)[Self__MDIH->count__SGC]=':';
-    Self__MDIH->count__SGC=(__INTEGER)(Self__MDIH->count__SGC +  1);
-    __tmp__JMBG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__CLBG->type__YDQF)->list_type__2KP)->parent_arrayed_collection__SYC.storage__FMV)[Self__1XDG];
-    switch (((struct ___OBJ *)__tmp__JMBG)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      shorter_in__0TDG(__tmp__JMBG,buf__DLBG);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      shorter_in__LUDG(__tmp__JMBG,buf__DLBG);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      shorter_in__2UDG(__tmp__JMBG,buf__DLBG);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      shorter_in__EWDG(__tmp__JMBG,buf__DLBG);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__RDIH=((__ITM_TYPE_STYLE *)__tmp__JMBG);
-      if (((void *)Self__RDIH->style__PZP != (void *)NULL)) {
-        put__to__like__I0FG(Self__RDIH->style__PZP,buf__DLBG,(&__string_119));
-        Self__UDIH=((__STRING *)buf__DLBG);
-        new_capacity__TDIH= 0;
-        if ((Self__UDIH->capacity__UCS <= Self__UDIH->count__SGC)) {
-          if ((Self__UDIH->capacity__UCS ==  0)) {
-            Self__UDIH->capacity__UCS= 32;
-            Self__UDIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__TDIH=(__INTEGER)(Self__UDIH->capacity__UCS <<  1);
-            Self__VDIH=((__CHARACTER *)Self__UDIH->storage__3CS);
-            old_nb_elts__WDIH=Self__UDIH->capacity__UCS;
-            new__XDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VDIH),((__UINTEGER_32 )old_nb_elts__WDIH),((__UINTEGER_32 )new_capacity__TDIH)));
-            upper__QLKH=(__INTEGER)(new_capacity__TDIH -  1);
-            Self__OLKH=old_nb_elts__WDIH;
-            while ((Self__OLKH <= upper__QLKH)) {
-              new__XDIH[Self__OLKH]='\0';
-              Self__OLKH=(__INTEGER)(Self__OLKH +  1);
-            };
-            Self__UDIH->storage__3CS=new__XDIH;
-            Self__UDIH->capacity__UCS=new_capacity__TDIH;
-          };
-        };
-        ((__CHARACTER *)Self__UDIH->storage__3CS)[Self__UDIH->count__SGC]=' ';
-        Self__UDIH->count__SGC=(__INTEGER)(Self__UDIH->count__SGC +  1);
-      };
-      put__to__like__I0FG(Self__RDIH->parent_itm_type_simple__3SN.name__GZP,buf__DLBG,(&__string_125));
-    } break;
-    };
-    Self__0DIH=((__STRING *)buf__DLBG);
-    new_capacity__ZDIH= 0;
-    if ((Self__0DIH->capacity__UCS <= Self__0DIH->count__SGC)) {
-      if ((Self__0DIH->capacity__UCS ==  0)) {
-        Self__0DIH->capacity__UCS= 32;
-        Self__0DIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__ZDIH=(__INTEGER)(Self__0DIH->capacity__UCS <<  1);
-        Self__1DIH=((__CHARACTER *)Self__0DIH->storage__3CS);
-        old_nb_elts__2DIH=Self__0DIH->capacity__UCS;
-        new__3DIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1DIH),((__UINTEGER_32 )old_nb_elts__2DIH),((__UINTEGER_32 )new_capacity__ZDIH)));
-        upper__VLKH=(__INTEGER)(new_capacity__ZDIH -  1);
-        Self__TLKH=old_nb_elts__2DIH;
-        while ((Self__TLKH <= upper__VLKH)) {
-          new__3DIH[Self__TLKH]='\0';
-          Self__TLKH=(__INTEGER)(Self__TLKH +  1);
-        };
-        Self__0DIH->storage__3CS=new__3DIH;
-        Self__0DIH->capacity__UCS=new_capacity__ZDIH;
-      };
-    };
-    ((__CHARACTER *)Self__0DIH->storage__3CS)[Self__0DIH->count__SGC]=',';
-    Self__0DIH->count__SGC=(__INTEGER)(Self__0DIH->count__SGC +  1);
-    Self__1XDG=(__INTEGER)(Self__1XDG +  1);
-  };
-  Self__C4GH=((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF);
-  put__to__like__NYDG(((void **)Self__C4GH->parent_arrayed_collection__MBJ.storage__SFPD)[Self__C4GH->parent_arrayed_collection__MBJ.upper__2CPD],buf__DLBG,(&__string_134));
-  Self__AEIH=((__STRING *)buf__DLBG);
-  new_capacity__5DIH= 0;
-  if ((Self__AEIH->capacity__UCS <= Self__AEIH->count__SGC)) {
-    if ((Self__AEIH->capacity__UCS ==  0)) {
-      Self__AEIH->capacity__UCS= 32;
-      Self__AEIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__5DIH=(__INTEGER)(Self__AEIH->capacity__UCS <<  1);
-      Self__BEIH=((__CHARACTER *)Self__AEIH->storage__3CS);
-      old_nb_elts__CEIH=Self__AEIH->capacity__UCS;
-      new__DEIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BEIH),((__UINTEGER_32 )old_nb_elts__CEIH),((__UINTEGER_32 )new_capacity__5DIH)));
-      upper__0LKH=(__INTEGER)(new_capacity__5DIH -  1);
-      Self__YLKH=old_nb_elts__CEIH;
-      while ((Self__YLKH <= upper__0LKH)) {
-        new__DEIH[Self__YLKH]='\0';
-        Self__YLKH=(__INTEGER)(Self__YLKH +  1);
-      };
-      Self__AEIH->storage__3CS=new__DEIH;
-      Self__AEIH->capacity__UCS=new_capacity__5DIH;
-    };
-  };
-  ((__CHARACTER *)Self__AEIH->storage__3CS)[Self__AEIH->count__SGC]=':';
-  Self__AEIH->count__SGC=(__INTEGER)(Self__AEIH->count__SGC +  1);
-  Self__E1FH=((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__CLBG->type__YDQF)->list_type__2KP);
-  __tmp__RMBG=((void **)Self__E1FH->parent_arrayed_collection__SYC.storage__FMV)[Self__E1FH->parent_arrayed_collection__SYC.upper__4HV];
-  switch (((struct ___OBJ *)__tmp__RMBG)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    shorter_in__0TDG(__tmp__RMBG,buf__DLBG);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    shorter_in__LUDG(__tmp__RMBG,buf__DLBG);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    shorter_in__2UDG(__tmp__RMBG,buf__DLBG);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    shorter_in__EWDG(__tmp__RMBG,buf__DLBG);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__FEIH=((__ITM_TYPE_STYLE *)__tmp__RMBG);
-    if (((void *)Self__FEIH->style__PZP != (void *)NULL)) {
-      put__to__like__I0FG(Self__FEIH->style__PZP,buf__DLBG,(&__string_119));
-      Self__IEIH=((__STRING *)buf__DLBG);
-      new_capacity__HEIH= 0;
-      if ((Self__IEIH->capacity__UCS <= Self__IEIH->count__SGC)) {
-        if ((Self__IEIH->capacity__UCS ==  0)) {
-          Self__IEIH->capacity__UCS= 32;
-          Self__IEIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__HEIH=(__INTEGER)(Self__IEIH->capacity__UCS <<  1);
-          Self__JEIH=((__CHARACTER *)Self__IEIH->storage__3CS);
-          old_nb_elts__KEIH=Self__IEIH->capacity__UCS;
-          new__LEIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JEIH),((__UINTEGER_32 )old_nb_elts__KEIH),((__UINTEGER_32 )new_capacity__HEIH)));
-          upper__5LKH=(__INTEGER)(new_capacity__HEIH -  1);
-          Self__3LKH=old_nb_elts__KEIH;
-          while ((Self__3LKH <= upper__5LKH)) {
-            new__LEIH[Self__3LKH]='\0';
-            Self__3LKH=(__INTEGER)(Self__3LKH +  1);
-          };
-          Self__IEIH->storage__3CS=new__LEIH;
-          Self__IEIH->capacity__UCS=new_capacity__HEIH;
-        };
-      };
-      ((__CHARACTER *)Self__IEIH->storage__3CS)[Self__IEIH->count__SGC]=' ';
-      Self__IEIH->count__SGC=(__INTEGER)(Self__IEIH->count__SGC +  1);
-    };
-    put__to__like__I0FG(Self__FEIH->parent_itm_type_simple__3SN.name__GZP,buf__DLBG,(&__string_125));
-  } break;
-  };
-  Self__OEIH=((__STRING *)buf__DLBG);
-  new_capacity__NEIH= 0;
-  if ((Self__OEIH->capacity__UCS <= Self__OEIH->count__SGC)) {
-    if ((Self__OEIH->capacity__UCS ==  0)) {
-      Self__OEIH->capacity__UCS= 32;
-      Self__OEIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__NEIH=(__INTEGER)(Self__OEIH->capacity__UCS <<  1);
-      Self__PEIH=((__CHARACTER *)Self__OEIH->storage__3CS);
-      old_nb_elts__QEIH=Self__OEIH->capacity__UCS;
-      new__REIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PEIH),((__UINTEGER_32 )old_nb_elts__QEIH),((__UINTEGER_32 )new_capacity__NEIH)));
-      upper__EMKH=(__INTEGER)(new_capacity__NEIH -  1);
-      Self__CMKH=old_nb_elts__QEIH;
-      while ((Self__CMKH <= upper__EMKH)) {
-        new__REIH[Self__CMKH]='\0';
-        Self__CMKH=(__INTEGER)(Self__CMKH +  1);
-      };
-      Self__OEIH->storage__3CS=new__REIH;
-      Self__OEIH->capacity__UCS=new_capacity__NEIH;
-    };
-  };
-  ((__CHARACTER *)Self__OEIH->storage__3CS)[Self__OEIH->count__SGC]=')';
-  Self__OEIH->count__SGC=(__INTEGER)(Self__OEIH->count__SGC +  1);
-}
-
-static void shorter_in__0TDG(__ITM_TYPE_PARAMETER *Self__1TDG,void *buf__2TDG)
-// ({ITM_TYPE_PARAMETER},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  void *tok__2RFG;
-  __INTEGER __tmp__PSFG,Self__I5HG;
-  void *lst__5RFG;
-  tok__2RFG=Self__1TDG->parent_itm_type__VFE.name__GZP;
-  lst__5RFG=NULL;
-  if (((void *)(&__string_126) != (void *)NULL)) {
-    lst__5RFG=fast_reference_at__CMNE(short_dico__QD,(&__string_126));
-    if (((void *)lst__5RFG != (void *)NULL)) {
-      __tmp__PSFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__5RFG)->parent_linked_collection__LD.upper__0ED;
-      Self__I5HG= 1;
-      while ((Self__I5HG <= __tmp__PSFG)) {
-        if (((void *)item__X3ND(lst__5RFG,Self__I5HG) == (void *)NULL)) {
-          append__3OS(buf__2TDG,tok__2RFG);
-        } else {
-          append__3OS(buf__2TDG,item__X3ND(lst__5RFG,Self__I5HG));
-        };
-        Self__I5HG=(__INTEGER)(Self__I5HG +  1);
-      };
-    };
-  };
-}
-
-static void shorter_in__LUDG(__ITM_TYPE_SIMPLE *Self__MUDG,void *buf__NUDG)
-// ({ITM_TYPE_SIMPLE},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  void *tok__WTFG;
-  __INTEGER __tmp__JUFG,Self__Z5HG;
-  void *lst__ZTFG;
-  tok__WTFG=Self__MUDG->name__GZP;
-  lst__ZTFG=NULL;
-  if (((void *)(&__string_125) != (void *)NULL)) {
-    lst__ZTFG=fast_reference_at__CMNE(short_dico__QD,(&__string_125));
-    if (((void *)lst__ZTFG != (void *)NULL)) {
-      __tmp__JUFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ZTFG)->parent_linked_collection__LD.upper__0ED;
-      Self__Z5HG= 1;
-      while ((Self__Z5HG <= __tmp__JUFG)) {
-        if (((void *)item__X3ND(lst__ZTFG,Self__Z5HG) == (void *)NULL)) {
-          append__3OS(buf__NUDG,tok__WTFG);
-        } else {
-          append__3OS(buf__NUDG,item__X3ND(lst__ZTFG,Self__Z5HG));
-        };
-        Self__Z5HG=(__INTEGER)(Self__Z5HG +  1);
-      };
-    };
-  };
-}
-
-static void shorter_raw_in__M2FG(__ITM_TYPE_MULTI *Self__N2FG,void *buf__O2FG)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__V2FG,Self__DVGG,new_capacity__VEIH,old_nb_elts__YEIH;
-  __INTEGER upper__JMKH,Self__HMKH,new_capacity__1EIH,old_nb_elts__4EIH;
-  __INTEGER upper__OMKH,Self__MMKH,new_capacity__DFIH,old_nb_elts__GFIH;
-  __INTEGER upper__TMKH,Self__RMKH;
-  void *__tmp__22FG,*__tmp__52FG;
-  __ITM_TYPE_STYLE *Self__TEIH,*Self__BFIH;
-  __STRING *Self__WEIH,*Self__2EIH,*Self__EFIH;
-  __CHARACTER *Self__XEIH,*new__ZEIH,*Self__3EIH,*new__5EIH,*Self__FFIH;
-  __CHARACTER *new__HFIH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__J1FH;
-  __tmp__V2FG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__N2FG->list_type__2KP)->parent_arrayed_collection__SYC.upper__4HV -  1);
-  Self__DVGG= 0;
-  while ((Self__DVGG <= __tmp__V2FG)) {
-    __tmp__22FG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__N2FG->list_type__2KP)->parent_arrayed_collection__SYC.storage__FMV)[Self__DVGG];
-    switch (((struct ___OBJ *)__tmp__22FG)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      shorter_in__0TDG(__tmp__22FG,buf__O2FG);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      shorter_in__LUDG(__tmp__22FG,buf__O2FG);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      shorter_in__2UDG(__tmp__22FG,buf__O2FG);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      shorter_in__EWDG(__tmp__22FG,buf__O2FG);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__TEIH=((__ITM_TYPE_STYLE *)__tmp__22FG);
-      if (((void *)Self__TEIH->style__PZP != (void *)NULL)) {
-        put__to__like__I0FG(Self__TEIH->style__PZP,buf__O2FG,(&__string_119));
-        Self__WEIH=((__STRING *)buf__O2FG);
-        new_capacity__VEIH= 0;
-        if ((Self__WEIH->capacity__UCS <= Self__WEIH->count__SGC)) {
-          if ((Self__WEIH->capacity__UCS ==  0)) {
-            Self__WEIH->capacity__UCS= 32;
-            Self__WEIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__VEIH=(__INTEGER)(Self__WEIH->capacity__UCS <<  1);
-            Self__XEIH=((__CHARACTER *)Self__WEIH->storage__3CS);
-            old_nb_elts__YEIH=Self__WEIH->capacity__UCS;
-            new__ZEIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XEIH),((__UINTEGER_32 )old_nb_elts__YEIH),((__UINTEGER_32 )new_capacity__VEIH)));
-            upper__JMKH=(__INTEGER)(new_capacity__VEIH -  1);
-            Self__HMKH=old_nb_elts__YEIH;
-            while ((Self__HMKH <= upper__JMKH)) {
-              new__ZEIH[Self__HMKH]='\0';
-              Self__HMKH=(__INTEGER)(Self__HMKH +  1);
-            };
-            Self__WEIH->storage__3CS=new__ZEIH;
-            Self__WEIH->capacity__UCS=new_capacity__VEIH;
-          };
-        };
-        ((__CHARACTER *)Self__WEIH->storage__3CS)[Self__WEIH->count__SGC]=' ';
-        Self__WEIH->count__SGC=(__INTEGER)(Self__WEIH->count__SGC +  1);
-      };
-      put__to__like__I0FG(Self__TEIH->parent_itm_type_simple__3SN.name__GZP,buf__O2FG,(&__string_125));
-    } break;
-    };
-    Self__2EIH=((__STRING *)buf__O2FG);
-    new_capacity__1EIH= 0;
-    if ((Self__2EIH->capacity__UCS <= Self__2EIH->count__SGC)) {
-      if ((Self__2EIH->capacity__UCS ==  0)) {
-        Self__2EIH->capacity__UCS= 32;
-        Self__2EIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__1EIH=(__INTEGER)(Self__2EIH->capacity__UCS <<  1);
-        Self__3EIH=((__CHARACTER *)Self__2EIH->storage__3CS);
-        old_nb_elts__4EIH=Self__2EIH->capacity__UCS;
-        new__5EIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3EIH),((__UINTEGER_32 )old_nb_elts__4EIH),((__UINTEGER_32 )new_capacity__1EIH)));
-        upper__OMKH=(__INTEGER)(new_capacity__1EIH -  1);
-        Self__MMKH=old_nb_elts__4EIH;
-        while ((Self__MMKH <= upper__OMKH)) {
-          new__5EIH[Self__MMKH]='\0';
-          Self__MMKH=(__INTEGER)(Self__MMKH +  1);
-        };
-        Self__2EIH->storage__3CS=new__5EIH;
-        Self__2EIH->capacity__UCS=new_capacity__1EIH;
-      };
-    };
-    ((__CHARACTER *)Self__2EIH->storage__3CS)[Self__2EIH->count__SGC]=',';
-    Self__2EIH->count__SGC=(__INTEGER)(Self__2EIH->count__SGC +  1);
-    Self__DVGG=(__INTEGER)(Self__DVGG +  1);
-  };
-  Self__J1FH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__N2FG->list_type__2KP);
-  __tmp__52FG=((void **)Self__J1FH->parent_arrayed_collection__SYC.storage__FMV)[Self__J1FH->parent_arrayed_collection__SYC.upper__4HV];
-  switch (((struct ___OBJ *)__tmp__52FG)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    shorter_in__0TDG(__tmp__52FG,buf__O2FG);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    shorter_in__LUDG(__tmp__52FG,buf__O2FG);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    shorter_in__2UDG(__tmp__52FG,buf__O2FG);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    shorter_in__EWDG(__tmp__52FG,buf__O2FG);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__BFIH=((__ITM_TYPE_STYLE *)__tmp__52FG);
-    if (((void *)Self__BFIH->style__PZP != (void *)NULL)) {
-      put__to__like__I0FG(Self__BFIH->style__PZP,buf__O2FG,(&__string_119));
-      Self__EFIH=((__STRING *)buf__O2FG);
-      new_capacity__DFIH= 0;
-      if ((Self__EFIH->capacity__UCS <= Self__EFIH->count__SGC)) {
-        if ((Self__EFIH->capacity__UCS ==  0)) {
-          Self__EFIH->capacity__UCS= 32;
-          Self__EFIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__DFIH=(__INTEGER)(Self__EFIH->capacity__UCS <<  1);
-          Self__FFIH=((__CHARACTER *)Self__EFIH->storage__3CS);
-          old_nb_elts__GFIH=Self__EFIH->capacity__UCS;
-          new__HFIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FFIH),((__UINTEGER_32 )old_nb_elts__GFIH),((__UINTEGER_32 )new_capacity__DFIH)));
-          upper__TMKH=(__INTEGER)(new_capacity__DFIH -  1);
-          Self__RMKH=old_nb_elts__GFIH;
-          while ((Self__RMKH <= upper__TMKH)) {
-            new__HFIH[Self__RMKH]='\0';
-            Self__RMKH=(__INTEGER)(Self__RMKH +  1);
-          };
-          Self__EFIH->storage__3CS=new__HFIH;
-          Self__EFIH->capacity__UCS=new_capacity__DFIH;
-        };
-      };
-      ((__CHARACTER *)Self__EFIH->storage__3CS)[Self__EFIH->count__SGC]=' ';
-      Self__EFIH->count__SGC=(__INTEGER)(Self__EFIH->count__SGC +  1);
-    };
-    put__to__like__I0FG(Self__BFIH->parent_itm_type_simple__3SN.name__GZP,buf__O2FG,(&__string_125));
-  } break;
-  };
-}
-
-static void shorter_in__2UDG(__ITM_TYPE_BLOCK *Self__3UDG,void *buf__4UDG)
-// ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  void *typ_mul__5UDG,*__tmp__TVDG;
-  void *__tmp__IVDG,*__tmp__SVDG,*__tmp__ZVDG;
-  __ITM_TYPE_MULTI *Self__OTYG,*Self__QTYG;
-  __STRING *Self__KFIH,*Self__QFIH,*Self__YFIH,*Self__4FIH,*Self__EGIH;
-  __STRING *Self__KGIH,*Self__QGIH,*Self__YGIH;
-  __INTEGER new_capacity__JFIH,old_nb_elts__MFIH,upper__YMKH,Self__WMKH;
-  __INTEGER new_capacity__PFIH,old_nb_elts__SFIH,upper__3MKH,Self__1MKH;
-  __INTEGER new_capacity__XFIH,old_nb_elts__0FIH,upper__CNKH,Self__ANKH;
-  __INTEGER new_capacity__3FIH,old_nb_elts__AGIH,upper__HNKH,Self__FNKH;
-  __INTEGER new_capacity__DGIH,old_nb_elts__GGIH,upper__MNKH,Self__KNKH;
-  __INTEGER new_capacity__JGIH,old_nb_elts__MGIH,upper__RNKH,Self__PNKH;
-  __INTEGER new_capacity__PGIH,old_nb_elts__SGIH,upper__WNKH,Self__UNKH;
-  __INTEGER new_capacity__XGIH,old_nb_elts__0GIH,upper__1NKH,Self__ZNKH;
-  __ITM_TYPE_STYLE *Self__VFIH,*Self__VGIH;
-  __CHARACTER *Self__LFIH,*new__NFIH,*Self__RFIH,*new__TFIH,*Self__ZFIH;
-  __CHARACTER *new__1FIH,*Self__5FIH,*new__BGIH,*Self__FGIH,*new__HGIH;
-  __CHARACTER *Self__LGIH,*new__NGIH,*Self__RGIH,*new__TGIH,*Self__ZGIH;
-  __CHARACTER *new__1GIH;
-  typ_mul__5UDG=NULL;
-  put__to__like__GVFG((&__string_299),buf__4UDG);
-  if (((void *)Self__3UDG->type_argument__SNN != (void *)NULL)) {
-    __tmp__IVDG=Self__3UDG->type_argument__SNN;
-    switch (((struct ___OBJ *)__tmp__IVDG)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      shorter_in__0TDG(__tmp__IVDG,buf__4UDG);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      shorter_in__LUDG(__tmp__IVDG,buf__4UDG);
-    } break;
-    case __ITM_TYPE_MULTI__: {
-      Self__OTYG=((__ITM_TYPE_MULTI *)__tmp__IVDG);
-      Self__KFIH=((__STRING *)buf__4UDG);
-      new_capacity__JFIH= 0;
-      if ((Self__KFIH->capacity__UCS <= Self__KFIH->count__SGC)) {
-        if ((Self__KFIH->capacity__UCS ==  0)) {
-          Self__KFIH->capacity__UCS= 32;
-          Self__KFIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__JFIH=(__INTEGER)(Self__KFIH->capacity__UCS <<  1);
-          Self__LFIH=((__CHARACTER *)Self__KFIH->storage__3CS);
-          old_nb_elts__MFIH=Self__KFIH->capacity__UCS;
-          new__NFIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LFIH),((__UINTEGER_32 )old_nb_elts__MFIH),((__UINTEGER_32 )new_capacity__JFIH)));
-          upper__YMKH=(__INTEGER)(new_capacity__JFIH -  1);
-          Self__WMKH=old_nb_elts__MFIH;
-          while ((Self__WMKH <= upper__YMKH)) {
-            new__NFIH[Self__WMKH]='\0';
-            Self__WMKH=(__INTEGER)(Self__WMKH +  1);
-          };
-          Self__KFIH->storage__3CS=new__NFIH;
-          Self__KFIH->capacity__UCS=new_capacity__JFIH;
-        };
-      };
-      ((__CHARACTER *)Self__KFIH->storage__3CS)[Self__KFIH->count__SGC]='(';
-      Self__KFIH->count__SGC=(__INTEGER)(Self__KFIH->count__SGC +  1);
-      shorter_raw_in__M2FG(Self__OTYG,buf__4UDG);
-      Self__QFIH=((__STRING *)buf__4UDG);
-      new_capacity__PFIH= 0;
-      if ((Self__QFIH->capacity__UCS <= Self__QFIH->count__SGC)) {
-        if ((Self__QFIH->capacity__UCS ==  0)) {
-          Self__QFIH->capacity__UCS= 32;
-          Self__QFIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__PFIH=(__INTEGER)(Self__QFIH->capacity__UCS <<  1);
-          Self__RFIH=((__CHARACTER *)Self__QFIH->storage__3CS);
-          old_nb_elts__SFIH=Self__QFIH->capacity__UCS;
-          new__TFIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RFIH),((__UINTEGER_32 )old_nb_elts__SFIH),((__UINTEGER_32 )new_capacity__PFIH)));
-          upper__3MKH=(__INTEGER)(new_capacity__PFIH -  1);
-          Self__1MKH=old_nb_elts__SFIH;
-          while ((Self__1MKH <= upper__3MKH)) {
-            new__TFIH[Self__1MKH]='\0';
-            Self__1MKH=(__INTEGER)(Self__1MKH +  1);
-          };
-          Self__QFIH->storage__3CS=new__TFIH;
-          Self__QFIH->capacity__UCS=new_capacity__PFIH;
-        };
-      };
-      ((__CHARACTER *)Self__QFIH->storage__3CS)[Self__QFIH->count__SGC]=')';
-      Self__QFIH->count__SGC=(__INTEGER)(Self__QFIH->count__SGC +  1);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      shorter_in__2UDG(__tmp__IVDG,buf__4UDG);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      shorter_in__EWDG(__tmp__IVDG,buf__4UDG);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__VFIH=((__ITM_TYPE_STYLE *)__tmp__IVDG);
-      if (((void *)Self__VFIH->style__PZP != (void *)NULL)) {
-        put__to__like__I0FG(Self__VFIH->style__PZP,buf__4UDG,(&__string_119));
-        Self__YFIH=((__STRING *)buf__4UDG);
-        new_capacity__XFIH= 0;
-        if ((Self__YFIH->capacity__UCS <= Self__YFIH->count__SGC)) {
-          if ((Self__YFIH->capacity__UCS ==  0)) {
-            Self__YFIH->capacity__UCS= 32;
-            Self__YFIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__XFIH=(__INTEGER)(Self__YFIH->capacity__UCS <<  1);
-            Self__ZFIH=((__CHARACTER *)Self__YFIH->storage__3CS);
-            old_nb_elts__0FIH=Self__YFIH->capacity__UCS;
-            new__1FIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZFIH),((__UINTEGER_32 )old_nb_elts__0FIH),((__UINTEGER_32 )new_capacity__XFIH)));
-            upper__CNKH=(__INTEGER)(new_capacity__XFIH -  1);
-            Self__ANKH=old_nb_elts__0FIH;
-            while ((Self__ANKH <= upper__CNKH)) {
-              new__1FIH[Self__ANKH]='\0';
-              Self__ANKH=(__INTEGER)(Self__ANKH +  1);
-            };
-            Self__YFIH->storage__3CS=new__1FIH;
-            Self__YFIH->capacity__UCS=new_capacity__XFIH;
-          };
-        };
-        ((__CHARACTER *)Self__YFIH->storage__3CS)[Self__YFIH->count__SGC]=' ';
-        Self__YFIH->count__SGC=(__INTEGER)(Self__YFIH->count__SGC +  1);
-      };
-      put__to__like__I0FG(Self__VFIH->parent_itm_type_simple__3SN.name__GZP,buf__4UDG,(&__string_125));
-    } break;
-    };
-    Self__4FIH=((__STRING *)buf__4UDG);
-    new_capacity__3FIH= 0;
-    if ((Self__4FIH->capacity__UCS <= Self__4FIH->count__SGC)) {
-      if ((Self__4FIH->capacity__UCS ==  0)) {
-        Self__4FIH->capacity__UCS= 32;
-        Self__4FIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__3FIH=(__INTEGER)(Self__4FIH->capacity__UCS <<  1);
-        Self__5FIH=((__CHARACTER *)Self__4FIH->storage__3CS);
-        old_nb_elts__AGIH=Self__4FIH->capacity__UCS;
-        new__BGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5FIH),((__UINTEGER_32 )old_nb_elts__AGIH),((__UINTEGER_32 )new_capacity__3FIH)));
-        upper__HNKH=(__INTEGER)(new_capacity__3FIH -  1);
-        Self__FNKH=old_nb_elts__AGIH;
-        while ((Self__FNKH <= upper__HNKH)) {
-          new__BGIH[Self__FNKH]='\0';
-          Self__FNKH=(__INTEGER)(Self__FNKH +  1);
-        };
-        Self__4FIH->storage__3CS=new__BGIH;
-        Self__4FIH->capacity__UCS=new_capacity__3FIH;
-      };
-    };
-    ((__CHARACTER *)Self__4FIH->storage__3CS)[Self__4FIH->count__SGC]=';';
-    Self__4FIH->count__SGC=(__INTEGER)(Self__4FIH->count__SGC +  1);
-    Self__EGIH=((__STRING *)buf__4UDG);
-    new_capacity__DGIH= 0;
-    if ((Self__EGIH->capacity__UCS <= Self__EGIH->count__SGC)) {
-      if ((Self__EGIH->capacity__UCS ==  0)) {
-        Self__EGIH->capacity__UCS= 32;
-        Self__EGIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__DGIH=(__INTEGER)(Self__EGIH->capacity__UCS <<  1);
-        Self__FGIH=((__CHARACTER *)Self__EGIH->storage__3CS);
-        old_nb_elts__GGIH=Self__EGIH->capacity__UCS;
-        new__HGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FGIH),((__UINTEGER_32 )old_nb_elts__GGIH),((__UINTEGER_32 )new_capacity__DGIH)));
-        upper__MNKH=(__INTEGER)(new_capacity__DGIH -  1);
-        Self__KNKH=old_nb_elts__GGIH;
-        while ((Self__KNKH <= upper__MNKH)) {
-          new__HGIH[Self__KNKH]='\0';
-          Self__KNKH=(__INTEGER)(Self__KNKH +  1);
-        };
-        Self__EGIH->storage__3CS=new__HGIH;
-        Self__EGIH->capacity__UCS=new_capacity__DGIH;
-      };
-    };
-    ((__CHARACTER *)Self__EGIH->storage__3CS)[Self__EGIH->count__SGC]=' ';
-    Self__EGIH->count__SGC=(__INTEGER)(Self__EGIH->count__SGC +  1);
-  };
-  if (((void *)Self__3UDG->type_result__2NN != (void *)NULL)) {
-    __tmp__SVDG=Self__3UDG->type_result__2NN;
-    if (__tmp__SVDG==NULL) {
-      __tmp__TVDG=NULL;
-    } else {
-      switch (((struct ___OBJ *)__tmp__SVDG)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        __tmp__TVDG=NULL;
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        __tmp__TVDG=NULL;
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        __tmp__TVDG=((void *)__tmp__SVDG);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        __tmp__TVDG=NULL;
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        __tmp__TVDG=NULL;
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        __tmp__TVDG=NULL;
-      } break;
-      }
-    };
-    typ_mul__5UDG=__tmp__TVDG;
-    if (((void *)__tmp__TVDG == (void *)NULL)) {
-      __tmp__ZVDG=Self__3UDG->type_result__2NN;
-      switch (((struct ___OBJ *)__tmp__ZVDG)->__id) {
-      case __ITM_TYPE_PARAMETER__: {
-        shorter_in__0TDG(__tmp__ZVDG,buf__4UDG);
-      } break;
-      case __ITM_TYPE_SIMPLE__: {
-        shorter_in__LUDG(__tmp__ZVDG,buf__4UDG);
-      } break;
-      case __ITM_TYPE_MULTI__: {
-        Self__QTYG=((__ITM_TYPE_MULTI *)__tmp__ZVDG);
-        Self__KGIH=((__STRING *)buf__4UDG);
-        new_capacity__JGIH= 0;
-        if ((Self__KGIH->capacity__UCS <= Self__KGIH->count__SGC)) {
-          if ((Self__KGIH->capacity__UCS ==  0)) {
-            Self__KGIH->capacity__UCS= 32;
-            Self__KGIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__JGIH=(__INTEGER)(Self__KGIH->capacity__UCS <<  1);
-            Self__LGIH=((__CHARACTER *)Self__KGIH->storage__3CS);
-            old_nb_elts__MGIH=Self__KGIH->capacity__UCS;
-            new__NGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LGIH),((__UINTEGER_32 )old_nb_elts__MGIH),((__UINTEGER_32 )new_capacity__JGIH)));
-            upper__RNKH=(__INTEGER)(new_capacity__JGIH -  1);
-            Self__PNKH=old_nb_elts__MGIH;
-            while ((Self__PNKH <= upper__RNKH)) {
-              new__NGIH[Self__PNKH]='\0';
-              Self__PNKH=(__INTEGER)(Self__PNKH +  1);
-            };
-            Self__KGIH->storage__3CS=new__NGIH;
-            Self__KGIH->capacity__UCS=new_capacity__JGIH;
-          };
-        };
-        ((__CHARACTER *)Self__KGIH->storage__3CS)[Self__KGIH->count__SGC]='(';
-        Self__KGIH->count__SGC=(__INTEGER)(Self__KGIH->count__SGC +  1);
-        shorter_raw_in__M2FG(Self__QTYG,buf__4UDG);
-        Self__QGIH=((__STRING *)buf__4UDG);
-        new_capacity__PGIH= 0;
-        if ((Self__QGIH->capacity__UCS <= Self__QGIH->count__SGC)) {
-          if ((Self__QGIH->capacity__UCS ==  0)) {
-            Self__QGIH->capacity__UCS= 32;
-            Self__QGIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__PGIH=(__INTEGER)(Self__QGIH->capacity__UCS <<  1);
-            Self__RGIH=((__CHARACTER *)Self__QGIH->storage__3CS);
-            old_nb_elts__SGIH=Self__QGIH->capacity__UCS;
-            new__TGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RGIH),((__UINTEGER_32 )old_nb_elts__SGIH),((__UINTEGER_32 )new_capacity__PGIH)));
-            upper__WNKH=(__INTEGER)(new_capacity__PGIH -  1);
-            Self__UNKH=old_nb_elts__SGIH;
-            while ((Self__UNKH <= upper__WNKH)) {
-              new__TGIH[Self__UNKH]='\0';
-              Self__UNKH=(__INTEGER)(Self__UNKH +  1);
-            };
-            Self__QGIH->storage__3CS=new__TGIH;
-            Self__QGIH->capacity__UCS=new_capacity__PGIH;
-          };
-        };
-        ((__CHARACTER *)Self__QGIH->storage__3CS)[Self__QGIH->count__SGC]=')';
-        Self__QGIH->count__SGC=(__INTEGER)(Self__QGIH->count__SGC +  1);
-      } break;
-      case __ITM_TYPE_BLOCK__: {
-        shorter_in__2UDG(__tmp__ZVDG,buf__4UDG);
-      } break;
-      case __ITM_TYPE_GENERIC__: {
-        shorter_in__EWDG(__tmp__ZVDG,buf__4UDG);
-      } break;
-      case __ITM_TYPE_STYLE__: {
-        Self__VGIH=((__ITM_TYPE_STYLE *)__tmp__ZVDG);
-        if (((void *)Self__VGIH->style__PZP != (void *)NULL)) {
-          put__to__like__I0FG(Self__VGIH->style__PZP,buf__4UDG,(&__string_119));
-          Self__YGIH=((__STRING *)buf__4UDG);
-          new_capacity__XGIH= 0;
-          if ((Self__YGIH->capacity__UCS <= Self__YGIH->count__SGC)) {
-            if ((Self__YGIH->capacity__UCS ==  0)) {
-              Self__YGIH->capacity__UCS= 32;
-              Self__YGIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__XGIH=(__INTEGER)(Self__YGIH->capacity__UCS <<  1);
-              Self__ZGIH=((__CHARACTER *)Self__YGIH->storage__3CS);
-              old_nb_elts__0GIH=Self__YGIH->capacity__UCS;
-              new__1GIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZGIH),((__UINTEGER_32 )old_nb_elts__0GIH),((__UINTEGER_32 )new_capacity__XGIH)));
-              upper__1NKH=(__INTEGER)(new_capacity__XGIH -  1);
-              Self__ZNKH=old_nb_elts__0GIH;
-              while ((Self__ZNKH <= upper__1NKH)) {
-                new__1GIH[Self__ZNKH]='\0';
-                Self__ZNKH=(__INTEGER)(Self__ZNKH +  1);
-              };
-              Self__YGIH->storage__3CS=new__1GIH;
-              Self__YGIH->capacity__UCS=new_capacity__XGIH;
-            };
-          };
-          ((__CHARACTER *)Self__YGIH->storage__3CS)[Self__YGIH->count__SGC]=' ';
-          Self__YGIH->count__SGC=(__INTEGER)(Self__YGIH->count__SGC +  1);
-        };
-        put__to__like__I0FG(Self__VGIH->parent_itm_type_simple__3SN.name__GZP,buf__4UDG,(&__string_125));
-      } break;
-      };
-    } else {
-      shorter_raw_in__M2FG(__tmp__TVDG,buf__4UDG);
-    };
-  };
-  put__to__like__GVFG((&__string_300),buf__4UDG);
-}
-
-static void shorter_in__EWDG(__ITM_TYPE_GENERIC *Self__FWDG,void *buf__GWDG)
-// ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  __STRING *Self__4GIH,*Self__EHIH,*Self__MHIH,*Self__SHIH,*Self__YHIH;
-  __STRING *Self__4HIH;
-  __INTEGER new_capacity__3GIH,old_nb_elts__AHIH,upper__AOKH,Self__4NKH;
-  __INTEGER new_capacity__DHIH,old_nb_elts__GHIH,upper__FOKH,Self__DOKH;
-  __INTEGER __tmp__1WDG,Self__LZFG,new_capacity__LHIH,old_nb_elts__OHIH;
-  __INTEGER upper__KOKH,Self__IOKH,new_capacity__RHIH,old_nb_elts__UHIH;
-  __INTEGER upper__POKH,Self__NOKH,new_capacity__XHIH,old_nb_elts__0HIH;
-  __INTEGER upper__UOKH,Self__SOKH,new_capacity__3HIH,old_nb_elts__AIIH;
-  __INTEGER upper__ZOKH,Self__XOKH;
-  void *__tmp__CXDG,*__tmp__FXDG;
-  __ITM_TYPE_STYLE *Self__JHIH,*Self__HXDG;
-  __CHARACTER *Self__5GIH,*new__BHIH,*Self__FHIH,*new__HHIH,*Self__NHIH;
-  __CHARACTER *new__PHIH,*Self__THIH,*new__VHIH,*Self__ZHIH,*new__1HIH;
-  __CHARACTER *Self__5HIH,*new__BIIH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__O1FH;
-  if (((void *)Self__FWDG->parent_itm_type_style__4SN.style__PZP != (void *)NULL)) {
-    put__to__like__ZXFG(Self__FWDG->parent_itm_type_style__4SN.style__PZP,buf__GWDG,(&__string_119));
-    Self__4GIH=((__STRING *)buf__GWDG);
-    new_capacity__3GIH= 0;
-    if ((Self__4GIH->capacity__UCS <= Self__4GIH->count__SGC)) {
-      if ((Self__4GIH->capacity__UCS ==  0)) {
-        Self__4GIH->capacity__UCS= 32;
-        Self__4GIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__3GIH=(__INTEGER)(Self__4GIH->capacity__UCS <<  1);
-        Self__5GIH=((__CHARACTER *)Self__4GIH->storage__3CS);
-        old_nb_elts__AHIH=Self__4GIH->capacity__UCS;
-        new__BHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5GIH),((__UINTEGER_32 )old_nb_elts__AHIH),((__UINTEGER_32 )new_capacity__3GIH)));
-        upper__AOKH=(__INTEGER)(new_capacity__3GIH -  1);
-        Self__4NKH=old_nb_elts__AHIH;
-        while ((Self__4NKH <= upper__AOKH)) {
-          new__BHIH[Self__4NKH]='\0';
-          Self__4NKH=(__INTEGER)(Self__4NKH +  1);
-        };
-        Self__4GIH->storage__3CS=new__BHIH;
-        Self__4GIH->capacity__UCS=new_capacity__3GIH;
-      };
-    };
-    ((__CHARACTER *)Self__4GIH->storage__3CS)[Self__4GIH->count__SGC]=' ';
-    Self__4GIH->count__SGC=(__INTEGER)(Self__4GIH->count__SGC +  1);
-  };
-  put__to__like__ZXFG(Self__FWDG->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP,buf__GWDG,(&__string_125));
-  Self__EHIH=((__STRING *)buf__GWDG);
-  new_capacity__DHIH= 0;
-  if ((Self__EHIH->capacity__UCS <= Self__EHIH->count__SGC)) {
-    if ((Self__EHIH->capacity__UCS ==  0)) {
-      Self__EHIH->capacity__UCS= 32;
-      Self__EHIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__DHIH=(__INTEGER)(Self__EHIH->capacity__UCS <<  1);
-      Self__FHIH=((__CHARACTER *)Self__EHIH->storage__3CS);
-      old_nb_elts__GHIH=Self__EHIH->capacity__UCS;
-      new__HHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FHIH),((__UINTEGER_32 )old_nb_elts__GHIH),((__UINTEGER_32 )new_capacity__DHIH)));
-      upper__FOKH=(__INTEGER)(new_capacity__DHIH -  1);
-      Self__DOKH=old_nb_elts__GHIH;
-      while ((Self__DOKH <= upper__FOKH)) {
-        new__HHIH[Self__DOKH]='\0';
-        Self__DOKH=(__INTEGER)(Self__DOKH +  1);
-      };
-      Self__EHIH->storage__3CS=new__HHIH;
-      Self__EHIH->capacity__UCS=new_capacity__DHIH;
-    };
-  };
-  ((__CHARACTER *)Self__EHIH->storage__3CS)[Self__EHIH->count__SGC]='(';
-  Self__EHIH->count__SGC=(__INTEGER)(Self__EHIH->count__SGC +  1);
-  __tmp__1WDG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__FWDG->list_type__ZZP)->parent_arrayed_collection__SYC.upper__4HV -  1);
-  Self__LZFG= 0;
-  while ((Self__LZFG <= __tmp__1WDG)) {
-    __tmp__CXDG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__FWDG->list_type__ZZP)->parent_arrayed_collection__SYC.storage__FMV)[Self__LZFG];
-    switch (((struct ___OBJ *)__tmp__CXDG)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      shorter_in__0TDG(__tmp__CXDG,buf__GWDG);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      shorter_in__LUDG(__tmp__CXDG,buf__GWDG);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      shorter_in__2UDG(__tmp__CXDG,buf__GWDG);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      shorter_in__EWDG(__tmp__CXDG,buf__GWDG);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__JHIH=((__ITM_TYPE_STYLE *)__tmp__CXDG);
-      if (((void *)Self__JHIH->style__PZP != (void *)NULL)) {
-        put__to__like__I0FG(Self__JHIH->style__PZP,buf__GWDG,(&__string_119));
-        Self__MHIH=((__STRING *)buf__GWDG);
-        new_capacity__LHIH= 0;
-        if ((Self__MHIH->capacity__UCS <= Self__MHIH->count__SGC)) {
-          if ((Self__MHIH->capacity__UCS ==  0)) {
-            Self__MHIH->capacity__UCS= 32;
-            Self__MHIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__LHIH=(__INTEGER)(Self__MHIH->capacity__UCS <<  1);
-            Self__NHIH=((__CHARACTER *)Self__MHIH->storage__3CS);
-            old_nb_elts__OHIH=Self__MHIH->capacity__UCS;
-            new__PHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NHIH),((__UINTEGER_32 )old_nb_elts__OHIH),((__UINTEGER_32 )new_capacity__LHIH)));
-            upper__KOKH=(__INTEGER)(new_capacity__LHIH -  1);
-            Self__IOKH=old_nb_elts__OHIH;
-            while ((Self__IOKH <= upper__KOKH)) {
-              new__PHIH[Self__IOKH]='\0';
-              Self__IOKH=(__INTEGER)(Self__IOKH +  1);
-            };
-            Self__MHIH->storage__3CS=new__PHIH;
-            Self__MHIH->capacity__UCS=new_capacity__LHIH;
-          };
-        };
-        ((__CHARACTER *)Self__MHIH->storage__3CS)[Self__MHIH->count__SGC]=' ';
-        Self__MHIH->count__SGC=(__INTEGER)(Self__MHIH->count__SGC +  1);
-      };
-      put__to__like__I0FG(Self__JHIH->parent_itm_type_simple__3SN.name__GZP,buf__GWDG,(&__string_125));
-    } break;
-    };
-    Self__SHIH=((__STRING *)buf__GWDG);
-    new_capacity__RHIH= 0;
-    if ((Self__SHIH->capacity__UCS <= Self__SHIH->count__SGC)) {
-      if ((Self__SHIH->capacity__UCS ==  0)) {
-        Self__SHIH->capacity__UCS= 32;
-        Self__SHIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__RHIH=(__INTEGER)(Self__SHIH->capacity__UCS <<  1);
-        Self__THIH=((__CHARACTER *)Self__SHIH->storage__3CS);
-        old_nb_elts__UHIH=Self__SHIH->capacity__UCS;
-        new__VHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__THIH),((__UINTEGER_32 )old_nb_elts__UHIH),((__UINTEGER_32 )new_capacity__RHIH)));
-        upper__POKH=(__INTEGER)(new_capacity__RHIH -  1);
-        Self__NOKH=old_nb_elts__UHIH;
-        while ((Self__NOKH <= upper__POKH)) {
-          new__VHIH[Self__NOKH]='\0';
-          Self__NOKH=(__INTEGER)(Self__NOKH +  1);
-        };
-        Self__SHIH->storage__3CS=new__VHIH;
-        Self__SHIH->capacity__UCS=new_capacity__RHIH;
-      };
-    };
-    ((__CHARACTER *)Self__SHIH->storage__3CS)[Self__SHIH->count__SGC]=',';
-    Self__SHIH->count__SGC=(__INTEGER)(Self__SHIH->count__SGC +  1);
-    Self__LZFG=(__INTEGER)(Self__LZFG +  1);
-  };
-  Self__O1FH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__FWDG->list_type__ZZP);
-  __tmp__FXDG=((void **)Self__O1FH->parent_arrayed_collection__SYC.storage__FMV)[Self__O1FH->parent_arrayed_collection__SYC.upper__4HV];
-  switch (((struct ___OBJ *)__tmp__FXDG)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    shorter_in__0TDG(__tmp__FXDG,buf__GWDG);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    shorter_in__LUDG(__tmp__FXDG,buf__GWDG);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    shorter_in__2UDG(__tmp__FXDG,buf__GWDG);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    shorter_in__EWDG(__tmp__FXDG,buf__GWDG);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__HXDG=((__ITM_TYPE_STYLE *)__tmp__FXDG);
-    if (((void *)Self__HXDG->style__PZP != (void *)NULL)) {
-      put__to__like__I0FG(Self__HXDG->style__PZP,buf__GWDG,(&__string_119));
-      Self__YHIH=((__STRING *)buf__GWDG);
-      new_capacity__XHIH= 0;
-      if ((Self__YHIH->capacity__UCS <= Self__YHIH->count__SGC)) {
-        if ((Self__YHIH->capacity__UCS ==  0)) {
-          Self__YHIH->capacity__UCS= 32;
-          Self__YHIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__XHIH=(__INTEGER)(Self__YHIH->capacity__UCS <<  1);
-          Self__ZHIH=((__CHARACTER *)Self__YHIH->storage__3CS);
-          old_nb_elts__0HIH=Self__YHIH->capacity__UCS;
-          new__1HIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZHIH),((__UINTEGER_32 )old_nb_elts__0HIH),((__UINTEGER_32 )new_capacity__XHIH)));
-          upper__UOKH=(__INTEGER)(new_capacity__XHIH -  1);
-          Self__SOKH=old_nb_elts__0HIH;
-          while ((Self__SOKH <= upper__UOKH)) {
-            new__1HIH[Self__SOKH]='\0';
-            Self__SOKH=(__INTEGER)(Self__SOKH +  1);
-          };
-          Self__YHIH->storage__3CS=new__1HIH;
-          Self__YHIH->capacity__UCS=new_capacity__XHIH;
-        };
-      };
-      ((__CHARACTER *)Self__YHIH->storage__3CS)[Self__YHIH->count__SGC]=' ';
-      Self__YHIH->count__SGC=(__INTEGER)(Self__YHIH->count__SGC +  1);
-    };
-    put__to__like__I0FG(Self__HXDG->parent_itm_type_simple__3SN.name__GZP,buf__GWDG,(&__string_125));
-  } break;
-  };
-  Self__4HIH=((__STRING *)buf__GWDG);
-  new_capacity__3HIH= 0;
-  if ((Self__4HIH->capacity__UCS <= Self__4HIH->count__SGC)) {
-    if ((Self__4HIH->capacity__UCS ==  0)) {
-      Self__4HIH->capacity__UCS= 32;
-      Self__4HIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__3HIH=(__INTEGER)(Self__4HIH->capacity__UCS <<  1);
-      Self__5HIH=((__CHARACTER *)Self__4HIH->storage__3CS);
-      old_nb_elts__AIIH=Self__4HIH->capacity__UCS;
-      new__BIIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5HIH),((__UINTEGER_32 )old_nb_elts__AIIH),((__UINTEGER_32 )new_capacity__3HIH)));
-      upper__ZOKH=(__INTEGER)(new_capacity__3HIH -  1);
-      Self__XOKH=old_nb_elts__AIIH;
-      while ((Self__XOKH <= upper__ZOKH)) {
-        new__BIIH[Self__XOKH]='\0';
-        Self__XOKH=(__INTEGER)(Self__XOKH +  1);
-      };
-      Self__4HIH->storage__3CS=new__BIIH;
-      Self__4HIH->capacity__UCS=new_capacity__3HIH;
-    };
-  };
-  ((__CHARACTER *)Self__4HIH->storage__3CS)[Self__4HIH->count__SGC]=')';
-  Self__4HIH->count__SGC=(__INTEGER)(Self__4HIH->count__SGC +  1);
-}
-
-static void put__to__like__I0FG(void *tok__K0FG,void *buf__L0FG,void *key__M0FG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__30FG,Self__MBIG;
-  void *lst__N0FG;
-  lst__N0FG=NULL;
-  if (((void *)key__M0FG != (void *)NULL)) {
-    lst__N0FG=fast_reference_at__CMNE(short_dico__QD,key__M0FG);
-    if (((void *)lst__N0FG != (void *)NULL)) {
-      __tmp__30FG=((__LINKED_LISToSTRING_CONSTANTo *)lst__N0FG)->parent_linked_collection__LD.upper__0ED;
-      Self__MBIG= 1;
-      while ((Self__MBIG <= __tmp__30FG)) {
-        if (((void *)item__X3ND(lst__N0FG,Self__MBIG) == (void *)NULL)) {
-          append__3OS(buf__L0FG,tok__K0FG);
-        } else {
-          append__3OS(buf__L0FG,item__X3ND(lst__N0FG,Self__MBIG));
-        };
-        Self__MBIG=(__INTEGER)(Self__MBIG +  1);
-      };
-    };
-  };
-}
-
-static void put__to__like__S0DG(void *tok__U0DG,void *buf__V0DG,void *key__W0DG)
-// ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__H1DG,Self__T2HG;
-  void *lst__X0DG;
-  lst__X0DG=NULL;
-  if (((void *)key__W0DG != (void *)NULL)) {
-    lst__X0DG=fast_reference_at__CMNE(short_dico__QD,key__W0DG);
-    if (((void *)lst__X0DG != (void *)NULL)) {
-      __tmp__H1DG=((__LINKED_LISToSTRING_CONSTANTo *)lst__X0DG)->parent_linked_collection__LD.upper__0ED;
-      Self__T2HG= 1;
-      while ((Self__T2HG <= __tmp__H1DG)) {
-        if (((void *)item__X3ND(lst__X0DG,Self__T2HG) == (void *)NULL)) {
-          append__3OS(buf__V0DG,tok__U0DG);
-        } else {
-          append__3OS(buf__V0DG,item__X3ND(lst__X0DG,Self__T2HG));
-        };
-        Self__T2HG=(__INTEGER)(Self__T2HG +  1);
-      };
-    };
-  };
-}
-
-static void set_path__HPT(__DIRECTORY_UNIX *Self__IPT,void *n__JPT)
-// ({DIRECTORY_UNIX},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __STRING_CONSTANT *result__DIIH,*Self__4EHH,*Self__RKEH,*result__LIIH;
-  __STRING_CONSTANT *Self__LZSG;
-  __POINTER ptr__EIIH,ptr_table__2OKH,next__1OKH,result__3OKH;
-  __POINTER ptr_table__BPKH,next__APKH,result__CPKH,ptr__MIIH;
-  __POINTER ptr_table__LPKH,next__KPKH,result__MPKH,ptr_table__QPKH;
-  __POINTER next__PPKH,result__RPKH,ptr__MQAH;
-  __INTEGER typ_id__FIIH,c__AFHH,Self__GPKH,idx__KPT,typ_id__NIIH;
-  __INTEGER __tmp__AQT;
-  __UINTEGER_32 sz__GIIH,a__HIIH,new_size__IIIH,t__JIIH,a__KIIH;
-  __UINTEGER_32 new_size__EPKH,lab_type__DPKH,sz__OIIH,a__PIIH;
-  __UINTEGER_32 new_size__QIIH,t__RIIH,a__SIIH,new_size__TPKH;
-  __UINTEGER_32 lab_type__SPKH;
-  void *__tmp__YPT;
-  __CHARACTER *Self__HPKH,*model__IPKH,*__tmp__2PT;
-  result__DIIH=NULL;
-  ptr__EIIH=((__POINTER )(NULL));
-  typ_id__FIIH= 0;
-  sz__GIIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-  if ((sz__GIIH ==  0)) {
-    result__DIIH=STRING_CONSTANT__;
-  } else {
-    typ_id__FIIH=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + 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__2OKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__1OKH=((__POINTER )(NULL));
-      result__3OKH=((__POINTER *)ptr_table__2OKH)[ 0];
-      if ((result__3OKH == (void *)NULL)) {
-        result__3OKH=new_lab__RTJ(new_size__IIIH);
-        next__1OKH=(void *)((unsigned long)result__3OKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIIH)));
-        ((__POINTER *)next__1OKH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__2OKH)[ 0]=next__1OKH;
-      } else {
-        next__1OKH=((__POINTER *)result__3OKH)[ 0];
-        if ((next__1OKH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3OKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IIIH <<  1)) <=  4096)) {
-            next__1OKH=(void *)((unsigned long)result__3OKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIIH)));
-          } else {
-            next__1OKH=new_lab__RTJ(new_size__IIIH);
-          };
-          ((__POINTER *)next__1OKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2OKH)[ 0]=next__1OKH;
-        } else {
-          ((__POINTER *)result__3OKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1OKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__3OKH=next__1OKH;
-        };
-      };
-      ptr__EIIH=result__3OKH;
-    } else {
-      t__JIIH=((__UINTEGER_32 )typ_id__FIIH);
-      a__KIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__EPKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GIIH + a__KIIH) & (__UINTEGER_32)(~ a__KIIH));
-      ptr_table__BPKH=((__POINTER )(&(table_type[(t__JIIH)])));
-      lab_type__DPKH=(__UINTEGER_32)(t__JIIH |  1);
-      next__APKH=((__POINTER )(NULL));
-      result__CPKH=((__POINTER *)ptr_table__BPKH)[ 0];
-      if ((result__CPKH == (void *)NULL)) {
-        result__CPKH=new_lab__RTJ(lab_type__DPKH);
-        next__APKH=(void *)((unsigned long)result__CPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPKH)));
-        ((__POINTER *)next__APKH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__BPKH)[ 0]=next__APKH;
-      } else {
-        next__APKH=((__POINTER *)result__CPKH)[ 0];
-        if ((next__APKH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CPKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__EPKH <<  1)) <=  4096)) {
-            next__APKH=(void *)((unsigned long)result__CPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPKH)));
-          } else {
-            next__APKH=new_lab__RTJ(lab_type__DPKH);
-          };
-          ((__POINTER *)next__APKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BPKH)[ 0]=next__APKH;
-        } else {
-          ((__POINTER *)result__CPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__APKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__CPKH=next__APKH;
-        };
-      };
-      ptr__EIIH=result__CPKH;
-    };
-    result__DIIH=((__STRING_CONSTANT *)ptr__EIIH);
-    *(result__DIIH) = *(STRING_CONSTANT__);
-  };
-  Self__4EHH=((__STRING_CONSTANT *)result__DIIH);
-  c__AFHH=((__STRING *)n__JPT)->count__SGC;
-  if ((c__AFHH !=  0)) {
-    Self__4EHH->storage__RRO=create__YIEB((__INTEGER)(c__AFHH +  1));
-    Self__HPKH=((__CHARACTER *)Self__4EHH->storage__RRO);
-    model__IPKH=((__STRING *)n__JPT)->storage__3CS;
-    Self__GPKH=(__INTEGER)(c__AFHH -  1);
-    while ((Self__GPKH >=  0)) {
-      Self__HPKH[Self__GPKH]=((__CHARACTER *)model__IPKH)[Self__GPKH];
-      Self__GPKH=(__INTEGER)(Self__GPKH -  1);
-    };
-    ((__CHARACTER *)Self__4EHH->storage__RRO)[c__AFHH]='\0';
-    Self__4EHH->count__DD=c__AFHH;
-  };
-  Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD=result__DIIH;
-  Self__RKEH=((__STRING_CONSTANT *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
-  idx__KPT=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__RKEH->storage__RRO,'/',(__INTEGER)(Self__RKEH->count__DD -  1)));
-  if (((void *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.name__OPT == (void *)NULL)) {
-    result__LIIH=NULL;
-    ptr__MIIH=((__POINTER )(NULL));
-    typ_id__NIIH= 0;
-    sz__OIIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__OIIH ==  0)) {
-      result__LIIH=STRING_CONSTANT__;
-    } else {
-      typ_id__NIIH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__OIIH);
-      if ((typ_id__NIIH == (__INTEGER)(-  1))) {
-        a__PIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__QIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__OIIH + a__PIIH) & (__UINTEGER_32)(~ a__PIIH));
-        ptr_table__LPKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__KPKH=((__POINTER )(NULL));
-        result__MPKH=((__POINTER *)ptr_table__LPKH)[ 0];
-        if ((result__MPKH == (void *)NULL)) {
-          result__MPKH=new_lab__RTJ(new_size__QIIH);
-          next__KPKH=(void *)((unsigned long)result__MPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QIIH)));
-          ((__POINTER *)next__KPKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__LPKH)[ 0]=next__KPKH;
-        } else {
-          next__KPKH=((__POINTER *)result__MPKH)[ 0];
-          if ((next__KPKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QIIH <<  1)) <=  4096)) {
-              next__KPKH=(void *)((unsigned long)result__MPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QIIH)));
-            } else {
-              next__KPKH=new_lab__RTJ(new_size__QIIH);
-            };
-            ((__POINTER *)next__KPKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__LPKH)[ 0]=next__KPKH;
-          } else {
-            ((__POINTER *)result__MPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__MPKH=next__KPKH;
-          };
-        };
-        ptr__MIIH=result__MPKH;
-      } else {
-        t__RIIH=((__UINTEGER_32 )typ_id__NIIH);
-        a__SIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__TPKH=(__UINTEGER_32)((__UINTEGER_32)(sz__OIIH + a__SIIH) & (__UINTEGER_32)(~ a__SIIH));
-        ptr_table__QPKH=((__POINTER )(&(table_type[(t__RIIH)])));
-        lab_type__SPKH=(__UINTEGER_32)(t__RIIH |  1);
-        next__PPKH=((__POINTER )(NULL));
-        result__RPKH=((__POINTER *)ptr_table__QPKH)[ 0];
-        if ((result__RPKH == (void *)NULL)) {
-          result__RPKH=new_lab__RTJ(lab_type__SPKH);
-          next__PPKH=(void *)((unsigned long)result__RPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPKH)));
-          ((__POINTER *)next__PPKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QPKH)[ 0]=next__PPKH;
-        } else {
-          next__PPKH=((__POINTER *)result__RPKH)[ 0];
-          if ((next__PPKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RPKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__TPKH <<  1)) <=  4096)) {
-              next__PPKH=(void *)((unsigned long)result__RPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPKH)));
-            } else {
-              next__PPKH=new_lab__RTJ(lab_type__SPKH);
-            };
-            ((__POINTER *)next__PPKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__QPKH)[ 0]=next__PPKH;
-          } else {
-            ((__POINTER *)result__RPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__RPKH=next__PPKH;
-          };
-        };
-        ptr__MIIH=result__RPKH;
-      };
-      result__LIIH=((__STRING_CONSTANT *)ptr__MIIH);
-      *(result__LIIH) = *(STRING_CONSTANT__);
-    };
-    Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.name__OPT=result__LIIH;
-  };
-  __tmp__YPT=Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.name__OPT;
-  ptr__MQAH=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->storage__RRO));
-  ptr__MQAH=(void *)((unsigned long)ptr__MQAH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__KPT)));
-  __tmp__2PT=((__CHARACTER *)ptr__MQAH);
-  __tmp__AQT=(__INTEGER)(((__STRING_CONSTANT *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->count__DD - idx__KPT);
-  Self__LZSG=((__STRING_CONSTANT *)__tmp__YPT);
-  Self__LZSG->storage__RRO=__tmp__2PT;
-  Self__LZSG->count__DD=__tmp__AQT;
-}
-
-static void set_path__CQT(__FILE_UNIX *Self__DQT,void *n__EQT)
-// ({FILE_UNIX},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __STRING_CONSTANT *result__TIIH,*Self__CFHH,*Self__VKEH,*result__1IIH;
-  __STRING_CONSTANT *Self__QZSG;
-  __POINTER ptr__UIIH,ptr_table__VPKH,next__UPKH,result__WPKH;
-  __POINTER ptr_table__0PKH,next__ZPKH,result__1PKH,ptr__2IIH;
-  __POINTER ptr_table__EQKH,next__DQKH,result__FQKH,ptr_table__JQKH;
-  __POINTER next__IQKH,result__KQKH,ptr__DPY;
-  __INTEGER typ_id__VIIH,c__EFHH,Self__5PKH,idx__FQT,typ_id__3IIH;
-  __INTEGER __tmp__0QT;
-  __UINTEGER_32 sz__WIIH,a__XIIH,new_size__YIIH,t__ZIIH,a__0IIH;
-  __UINTEGER_32 new_size__3PKH,lab_type__2PKH,sz__4IIH,a__5IIH;
-  __UINTEGER_32 new_size__AJIH,t__BJIH,a__CJIH,new_size__MQKH;
-  __UINTEGER_32 lab_type__LQKH;
-  void *__tmp__SQT;
-  __CHARACTER *Self__AQKH,*model__BQKH,*__tmp__WQT;
-  result__TIIH=NULL;
-  ptr__UIIH=((__POINTER )(NULL));
-  typ_id__VIIH= 0;
-  sz__WIIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-  if ((sz__WIIH ==  0)) {
-    result__TIIH=STRING_CONSTANT__;
-  } else {
-    typ_id__VIIH=-1;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WIIH);
-    if ((typ_id__VIIH == (__INTEGER)(-  1))) {
-      a__XIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__YIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WIIH + a__XIIH) & (__UINTEGER_32)(~ a__XIIH));
-      ptr_table__VPKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__UPKH=((__POINTER )(NULL));
-      result__WPKH=((__POINTER *)ptr_table__VPKH)[ 0];
-      if ((result__WPKH == (void *)NULL)) {
-        result__WPKH=new_lab__RTJ(new_size__YIIH);
-        next__UPKH=(void *)((unsigned long)result__WPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIIH)));
-        ((__POINTER *)next__UPKH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__VPKH)[ 0]=next__UPKH;
-      } else {
-        next__UPKH=((__POINTER *)result__WPKH)[ 0];
-        if ((next__UPKH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WPKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YIIH <<  1)) <=  4096)) {
-            next__UPKH=(void *)((unsigned long)result__WPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIIH)));
-          } else {
-            next__UPKH=new_lab__RTJ(new_size__YIIH);
-          };
-          ((__POINTER *)next__UPKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VPKH)[ 0]=next__UPKH;
-        } else {
-          ((__POINTER *)result__WPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__WPKH=next__UPKH;
-        };
-      };
-      ptr__UIIH=result__WPKH;
-    } else {
-      t__ZIIH=((__UINTEGER_32 )typ_id__VIIH);
-      a__0IIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__3PKH=(__UINTEGER_32)((__UINTEGER_32)(sz__WIIH + a__0IIH) & (__UINTEGER_32)(~ a__0IIH));
-      ptr_table__0PKH=((__POINTER )(&(table_type[(t__ZIIH)])));
-      lab_type__2PKH=(__UINTEGER_32)(t__ZIIH |  1);
-      next__ZPKH=((__POINTER )(NULL));
-      result__1PKH=((__POINTER *)ptr_table__0PKH)[ 0];
-      if ((result__1PKH == (void *)NULL)) {
-        result__1PKH=new_lab__RTJ(lab_type__2PKH);
-        next__ZPKH=(void *)((unsigned long)result__1PKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3PKH)));
-        ((__POINTER *)next__ZPKH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__0PKH)[ 0]=next__ZPKH;
-      } else {
-        next__ZPKH=((__POINTER *)result__1PKH)[ 0];
-        if ((next__ZPKH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1PKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3PKH <<  1)) <=  4096)) {
-            next__ZPKH=(void *)((unsigned long)result__1PKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3PKH)));
-          } else {
-            next__ZPKH=new_lab__RTJ(lab_type__2PKH);
-          };
-          ((__POINTER *)next__ZPKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__0PKH)[ 0]=next__ZPKH;
-        } else {
-          ((__POINTER *)result__1PKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__1PKH=next__ZPKH;
-        };
-      };
-      ptr__UIIH=result__1PKH;
-    };
-    result__TIIH=((__STRING_CONSTANT *)ptr__UIIH);
-    *(result__TIIH) = *(STRING_CONSTANT__);
-  };
-  Self__CFHH=((__STRING_CONSTANT *)result__TIIH);
-  c__EFHH=((__STRING *)n__EQT)->count__SGC;
-  if ((c__EFHH !=  0)) {
-    Self__CFHH->storage__RRO=create__YIEB((__INTEGER)(c__EFHH +  1));
-    Self__AQKH=((__CHARACTER *)Self__CFHH->storage__RRO);
-    model__BQKH=((__STRING *)n__EQT)->storage__3CS;
-    Self__5PKH=(__INTEGER)(c__EFHH -  1);
-    while ((Self__5PKH >=  0)) {
-      Self__AQKH[Self__5PKH]=((__CHARACTER *)model__BQKH)[Self__5PKH];
-      Self__5PKH=(__INTEGER)(Self__5PKH -  1);
-    };
-    ((__CHARACTER *)Self__CFHH->storage__RRO)[c__EFHH]='\0';
-    Self__CFHH->count__DD=c__EFHH;
-  };
-  Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD=result__TIIH;
-  Self__VKEH=((__STRING_CONSTANT *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD);
-  idx__FQT=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__VKEH->storage__RRO,'/',(__INTEGER)(Self__VKEH->count__DD -  1)));
-  if (((void *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.name__OPT == (void *)NULL)) {
-    result__1IIH=NULL;
-    ptr__2IIH=((__POINTER )(NULL));
-    typ_id__3IIH= 0;
-    sz__4IIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
-    if ((sz__4IIH ==  0)) {
-      result__1IIH=STRING_CONSTANT__;
-    } else {
-      typ_id__3IIH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4IIH);
-      if ((typ_id__3IIH == (__INTEGER)(-  1))) {
-        a__5IIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__AJIH=(__UINTEGER_32)((__UINTEGER_32)(sz__4IIH + a__5IIH) & (__UINTEGER_32)(~ a__5IIH));
-        ptr_table__EQKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AJIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__DQKH=((__POINTER )(NULL));
-        result__FQKH=((__POINTER *)ptr_table__EQKH)[ 0];
-        if ((result__FQKH == (void *)NULL)) {
-          result__FQKH=new_lab__RTJ(new_size__AJIH);
-          next__DQKH=(void *)((unsigned long)result__FQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AJIH)));
-          ((__POINTER *)next__DQKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__EQKH)[ 0]=next__DQKH;
-        } else {
-          next__DQKH=((__POINTER *)result__FQKH)[ 0];
-          if ((next__DQKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FQKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__AJIH <<  1)) <=  4096)) {
-              next__DQKH=(void *)((unsigned long)result__FQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AJIH)));
-            } else {
-              next__DQKH=new_lab__RTJ(new_size__AJIH);
-            };
-            ((__POINTER *)next__DQKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__EQKH)[ 0]=next__DQKH;
-          } else {
-            ((__POINTER *)result__FQKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DQKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__FQKH=next__DQKH;
-          };
-        };
-        ptr__2IIH=result__FQKH;
-      } else {
-        t__BJIH=((__UINTEGER_32 )typ_id__3IIH);
-        a__CJIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__MQKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4IIH + a__CJIH) & (__UINTEGER_32)(~ a__CJIH));
-        ptr_table__JQKH=((__POINTER )(&(table_type[(t__BJIH)])));
-        lab_type__LQKH=(__UINTEGER_32)(t__BJIH |  1);
-        next__IQKH=((__POINTER )(NULL));
-        result__KQKH=((__POINTER *)ptr_table__JQKH)[ 0];
-        if ((result__KQKH == (void *)NULL)) {
-          result__KQKH=new_lab__RTJ(lab_type__LQKH);
-          next__IQKH=(void *)((unsigned long)result__KQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQKH)));
-          ((__POINTER *)next__IQKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__JQKH)[ 0]=next__IQKH;
-        } else {
-          next__IQKH=((__POINTER *)result__KQKH)[ 0];
-          if ((next__IQKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KQKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__MQKH <<  1)) <=  4096)) {
-              next__IQKH=(void *)((unsigned long)result__KQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQKH)));
-            } else {
-              next__IQKH=new_lab__RTJ(lab_type__LQKH);
-            };
-            ((__POINTER *)next__IQKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__JQKH)[ 0]=next__IQKH;
-          } else {
-            ((__POINTER *)result__KQKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IQKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__KQKH=next__IQKH;
-          };
-        };
-        ptr__2IIH=result__KQKH;
-      };
-      result__1IIH=((__STRING_CONSTANT *)ptr__2IIH);
-      *(result__1IIH) = *(STRING_CONSTANT__);
-    };
-    Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.name__OPT=result__1IIH;
-  };
-  __tmp__SQT=Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.name__OPT;
-  ptr__DPY=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO));
-  ptr__DPY=(void *)((unsigned long)ptr__DPY - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__FQT)));
-  __tmp__WQT=((__CHARACTER *)ptr__DPY);
-  __tmp__0QT=(__INTEGER)(((__STRING_CONSTANT *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->count__DD - idx__FQT);
-  Self__QZSG=((__STRING_CONSTANT *)__tmp__SQT);
-  Self__QZSG->storage__RRO=__tmp__WQT;
-  Self__QZSG->count__DD=__tmp__0QT;
-}
-
-static __INTEGER last_index_of__since__KPGD(__STRING *Self__LPGD,__INTEGER start_index__NPGD)
-// ({STRING},{INTEGER}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__PPGD;
-  __CHARACTER *__tmp__3KEH;
-  result__PPGD=start_index__NPGD;
-  __tmp__3KEH=Self__LPGD->storage__3CS;
-  while ((! ((result__PPGD <  1) || ('/' == ((__CHARACTER *)__tmp__3KEH)[(__INTEGER)(result__PPGD -  1)])))) {
-    result__PPGD=(__INTEGER)(result__PPGD -  1);
-  };
-  return(result__PPGD);
-}
-
-static void insert_string__to__OXU(__STRING *Self__PXU,void *s__QXU,__INTEGER i__RXU)
-// ({STRING},{NULLxSTRING_CONSTANTxSTRING},{INTEGER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER j__SXU,__tmp__FYU,dest__HRKH,src_capacity__LRKH,i2__GRKH;
-  __INTEGER i1__IRKH;
-  __CHARACTER *__tmp__VYU,*__tmp__WYU,*Self__JRKH,*src__KRKH;
-  j__SXU=Self__PXU->count__SGC;
-  if (((struct ___OBJ *)s__QXU)->__id==__STRING_CONSTANT__) {
-    __tmp__FYU=((__STRING_CONSTANT *)s__QXU)->count__DD;
-  } else {
-    __tmp__FYU=((__STRING *)s__QXU)->count__SGC;
-  };
-  resize__1VZ(Self__PXU,(__INTEGER)(j__SXU + __tmp__FYU));
-  if ((i__RXU <= j__SXU)) {
-    move__to__by__LVCC(Self__PXU->storage__3CS,(__INTEGER)(i__RXU -  1),(__INTEGER)(j__SXU -  1),__tmp__FYU);
-  };
-  __tmp__VYU=Self__PXU->storage__3CS;
-  if (((struct ___OBJ *)s__QXU)->__id==__STRING_CONSTANT__) {
-    __tmp__WYU=((__STRING_CONSTANT *)s__QXU)->storage__RRO;
-  } else {
-    __tmp__WYU=((__STRING *)s__QXU)->storage__3CS;
-  };
-  Self__JRKH=((__CHARACTER *)__tmp__VYU);
-  src__KRKH=__tmp__WYU;
-  dest__HRKH=(__INTEGER)(i__RXU -  1);
-  src_capacity__LRKH=__tmp__FYU;
-  i2__GRKH= 0;
-  i1__IRKH=dest__HRKH;
-  while ((i2__GRKH != src_capacity__LRKH)) {
-    Self__JRKH[i1__IRKH]=((__CHARACTER *)src__KRKH)[i2__GRKH];
-    i2__GRKH=(__INTEGER)(i2__GRKH +  1);
-    i1__IRKH=(__INTEGER)(i1__IRKH +  1);
-  };
-}
-
-static void read_escape_character__AALF()
-// () VoidNo recursive, No inlinable.
-{
-  __INTEGER val__DALF,__tmp__NLEH,__tmp__OLEH,new_capacity__DJIH;
-  __INTEGER old_nb_elts__GJIH,upper__QQKH,Self__OQKH,new_capacity__JJIH;
-  __INTEGER old_nb_elts__MJIH,upper__VQKH,Self__TQKH,new_capacity__PJIH;
-  __INTEGER old_nb_elts__SJIH,upper__0QKH,Self__YQKH,new_capacity__VJIH;
-  __INTEGER old_nb_elts__YJIH,upper__5QKH,Self__3QKH,new_capacity__1JIH;
-  __INTEGER old_nb_elts__4JIH,upper__ERKH,Self__CRKH;
-  __STRING *Self__I2FH,*Self__EJIH,*Self__KJIH,*Self__QJIH,*Self__WJIH;
-  __STRING *Self__2JIH;
-  __POSITION pos__N2YG,pos__02YG,pos__H3YG,pos__J3YG;
-  __CHARACTER result__QTAH,result__VTAH,result__5TAH,result__EUAH;
-  __CHARACTER result__JUAH,result__SUAH,result__1UAH,result__AVAH;
-  __CHARACTER result__FVAH,result__KVAH,result__PVAH,result__UVAH;
-  __CHARACTER result__ZVAH,result__4VAH,result__DWAH,result__IWAH;
-  __CHARACTER result__NWAH,result__SWAH,result__XWAH,result__2WAH;
-  __CHARACTER result__EXAH,ch__UJIH,ch__0JIH,ch__AKIH,result__JXAH;
-  __CHARACTER *__tmp__G2FH,*__tmp__H2FH,*Self__FJIH,*new__HJIH;
-  __CHARACTER *Self__LJIH,*new__NJIH,*Self__RJIH,*new__TJIH,*Self__XJIH;
-  __CHARACTER *new__ZJIH,*Self__3JIH,*new__5JIH;
-  __BOOLEAN __tmp__2ALF,__tmp__QBLF,__tmp__DCLF,__tmp__YELF,__tmp__ZELF;
-  __BOOLEAN __tmp__0ELF,__tmp__1ELF,__tmp__2ELF,__tmp__3ELF,__tmp__4ELF;
-  __BOOLEAN __tmp__5ELF,__tmp__AFLF,__tmp__BFLF,__tmp__MFLF;
-  val__DALF= 0;
-  result__QTAH='\0';
-  if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-    result__QTAH=((__CHARACTER )(( 0)));
-  } else {
-    result__QTAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-  };
-  if ((((((((result__QTAH == ' ') || (result__QTAH == '\t')) || (result__QTAH == '\n')) || (result__QTAH == '\r')) || (result__QTAH == '\0')) || (result__QTAH == '\f')) || (result__QTAH == '\v'))) {
-    position__CCC=(__INTEGER)(position__CCC +  1);
-    __tmp__NLEH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__OLEH=((__STRING *)source__5BC)->count__SGC;
-    __tmp__G2FH=((__STRING *)source__5BC)->storage__3CS;
-    __tmp__H2FH=((__STRING *)source__5BC)->storage__3CS;
-    until_do__QNNF:
-    {
-      result__VTAH='\0';
-      if ((position__CCC > __tmp__NLEH)) {
-        result__VTAH=((__CHARACTER )(( 0)));
-      } else {
-        result__VTAH=((__CHARACTER *)__tmp__G2FH)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__VTAH == ((__CHARACTER )(( 0))))) {
-        __tmp__2ALF=TRUE__;
-      } else {
-        result__5TAH='\0';
-        if ((position__CCC > __tmp__OLEH)) {
-          result__5TAH=((__CHARACTER )(( 0)));
-        } else {
-          result__5TAH=((__CHARACTER *)__tmp__H2FH)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__2ALF=(! (((((((result__5TAH == ' ') || (result__5TAH == '\t')) || (result__5TAH == '\n')) || (result__5TAH == '\r')) || (result__5TAH == '\0')) || (result__5TAH == '\f')) || (result__5TAH == '\v')));
-      };
-      if ((! __tmp__2ALF)) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto until_do__QNNF;
-      };
-    };
-    result__EUAH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__EUAH=((__CHARACTER )(( 0)));
-    } else {
-      result__EUAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__EUAH == '\\')) {
-      Self__I2FH=((__STRING *)string_tmp__VH);
-      if (( 1 > Self__I2FH->count__SGC)) {
-        Self__I2FH->count__SGC= 0;
-      } else {
-        Self__I2FH->count__SGC=(__INTEGER)(Self__I2FH->count__SGC -  1);
-      };
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      __tmp__QBLF=TRUE__;
-    } else {
-      __tmp__QBLF=FALSE__;
-    };
-    if ((! __tmp__QBLF)) {
-      result__JUAH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__JUAH=((__CHARACTER )(( 0)));
-      } else {
-        result__JUAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__JUAH != ((__CHARACTER )(( 0))))) {
-        pos__N2YG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_301));
-        put_position__FRG(pos__N2YG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-    __tmp__DCLF=TRUE__;
-  } else {
-    __tmp__DCLF=FALSE__;
-  };
-  if ((! __tmp__DCLF)) {
-    result__SUAH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__SUAH=((__CHARACTER )(( 0)));
-    } else {
-      result__SUAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__SUAH != ((__CHARACTER )(( 0))))) {
-      result__1UAH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__1UAH=((__CHARACTER )(( 0)));
-      } else {
-        result__1UAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__1UAH == 'a')) {
-        __tmp__YELF=TRUE__;
-      } else {
-        result__AVAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__AVAH=((__CHARACTER )(( 0)));
-        } else {
-          result__AVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__YELF=(result__AVAH == 'b');
-      };
-      if (__tmp__YELF) {
-        __tmp__ZELF=TRUE__;
-      } else {
-        result__FVAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__FVAH=((__CHARACTER )(( 0)));
-        } else {
-          result__FVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__ZELF=(result__FVAH == 'f');
-      };
-      if (__tmp__ZELF) {
-        __tmp__0ELF=TRUE__;
-      } else {
-        result__KVAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__KVAH=((__CHARACTER )(( 0)));
-        } else {
-          result__KVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__0ELF=(result__KVAH == 'n');
-      };
-      if (__tmp__0ELF) {
-        __tmp__1ELF=TRUE__;
-      } else {
-        result__PVAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__PVAH=((__CHARACTER )(( 0)));
-        } else {
-          result__PVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__1ELF=(result__PVAH == 'r');
-      };
-      if (__tmp__1ELF) {
-        __tmp__2ELF=TRUE__;
-      } else {
-        result__UVAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__UVAH=((__CHARACTER )(( 0)));
-        } else {
-          result__UVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__2ELF=(result__UVAH == 't');
-      };
-      if (__tmp__2ELF) {
-        __tmp__3ELF=TRUE__;
-      } else {
-        result__ZVAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__ZVAH=((__CHARACTER )(( 0)));
-        } else {
-          result__ZVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__3ELF=(result__ZVAH == 'v');
-      };
-      if (__tmp__3ELF) {
-        __tmp__4ELF=TRUE__;
-      } else {
-        result__4VAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__4VAH=((__CHARACTER )(( 0)));
-        } else {
-          result__4VAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__4ELF=(result__4VAH == '\\');
-      };
-      if (__tmp__4ELF) {
-        __tmp__5ELF=TRUE__;
-      } else {
-        result__DWAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__DWAH=((__CHARACTER )(( 0)));
-        } else {
-          result__DWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__5ELF=(result__DWAH == '?');
-      };
-      if (__tmp__5ELF) {
-        __tmp__AFLF=TRUE__;
-      } else {
-        result__IWAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__IWAH=((__CHARACTER )(( 0)));
-        } else {
-          result__IWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__AFLF=(result__IWAH == '\'');
-      };
-      if (__tmp__AFLF) {
-        __tmp__BFLF=TRUE__;
-      } else {
-        result__NWAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__NWAH=((__CHARACTER )(( 0)));
-        } else {
-          result__NWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__BFLF=(result__NWAH == '\"');
-      };
-      if (__tmp__BFLF) {
-        result__SWAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__SWAH=((__CHARACTER )(( 0)));
-        } else {
-          result__SWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        Self__EJIH=((__STRING *)string_tmp__VH);
-        new_capacity__DJIH= 0;
-        if ((Self__EJIH->capacity__UCS <= Self__EJIH->count__SGC)) {
-          if ((Self__EJIH->capacity__UCS ==  0)) {
-            Self__EJIH->capacity__UCS= 32;
-            Self__EJIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__DJIH=(__INTEGER)(Self__EJIH->capacity__UCS <<  1);
-            Self__FJIH=((__CHARACTER *)Self__EJIH->storage__3CS);
-            old_nb_elts__GJIH=Self__EJIH->capacity__UCS;
-            new__HJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FJIH),((__UINTEGER_32 )old_nb_elts__GJIH),((__UINTEGER_32 )new_capacity__DJIH)));
-            upper__QQKH=(__INTEGER)(new_capacity__DJIH -  1);
-            Self__OQKH=old_nb_elts__GJIH;
-            while ((Self__OQKH <= upper__QQKH)) {
-              new__HJIH[Self__OQKH]='\0';
-              Self__OQKH=(__INTEGER)(Self__OQKH +  1);
-            };
-            Self__EJIH->storage__3CS=new__HJIH;
-            Self__EJIH->capacity__UCS=new_capacity__DJIH;
-          };
-        };
-        ((__CHARACTER *)Self__EJIH->storage__3CS)[Self__EJIH->count__SGC]=result__SWAH;
-        Self__EJIH->count__SGC=(__INTEGER)(Self__EJIH->count__SGC +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        __tmp__MFLF=TRUE__;
-      } else {
-        __tmp__MFLF=FALSE__;
-      };
-      if ((! __tmp__MFLF)) {
-        result__XWAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__XWAH=((__CHARACTER )(( 0)));
-        } else {
-          result__XWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if (((((__INTEGER_8 )result__XWAH) >= ((__INTEGER_8 )'0')) && (((__INTEGER_8 )result__XWAH) <= ((__INTEGER_8 )'9')))) {
-          result__2WAH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__2WAH=((__CHARACTER )(( 0)));
-          } else {
-            result__2WAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((((result__2WAH == '0') && (position__CCC < ((__STRING *)source__5BC)->count__SGC)) && (! is_hexadecimal_digit__DQJE(((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)((__INTEGER)(position__CCC +  1) -  1)])))) {
-            result__EXAH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__EXAH=((__CHARACTER )(( 0)));
-            } else {
-              result__EXAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            Self__KJIH=((__STRING *)string_tmp__VH);
-            new_capacity__JJIH= 0;
-            if ((Self__KJIH->capacity__UCS <= Self__KJIH->count__SGC)) {
-              if ((Self__KJIH->capacity__UCS ==  0)) {
-                Self__KJIH->capacity__UCS= 32;
-                Self__KJIH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__JJIH=(__INTEGER)(Self__KJIH->capacity__UCS <<  1);
-                Self__LJIH=((__CHARACTER *)Self__KJIH->storage__3CS);
-                old_nb_elts__MJIH=Self__KJIH->capacity__UCS;
-                new__NJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LJIH),((__UINTEGER_32 )old_nb_elts__MJIH),((__UINTEGER_32 )new_capacity__JJIH)));
-                upper__VQKH=(__INTEGER)(new_capacity__JJIH -  1);
-                Self__TQKH=old_nb_elts__MJIH;
-                while ((Self__TQKH <= upper__VQKH)) {
-                  new__NJIH[Self__TQKH]='\0';
-                  Self__TQKH=(__INTEGER)(Self__TQKH +  1);
-                };
-                Self__KJIH->storage__3CS=new__NJIH;
-                Self__KJIH->capacity__UCS=new_capacity__JJIH;
-              };
-            };
-            ((__CHARACTER *)Self__KJIH->storage__3CS)[Self__KJIH->count__SGC]=result__EXAH;
-            Self__KJIH->count__SGC=(__INTEGER)(Self__KJIH->count__SGC +  1);
-            position__CCC=(__INTEGER)(position__CCC +  1);
-          } else {
-            copy__VDS(string_tmp2__GCJ,string_tmp__VH);
-            read_integer__22P();
-            copy__VDS(string_tmp__VH,string_tmp2__GCJ);
-            if ((last_integer__VSO >  255)) {
-              pos__02YG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_302));
-              put_position__FRG(pos__02YG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            val__DALF=((__INTEGER )last_integer__VSO);
-            Self__QJIH=((__STRING *)string_tmp__VH);
-            ch__UJIH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__DALF >>  6)) + ((__INTEGER_8 )'0')))));
-            new_capacity__PJIH= 0;
-            if ((Self__QJIH->capacity__UCS <= Self__QJIH->count__SGC)) {
-              if ((Self__QJIH->capacity__UCS ==  0)) {
-                Self__QJIH->capacity__UCS= 32;
-                Self__QJIH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__PJIH=(__INTEGER)(Self__QJIH->capacity__UCS <<  1);
-                Self__RJIH=((__CHARACTER *)Self__QJIH->storage__3CS);
-                old_nb_elts__SJIH=Self__QJIH->capacity__UCS;
-                new__TJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RJIH),((__UINTEGER_32 )old_nb_elts__SJIH),((__UINTEGER_32 )new_capacity__PJIH)));
-                upper__0QKH=(__INTEGER)(new_capacity__PJIH -  1);
-                Self__YQKH=old_nb_elts__SJIH;
-                while ((Self__YQKH <= upper__0QKH)) {
-                  new__TJIH[Self__YQKH]='\0';
-                  Self__YQKH=(__INTEGER)(Self__YQKH +  1);
-                };
-                Self__QJIH->storage__3CS=new__TJIH;
-                Self__QJIH->capacity__UCS=new_capacity__PJIH;
-              };
-            };
-            ((__CHARACTER *)Self__QJIH->storage__3CS)[Self__QJIH->count__SGC]=ch__UJIH;
-            Self__QJIH->count__SGC=(__INTEGER)(Self__QJIH->count__SGC +  1);
-            Self__WJIH=((__STRING *)string_tmp__VH);
-            ch__0JIH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)((__INTEGER)(val__DALF &  63) >>  3)) + ((__INTEGER_8 )'0')))));
-            new_capacity__VJIH= 0;
-            if ((Self__WJIH->capacity__UCS <= Self__WJIH->count__SGC)) {
-              if ((Self__WJIH->capacity__UCS ==  0)) {
-                Self__WJIH->capacity__UCS= 32;
-                Self__WJIH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__VJIH=(__INTEGER)(Self__WJIH->capacity__UCS <<  1);
-                Self__XJIH=((__CHARACTER *)Self__WJIH->storage__3CS);
-                old_nb_elts__YJIH=Self__WJIH->capacity__UCS;
-                new__ZJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XJIH),((__UINTEGER_32 )old_nb_elts__YJIH),((__UINTEGER_32 )new_capacity__VJIH)));
-                upper__5QKH=(__INTEGER)(new_capacity__VJIH -  1);
-                Self__3QKH=old_nb_elts__YJIH;
-                while ((Self__3QKH <= upper__5QKH)) {
-                  new__ZJIH[Self__3QKH]='\0';
-                  Self__3QKH=(__INTEGER)(Self__3QKH +  1);
-                };
-                Self__WJIH->storage__3CS=new__ZJIH;
-                Self__WJIH->capacity__UCS=new_capacity__VJIH;
-              };
-            };
-            ((__CHARACTER *)Self__WJIH->storage__3CS)[Self__WJIH->count__SGC]=ch__0JIH;
-            Self__WJIH->count__SGC=(__INTEGER)(Self__WJIH->count__SGC +  1);
-            Self__2JIH=((__STRING *)string_tmp__VH);
-            ch__AKIH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__DALF &  7)) + ((__INTEGER_8 )'0')))));
-            new_capacity__1JIH= 0;
-            if ((Self__2JIH->capacity__UCS <= Self__2JIH->count__SGC)) {
-              if ((Self__2JIH->capacity__UCS ==  0)) {
-                Self__2JIH->capacity__UCS= 32;
-                Self__2JIH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__1JIH=(__INTEGER)(Self__2JIH->capacity__UCS <<  1);
-                Self__3JIH=((__CHARACTER *)Self__2JIH->storage__3CS);
-                old_nb_elts__4JIH=Self__2JIH->capacity__UCS;
-                new__5JIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3JIH),((__UINTEGER_32 )old_nb_elts__4JIH),((__UINTEGER_32 )new_capacity__1JIH)));
-                upper__ERKH=(__INTEGER)(new_capacity__1JIH -  1);
-                Self__CRKH=old_nb_elts__4JIH;
-                while ((Self__CRKH <= upper__ERKH)) {
-                  new__5JIH[Self__CRKH]='\0';
-                  Self__CRKH=(__INTEGER)(Self__CRKH +  1);
-                };
-                Self__2JIH->storage__3CS=new__5JIH;
-                Self__2JIH->capacity__UCS=new_capacity__1JIH;
-              };
-            };
-            ((__CHARACTER *)Self__2JIH->storage__3CS)[Self__2JIH->count__SGC]=ch__AKIH;
-            Self__2JIH->count__SGC=(__INTEGER)(Self__2JIH->count__SGC +  1);
-            result__JXAH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__JXAH=((__CHARACTER )(( 0)));
-            } else {
-              result__JXAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__JXAH == '\\')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-            } else {
-              pos__H3YG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_303));
-              put_position__FRG(pos__H3YG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-          };
-        } else {
-          pos__J3YG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_301));
-          put_position__FRG(pos__J3YG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-    };
-  };
-}
-
-static __BOOLEAN read_cap_identifier__N1J()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER posold__Q1J,idx__R1J,new_capacity__BKIH,old_nb_elts__EKIH;
-  __INTEGER upper__QRKH,Self__ORKH,new_capacity__HKIH,old_nb_elts__KKIH;
-  __INTEGER upper__VRKH,Self__TRKH;
-  __STRING *Self__CKIH,*Self__IKIH;
-  __POSITION pos__24YG;
-  __BOOLEAN result__S1J,__tmp__A2J,result__SOEH,__tmp__U3J,result__BPEH;
-  __BOOLEAN result__K2FH,__tmp__Q3J,__tmp__R3J,result__M2FH,__tmp__E4J;
-  __CHARACTER result__2XAH,result__GYAH,result__LYAH,result__UYAH;
-  __CHARACTER result__ZYAH,result__4YAH,result__DZAH;
-  __CHARACTER *Self__DKIH,*new__FKIH,*Self__JKIH,*new__LKIH;
-  posold__Q1J= 0;
-  idx__R1J= 0;
-  result__S1J=FALSE__;
-  if ((! read_space__XTD())) {
-    __tmp__A2J=TRUE__;
-  } else {
-    result__2XAH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__2XAH=((__CHARACTER )(( 0)));
-    } else {
-      result__2XAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    result__SOEH=FALSE__;
-    if ((((__INTEGER_8 )result__2XAH) >= ((__INTEGER_8 )'A'))) {
-      result__SOEH=(((__INTEGER_8 )result__2XAH) <= ((__INTEGER_8 )'Z'));
-    };
-    __tmp__A2J=(! result__SOEH);
-  };
-  if (__tmp__A2J) {
-    result__S1J=FALSE__;
-  } else {
-    posold__Q1J=position__CCC;
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    result__GYAH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__GYAH=((__CHARACTER )(( 0)));
-    } else {
-      result__GYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    Self__CKIH=((__STRING *)string_tmp__VH);
-    new_capacity__BKIH= 0;
-    if ((Self__CKIH->capacity__UCS <= Self__CKIH->count__SGC)) {
-      if ((Self__CKIH->capacity__UCS ==  0)) {
-        Self__CKIH->capacity__UCS= 32;
-        Self__CKIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__BKIH=(__INTEGER)(Self__CKIH->capacity__UCS <<  1);
-        Self__DKIH=((__CHARACTER *)Self__CKIH->storage__3CS);
-        old_nb_elts__EKIH=Self__CKIH->capacity__UCS;
-        new__FKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DKIH),((__UINTEGER_32 )old_nb_elts__EKIH),((__UINTEGER_32 )new_capacity__BKIH)));
-        upper__QRKH=(__INTEGER)(new_capacity__BKIH -  1);
-        Self__ORKH=old_nb_elts__EKIH;
-        while ((Self__ORKH <= upper__QRKH)) {
-          new__FKIH[Self__ORKH]='\0';
-          Self__ORKH=(__INTEGER)(Self__ORKH +  1);
-        };
-        Self__CKIH->storage__3CS=new__FKIH;
-        Self__CKIH->capacity__UCS=new_capacity__BKIH;
-      };
-    };
-    ((__CHARACTER *)Self__CKIH->storage__3CS)[Self__CKIH->count__SGC]=result__GYAH;
-    Self__CKIH->count__SGC=(__INTEGER)(Self__CKIH->count__SGC +  1);
-    position__CCC=(__INTEGER)(position__CCC +  1);
-    is_parameter_type__AME=TRUE__;
-    until_do__I0ZE:
-    {
-      result__LYAH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__LYAH=((__CHARACTER )(( 0)));
-      } else {
-        result__LYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__LYAH == ((__CHARACTER )(( 0))))) {
-        __tmp__U3J=TRUE__;
-      } else {
-        result__UYAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__UYAH=((__CHARACTER )(( 0)));
-        } else {
-          result__UYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        result__BPEH=FALSE__;
-        if ((((__INTEGER_8 )result__UYAH) >= ((__INTEGER_8 )'A'))) {
-          result__BPEH=(((__INTEGER_8 )result__UYAH) <= ((__INTEGER_8 )'Z'));
-        };
-        if ((! result__BPEH)) {
-          result__ZYAH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__ZYAH=((__CHARACTER )(( 0)));
-          } else {
-            result__ZYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          result__K2FH=FALSE__;
-          if ((((__INTEGER_8 )result__ZYAH) >= ((__INTEGER_8 )'0'))) {
-            result__K2FH=(((__INTEGER_8 )result__ZYAH) <= ((__INTEGER_8 )'9'));
-          };
-          __tmp__Q3J=(! result__K2FH);
-        } else {
-          __tmp__Q3J=FALSE__;
-        };
-        if (__tmp__Q3J) {
-          result__4YAH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__4YAH=((__CHARACTER )(( 0)));
-          } else {
-            result__4YAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__R3J=(result__4YAH != '_');
-        } else {
-          __tmp__R3J=FALSE__;
-        };
-        __tmp__U3J=__tmp__R3J;
-      };
-      if ((! __tmp__U3J)) {
-        result__DZAH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__DZAH=((__CHARACTER )(( 0)));
-        } else {
-          result__DZAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if (is_parameter_type__AME) {
-          result__M2FH=FALSE__;
-          if ((((__INTEGER_8 )result__DZAH) >= ((__INTEGER_8 )'0'))) {
-            result__M2FH=(((__INTEGER_8 )result__DZAH) <= ((__INTEGER_8 )'9'));
-          };
-          __tmp__E4J=result__M2FH;
-        } else {
-          __tmp__E4J=FALSE__;
-        };
-        is_parameter_type__AME=__tmp__E4J;
-        Self__IKIH=((__STRING *)string_tmp__VH);
-        new_capacity__HKIH= 0;
-        if ((Self__IKIH->capacity__UCS <= Self__IKIH->count__SGC)) {
-          if ((Self__IKIH->capacity__UCS ==  0)) {
-            Self__IKIH->capacity__UCS= 32;
-            Self__IKIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__HKIH=(__INTEGER)(Self__IKIH->capacity__UCS <<  1);
-            Self__JKIH=((__CHARACTER *)Self__IKIH->storage__3CS);
-            old_nb_elts__KKIH=Self__IKIH->capacity__UCS;
-            new__LKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JKIH),((__UINTEGER_32 )old_nb_elts__KKIH),((__UINTEGER_32 )new_capacity__HKIH)));
-            upper__VRKH=(__INTEGER)(new_capacity__HKIH -  1);
-            Self__TRKH=old_nb_elts__KKIH;
-            while ((Self__TRKH <= upper__VRKH)) {
-              new__LKIH[Self__TRKH]='\0';
-              Self__TRKH=(__INTEGER)(Self__TRKH +  1);
-            };
-            Self__IKIH->storage__3CS=new__LKIH;
-            Self__IKIH->capacity__UCS=new_capacity__HKIH;
-          };
-        };
-        ((__CHARACTER *)Self__IKIH->storage__3CS)[Self__IKIH->count__SGC]=result__DZAH;
-        Self__IKIH->count__SGC=(__INTEGER)(Self__IKIH->count__SGC +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto until_do__I0ZE;
-      };
-    };
-    idx__R1J=first_substring_index__W0ZE(string_tmp__VH);
-    if ((idx__R1J !=  0)) {
-      position__CCC=(__INTEGER)(posold__Q1J + idx__R1J);
-      pos__24YG=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_207));
-      put_position__FRG(pos__24YG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    last_string__D2C=get__YWB(string_tmp__VH);
-    result__S1J=TRUE__;
-  };
-  return(result__S1J);
-}
-
-static void add_last__NABC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__OABC,void *element__PABC)
-// ({FAST_ARRAYoITM_TYPE_PARAMETERo},{NULLxITM_TYPE_PARAMETER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__QABC,__tmp__ZBBC,__tmp__J3SD,Self__5CYE;
-  __BOOLEAN __tmp__ABBC;
-  void **__tmp__YBBC,**new__V2SD;
-  new_capacity__QABC= 0;
-  if (((__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.upper__RABC +  1) <= (__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.capacity__TABC -  1))) {
-    Self__OABC->parent_arrayed_collection__LOE.upper__RABC=(__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.upper__RABC +  1);
-    __tmp__ABBC=TRUE__;
-  } else {
-    __tmp__ABBC=FALSE__;
-  };
-  if ((! __tmp__ABBC)) {
-    if ((Self__OABC->parent_arrayed_collection__LOE.capacity__TABC ==  0)) {
-      Self__OABC->parent_arrayed_collection__LOE.storage__PBBC=create__G01C( 2);
-      Self__OABC->parent_arrayed_collection__LOE.capacity__TABC= 2;
-      Self__OABC->parent_arrayed_collection__LOE.upper__RABC= 0;
-    } else {
-      new_capacity__QABC=(__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.capacity__TABC <<  1);
-      __tmp__YBBC=Self__OABC->parent_arrayed_collection__LOE.storage__PBBC;
-      __tmp__ZBBC=Self__OABC->parent_arrayed_collection__LOE.capacity__TABC;
-      new__V2SD=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__YBBC)),((__UINTEGER_32 )(__INTEGER)(__tmp__ZBBC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__QABC * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__J3SD=(__INTEGER)(new_capacity__QABC -  1);
-      Self__5CYE=__tmp__ZBBC;
-      while ((Self__5CYE <= __tmp__J3SD)) {
-        new__V2SD[Self__5CYE]=NULL;
-        Self__5CYE=(__INTEGER)(Self__5CYE +  1);
-      };
-      Self__OABC->parent_arrayed_collection__LOE.storage__PBBC=new__V2SD;
-      Self__OABC->parent_arrayed_collection__LOE.capacity__TABC=new_capacity__QABC;
-      Self__OABC->parent_arrayed_collection__LOE.upper__RABC=(__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.upper__RABC +  1);
-    };
-  };
-  ((void **)Self__OABC->parent_arrayed_collection__LOE.storage__PBBC)[Self__OABC->parent_arrayed_collection__LOE.upper__RABC]=element__PABC;
-}
-
-static __BOOLEAN read_external__2TO()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER pos_old__AUO,new_capacity__NKIH,old_nb_elts__QKIH;
-  __INTEGER upper__0RKH,Self__YRKH,new_capacity__TKIH,old_nb_elts__WKIH;
-  __INTEGER upper__5RKH,Self__3RKH;
-  __STRING *Self__OKIH,*Self__UKIH;
-  __BOOLEAN result__5TO,__tmp__LUO;
-  __CHARACTER result__Y0AH,result__C1AH,result__L1AH,result__Q1AH;
-  __CHARACTER result__V1AH,result__01AH,result__51AH,result__I2AH;
-  __CHARACTER *Self__PKIH,*new__RKIH,*Self__VKIH,*new__XKIH;
-  result__5TO=FALSE__;
-  pos_old__AUO= 0;
-  if ((! read_space__XTD())) {
-    __tmp__LUO=TRUE__;
-  } else {
-    result__Y0AH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__Y0AH=((__CHARACTER )(( 0)));
-    } else {
-      result__Y0AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    __tmp__LUO=(result__Y0AH != '`');
-  };
-  if (__tmp__LUO) {
-    result__5TO=FALSE__;
-  } else {
-    pos_old__AUO=position__CCC;
-    position__CCC=(__INTEGER)(position__CCC +  1);
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    until_do__MIRC:
-    {
-      result__C1AH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__C1AH=((__CHARACTER )(( 0)));
-      } else {
-        result__C1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      result__L1AH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__L1AH=((__CHARACTER )(( 0)));
-      } else {
-        result__L1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((! ((result__C1AH == ((__CHARACTER )(( 0)))) | (result__L1AH == '`')))) {
-        result__Q1AH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__Q1AH=((__CHARACTER )(( 0)));
-        } else {
-          result__Q1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        Self__OKIH=((__STRING *)string_tmp__VH);
-        new_capacity__NKIH= 0;
-        if ((Self__OKIH->capacity__UCS <= Self__OKIH->count__SGC)) {
-          if ((Self__OKIH->capacity__UCS ==  0)) {
-            Self__OKIH->capacity__UCS= 32;
-            Self__OKIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__NKIH=(__INTEGER)(Self__OKIH->capacity__UCS <<  1);
-            Self__PKIH=((__CHARACTER *)Self__OKIH->storage__3CS);
-            old_nb_elts__QKIH=Self__OKIH->capacity__UCS;
-            new__RKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PKIH),((__UINTEGER_32 )old_nb_elts__QKIH),((__UINTEGER_32 )new_capacity__NKIH)));
-            upper__0RKH=(__INTEGER)(new_capacity__NKIH -  1);
-            Self__YRKH=old_nb_elts__QKIH;
-            while ((Self__YRKH <= upper__0RKH)) {
-              new__RKIH[Self__YRKH]='\0';
-              Self__YRKH=(__INTEGER)(Self__YRKH +  1);
-            };
-            Self__OKIH->storage__3CS=new__RKIH;
-            Self__OKIH->capacity__UCS=new_capacity__NKIH;
-          };
-        };
-        ((__CHARACTER *)Self__OKIH->storage__3CS)[Self__OKIH->count__SGC]=result__Q1AH;
-        Self__OKIH->count__SGC=(__INTEGER)(Self__OKIH->count__SGC +  1);
-        result__V1AH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__V1AH=((__CHARACTER )(( 0)));
-        } else {
-          result__V1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__V1AH == '\\')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__01AH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__01AH=((__CHARACTER )(( 0)));
-          } else {
-            result__01AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__UKIH=((__STRING *)string_tmp__VH);
-          new_capacity__TKIH= 0;
-          if ((Self__UKIH->capacity__UCS <= Self__UKIH->count__SGC)) {
-            if ((Self__UKIH->capacity__UCS ==  0)) {
-              Self__UKIH->capacity__UCS= 32;
-              Self__UKIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__TKIH=(__INTEGER)(Self__UKIH->capacity__UCS <<  1);
-              Self__VKIH=((__CHARACTER *)Self__UKIH->storage__3CS);
-              old_nb_elts__WKIH=Self__UKIH->capacity__UCS;
-              new__XKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VKIH),((__UINTEGER_32 )old_nb_elts__WKIH),((__UINTEGER_32 )new_capacity__TKIH)));
-              upper__5RKH=(__INTEGER)(new_capacity__TKIH -  1);
-              Self__3RKH=old_nb_elts__WKIH;
-              while ((Self__3RKH <= upper__5RKH)) {
-                new__XKIH[Self__3RKH]='\0';
-                Self__3RKH=(__INTEGER)(Self__3RKH +  1);
-              };
-              Self__UKIH->storage__3CS=new__XKIH;
-              Self__UKIH->capacity__UCS=new_capacity__TKIH;
-            };
-          };
-          ((__CHARACTER *)Self__UKIH->storage__3CS)[Self__UKIH->count__SGC]=result__01AH;
-          Self__UKIH->count__SGC=(__INTEGER)(Self__UKIH->count__SGC +  1);
-          result__51AH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__51AH=((__CHARACTER )(( 0)));
-          } else {
-            result__51AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__51AH != ((__CHARACTER )(( 0))))) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-          };
-        } else {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-        };
-        goto until_do__MIRC;
-      };
-    };
-    result__I2AH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__I2AH=((__CHARACTER )(( 0)));
-    } else {
-      result__I2AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__I2AH != ((__CHARACTER )(( 0))))) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      last_string__D2C=get__YWB(string_tmp__VH);
-      result__5TO=TRUE__;
-      short__token__to__GDD((&__string_65),pos_old__AUO,position__CCC);
-    } else {
-      result__5TO=FALSE__;
-    };
-  };
-  return(result__5TO);
-}
-
-static void* read_expr_primary__E5M(__PARSER *Self__F5M)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *result__H5M;
-  void *type__I5M;
-  void *group_sav__N5M,*lst__CHHB;
-  __POSITION p__LSKH,pos__GBZG,p__UIAB,p__NLIH,p__BUKH,pos__IBZG,p__I3H;
-  __POSITION pos__KBZG,pos__SBZG,__tmp__RGN,__tmp__ZGN,pos__ACZG;
-  __POSITION pos__CCZG,pos__ECZG,pos__GCZG;
-  __ITM_READ *result__DSKH,*result__RVGB;
-  __POINTER ptr__ESKH,ptr_table__NSKH,next__MSKH,result__OSKH;
-  __POINTER ptr_table__SSKH,next__RSKH,result__TSKH,ptr__SVGB;
-  __POINTER ptr_table__DTKH,next__CTKH,result__ETKH,ptr_table__ITKH;
-  __POINTER next__HTKH,result__JTKH,ptr__GLIH,ptr_table__NTKH;
-  __POINTER next__MTKH,result__OTKH,ptr_table__STKH,next__RTKH;
-  __POINTER result__TTKH,ptr__0TKH,ptr_table__DUKH,next__CUKH;
-  __POINTER result__EUKH,ptr_table__IUKH,next__HUKH,result__JUKH;
-  __POINTER ptr__2RI,ptr_table__TUKH,next__SUKH,result__UUKH;
-  __POINTER ptr_table__YUKH,next__XUKH,result__ZUKH,ptr__0EMB;
-  __POINTER ptr_table__AVKH,next__5UKH,result__BVKH,ptr_table__FVKH;
-  __POINTER next__EVKH,result__GVKH,ptr__3TTB,ptr_table__QVKH;
-  __POINTER next__PVKH,result__RVKH,ptr_table__VVKH,next__UVKH;
-  __POINTER result__WVKH,ptr__RVTB,ptr_table__3VKH,next__2VKH;
-  __POINTER result__4VKH,ptr_table__CWKH,next__BWKH,result__DWKH;
-  __INTEGER typ_id__FSKH,new_capacity__ZKIH,old_nb_elts__2KIH;
-  __INTEGER upper__1SKH,Self__ZSKH,new_capacity__5KIH,old_nb_elts__CLIH;
-  __INTEGER upper__ATKH,Self__4SKH,typ_id__XVGB,typ_id__HLIH;
-  __INTEGER typ_id__1TKH,typ_id__BSI,typ_id__5EMB,typ_id__CUTB;
-  __INTEGER typ_id__WVTB;
-  __UINTEGER_32 sz__GSKH,a__HSKH,new_size__ISKH,t__JSKH,a__KSKH;
-  __UINTEGER_32 new_size__VSKH,lab_type__USKH,sz__UVGB,a__EFGH;
-  __UINTEGER_32 new_size__FFGH,t__JFGH,a__IFGH,new_size__LTKH;
-  __UINTEGER_32 lab_type__KTKH,sz__ILIH,a__JLIH,new_size__KLIH,t__LLIH;
-  __UINTEGER_32 a__MLIH,new_size__VTKH,lab_type__UTKH,sz__2TKH,a__3TKH;
-  __UINTEGER_32 new_size__4TKH,t__5TKH,a__AUKH,new_size__LUKH;
-  __UINTEGER_32 lab_type__KUKH,sz__4RI,a__MDGH,new_size__NDGH,t__RDGH;
-  __UINTEGER_32 a__QDGH,new_size__1UKH,lab_type__0UKH,sz__2EMB,a__Y2FH;
-  __UINTEGER_32 new_size__Z2FH,t__32FH,a__22FH,new_size__IVKH;
-  __UINTEGER_32 lab_type__HVKH,sz__5TTB,a__A3FH,new_size__B3FH,t__F3FH;
-  __UINTEGER_32 a__E3FH,new_size__YVKH,lab_type__XVKH,sz__TVTB,a__I3FH;
-  __UINTEGER_32 new_size__J3FH,t__N3FH,a__M3FH,new_size__FWKH;
-  __UINTEGER_32 lab_type__EWKH;
-  __STRING *Self__0KIH,*Self__ALIH;
-  __ITM_PROTOTYPE *result__FLIH;
-  __ITM_LIST *result__ZTKH,*result__1RI;
-  __ITM_BLOCK *result__ZEMB;
-  __ITM_EXTERNAL *result__2TTB;
-  __ITM_EXTERNAL_TYPE *result__QVTB,*Self__JZEC;
-  __BOOLEAN result__CSKH,__tmp__35M,__tmp__ACN,result__XSKH;
-  __BOOLEAN result__U2FH,__tmp__PCN,result__30N,__tmp__3CN,__tmp__0DN;
-  __BOOLEAN result__WTKH,result__MUKH,__tmp__3FN,result__PUKH;
-  __BOOLEAN result__2UKH,result__JVKH,result__MVKH,result__ZVKH;
-  __BOOLEAN result__GWKH,result__JWKH,result__MWKH,__tmp__TIN;
-  __CHARACTER result__R2AH,result__W2AH,result__12AH,result__XTKH;
-  __CHARACTER result__NUKH,result__QUKH,result__3UKH,result__KVKH;
-  __CHARACTER result__NVKH,result__0VKH,result__HWKH,result__KWKH;
-  __CHARACTER result__NWKH;
-  __CHARACTER *Self__1KIH,*new__3KIH,*Self__BLIH,*new__DLIH;
-  result__H5M=NULL;
-  type__I5M=NULL;
-  group_sav__N5M=NULL;
-  result__CSKH=read_word__ISF((&__string_58));
-  if (is_shorter__LZ) {
-    if (result__CSKH) {
-      if (((void *)(&__string_58) == (void *)(&__string_4))) {
-        short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      } else {
-        short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      };
-    };
-  };
-  if (result__CSKH) {
-    p__LSKH=current_position__B0F();
-    result__DSKH=NULL;
-    ptr__ESKH=((__POINTER )(NULL));
-    typ_id__FSKH= 0;
-    sz__GSKH=((__UINTEGER_32 )sizeof(__ITM_READ));
-    if ((sz__GSKH ==  0)) {
-      result__DSKH=ITM_READ__;
-    } else {
-      typ_id__FSKH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GSKH);
-      if ((typ_id__FSKH == (__INTEGER)(-  1))) {
-        a__HSKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ISKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GSKH + a__HSKH) & (__UINTEGER_32)(~ a__HSKH));
-        ptr_table__NSKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ISKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__MSKH=((__POINTER )(NULL));
-        result__OSKH=((__POINTER *)ptr_table__NSKH)[ 0];
-        if ((result__OSKH == (void *)NULL)) {
-          result__OSKH=new_lab__RTJ(new_size__ISKH);
-          next__MSKH=(void *)((unsigned long)result__OSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISKH)));
-          ((__POINTER *)next__MSKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__NSKH)[ 0]=next__MSKH;
-        } else {
-          next__MSKH=((__POINTER *)result__OSKH)[ 0];
-          if ((next__MSKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OSKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ISKH <<  1)) <=  4096)) {
-              next__MSKH=(void *)((unsigned long)result__OSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISKH)));
-            } else {
-              next__MSKH=new_lab__RTJ(new_size__ISKH);
-            };
-            ((__POINTER *)next__MSKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__NSKH)[ 0]=next__MSKH;
-          } else {
-            ((__POINTER *)result__OSKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MSKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__OSKH=next__MSKH;
-          };
-        };
-        ptr__ESKH=result__OSKH;
-      } else {
-        t__JSKH=((__UINTEGER_32 )typ_id__FSKH);
-        a__KSKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__VSKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GSKH + a__KSKH) & (__UINTEGER_32)(~ a__KSKH));
-        ptr_table__SSKH=((__POINTER )(&(table_type[(t__JSKH)])));
-        lab_type__USKH=(__UINTEGER_32)(t__JSKH |  1);
-        next__RSKH=((__POINTER )(NULL));
-        result__TSKH=((__POINTER *)ptr_table__SSKH)[ 0];
-        if ((result__TSKH == (void *)NULL)) {
-          result__TSKH=new_lab__RTJ(lab_type__USKH);
-          next__RSKH=(void *)((unsigned long)result__TSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSKH)));
-          ((__POINTER *)next__RSKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__SSKH)[ 0]=next__RSKH;
-        } else {
-          next__RSKH=((__POINTER *)result__TSKH)[ 0];
-          if ((next__RSKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TSKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VSKH <<  1)) <=  4096)) {
-              next__RSKH=(void *)((unsigned long)result__TSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSKH)));
-            } else {
-              next__RSKH=new_lab__RTJ(lab_type__USKH);
-            };
-            ((__POINTER *)next__RSKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__SSKH)[ 0]=next__RSKH;
-          } else {
-            ((__POINTER *)result__TSKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RSKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__TSKH=next__RSKH;
-          };
-        };
-        ptr__ESKH=result__TSKH;
-      };
-      result__DSKH=((__ITM_READ *)ptr__ESKH);
-      *(result__DSKH) = *(ITM_READ__);
-    };
-    ((__ITM_READ *)result__DSKH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__LSKH;
-    result__H5M=result__DSKH;
-    __tmp__35M=TRUE__;
-  } else {
-    __tmp__35M=FALSE__;
-  };
-  if (__tmp__35M) {
-    __tmp__ACN=TRUE__;
-  } else {
-    result__XSKH=read_word__ISF((&__string_11));
-    if (is_shorter__LZ) {
-      if (result__XSKH) {
-        if (((void *)(&__string_11) == (void *)(&__string_4))) {
-          short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        } else {
-          short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        };
-      };
-    };
-    if (result__XSKH) {
-      result__R2AH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__R2AH=((__CHARACTER )(( 0)));
-      } else {
-        result__R2AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__R2AH == '_')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        copy__VDS(string_tmp__VH,(&__string_11));
-        Self__0KIH=((__STRING *)string_tmp__VH);
-        new_capacity__ZKIH= 0;
-        if ((Self__0KIH->capacity__UCS <= Self__0KIH->count__SGC)) {
-          if ((Self__0KIH->capacity__UCS ==  0)) {
-            Self__0KIH->capacity__UCS= 32;
-            Self__0KIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__ZKIH=(__INTEGER)(Self__0KIH->capacity__UCS <<  1);
-            Self__1KIH=((__CHARACTER *)Self__0KIH->storage__3CS);
-            old_nb_elts__2KIH=Self__0KIH->capacity__UCS;
-            new__3KIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1KIH),((__UINTEGER_32 )old_nb_elts__2KIH),((__UINTEGER_32 )new_capacity__ZKIH)));
-            upper__1SKH=(__INTEGER)(new_capacity__ZKIH -  1);
-            Self__ZSKH=old_nb_elts__2KIH;
-            while ((Self__ZSKH <= upper__1SKH)) {
-              new__3KIH[Self__ZSKH]='\0';
-              Self__ZSKH=(__INTEGER)(Self__ZSKH +  1);
-            };
-            Self__0KIH->storage__3CS=new__3KIH;
-            Self__0KIH->capacity__UCS=new_capacity__ZKIH;
-          };
-        };
-        ((__CHARACTER *)Self__0KIH->storage__3CS)[Self__0KIH->count__SGC]='_';
-        Self__0KIH->count__SGC=(__INTEGER)(Self__0KIH->count__SGC +  1);
-        while_do__HUQB:
-        {
-          result__W2AH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__W2AH=((__CHARACTER )(( 0)));
-          } else {
-            result__W2AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          result__U2FH=FALSE__;
-          if ((((__INTEGER_8 )result__W2AH) >= ((__INTEGER_8 )'0'))) {
-            result__U2FH=(((__INTEGER_8 )result__W2AH) <= ((__INTEGER_8 )'9'));
-          };
-          if (result__U2FH) {
-            result__12AH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__12AH=((__CHARACTER )(( 0)));
-            } else {
-              result__12AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            Self__ALIH=((__STRING *)string_tmp__VH);
-            new_capacity__5KIH= 0;
-            if ((Self__ALIH->capacity__UCS <= Self__ALIH->count__SGC)) {
-              if ((Self__ALIH->capacity__UCS ==  0)) {
-                Self__ALIH->capacity__UCS= 32;
-                Self__ALIH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__5KIH=(__INTEGER)(Self__ALIH->capacity__UCS <<  1);
-                Self__BLIH=((__CHARACTER *)Self__ALIH->storage__3CS);
-                old_nb_elts__CLIH=Self__ALIH->capacity__UCS;
-                new__DLIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BLIH),((__UINTEGER_32 )old_nb_elts__CLIH),((__UINTEGER_32 )new_capacity__5KIH)));
-                upper__ATKH=(__INTEGER)(new_capacity__5KIH -  1);
-                Self__4SKH=old_nb_elts__CLIH;
-                while ((Self__4SKH <= upper__ATKH)) {
-                  new__DLIH[Self__4SKH]='\0';
-                  Self__4SKH=(__INTEGER)(Self__4SKH +  1);
-                };
-                Self__ALIH->storage__3CS=new__DLIH;
-                Self__ALIH->capacity__UCS=new_capacity__5KIH;
-              };
-            };
-            ((__CHARACTER *)Self__ALIH->storage__3CS)[Self__ALIH->count__SGC]=result__12AH;
-            Self__ALIH->count__SGC=(__INTEGER)(Self__ALIH->count__SGC +  1);
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            goto while_do__HUQB;
-          };
-        };
-        if ((((__STRING *)string_tmp__VH)->count__SGC ==  0)) {
-          pos__GBZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_304));
-          put_position__FRG(pos__GBZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        get__YWB(string_tmp__VH);
-      };
-      p__UIAB=current_position__B0F();
-      result__RVGB=NULL;
-      ptr__SVGB=((__POINTER )(NULL));
-      typ_id__XVGB= 0;
-      sz__UVGB=((__UINTEGER_32 )sizeof(__ITM_READ));
-      if ((sz__UVGB ==  0)) {
-        result__RVGB=ITM_READ__;
-      } else {
-        typ_id__XVGB=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UVGB);
-        if ((typ_id__XVGB == (__INTEGER)(-  1))) {
-          a__EFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__FFGH=(__UINTEGER_32)((__UINTEGER_32)(sz__UVGB + a__EFGH) & (__UINTEGER_32)(~ a__EFGH));
-          ptr_table__DTKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FFGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__CTKH=((__POINTER )(NULL));
-          result__ETKH=((__POINTER *)ptr_table__DTKH)[ 0];
-          if ((result__ETKH == (void *)NULL)) {
-            result__ETKH=new_lab__RTJ(new_size__FFGH);
-            next__CTKH=(void *)((unsigned long)result__ETKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFGH)));
-            ((__POINTER *)next__CTKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DTKH)[ 0]=next__CTKH;
-          } else {
-            next__CTKH=((__POINTER *)result__ETKH)[ 0];
-            if ((next__CTKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ETKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FFGH <<  1)) <=  4096)) {
-                next__CTKH=(void *)((unsigned long)result__ETKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFGH)));
-              } else {
-                next__CTKH=new_lab__RTJ(new_size__FFGH);
-              };
-              ((__POINTER *)next__CTKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__DTKH)[ 0]=next__CTKH;
-            } else {
-              ((__POINTER *)result__ETKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__ETKH=next__CTKH;
-            };
-          };
-          ptr__SVGB=result__ETKH;
-        } else {
-          t__JFGH=((__UINTEGER_32 )typ_id__XVGB);
-          a__IFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__LTKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UVGB + a__IFGH) & (__UINTEGER_32)(~ a__IFGH));
-          ptr_table__ITKH=((__POINTER )(&(table_type[(t__JFGH)])));
-          lab_type__KTKH=(__UINTEGER_32)(t__JFGH |  1);
-          next__HTKH=((__POINTER )(NULL));
-          result__JTKH=((__POINTER *)ptr_table__ITKH)[ 0];
-          if ((result__JTKH == (void *)NULL)) {
-            result__JTKH=new_lab__RTJ(lab_type__KTKH);
-            next__HTKH=(void *)((unsigned long)result__JTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LTKH)));
-            ((__POINTER *)next__HTKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__ITKH)[ 0]=next__HTKH;
-          } else {
-            next__HTKH=((__POINTER *)result__JTKH)[ 0];
-            if ((next__HTKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JTKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__LTKH <<  1)) <=  4096)) {
-                next__HTKH=(void *)((unsigned long)result__JTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LTKH)));
-              } else {
-                next__HTKH=new_lab__RTJ(lab_type__KTKH);
-              };
-              ((__POINTER *)next__HTKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__ITKH)[ 0]=next__HTKH;
-            } else {
-              ((__POINTER *)result__JTKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__JTKH=next__HTKH;
-            };
-          };
-          ptr__SVGB=result__JTKH;
-        };
-        result__RVGB=((__ITM_READ *)ptr__SVGB);
-        *(result__RVGB) = *(ITM_READ__);
-      };
-      ((__ITM_READ *)result__RVGB)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__UIAB;
-      result__H5M=result__RVGB;
-    };
-    __tmp__ACN=result__XSKH;
-  };
-  if (__tmp__ACN) {
-    __tmp__PCN=TRUE__;
-  } else {
-    type__I5M=read_prototype__DPN(Self__F5M,NULL);
-    result__30N=((void *)type__I5M != (void *)NULL);
-    if (result__30N) {
-      p__NLIH=current_position__B0F();
-      result__FLIH=NULL;
-      ptr__GLIH=((__POINTER )(NULL));
-      typ_id__HLIH= 0;
-      sz__ILIH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
-      if ((sz__ILIH ==  0)) {
-        result__FLIH=ITM_PROTOTYPE__;
-      } else {
-        typ_id__HLIH=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ILIH);
-        if ((typ_id__HLIH == (__INTEGER)(-  1))) {
-          a__JLIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__KLIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILIH + a__JLIH) & (__UINTEGER_32)(~ a__JLIH));
-          ptr_table__NTKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KLIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__MTKH=((__POINTER )(NULL));
-          result__OTKH=((__POINTER *)ptr_table__NTKH)[ 0];
-          if ((result__OTKH == (void *)NULL)) {
-            result__OTKH=new_lab__RTJ(new_size__KLIH);
-            next__MTKH=(void *)((unsigned long)result__OTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KLIH)));
-            ((__POINTER *)next__MTKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__NTKH)[ 0]=next__MTKH;
-          } else {
-            next__MTKH=((__POINTER *)result__OTKH)[ 0];
-            if ((next__MTKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OTKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__KLIH <<  1)) <=  4096)) {
-                next__MTKH=(void *)((unsigned long)result__OTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KLIH)));
-              } else {
-                next__MTKH=new_lab__RTJ(new_size__KLIH);
-              };
-              ((__POINTER *)next__MTKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__NTKH)[ 0]=next__MTKH;
-            } else {
-              ((__POINTER *)result__OTKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__OTKH=next__MTKH;
-            };
-          };
-          ptr__GLIH=result__OTKH;
-        } else {
-          t__LLIH=((__UINTEGER_32 )typ_id__HLIH);
-          a__MLIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__VTKH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILIH + a__MLIH) & (__UINTEGER_32)(~ a__MLIH));
-          ptr_table__STKH=((__POINTER )(&(table_type[(t__LLIH)])));
-          lab_type__UTKH=(__UINTEGER_32)(t__LLIH |  1);
-          next__RTKH=((__POINTER )(NULL));
-          result__TTKH=((__POINTER *)ptr_table__STKH)[ 0];
-          if ((result__TTKH == (void *)NULL)) {
-            result__TTKH=new_lab__RTJ(lab_type__UTKH);
-            next__RTKH=(void *)((unsigned long)result__TTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VTKH)));
-            ((__POINTER *)next__RTKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__STKH)[ 0]=next__RTKH;
-          } else {
-            next__RTKH=((__POINTER *)result__TTKH)[ 0];
-            if ((next__RTKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TTKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VTKH <<  1)) <=  4096)) {
-                next__RTKH=(void *)((unsigned long)result__TTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VTKH)));
-              } else {
-                next__RTKH=new_lab__RTJ(lab_type__UTKH);
-              };
-              ((__POINTER *)next__RTKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__STKH)[ 0]=next__RTKH;
-            } else {
-              ((__POINTER *)result__TTKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__TTKH=next__RTKH;
-            };
-          };
-          ptr__GLIH=result__TTKH;
-        };
-        result__FLIH=((__ITM_PROTOTYPE *)ptr__GLIH);
-        *(result__FLIH) = *(ITM_PROTOTYPE__);
-      };
-      ((__ITM_PROTOTYPE *)result__FLIH)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=p__NLIH;
-      result__H5M=result__FLIH;
-    };
-    __tmp__PCN=result__30N;
-  };
-  if (__tmp__PCN) {
-    __tmp__3CN=TRUE__;
-  } else {
-    result__H5M=read_constant__XRO();
-    __tmp__3CN=((void *)result__H5M != (void *)NULL);
-  };
-  if (__tmp__3CN) {
-    __tmp__0DN=TRUE__;
-  } else {
-    result__WTKH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__WTKH=FALSE__;
-    } else {
-      result__XTKH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__XTKH=((__CHARACTER )(( 0)));
-      } else {
-        result__XTKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__XTKH == '(')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__WTKH=TRUE__;
-      };
-    };
-    if (result__WTKH) {
-      group_sav__N5M=last_group__TWF;
-      p__BUKH=current_position__B0F();
-      result__ZTKH=NULL;
-      ptr__0TKH=((__POINTER )(NULL));
-      typ_id__1TKH= 0;
-      sz__2TKH=((__UINTEGER_32 )sizeof(__ITM_LIST));
-      if ((sz__2TKH ==  0)) {
-        result__ZTKH=ITM_LIST__;
-      } else {
-        typ_id__1TKH=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2TKH);
-        if ((typ_id__1TKH == (__INTEGER)(-  1))) {
-          a__3TKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__4TKH=(__UINTEGER_32)((__UINTEGER_32)(sz__2TKH + a__3TKH) & (__UINTEGER_32)(~ a__3TKH));
-          ptr_table__DUKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4TKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__CUKH=((__POINTER )(NULL));
-          result__EUKH=((__POINTER *)ptr_table__DUKH)[ 0];
-          if ((result__EUKH == (void *)NULL)) {
-            result__EUKH=new_lab__RTJ(new_size__4TKH);
-            next__CUKH=(void *)((unsigned long)result__EUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TKH)));
-            ((__POINTER *)next__CUKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DUKH)[ 0]=next__CUKH;
-          } else {
-            next__CUKH=((__POINTER *)result__EUKH)[ 0];
-            if ((next__CUKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EUKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__4TKH <<  1)) <=  4096)) {
-                next__CUKH=(void *)((unsigned long)result__EUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TKH)));
-              } else {
-                next__CUKH=new_lab__RTJ(new_size__4TKH);
-              };
-              ((__POINTER *)next__CUKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__DUKH)[ 0]=next__CUKH;
-            } else {
-              ((__POINTER *)result__EUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__EUKH=next__CUKH;
-            };
-          };
-          ptr__0TKH=result__EUKH;
-        } else {
-          t__5TKH=((__UINTEGER_32 )typ_id__1TKH);
-          a__AUKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__LUKH=(__UINTEGER_32)((__UINTEGER_32)(sz__2TKH + a__AUKH) & (__UINTEGER_32)(~ a__AUKH));
-          ptr_table__IUKH=((__POINTER )(&(table_type[(t__5TKH)])));
-          lab_type__KUKH=(__UINTEGER_32)(t__5TKH |  1);
-          next__HUKH=((__POINTER )(NULL));
-          result__JUKH=((__POINTER *)ptr_table__IUKH)[ 0];
-          if ((result__JUKH == (void *)NULL)) {
-            result__JUKH=new_lab__RTJ(lab_type__KUKH);
-            next__HUKH=(void *)((unsigned long)result__JUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LUKH)));
-            ((__POINTER *)next__HUKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__IUKH)[ 0]=next__HUKH;
-          } else {
-            next__HUKH=((__POINTER *)result__JUKH)[ 0];
-            if ((next__HUKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JUKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__LUKH <<  1)) <=  4096)) {
-                next__HUKH=(void *)((unsigned long)result__JUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LUKH)));
-              } else {
-                next__HUKH=new_lab__RTJ(lab_type__KUKH);
-              };
-              ((__POINTER *)next__HUKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__IUKH)[ 0]=next__HUKH;
-            } else {
-              ((__POINTER *)result__JUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__JUKH=next__HUKH;
-            };
-          };
-          ptr__0TKH=result__JUKH;
-        };
-        result__ZTKH=((__ITM_LIST *)ptr__0TKH);
-        *(result__ZTKH) = *(ITM_LIST__);
-      };
-      ((__ITM_LIST *)result__ZTKH)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ=p__BUKH;
-      last_group__TWF=result__ZTKH;
-      result__H5M=result__ZTKH;
-      read_group__C4GB(Self__F5M);
-      result__MUKH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__MUKH=FALSE__;
-      } else {
-        result__NUKH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__NUKH=((__CHARACTER )(( 0)));
-        } else {
-          result__NUKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__NUKH == ')')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__MUKH=TRUE__;
-        };
-      };
-      if ((! result__MUKH)) {
-        pos__IBZG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_262));
-        put_position__FRG(pos__IBZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      last_group__TWF=group_sav__N5M;
-    };
-    __tmp__0DN=result__WTKH;
-  };
-  if (__tmp__0DN) {
-    __tmp__3FN=TRUE__;
-  } else {
-    result__PUKH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__PUKH=FALSE__;
-    } else {
-      result__QUKH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__QUKH=((__CHARACTER )(( 0)));
-      } else {
-        result__QUKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__QUKH == '{')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__PUKH=TRUE__;
-      };
-    };
-    if (result__PUKH) {
-      short__token__to__GDD((&__string_133),(__INTEGER)(position__CCC -  1),position__CCC);
-      group_sav__N5M=last_group__TWF;
-      p__I3H=current_position__B0F();
-      result__1RI=NULL;
-      ptr__2RI=((__POINTER )(NULL));
-      typ_id__BSI= 0;
-      sz__4RI=((__UINTEGER_32 )sizeof(__ITM_LIST));
-      if ((sz__4RI ==  0)) {
-        result__1RI=ITM_LIST__;
-      } else {
-        typ_id__BSI=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4RI);
-        if ((typ_id__BSI == (__INTEGER)(-  1))) {
-          a__MDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__NDGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RI + a__MDGH) & (__UINTEGER_32)(~ a__MDGH));
-          ptr_table__TUKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NDGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__SUKH=((__POINTER )(NULL));
-          result__UUKH=((__POINTER *)ptr_table__TUKH)[ 0];
-          if ((result__UUKH == (void *)NULL)) {
-            result__UUKH=new_lab__RTJ(new_size__NDGH);
-            next__SUKH=(void *)((unsigned long)result__UUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDGH)));
-            ((__POINTER *)next__SUKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__TUKH)[ 0]=next__SUKH;
-          } else {
-            next__SUKH=((__POINTER *)result__UUKH)[ 0];
-            if ((next__SUKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UUKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NDGH <<  1)) <=  4096)) {
-                next__SUKH=(void *)((unsigned long)result__UUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDGH)));
-              } else {
-                next__SUKH=new_lab__RTJ(new_size__NDGH);
-              };
-              ((__POINTER *)next__SUKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__TUKH)[ 0]=next__SUKH;
-            } else {
-              ((__POINTER *)result__UUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__UUKH=next__SUKH;
-            };
-          };
-          ptr__2RI=result__UUKH;
-        } else {
-          t__RDGH=((__UINTEGER_32 )typ_id__BSI);
-          a__QDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__1UKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RI + a__QDGH) & (__UINTEGER_32)(~ a__QDGH));
-          ptr_table__YUKH=((__POINTER )(&(table_type[(t__RDGH)])));
-          lab_type__0UKH=(__UINTEGER_32)(t__RDGH |  1);
-          next__XUKH=((__POINTER )(NULL));
-          result__ZUKH=((__POINTER *)ptr_table__YUKH)[ 0];
-          if ((result__ZUKH == (void *)NULL)) {
-            result__ZUKH=new_lab__RTJ(lab_type__0UKH);
-            next__XUKH=(void *)((unsigned long)result__ZUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UKH)));
-            ((__POINTER *)next__XUKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__YUKH)[ 0]=next__XUKH;
-          } else {
-            next__XUKH=((__POINTER *)result__ZUKH)[ 0];
-            if ((next__XUKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZUKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__1UKH <<  1)) <=  4096)) {
-                next__XUKH=(void *)((unsigned long)result__ZUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UKH)));
-              } else {
-                next__XUKH=new_lab__RTJ(lab_type__0UKH);
-              };
-              ((__POINTER *)next__XUKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__YUKH)[ 0]=next__XUKH;
-            } else {
-              ((__POINTER *)result__ZUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__ZUKH=next__XUKH;
-            };
-          };
-          ptr__2RI=result__ZUKH;
-        };
-        result__1RI=((__ITM_LIST *)ptr__2RI);
-        *(result__1RI) = *(ITM_LIST__);
-      };
-      ((__ITM_LIST *)result__1RI)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ=p__I3H;
-      last_group__TWF=result__1RI;
-      old_position__ITI=position__CCC;
-      old_pos_cur__KTI=pos_cur__FCC;
-      old_pos_line__MTI=pos_line__GCC;
-      old_pos_col__OTI=pos_col__HCC;
-      old_short_derive__QTI=short_derive__PCC;
-      if (((void *)read_loc_arg__with_self__BBHB(Self__F5M,TRUE__,FALSE__) != (void *)NULL)) {
-        result__2UKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__2UKH=FALSE__;
-        } else {
-          result__3UKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__3UKH=((__CHARACTER )(( 0)));
-          } else {
-            result__3UKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__3UKH == ';')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__2UKH=TRUE__;
-          };
-        };
-        if ((! result__2UKH)) {
-          pos__KBZG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_241));
-          put_position__FRG(pos__KBZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      } else {
-        restore_context__EFL();
-      };
-      lst__CHHB=last_group__TWF;
-      result__ZEMB=NULL;
-      ptr__0EMB=((__POINTER )(NULL));
-      typ_id__5EMB= 0;
-      sz__2EMB=((__UINTEGER_32 )sizeof(__ITM_BLOCK));
-      if ((sz__2EMB ==  0)) {
-        result__ZEMB=ITM_BLOCK__;
-      } else {
-        typ_id__5EMB=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2EMB);
-        if ((typ_id__5EMB == (__INTEGER)(-  1))) {
-          a__Y2FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__Z2FH=(__UINTEGER_32)((__UINTEGER_32)(sz__2EMB + a__Y2FH) & (__UINTEGER_32)(~ a__Y2FH));
-          ptr_table__AVKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z2FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__5UKH=((__POINTER )(NULL));
-          result__BVKH=((__POINTER *)ptr_table__AVKH)[ 0];
-          if ((result__BVKH == (void *)NULL)) {
-            result__BVKH=new_lab__RTJ(new_size__Z2FH);
-            next__5UKH=(void *)((unsigned long)result__BVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z2FH)));
-            ((__POINTER *)next__5UKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__AVKH)[ 0]=next__5UKH;
-          } else {
-            next__5UKH=((__POINTER *)result__BVKH)[ 0];
-            if ((next__5UKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BVKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__Z2FH <<  1)) <=  4096)) {
-                next__5UKH=(void *)((unsigned long)result__BVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z2FH)));
-              } else {
-                next__5UKH=new_lab__RTJ(new_size__Z2FH);
-              };
-              ((__POINTER *)next__5UKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AVKH)[ 0]=next__5UKH;
-            } else {
-              ((__POINTER *)result__BVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5UKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__BVKH=next__5UKH;
-            };
-          };
-          ptr__0EMB=result__BVKH;
-        } else {
-          t__32FH=((__UINTEGER_32 )typ_id__5EMB);
-          a__22FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__IVKH=(__UINTEGER_32)((__UINTEGER_32)(sz__2EMB + a__22FH) & (__UINTEGER_32)(~ a__22FH));
-          ptr_table__FVKH=((__POINTER )(&(table_type[(t__32FH)])));
-          lab_type__HVKH=(__UINTEGER_32)(t__32FH |  1);
-          next__EVKH=((__POINTER )(NULL));
-          result__GVKH=((__POINTER *)ptr_table__FVKH)[ 0];
-          if ((result__GVKH == (void *)NULL)) {
-            result__GVKH=new_lab__RTJ(lab_type__HVKH);
-            next__EVKH=(void *)((unsigned long)result__GVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IVKH)));
-            ((__POINTER *)next__EVKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__FVKH)[ 0]=next__EVKH;
-          } else {
-            next__EVKH=((__POINTER *)result__GVKH)[ 0];
-            if ((next__EVKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GVKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IVKH <<  1)) <=  4096)) {
-                next__EVKH=(void *)((unsigned long)result__GVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IVKH)));
-              } else {
-                next__EVKH=new_lab__RTJ(lab_type__HVKH);
-              };
-              ((__POINTER *)next__EVKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FVKH)[ 0]=next__EVKH;
-            } else {
-              ((__POINTER *)result__GVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EVKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__GVKH=next__EVKH;
-            };
-          };
-          ptr__0EMB=result__GVKH;
-        };
-        result__ZEMB=((__ITM_BLOCK *)ptr__0EMB);
-        *(result__ZEMB) = *(ITM_BLOCK__);
-      };
-      ((__ITM_BLOCK *)result__ZEMB)->list__KMDC=lst__CHHB;
-      result__H5M=result__ZEMB;
-      read_group__C4GB(Self__F5M);
-      result__JVKH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__JVKH=FALSE__;
-      } else {
-        result__KVKH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__KVKH=((__CHARACTER )(( 0)));
-        } else {
-          result__KVKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__KVKH == '}')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__JVKH=TRUE__;
-        };
-      };
-      if ((! result__JVKH)) {
-        pos__SBZG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_294));
-        put_position__FRG(pos__SBZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      short__token__to__GDD((&__string_133),(__INTEGER)(position__CCC -  1),position__CCC);
-      last_group__TWF=group_sav__N5M;
-    };
-    __tmp__3FN=result__PUKH;
-  };
-  if ((! __tmp__3FN)) {
-    if (read_external__2TO()) {
-      result__MVKH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__MVKH=FALSE__;
-      } else {
-        result__NVKH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__NVKH=((__CHARACTER )(( 0)));
-        } else {
-          result__NVKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__NVKH == ':')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__MVKH=TRUE__;
-        };
-      };
-      if ((! result__MVKH)) {
-        __tmp__RGN=current_position__B0F();
-        result__2TTB=NULL;
-        ptr__3TTB=((__POINTER )(NULL));
-        typ_id__CUTB= 0;
-        sz__5TTB=((__UINTEGER_32 )sizeof(__ITM_EXTERNAL));
-        if ((sz__5TTB ==  0)) {
-          result__2TTB=ITM_EXTERNAL__;
-        } else {
-          typ_id__CUTB=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5TTB);
-          if ((typ_id__CUTB == (__INTEGER)(-  1))) {
-            a__A3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__B3FH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TTB + a__A3FH) & (__UINTEGER_32)(~ a__A3FH));
-            ptr_table__QVKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B3FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__PVKH=((__POINTER )(NULL));
-            result__RVKH=((__POINTER *)ptr_table__QVKH)[ 0];
-            if ((result__RVKH == (void *)NULL)) {
-              result__RVKH=new_lab__RTJ(new_size__B3FH);
-              next__PVKH=(void *)((unsigned long)result__RVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B3FH)));
-              ((__POINTER *)next__PVKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__QVKH)[ 0]=next__PVKH;
-            } else {
-              next__PVKH=((__POINTER *)result__RVKH)[ 0];
-              if ((next__PVKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RVKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__B3FH <<  1)) <=  4096)) {
-                  next__PVKH=(void *)((unsigned long)result__RVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B3FH)));
-                } else {
-                  next__PVKH=new_lab__RTJ(new_size__B3FH);
-                };
-                ((__POINTER *)next__PVKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__QVKH)[ 0]=next__PVKH;
-              } else {
-                ((__POINTER *)result__RVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PVKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__RVKH=next__PVKH;
-              };
-            };
-            ptr__3TTB=result__RVKH;
-          } else {
-            t__F3FH=((__UINTEGER_32 )typ_id__CUTB);
-            a__E3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__YVKH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TTB + a__E3FH) & (__UINTEGER_32)(~ a__E3FH));
-            ptr_table__VVKH=((__POINTER )(&(table_type[(t__F3FH)])));
-            lab_type__XVKH=(__UINTEGER_32)(t__F3FH |  1);
-            next__UVKH=((__POINTER )(NULL));
-            result__WVKH=((__POINTER *)ptr_table__VVKH)[ 0];
-            if ((result__WVKH == (void *)NULL)) {
-              result__WVKH=new_lab__RTJ(lab_type__XVKH);
-              next__UVKH=(void *)((unsigned long)result__WVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVKH)));
-              ((__POINTER *)next__UVKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__VVKH)[ 0]=next__UVKH;
-            } else {
-              next__UVKH=((__POINTER *)result__WVKH)[ 0];
-              if ((next__UVKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WVKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YVKH <<  1)) <=  4096)) {
-                  next__UVKH=(void *)((unsigned long)result__WVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVKH)));
-                } else {
-                  next__UVKH=new_lab__RTJ(lab_type__XVKH);
-                };
-                ((__POINTER *)next__UVKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__VVKH)[ 0]=next__UVKH;
-              } else {
-                ((__POINTER *)result__WVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UVKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__WVKH=next__UVKH;
-              };
-            };
-            ptr__3TTB=result__WVKH;
-          };
-          result__2TTB=((__ITM_EXTERNAL *)ptr__3TTB);
-          *(result__2TTB) = *(ITM_EXTERNAL__);
-        };
-        ((__ITM_EXTERNAL *)result__2TTB)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ=__tmp__RGN;
-        result__H5M=result__2TTB;
-      } else {
-        __tmp__ZGN=current_position__B0F();
-        result__ZVKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__ZVKH=FALSE__;
-        } else {
-          result__0VKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__0VKH=((__CHARACTER )(( 0)));
-          } else {
-            result__0VKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__0VKH == '(')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__ZVKH=TRUE__;
-          };
-        };
-        result__QVTB=NULL;
-        ptr__RVTB=((__POINTER )(NULL));
-        typ_id__WVTB= 0;
-        sz__TVTB=((__UINTEGER_32 )sizeof(__ITM_EXTERNAL_TYPE));
-        if ((sz__TVTB ==  0)) {
-          result__QVTB=ITM_EXTERNAL_TYPE__;
-        } else {
-          typ_id__WVTB=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__TVTB);
-          if ((typ_id__WVTB == (__INTEGER)(-  1))) {
-            a__I3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__J3FH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVTB + a__I3FH) & (__UINTEGER_32)(~ a__I3FH));
-            ptr_table__3VKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__J3FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__2VKH=((__POINTER )(NULL));
-            result__4VKH=((__POINTER *)ptr_table__3VKH)[ 0];
-            if ((result__4VKH == (void *)NULL)) {
-              result__4VKH=new_lab__RTJ(new_size__J3FH);
-              next__2VKH=(void *)((unsigned long)result__4VKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J3FH)));
-              ((__POINTER *)next__2VKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__3VKH)[ 0]=next__2VKH;
-            } else {
-              next__2VKH=((__POINTER *)result__4VKH)[ 0];
-              if ((next__2VKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__J3FH <<  1)) <=  4096)) {
-                  next__2VKH=(void *)((unsigned long)result__4VKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J3FH)));
-                } else {
-                  next__2VKH=new_lab__RTJ(new_size__J3FH);
-                };
-                ((__POINTER *)next__2VKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__3VKH)[ 0]=next__2VKH;
-              } else {
-                ((__POINTER *)result__4VKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__4VKH=next__2VKH;
-              };
-            };
-            ptr__RVTB=result__4VKH;
-          } else {
-            t__N3FH=((__UINTEGER_32 )typ_id__WVTB);
-            a__M3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__FWKH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVTB + a__M3FH) & (__UINTEGER_32)(~ a__M3FH));
-            ptr_table__CWKH=((__POINTER )(&(table_type[(t__N3FH)])));
-            lab_type__EWKH=(__UINTEGER_32)(t__N3FH |  1);
-            next__BWKH=((__POINTER )(NULL));
-            result__DWKH=((__POINTER *)ptr_table__CWKH)[ 0];
-            if ((result__DWKH == (void *)NULL)) {
-              result__DWKH=new_lab__RTJ(lab_type__EWKH);
-              next__BWKH=(void *)((unsigned long)result__DWKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWKH)));
-              ((__POINTER *)next__BWKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__CWKH)[ 0]=next__BWKH;
-            } else {
-              next__BWKH=((__POINTER *)result__DWKH)[ 0];
-              if ((next__BWKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FWKH <<  1)) <=  4096)) {
-                  next__BWKH=(void *)((unsigned long)result__DWKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWKH)));
-                } else {
-                  next__BWKH=new_lab__RTJ(lab_type__EWKH);
-                };
-                ((__POINTER *)next__BWKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__CWKH)[ 0]=next__BWKH;
-              } else {
-                ((__POINTER *)result__DWKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__DWKH=next__BWKH;
-              };
-            };
-            ptr__RVTB=result__DWKH;
-          };
-          result__QVTB=((__ITM_EXTERNAL_TYPE *)ptr__RVTB);
-          *(result__QVTB) = *(ITM_EXTERNAL_TYPE__);
-        };
-        Self__JZEC=((__ITM_EXTERNAL_TYPE *)result__QVTB);
-        Self__JZEC->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ=__tmp__ZGN;
-        Self__JZEC->is_persistant__IIN=result__ZVKH;
-        type__I5M=read_type__CDM(Self__F5M,FALSE__);
-        if (((void *)type__I5M == (void *)NULL)) {
-          pos__ACZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_279));
-          put_position__FRG(pos__ACZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__GWKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__GWKH=FALSE__;
-        } else {
-          result__HWKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__HWKH=((__CHARACTER )(( 0)));
-          } else {
-            result__HWKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__HWKH == '{')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__GWKH=TRUE__;
-          };
-        };
-        if (result__GWKH) {
-          if (((void *)read_type_list__ENO(Self__F5M,FALSE__) == (void *)NULL)) {
-            pos__CCZG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_305));
-            put_position__FRG(pos__CCZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          result__JWKH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__JWKH=FALSE__;
-          } else {
-            result__KWKH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__KWKH=((__CHARACTER )(( 0)));
-            } else {
-              result__KWKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__KWKH == '}')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__JWKH=TRUE__;
-            };
-          };
-          if ((! result__JWKH)) {
-            pos__ECZG=current_position__B0F();
-            put_error__text__1PG( 2,(&__string_294));
-            put_position__FRG(pos__ECZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-        };
-        if (result__QVTB->is_persistant__IIN) {
-          result__MWKH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__MWKH=FALSE__;
-          } else {
-            result__NWKH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__NWKH=((__CHARACTER )(( 0)));
-            } else {
-              result__NWKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__NWKH == ')')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__MWKH=TRUE__;
-            };
-          };
-          __tmp__TIN=(! result__MWKH);
-        } else {
-          __tmp__TIN=FALSE__;
-        };
-        if (__tmp__TIN) {
-          pos__GCZG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_262));
-          put_position__FRG(pos__GCZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__H5M=result__QVTB;
-      };
-    };
-  };
-  return(result__H5M);
-}
-
-static __BOOLEAN read_integer__22P()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER_64 result__FSJE,__tmp__XSJE,result__SXPE,result__ZRRE;
-  __INTEGER pos_old__A3P,new_capacity__OLIH,old_nb_elts__RLIH;
-  __INTEGER upper__SWKH,Self__QWKH,new_capacity__ULIH,old_nb_elts__XLIH;
-  __INTEGER upper__XWKH,Self__VWKH,__tmp__QSJE,Self__JLOE,result__NQSE;
-  __INTEGER j__DWPE,__tmp__TYEH,__tmp__3XPE,Self__EUQE,i__DQRE;
-  __INTEGER __tmp__ESRE,Self__JVSE,state__GTRE,value__HTRE,i__FTRE;
-  __INTEGER __tmp__L4GH,state__B1RE,result__E1RE,i__A1RE,__tmp__Q4GH;
-  __INTEGER __tmp__S4GH;
-  __STRING *Self__PLIH,*Self__VLIH,*Self__DSJE,*Self__3REH,*Self__Q3FH;
-  __STRING *Self__AWPE,*Self__QXPE,*Self__BQRE,*Self__XRRE,*Self__DTRE;
-  __STRING *Self__40RE;
-  __POSITION pos__NDZG,pos__AEZG,pos__PEZG;
-  __BOOLEAN result__52P,result__O3FH,__tmp__L3P,__tmp__F4P,__tmp__ERSE;
-  __BOOLEAN result__CWPE,__tmp__1WPE,result__22TE,__tmp__NAQ;
-  __BOOLEAN result__EQRE,negative__ITRE,result__JTRE,__tmp__XURE;
-  __BOOLEAN result__4CQG,__tmp__DVRE,result__LDQG,result__S3FH;
-  __BOOLEAN __tmp__XVRE,__tmp__WWRE,result__3DGF,result__U3FH;
-  __BOOLEAN __tmp__KZRE,result__PEGF,result__W3FH,__tmp__XYRE;
-  __BOOLEAN negative__D1RE,__tmp__Q2RE,result__NEQG,__tmp__D3RE;
-  __BOOLEAN __tmp__Y3RE,result__3FGF,__tmp__54RE,result__PGGF;
-  __BOOLEAN result__Y3FH;
-  __CHARACTER result__A3AH,result__K3AH,result__P3AH,result__U3AH;
-  __CHARACTER result__Z3AH,result__43AH,result__D4AH,Self__LQSE;
-  __CHARACTER result__G5AH,Self__02TE,result__BABH,Self__NCGF;
-  __CHARACTER result__LABH,cc__KTRE,cc__C1RE;
-  __CHARACTER *Self__QLIH,*new__SLIH,*Self__WLIH,*new__YLIH,*__tmp__2REH;
-  __CHARACTER *__tmp__UYEH,*__tmp__JSEH,*__tmp__ZYEH,*__tmp__SSEH;
-  __CHARACTER *__tmp__M4GH,*__tmp__R4GH;
-  result__52P=FALSE__;
-  pos_old__A3P= 0;
-  if (read_space__XTD()) {
-    result__A3AH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__A3AH=((__CHARACTER )(( 0)));
-    } else {
-      result__A3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    result__O3FH=FALSE__;
-    if ((((__INTEGER_8 )result__A3AH) >= ((__INTEGER_8 )'0'))) {
-      result__O3FH=(((__INTEGER_8 )result__A3AH) <= ((__INTEGER_8 )'9'));
-    };
-    __tmp__L3P=result__O3FH;
-  } else {
-    __tmp__L3P=FALSE__;
-  };
-  if (__tmp__L3P) {
-    result__52P=TRUE__;
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    result__K3AH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__K3AH=((__CHARACTER )(( 0)));
-    } else {
-      result__K3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    Self__PLIH=((__STRING *)string_tmp__VH);
-    new_capacity__OLIH= 0;
-    if ((Self__PLIH->capacity__UCS <= Self__PLIH->count__SGC)) {
-      if ((Self__PLIH->capacity__UCS ==  0)) {
-        Self__PLIH->capacity__UCS= 32;
-        Self__PLIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__OLIH=(__INTEGER)(Self__PLIH->capacity__UCS <<  1);
-        Self__QLIH=((__CHARACTER *)Self__PLIH->storage__3CS);
-        old_nb_elts__RLIH=Self__PLIH->capacity__UCS;
-        new__SLIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QLIH),((__UINTEGER_32 )old_nb_elts__RLIH),((__UINTEGER_32 )new_capacity__OLIH)));
-        upper__SWKH=(__INTEGER)(new_capacity__OLIH -  1);
-        Self__QWKH=old_nb_elts__RLIH;
-        while ((Self__QWKH <= upper__SWKH)) {
-          new__SLIH[Self__QWKH]='\0';
-          Self__QWKH=(__INTEGER)(Self__QWKH +  1);
-        };
-        Self__PLIH->storage__3CS=new__SLIH;
-        Self__PLIH->capacity__UCS=new_capacity__OLIH;
-      };
-    };
-    ((__CHARACTER *)Self__PLIH->storage__3CS)[Self__PLIH->count__SGC]=result__K3AH;
-    Self__PLIH->count__SGC=(__INTEGER)(Self__PLIH->count__SGC +  1);
-    pos_old__A3P=position__CCC;
-    position__CCC=(__INTEGER)(position__CCC +  1);
-    while_do__JF0D:
-    {
-      result__P3AH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__P3AH=((__CHARACTER )(( 0)));
-      } else {
-        result__P3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if (is_hexadecimal_digit__DQJE(result__P3AH)) {
-        __tmp__F4P=TRUE__;
-      } else {
-        result__U3AH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__U3AH=((__CHARACTER )(( 0)));
-        } else {
-          result__U3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__F4P=(result__U3AH == '_');
-      };
-      if (__tmp__F4P) {
-        result__Z3AH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__Z3AH=((__CHARACTER )(( 0)));
-        } else {
-          result__Z3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__Z3AH != '_')) {
-          result__43AH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__43AH=((__CHARACTER )(( 0)));
-          } else {
-            result__43AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__VLIH=((__STRING *)string_tmp__VH);
-          new_capacity__ULIH= 0;
-          if ((Self__VLIH->capacity__UCS <= Self__VLIH->count__SGC)) {
-            if ((Self__VLIH->capacity__UCS ==  0)) {
-              Self__VLIH->capacity__UCS= 32;
-              Self__VLIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__ULIH=(__INTEGER)(Self__VLIH->capacity__UCS <<  1);
-              Self__WLIH=((__CHARACTER *)Self__VLIH->storage__3CS);
-              old_nb_elts__XLIH=Self__VLIH->capacity__UCS;
-              new__YLIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WLIH),((__UINTEGER_32 )old_nb_elts__XLIH),((__UINTEGER_32 )new_capacity__ULIH)));
-              upper__XWKH=(__INTEGER)(new_capacity__ULIH -  1);
-              Self__VWKH=old_nb_elts__XLIH;
-              while ((Self__VWKH <= upper__XWKH)) {
-                new__YLIH[Self__VWKH]='\0';
-                Self__VWKH=(__INTEGER)(Self__VWKH +  1);
-              };
-              Self__VLIH->storage__3CS=new__YLIH;
-              Self__VLIH->capacity__UCS=new_capacity__ULIH;
-            };
-          };
-          ((__CHARACTER *)Self__VLIH->storage__3CS)[Self__VLIH->count__SGC]=result__43AH;
-          Self__VLIH->count__SGC=(__INTEGER)(Self__VLIH->count__SGC +  1);
-        };
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto while_do__JF0D;
-      };
-    };
-    result__D4AH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__D4AH=((__CHARACTER )(( 0)));
-    } else {
-      result__D4AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__D4AH == 'h')) {
-      Self__DSJE=((__STRING *)string_tmp__VH);
-      result__FSJE= 0;
-      __tmp__QSJE=Self__DSJE->count__SGC;
-      Self__JLOE= 1;
-      __tmp__2REH=Self__DSJE->storage__3CS;
-      while ((Self__JLOE <= __tmp__QSJE)) {
-        __tmp__XSJE=(__INTEGER_64)(result__FSJE <<  4);
-        Self__LQSE=((__CHARACTER *)__tmp__2REH)[(__INTEGER)(Self__JLOE -  1)];
-        result__NQSE= 0;
-        if ((((__INTEGER_8 )Self__LQSE) < ((__INTEGER_8 )'A'))) {
-          result__NQSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__LQSE) -  48));
-          __tmp__ERSE=TRUE__;
-        } else {
-          __tmp__ERSE=FALSE__;
-        };
-        if ((! __tmp__ERSE)) {
-          if ((((__INTEGER_8 )Self__LQSE) < ((__INTEGER_8 )'a'))) {
-            result__NQSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__LQSE) -  55));
-          } else {
-            result__NQSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__LQSE) -  87));
-          };
-        };
-        result__FSJE=(__INTEGER_64)(__tmp__XSJE | ((__INTEGER_64 )result__NQSE));
-        Self__JLOE=(__INTEGER)(Self__JLOE +  1);
-      };
-      last_integer__VSO=result__FSJE;
-      position__CCC=(__INTEGER)(position__CCC +  1);
-    } else {
-      Self__3REH=((__STRING *)string_tmp__VH);
-      if ((((__INTEGER_8 )((__CHARACTER *)Self__3REH->storage__3CS)[(__INTEGER)(Self__3REH->count__SGC -  1)]) > ((__INTEGER_8 )'9'))) {
-        Self__Q3FH=((__STRING *)string_tmp__VH);
-        if (( 1 > Self__Q3FH->count__SGC)) {
-          Self__Q3FH->count__SGC= 0;
-        } else {
-          Self__Q3FH->count__SGC=(__INTEGER)(Self__Q3FH->count__SGC -  1);
-        };
-        position__CCC=(__INTEGER)(position__CCC -  1);
-      };
-      result__G5AH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__G5AH=((__CHARACTER )(( 0)));
-      } else {
-        result__G5AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__G5AH == 'o')) {
-        Self__AWPE=((__STRING *)string_tmp__VH);
-        result__CWPE=FALSE__;
-        j__DWPE= 0;
-        if ((Self__AWPE->count__SGC !=  0)) {
-          j__DWPE= 1;
-          __tmp__TYEH=Self__AWPE->count__SGC;
-          __tmp__UYEH=Self__AWPE->storage__3CS;
-          until_do__YSSE:
-          {
-            if ((j__DWPE > __tmp__TYEH)) {
-              __tmp__1WPE=TRUE__;
-            } else {
-              Self__02TE=((__CHARACTER *)__tmp__UYEH)[(__INTEGER)(j__DWPE -  1)];
-              result__22TE=FALSE__;
-              if ((((__INTEGER_8 )Self__02TE) >= ((__INTEGER_8 )'0'))) {
-                result__22TE=(((__INTEGER_8 )Self__02TE) <= ((__INTEGER_8 )'7'));
-              };
-              __tmp__1WPE=(! result__22TE);
-            };
-            if ((! __tmp__1WPE)) {
-              j__DWPE=(__INTEGER)(j__DWPE +  1);
-              goto until_do__YSSE;
-            };
-          };
-          result__CWPE=(j__DWPE > Self__AWPE->count__SGC);
-        };
-        if ((! result__CWPE)) {
-          pos__NDZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_306));
-          put_position__FRG(pos__NDZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        Self__QXPE=((__STRING *)string_tmp__VH);
-        result__SXPE= 0;
-        __tmp__3XPE=Self__QXPE->count__SGC;
-        Self__EUQE= 1;
-        __tmp__JSEH=Self__QXPE->storage__3CS;
-        while ((Self__EUQE <= __tmp__3XPE)) {
-          result__SXPE=(__INTEGER_64)((__INTEGER_64)(result__SXPE <<  3) | ((__INTEGER_64 )((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )((__CHARACTER *)__tmp__JSEH)[(__INTEGER)(Self__EUQE -  1)]) -  48))));
-          Self__EUQE=(__INTEGER)(Self__EUQE +  1);
-        };
-        last_integer__VSO=result__SXPE;
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        __tmp__NAQ=TRUE__;
-      } else {
-        __tmp__NAQ=FALSE__;
-      };
-      if ((! __tmp__NAQ)) {
-        result__BABH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__BABH=((__CHARACTER )(( 0)));
-        } else {
-          result__BABH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__BABH == 'b')) {
-          Self__BQRE=((__STRING *)string_tmp__VH);
-          i__DQRE=Self__BQRE->count__SGC;
-          result__EQRE=TRUE__;
-          __tmp__ZYEH=Self__BQRE->storage__3CS;
-          while ((! ((! result__EQRE) || (i__DQRE ==  0)))) {
-            Self__NCGF=((__CHARACTER *)__tmp__ZYEH)[(__INTEGER)(i__DQRE -  1)];
-            result__EQRE=((Self__NCGF == '0') || (Self__NCGF == '1'));
-            i__DQRE=(__INTEGER)(i__DQRE -  1);
-          };
-          if ((! result__EQRE)) {
-            pos__AEZG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_307));
-            put_position__FRG(pos__AEZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          Self__XRRE=((__STRING *)string_tmp__VH);
-          result__ZRRE= 0;
-          __tmp__ESRE=Self__XRRE->count__SGC;
-          Self__JVSE= 1;
-          __tmp__SSEH=Self__XRRE->storage__3CS;
-          while ((Self__JVSE <= __tmp__ESRE)) {
-            result__ZRRE=(__INTEGER_64)(result__ZRRE <<  1);
-            if ((((__CHARACTER *)__tmp__SSEH)[(__INTEGER)(Self__JVSE -  1)] == '1')) {
-              result__ZRRE=(__INTEGER_64)(~ (__INTEGER_64)((__INTEGER_64)(~ result__ZRRE) &  -2));
-            };
-            Self__JVSE=(__INTEGER)(Self__JVSE +  1);
-          };
-          last_integer__VSO=result__ZRRE;
-          position__CCC=(__INTEGER)(position__CCC +  1);
-        } else {
-          result__LABH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__LABH=((__CHARACTER )(( 0)));
-          } else {
-            result__LABH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__LABH == 'd')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-          };
-          Self__DTRE=((__STRING *)string_tmp__VH);
-          state__GTRE= 0;
-          value__HTRE= 0;
-          negative__ITRE=FALSE__;
-          result__JTRE=FALSE__;
-          cc__KTRE='\0';
-          i__FTRE= 1;
-          __tmp__L4GH=Self__DTRE->count__SGC;
-          __tmp__M4GH=Self__DTRE->storage__3CS;
-          while ((! ((state__GTRE ==  4) || (i__FTRE > __tmp__L4GH)))) {
-            cc__KTRE=((__CHARACTER *)__tmp__M4GH)[(__INTEGER)(i__FTRE -  1)];
-            if ((state__GTRE ==  0)) {
-              if ((((((((cc__KTRE == ' ') || (cc__KTRE == '\t')) || (cc__KTRE == '\n')) || (cc__KTRE == '\r')) || (cc__KTRE == '\0')) || (cc__KTRE == '\f')) || (cc__KTRE == '\v'))) {
-                __tmp__XURE=TRUE__;
-              } else {
-                result__4CQG=(cc__KTRE == '+');
-                if (result__4CQG) {
-                  state__GTRE= 1;
-                };
-                __tmp__XURE=result__4CQG;
-              };
-              if (__tmp__XURE) {
-                __tmp__DVRE=TRUE__;
-              } else {
-                result__LDQG=(cc__KTRE == '-');
-                if (result__LDQG) {
-                  negative__ITRE=TRUE__;
-                  state__GTRE= 1;
-                };
-                __tmp__DVRE=result__LDQG;
-              };
-              if ((! __tmp__DVRE)) {
-                result__S3FH=FALSE__;
-                if ((((__INTEGER_8 )cc__KTRE) >= ((__INTEGER_8 )'0'))) {
-                  result__S3FH=(((__INTEGER_8 )cc__KTRE) <= ((__INTEGER_8 )'9'));
-                };
-                if (result__S3FH) {
-                  value__HTRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) -  48);
-                  state__GTRE= 2;
-                } else {
-                  state__GTRE= 4;
-                };
-              };
-              __tmp__XVRE=TRUE__;
-            } else {
-              __tmp__XVRE=FALSE__;
-            };
-            if (__tmp__XVRE) {
-              __tmp__WWRE=TRUE__;
-            } else {
-              result__3DGF=(state__GTRE ==  1);
-              if (result__3DGF) {
-                result__U3FH=FALSE__;
-                if ((((__INTEGER_8 )cc__KTRE) >= ((__INTEGER_8 )'0'))) {
-                  result__U3FH=(((__INTEGER_8 )cc__KTRE) <= ((__INTEGER_8 )'9'));
-                };
-                if (result__U3FH) {
-                  value__HTRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) -  48);
-                  if (negative__ITRE) {
-                    value__HTRE=(__INTEGER)(- value__HTRE);
-                  };
-                  state__GTRE= 2;
-                } else {
-                  state__GTRE= 4;
-                };
-              };
-              __tmp__WWRE=result__3DGF;
-            };
-            if (__tmp__WWRE) {
-              __tmp__KZRE=TRUE__;
-            } else {
-              result__PEGF=(state__GTRE ==  2);
-              if (result__PEGF) {
-                result__W3FH=FALSE__;
-                if ((((__INTEGER_8 )cc__KTRE) >= ((__INTEGER_8 )'0'))) {
-                  result__W3FH=(((__INTEGER_8 )cc__KTRE) <= ((__INTEGER_8 )'9'));
-                };
-                if (result__W3FH) {
-                  if (negative__ITRE) {
-                    value__HTRE=(__INTEGER)((__INTEGER)( 10 * value__HTRE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) -  48));
-                  } else {
-                    value__HTRE=(__INTEGER)((__INTEGER)( 10 * value__HTRE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) -  48));
-                  };
-                  if (((negative__ITRE && (value__HTRE >  0)) || ((! negative__ITRE) && (value__HTRE <  0)))) {
-                    state__GTRE= 4;
-                  };
-                  __tmp__XYRE=TRUE__;
-                } else {
-                  __tmp__XYRE=FALSE__;
-                };
-                if ((! __tmp__XYRE)) {
-                  if ((((((((cc__KTRE == ' ') || (cc__KTRE == '\t')) || (cc__KTRE == '\n')) || (cc__KTRE == '\r')) || (cc__KTRE == '\0')) || (cc__KTRE == '\f')) || (cc__KTRE == '\v'))) {
-                    state__GTRE= 3;
-                  } else {
-                    state__GTRE= 4;
-                  };
-                };
-              };
-              __tmp__KZRE=result__PEGF;
-            };
-            if ((! __tmp__KZRE)) {
-              if ((state__GTRE ==  3)) {
-                if ((! (((((((cc__KTRE == ' ') || (cc__KTRE == '\t')) || (cc__KTRE == '\n')) || (cc__KTRE == '\r')) || (cc__KTRE == '\0')) || (cc__KTRE == '\f')) || (cc__KTRE == '\v')))) {
-                  state__GTRE= 4;
-                };
-              };
-            };
-            i__FTRE=(__INTEGER)(i__FTRE +  1);
-          };
-          if (((state__GTRE !=  0) && (state__GTRE !=  4))) {
-            result__JTRE=TRUE__;
-          };
-          if ((! result__JTRE)) {
-            pos__PEZG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_308));
-            put_position__FRG(pos__PEZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          Self__40RE=((__STRING *)string_tmp__VH);
-          state__B1RE= 0;
-          cc__C1RE='\0';
-          negative__D1RE=FALSE__;
-          result__E1RE= 0;
-          i__A1RE= 1;
-          __tmp__Q4GH=Self__40RE->count__SGC;
-          __tmp__R4GH=Self__40RE->storage__3CS;
-          __tmp__S4GH=Self__40RE->count__SGC;
-          while ((i__A1RE <= __tmp__Q4GH)) {
-            cc__C1RE=((__CHARACTER *)__tmp__R4GH)[(__INTEGER)(i__A1RE -  1)];
-            if ((state__B1RE ==  0)) {
-              if ((((((((cc__C1RE == ' ') || (cc__C1RE == '\t')) || (cc__C1RE == '\n')) || (cc__C1RE == '\r')) || (cc__C1RE == '\0')) || (cc__C1RE == '\f')) || (cc__C1RE == '\v'))) {
-                __tmp__Q2RE=TRUE__;
-              } else {
-                result__NEQG=(cc__C1RE == '+');
-                if (result__NEQG) {
-                  state__B1RE= 1;
-                };
-                __tmp__Q2RE=result__NEQG;
-              };
-              if ((! __tmp__Q2RE)) {
-                if ((cc__C1RE == '-')) {
-                  negative__D1RE=TRUE__;
-                  state__B1RE= 1;
-                } else {
-                  result__E1RE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) -  48);
-                  state__B1RE= 2;
-                };
-              };
-              __tmp__D3RE=TRUE__;
-            } else {
-              __tmp__D3RE=FALSE__;
-            };
-            if (__tmp__D3RE) {
-              __tmp__Y3RE=TRUE__;
-            } else {
-              result__3FGF=(state__B1RE ==  1);
-              if (result__3FGF) {
-                result__E1RE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) -  48);
-                if (negative__D1RE) {
-                  result__E1RE=(__INTEGER)(- result__E1RE);
-                };
-                state__B1RE= 2;
-              };
-              __tmp__Y3RE=result__3FGF;
-            };
-            if (__tmp__Y3RE) {
-              __tmp__54RE=TRUE__;
-            } else {
-              result__PGGF=(state__B1RE ==  2);
-              if (result__PGGF) {
-                result__Y3FH=FALSE__;
-                if ((((__INTEGER_8 )cc__C1RE) >= ((__INTEGER_8 )'0'))) {
-                  result__Y3FH=(((__INTEGER_8 )cc__C1RE) <= ((__INTEGER_8 )'9'));
-                };
-                if (result__Y3FH) {
-                  if (negative__D1RE) {
-                    result__E1RE=(__INTEGER)((__INTEGER)( 10 * result__E1RE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) -  48));
-                  } else {
-                    result__E1RE=(__INTEGER)((__INTEGER)( 10 * result__E1RE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) -  48));
-                  };
-                } else {
-                  state__B1RE= 3;
-                };
-              };
-              __tmp__54RE=result__PGGF;
-            };
-            if ((! __tmp__54RE)) {
-              if ((state__B1RE ==  3)) {
-                i__A1RE=__tmp__S4GH;
-              };
-            };
-            i__A1RE=(__INTEGER)(i__A1RE +  1);
-          };
-          last_integer__VSO=((__INTEGER_64 )result__E1RE);
-        };
-      };
-    };
-  };
-  if (result__52P) {
-    short__token__to__GDD((&__string_121),pos_old__A3P,position__CCC);
-  };
-  return(result__52P);
-}
-
-static void* readlip_expr__YRPB()
-// () With resultRecursive, No inlinable.
-{
-  void *result__1RPB,*val__2RPB,*result__ZMYC,*val__BNYC;
-  void *nam__3RPB;
-  __POSITION pos__0EZG,p__RL3B,pos__CFZG,pos__EFZG,pos__GFZG,pos__IFZG;
-  __POSITION pos__KFZG,pos__MFZG,p__LQID,p__UZHE,pos__0FZG;
-  __LIP_AFFECT *result__OW4B,*Self__THHC;
-  __POINTER ptr__PW4B,ptr_table__0WKH,next__ZWKH,result__1WKH;
-  __POINTER ptr_table__5WKH,next__4WKH,result__AXKH,ptr__XWKD;
-  __POINTER ptr_table__ZXKH,next__YXKH,result__0XKH,ptr_table__4XKH;
-  __POINTER next__3XKH,result__5XKH,ptr__OGNE,ptr_table__DYKH;
-  __POINTER next__CYKH,result__EYKH,ptr_table__IYKH,next__HYKH;
-  __POINTER result__JYKH;
-  __INTEGER typ_id__UW4B,typ_id__2WKD,typ_id__TGNE;
-  __UINTEGER_32 sz__RW4B,a__23FH,new_size__33FH,t__B4FH,a__A4FH;
-  __UINTEGER_32 new_size__CXKH,lab_type__BXKH,sz__ZWKD,a__E4FH;
-  __UINTEGER_32 new_size__F4FH,t__J4FH,a__I4FH,new_size__BYKH;
-  __UINTEGER_32 lab_type__AYKH,sz__QGNE,a__M4FH,new_size__N4FH,t__R4FH;
-  __UINTEGER_32 a__Q4FH,new_size__LYKH,lab_type__KYKH;
-  __LIP_IF *result__WWKD,*Self__PVTD;
-  __LIP_PRINT *result__NGNE,*Self__OTWE;
-  __BOOLEAN result__DXKH,__tmp__RTPB,result__GXKH,result__JXKH;
-  __BOOLEAN result__MXKH,result__PXKH,result__SXKH,result__VXKH;
-  __BOOLEAN __tmp__TQYC;
-  __CHARACTER result__EXKH,result__HXKH,result__KXKH,result__NXKH;
-  __CHARACTER result__QXKH,result__TXKH,result__WXKH;
-  void *the__5MYC,*els__ANYC,*result__FFHH,*result__ROID;
-  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__GFHH,*Self__HFHH,*Self__QL5D;
-  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__GM5D;
-  result__1RPB=NULL;
-  val__2RPB=NULL;
-  nam__3RPB=NULL;
-  old_position__ITI=position__CCC;
-  old_pos_cur__KTI=pos_cur__FCC;
-  old_pos_line__MTI=pos_line__GCC;
-  old_pos_col__OTI=pos_col__HCC;
-  old_short_derive__QTI=short_derive__PCC;
-  if (read_identifier__2BL()) {
-    nam__3RPB=last_string__D2C;
-    if (read_symbol__4YJ((&__string_12))) {
-      val__2RPB=readlip_expr_operator__GMZB(PARSER__);
-      if (((void *)val__2RPB == (void *)NULL)) {
-        pos__0EZG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_239));
-        put_position__FRG(pos__0EZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      p__RL3B=current_position__B0F();
-      result__OW4B=NULL;
-      ptr__PW4B=((__POINTER )(NULL));
-      typ_id__UW4B= 0;
-      sz__RW4B=((__UINTEGER_32 )sizeof(__LIP_AFFECT));
-      if ((sz__RW4B ==  0)) {
-        result__OW4B=LIP_AFFECT__;
-      } else {
-        typ_id__UW4B=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__RW4B);
-        if ((typ_id__UW4B == (__INTEGER)(-  1))) {
-          a__23FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__33FH=(__UINTEGER_32)((__UINTEGER_32)(sz__RW4B + a__23FH) & (__UINTEGER_32)(~ a__23FH));
-          ptr_table__0WKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__33FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__ZWKH=((__POINTER )(NULL));
-          result__1WKH=((__POINTER *)ptr_table__0WKH)[ 0];
-          if ((result__1WKH == (void *)NULL)) {
-            result__1WKH=new_lab__RTJ(new_size__33FH);
-            next__ZWKH=(void *)((unsigned long)result__1WKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__33FH)));
-            ((__POINTER *)next__ZWKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__0WKH)[ 0]=next__ZWKH;
-          } else {
-            next__ZWKH=((__POINTER *)result__1WKH)[ 0];
-            if ((next__ZWKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1WKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__33FH <<  1)) <=  4096)) {
-                next__ZWKH=(void *)((unsigned long)result__1WKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__33FH)));
-              } else {
-                next__ZWKH=new_lab__RTJ(new_size__33FH);
-              };
-              ((__POINTER *)next__ZWKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__0WKH)[ 0]=next__ZWKH;
-            } else {
-              ((__POINTER *)result__1WKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZWKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__1WKH=next__ZWKH;
-            };
-          };
-          ptr__PW4B=result__1WKH;
-        } else {
-          t__B4FH=((__UINTEGER_32 )typ_id__UW4B);
-          a__A4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__CXKH=(__UINTEGER_32)((__UINTEGER_32)(sz__RW4B + a__A4FH) & (__UINTEGER_32)(~ a__A4FH));
-          ptr_table__5WKH=((__POINTER )(&(table_type[(t__B4FH)])));
-          lab_type__BXKH=(__UINTEGER_32)(t__B4FH |  1);
-          next__4WKH=((__POINTER )(NULL));
-          result__AXKH=((__POINTER *)ptr_table__5WKH)[ 0];
-          if ((result__AXKH == (void *)NULL)) {
-            result__AXKH=new_lab__RTJ(lab_type__BXKH);
-            next__4WKH=(void *)((unsigned long)result__AXKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXKH)));
-            ((__POINTER *)next__4WKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__5WKH)[ 0]=next__4WKH;
-          } else {
-            next__4WKH=((__POINTER *)result__AXKH)[ 0];
-            if ((next__4WKH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AXKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CXKH <<  1)) <=  4096)) {
-                next__4WKH=(void *)((unsigned long)result__AXKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXKH)));
-              } else {
-                next__4WKH=new_lab__RTJ(lab_type__BXKH);
-              };
-              ((__POINTER *)next__4WKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__5WKH)[ 0]=next__4WKH;
-            } else {
-              ((__POINTER *)result__AXKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4WKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__AXKH=next__4WKH;
-            };
-          };
-          ptr__PW4B=result__AXKH;
-        };
-        result__OW4B=((__LIP_AFFECT *)ptr__PW4B);
-        *(result__OW4B) = *(LIP_AFFECT__);
-      };
-      Self__THHC=((__LIP_AFFECT *)result__OW4B);
-      Self__THHC->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ=p__RL3B;
-      Self__THHC->name__AGFC=nam__3RPB;
-      Self__THHC->value__SGFC=val__2RPB;
-      result__1RPB=result__OW4B;
-    } else {
-      restore_context__EFL();
-    };
-  };
-  if (((void *)result__1RPB == (void *)NULL)) {
-    result__1RPB=readlip_expr_operator__GMZB(PARSER__);
-    if (((void *)result__1RPB != (void *)NULL)) {
-      result__DXKH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__DXKH=FALSE__;
-      } else {
-        result__EXKH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__EXKH=((__CHARACTER )(( 0)));
-        } else {
-          result__EXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__EXKH == '.')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__DXKH=TRUE__;
-        };
-      };
-      __tmp__RTPB=result__DXKH;
-    } else {
-      __tmp__RTPB=FALSE__;
-    };
-    if (__tmp__RTPB) {
-      result__ZMYC=NULL;
-      the__5MYC=NULL;
-      els__ANYC=NULL;
-      val__BNYC=NULL;
-      if (read_word__ISF((&__string_89))) {
-        result__FFHH=NULL;
-        if ((((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID)->parent_arrayed_collection__WOID.upper__PTTD <  0)) {
-          result__FFHH=create_with_capacity__DWKD( 16);
-        } else {
-          Self__GFHH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
-          result__FFHH=((void **)Self__GFHH->parent_arrayed_collection__WOID.storage__MGUD)[Self__GFHH->parent_arrayed_collection__WOID.upper__PTTD];
-          Self__HFHH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
-          Self__HFHH->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__HFHH->parent_arrayed_collection__WOID.upper__PTTD -  1);
-        };
-        the__5MYC=result__FFHH;
-        result__GXKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__GXKH=FALSE__;
-        } else {
-          result__HXKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__HXKH=((__CHARACTER )(( 0)));
-          } else {
-            result__HXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__HXKH == '{')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__GXKH=TRUE__;
-          };
-        };
-        if ((! result__GXKH)) {
-          pos__CFZG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_273));
-          put_position__FRG(pos__CFZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        while_do__MPID:
-        {
-          val__BNYC=readlip_expr__YRPB();
-          if (((void *)val__BNYC != (void *)NULL)) {
-            add_last__JOUD(the__5MYC,val__BNYC);
-            result__JXKH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__JXKH=FALSE__;
-            } else {
-              result__KXKH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__KXKH=((__CHARACTER )(( 0)));
-              } else {
-                result__KXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__KXKH == ';')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__JXKH=TRUE__;
-              };
-            };
-            if ((! result__JXKH)) {
-              pos__EFZG=current_position__B0F();
-              put_error__text__1PG( 2,(&__string_167));
-              put_position__FRG(pos__EFZG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-            goto while_do__MPID;
-          };
-        };
-        result__MXKH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__MXKH=FALSE__;
-        } else {
-          result__NXKH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__NXKH=((__CHARACTER )(( 0)));
-          } else {
-            result__NXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__NXKH == '}')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__MXKH=TRUE__;
-          };
-        };
-        if ((! result__MXKH)) {
-          pos__GFZG=current_position__B0F();
-          put_error__text__1PG( 2,(&__string_273));
-          put_position__FRG(pos__GFZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        the__5MYC=copy__ZPID(result__FFHH);
-        if (read_word__ISF((&__string_90))) {
-          result__ROID=NULL;
-          if ((((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID)->parent_arrayed_collection__WOID.upper__PTTD <  0)) {
-            result__ROID=create_with_capacity__DWKD( 16);
-          } else {
-            Self__QL5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
-            result__ROID=((void **)Self__QL5D->parent_arrayed_collection__WOID.storage__MGUD)[Self__QL5D->parent_arrayed_collection__WOID.upper__PTTD];
-            Self__GM5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
-            Self__GM5D->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__GM5D->parent_arrayed_collection__WOID.upper__PTTD -  1);
-          };
-          els__ANYC=result__ROID;
-          result__PXKH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__PXKH=FALSE__;
-          } else {
-            result__QXKH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__QXKH=((__CHARACTER )(( 0)));
-            } else {
-              result__QXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__QXKH == '{')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__PXKH=TRUE__;
-            };
-          };
-          if ((! result__PXKH)) {
-            pos__IFZG=current_position__B0F();
-            put_error__text__1PG( 2,(&__string_273));
-            put_position__FRG(pos__IFZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          while_do__ECMD:
-          {
-            val__BNYC=readlip_expr__YRPB();
-            if (((void *)val__BNYC != (void *)NULL)) {
-              add_last__JOUD(els__ANYC,val__BNYC);
-              result__SXKH=FALSE__;
-              if ((! read_space__XTD())) {
-                result__SXKH=FALSE__;
-              } else {
-                result__TXKH='\0';
-                if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                  result__TXKH=((__CHARACTER )(( 0)));
-                } else {
-                  result__TXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-                };
-                if ((result__TXKH == ';')) {
-                  position__CCC=(__INTEGER)(position__CCC +  1);
-                  result__SXKH=TRUE__;
-                };
-              };
-              if ((! result__SXKH)) {
-                pos__KFZG=current_position__B0F();
-                put_error__text__1PG( 2,(&__string_167));
-                put_position__FRG(pos__KFZG);
-                put_string__33F(msg_err__AQG);
-                if ((type_error__5PG !=  2)) {
-                  exit(( 1));
-                };
-              };
-              goto while_do__ECMD;
-            };
-          };
-          result__VXKH=FALSE__;
-          if ((! read_space__XTD())) {
-            result__VXKH=FALSE__;
-          } else {
-            result__WXKH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__WXKH=((__CHARACTER )(( 0)));
-            } else {
-              result__WXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            if ((result__WXKH == '}')) {
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              result__VXKH=TRUE__;
-            };
-          };
-          if ((! result__VXKH)) {
-            pos__MFZG=current_position__B0F();
-            put_error__text__1PG( 2,(&__string_273));
-            put_position__FRG(pos__MFZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          els__ANYC=copy__ZPID(result__ROID);
-        };
-        p__LQID=current_position__B0F();
-        result__WWKD=NULL;
-        ptr__XWKD=((__POINTER )(NULL));
-        typ_id__2WKD= 0;
-        sz__ZWKD=((__UINTEGER_32 )sizeof(__LIP_IF));
-        if ((sz__ZWKD ==  0)) {
-          result__WWKD=LIP_IF__;
-        } else {
-          typ_id__2WKD=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZWKD);
-          if ((typ_id__2WKD == (__INTEGER)(-  1))) {
-            a__E4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__F4FH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWKD + a__E4FH) & (__UINTEGER_32)(~ a__E4FH));
-            ptr_table__ZXKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__F4FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__YXKH=((__POINTER )(NULL));
-            result__0XKH=((__POINTER *)ptr_table__ZXKH)[ 0];
-            if ((result__0XKH == (void *)NULL)) {
-              result__0XKH=new_lab__RTJ(new_size__F4FH);
-              next__YXKH=(void *)((unsigned long)result__0XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F4FH)));
-              ((__POINTER *)next__YXKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__ZXKH)[ 0]=next__YXKH;
-            } else {
-              next__YXKH=((__POINTER *)result__0XKH)[ 0];
-              if ((next__YXKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0XKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__F4FH <<  1)) <=  4096)) {
-                  next__YXKH=(void *)((unsigned long)result__0XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F4FH)));
-                } else {
-                  next__YXKH=new_lab__RTJ(new_size__F4FH);
-                };
-                ((__POINTER *)next__YXKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__ZXKH)[ 0]=next__YXKH;
-              } else {
-                ((__POINTER *)result__0XKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YXKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__0XKH=next__YXKH;
-              };
-            };
-            ptr__XWKD=result__0XKH;
-          } else {
-            t__J4FH=((__UINTEGER_32 )typ_id__2WKD);
-            a__I4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__BYKH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWKD + a__I4FH) & (__UINTEGER_32)(~ a__I4FH));
-            ptr_table__4XKH=((__POINTER )(&(table_type[(t__J4FH)])));
-            lab_type__AYKH=(__UINTEGER_32)(t__J4FH |  1);
-            next__3XKH=((__POINTER )(NULL));
-            result__5XKH=((__POINTER *)ptr_table__4XKH)[ 0];
-            if ((result__5XKH == (void *)NULL)) {
-              result__5XKH=new_lab__RTJ(lab_type__AYKH);
-              next__3XKH=(void *)((unsigned long)result__5XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BYKH)));
-              ((__POINTER *)next__3XKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__4XKH)[ 0]=next__3XKH;
-            } else {
-              next__3XKH=((__POINTER *)result__5XKH)[ 0];
-              if ((next__3XKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5XKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__BYKH <<  1)) <=  4096)) {
-                  next__3XKH=(void *)((unsigned long)result__5XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BYKH)));
-                } else {
-                  next__3XKH=new_lab__RTJ(lab_type__AYKH);
-                };
-                ((__POINTER *)next__3XKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__4XKH)[ 0]=next__3XKH;
-              } else {
-                ((__POINTER *)result__5XKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3XKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__5XKH=next__3XKH;
-              };
-            };
-            ptr__XWKD=result__5XKH;
-          };
-          result__WWKD=((__LIP_IF *)ptr__XWKD);
-          *(result__WWKD) = *(LIP_IF__);
-        };
-        Self__PVTD=((__LIP_IF *)result__WWKD);
-        Self__PVTD->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ=p__LQID;
-        Self__PVTD->condition__3FQD=result__1RPB;
-        Self__PVTD->then__TGQD=the__5MYC;
-        Self__PVTD->else__KHQD=els__ANYC;
-        result__ZMYC=result__WWKD;
-        __tmp__TQYC=TRUE__;
-      } else {
-        __tmp__TQYC=FALSE__;
-      };
-      if ((! __tmp__TQYC)) {
-        if (read_word__ISF((&__string_91))) {
-          p__UZHE=current_position__B0F();
-          result__NGNE=NULL;
-          ptr__OGNE=((__POINTER )(NULL));
-          typ_id__TGNE= 0;
-          sz__QGNE=((__UINTEGER_32 )sizeof(__LIP_PRINT));
-          if ((sz__QGNE ==  0)) {
-            result__NGNE=LIP_PRINT__;
-          } else {
-            typ_id__TGNE=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QGNE);
-            if ((typ_id__TGNE == (__INTEGER)(-  1))) {
-              a__M4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__N4FH=(__UINTEGER_32)((__UINTEGER_32)(sz__QGNE + a__M4FH) & (__UINTEGER_32)(~ a__M4FH));
-              ptr_table__DYKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__N4FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__CYKH=((__POINTER )(NULL));
-              result__EYKH=((__POINTER *)ptr_table__DYKH)[ 0];
-              if ((result__EYKH == (void *)NULL)) {
-                result__EYKH=new_lab__RTJ(new_size__N4FH);
-                next__CYKH=(void *)((unsigned long)result__EYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4FH)));
-                ((__POINTER *)next__CYKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__DYKH)[ 0]=next__CYKH;
-              } else {
-                next__CYKH=((__POINTER *)result__EYKH)[ 0];
-                if ((next__CYKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EYKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__N4FH <<  1)) <=  4096)) {
-                    next__CYKH=(void *)((unsigned long)result__EYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4FH)));
-                  } else {
-                    next__CYKH=new_lab__RTJ(new_size__N4FH);
-                  };
-                  ((__POINTER *)next__CYKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__DYKH)[ 0]=next__CYKH;
-                } else {
-                  ((__POINTER *)result__EYKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CYKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__EYKH=next__CYKH;
-                };
-              };
-              ptr__OGNE=result__EYKH;
-            } else {
-              t__R4FH=((__UINTEGER_32 )typ_id__TGNE);
-              a__Q4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__LYKH=(__UINTEGER_32)((__UINTEGER_32)(sz__QGNE + a__Q4FH) & (__UINTEGER_32)(~ a__Q4FH));
-              ptr_table__IYKH=((__POINTER )(&(table_type[(t__R4FH)])));
-              lab_type__KYKH=(__UINTEGER_32)(t__R4FH |  1);
-              next__HYKH=((__POINTER )(NULL));
-              result__JYKH=((__POINTER *)ptr_table__IYKH)[ 0];
-              if ((result__JYKH == (void *)NULL)) {
-                result__JYKH=new_lab__RTJ(lab_type__KYKH);
-                next__HYKH=(void *)((unsigned long)result__JYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYKH)));
-                ((__POINTER *)next__HYKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__IYKH)[ 0]=next__HYKH;
-              } else {
-                next__HYKH=((__POINTER *)result__JYKH)[ 0];
-                if ((next__HYKH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JYKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__LYKH <<  1)) <=  4096)) {
-                    next__HYKH=(void *)((unsigned long)result__JYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYKH)));
-                  } else {
-                    next__HYKH=new_lab__RTJ(lab_type__KYKH);
-                  };
-                  ((__POINTER *)next__HYKH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__IYKH)[ 0]=next__HYKH;
-                } else {
-                  ((__POINTER *)result__JYKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HYKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__JYKH=next__HYKH;
-                };
-              };
-              ptr__OGNE=result__JYKH;
-            };
-            result__NGNE=((__LIP_PRINT *)ptr__OGNE);
-            *(result__NGNE) = *(LIP_PRINT__);
-          };
-          Self__OTWE=((__LIP_PRINT *)result__NGNE);
-          Self__OTWE->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ=p__UZHE;
-          Self__OTWE->message__NVUE=result__1RPB;
-          result__ZMYC=result__NGNE;
-        };
-      };
-      result__1RPB=result__ZMYC;
-      if (((void *)result__ZMYC == (void *)NULL)) {
-        pos__0FZG=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_276));
-        put_position__FRG(pos__0FZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-  };
-  return(result__1RPB);
-}
-
-static void run__0FFC(__LIP_AFFECT *Self__1FFC)
-// ({LIP_AFFECT}) VoidNo recursive, No inlinable.
-{
-  __POSITION pos__1H2G,pos__OK5C;
-  void *__tmp__TGFC;
-  void *__tmp__UGFC,*__tmp__NYKH,*__tmp__OYKH;
-  __LIP_INTEGER *Self__PYKH;
-  __LIP_STRING *Self__QYKH;
-  if (((void *)fast_reference_at__PXRD(list_data__HONC,Self__1FFC->name__AGFC) == (void *)NULL)) {
-    copy__VDS(string_tmp__VH,(&__string_309));
-    append__3OS(string_tmp__VH,Self__1FFC->name__AGFC);
-    append__3OS(string_tmp__VH,(&__string_310));
-    pos__1H2G=Self__1FFC->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,string_tmp__VH);
-    put_position__FRG(pos__1H2G);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  __tmp__TGFC=Self__1FFC->value__SGFC;
-  switch (((struct ___OBJ *)__tmp__TGFC)->__id) {
-  case __LIP_BINARY__: {
-    __tmp__UGFC=run_expr__D2QD(__tmp__TGFC);
-  } break;
-  case __LIP_UNARY__: {
-    __tmp__UGFC=run_expr__C5QD(__tmp__TGFC);
-  } break;
-  case __LIP_CALL__: {
-    __tmp__UGFC=run_expr__IXUE(__tmp__TGFC);
-  } break;
-  case __LIP_VALUE__: {
-    __tmp__NYKH=((__LIP_VALUE *)__tmp__TGFC)->value__I1UE;
-    switch (((struct ___OBJ *)__tmp__NYKH)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__OYKH=((__LIP_BOOLEAN *)__tmp__NYKH);
-    } break;
-    case __LIP_INTEGER__: {
-      Self__PYKH=((__LIP_INTEGER *)__tmp__NYKH);
-      __tmp__OYKH=get__UYSE(Self__PYKH,Self__PYKH->value__FP4F);
-    } break;
-    case __LIP_STRING__: {
-      Self__QYKH=((__LIP_STRING *)__tmp__NYKH);
-      __tmp__OYKH=get__34FF(Self__QYKH,Self__QYKH->value__WSUE);
-    } break;
-    };
-    __tmp__UGFC=__tmp__OYKH;
-  } break;
-  };
-  print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-  pos__OK5C=Self__1FFC->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
-  put_error__text__1PG( 1,(&__string_279));
-  put_position__FRG(pos__OK5C);
-  put_string__33F(msg_err__AQG);
-  if ((type_error__5PG !=  2)) {
-    exit(( 1));
-  };
-  switch (((struct ___OBJ *)__tmp__UGFC)->__id) {
-  case __LIP_BOOLEAN__: {
-  } break;
-  case __LIP_INTEGER__: {
-    free__3D4F(__tmp__UGFC);
-  } break;
-  case __LIP_STRING__: {
-    free__LIIG(__tmp__UGFC);
-  } break;
-  };
-}
-
-static void run__WQUE(__LIP_CALL *Self__XQUE)
-// ({LIP_CALL}) VoidNo recursive, No inlinable.
-{
-  void *val__0QUE,*__tmp__GRUE,*__tmp__SYKH,*__tmp__TYKH;
-  void *str__1QUE,*__tmp__LSUE,*__tmp__TTUE;
-  void *path__2QUE,*n__01KF;
-  void *__tmp__FRUE;
-  __LIP_INTEGER *Self__UYKH;
-  __LIP_STRING *Self__VYKH;
-  __POSITION pos__B1KF,pos__4H2G,pos__BI2G,pos__EI2G,pos__HI2G;
-  __STRING_CONSTANT *Self__S4FH;
-  __STRING *Self__T4FH,*Self__T4GH;
-  __INTEGER new_capacity__0LIH,old_nb_elts__3LIH,upper__ZYKH,Self__XYKH;
-  __INTEGER j__21KF,__tmp__04FH;
-  void *result__31KF;
-  __BOOLEAN is_rec__3QUE,__tmp__3RUE,__tmp__FTUE,result__IVXE;
-  __BOOLEAN __tmp__02KF;
-  __CHARACTER *Self__2LIH,*new__4LIH;
-  val__0QUE=NULL;
-  str__1QUE=NULL;
-  path__2QUE=NULL;
-  is_rec__3QUE=FALSE__;
-  if (((void *)Self__XQUE->argument__4QUE != (void *)NULL)) {
-    __tmp__FRUE=Self__XQUE->argument__4QUE;
-    switch (((struct ___OBJ *)__tmp__FRUE)->__id) {
-    case __LIP_BINARY__: {
-      __tmp__GRUE=run_expr__D2QD(__tmp__FRUE);
-    } break;
-    case __LIP_UNARY__: {
-      __tmp__GRUE=run_expr__C5QD(__tmp__FRUE);
-    } break;
-    case __LIP_CALL__: {
-      __tmp__GRUE=run_expr__IXUE(__tmp__FRUE);
-    } break;
-    case __LIP_VALUE__: {
-      __tmp__SYKH=((__LIP_VALUE *)__tmp__FRUE)->value__I1UE;
-      switch (((struct ___OBJ *)__tmp__SYKH)->__id) {
-      case __LIP_BOOLEAN__: {
-        __tmp__TYKH=((__LIP_BOOLEAN *)__tmp__SYKH);
-      } break;
-      case __LIP_INTEGER__: {
-        Self__UYKH=((__LIP_INTEGER *)__tmp__SYKH);
-        __tmp__TYKH=get__UYSE(Self__UYKH,Self__UYKH->value__FP4F);
-      } break;
-      case __LIP_STRING__: {
-        Self__VYKH=((__LIP_STRING *)__tmp__SYKH);
-        __tmp__TYKH=get__34FF(Self__VYKH,Self__VYKH->value__WSUE);
-      } break;
-      };
-      __tmp__GRUE=__tmp__TYKH;
-    } break;
-    };
-    val__0QUE=__tmp__GRUE;
-  };
-  if (((void *)Self__XQUE->name__JRUE == (void *)(&__string_92))) {
-    if (((void *)val__0QUE != (void *)NULL)) {
-      pos__B1KF=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-      put_error__text__1PG( 2,(&__string_311));
-      put_position__FRG(pos__B1KF);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    exit(( 1));
-    __tmp__3RUE=TRUE__;
-  } else {
-    __tmp__3RUE=FALSE__;
-  };
-  if (__tmp__3RUE) {
-    __tmp__FTUE=TRUE__;
-  } else {
-    result__IVXE=((void *)Self__XQUE->name__JRUE == (void *)(&__string_94));
-    if (result__IVXE) {
-      if (val__0QUE==NULL) {
-        __tmp__LSUE=NULL;
-      } else {
-        switch (((struct ___OBJ *)val__0QUE)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__LSUE=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__LSUE=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__LSUE=((void *)val__0QUE);
-        } break;
-        }
-      };
-      str__1QUE=__tmp__LSUE;
-      if (((void *)__tmp__LSUE == (void *)NULL)) {
-        pos__4H2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-        put_error__text__1PG( 1,(&__string_312));
-        put_position__FRG(pos__4H2G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      path__2QUE=((__LIP_STRING *)__tmp__LSUE)->value__WSUE;
-      Self__S4FH=((__STRING_CONSTANT *)path__2QUE);
-      if ((((__CHARACTER *)Self__S4FH->storage__RRO)[(__INTEGER)(Self__S4FH->count__DD -  1)] == '*')) {
-        copy__VDS(string_tmp__VH,path__2QUE);
-        Self__T4FH=((__STRING *)string_tmp__VH);
-        if (( 1 > Self__T4FH->count__SGC)) {
-          Self__T4FH->count__SGC= 0;
-        } else {
-          Self__T4FH->count__SGC=(__INTEGER)(Self__T4FH->count__SGC -  1);
-        };
-        path__2QUE=get__YWB(string_tmp__VH);
-        is_rec__3QUE=TRUE__;
-      };
-      load_directory__is_recursive__LEXF(Self__XQUE,path__2QUE,is_rec__3QUE);
-    };
-    __tmp__FTUE=result__IVXE;
-  };
-  if ((! __tmp__FTUE)) {
-    if (((void *)Self__XQUE->name__JRUE == (void *)(&__string_93))) {
-      if (val__0QUE==NULL) {
-        __tmp__TTUE=NULL;
-      } else {
-        switch (((struct ___OBJ *)val__0QUE)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__TTUE=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__TTUE=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__TTUE=((void *)val__0QUE);
-        } break;
-        }
-      };
-      str__1QUE=__tmp__TTUE;
-      if (((void *)__tmp__TTUE == (void *)NULL)) {
-        pos__BI2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-        put_error__text__1PG( 1,(&__string_312));
-        put_position__FRG(pos__BI2G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      ((__STRING *)string_tmp__VH)->count__SGC= 0;
-      append_in__FPIG(__tmp__TTUE,string_tmp__VH);
-      Self__T4GH=((__STRING *)string_tmp__VH);
-      if ((Self__T4GH->capacity__UCS > Self__T4GH->count__SGC)) {
-        ((__CHARACTER *)Self__T4GH->storage__3CS)[Self__T4GH->count__SGC]='\0';
-      } else {
-        new_capacity__0LIH= 0;
-        if ((Self__T4GH->capacity__UCS <= Self__T4GH->count__SGC)) {
-          if ((Self__T4GH->capacity__UCS ==  0)) {
-            Self__T4GH->capacity__UCS= 32;
-            Self__T4GH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__0LIH=(__INTEGER)(Self__T4GH->capacity__UCS <<  1);
-            Self__2LIH=((__CHARACTER *)Self__T4GH->storage__3CS);
-            old_nb_elts__3LIH=Self__T4GH->capacity__UCS;
-            new__4LIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2LIH),((__UINTEGER_32 )old_nb_elts__3LIH),((__UINTEGER_32 )new_capacity__0LIH)));
-            upper__ZYKH=(__INTEGER)(new_capacity__0LIH -  1);
-            Self__XYKH=old_nb_elts__3LIH;
-            while ((Self__XYKH <= upper__ZYKH)) {
-              new__4LIH[Self__XYKH]='\0';
-              Self__XYKH=(__INTEGER)(Self__XYKH +  1);
-            };
-            Self__T4GH->storage__3CS=new__4LIH;
-            Self__T4GH->capacity__UCS=new_capacity__0LIH;
-          };
-        };
-        ((__CHARACTER *)Self__T4GH->storage__3CS)[Self__T4GH->count__SGC]='\0';
-        Self__T4GH->count__SGC=(__INTEGER)(Self__T4GH->count__SGC +  1);
-        Self__T4GH->count__SGC=(__INTEGER)(Self__T4GH->count__SGC -  1);
-      };
-      system(((char*)((Self__T4GH->storage__3CS))));
-    } else {
-      n__01KF=Self__XQUE->name__JRUE;
-      result__31KF=NULL;
-      j__21KF= 0;
-      __tmp__04FH=((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__D2KF)->parent_arrayed_collection__C2KF.upper__M2KF;
-      while_do__PEMF:
-      {
-        if ((j__21KF <= __tmp__04FH)) {
-          print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-          __tmp__02KF=((void *)NULL != (void *)n__01KF);
-        } else {
-          __tmp__02KF=FALSE__;
-        };
-        if (__tmp__02KF) {
-          j__21KF=(__INTEGER)(j__21KF +  1);
-          goto while_do__PEMF;
-        };
-      };
-      if ((j__21KF <= ((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__D2KF)->parent_arrayed_collection__C2KF.upper__M2KF)) {
-        result__31KF=((void **)((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__D2KF)->parent_arrayed_collection__C2KF.storage__TEQF)[j__21KF];
-      };
-      if (((void *)result__31KF == (void *)NULL)) {
-        copy__VDS(string_tmp__VH,(&__string_309));
-        append__3OS(string_tmp__VH,Self__XQUE->name__JRUE);
-        append__3OS(string_tmp__VH,(&__string_310));
-        pos__EI2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-        put_error__text__1PG( 1,string_tmp__VH);
-        put_position__FRG(pos__EI2G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-      pos__HI2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-      put_error__text__1PG( 1,(&__string_313));
-      put_position__FRG(pos__HI2G);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  };
-  if (((void *)val__0QUE != (void *)NULL)) {
-    switch (((struct ___OBJ *)val__0QUE)->__id) {
-    case __LIP_BOOLEAN__: {
-    } break;
-    case __LIP_INTEGER__: {
-      free__3D4F(val__0QUE);
-    } break;
-    case __LIP_STRING__: {
-      free__LIIG(val__0QUE);
-    } break;
-    };
-  };
-}
-
-static void run__ZFQD(__LIP_IF *Self__0FQD)
-// ({LIP_IF}) VoidRecursive, No inlinable.
-{
-  void *__tmp__4FQD,*__tmp__CHQD,*__tmp__4HQD;
-  __POSITION __tmp__0ABH,pos__LI2G,pos__PI2G,pos__SI2G,__tmp__GGZG;
-  __POSITION __tmp__IGZG,__tmp__VI2G,__tmp__PGZG,__tmp__RGZG;
-  __POSITION __tmp__3VUE;
-  void *__tmp__5FQD,*__tmp__2YKH,*__tmp__3YKH;
-  __LIP_INTEGER *Self__4YKH;
-  __LIP_STRING *Self__5YKH;
-  void *__tmp__BGQD,*val__2FQD;
-  __INTEGER __tmp__1GQD,Self__G4AG,__tmp__XHQD,Self__BLEF;
-  __BOOLEAN __tmp__FHQD;
-  __tmp__4FQD=Self__0FQD->condition__3FQD;
-  switch (((struct ___OBJ *)__tmp__4FQD)->__id) {
-  case __LIP_AFFECT__: {
-    __tmp__0ABH=((__LIP_AFFECT *)__tmp__4FQD)->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_314));
-    put_position__FRG(__tmp__0ABH);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-    __tmp__5FQD=NULL;
-  } break;
-  case __LIP_BINARY__: {
-    __tmp__5FQD=run_expr__D2QD(__tmp__4FQD);
-  } break;
-  case __LIP_UNARY__: {
-    __tmp__5FQD=run_expr__C5QD(__tmp__4FQD);
-  } break;
-  case __LIP_CALL__: {
-    __tmp__5FQD=run_expr__IXUE(__tmp__4FQD);
-  } break;
-  case __LIP_IF__: {
-    pos__LI2G=((__LIP_IF *)__tmp__4FQD)->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_314));
-    put_position__FRG(pos__LI2G);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-    __tmp__5FQD=NULL;
-  } break;
-  case __LIP_PRINT__: {
-    pos__PI2G=((__LIP_PRINT *)__tmp__4FQD)->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_314));
-    put_position__FRG(pos__PI2G);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-    __tmp__5FQD=NULL;
-  } break;
-  case __LIP_VALUE__: {
-    __tmp__2YKH=((__LIP_VALUE *)__tmp__4FQD)->value__I1UE;
-    switch (((struct ___OBJ *)__tmp__2YKH)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__3YKH=((__LIP_BOOLEAN *)__tmp__2YKH);
-    } break;
-    case __LIP_INTEGER__: {
-      Self__4YKH=((__LIP_INTEGER *)__tmp__2YKH);
-      __tmp__3YKH=get__UYSE(Self__4YKH,Self__4YKH->value__FP4F);
-    } break;
-    case __LIP_STRING__: {
-      Self__5YKH=((__LIP_STRING *)__tmp__2YKH);
-      __tmp__3YKH=get__34FF(Self__5YKH,Self__5YKH->value__WSUE);
-    } break;
-    };
-    __tmp__5FQD=__tmp__3YKH;
-  } break;
-  };
-  if (__tmp__5FQD==NULL) {
-    __tmp__BGQD=NULL;
-  } else {
-    switch (((struct ___OBJ *)__tmp__5FQD)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__BGQD=((void *)__tmp__5FQD);
-    } break;
-    case __LIP_INTEGER__: {
-      __tmp__BGQD=NULL;
-    } break;
-    case __LIP_STRING__: {
-      __tmp__BGQD=NULL;
-    } break;
-    }
-  };
-  val__2FQD=__tmp__BGQD;
-  if (((void *)__tmp__BGQD == (void *)NULL)) {
-    pos__SI2G=Self__0FQD->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_315));
-    put_position__FRG(pos__SI2G);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  if (((__LIP_BOOLEAN *)__tmp__BGQD)->value__MGQD) {
-    __tmp__1GQD=((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->then__TGQD)->parent_arrayed_collection__4MYC.upper__ZGQD;
-    Self__G4AG= 0;
-    while ((Self__G4AG <= __tmp__1GQD)) {
-      __tmp__CHQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->then__TGQD)->parent_arrayed_collection__4MYC.storage__GVTD)[Self__G4AG];
-      switch (((struct ___OBJ *)__tmp__CHQD)->__id) {
-      case __LIP_AFFECT__: {
-        run__0FFC(__tmp__CHQD);
-      } break;
-      case __LIP_BINARY__: {
-        __tmp__GGZG=((__LIP_BINARY *)__tmp__CHQD)->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
-        put_error__text__1PG( 2,(&__string_274));
-        put_position__FRG(__tmp__GGZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      } break;
-      case __LIP_UNARY__: {
-        __tmp__IGZG=((__LIP_UNARY *)__tmp__CHQD)->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
-        put_error__text__1PG( 2,(&__string_274));
-        put_position__FRG(__tmp__IGZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      } break;
-      case __LIP_CALL__: {
-        run__WQUE(__tmp__CHQD);
-      } break;
-      case __LIP_IF__: {
-        run__ZFQD(__tmp__CHQD);
-      } break;
-      case __LIP_PRINT__: {
-        run__KVUE(__tmp__CHQD);
-      } break;
-      case __LIP_VALUE__: {
-        __tmp__VI2G=((__LIP_VALUE *)__tmp__CHQD)->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ;
-        put_error__text__1PG( 2,(&__string_274));
-        put_position__FRG(__tmp__VI2G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      } break;
-      };
-      Self__G4AG=(__INTEGER)(Self__G4AG +  1);
-    };
-    __tmp__FHQD=TRUE__;
-  } else {
-    __tmp__FHQD=FALSE__;
-  };
-  if ((! __tmp__FHQD)) {
-    if (((void *)Self__0FQD->else__KHQD != (void *)NULL)) {
-      __tmp__XHQD=((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->else__KHQD)->parent_arrayed_collection__4MYC.upper__ZGQD;
-      Self__BLEF= 0;
-      while ((Self__BLEF <= __tmp__XHQD)) {
-        __tmp__4HQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->else__KHQD)->parent_arrayed_collection__4MYC.storage__GVTD)[Self__BLEF];
-        switch (((struct ___OBJ *)__tmp__4HQD)->__id) {
-        case __LIP_AFFECT__: {
-          run__0FFC(__tmp__4HQD);
-        } break;
-        case __LIP_BINARY__: {
-          __tmp__PGZG=((__LIP_BINARY *)__tmp__4HQD)->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
-          put_error__text__1PG( 2,(&__string_274));
-          put_position__FRG(__tmp__PGZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        } break;
-        case __LIP_UNARY__: {
-          __tmp__RGZG=((__LIP_UNARY *)__tmp__4HQD)->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
-          put_error__text__1PG( 2,(&__string_274));
-          put_position__FRG(__tmp__RGZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        } break;
-        case __LIP_CALL__: {
-          run__WQUE(__tmp__4HQD);
-        } break;
-        case __LIP_IF__: {
-          run__ZFQD(__tmp__4HQD);
-        } break;
-        case __LIP_PRINT__: {
-          run__KVUE(__tmp__4HQD);
-        } break;
-        case __LIP_VALUE__: {
-          __tmp__3VUE=((__LIP_VALUE *)__tmp__4HQD)->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ;
-          put_error__text__1PG( 2,(&__string_274));
-          put_position__FRG(__tmp__3VUE);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        } break;
-        };
-        Self__BLEF=(__INTEGER)(Self__BLEF +  1);
-      };
-    };
-  };
-}
-
-static void run__KVUE(__LIP_PRINT *Self__LVUE)
-// ({LIP_PRINT}) VoidNo recursive, No inlinable.
-{
-  void *__tmp__OVUE;
-  __POSITION __tmp__44VE,pos__T1DE,pos__XI2G,pos__QAYE;
-  void *__tmp__PVUE,*__tmp__BZKH,*__tmp__CZKH;
-  __LIP_INTEGER *Self__DZKH;
-  __LIP_STRING *Self__EZKH,*Self__2OIG;
-  __INTEGER Self__U25F;
-  __BOOLEAN __tmp__125F;
-  __tmp__OVUE=Self__LVUE->message__NVUE;
-  switch (((struct ___OBJ *)__tmp__OVUE)->__id) {
-  case __LIP_AFFECT__: {
-    __tmp__44VE=((__LIP_AFFECT *)__tmp__OVUE)->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_314));
-    put_position__FRG(__tmp__44VE);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-    __tmp__PVUE=NULL;
-  } break;
-  case __LIP_BINARY__: {
-    __tmp__PVUE=run_expr__D2QD(__tmp__OVUE);
-  } break;
-  case __LIP_UNARY__: {
-    __tmp__PVUE=run_expr__C5QD(__tmp__OVUE);
-  } break;
-  case __LIP_CALL__: {
-    __tmp__PVUE=run_expr__IXUE(__tmp__OVUE);
-  } break;
-  case __LIP_IF__: {
-    pos__T1DE=((__LIP_IF *)__tmp__OVUE)->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_314));
-    put_position__FRG(pos__T1DE);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-    __tmp__PVUE=NULL;
-  } break;
-  case __LIP_PRINT__: {
-    pos__XI2G=((__LIP_PRINT *)__tmp__OVUE)->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_314));
-    put_position__FRG(pos__XI2G);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-    __tmp__PVUE=NULL;
-  } break;
-  case __LIP_VALUE__: {
-    __tmp__BZKH=((__LIP_VALUE *)__tmp__OVUE)->value__I1UE;
-    switch (((struct ___OBJ *)__tmp__BZKH)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__CZKH=((__LIP_BOOLEAN *)__tmp__BZKH);
-    } break;
-    case __LIP_INTEGER__: {
-      Self__DZKH=((__LIP_INTEGER *)__tmp__BZKH);
-      __tmp__CZKH=get__UYSE(Self__DZKH,Self__DZKH->value__FP4F);
-    } break;
-    case __LIP_STRING__: {
-      Self__EZKH=((__LIP_STRING *)__tmp__BZKH);
-      __tmp__CZKH=get__34FF(Self__EZKH,Self__EZKH->value__WSUE);
-    } break;
-    };
-    __tmp__PVUE=__tmp__CZKH;
-  } break;
-  };
-  if (((void *)__tmp__PVUE == (void *)NULL)) {
-    pos__QAYE=Self__LVUE->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_279));
-    put_position__FRG(pos__QAYE);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  switch (((struct ___OBJ *)__tmp__PVUE)->__id) {
-  case __LIP_BOOLEAN__: {
-    if (((__LIP_BOOLEAN *)__tmp__PVUE)->value__MGQD) {
-      print__OJD((&__string_42));
-    } else {
-      print__OJD((&__string_43));
-    };
-  } break;
-  case __LIP_INTEGER__: {
-    Self__U25F=((__LIP_INTEGER *)__tmp__PVUE)->value__FP4F;
-    if ((Self__U25F ==  0)) {
-      fputc((int)('0'),stdout);
-      __tmp__125F=TRUE__;
-    } else {
-      __tmp__125F=FALSE__;
-    };
-    if ((! __tmp__125F)) {
-      if ((Self__U25F <  0)) {
-        fputc((int)('-'),stdout);
-        print_positif__VHLG((__INTEGER)(- Self__U25F));
-      } else {
-        print_positif__VHLG(Self__U25F);
-      };
-    };
-  } break;
-  case __LIP_STRING__: {
-    Self__2OIG=((__LIP_STRING *)__tmp__PVUE);
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    append_in__FPIG(Self__2OIG,string_tmp__VH);
-    put_string__AKF(((__STRING *)string_tmp__VH));
-  } break;
-  };
-  switch (((struct ___OBJ *)__tmp__PVUE)->__id) {
-  case __LIP_BOOLEAN__: {
-  } break;
-  case __LIP_INTEGER__: {
-    free__3D4F(__tmp__PVUE);
-  } break;
-  case __LIP_STRING__: {
-    free__LIIG(__tmp__PVUE);
-  } break;
-  };
-}
-
-static void add_last__ONV(__FAST_ARRAYoITM_TYPE_MONOo *Self__PNV,void *element__QNV)
-// ({FAST_ARRAYoITM_TYPE_MONOo},{NULLxITM_TYPE_PARAMETERxITM_TYPE_SIMPLExITM_TYPE_BLOCKxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__RNV,__tmp__WOV,__tmp__5FEC,Self__IOVD;
-  __BOOLEAN __tmp__AOV;
-  void **__tmp__VOV,**new__LFEC;
-  new_capacity__RNV= 0;
-  if (((__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.upper__4HV +  1) <= (__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.capacity__TNV -  1))) {
-    Self__PNV->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.upper__4HV +  1);
-    __tmp__AOV=TRUE__;
-  } else {
-    __tmp__AOV=FALSE__;
-  };
-  if ((! __tmp__AOV)) {
-    if ((Self__PNV->parent_arrayed_collection__SYC.capacity__TNV ==  0)) {
-      Self__PNV->parent_arrayed_collection__SYC.storage__FMV=create__W5QB( 2);
-      Self__PNV->parent_arrayed_collection__SYC.capacity__TNV= 2;
-      Self__PNV->parent_arrayed_collection__SYC.upper__4HV= 0;
-    } else {
-      new_capacity__RNV=(__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.capacity__TNV <<  1);
-      __tmp__VOV=Self__PNV->parent_arrayed_collection__SYC.storage__FMV;
-      __tmp__WOV=Self__PNV->parent_arrayed_collection__SYC.capacity__TNV;
-      new__LFEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__VOV)),((__UINTEGER_32 )(__INTEGER)(__tmp__WOV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__RNV * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__5FEC=(__INTEGER)(new_capacity__RNV -  1);
-      Self__IOVD=__tmp__WOV;
-      while ((Self__IOVD <= __tmp__5FEC)) {
-        new__LFEC[Self__IOVD]=NULL;
-        Self__IOVD=(__INTEGER)(Self__IOVD +  1);
-      };
-      Self__PNV->parent_arrayed_collection__SYC.storage__FMV=new__LFEC;
-      Self__PNV->parent_arrayed_collection__SYC.capacity__TNV=new_capacity__RNV;
-      Self__PNV->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.upper__4HV +  1);
-    };
-  };
-  ((void **)Self__PNV->parent_arrayed_collection__SYC.storage__FMV)[Self__PNV->parent_arrayed_collection__SYC.upper__4HV]=element__QNV;
-}
-
-static void* alias__CWP(void *tmp__EWP)
-// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER __tmp__RBQD,i__NT2E,new_capacity__TFW,other_upper__SFW;
-  __INTEGER Self__ENKC,h__UGW,idx__VGW,idx__2SRB,new_capacity__3SRB;
-  __INTEGER i__1SRB,typ_id__0INB;
-  __POINTER ptr__VINB,ptr_table__GZKH,next__FZKH,result__HZKH;
-  __POINTER ptr_table__LZKH,next__KZKH,result__MZKH;
-  __UINTEGER_32 sz__XINB,a__HAGH,new_size__IAGH,t__MAGH,a__LAGH;
-  __UINTEGER_32 new_size__OZKH,lab_type__NZKH;
-  void *result__GWP,*result__D5V,*e__NGW;
-  __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__P4V,*Self__MGW;
-  void *node__C5V,*node__WGW,*node1__5SRB,*node2__ATRB,*__tmp__GIW;
-  __BOOLEAN __tmp__15V,result__PAQD;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__MAQD,*o__QAQD,*__tmp__2AQD;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__QFW;
-  void **__tmp__MBQD,**__tmp__OBQD,**Self__ZS2E,**__tmp__GGW,**__tmp__IGW;
-  void **Self__C3CC;
-  void **old_buckets__4SRB;
-  __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *result__UINB,*Self__3RDC;
-  result__GWP=NULL;
-  if ((((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.upper__4HV <  0)) {
-    result__GWP=empty_list__NWP;
-  } else {
-    Self__P4V=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__YWP);
-    result__D5V=NULL;
-    node__C5V=((void **)Self__P4V->buckets__K5V)[(__INTEGER)(hash_code__S30(tmp__EWP) % Self__P4V->capacity__F5V)];
-    until_do__040:
-    {
-      if (((void *)node__C5V == (void *)NULL)) {
-        __tmp__15V=TRUE__;
-      } else {
-        Self__MAQD=((__FAST_ARRAYoITM_TYPE_MONOo *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__C5V)->item__W5V);
-        result__PAQD=FALSE__;
-        o__QAQD=NULL;
-        if (((void *)Self__MAQD == (void *)tmp__EWP)) {
-          result__PAQD=TRUE__;
-        } else {
-          if (tmp__EWP==NULL) {
-            __tmp__2AQD=NULL;
-          } else {
-            __tmp__2AQD=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP);
-          };
-          o__QAQD=__tmp__2AQD;
-          if ((((void *)__tmp__2AQD != (void *)NULL) && (Self__MAQD->parent_arrayed_collection__SYC.upper__4HV == __tmp__2AQD->parent_arrayed_collection__SYC.upper__4HV))) {
-            __tmp__MBQD=Self__MAQD->parent_arrayed_collection__SYC.storage__FMV;
-            __tmp__OBQD=__tmp__2AQD->parent_arrayed_collection__SYC.storage__FMV;
-            __tmp__RBQD=(__INTEGER)(Self__MAQD->parent_arrayed_collection__SYC.upper__4HV +  1);
-            Self__ZS2E=((void **)__tmp__MBQD);
-            i__NT2E=(__INTEGER)(__tmp__RBQD -  1);
-            while (((i__NT2E >=  0) && ((void *)Self__ZS2E[i__NT2E] == (void *)((void **)__tmp__OBQD)[i__NT2E]))) {
-              i__NT2E=(__INTEGER)(i__NT2E -  1);
-            };
-            result__PAQD=(i__NT2E <  0);
-          };
-        };
-        __tmp__15V=result__PAQD;
-      };
-      if ((! __tmp__15V)) {
-        node__C5V=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__C5V)->next__CAW;
-        goto until_do__040;
-      };
-    };
-    if (((void *)node__C5V != (void *)NULL)) {
-      result__D5V=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__C5V)->item__W5V;
-    };
-    result__GWP=result__D5V;
-    if (((void *)result__D5V == (void *)NULL)) {
-      result__GWP=create_with_capacity__EGR((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.upper__4HV +  1));
-      Self__QFW=((__FAST_ARRAYoITM_TYPE_MONOo *)result__GWP);
-      new_capacity__TFW= 0;
-      other_upper__SFW=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.upper__4HV;
-      if ((other_upper__SFW >=  0)) {
-        new_capacity__TFW=(__INTEGER)(other_upper__SFW +  1);
-        if ((Self__QFW->parent_arrayed_collection__SYC.capacity__TNV < new_capacity__TFW)) {
-          Self__QFW->parent_arrayed_collection__SYC.storage__FMV=create__W5QB(new_capacity__TFW);
-          Self__QFW->parent_arrayed_collection__SYC.capacity__TNV=new_capacity__TFW;
-        };
-        __tmp__GGW=Self__QFW->parent_arrayed_collection__SYC.storage__FMV;
-        __tmp__IGW=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.storage__FMV;
-        Self__C3CC=((void **)__tmp__GGW);
-        Self__ENKC=other_upper__SFW;
-        while ((Self__ENKC >=  0)) {
-          Self__C3CC[Self__ENKC]=((void **)__tmp__IGW)[Self__ENKC];
-          Self__ENKC=(__INTEGER)(Self__ENKC -  1);
-        };
-      };
-      Self__QFW->parent_arrayed_collection__SYC.upper__4HV=other_upper__SFW;
-      Self__MGW=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__YWP);
-      e__NGW=result__GWP;
-      fast_has__1K1(Self__MGW,result__GWP);
-      fast_has__1K1(Self__MGW,result__GWP);
-      h__UGW=hash_code__S30(result__GWP);
-      idx__VGW=(__INTEGER)(h__UGW % Self__MGW->capacity__F5V);
-      node__WGW=((void **)Self__MGW->buckets__K5V)[idx__VGW];
-      while ((! (((void *)node__WGW == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__WGW)->item__W5V == (void *)e__NGW)))) {
-        node__WGW=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__WGW)->next__CAW;
-      };
-      if (((void *)node__WGW == (void *)NULL)) {
-        if ((Self__MGW->capacity__F5V == Self__MGW->count__ZHW)) {
-          idx__2SRB= 0;
-          node1__5SRB=NULL;
-          node2__ATRB=NULL;
-          new_capacity__3SRB=prime_number_ceiling__021((__INTEGER)(Self__MGW->capacity__F5V +  1));
-          old_buckets__4SRB=Self__MGW->buckets__K5V;
-          Self__MGW->buckets__K5V=create__SWBB(new_capacity__3SRB);
-          i__1SRB=(__INTEGER)(Self__MGW->capacity__F5V -  1);
-          Self__MGW->capacity__F5V=new_capacity__3SRB;
-          while ((i__1SRB >=  0)) {
-            node1__5SRB=((void **)old_buckets__4SRB)[i__1SRB];
-            while (((void *)node1__5SRB != (void *)NULL)) {
-              node2__ATRB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__5SRB)->next__CAW;
-              idx__2SRB=(__INTEGER)(hash_code__S30(((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__5SRB)->item__W5V) % Self__MGW->capacity__F5V);
-              ((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__5SRB)->next__CAW=((void **)Self__MGW->buckets__K5V)[idx__2SRB];
-              ((void **)Self__MGW->buckets__K5V)[idx__2SRB]=node1__5SRB;
-              node1__5SRB=node2__ATRB;
-            };
-            i__1SRB=(__INTEGER)(i__1SRB -  1);
-          };
-          idx__VGW=(__INTEGER)(h__UGW % Self__MGW->capacity__F5V);
-        };
-        __tmp__GIW=((void **)Self__MGW->buckets__K5V)[idx__VGW];
-        result__UINB=NULL;
-        ptr__VINB=((__POINTER )(NULL));
-        typ_id__0INB= 0;
-        sz__XINB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo));
-        if ((sz__XINB ==  0)) {
-          result__UINB=HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
-        } else {
-          typ_id__0INB=__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XINB);
-          if ((typ_id__0INB == (__INTEGER)(-  1))) {
-            a__HAGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__IAGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XINB + a__HAGH) & (__UINTEGER_32)(~ a__HAGH));
-            ptr_table__GZKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IAGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__FZKH=((__POINTER )(NULL));
-            result__HZKH=((__POINTER *)ptr_table__GZKH)[ 0];
-            if ((result__HZKH == (void *)NULL)) {
-              result__HZKH=new_lab__RTJ(new_size__IAGH);
-              next__FZKH=(void *)((unsigned long)result__HZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAGH)));
-              ((__POINTER *)next__FZKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__GZKH)[ 0]=next__FZKH;
-            } else {
-              next__FZKH=((__POINTER *)result__HZKH)[ 0];
-              if ((next__FZKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HZKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__IAGH <<  1)) <=  4096)) {
-                  next__FZKH=(void *)((unsigned long)result__HZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAGH)));
-                } else {
-                  next__FZKH=new_lab__RTJ(new_size__IAGH);
-                };
-                ((__POINTER *)next__FZKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GZKH)[ 0]=next__FZKH;
-              } else {
-                ((__POINTER *)result__HZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__HZKH=next__FZKH;
-              };
-            };
-            ptr__VINB=result__HZKH;
-          } else {
-            t__MAGH=((__UINTEGER_32 )typ_id__0INB);
-            a__LAGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__OZKH=(__UINTEGER_32)((__UINTEGER_32)(sz__XINB + a__LAGH) & (__UINTEGER_32)(~ a__LAGH));
-            ptr_table__LZKH=((__POINTER )(&(table_type[(t__MAGH)])));
-            lab_type__NZKH=(__UINTEGER_32)(t__MAGH |  1);
-            next__KZKH=((__POINTER )(NULL));
-            result__MZKH=((__POINTER *)ptr_table__LZKH)[ 0];
-            if ((result__MZKH == (void *)NULL)) {
-              result__MZKH=new_lab__RTJ(lab_type__NZKH);
-              next__KZKH=(void *)((unsigned long)result__MZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZKH)));
-              ((__POINTER *)next__KZKH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__LZKH)[ 0]=next__KZKH;
-            } else {
-              next__KZKH=((__POINTER *)result__MZKH)[ 0];
-              if ((next__KZKH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MZKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OZKH <<  1)) <=  4096)) {
-                  next__KZKH=(void *)((unsigned long)result__MZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZKH)));
-                } else {
-                  next__KZKH=new_lab__RTJ(lab_type__NZKH);
-                };
-                ((__POINTER *)next__KZKH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__LZKH)[ 0]=next__KZKH;
-              } else {
-                ((__POINTER *)result__MZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__MZKH=next__KZKH;
-              };
-            };
-            ptr__VINB=result__MZKH;
-          };
-          result__UINB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__VINB);
-          *(result__UINB) = *(HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__);
-        };
-        Self__3RDC=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)result__UINB);
-        Self__3RDC->item__W5V=result__GWP;
-        Self__3RDC->next__CAW=__tmp__GIW;
-        node__WGW=result__UINB;
-        ((void **)Self__MGW->buckets__K5V)[idx__VGW]=result__UINB;
-        Self__MGW->count__ZHW=(__INTEGER)(Self__MGW->count__ZHW +  1);
-      };
-    };
-  };
-  free__YNQ(tmp__EWP);
-  return(result__GWP);
-}
-
-static void add__1IHB(__HASHED_SEToSTRING_CONSTANTo *Self__2IHB,void *e__3IHB)
-// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER h__EJHB,idx__FJHB,idx__5N0B,new_capacity__AO0B,i__4N0B;
-  __INTEGER typ_id__Q1WB;
-  __POINTER ptr__L1WB,ptr_table__QZKH,next__PZKH,result__RZKH;
-  __POINTER ptr_table__VZKH,next__UZKH,result__WZKH;
-  __UINTEGER_32 sz__N1WB,a__BBGH,new_size__CBGH,t__GBGH,a__FBGH;
-  __UINTEGER_32 new_size__YZKH,lab_type__XZKH;
-  void *node__GJHB,*node1__CO0B,*node2__DO0B,*__tmp__VKHB;
-  void **old_buckets__BO0B;
-  __HASHED_SET_NODEoSTRING_CONSTANTo *result__K1WB,*Self__2KFC;
-  has__MIMB(Self__2IHB,e__3IHB);
-  has__MIMB(Self__2IHB,e__3IHB);
-  h__EJHB=hash_code__RNW(e__3IHB);
-  idx__FJHB=(__INTEGER)(h__EJHB % Self__2IHB->capacity__HIT);
-  node__GJHB=((void **)Self__2IHB->buckets__DEV)[idx__FJHB];
-  while ((! (((void *)node__GJHB == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__GJHB)->item__PEV,e__3IHB)))) {
-    node__GJHB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__GJHB)->next__0EV;
-  };
-  if (((void *)node__GJHB == (void *)NULL)) {
-    if ((Self__2IHB->capacity__HIT == Self__2IHB->count__1FY)) {
-      idx__5N0B= 0;
-      node1__CO0B=NULL;
-      node2__DO0B=NULL;
-      new_capacity__AO0B=prime_number_ceiling__021((__INTEGER)(Self__2IHB->capacity__HIT +  1));
-      old_buckets__BO0B=Self__2IHB->buckets__DEV;
-      Self__2IHB->buckets__DEV=create__KZ3(new_capacity__AO0B);
-      i__4N0B=(__INTEGER)(Self__2IHB->capacity__HIT -  1);
-      Self__2IHB->capacity__HIT=new_capacity__AO0B;
-      while ((i__4N0B >=  0)) {
-        node1__CO0B=((void **)old_buckets__BO0B)[i__4N0B];
-        while (((void *)node1__CO0B != (void *)NULL)) {
-          node2__DO0B=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__CO0B)->next__0EV;
-          idx__5N0B=(__INTEGER)(hash_code__RNW(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__CO0B)->item__PEV) % Self__2IHB->capacity__HIT);
-          ((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__CO0B)->next__0EV=((void **)Self__2IHB->buckets__DEV)[idx__5N0B];
-          ((void **)Self__2IHB->buckets__DEV)[idx__5N0B]=node1__CO0B;
-          node1__CO0B=node2__DO0B;
-        };
-        i__4N0B=(__INTEGER)(i__4N0B -  1);
-      };
-      idx__FJHB=(__INTEGER)(h__EJHB % Self__2IHB->capacity__HIT);
-    };
-    __tmp__VKHB=((void **)Self__2IHB->buckets__DEV)[idx__FJHB];
-    result__K1WB=NULL;
-    ptr__L1WB=((__POINTER )(NULL));
-    typ_id__Q1WB= 0;
-    sz__N1WB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoSTRING_CONSTANTo));
-    if ((sz__N1WB ==  0)) {
-      result__K1WB=HASHED_SET_NODEoSTRING_CONSTANTo__;
-    } else {
-      typ_id__Q1WB=__HASHED_SET_NODEoSTRING_CONSTANTo__;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__N1WB);
-      if ((typ_id__Q1WB == (__INTEGER)(-  1))) {
-        a__BBGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__CBGH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1WB + a__BBGH) & (__UINTEGER_32)(~ a__BBGH));
-        ptr_table__QZKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CBGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__PZKH=((__POINTER )(NULL));
-        result__RZKH=((__POINTER *)ptr_table__QZKH)[ 0];
-        if ((result__RZKH == (void *)NULL)) {
-          result__RZKH=new_lab__RTJ(new_size__CBGH);
-          next__PZKH=(void *)((unsigned long)result__RZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBGH)));
-          ((__POINTER *)next__PZKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__QZKH)[ 0]=next__PZKH;
-        } else {
-          next__PZKH=((__POINTER *)result__RZKH)[ 0];
-          if ((next__PZKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RZKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__CBGH <<  1)) <=  4096)) {
-              next__PZKH=(void *)((unsigned long)result__RZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBGH)));
-            } else {
-              next__PZKH=new_lab__RTJ(new_size__CBGH);
-            };
-            ((__POINTER *)next__PZKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__QZKH)[ 0]=next__PZKH;
-          } else {
-            ((__POINTER *)result__RZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__RZKH=next__PZKH;
-          };
-        };
-        ptr__L1WB=result__RZKH;
-      } else {
-        t__GBGH=((__UINTEGER_32 )typ_id__Q1WB);
-        a__FBGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__YZKH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1WB + a__FBGH) & (__UINTEGER_32)(~ a__FBGH));
-        ptr_table__VZKH=((__POINTER )(&(table_type[(t__GBGH)])));
-        lab_type__XZKH=(__UINTEGER_32)(t__GBGH |  1);
-        next__UZKH=((__POINTER )(NULL));
-        result__WZKH=((__POINTER *)ptr_table__VZKH)[ 0];
-        if ((result__WZKH == (void *)NULL)) {
-          result__WZKH=new_lab__RTJ(lab_type__XZKH);
-          next__UZKH=(void *)((unsigned long)result__WZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YZKH)));
-          ((__POINTER *)next__UZKH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__VZKH)[ 0]=next__UZKH;
-        } else {
-          next__UZKH=((__POINTER *)result__WZKH)[ 0];
-          if ((next__UZKH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WZKH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__YZKH <<  1)) <=  4096)) {
-              next__UZKH=(void *)((unsigned long)result__WZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YZKH)));
-            } else {
-              next__UZKH=new_lab__RTJ(lab_type__XZKH);
-            };
-            ((__POINTER *)next__UZKH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__VZKH)[ 0]=next__UZKH;
-          } else {
-            ((__POINTER *)result__WZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__WZKH=next__UZKH;
-          };
-        };
-        ptr__L1WB=result__WZKH;
-      };
-      result__K1WB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)ptr__L1WB);
-      *(result__K1WB) = *(HASHED_SET_NODEoSTRING_CONSTANTo__);
-    };
-    Self__2KFC=((__HASHED_SET_NODEoSTRING_CONSTANTo *)result__K1WB);
-    Self__2KFC->item__PEV=e__3IHB;
-    Self__2KFC->next__0EV=__tmp__VKHB;
-    node__GJHB=result__K1WB;
-    ((void **)Self__2IHB->buckets__DEV)[idx__FJHB]=result__K1WB;
-    Self__2IHB->count__1FY=(__INTEGER)(Self__2IHB->count__1FY +  1);
-  };
-}
-
-static void add_last__SEPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__TEPD,void *element__UEPD)
-// ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__VEPD,__tmp__2FPD,__tmp__ZWWE,Self__HYQF;
-  __BOOLEAN __tmp__EFPD;
-  void **__tmp__1FPD,**new__FWWE;
-  new_capacity__VEPD= 0;
-  if (((__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD +  1) <= (__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD -  1))) {
-    Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD +  1);
-    __tmp__EFPD=TRUE__;
-  } else {
-    __tmp__EFPD=FALSE__;
-  };
-  if ((! __tmp__EFPD)) {
-    if ((Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD ==  0)) {
-      Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD=create__QMHE( 2);
-      Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD= 2;
-      Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD= 0;
-    } else {
-      new_capacity__VEPD=(__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD <<  1);
-      __tmp__1FPD=Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD;
-      __tmp__2FPD=Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD;
-      new__FWWE=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__1FPD)),((__UINTEGER_32 )(__INTEGER)(__tmp__2FPD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__VEPD * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__ZWWE=(__INTEGER)(new_capacity__VEPD -  1);
-      Self__HYQF=__tmp__2FPD;
-      while ((Self__HYQF <= __tmp__ZWWE)) {
-        new__FWWE[Self__HYQF]=NULL;
-        Self__HYQF=(__INTEGER)(Self__HYQF +  1);
-      };
-      Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD=new__FWWE;
-      Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD=new_capacity__VEPD;
-      Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD +  1);
-    };
-  };
-  ((void **)Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD)[Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD]=element__UEPD;
-}
-
-static void free__TR5(void *tmp__VR5)
-// ({NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__4DGB,__tmp__CFGB,__tmp__TGGC,Self__RDWD;
-  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__2DGB;
-  __BOOLEAN __tmp__MEGB;
-  void **__tmp__BFGB,**new__5FGC;
-  ((__FAST_ARRAYoSTRING_CONSTANTo *)tmp__VR5)->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(-  1);
-  Self__2DGB=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
-  new_capacity__4DGB= 0;
-  if (((__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.upper__LUU +  1) <= (__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU -  1))) {
-    Self__2DGB->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.upper__LUU +  1);
-    __tmp__MEGB=TRUE__;
-  } else {
-    __tmp__MEGB=FALSE__;
-  };
-  if ((! __tmp__MEGB)) {
-    if ((Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU ==  0)) {
-      Self__2DGB->parent_arrayed_collection__0AL.storage__1WU=create__Z1ZB( 2);
-      Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU= 2;
-      Self__2DGB->parent_arrayed_collection__0AL.upper__LUU= 0;
-    } else {
-      new_capacity__4DGB=(__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU <<  1);
-      __tmp__BFGB=Self__2DGB->parent_arrayed_collection__0AL.storage__1WU;
-      __tmp__CFGB=Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU;
-      new__5FGC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__BFGB)),((__UINTEGER_32 )(__INTEGER)(__tmp__CFGB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__4DGB * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__TGGC=(__INTEGER)(new_capacity__4DGB -  1);
-      Self__RDWD=__tmp__CFGB;
-      while ((Self__RDWD <= __tmp__TGGC)) {
-        new__5FGC[Self__RDWD]=NULL;
-        Self__RDWD=(__INTEGER)(Self__RDWD +  1);
-      };
-      Self__2DGB->parent_arrayed_collection__0AL.storage__1WU=new__5FGC;
-      Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU=new_capacity__4DGB;
-      Self__2DGB->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.upper__LUU +  1);
-    };
-  };
-  ((void **)Self__2DGB->parent_arrayed_collection__0AL.storage__1WU)[Self__2DGB->parent_arrayed_collection__0AL.upper__LUU]=tmp__VR5;
-}
-
-static void free__YNQ(void *tmp__0NQ)
-// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__SYV,__tmp__ZZV,__tmp__PJEC,Self__GSVD;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__QYV;
-  __BOOLEAN __tmp__BZV;
-  void **__tmp__YZV,**new__1IEC;
-  ((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__0NQ)->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(-  1);
-  Self__QYV=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-  new_capacity__SYV= 0;
-  if (((__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.upper__ZUV +  1) <= (__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.capacity__UYV -  1))) {
-    Self__QYV->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.upper__ZUV +  1);
-    __tmp__BZV=TRUE__;
-  } else {
-    __tmp__BZV=FALSE__;
-  };
-  if ((! __tmp__BZV)) {
-    if ((Self__QYV->parent_arrayed_collection__FVP.capacity__UYV ==  0)) {
-      Self__QYV->parent_arrayed_collection__FVP.storage__PZV=create__PHRB( 2);
-      Self__QYV->parent_arrayed_collection__FVP.capacity__UYV= 2;
-      Self__QYV->parent_arrayed_collection__FVP.upper__ZUV= 0;
-    } else {
-      new_capacity__SYV=(__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.capacity__UYV <<  1);
-      __tmp__YZV=Self__QYV->parent_arrayed_collection__FVP.storage__PZV;
-      __tmp__ZZV=Self__QYV->parent_arrayed_collection__FVP.capacity__UYV;
-      new__1IEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__YZV)),((__UINTEGER_32 )(__INTEGER)(__tmp__ZZV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__SYV * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__PJEC=(__INTEGER)(new_capacity__SYV -  1);
-      Self__GSVD=__tmp__ZZV;
-      while ((Self__GSVD <= __tmp__PJEC)) {
-        new__1IEC[Self__GSVD]=NULL;
-        Self__GSVD=(__INTEGER)(Self__GSVD +  1);
-      };
-      Self__QYV->parent_arrayed_collection__FVP.storage__PZV=new__1IEC;
-      Self__QYV->parent_arrayed_collection__FVP.capacity__UYV=new_capacity__SYV;
-      Self__QYV->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.upper__ZUV +  1);
-    };
-  };
-  ((void **)Self__QYV->parent_arrayed_collection__FVP.storage__PZV)[Self__QYV->parent_arrayed_collection__FVP.upper__ZUV]=tmp__0NQ;
-}
-
-static __INTEGER hash_code__NVRF(__FAST_ARRAYoSTRING_CONSTANTo *Self__OVRF)
-// ({FAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER result__QVRF;
-  __BOOLEAN __tmp__BWRF;
-  result__QVRF= 0;
-  if ((! (Self__OVRF->parent_arrayed_collection__MBJ.upper__2CPD <  0))) {
-    if (((void *)((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[Self__OVRF->parent_arrayed_collection__MBJ.upper__2CPD] != (void *)NULL)) {
-      result__QVRF=hash_code__RNW(((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[Self__OVRF->parent_arrayed_collection__MBJ.upper__2CPD]);
-      __tmp__BWRF=TRUE__;
-    } else {
-      __tmp__BWRF=FALSE__;
-    };
-    if ((! __tmp__BWRF)) {
-      if (((void *)((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[ 0] != (void *)NULL)) {
-        result__QVRF=hash_code__RNW(((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[ 0]);
-      };
-    };
-  };
-  return(result__QVRF);
-}
-
-static void copy__BASD(__FAST_ARRAYoSTRING_CONSTANTo *Self__CASD,void *other__DASD)
-// ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__FASD,other_upper__EASD,Self__3NYE;
-  void **__tmp__YASD,**__tmp__0ASD,**Self__1NWE;
-  new_capacity__FASD= 0;
-  other_upper__EASD=((__FAST_ARRAYoSTRING_CONSTANTo *)other__DASD)->parent_arrayed_collection__MBJ.upper__2CPD;
-  if ((other_upper__EASD >=  0)) {
-    new_capacity__FASD=(__INTEGER)(other_upper__EASD +  1);
-    if ((Self__CASD->parent_arrayed_collection__MBJ.capacity__XEPD < new_capacity__FASD)) {
-      Self__CASD->parent_arrayed_collection__MBJ.storage__SFPD=create__QMHE(new_capacity__FASD);
-      Self__CASD->parent_arrayed_collection__MBJ.capacity__XEPD=new_capacity__FASD;
-    };
-    __tmp__YASD=Self__CASD->parent_arrayed_collection__MBJ.storage__SFPD;
-    __tmp__0ASD=((__FAST_ARRAYoSTRING_CONSTANTo *)other__DASD)->parent_arrayed_collection__MBJ.storage__SFPD;
-    Self__1NWE=((void **)__tmp__YASD);
-    Self__3NYE=other_upper__EASD;
-    while ((Self__3NYE >=  0)) {
-      Self__1NWE[Self__3NYE]=((void **)__tmp__0ASD)[Self__3NYE];
-      Self__3NYE=(__INTEGER)(Self__3NYE -  1);
-    };
-  };
-  Self__CASD->parent_arrayed_collection__MBJ.upper__2CPD=other_upper__EASD;
-}
-
-static __BOOLEAN fast_has__H4RF(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__I4RF,void *e__J4RF)
-// ({HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
-{
-  void *node__S4RF;
-  node__S4RF=((void **)Self__I4RF->buckets__RLQF)[(__INTEGER)(hash_code__NVRF(e__J4RF) % Self__I4RF->capacity__MLQF)];
-  while ((! (((void *)node__S4RF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__S4RF)->item__3LQF == (void *)e__J4RF)))) {
-    node__S4RF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__S4RF)->next__JMQF;
-  };
-  return(((void *)node__S4RF != (void *)NULL));
-}
-
-static __BOOLEAN read_operator__GOM()
-// () With resultNo recursive, No inlinable.
-{
-  __INTEGER old_pos__KOM,__tmp__VRO,i__P5O,new_capacity__AMIH;
-  __INTEGER old_nb_elts__DMIH,upper__2ZKH,Self__0ZKH;
-  __STRING *Self__BMIH;
-  __POSITION pos__3SZG;
-  __BOOLEAN result__JOM,__tmp__FPM;
-  __CHARACTER result__PLBH,result__YLBH,ch__PRO,result__3LBH;
-  __CHARACTER *__tmp__SRO,*Self__D5O,*Self__CMIH,*new__EMIH;
-  result__JOM=FALSE__;
-  read_space__XTD();
-  old_pos__KOM=position__CCC;
-  ((__STRING *)string_tmp__VH)->count__SGC= 0;
-  until_do__XZM:
-  {
-    result__PLBH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__PLBH=((__CHARACTER )(( 0)));
-    } else {
-      result__PLBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__PLBH == ((__CHARACTER )(( 0))))) {
-      __tmp__FPM=TRUE__;
-    } else {
-      result__YLBH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__YLBH=((__CHARACTER )(( 0)));
-      } else {
-        result__YLBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      ch__PRO=result__YLBH;
-      __tmp__SRO=((__STRING_CONSTANT *)(&__string_316))->storage__RRO;
-      __tmp__VRO=(__INTEGER)(((__STRING_CONSTANT *)(&__string_316))->count__DD -  1);
-      Self__D5O=((__CHARACTER *)__tmp__SRO);
-      i__P5O=__tmp__VRO;
-      while ((! ((i__P5O <  0) || (ch__PRO == Self__D5O[i__P5O])))) {
-        i__P5O=(__INTEGER)(i__P5O -  1);
-      };
-      __tmp__FPM=(i__P5O <  0);
-    };
-    if ((! __tmp__FPM)) {
-      result__3LBH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__3LBH=((__CHARACTER )(( 0)));
-      } else {
-        result__3LBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      Self__BMIH=((__STRING *)string_tmp__VH);
-      new_capacity__AMIH= 0;
-      if ((Self__BMIH->capacity__UCS <= Self__BMIH->count__SGC)) {
-        if ((Self__BMIH->capacity__UCS ==  0)) {
-          Self__BMIH->capacity__UCS= 32;
-          Self__BMIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__AMIH=(__INTEGER)(Self__BMIH->capacity__UCS <<  1);
-          Self__CMIH=((__CHARACTER *)Self__BMIH->storage__3CS);
-          old_nb_elts__DMIH=Self__BMIH->capacity__UCS;
-          new__EMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CMIH),((__UINTEGER_32 )old_nb_elts__DMIH),((__UINTEGER_32 )new_capacity__AMIH)));
-          upper__2ZKH=(__INTEGER)(new_capacity__AMIH -  1);
-          Self__0ZKH=old_nb_elts__DMIH;
-          while ((Self__0ZKH <= upper__2ZKH)) {
-            new__EMIH[Self__0ZKH]='\0';
-            Self__0ZKH=(__INTEGER)(Self__0ZKH +  1);
-          };
-          Self__BMIH->storage__3CS=new__EMIH;
-          Self__BMIH->capacity__UCS=new_capacity__AMIH;
-        };
-      };
-      ((__CHARACTER *)Self__BMIH->storage__3CS)[Self__BMIH->count__SGC]=result__3LBH;
-      Self__BMIH->count__SGC=(__INTEGER)(Self__BMIH->count__SGC +  1);
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      goto until_do__XZM;
-    };
-  };
-  if ((((__STRING *)string_tmp__VH)->count__SGC !=  0)) {
-    last_string__D2C=get__YWB(string_tmp__VH);
-    if (((((void *)last_string__D2C == (void *)(&__string_12)) || ((void *)last_string__D2C == (void *)(&__string_14))) || ((void *)last_string__D2C == (void *)(&__string_13)))) {
-      pos__3SZG=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_286));
-      put_position__FRG(pos__3SZG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    short__token__to__GDD((&__string_124),old_pos__KOM,position__CCC);
-    result__JOM=TRUE__;
-  };
-  return(result__JOM);
-}
-
-static void* operator__name__ZEO(void *typ__1EO,void *op__2EO)
-// ({STRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  __INTEGER __tmp__DFO,Self__KXO;
-  __CHARACTER c__4EO;
-  __BOOLEAN __tmp__RFO,__tmp__4FO,result__2MHB,__tmp__LGO,result__ONHB;
-  __BOOLEAN __tmp__YGO,result__AOHB,__tmp__FHO,result__SOHB,__tmp__SHO;
-  __BOOLEAN result__EPHB,__tmp__5HO,result__WPHB,__tmp__MIO;
-  __BOOLEAN result__IQHB,__tmp__ZIO,result__0QHB,__tmp__GJO;
-  __BOOLEAN result__MRHB,__tmp__TJO,result__4RHB,__tmp__AKO;
-  __BOOLEAN result__QSHB,__tmp__NKO,result__CTHB,__tmp__0KO;
-  __BOOLEAN result__UTHB,__tmp__HLO,result__GUHB,__tmp__ULO;
-  __BOOLEAN result__YUHB,__tmp__BMO,result__KVHB;
-  c__4EO='\0';
-  copy__VDS(string_tmp__VH,typ__1EO);
-  __tmp__DFO=((__STRING_CONSTANT *)op__2EO)->count__DD;
-  Self__KXO= 1;
-  while ((Self__KXO <= __tmp__DFO)) {
-    c__4EO=((__CHARACTER *)((__STRING_CONSTANT *)op__2EO)->storage__RRO)[(__INTEGER)(Self__KXO -  1)];
-    if ((c__4EO == '+')) {
-      append__3OS(string_tmp__VH,(&__string_188));
-      __tmp__RFO=TRUE__;
-    } else {
-      __tmp__RFO=FALSE__;
-    };
-    if (__tmp__RFO) {
-      __tmp__4FO=TRUE__;
-    } else {
-      result__2MHB=(c__4EO == '-');
-      if (result__2MHB) {
-        append__3OS(string_tmp__VH,(&__string_189));
-      };
-      __tmp__4FO=result__2MHB;
-    };
-    if (__tmp__4FO) {
-      __tmp__LGO=TRUE__;
-    } else {
-      result__ONHB=(c__4EO == '~');
-      if (result__ONHB) {
-        append__3OS(string_tmp__VH,(&__string_190));
-      };
-      __tmp__LGO=result__ONHB;
-    };
-    if (__tmp__LGO) {
-      __tmp__YGO=TRUE__;
-    } else {
-      result__AOHB=(c__4EO == '!');
-      if (result__AOHB) {
-        append__3OS(string_tmp__VH,(&__string_191));
-      };
-      __tmp__YGO=result__AOHB;
-    };
-    if (__tmp__YGO) {
-      __tmp__FHO=TRUE__;
-    } else {
-      result__SOHB=(c__4EO == '/');
-      if (result__SOHB) {
-        append__3OS(string_tmp__VH,(&__string_192));
-      };
-      __tmp__FHO=result__SOHB;
-    };
-    if (__tmp__FHO) {
-      __tmp__SHO=TRUE__;
-    } else {
-      result__EPHB=(c__4EO == '*');
-      if (result__EPHB) {
-        append__3OS(string_tmp__VH,(&__string_193));
-      };
-      __tmp__SHO=result__EPHB;
-    };
-    if (__tmp__SHO) {
-      __tmp__5HO=TRUE__;
-    } else {
-      result__WPHB=(c__4EO == '^');
-      if (result__WPHB) {
-        append__3OS(string_tmp__VH,(&__string_194));
-      };
-      __tmp__5HO=result__WPHB;
-    };
-    if (__tmp__5HO) {
-      __tmp__MIO=TRUE__;
-    } else {
-      result__IQHB=(c__4EO == '%');
-      if (result__IQHB) {
-        append__3OS(string_tmp__VH,(&__string_195));
-      };
-      __tmp__MIO=result__IQHB;
-    };
-    if (__tmp__MIO) {
-      __tmp__ZIO=TRUE__;
-    } else {
-      result__0QHB=(c__4EO == '>');
-      if (result__0QHB) {
-        append__3OS(string_tmp__VH,(&__string_196));
-      };
-      __tmp__ZIO=result__0QHB;
-    };
-    if (__tmp__ZIO) {
-      __tmp__GJO=TRUE__;
-    } else {
-      result__MRHB=(c__4EO == '<');
-      if (result__MRHB) {
-        append__3OS(string_tmp__VH,(&__string_197));
-      };
-      __tmp__GJO=result__MRHB;
-    };
-    if (__tmp__GJO) {
-      __tmp__TJO=TRUE__;
-    } else {
-      result__4RHB=(c__4EO == '=');
-      if (result__4RHB) {
-        append__3OS(string_tmp__VH,(&__string_198));
-      };
-      __tmp__TJO=result__4RHB;
-    };
-    if (__tmp__TJO) {
-      __tmp__AKO=TRUE__;
-    } else {
-      result__QSHB=(c__4EO == '\\');
-      if (result__QSHB) {
-        append__3OS(string_tmp__VH,(&__string_199));
-      };
-      __tmp__AKO=result__QSHB;
-    };
-    if (__tmp__AKO) {
-      __tmp__NKO=TRUE__;
-    } else {
-      result__CTHB=(c__4EO == '|');
-      if (result__CTHB) {
-        append__3OS(string_tmp__VH,(&__string_200));
-      };
-      __tmp__NKO=result__CTHB;
-    };
-    if (__tmp__NKO) {
-      __tmp__0KO=TRUE__;
-    } else {
-      result__UTHB=(c__4EO == '&');
-      if (result__UTHB) {
-        append__3OS(string_tmp__VH,(&__string_201));
-      };
-      __tmp__0KO=result__UTHB;
-    };
-    if (__tmp__0KO) {
-      __tmp__HLO=TRUE__;
-    } else {
-      result__GUHB=(c__4EO == '$');
-      if (result__GUHB) {
-        append__3OS(string_tmp__VH,(&__string_202));
-      };
-      __tmp__HLO=result__GUHB;
-    };
-    if (__tmp__HLO) {
-      __tmp__ULO=TRUE__;
-    } else {
-      result__YUHB=(c__4EO == '#');
-      if (result__YUHB) {
-        append__3OS(string_tmp__VH,(&__string_203));
-      };
-      __tmp__ULO=result__YUHB;
-    };
-    if (__tmp__ULO) {
-      __tmp__BMO=TRUE__;
-    } else {
-      result__KVHB=(c__4EO == '@');
-      if (result__KVHB) {
-        append__3OS(string_tmp__VH,(&__string_204));
-      };
-      __tmp__BMO=result__KVHB;
-    };
-    if ((! __tmp__BMO)) {
-      if ((c__4EO == '?')) {
-        append__3OS(string_tmp__VH,(&__string_205));
-      };
-    };
-    Self__KXO=(__INTEGER)(Self__KXO +  1);
-  };
-  return(get__YWB(string_tmp__VH));
-}
-
-static void append_in__MHBC(__ITM_TYPE_MULTI *Self__NHBC,void *buffer__OHBC)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  __STRING *Self__HMIH,*Self__NMIH;
-  __INTEGER new_capacity__GMIH,old_nb_elts__JMIH,upper__B0KH,Self__5ZKH;
-  __INTEGER new_capacity__MMIH,old_nb_elts__PMIH,upper__G0KH,Self__E0KH;
-  __CHARACTER *Self__IMIH,*new__KMIH,*Self__OMIH,*new__QMIH;
-  Self__HMIH=((__STRING *)buffer__OHBC);
-  new_capacity__GMIH= 0;
-  if ((Self__HMIH->capacity__UCS <= Self__HMIH->count__SGC)) {
-    if ((Self__HMIH->capacity__UCS ==  0)) {
-      Self__HMIH->capacity__UCS= 32;
-      Self__HMIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__GMIH=(__INTEGER)(Self__HMIH->capacity__UCS <<  1);
-      Self__IMIH=((__CHARACTER *)Self__HMIH->storage__3CS);
-      old_nb_elts__JMIH=Self__HMIH->capacity__UCS;
-      new__KMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IMIH),((__UINTEGER_32 )old_nb_elts__JMIH),((__UINTEGER_32 )new_capacity__GMIH)));
-      upper__B0KH=(__INTEGER)(new_capacity__GMIH -  1);
-      Self__5ZKH=old_nb_elts__JMIH;
-      while ((Self__5ZKH <= upper__B0KH)) {
-        new__KMIH[Self__5ZKH]='\0';
-        Self__5ZKH=(__INTEGER)(Self__5ZKH +  1);
-      };
-      Self__HMIH->storage__3CS=new__KMIH;
-      Self__HMIH->capacity__UCS=new_capacity__GMIH;
-    };
-  };
-  ((__CHARACTER *)Self__HMIH->storage__3CS)[Self__HMIH->count__SGC]='(';
-  Self__HMIH->count__SGC=(__INTEGER)(Self__HMIH->count__SGC +  1);
-  display_raw__MLIC(Self__NHBC,buffer__OHBC);
-  Self__NMIH=((__STRING *)buffer__OHBC);
-  new_capacity__MMIH= 0;
-  if ((Self__NMIH->capacity__UCS <= Self__NMIH->count__SGC)) {
-    if ((Self__NMIH->capacity__UCS ==  0)) {
-      Self__NMIH->capacity__UCS= 32;
-      Self__NMIH->storage__3CS=create__YIEB( 32);
-    } else {
-      new_capacity__MMIH=(__INTEGER)(Self__NMIH->capacity__UCS <<  1);
-      Self__OMIH=((__CHARACTER *)Self__NMIH->storage__3CS);
-      old_nb_elts__PMIH=Self__NMIH->capacity__UCS;
-      new__QMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__OMIH),((__UINTEGER_32 )old_nb_elts__PMIH),((__UINTEGER_32 )new_capacity__MMIH)));
-      upper__G0KH=(__INTEGER)(new_capacity__MMIH -  1);
-      Self__E0KH=old_nb_elts__PMIH;
-      while ((Self__E0KH <= upper__G0KH)) {
-        new__QMIH[Self__E0KH]='\0';
-        Self__E0KH=(__INTEGER)(Self__E0KH +  1);
-      };
-      Self__NMIH->storage__3CS=new__QMIH;
-      Self__NMIH->capacity__UCS=new_capacity__MMIH;
-    };
-  };
-  ((__CHARACTER *)Self__NMIH->storage__3CS)[Self__NMIH->count__SGC]=')';
-  Self__NMIH->count__SGC=(__INTEGER)(Self__NMIH->count__SGC +  1);
-}
-
-static void* read_prototype__DPN(__PARSER *Self__EPN,void *styl__FPN)
-// ({PARSER},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *nam__HPN,*n__IYP,*n__YOR;
-  void *result__JPN,*result__KVQ;
-  __INTEGER old_pos__LPN,old_derive__MPN,sav_derive__NPN;
-  __INTEGER pos_before__OPN,new_capacity__SMIH,old_nb_elts__VMIH;
-  __INTEGER upper__O0KH,Self__M0KH,idx__NYP,__tmp__54GH,typ_id__TLIB;
-  __INTEGER new_capacity__4CBB,__tmp__CEBB,__tmp__OOFC,Self__14VD;
-  __INTEGER typ_id__0MIH,idx__2OR,__tmp__E5GH,typ_id__42IB;
-  __INTEGER new_capacity__FBCB,__tmp__JCCB,__tmp__KSFC,Self__0AWD;
-  __POSITION pos__CUZG,pos__EUZG,pos__GUZG,pos__IUZG,pos__HWZG;
-  __POSITION __tmp__4TN,__tmp__AVN;
-  __STRING *Self__TMIH;
-  __ITM_TYPE_GENERIC *result__MYP,*__tmp__V0P,*result__NLIB,*Self__N1CC;
-  void *__tmp__U0P;
-  __POINTER ptr__OLIB,ptr_table__X0KH,next__W0KH,result__Y0KH;
-  __POINTER ptr_table__20KH,next__10KH,result__30KH,ptr__ZMIH;
-  __POINTER ptr_table__E1KH,next__D1KH,result__F1KH,ptr_table__J1KH;
-  __POINTER next__I1KH,result__K1KH,ptr__Z2IB,ptr_table__O1KH;
-  __POINTER next__N1KH,result__P1KH,ptr_table__T1KH,next__S1KH;
-  __POINTER result__U1KH;
-  __UINTEGER_32 sz__QLIB,a__QCGH,new_size__RCGH,t__VCGH,a__UCGH;
-  __UINTEGER_32 new_size__50KH,lab_type__40KH,sz__1MIH,a__2MIH;
-  __UINTEGER_32 new_size__3MIH,t__4MIH,a__5MIH,new_size__M1KH;
-  __UINTEGER_32 lab_type__L1KH,sz__12IB,a__4CGH,new_size__5CGH,t__DDGH;
-  __UINTEGER_32 a__CDGH,new_size__W1KH,lab_type__V1KH;
-  void *result__MUEH;
-  __ITM_TYPE_PARAMETER *result__YMIH,*Self__ANIH;
-  __ITM_TYPE_STYLE *result__1OR,*__tmp__XQR,*result__Y2IB,*Self__54CC;
-  void *__tmp__WQR;
-  void *genericity__IPN,*result__W4GH,*lt__KYP;
-  __BOOLEAN continue__PPN,result__I0KH,result__Q0KH,__tmp__2VQ;
-  __BOOLEAN result__T0KH,__tmp__MDBB,result__A1KH,__tmp__FUN;
-  __BOOLEAN __tmp__TBCB;
-  __CHARACTER result__J0KH,result__R0KH,result__U0KH,result__B1KH;
-  __CHARACTER *Self__UMIH,*new__WMIH;
-  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__X4GH,*Self__Y4GH;
-  void **__tmp__IFHH,**__tmp__JFHH,**__tmp__KFHH,**__tmp__BEBB;
-  void **new__0NFC;
-  __FAST_ARRAYoITM_TYPE_GENERICo *Self__2CBB;
-  void **__tmp__LFHH,**__tmp__MFHH,**__tmp__ICCB,**new__WRFC;
-  __FAST_ARRAYoITM_TYPE_STYLEo *Self__DBCB;
-  nam__HPN=NULL;
-  genericity__IPN=NULL;
-  result__JPN=NULL;
-  old_pos__LPN= 0;
-  old_derive__MPN= 0;
-  sav_derive__NPN= 0;
-  pos_before__OPN= 0;
-  continue__PPN=FALSE__;
-  if (read_cap_identifier__N1J()) {
-    old_pos__LPN=position__CCC;
-    old_derive__MPN=short_derive__PCC;
-    copy__VDS(string_tmp2__GCJ,last_string__D2C);
-    do {
-      continue__PPN=read_word__ISF((&__string_7));
-      if (continue__PPN) {
-        if ((! read_cap_identifier__N1J())) {
-          pos__CUZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_317));
-          put_position__FRG(pos__CUZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        append__3OS(string_tmp2__GCJ,(&__string_7));
-        append__3OS(string_tmp2__GCJ,last_string__D2C);
-      } else {
-        pos_before__OPN=position__CCC;
-        result__I0KH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__I0KH=FALSE__;
-        } else {
-          result__J0KH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__J0KH=((__CHARACTER )(( 0)));
-          } else {
-            result__J0KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__J0KH == '.')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__I0KH=TRUE__;
-          };
-        };
-        if ((result__I0KH && read_cap_identifier__N1J())) {
-          continue__PPN=TRUE__;
-          Self__TMIH=((__STRING *)string_tmp2__GCJ);
-          new_capacity__SMIH= 0;
-          if ((Self__TMIH->capacity__UCS <= Self__TMIH->count__SGC)) {
-            if ((Self__TMIH->capacity__UCS ==  0)) {
-              Self__TMIH->capacity__UCS= 32;
-              Self__TMIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__SMIH=(__INTEGER)(Self__TMIH->capacity__UCS <<  1);
-              Self__UMIH=((__CHARACTER *)Self__TMIH->storage__3CS);
-              old_nb_elts__VMIH=Self__TMIH->capacity__UCS;
-              new__WMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UMIH),((__UINTEGER_32 )old_nb_elts__VMIH),((__UINTEGER_32 )new_capacity__SMIH)));
-              upper__O0KH=(__INTEGER)(new_capacity__SMIH -  1);
-              Self__M0KH=old_nb_elts__VMIH;
-              while ((Self__M0KH <= upper__O0KH)) {
-                new__WMIH[Self__M0KH]='\0';
-                Self__M0KH=(__INTEGER)(Self__M0KH +  1);
-              };
-              Self__TMIH->storage__3CS=new__WMIH;
-              Self__TMIH->capacity__UCS=new_capacity__SMIH;
-            };
-          };
-          ((__CHARACTER *)Self__TMIH->storage__3CS)[Self__TMIH->count__SGC]='.';
-          Self__TMIH->count__SGC=(__INTEGER)(Self__TMIH->count__SGC +  1);
-          append__3OS(string_tmp2__GCJ,last_string__D2C);
-        } else {
-          position__CCC=pos_before__OPN;
-        };
-      };
-    } while (continue__PPN);
-    nam__HPN=get__YWB(string_tmp2__GCJ);
-    result__Q0KH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__Q0KH=FALSE__;
-    } else {
-      result__R0KH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__R0KH=((__CHARACTER )(( 0)));
-      } else {
-        result__R0KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__R0KH == '(')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__Q0KH=TRUE__;
-      };
-    };
-    if (result__Q0KH) {
-      result__W4GH=NULL;
-      if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP)->parent_arrayed_collection__FVP.upper__ZUV <  0)) {
-        result__W4GH=create_with_capacity__EGR( 16);
-      } else {
-        Self__X4GH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-        result__W4GH=((void **)Self__X4GH->parent_arrayed_collection__FVP.storage__PZV)[Self__X4GH->parent_arrayed_collection__FVP.upper__ZUV];
-        Self__Y4GH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
-        Self__Y4GH->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__Y4GH->parent_arrayed_collection__FVP.upper__ZUV -  1);
-      };
-      genericity__IPN=result__W4GH;
-      do {
-        result__KVQ=read_type__CDM(Self__EPN,FALSE__);
-        if (((void *)result__KVQ == (void *)NULL)) {
-          if (((void *)read_constant__XRO() != (void *)NULL)) {
-            pos__EUZG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_318));
-            put_position__FRG(pos__EUZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-            __tmp__2VQ=TRUE__;
-          } else {
-            __tmp__2VQ=FALSE__;
-          };
-          if ((! __tmp__2VQ)) {
-            if (read_identifier__2BL()) {
-              pos__GUZG=current_position__B0F();
-              put_error__text__1PG( 0,(&__string_319));
-              put_position__FRG(pos__GUZG);
-              put_string__33F(msg_err__AQG);
-              if ((type_error__5PG !=  2)) {
-                exit(( 1));
-              };
-            };
-          };
-        };
-        if (((void *)result__KVQ == (void *)NULL)) {
-          pos__IUZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_259));
-          put_position__FRG(pos__IUZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        add_last__ONV(genericity__IPN,result__KVQ);
-        result__T0KH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__T0KH=FALSE__;
-        } else {
-          result__U0KH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__U0KH=((__CHARACTER )(( 0)));
-          } else {
-            result__U0KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__U0KH == ',')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__T0KH=TRUE__;
-          };
-        };
-      } while (result__T0KH);
-      genericity__IPN=alias__CWP(result__W4GH);
-      n__IYP=nam__HPN;
-      lt__KYP=genericity__IPN;
-      result__MYP=NULL;
-      idx__NYP= 0;
-      __tmp__54GH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.upper__2YP;
-      __tmp__IFHH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW;
-      __tmp__JFHH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW;
-      __tmp__KFHH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW;
-      while (((idx__NYP <= __tmp__54GH) && ((((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__IFHH)[idx__NYP])->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP != (void *)n__IYP) || ((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__JFHH)[idx__NYP])->parent_itm_type_style__4SN.style__PZP != (void *)styl__FPN)) || ((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__KFHH)[idx__NYP])->list_type__ZZP != (void *)lt__KYP)))) {
-        idx__NYP=(__INTEGER)(idx__NYP +  1);
-      };
-      if ((idx__NYP <= ((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.upper__2YP)) {
-        __tmp__U0P=((void **)((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW)[idx__NYP];
-        if (__tmp__U0P==NULL) {
-          __tmp__V0P=NULL;
-        } else {
-          __tmp__V0P=((__ITM_TYPE_GENERIC *)__tmp__U0P);
-        };
-        result__MYP=__tmp__V0P;
-      } else {
-        result__NLIB=NULL;
-        ptr__OLIB=((__POINTER )(NULL));
-        typ_id__TLIB= 0;
-        sz__QLIB=((__UINTEGER_32 )sizeof(__ITM_TYPE_GENERIC));
-        if ((sz__QLIB ==  0)) {
-          result__NLIB=ITM_TYPE_GENERIC__;
-        } else {
-          typ_id__TLIB=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QLIB);
-          if ((typ_id__TLIB == (__INTEGER)(-  1))) {
-            a__QCGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__RCGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QLIB + a__QCGH) & (__UINTEGER_32)(~ a__QCGH));
-            ptr_table__X0KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RCGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__W0KH=((__POINTER )(NULL));
-            result__Y0KH=((__POINTER *)ptr_table__X0KH)[ 0];
-            if ((result__Y0KH == (void *)NULL)) {
-              result__Y0KH=new_lab__RTJ(new_size__RCGH);
-              next__W0KH=(void *)((unsigned long)result__Y0KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCGH)));
-              ((__POINTER *)next__W0KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__X0KH)[ 0]=next__W0KH;
-            } else {
-              next__W0KH=((__POINTER *)result__Y0KH)[ 0];
-              if ((next__W0KH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y0KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__RCGH <<  1)) <=  4096)) {
-                  next__W0KH=(void *)((unsigned long)result__Y0KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCGH)));
-                } else {
-                  next__W0KH=new_lab__RTJ(new_size__RCGH);
-                };
-                ((__POINTER *)next__W0KH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__X0KH)[ 0]=next__W0KH;
-              } else {
-                ((__POINTER *)result__Y0KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W0KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__Y0KH=next__W0KH;
-              };
-            };
-            ptr__OLIB=result__Y0KH;
-          } else {
-            t__VCGH=((__UINTEGER_32 )typ_id__TLIB);
-            a__UCGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__50KH=(__UINTEGER_32)((__UINTEGER_32)(sz__QLIB + a__UCGH) & (__UINTEGER_32)(~ a__UCGH));
-            ptr_table__20KH=((__POINTER )(&(table_type[(t__VCGH)])));
-            lab_type__40KH=(__UINTEGER_32)(t__VCGH |  1);
-            next__10KH=((__POINTER )(NULL));
-            result__30KH=((__POINTER *)ptr_table__20KH)[ 0];
-            if ((result__30KH == (void *)NULL)) {
-              result__30KH=new_lab__RTJ(lab_type__40KH);
-              next__10KH=(void *)((unsigned long)result__30KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__50KH)));
-              ((__POINTER *)next__10KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__20KH)[ 0]=next__10KH;
-            } else {
-              next__10KH=((__POINTER *)result__30KH)[ 0];
-              if ((next__10KH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__30KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__50KH <<  1)) <=  4096)) {
-                  next__10KH=(void *)((unsigned long)result__30KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__50KH)));
-                } else {
-                  next__10KH=new_lab__RTJ(lab_type__40KH);
-                };
-                ((__POINTER *)next__10KH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__20KH)[ 0]=next__10KH;
-              } else {
-                ((__POINTER *)result__30KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__10KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__30KH=next__10KH;
-              };
-            };
-            ptr__OLIB=result__30KH;
-          };
-          result__NLIB=((__ITM_TYPE_GENERIC *)ptr__OLIB);
-          *(result__NLIB) = *(ITM_TYPE_GENERIC__);
-        };
-        Self__N1CC=((__ITM_TYPE_GENERIC *)result__NLIB);
-        Self__N1CC->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP=nam__HPN;
-        Self__N1CC->parent_itm_type_style__4SN.style__PZP=styl__FPN;
-        Self__N1CC->list_type__ZZP=genericity__IPN;
-        result__MYP=result__NLIB;
-        Self__2CBB=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP);
-        new_capacity__4CBB= 0;
-        if (((__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.upper__2YP +  1) <= (__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW -  1))) {
-          Self__2CBB->parent_arrayed_collection__SYP.upper__2YP=(__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.upper__2YP +  1);
-          __tmp__MDBB=TRUE__;
-        } else {
-          __tmp__MDBB=FALSE__;
-        };
-        if ((! __tmp__MDBB)) {
-          if ((Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW ==  0)) {
-            Self__2CBB->parent_arrayed_collection__SYP.storage__SBW=create__JQXB( 2);
-            Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW= 2;
-            Self__2CBB->parent_arrayed_collection__SYP.upper__2YP= 0;
-          } else {
-            new_capacity__4CBB=(__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW <<  1);
-            __tmp__BEBB=Self__2CBB->parent_arrayed_collection__SYP.storage__SBW;
-            __tmp__CEBB=Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW;
-            new__0NFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__BEBB)),((__UINTEGER_32 )(__INTEGER)(__tmp__CEBB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__4CBB * ((__INTEGER )(sizeof(void *)))))));
-            __tmp__OOFC=(__INTEGER)(new_capacity__4CBB -  1);
-            Self__14VD=__tmp__CEBB;
-            while ((Self__14VD <= __tmp__OOFC)) {
-              new__0NFC[Self__14VD]=NULL;
-              Self__14VD=(__INTEGER)(Self__14VD +  1);
-            };
-            Self__2CBB->parent_arrayed_collection__SYP.storage__SBW=new__0NFC;
-            Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW=new_capacity__4CBB;
-            Self__2CBB->parent_arrayed_collection__SYP.upper__2YP=(__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.upper__2YP +  1);
-          };
-        };
-        ((void **)Self__2CBB->parent_arrayed_collection__SYP.storage__SBW)[Self__2CBB->parent_arrayed_collection__SYP.upper__2YP]=result__NLIB;
-      };
-      result__JPN=result__MYP;
-      result__A1KH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__A1KH=FALSE__;
-      } else {
-        result__B1KH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__B1KH=((__CHARACTER )(( 0)));
-        } else {
-          result__B1KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__B1KH == ')')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__A1KH=TRUE__;
-        };
-      };
-      if ((! result__A1KH)) {
-        pos__HWZG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_262));
-        put_position__FRG(pos__HWZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    } else {
-      if (is_parameter_type__AME) {
-        if (((void *)styl__FPN != (void *)NULL)) {
-          copy__VDS(string_tmp__VH,(&__string_320));
-          append__3OS(string_tmp__VH,styl__FPN);
-          append__3OS(string_tmp__VH,(&__string_321));
-          __tmp__4TN=current_position__B0F();
-          put_error__text__1PG( 2,string_tmp__VH);
-          put_position__FRG(__tmp__4TN);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__MUEH=fast_reference_at__R3T(dico__XVI,nam__HPN);
-        if (((void *)result__MUEH == (void *)NULL)) {
-          result__YMIH=NULL;
-          ptr__ZMIH=((__POINTER )(NULL));
-          typ_id__0MIH= 0;
-          sz__1MIH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
-          if ((sz__1MIH ==  0)) {
-            result__YMIH=ITM_TYPE_PARAMETER__;
-          } else {
-            typ_id__0MIH=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1MIH);
-            if ((typ_id__0MIH == (__INTEGER)(-  1))) {
-              a__2MIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__3MIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1MIH + a__2MIH) & (__UINTEGER_32)(~ a__2MIH));
-              ptr_table__E1KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3MIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__D1KH=((__POINTER )(NULL));
-              result__F1KH=((__POINTER *)ptr_table__E1KH)[ 0];
-              if ((result__F1KH == (void *)NULL)) {
-                result__F1KH=new_lab__RTJ(new_size__3MIH);
-                next__D1KH=(void *)((unsigned long)result__F1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3MIH)));
-                ((__POINTER *)next__D1KH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__E1KH)[ 0]=next__D1KH;
-              } else {
-                next__D1KH=((__POINTER *)result__F1KH)[ 0];
-                if ((next__D1KH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F1KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3MIH <<  1)) <=  4096)) {
-                    next__D1KH=(void *)((unsigned long)result__F1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3MIH)));
-                  } else {
-                    next__D1KH=new_lab__RTJ(new_size__3MIH);
-                  };
-                  ((__POINTER *)next__D1KH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__E1KH)[ 0]=next__D1KH;
-                } else {
-                  ((__POINTER *)result__F1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__F1KH=next__D1KH;
-                };
-              };
-              ptr__ZMIH=result__F1KH;
-            } else {
-              t__4MIH=((__UINTEGER_32 )typ_id__0MIH);
-              a__5MIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__M1KH=(__UINTEGER_32)((__UINTEGER_32)(sz__1MIH + a__5MIH) & (__UINTEGER_32)(~ a__5MIH));
-              ptr_table__J1KH=((__POINTER )(&(table_type[(t__4MIH)])));
-              lab_type__L1KH=(__UINTEGER_32)(t__4MIH |  1);
-              next__I1KH=((__POINTER )(NULL));
-              result__K1KH=((__POINTER *)ptr_table__J1KH)[ 0];
-              if ((result__K1KH == (void *)NULL)) {
-                result__K1KH=new_lab__RTJ(lab_type__L1KH);
-                next__I1KH=(void *)((unsigned long)result__K1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M1KH)));
-                ((__POINTER *)next__I1KH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__J1KH)[ 0]=next__I1KH;
-              } else {
-                next__I1KH=((__POINTER *)result__K1KH)[ 0];
-                if ((next__I1KH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K1KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__M1KH <<  1)) <=  4096)) {
-                    next__I1KH=(void *)((unsigned long)result__K1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M1KH)));
-                  } else {
-                    next__I1KH=new_lab__RTJ(lab_type__L1KH);
-                  };
-                  ((__POINTER *)next__I1KH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__J1KH)[ 0]=next__I1KH;
-                } else {
-                  ((__POINTER *)result__K1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__K1KH=next__I1KH;
-                };
-              };
-              ptr__ZMIH=result__K1KH;
-            };
-            result__YMIH=((__ITM_TYPE_PARAMETER *)ptr__ZMIH);
-            *(result__YMIH) = *(ITM_TYPE_PARAMETER__);
-          };
-          Self__ANIH=((__ITM_TYPE_PARAMETER *)result__YMIH);
-          Self__ANIH->parent_itm_type__VFE.name__GZP=nam__HPN;
-          fast_put__to__JPZ(dico__XVI,Self__ANIH,nam__HPN);
-          result__MUEH=result__YMIH;
-        };
-        result__JPN=result__MUEH;
-        __tmp__FUN=TRUE__;
-      } else {
-        __tmp__FUN=FALSE__;
-      };
-      if ((! __tmp__FUN)) {
-        if (((void *)styl__FPN == (void *)NULL)) {
-          result__JPN=get__IVI(nam__HPN);
-        } else {
-          if (((void *)nam__HPN == (void *)(&__string_1))) {
-            copy__VDS(string_tmp__VH,(&__string_320));
-            append__3OS(string_tmp__VH,styl__FPN);
-            append__3OS(string_tmp__VH,(&__string_322));
-            __tmp__AVN=current_position__B0F();
-            put_error__text__1PG( 2,string_tmp__VH);
-            put_position__FRG(__tmp__AVN);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-            result__JPN=type_self__DVN;
-          } else {
-            n__YOR=nam__HPN;
-            result__1OR=NULL;
-            idx__2OR= 0;
-            __tmp__E5GH=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.upper__LPR;
-            __tmp__LFHH=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.storage__0LW;
-            __tmp__MFHH=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.storage__0LW;
-            while (((idx__2OR <= __tmp__E5GH) && (((void *)((__ITM_TYPE_STYLE *)((void **)__tmp__LFHH)[idx__2OR])->parent_itm_type_simple__3SN.name__GZP != (void *)n__YOR) || ((void *)((__ITM_TYPE_STYLE *)((void **)__tmp__MFHH)[idx__2OR])->style__PZP != (void *)styl__FPN)))) {
-              idx__2OR=(__INTEGER)(idx__2OR +  1);
-            };
-            if ((idx__2OR <= ((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.upper__LPR)) {
-              __tmp__WQR=((void **)((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.storage__0LW)[idx__2OR];
-              if (__tmp__WQR==NULL) {
-                __tmp__XQR=NULL;
-              } else {
-                __tmp__XQR=((__ITM_TYPE_STYLE *)__tmp__WQR);
-              };
-              result__1OR=__tmp__XQR;
-            } else {
-              result__Y2IB=NULL;
-              ptr__Z2IB=((__POINTER )(NULL));
-              typ_id__42IB= 0;
-              sz__12IB=((__UINTEGER_32 )sizeof(__ITM_TYPE_STYLE));
-              if ((sz__12IB ==  0)) {
-                result__Y2IB=ITM_TYPE_STYLE__;
-              } else {
-                typ_id__42IB=-1;
-                clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__12IB);
-                if ((typ_id__42IB == (__INTEGER)(-  1))) {
-                  a__4CGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__5CGH=(__UINTEGER_32)((__UINTEGER_32)(sz__12IB + a__4CGH) & (__UINTEGER_32)(~ a__4CGH));
-                  ptr_table__O1KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5CGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-                  next__N1KH=((__POINTER )(NULL));
-                  result__P1KH=((__POINTER *)ptr_table__O1KH)[ 0];
-                  if ((result__P1KH == (void *)NULL)) {
-                    result__P1KH=new_lab__RTJ(new_size__5CGH);
-                    next__N1KH=(void *)((unsigned long)result__P1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CGH)));
-                    ((__POINTER *)next__N1KH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__O1KH)[ 0]=next__N1KH;
-                  } else {
-                    next__N1KH=((__POINTER *)result__P1KH)[ 0];
-                    if ((next__N1KH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P1KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5CGH <<  1)) <=  4096)) {
-                        next__N1KH=(void *)((unsigned long)result__P1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CGH)));
-                      } else {
-                        next__N1KH=new_lab__RTJ(new_size__5CGH);
-                      };
-                      ((__POINTER *)next__N1KH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__O1KH)[ 0]=next__N1KH;
-                    } else {
-                      ((__POINTER *)result__P1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__P1KH=next__N1KH;
-                    };
-                  };
-                  ptr__Z2IB=result__P1KH;
-                } else {
-                  t__DDGH=((__UINTEGER_32 )typ_id__42IB);
-                  a__CDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-                  new_size__W1KH=(__UINTEGER_32)((__UINTEGER_32)(sz__12IB + a__CDGH) & (__UINTEGER_32)(~ a__CDGH));
-                  ptr_table__T1KH=((__POINTER )(&(table_type[(t__DDGH)])));
-                  lab_type__V1KH=(__UINTEGER_32)(t__DDGH |  1);
-                  next__S1KH=((__POINTER )(NULL));
-                  result__U1KH=((__POINTER *)ptr_table__T1KH)[ 0];
-                  if ((result__U1KH == (void *)NULL)) {
-                    result__U1KH=new_lab__RTJ(lab_type__V1KH);
-                    next__S1KH=(void *)((unsigned long)result__U1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1KH)));
-                    ((__POINTER *)next__S1KH)[ 0]=NULL;
-                    ((__POINTER *)ptr_table__T1KH)[ 0]=next__S1KH;
-                  } else {
-                    next__S1KH=((__POINTER *)result__U1KH)[ 0];
-                    if ((next__S1KH == (void *)NULL)) {
-                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U1KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__W1KH <<  1)) <=  4096)) {
-                        next__S1KH=(void *)((unsigned long)result__U1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1KH)));
-                      } else {
-                        next__S1KH=new_lab__RTJ(lab_type__V1KH);
-                      };
-                      ((__POINTER *)next__S1KH)[ 0]=NULL;
-                      ((__POINTER *)ptr_table__T1KH)[ 0]=next__S1KH;
-                    } else {
-                      ((__POINTER *)result__U1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                      result__U1KH=next__S1KH;
-                    };
-                  };
-                  ptr__Z2IB=result__U1KH;
-                };
-                result__Y2IB=((__ITM_TYPE_STYLE *)ptr__Z2IB);
-                *(result__Y2IB) = *(ITM_TYPE_STYLE__);
-              };
-              Self__54CC=((__ITM_TYPE_STYLE *)result__Y2IB);
-              Self__54CC->parent_itm_type_simple__3SN.name__GZP=nam__HPN;
-              Self__54CC->style__PZP=styl__FPN;
-              result__1OR=result__Y2IB;
-              Self__DBCB=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR);
-              new_capacity__FBCB= 0;
-              if (((__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.upper__LPR +  1) <= (__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW -  1))) {
-                Self__DBCB->parent_arrayed_collection__BPR.upper__LPR=(__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.upper__LPR +  1);
-                __tmp__TBCB=TRUE__;
-              } else {
-                __tmp__TBCB=FALSE__;
-              };
-              if ((! __tmp__TBCB)) {
-                if ((Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW ==  0)) {
-                  Self__DBCB->parent_arrayed_collection__BPR.storage__0LW=create__VFYB( 2);
-                  Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW= 2;
-                  Self__DBCB->parent_arrayed_collection__BPR.upper__LPR= 0;
-                } else {
-                  new_capacity__FBCB=(__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW <<  1);
-                  __tmp__ICCB=Self__DBCB->parent_arrayed_collection__BPR.storage__0LW;
-                  __tmp__JCCB=Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW;
-                  new__WRFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__ICCB)),((__UINTEGER_32 )(__INTEGER)(__tmp__JCCB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__FBCB * ((__INTEGER )(sizeof(void *)))))));
-                  __tmp__KSFC=(__INTEGER)(new_capacity__FBCB -  1);
-                  Self__0AWD=__tmp__JCCB;
-                  while ((Self__0AWD <= __tmp__KSFC)) {
-                    new__WRFC[Self__0AWD]=NULL;
-                    Self__0AWD=(__INTEGER)(Self__0AWD +  1);
-                  };
-                  Self__DBCB->parent_arrayed_collection__BPR.storage__0LW=new__WRFC;
-                  Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW=new_capacity__FBCB;
-                  Self__DBCB->parent_arrayed_collection__BPR.upper__LPR=(__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.upper__LPR +  1);
-                };
-              };
-              ((void **)Self__DBCB->parent_arrayed_collection__BPR.storage__0LW)[Self__DBCB->parent_arrayed_collection__BPR.upper__LPR]=result__Y2IB;
-            };
-            result__JPN=result__1OR;
-          };
-        };
-      };
-    };
-    if (is_shorter__LZ) {
-      sav_derive__NPN=short_derive__PCC;
-      short_derive__PCC=old_derive__MPN;
-      if ((((void *)result__JPN == (void *)type_self__DVN) || ((void *)result__JPN == (void *)type_null__1VN))) {
-        short__token__to__GDD((&__string_126),(__INTEGER)(old_pos__LPN - ((__STRING_CONSTANT *)nam__HPN)->count__DD),old_pos__LPN);
-      } else {
-        short__token__to__GDD((&__string_125),(__INTEGER)(old_pos__LPN - ((__STRING_CONSTANT *)nam__HPN)->count__DD),old_pos__LPN);
-      };
-      short_derive__PCC=(__INTEGER)(sav_derive__NPN + (__INTEGER)(short_derive__PCC - old_derive__MPN));
-    };
-  };
-  return(result__JPN);
-}
-
-static void read_def_local__M3H(__PARSER *Self__N3H)
-// ({PARSER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER beg__D0K,typ_id__TXN,Self__RCAB,limit_up__SCAB,__tmp__H4K;
-  __INTEGER Self__D4N;
-  __POSITION pos__TYZG,__tmp__P1K,pos__1YZG,pos__IZZG,pos__PZZG;
-  void *__tmp__Q1K;
-  __ITM_LOCAL *result__NXN,*Self__ODV;
-  __POINTER ptr__OXN,ptr_table__Y1KH,next__X1KH,result__Z1KH;
-  __POINTER ptr_table__31KH,next__21KH,result__41KH;
-  __UINTEGER_32 sz__QXN,a__UDGH,new_size__VDGH,t__ZDGH,a__YDGH;
-  __UINTEGER_32 new_size__A2KH,lab_type__51KH;
-  __CHARACTER styl__X3H,result__C2KH,result__RPBH,result__F2KH;
-  __CHARACTER result__I2KH;
-  void *result__NFHH,*local_list__V3H,*result__QFHH,*static_list__W3H;
-  void *result__C0K,*result__UTI;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__OFHH,*Self__PFHH;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__RFHH,*Self__SFHH,*Self__3P4;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__TQ4;
-  __BOOLEAN mute__E0K,result__B2KH,__tmp__11K,result__E2KH,result__H2KH;
-  old_position__ITI=position__CCC;
-  old_pos_cur__KTI=pos_cur__FCC;
-  old_pos_line__MTI=pos_line__GCC;
-  old_pos_col__OTI=pos_col__HCC;
-  old_short_derive__QTI=short_derive__PCC;
-  styl__X3H=read_style__PUF();
-  result__NFHH=NULL;
-  if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI)->parent_arrayed_collection__ZTI.upper__C3T <  0)) {
-    result__NFHH=create_with_capacity__LLK( 16);
-  } else {
-    Self__OFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-    result__NFHH=((void **)Self__OFHH->parent_arrayed_collection__ZTI.storage__YKU)[Self__OFHH->parent_arrayed_collection__ZTI.upper__C3T];
-    Self__PFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-    Self__PFHH->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__PFHH->parent_arrayed_collection__ZTI.upper__C3T -  1);
-  };
-  local_list__V3H=result__NFHH;
-  result__QFHH=NULL;
-  if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI)->parent_arrayed_collection__ZTI.upper__C3T <  0)) {
-    result__QFHH=create_with_capacity__LLK( 16);
-  } else {
-    Self__RFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-    result__QFHH=((void **)Self__RFHH->parent_arrayed_collection__ZTI.storage__YKU)[Self__RFHH->parent_arrayed_collection__ZTI.upper__C3T];
-    Self__SFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-    Self__SFHH->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__SFHH->parent_arrayed_collection__ZTI.upper__C3T -  1);
-  };
-  static_list__W3H=result__QFHH;
-  while ((styl__X3H != ' ')) {
-    result__C0K=NULL;
-    beg__D0K= 0;
-    mute__E0K=TRUE__;
-    if (read_identifier__2BL()) {
-      result__UTI=NULL;
-      if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI)->parent_arrayed_collection__ZTI.upper__C3T <  0)) {
-        result__UTI=create_with_capacity__LLK( 16);
-      } else {
-        Self__3P4=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-        result__UTI=((void **)Self__3P4->parent_arrayed_collection__ZTI.storage__YKU)[Self__3P4->parent_arrayed_collection__ZTI.upper__C3T];
-        Self__TQ4=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-        Self__TQ4->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__TQ4->parent_arrayed_collection__ZTI.upper__C3T -  1);
-      };
-      result__C0K=result__UTI;
-      beg__D0K= 0;
-      do {
-        if (((((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K +  1) !=  0) && (! read_identifier__2BL())) && (! mute__E0K))) {
-          pos__TYZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_323));
-          put_position__FRG(pos__TYZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        __tmp__P1K=current_position__B0F();
-        __tmp__Q1K=last_string__D2C;
-        result__NXN=NULL;
-        ptr__OXN=((__POINTER )(NULL));
-        typ_id__TXN= 0;
-        sz__QXN=((__UINTEGER_32 )sizeof(__ITM_LOCAL));
-        if ((sz__QXN ==  0)) {
-          result__NXN=ITM_LOCAL__;
-        } else {
-          typ_id__TXN=__ITM_LOCAL__;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QXN);
-          if ((typ_id__TXN == (__INTEGER)(-  1))) {
-            a__UDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__VDGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXN + a__UDGH) & (__UINTEGER_32)(~ a__UDGH));
-            ptr_table__Y1KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VDGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__X1KH=((__POINTER )(NULL));
-            result__Z1KH=((__POINTER *)ptr_table__Y1KH)[ 0];
-            if ((result__Z1KH == (void *)NULL)) {
-              result__Z1KH=new_lab__RTJ(new_size__VDGH);
-              next__X1KH=(void *)((unsigned long)result__Z1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDGH)));
-              ((__POINTER *)next__X1KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__Y1KH)[ 0]=next__X1KH;
-            } else {
-              next__X1KH=((__POINTER *)result__Z1KH)[ 0];
-              if ((next__X1KH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z1KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VDGH <<  1)) <=  4096)) {
-                  next__X1KH=(void *)((unsigned long)result__Z1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDGH)));
-                } else {
-                  next__X1KH=new_lab__RTJ(new_size__VDGH);
-                };
-                ((__POINTER *)next__X1KH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__Y1KH)[ 0]=next__X1KH;
-              } else {
-                ((__POINTER *)result__Z1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__Z1KH=next__X1KH;
-              };
-            };
-            ptr__OXN=result__Z1KH;
-          } else {
-            t__ZDGH=((__UINTEGER_32 )typ_id__TXN);
-            a__YDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__A2KH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXN + a__YDGH) & (__UINTEGER_32)(~ a__YDGH));
-            ptr_table__31KH=((__POINTER )(&(table_type[(t__ZDGH)])));
-            lab_type__51KH=(__UINTEGER_32)(t__ZDGH |  1);
-            next__21KH=((__POINTER )(NULL));
-            result__41KH=((__POINTER *)ptr_table__31KH)[ 0];
-            if ((result__41KH == (void *)NULL)) {
-              result__41KH=new_lab__RTJ(lab_type__51KH);
-              next__21KH=(void *)((unsigned long)result__41KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2KH)));
-              ((__POINTER *)next__21KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__31KH)[ 0]=next__21KH;
-            } else {
-              next__21KH=((__POINTER *)result__41KH)[ 0];
-              if ((next__21KH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__41KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__A2KH <<  1)) <=  4096)) {
-                  next__21KH=(void *)((unsigned long)result__41KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2KH)));
-                } else {
-                  next__21KH=new_lab__RTJ(lab_type__51KH);
-                };
-                ((__POINTER *)next__21KH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__31KH)[ 0]=next__21KH;
-              } else {
-                ((__POINTER *)result__41KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__21KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__41KH=next__21KH;
-              };
-            };
-            ptr__OXN=result__41KH;
-          };
-          result__NXN=((__ITM_LOCAL *)ptr__OXN);
-          *(result__NXN) = *(ITM_LOCAL__);
-        };
-        Self__ODV=((__ITM_LOCAL *)result__NXN);
-        Self__ODV->name__P4K=__tmp__Q1K;
-        Self__ODV->parent_itm_object__O3H.position__SFJ=__tmp__P1K;
-        add_last__Z1U(result__C0K,result__NXN);
-        result__B2KH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__B2KH=FALSE__;
-        } else {
-          result__C2KH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__C2KH=((__CHARACTER )(( 0)));
-          } else {
-            result__C2KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__C2KH == ':')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__B2KH=TRUE__;
-          };
-        };
-        if (result__B2KH) {
-          result__RPBH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__RPBH=((__CHARACTER )(( 0)));
-          } else {
-            result__RPBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__11K=(result__RPBH != '=');
-        } else {
-          __tmp__11K=FALSE__;
-        };
-        if (__tmp__11K) {
-          mute__E0K=FALSE__;
-          if (((void *)read_type__CDM(Self__N3H,TRUE__) == (void *)NULL)) {
-            pos__1YZG=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_324));
-            put_position__FRG(pos__1YZG);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-          Self__RCAB=beg__D0K;
-          limit_up__SCAB=((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K;
-          while ((Self__RCAB <= limit_up__SCAB)) {
-            Self__RCAB=(__INTEGER)(Self__RCAB +  1);
-          };
-          beg__D0K=(__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K +  1);
-        };
-        result__E2KH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__E2KH=FALSE__;
-        } else {
-          result__F2KH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__F2KH=((__CHARACTER )(( 0)));
-          } else {
-            result__F2KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__F2KH == ',')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__E2KH=TRUE__;
-          };
-        };
-      } while (result__E2KH);
-      if ((beg__D0K != (__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__UTI)->parent_arrayed_collection__T3H.upper__M2K +  1))) {
-        if (mute__E0K) {
-          free__RLK(result__UTI);
-          result__C0K=NULL;
-        } else {
-          pos__IZZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_324));
-          put_position__FRG(pos__IZZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      } else {
-        result__C0K=copy__05J(result__C0K);
-        if (is_shorter__LZ) {
-          __tmp__H4K=((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K;
-          Self__D4N= 0;
-          while ((Self__D4N <= __tmp__H4K)) {
-            add__1IHB(short_local__XCC,((__ITM_LOCAL *)((void **)((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.storage__TMU)[Self__D4N])->name__P4K);
-            Self__D4N=(__INTEGER)(Self__D4N +  1);
-          };
-        };
-      };
-    };
-    if (((void *)result__C0K != (void *)NULL)) {
-      if ((styl__X3H == '+')) {
-        append_collection__RDPD(local_list__V3H,result__C0K);
-      } else {
-        append_collection__RDPD(static_list__W3H,result__C0K);
-      };
-      result__H2KH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__H2KH=FALSE__;
-      } else {
-        result__I2KH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__I2KH=((__CHARACTER )(( 0)));
-        } else {
-          result__I2KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__I2KH == ';')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__H2KH=TRUE__;
-        };
-      };
-      if ((! result__H2KH)) {
-        pos__PZZG=current_position__B0F();
-        put_error__text__1PG( 2,(&__string_241));
-        put_position__FRG(pos__PZZG);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      old_position__ITI=position__CCC;
-      old_pos_cur__KTI=pos_cur__FCC;
-      old_pos_line__MTI=pos_line__GCC;
-      old_pos_col__OTI=pos_col__HCC;
-      old_short_derive__QTI=short_derive__PCC;
-      styl__X3H=read_style__PUF();
-    } else {
-      restore_context__EFL();
-      styl__X3H=' ';
-    };
-  };
-  if ((((__FAST_ARRAYoITM_LOCALo *)result__NFHH)->parent_arrayed_collection__T3H.upper__M2K <  0)) {
-    free__RLK(result__NFHH);
-  } else {
-    copy__05J(result__NFHH);
-  };
-  if ((((__FAST_ARRAYoITM_LOCALo *)result__QFHH)->parent_arrayed_collection__T3H.upper__M2K <  0)) {
-    free__RLK(result__QFHH);
-  } else {
-    copy__05J(result__QFHH);
-  };
-}
-
-static __FAST_ARRAYoITM_CODEo* create_with_capacity__XXI(__INTEGER new_count__ZXI)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __POINTER ptr__VMJ,ptr_table__L2KH,next__K2KH,result__M2KH;
-  __POINTER ptr_table__Q2KH,next__P2KH,result__R2KH;
-  __INTEGER typ_id__0MJ;
-  __UINTEGER_32 sz__XMJ,a__RJGH,new_size__SJGH,t__WJGH,a__VJGH;
-  __UINTEGER_32 new_size__T2KH,lab_type__S2KH;
-  __FAST_ARRAYoITM_CODEo *result__UMJ,*Self__Y5T;
-  result__UMJ=NULL;
-  ptr__VMJ=((__POINTER )(NULL));
-  typ_id__0MJ= 0;
-  sz__XMJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_CODEo));
-  if ((sz__XMJ ==  0)) {
-    result__UMJ=FAST_ARRAYoITM_CODEo__;
-  } else {
-    typ_id__0MJ=__FAST_ARRAYoITM_CODEo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XMJ);
-    if ((typ_id__0MJ == (__INTEGER)(-  1))) {
-      a__RJGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__SJGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMJ + a__RJGH) & (__UINTEGER_32)(~ a__RJGH));
-      ptr_table__L2KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SJGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__K2KH=((__POINTER )(NULL));
-      result__M2KH=((__POINTER *)ptr_table__L2KH)[ 0];
-      if ((result__M2KH == (void *)NULL)) {
-        result__M2KH=new_lab__RTJ(new_size__SJGH);
-        next__K2KH=(void *)((unsigned long)result__M2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJGH)));
-        ((__POINTER *)next__K2KH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__L2KH)[ 0]=next__K2KH;
-      } else {
-        next__K2KH=((__POINTER *)result__M2KH)[ 0];
-        if ((next__K2KH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M2KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__SJGH <<  1)) <=  4096)) {
-            next__K2KH=(void *)((unsigned long)result__M2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJGH)));
-          } else {
-            next__K2KH=new_lab__RTJ(new_size__SJGH);
-          };
-          ((__POINTER *)next__K2KH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__L2KH)[ 0]=next__K2KH;
-        } else {
-          ((__POINTER *)result__M2KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__K2KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__M2KH=next__K2KH;
-        };
-      };
-      ptr__VMJ=result__M2KH;
-    } else {
-      t__WJGH=((__UINTEGER_32 )typ_id__0MJ);
-      a__VJGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__T2KH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMJ + a__VJGH) & (__UINTEGER_32)(~ a__VJGH));
-      ptr_table__Q2KH=((__POINTER )(&(table_type[(t__WJGH)])));
-      lab_type__S2KH=(__UINTEGER_32)(t__WJGH |  1);
-      next__P2KH=((__POINTER )(NULL));
-      result__R2KH=((__POINTER *)ptr_table__Q2KH)[ 0];
-      if ((result__R2KH == (void *)NULL)) {
-        result__R2KH=new_lab__RTJ(lab_type__S2KH);
-        next__P2KH=(void *)((unsigned long)result__R2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T2KH)));
-        ((__POINTER *)next__P2KH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__Q2KH)[ 0]=next__P2KH;
-      } else {
-        next__P2KH=((__POINTER *)result__R2KH)[ 0];
-        if ((next__P2KH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R2KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__T2KH <<  1)) <=  4096)) {
-            next__P2KH=(void *)((unsigned long)result__R2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T2KH)));
-          } else {
-            next__P2KH=new_lab__RTJ(lab_type__S2KH);
-          };
-          ((__POINTER *)next__P2KH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__Q2KH)[ 0]=next__P2KH;
-        } else {
-          ((__POINTER *)result__R2KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__P2KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__R2KH=next__P2KH;
-        };
-      };
-      ptr__VMJ=result__R2KH;
-    };
-    result__UMJ=((__FAST_ARRAYoITM_CODEo *)ptr__VMJ);
-    *(result__UMJ) = *(FAST_ARRAYoITM_CODEo__);
-  };
-  Self__Y5T=((__FAST_ARRAYoITM_CODEo *)result__UMJ);
-  if ((Self__Y5T->parent_arrayed_collection__JWF.capacity__TZT < new_count__ZXI)) {
-    Self__Y5T->parent_arrayed_collection__JWF.storage__4ZT=create__KRQB(new_count__ZXI);
-    Self__Y5T->parent_arrayed_collection__JWF.capacity__TZT=new_count__ZXI;
-  };
-  Self__Y5T->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(-  1);
-  return(result__UMJ);
-}
-
-static void add_last__I5U(__FAST_ARRAYoITM_CODEo *Self__J5U,void *element__K5U)
-// ({FAST_ARRAYoITM_CODEo},{NULLxITM_LISTxITM_LDOTSxITM_PROTOTYPExITM_LIST_IDFxITM_WRITE_VALUExITM_WRITE_CASTxITM_READxITM_WRITE_CODExITM_OPERATORxITM_READ_ARG1xITM_READ_ARG2xITM_EXPRESSIONxITM_OLDxITM_EXTERNAL_TYPExITM_BLOCKxITM_EXTERNALxITM_READ_ARGSxITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRINGxITM_RESULT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__L5U,__tmp__PAV,__tmp__ODEC,Self__JMVD;
-  __BOOLEAN __tmp__Z5U;
-  void **__tmp__OAV,**new__0CEC;
-  new_capacity__L5U= 0;
-  if (((__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.upper__NJL +  1) <= (__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.capacity__TZT -  1))) {
-    Self__J5U->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.upper__NJL +  1);
-    __tmp__Z5U=TRUE__;
-  } else {
-    __tmp__Z5U=FALSE__;
-  };
-  if ((! __tmp__Z5U)) {
-    if ((Self__J5U->parent_arrayed_collection__JWF.capacity__TZT ==  0)) {
-      Self__J5U->parent_arrayed_collection__JWF.storage__4ZT=create__KRQB( 2);
-      Self__J5U->parent_arrayed_collection__JWF.capacity__TZT= 2;
-      Self__J5U->parent_arrayed_collection__JWF.upper__NJL= 0;
-    } else {
-      new_capacity__L5U=(__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.capacity__TZT <<  1);
-      __tmp__OAV=Self__J5U->parent_arrayed_collection__JWF.storage__4ZT;
-      __tmp__PAV=Self__J5U->parent_arrayed_collection__JWF.capacity__TZT;
-      new__0CEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__OAV)),((__UINTEGER_32 )(__INTEGER)(__tmp__PAV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__L5U * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__ODEC=(__INTEGER)(new_capacity__L5U -  1);
-      Self__JMVD=__tmp__PAV;
-      while ((Self__JMVD <= __tmp__ODEC)) {
-        new__0CEC[Self__JMVD]=NULL;
-        Self__JMVD=(__INTEGER)(Self__JMVD +  1);
-      };
-      Self__J5U->parent_arrayed_collection__JWF.storage__4ZT=new__0CEC;
-      Self__J5U->parent_arrayed_collection__JWF.capacity__TZT=new_capacity__L5U;
-      Self__J5U->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.upper__NJL +  1);
-    };
-  };
-  ((void **)Self__J5U->parent_arrayed_collection__JWF.storage__4ZT)[Self__J5U->parent_arrayed_collection__JWF.upper__NJL]=element__K5U;
-}
-
-static void* copy__5BI(void *tmp__BCI)
-// ({NULLxFAST_ARRAYoITM_CODEo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__KZT,other_upper__JZT,Self__Q3JC;
-  void *result__DCI;
-  __FAST_ARRAYoITM_CODEo *Self__HZT;
-  void **__tmp__B0T,**__tmp__D0T,**Self__CQCC;
-  result__DCI=create_with_capacity__XXI((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)tmp__BCI)->parent_arrayed_collection__JWF.upper__NJL +  1));
-  Self__HZT=((__FAST_ARRAYoITM_CODEo *)result__DCI);
-  new_capacity__KZT= 0;
-  other_upper__JZT=((__FAST_ARRAYoITM_CODEo *)tmp__BCI)->parent_arrayed_collection__JWF.upper__NJL;
-  if ((other_upper__JZT >=  0)) {
-    new_capacity__KZT=(__INTEGER)(other_upper__JZT +  1);
-    if ((Self__HZT->parent_arrayed_collection__JWF.capacity__TZT < new_capacity__KZT)) {
-      Self__HZT->parent_arrayed_collection__JWF.storage__4ZT=create__KRQB(new_capacity__KZT);
-      Self__HZT->parent_arrayed_collection__JWF.capacity__TZT=new_capacity__KZT;
-    };
-    __tmp__B0T=Self__HZT->parent_arrayed_collection__JWF.storage__4ZT;
-    __tmp__D0T=((__FAST_ARRAYoITM_CODEo *)tmp__BCI)->parent_arrayed_collection__JWF.storage__4ZT;
-    Self__CQCC=((void **)__tmp__B0T);
-    Self__Q3JC=other_upper__JZT;
-    while ((Self__Q3JC >=  0)) {
-      Self__CQCC[Self__Q3JC]=((void **)__tmp__D0T)[Self__Q3JC];
-      Self__Q3JC=(__INTEGER)(Self__Q3JC -  1);
-    };
-  };
-  Self__HZT->parent_arrayed_collection__JWF.upper__NJL=other_upper__JZT;
-  free__3XI(tmp__BCI);
-  return(result__DCI);
-}
-
-static __BOOLEAN fast_has__RDV(__HASHED_SEToSTRING_CONSTANTo *Self__SDV,void *e__TDV)
-// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__3DV;
-  node__3DV=((void **)Self__SDV->buckets__DEV)[(__INTEGER)(hash_code__RNW(e__TDV) % Self__SDV->capacity__HIT)];
-  while ((! (((void *)node__3DV == (void *)NULL) || ((void *)((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__3DV)->item__PEV == (void *)e__TDV)))) {
-    node__3DV=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__3DV)->next__0EV;
-  };
-  return(((void *)node__3DV != (void *)NULL));
-}
-
-static void restore_context__EFL()
-// () VoidNo recursive, No inlinable.
-{
-  __INTEGER beg__GFL,__tmp__YFL,__tmp__1FL,Self__YNM,new_capacity__CNIH;
-  __INTEGER old_nb_elts__FNIH,upper__X2KH,Self__V2KH;
-  __STRING *Self__DNIH;
-  __CHARACTER ch__HNIH;
-  __CHARACTER *Self__ENIH,*new__GNIH;
-  beg__GFL= 0;
-  if (is_shorter__LZ) {
-    ((__STRING *)token__BED)->count__SGC= 0;
-    beg__GFL=(__INTEGER)(old_position__ITI + old_short_derive__QTI);
-    remove_between__to__MIT(output_code__SI,beg__GFL,(__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) -  1));
-    __tmp__YFL=old_position__ITI;
-    __tmp__1FL=(__INTEGER)(position__CCC -  1);
-    Self__YNM=__tmp__YFL;
-    while ((Self__YNM <= __tmp__1FL)) {
-      Self__DNIH=((__STRING *)token__BED);
-      ch__HNIH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(Self__YNM -  1)];
-      new_capacity__CNIH= 0;
-      if ((Self__DNIH->capacity__UCS <= Self__DNIH->count__SGC)) {
-        if ((Self__DNIH->capacity__UCS ==  0)) {
-          Self__DNIH->capacity__UCS= 32;
-          Self__DNIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__CNIH=(__INTEGER)(Self__DNIH->capacity__UCS <<  1);
-          Self__ENIH=((__CHARACTER *)Self__DNIH->storage__3CS);
-          old_nb_elts__FNIH=Self__DNIH->capacity__UCS;
-          new__GNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ENIH),((__UINTEGER_32 )old_nb_elts__FNIH),((__UINTEGER_32 )new_capacity__CNIH)));
-          upper__X2KH=(__INTEGER)(new_capacity__CNIH -  1);
-          Self__V2KH=old_nb_elts__FNIH;
-          while ((Self__V2KH <= upper__X2KH)) {
-            new__GNIH[Self__V2KH]='\0';
-            Self__V2KH=(__INTEGER)(Self__V2KH +  1);
-          };
-          Self__DNIH->storage__3CS=new__GNIH;
-          Self__DNIH->capacity__UCS=new_capacity__CNIH;
-        };
-      };
-      ((__CHARACTER *)Self__DNIH->storage__3CS)[Self__DNIH->count__SGC]=ch__HNIH;
-      Self__DNIH->count__SGC=(__INTEGER)(Self__DNIH->count__SGC +  1);
-      Self__YNM=(__INTEGER)(Self__YNM +  1);
-    };
-    insert_string__to__OXU(output_code__SI,token__BED,beg__GFL);
-    short_derive__PCC=old_short_derive__QTI;
-  };
-  position__CCC=old_position__ITI;
-  pos_cur__FCC=old_pos_cur__KTI;
-  pos_line__GCC=old_pos_line__MTI;
-  pos_col__HCC=old_pos_col__OTI;
-}
-
-static void* read_expr_message__LXL(__PARSER *Self__MXL)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *result__B3L,*result__OXL;
-  __POSITION pos__52ZG,p__U35,pos__H3ZG;
-  __ITM_OLD *result__KQGB;
-  __POINTER ptr__LQGB,ptr_table__22KH,next__12KH,result__32KH;
-  __POINTER ptr_table__B3KH,next__A3KH,result__C3KH;
-  __INTEGER typ_id__QQGB;
-  __UINTEGER_32 sz__NQGB,a__UFGH,new_size__VFGH,t__ZFGH,a__YFGH;
-  __UINTEGER_32 new_size__E3KH,lab_type__D3KH;
-  __BOOLEAN result__02KH,result__F3KH;
-  __CHARACTER result__G3KH;
-  result__B3L=NULL;
-  result__02KH=read_word__ISF((&__string_8));
-  if (is_shorter__LZ) {
-    if (result__02KH) {
-      if (((void *)(&__string_8) == (void *)(&__string_4))) {
-        short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      } else {
-        short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      };
-    };
-  };
-  if (result__02KH) {
-    if (((void *)read_expr__DBJ(Self__MXL) == (void *)NULL)) {
-      pos__52ZG=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_325));
-      put_position__FRG(pos__52ZG);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    p__U35=current_position__B0F();
-    result__KQGB=NULL;
-    ptr__LQGB=((__POINTER )(NULL));
-    typ_id__QQGB= 0;
-    sz__NQGB=((__UINTEGER_32 )sizeof(__ITM_OLD));
-    if ((sz__NQGB ==  0)) {
-      result__KQGB=ITM_OLD__;
-    } else {
-      typ_id__QQGB=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NQGB);
-      if ((typ_id__QQGB == (__INTEGER)(-  1))) {
-        a__UFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__VFGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NQGB + a__UFGH) & (__UINTEGER_32)(~ a__UFGH));
-        ptr_table__22KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VFGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__12KH=((__POINTER )(NULL));
-        result__32KH=((__POINTER *)ptr_table__22KH)[ 0];
-        if ((result__32KH == (void *)NULL)) {
-          result__32KH=new_lab__RTJ(new_size__VFGH);
-          next__12KH=(void *)((unsigned long)result__32KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFGH)));
-          ((__POINTER *)next__12KH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__22KH)[ 0]=next__12KH;
-        } else {
-          next__12KH=((__POINTER *)result__32KH)[ 0];
-          if ((next__12KH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__32KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__VFGH <<  1)) <=  4096)) {
-              next__12KH=(void *)((unsigned long)result__32KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFGH)));
-            } else {
-              next__12KH=new_lab__RTJ(new_size__VFGH);
-            };
-            ((__POINTER *)next__12KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__22KH)[ 0]=next__12KH;
-          } else {
-            ((__POINTER *)result__32KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__12KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__32KH=next__12KH;
-          };
-        };
-        ptr__LQGB=result__32KH;
-      } else {
-        t__ZFGH=((__UINTEGER_32 )typ_id__QQGB);
-        a__YFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__E3KH=(__UINTEGER_32)((__UINTEGER_32)(sz__NQGB + a__YFGH) & (__UINTEGER_32)(~ a__YFGH));
-        ptr_table__B3KH=((__POINTER )(&(table_type[(t__ZFGH)])));
-        lab_type__D3KH=(__UINTEGER_32)(t__ZFGH |  1);
-        next__A3KH=((__POINTER )(NULL));
-        result__C3KH=((__POINTER *)ptr_table__B3KH)[ 0];
-        if ((result__C3KH == (void *)NULL)) {
-          result__C3KH=new_lab__RTJ(lab_type__D3KH);
-          next__A3KH=(void *)((unsigned long)result__C3KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3KH)));
-          ((__POINTER *)next__A3KH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__B3KH)[ 0]=next__A3KH;
-        } else {
-          next__A3KH=((__POINTER *)result__C3KH)[ 0];
-          if ((next__A3KH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C3KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__E3KH <<  1)) <=  4096)) {
-              next__A3KH=(void *)((unsigned long)result__C3KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3KH)));
-            } else {
-              next__A3KH=new_lab__RTJ(lab_type__D3KH);
-            };
-            ((__POINTER *)next__A3KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__B3KH)[ 0]=next__A3KH;
-          } else {
-            ((__POINTER *)result__C3KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A3KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__C3KH=next__A3KH;
-          };
-        };
-        ptr__LQGB=result__C3KH;
-      };
-      result__KQGB=((__ITM_OLD *)ptr__LQGB);
-      *(result__KQGB) = *(ITM_OLD__);
-    };
-    ((__ITM_OLD *)result__KQGB)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ=p__U35;
-    result__B3L=result__KQGB;
-  } else {
-    result__B3L=read_expr_primary__E5M(Self__MXL);
-    if (((void *)result__B3L == (void *)NULL)) {
-      result__B3L=read_send_msg__I5N(Self__MXL,NULL);
-    };
-  };
-  result__OXL=result__B3L;
-  if (((void *)result__B3L != (void *)NULL)) {
-    while_do__E0M:
-    {
-      result__F3KH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__F3KH=FALSE__;
-      } else {
-        result__G3KH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__G3KH=((__CHARACTER )(( 0)));
-        } else {
-          result__G3KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__G3KH == '.')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__F3KH=TRUE__;
-        };
-      };
-      if (result__F3KH) {
-        result__OXL=read_send_msg__I5N(Self__MXL,result__OXL);
-        if (((void *)result__OXL == (void *)NULL)) {
-          pos__H3ZG=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_326));
-          put_position__FRG(pos__H3ZG);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        goto while_do__E0M;
-      };
-    };
-  };
-  return(result__OXL);
-}
-
-static void free__3XI(void *tmp__5XI)
-// ({NULLxFAST_ARRAYoITM_CODEo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__RBU,__tmp__ZCU,__tmp__O3DC,Self__MGVD;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__PBU;
-  __BOOLEAN __tmp__ACU;
-  void **__tmp__YCU,**new__02DC;
-  ((__FAST_ARRAYoITM_CODEo *)tmp__5XI)->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(-  1);
-  Self__PBU=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-  new_capacity__RBU= 0;
-  if (((__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.upper__BYT +  1) <= (__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.capacity__TBU -  1))) {
-    Self__PBU->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.upper__BYT +  1);
-    __tmp__ACU=TRUE__;
-  } else {
-    __tmp__ACU=FALSE__;
-  };
-  if ((! __tmp__ACU)) {
-    if ((Self__PBU->parent_arrayed_collection__PAI.capacity__TBU ==  0)) {
-      Self__PBU->parent_arrayed_collection__PAI.storage__PCU=create__3ZPB( 2);
-      Self__PBU->parent_arrayed_collection__PAI.capacity__TBU= 2;
-      Self__PBU->parent_arrayed_collection__PAI.upper__BYT= 0;
-    } else {
-      new_capacity__RBU=(__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.capacity__TBU <<  1);
-      __tmp__YCU=Self__PBU->parent_arrayed_collection__PAI.storage__PCU;
-      __tmp__ZCU=Self__PBU->parent_arrayed_collection__PAI.capacity__TBU;
-      new__02DC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__YCU)),((__UINTEGER_32 )(__INTEGER)(__tmp__ZCU * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__RBU * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__O3DC=(__INTEGER)(new_capacity__RBU -  1);
-      Self__MGVD=__tmp__ZCU;
-      while ((Self__MGVD <= __tmp__O3DC)) {
-        new__02DC[Self__MGVD]=NULL;
-        Self__MGVD=(__INTEGER)(Self__MGVD +  1);
-      };
-      Self__PBU->parent_arrayed_collection__PAI.storage__PCU=new__02DC;
-      Self__PBU->parent_arrayed_collection__PAI.capacity__TBU=new_capacity__RBU;
-      Self__PBU->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.upper__BYT +  1);
-    };
-  };
-  ((void **)Self__PBU->parent_arrayed_collection__PAI.storage__PCU)[Self__PBU->parent_arrayed_collection__PAI.upper__BYT]=tmp__5XI;
-}
-
-static void display_raw__MLIC(__ITM_TYPE_MULTI *Self__NLIC,void *buffer__OLIC)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
-  __INTEGER __tmp__VLIC,Self__JLRC,new_capacity__INIH,old_nb_elts__LNIH;
-  __INTEGER upper__L3KH,Self__J3KH,new_capacity__ONIH,old_nb_elts__RNIH;
-  __INTEGER upper__Q3KH,Self__O3KH,new_capacity__UNIH,old_nb_elts__XNIH;
-  __INTEGER upper__V3KH,Self__T3KH;
-  void *__tmp__2LIC,*__tmp__5LIC;
-  __ITM_TYPE_STYLE *Self__UFHH,*Self__WFHH;
-  __STRING *Self__JNIH,*Self__PNIH,*Self__VNIH;
-  __CHARACTER *Self__KNIH,*new__MNIH,*Self__QNIH,*new__SNIH,*Self__WNIH;
-  __CHARACTER *new__YNIH;
-  __FAST_ARRAYoITM_TYPE_MONOo *Self__LGGH;
-  __tmp__VLIC=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NLIC->list_type__2KP)->parent_arrayed_collection__SYC.upper__4HV -  1);
-  Self__JLRC= 0;
-  while ((Self__JLRC <= __tmp__VLIC)) {
-    __tmp__2LIC=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NLIC->list_type__2KP)->parent_arrayed_collection__SYC.storage__FMV)[Self__JLRC];
-    switch (((struct ___OBJ *)__tmp__2LIC)->__id) {
-    case __ITM_TYPE_PARAMETER__: {
-      append__3OS(buffer__OLIC,((__ITM_TYPE_PARAMETER *)__tmp__2LIC)->parent_itm_type__VFE.name__GZP);
-    } break;
-    case __ITM_TYPE_SIMPLE__: {
-      append__3OS(buffer__OLIC,((__ITM_TYPE_SIMPLE *)__tmp__2LIC)->name__GZP);
-    } break;
-    case __ITM_TYPE_BLOCK__: {
-      append_in__PJPD(__tmp__2LIC,buffer__OLIC);
-    } break;
-    case __ITM_TYPE_GENERIC__: {
-      append_in__TKPD(__tmp__2LIC,buffer__OLIC);
-    } break;
-    case __ITM_TYPE_STYLE__: {
-      Self__UFHH=((__ITM_TYPE_STYLE *)__tmp__2LIC);
-      if (((void *)Self__UFHH->style__PZP != (void *)NULL)) {
-        append__3OS(buffer__OLIC,Self__UFHH->style__PZP);
-        Self__JNIH=((__STRING *)buffer__OLIC);
-        new_capacity__INIH= 0;
-        if ((Self__JNIH->capacity__UCS <= Self__JNIH->count__SGC)) {
-          if ((Self__JNIH->capacity__UCS ==  0)) {
-            Self__JNIH->capacity__UCS= 32;
-            Self__JNIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__INIH=(__INTEGER)(Self__JNIH->capacity__UCS <<  1);
-            Self__KNIH=((__CHARACTER *)Self__JNIH->storage__3CS);
-            old_nb_elts__LNIH=Self__JNIH->capacity__UCS;
-            new__MNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__KNIH),((__UINTEGER_32 )old_nb_elts__LNIH),((__UINTEGER_32 )new_capacity__INIH)));
-            upper__L3KH=(__INTEGER)(new_capacity__INIH -  1);
-            Self__J3KH=old_nb_elts__LNIH;
-            while ((Self__J3KH <= upper__L3KH)) {
-              new__MNIH[Self__J3KH]='\0';
-              Self__J3KH=(__INTEGER)(Self__J3KH +  1);
-            };
-            Self__JNIH->storage__3CS=new__MNIH;
-            Self__JNIH->capacity__UCS=new_capacity__INIH;
-          };
-        };
-        ((__CHARACTER *)Self__JNIH->storage__3CS)[Self__JNIH->count__SGC]=' ';
-        Self__JNIH->count__SGC=(__INTEGER)(Self__JNIH->count__SGC +  1);
-      };
-      append__3OS(buffer__OLIC,Self__UFHH->parent_itm_type_simple__3SN.name__GZP);
-    } break;
-    };
-    Self__PNIH=((__STRING *)buffer__OLIC);
-    new_capacity__ONIH= 0;
-    if ((Self__PNIH->capacity__UCS <= Self__PNIH->count__SGC)) {
-      if ((Self__PNIH->capacity__UCS ==  0)) {
-        Self__PNIH->capacity__UCS= 32;
-        Self__PNIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__ONIH=(__INTEGER)(Self__PNIH->capacity__UCS <<  1);
-        Self__QNIH=((__CHARACTER *)Self__PNIH->storage__3CS);
-        old_nb_elts__RNIH=Self__PNIH->capacity__UCS;
-        new__SNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QNIH),((__UINTEGER_32 )old_nb_elts__RNIH),((__UINTEGER_32 )new_capacity__ONIH)));
-        upper__Q3KH=(__INTEGER)(new_capacity__ONIH -  1);
-        Self__O3KH=old_nb_elts__RNIH;
-        while ((Self__O3KH <= upper__Q3KH)) {
-          new__SNIH[Self__O3KH]='\0';
-          Self__O3KH=(__INTEGER)(Self__O3KH +  1);
-        };
-        Self__PNIH->storage__3CS=new__SNIH;
-        Self__PNIH->capacity__UCS=new_capacity__ONIH;
-      };
-    };
-    ((__CHARACTER *)Self__PNIH->storage__3CS)[Self__PNIH->count__SGC]=',';
-    Self__PNIH->count__SGC=(__INTEGER)(Self__PNIH->count__SGC +  1);
-    Self__JLRC=(__INTEGER)(Self__JLRC +  1);
-  };
-  Self__LGGH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NLIC->list_type__2KP);
-  __tmp__5LIC=((void **)Self__LGGH->parent_arrayed_collection__SYC.storage__FMV)[Self__LGGH->parent_arrayed_collection__SYC.upper__4HV];
-  switch (((struct ___OBJ *)__tmp__5LIC)->__id) {
-  case __ITM_TYPE_PARAMETER__: {
-    append__3OS(buffer__OLIC,((__ITM_TYPE_PARAMETER *)__tmp__5LIC)->parent_itm_type__VFE.name__GZP);
-  } break;
-  case __ITM_TYPE_SIMPLE__: {
-    append__3OS(buffer__OLIC,((__ITM_TYPE_SIMPLE *)__tmp__5LIC)->name__GZP);
-  } break;
-  case __ITM_TYPE_BLOCK__: {
-    append_in__PJPD(__tmp__5LIC,buffer__OLIC);
-  } break;
-  case __ITM_TYPE_GENERIC__: {
-    append_in__TKPD(__tmp__5LIC,buffer__OLIC);
-  } break;
-  case __ITM_TYPE_STYLE__: {
-    Self__WFHH=((__ITM_TYPE_STYLE *)__tmp__5LIC);
-    if (((void *)Self__WFHH->style__PZP != (void *)NULL)) {
-      append__3OS(buffer__OLIC,Self__WFHH->style__PZP);
-      Self__VNIH=((__STRING *)buffer__OLIC);
-      new_capacity__UNIH= 0;
-      if ((Self__VNIH->capacity__UCS <= Self__VNIH->count__SGC)) {
-        if ((Self__VNIH->capacity__UCS ==  0)) {
-          Self__VNIH->capacity__UCS= 32;
-          Self__VNIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__UNIH=(__INTEGER)(Self__VNIH->capacity__UCS <<  1);
-          Self__WNIH=((__CHARACTER *)Self__VNIH->storage__3CS);
-          old_nb_elts__XNIH=Self__VNIH->capacity__UCS;
-          new__YNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WNIH),((__UINTEGER_32 )old_nb_elts__XNIH),((__UINTEGER_32 )new_capacity__UNIH)));
-          upper__V3KH=(__INTEGER)(new_capacity__UNIH -  1);
-          Self__T3KH=old_nb_elts__XNIH;
-          while ((Self__T3KH <= upper__V3KH)) {
-            new__YNIH[Self__T3KH]='\0';
-            Self__T3KH=(__INTEGER)(Self__T3KH +  1);
-          };
-          Self__VNIH->storage__3CS=new__YNIH;
-          Self__VNIH->capacity__UCS=new_capacity__UNIH;
-        };
-      };
-      ((__CHARACTER *)Self__VNIH->storage__3CS)[Self__VNIH->count__SGC]=' ';
-      Self__VNIH->count__SGC=(__INTEGER)(Self__VNIH->count__SGC +  1);
-    };
-    append__3OS(buffer__OLIC,Self__WFHH->parent_itm_type_simple__3SN.name__GZP);
-  } break;
-  };
-}
-
-static void put__to__like__URGG(void *tok__WRGG,void *buf__XRGG,void *key__YRGG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__JSGG,Self__5CIG;
-  void *lst__ZRGG;
-  lst__ZRGG=NULL;
-  if (((void *)key__YRGG != (void *)NULL)) {
-    lst__ZRGG=fast_reference_at__CMNE(short_dico__QD,key__YRGG);
-    if (((void *)lst__ZRGG != (void *)NULL)) {
-      __tmp__JSGG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ZRGG)->parent_linked_collection__LD.upper__0ED;
-      Self__5CIG= 1;
-      while ((Self__5CIG <= __tmp__JSGG)) {
-        if (((void *)item__X3ND(lst__ZRGG,Self__5CIG) == (void *)NULL)) {
-          append__3OS(buf__XRGG,tok__WRGG);
-        } else {
-          append__3OS(buf__XRGG,item__X3ND(lst__ZRGG,Self__5CIG));
-        };
-        Self__5CIG=(__INTEGER)(Self__5CIG +  1);
-      };
-    };
-  };
-}
-
-static void put__to__like__NYDG(void *tok__PYDG,void *buf__QYDG,void *key__RYDG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__CZDG,Self__X1HG;
-  void *lst__SYDG;
-  lst__SYDG=NULL;
-  if (((void *)key__RYDG != (void *)NULL)) {
-    lst__SYDG=fast_reference_at__CMNE(short_dico__QD,key__RYDG);
-    if (((void *)lst__SYDG != (void *)NULL)) {
-      __tmp__CZDG=((__LINKED_LISToSTRING_CONSTANTo *)lst__SYDG)->parent_linked_collection__LD.upper__0ED;
-      Self__X1HG= 1;
-      while ((Self__X1HG <= __tmp__CZDG)) {
-        if (((void *)item__X3ND(lst__SYDG,Self__X1HG) == (void *)NULL)) {
-          append__3OS(buf__QYDG,tok__PYDG);
-        } else {
-          append__3OS(buf__QYDG,item__X3ND(lst__SYDG,Self__X1HG));
-        };
-        Self__X1HG=(__INTEGER)(Self__X1HG +  1);
-      };
-    };
-  };
-}
-
-static void put__to__like__GVFG(void *tok__IVFG,void *buf__JVFG)
-// ({STRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__1VFG,Self__KAIG;
-  void *lst__LVFG;
-  lst__LVFG=NULL;
-  if (((void *)(&__string_133) != (void *)NULL)) {
-    lst__LVFG=fast_reference_at__CMNE(short_dico__QD,(&__string_133));
-    if (((void *)lst__LVFG != (void *)NULL)) {
-      __tmp__1VFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__LVFG)->parent_linked_collection__LD.upper__0ED;
-      Self__KAIG= 1;
-      while ((Self__KAIG <= __tmp__1VFG)) {
-        if (((void *)item__X3ND(lst__LVFG,Self__KAIG) == (void *)NULL)) {
-          append__3OS(buf__JVFG,tok__IVFG);
-        } else {
-          append__3OS(buf__JVFG,item__X3ND(lst__LVFG,Self__KAIG));
-        };
-        Self__KAIG=(__INTEGER)(Self__KAIG +  1);
-      };
-    };
-  };
-}
-
-static void put__to__like__ZXFG(void *tok__1XFG,void *buf__2XFG,void *key__3XFG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__OYFG,Self__1AIG;
-  void *lst__4XFG;
-  lst__4XFG=NULL;
-  if (((void *)key__3XFG != (void *)NULL)) {
-    lst__4XFG=fast_reference_at__CMNE(short_dico__QD,key__3XFG);
-    if (((void *)lst__4XFG != (void *)NULL)) {
-      __tmp__OYFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__4XFG)->parent_linked_collection__LD.upper__0ED;
-      Self__1AIG= 1;
-      while ((Self__1AIG <= __tmp__OYFG)) {
-        if (((void *)item__X3ND(lst__4XFG,Self__1AIG) == (void *)NULL)) {
-          append__3OS(buf__2XFG,tok__1XFG);
-        } else {
-          append__3OS(buf__2XFG,item__X3ND(lst__4XFG,Self__1AIG));
-        };
-        Self__1AIG=(__INTEGER)(Self__1AIG +  1);
-      };
-    };
-  };
-}
-
-static __BOOLEAN is_hexadecimal_digit__DQJE(__CHARACTER Self__EQJE)
-// ({CHARACTER}) With resultNo recursive, No inlinable.
-{
-  __BOOLEAN result__GQJE,result__NGGH,__tmp__OQJE,__tmp__3QJE;
-  __BOOLEAN result__ZIOE;
-  result__GQJE=FALSE__;
-  result__NGGH=FALSE__;
-  if ((((__INTEGER_8 )Self__EQJE) >= ((__INTEGER_8 )'0'))) {
-    result__NGGH=(((__INTEGER_8 )Self__EQJE) <= ((__INTEGER_8 )'9'));
-  };
-  if (result__NGGH) {
-    result__GQJE=TRUE__;
-    __tmp__OQJE=TRUE__;
-  } else {
-    __tmp__OQJE=FALSE__;
-  };
-  if (__tmp__OQJE) {
-    __tmp__3QJE=TRUE__;
-  } else {
-    result__ZIOE=(((__INTEGER_8 )Self__EQJE) >= ((__INTEGER_8 )'a'));
-    if (result__ZIOE) {
-      result__GQJE=(((__INTEGER_8 )Self__EQJE) <= ((__INTEGER_8 )'f'));
-    };
-    __tmp__3QJE=result__ZIOE;
-  };
-  if ((! __tmp__3QJE)) {
-    if ((((__INTEGER_8 )Self__EQJE) >= ((__INTEGER_8 )'A'))) {
-      result__GQJE=(((__INTEGER_8 )Self__EQJE) <= ((__INTEGER_8 )'F'));
-    };
-  };
-  return(result__GQJE);
-}
-
-static void* read_constant__XRO()
-// () With resultNo recursive, No inlinable.
-{
-  void *result__0RO;
-  __INTEGER pos_old__LAP,new_capacity__0NIH,old_nb_elts__3NIH;
-  __INTEGER upper__03KH,Self__Y3KH,new_capacity__AOIH,old_nb_elts__DOIH;
-  __INTEGER upper__53KH,Self__33KH,new_capacity__GOIH,old_nb_elts__JOIH;
-  __INTEGER upper__E4KH,Self__C4KH,new_capacity__MOIH,old_nb_elts__POIH;
-  __INTEGER upper__J4KH,Self__H4KH,new_capacity__SOIH,old_nb_elts__VOIH;
-  __INTEGER upper__O4KH,Self__M4KH,new_capacity__YOIH,old_nb_elts__1OIH;
-  __INTEGER upper__T4KH,Self__R4KH,new_capacity__4OIH,old_nb_elts__BPIH;
-  __INTEGER upper__Y4KH,Self__W4KH,new_capacity__EPIH,old_nb_elts__HPIH;
-  __INTEGER upper__34KH,Self__14KH,new_capacity__KPIH,old_nb_elts__NPIH;
-  __INTEGER upper__C5KH,Self__A5KH,typ_id__0QQ,typ_id__PNMB;
-  __INTEGER old_pos__2CQ,count__3CQ,new_capacity__QPIH;
-  __INTEGER old_nb_elts__TPIH,upper__15KH,Self__Z5KH,typ_id__DPMB;
-  __INTEGER typ_id__XQMB;
-  __STRING *Self__1NIH,*Self__BOIH,*Self__HOIH,*Self__NOIH,*Self__TOIH;
-  __STRING *Self__ZOIH,*Self__5OIH,*Self__FPIH,*Self__LPIH,*Self__RPIH;
-  __POSITION pos__EE0G,__tmp__CSO,__tmp__USO,pos__EF0G,pos__GF0G;
-  __POSITION __tmp__GTO,__tmp__XTO;
-  __ITM_REAL *result__UQQ;
-  __POINTER ptr__VQQ,ptr_table__F5KH,next__E5KH,result__G5KH;
-  __POINTER ptr_table__K5KH,next__J5KH,result__L5KH,ptr__KNMB;
-  __POINTER ptr_table__P5KH,next__O5KH,result__Q5KH,ptr_table__U5KH;
-  __POINTER next__T5KH,result__V5KH,ptr__4OMB,ptr_table__45KH;
-  __POINTER next__35KH,result__55KH,ptr_table__DALH,next__CALH;
-  __POINTER result__EALH,ptr__SQMB,ptr_table__IALH,next__HALH;
-  __POINTER result__JALH,ptr_table__NALH,next__MALH,result__OALH;
-  __UINTEGER_32 sz__XQQ,a__3GGH,new_size__4GGH,t__CHGH,a__BHGH;
-  __UINTEGER_32 new_size__N5KH,lab_type__M5KH,sz__MNMB,a__FHGH;
-  __UINTEGER_32 new_size__GHGH,t__KHGH,a__JHGH,new_size__X5KH;
-  __UINTEGER_32 lab_type__W5KH,sz__APMB,a__NHGH,new_size__OHGH,t__SHGH;
-  __UINTEGER_32 a__RHGH,new_size__GALH,lab_type__FALH,sz__UQMB,a__VHGH;
-  __UINTEGER_32 new_size__WHGH,t__0HGH,a__ZHGH,new_size__QALH;
-  __UINTEGER_32 lab_type__PALH;
-  __ITM_NUMBER *result__JNMB;
-  __ITM_CHARACTER *result__3OMB;
-  __ITM_STRING *result__RQMB;
-  __BOOLEAN result__KAP,result__PGGH,__tmp__WAP,result__RGGH,__tmp__QBP;
-  __BOOLEAN result__TGGH,result__VGGH,__tmp__3DP,result__XGGH;
-  __BOOLEAN result__ZGGH,__tmp__HSO,__tmp__ZSO,result__3GP,__tmp__KTO;
-  __BOOLEAN result__1CQ,__tmp__HDQ,__tmp__GEQ,__tmp__HEQ;
-  __CHARACTER result__YWBH,result__CXBH,result__HXBH,result__MXBH;
-  __CHARACTER result__RXBH,result__WXBH,result__1XBH,result__AYBH;
-  __CHARACTER result__FYBH,result__KYBH,result__PYBH,result__UYBH;
-  __CHARACTER result__ZYBH,result__4YBH,result__DZBH,result__IZBH;
-  __CHARACTER result__NZBH,result__SZBH,result__XZBH,result__2ZBH;
-  __CHARACTER result__G0BH,result__P0BH,result__U0BH,result__Z0BH;
-  __CHARACTER result__40BH,result__D1BH;
-  __CHARACTER *Self__2NIH,*new__4NIH,*Self__COIH,*new__EOIH,*Self__IOIH;
-  __CHARACTER *new__KOIH,*Self__OOIH,*new__QOIH,*Self__UOIH,*new__WOIH;
-  __CHARACTER *Self__0OIH,*new__2OIH,*Self__APIH,*new__CPIH,*Self__GPIH;
-  __CHARACTER *new__IPIH,*Self__MPIH,*new__OPIH,*Self__SPIH,*new__UPIH;
-  result__0RO=NULL;
-  result__KAP=FALSE__;
-  pos_old__LAP= 0;
-  if (read_space__XTD()) {
-    result__YWBH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__YWBH=((__CHARACTER )(( 0)));
-    } else {
-      result__YWBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    result__PGGH=FALSE__;
-    if ((((__INTEGER_8 )result__YWBH) >= ((__INTEGER_8 )'0'))) {
-      result__PGGH=(((__INTEGER_8 )result__YWBH) <= ((__INTEGER_8 )'9'));
-    };
-    __tmp__WAP=result__PGGH;
-  } else {
-    __tmp__WAP=FALSE__;
-  };
-  if (__tmp__WAP) {
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    result__CXBH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__CXBH=((__CHARACTER )(( 0)));
-    } else {
-      result__CXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    Self__1NIH=((__STRING *)string_tmp__VH);
-    new_capacity__0NIH= 0;
-    if ((Self__1NIH->capacity__UCS <= Self__1NIH->count__SGC)) {
-      if ((Self__1NIH->capacity__UCS ==  0)) {
-        Self__1NIH->capacity__UCS= 32;
-        Self__1NIH->storage__3CS=create__YIEB( 32);
-      } else {
-        new_capacity__0NIH=(__INTEGER)(Self__1NIH->capacity__UCS <<  1);
-        Self__2NIH=((__CHARACTER *)Self__1NIH->storage__3CS);
-        old_nb_elts__3NIH=Self__1NIH->capacity__UCS;
-        new__4NIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2NIH),((__UINTEGER_32 )old_nb_elts__3NIH),((__UINTEGER_32 )new_capacity__0NIH)));
-        upper__03KH=(__INTEGER)(new_capacity__0NIH -  1);
-        Self__Y3KH=old_nb_elts__3NIH;
-        while ((Self__Y3KH <= upper__03KH)) {
-          new__4NIH[Self__Y3KH]='\0';
-          Self__Y3KH=(__INTEGER)(Self__Y3KH +  1);
-        };
-        Self__1NIH->storage__3CS=new__4NIH;
-        Self__1NIH->capacity__UCS=new_capacity__0NIH;
-      };
-    };
-    ((__CHARACTER *)Self__1NIH->storage__3CS)[Self__1NIH->count__SGC]=result__CXBH;
-    Self__1NIH->count__SGC=(__INTEGER)(Self__1NIH->count__SGC +  1);
-    pos_old__LAP=position__CCC;
-    position__CCC=(__INTEGER)(position__CCC +  1);
-    while_do__GE0D:
-    {
-      result__HXBH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__HXBH=((__CHARACTER )(( 0)));
-      } else {
-        result__HXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      result__RGGH=FALSE__;
-      if ((((__INTEGER_8 )result__HXBH) >= ((__INTEGER_8 )'0'))) {
-        result__RGGH=(((__INTEGER_8 )result__HXBH) <= ((__INTEGER_8 )'9'));
-      };
-      if (result__RGGH) {
-        __tmp__QBP=TRUE__;
-      } else {
-        result__MXBH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__MXBH=((__CHARACTER )(( 0)));
-        } else {
-          result__MXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        __tmp__QBP=(result__MXBH == '_');
-      };
-      if (__tmp__QBP) {
-        result__RXBH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__RXBH=((__CHARACTER )(( 0)));
-        } else {
-          result__RXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__RXBH != '_')) {
-          result__WXBH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__WXBH=((__CHARACTER )(( 0)));
-          } else {
-            result__WXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__BOIH=((__STRING *)string_tmp__VH);
-          new_capacity__AOIH= 0;
-          if ((Self__BOIH->capacity__UCS <= Self__BOIH->count__SGC)) {
-            if ((Self__BOIH->capacity__UCS ==  0)) {
-              Self__BOIH->capacity__UCS= 32;
-              Self__BOIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__AOIH=(__INTEGER)(Self__BOIH->capacity__UCS <<  1);
-              Self__COIH=((__CHARACTER *)Self__BOIH->storage__3CS);
-              old_nb_elts__DOIH=Self__BOIH->capacity__UCS;
-              new__EOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__COIH),((__UINTEGER_32 )old_nb_elts__DOIH),((__UINTEGER_32 )new_capacity__AOIH)));
-              upper__53KH=(__INTEGER)(new_capacity__AOIH -  1);
-              Self__33KH=old_nb_elts__DOIH;
-              while ((Self__33KH <= upper__53KH)) {
-                new__EOIH[Self__33KH]='\0';
-                Self__33KH=(__INTEGER)(Self__33KH +  1);
-              };
-              Self__BOIH->storage__3CS=new__EOIH;
-              Self__BOIH->capacity__UCS=new_capacity__AOIH;
-            };
-          };
-          ((__CHARACTER *)Self__BOIH->storage__3CS)[Self__BOIH->count__SGC]=result__WXBH;
-          Self__BOIH->count__SGC=(__INTEGER)(Self__BOIH->count__SGC +  1);
-        };
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        goto while_do__GE0D;
-      };
-    };
-    result__1XBH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__1XBH=((__CHARACTER )(( 0)));
-    } else {
-      result__1XBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__1XBH == '.')) {
-      Self__HOIH=((__STRING *)string_tmp__VH);
-      new_capacity__GOIH= 0;
-      if ((Self__HOIH->capacity__UCS <= Self__HOIH->count__SGC)) {
-        if ((Self__HOIH->capacity__UCS ==  0)) {
-          Self__HOIH->capacity__UCS= 32;
-          Self__HOIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__GOIH=(__INTEGER)(Self__HOIH->capacity__UCS <<  1);
-          Self__IOIH=((__CHARACTER *)Self__HOIH->storage__3CS);
-          old_nb_elts__JOIH=Self__HOIH->capacity__UCS;
-          new__KOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IOIH),((__UINTEGER_32 )old_nb_elts__JOIH),((__UINTEGER_32 )new_capacity__GOIH)));
-          upper__E4KH=(__INTEGER)(new_capacity__GOIH -  1);
-          Self__C4KH=old_nb_elts__JOIH;
-          while ((Self__C4KH <= upper__E4KH)) {
-            new__KOIH[Self__C4KH]='\0';
-            Self__C4KH=(__INTEGER)(Self__C4KH +  1);
-          };
-          Self__HOIH->storage__3CS=new__KOIH;
-          Self__HOIH->capacity__UCS=new_capacity__GOIH;
-        };
-      };
-      ((__CHARACTER *)Self__HOIH->storage__3CS)[Self__HOIH->count__SGC]='.';
-      Self__HOIH->count__SGC=(__INTEGER)(Self__HOIH->count__SGC +  1);
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__AYBH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__AYBH=((__CHARACTER )(( 0)));
-      } else {
-        result__AYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      result__TGGH=FALSE__;
-      if ((((__INTEGER_8 )result__AYBH) >= ((__INTEGER_8 )'0'))) {
-        result__TGGH=(((__INTEGER_8 )result__AYBH) <= ((__INTEGER_8 )'9'));
-      };
-      if (result__TGGH) {
-        result__KAP=TRUE__;
-        result__FYBH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__FYBH=((__CHARACTER )(( 0)));
-        } else {
-          result__FYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        Self__NOIH=((__STRING *)string_tmp__VH);
-        new_capacity__MOIH= 0;
-        if ((Self__NOIH->capacity__UCS <= Self__NOIH->count__SGC)) {
-          if ((Self__NOIH->capacity__UCS ==  0)) {
-            Self__NOIH->capacity__UCS= 32;
-            Self__NOIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__MOIH=(__INTEGER)(Self__NOIH->capacity__UCS <<  1);
-            Self__OOIH=((__CHARACTER *)Self__NOIH->storage__3CS);
-            old_nb_elts__POIH=Self__NOIH->capacity__UCS;
-            new__QOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__OOIH),((__UINTEGER_32 )old_nb_elts__POIH),((__UINTEGER_32 )new_capacity__MOIH)));
-            upper__J4KH=(__INTEGER)(new_capacity__MOIH -  1);
-            Self__H4KH=old_nb_elts__POIH;
-            while ((Self__H4KH <= upper__J4KH)) {
-              new__QOIH[Self__H4KH]='\0';
-              Self__H4KH=(__INTEGER)(Self__H4KH +  1);
-            };
-            Self__NOIH->storage__3CS=new__QOIH;
-            Self__NOIH->capacity__UCS=new_capacity__MOIH;
-          };
-        };
-        ((__CHARACTER *)Self__NOIH->storage__3CS)[Self__NOIH->count__SGC]=result__FYBH;
-        Self__NOIH->count__SGC=(__INTEGER)(Self__NOIH->count__SGC +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        while_do__3SPE:
-        {
-          result__KYBH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__KYBH=((__CHARACTER )(( 0)));
-          } else {
-            result__KYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          result__VGGH=FALSE__;
-          if ((((__INTEGER_8 )result__KYBH) >= ((__INTEGER_8 )'0'))) {
-            result__VGGH=(((__INTEGER_8 )result__KYBH) <= ((__INTEGER_8 )'9'));
-          };
-          if (result__VGGH) {
-            result__PYBH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__PYBH=((__CHARACTER )(( 0)));
-            } else {
-              result__PYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            Self__TOIH=((__STRING *)string_tmp__VH);
-            new_capacity__SOIH= 0;
-            if ((Self__TOIH->capacity__UCS <= Self__TOIH->count__SGC)) {
-              if ((Self__TOIH->capacity__UCS ==  0)) {
-                Self__TOIH->capacity__UCS= 32;
-                Self__TOIH->storage__3CS=create__YIEB( 32);
-              } else {
-                new_capacity__SOIH=(__INTEGER)(Self__TOIH->capacity__UCS <<  1);
-                Self__UOIH=((__CHARACTER *)Self__TOIH->storage__3CS);
-                old_nb_elts__VOIH=Self__TOIH->capacity__UCS;
-                new__WOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UOIH),((__UINTEGER_32 )old_nb_elts__VOIH),((__UINTEGER_32 )new_capacity__SOIH)));
-                upper__O4KH=(__INTEGER)(new_capacity__SOIH -  1);
-                Self__M4KH=old_nb_elts__VOIH;
-                while ((Self__M4KH <= upper__O4KH)) {
-                  new__WOIH[Self__M4KH]='\0';
-                  Self__M4KH=(__INTEGER)(Self__M4KH +  1);
-                };
-                Self__TOIH->storage__3CS=new__WOIH;
-                Self__TOIH->capacity__UCS=new_capacity__SOIH;
-              };
-            };
-            ((__CHARACTER *)Self__TOIH->storage__3CS)[Self__TOIH->count__SGC]=result__PYBH;
-            Self__TOIH->count__SGC=(__INTEGER)(Self__TOIH->count__SGC +  1);
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            goto while_do__3SPE;
-          };
-        };
-      };
-      result__UYBH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__UYBH=((__CHARACTER )(( 0)));
-      } else {
-        result__UYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__UYBH == 'E')) {
-        result__KAP=TRUE__;
-        Self__ZOIH=((__STRING *)string_tmp__VH);
-        new_capacity__YOIH= 0;
-        if ((Self__ZOIH->capacity__UCS <= Self__ZOIH->count__SGC)) {
-          if ((Self__ZOIH->capacity__UCS ==  0)) {
-            Self__ZOIH->capacity__UCS= 32;
-            Self__ZOIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__YOIH=(__INTEGER)(Self__ZOIH->capacity__UCS <<  1);
-            Self__0OIH=((__CHARACTER *)Self__ZOIH->storage__3CS);
-            old_nb_elts__1OIH=Self__ZOIH->capacity__UCS;
-            new__2OIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0OIH),((__UINTEGER_32 )old_nb_elts__1OIH),((__UINTEGER_32 )new_capacity__YOIH)));
-            upper__T4KH=(__INTEGER)(new_capacity__YOIH -  1);
-            Self__R4KH=old_nb_elts__1OIH;
-            while ((Self__R4KH <= upper__T4KH)) {
-              new__2OIH[Self__R4KH]='\0';
-              Self__R4KH=(__INTEGER)(Self__R4KH +  1);
-            };
-            Self__ZOIH->storage__3CS=new__2OIH;
-            Self__ZOIH->capacity__UCS=new_capacity__YOIH;
-          };
-        };
-        ((__CHARACTER *)Self__ZOIH->storage__3CS)[Self__ZOIH->count__SGC]='E';
-        Self__ZOIH->count__SGC=(__INTEGER)(Self__ZOIH->count__SGC +  1);
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__ZYBH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__ZYBH=((__CHARACTER )(( 0)));
-        } else {
-          result__ZYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__ZYBH == '+')) {
-          __tmp__3DP=TRUE__;
-        } else {
-          result__4YBH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__4YBH=((__CHARACTER )(( 0)));
-          } else {
-            result__4YBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__3DP=(result__4YBH == '-');
-        };
-        if (__tmp__3DP) {
-          result__DZBH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__DZBH=((__CHARACTER )(( 0)));
-          } else {
-            result__DZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__5OIH=((__STRING *)string_tmp__VH);
-          new_capacity__4OIH= 0;
-          if ((Self__5OIH->capacity__UCS <= Self__5OIH->count__SGC)) {
-            if ((Self__5OIH->capacity__UCS ==  0)) {
-              Self__5OIH->capacity__UCS= 32;
-              Self__5OIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__4OIH=(__INTEGER)(Self__5OIH->capacity__UCS <<  1);
-              Self__APIH=((__CHARACTER *)Self__5OIH->storage__3CS);
-              old_nb_elts__BPIH=Self__5OIH->capacity__UCS;
-              new__CPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__APIH),((__UINTEGER_32 )old_nb_elts__BPIH),((__UINTEGER_32 )new_capacity__4OIH)));
-              upper__Y4KH=(__INTEGER)(new_capacity__4OIH -  1);
-              Self__W4KH=old_nb_elts__BPIH;
-              while ((Self__W4KH <= upper__Y4KH)) {
-                new__CPIH[Self__W4KH]='\0';
-                Self__W4KH=(__INTEGER)(Self__W4KH +  1);
-              };
-              Self__5OIH->storage__3CS=new__CPIH;
-              Self__5OIH->capacity__UCS=new_capacity__4OIH;
-            };
-          };
-          ((__CHARACTER *)Self__5OIH->storage__3CS)[Self__5OIH->count__SGC]=result__DZBH;
-          Self__5OIH->count__SGC=(__INTEGER)(Self__5OIH->count__SGC +  1);
-          position__CCC=(__INTEGER)(position__CCC +  1);
-        };
-        result__IZBH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__IZBH=((__CHARACTER )(( 0)));
-        } else {
-          result__IZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        result__XGGH=FALSE__;
-        if ((((__INTEGER_8 )result__IZBH) >= ((__INTEGER_8 )'0'))) {
-          result__XGGH=(((__INTEGER_8 )result__IZBH) <= ((__INTEGER_8 )'9'));
-        };
-        if (result__XGGH) {
-          result__NZBH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__NZBH=((__CHARACTER )(( 0)));
-          } else {
-            result__NZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__FPIH=((__STRING *)string_tmp__VH);
-          new_capacity__EPIH= 0;
-          if ((Self__FPIH->capacity__UCS <= Self__FPIH->count__SGC)) {
-            if ((Self__FPIH->capacity__UCS ==  0)) {
-              Self__FPIH->capacity__UCS= 32;
-              Self__FPIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__EPIH=(__INTEGER)(Self__FPIH->capacity__UCS <<  1);
-              Self__GPIH=((__CHARACTER *)Self__FPIH->storage__3CS);
-              old_nb_elts__HPIH=Self__FPIH->capacity__UCS;
-              new__IPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GPIH),((__UINTEGER_32 )old_nb_elts__HPIH),((__UINTEGER_32 )new_capacity__EPIH)));
-              upper__34KH=(__INTEGER)(new_capacity__EPIH -  1);
-              Self__14KH=old_nb_elts__HPIH;
-              while ((Self__14KH <= upper__34KH)) {
-                new__IPIH[Self__14KH]='\0';
-                Self__14KH=(__INTEGER)(Self__14KH +  1);
-              };
-              Self__FPIH->storage__3CS=new__IPIH;
-              Self__FPIH->capacity__UCS=new_capacity__EPIH;
-            };
-          };
-          ((__CHARACTER *)Self__FPIH->storage__3CS)[Self__FPIH->count__SGC]=result__NZBH;
-          Self__FPIH->count__SGC=(__INTEGER)(Self__FPIH->count__SGC +  1);
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          while_do__RORE:
-          {
-            result__SZBH='\0';
-            if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-              result__SZBH=((__CHARACTER )(( 0)));
-            } else {
-              result__SZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-            };
-            result__ZGGH=FALSE__;
-            if ((((__INTEGER_8 )result__SZBH) >= ((__INTEGER_8 )'0'))) {
-              result__ZGGH=(((__INTEGER_8 )result__SZBH) <= ((__INTEGER_8 )'9'));
-            };
-            if (result__ZGGH) {
-              result__XZBH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__XZBH=((__CHARACTER )(( 0)));
-              } else {
-                result__XZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              Self__LPIH=((__STRING *)string_tmp__VH);
-              new_capacity__KPIH= 0;
-              if ((Self__LPIH->capacity__UCS <= Self__LPIH->count__SGC)) {
-                if ((Self__LPIH->capacity__UCS ==  0)) {
-                  Self__LPIH->capacity__UCS= 32;
-                  Self__LPIH->storage__3CS=create__YIEB( 32);
-                } else {
-                  new_capacity__KPIH=(__INTEGER)(Self__LPIH->capacity__UCS <<  1);
-                  Self__MPIH=((__CHARACTER *)Self__LPIH->storage__3CS);
-                  old_nb_elts__NPIH=Self__LPIH->capacity__UCS;
-                  new__OPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MPIH),((__UINTEGER_32 )old_nb_elts__NPIH),((__UINTEGER_32 )new_capacity__KPIH)));
-                  upper__C5KH=(__INTEGER)(new_capacity__KPIH -  1);
-                  Self__A5KH=old_nb_elts__NPIH;
-                  while ((Self__A5KH <= upper__C5KH)) {
-                    new__OPIH[Self__A5KH]='\0';
-                    Self__A5KH=(__INTEGER)(Self__A5KH +  1);
-                  };
-                  Self__LPIH->storage__3CS=new__OPIH;
-                  Self__LPIH->capacity__UCS=new_capacity__KPIH;
-                };
-              };
-              ((__CHARACTER *)Self__LPIH->storage__3CS)[Self__LPIH->count__SGC]=result__XZBH;
-              Self__LPIH->count__SGC=(__INTEGER)(Self__LPIH->count__SGC +  1);
-              position__CCC=(__INTEGER)(position__CCC +  1);
-              goto while_do__RORE;
-            };
-          };
-        } else {
-          pos__EE0G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_327));
-          put_position__FRG(pos__EE0G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-    };
-    if (result__KAP) {
-      get__YWB(string_tmp__VH);
-    } else {
-      position__CCC=pos_old__LAP;
-    };
-  };
-  if (result__KAP) {
-    short__token__to__GDD((&__string_121),pos_old__LAP,position__CCC);
-  };
-  if (result__KAP) {
-    __tmp__CSO=current_position__B0F();
-    result__UQQ=NULL;
-    ptr__VQQ=((__POINTER )(NULL));
-    typ_id__0QQ= 0;
-    sz__XQQ=((__UINTEGER_32 )sizeof(__ITM_REAL));
-    if ((sz__XQQ ==  0)) {
-      result__UQQ=ITM_REAL__;
-    } else {
-      typ_id__0QQ=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XQQ);
-      if ((typ_id__0QQ == (__INTEGER)(-  1))) {
-        a__3GGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__4GGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XQQ + a__3GGH) & (__UINTEGER_32)(~ a__3GGH));
-        ptr_table__F5KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4GGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__E5KH=((__POINTER )(NULL));
-        result__G5KH=((__POINTER *)ptr_table__F5KH)[ 0];
-        if ((result__G5KH == (void *)NULL)) {
-          result__G5KH=new_lab__RTJ(new_size__4GGH);
-          next__E5KH=(void *)((unsigned long)result__G5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4GGH)));
-          ((__POINTER *)next__E5KH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__F5KH)[ 0]=next__E5KH;
-        } else {
-          next__E5KH=((__POINTER *)result__G5KH)[ 0];
-          if ((next__E5KH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G5KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__4GGH <<  1)) <=  4096)) {
-              next__E5KH=(void *)((unsigned long)result__G5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4GGH)));
-            } else {
-              next__E5KH=new_lab__RTJ(new_size__4GGH);
-            };
-            ((__POINTER *)next__E5KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__F5KH)[ 0]=next__E5KH;
-          } else {
-            ((__POINTER *)result__G5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__G5KH=next__E5KH;
-          };
-        };
-        ptr__VQQ=result__G5KH;
-      } else {
-        t__CHGH=((__UINTEGER_32 )typ_id__0QQ);
-        a__BHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__N5KH=(__UINTEGER_32)((__UINTEGER_32)(sz__XQQ + a__BHGH) & (__UINTEGER_32)(~ a__BHGH));
-        ptr_table__K5KH=((__POINTER )(&(table_type[(t__CHGH)])));
-        lab_type__M5KH=(__UINTEGER_32)(t__CHGH |  1);
-        next__J5KH=((__POINTER )(NULL));
-        result__L5KH=((__POINTER *)ptr_table__K5KH)[ 0];
-        if ((result__L5KH == (void *)NULL)) {
-          result__L5KH=new_lab__RTJ(lab_type__M5KH);
-          next__J5KH=(void *)((unsigned long)result__L5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N5KH)));
-          ((__POINTER *)next__J5KH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__K5KH)[ 0]=next__J5KH;
-        } else {
-          next__J5KH=((__POINTER *)result__L5KH)[ 0];
-          if ((next__J5KH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L5KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__N5KH <<  1)) <=  4096)) {
-              next__J5KH=(void *)((unsigned long)result__L5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N5KH)));
-            } else {
-              next__J5KH=new_lab__RTJ(lab_type__M5KH);
-            };
-            ((__POINTER *)next__J5KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__K5KH)[ 0]=next__J5KH;
-          } else {
-            ((__POINTER *)result__L5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__L5KH=next__J5KH;
-          };
-        };
-        ptr__VQQ=result__L5KH;
-      };
-      result__UQQ=((__ITM_REAL *)ptr__VQQ);
-      *(result__UQQ) = *(ITM_REAL__);
-    };
-    ((__ITM_REAL *)result__UQQ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__CSO;
-    result__0RO=result__UQQ;
-    __tmp__HSO=TRUE__;
-  } else {
-    __tmp__HSO=FALSE__;
-  };
-  if (__tmp__HSO) {
-    __tmp__ZSO=TRUE__;
-  } else {
-    result__3GP=read_integer__22P();
-    if (result__3GP) {
-      __tmp__USO=current_position__B0F();
-      result__JNMB=NULL;
-      ptr__KNMB=((__POINTER )(NULL));
-      typ_id__PNMB= 0;
-      sz__MNMB=((__UINTEGER_32 )sizeof(__ITM_NUMBER));
-      if ((sz__MNMB ==  0)) {
-        result__JNMB=ITM_NUMBER__;
-      } else {
-        typ_id__PNMB=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MNMB);
-        if ((typ_id__PNMB == (__INTEGER)(-  1))) {
-          a__FHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__GHGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNMB + a__FHGH) & (__UINTEGER_32)(~ a__FHGH));
-          ptr_table__P5KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GHGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__O5KH=((__POINTER )(NULL));
-          result__Q5KH=((__POINTER *)ptr_table__P5KH)[ 0];
-          if ((result__Q5KH == (void *)NULL)) {
-            result__Q5KH=new_lab__RTJ(new_size__GHGH);
-            next__O5KH=(void *)((unsigned long)result__Q5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GHGH)));
-            ((__POINTER *)next__O5KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__P5KH)[ 0]=next__O5KH;
-          } else {
-            next__O5KH=((__POINTER *)result__Q5KH)[ 0];
-            if ((next__O5KH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q5KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GHGH <<  1)) <=  4096)) {
-                next__O5KH=(void *)((unsigned long)result__Q5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GHGH)));
-              } else {
-                next__O5KH=new_lab__RTJ(new_size__GHGH);
-              };
-              ((__POINTER *)next__O5KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__P5KH)[ 0]=next__O5KH;
-            } else {
-              ((__POINTER *)result__Q5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__Q5KH=next__O5KH;
-            };
-          };
-          ptr__KNMB=result__Q5KH;
-        } else {
-          t__KHGH=((__UINTEGER_32 )typ_id__PNMB);
-          a__JHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__X5KH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNMB + a__JHGH) & (__UINTEGER_32)(~ a__JHGH));
-          ptr_table__U5KH=((__POINTER )(&(table_type[(t__KHGH)])));
-          lab_type__W5KH=(__UINTEGER_32)(t__KHGH |  1);
-          next__T5KH=((__POINTER )(NULL));
-          result__V5KH=((__POINTER *)ptr_table__U5KH)[ 0];
-          if ((result__V5KH == (void *)NULL)) {
-            result__V5KH=new_lab__RTJ(lab_type__W5KH);
-            next__T5KH=(void *)((unsigned long)result__V5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5KH)));
-            ((__POINTER *)next__T5KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__U5KH)[ 0]=next__T5KH;
-          } else {
-            next__T5KH=((__POINTER *)result__V5KH)[ 0];
-            if ((next__T5KH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V5KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__X5KH <<  1)) <=  4096)) {
-                next__T5KH=(void *)((unsigned long)result__V5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5KH)));
-              } else {
-                next__T5KH=new_lab__RTJ(lab_type__W5KH);
-              };
-              ((__POINTER *)next__T5KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__U5KH)[ 0]=next__T5KH;
-            } else {
-              ((__POINTER *)result__V5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__V5KH=next__T5KH;
-            };
-          };
-          ptr__KNMB=result__V5KH;
-        };
-        result__JNMB=((__ITM_NUMBER *)ptr__KNMB);
-        *(result__JNMB) = *(ITM_NUMBER__);
-      };
-      ((__ITM_NUMBER *)result__JNMB)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__USO;
-      result__0RO=result__JNMB;
-    };
-    __tmp__ZSO=result__3GP;
-  };
-  if (__tmp__ZSO) {
-    __tmp__KTO=TRUE__;
-  } else {
-    result__1CQ=FALSE__;
-    old_pos__2CQ= 0;
-    count__3CQ= 0;
-    if (read_space__XTD()) {
-      result__2ZBH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__2ZBH=((__CHARACTER )(( 0)));
-      } else {
-        result__2ZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      __tmp__HDQ=(result__2ZBH == '\'');
-    } else {
-      __tmp__HDQ=FALSE__;
-    };
-    if (__tmp__HDQ) {
-      old_pos__2CQ=position__CCC;
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      ((__STRING *)string_tmp__VH)->count__SGC= 0;
-      until_do__0JRC:
-      {
-        result__G0BH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__G0BH=((__CHARACTER )(( 0)));
-        } else {
-          result__G0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__G0BH == ((__CHARACTER )(( 0))))) {
-          __tmp__GEQ=TRUE__;
-        } else {
-          result__P0BH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__P0BH=((__CHARACTER )(( 0)));
-          } else {
-            result__P0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__GEQ=(result__P0BH == '\n');
-        };
-        if (__tmp__GEQ) {
-          __tmp__HEQ=TRUE__;
-        } else {
-          result__U0BH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__U0BH=((__CHARACTER )(( 0)));
-          } else {
-            result__U0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          __tmp__HEQ=(result__U0BH == '\'');
-        };
-        if ((! __tmp__HEQ)) {
-          result__Z0BH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__Z0BH=((__CHARACTER )(( 0)));
-          } else {
-            result__Z0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          Self__RPIH=((__STRING *)string_tmp__VH);
-          new_capacity__QPIH= 0;
-          if ((Self__RPIH->capacity__UCS <= Self__RPIH->count__SGC)) {
-            if ((Self__RPIH->capacity__UCS ==  0)) {
-              Self__RPIH->capacity__UCS= 32;
-              Self__RPIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__QPIH=(__INTEGER)(Self__RPIH->capacity__UCS <<  1);
-              Self__SPIH=((__CHARACTER *)Self__RPIH->storage__3CS);
-              old_nb_elts__TPIH=Self__RPIH->capacity__UCS;
-              new__UPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__SPIH),((__UINTEGER_32 )old_nb_elts__TPIH),((__UINTEGER_32 )new_capacity__QPIH)));
-              upper__15KH=(__INTEGER)(new_capacity__QPIH -  1);
-              Self__Z5KH=old_nb_elts__TPIH;
-              while ((Self__Z5KH <= upper__15KH)) {
-                new__UPIH[Self__Z5KH]='\0';
-                Self__Z5KH=(__INTEGER)(Self__Z5KH +  1);
-              };
-              Self__RPIH->storage__3CS=new__UPIH;
-              Self__RPIH->capacity__UCS=new_capacity__QPIH;
-            };
-          };
-          ((__CHARACTER *)Self__RPIH->storage__3CS)[Self__RPIH->count__SGC]=result__Z0BH;
-          Self__RPIH->count__SGC=(__INTEGER)(Self__RPIH->count__SGC +  1);
-          result__40BH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__40BH=((__CHARACTER )(( 0)));
-          } else {
-            result__40BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__40BH == '\\')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            read_escape_character__AALF();
-            count__3CQ=(__INTEGER)(count__3CQ +  1);
-          } else {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            count__3CQ=(__INTEGER)(count__3CQ +  1);
-          };
-          goto until_do__0JRC;
-        };
-      };
-      result__D1BH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__D1BH=((__CHARACTER )(( 0)));
-      } else {
-        result__D1BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__D1BH == '\'')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        last_string__D2C=get__YWB(string_tmp__VH);
-        if ((count__3CQ !=  1)) {
-          position__CCC=begin_position__BDE;
-          pos__EF0G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_328));
-          put_position__FRG(pos__EF0G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__1CQ=TRUE__;
-        short__token__to__GDD((&__string_122),old_pos__2CQ,position__CCC);
-      } else {
-        position__CCC=begin_position__BDE;
-        pos__GF0G=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_329));
-        put_position__FRG(pos__GF0G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-    };
-    if (result__1CQ) {
-      __tmp__GTO=current_position__B0F();
-      result__3OMB=NULL;
-      ptr__4OMB=((__POINTER )(NULL));
-      typ_id__DPMB= 0;
-      sz__APMB=((__UINTEGER_32 )sizeof(__ITM_CHARACTER));
-      if ((sz__APMB ==  0)) {
-        result__3OMB=ITM_CHARACTER__;
-      } else {
-        typ_id__DPMB=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__APMB);
-        if ((typ_id__DPMB == (__INTEGER)(-  1))) {
-          a__NHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__OHGH=(__UINTEGER_32)((__UINTEGER_32)(sz__APMB + a__NHGH) & (__UINTEGER_32)(~ a__NHGH));
-          ptr_table__45KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OHGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__35KH=((__POINTER )(NULL));
-          result__55KH=((__POINTER *)ptr_table__45KH)[ 0];
-          if ((result__55KH == (void *)NULL)) {
-            result__55KH=new_lab__RTJ(new_size__OHGH);
-            next__35KH=(void *)((unsigned long)result__55KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OHGH)));
-            ((__POINTER *)next__35KH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__45KH)[ 0]=next__35KH;
-          } else {
-            next__35KH=((__POINTER *)result__55KH)[ 0];
-            if ((next__35KH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__55KH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__OHGH <<  1)) <=  4096)) {
-                next__35KH=(void *)((unsigned long)result__55KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OHGH)));
-              } else {
-                next__35KH=new_lab__RTJ(new_size__OHGH);
-              };
-              ((__POINTER *)next__35KH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__45KH)[ 0]=next__35KH;
-            } else {
-              ((__POINTER *)result__55KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__35KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__55KH=next__35KH;
-            };
-          };
-          ptr__4OMB=result__55KH;
-        } else {
-          t__SHGH=((__UINTEGER_32 )typ_id__DPMB);
-          a__RHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__GALH=(__UINTEGER_32)((__UINTEGER_32)(sz__APMB + a__RHGH) & (__UINTEGER_32)(~ a__RHGH));
-          ptr_table__DALH=((__POINTER )(&(table_type[(t__SHGH)])));
-          lab_type__FALH=(__UINTEGER_32)(t__SHGH |  1);
-          next__CALH=((__POINTER )(NULL));
-          result__EALH=((__POINTER *)ptr_table__DALH)[ 0];
-          if ((result__EALH == (void *)NULL)) {
-            result__EALH=new_lab__RTJ(lab_type__FALH);
-            next__CALH=(void *)((unsigned long)result__EALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GALH)));
-            ((__POINTER *)next__CALH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DALH)[ 0]=next__CALH;
-          } else {
-            next__CALH=((__POINTER *)result__EALH)[ 0];
-            if ((next__CALH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EALH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__GALH <<  1)) <=  4096)) {
-                next__CALH=(void *)((unsigned long)result__EALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GALH)));
-              } else {
-                next__CALH=new_lab__RTJ(lab_type__FALH);
-              };
-              ((__POINTER *)next__CALH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__DALH)[ 0]=next__CALH;
-            } else {
-              ((__POINTER *)result__EALH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CALH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__EALH=next__CALH;
-            };
-          };
-          ptr__4OMB=result__EALH;
-        };
-        result__3OMB=((__ITM_CHARACTER *)ptr__4OMB);
-        *(result__3OMB) = *(ITM_CHARACTER__);
-      };
-      ((__ITM_CHARACTER *)result__3OMB)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__GTO;
-      result__0RO=result__3OMB;
-    };
-    __tmp__KTO=result__1CQ;
-  };
-  if ((! __tmp__KTO)) {
-    if (read_string__HGQ()) {
-      __tmp__XTO=current_position__B0F();
-      result__RQMB=NULL;
-      ptr__SQMB=((__POINTER )(NULL));
-      typ_id__XQMB= 0;
-      sz__UQMB=((__UINTEGER_32 )sizeof(__ITM_STRING));
-      if ((sz__UQMB ==  0)) {
-        result__RQMB=ITM_STRING__;
-      } else {
-        typ_id__XQMB=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UQMB);
-        if ((typ_id__XQMB == (__INTEGER)(-  1))) {
-          a__VHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__WHGH=(__UINTEGER_32)((__UINTEGER_32)(sz__UQMB + a__VHGH) & (__UINTEGER_32)(~ a__VHGH));
-          ptr_table__IALH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WHGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__HALH=((__POINTER )(NULL));
-          result__JALH=((__POINTER *)ptr_table__IALH)[ 0];
-          if ((result__JALH == (void *)NULL)) {
-            result__JALH=new_lab__RTJ(new_size__WHGH);
-            next__HALH=(void *)((unsigned long)result__JALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WHGH)));
-            ((__POINTER *)next__HALH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__IALH)[ 0]=next__HALH;
-          } else {
-            next__HALH=((__POINTER *)result__JALH)[ 0];
-            if ((next__HALH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JALH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WHGH <<  1)) <=  4096)) {
-                next__HALH=(void *)((unsigned long)result__JALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WHGH)));
-              } else {
-                next__HALH=new_lab__RTJ(new_size__WHGH);
-              };
-              ((__POINTER *)next__HALH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__IALH)[ 0]=next__HALH;
-            } else {
-              ((__POINTER *)result__JALH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HALH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__JALH=next__HALH;
-            };
-          };
-          ptr__SQMB=result__JALH;
-        } else {
-          t__0HGH=((__UINTEGER_32 )typ_id__XQMB);
-          a__ZHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__QALH=(__UINTEGER_32)((__UINTEGER_32)(sz__UQMB + a__ZHGH) & (__UINTEGER_32)(~ a__ZHGH));
-          ptr_table__NALH=((__POINTER )(&(table_type[(t__0HGH)])));
-          lab_type__PALH=(__UINTEGER_32)(t__0HGH |  1);
-          next__MALH=((__POINTER )(NULL));
-          result__OALH=((__POINTER *)ptr_table__NALH)[ 0];
-          if ((result__OALH == (void *)NULL)) {
-            result__OALH=new_lab__RTJ(lab_type__PALH);
-            next__MALH=(void *)((unsigned long)result__OALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QALH)));
-            ((__POINTER *)next__MALH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__NALH)[ 0]=next__MALH;
-          } else {
-            next__MALH=((__POINTER *)result__OALH)[ 0];
-            if ((next__MALH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OALH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__QALH <<  1)) <=  4096)) {
-                next__MALH=(void *)((unsigned long)result__OALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QALH)));
-              } else {
-                next__MALH=new_lab__RTJ(lab_type__PALH);
-              };
-              ((__POINTER *)next__MALH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__NALH)[ 0]=next__MALH;
-            } else {
-              ((__POINTER *)result__OALH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MALH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__OALH=next__MALH;
-            };
-          };
-          ptr__SQMB=result__OALH;
-        };
-        result__RQMB=((__ITM_STRING *)ptr__SQMB);
-        *(result__RQMB) = *(ITM_STRING__);
-      };
-      ((__ITM_STRING *)result__RQMB)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__XTO;
-      result__0RO=result__RQMB;
-    };
-  };
-  return(result__0RO);
-}
-
-static void* read_group__C4GB(__PARSER *Self__D4GB)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *e__F4GB;
-  __ITM_RESULT *result__XALH,*result__AWWB;
-  __POINTER ptr__YALH,ptr_table__BBLH,next__ABLH,result__CBLH;
-  __POINTER ptr_table__GBLH,next__FBLH,result__HBLH,ptr__BWWB;
-  __POINTER ptr_table__RBLH,next__QBLH,result__SBLH,ptr_table__WBLH;
-  __POINTER next__VBLH,result__XBLH;
-  __INTEGER typ_id__ZALH,typ_id__GWWB;
-  __UINTEGER_32 sz__0ALH,a__1ALH,new_size__2ALH,t__3ALH,a__4ALH;
-  __UINTEGER_32 new_size__JBLH,lab_type__IBLH,sz__DWWB,a__GLGH;
-  __UINTEGER_32 new_size__HLGH,t__LLGH,a__KLGH,new_size__ZBLH;
-  __UINTEGER_32 lab_type__YBLH;
-  __POSITION pos__UF0G;
-  void *result__R5GH,*result__G4GB;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__S5GH,*Self__T5GH;
-  __BOOLEAN result__RALH,__tmp__V4GB,result__UALH,result__KBLH;
-  __BOOLEAN __tmp__25GB,result__NBLH;
-  __CHARACTER result__SALH,result__VALH,result__LBLH,result__OBLH;
-  read_def_local__M3H(Self__D4GB);
-  result__R5GH=NULL;
-  if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT <  0)) {
-    result__R5GH=create_with_capacity__XXI( 16);
-  } else {
-    Self__S5GH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-    result__R5GH=((void **)Self__S5GH->parent_arrayed_collection__PAI.storage__PCU)[Self__S5GH->parent_arrayed_collection__PAI.upper__BYT];
-    Self__T5GH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-    Self__T5GH->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__T5GH->parent_arrayed_collection__PAI.upper__BYT -  1);
-  };
-  result__G4GB=result__R5GH;
-  e__F4GB=read_expr__DBJ(Self__D4GB);
-  while_do__VDMB:
-  {
-    if (((void *)e__F4GB != (void *)NULL)) {
-      result__RALH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__RALH=FALSE__;
-      } else {
-        result__SALH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__SALH=((__CHARACTER )(( 0)));
-        } else {
-          result__SALH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__SALH == ';')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__RALH=TRUE__;
-        };
-      };
-      __tmp__V4GB=result__RALH;
-    } else {
-      __tmp__V4GB=FALSE__;
-    };
-    if (__tmp__V4GB) {
-      add_last__I5U(result__G4GB,e__F4GB);
-      e__F4GB=read_expr__DBJ(Self__D4GB);
-      goto while_do__VDMB;
-    };
-  };
-  if (((void *)e__F4GB != (void *)NULL)) {
-    result__UALH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__UALH=FALSE__;
-    } else {
-      result__VALH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__VALH=((__CHARACTER )(( 0)));
-      } else {
-        result__VALH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__VALH == ',')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__UALH=TRUE__;
-      };
-    };
-    if (result__UALH) {
-      do {
-        result__XALH=NULL;
-        ptr__YALH=((__POINTER )(NULL));
-        typ_id__ZALH= 0;
-        sz__0ALH=((__UINTEGER_32 )sizeof(__ITM_RESULT));
-        if ((sz__0ALH ==  0)) {
-          result__XALH=ITM_RESULT__;
-        } else {
-          typ_id__ZALH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0ALH);
-          if ((typ_id__ZALH == (__INTEGER)(-  1))) {
-            a__1ALH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__2ALH=(__UINTEGER_32)((__UINTEGER_32)(sz__0ALH + a__1ALH) & (__UINTEGER_32)(~ a__1ALH));
-            ptr_table__BBLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2ALH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__ABLH=((__POINTER )(NULL));
-            result__CBLH=((__POINTER *)ptr_table__BBLH)[ 0];
-            if ((result__CBLH == (void *)NULL)) {
-              result__CBLH=new_lab__RTJ(new_size__2ALH);
-              next__ABLH=(void *)((unsigned long)result__CBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2ALH)));
-              ((__POINTER *)next__ABLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__BBLH)[ 0]=next__ABLH;
-            } else {
-              next__ABLH=((__POINTER *)result__CBLH)[ 0];
-              if ((next__ABLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CBLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2ALH <<  1)) <=  4096)) {
-                  next__ABLH=(void *)((unsigned long)result__CBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2ALH)));
-                } else {
-                  next__ABLH=new_lab__RTJ(new_size__2ALH);
-                };
-                ((__POINTER *)next__ABLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__BBLH)[ 0]=next__ABLH;
-              } else {
-                ((__POINTER *)result__CBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ABLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__CBLH=next__ABLH;
-              };
-            };
-            ptr__YALH=result__CBLH;
-          } else {
-            t__3ALH=((__UINTEGER_32 )typ_id__ZALH);
-            a__4ALH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__JBLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0ALH + a__4ALH) & (__UINTEGER_32)(~ a__4ALH));
-            ptr_table__GBLH=((__POINTER )(&(table_type[(t__3ALH)])));
-            lab_type__IBLH=(__UINTEGER_32)(t__3ALH |  1);
-            next__FBLH=((__POINTER )(NULL));
-            result__HBLH=((__POINTER *)ptr_table__GBLH)[ 0];
-            if ((result__HBLH == (void *)NULL)) {
-              result__HBLH=new_lab__RTJ(lab_type__IBLH);
-              next__FBLH=(void *)((unsigned long)result__HBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JBLH)));
-              ((__POINTER *)next__FBLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__GBLH)[ 0]=next__FBLH;
-            } else {
-              next__FBLH=((__POINTER *)result__HBLH)[ 0];
-              if ((next__FBLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HBLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JBLH <<  1)) <=  4096)) {
-                  next__FBLH=(void *)((unsigned long)result__HBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JBLH)));
-                } else {
-                  next__FBLH=new_lab__RTJ(lab_type__IBLH);
-                };
-                ((__POINTER *)next__FBLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__GBLH)[ 0]=next__FBLH;
-              } else {
-                ((__POINTER *)result__HBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FBLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__HBLH=next__FBLH;
-              };
-            };
-            ptr__YALH=result__HBLH;
-          };
-          result__XALH=((__ITM_RESULT *)ptr__YALH);
-          *(result__XALH) = *(ITM_RESULT__);
-        };
-        ((__ITM_RESULT *)result__XALH)->value__WKFC=e__F4GB;
-        add_last__I5U(result__G4GB,result__XALH);
-        e__F4GB=read_expr__DBJ(Self__D4GB);
-        while_do__UY3B:
-        {
-          if (((void *)e__F4GB != (void *)NULL)) {
-            result__KBLH=FALSE__;
-            if ((! read_space__XTD())) {
-              result__KBLH=FALSE__;
-            } else {
-              result__LBLH='\0';
-              if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-                result__LBLH=((__CHARACTER )(( 0)));
-              } else {
-                result__LBLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-              };
-              if ((result__LBLH == ';')) {
-                position__CCC=(__INTEGER)(position__CCC +  1);
-                result__KBLH=TRUE__;
-              };
-            };
-            __tmp__25GB=result__KBLH;
-          } else {
-            __tmp__25GB=FALSE__;
-          };
-          if (__tmp__25GB) {
-            add_last__I5U(result__G4GB,e__F4GB);
-            e__F4GB=read_expr__DBJ(Self__D4GB);
-            goto while_do__UY3B;
-          };
-        };
-        if (((void *)e__F4GB == (void *)NULL)) {
-          pos__UF0G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_330));
-          put_position__FRG(pos__UF0G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        result__NBLH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__NBLH=FALSE__;
-        } else {
-          result__OBLH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__OBLH=((__CHARACTER )(( 0)));
-          } else {
-            result__OBLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__OBLH == ',')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__NBLH=TRUE__;
-          };
-        };
-      } while (result__NBLH);
-    };
-    result__AWWB=NULL;
-    ptr__BWWB=((__POINTER )(NULL));
-    typ_id__GWWB= 0;
-    sz__DWWB=((__UINTEGER_32 )sizeof(__ITM_RESULT));
-    if ((sz__DWWB ==  0)) {
-      result__AWWB=ITM_RESULT__;
-    } else {
-      typ_id__GWWB=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__DWWB);
-      if ((typ_id__GWWB == (__INTEGER)(-  1))) {
-        a__GLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__HLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWWB + a__GLGH) & (__UINTEGER_32)(~ a__GLGH));
-        ptr_table__RBLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__QBLH=((__POINTER )(NULL));
-        result__SBLH=((__POINTER *)ptr_table__RBLH)[ 0];
-        if ((result__SBLH == (void *)NULL)) {
-          result__SBLH=new_lab__RTJ(new_size__HLGH);
-          next__QBLH=(void *)((unsigned long)result__SBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLGH)));
-          ((__POINTER *)next__QBLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RBLH)[ 0]=next__QBLH;
-        } else {
-          next__QBLH=((__POINTER *)result__SBLH)[ 0];
-          if ((next__QBLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SBLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HLGH <<  1)) <=  4096)) {
-              next__QBLH=(void *)((unsigned long)result__SBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLGH)));
-            } else {
-              next__QBLH=new_lab__RTJ(new_size__HLGH);
-            };
-            ((__POINTER *)next__QBLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__RBLH)[ 0]=next__QBLH;
-          } else {
-            ((__POINTER *)result__SBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QBLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__SBLH=next__QBLH;
-          };
-        };
-        ptr__BWWB=result__SBLH;
-      } else {
-        t__LLGH=((__UINTEGER_32 )typ_id__GWWB);
-        a__KLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__ZBLH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWWB + a__KLGH) & (__UINTEGER_32)(~ a__KLGH));
-        ptr_table__WBLH=((__POINTER )(&(table_type[(t__LLGH)])));
-        lab_type__YBLH=(__UINTEGER_32)(t__LLGH |  1);
-        next__VBLH=((__POINTER )(NULL));
-        result__XBLH=((__POINTER *)ptr_table__WBLH)[ 0];
-        if ((result__XBLH == (void *)NULL)) {
-          result__XBLH=new_lab__RTJ(lab_type__YBLH);
-          next__VBLH=(void *)((unsigned long)result__XBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZBLH)));
-          ((__POINTER *)next__VBLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__WBLH)[ 0]=next__VBLH;
-        } else {
-          next__VBLH=((__POINTER *)result__XBLH)[ 0];
-          if ((next__VBLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XBLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZBLH <<  1)) <=  4096)) {
-              next__VBLH=(void *)((unsigned long)result__XBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZBLH)));
-            } else {
-              next__VBLH=new_lab__RTJ(lab_type__YBLH);
-            };
-            ((__POINTER *)next__VBLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WBLH)[ 0]=next__VBLH;
-          } else {
-            ((__POINTER *)result__XBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VBLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__XBLH=next__VBLH;
-          };
-        };
-        ptr__BWWB=result__XBLH;
-      };
-      result__AWWB=((__ITM_RESULT *)ptr__BWWB);
-      *(result__AWWB) = *(ITM_RESULT__);
-    };
-    ((__ITM_RESULT *)result__AWWB)->value__WKFC=e__F4GB;
-    e__F4GB=result__AWWB;
-    add_last__I5U(result__R5GH,result__AWWB);
-  };
-  return(copy__5BI(result__R5GH));
-}
-
-static void* readlip_expr_operator__GMZB(__PARSER *Self__HMZB)
-// ({PARSER}) With resultRecursive, No inlinable.
-{
-  void *right__KMZB,*result__JMZB;
-  __POSITION pos__KG0G,p__JCLH,p__ADLH;
-  __LIP_BINARY *result__ACLH,*Self__ICLH,*result__XCLH,*Self__5CLH;
-  __POINTER ptr__BCLH,ptr_table__OCLH,next__NCLH,result__PCLH;
-  __POINTER ptr_table__TCLH,next__SCLH,result__UCLH,ptr__YCLH;
-  __POINTER ptr_table__FDLH,next__EDLH,result__GDLH,ptr_table__KDLH;
-  __POINTER next__JDLH,result__LDLH;
-  __INTEGER typ_id__CCLH,typ_id__ZCLH;
-  __UINTEGER_32 sz__DCLH,a__ECLH,new_size__FCLH,t__GCLH,a__HCLH;
-  __UINTEGER_32 new_size__WCLH,lab_type__VCLH,sz__0CLH,a__1CLH;
-  __UINTEGER_32 new_size__2CLH,t__3CLH,a__4CLH,new_size__NDLH;
-  __UINTEGER_32 lab_type__MDLH;
-  __BOOLEAN result__0BLH,__tmp__5MZB,result__3BLH;
-  __CHARACTER result__1BLH,result__4BLH;
-  right__KMZB=NULL;
-  result__JMZB=readlip_expr_cmp__0Y1B(Self__HMZB);
-  if (((void *)result__JMZB != (void *)NULL)) {
-    while_do__J04B:
-    {
-      result__0BLH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__0BLH=FALSE__;
-      } else {
-        result__1BLH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__1BLH=((__CHARACTER )(( 0)));
-        } else {
-          result__1BLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__1BLH == '|')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__0BLH=TRUE__;
-        };
-      };
-      if (result__0BLH) {
-        __tmp__5MZB=TRUE__;
-      } else {
-        result__3BLH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__3BLH=FALSE__;
-        } else {
-          result__4BLH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__4BLH=((__CHARACTER )(( 0)));
-          } else {
-            result__4BLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__4BLH == '&')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__3BLH=TRUE__;
-          };
-        };
-        __tmp__5MZB=result__3BLH;
-      };
-      if (__tmp__5MZB) {
-        right__KMZB=readlip_expr_cmp__0Y1B(Self__HMZB);
-        if (((void *)right__KMZB == (void *)NULL)) {
-          pos__KG0G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_239));
-          put_position__FRG(pos__KG0G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (result__0BLH) {
-          p__JCLH=current_position__B0F();
-          result__ACLH=NULL;
-          ptr__BCLH=((__POINTER )(NULL));
-          typ_id__CCLH= 0;
-          sz__DCLH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__DCLH ==  0)) {
-            result__ACLH=LIP_BINARY__;
-          } else {
-            typ_id__CCLH=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__DCLH);
-            if ((typ_id__CCLH == (__INTEGER)(-  1))) {
-              a__ECLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__FCLH=(__UINTEGER_32)((__UINTEGER_32)(sz__DCLH + a__ECLH) & (__UINTEGER_32)(~ a__ECLH));
-              ptr_table__OCLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FCLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__NCLH=((__POINTER )(NULL));
-              result__PCLH=((__POINTER *)ptr_table__OCLH)[ 0];
-              if ((result__PCLH == (void *)NULL)) {
-                result__PCLH=new_lab__RTJ(new_size__FCLH);
-                next__NCLH=(void *)((unsigned long)result__PCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FCLH)));
-                ((__POINTER *)next__NCLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__OCLH)[ 0]=next__NCLH;
-              } else {
-                next__NCLH=((__POINTER *)result__PCLH)[ 0];
-                if ((next__NCLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PCLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FCLH <<  1)) <=  4096)) {
-                    next__NCLH=(void *)((unsigned long)result__PCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FCLH)));
-                  } else {
-                    next__NCLH=new_lab__RTJ(new_size__FCLH);
-                  };
-                  ((__POINTER *)next__NCLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__OCLH)[ 0]=next__NCLH;
-                } else {
-                  ((__POINTER *)result__PCLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NCLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__PCLH=next__NCLH;
-                };
-              };
-              ptr__BCLH=result__PCLH;
-            } else {
-              t__GCLH=((__UINTEGER_32 )typ_id__CCLH);
-              a__HCLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__WCLH=(__UINTEGER_32)((__UINTEGER_32)(sz__DCLH + a__HCLH) & (__UINTEGER_32)(~ a__HCLH));
-              ptr_table__TCLH=((__POINTER )(&(table_type[(t__GCLH)])));
-              lab_type__VCLH=(__UINTEGER_32)(t__GCLH |  1);
-              next__SCLH=((__POINTER )(NULL));
-              result__UCLH=((__POINTER *)ptr_table__TCLH)[ 0];
-              if ((result__UCLH == (void *)NULL)) {
-                result__UCLH=new_lab__RTJ(lab_type__VCLH);
-                next__SCLH=(void *)((unsigned long)result__UCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCLH)));
-                ((__POINTER *)next__SCLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__TCLH)[ 0]=next__SCLH;
-              } else {
-                next__SCLH=((__POINTER *)result__UCLH)[ 0];
-                if ((next__SCLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UCLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WCLH <<  1)) <=  4096)) {
-                    next__SCLH=(void *)((unsigned long)result__UCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCLH)));
-                  } else {
-                    next__SCLH=new_lab__RTJ(lab_type__VCLH);
-                  };
-                  ((__POINTER *)next__SCLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__TCLH)[ 0]=next__SCLH;
-                } else {
-                  ((__POINTER *)result__UCLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SCLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__UCLH=next__SCLH;
-                };
-              };
-              ptr__BCLH=result__UCLH;
-            };
-            result__ACLH=((__LIP_BINARY *)ptr__BCLH);
-            *(result__ACLH) = *(LIP_BINARY__);
-          };
-          Self__ICLH=((__LIP_BINARY *)result__ACLH);
-          Self__ICLH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__JCLH;
-          Self__ICLH->left__J2QD=result__JMZB;
-          Self__ICLH->right__M2QD=right__KMZB;
-          Self__ICLH->operator__P2QD='|';
-          result__JMZB=result__ACLH;
-        } else {
-          p__ADLH=current_position__B0F();
-          result__XCLH=NULL;
-          ptr__YCLH=((__POINTER )(NULL));
-          typ_id__ZCLH= 0;
-          sz__0CLH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__0CLH ==  0)) {
-            result__XCLH=LIP_BINARY__;
-          } else {
-            typ_id__ZCLH=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0CLH);
-            if ((typ_id__ZCLH == (__INTEGER)(-  1))) {
-              a__1CLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__2CLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CLH + a__1CLH) & (__UINTEGER_32)(~ a__1CLH));
-              ptr_table__FDLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2CLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__EDLH=((__POINTER )(NULL));
-              result__GDLH=((__POINTER *)ptr_table__FDLH)[ 0];
-              if ((result__GDLH == (void *)NULL)) {
-                result__GDLH=new_lab__RTJ(new_size__2CLH);
-                next__EDLH=(void *)((unsigned long)result__GDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CLH)));
-                ((__POINTER *)next__EDLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__FDLH)[ 0]=next__EDLH;
-              } else {
-                next__EDLH=((__POINTER *)result__GDLH)[ 0];
-                if ((next__EDLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GDLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__2CLH <<  1)) <=  4096)) {
-                    next__EDLH=(void *)((unsigned long)result__GDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CLH)));
-                  } else {
-                    next__EDLH=new_lab__RTJ(new_size__2CLH);
-                  };
-                  ((__POINTER *)next__EDLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__FDLH)[ 0]=next__EDLH;
-                } else {
-                  ((__POINTER *)result__GDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EDLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__GDLH=next__EDLH;
-                };
-              };
-              ptr__YCLH=result__GDLH;
-            } else {
-              t__3CLH=((__UINTEGER_32 )typ_id__ZCLH);
-              a__4CLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__NDLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CLH + a__4CLH) & (__UINTEGER_32)(~ a__4CLH));
-              ptr_table__KDLH=((__POINTER )(&(table_type[(t__3CLH)])));
-              lab_type__MDLH=(__UINTEGER_32)(t__3CLH |  1);
-              next__JDLH=((__POINTER )(NULL));
-              result__LDLH=((__POINTER *)ptr_table__KDLH)[ 0];
-              if ((result__LDLH == (void *)NULL)) {
-                result__LDLH=new_lab__RTJ(lab_type__MDLH);
-                next__JDLH=(void *)((unsigned long)result__LDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDLH)));
-                ((__POINTER *)next__JDLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__KDLH)[ 0]=next__JDLH;
-              } else {
-                next__JDLH=((__POINTER *)result__LDLH)[ 0];
-                if ((next__JDLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LDLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NDLH <<  1)) <=  4096)) {
-                    next__JDLH=(void *)((unsigned long)result__LDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDLH)));
-                  } else {
-                    next__JDLH=new_lab__RTJ(lab_type__MDLH);
-                  };
-                  ((__POINTER *)next__JDLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__KDLH)[ 0]=next__JDLH;
-                } else {
-                  ((__POINTER *)result__LDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JDLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__LDLH=next__JDLH;
-                };
-              };
-              ptr__YCLH=result__LDLH;
-            };
-            result__XCLH=((__LIP_BINARY *)ptr__YCLH);
-            *(result__XCLH) = *(LIP_BINARY__);
-          };
-          Self__5CLH=((__LIP_BINARY *)result__XCLH);
-          Self__5CLH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__ADLH;
-          Self__5CLH->left__J2QD=result__JMZB;
-          Self__5CLH->right__M2QD=right__KMZB;
-          Self__5CLH->operator__P2QD='&';
-          result__JMZB=result__XCLH;
-        };
-        goto while_do__J04B;
-      };
-    };
-  };
-  return(result__JMZB);
-}
-
-static __FAST_ARRAYoLIP_CODEo* create_with_capacity__DWKD(__INTEGER new_count__FWKD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __POINTER ptr__YAMD,ptr_table__PDLH,next__ODLH,result__QDLH;
-  __POINTER ptr_table__UDLH,next__TDLH,result__VDLH;
-  __INTEGER typ_id__3AMD;
-  __UINTEGER_32 sz__0AMD,a__WLGH,new_size__XLGH,t__1LGH,a__0LGH;
-  __UINTEGER_32 new_size__XDLH,lab_type__WDLH;
-  __FAST_ARRAYoLIP_CODEo *result__XAMD,*Self__VDUD;
-  result__XAMD=NULL;
-  ptr__YAMD=((__POINTER )(NULL));
-  typ_id__3AMD= 0;
-  sz__0AMD=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_CODEo));
-  if ((sz__0AMD ==  0)) {
-    result__XAMD=FAST_ARRAYoLIP_CODEo__;
-  } else {
-    typ_id__3AMD=__FAST_ARRAYoLIP_CODEo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0AMD);
-    if ((typ_id__3AMD == (__INTEGER)(-  1))) {
-      a__WLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__0AMD + a__WLGH) & (__UINTEGER_32)(~ a__WLGH));
-      ptr_table__PDLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__ODLH=((__POINTER )(NULL));
-      result__QDLH=((__POINTER *)ptr_table__PDLH)[ 0];
-      if ((result__QDLH == (void *)NULL)) {
-        result__QDLH=new_lab__RTJ(new_size__XLGH);
-        next__ODLH=(void *)((unsigned long)result__QDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLGH)));
-        ((__POINTER *)next__ODLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__PDLH)[ 0]=next__ODLH;
-      } else {
-        next__ODLH=((__POINTER *)result__QDLH)[ 0];
-        if ((next__ODLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QDLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XLGH <<  1)) <=  4096)) {
-            next__ODLH=(void *)((unsigned long)result__QDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLGH)));
-          } else {
-            next__ODLH=new_lab__RTJ(new_size__XLGH);
-          };
-          ((__POINTER *)next__ODLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__PDLH)[ 0]=next__ODLH;
-        } else {
-          ((__POINTER *)result__QDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ODLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__QDLH=next__ODLH;
-        };
-      };
-      ptr__YAMD=result__QDLH;
-    } else {
-      t__1LGH=((__UINTEGER_32 )typ_id__3AMD);
-      a__0LGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__XDLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0AMD + a__0LGH) & (__UINTEGER_32)(~ a__0LGH));
-      ptr_table__UDLH=((__POINTER )(&(table_type[(t__1LGH)])));
-      lab_type__WDLH=(__UINTEGER_32)(t__1LGH |  1);
-      next__TDLH=((__POINTER )(NULL));
-      result__VDLH=((__POINTER *)ptr_table__UDLH)[ 0];
-      if ((result__VDLH == (void *)NULL)) {
-        result__VDLH=new_lab__RTJ(lab_type__WDLH);
-        next__TDLH=(void *)((unsigned long)result__VDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDLH)));
-        ((__POINTER *)next__TDLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__UDLH)[ 0]=next__TDLH;
-      } else {
-        next__TDLH=((__POINTER *)result__VDLH)[ 0];
-        if ((next__TDLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VDLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XDLH <<  1)) <=  4096)) {
-            next__TDLH=(void *)((unsigned long)result__VDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDLH)));
-          } else {
-            next__TDLH=new_lab__RTJ(lab_type__WDLH);
-          };
-          ((__POINTER *)next__TDLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__UDLH)[ 0]=next__TDLH;
-        } else {
-          ((__POINTER *)result__VDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TDLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__VDLH=next__TDLH;
-        };
-      };
-      ptr__YAMD=result__VDLH;
-    };
-    result__XAMD=((__FAST_ARRAYoLIP_CODEo *)ptr__YAMD);
-    *(result__XAMD) = *(FAST_ARRAYoLIP_CODEo__);
-  };
-  Self__VDUD=((__FAST_ARRAYoLIP_CODEo *)result__XAMD);
-  if ((Self__VDUD->parent_arrayed_collection__4MYC.capacity__1UTD < new_count__FWKD)) {
-    Self__VDUD->parent_arrayed_collection__4MYC.storage__GVTD=create__3WIE(new_count__FWKD);
-    Self__VDUD->parent_arrayed_collection__4MYC.capacity__1UTD=new_count__FWKD;
-  };
-  Self__VDUD->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(-  1);
-  return(result__XAMD);
-}
-
-static void add_last__JOUD(__FAST_ARRAYoLIP_CODEo *Self__KOUD,void *element__LOUD)
-// ({FAST_ARRAYoLIP_CODEo},{NULLxLIP_AFFECTxLIP_BINARYxLIP_UNARYxLIP_CALLxLIP_IFxLIP_PRINTxLIP_VALUE}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__MOUD,__tmp__QPUD,__tmp__T1WE,Self__32QF;
-  __BOOLEAN __tmp__0OUD;
-  void **__tmp__PPUD,**new__50WE;
-  new_capacity__MOUD= 0;
-  if (((__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD +  1) <= (__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD -  1))) {
-    Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD +  1);
-    __tmp__0OUD=TRUE__;
-  } else {
-    __tmp__0OUD=FALSE__;
-  };
-  if ((! __tmp__0OUD)) {
-    if ((Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD ==  0)) {
-      Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD=create__3WIE( 2);
-      Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD= 2;
-      Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD= 0;
-    } else {
-      new_capacity__MOUD=(__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD <<  1);
-      __tmp__PPUD=Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD;
-      __tmp__QPUD=Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD;
-      new__50WE=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__PPUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__QPUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MOUD * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__T1WE=(__INTEGER)(new_capacity__MOUD -  1);
-      Self__32QF=__tmp__QPUD;
-      while ((Self__32QF <= __tmp__T1WE)) {
-        new__50WE[Self__32QF]=NULL;
-        Self__32QF=(__INTEGER)(Self__32QF +  1);
-      };
-      Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD=new__50WE;
-      Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD=new_capacity__MOUD;
-      Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD +  1);
-    };
-  };
-  ((void **)Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD)[Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD]=element__LOUD;
-}
-
-static void* copy__ZPID(void *tmp__1PID)
-// ({NULLxFAST_ARRAYoLIP_CODEo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__SUTD,other_upper__RUTD,Self__5SYE;
-  __INTEGER new_capacity__OFUD,__tmp__WGUD,__tmp__5ZWE,Self__40QF;
-  void *result__3PID;
-  __FAST_ARRAYoLIP_CODEo *Self__PUTD;
-  void **__tmp__JVTD,**__tmp__LVTD,**Self__YQWE;
-  __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__MFUD;
-  __BOOLEAN __tmp__3FUD;
-  void **__tmp__VGUD,**new__LZWE;
-  result__3PID=create_with_capacity__DWKD((__INTEGER)(((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.upper__ZGQD +  1));
-  Self__PUTD=((__FAST_ARRAYoLIP_CODEo *)result__3PID);
-  new_capacity__SUTD= 0;
-  other_upper__RUTD=((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.upper__ZGQD;
-  if ((other_upper__RUTD >=  0)) {
-    new_capacity__SUTD=(__INTEGER)(other_upper__RUTD +  1);
-    if ((Self__PUTD->parent_arrayed_collection__4MYC.capacity__1UTD < new_capacity__SUTD)) {
-      Self__PUTD->parent_arrayed_collection__4MYC.storage__GVTD=create__3WIE(new_capacity__SUTD);
-      Self__PUTD->parent_arrayed_collection__4MYC.capacity__1UTD=new_capacity__SUTD;
-    };
-    __tmp__JVTD=Self__PUTD->parent_arrayed_collection__4MYC.storage__GVTD;
-    __tmp__LVTD=((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.storage__GVTD;
-    Self__YQWE=((void **)__tmp__JVTD);
-    Self__5SYE=other_upper__RUTD;
-    while ((Self__5SYE >=  0)) {
-      Self__YQWE[Self__5SYE]=((void **)__tmp__LVTD)[Self__5SYE];
-      Self__5SYE=(__INTEGER)(Self__5SYE -  1);
-    };
-  };
-  Self__PUTD->parent_arrayed_collection__4MYC.upper__ZGQD=other_upper__RUTD;
-  ((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(-  1);
-  Self__MFUD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
-  new_capacity__OFUD= 0;
-  if (((__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD +  1) <= (__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD -  1))) {
-    Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD +  1);
-    __tmp__3FUD=TRUE__;
-  } else {
-    __tmp__3FUD=FALSE__;
-  };
-  if ((! __tmp__3FUD)) {
-    if ((Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD ==  0)) {
-      Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD=create__R2IE( 2);
-      Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD= 2;
-      Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD= 0;
-    } else {
-      new_capacity__OFUD=(__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD <<  1);
-      __tmp__VGUD=Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD;
-      __tmp__WGUD=Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD;
-      new__LZWE=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__VGUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__WGUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__OFUD * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__5ZWE=(__INTEGER)(new_capacity__OFUD -  1);
-      Self__40QF=__tmp__WGUD;
-      while ((Self__40QF <= __tmp__5ZWE)) {
-        new__LZWE[Self__40QF]=NULL;
-        Self__40QF=(__INTEGER)(Self__40QF +  1);
-      };
-      Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD=new__LZWE;
-      Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD=new_capacity__OFUD;
-      Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD +  1);
-    };
-  };
-  ((void **)Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD)[Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD]=tmp__1PID;
-  return(result__3PID);
-}
-
-static void* fast_reference_at__PXRD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__QXRD,void *k__RXRD)
-// ({HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__1XRD;
-  __BOOLEAN __tmp__TYRD;
-  node__1XRD=((void **)Self__QXRD->buckets__DYRD)[(__INTEGER)(hash_code__RNW(k__RXRD) % Self__QXRD->capacity__4XRD)];
-  until_do__1KWD:
-  {
-    if (((void *)node__1XRD == (void *)NULL)) {
-      __tmp__TYRD=TRUE__;
-    } else {
-      print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-      __tmp__TYRD=((void *)NULL == (void *)k__RXRD);
-    };
-    if ((! __tmp__TYRD)) {
-      print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-      node__1XRD=NULL;
-      goto until_do__1KWD;
-    };
-  };
-  if (((void *)node__1XRD != (void *)NULL)) {
-    print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-  };
-  return(NULL);
-}
-
-static void* run_expr__D2QD(__LIP_BINARY *Self__E2QD)
-// ({LIP_BINARY}) With resultRecursive, No inlinable.
-{
-  void *result__G2QD,*__tmp__L2QD,*__tmp__ZDLH,*__tmp__0DLH,*__tmp__O2QD;
-  void *__tmp__4DLH,*__tmp__5DLH,*result__QE4F,*__tmp__W2QD;
-  void *result__AF4F,*result__SF4F,*__tmp__32QD,*result__CG4F;
-  void *result__UG4F,*__tmp__E3QD,*result__EH4F,*result__XJIG;
-  void *result__WH4F,*__tmp__L3QD,*result__GI4F,*result__IKIG;
-  void *__tmp__S3QD,*result__IJ4F,*__tmp__Z3QD,*result__KK4F;
-  void *__tmp__A4QD,*result__ML4F,*__tmp__H4QD,*result__OM4F;
-  void *__tmp__O4QD,*result__QN4F,*result__3MIG,*__tmp__V4QD;
-  void *result__SO4F;
-  void *__tmp__K2QD,*__tmp__N2QD;
-  __LIP_INTEGER *Self__1DLH,*Self__AELH,*Self__3E4F,*__tmp__DF4F;
-  __LIP_INTEGER *s__BF4F,*Self__5F4F,*__tmp__FG4F,*s__DG4F,*Self__BH4F;
-  __LIP_INTEGER *__tmp__HH4F,*s__FH4F,*Self__DI4F,*__tmp__JI4F,*s__HI4F;
-  __LIP_INTEGER *Self__FJ4F,*__tmp__LJ4F,*s__JJ4F,*Self__HK4F;
-  __LIP_INTEGER *__tmp__NK4F,*s__LK4F,*Self__JL4F,*__tmp__PL4F,*s__NL4F;
-  __LIP_INTEGER *Self__LM4F,*__tmp__RM4F,*s__PM4F,*Self__NN4F;
-  __LIP_INTEGER *__tmp__TN4F,*s__RN4F,*Self__PO4F,*__tmp__VO4F,*s__TO4F;
-  __LIP_STRING *Self__2DLH,*Self__BELH,*__tmp__YIIG,*s__WIIG;
-  __LIP_STRING *__tmp__JJIG,*s__HJIG,*Self__UJIG,*__tmp__0JIG,*s__YJIG;
-  __LIP_STRING *Self__FKIG,*__tmp__LKIG,*s__JKIG,*__tmp__2KIG,*s__0KIG;
-  __LIP_STRING *__tmp__NLIG,*s__LLIG,*__tmp__4LIG,*s__2LIG,*__tmp__PMIG;
-  __LIP_STRING *s__NMIG,*Self__0MIG,*__tmp__ANIG,*s__4MIG,*__tmp__RNIG;
-  __LIP_STRING *s__PNIG;
-  __LIP_BOOLEAN *Self__NE4F,*__tmp__TE4F,*s__RE4F,*Self__PF4F;
-  __LIP_BOOLEAN *__tmp__VF4F,*s__TF4F,*Self__RG4F,*__tmp__XG4F,*s__VG4F;
-  __LIP_BOOLEAN *Self__TH4F,*__tmp__ZH4F,*s__XH4F,*__tmp__1I4F,*s__ZI4F;
-  __LIP_BOOLEAN *__tmp__3J4F,*s__1J4F,*__tmp__5K4F,*s__3K4F,*__tmp__BM4F;
-  __LIP_BOOLEAN *s__5L4F,*__tmp__DN4F,*s__BN4F,*__tmp__FO4F,*s__DO4F;
-  void *result__EZEH,*result__GZEH,*result__IZEH,*result__KZEH;
-  void *result__MZEH,*result__OZEH,*result__QZEH,*result__SZEH;
-  void *result__UZEH,*result__WZEH,*result__YZEH,*result__0ZEH;
-  __POSITION __tmp__44QD;
-  __CHARACTER Self__GWVD;
-  __BOOLEAN b__FZEH,b__HZEH,b__JZEH,b__LZEH,b__NZEH,b__PZEH,b__RZEH;
-  __BOOLEAN b__TZEH,b__VZEH,b__XZEH,b__ZZEH,b__1ZEH;
-  result__G2QD=NULL;
-  __tmp__K2QD=Self__E2QD->left__J2QD;
-  switch (((struct ___OBJ *)__tmp__K2QD)->__id) {
-  case __LIP_BINARY__: {
-    __tmp__L2QD=run_expr__D2QD(__tmp__K2QD);
-  } break;
-  case __LIP_UNARY__: {
-    __tmp__L2QD=run_expr__C5QD(__tmp__K2QD);
-  } break;
-  case __LIP_CALL__: {
-    __tmp__L2QD=run_expr__IXUE(__tmp__K2QD);
-  } break;
-  case __LIP_VALUE__: {
-    __tmp__ZDLH=((__LIP_VALUE *)__tmp__K2QD)->value__I1UE;
-    switch (((struct ___OBJ *)__tmp__ZDLH)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__0DLH=((__LIP_BOOLEAN *)__tmp__ZDLH);
-    } break;
-    case __LIP_INTEGER__: {
-      Self__1DLH=((__LIP_INTEGER *)__tmp__ZDLH);
-      __tmp__0DLH=get__UYSE(Self__1DLH,Self__1DLH->value__FP4F);
-    } break;
-    case __LIP_STRING__: {
-      Self__2DLH=((__LIP_STRING *)__tmp__ZDLH);
-      __tmp__0DLH=get__34FF(Self__2DLH,Self__2DLH->value__WSUE);
-    } break;
-    };
-    __tmp__L2QD=__tmp__0DLH;
-  } break;
-  };
-  __tmp__N2QD=Self__E2QD->right__M2QD;
-  switch (((struct ___OBJ *)__tmp__N2QD)->__id) {
-  case __LIP_BINARY__: {
-    __tmp__O2QD=run_expr__D2QD(__tmp__N2QD);
-  } break;
-  case __LIP_UNARY__: {
-    __tmp__O2QD=run_expr__C5QD(__tmp__N2QD);
-  } break;
-  case __LIP_CALL__: {
-    __tmp__O2QD=run_expr__IXUE(__tmp__N2QD);
-  } break;
-  case __LIP_VALUE__: {
-    __tmp__4DLH=((__LIP_VALUE *)__tmp__N2QD)->value__I1UE;
-    switch (((struct ___OBJ *)__tmp__4DLH)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__5DLH=((__LIP_BOOLEAN *)__tmp__4DLH);
-    } break;
-    case __LIP_INTEGER__: {
-      Self__AELH=((__LIP_INTEGER *)__tmp__4DLH);
-      __tmp__5DLH=get__UYSE(Self__AELH,Self__AELH->value__FP4F);
-    } break;
-    case __LIP_STRING__: {
-      Self__BELH=((__LIP_STRING *)__tmp__4DLH);
-      __tmp__5DLH=get__34FF(Self__BELH,Self__BELH->value__WSUE);
-    } break;
-    };
-    __tmp__O2QD=__tmp__5DLH;
-  } break;
-  };
-  Self__GWVD=Self__E2QD->operator__P2QD;
-  if ((Self__GWVD == '|')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      Self__NE4F=((__LIP_BOOLEAN *)__tmp__L2QD);
-      result__QE4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__TE4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__TE4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__TE4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__TE4F=NULL;
-        } break;
-        }
-      };
-      s__RE4F=__tmp__TE4F;
-      if (((void *)__tmp__TE4F != (void *)NULL)) {
-        b__FZEH=(Self__NE4F->value__MGQD | __tmp__TE4F->value__MGQD);
-        result__EZEH=NULL;
-        if (b__FZEH) {
-          result__EZEH=true__5YLF;
-        } else {
-          result__EZEH=LIP_BOOLEAN__;
-        };
-        result__QE4F=result__EZEH;
-      };
-      __tmp__W2QD=result__QE4F;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__3E4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__AF4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__DF4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__DF4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__DF4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__DF4F=NULL;
-        } break;
-        }
-      };
-      s__BF4F=__tmp__DF4F;
-      if (((void *)__tmp__DF4F != (void *)NULL)) {
-        Self__3E4F->value__FP4F=(__INTEGER)(Self__3E4F->value__FP4F | __tmp__DF4F->value__FP4F);
-        free__3D4F(__tmp__DF4F);
-        result__AF4F=Self__3E4F;
-      };
-      __tmp__W2QD=result__AF4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__YIIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__YIIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__YIIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__YIIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__WIIG=__tmp__YIIG;
-      __tmp__W2QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__W2QD;
-  };
-  if ((Self__GWVD == '&')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      Self__PF4F=((__LIP_BOOLEAN *)__tmp__L2QD);
-      result__SF4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__VF4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__VF4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__VF4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__VF4F=NULL;
-        } break;
-        }
-      };
-      s__TF4F=__tmp__VF4F;
-      if (((void *)__tmp__VF4F != (void *)NULL)) {
-        b__HZEH=(Self__PF4F->value__MGQD & __tmp__VF4F->value__MGQD);
-        result__GZEH=NULL;
-        if (b__HZEH) {
-          result__GZEH=true__5YLF;
-        } else {
-          result__GZEH=LIP_BOOLEAN__;
-        };
-        result__SF4F=result__GZEH;
-      };
-      __tmp__32QD=result__SF4F;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__5F4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__CG4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__FG4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__FG4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__FG4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__FG4F=NULL;
-        } break;
-        }
-      };
-      s__DG4F=__tmp__FG4F;
-      if (((void *)__tmp__FG4F != (void *)NULL)) {
-        Self__5F4F->value__FP4F=(__INTEGER)(Self__5F4F->value__FP4F & __tmp__FG4F->value__FP4F);
-        free__3D4F(__tmp__FG4F);
-        result__CG4F=Self__5F4F;
-      };
-      __tmp__32QD=result__CG4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__JJIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__JJIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__JJIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__JJIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__HJIG=__tmp__JJIG;
-      __tmp__32QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__32QD;
-  };
-  if ((Self__GWVD == '=')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      Self__RG4F=((__LIP_BOOLEAN *)__tmp__L2QD);
-      result__UG4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__XG4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__XG4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__XG4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__XG4F=NULL;
-        } break;
-        }
-      };
-      s__VG4F=__tmp__XG4F;
-      if (((void *)__tmp__XG4F != (void *)NULL)) {
-        b__JZEH=(Self__RG4F->value__MGQD == __tmp__XG4F->value__MGQD);
-        result__IZEH=NULL;
-        if (b__JZEH) {
-          result__IZEH=true__5YLF;
-        } else {
-          result__IZEH=LIP_BOOLEAN__;
-        };
-        result__UG4F=result__IZEH;
-      };
-      __tmp__E3QD=result__UG4F;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__BH4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__EH4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__HH4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__HH4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__HH4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__HH4F=NULL;
-        } break;
-        }
-      };
-      s__FH4F=__tmp__HH4F;
-      if (((void *)__tmp__HH4F != (void *)NULL)) {
-        free__3D4F(__tmp__HH4F);
-        free__3D4F(Self__BH4F);
-        b__LZEH=(Self__BH4F->value__FP4F == __tmp__HH4F->value__FP4F);
-        result__KZEH=NULL;
-        if (b__LZEH) {
-          result__KZEH=true__5YLF;
-        } else {
-          result__KZEH=LIP_BOOLEAN__;
-        };
-        result__EH4F=result__KZEH;
-      };
-      __tmp__E3QD=result__EH4F;
-    } break;
-    case __LIP_STRING__: {
-      Self__UJIG=((__LIP_STRING *)__tmp__L2QD);
-      result__XJIG=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__0JIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__0JIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__0JIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__0JIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__YJIG=__tmp__0JIG;
-      if (((void *)__tmp__0JIG != (void *)NULL)) {
-        free__LIIG(__tmp__0JIG);
-        free__LIIG(Self__UJIG);
-        b__NZEH=((void *)Self__UJIG->value__WSUE == (void *)__tmp__0JIG->value__WSUE);
-        result__MZEH=NULL;
-        if (b__NZEH) {
-          result__MZEH=true__5YLF;
-        } else {
-          result__MZEH=LIP_BOOLEAN__;
-        };
-        result__XJIG=result__MZEH;
-      };
-      __tmp__E3QD=result__XJIG;
-    } break;
-    };
-    result__G2QD=__tmp__E3QD;
-  };
-  if ((Self__GWVD == 'E')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      Self__TH4F=((__LIP_BOOLEAN *)__tmp__L2QD);
-      result__WH4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__ZH4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__ZH4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__ZH4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__ZH4F=NULL;
-        } break;
-        }
-      };
-      s__XH4F=__tmp__ZH4F;
-      if (((void *)__tmp__ZH4F != (void *)NULL)) {
-        b__PZEH=(Self__TH4F->value__MGQD != __tmp__ZH4F->value__MGQD);
-        result__OZEH=NULL;
-        if (b__PZEH) {
-          result__OZEH=true__5YLF;
-        } else {
-          result__OZEH=LIP_BOOLEAN__;
-        };
-        result__WH4F=result__OZEH;
-      };
-      __tmp__L3QD=result__WH4F;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__DI4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__GI4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__JI4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__JI4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__JI4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__JI4F=NULL;
-        } break;
-        }
-      };
-      s__HI4F=__tmp__JI4F;
-      if (((void *)__tmp__JI4F != (void *)NULL)) {
-        free__3D4F(__tmp__JI4F);
-        free__3D4F(Self__DI4F);
-        b__RZEH=(Self__DI4F->value__FP4F != __tmp__JI4F->value__FP4F);
-        result__QZEH=NULL;
-        if (b__RZEH) {
-          result__QZEH=true__5YLF;
-        } else {
-          result__QZEH=LIP_BOOLEAN__;
-        };
-        result__GI4F=result__QZEH;
-      };
-      __tmp__L3QD=result__GI4F;
-    } break;
-    case __LIP_STRING__: {
-      Self__FKIG=((__LIP_STRING *)__tmp__L2QD);
-      result__IKIG=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__LKIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__LKIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__LKIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__LKIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__JKIG=__tmp__LKIG;
-      if (((void *)__tmp__LKIG != (void *)NULL)) {
-        free__LIIG(__tmp__LKIG);
-        free__LIIG(Self__FKIG);
-        b__TZEH=((void *)Self__FKIG->value__WSUE != (void *)__tmp__LKIG->value__WSUE);
-        result__SZEH=NULL;
-        if (b__TZEH) {
-          result__SZEH=true__5YLF;
-        } else {
-          result__SZEH=LIP_BOOLEAN__;
-        };
-        result__IKIG=result__SZEH;
-      };
-      __tmp__L3QD=result__IKIG;
-    } break;
-    };
-    result__G2QD=__tmp__L3QD;
-  };
-  if ((Self__GWVD == '>')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__1I4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__1I4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__1I4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__1I4F=NULL;
-        } break;
-        }
-      };
-      s__ZI4F=__tmp__1I4F;
-      __tmp__S3QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__FJ4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__IJ4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__LJ4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__LJ4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__LJ4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__LJ4F=NULL;
-        } break;
-        }
-      };
-      s__JJ4F=__tmp__LJ4F;
-      if (((void *)__tmp__LJ4F != (void *)NULL)) {
-        free__3D4F(__tmp__LJ4F);
-        free__3D4F(Self__FJ4F);
-        b__VZEH=(Self__FJ4F->value__FP4F > __tmp__LJ4F->value__FP4F);
-        result__UZEH=NULL;
-        if (b__VZEH) {
-          result__UZEH=true__5YLF;
-        } else {
-          result__UZEH=LIP_BOOLEAN__;
-        };
-        result__IJ4F=result__UZEH;
-      };
-      __tmp__S3QD=result__IJ4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__2KIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__2KIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__2KIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__2KIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__0KIG=__tmp__2KIG;
-      __tmp__S3QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__S3QD;
-  };
-  if ((Self__GWVD == '<')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__3J4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__3J4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__3J4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__3J4F=NULL;
-        } break;
-        }
-      };
-      s__1J4F=__tmp__3J4F;
-      __tmp__Z3QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__HK4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__KK4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__NK4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__NK4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__NK4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__NK4F=NULL;
-        } break;
-        }
-      };
-      s__LK4F=__tmp__NK4F;
-      if (((void *)__tmp__NK4F != (void *)NULL)) {
-        free__3D4F(__tmp__NK4F);
-        free__3D4F(Self__HK4F);
-        b__XZEH=(Self__HK4F->value__FP4F < __tmp__NK4F->value__FP4F);
-        result__WZEH=NULL;
-        if (b__XZEH) {
-          result__WZEH=true__5YLF;
-        } else {
-          result__WZEH=LIP_BOOLEAN__;
-        };
-        result__KK4F=result__WZEH;
-      };
-      __tmp__Z3QD=result__KK4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__NLIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__NLIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__NLIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__NLIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__LLIG=__tmp__NLIG;
-      __tmp__Z3QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__Z3QD;
-  };
-  if ((Self__GWVD == 'S')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__5K4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__5K4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__5K4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__5K4F=NULL;
-        } break;
-        }
-      };
-      s__3K4F=__tmp__5K4F;
-      __tmp__A4QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__JL4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__ML4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__PL4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__PL4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__PL4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__PL4F=NULL;
-        } break;
-        }
-      };
-      s__NL4F=__tmp__PL4F;
-      if (((void *)__tmp__PL4F != (void *)NULL)) {
-        free__3D4F(__tmp__PL4F);
-        free__3D4F(Self__JL4F);
-        b__ZZEH=(Self__JL4F->value__FP4F >= __tmp__PL4F->value__FP4F);
-        result__YZEH=NULL;
-        if (b__ZZEH) {
-          result__YZEH=true__5YLF;
-        } else {
-          result__YZEH=LIP_BOOLEAN__;
-        };
-        result__ML4F=result__YZEH;
-      };
-      __tmp__A4QD=result__ML4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__4LIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__4LIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__4LIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__4LIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__2LIG=__tmp__4LIG;
-      __tmp__A4QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__A4QD;
-  };
-  if ((Self__GWVD == 'I')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__BM4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__BM4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__BM4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__BM4F=NULL;
-        } break;
-        }
-      };
-      s__5L4F=__tmp__BM4F;
-      __tmp__H4QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__LM4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__OM4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__RM4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__RM4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__RM4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__RM4F=NULL;
-        } break;
-        }
-      };
-      s__PM4F=__tmp__RM4F;
-      if (((void *)__tmp__RM4F != (void *)NULL)) {
-        free__3D4F(__tmp__RM4F);
-        free__3D4F(Self__LM4F);
-        b__1ZEH=(Self__LM4F->value__FP4F <= __tmp__RM4F->value__FP4F);
-        result__0ZEH=NULL;
-        if (b__1ZEH) {
-          result__0ZEH=true__5YLF;
-        } else {
-          result__0ZEH=LIP_BOOLEAN__;
-        };
-        result__OM4F=result__0ZEH;
-      };
-      __tmp__H4QD=result__OM4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__PMIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__PMIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__PMIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__PMIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__NMIG=__tmp__PMIG;
-      __tmp__H4QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__H4QD;
-  };
-  if ((Self__GWVD == '+')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__DN4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__DN4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__DN4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__DN4F=NULL;
-        } break;
-        }
-      };
-      s__BN4F=__tmp__DN4F;
-      __tmp__O4QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__NN4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__QN4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__TN4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__TN4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__TN4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__TN4F=NULL;
-        } break;
-        }
-      };
-      s__RN4F=__tmp__TN4F;
-      if (((void *)__tmp__TN4F != (void *)NULL)) {
-        Self__NN4F->value__FP4F=(__INTEGER)(Self__NN4F->value__FP4F + __tmp__TN4F->value__FP4F);
-        free__3D4F(__tmp__TN4F);
-        result__QN4F=Self__NN4F;
-      };
-      __tmp__O4QD=result__QN4F;
-    } break;
-    case __LIP_STRING__: {
-      Self__0MIG=((__LIP_STRING *)__tmp__L2QD);
-      result__3MIG=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__ANIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__ANIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__ANIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__ANIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__4MIG=__tmp__ANIG;
-      if (((void *)__tmp__ANIG != (void *)NULL)) {
-        copy__VDS(string_tmp__VH,Self__0MIG->value__WSUE);
-        append__3OS(string_tmp__VH,__tmp__ANIG->value__WSUE);
-        Self__0MIG->value__WSUE=get__YWB(string_tmp__VH);
-        free__LIIG(__tmp__ANIG);
-        result__3MIG=Self__0MIG;
-      };
-      __tmp__O4QD=result__3MIG;
-    } break;
-    };
-    result__G2QD=__tmp__O4QD;
-  };
-  if ((Self__GWVD == '-')) {
-    switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__FO4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__FO4F=((__LIP_BOOLEAN *)__tmp__O2QD);
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__FO4F=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__FO4F=NULL;
-        } break;
-        }
-      };
-      s__DO4F=__tmp__FO4F;
-      __tmp__V4QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__PO4F=((__LIP_INTEGER *)__tmp__L2QD);
-      result__SO4F=NULL;
-      if (__tmp__O2QD==NULL) {
-        __tmp__VO4F=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__VO4F=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__VO4F=((__LIP_INTEGER *)__tmp__O2QD);
-        } break;
-        case __LIP_STRING__: {
-          __tmp__VO4F=NULL;
-        } break;
-        }
-      };
-      s__TO4F=__tmp__VO4F;
-      if (((void *)__tmp__VO4F != (void *)NULL)) {
-        Self__PO4F->value__FP4F=(__INTEGER)(Self__PO4F->value__FP4F - __tmp__VO4F->value__FP4F);
-        free__3D4F(__tmp__VO4F);
-        result__SO4F=Self__PO4F;
-      };
-      __tmp__V4QD=result__SO4F;
-    } break;
-    case __LIP_STRING__: {
-      if (__tmp__O2QD==NULL) {
-        __tmp__RNIG=NULL;
-      } else {
-        switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
-        case __LIP_BOOLEAN__: {
-          __tmp__RNIG=NULL;
-        } break;
-        case __LIP_INTEGER__: {
-          __tmp__RNIG=NULL;
-        } break;
-        case __LIP_STRING__: {
-          __tmp__RNIG=((__LIP_STRING *)__tmp__O2QD);
-        } break;
-        }
-      };
-      s__PNIG=__tmp__RNIG;
-      __tmp__V4QD=NULL;
-    } break;
-    };
-    result__G2QD=__tmp__V4QD;
-  };
-  if (((void *)result__G2QD == (void *)NULL)) {
-    __tmp__44QD=Self__E2QD->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_279));
-    put_position__FRG(__tmp__44QD);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  return(result__G2QD);
-}
-
-static void* run_expr__C5QD(__LIP_UNARY *Self__D5QD)
-// ({LIP_UNARY}) With resultRecursive, No inlinable.
-{
-  void *__tmp__H5QD;
-  void *__tmp__I5QD,*__tmp__DELH,*__tmp__EELH,*result__F5QD,*__tmp__Q5QD;
-  void *__tmp__X5QD;
-  __LIP_INTEGER *Self__FELH,*Self__DP4F,*Self__QP4F;
-  __LIP_STRING *Self__GELH;
-  void *result__0YLF;
-  __POSITION __tmp__AARD;
-  __CHARACTER Self__WYVD;
-  __BOOLEAN b__YYLF;
-  __tmp__H5QD=Self__D5QD->value__G5QD;
-  switch (((struct ___OBJ *)__tmp__H5QD)->__id) {
-  case __LIP_BINARY__: {
-    __tmp__I5QD=run_expr__D2QD(__tmp__H5QD);
-  } break;
-  case __LIP_UNARY__: {
-    __tmp__I5QD=run_expr__C5QD(__tmp__H5QD);
-  } break;
-  case __LIP_CALL__: {
-    __tmp__I5QD=run_expr__IXUE(__tmp__H5QD);
-  } break;
-  case __LIP_VALUE__: {
-    __tmp__DELH=((__LIP_VALUE *)__tmp__H5QD)->value__I1UE;
-    switch (((struct ___OBJ *)__tmp__DELH)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__EELH=((__LIP_BOOLEAN *)__tmp__DELH);
-    } break;
-    case __LIP_INTEGER__: {
-      Self__FELH=((__LIP_INTEGER *)__tmp__DELH);
-      __tmp__EELH=get__UYSE(Self__FELH,Self__FELH->value__FP4F);
-    } break;
-    case __LIP_STRING__: {
-      Self__GELH=((__LIP_STRING *)__tmp__DELH);
-      __tmp__EELH=get__34FF(Self__GELH,Self__GELH->value__WSUE);
-    } break;
-    };
-    __tmp__I5QD=__tmp__EELH;
-  } break;
-  };
-  result__F5QD=__tmp__I5QD;
-  Self__WYVD=Self__D5QD->operator__J5QD;
-  if ((Self__WYVD == '-')) {
-    switch (((struct ___OBJ *)__tmp__I5QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      __tmp__Q5QD=NULL;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__DP4F=((__LIP_INTEGER *)__tmp__I5QD);
-      Self__DP4F->value__FP4F=(__INTEGER)(- Self__DP4F->value__FP4F);
-      __tmp__Q5QD=Self__DP4F;
-    } break;
-    case __LIP_STRING__: {
-      __tmp__Q5QD=NULL;
-    } break;
-    };
-    result__F5QD=__tmp__Q5QD;
-  };
-  if ((Self__WYVD == '!')) {
-    switch (((struct ___OBJ *)result__F5QD)->__id) {
-    case __LIP_BOOLEAN__: {
-      b__YYLF=(! ((__LIP_BOOLEAN *)result__F5QD)->value__MGQD);
-      result__0YLF=NULL;
-      if (b__YYLF) {
-        result__0YLF=true__5YLF;
-      } else {
-        result__0YLF=LIP_BOOLEAN__;
-      };
-      __tmp__X5QD=result__0YLF;
-    } break;
-    case __LIP_INTEGER__: {
-      Self__QP4F=((__LIP_INTEGER *)result__F5QD);
-      Self__QP4F->value__FP4F=(__INTEGER)(~ Self__QP4F->value__FP4F);
-      __tmp__X5QD=Self__QP4F;
-    } break;
-    case __LIP_STRING__: {
-      __tmp__X5QD=NULL;
-    } break;
-    };
-    result__F5QD=__tmp__X5QD;
-  };
-  if (((void *)result__F5QD == (void *)NULL)) {
-    __tmp__AARD=Self__D5QD->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 1,(&__string_279));
-    put_position__FRG(__tmp__AARD);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-  return(result__F5QD);
-}
-
-static void* run_expr__IXUE(__LIP_CALL *Self__JXUE)
-// ({LIP_CALL}) With resultRecursive, No inlinable.
-{
-  void *str__MXUE,*__tmp__CYUE;
-  void *val__NXUE,*result__OXUE,*__tmp__XXUE,*__tmp__J1UE,*__tmp__K1UE;
-  void *__tmp__WXUE;
-  __LIP_INTEGER *Self__QS4F;
-  __LIP_STRING *Self__BPIG;
-  __POSITION pos__EK2G,pos__B4KF;
-  __STRING *Self__35GH,*Self__3PIH,*Self__DQIH;
-  __INTEGER new_capacity__WPIH,old_nb_elts__ZPIH,upper__KELH,Self__IELH;
-  __INTEGER state__KHXF,Self__OZGG,new_capacity__2PIH,old_nb_elts__5PIH;
-  __INTEGER upper__PELH,Self__NELH,new_capacity__CQIH,old_nb_elts__FQIH;
-  __INTEGER upper__UELH,Self__SELH;
-  __CHARACTER *Self__YPIH,*new__0PIH,*Self__4PIH,*new__AQIH,*Self__EQIH;
-  __CHARACTER *new__GQIH;
-  __BOOLEAN __tmp__TYUE,__tmp__FZUE,result__YXXE,sign__LHXF,__tmp__3IXF;
-  __BOOLEAN result__HIGH,__tmp__KJXF,result__VGQG,__tmp__3JXF;
-  __BOOLEAN result__KIGH,result__NIGH,result__2ZEH,result__3ZEH;
-  __CHARACTER Self__DACH,Self__IIGH,Self__EACH,Self__LIGH,Self__OIGH;
-  __CHARACTER mem__GGMF,ch__BQIH;
-  __FAST_ARRAYoLIP_SLOT_DATAo *Self__WCQF;
-  str__MXUE=NULL;
-  val__NXUE=NULL;
-  result__OXUE=NULL;
-  if (((void *)Self__JXUE->argument__4QUE != (void *)NULL)) {
-    __tmp__WXUE=Self__JXUE->argument__4QUE;
-    switch (((struct ___OBJ *)__tmp__WXUE)->__id) {
-    case __LIP_BINARY__: {
-      __tmp__XXUE=run_expr__D2QD(__tmp__WXUE);
-    } break;
-    case __LIP_UNARY__: {
-      __tmp__XXUE=run_expr__C5QD(__tmp__WXUE);
-    } break;
-    case __LIP_CALL__: {
-      __tmp__XXUE=run_expr__IXUE(__tmp__WXUE);
-    } break;
-    case __LIP_VALUE__: {
-      __tmp__J1UE=((__LIP_VALUE *)__tmp__WXUE)->value__I1UE;
-      switch (((struct ___OBJ *)__tmp__J1UE)->__id) {
-      case __LIP_BOOLEAN__: {
-        __tmp__K1UE=((__LIP_BOOLEAN *)__tmp__J1UE);
-      } break;
-      case __LIP_INTEGER__: {
-        Self__QS4F=((__LIP_INTEGER *)__tmp__J1UE);
-        __tmp__K1UE=get__UYSE(Self__QS4F,Self__QS4F->value__FP4F);
-      } break;
-      case __LIP_STRING__: {
-        Self__BPIG=((__LIP_STRING *)__tmp__J1UE);
-        __tmp__K1UE=get__34FF(Self__BPIG,Self__BPIG->value__WSUE);
-      } break;
-      };
-      __tmp__XXUE=__tmp__K1UE;
-    } break;
-    };
-    val__NXUE=__tmp__XXUE;
-  };
-  if (((void *)Self__JXUE->name__JRUE == (void *)(&__string_93))) {
-    if (val__NXUE==NULL) {
-      __tmp__CYUE=NULL;
-    } else {
-      switch (((struct ___OBJ *)val__NXUE)->__id) {
-      case __LIP_BOOLEAN__: {
-        __tmp__CYUE=NULL;
-      } break;
-      case __LIP_INTEGER__: {
-        __tmp__CYUE=NULL;
-      } break;
-      case __LIP_STRING__: {
-        __tmp__CYUE=((void *)val__NXUE);
-      } break;
-      }
-    };
-    str__MXUE=__tmp__CYUE;
-    if (((void *)__tmp__CYUE == (void *)NULL)) {
-      pos__EK2G=Self__JXUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-      put_error__text__1PG( 1,(&__string_312));
-      put_position__FRG(pos__EK2G);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    ((__STRING *)string_tmp__VH)->count__SGC= 0;
-    append_in__FPIG(__tmp__CYUE,string_tmp__VH);
-    Self__35GH=((__STRING *)string_tmp__VH);
-    if ((Self__35GH->capacity__UCS > Self__35GH->count__SGC)) {
-      ((__CHARACTER *)Self__35GH->storage__3CS)[Self__35GH->count__SGC]='\0';
-    } else {
-      new_capacity__WPIH= 0;
-      if ((Self__35GH->capacity__UCS <= Self__35GH->count__SGC)) {
-        if ((Self__35GH->capacity__UCS ==  0)) {
-          Self__35GH->capacity__UCS= 32;
-          Self__35GH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__WPIH=(__INTEGER)(Self__35GH->capacity__UCS <<  1);
-          Self__YPIH=((__CHARACTER *)Self__35GH->storage__3CS);
-          old_nb_elts__ZPIH=Self__35GH->capacity__UCS;
-          new__0PIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__YPIH),((__UINTEGER_32 )old_nb_elts__ZPIH),((__UINTEGER_32 )new_capacity__WPIH)));
-          upper__KELH=(__INTEGER)(new_capacity__WPIH -  1);
-          Self__IELH=old_nb_elts__ZPIH;
-          while ((Self__IELH <= upper__KELH)) {
-            new__0PIH[Self__IELH]='\0';
-            Self__IELH=(__INTEGER)(Self__IELH +  1);
-          };
-          Self__35GH->storage__3CS=new__0PIH;
-          Self__35GH->capacity__UCS=new_capacity__WPIH;
-        };
-      };
-      ((__CHARACTER *)Self__35GH->storage__3CS)[Self__35GH->count__SGC]='\0';
-      Self__35GH->count__SGC=(__INTEGER)(Self__35GH->count__SGC +  1);
-      Self__35GH->count__SGC=(__INTEGER)(Self__35GH->count__SGC -  1);
-    };
-    result__OXUE=get__UYSE(LIP_INTEGER__,((__INTEGER )(system(((char*)((Self__35GH->storage__3CS)))))));
-    __tmp__TYUE=TRUE__;
-  } else {
-    __tmp__TYUE=FALSE__;
-  };
-  if (__tmp__TYUE) {
-    __tmp__FZUE=TRUE__;
-  } else {
-    result__YXXE=((void *)Self__JXUE->name__JRUE == (void *)(&__string_106));
-    if (result__YXXE) {
-      state__KHXF= 0;
-      sign__LHXF=FALSE__;
-      while ((state__KHXF <=  2)) {
-        if (push_back_flag__P0MF) {
-          push_back_flag__P0MF=FALSE__;
-        } else {
-          memory__OGMF=((__CHARACTER )(fgetc(stdin)));
-        };
-        if ((state__KHXF ==  0)) {
-          Self__DACH=memory__OGMF;
-          if ((((((((Self__DACH == ' ') || (Self__DACH == '\t')) || (Self__DACH == '\n')) || (Self__DACH == '\r')) || (Self__DACH == '\0')) || (Self__DACH == '\f')) || (Self__DACH == '\v'))) {
-            __tmp__3IXF=TRUE__;
-          } else {
-            Self__IIGH=memory__OGMF;
-            result__HIGH=FALSE__;
-            if ((((__INTEGER_8 )Self__IIGH) >= ((__INTEGER_8 )'0'))) {
-              result__HIGH=(((__INTEGER_8 )Self__IIGH) <= ((__INTEGER_8 )'9'));
-            };
-            if (result__HIGH) {
-              last_integer__AZUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__OGMF)) -  48);
-              state__KHXF= 2;
-            };
-            __tmp__3IXF=result__HIGH;
-          };
-          if (__tmp__3IXF) {
-            __tmp__KJXF=TRUE__;
-          } else {
-            result__VGQG=(memory__OGMF == '-');
-            if (result__VGQG) {
-              sign__LHXF=TRUE__;
-              state__KHXF= 1;
-            };
-            __tmp__KJXF=result__VGQG;
-          };
-          if ((! __tmp__KJXF)) {
-            if ((memory__OGMF == '+')) {
-              state__KHXF= 1;
-            } else {
-              state__KHXF= 4;
-            };
-          };
-          __tmp__3JXF=TRUE__;
-        } else {
-          __tmp__3JXF=FALSE__;
-        };
-        if ((! __tmp__3JXF)) {
-          if ((state__KHXF ==  1)) {
-            Self__EACH=memory__OGMF;
-            if ((! (((((((Self__EACH == ' ') || (Self__EACH == '\t')) || (Self__EACH == '\n')) || (Self__EACH == '\r')) || (Self__EACH == '\0')) || (Self__EACH == '\f')) || (Self__EACH == '\v')))) {
-              Self__LIGH=memory__OGMF;
-              result__KIGH=FALSE__;
-              if ((((__INTEGER_8 )Self__LIGH) >= ((__INTEGER_8 )'0'))) {
-                result__KIGH=(((__INTEGER_8 )Self__LIGH) <= ((__INTEGER_8 )'9'));
-              };
-              if (result__KIGH) {
-                last_integer__AZUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__OGMF)) -  48);
-                state__KHXF= 2;
-              } else {
-                state__KHXF= 4;
-              };
-            };
-          } else {
-            Self__OIGH=memory__OGMF;
-            result__NIGH=FALSE__;
-            if ((((__INTEGER_8 )Self__OIGH) >= ((__INTEGER_8 )'0'))) {
-              result__NIGH=(((__INTEGER_8 )Self__OIGH) <= ((__INTEGER_8 )'9'));
-            };
-            if (result__NIGH) {
-              last_integer__AZUE=(__INTEGER)((__INTEGER)(last_integer__AZUE *  10) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__OGMF)) -  48));
-            } else {
-              state__KHXF= 3;
-            };
-          };
-        };
-        result__2ZEH=FALSE__;
-        if ((! push_back_flag__P0MF)) {
-          result__2ZEH=(memory__OGMF == ((__CHARACTER )(EOF)));
-        };
-        if (result__2ZEH) {
-          Self__OZGG=state__KHXF;
-          if (((state__KHXF >=  0) && (state__KHXF <=  1))) {
-            state__KHXF= 4;
-          };
-          if (((Self__OZGG >=  2) && (Self__OZGG <=  3))) {
-            state__KHXF= 3;
-          };
-        };
-      };
-      result__3ZEH=FALSE__;
-      if ((! push_back_flag__P0MF)) {
-        result__3ZEH=(memory__OGMF == ((__CHARACTER )(EOF)));
-      };
-      if (result__3ZEH) {
-        push_back_flag__P0MF=TRUE__;
-      };
-      if ((state__KHXF ==  4)) {
-        print__OJD((&__string_331));
-        print__OJD((&__string_220));
-        fputc((int)('\n'),stdout);
-        exit(( 1));
-      };
-      if (sign__LHXF) {
-        last_integer__AZUE=(__INTEGER)(- last_integer__AZUE);
-      };
-      result__OXUE=get__UYSE(LIP_INTEGER__,last_integer__AZUE);
-    };
-    __tmp__FZUE=result__YXXE;
-  };
-  if ((! __tmp__FZUE)) {
-    if (((void *)Self__JXUE->name__JRUE == (void *)(&__string_107))) {
-      ((__STRING *)last_string__SZUE)->count__SGC= 0;
-      mem__GGMF='\0';
-      if (push_back_flag__P0MF) {
-        push_back_flag__P0MF=FALSE__;
-      } else {
-        memory__OGMF=((__CHARACTER )(fgetc(stdin)));
-      };
-      if (((memory__OGMF != '\n') && (memory__OGMF != ((__CHARACTER )(EOF))))) {
-        Self__3PIH=((__STRING *)last_string__SZUE);
-        ch__BQIH=memory__OGMF;
-        new_capacity__2PIH= 0;
-        if ((Self__3PIH->capacity__UCS <= Self__3PIH->count__SGC)) {
-          if ((Self__3PIH->capacity__UCS ==  0)) {
-            Self__3PIH->capacity__UCS= 32;
-            Self__3PIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__2PIH=(__INTEGER)(Self__3PIH->capacity__UCS <<  1);
-            Self__4PIH=((__CHARACTER *)Self__3PIH->storage__3CS);
-            old_nb_elts__5PIH=Self__3PIH->capacity__UCS;
-            new__AQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__4PIH),((__UINTEGER_32 )old_nb_elts__5PIH),((__UINTEGER_32 )new_capacity__2PIH)));
-            upper__PELH=(__INTEGER)(new_capacity__2PIH -  1);
-            Self__NELH=old_nb_elts__5PIH;
-            while ((Self__NELH <= upper__PELH)) {
-              new__AQIH[Self__NELH]='\0';
-              Self__NELH=(__INTEGER)(Self__NELH +  1);
-            };
-            Self__3PIH->storage__3CS=new__AQIH;
-            Self__3PIH->capacity__UCS=new_capacity__2PIH;
-          };
-        };
-        ((__CHARACTER *)Self__3PIH->storage__3CS)[Self__3PIH->count__SGC]=ch__BQIH;
-        Self__3PIH->count__SGC=(__INTEGER)(Self__3PIH->count__SGC +  1);
-        mem__GGMF=((__CHARACTER )(fgetc(stdin)));
-        while ((! ((mem__GGMF == ((__CHARACTER )(EOF))) || (mem__GGMF == '\n')))) {
-          Self__DQIH=((__STRING *)last_string__SZUE);
-          new_capacity__CQIH= 0;
-          if ((Self__DQIH->capacity__UCS <= Self__DQIH->count__SGC)) {
-            if ((Self__DQIH->capacity__UCS ==  0)) {
-              Self__DQIH->capacity__UCS= 32;
-              Self__DQIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__CQIH=(__INTEGER)(Self__DQIH->capacity__UCS <<  1);
-              Self__EQIH=((__CHARACTER *)Self__DQIH->storage__3CS);
-              old_nb_elts__FQIH=Self__DQIH->capacity__UCS;
-              new__GQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__EQIH),((__UINTEGER_32 )old_nb_elts__FQIH),((__UINTEGER_32 )new_capacity__CQIH)));
-              upper__UELH=(__INTEGER)(new_capacity__CQIH -  1);
-              Self__SELH=old_nb_elts__FQIH;
-              while ((Self__SELH <= upper__UELH)) {
-                new__GQIH[Self__SELH]='\0';
-                Self__SELH=(__INTEGER)(Self__SELH +  1);
-              };
-              Self__DQIH->storage__3CS=new__GQIH;
-              Self__DQIH->capacity__UCS=new_capacity__CQIH;
-            };
-          };
-          ((__CHARACTER *)Self__DQIH->storage__3CS)[Self__DQIH->count__SGC]=mem__GGMF;
-          Self__DQIH->count__SGC=(__INTEGER)(Self__DQIH->count__SGC +  1);
-          mem__GGMF=((__CHARACTER )(fgetc(stdin)));
-        };
-        memory__OGMF=mem__GGMF;
-      };
-      result__OXUE=get__34FF(LIP_STRING__,get__YWB(last_string__SZUE));
-    } else {
-      if (((void *)fast_reference_at__PXRD(list_data__HONC,Self__JXUE->name__JRUE) == (void *)NULL)) {
-        Self__WCQF=((__FAST_ARRAYoLIP_SLOT_DATAo *)stack__I0UE);
-        if (((void *)((void **)Self__WCQF->parent_arrayed_collection__H0UE.storage__SJQF)[Self__WCQF->parent_arrayed_collection__H0UE.upper__ADQF] == (void *)NULL)) {
-          copy__VDS(string_tmp__VH,(&__string_309));
-          append__3OS(string_tmp__VH,Self__JXUE->name__JRUE);
-          append__3OS(string_tmp__VH,(&__string_310));
-          pos__B4KF=Self__JXUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-          put_error__text__1PG( 1,string_tmp__VH);
-          put_position__FRG(pos__B4KF);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-      };
-      print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
-      result__OXUE=NULL;
-    };
-  };
-  if (((void *)val__NXUE != (void *)NULL)) {
-    switch (((struct ___OBJ *)val__NXUE)->__id) {
-    case __LIP_BOOLEAN__: {
-    } break;
-    case __LIP_INTEGER__: {
-      free__3D4F(val__NXUE);
-    } break;
-    case __LIP_STRING__: {
-      free__LIIG(val__NXUE);
-    } break;
-    };
-  };
-  return(result__OXUE);
-}
-
-static void* get__UYSE(__LIP_INTEGER *Self__VYSE,__INTEGER i__WYSE)
-// ({LIP_INTEGER},{INTEGER}) With resultNo recursive, No inlinable.
-{
-  void *result__YYSE;
-  __LIP_INTEGER *result__I1SF;
-  __POINTER ptr__J1SF,ptr_table__XELH,next__WELH,result__YELH;
-  __POINTER ptr_table__2ELH,next__1ELH,result__3ELH;
-  __INTEGER typ_id__O1SF;
-  __UINTEGER_32 sz__L1SF,a__4LGH,new_size__5LGH,t__DMGH,a__CMGH;
-  __UINTEGER_32 new_size__5ELH,lab_type__4ELH;
-  __FAST_ARRAYoLIP_INTEGERo *Self__XC4E,*Self__ND4E;
-  result__YYSE=NULL;
-  if ((((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE)->parent_arrayed_collection__3YSE.upper__GIXE <  0)) {
-    result__I1SF=NULL;
-    ptr__J1SF=((__POINTER )(NULL));
-    typ_id__O1SF= 0;
-    sz__L1SF=((__UINTEGER_32 )sizeof(__LIP_INTEGER));
-    if ((sz__L1SF ==  0)) {
-      result__I1SF=Self__VYSE;
-    } else {
-      typ_id__O1SF=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__L1SF);
-      if ((typ_id__O1SF == (__INTEGER)(-  1))) {
-        a__4LGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__5LGH=(__UINTEGER_32)((__UINTEGER_32)(sz__L1SF + a__4LGH) & (__UINTEGER_32)(~ a__4LGH));
-        ptr_table__XELH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5LGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__WELH=((__POINTER )(NULL));
-        result__YELH=((__POINTER *)ptr_table__XELH)[ 0];
-        if ((result__YELH == (void *)NULL)) {
-          result__YELH=new_lab__RTJ(new_size__5LGH);
-          next__WELH=(void *)((unsigned long)result__YELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LGH)));
-          ((__POINTER *)next__WELH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__XELH)[ 0]=next__WELH;
-        } else {
-          next__WELH=((__POINTER *)result__YELH)[ 0];
-          if ((next__WELH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YELH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5LGH <<  1)) <=  4096)) {
-              next__WELH=(void *)((unsigned long)result__YELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LGH)));
-            } else {
-              next__WELH=new_lab__RTJ(new_size__5LGH);
-            };
-            ((__POINTER *)next__WELH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__XELH)[ 0]=next__WELH;
-          } else {
-            ((__POINTER *)result__YELH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WELH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__YELH=next__WELH;
-          };
-        };
-        ptr__J1SF=result__YELH;
-      } else {
-        t__DMGH=((__UINTEGER_32 )typ_id__O1SF);
-        a__CMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__5ELH=(__UINTEGER_32)((__UINTEGER_32)(sz__L1SF + a__CMGH) & (__UINTEGER_32)(~ a__CMGH));
-        ptr_table__2ELH=((__POINTER )(&(table_type[(t__DMGH)])));
-        lab_type__4ELH=(__UINTEGER_32)(t__DMGH |  1);
-        next__1ELH=((__POINTER )(NULL));
-        result__3ELH=((__POINTER *)ptr_table__2ELH)[ 0];
-        if ((result__3ELH == (void *)NULL)) {
-          result__3ELH=new_lab__RTJ(lab_type__4ELH);
-          next__1ELH=(void *)((unsigned long)result__3ELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ELH)));
-          ((__POINTER *)next__1ELH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2ELH)[ 0]=next__1ELH;
-        } else {
-          next__1ELH=((__POINTER *)result__3ELH)[ 0];
-          if ((next__1ELH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3ELH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5ELH <<  1)) <=  4096)) {
-              next__1ELH=(void *)((unsigned long)result__3ELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ELH)));
-            } else {
-              next__1ELH=new_lab__RTJ(lab_type__4ELH);
-            };
-            ((__POINTER *)next__1ELH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__2ELH)[ 0]=next__1ELH;
-          } else {
-            ((__POINTER *)result__3ELH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1ELH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__3ELH=next__1ELH;
-          };
-        };
-        ptr__J1SF=result__3ELH;
-      };
-      result__I1SF=((__LIP_INTEGER *)ptr__J1SF);
-      *(result__I1SF) = *(Self__VYSE);
-    };
-    result__YYSE=result__I1SF;
-  } else {
-    Self__XC4E=((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE);
-    result__YYSE=((void **)Self__XC4E->parent_arrayed_collection__3YSE.storage__TMXE)[Self__XC4E->parent_arrayed_collection__3YSE.upper__GIXE];
-    Self__ND4E=((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE);
-    Self__ND4E->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(Self__ND4E->parent_arrayed_collection__3YSE.upper__GIXE -  1);
-  };
-  ((__LIP_INTEGER *)result__YYSE)->value__FP4F=i__WYSE;
-  return(result__YYSE);
-}
-
-static void* get__34FF(__LIP_STRING *Self__44FF,void *str__54FF)
-// ({LIP_STRING},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *result__B5FF;
-  __LIP_STRING *result__BSBG;
-  __POINTER ptr__CSBG,ptr_table__BFLH,next__AFLH,result__CFLH;
-  __POINTER ptr_table__GFLH,next__FFLH,result__HFLH;
-  __INTEGER typ_id__HSBG;
-  __UINTEGER_32 sz__ESBG,a__GMGH,new_size__HMGH,t__LMGH,a__KMGH;
-  __UINTEGER_32 new_size__JFLH,lab_type__IFLH;
-  __FAST_ARRAYoLIP_STRINGo *Self__IPTF,*Self__4PTF;
-  result__B5FF=NULL;
-  if ((((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF)->parent_arrayed_collection__G5FF.upper__WZPF <  0)) {
-    result__BSBG=NULL;
-    ptr__CSBG=((__POINTER )(NULL));
-    typ_id__HSBG= 0;
-    sz__ESBG=((__UINTEGER_32 )sizeof(__LIP_STRING));
-    if ((sz__ESBG ==  0)) {
-      result__BSBG=Self__44FF;
-    } else {
-      typ_id__HSBG=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ESBG);
-      if ((typ_id__HSBG == (__INTEGER)(-  1))) {
-        a__GMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__HMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__ESBG + a__GMGH) & (__UINTEGER_32)(~ a__GMGH));
-        ptr_table__BFLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__AFLH=((__POINTER )(NULL));
-        result__CFLH=((__POINTER *)ptr_table__BFLH)[ 0];
-        if ((result__CFLH == (void *)NULL)) {
-          result__CFLH=new_lab__RTJ(new_size__HMGH);
-          next__AFLH=(void *)((unsigned long)result__CFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMGH)));
-          ((__POINTER *)next__AFLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BFLH)[ 0]=next__AFLH;
-        } else {
-          next__AFLH=((__POINTER *)result__CFLH)[ 0];
-          if ((next__AFLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CFLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HMGH <<  1)) <=  4096)) {
-              next__AFLH=(void *)((unsigned long)result__CFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMGH)));
-            } else {
-              next__AFLH=new_lab__RTJ(new_size__HMGH);
-            };
-            ((__POINTER *)next__AFLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BFLH)[ 0]=next__AFLH;
-          } else {
-            ((__POINTER *)result__CFLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AFLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__CFLH=next__AFLH;
-          };
-        };
-        ptr__CSBG=result__CFLH;
-      } else {
-        t__LMGH=((__UINTEGER_32 )typ_id__HSBG);
-        a__KMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__JFLH=(__UINTEGER_32)((__UINTEGER_32)(sz__ESBG + a__KMGH) & (__UINTEGER_32)(~ a__KMGH));
-        ptr_table__GFLH=((__POINTER )(&(table_type[(t__LMGH)])));
-        lab_type__IFLH=(__UINTEGER_32)(t__LMGH |  1);
-        next__FFLH=((__POINTER )(NULL));
-        result__HFLH=((__POINTER *)ptr_table__GFLH)[ 0];
-        if ((result__HFLH == (void *)NULL)) {
-          result__HFLH=new_lab__RTJ(lab_type__IFLH);
-          next__FFLH=(void *)((unsigned long)result__HFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JFLH)));
-          ((__POINTER *)next__FFLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GFLH)[ 0]=next__FFLH;
-        } else {
-          next__FFLH=((__POINTER *)result__HFLH)[ 0];
-          if ((next__FFLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HFLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JFLH <<  1)) <=  4096)) {
-              next__FFLH=(void *)((unsigned long)result__HFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JFLH)));
-            } else {
-              next__FFLH=new_lab__RTJ(lab_type__IFLH);
-            };
-            ((__POINTER *)next__FFLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GFLH)[ 0]=next__FFLH;
-          } else {
-            ((__POINTER *)result__HFLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FFLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__HFLH=next__FFLH;
-          };
-        };
-        ptr__CSBG=result__HFLH;
-      };
-      result__BSBG=((__LIP_STRING *)ptr__CSBG);
-      *(result__BSBG) = *(Self__44FF);
-    };
-    result__B5FF=result__BSBG;
-  } else {
-    Self__IPTF=((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF);
-    result__B5FF=((void **)Self__IPTF->parent_arrayed_collection__G5FF.storage__JBQF)[Self__IPTF->parent_arrayed_collection__G5FF.upper__WZPF];
-    Self__4PTF=((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF);
-    Self__4PTF->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(Self__4PTF->parent_arrayed_collection__G5FF.upper__WZPF -  1);
-  };
-  ((__LIP_STRING *)result__B5FF)->value__WSUE=str__54FF;
-  return(result__B5FF);
-}
-
-static void free__3D4F(__LIP_INTEGER *Self__4D4F)
-// ({LIP_INTEGER}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__0U5F,__tmp__4V5F,__tmp__M4GG,Self__JJJG;
-  __FAST_ARRAYoLIP_INTEGERo *Self__YU5F;
-  __BOOLEAN __tmp__IV5F;
-  void **__tmp__3V5F,**new__Y3GG;
-  Self__YU5F=((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE);
-  new_capacity__0U5F= 0;
-  if (((__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE +  1) <= (__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE -  1))) {
-    Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE +  1);
-    __tmp__IV5F=TRUE__;
-  } else {
-    __tmp__IV5F=FALSE__;
-  };
-  if ((! __tmp__IV5F)) {
-    if ((Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE ==  0)) {
-      Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE=create__JPGF( 2);
-      Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE= 2;
-      Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE= 0;
-    } else {
-      new_capacity__0U5F=(__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE <<  1);
-      __tmp__3V5F=Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE;
-      __tmp__4V5F=Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE;
-      new__Y3GG=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__3V5F)),((__UINTEGER_32 )(__INTEGER)(__tmp__4V5F * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__0U5F * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__M4GG=(__INTEGER)(new_capacity__0U5F -  1);
-      Self__JJJG=__tmp__4V5F;
-      while ((Self__JJJG <= __tmp__M4GG)) {
-        new__Y3GG[Self__JJJG]=NULL;
-        Self__JJJG=(__INTEGER)(Self__JJJG +  1);
-      };
-      Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE=new__Y3GG;
-      Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE=new_capacity__0U5F;
-      Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE +  1);
-    };
-  };
-  ((void **)Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE)[Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE]=Self__4D4F;
-}
-
-static void free__LIIG(__LIP_STRING *Self__MIIG)
-// ({LIP_STRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__FBJG,__tmp__JCJG,__tmp__2JMG,Self__PVNG;
-  __FAST_ARRAYoLIP_STRINGo *Self__DBJG;
-  __BOOLEAN __tmp__TBJG;
-  void **__tmp__ICJG,**new__IJMG;
-  Self__DBJG=((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF);
-  new_capacity__FBJG= 0;
-  if (((__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF +  1) <= (__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF -  1))) {
-    Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF +  1);
-    __tmp__TBJG=TRUE__;
-  } else {
-    __tmp__TBJG=FALSE__;
-  };
-  if ((! __tmp__TBJG)) {
-    if ((Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF ==  0)) {
-      Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF=create__ARYF( 2);
-      Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF= 2;
-      Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF= 0;
-    } else {
-      new_capacity__FBJG=(__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF <<  1);
-      __tmp__ICJG=Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF;
-      __tmp__JCJG=Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF;
-      new__IJMG=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__ICJG)),((__UINTEGER_32 )(__INTEGER)(__tmp__JCJG * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__FBJG * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__2JMG=(__INTEGER)(new_capacity__FBJG -  1);
-      Self__PVNG=__tmp__JCJG;
-      while ((Self__PVNG <= __tmp__2JMG)) {
-        new__IJMG[Self__PVNG]=NULL;
-        Self__PVNG=(__INTEGER)(Self__PVNG +  1);
-      };
-      Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF=new__IJMG;
-      Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF=new_capacity__FBJG;
-      Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF +  1);
-    };
-  };
-  ((void **)Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF)[Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF]=Self__MIIG;
-}
-
-static void load_directory__is_recursive__LEXF(__LIP_CALL *Self__MEXF,void *path__NEXF,__BOOLEAN is_rec__OEXF)
-// ({LIP_CALL},{NULLxSTRING_CONSTANT},{TRUExFALSE}) VoidRecursive, No inlinable.
-{
-  void *dir__QEXF,*__tmp__JFXF;
-  void *entry__PEXF;
-  __FILE_UNIX *Self__RDCH;
-  __INTEGER __tmp__NFXF,Self__CBOG;
-  void *__tmp__UFXF,*__tmp__3FXF,*__tmp__UGXF;
-  __POSITION __tmp__CHXF;
-  __BOOLEAN __tmp__XEXF,__tmp__BFXF,__tmp__4EXF,__tmp__CFXF,__tmp__AGXF;
-  __BOOLEAN __tmp__KGXF,__tmp__NGXF;
-  dir__QEXF=NULL;
-  if (FILE_SYSTEM__->parent_directory__HHD==0) {
-  } else {
-    parent_directory__GGD();
-  };
-  entry__PEXF=get_entry__DZAC(path__NEXF);
-  if (((void *)entry__PEXF != (void *)NULL)) {
-    if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
-      __tmp__XEXF=((void *)((__DIRECTORY_UNIX *)entry__PEXF) != (void *)NULL);
-    } else {
-      __tmp__XEXF=FALSE__;
-    };
-    __tmp__BFXF=__tmp__XEXF;
-  } else {
-    __tmp__BFXF=FALSE__;
-  };
-  if (__tmp__BFXF) {
-    if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
-      __tmp__4EXF=open__WHRD(entry__PEXF);
-    } else {
-      Self__RDCH=((__FILE_UNIX *)entry__PEXF);
-      Self__RDCH->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__RDCH->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
-      __tmp__4EXF=(Self__RDCH->stream__BMRD != (void *)NULL);
-    };
-    __tmp__CFXF=__tmp__4EXF;
-  } else {
-    __tmp__CFXF=FALSE__;
-  };
-  if (__tmp__CFXF) {
-    if (entry__PEXF==NULL) {
-      __tmp__JFXF=NULL;
-    } else {
-      switch (((struct ___OBJ *)entry__PEXF)->__id) {
-      case __DIRECTORY_UNIX__: {
-        __tmp__JFXF=((void *)entry__PEXF);
-      } break;
-      case __FILE_UNIX__: {
-        __tmp__JFXF=NULL;
-      } break;
-      }
-    };
-    dir__QEXF=__tmp__JFXF;
-    __tmp__NFXF=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__JFXF)->parent_directory__SGD.list__FIRD)->parent_linked_collection__EIRD.upper__HR3D;
-    Self__CBOG= 1;
-    while ((Self__CBOG <= __tmp__NFXF)) {
-      entry__PEXF=item__V3PE(dir__QEXF,Self__CBOG);
-      if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
-        __tmp__UFXF=((__DIRECTORY_UNIX *)entry__PEXF)->parent_entry_unix__RGD.parent_entry__QGD.name__OPT;
-      } else {
-        __tmp__UFXF=((__FILE_UNIX *)entry__PEXF)->parent_entry_unix__EFF.parent_entry__QGD.name__OPT;
-      };
-      if (has_suffix__QJS(__tmp__UFXF)) {
-        if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
-          __tmp__3FXF=((__DIRECTORY_UNIX *)entry__PEXF)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-        } else {
-          __tmp__3FXF=((__FILE_UNIX *)entry__PEXF)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-        };
-        add_last__SEPD(path_file__1FXF,__tmp__3FXF);
-        __tmp__AGXF=TRUE__;
-      } else {
-        __tmp__AGXF=FALSE__;
-      };
-      if ((! __tmp__AGXF)) {
-        if (is_rec__OEXF) {
-          if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
-            __tmp__KGXF=((void *)((__DIRECTORY_UNIX *)entry__PEXF) != (void *)NULL);
-          } else {
-            __tmp__KGXF=FALSE__;
-          };
-          __tmp__NGXF=__tmp__KGXF;
-        } else {
-          __tmp__NGXF=FALSE__;
-        };
-        if (__tmp__NGXF) {
-          if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
-            __tmp__UGXF=((__DIRECTORY_UNIX *)entry__PEXF)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
-          } else {
-            __tmp__UGXF=((__FILE_UNIX *)entry__PEXF)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
-          };
-          load_directory__is_recursive__LEXF(Self__MEXF,__tmp__UGXF,TRUE__);
-        };
-      };
-      Self__CBOG=(__INTEGER)(Self__CBOG +  1);
-    };
-  } else {
-    copy__VDS(string_tmp__VH,(&__string_332));
-    append__3OS(string_tmp__VH,path__NEXF);
-    append__3OS(string_tmp__VH,(&__string_293));
-    __tmp__CHXF=Self__MEXF->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
-    put_error__text__1PG( 2,string_tmp__VH);
-    put_position__FRG(__tmp__CHXF);
-    put_string__33F(msg_err__AQG);
-    if ((type_error__5PG !=  2)) {
-      exit(( 1));
-    };
-  };
-}
-
-static void append_in__FPIG(__LIP_STRING *Self__GPIG,void *str__HPIG)
-// ({LIP_STRING},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
-  __INTEGER i__IPIG,new_capacity__IQIH,old_nb_elts__LQIH,upper__NFLH;
-  __INTEGER Self__LFLH,new_capacity__OQIH,old_nb_elts__RQIH,upper__SFLH;
-  __INTEGER Self__QFLH,new_capacity__UQIH,old_nb_elts__XQIH,upper__XFLH;
-  __INTEGER Self__VFLH,new_capacity__0QIH,old_nb_elts__3QIH,upper__2FLH;
-  __INTEGER Self__0FLH,new_capacity__ARIH,old_nb_elts__DRIH,upper__BGLH;
-  __INTEGER Self__5FLH,new_capacity__GRIH,old_nb_elts__JRIH,upper__GGLH;
-  __INTEGER Self__EGLH,new_capacity__MRIH,old_nb_elts__PRIH,upper__LGLH;
-  __INTEGER Self__JGLH,new_capacity__SRIH,old_nb_elts__VRIH,upper__QGLH;
-  __INTEGER Self__OGLH,new_capacity__YRIH,old_nb_elts__1RIH,upper__VGLH;
-  __INTEGER Self__TGLH,new_capacity__4RIH,old_nb_elts__BSIH,upper__0GLH;
-  __INTEGER Self__YGLH,new_capacity__ESIH,old_nb_elts__HSIH,upper__5GLH;
-  __INTEGER Self__3GLH,new_capacity__KSIH,old_nb_elts__NSIH,upper__EHLH;
-  __INTEGER Self__CHLH,new_capacity__QSIH,old_nb_elts__TSIH,upper__JHLH;
-  __INTEGER Self__HHLH;
-  __STRING *Self__JQIH,*Self__PQIH,*Self__VQIH,*Self__1QIH,*Self__BRIH;
-  __STRING *Self__HRIH,*Self__NRIH,*Self__TRIH,*Self__ZRIH,*Self__5RIH;
-  __STRING *Self__FSIH,*Self__LSIH,*Self__RSIH;
-  __CHARACTER car__JPIG;
-  __CHARACTER *Self__KQIH,*new__MQIH,*Self__QQIH,*new__SQIH,*Self__WQIH;
-  __CHARACTER *new__YQIH,*Self__2QIH,*new__4QIH,*Self__CRIH,*new__ERIH;
-  __CHARACTER *Self__IRIH,*new__KRIH,*Self__ORIH,*new__QRIH,*Self__URIH;
-  __CHARACTER *new__WRIH,*Self__0RIH,*new__2RIH,*Self__ASIH,*new__CSIH;
-  __CHARACTER *Self__GSIH,*new__ISIH,*Self__MSIH,*new__OSIH,*Self__SSIH;
-  __CHARACTER *new__USIH;
-  car__JPIG='\0';
-  i__IPIG= 1;
-  while ((i__IPIG <= ((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->count__DD)) {
-    car__JPIG=((__CHARACTER *)((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->storage__RRO)[(__INTEGER)(i__IPIG -  1)];
-    if ((car__JPIG == '\\')) {
-      i__IPIG=(__INTEGER)(i__IPIG +  1);
-      if ((i__IPIG <= ((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->count__DD)) {
-        car__JPIG=((__CHARACTER *)((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->storage__RRO)[(__INTEGER)(i__IPIG -  1)];
-        if ((car__JPIG == 'a')) {
-          Self__JQIH=((__STRING *)str__HPIG);
-          new_capacity__IQIH= 0;
-          if ((Self__JQIH->capacity__UCS <= Self__JQIH->count__SGC)) {
-            if ((Self__JQIH->capacity__UCS ==  0)) {
-              Self__JQIH->capacity__UCS= 32;
-              Self__JQIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__IQIH=(__INTEGER)(Self__JQIH->capacity__UCS <<  1);
-              Self__KQIH=((__CHARACTER *)Self__JQIH->storage__3CS);
-              old_nb_elts__LQIH=Self__JQIH->capacity__UCS;
-              new__MQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__KQIH),((__UINTEGER_32 )old_nb_elts__LQIH),((__UINTEGER_32 )new_capacity__IQIH)));
-              upper__NFLH=(__INTEGER)(new_capacity__IQIH -  1);
-              Self__LFLH=old_nb_elts__LQIH;
-              while ((Self__LFLH <= upper__NFLH)) {
-                new__MQIH[Self__LFLH]='\0';
-                Self__LFLH=(__INTEGER)(Self__LFLH +  1);
-              };
-              Self__JQIH->storage__3CS=new__MQIH;
-              Self__JQIH->capacity__UCS=new_capacity__IQIH;
-            };
-          };
-          ((__CHARACTER *)Self__JQIH->storage__3CS)[Self__JQIH->count__SGC]='\a';
-          Self__JQIH->count__SGC=(__INTEGER)(Self__JQIH->count__SGC +  1);
-        };
-        if ((car__JPIG == 'b')) {
-          Self__PQIH=((__STRING *)str__HPIG);
-          new_capacity__OQIH= 0;
-          if ((Self__PQIH->capacity__UCS <= Self__PQIH->count__SGC)) {
-            if ((Self__PQIH->capacity__UCS ==  0)) {
-              Self__PQIH->capacity__UCS= 32;
-              Self__PQIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__OQIH=(__INTEGER)(Self__PQIH->capacity__UCS <<  1);
-              Self__QQIH=((__CHARACTER *)Self__PQIH->storage__3CS);
-              old_nb_elts__RQIH=Self__PQIH->capacity__UCS;
-              new__SQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QQIH),((__UINTEGER_32 )old_nb_elts__RQIH),((__UINTEGER_32 )new_capacity__OQIH)));
-              upper__SFLH=(__INTEGER)(new_capacity__OQIH -  1);
-              Self__QFLH=old_nb_elts__RQIH;
-              while ((Self__QFLH <= upper__SFLH)) {
-                new__SQIH[Self__QFLH]='\0';
-                Self__QFLH=(__INTEGER)(Self__QFLH +  1);
-              };
-              Self__PQIH->storage__3CS=new__SQIH;
-              Self__PQIH->capacity__UCS=new_capacity__OQIH;
-            };
-          };
-          ((__CHARACTER *)Self__PQIH->storage__3CS)[Self__PQIH->count__SGC]='\b';
-          Self__PQIH->count__SGC=(__INTEGER)(Self__PQIH->count__SGC +  1);
-        };
-        if ((car__JPIG == 'f')) {
-          Self__VQIH=((__STRING *)str__HPIG);
-          new_capacity__UQIH= 0;
-          if ((Self__VQIH->capacity__UCS <= Self__VQIH->count__SGC)) {
-            if ((Self__VQIH->capacity__UCS ==  0)) {
-              Self__VQIH->capacity__UCS= 32;
-              Self__VQIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__UQIH=(__INTEGER)(Self__VQIH->capacity__UCS <<  1);
-              Self__WQIH=((__CHARACTER *)Self__VQIH->storage__3CS);
-              old_nb_elts__XQIH=Self__VQIH->capacity__UCS;
-              new__YQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WQIH),((__UINTEGER_32 )old_nb_elts__XQIH),((__UINTEGER_32 )new_capacity__UQIH)));
-              upper__XFLH=(__INTEGER)(new_capacity__UQIH -  1);
-              Self__VFLH=old_nb_elts__XQIH;
-              while ((Self__VFLH <= upper__XFLH)) {
-                new__YQIH[Self__VFLH]='\0';
-                Self__VFLH=(__INTEGER)(Self__VFLH +  1);
-              };
-              Self__VQIH->storage__3CS=new__YQIH;
-              Self__VQIH->capacity__UCS=new_capacity__UQIH;
-            };
-          };
-          ((__CHARACTER *)Self__VQIH->storage__3CS)[Self__VQIH->count__SGC]='\f';
-          Self__VQIH->count__SGC=(__INTEGER)(Self__VQIH->count__SGC +  1);
-        };
-        if ((car__JPIG == 'n')) {
-          Self__1QIH=((__STRING *)str__HPIG);
-          new_capacity__0QIH= 0;
-          if ((Self__1QIH->capacity__UCS <= Self__1QIH->count__SGC)) {
-            if ((Self__1QIH->capacity__UCS ==  0)) {
-              Self__1QIH->capacity__UCS= 32;
-              Self__1QIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__0QIH=(__INTEGER)(Self__1QIH->capacity__UCS <<  1);
-              Self__2QIH=((__CHARACTER *)Self__1QIH->storage__3CS);
-              old_nb_elts__3QIH=Self__1QIH->capacity__UCS;
-              new__4QIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2QIH),((__UINTEGER_32 )old_nb_elts__3QIH),((__UINTEGER_32 )new_capacity__0QIH)));
-              upper__2FLH=(__INTEGER)(new_capacity__0QIH -  1);
-              Self__0FLH=old_nb_elts__3QIH;
-              while ((Self__0FLH <= upper__2FLH)) {
-                new__4QIH[Self__0FLH]='\0';
-                Self__0FLH=(__INTEGER)(Self__0FLH +  1);
-              };
-              Self__1QIH->storage__3CS=new__4QIH;
-              Self__1QIH->capacity__UCS=new_capacity__0QIH;
-            };
-          };
-          ((__CHARACTER *)Self__1QIH->storage__3CS)[Self__1QIH->count__SGC]='\n';
-          Self__1QIH->count__SGC=(__INTEGER)(Self__1QIH->count__SGC +  1);
-        };
-        if ((car__JPIG == 'r')) {
-          Self__BRIH=((__STRING *)str__HPIG);
-          new_capacity__ARIH= 0;
-          if ((Self__BRIH->capacity__UCS <= Self__BRIH->count__SGC)) {
-            if ((Self__BRIH->capacity__UCS ==  0)) {
-              Self__BRIH->capacity__UCS= 32;
-              Self__BRIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__ARIH=(__INTEGER)(Self__BRIH->capacity__UCS <<  1);
-              Self__CRIH=((__CHARACTER *)Self__BRIH->storage__3CS);
-              old_nb_elts__DRIH=Self__BRIH->capacity__UCS;
-              new__ERIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CRIH),((__UINTEGER_32 )old_nb_elts__DRIH),((__UINTEGER_32 )new_capacity__ARIH)));
-              upper__BGLH=(__INTEGER)(new_capacity__ARIH -  1);
-              Self__5FLH=old_nb_elts__DRIH;
-              while ((Self__5FLH <= upper__BGLH)) {
-                new__ERIH[Self__5FLH]='\0';
-                Self__5FLH=(__INTEGER)(Self__5FLH +  1);
-              };
-              Self__BRIH->storage__3CS=new__ERIH;
-              Self__BRIH->capacity__UCS=new_capacity__ARIH;
-            };
-          };
-          ((__CHARACTER *)Self__BRIH->storage__3CS)[Self__BRIH->count__SGC]='\r';
-          Self__BRIH->count__SGC=(__INTEGER)(Self__BRIH->count__SGC +  1);
-        };
-        if ((car__JPIG == 't')) {
-          Self__HRIH=((__STRING *)str__HPIG);
-          new_capacity__GRIH= 0;
-          if ((Self__HRIH->capacity__UCS <= Self__HRIH->count__SGC)) {
-            if ((Self__HRIH->capacity__UCS ==  0)) {
-              Self__HRIH->capacity__UCS= 32;
-              Self__HRIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__GRIH=(__INTEGER)(Self__HRIH->capacity__UCS <<  1);
-              Self__IRIH=((__CHARACTER *)Self__HRIH->storage__3CS);
-              old_nb_elts__JRIH=Self__HRIH->capacity__UCS;
-              new__KRIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IRIH),((__UINTEGER_32 )old_nb_elts__JRIH),((__UINTEGER_32 )new_capacity__GRIH)));
-              upper__GGLH=(__INTEGER)(new_capacity__GRIH -  1);
-              Self__EGLH=old_nb_elts__JRIH;
-              while ((Self__EGLH <= upper__GGLH)) {
-                new__KRIH[Self__EGLH]='\0';
-                Self__EGLH=(__INTEGER)(Self__EGLH +  1);
-              };
-              Self__HRIH->storage__3CS=new__KRIH;
-              Self__HRIH->capacity__UCS=new_capacity__GRIH;
-            };
-          };
-          ((__CHARACTER *)Self__HRIH->storage__3CS)[Self__HRIH->count__SGC]='\t';
-          Self__HRIH->count__SGC=(__INTEGER)(Self__HRIH->count__SGC +  1);
-        };
-        if ((car__JPIG == 'v')) {
-          Self__NRIH=((__STRING *)str__HPIG);
-          new_capacity__MRIH= 0;
-          if ((Self__NRIH->capacity__UCS <= Self__NRIH->count__SGC)) {
-            if ((Self__NRIH->capacity__UCS ==  0)) {
-              Self__NRIH->capacity__UCS= 32;
-              Self__NRIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__MRIH=(__INTEGER)(Self__NRIH->capacity__UCS <<  1);
-              Self__ORIH=((__CHARACTER *)Self__NRIH->storage__3CS);
-              old_nb_elts__PRIH=Self__NRIH->capacity__UCS;
-              new__QRIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ORIH),((__UINTEGER_32 )old_nb_elts__PRIH),((__UINTEGER_32 )new_capacity__MRIH)));
-              upper__LGLH=(__INTEGER)(new_capacity__MRIH -  1);
-              Self__JGLH=old_nb_elts__PRIH;
-              while ((Self__JGLH <= upper__LGLH)) {
-                new__QRIH[Self__JGLH]='\0';
-                Self__JGLH=(__INTEGER)(Self__JGLH +  1);
-              };
-              Self__NRIH->storage__3CS=new__QRIH;
-              Self__NRIH->capacity__UCS=new_capacity__MRIH;
-            };
-          };
-          ((__CHARACTER *)Self__NRIH->storage__3CS)[Self__NRIH->count__SGC]='\v';
-          Self__NRIH->count__SGC=(__INTEGER)(Self__NRIH->count__SGC +  1);
-        };
-        if ((car__JPIG == '\\')) {
-          Self__TRIH=((__STRING *)str__HPIG);
-          new_capacity__SRIH= 0;
-          if ((Self__TRIH->capacity__UCS <= Self__TRIH->count__SGC)) {
-            if ((Self__TRIH->capacity__UCS ==  0)) {
-              Self__TRIH->capacity__UCS= 32;
-              Self__TRIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__SRIH=(__INTEGER)(Self__TRIH->capacity__UCS <<  1);
-              Self__URIH=((__CHARACTER *)Self__TRIH->storage__3CS);
-              old_nb_elts__VRIH=Self__TRIH->capacity__UCS;
-              new__WRIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__URIH),((__UINTEGER_32 )old_nb_elts__VRIH),((__UINTEGER_32 )new_capacity__SRIH)));
-              upper__QGLH=(__INTEGER)(new_capacity__SRIH -  1);
-              Self__OGLH=old_nb_elts__VRIH;
-              while ((Self__OGLH <= upper__QGLH)) {
-                new__WRIH[Self__OGLH]='\0';
-                Self__OGLH=(__INTEGER)(Self__OGLH +  1);
-              };
-              Self__TRIH->storage__3CS=new__WRIH;
-              Self__TRIH->capacity__UCS=new_capacity__SRIH;
-            };
-          };
-          ((__CHARACTER *)Self__TRIH->storage__3CS)[Self__TRIH->count__SGC]='\\';
-          Self__TRIH->count__SGC=(__INTEGER)(Self__TRIH->count__SGC +  1);
-        };
-        if ((car__JPIG == '?')) {
-          Self__ZRIH=((__STRING *)str__HPIG);
-          new_capacity__YRIH= 0;
-          if ((Self__ZRIH->capacity__UCS <= Self__ZRIH->count__SGC)) {
-            if ((Self__ZRIH->capacity__UCS ==  0)) {
-              Self__ZRIH->capacity__UCS= 32;
-              Self__ZRIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__YRIH=(__INTEGER)(Self__ZRIH->capacity__UCS <<  1);
-              Self__0RIH=((__CHARACTER *)Self__ZRIH->storage__3CS);
-              old_nb_elts__1RIH=Self__ZRIH->capacity__UCS;
-              new__2RIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0RIH),((__UINTEGER_32 )old_nb_elts__1RIH),((__UINTEGER_32 )new_capacity__YRIH)));
-              upper__VGLH=(__INTEGER)(new_capacity__YRIH -  1);
-              Self__TGLH=old_nb_elts__1RIH;
-              while ((Self__TGLH <= upper__VGLH)) {
-                new__2RIH[Self__TGLH]='\0';
-                Self__TGLH=(__INTEGER)(Self__TGLH +  1);
-              };
-              Self__ZRIH->storage__3CS=new__2RIH;
-              Self__ZRIH->capacity__UCS=new_capacity__YRIH;
-            };
-          };
-          ((__CHARACTER *)Self__ZRIH->storage__3CS)[Self__ZRIH->count__SGC]='\?';
-          Self__ZRIH->count__SGC=(__INTEGER)(Self__ZRIH->count__SGC +  1);
-        };
-        if ((car__JPIG == '\'')) {
-          Self__5RIH=((__STRING *)str__HPIG);
-          new_capacity__4RIH= 0;
-          if ((Self__5RIH->capacity__UCS <= Self__5RIH->count__SGC)) {
-            if ((Self__5RIH->capacity__UCS ==  0)) {
-              Self__5RIH->capacity__UCS= 32;
-              Self__5RIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__4RIH=(__INTEGER)(Self__5RIH->capacity__UCS <<  1);
-              Self__ASIH=((__CHARACTER *)Self__5RIH->storage__3CS);
-              old_nb_elts__BSIH=Self__5RIH->capacity__UCS;
-              new__CSIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ASIH),((__UINTEGER_32 )old_nb_elts__BSIH),((__UINTEGER_32 )new_capacity__4RIH)));
-              upper__0GLH=(__INTEGER)(new_capacity__4RIH -  1);
-              Self__YGLH=old_nb_elts__BSIH;
-              while ((Self__YGLH <= upper__0GLH)) {
-                new__CSIH[Self__YGLH]='\0';
-                Self__YGLH=(__INTEGER)(Self__YGLH +  1);
-              };
-              Self__5RIH->storage__3CS=new__CSIH;
-              Self__5RIH->capacity__UCS=new_capacity__4RIH;
-            };
-          };
-          ((__CHARACTER *)Self__5RIH->storage__3CS)[Self__5RIH->count__SGC]='\'';
-          Self__5RIH->count__SGC=(__INTEGER)(Self__5RIH->count__SGC +  1);
-        };
-        if ((car__JPIG == '\"')) {
-          Self__FSIH=((__STRING *)str__HPIG);
-          new_capacity__ESIH= 0;
-          if ((Self__FSIH->capacity__UCS <= Self__FSIH->count__SGC)) {
-            if ((Self__FSIH->capacity__UCS ==  0)) {
-              Self__FSIH->capacity__UCS= 32;
-              Self__FSIH->storage__3CS=create__YIEB( 32);
-            } else {
-              new_capacity__ESIH=(__INTEGER)(Self__FSIH->capacity__UCS <<  1);
-              Self__GSIH=((__CHARACTER *)Self__FSIH->storage__3CS);
-              old_nb_elts__HSIH=Self__FSIH->capacity__UCS;
-              new__ISIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GSIH),((__UINTEGER_32 )old_nb_elts__HSIH),((__UINTEGER_32 )new_capacity__ESIH)));
-              upper__5GLH=(__INTEGER)(new_capacity__ESIH -  1);
-              Self__3GLH=old_nb_elts__HSIH;
-              while ((Self__3GLH <= upper__5GLH)) {
-                new__ISIH[Self__3GLH]='\0';
-                Self__3GLH=(__INTEGER)(Self__3GLH +  1);
-              };
-              Self__FSIH->storage__3CS=new__ISIH;
-              Self__FSIH->capacity__UCS=new_capacity__ESIH;
-            };
-          };
-          ((__CHARACTER *)Self__FSIH->storage__3CS)[Self__FSIH->count__SGC]='\"';
-          Self__FSIH->count__SGC=(__INTEGER)(Self__FSIH->count__SGC +  1);
-        };
-      } else {
-        Self__LSIH=((__STRING *)str__HPIG);
-        new_capacity__KSIH= 0;
-        if ((Self__LSIH->capacity__UCS <= Self__LSIH->count__SGC)) {
-          if ((Self__LSIH->capacity__UCS ==  0)) {
-            Self__LSIH->capacity__UCS= 32;
-            Self__LSIH->storage__3CS=create__YIEB( 32);
-          } else {
-            new_capacity__KSIH=(__INTEGER)(Self__LSIH->capacity__UCS <<  1);
-            Self__MSIH=((__CHARACTER *)Self__LSIH->storage__3CS);
-            old_nb_elts__NSIH=Self__LSIH->capacity__UCS;
-            new__OSIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MSIH),((__UINTEGER_32 )old_nb_elts__NSIH),((__UINTEGER_32 )new_capacity__KSIH)));
-            upper__EHLH=(__INTEGER)(new_capacity__KSIH -  1);
-            Self__CHLH=old_nb_elts__NSIH;
-            while ((Self__CHLH <= upper__EHLH)) {
-              new__OSIH[Self__CHLH]='\0';
-              Self__CHLH=(__INTEGER)(Self__CHLH +  1);
-            };
-            Self__LSIH->storage__3CS=new__OSIH;
-            Self__LSIH->capacity__UCS=new_capacity__KSIH;
-          };
-        };
-        ((__CHARACTER *)Self__LSIH->storage__3CS)[Self__LSIH->count__SGC]=car__JPIG;
-        Self__LSIH->count__SGC=(__INTEGER)(Self__LSIH->count__SGC +  1);
-      };
-    } else {
-      Self__RSIH=((__STRING *)str__HPIG);
-      new_capacity__QSIH= 0;
-      if ((Self__RSIH->capacity__UCS <= Self__RSIH->count__SGC)) {
-        if ((Self__RSIH->capacity__UCS ==  0)) {
-          Self__RSIH->capacity__UCS= 32;
-          Self__RSIH->storage__3CS=create__YIEB( 32);
-        } else {
-          new_capacity__QSIH=(__INTEGER)(Self__RSIH->capacity__UCS <<  1);
-          Self__SSIH=((__CHARACTER *)Self__RSIH->storage__3CS);
-          old_nb_elts__TSIH=Self__RSIH->capacity__UCS;
-          new__USIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__SSIH),((__UINTEGER_32 )old_nb_elts__TSIH),((__UINTEGER_32 )new_capacity__QSIH)));
-          upper__JHLH=(__INTEGER)(new_capacity__QSIH -  1);
-          Self__HHLH=old_nb_elts__TSIH;
-          while ((Self__HHLH <= upper__JHLH)) {
-            new__USIH[Self__HHLH]='\0';
-            Self__HHLH=(__INTEGER)(Self__HHLH +  1);
-          };
-          Self__RSIH->storage__3CS=new__USIH;
-          Self__RSIH->capacity__UCS=new_capacity__QSIH;
-        };
-      };
-      ((__CHARACTER *)Self__RSIH->storage__3CS)[Self__RSIH->count__SGC]=car__JPIG;
-      Self__RSIH->count__SGC=(__INTEGER)(Self__RSIH->count__SGC +  1);
-    };
-    i__IPIG=(__INTEGER)(i__IPIG +  1);
-  };
-}
-
-static void print_positif__VHLG(__INTEGER Self__WHLG)
-// ({INTEGER}) VoidRecursive, No inlinable.
-{
-  __INTEGER val__5HLG;
-  __CHARACTER char__4HLG;
-  char__4HLG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__WHLG %  10)) + ((__INTEGER_8 )'0')))));
-  val__5HLG=(__INTEGER)(Self__WHLG /  10);
-  if ((val__5HLG !=  0)) {
-    print_positif__VHLG(val__5HLG);
-  };
-  fputc((int)(char__4HLG),stdout);
-}
-
-static __BOOLEAN fast_has__1K1(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__2K1,void *e__3K1)
-// ({HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo},{NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
-  void *node__GL1;
-  node__GL1=((void **)Self__2K1->buckets__K5V)[(__INTEGER)(hash_code__S30(e__3K1) % Self__2K1->capacity__F5V)];
-  while ((! (((void *)node__GL1 == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__GL1)->item__W5V == (void *)e__3K1)))) {
-    node__GL1=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__GL1)->next__CAW;
-  };
-  return(((void *)node__GL1 != (void *)NULL));
-}
-
-static __BOOLEAN has__MIMB(__HASHED_SEToSTRING_CONSTANTo *Self__NIMB,void *e__OIMB)
-// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
-  void *node__XIMB;
-  node__XIMB=((void **)Self__NIMB->buckets__DEV)[(__INTEGER)(hash_code__RNW(e__OIMB) % Self__NIMB->capacity__HIT)];
-  while ((! (((void *)node__XIMB == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__XIMB)->item__PEV,e__OIMB)))) {
-    node__XIMB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__XIMB)->next__0EV;
-  };
-  return(((void *)node__XIMB != (void *)NULL));
-}
-
-static __FAST_ARRAYoITM_LOCALo* create_with_capacity__LLK(__INTEGER new_count__NLK)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __POINTER ptr__J5K,ptr_table__MHLH,next__LHLH,result__NHLH;
-  __POINTER ptr_table__RHLH,next__QHLH,result__SHLH;
-  __INTEGER typ_id__O5K;
-  __UINTEGER_32 sz__L5K,a__OMGH,new_size__PMGH,t__TMGH,a__SMGH;
-  __UINTEGER_32 new_size__UHLH,lab_type__THLH;
-  __FAST_ARRAYoITM_LOCALo *result__I5K,*Self__KOU;
-  result__I5K=NULL;
-  ptr__J5K=((__POINTER )(NULL));
-  typ_id__O5K= 0;
-  sz__L5K=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_LOCALo));
-  if ((sz__L5K ==  0)) {
-    result__I5K=FAST_ARRAYoITM_LOCALo__;
-  } else {
-    typ_id__O5K=__FAST_ARRAYoITM_LOCALo__;
-    clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__L5K);
-    if ((typ_id__O5K == (__INTEGER)(-  1))) {
-      a__OMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__PMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__L5K + a__OMGH) & (__UINTEGER_32)(~ a__OMGH));
-      ptr_table__MHLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-      next__LHLH=((__POINTER )(NULL));
-      result__NHLH=((__POINTER *)ptr_table__MHLH)[ 0];
-      if ((result__NHLH == (void *)NULL)) {
-        result__NHLH=new_lab__RTJ(new_size__PMGH);
-        next__LHLH=(void *)((unsigned long)result__NHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMGH)));
-        ((__POINTER *)next__LHLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__MHLH)[ 0]=next__LHLH;
-      } else {
-        next__LHLH=((__POINTER *)result__NHLH)[ 0];
-        if ((next__LHLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NHLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PMGH <<  1)) <=  4096)) {
-            next__LHLH=(void *)((unsigned long)result__NHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMGH)));
-          } else {
-            next__LHLH=new_lab__RTJ(new_size__PMGH);
-          };
-          ((__POINTER *)next__LHLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__MHLH)[ 0]=next__LHLH;
-        } else {
-          ((__POINTER *)result__NHLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LHLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__NHLH=next__LHLH;
-        };
-      };
-      ptr__J5K=result__NHLH;
-    } else {
-      t__TMGH=((__UINTEGER_32 )typ_id__O5K);
-      a__SMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-      new_size__UHLH=(__UINTEGER_32)((__UINTEGER_32)(sz__L5K + a__SMGH) & (__UINTEGER_32)(~ a__SMGH));
-      ptr_table__RHLH=((__POINTER )(&(table_type[(t__TMGH)])));
-      lab_type__THLH=(__UINTEGER_32)(t__TMGH |  1);
-      next__QHLH=((__POINTER )(NULL));
-      result__SHLH=((__POINTER *)ptr_table__RHLH)[ 0];
-      if ((result__SHLH == (void *)NULL)) {
-        result__SHLH=new_lab__RTJ(lab_type__THLH);
-        next__QHLH=(void *)((unsigned long)result__SHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHLH)));
-        ((__POINTER *)next__QHLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__RHLH)[ 0]=next__QHLH;
-      } else {
-        next__QHLH=((__POINTER *)result__SHLH)[ 0];
-        if ((next__QHLH == (void *)NULL)) {
-          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SHLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__UHLH <<  1)) <=  4096)) {
-            next__QHLH=(void *)((unsigned long)result__SHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHLH)));
-          } else {
-            next__QHLH=new_lab__RTJ(lab_type__THLH);
-          };
-          ((__POINTER *)next__QHLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__RHLH)[ 0]=next__QHLH;
-        } else {
-          ((__POINTER *)result__SHLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QHLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-          result__SHLH=next__QHLH;
-        };
-      };
-      ptr__J5K=result__SHLH;
-    };
-    result__I5K=((__FAST_ARRAYoITM_LOCALo *)ptr__J5K);
-    *(result__I5K) = *(FAST_ARRAYoITM_LOCALo__);
-  };
-  Self__KOU=((__FAST_ARRAYoITM_LOCALo *)result__I5K);
-  if ((Self__KOU->parent_arrayed_collection__T3H.capacity__IMU < new_count__NLK)) {
-    Self__KOU->parent_arrayed_collection__T3H.storage__TMU=create__KPQB(new_count__NLK);
-    Self__KOU->parent_arrayed_collection__T3H.capacity__IMU=new_count__NLK;
-  };
-  Self__KOU->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(-  1);
-  return(result__I5K);
-}
-
-static void add_last__Z1U(__FAST_ARRAYoITM_LOCALo *Self__01U,void *element__11U)
-// ({FAST_ARRAYoITM_LOCALo},{NULLxITM_LOCAL}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__21U,__tmp__A3U,__tmp__0BEC,Self__KKVD;
-  __BOOLEAN __tmp__K2U;
-  void **__tmp__52U,**new__GBEC;
-  new_capacity__21U= 0;
-  if (((__INTEGER)(Self__01U->parent_arrayed_collection__T3H.upper__M2K +  1) <= (__INTEGER)(Self__01U->parent_arrayed_collection__T3H.capacity__IMU -  1))) {
-    Self__01U->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(Self__01U->parent_arrayed_collection__T3H.upper__M2K +  1);
-    __tmp__K2U=TRUE__;
-  } else {
-    __tmp__K2U=FALSE__;
-  };
-  if ((! __tmp__K2U)) {
-    if ((Self__01U->parent_arrayed_collection__T3H.capacity__IMU ==  0)) {
-      Self__01U->parent_arrayed_collection__T3H.storage__TMU=create__KPQB( 2);
-      Self__01U->parent_arrayed_collection__T3H.capacity__IMU= 2;
-      Self__01U->parent_arrayed_collection__T3H.upper__M2K= 0;
-    } else {
-      new_capacity__21U=(__INTEGER)(Self__01U->parent_arrayed_collection__T3H.capacity__IMU <<  1);
-      __tmp__52U=Self__01U->parent_arrayed_collection__T3H.storage__TMU;
-      __tmp__A3U=Self__01U->parent_arrayed_collection__T3H.capacity__IMU;
-      new__GBEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__52U)),((__UINTEGER_32 )(__INTEGER)(__tmp__A3U * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__21U * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__0BEC=(__INTEGER)(new_capacity__21U -  1);
-      Self__KKVD=__tmp__A3U;
-      while ((Self__KKVD <= __tmp__0BEC)) {
-        new__GBEC[Self__KKVD]=NULL;
-        Self__KKVD=(__INTEGER)(Self__KKVD +  1);
-      };
-      Self__01U->parent_arrayed_collection__T3H.storage__TMU=new__GBEC;
-      Self__01U->parent_arrayed_collection__T3H.capacity__IMU=new_capacity__21U;
-      Self__01U->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(Self__01U->parent_arrayed_collection__T3H.upper__M2K +  1);
-    };
-  };
-  ((void **)Self__01U->parent_arrayed_collection__T3H.storage__TMU)[Self__01U->parent_arrayed_collection__T3H.upper__M2K]=element__11U;
-}
-
-static void free__RLK(void *tmp__TLK)
-// ({NULLxFAST_ARRAYoITM_LOCALo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__DQU,__tmp__HRU,__tmp__O5DC,Self__LIVD;
-  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__BQU;
-  __BOOLEAN __tmp__RQU;
-  void **__tmp__GRU,**new__04DC;
-  ((__FAST_ARRAYoITM_LOCALo *)tmp__TLK)->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(-  1);
-  Self__BQU=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
-  new_capacity__DQU= 0;
-  if (((__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.upper__C3T +  1) <= (__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU -  1))) {
-    Self__BQU->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.upper__C3T +  1);
-    __tmp__RQU=TRUE__;
-  } else {
-    __tmp__RQU=FALSE__;
-  };
-  if ((! __tmp__RQU)) {
-    if ((Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU ==  0)) {
-      Self__BQU->parent_arrayed_collection__ZTI.storage__YKU=create__NFQB( 2);
-      Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU= 2;
-      Self__BQU->parent_arrayed_collection__ZTI.upper__C3T= 0;
-    } else {
-      new_capacity__DQU=(__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU <<  1);
-      __tmp__GRU=Self__BQU->parent_arrayed_collection__ZTI.storage__YKU;
-      __tmp__HRU=Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU;
-      new__04DC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__GRU)),((__UINTEGER_32 )(__INTEGER)(__tmp__HRU * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__DQU * ((__INTEGER )(sizeof(void *)))))));
-      __tmp__O5DC=(__INTEGER)(new_capacity__DQU -  1);
-      Self__LIVD=__tmp__HRU;
-      while ((Self__LIVD <= __tmp__O5DC)) {
-        new__04DC[Self__LIVD]=NULL;
-        Self__LIVD=(__INTEGER)(Self__LIVD +  1);
-      };
-      Self__BQU->parent_arrayed_collection__ZTI.storage__YKU=new__04DC;
-      Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU=new_capacity__DQU;
-      Self__BQU->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.upper__C3T +  1);
-    };
-  };
-  ((void **)Self__BQU->parent_arrayed_collection__ZTI.storage__YKU)[Self__BQU->parent_arrayed_collection__ZTI.upper__C3T]=tmp__TLK;
-}
-
-static void* copy__05J(void *tmp__25J)
-// ({NULLxFAST_ARRAYoITM_LOCALo}) With resultNo recursive, No inlinable.
-{
-  __INTEGER new_capacity__5LU,other_upper__4LU,Self__54JC;
-  void *result__45J;
-  __FAST_ARRAYoITM_LOCALo *Self__2LU;
-  void **__tmp__WMU,**__tmp__YMU,**Self__VSCC;
-  result__45J=create_with_capacity__LLK((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)tmp__25J)->parent_arrayed_collection__T3H.upper__M2K +  1));
-  Self__2LU=((__FAST_ARRAYoITM_LOCALo *)result__45J);
-  new_capacity__5LU= 0;
-  other_upper__4LU=((__FAST_ARRAYoITM_LOCALo *)tmp__25J)->parent_arrayed_collection__T3H.upper__M2K;
-  if ((other_upper__4LU >=  0)) {
-    new_capacity__5LU=(__INTEGER)(other_upper__4LU +  1);
-    if ((Self__2LU->parent_arrayed_collection__T3H.capacity__IMU < new_capacity__5LU)) {
-      Self__2LU->parent_arrayed_collection__T3H.storage__TMU=create__KPQB(new_capacity__5LU);
-      Self__2LU->parent_arrayed_collection__T3H.capacity__IMU=new_capacity__5LU;
-    };
-    __tmp__WMU=Self__2LU->parent_arrayed_collection__T3H.storage__TMU;
-    __tmp__YMU=((__FAST_ARRAYoITM_LOCALo *)tmp__25J)->parent_arrayed_collection__T3H.storage__TMU;
-    Self__VSCC=((void **)__tmp__WMU);
-    Self__54JC=other_upper__4LU;
-    while ((Self__54JC >=  0)) {
-      Self__VSCC[Self__54JC]=((void **)__tmp__YMU)[Self__54JC];
-      Self__54JC=(__INTEGER)(Self__54JC -  1);
-    };
-  };
-  Self__2LU->parent_arrayed_collection__T3H.upper__M2K=other_upper__4LU;
-  free__RLK(tmp__25J);
-  return(result__45J);
-}
-
-static void append_collection__RDPD(__FAST_ARRAYoITM_LOCALo *Self__SDPD,void *other__TDPD)
-// ({FAST_ARRAYoITM_LOCALo},{NULLxFAST_ARRAYoITM_LOCALo}) VoidNo recursive, No inlinable.
-{
-  __INTEGER __tmp__3DPD,Self__MVUD;
-  __tmp__3DPD=((__FAST_ARRAYoITM_LOCALo *)other__TDPD)->parent_arrayed_collection__T3H.upper__M2K;
-  Self__MVUD= 0;
-  while ((Self__MVUD <= __tmp__3DPD)) {
-    add_last__Z1U(Self__SDPD,((void **)((__FAST_ARRAYoITM_LOCALo *)other__TDPD)->parent_arrayed_collection__T3H.storage__TMU)[Self__MVUD]);
-    Self__MVUD=(__INTEGER)(Self__MVUD +  1);
-  };
-}
-
-static void** create__KRQB(__INTEGER nb_elements__MRQB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__ZFHH,a__YFHH,new_size__0FHH,new_size2__1FHH,a__2FHH;
-  __UINTEGER_32 new_size__3FHH;
-  __POINTER result__XFHH,ptr_table__WHLH,next__VHLH,result__XHLH;
-  __INTEGER Self__T1MC;
-  void **Result__PMTB;
-  sz__ZFHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MRQB * ((__INTEGER )(sizeof(void *)))));
-  result__XFHH=((__POINTER )(NULL));
-  a__YFHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__0FHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZFHH + a__YFHH) & (__UINTEGER_32)(~ a__YFHH));
-  new_size2__1FHH=(__UINTEGER_32)(new_size__0FHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__1FHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__2FHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__3FHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1FHH + a__2FHH) & (__UINTEGER_32)(~ a__2FHH));
-    ptr_table__WHLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3FHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__VHLH=((__POINTER )(NULL));
-    result__XHLH=((__POINTER *)ptr_table__WHLH)[ 0];
-    if ((result__XHLH == (void *)NULL)) {
-      result__XHLH=new_lab__RTJ(new_size__3FHH);
-      next__VHLH=(void *)((unsigned long)result__XHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3FHH)));
-      ((__POINTER *)next__VHLH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__WHLH)[ 0]=next__VHLH;
-    } else {
-      next__VHLH=((__POINTER *)result__XHLH)[ 0];
-      if ((next__VHLH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XHLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__3FHH <<  1)) <=  4096)) {
-          next__VHLH=(void *)((unsigned long)result__XHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3FHH)));
-        } else {
-          next__VHLH=new_lab__RTJ(new_size__3FHH);
-        };
-        ((__POINTER *)next__VHLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__WHLH)[ 0]=next__VHLH;
-      } else {
-        ((__POINTER *)result__XHLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VHLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__XHLH=next__VHLH;
-      };
-    };
-    ((__POINTER *)result__XHLH)[ 0]=((__POINTER ) 3);
-    result__XFHH=(void *)((unsigned long)result__XHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__XFHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__0FHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__PMTB=((void **)result__XFHH);
-  Self__T1MC=(__INTEGER)(nb_elements__MRQB -  1);
-  while ((Self__T1MC >=  0)) {
-    Result__PMTB[Self__T1MC]=NULL;
-    Self__T1MC=(__INTEGER)(Self__T1MC -  1);
-  };
-  return(Result__PMTB);
-}
-
-static void* read_send_msg__I5N(__PARSER *Self__J5N,void *first_arg__K5N)
-// ({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__M5N,*arg__Q5N,*tmp__OMRB;
-  void *n__O5N,*result__XJGH;
-  __INTEGER p1__R5N,p2__S5N,old_derive__T5N,sav_derive__U5N;
-  __INTEGER typ_id__YSIH,typ_id__BTIH,typ_id__KTIH,Self__E2YC;
-  __INTEGER typ_id__MDR;
-  __POSITION pos__SX0G,p__4SIH,p__HTIH,p__QTIH,p__Z5Q;
-  __ITM_READ *result__WSIH;
-  __POINTER ptr__XSIH,ptr_table__1HLH,next__0HLH,result__2HLH;
-  __POINTER ptr_table__AILH,next__5HLH,result__BILH,ptr__ATIH;
-  __POINTER ptr_table__FILH,next__EILH,result__GILH,ptr_table__KILH;
-  __POINTER next__JILH,result__LILH,ptr__JTIH,ptr_table__PILH;
-  __POINTER next__OILH,result__QILH,ptr_table__UILH,next__TILH;
-  __POINTER result__VILH,ptr__HDR,ptr_table__ZILH,next__YILH;
-  __POINTER result__0ILH,ptr_table__4ILH,next__3ILH,result__5ILH;
-  __UINTEGER_32 sz__ZSIH,a__0SIH,new_size__1SIH,t__2SIH,a__3SIH;
-  __UINTEGER_32 new_size__DILH,lab_type__CILH,sz__CTIH,a__DTIH;
-  __UINTEGER_32 new_size__ETIH,t__FTIH,a__GTIH,new_size__NILH;
-  __UINTEGER_32 lab_type__MILH,sz__LTIH,a__MTIH,new_size__NTIH,t__OTIH;
-  __UINTEGER_32 a__PTIH,new_size__XILH,lab_type__WILH,sz__JDR,a__4KGH;
-  __UINTEGER_32 new_size__5KGH,t__DLGH,a__CLGH,new_size__BJLH;
-  __UINTEGER_32 lab_type__AJLH;
-  __ITM_READ_ARG1 *result__5SIH;
-  __ITM_READ_ARG2 *result__ITIH;
-  __ITM_READ_ARGS *result__GDR;
-  void *l_arg__P5N,*result__HAHH;
-  __FAST_ARRAYoSTRINGo *Self__YJGH,*Self__0JGH;
-  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__IAHH,*Self__JAHH;
-  __BOOLEAN __tmp__ODO;
-  __FAST_ARRAYoITM_CODEo *Self__RCW;
-  void **__tmp__WKGH,**__tmp__XKGH,**__tmp__YKGH;
-  result__M5N=NULL;
-  n__O5N=NULL;
-  l_arg__P5N=NULL;
-  arg__Q5N=NULL;
-  p1__R5N= 0;
-  p2__S5N= 0;
-  old_derive__T5N= 0;
-  sav_derive__U5N= 0;
-  if (read_identifier__2BL()) {
-    p1__R5N=(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD);
-    p2__S5N=position__CCC;
-    old_derive__T5N=short_derive__PCC;
-    result__XJGH=NULL;
-    if ((((__FAST_ARRAYoSTRINGo *)free__3OP)->parent_arrayed_collection__5KC.upper__CLC <  0)) {
-      result__XJGH=create__ZBB( 128);
-    } else {
-      Self__YJGH=((__FAST_ARRAYoSTRINGo *)free__3OP);
-      result__XJGH=((void **)Self__YJGH->parent_arrayed_collection__5KC.storage__UGT)[Self__YJGH->parent_arrayed_collection__5KC.upper__CLC];
-      Self__0JGH=((__FAST_ARRAYoSTRINGo *)free__3OP);
-      Self__0JGH->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__0JGH->parent_arrayed_collection__5KC.upper__CLC -  1);
-    };
-    n__O5N=result__XJGH;
-    copy__VDS(result__XJGH,last_string__D2C);
-    result__HAHH=NULL;
-    if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT <  0)) {
-      result__HAHH=create_with_capacity__XXI( 16);
-    } else {
-      Self__IAHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-      result__HAHH=((void **)Self__IAHH->parent_arrayed_collection__PAI.storage__PCU)[Self__IAHH->parent_arrayed_collection__PAI.upper__BYT];
-      Self__JAHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
-      Self__JAHH->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__JAHH->parent_arrayed_collection__PAI.upper__BYT -  1);
-    };
-    l_arg__P5N=result__HAHH;
-    arg__Q5N=read_argument__PPP(Self__J5N);
-    if (((void *)arg__Q5N != (void *)NULL)) {
-      add_last__I5U(result__HAHH,arg__Q5N);
-      while (read_identifier__2BL()) {
-        short__token__to__GDD((&__string_131),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-        append__3OS(n__O5N,(&__string_112));
-        append__3OS(n__O5N,last_string__D2C);
-        arg__Q5N=read_argument__PPP(Self__J5N);
-        if (((void *)arg__Q5N == (void *)NULL)) {
-          pos__SX0G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_333));
-          put_position__FRG(pos__SX0G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        add_last__I5U(l_arg__P5N,arg__Q5N);
-      };
-    };
-    get__YWB(result__XJGH);
-    add_last__URV(free__3OP,result__XJGH);
-    ((__STRING *)result__XJGH)->count__SGC= 0;
-    if (is_shorter__LZ) {
-      if ((((! (((__FAST_ARRAYoITM_CODEo *)result__HAHH)->parent_arrayed_collection__JWF.upper__NJL <  0)) || ((void *)first_arg__K5N != (void *)NULL)) || (! fast_has__RDV(short_local__XCC,last_string__D2C)))) {
-        sav_derive__U5N=short_derive__PCC;
-        short_derive__PCC=old_derive__T5N;
-        short__token__to__GDD((&__string_131),p1__R5N,p2__S5N);
-        short_derive__PCC=(__INTEGER)(sav_derive__U5N + (__INTEGER)(short_derive__PCC - old_derive__T5N));
-      };
-    };
-    if ((((__FAST_ARRAYoITM_CODEo *)result__HAHH)->parent_arrayed_collection__JWF.upper__NJL <  0)) {
-      if (((void *)first_arg__K5N == (void *)NULL)) {
-        p__4SIH=current_position__B0F();
-        result__WSIH=NULL;
-        ptr__XSIH=((__POINTER )(NULL));
-        typ_id__YSIH= 0;
-        sz__ZSIH=((__UINTEGER_32 )sizeof(__ITM_READ));
-        if ((sz__ZSIH ==  0)) {
-          result__WSIH=ITM_READ__;
-        } else {
-          typ_id__YSIH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZSIH);
-          if ((typ_id__YSIH == (__INTEGER)(-  1))) {
-            a__0SIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__1SIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSIH + a__0SIH) & (__UINTEGER_32)(~ a__0SIH));
-            ptr_table__1HLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1SIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__0HLH=((__POINTER )(NULL));
-            result__2HLH=((__POINTER *)ptr_table__1HLH)[ 0];
-            if ((result__2HLH == (void *)NULL)) {
-              result__2HLH=new_lab__RTJ(new_size__1SIH);
-              next__0HLH=(void *)((unsigned long)result__2HLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1SIH)));
-              ((__POINTER *)next__0HLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__1HLH)[ 0]=next__0HLH;
-            } else {
-              next__0HLH=((__POINTER *)result__2HLH)[ 0];
-              if ((next__0HLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2HLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__1SIH <<  1)) <=  4096)) {
-                  next__0HLH=(void *)((unsigned long)result__2HLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1SIH)));
-                } else {
-                  next__0HLH=new_lab__RTJ(new_size__1SIH);
-                };
-                ((__POINTER *)next__0HLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__1HLH)[ 0]=next__0HLH;
-              } else {
-                ((__POINTER *)result__2HLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0HLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__2HLH=next__0HLH;
-              };
-            };
-            ptr__XSIH=result__2HLH;
-          } else {
-            t__2SIH=((__UINTEGER_32 )typ_id__YSIH);
-            a__3SIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__DILH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSIH + a__3SIH) & (__UINTEGER_32)(~ a__3SIH));
-            ptr_table__AILH=((__POINTER )(&(table_type[(t__2SIH)])));
-            lab_type__CILH=(__UINTEGER_32)(t__2SIH |  1);
-            next__5HLH=((__POINTER )(NULL));
-            result__BILH=((__POINTER *)ptr_table__AILH)[ 0];
-            if ((result__BILH == (void *)NULL)) {
-              result__BILH=new_lab__RTJ(lab_type__CILH);
-              next__5HLH=(void *)((unsigned long)result__BILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DILH)));
-              ((__POINTER *)next__5HLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__AILH)[ 0]=next__5HLH;
-            } else {
-              next__5HLH=((__POINTER *)result__BILH)[ 0];
-              if ((next__5HLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__DILH <<  1)) <=  4096)) {
-                  next__5HLH=(void *)((unsigned long)result__BILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DILH)));
-                } else {
-                  next__5HLH=new_lab__RTJ(lab_type__CILH);
-                };
-                ((__POINTER *)next__5HLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__AILH)[ 0]=next__5HLH;
-              } else {
-                ((__POINTER *)result__BILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5HLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__BILH=next__5HLH;
-              };
-            };
-            ptr__XSIH=result__BILH;
-          };
-          result__WSIH=((__ITM_READ *)ptr__XSIH);
-          *(result__WSIH) = *(ITM_READ__);
-        };
-        ((__ITM_READ *)result__WSIH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__4SIH;
-        result__M5N=result__WSIH;
-      } else {
-        p__HTIH=current_position__B0F();
-        result__5SIH=NULL;
-        ptr__ATIH=((__POINTER )(NULL));
-        typ_id__BTIH= 0;
-        sz__CTIH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
-        if ((sz__CTIH ==  0)) {
-          result__5SIH=ITM_READ_ARG1__;
-        } else {
-          typ_id__BTIH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__CTIH);
-          if ((typ_id__BTIH == (__INTEGER)(-  1))) {
-            a__DTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__ETIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CTIH + a__DTIH) & (__UINTEGER_32)(~ a__DTIH));
-            ptr_table__FILH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ETIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__EILH=((__POINTER )(NULL));
-            result__GILH=((__POINTER *)ptr_table__FILH)[ 0];
-            if ((result__GILH == (void *)NULL)) {
-              result__GILH=new_lab__RTJ(new_size__ETIH);
-              next__EILH=(void *)((unsigned long)result__GILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ETIH)));
-              ((__POINTER *)next__EILH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__FILH)[ 0]=next__EILH;
-            } else {
-              next__EILH=((__POINTER *)result__GILH)[ 0];
-              if ((next__EILH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ETIH <<  1)) <=  4096)) {
-                  next__EILH=(void *)((unsigned long)result__GILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ETIH)));
-                } else {
-                  next__EILH=new_lab__RTJ(new_size__ETIH);
-                };
-                ((__POINTER *)next__EILH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__FILH)[ 0]=next__EILH;
-              } else {
-                ((__POINTER *)result__GILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__GILH=next__EILH;
-              };
-            };
-            ptr__ATIH=result__GILH;
-          } else {
-            t__FTIH=((__UINTEGER_32 )typ_id__BTIH);
-            a__GTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__NILH=(__UINTEGER_32)((__UINTEGER_32)(sz__CTIH + a__GTIH) & (__UINTEGER_32)(~ a__GTIH));
-            ptr_table__KILH=((__POINTER )(&(table_type[(t__FTIH)])));
-            lab_type__MILH=(__UINTEGER_32)(t__FTIH |  1);
-            next__JILH=((__POINTER )(NULL));
-            result__LILH=((__POINTER *)ptr_table__KILH)[ 0];
-            if ((result__LILH == (void *)NULL)) {
-              result__LILH=new_lab__RTJ(lab_type__MILH);
-              next__JILH=(void *)((unsigned long)result__LILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NILH)));
-              ((__POINTER *)next__JILH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__KILH)[ 0]=next__JILH;
-            } else {
-              next__JILH=((__POINTER *)result__LILH)[ 0];
-              if ((next__JILH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NILH <<  1)) <=  4096)) {
-                  next__JILH=(void *)((unsigned long)result__LILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NILH)));
-                } else {
-                  next__JILH=new_lab__RTJ(lab_type__MILH);
-                };
-                ((__POINTER *)next__JILH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__KILH)[ 0]=next__JILH;
-              } else {
-                ((__POINTER *)result__LILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__LILH=next__JILH;
-              };
-            };
-            ptr__ATIH=result__LILH;
-          };
-          result__5SIH=((__ITM_READ_ARG1 *)ptr__ATIH);
-          *(result__5SIH) = *(ITM_READ_ARG1__);
-        };
-        ((__ITM_READ_ARG1 *)result__5SIH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__HTIH;
-        result__M5N=result__5SIH;
-      };
-      free__3XI(result__HAHH);
-      __tmp__ODO=TRUE__;
-    } else {
-      __tmp__ODO=FALSE__;
-    };
-    if ((! __tmp__ODO)) {
-      if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__HAHH)->parent_arrayed_collection__JWF.upper__NJL +  1) ==  1)) {
-        p__QTIH=current_position__B0F();
-        result__ITIH=NULL;
-        ptr__JTIH=((__POINTER )(NULL));
-        typ_id__KTIH= 0;
-        sz__LTIH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
-        if ((sz__LTIH ==  0)) {
-          result__ITIH=ITM_READ_ARG2__;
-        } else {
-          typ_id__KTIH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LTIH);
-          if ((typ_id__KTIH == (__INTEGER)(-  1))) {
-            a__MTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__NTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__LTIH + a__MTIH) & (__UINTEGER_32)(~ a__MTIH));
-            ptr_table__PILH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NTIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__OILH=((__POINTER )(NULL));
-            result__QILH=((__POINTER *)ptr_table__PILH)[ 0];
-            if ((result__QILH == (void *)NULL)) {
-              result__QILH=new_lab__RTJ(new_size__NTIH);
-              next__OILH=(void *)((unsigned long)result__QILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NTIH)));
-              ((__POINTER *)next__OILH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__PILH)[ 0]=next__OILH;
-            } else {
-              next__OILH=((__POINTER *)result__QILH)[ 0];
-              if ((next__OILH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NTIH <<  1)) <=  4096)) {
-                  next__OILH=(void *)((unsigned long)result__QILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NTIH)));
-                } else {
-                  next__OILH=new_lab__RTJ(new_size__NTIH);
-                };
-                ((__POINTER *)next__OILH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__PILH)[ 0]=next__OILH;
-              } else {
-                ((__POINTER *)result__QILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__QILH=next__OILH;
-              };
-            };
-            ptr__JTIH=result__QILH;
-          } else {
-            t__OTIH=((__UINTEGER_32 )typ_id__KTIH);
-            a__PTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__XILH=(__UINTEGER_32)((__UINTEGER_32)(sz__LTIH + a__PTIH) & (__UINTEGER_32)(~ a__PTIH));
-            ptr_table__UILH=((__POINTER )(&(table_type[(t__OTIH)])));
-            lab_type__WILH=(__UINTEGER_32)(t__OTIH |  1);
-            next__TILH=((__POINTER )(NULL));
-            result__VILH=((__POINTER *)ptr_table__UILH)[ 0];
-            if ((result__VILH == (void *)NULL)) {
-              result__VILH=new_lab__RTJ(lab_type__WILH);
-              next__TILH=(void *)((unsigned long)result__VILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XILH)));
-              ((__POINTER *)next__TILH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__UILH)[ 0]=next__TILH;
-            } else {
-              next__TILH=((__POINTER *)result__VILH)[ 0];
-              if ((next__TILH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XILH <<  1)) <=  4096)) {
-                  next__TILH=(void *)((unsigned long)result__VILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XILH)));
-                } else {
-                  next__TILH=new_lab__RTJ(lab_type__WILH);
-                };
-                ((__POINTER *)next__TILH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__UILH)[ 0]=next__TILH;
-              } else {
-                ((__POINTER *)result__VILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__VILH=next__TILH;
-              };
-            };
-            ptr__JTIH=result__VILH;
-          };
-          result__ITIH=((__ITM_READ_ARG2 *)ptr__JTIH);
-          *(result__ITIH) = *(ITM_READ_ARG2__);
-        };
-        ((__ITM_READ_ARG2 *)result__ITIH)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__QTIH;
-        result__M5N=result__ITIH;
-        free__3XI(result__HAHH);
-      } else {
-        Self__RCW=((__FAST_ARRAYoITM_CODEo *)result__HAHH);
-        add_last__I5U(Self__RCW,first_arg__K5N);
-        if ((Self__RCW->parent_arrayed_collection__JWF.upper__NJL !=  0)) {
-          if ((Self__RCW->parent_arrayed_collection__JWF.upper__NJL ==  1)) {
-            tmp__OMRB=((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 0];
-            ((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 0]=((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 1];
-            ((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 1]=tmp__OMRB;
-          } else {
-            Self__E2YC=(__INTEGER)(Self__RCW->parent_arrayed_collection__JWF.upper__NJL -  1);
-            __tmp__WKGH=Self__RCW->parent_arrayed_collection__JWF.storage__4ZT;
-            __tmp__XKGH=Self__RCW->parent_arrayed_collection__JWF.storage__4ZT;
-            __tmp__YKGH=Self__RCW->parent_arrayed_collection__JWF.storage__4ZT;
-            while ((Self__E2YC >=  0)) {
-              ((void **)__tmp__XKGH)[(__INTEGER)(Self__E2YC +  1)]=((void **)__tmp__WKGH)[Self__E2YC];
-              ((void **)__tmp__YKGH)[Self__E2YC]=NULL;
-              Self__E2YC=(__INTEGER)(Self__E2YC -  1);
-            };
-            ((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 0]=first_arg__K5N;
-          };
-        };
-        l_arg__P5N=copy__5BI(result__HAHH);
-        p__Z5Q=current_position__B0F();
-        result__GDR=NULL;
-        ptr__HDR=((__POINTER )(NULL));
-        typ_id__MDR= 0;
-        sz__JDR=((__UINTEGER_32 )sizeof(__ITM_READ_ARGS));
-        if ((sz__JDR ==  0)) {
-          result__GDR=ITM_READ_ARGS__;
-        } else {
-          typ_id__MDR=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__JDR);
-          if ((typ_id__MDR == (__INTEGER)(-  1))) {
-            a__4KGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__5KGH=(__UINTEGER_32)((__UINTEGER_32)(sz__JDR + a__4KGH) & (__UINTEGER_32)(~ a__4KGH));
-            ptr_table__ZILH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5KGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__YILH=((__POINTER )(NULL));
-            result__0ILH=((__POINTER *)ptr_table__ZILH)[ 0];
-            if ((result__0ILH == (void *)NULL)) {
-              result__0ILH=new_lab__RTJ(new_size__5KGH);
-              next__YILH=(void *)((unsigned long)result__0ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KGH)));
-              ((__POINTER *)next__YILH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__ZILH)[ 0]=next__YILH;
-            } else {
-              next__YILH=((__POINTER *)result__0ILH)[ 0];
-              if ((next__YILH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0ILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5KGH <<  1)) <=  4096)) {
-                  next__YILH=(void *)((unsigned long)result__0ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KGH)));
-                } else {
-                  next__YILH=new_lab__RTJ(new_size__5KGH);
-                };
-                ((__POINTER *)next__YILH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__ZILH)[ 0]=next__YILH;
-              } else {
-                ((__POINTER *)result__0ILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__0ILH=next__YILH;
-              };
-            };
-            ptr__HDR=result__0ILH;
-          } else {
-            t__DLGH=((__UINTEGER_32 )typ_id__MDR);
-            a__CLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__BJLH=(__UINTEGER_32)((__UINTEGER_32)(sz__JDR + a__CLGH) & (__UINTEGER_32)(~ a__CLGH));
-            ptr_table__4ILH=((__POINTER )(&(table_type[(t__DLGH)])));
-            lab_type__AJLH=(__UINTEGER_32)(t__DLGH |  1);
-            next__3ILH=((__POINTER )(NULL));
-            result__5ILH=((__POINTER *)ptr_table__4ILH)[ 0];
-            if ((result__5ILH == (void *)NULL)) {
-              result__5ILH=new_lab__RTJ(lab_type__AJLH);
-              next__3ILH=(void *)((unsigned long)result__5ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BJLH)));
-              ((__POINTER *)next__3ILH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__4ILH)[ 0]=next__3ILH;
-            } else {
-              next__3ILH=((__POINTER *)result__5ILH)[ 0];
-              if ((next__3ILH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5ILH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__BJLH <<  1)) <=  4096)) {
-                  next__3ILH=(void *)((unsigned long)result__5ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BJLH)));
-                } else {
-                  next__3ILH=new_lab__RTJ(lab_type__AJLH);
-                };
-                ((__POINTER *)next__3ILH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__4ILH)[ 0]=next__3ILH;
-              } else {
-                ((__POINTER *)result__5ILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3ILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__5ILH=next__3ILH;
-              };
-            };
-            ptr__HDR=result__5ILH;
-          };
-          result__GDR=((__ITM_READ_ARGS *)ptr__HDR);
-          *(result__GDR) = *(ITM_READ_ARGS__);
-        };
-        ((__ITM_READ_ARGS *)result__GDR)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__Z5Q;
-        result__M5N=result__GDR;
-      };
-    };
-  };
-  return(result__M5N);
-}
-
-static void* readlip_expr_cmp__0Y1B(__PARSER *Self__1Y1B)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *right__4Y1B,*result__3Y1B;
-  void *op__5Y1B;
-  __POSITION pos__P00G,p__WVBD;
-  __STRING_CONSTANT *Self__GUBD;
-  __LIP_BINARY *result__1JGD,*Self__I0SD;
-  __POINTER ptr__2JGD,ptr_table__DJLH,next__CJLH,result__EJLH;
-  __POINTER ptr_table__IJLH,next__HJLH,result__JJLH;
-  __INTEGER typ_id__BKGD;
-  __UINTEGER_32 sz__4JGD,a__OLGH,new_size__PLGH,t__TLGH,a__SLGH;
-  __UINTEGER_32 new_size__LJLH,lab_type__KJLH;
-  __CHARACTER type__AZ1B;
-  right__4Y1B=NULL;
-  op__5Y1B=NULL;
-  type__AZ1B='\0';
-  result__3Y1B=readlip_expr_binary__XL3B(Self__1Y1B);
-  if (((void *)result__3Y1B != (void *)NULL)) {
-    while ((((((read_symbol__4YJ((&__string_19)) || read_symbol__4YJ((&__string_21))) || read_symbol__4YJ((&__string_17))) || read_symbol__4YJ((&__string_16))) || read_symbol__4YJ((&__string_18))) || read_symbol__4YJ((&__string_20)))) {
-      op__5Y1B=last_string__D2C;
-      right__4Y1B=readlip_expr_binary__XL3B(Self__1Y1B);
-      if (((void *)right__4Y1B == (void *)NULL)) {
-        pos__P00G=current_position__B0F();
-        put_error__text__1PG( 0,(&__string_239));
-        put_position__FRG(pos__P00G);
-        put_string__33F(msg_err__AQG);
-        if ((type_error__5PG !=  2)) {
-          exit(( 1));
-        };
-      };
-      Self__GUBD=((__STRING_CONSTANT *)op__5Y1B);
-      if (((void *)Self__GUBD == (void *)(&__string_19))) {
-        type__AZ1B='S';
-      };
-      if (((void *)Self__GUBD == (void *)(&__string_21))) {
-        type__AZ1B='I';
-      };
-      if (((void *)Self__GUBD == (void *)(&__string_17))) {
-        type__AZ1B='E';
-      };
-      if (((void *)Self__GUBD == (void *)(&__string_16))) {
-        type__AZ1B='=';
-      };
-      if (((void *)Self__GUBD == (void *)(&__string_18))) {
-        type__AZ1B='>';
-      };
-      if (((void *)Self__GUBD == (void *)(&__string_20))) {
-        type__AZ1B='<';
-      };
-      p__WVBD=current_position__B0F();
-      result__1JGD=NULL;
-      ptr__2JGD=((__POINTER )(NULL));
-      typ_id__BKGD= 0;
-      sz__4JGD=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-      if ((sz__4JGD ==  0)) {
-        result__1JGD=LIP_BINARY__;
-      } else {
-        typ_id__BKGD=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4JGD);
-        if ((typ_id__BKGD == (__INTEGER)(-  1))) {
-          a__OLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__PLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4JGD + a__OLGH) & (__UINTEGER_32)(~ a__OLGH));
-          ptr_table__DJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__CJLH=((__POINTER )(NULL));
-          result__EJLH=((__POINTER *)ptr_table__DJLH)[ 0];
-          if ((result__EJLH == (void *)NULL)) {
-            result__EJLH=new_lab__RTJ(new_size__PLGH);
-            next__CJLH=(void *)((unsigned long)result__EJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLGH)));
-            ((__POINTER *)next__CJLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__DJLH)[ 0]=next__CJLH;
-          } else {
-            next__CJLH=((__POINTER *)result__EJLH)[ 0];
-            if ((next__CJLH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EJLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PLGH <<  1)) <=  4096)) {
-                next__CJLH=(void *)((unsigned long)result__EJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLGH)));
-              } else {
-                next__CJLH=new_lab__RTJ(new_size__PLGH);
-              };
-              ((__POINTER *)next__CJLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__DJLH)[ 0]=next__CJLH;
-            } else {
-              ((__POINTER *)result__EJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__EJLH=next__CJLH;
-            };
-          };
-          ptr__2JGD=result__EJLH;
-        } else {
-          t__TLGH=((__UINTEGER_32 )typ_id__BKGD);
-          a__SLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__LJLH=(__UINTEGER_32)((__UINTEGER_32)(sz__4JGD + a__SLGH) & (__UINTEGER_32)(~ a__SLGH));
-          ptr_table__IJLH=((__POINTER )(&(table_type[(t__TLGH)])));
-          lab_type__KJLH=(__UINTEGER_32)(t__TLGH |  1);
-          next__HJLH=((__POINTER )(NULL));
-          result__JJLH=((__POINTER *)ptr_table__IJLH)[ 0];
-          if ((result__JJLH == (void *)NULL)) {
-            result__JJLH=new_lab__RTJ(lab_type__KJLH);
-            next__HJLH=(void *)((unsigned long)result__JJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LJLH)));
-            ((__POINTER *)next__HJLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__IJLH)[ 0]=next__HJLH;
-          } else {
-            next__HJLH=((__POINTER *)result__JJLH)[ 0];
-            if ((next__HJLH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JJLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__LJLH <<  1)) <=  4096)) {
-                next__HJLH=(void *)((unsigned long)result__JJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LJLH)));
-              } else {
-                next__HJLH=new_lab__RTJ(lab_type__KJLH);
-              };
-              ((__POINTER *)next__HJLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__IJLH)[ 0]=next__HJLH;
-            } else {
-              ((__POINTER *)result__JJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__JJLH=next__HJLH;
-            };
-          };
-          ptr__2JGD=result__JJLH;
-        };
-        result__1JGD=((__LIP_BINARY *)ptr__2JGD);
-        *(result__1JGD) = *(LIP_BINARY__);
-      };
-      Self__I0SD=((__LIP_BINARY *)result__1JGD);
-      Self__I0SD->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__WVBD;
-      Self__I0SD->left__J2QD=result__3Y1B;
-      Self__I0SD->right__M2QD=right__4Y1B;
-      Self__I0SD->operator__P2QD=type__AZ1B;
-      result__3Y1B=result__1JGD;
-    };
-  };
-  return(result__3Y1B);
-}
-
-static void** create__3WIE(__INTEGER nb_elements__5WIE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__BGHH,a__AGHH,new_size__CGHH,new_size2__DGHH,a__EGHH;
-  __UINTEGER_32 new_size__FGHH;
-  __POINTER result__5FHH,ptr_table__NJLH,next__MJLH,result__OJLH;
-  __INTEGER Self__BXYE;
-  void **Result__G1NE;
-  sz__BGHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5WIE * ((__INTEGER )(sizeof(void *)))));
-  result__5FHH=((__POINTER )(NULL));
-  a__AGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__CGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BGHH + a__AGHH) & (__UINTEGER_32)(~ a__AGHH));
-  new_size2__DGHH=(__UINTEGER_32)(new_size__CGHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__DGHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__EGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__FGHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__DGHH + a__EGHH) & (__UINTEGER_32)(~ a__EGHH));
-    ptr_table__NJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__MJLH=((__POINTER )(NULL));
-    result__OJLH=((__POINTER *)ptr_table__NJLH)[ 0];
-    if ((result__OJLH == (void *)NULL)) {
-      result__OJLH=new_lab__RTJ(new_size__FGHH);
-      next__MJLH=(void *)((unsigned long)result__OJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FGHH)));
-      ((__POINTER *)next__MJLH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__NJLH)[ 0]=next__MJLH;
-    } else {
-      next__MJLH=((__POINTER *)result__OJLH)[ 0];
-      if ((next__MJLH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OJLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__FGHH <<  1)) <=  4096)) {
-          next__MJLH=(void *)((unsigned long)result__OJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FGHH)));
-        } else {
-          next__MJLH=new_lab__RTJ(new_size__FGHH);
-        };
-        ((__POINTER *)next__MJLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__NJLH)[ 0]=next__MJLH;
-      } else {
-        ((__POINTER *)result__OJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__OJLH=next__MJLH;
-      };
-    };
-    ((__POINTER *)result__OJLH)[ 0]=((__POINTER ) 3);
-    result__5FHH=(void *)((unsigned long)result__OJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__5FHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__CGHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__G1NE=((void **)result__5FHH);
-  Self__BXYE=(__INTEGER)(nb_elements__5WIE -  1);
-  while ((Self__BXYE >=  0)) {
-    Result__G1NE[Self__BXYE]=NULL;
-    Self__BXYE=(__INTEGER)(Self__BXYE -  1);
-  };
-  return(Result__G1NE);
-}
-
-static void** create__KPQB(__INTEGER nb_elements__MPQB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
-  __UINTEGER_32 sz__JGHH,a__IGHH,new_size__KGHH,new_size2__LGHH,a__MGHH;
-  __UINTEGER_32 new_size__NGHH;
-  __POINTER result__HGHH,ptr_table__SJLH,next__RJLH,result__TJLH;
-  __INTEGER Self__M0MC;
-  void **Result__GJTB;
-  sz__JGHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MPQB * ((__INTEGER )(sizeof(void *)))));
-  result__HGHH=((__POINTER )(NULL));
-  a__IGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-  new_size__KGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JGHH + a__IGHH) & (__UINTEGER_32)(~ a__IGHH));
-  new_size2__LGHH=(__UINTEGER_32)(new_size__KGHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
-  if ((new_size2__LGHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
-    a__MGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-    new_size__NGHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LGHH + a__MGHH) & (__UINTEGER_32)(~ a__MGHH));
-    ptr_table__SJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-    next__RJLH=((__POINTER )(NULL));
-    result__TJLH=((__POINTER *)ptr_table__SJLH)[ 0];
-    if ((result__TJLH == (void *)NULL)) {
-      result__TJLH=new_lab__RTJ(new_size__NGHH);
-      next__RJLH=(void *)((unsigned long)result__TJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NGHH)));
-      ((__POINTER *)next__RJLH)[ 0]=NULL;
-      ((__POINTER *)ptr_table__SJLH)[ 0]=next__RJLH;
-    } else {
-      next__RJLH=((__POINTER *)result__TJLH)[ 0];
-      if ((next__RJLH == (void *)NULL)) {
-        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TJLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__NGHH <<  1)) <=  4096)) {
-          next__RJLH=(void *)((unsigned long)result__TJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NGHH)));
-        } else {
-          next__RJLH=new_lab__RTJ(new_size__NGHH);
-        };
-        ((__POINTER *)next__RJLH)[ 0]=NULL;
-        ((__POINTER *)ptr_table__SJLH)[ 0]=next__RJLH;
-      } else {
-        ((__POINTER *)result__TJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-        result__TJLH=next__RJLH;
-      };
-    };
-    ((__POINTER *)result__TJLH)[ 0]=((__POINTER ) 3);
-    result__HGHH=(void *)((unsigned long)result__TJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
-  } else {
-    result__HGHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__KGHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
-  };
-  Result__GJTB=((void **)result__HGHH);
-  Self__M0MC=(__INTEGER)(nb_elements__MPQB -  1);
-  while ((Self__M0MC >=  0)) {
-    Result__GJTB[Self__M0MC]=NULL;
-    Self__M0MC=(__INTEGER)(Self__M0MC -  1);
-  };
-  return(Result__GJTB);
-}
-
-static void* read_argument__PPP(__PARSER *Self__QPP)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *result__SPP;
-  __POSITION p__ZTIH;
-  __ITM_READ *result__RTIH;
-  __POINTER ptr__STIH,ptr_table__XJLH,next__WJLH,result__YJLH;
-  __POINTER ptr_table__2JLH,next__1JLH,result__3JLH;
-  __INTEGER typ_id__TTIH;
-  __UINTEGER_32 sz__UTIH,a__VTIH,new_size__WTIH,t__XTIH,a__YTIH;
-  __UINTEGER_32 new_size__5JLH,lab_type__4JLH;
-  result__SPP=read_expr_primary__E5M(Self__QPP);
-  if ((((void *)result__SPP == (void *)NULL) && read_identifier__2BL())) {
-    if (is_shorter__LZ) {
-      if ((! fast_has__RDV(short_local__XCC,last_string__D2C))) {
-        short__token__to__GDD((&__string_131),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
-      };
-    };
-    p__ZTIH=current_position__B0F();
-    result__RTIH=NULL;
-    ptr__STIH=((__POINTER )(NULL));
-    typ_id__TTIH= 0;
-    sz__UTIH=((__UINTEGER_32 )sizeof(__ITM_READ));
-    if ((sz__UTIH ==  0)) {
-      result__RTIH=ITM_READ__;
-    } else {
-      typ_id__TTIH=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UTIH);
-      if ((typ_id__TTIH == (__INTEGER)(-  1))) {
-        a__VTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__WTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTIH + a__VTIH) & (__UINTEGER_32)(~ a__VTIH));
-        ptr_table__XJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WTIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__WJLH=((__POINTER )(NULL));
-        result__YJLH=((__POINTER *)ptr_table__XJLH)[ 0];
-        if ((result__YJLH == (void *)NULL)) {
-          result__YJLH=new_lab__RTJ(new_size__WTIH);
-          next__WJLH=(void *)((unsigned long)result__YJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTIH)));
-          ((__POINTER *)next__WJLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__XJLH)[ 0]=next__WJLH;
-        } else {
-          next__WJLH=((__POINTER *)result__YJLH)[ 0];
-          if ((next__WJLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YJLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__WTIH <<  1)) <=  4096)) {
-              next__WJLH=(void *)((unsigned long)result__YJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTIH)));
-            } else {
-              next__WJLH=new_lab__RTJ(new_size__WTIH);
-            };
-            ((__POINTER *)next__WJLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__XJLH)[ 0]=next__WJLH;
-          } else {
-            ((__POINTER *)result__YJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__YJLH=next__WJLH;
-          };
-        };
-        ptr__STIH=result__YJLH;
-      } else {
-        t__XTIH=((__UINTEGER_32 )typ_id__TTIH);
-        a__YTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__5JLH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTIH + a__YTIH) & (__UINTEGER_32)(~ a__YTIH));
-        ptr_table__2JLH=((__POINTER )(&(table_type[(t__XTIH)])));
-        lab_type__4JLH=(__UINTEGER_32)(t__XTIH |  1);
-        next__1JLH=((__POINTER )(NULL));
-        result__3JLH=((__POINTER *)ptr_table__2JLH)[ 0];
-        if ((result__3JLH == (void *)NULL)) {
-          result__3JLH=new_lab__RTJ(lab_type__4JLH);
-          next__1JLH=(void *)((unsigned long)result__3JLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JLH)));
-          ((__POINTER *)next__1JLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__2JLH)[ 0]=next__1JLH;
-        } else {
-          next__1JLH=((__POINTER *)result__3JLH)[ 0];
-          if ((next__1JLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3JLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5JLH <<  1)) <=  4096)) {
-              next__1JLH=(void *)((unsigned long)result__3JLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JLH)));
-            } else {
-              next__1JLH=new_lab__RTJ(lab_type__4JLH);
-            };
-            ((__POINTER *)next__1JLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__2JLH)[ 0]=next__1JLH;
-          } else {
-            ((__POINTER *)result__3JLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1JLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__3JLH=next__1JLH;
-          };
-        };
-        ptr__STIH=result__3JLH;
-      };
-      result__RTIH=((__ITM_READ *)ptr__STIH);
-      *(result__RTIH) = *(ITM_READ__);
-    };
-    ((__ITM_READ *)result__RTIH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__ZTIH;
-    result__SPP=result__RTIH;
-  };
-  return(result__SPP);
-}
-
-static void* readlip_expr_binary__XL3B(__PARSER *Self__YL3B)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *right__1L3B,*result__0L3B;
-  __POSITION pos__TA1G,p__DUIH,p__QUIH;
-  __LIP_BINARY *result__0TIH,*Self__CUIH,*result__HUIH,*Self__PUIH;
-  __POINTER ptr__1TIH,ptr_table__HKLH,next__GKLH,result__IKLH;
-  __POINTER ptr_table__MKLH,next__LKLH,result__NKLH,ptr__IUIH;
-  __POINTER ptr_table__RKLH,next__QKLH,result__SKLH,ptr_table__WKLH;
-  __POINTER next__VKLH,result__XKLH;
-  __INTEGER typ_id__2TIH,typ_id__JUIH;
-  __UINTEGER_32 sz__3TIH,a__4TIH,new_size__5TIH,t__AUIH,a__BUIH;
-  __UINTEGER_32 new_size__PKLH,lab_type__OKLH,sz__KUIH,a__LUIH;
-  __UINTEGER_32 new_size__MUIH,t__NUIH,a__OUIH,new_size__ZKLH;
-  __UINTEGER_32 lab_type__YKLH;
-  __BOOLEAN result__AKLH,__tmp__QM3B,result__DKLH;
-  __CHARACTER result__BKLH,result__EKLH;
-  right__1L3B=NULL;
-  result__0L3B=readlip_expr_unary__YX4B(Self__YL3B);
-  if (((void *)result__0L3B != (void *)NULL)) {
-    while_do__O25B:
-    {
-      result__AKLH=FALSE__;
-      if ((! read_space__XTD())) {
-        result__AKLH=FALSE__;
-      } else {
-        result__BKLH='\0';
-        if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-          result__BKLH=((__CHARACTER )(( 0)));
-        } else {
-          result__BKLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-        };
-        if ((result__BKLH == '-')) {
-          position__CCC=(__INTEGER)(position__CCC +  1);
-          result__AKLH=TRUE__;
-        };
-      };
-      if (result__AKLH) {
-        __tmp__QM3B=TRUE__;
-      } else {
-        result__DKLH=FALSE__;
-        if ((! read_space__XTD())) {
-          result__DKLH=FALSE__;
-        } else {
-          result__EKLH='\0';
-          if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-            result__EKLH=((__CHARACTER )(( 0)));
-          } else {
-            result__EKLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-          };
-          if ((result__EKLH == '+')) {
-            position__CCC=(__INTEGER)(position__CCC +  1);
-            result__DKLH=TRUE__;
-          };
-        };
-        __tmp__QM3B=result__DKLH;
-      };
-      if (__tmp__QM3B) {
-        right__1L3B=readlip_expr_unary__YX4B(Self__YL3B);
-        if (((void *)right__1L3B == (void *)NULL)) {
-          pos__TA1G=current_position__B0F();
-          put_error__text__1PG( 0,(&__string_239));
-          put_position__FRG(pos__TA1G);
-          put_string__33F(msg_err__AQG);
-          if ((type_error__5PG !=  2)) {
-            exit(( 1));
-          };
-        };
-        if (result__AKLH) {
-          p__DUIH=current_position__B0F();
-          result__0TIH=NULL;
-          ptr__1TIH=((__POINTER )(NULL));
-          typ_id__2TIH= 0;
-          sz__3TIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__3TIH ==  0)) {
-            result__0TIH=LIP_BINARY__;
-          } else {
-            typ_id__2TIH=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3TIH);
-            if ((typ_id__2TIH == (__INTEGER)(-  1))) {
-              a__4TIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__5TIH=(__UINTEGER_32)((__UINTEGER_32)(sz__3TIH + a__4TIH) & (__UINTEGER_32)(~ a__4TIH));
-              ptr_table__HKLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5TIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__GKLH=((__POINTER )(NULL));
-              result__IKLH=((__POINTER *)ptr_table__HKLH)[ 0];
-              if ((result__IKLH == (void *)NULL)) {
-                result__IKLH=new_lab__RTJ(new_size__5TIH);
-                next__GKLH=(void *)((unsigned long)result__IKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TIH)));
-                ((__POINTER *)next__GKLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__HKLH)[ 0]=next__GKLH;
-              } else {
-                next__GKLH=((__POINTER *)result__IKLH)[ 0];
-                if ((next__GKLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IKLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5TIH <<  1)) <=  4096)) {
-                    next__GKLH=(void *)((unsigned long)result__IKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TIH)));
-                  } else {
-                    next__GKLH=new_lab__RTJ(new_size__5TIH);
-                  };
-                  ((__POINTER *)next__GKLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__HKLH)[ 0]=next__GKLH;
-                } else {
-                  ((__POINTER *)result__IKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__IKLH=next__GKLH;
-                };
-              };
-              ptr__1TIH=result__IKLH;
-            } else {
-              t__AUIH=((__UINTEGER_32 )typ_id__2TIH);
-              a__BUIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__PKLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3TIH + a__BUIH) & (__UINTEGER_32)(~ a__BUIH));
-              ptr_table__MKLH=((__POINTER )(&(table_type[(t__AUIH)])));
-              lab_type__OKLH=(__UINTEGER_32)(t__AUIH |  1);
-              next__LKLH=((__POINTER )(NULL));
-              result__NKLH=((__POINTER *)ptr_table__MKLH)[ 0];
-              if ((result__NKLH == (void *)NULL)) {
-                result__NKLH=new_lab__RTJ(lab_type__OKLH);
-                next__LKLH=(void *)((unsigned long)result__NKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKLH)));
-                ((__POINTER *)next__LKLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__MKLH)[ 0]=next__LKLH;
-              } else {
-                next__LKLH=((__POINTER *)result__NKLH)[ 0];
-                if ((next__LKLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NKLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PKLH <<  1)) <=  4096)) {
-                    next__LKLH=(void *)((unsigned long)result__NKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKLH)));
-                  } else {
-                    next__LKLH=new_lab__RTJ(lab_type__OKLH);
-                  };
-                  ((__POINTER *)next__LKLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__MKLH)[ 0]=next__LKLH;
-                } else {
-                  ((__POINTER *)result__NKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__NKLH=next__LKLH;
-                };
-              };
-              ptr__1TIH=result__NKLH;
-            };
-            result__0TIH=((__LIP_BINARY *)ptr__1TIH);
-            *(result__0TIH) = *(LIP_BINARY__);
-          };
-          Self__CUIH=((__LIP_BINARY *)result__0TIH);
-          Self__CUIH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__DUIH;
-          Self__CUIH->left__J2QD=result__0L3B;
-          Self__CUIH->right__M2QD=right__1L3B;
-          Self__CUIH->operator__P2QD='-';
-          result__0L3B=result__0TIH;
-        } else {
-          p__QUIH=current_position__B0F();
-          result__HUIH=NULL;
-          ptr__IUIH=((__POINTER )(NULL));
-          typ_id__JUIH= 0;
-          sz__KUIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
-          if ((sz__KUIH ==  0)) {
-            result__HUIH=LIP_BINARY__;
-          } else {
-            typ_id__JUIH=-1;
-            clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__KUIH);
-            if ((typ_id__JUIH == (__INTEGER)(-  1))) {
-              a__LUIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__MUIH=(__UINTEGER_32)((__UINTEGER_32)(sz__KUIH + a__LUIH) & (__UINTEGER_32)(~ a__LUIH));
-              ptr_table__RKLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MUIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-              next__QKLH=((__POINTER )(NULL));
-              result__SKLH=((__POINTER *)ptr_table__RKLH)[ 0];
-              if ((result__SKLH == (void *)NULL)) {
-                result__SKLH=new_lab__RTJ(new_size__MUIH);
-                next__QKLH=(void *)((unsigned long)result__SKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUIH)));
-                ((__POINTER *)next__QKLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__RKLH)[ 0]=next__QKLH;
-              } else {
-                next__QKLH=((__POINTER *)result__SKLH)[ 0];
-                if ((next__QKLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SKLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__MUIH <<  1)) <=  4096)) {
-                    next__QKLH=(void *)((unsigned long)result__SKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUIH)));
-                  } else {
-                    next__QKLH=new_lab__RTJ(new_size__MUIH);
-                  };
-                  ((__POINTER *)next__QKLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__RKLH)[ 0]=next__QKLH;
-                } else {
-                  ((__POINTER *)result__SKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__SKLH=next__QKLH;
-                };
-              };
-              ptr__IUIH=result__SKLH;
-            } else {
-              t__NUIH=((__UINTEGER_32 )typ_id__JUIH);
-              a__OUIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-              new_size__ZKLH=(__UINTEGER_32)((__UINTEGER_32)(sz__KUIH + a__OUIH) & (__UINTEGER_32)(~ a__OUIH));
-              ptr_table__WKLH=((__POINTER )(&(table_type[(t__NUIH)])));
-              lab_type__YKLH=(__UINTEGER_32)(t__NUIH |  1);
-              next__VKLH=((__POINTER )(NULL));
-              result__XKLH=((__POINTER *)ptr_table__WKLH)[ 0];
-              if ((result__XKLH == (void *)NULL)) {
-                result__XKLH=new_lab__RTJ(lab_type__YKLH);
-                next__VKLH=(void *)((unsigned long)result__XKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZKLH)));
-                ((__POINTER *)next__VKLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__WKLH)[ 0]=next__VKLH;
-              } else {
-                next__VKLH=((__POINTER *)result__XKLH)[ 0];
-                if ((next__VKLH == (void *)NULL)) {
-                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XKLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZKLH <<  1)) <=  4096)) {
-                    next__VKLH=(void *)((unsigned long)result__XKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZKLH)));
-                  } else {
-                    next__VKLH=new_lab__RTJ(lab_type__YKLH);
-                  };
-                  ((__POINTER *)next__VKLH)[ 0]=NULL;
-                  ((__POINTER *)ptr_table__WKLH)[ 0]=next__VKLH;
-                } else {
-                  ((__POINTER *)result__XKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                  result__XKLH=next__VKLH;
-                };
-              };
-              ptr__IUIH=result__XKLH;
-            };
-            result__HUIH=((__LIP_BINARY *)ptr__IUIH);
-            *(result__HUIH) = *(LIP_BINARY__);
-          };
-          Self__PUIH=((__LIP_BINARY *)result__HUIH);
-          Self__PUIH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__QUIH;
-          Self__PUIH->left__J2QD=result__0L3B;
-          Self__PUIH->right__M2QD=right__1L3B;
-          Self__PUIH->operator__P2QD='+';
-          result__0L3B=result__HUIH;
-        };
-        goto while_do__O25B;
-      };
-    };
-  };
-  return(result__0L3B);
-}
-
-static void* readlip_expr_unary__YX4B(__PARSER *Self__ZX4B)
-// ({PARSER}) With resultRecursive, No inlinable.
-{
-  void *result__1X4B,*result__XGFE;
-  void *nam__4X4B,*n__ULLH;
-  __POSITION pos__FC1G,p__XA0C,p__TLLH,p__KHFE;
-  __LIP_UNARY *result__VPBD,*Self__3KSD;
-  __POINTER ptr__WPBD,ptr_table__BLLH,next__ALLH,result__CLLH;
-  __POINTER ptr_table__GLLH,next__FLLH,result__HLLH,ptr__LLLH;
-  __POINTER ptr_table__XLLH,next__WLLH,result__YLLH,ptr_table__2LLH;
-  __POINTER next__1LLH,result__3LLH,ptr__OVLE,ptr_table__BMLH;
-  __POINTER next__AMLH,result__CMLH,ptr_table__GMLH,next__FMLH;
-  __POINTER result__HMLH;
-  __INTEGER typ_id__1PBD,typ_id__MLLH,typ_id__TVLE;
-  __UINTEGER_32 sz__YPBD,a__WMGH,new_size__XMGH,t__1MGH,a__0MGH;
-  __UINTEGER_32 new_size__JLLH,lab_type__ILLH,sz__NLLH,a__OLLH;
-  __UINTEGER_32 new_size__PLLH,t__QLLH,a__RLLH,new_size__5LLH;
-  __UINTEGER_32 lab_type__4LLH,sz__QVLE,a__4MGH,new_size__5MGH,t__DNGH;
-  __UINTEGER_32 a__CNGH,new_size__JMLH,lab_type__IMLH;
-  __LIP_CALL *result__KLLH,*Self__SLLH,*result__NVLE,*Self__ASWE;
-  __CHARACTER type__3X4B,result__1KLH,result__4KLH;
-  __BOOLEAN result__0KLH,__tmp__JY4B,result__3KLH,__tmp__JZ4B;
-  result__1X4B=NULL;
-  type__3X4B='\0';
-  nam__4X4B=NULL;
-  result__0KLH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__0KLH=FALSE__;
-  } else {
-    result__1KLH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__1KLH=((__CHARACTER )(( 0)));
-    } else {
-      result__1KLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__1KLH == '-')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__0KLH=TRUE__;
-    };
-  };
-  if (result__0KLH) {
-    __tmp__JY4B=TRUE__;
-  } else {
-    result__3KLH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__3KLH=FALSE__;
-    } else {
-      result__4KLH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__4KLH=((__CHARACTER )(( 0)));
-      } else {
-        result__4KLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__4KLH == '!')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__3KLH=TRUE__;
-      };
-    };
-    __tmp__JY4B=result__3KLH;
-  };
-  if (__tmp__JY4B) {
-    result__1X4B=readlip_expr_unary__YX4B(Self__ZX4B);
-    if (((void *)result__1X4B == (void *)NULL)) {
-      pos__FC1G=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_239));
-      put_position__FRG(pos__FC1G);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    if (result__0KLH) {
-      type__3X4B='-';
-    } else {
-      type__3X4B='!';
-    };
-    p__XA0C=current_position__B0F();
-    result__VPBD=NULL;
-    ptr__WPBD=((__POINTER )(NULL));
-    typ_id__1PBD= 0;
-    sz__YPBD=((__UINTEGER_32 )sizeof(__LIP_UNARY));
-    if ((sz__YPBD ==  0)) {
-      result__VPBD=LIP_UNARY__;
-    } else {
-      typ_id__1PBD=-1;
-      clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__YPBD);
-      if ((typ_id__1PBD == (__INTEGER)(-  1))) {
-        a__WMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__XMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YPBD + a__WMGH) & (__UINTEGER_32)(~ a__WMGH));
-        ptr_table__BLLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-        next__ALLH=((__POINTER )(NULL));
-        result__CLLH=((__POINTER *)ptr_table__BLLH)[ 0];
-        if ((result__CLLH == (void *)NULL)) {
-          result__CLLH=new_lab__RTJ(new_size__XMGH);
-          next__ALLH=(void *)((unsigned long)result__CLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMGH)));
-          ((__POINTER *)next__ALLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__BLLH)[ 0]=next__ALLH;
-        } else {
-          next__ALLH=((__POINTER *)result__CLLH)[ 0];
-          if ((next__ALLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CLLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__XMGH <<  1)) <=  4096)) {
-              next__ALLH=(void *)((unsigned long)result__CLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMGH)));
-            } else {
-              next__ALLH=new_lab__RTJ(new_size__XMGH);
-            };
-            ((__POINTER *)next__ALLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BLLH)[ 0]=next__ALLH;
-          } else {
-            ((__POINTER *)result__CLLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ALLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__CLLH=next__ALLH;
-          };
-        };
-        ptr__WPBD=result__CLLH;
-      } else {
-        t__1MGH=((__UINTEGER_32 )typ_id__1PBD);
-        a__0MGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-        new_size__JLLH=(__UINTEGER_32)((__UINTEGER_32)(sz__YPBD + a__0MGH) & (__UINTEGER_32)(~ a__0MGH));
-        ptr_table__GLLH=((__POINTER )(&(table_type[(t__1MGH)])));
-        lab_type__ILLH=(__UINTEGER_32)(t__1MGH |  1);
-        next__FLLH=((__POINTER )(NULL));
-        result__HLLH=((__POINTER *)ptr_table__GLLH)[ 0];
-        if ((result__HLLH == (void *)NULL)) {
-          result__HLLH=new_lab__RTJ(lab_type__ILLH);
-          next__FLLH=(void *)((unsigned long)result__HLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLLH)));
-          ((__POINTER *)next__FLLH)[ 0]=NULL;
-          ((__POINTER *)ptr_table__GLLH)[ 0]=next__FLLH;
-        } else {
-          next__FLLH=((__POINTER *)result__HLLH)[ 0];
-          if ((next__FLLH == (void *)NULL)) {
-            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HLLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JLLH <<  1)) <=  4096)) {
-              next__FLLH=(void *)((unsigned long)result__HLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLLH)));
-            } else {
-              next__FLLH=new_lab__RTJ(lab_type__ILLH);
-            };
-            ((__POINTER *)next__FLLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GLLH)[ 0]=next__FLLH;
-          } else {
-            ((__POINTER *)result__HLLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FLLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-            result__HLLH=next__FLLH;
-          };
-        };
-        ptr__WPBD=result__HLLH;
-      };
-      result__VPBD=((__LIP_UNARY *)ptr__WPBD);
-      *(result__VPBD) = *(LIP_UNARY__);
-    };
-    Self__3KSD=((__LIP_UNARY *)result__VPBD);
-    Self__3KSD->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ=p__XA0C;
-    Self__3KSD->operator__J5QD=type__3X4B;
-    Self__3KSD->value__G5QD=result__1X4B;
-    result__1X4B=result__VPBD;
-    __tmp__JZ4B=TRUE__;
-  } else {
-    __tmp__JZ4B=FALSE__;
-  };
-  if ((! __tmp__JZ4B)) {
-    if (read_identifier__2BL()) {
-      nam__4X4B=last_string__D2C;
-      result__XGFE=NULL;
-      if (read_identifier__2BL()) {
-        p__TLLH=current_position__B0F();
-        n__ULLH=last_string__D2C;
-        result__KLLH=NULL;
-        ptr__LLLH=((__POINTER )(NULL));
-        typ_id__MLLH= 0;
-        sz__NLLH=((__UINTEGER_32 )sizeof(__LIP_CALL));
-        if ((sz__NLLH ==  0)) {
-          result__KLLH=LIP_CALL__;
-        } else {
-          typ_id__MLLH=-1;
-          clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NLLH);
-          if ((typ_id__MLLH == (__INTEGER)(-  1))) {
-            a__OLLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__PLLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NLLH + a__OLLH) & (__UINTEGER_32)(~ a__OLLH));
-            ptr_table__XLLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-            next__WLLH=((__POINTER )(NULL));
-            result__YLLH=((__POINTER *)ptr_table__XLLH)[ 0];
-            if ((result__YLLH == (void *)NULL)) {
-              result__YLLH=new_lab__RTJ(new_size__PLLH);
-              next__WLLH=(void *)((unsigned long)result__YLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLLH)));
-              ((__POINTER *)next__WLLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__XLLH)[ 0]=next__WLLH;
-            } else {
-              next__WLLH=((__POINTER *)result__YLLH)[ 0];
-              if ((next__WLLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YLLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__PLLH <<  1)) <=  4096)) {
-                  next__WLLH=(void *)((unsigned long)result__YLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLLH)));
-                } else {
-                  next__WLLH=new_lab__RTJ(new_size__PLLH);
-                };
-                ((__POINTER *)next__WLLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__XLLH)[ 0]=next__WLLH;
-              } else {
-                ((__POINTER *)result__YLLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WLLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__YLLH=next__WLLH;
-              };
-            };
-            ptr__LLLH=result__YLLH;
-          } else {
-            t__QLLH=((__UINTEGER_32 )typ_id__MLLH);
-            a__RLLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-            new_size__5LLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NLLH + a__RLLH) & (__UINTEGER_32)(~ a__RLLH));
-            ptr_table__2LLH=((__POINTER )(&(table_type[(t__QLLH)])));
-            lab_type__4LLH=(__UINTEGER_32)(t__QLLH |  1);
-            next__1LLH=((__POINTER )(NULL));
-            result__3LLH=((__POINTER *)ptr_table__2LLH)[ 0];
-            if ((result__3LLH == (void *)NULL)) {
-              result__3LLH=new_lab__RTJ(lab_type__4LLH);
-              next__1LLH=(void *)((unsigned long)result__3LLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LLH)));
-              ((__POINTER *)next__1LLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__2LLH)[ 0]=next__1LLH;
-            } else {
-              next__1LLH=((__POINTER *)result__3LLH)[ 0];
-              if ((next__1LLH == (void *)NULL)) {
-                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3LLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5LLH <<  1)) <=  4096)) {
-                  next__1LLH=(void *)((unsigned long)result__3LLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LLH)));
-                } else {
-                  next__1LLH=new_lab__RTJ(lab_type__4LLH);
-                };
-                ((__POINTER *)next__1LLH)[ 0]=NULL;
-                ((__POINTER *)ptr_table__2LLH)[ 0]=next__1LLH;
-              } else {
-                ((__POINTER *)result__3LLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1LLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-                result__3LLH=next__1LLH;
-              };
-            };
-            ptr__LLLH=result__3LLH;
-          };
-          result__KLLH=((__LIP_CALL *)ptr__LLLH);
-          *(result__KLLH) = *(LIP_CALL__);
-        };
-        Self__SLLH=((__LIP_CALL *)result__KLLH);
-        Self__SLLH->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ=p__TLLH;
-        Self__SLLH->name__JRUE=n__ULLH;
-        Self__SLLH->argument__4QUE=NULL;
-        result__XGFE=result__KLLH;
-      } else {
-        result__XGFE=readlip_expr_base__QHFE(Self__ZX4B);
-      };
-      p__KHFE=current_position__B0F();
-      result__NVLE=NULL;
-      ptr__OVLE=((__POINTER )(NULL));
-      typ_id__TVLE= 0;
-      sz__QVLE=((__UINTEGER_32 )sizeof(__LIP_CALL));
-      if ((sz__QVLE ==  0)) {
-        result__NVLE=LIP_CALL__;
-      } else {
-        typ_id__TVLE=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QVLE);
-        if ((typ_id__TVLE == (__INTEGER)(-  1))) {
-          a__4MGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__5MGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QVLE + a__4MGH) & (__UINTEGER_32)(~ a__4MGH));
-          ptr_table__BMLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5MGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__AMLH=((__POINTER )(NULL));
-          result__CMLH=((__POINTER *)ptr_table__BMLH)[ 0];
-          if ((result__CMLH == (void *)NULL)) {
-            result__CMLH=new_lab__RTJ(new_size__5MGH);
-            next__AMLH=(void *)((unsigned long)result__CMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MGH)));
-            ((__POINTER *)next__AMLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__BMLH)[ 0]=next__AMLH;
-          } else {
-            next__AMLH=((__POINTER *)result__CMLH)[ 0];
-            if ((next__AMLH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CMLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__5MGH <<  1)) <=  4096)) {
-                next__AMLH=(void *)((unsigned long)result__CMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MGH)));
-              } else {
-                next__AMLH=new_lab__RTJ(new_size__5MGH);
-              };
-              ((__POINTER *)next__AMLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__BMLH)[ 0]=next__AMLH;
-            } else {
-              ((__POINTER *)result__CMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__CMLH=next__AMLH;
-            };
-          };
-          ptr__OVLE=result__CMLH;
-        } else {
-          t__DNGH=((__UINTEGER_32 )typ_id__TVLE);
-          a__CNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__JMLH=(__UINTEGER_32)((__UINTEGER_32)(sz__QVLE + a__CNGH) & (__UINTEGER_32)(~ a__CNGH));
-          ptr_table__GMLH=((__POINTER )(&(table_type[(t__DNGH)])));
-          lab_type__IMLH=(__UINTEGER_32)(t__DNGH |  1);
-          next__FMLH=((__POINTER )(NULL));
-          result__HMLH=((__POINTER *)ptr_table__GMLH)[ 0];
-          if ((result__HMLH == (void *)NULL)) {
-            result__HMLH=new_lab__RTJ(lab_type__IMLH);
-            next__FMLH=(void *)((unsigned long)result__HMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JMLH)));
-            ((__POINTER *)next__FMLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__GMLH)[ 0]=next__FMLH;
-          } else {
-            next__FMLH=((__POINTER *)result__HMLH)[ 0];
-            if ((next__FMLH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HMLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__JMLH <<  1)) <=  4096)) {
-                next__FMLH=(void *)((unsigned long)result__HMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JMLH)));
-              } else {
-                next__FMLH=new_lab__RTJ(lab_type__IMLH);
-              };
-              ((__POINTER *)next__FMLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__GMLH)[ 0]=next__FMLH;
-            } else {
-              ((__POINTER *)result__HMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__HMLH=next__FMLH;
-            };
-          };
-          ptr__OVLE=result__HMLH;
-        };
-        result__NVLE=((__LIP_CALL *)ptr__OVLE);
-        *(result__NVLE) = *(LIP_CALL__);
-      };
-      Self__ASWE=((__LIP_CALL *)result__NVLE);
-      Self__ASWE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ=p__KHFE;
-      Self__ASWE->name__JRUE=nam__4X4B;
-      Self__ASWE->argument__4QUE=result__XGFE;
-      result__1X4B=result__NVLE;
-    } else {
-      result__1X4B=readlip_expr_base__QHFE(Self__ZX4B);
-    };
-  };
-  return(result__1X4B);
-}
-
-static void* readlip_expr_base__QHFE(__PARSER *Self__RHFE)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
-  void *result__THFE;
-  __POSITION pos__VC1G,pos__XC1G,pos__ZC1G,p__KBSE;
-  void *result__KZPE;
-  __LIP_VALUE *result__ZZSE,*Self__UGXE;
-  __POINTER ptr__0ZSE,ptr_table__RMLH,next__QMLH,result__SMLH;
-  __POINTER ptr_table__WMLH,next__VMLH,result__XMLH;
-  __INTEGER typ_id__5ZSE;
-  __UINTEGER_32 sz__2ZSE,a__GNGH,new_size__HNGH,t__LNGH,a__KNGH;
-  __UINTEGER_32 new_size__ZMLH,lab_type__YMLH;
-  __BOOLEAN result__KMLH,result__NMLH,__tmp__XZPE,__tmp__H0PE;
-  __BOOLEAN result__RWQE,__tmp__20PE;
-  __CHARACTER result__LMLH,result__OMLH;
-  result__THFE=NULL;
-  result__KMLH=FALSE__;
-  if ((! read_space__XTD())) {
-    result__KMLH=FALSE__;
-  } else {
-    result__LMLH='\0';
-    if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-      result__LMLH=((__CHARACTER )(( 0)));
-    } else {
-      result__LMLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-    };
-    if ((result__LMLH == '(')) {
-      position__CCC=(__INTEGER)(position__CCC +  1);
-      result__KMLH=TRUE__;
-    };
-  };
-  if (result__KMLH) {
-    result__THFE=readlip_expr_operator__GMZB(Self__RHFE);
-    if (((void *)result__THFE == (void *)NULL)) {
-      pos__VC1G=current_position__B0F();
-      put_error__text__1PG( 0,(&__string_239));
-      put_position__FRG(pos__VC1G);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-    result__NMLH=FALSE__;
-    if ((! read_space__XTD())) {
-      result__NMLH=FALSE__;
-    } else {
-      result__OMLH='\0';
-      if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
-        result__OMLH=((__CHARACTER )(( 0)));
-      } else {
-        result__OMLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC -  1)];
-      };
-      if ((result__OMLH == ')')) {
-        position__CCC=(__INTEGER)(position__CCC +  1);
-        result__NMLH=TRUE__;
-      };
-    };
-    if ((! result__NMLH)) {
-      pos__XC1G=current_position__B0F();
-      put_error__text__1PG( 2,(&__string_237));
-      put_position__FRG(pos__XC1G);
-      put_string__33F(msg_err__AQG);
-      if ((type_error__5PG !=  2)) {
-        exit(( 1));
-      };
-    };
-  } else {
-    result__KZPE=NULL;
-    if (read_integer__22P()) {
-      result__KZPE=get__UYSE(LIP_INTEGER__,((__INTEGER )last_integer__VSO));
-      __tmp__XZPE=TRUE__;
-    } else {
-      __tmp__XZPE=FALSE__;
-    };
-    if (__tmp__XZPE) {
-      __tmp__H0PE=TRUE__;
-    } else {
-      result__RWQE=read_string__HGQ();
-      if (result__RWQE) {
-        result__KZPE=get__34FF(LIP_STRING__,last_string__D2C);
-      };
-      __tmp__H0PE=result__RWQE;
-    };
-    if ((! __tmp__H0PE)) {
-      if (read_cap_identifier__N1J()) {
-        if (((void *)last_string__D2C == (void *)(&__string_42))) {
-          result__KZPE=true__5YLF;
-          __tmp__20PE=TRUE__;
-        } else {
-          __tmp__20PE=FALSE__;
-        };
-        if ((! __tmp__20PE)) {
-          if (((void *)last_string__D2C == (void *)(&__string_43))) {
-            result__KZPE=LIP_BOOLEAN__;
-          } else {
-            pos__ZC1G=current_position__B0F();
-            put_error__text__1PG( 0,(&__string_334));
-            put_position__FRG(pos__ZC1G);
-            put_string__33F(msg_err__AQG);
-            if ((type_error__5PG !=  2)) {
-              exit(( 1));
-            };
-          };
-        };
-      };
-    };
-    if (((void *)result__KZPE != (void *)NULL)) {
-      p__KBSE=current_position__B0F();
-      result__ZZSE=NULL;
-      ptr__0ZSE=((__POINTER )(NULL));
-      typ_id__5ZSE= 0;
-      sz__2ZSE=((__UINTEGER_32 )sizeof(__LIP_VALUE));
-      if ((sz__2ZSE ==  0)) {
-        result__ZZSE=LIP_VALUE__;
-      } else {
-        typ_id__5ZSE=-1;
-        clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2ZSE);
-        if ((typ_id__5ZSE == (__INTEGER)(-  1))) {
-          a__GNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__HNGH=(__UINTEGER_32)((__UINTEGER_32)(sz__2ZSE + a__GNGH) & (__UINTEGER_32)(~ a__GNGH));
-          ptr_table__RMLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HNGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
-          next__QMLH=((__POINTER )(NULL));
-          result__SMLH=((__POINTER *)ptr_table__RMLH)[ 0];
-          if ((result__SMLH == (void *)NULL)) {
-            result__SMLH=new_lab__RTJ(new_size__HNGH);
-            next__QMLH=(void *)((unsigned long)result__SMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HNGH)));
-            ((__POINTER *)next__QMLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__RMLH)[ 0]=next__QMLH;
-          } else {
-            next__QMLH=((__POINTER *)result__SMLH)[ 0];
-            if ((next__QMLH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SMLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__HNGH <<  1)) <=  4096)) {
-                next__QMLH=(void *)((unsigned long)result__SMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HNGH)));
-              } else {
-                next__QMLH=new_lab__RTJ(new_size__HNGH);
-              };
-              ((__POINTER *)next__QMLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__RMLH)[ 0]=next__QMLH;
-            } else {
-              ((__POINTER *)result__SMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__SMLH=next__QMLH;
-            };
-          };
-          ptr__0ZSE=result__SMLH;
-        } else {
-          t__LNGH=((__UINTEGER_32 )typ_id__5ZSE);
-          a__KNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
-          new_size__ZMLH=(__UINTEGER_32)((__UINTEGER_32)(sz__2ZSE + a__KNGH) & (__UINTEGER_32)(~ a__KNGH));
-          ptr_table__WMLH=((__POINTER )(&(table_type[(t__LNGH)])));
-          lab_type__YMLH=(__UINTEGER_32)(t__LNGH |  1);
-          next__VMLH=((__POINTER )(NULL));
-          result__XMLH=((__POINTER *)ptr_table__WMLH)[ 0];
-          if ((result__XMLH == (void *)NULL)) {
-            result__XMLH=new_lab__RTJ(lab_type__YMLH);
-            next__VMLH=(void *)((unsigned long)result__XMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZMLH)));
-            ((__POINTER *)next__VMLH)[ 0]=NULL;
-            ((__POINTER *)ptr_table__WMLH)[ 0]=next__VMLH;
-          } else {
-            next__VMLH=((__POINTER *)result__XMLH)[ 0];
-            if ((next__VMLH == (void *)NULL)) {
-              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XMLH - (unsigned long)begin_memory__4XH)))) &  4095) + (__UINTEGER_32)(new_size__ZMLH <<  1)) <=  4096)) {
-                next__VMLH=(void *)((unsigned long)result__XMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZMLH)));
-              } else {
-                next__VMLH=new_lab__RTJ(lab_type__YMLH);
-              };
-              ((__POINTER *)next__VMLH)[ 0]=NULL;
-              ((__POINTER *)ptr_table__WMLH)[ 0]=next__VMLH;
-            } else {
-              ((__POINTER *)result__XMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
-              result__XMLH=next__VMLH;
-            };
-          };
-          ptr__0ZSE=result__XMLH;
-        };
-        result__ZZSE=((__LIP_VALUE *)ptr__0ZSE);
-        *(result__ZZSE) = *(LIP_VALUE__);
-      };
-      Self__UGXE=((__LIP_VALUE *)result__ZZSE);
-      Self__UGXE->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ=p__KBSE;
-      Self__UGXE->value__I1UE=result__KZPE;
-      result__THFE=result__ZZSE;
-    };
-  };
-  return(result__THFE);
-}
-
-//==========================//
-// DEBUG MANAGER            //
-//==========================//
-
-void print_string(char *str) 
-{ 
-  while (*str!=0) {
-    print_char(*str); 
-    str++; 
-  };
-}  
-
diff --git a/install_lisaac.c b/install_lisaac.c
index f6f6da4..d144429 100644
--- a/install_lisaac.c
+++ b/install_lisaac.c
@@ -2,7 +2,6 @@
 #define _LARGE_FILE_API
 #define _LARGEFILE_SOURCE
 #define _LARGEFILE64_SOURCE
-#include <signal.h>
 int arg_count;
 char **arg_vector;
 
@@ -12,6 +11,8 @@ char **arg_vector;
 
 // INSTALL_LISAAC
 #include <unistd.h>
+// SYSTEM
+#include <time.h>
 // SYSTEM_IO
 
 #include <stdio.h>
@@ -30,8 +31,6 @@ int die_with_code(int code)
 }
 
 
-// SYSTEM
-#include <time.h>
 // MEMORY
 
 #define MINIMUM_SIZE 256  
@@ -50,2155 +49,321 @@ struct ___OBJ {
   unsigned int __id;
 };
 
+typedef struct __WB_struct ____WB;
 typedef struct __V_struct ____V;
-typedef struct __0B_struct ____0B;
-typedef struct __HSE_struct ____HSE;
+typedef struct __54D_struct ____54D;
 typedef struct __C_struct ____C;
 typedef struct __B_struct ____B;
-typedef struct __FP_struct ____FP;
-typedef struct __GP_struct ____GP;
+typedef struct __TN_struct ____TN;
+typedef struct __UN_struct ____UN;
 // NULL
 #ifndef NULL
 #define NULL ((void *)0)
 #endif
 
-typedef signed int ____L;
+typedef void * ____DB;
+typedef unsigned long ____33D;
+typedef unsigned int ____OY;
 typedef char ____4;
-// __V
-#define ____V__ 4
-struct __V_struct {
+typedef signed int ____L;
+// __WB
+#define ____WB__ 4
+struct __WB_struct {
   unsigned int __id;
-  ____L __YB;
-  ____4 *__ZB;
+  ____L __BC;
+  ____L __CBE;
+  ____4 *__ZAE;
 };
-// __0B
-#define ____0B__ 5
-struct __0B_struct {
+// __V
+#define ____V__ 5
+struct __V_struct {
   unsigned int __id;
-  ____L __FC;
-  ____L __SUE;
-  ____4 *__IUE;
+  ____L __UB;
+  ____4 *__VB;
 };
 typedef char ____G;
-typedef unsigned long ____CRE;
-typedef void * ____DB;
-typedef unsigned int ____Y1;
-// __HSE
-#define ____HSE__ 0
-struct __HSE_struct {
-  volatile ____DB __JSE;
-  volatile ____CRE __KSE;
-  ____HSE *__LSE;
-  ____HSE *__MSE;
+// __54D
+#define ____54D__ 0
+struct __54D_struct {
+  volatile ____DB __B5D;
+  volatile ____33D __C5D;
+  ____54D *__D5D;
+  ____54D *__E5D;
 } __attribute__ ((packed));
 // __C
 #define ____C__ 1
 struct __C_struct {
   void *Nothing;
 };
-typedef unsigned long long ____O0;
-#define __J__ 0
-#define __F__ 1
 // __B
 #define ____B__ 2
 struct __B_struct {
   void *Nothing;
 };
-// __FP
-#define ____FP__ 3
-struct __FP_struct {
+// __TN
+#define ____TN__ 3
+struct __TN_struct {
   void *Nothing;
 };
-// __GP
-#define ____GP__ 4
-struct __GP_struct {
+// __UN
+#define ____UN__ 4
+struct __UN_struct {
   void *Nothing;
 };
+#define __F__ 1
+#define __J__ 0
+typedef signed char ____QY;
 typedef signed int ____R;
-typedef signed long long  ____I0;
-typedef signed char ____01;
-// ___CONTEXT
-typedef struct ___CONTEXT_struct _____CONTEXT; 
-struct ___CONTEXT_struct {
-  unsigned long code; 
-  _____CONTEXT *back; 
-};
-_____CONTEXT *top_context; 
-
 
 void *table_type[5];
 
 //==========================//
-// SOURCE LINE REFERENCE    //
-//==========================//
-#define L75900429 0
-#define L61484557 1
-#define L3149825 2
-#define L9452546 3
-#define L68689429 4
-#define L11029000 5
-#define L27033644 6
-#define L46400556 7
-#define L80617485 8
-#define L80386561 9
-#define L64622081 10
-#define L50883585 11
-#define L27030572 12
-#define L19139096 13
-#define L24533505 14
-#define L90969089 15
-#define L40765996 16
-#define L57186305 17
-#define L92542465 18
-#define L27009031 19
-#define L59905068 20
-#define L18221569 21
-#define L60560909 22
-#define L46160428 23
-#define L18221586 24
-#define L70912513 25
-#define L79699981 26
-#define L61903361 27
-#define L10123820 28
-#define L67531777 29
-#define L53362220 30
-#define L51785772 31
-#define L24524306 32
-#define L17310210 33
-#define L39605249 34
-#define L37369900 35
-#define L75654188 36
-#define L17316376 37
-#define L79462913 38
-#define L56496653 39
-#define L18221612 40
-#define L10105368 41
-#define L80365069 42
-#define L45245996 43
-#define L59640321 44
-#define L83511809 45
-#define L75648044 46
-#define L33308716 47
-#define L139592717 48
-#define L17310232 49
-#define L46145068 50
-#define L11687980 51
-#define L6955564 52
-#define L78782477 53
-#define L64363521 54
-#define L39608364 55
-#define L13249045 56
-#define L38687745 57
-#define L15493640 58
-#define L28326914 59
-#define L58728961 60
-#define L19542529 61
-#define L137104909 62
-#define L81267244 63
-#define L73834540 64
-#define L77874189 65
-#define L34872876 66
-#define L69995029 67
-#define L6034963 68
-#define L49950744 69
-#define L57155605 70
-#define L41175596 71
-#define L49941512 72
-#define L25851416 73
-#define L28320775 74
-#define L9862170 75
-#define L30805528 76
-#define L9184792 77
-#define L66601985 78
-#define L6031898 79
-#define L35541036 80
-#define L70653953 81
-#define L6031903 82
-#define L80355884 83
-#define L10755090 84
-#define L36440108 85
-#define L30565377 86
-#define L29888001 87
-#define L11432476 88
-#define L38013484 89
-#define L8270349 90
-#define L49027073 91
-#define L33712129 92
-#define L6690828 93
-#define L79201281 94
-#define L31467544 95
-#define L81011733 96
-#define L59387917 97
-#define L136858637 98
-#define L66598936 99
-#define L54670892 100
-#define L51949057 101
-#define L45886508 102
-#define L52192300 103
-#define L11420188 104
-#define L81005589 105
-#define L5120556 106
-#define L51271687 107
-#define L49692161 108
-#define L59394092 109
-#define L52173837 110
-#define L28071425 111
-#define L57817644 112
-#define L11417116 113
-#define L52186156 114
-#define L27403285 115
-#define L90451969 116
-#define L57814572 117
-#define L8261146 118
-#define L85728789 119
-#define L19302444 120
-#define L50597400 121
-#define L49704492 122
-#define L36178448 123
-#define L43389469 124
-#define L36187692 125
-#define L17701377 126
-#define L24007169 127
-#define L5773336 128
-#define L70395393 129
-#define L19280914 130
-#define L11183148 131
-#define L10493452 132
-#define L19290156 133
-#define L35279404 134
-#define L93598744 135
-#define L30309901 136
-#define L37754924 137
-#define L28062232 138
-#define L60049964 139
-#define L42475032 140
-#define L11180076 141
-#define L80768556 142
-#define L60046892 143
-#define L68588040 144
-#define L35273260 145
-#define L15210497 146
-#define L33450497 147
-#define L68815893 148
-#define L93589528 149
-#define L92678145 150
-#define L24672274 151
-#define L105520661 152
-#define L55970317 153
-#define L27157036 154
-#define L5527066 155
-#define L24001068 156
-#define L136590861 157
-#define L76679681 158
-#define L49427457 159
-#define L136587789 160
-#define L23077377 161
-#define L35919888 162
-#define L85467157 163
-#define L87043605 164
-#define L31858689 165
-#define L27147820 166
-#define L17455128 167
-#define L79832589 168
-#define L45387820 169
-#define L31874092 170
-#define L58880001 171
-#define L55970348 172
-#define L43795984 173
-#define L25321985 174
-#define L5283856 175
-#define L27797505 176
-#define L23745543 177
-#define L55720961 178
-#define L73286657 179
-#define L35695148 180
-#define L20586497 181
-#define L10237980 182
-#define L14964245 183
-#define L9326596 184
-#define L66753025 185
-#define L10234904 186
-#define L28465665 187
-#define L17439768 188
-#define L46274604 189
-#define L18104833 190
-#define L11799041 191
-#define L10909212 192
-#define L35689004 193
-#define L166069261 194
-#define L17445932 195
-#define L14293036 196
-#define L92419585 197
-#define L62691841 198
-#define L26883073 199
-#define L33432108 200
-#define L7744011 201
-#define L23071276 202
-#define L80497708 203
-#define L39734828 204
-#define L5259265 205
-#define L61109249 206
-#define L13372437 207
-#define L22153746 208
-#define L74844673 209
-#define L135430157 210
-#define L26883093 211
-#define L96471576 212
-#define L90606081 213
-#define L66066456 214
-#define L63578625 215
-#define L10881542 216
-#define L6826502 217
-#define L35667500 218
-#define L21916688 219
-#define L22812680 220
-#define L16522284 221
-#define L69219372 222
-#define L10881560 223
-#define L27545109 224
-#define L37237804 225
-#define L66728469 226
-#define L73025025 227
-#define L21910546 228
-#define L95554072 229
-#define L42619905 230
-#define L31603244 231
-#define L55456257 232
-#define L36332588 233
-#define L57941013 234
-#define L80245292 235
-#define L48263724 236
-#define L24383000 237
-#define L10632193 238
-#define L20989960 239
-#define L43525164 240
-#define L17840146 241
-#define L11543592 242
-#define L7479312 243
-#define L85618177 244
-#define L53882924 245
-#define L92148737 246
-#define L76833793 247
-#define L74583047 248
-#define L55456300 249
-#define L86523413 250
-#define L95307800 251
-#define L44174849 252
-#define L16257556 253
-#define L17843244 254
-#define L30679596 255
-#define L29758977 256
-#define L73693228 257
-#define L29777452 258
-#define L79309325 259
-#define L52956167 260
-#define L24136728 261
-#define L10619925 262
-#define L95298584 263
-#define L4985356 264
-#define L18502168 265
-#define L25041964 266
-#define L28850689 267
-#define L19410476 268
-#define L31335448 269
-#define L28847617 270
-#define L27289644 271
-#define L34479112 272
-#define L32918060 273
-#define L139202061 274
-#define L59252749 275
-#define L4988457 276
-#define L12852225 277
-#define L16005121 278
-#define L59261996 279
-#define L40110616 280
-#define L43934736 281
-#define L69610517 282
-#define L23206913 283
-#define L21633544 284
-#define L11965484 285
-#define L9702421 286
-#define L48898092 287
-#define L20728321 288
-#define L28838407 289
-#define L95957528 290
-#define L81541653 291
-#define L26356737 292
-#define L92801560 293
-#define L79053825 294
-#define L55191576 295
-#define L44839980 296
-#define L40110636 297
-#define L81538581 298
-#define L11959340 299
-#define L32000556 300
-#define L56758797 301
-#define L79053837 302
-#define L87163925 303
-#define L39861249 304
-#define L29500417 305
-#define L43919376 306
-#define L11950120 307
-#define L90079745 308
-#define L27018753 309
-#define L19145752 310
-#define L11029512 311
-#define L63049217 312
-#define L87595009 313
-#define L15096876 314
-#define L40526337 315
-#define L15755784 316
-#define L91646977 317
-#define L20725292 318
-#define L93457432 319
-#define L74980353 320
-#define L54271000 321
-#define L70269484 322
-#define L56509441 323
-#define L4723740 324
-#define L45492780 325
-#define L34223640 326
-#define L27006471 327
-#define L56509453 328
-#define L5385739 329
-#define L29254157 330
-#define L18222101 331
-#define L6962199 332
-#define L10124332 333
-#define L59668524 334
-#define L43001900 335
-#define L40504833 336
-#define L22939143 337
-#define L26088961 338
-#define L22954540 339
-#define L77228076 340
-#define L27671576 341
-#define L35787820 342
-#define L25183745 343
-#define L54929964 344
-#define L60321293 345
-#define L75648556 346
-#define L68422145 347
-#define L8526359 348
-#define L37361196 349
-#define L62790657 350
-#define L90714113 351
-#define L58067477 352
-#define L57162253 353
-#define L60315149 354
-#define L7614987 355
-#define L11676188 356
-#define L73148423 357
-#define L96351768 358
-#define L17969665 359
-#define L30824492 360
-#define L51524609 361
-#define L39587329 362
-#define L33965080 363
-#define L25171457 364
-#define L30818348 365
-#define L92290584 366
-#define L80362540 367
-#define L82591745 368
-#define L5121032 369
-#define L21107201 370
-#define L19546156 371
-#define L38669825 372
-#define L35535404 373
-#define L72000001 374
-#define L68850184 375
-#define L76954113 376
-#define L28983297 377
-#define L59385345 378
-#define L75393068 379
-#define L92940289 380
-#define L11433004 381
-#define L13668360 382
-#define L81006093 383
-#define L31464984 384
-#define L79432725 385
-#define L50607128 386
-#define L59385357 387
-#define L40255532 388
-#define L8264725 389
-#define L52174344 390
-#define L31461912 391
-#define L71313409 392
-#define L136853005 393
-#define L43393040 394
-#define L15469589 395
-#define L10515480 396
-#define L31468076 397
-#define L21772306 398
-#define L52186668 399
-#define L53753880 400
-#define L62532109 401
-#define L43396125 402
-#define L24250904 403
-#define L32120833 404
-#define L76941837 405
-#define L66587160 406
-#define L67252225 407
-#define L53747736 408
-#define L27397656 409
-#define L81665037 410
-#define L24250924 411
-#define L34365441 412
-#define L55983105 413
-#define L73548801 414
-#define L28059655 415
-#define L40911404 416
-#define L82330113 417
-#define L19290668 418
-#define L76941868 419
-#define L77603853 420
-#define L8009218 421
-#define L17711148 422
-#define L12981804 423
-#define L67015176 424
-#define L13637633 425
-#define L92684801 426
-#define L78949383 427
-#define L77603861 428
-#define L12753964 429
-#define L17708076 430
-#define L77613100 431
-#define L87952385 432
-#define L26489388 433
-#define L26480152 434
-#define L136600589 435
-#define L18360833 436
-#define L26486316 437
-#define L77597717 438
-#define L60703245 439
-#define L50348568 440
-#define L136597517 441
-#define L35267628 442
-#define L61371393 443
-#define L8006165 444
-#define L47201836 445
-#define L8000011 446
-#define L12061212 447
-#define L9576466 448
-#define L79833089 449
-#define L51004417 450
-#define L36834860 451
-#define L63840769 452
-#define L6423581 453
-#define L60690957 454
-#define L3951145 455
-#define L82077697 456
-#define L17446408 457
-#define L31874604 458
-#define L43134508 459
-#define L81400321 460
-#define L75113004 461
-#define L35926572 462
-#define L25322497 463
-#define L22172680 464
-#define L43131436 465
-#define L34103809 466
-#define L6177281 467
-#define L52571655 468
-#define L12726316 469
-#define L43128364 470
-#define L70134273 471
-#define L35677185 472
-#define L75106860 473
-#define L25319431 474
-#define L167652365 475
-#define L23749144 476
-#define L43787280 477
-#define L42213912 478
-#define L16528897 479
-#define L61349901 480
-#define L58200085 481
-#define L93331477 482
-#define L66981397 483
-#define L11802642 484
-#define L26892821 485
-#define L14290476 486
-#define L72619052 487
-#define L57959937 488
-#define L11799570 489
-#define L83632641 490
-#define L8421914 491
-#define L10906668 492
-#define L9989128 493
-#define L94898712 494
-#define L56377345 495
-#define L35677228 496
-#define L26877447 497
-#define L62005761 498
-#define L54141996 499
-#define L6842404 500
-#define L93990421 501
-#define L5250562 502
-#define L6161949 503
-#define L39723052 504
-#define L31606808 505
-#define L41290264 506
-#define L17187853 507
-#define L29128216 508
-#define L41952257 509
-#define L6836265 510
-#define L15602178 511
-#define L28457004 512
-#define L24392728 513
-#define L91493377 514
-#define L65817601 515
-#define L25054721 516
-#define L54791704 517
-#define L31603756 518
-#define L41952280 519
-#define L65146392 520
-#define L27533333 521
-#define L52316204 522
-#define L33164824 523
-#define L53883416 524
-#define L54548481 525
-#define L57944620 526
-#define L58600449 527
-#define L7482891 528
-#define L69869589 529
-#define L14693909 530
-#define L27530261 531
-#define L49160236 532
-#define L5912602 533
-#define L78647821 534
-#define L33845292 535
-#define L16267284 536
-#define L34744364 537
-#define L74586625 538
-#define L52968967 539
-#define L40372780 540
-#define L26615809 541
-#define L23472152 542
-#define L13111317 543
-#define L60845057 544
-#define L16030216 545
-#define L81791501 546
-#define L29768717 547
-#define L63991809 548
-#define L29765645 549
-#define L91240961 550
-#define L6565387 551
-#define L12209196 552
-#define L88084993 553
-#define L16021000 554
-#define L73672199 555
-#define L86514709 556
-#define L11962884 557
-#define L79306773 558
-#define L40120344 559
-#define L51389484 560
-#define L66458113 561
-#define L12199976 562
-#define L24137260 563
-#define L21640193 564
-#define L139202573 565
-#define L9709074 566
-#define L41690648 567
-#define L40779265 568
-#define L69614101 569
-#define L10377220 570
-#define L60164652 571
-#define L40120364 572
-#define L56771597 573
-#define L28183084 574
-#define L6556188 575
-#define L27280940 576
-#define L6556191 577
-#define L16910872 578
-#define L30412289 579
-#define L26357255 580
-#define L30412301 581
-#define L11956776 582
-#define L59250220 583
-#define L77477901 584
-#define L75910700 585
-#define L22289921 586
-#define L29494785 587
-#define L90976257 588
-#define L8785431 589
-#define L6300680 590
-#define L52691975 591
-#define L86253077 592
-#define L4724236 593
-#define L73425964 594
-#define L66199553 595
-#define L41425921 596
-#define L19140120 597
-#define L26354220 598
-#define L15993388 599
-#define L80627756 600
-#define L73404423 601
-#define L10137132 602
-#define L38944257 603
-#define L73419820 604
-#define L51780609 605
-#define L79704065 606
-#define L86009857 607
-#define L66199573 608
-#define L15744001 609
-#define L74072577 610
-#define L31074348 611
-#define L92546584 612
-#define L5383176 613
-#define L54268460 614
-#define L6959627 615
-#define L28577287 616
-#define L39609345 617
-#define L65291288 618
-#define L30153741 619
-#define L25193473 620
-#define L60331021 621
-#define L58071041 622
-#define L14838805 623
-#define L13253121 624
-#define L59650573 625
-#define L67526657 626
-#define L77228588 627
-#define L12360218 628
-#define L17979394 629
-#define L27659777 630
-#define L9201173 631
-#define L43661341 632
-#define L9195016 633
-#define L38691841 634
-#define L46139948 635
-#define L32382977 636
-#define L8520730 637
-#define L136206861 638
-#define L60309517 639
-#define L75636780 640
-#define L25846273 641
-#define L10759174 642
-#define L30818860 643
-#define L56248321 644
-#define L27665964 645
-#define L17970194 646
-#define L34627585 647
-#define L57156629 648
-#define L23601688 649
-#define L24269831 650
-#define L29239340 651
-#define L33959448 652
-#define L44326444 653
-#define L35298817 654
-#define L77881388 655
-#define L57150485 656
-#define L77865997 657
-#define L44304897 658
-#define L6032927 659
-#define L44323372 660
-#define L35526672 661
-#define L83263489 662
-#define L20205569 663
-#define L56248344 664
-#define L95431704 665
-#define L80107521 666
-#define L61870605 667
-#define L137764877 668
-#define L85735937 669
-#define L17723906 670
-#define L136862733 671
-#define L75393580 672
-#define L77869100 673
-#define L53095468 674
-#define L49939500 675
-#define L89556993 676
-#define L80098317 677
-#define L33032728 678
-#define L72902700 679
-#define L57812524 680
-#define L22678060 681
-#define L21760520 682
-#define L28081708 683
-#define L55315464 684
-#define L23343128 685
-#define L53754412 686
-#define L93596673 687
-#define L43387421 688
-#define L70417964 689
-#define L65679384 690
-#define L52174892 691
-#define L10494470 692
-#define L28075564 693
-#define L40911916 694
-#define L20849153 695
-#define L96078360 696
-#define L33694744 697
-#define L75796993 698
-#define L6433281 699
-#define L61612045 700
-#define L55980557 701
-#define L60703745 702
-#define L74214401 703
-#define L42469912 704
-#define L53495815 705
-#define L136598029 706
-#define L80760364 707
-#define L6427149 708
-#define L34365996 709
-#define L14306315 710
-#define L83888641 711
-#define L27136513 712
-#define L62267905 713
-#define L5515777 714
-#define L14303243 715
-#define L31875096 716
-#define L9570822 717
-#define L92679192 718
-#define L87047701 719
-#define L59118093 720
-#define L136588813 721
-#define L23989784 722
-#define L32780332 723
-#define L45616684 724
-#define L17446914 725
-#define L22419500 726
-#define L80748076 727
-#define L43138092 728
-#define L57550892 729
-#define L17449997 730
-#define L19038764 731
-#define L13391878 732
-#define L84553729 733
-#define L43797008 734
-#define L7086091 735
-#define L9339920 736
-#define L85462037 737
-#define L28719148 738
-#define L136579597 739
-#define L52572167 740
-#define L58874881 741
-#define L43128876 742
-#define L26219009 743
-#define L5509656 744
-#define L10239000 745
-#define L93104129 746
-#define L10913308 747
-#define L72625708 748
-#define L10900996 749
-#define L5275664 750
-#define L16529409 751
-#define L40634904 752
-#define L36573703 753
-#define L49185288 754
-#define L18105874 755
-#define L36336641 756
-#define L11800092 757
-#define L55706632 758
-#define L26884117 759
-#define L58859533 760
-#define L35000364 761
-#define L21923856 762
-#define L10888722 763
-#define L41059853 764
-#define L12471340 765
-#define L21917712 766
-#define L27539969 767
-#define L40385560 768
-#define L89920513 769
-#define L31610412 770
-#define L33177624 771
-#define L21249580 772
-#define L137891341 773
-#define L14700552 774
-#define L57942029 775
-#define L45099521 776
-#define L31604268 777
-#define L69870081 778
-#define L65149976 779
-#define L69211180 780
-#define L16267777 781
-#define L21902354 782
-#define L6824492 783
-#define L5906956 784
-#define L92155905 785
-#define L54789164 786
-#define L65577985 787
-#define L43526188 788
-#define L11544616 789
-#define L104096277 790
-#define L84944897 791
-#define L23469584 792
-#define L9059864 793
-#define L17173036 794
-#define L29784620 795
-#define L26622488 796
-#define L55457324 797
-#define L19405313 798
-#define L62418945 799
-#define L80218645 800
-#define L28186625 801
-#define L104090133 802
-#define L58594829 803
-#define L48905217 804
-#define L40139308 805
-#define L16923650 806
-#define L52966424 807
-#define L41038380 808
-#define L52957191 809
-#define L6565899 810
-#define L35406892 811
-#define L33821208 812
-#define L20073473 813
-#define L41035308 814
-#define L41697293 815
-#define L14441985 816
-#define L16923661 817
-#define L20070401 818
-#define L52969516 819
-#define L32925228 820
-#define L50490924 821
-#define L68038145 822
-#define L26610200 823
-#define L10627112 824
-#define L8142360 825
-#define L55198721 826
-#define L9706498 827
-#define L4986392 828
-#define L62415901 829
-#define L26379288 830
-#define L52042753 831
-#define L61501441 832
-#define L35394604 833
-#define L8130059 834
-#define L22311937 835
-#define L42359309 836
-#define L43935760 837
-#define L75908097 838
-#define L34486316 839
-#define L9703445 840
-#define L16018476 841
-#define L32007724 842
-#define L8795143 843
-#define L45499905 844
-#define L8792068 845
-#define L69374472 846
-#define L56756737 847
-#define L16012332 848
-#define L28839448 849
-#define L78383637 850
-#define L59912717 851
-#define L7212555 852
-#define L51818028 853
-#define L27937304 854
-#define L19143681 855
-#define L10362374 856
-#define L8785927 857
-#define L35807233 858
-#define L77475341 859
-#define L26348551 860
-#define L33562648 861
-#define L89403393 862
-#define L9457160 863
-#define L6304264 864
-#define L24775186 865
-#define L25443329 866
-#define L77466113 867
-#define L8782861 868
-#define L73414151 869
-#define L11935762 870
-#define L34233880 871
-#define L15759880 872
-#define L56762924 873
-#define L82192385 874
-#define L17576492 875
-#define L67111445 876
-#define L32645121 877
-#define L53366792 878
-#define L44579329 879
-#define L43002881 880
-#define L6307359 881
-#define L4721675 882
-#define L55839233 883
-#define L68684821 884
-#define L54281260 885
-#define L93458456 886
-#define L27921941 887
-#define L82863617 888
-#define L56756780 889
-#define L6295051 890
-#define L73420332 891
-#define L27010567 892
-#define L11935784 893
-#define L28583937 894
-#define L77472300 895
-#define L70021121 896
-#define L54275116 897
-#define L41429528 898
-#define L9451036 899
-#define L63712257 900
-#define L59663373 901
-#define L57424940 902
-#define L11932716 903
-#define L6963211 904
-#define L9441810 905
-#define L37377580 906
-#define L24528914 907
-#define L31727617 908
-#define L13503020 909
-#define L24525842 910
-#define L8530438 911
-#define L22943239 912
-#define L92303873 913
-#define L56501261 914
-#define L79695373 915
-#define L22940167 916
-#define L22940168 917
-#define L58074637 918
-#define L79704620 919
-#define L77207553 920
-#define L25184769 921
-#define L54921752 922
-#define L70018092 923
-#define L75631111 924
-#define L42082328 925
-#define L25181697 926
-#define L53782529 927
-#define L12585512 928
-#define L17983000 929
-#define L80360461 930
-#define L65276440 931
-#define L15498248 932
-#define L39609900 933
-#define L55580673 934
-#define L27663381 935
-#define L61215245 936
-#define L70011948 937
-#define L46796289 938
-#define L33969176 939
-#define L60313101 940
-#define L25175553 941
-#define L8284161 942
-#define L22703120 943
-#define L78777869 944
-#define L13915656 945
-#define L25846785 946
-#define L53099015 947
-#define L15485953 948
-#define L13241365 949
-#define L76290049 950
-#define L136198157 951
-#define L44326956 952
-#define L96340504 953
-#define L55586860 954
-#define L43649580 955
-#define L65935384 956
-#define L44323884 957
-#define L9848322 958
-#define L81031724 959
-#define L29895693 960
-#define L26511873 961
-#define L39591468 962
-#define L12998145 963
-#define L19547180 964
-#define L66606616 965
-#define L32383532 966
-#define L30807084 967
-#define L31472152 968
-#define L81025580 969
-#define L62542349 970
-#define L13900309 971
-#define L52178439 972
-#define L11430956 973
-#define L73796103 974
-#define L91133953 975
-#define L45641729 976
-#define L52175368 977
-#define L5793313 978
-#define L5784076 979
-#define L12326952 980
-#define L15470613 981
-#define L78519297 982
-#define L60956685 983
-#define L62533133 984
-#define L17721368 985
-#define L136850957 986
-#define L80111148 987
-#define L24014849 988
-#define L72903212 989
-#define L66588184 990
-#define L59146241 991
-#define L9832978 992
-#define L17050156 993
-#define L53742600 994
-#define L136844813 995
-#define L44973612 996
-#define L51279404 997
-#define L5774867 998
-#define L85724181 999
-#define L43150849 1000
-#define L19285522 1001
-#define L30542349 1002
-#define L60039169 1003
-#define L87297557 1004
-#define L19282450 1005
-#define L80098860 1006
-#define L77601793 1007
-#define L136610829 1008
-#define L51251713 1009
-#define L11406380 1010
-#define L47870977 1011
-#define L75123207 1012
-#define L16794632 1013
-#define L12068370 1014
-#define L19285548 1015
-#define L14316043 1016
-#define L6436883 1017
-#define L9580545 1018
-#define L55977997 1019
-#define L60707341 1020
-#define L67006977 1021
-#define L28063788 1022
-#define L75113991 1023
-#define L29624845 1024
-#define L11160085 1025
-#define L28735020 1026
-#define L19932161 1027
-#define L69485589 1028
-#define L69494828 1029
-#define L16785429 1030
-#define L54404652 1031
-#define L105516053 1032
-#define L34360364 1033
-#define L28728876 1034
-#define L43803664 1035
-#define L21499393 1036
-#define L87038997 1037
-#define L81407509 1038
-#define L8663056 1039
-#define L46039041 1040
-#define L42208769 1041
-#define L43785217 1042
-#define L75766791 1043
-#define L70809601 1044
-#define L40641560 1045
-#define L55063596 1046
-#define L10904578 1047
-#define L77358636 1048
-#define L14965781 1049
-#define L44702764 1050
-#define L43788304 1051
-#define L15874092 1052
-#define L40644652 1053
-#define L10916908 1054
-#define L93332501 1055
-#define L35687468 1056
-#define L25311239 1057
-#define L33433644 1058
-#define L13380117 1059
-#define L17435160 1060
-#define L16523778 1061
-#define L93326357 1062
-#define L17198082 1063
-#define L77346348 1064
-#define L54133768 1065
-#define L27789845 1066
-#define L80483853 1067
-#define L29375532 1068
-#define L10907692 1069
-#define L66074136 1070
-#define L33427500 1071
-#define L9990152 1072
-#define L35003948 1073
-#define L94899736 1074
-#define L4598824 1075
-#define L22826504 1076
-#define L35678252 1077
-#define L26878471 1078
-#define L74849293 1079
-#define L21240833 1080
-#define L46932012 1081
-#define L56375309 1082
-#define L81161260 1083
-#define L49838593 1084
-#define L32516140 1085
-#define L73934849 1086
-#define L91500545 1087
-#define L9081875 1088
-#define L79563265 1089
-#define L27540481 1090
-#define L59537452 1091
-#define L24393746 1092
-#define L62000653 1093
-#define L26881580 1094
-#define L53228588 1095
-#define L69217836 1096
-#define L36324880 1097
-#define L51405825 1098
-#define L31604780 1099
-#define L28451884 1100
-#define L49155080 1101
-#define L62674973 1102
-#define L5245466 1103
-#define L10883116 1104
-#define L18746882 1105
-#define L30681089 1106
-#define L48265260 1107
-#define L29113880 1108
-#define L29101569 1109
-#define L43526685 1110
-#define L36324908 1111
-#define L29116972 1112
-#define L9063445 1113
-#define L58373633 1114
-#define L11542044 1115
-#define L69636616 1116
-#define L36309520 1117
-#define L17835521 1118
-#define L13780481 1119
-#define L9060376 1120
-#define L48252972 1121
-#define L34496001 1122
-#define L20982273 1123
-#define L5005342 1124
-#define L17829378 1125
-#define L24144408 1126
-#define L15350785 1127
-#define L30681132 1128
-#define L10627605 1129
-#define L76829185 1130
-#define L65803288 1131
-#define L9719304 1132
-#define L79304705 1133
-#define L42606104 1134
-#define L70520321 1135
-#define L83131905 1136
-#define L10621458 1137
-#define L30674988 1138
-#define L63986689 1139
-#define L18503704 1140
-#define L4090906 1141
-#define L33581569 1142
-#define L35401260 1143
-#define L78399501 1144
-#define L40127532 1145
-#define L21641217 1146
-#define L73682476 1147
-#define L69384193 1148
-#define L11289621 1149
-#define L31333912 1150
-#define L79301653 1151
-#define L36057104 1152
-#define L67804673 1153
-#define L40121388 1154
-#define L59925517 1155
-#define L26364417 1156
-#define L59248141 1157
-#define L28839937 1158
-#define L45746732 1159
-#define L85598229 1160
-#define L31989761 1161
-#define L66456088 1162
-#define L5642763 1163
-#define L86937601 1164
-#define L75920940 1165
-#define L56763405 1166
-#define L43927056 1167
-#define L16012844 1168
-#define L11280424 1169
-#define L86257153 1170
-#define L49546248 1171
-#define L70261761 1172
-#define L137377805 1173
-#define L13509636 1174
-#define L75893261 1175
-#define L137374733 1176
-#define L37621292 1177
-#define L11945512 1178
-#define L18232834 1179
-#define L43911696 1180
-#define L77478956 1181
-#define L49309185 1182
-#define L82864129 1183
-#define L21382657 1184
-#define L14183957 1185
-#define L137368589 1186
-#define L34228248 1187
-#define L54278700 1188
-#define L61240321 1189
-#define L30160897 1190
-#define L7868939 1191
-#define L62139393 1192
-#define L66200597 1193
-#define L43914796 1194
-#define L25203713 1195
-#define L6963723 1196
-#define L24532498 1197
-#define L17318401 1198
-#define L13506604 1199
-#define L11021852 1200
-#define L66194453 1201
-#define L53121025 1202
-#define L73408556 1203
-#define L40509441 1204
-#define L22952984 1205
-#define L56517164 1206
-#define L95694360 1207
-#define L46156332 1208
-#define L11012626 1209
-#define L33975809 1210
-#define L59654669 1211
-#define L72487943 1212
-#define L46153260 1213
-#define L60325901 1214
-#define L138021389 1215
-#define L11674625 1216
-#define L45248044 1217
-#define L78784513 1218
-#define L42085912 1219
-#define L66856469 1220
-#define L65945089 1221
-#define L31722008 1222
-#define L39591937 1223
-#define L136210957 1224
-#define L33304620 1225
-#define L16394753 1226
-#define L14818305 1227
-#define L12342790 1228
-#define L70012460 1229
-#define L16394754 1230
-#define L13248018 1231
-#define L23605776 1232
-#define L28338200 1233
-#define L30804481 1234
-#define L10095128 1235
-#define L6033931 1236
-#define L96347160 1237
-#define L62786061 1238
-#define L36205057 1239
-#define L73140743 1240
-#define L53770760 1241
-#define L39598124 1242
-#define L30804504 1243
-#define L17974316 1244
-#define L81032236 1245
-#define L38674433 1246
-#define L24258561 1247
-#define L19547692 1248
-#define L53087239 1249
-#define L10757148 1250
-#define L42741804 1251
-#define L37094919 1252
-#define L57819669 1253
-#define L80111629 1254
-#define L19532306 1255
-#define L4214282 1256
-#define L81010701 1257
-#define L79434253 1258
-#define L136186381 1259
-#define L136860685 1260
-#define L42735660 1261
-#define L81010709 1262
-#define L69741569 1263
-#define L74470913 1264
-#define L8260098 1265
-#define L38437377 1266
-#define L48120833 1267
-#define L24923649 1268
-#define L52175879 1269
-#define L68162049 1270
-#define L57807373 1271
-#define L57810453 1272
-#define L8260107 1273
-#define L13663752 1274
-#define L11419164 1275
-#define L85733909 1276
-#define L57807381 1277
-#define L52169735 1278
-#define L52169736 1279
-#define L24015361 1280
-#define L33033752 1281
-#define L12081158 1282
-#define L8260122 1283
-#define L29887020 1284
-#define L69738517 1285
-#define L5781530 1286
-#define L19301420 1287
-#define L50596376 1288
-#define L32137772 1289
-#define L19289106 1290
-#define L18614808 1291
-#define L90444801 1292
-#define L68824065 1293
-#define L80093205 1294
-#define L5781540 1295
-#define L59383852 1296
-#define L58469389 1297
-#define L33033772 1298
-#define L19295276 1299
-#define L32131628 1300
-#define L15224840 1301
-#define L28969496 1302
-#define L70415916 1303
-#define L46295041 1304
-#define L81660437 1305
-#define L60036621 1306
-#define L26484760 1307
-#define L19286060 1308
-#define L76038188 1309
-#define L28969516 1310
-#define L77599245 1311
-#define L26490924 1312
-#define L30299649 1313
-#define L6437404 1314
-#define L80742913 1315
-#define L6437407 1316
-#define L20856364 1317
-#define L93588504 1318
-#define L56643585 1319
-#define L74209281 1320
-#define L67903489 1321
-#define L9574914 1322
-#define L57548813 1323
-#define L8007704 1324
-#define L16779777 1325
-#define L69495340 1326
-#define L8004636 1327
-#define L34360876 1328
-#define L14301195 1329
-#define L21506056 1330
-#define L11154460 1331
-#define L7998485 1332
-#define L90189313 1333
-#define L12737068 1334
-#define L58213901 1335
-#define L8672792 1336
-#define L18356248 1337
-#define L55064088 1338
-#define L31876140 1339
-#define L27146796 1340
-#define L78258197 1341
-#define L8663565 1342
-#define L14291979 1343
-#define L94244373 1344
-#define L69470741 1345
-#define L22171143 1346
-#define L19033644 1347
-#define L27796482 1348
-#define L45380652 1349
-#define L44703276 1350
-#define L5279760 1351
-#define L27802648 1352
-#define L93326849 1353
-#define L7746049 1354
-#define L25314823 1355
-#define L64498177 1356
-#define L57296397 1357
-#define L36574727 1358
-#define L22158849 1359
-#define L14950913 1360
-#define L80484353 1361
-#define L52560904 1362
-#define L6169611 1363
-#define L52576300 1364
-#define L94906392 1365
-#define L61345293 1366
-#define L46926337 1367
-#define L9316353 1368
-#define L50753537 1369
-#define L15862316 1370
-#define L66071576 1371
-#define L37233665 1372
-#define L10895900 1373
-#define L27793452 1374
-#define L15612929 1375
-#define L18106924 1376
-#define L81164844 1377
-#define L89927681 1378
-#define L25967617 1379
-#define L81161772 1380
-#define L28461612 1381
-#define L10652676 1382
-#define L44450860 1383
-#define L56372749 1384
-#define L52988929 1385
-#define L18091544 1386
-#define L26872853 1387
-#define L14710805 1388
-#define L6819339 1389
-#define L14695425 1390
-#define L59510273 1391
-#define L27537941 1392
-#define L7484417 1393
-#define L28446252 1394
-#define L52317740 1395
-#define L24381976 1396
-#define L14689286 1397
-#define L31596076 1398
-#define L36325420 1399
-#define L68063752 1400
-#define L55467564 1401
-#define L32251905 1402
-#define L13115922 1403
-#define L54556184 1404
-#define L45762561 1405
-#define L73014791 1406
-#define L41036301 1407
-#define L74588167 1408
-#define L45100588 1409
-#define L48253484 1410
-#define L21894168 1411
-#define L87427605 1412
-#define L41701377 1413
-#define L10640428 1414
-#define L23464464 1415
-#define L25709057 1416
-#define L33825304 1417
-#define L15348226 1418
-#define L89666049 1419
-#define L16025608 1420
-#define L25705985 1421
-#define L17832984 1422
-#define L35407916 1423
-#define L62413825 1424
-#define L86519317 1425
-#define L48244268 1426
-#define L12866561 1427
-#define L11287041 1428
-#define L91910657 1429
-#define L25699841 1430
-#define L56108045 1431
-#define L16915457 1432
-#define L69612545 1433
-#define L12192274 1434
-#define L77738028 1435
-#define L40128044 1436
-#define L59251713 1437
-#define L21644808 1438
-#define L27270145 1439
-#define L22559276 1440
-#define L59267116 1441
-#define L29520897 1442
-#define L139201037 1443
-#define L16918552 1444
-#define L51138561 1445
-#define L22546968 1446
-#define L79982636 1447
-#define L44173868 1448
-#define L29514753 1449
-#define L57684524 1450
-#define L75921452 1451
-#define L93468673 1452
-#define L67118593 1453
-#define L59916813 1454
-#define L28849708 1455
-#define L23874049 1456
-#define L38286849 1457
-#define L93462529 1458
-#define L19150866 1459
-#define L47988780 1460
-#define L61487117 1461
-#define L4069927 1462
-#define L38283777 1463
-#define L15086593 1464
-#define L13510145 1465
-#define L29499393 1466
-#define L48641537 1467
-#define L43918352 1468
-#define L80620033 1469
-#define L73412097 1470
-#define L47062017 1471
-#define L10363416 1472
-#define L19153964 1473
-#define L17577516 1474
-#define L16001068 1475
-#define L28603416 1476
-#define L27926040 1477
-#define L4722699 1478
-#define L16653825 1479
-#define L26355756 1480
-#define L6296072 1481
-#define L34893825 1482
-#define L85340161 1483
-#define L36470273 1484
-#define L35137068 1485
-#define L9445894 1486
-#define L40522241 1487
-#define L26349612 1488
-#define L22048258 1489
-#define L70016001 1490
-#define L18227221 1491
-#define L14162945 1492
-#define L6299180 1493
-#define L66194968 1494
-#define L22051346 1495
-#define L36701228 1496
-#define L94118421 1497
-#define L21370888 1498
-#define L41421336 1499
-#define L13504044 1500
-#define L78138412 1501
-#define L49971720 1502
-#define L65292824 1503
-#define L6958091 1504
-#define L7635472 1505
-#define L22944263 1506
-#define L55840300 1507
-#define L78135340 1508
-#define L80373773 1509
-#define L26768385 1510
-#define L63476225 1511
-#define L66853889 1512
-#define L14156807 1513
-#define L93200897 1514
-#define L89145857 1515
-#define L18876930 1516
-#define L22710288 1517
-#define L79699500 1518
-#define L74723841 1519
-#define L29231617 1520
-#define L69092353 1521
-#define L60314125 1522
-#define L23606288 1523
-#define L17968641 1524
-#define L9187334 1525
-#define L22704144 1526
-#define L17974802 1527
-#define L17971730 1528
-#define L73834028 1529
-#define L7607819 1530
-#define L49940993 1531
-#define L57152013 1532
-#define L60304909 1533
-#define L136199181 1534
-#define L39598636 1535
-#define L17959425 1536
-#define L27418113 1537
-#define L96341528 1538
-#define L70000684 1539
-#define L57820161 1540
-#define L73809409 1541
-#define L7604752 1542
-#define L81020429 1543
-#define L136870413 1544
-#define L80112129 1545
-#define L37098503 1546
-#define L22685704 1547
-#define L30564865 1548
-#define L49941016 1549
-#define L77861389 1550
-#define L41821697 1551
-#define L13673480 1552
-#define L75376641 1553
-#define L10751512 1554
-#define L79437845 1555
-#define L51280391 1556
-#define L21118508 1557
-#define L56905729 1558
-#define L17719298 1559
-#define L18627605 1560
-#define L86639637 1561
-#define L55326209 1562
-#define L80102925 1563
-#define L60954625 1564
-#define L41821720 1565
-#define L8260621 1566
-#define L92933121 1567
-#define L12983809 1568
-#define L76943885 1569
-#define L32138284 1570
-#define L58466817 1571
-#define L50603052 1572
-#define L136842765 1573
-#define L12980754 1574
-#define L27396632 1575
-#define L77612045 1576
-#define L16124417 1577
-#define L19277313 1578
-#define L76946988 1579
-#define L58235905 1580
-#define L35937793 1581
-#define L66339841 1582
-#define L11182636 1583
-#define L68824597 1584
-#define L33693208 1585
-#define L5772836 1586
-#define L6440979 1587
-#define L48771073 1588
-#define L11179564 1589
-#define L42468365 1590
-#define L54408728 1591
-#define L18378271 1592
-#define L77602837 1593
-#define L12752940 1594
-#define L55979021 1595
-#define L57549313 1596
-#define L7102977 1597
-#define L30303245 1598
-#define L26479128 1599
-#define L11832326 1600
-#define L6437919 1601
-#define L29625869 1602
-#define L9587740 1603
-#define L44050988 1604
-#define L25564673 1605
-#define L35023361 1606
-#define L51686913 1607
-#define L29635116 1608
-#define L66333720 1609
-#define L44703745 1610
-#define L31876632 1611
-#define L15875073 1612
-#define L5526554 1613
-#define L77356545 1614
-#define L43142700 1615
-#define L82984961 1616
-#define L78929921 1617
-#define L38167041 1618
-#define L79835149 1619
-#define L8664065 1620
-#define L16780309 1621
-#define L53254145 1622
-#define L62266381 1623
-#define L44713004 1624
-#define L59125804 1625
-#define L45387308 1626
-#define L52576775 1627
-#define L44709932 1628
-#define L43133484 1629
-#define L54159384 1630
-#define L34349100 1631
-#define L7084555 1632
-#define L57543212 1633
-#define L45381164 1634
-#define L17445400 1635
-#define L81399309 1636
-#define L21506604 1637
-#define L17439245 1638
-#define L62925313 1639
-#define L72627244 1640
-#define L39069228 1641
-#define L66075137 1642
-#define L37492780 1643
-#define L30284844 1644
-#define L78252588 1645
-#define L45371948 1646
-#define L23738896 1647
-#define L39740460 1648
-#define L68325896 1649
-#define L54153260 1650
-#define L32514049 1651
-#define L14289452 1652
-#define L73276935 1653
-#define L54150188 1654
-#define L96480280 1655
-#define L64264705 1656
-#define L30032385 1657
-#define L10896400 1658
-#define L39734316 1659
-#define L13371922 1660
-#define L41298456 1661
-#define L19668481 1662
-#define L46692865 1663
-#define L22162476 1664
-#define L23726608 1665
-#define L26879509 1666
-#define L28449799 1667
-#define L6170156 1668
-#define L28465196 1669
-#define L35426817 1670
-#define L41061389 1671
-#define L5252619 1672
-#define L6825988 1673
-#define L10890268 1674
-#define L77088769 1675
-#define L40387096 1676
-#define L34081304 1677
-#define L20333569 1678
-#define L44448300 1679
-#define L33179160 1680
-#define L41957389 1681
-#define L31602712 1682
-#define L28449816 1683
-#define L75509255 1684
-#define L20330497 1685
-#define L5246490 1686
-#define L23477249 1687
-#define L28449836 1688
-#define L57032193 1689
-#define L68292097 1690
-#define L21906962 1691
-#define L57937421 1692
-#define L22818348 1693
-#define L56130049 1694
-#define L77079565 1695
-#define L19428370 1696
-#define L80244780 1697
-#define L21903890 1698
-#define L65145368 1699
-#define L48263212 1700
-#define L7481858 1701
-#define L6816796 1702
-#define L33163800 1703
-#define L136978445 1704
-#define L7484944 1705
-#define L67380737 1706
-#define L10647084 1707
-#define L24139265 1708
-#define L13110290 1709
-#define L33163820 1710
-#define L6570497 1711
-#define L13110293 1712
-#define L52305964 1713
-#define L24145432 1714
-#define L92157464 1715
-#define L10640940 1716
-#define L23468056 1717
-#define L12876296 1718
-#define L55455788 1719
-#define L41039916 1720
-#define L32255532 1721
-#define L92151320 1722
-#define L73674241 1723
-#define L73692716 1724
-#define L29776940 1725
-#define L23471148 1726
-#define L139210765 1727
-#define L42600984 1728
-#define L22550536 1729
-#define L17833516 1730
-#define L75244551 1731
-#define L5652993 1732
-#define L35399212 1733
-#define L26380824 1734
-#define L11290645 1735
-#define L80876045 1736
-#define L12198952 1737
-#define L95291928 1738
-#define L32917548 1739
-#define L42601004 1740
-#define L27286060 1741
-#define L49562625 1742
-#define L79983148 1743
-#define L91233816 1744
-#define L46406657 1745
-#define L59261484 1746
-#define L79961601 1747
-#define L10391596 1748
-#define L5646859 1749
-#define L8134693 1750
-#define L34484780 1751
-#define L5643787 1752
-#define L34481708 1753
-#define L43928080 1754
-#define L9701916 1755
-#define L85593109 1756
-#define L62392845 1757
-#define L8790535 1758
-#define L27273772 1759
-#define L94374421 1760
-#define L32000044 1761
-#define L5643805 1762
-#define L11955756 1763
-
-//==========================//
 // GLOBAL                   //
 //==========================//
 
+____WB __WB_={____WB__};
+#define __WB__ (&__WB_)
+
 ____V __V_={____V__};
 #define __V__ (&__V_)
 
-____0B __0B_={____0B__};
-#define __0B__ (&__0B_)
-
-____O0 __KTF;
-____DB __X1F;
-____CRE __HUG;
-____CRE __BVO;
-____HSE *__SCP;
-____HSE __HSE_;
-#define __HSE__ (&__HSE_)
+____DB __HDF;
+____33D __QYF;
+____33D __2WM;
+____54D *__JDN;
+____54D __54D_;
+#define __54D__ (&__54D_)
 
-____CRE __2RE;
+____33D __V4D;
 ____C __C_;
 #define __C__ (&__C_)
 
-____0B *__5B;
-____0B *__JC;
-____0B *__OC;
-____0B *__QC;
-____L __2C;
-____0B *__AH;
-____0B *__LI;
+____WB *__1B;
+____WB *__FC;
+____WB *__KC;
+____WB *__MC;
+____L __WC;
+____WB *__JG;
+____WB *__QH;
+____V *__0H;
+____V *__QI;
+____V *__TI;
 ____V *__WI;
-____V *__OJ;
-____V *__RJ;
-____V *__UJ;
 ____B __B_;
 #define __B__ (&__B_)
 
-____4 __N1C;
-____FP __FP_;
-#define __FP__ (&__FP_)
+____4 __SPC;
+____TN __TN_;
+#define __TN__ (&__TN_)
 
-____0B *__UR;
-____GP __GP_;
-#define __GP__ (&__GP_)
+____WB *__XP;
+____UN __UN_;
+#define __UN__ (&__UN_)
 
 
 //==========================//
 // STRING CONSTANT          //
 //==========================//
 
-____V __string_1={____V__,27,"Require assertion violated."};
-____V __string_2={____V__,106,"\t\t================================\n\t\t= A\
+____V __string_1={____V__,106,"\t\t================================\n\t\t= A\
 uto-Install Lisaac Compiler =\n\t\t================================\n\n"};
-____V __string_3={____V__,4,"HOME"};
-____V __string_4={____V__,5,"SHELL"};
-____V __string_5={____V__,17,"Detection system."};
-____V __string_6={____V__,48,"  Error : SHELL environment variable is empty \
+____V __string_2={____V__,17,"Detection system."};
+____V __string_3={____V__,48,"  Error : SHELL environment variable is empty \
 !\n"};
-____V __string_7={____V__,7,"Unknown"};
-____V __string_8={____V__,4,"bash"};
-____V __string_9={____V__,8,"/.bashrc"};
-____V __string_10={____V__,11,"Unix - bash"};
-____V __string_11={____V__,29,"\n# **** LISAAC COMPILER ****\n"};
-____V __string_12={____V__,12,"export PATH="};
-____V __string_13={____V__,12,"/bin:$PATH\n\n"};
-____V __string_14={____V__,4,"tcsh"};
-____V __string_15={____V__,7,"/.cshrc"};
-____V __string_16={____V__,11,"Unix - tcsh"};
-____V __string_17={____V__,10,"set path=("};
-____V __string_18={____V__,13,"/bin $path)\n\n"};
-____V __string_19={____V__,3,"zsh"};
-____V __string_20={____V__,8,"/.zshenv"};
-____V __string_21={____V__,10,"Unix - zsh"};
-____V __string_22={____V__,24,"  Shell not recognized: "};
-____V __string_23={____V__,12,"C:\\msdos.sys"};
-____V __string_24={____V__,15,"C:\\autoexec.bat"};
-____V __string_25={____V__,13,"Windows - DOS"};
-____V __string_26={____V__,33,"\r\nREM **** LISAAC COMPILER ****\r\n"};
-____V __string_27={____V__,9,"set path="};
-____V __string_28={____V__,15,"\\bin;%path%\r\n\r\n"};
-____V __string_29={____V__,17,"  System detect: "};
-____V __string_30={____V__,5,"Menu."};
-____V __string_31={____V__,112,"1- Compiler & Shorter Installation.\n2- Edit\
+____V __string_4={____V__,7,"Unknown"};
+____V __string_5={____V__,4,"bash"};
+____V __string_6={____V__,8,"/.bashrc"};
+____V __string_7={____V__,11,"Unix - bash"};
+____V __string_8={____V__,29,"\n# **** LISAAC COMPILER ****\n"};
+____V __string_9={____V__,12,"export PATH="};
+____V __string_10={____V__,12,"/bin:$PATH\n\n"};
+____V __string_11={____V__,4,"tcsh"};
+____V __string_12={____V__,7,"/.cshrc"};
+____V __string_13={____V__,11,"Unix - tcsh"};
+____V __string_14={____V__,10,"set path=("};
+____V __string_15={____V__,13,"/bin $path)\n\n"};
+____V __string_16={____V__,3,"zsh"};
+____V __string_17={____V__,8,"/.zshenv"};
+____V __string_18={____V__,10,"Unix - zsh"};
+____V __string_19={____V__,24,"  Shell not recognized: "};
+____V __string_20={____V__,12,"C:\\msdos.sys"};
+____V __string_21={____V__,15,"C:\\autoexec.bat"};
+____V __string_22={____V__,13,"Windows - DOS"};
+____V __string_23={____V__,33,"\r\nREM **** LISAAC COMPILER ****\r\n"};
+____V __string_24={____V__,9,"set path="};
+____V __string_25={____V__,15,"\\bin;%path%\r\n\r\n"};
+____V __string_26={____V__,17,"  System detect: "};
+____V __string_27={____V__,5,"Menu."};
+____V __string_28={____V__,112,"1- Compiler & Shorter Installation.\n2- Edit\
 or Installation.\n3- Build the librarie documentation (HTML).\n0- Exit."};
-____V __string_32={____V__,34,"Fix target variable in `make.lip'."};
-____V __string_33={____V__,8,"make.lip"};
-____V __string_34={____V__,10,"  + target"};
-____V __string_35={____V__,32,"  + target:STRING := \"windows\";\n"};
-____V __string_36={____V__,34,"\n  Note: Use `mingw' for Windows.\n"};
-____V __string_37={____V__,29,"  + target:STRING := \"unix\";\n"};
-____V __string_38={____V__,38,"Installation of environment variables."};
-____V __string_39={____V__,98,"  Auto-install fail !\n  You have to change y\
+____V __string_29={____V__,34,"Fix target variable in `make.lip'."};
+____V __string_30={____V__,8,"make.lip"};
+____V __string_31={____V__,10,"  + target"};
+____V __string_32={____V__,32,"  + target:STRING := \"windows\";\n"};
+____V __string_33={____V__,34,"\n  Note: Use `mingw' for Windows.\n"};
+____V __string_34={____V__,29,"  + target:STRING := \"unix\";\n"};
+____V __string_35={____V__,38,"Installation of environment variables."};
+____V __string_36={____V__,98,"  Auto-install fail !\n  You have to change y\
 our environment variables as following: \n    set path="};
-____V __string_40={____V__,13,"\\bin;%path%\n\n"};
-____V __string_41={____V__,36,"Installation of Lisaac library path."};
-____V __string_42={____V__,26,"#define LISAAC_DIRECTORY \""};
-____V __string_43={____V__,24,"User assertion violated."};
-____V __string_44={____V__,2,"\"\n"};
-____V __string_45={____V__,10,"bin/path.h"};
-____V __string_46={____V__,24,"#define LISAAC_DIRECTORY"};
-____V __string_47={____V__,10,"src/path.h"};
-____V __string_48={____V__,31,"Compilation of Lisaac compiler."};
-____V __string_49={____V__,12,"gcc -O2 bin/"};
-____V __string_50={____V__,6,"lisaac"};
-____V __string_51={____V__,10,".c -o bin/"};
-____V __string_52={____V__,19,"  Execute command `"};
-____V __string_53={____V__,20,"' (please wait ...)\n"};
-____V __string_54={____V__,51,"  Auto-install fail !\n  You want to compile \
+____V __string_37={____V__,13,"\\bin;%path%\n\n"};
+____V __string_38={____V__,36,"Installation of Lisaac library path."};
+____V __string_39={____V__,26,"#define LISAAC_DIRECTORY \""};
+____V __string_40={____V__,2,"\"\n"};
+____V __string_41={____V__,10,"bin/path.h"};
+____V __string_42={____V__,24,"#define LISAAC_DIRECTORY"};
+____V __string_43={____V__,10,"src/path.h"};
+____V __string_44={____V__,31,"Compilation of Lisaac compiler."};
+____V __string_45={____V__,12,"gcc -O2 bin/"};
+____V __string_46={____V__,6,"lisaac"};
+____V __string_47={____V__,10,".c -o bin/"};
+____V __string_48={____V__,19,"  Execute command `"};
+____V __string_49={____V__,20,"' (please wait ...)\n"};
+____V __string_50={____V__,51,"  Auto-install fail !\n  You want to compile \
 a `bin/"};
-____V __string_55={____V__,10,".c' file.\n"};
-____V __string_56={____V__,28,"Compilation of Shorter tool."};
-____V __string_57={____V__,60,"  Compile `shorter' tools for your system (pl\
+____V __string_51={____V__,10,".c' file.\n"};
+____V __string_52={____V__,28,"Compilation of Shorter tool."};
+____V __string_53={____V__,60,"  Compile `shorter' tools for your system (pl\
 ease wait ...)\n"};
-____V __string_58={____V__,13,"del shorter.c"};
-____V __string_59={____V__,70,"bin\\lisaac src/make.lip -shorter -q -boost -\
+____V __string_54={____V__,13,"del shorter.c"};
+____V __string_55={____V__,70,"bin\\lisaac src/make.lip -shorter -q -boost -\
 o bin/shorter -gcc -Isrc/."};
-____V __string_60={____V__,12,"rm shorter.c"};
-____V __string_61={____V__,70,"bin/lisaac src/make.lip -shorter -q -boost -o\
+____V __string_56={____V__,12,"rm shorter.c"};
+____V __string_57={____V__,70,"bin/lisaac src/make.lip -shorter -q -boost -o\
  bin/shorter -gcc -Isrc/."};
-____V __string_62={____V__,14,"  Shorter ok!\n"};
-____V __string_63={____V__,32,"  Sorry, `shorter' not ready...\n"};
-____V __string_64={____V__,227,"Welcome to the Lisaac World !               \
+____V __string_58={____V__,14,"  Shorter ok!\n"};
+____V __string_59={____V__,32,"  Sorry, `shorter' not ready...\n"};
+____V __string_60={____V__,227,"Welcome to the Lisaac World !               \
             \n=============================                           \n  In\
 stallation successfull.                             \n  Run `lisaac' to comp\
 ile.                              "};
-____V __string_65={____V__,237,"\n  Note: You'll have to reboot or reloaded \
+____V __string_61={____V__,237,"\n  Note: You'll have to reboot or reloaded \
 environnement   \n        to acknowledge the changes.                       \
 \n     OR for bash users, doing a `source ~/.bashrc' should \n        do the\
  job.                                       \n"};
-____V __string_66={____V__,23,"Editor mode for Lisaac."};
-____V __string_67={____V__,75,"1- Emacs.\n2- Vim.\n3- Kate.\n4- Hippoedit.\n\
+____V __string_62={____V__,23,"Editor mode for Lisaac."};
+____V __string_63={____V__,75,"1- Emacs.\n2- Vim.\n3- Kate.\n4- Hippoedit.\n\
 5- eFTE.\n6- Eclipse.\n0- Exit menu."};
-____V __string_68={____V__,40,"Installation of `lisaac-mode' for Emacs."};
-____V __string_69={____V__,2,"C:"};
-____V __string_70={____V__,7,"/.emacs"};
-____V __string_71={____V__,24,";; **** LISAAC MODE ****"};
-____V __string_72={____V__,24,"\n(setq load-path (cons \""};
-____V __string_73={____V__,28,"/editor/emacs/\" load-path))\n"};
-____V __string_74={____V__,193,"(add-to-list 'auto-mode-alist '(\"\\\\.li\\\\
+____V __string_64={____V__,40,"Installation of `lisaac-mode' for Emacs."};
+____V __string_65={____V__,2,"C:"};
+____V __string_66={____V__,7,"/.emacs"};
+____V __string_67={____V__,24,";; **** LISAAC MODE ****"};
+____V __string_68={____V__,24,"\n(setq load-path (cons \""};
+____V __string_69={____V__,28,"/editor/emacs/\" load-path))\n"};
+____V __string_70={____V__,193,"(add-to-list 'auto-mode-alist '(\"\\\\.li\\\\
 \'\" . lisaac-mode))\n(add-to-list 'auto-mode-alist '(\"\\\\.lip\\\\'\" . li\
 saac-mode))\n(autoload 'lisaac-mode \"lisaac-mode\" \"Major mode for Lisaac \
 Programs\" t)\n\n"};
-____V __string_75={____V__,37,"Installation of `lisaac.vim' for Vim."};
-____V __string_76={____V__,38,"  Sorry, not Vim editor for windows.\n\n"};
-____V __string_77={____V__,22,"mkdir -p ~/.vim/syntax"};
-____V __string_78={____V__,22,"mkdir -p ~/.vim/indent"};
-____V __string_79={____V__,22,"mkdir -p ~/.vim/backup"};
-____V __string_80={____V__,20,"mkdir -p ~/.vim/temp"};
-____V __string_81={____V__,49,"cp -f editor/vim/syntax/lisaac.vim ~/.vim/syn\
+____V __string_71={____V__,37,"Installation of `lisaac.vim' for Vim."};
+____V __string_72={____V__,38,"  Sorry, not Vim editor for windows.\n\n"};
+____V __string_73={____V__,22,"mkdir -p ~/.vim/syntax"};
+____V __string_74={____V__,22,"mkdir -p ~/.vim/indent"};
+____V __string_75={____V__,22,"mkdir -p ~/.vim/backup"};
+____V __string_76={____V__,20,"mkdir -p ~/.vim/temp"};
+____V __string_77={____V__,49,"cp -f editor/vim/syntax/lisaac.vim ~/.vim/syn\
 tax/"};
-____V __string_82={____V__,3,"  `"};
-____V __string_83={____V__,2,"'\t"};
-____V __string_84={____V__,90,"\n  Sorry, auto-install fail !\n  You can rea\
+____V __string_78={____V__,3,"  `"};
+____V __string_79={____V__,2,"'\t"};
+____V __string_80={____V__,90,"\n  Sorry, auto-install fail !\n  You can rea\
 d the `editor/vim/install_vim_plugin.sh' file.\n"};
-____V __string_85={____V__,4,"OK.\n"};
-____V __string_86={____V__,49,"cp -f editor/vim/indent/lisaac.vim ~/.vim/ind\
+____V __string_81={____V__,4,"OK.\n"};
+____V __string_82={____V__,49,"cp -f editor/vim/indent/lisaac.vim ~/.vim/ind\
 ent/"};
-____V __string_87={____V__,297,"\n  It is recommanded to install the default\
+____V __string_83={____V__,297,"\n  It is recommanded to install the default\
  vimrc file provided by the   \n  lisaac installer.                         \
                             \n\n  If you choose not doing this action, your \
 vimrc will only be updated    \n  Do you want to install the default config \
 provided by lisaac installer ?"};
-____V __string_88={____V__,7,"/.vimrc"};
-____V __string_89={____V__,155,"\nsyntax on                           \nfile\
+____V __string_84={____V__,7,"/.vimrc"};
+____V __string_85={____V__,155,"\nsyntax on                           \nfile\
 type plugin on                    \nfiletype indent on                    \n\
 au BufNewFile,BufRead *.li setf lisaac\n"};
-____V __string_90={____V__,31,"cp -f editor/vim/vimrc ~/.vimrc"};
-____V __string_91={____V__,41,"Installation of `lisaac_v2.xml' for Kate."};
-____V __string_92={____V__,37,"  Sorry, not Kate editor for windows."};
-____V __string_93={____V__,42,"mkdir -p ~/.kde/share/apps/katepart/syntax"};
-____V __string_94={____V__,67,"cp -f editor/kate/lisaac_v2.xml ~/.kde/share/\
+____V __string_86={____V__,31,"cp -f editor/vim/vimrc ~/.vimrc"};
+____V __string_87={____V__,41,"Installation of `lisaac_v2.xml' for Kate."};
+____V __string_88={____V__,37,"  Sorry, not Kate editor for windows."};
+____V __string_89={____V__,42,"mkdir -p ~/.kde/share/apps/katepart/syntax"};
+____V __string_90={____V__,67,"cp -f editor/kate/lisaac_v2.xml ~/.kde/share/\
 apps/katepart/syntax/."};
-____V __string_95={____V__,78,"\n  Sorry, auto-install fail !\n  You can to \
+____V __string_91={____V__,78,"\n  Sorry, auto-install fail !\n  You can to \
 read the `editor/kate/README' file."};
-____V __string_96={____V__,3,"OK."};
-____V __string_97={____V__,48,"Installation of `lisaac_spec.xml' for Hippoed\
+____V __string_92={____V__,3,"OK."};
+____V __string_93={____V__,48,"Installation of `lisaac_spec.xml' for Hippoed\
 it."};
-____V __string_98={____V__,78,"copy editor/hippoedit/lisaac_spec.xml \"C:\\P\
+____V __string_94={____V__,78,"copy editor/hippoedit/lisaac_spec.xml \"C:\\P\
 rogram Files\\HippoEDIT\\data\\syntax\""};
-____V __string_99={____V__,12,"  Execute: `"};
-____V __string_100={____V__,5,"Fail!"};
-____V __string_101={____V__,3,"Ok."};
-____V __string_102={____V__,46,"  Sorry, Hippoedit editor is only for Window\
-s."};
-____V __string_103={____V__,26,"Installation of eFTE mode."};
-____V __string_104={____V__,73,"  Note: eFTE Lisaac mode is native.\n       \
+____V __string_95={____V__,12,"  Execute: `"};
+____V __string_96={____V__,5,"Fail!"};
+____V __string_97={____V__,3,"Ok."};
+____V __string_98={____V__,46,"  Sorry, Hippoedit editor is only for Windows."};
+____V __string_99={____V__,26,"Installation of eFTE mode."};
+____V __string_100={____V__,73,"  Note: eFTE Lisaac mode is native.\n       \
  See: `http://efte.cowgar.com'"};
-____V __string_105={____V__,29,"Installation of Eclipse mode."};
-____V __string_106={____V__,250," Prerequisite: you need the Eclipse package\
+____V __string_101={____V__,29,"Installation of Eclipse mode."};
+____V __string_102={____V__,250," Prerequisite: you need the Eclipse package\
  installed.\n Use the Eclipse Update Manager to install the Lisaac Mode with\
  the URL:\n    http://isaacproject.u-strasbg.fr/eclipse/update/\n\n Please, \
 read `editor/eclipse/README' file for further information.\n"};
-____V __string_107={____V__,60,"Build the librarie documentation with Shorte\
+____V __string_103={____V__,60,"Build the librarie documentation with Shorte\
 r (HTML format)."};
-____V __string_108={____V__,14,"mkdir lib_html"};
-____V __string_109={____V__,41,"bin\\shorter -d -f belinda lib -o lib_html"};
-____V __string_110={____V__,41,"bin/shorter -d -f belinda lib -o lib_html"};
-____V __string_111={____V__,69,"  OK\n\n  Note: you'll find this documentati\
+____V __string_104={____V__,14,"mkdir lib_html"};
+____V __string_105={____V__,41,"bin\\shorter -d -f belinda lib -o lib_html"};
+____V __string_106={____V__,41,"bin/shorter -d -f belinda lib -o lib_html"};
+____V __string_107={____V__,69,"  OK\n\n  Note: you'll find this documentati\
 on in `lib_html/index.html'"};
-____V __string_112={____V__,7,"  Fail!"};
-____V __string_113={____V__,7,"\nBye.\n\n"};
-____V __string_114={____V__,26,"Ensure assertion violated."};
-____V __string_115={____V__,5,"Step "};
-____V __string_116={____V__,3," : "};
-____V __string_117={____V__,10,"\n\nChoice:\n"};
-____V __string_118={____V__,19,"Incorrect range [0-"};
-____V __string_119={____V__,2,"]\n"};
-____V __string_120={____V__,18,"Incorrect number.\n"};
-____V __string_121={____V__,5,"  A `"};
-____V __string_122={____V__,50,"' file has no need to change. Current versio\
+____V __string_108={____V__,7,"  Fail!"};
+____V __string_109={____V__,7,"\nBye.\n\n"};
+____V __string_110={____V__,5,"Step "};
+____V __string_111={____V__,3," : "};
+____V __string_112={____V__,10,"\n\nChoice:\n"};
+____V __string_113={____V__,19,"Incorrect range [0-"};
+____V __string_114={____V__,2,"]\n"};
+____V __string_115={____V__,18,"Incorrect number.\n"};
+____V __string_116={____V__,5,"  A `"};
+____V __string_117={____V__,50,"' file has no need to change. Current versio\
 n is:\n"};
-____V __string_123={____V__,39,"' file has been updated. Old value is:\n"};
-____V __string_124={____V__,16,"  New value is:\n"};
-____V __string_125={____V__,30,"' file has been updated with:\n"};
-____V __string_126={____V__,30,"' file has been created with:\n"};
-____V __string_127={____V__,7,"Error: "};
-____V __string_128={____V__,16,"Not create file!"};
-____V __string_129={____V__,16,"  Confirmation ?"};
-____V __string_130={____V__,34,"Not open file (Write protection) !"};
-____V __string_131={____V__,7," (y/n) "};
-____V __string_132={____V__,19,"Memory: Size bound."};
-____V __string_133={____V__,18,"Memory: Alignment."};
-____V __string_134={____V__,28,"Memory: New size < Old size."};
-____V __string_135={____V__,21,"Memory: Pointer NULL."};
-____V __string_136={____V__,25,"Memory: Bound table_size."};
-____V __string_137={____V__,19,"Memory: Table NULL."};
-____V __string_138={____V__,20,"Memory: Bound index."};
-____V __string_139={____V__,29,"Memory: Macro block not busy."};
-____V __string_140={____V__,17,"Memory: Size = 0."};
-____V __string_141={____V__,16,"Memory: Size = 0"};
-____V __string_142={____V__,10,"0123456789"};
-____V __string_143={____V__,23,"Memory: Copy alignment."};
-____V __string_144={____V__,29,"Memory: Macro block not free."};
-____V __string_145={____V__,29,"Memory: Macro Block not busy."};
-____V __string_146={____V__,18,"Memory: Big block."};
-____V __string_147={____V__,22,"Memory: Alignment LAB."};
-____V __string_148={____V__,19,"Memory: Not memory."};
-____V __string_149={____V__,19,"Not enough memory.\n"};
+____V __string_118={____V__,39,"' file has been updated. Old value is:\n"};
+____V __string_119={____V__,16,"  New value is:\n"};
+____V __string_120={____V__,30,"' file has been updated with:\n"};
+____V __string_121={____V__,30,"' file has been created with:\n"};
+____V __string_122={____V__,7,"Error: "};
+____V __string_123={____V__,16,"Not create file!"};
+____V __string_124={____V__,16,"  Confirmation ?"};
+____V __string_125={____V__,34,"Not open file (Write protection) !"};
+____V __string_126={____V__,7," (y/n) "};
+____V __string_127={____V__,19,"Not enough memory.\n"};
 
 //==========================//
 // FUNCTION HEADER          //
 //==========================//
 
-// Debug Manager
-void interrupt_signal(int sig);
-void lisaac_stack_print(_____CONTEXT *up);
-void lisaac_push_first(_____CONTEXT *path,unsigned long code);
-void lisaac_push(_____CONTEXT *path,unsigned long code);
-void print_integer(unsigned short n);
 // Source code
-static void __DX(____V *__FX);
-static ____0B* __QF(____L __TF);
-static ____4* __NVF(____0B *__PVF);
-static void __LTE(____0B *__NTE,____4 *__OTE);
-static void __4II(____0B *__AJI,void *__BJI);
-static void* __YF(____V *__1F);
-static void __TG(____V *__WG,____L __XG);
-static ____L __F1I(____0B *__H1I,____V *__I1I);
-static void __PLI(____0B *__RLI,void *__SLI);
-static void __N4C(void *__Q4C);
-static ____L __FR(____V *__IR,____V *__JR,____L __KR);
-static void __2LB(void *__5LB,____V *__AMB,void *__BMB,____G __CMB);
-static void __I0I(____0B *__K0I);
-static void __PZJ(____0B *__RZJ,____L __SZJ);
-static void __PVM(____4 *__RVM,____L __SVM,____L __TVM,____L __UVM);
-static void __W2J(____4 *__Y2J,____4 *__Z2J,____L __02J);
-static ____L __DRB(void *__GRB);
-static ____4 __IXC(____V *__LXC);
-static ____0B* __1QE();
-static ____4* __WMH(____L __ZMH);
-static void __CRG(____4 *__ERG,____4 __FRG,____L __GRG);
-static void __PRG(____0B *__RRG,____4 __SRG);
-static ____4 __LVD(____4 *__NVD,____L __OVD);
-static void __LT(____L __NT,____0B *__OT);
-static ____4 __GCJ(____0B *__ICJ,____L __JCJ);
-static ____4 __04D(____V *__24D,____L __34D);
-static ____4* __ONH(____4 *__QNH,____L __RNH,____L __SNH);
-static void __CWJ(____4 *__EWJ,____4 *__FWJ,____L __GWJ,____L __HWJ);
-static ____G __NPI(____0B *__PPI);
-static ____G __YQR(____4 __0QR);
-static ____L __RTD(____4 __TTD);
-static ____G __0KE(____4 __2KE);
-static void __KOQ(____L __MOQ);
-static ____L __LQC(____4 *__NQC,____4 __OQC,____L __PQC);
-static void __YCJ(____0B *__0CJ,____L __1CJ);
-static void __POJ(____4 *__ROJ,____L __SOJ,____L __TOJ);
-static ____CRE __H0E(____L __J0E);
-static ____DB __ERF(____CRE __HRF);
-static ____CRE __1FJ(____CRE __3FJ,____CRE __4FJ);
-static ____DB __VZF(____CRE __YZF,____DB __ZZF,____Y1 __0ZF);
-static ____DB __Y1H(____CRE __11H);
-static ____G __HTD(____4 __KTD);
-static void __MJK(____0B *__OJK,____4 __PJK,____L __QJK);
-static void __ZYO(____DB __2YO,____DB __3YO,____CRE __4YO);
-static ____DB __UQG(____DB *__WQG,____L __XQG);
-static void __U3G(____DB *__W3G,____DB __X3G,____L __Y3G);
-static ____CRE __OYP(____DB __QYP);
-static ____DB __XXG(____CRE __ZXG);
-static void __OWS(____HSE *__QWS,____DB __RWS,____CRE __SWS);
-static void __3MP(____HSE *__ANP,____CRE __BNP);
-static ____HSE* __MBP(____CRE __PBP);
-static void __JCT(____HSE *__LCT);
-static ____DB __UTG(____Y1 __XTG);
-static ____HSE* __WUO();
+static ____DB __LBF(____33D __NBF,____DB __OBF,____OY __PBF);
+static ____4* __3NG(____L __5NG);
+static void __FSC(void *__HSC);
+static ____4* __SOG(____4 *__TOG,____L __UOG,____L __VOG);
+static void __AAE(____WB *__BAE,____4 *__CAE);
+static void __WGH(____WB *__XGH,void *__YGH);
+static void __4F(____V *__AG,____L __BG);
+static ____L __VWH(____WB *__WWH,____V *__XWH);
+static void __4IH(____WB *__5IH,void *__AJH);
+static ____L __KP(____V *__MP,____V *__NP,____L __OP);
+static void __LGB(void *__NGB,____V *__OGB,void *__PGB,____G __QGB);
+static void __1VH(____WB *__2VH);
+static void __JRI(____WB *__KRI,____L __LRI);
+static void __XAL(____4 *__YAL,____L __ZAL,____L __0AL,____L __1AL);
+static void __DUI(____4 *__EUI,____4 *__FUI,____L __GUI);
+static ____L __BLB(void *__DLB);
+static ____4 __CMC(____V *__EMC);
+static ____DB __5XF(____OY __BYF);
+static ____54D* __GCN(____33D __ICN);
+static void __J0M(____DB __L0M,____DB __M0M,____33D __N0M);
+static void __DHQ(____54D *__EHQ,____DB __FHQ,____33D __GHQ);
+static void __XHI(____4 *__YHI,____L __ZHI,____L __0HI);
+static void __HR(____L __IR,____WB *__JR);
+static void __LOI(____4 *__MOI,____4 *__NOI,____L __OOI,____L __POI);
+static void __NJO(____L __OJO);
+static ____L __GGC(____4 *__HGC,____L __JGC);
+static void __N3H(____WB *__O3H,____L __P3H);
+static ____54D* __SWM();
 
 //==========================//
 // SOURCE CODE              //
@@ -2206,22 +371,18 @@ static ____HSE* __WUO();
 
 int main(int argc,char **argv)
 {
-  ____O0 __FHI,__DRJ;
-  ____CRE __EIF;
-  ____Y1 __VWK,__CEH;
-  ____DB __2LH,__YL,__WYJ;
-  ____0B *__JN,*__ER,*__XQ3,*__NK4,*__MVE,*__KB0,*__UB0,*__SEY,*__5AC;
-  ____0B *__ZT,*__TXY,*__XXY;
-  ____L __GC,__MK4,__MB0,__WK4,__3YI,__XB0,__HZI,__1ZI,__XT,__XCC,__AFC;
-  ____V *__TM,*__NFB,*__YGB;
-  _____CONTEXT __RB,__N4X,__Q4X,__PWK,__PAY,__FMH,__YIH,__4QJ,__25X;
-  _____CONTEXT __55X,__IB0,__15C,__ILD,__1EQ,__EER,__DFQ,__0EY,__51C;
-  _____CONTEXT __KEC;
-  ____G __IMH,__NI,__5I,__CZJ;
-  ____4 *__CC,*__EU,*__0ZI,*__B0I;
-  ____4 __3DC;
-  lisaac_push_first(&__RB,L3149825); // L24 INSTALL_LISAAC;
-  signal(SIGINT,interrupt_signal);
+  ____WB *__E3Y,*__A3Y,*__X3Y,*__T3Y,*__Q5Y,*__RAZ,*__NAZ,*__EBZ,*__ABZ;
+  ____WB *__XBZ,*__TBZ,*__GCZ,*__3CZ,*__ZCZ,*__MDZ,*__03D,*__AIH;
+  ____DB __F3Y,__L3Y,__X5Y,__LBZ,__4BZ,__4CZ,__EDZ,__B1E;
+  ____L __G3Y,__04Y,__S5Y,__TAZ,__GKV,__1WF,__DWY,__ZBZ,__TCB,__BD;
+  ____L __5CZ,__SDZ,__H0B,__C4D;
+  ____33D __H3Y,__I3Y,__J3Y,__U5Y,__V5Y,__IBZ,__JBZ,__1BZ,__2BZ,__ADZ;
+  ____33D __BDZ,__CDZ,__FPY,__H0E;
+  ____OY __N3Y,__Z5Y,__NBZ,__ACZ,__GDZ,__L5D;
+  ____V *__CWY,*__5BB;
+  ____4 *__C3Y,*__Z4Y,*__PAZ,*__UWF,*__VBZ,*__1CZ,*__ODZ,*__WIH;
+  ____G __2H,__CI;
+  ____4 __J1B;
   arg_count  = argc;
   arg_vector = argv;
 #ifdef _PTHREAD_H
@@ -2230,17438 +391,2401 @@ int main(int argc,char **argv)
   /*pthread_attr_setdetachstate(&thread_attr,PTHREAD_CREATE_DETACHED);*/
 #endif
   ;
-  lisaac_push(&__RB,L4985356); // L38 STRING_CONSTANT;
-  lisaac_push(&__RB,L4724236); // L36 STRING_CONSTANT;
-  lisaac_push(&__RB,L5509656); // L42 STRING;
-  lisaac_push(&__RB,L4986392); // L38 STRING;
-  lisaac_push(&__RB,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__N4X,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__Q4X,L4069927); // L31 CONVERT;
-  __EIF=((____CRE ) 0);
-  lisaac_push(&__RB,L15348226); // L117 OBJECT;
-  __2RE=__EIF;
-  lisaac_push(&__RB,L5793313); // L44 UINTEGER_64;
-  lisaac_push_first(&__N4X,L5793313); // L44 UINTEGER_64;
-  __FHI=((____O0 )(0xFFFFFFFFFFFFFFFFLLU));
-  lisaac_push(&__RB,L5781540); // L44 UINTEGER_32;
-  lisaac_push_first(&__N4X,L5781540); // L44 UINTEGER_32;
-  lisaac_push_first(&__Q4X,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__PWK,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PAY,L9195016); // L70 NUMERIC;
-  __VWK=(____Y1)(-  0);
-  lisaac_push(&__Q4X,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__PWK,L9195016); // L70 NUMERIC;
-  __CEH=(____Y1)(__VWK -  1);
-  lisaac_push(&__N4X,L5781540); // L44 UINTEGER_32;
-  lisaac_push_first(&__Q4X,L49941512); // L381 NUMERIC;
-  lisaac_push_first(&__PWK,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__PAY,L7481858); // L57 OBJECT;
-  __2LH=((____DB )(top_context->back->back));
-  lisaac_push(&__PWK,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__PAY,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FMH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__YIH,L49971720); // L381 NUMERIC;
-  lisaac_push_first(&__4QJ,L16267284); // L124 UNSIGNED_INTEGER;
-  lisaac_push_first(&__25X,L68325896); // L521 NUMERIC;
-  lisaac_push_first(&__55X,L4069927); // L31 CONVERT;
-  __DRJ=((____O0 )__CEH);
-  lisaac_push(&__4QJ,L16257556); // L124 UNSIGNED_INTEGER;
-  lisaac_push_first(&__25X,L15224840); // L116 NUMERIC;
-  if ((__FHI > __DRJ)) {
-    lisaac_push(&__FMH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YIH,L13509636); // L103 TRUE;
-    __IMH=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FMH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YIH,L14689286); // L112 FALSE;
-    __IMH=__F__;
-  };
-  if (__IMH) {
-    lisaac_push(&__PWK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__PAY,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FMH,L21910546); // L167 BLOCK;
-    lisaac_push(&__FMH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__YIH,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__4QJ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__25X,L8792068); // L67 TRUE;
-    lisaac_push_first(&__55X,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__2LH));
-    lisaac_push(&__YIH,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__YIH,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__4QJ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__25X,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__55X,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__IB0,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YIH,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__4QJ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__25X,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__PWK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__PAY,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__Q4X,L6842404); // L52 UINTEGER_32;
-  lisaac_push_first(&__PWK,L68325896); // L521 NUMERIC;
-  lisaac_push_first(&__PAY,L4069927); // L31 CONVERT;
-  __FHI=((____O0 )__CEH);
-  lisaac_push(&__RB,L5772836); // L44 UINTEGER_32;
-  __KTF=__FHI;
-  lisaac_push(&__RB,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__N4X,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__Q4X,L4069927); // L31 CONVERT;
-  __EIF=((____CRE ) 0);
-  lisaac_push(&__RB,L12981804); // L99 MEMORY;
-  __HUG=__EIF;
-  lisaac_push(&__RB,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__N4X,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__Q4X,L4069927); // L31 CONVERT;
-  __EIF=((____CRE ) 0);
-  lisaac_push(&__RB,L6299180); // L48 MEMORY;
-  __HSE__->__KSE=__EIF;
-  lisaac_push(&__RB,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__N4X,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__Q4X,L4069927); // L31 CONVERT;
-  __EIF=((____CRE ) 0);
-  lisaac_push(&__RB,L49160236); // L375 MEMORY;
-  __BVO=__EIF;
-  lisaac_push(&__RB,L10627112); // L81 SYSTEM;
-  __2LH=((____DB )(NULL));
-  lisaac_push(&__RB,L48898092); // L373 MEMORY;
-  __X1F=__2LH;
-  lisaac_push(&__RB,L5120556); // L39 MEMORY;
-  __2LH=((____DB )(NULL));
-  lisaac_push(&__RB,L6170156); // L47 MEMORY;
-  __HSE__->__JSE=__2LH;
-  lisaac_push(&__RB,L25041964); // L191 MEMORY;
-  lisaac_push(&__RB,L6824492); // L52 MEMORY;
-  lisaac_push(&__RB,L6955564); // L53 MEMORY;
-  lisaac_push(&__RB,L5773336); // L44 STRING;
-  lisaac_push(&__RB,L12866561); // L98 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L12866561); // L98 INSTALL_LISAAC;
-  __JN=__QF( 256);
-  lisaac_push(&__RB,L12852225); // L98 INSTALL_LISAAC;
-  __5B=__JN;
-  lisaac_push(&__RB,L31727617); // L242 INSTALL_LISAAC;
-  lisaac_push(&__RB,L31858689); // L243 INSTALL_LISAAC;
-  lisaac_push(&__RB,L31989761); // L244 INSTALL_LISAAC;
-  lisaac_push(&__RB,L14162945); // L108 INSTALL_LISAAC;
-  lisaac_push(&__RB,L12998145); // L99 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L12998145); // L99 INSTALL_LISAAC;
-  __ER=__QF( 256);
-  lisaac_push(&__RB,L12983809); // L99 INSTALL_LISAAC;
-  __AH=__ER;
-  lisaac_push(&__RB,L32251905); // L246 INSTALL_LISAAC;
-  lisaac_push(&__RB,L34103809); // L260 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L34103809); // L260 INSTALL_LISAAC;
-  lisaac_push(&__RB,L32120833); // L245 INSTALL_LISAAC;
-  lisaac_push(&__RB,L34365441); // L262 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L34365441); // L262 INSTALL_LISAAC;
-  lisaac_push(&__RB,L33450497); // L255 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L33450497); // L255 INSTALL_LISAAC;
-  lisaac_push(&__RB,L35426817); // L270 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L35426817); // L270 INSTALL_LISAAC;
-  lisaac_push(&__RB,L32382977); // L247 INSTALL_LISAAC;
-  lisaac_push(&__RB,L35677185); // L272 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L35677185); // L272 INSTALL_LISAAC;
-  lisaac_push(&__RB,L32514049); // L248 INSTALL_LISAAC;
-  lisaac_push(&__RB,L36205057); // L276 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L36205057); // L276 INSTALL_LISAAC;
-  lisaac_push(&__RB,L32645121); // L249 INSTALL_LISAAC;
-  lisaac_push(&__RB,L34496001); // L263 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L34496001); // L263 INSTALL_LISAAC;
-  lisaac_push(&__RB,L33581569); // L256 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L33581569); // L256 INSTALL_LISAAC;
-  lisaac_push(&__RB,L35807233); // L273 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L35807233); // L273 INSTALL_LISAAC;
-  lisaac_push(&__RB,L36336641); // L277 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L36336641); // L277 INSTALL_LISAAC;
-  lisaac_push(&__RB,L34627585); // L264 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L34627585); // L264 INSTALL_LISAAC;
-  lisaac_push(&__RB,L33712129); // L257 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L33712129); // L257 INSTALL_LISAAC;
-  lisaac_push(&__RB,L35023361); // L267 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L35023361); // L267 INSTALL_LISAAC;
-  lisaac_push(&__RB,L34893825); // L266 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L34893825); // L266 INSTALL_LISAAC;
-  lisaac_push(&__RB,L33975809); // L259 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L33975809); // L259 INSTALL_LISAAC;
-  lisaac_push(&__RB,L35298817); // L269 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L35298817); // L269 INSTALL_LISAAC;
-  lisaac_push(&__RB,L35937793); // L274 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L35937793); // L274 INSTALL_LISAAC;
-  lisaac_push(&__RB,L36470273); // L278 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L36470273); // L278 INSTALL_LISAAC;
-  lisaac_push(&__RB,L4723740); // L36 STD_INPUT;
-  __N1C='\0';
-  lisaac_push(&__RB,L6161949); // L47 INPUT_STREAM;
-  lisaac_push_first(&__N4X,L6423581); // L49 INPUT_STREAM;
-  __ER=__QF( 1024);
-  lisaac_push(&__RB,L5643805); // L43 INPUT_STREAM;
-  __UR=__ER;
-  lisaac_push(&__RB,L52988929); // L404 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L52988929); // L404 INSTALL_LISAAC;
-  lisaac_push(&__RB,L53121025); // L405 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L53121025); // L405 INSTALL_LISAAC;
-  lisaac_push(&__RB,L53254145); // L406 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L53254145); // L406 INSTALL_LISAAC;
-  lisaac_push(&__RB,L53782529); // L410 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L53782529); // L410 INSTALL_LISAAC;
-  lisaac_push(&__RB,L54548481); // L416 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L54548481); // L416 INSTALL_LISAAC;
-  lisaac_push(&__RB,L81400321); // L621 INSTALL_LISAAC;
-  lisaac_push_first(&__N4X,L81400321); // L621 INSTALL_LISAAC;
-  lisaac_push(&__N4X,L82077697); // L626 INSTALL_LISAAC;
-  __DX((&__string_2));
-  if (__JN==NULL) {
-    lisaac_push(&__N4X,L82192385); // L627 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__N4X,L82192385); // L627 INSTALL_LISAAC;
-    __XQ3=((____0B *)__JN);
-    lisaac_push_first(&__Q4X,L21894168); // L167 STRING;
-    __XQ3->__FC= 0;
-    lisaac_push(&__Q4X,L22546968); // L172 STRING;
-    lisaac_push_first(&__PWK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__PAY,L8530438); // L65 FALSE;
-  };
-  if (__JN==NULL) {
-    lisaac_push(&__N4X,L82330113); // L628 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__N4X,L82330113); // L628 INSTALL_LISAAC;
-    __CC=__NVF(((____0B *)__JN));
-  };
-  getcwd((__CC),255);
-  if (__JN==NULL) {
-    lisaac_push(&__N4X,L82591745); // L630 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__N4X,L82591745); // L630 INSTALL_LISAAC;
-    __LTE(((____0B *)__JN),__CC);
-  };
-  if (__JN==NULL) {
-    lisaac_push(&__N4X,L82863617); // L632 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    __GC=__JN->__FC;
-  };
-  lisaac_push(&__N4X,L82864129); // L632 INSTALL_LISAAC;
-  __ER=__QF(__GC);
-  __JC=__ER;
-  if (__ER==NULL) {
-    lisaac_push(&__N4X,L82984961); // L633 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__N4X,L82984961); // L633 INSTALL_LISAAC;
-    __4II(((____0B *)__ER),__JN);
-  };
-  lisaac_push(&__N4X,L83131905); // L634 INSTALL_LISAAC;
-  __ER=__YF((&__string_3));
-  __OC=__ER;
-  lisaac_push(&__N4X,L83263489); // L635 INSTALL_LISAAC;
-  __ER=__YF((&__string_4));
-  __QC=__ER;
-  lisaac_push(&__N4X,L83511809); // L637 INSTALL_LISAAC;
-  __TG((&__string_5), 0);
-  lisaac_push(&__N4X,L83632641); // L638 INSTALL_LISAAC;
-  lisaac_push_first(&__Q4X,L37233665); // L284 INSTALL_LISAAC;
-  if (((void *)__QC != (void *)NULL)) {
-    lisaac_push(&__Q4X,L44304897); // L338 INSTALL_LISAAC;
-    lisaac_push_first(&__PWK,L6825988); // L52 TRUE;
-    lisaac_push_first(&__PAY,L38167041); // L291 INSTALL_LISAAC;
-    __XQ3=__OC;
-    lisaac_push_first(&__FMH,L8672792); // L66 STRING;
-    if (__OC==NULL) {
-      lisaac_push(&__FMH,L9059864); // L69 STRING;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      __MK4=__OC->__FC;
-    };
-    lisaac_push(&__FMH,L9060376); // L69 STRING;
-    __NK4=__QF(__MK4);
-    if (__NK4==NULL) {
-      lisaac_push(&__FMH,L9184792); // L70 STRING;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__FMH,L9184792); // L70 STRING;
-      __4II(((____0B *)__NK4),__XQ3);
-    };
-    __LI=__NK4;
-    if (__QC==NULL) {
-      lisaac_push(&__PAY,L38283777); // L292 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__PAY,L38283777); // L292 INSTALL_LISAAC;
-      __MVE=((____0B *)__QC);
-      lisaac_push_first(&__FMH,L17439245); // L133 ABSTRACT_STRING;
-      __MK4=__MVE->__FC;
-      lisaac_push(&__FMH,L17449997); // L133 ABSTRACT_STRING;
-      lisaac_push_first(&__YIH,L14700552); // L112 NUMERIC;
-      __NI=(__MK4 ==  0);
-    };
-    if (__NI) {
-      lisaac_push(&__PAY,L38669825); // L295 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L8792068); // L67 TRUE;
-      lisaac_push_first(&__YIH,L38286849); // L292 INSTALL_LISAAC;
-      lisaac_push(&__YIH,L38437377); // L293 INSTALL_LISAAC;
-      __DX((&__string_6));
-      __WI=(&__string_7);
-      __NI=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__PAY,L38669825); // L295 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L8530438); // L65 FALSE;
-      __NI=__J__;
-    };
-    if (__NI) {
-      lisaac_push(&__PAY,L39587329); // L302 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L9326596); // L71 TRUE;
-      __NI=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__PAY,L39587329); // L302 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L9187334); // L70 FALSE;
-      lisaac_push_first(&__YIH,L38674433); // L295 INSTALL_LISAAC;
-      if (__QC==NULL) {
-        lisaac_push(&__YIH,L38687745); // L295 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__YIH,L38687745); // L295 INSTALL_LISAAC;
-        __KB0=((____0B *)__QC);
-        lisaac_push_first(&__4QJ,L41697293); // L318 ABSTRACT_STRING;
-        __MB0=__F1I(__KB0,(&__string_8));
-        __5I=(__MB0 !=  0);
-      };
-      if (__5I) {
-        lisaac_push(&__FMH,L9570822); // L73 FALSE;
-        lisaac_push_first(&__YIH,L8792068); // L67 TRUE;
-        lisaac_push_first(&__4QJ,L9445894); // L72 FALSE;
-        lisaac_push_first(&__25X,L38691841); // L295 INSTALL_LISAAC;
-        if (__LI==NULL) {
-          lisaac_push(&__25X,L38944257); // L297 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__25X,L38944257); // L297 INSTALL_LISAAC;
-          __PLI(((____0B *)__LI),(&__string_9));
-        };
+  __V4D=((____33D ) 0);
+  __QYF=((____33D ) 0);
+  __54D__->__C5D=((____33D ) 0);
+  __2WM=((____33D ) 0);
+  __HDF=((____DB )(NULL));
+  __54D__->__B5D=((____DB )(NULL));
+  __E3Y=NULL;
+  __F3Y=((____DB )(NULL));
+  __G3Y= 0;
+  __H3Y=((____33D )sizeof(____WB));
+  if ((__H3Y ==  0)) {
+    __E3Y=__WB__;
+  } else /* FALSE */ {
+    __G3Y=-1;
+    __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __H3Y));
+    if ((__G3Y == (____L)(-  1))) {
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __I3Y=(____33D)(__J3Y / ((____33D )((____L )(sizeof(void *)))));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_size[(__I3Y)-1]))),((____OY )__J3Y));
+      __F3Y=__L3Y;
+    } else /* FALSE */ {
+      __N3Y=((____OY )__G3Y);
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_type[(__N3Y)]))),(____OY)(__N3Y |  1));
+      __F3Y=__L3Y;
+    };
+    __E3Y=((____WB *)__F3Y);
+    *(__E3Y) = *(__WB__);
+  };
+  __A3Y=((____WB *)__E3Y);
+  if ((__A3Y->__CBE <  256)) {
+    __C3Y=__3NG( 256);
+    __A3Y->__ZAE=__C3Y;
+    __A3Y->__CBE= 256;
+  };
+  __A3Y->__BC= 0;
+  __A3Y=__E3Y;
+  __1B=__E3Y;
+  __X3Y=NULL;
+  __F3Y=((____DB )(NULL));
+  __G3Y= 0;
+  __H3Y=((____33D )sizeof(____WB));
+  if ((__H3Y ==  0)) {
+    __X3Y=__WB__;
+  } else /* FALSE */ {
+    __G3Y=-1;
+    __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __H3Y));
+    if ((__G3Y == (____L)(-  1))) {
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __I3Y=(____33D)(__J3Y / ((____33D )((____L )(sizeof(void *)))));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_size[(__I3Y)-1]))),((____OY )__J3Y));
+      __F3Y=__L3Y;
+    } else /* FALSE */ {
+      __N3Y=((____OY )__G3Y);
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_type[(__N3Y)]))),(____OY)(__N3Y |  1));
+      __F3Y=__L3Y;
+    };
+    __X3Y=((____WB *)__F3Y);
+    *(__X3Y) = *(__WB__);
+  };
+  __T3Y=((____WB *)__X3Y);
+  if ((__T3Y->__CBE <  256)) {
+    __C3Y=__3NG( 256);
+    __T3Y->__ZAE=__C3Y;
+    __T3Y->__CBE= 256;
+  };
+  __T3Y->__BC= 0;
+  __JG=__X3Y;
+  __SPC='\0';
+  __X3Y=NULL;
+  __F3Y=((____DB )(NULL));
+  __G3Y= 0;
+  __H3Y=((____33D )sizeof(____WB));
+  if ((__H3Y ==  0)) {
+    __X3Y=__WB__;
+  } else /* FALSE */ {
+    __G3Y=-1;
+    __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __H3Y));
+    if ((__G3Y == (____L)(-  1))) {
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __I3Y=(____33D)(__J3Y / ((____33D )((____L )(sizeof(void *)))));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_size[(__I3Y)-1]))),((____OY )__J3Y));
+      __F3Y=__L3Y;
+    } else /* FALSE */ {
+      __N3Y=((____OY )__G3Y);
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_type[(__N3Y)]))),(____OY)(__N3Y |  1));
+      __F3Y=__L3Y;
+    };
+    __X3Y=((____WB *)__F3Y);
+    *(__X3Y) = *(__WB__);
+  };
+  __T3Y=((____WB *)__X3Y);
+  if ((__T3Y->__CBE <  1024)) {
+    __C3Y=__3NG( 1024);
+    __T3Y->__ZAE=__C3Y;
+    __T3Y->__CBE= 1024;
+  };
+  __T3Y->__BC= 0;
+  __XP=__X3Y;
+  __FSC((&__string_1));
+  ((____WB *)__E3Y)->__BC= 0;
+  __X3Y=((____WB *)__E3Y);
+  if ((__X3Y->__CBE > __X3Y->__BC)) {
+    ((____4 *)__X3Y->__ZAE)[__X3Y->__BC]='\0';
+  } else /* FALSE */ {
+    if ((__X3Y->__CBE <= __X3Y->__BC)) {
+      if ((__X3Y->__CBE ==  0)) {
+        __X3Y->__CBE= 32;
+        __Z4Y=__3NG( 32);
+        __X3Y->__ZAE=__Z4Y;
+      } else /* FALSE */ {
+        __04Y=(____L)(__X3Y->__CBE <<  1);
+        __Z4Y=__SOG(((____4 *)__X3Y->__ZAE),__X3Y->__CBE,__04Y);
+        __X3Y->__ZAE=__Z4Y;
+        __X3Y->__CBE=__04Y;
+      };
+    };
+    ((____4 *)__X3Y->__ZAE)[__X3Y->__BC]='\0';
+    __X3Y->__BC=(____L)(__X3Y->__BC +  1);
+    __X3Y->__BC=(____L)(__X3Y->__BC -  1);
+  };
+  __C3Y=__X3Y->__ZAE;
+  getcwd((__C3Y),255);
+  __AAE(((____WB *)__E3Y),__C3Y);
+  __G3Y=__E3Y->__BC;
+  __X3Y=NULL;
+  __F3Y=((____DB )(NULL));
+  __04Y= 0;
+  __H3Y=((____33D )sizeof(____WB));
+  if ((__H3Y ==  0)) {
+    __X3Y=__WB__;
+  } else /* FALSE */ {
+    __04Y=-1;
+    __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __H3Y));
+    if ((__04Y == (____L)(-  1))) {
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __I3Y=(____33D)(__J3Y / ((____33D )((____L )(sizeof(void *)))));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_size[(__I3Y)-1]))),((____OY )__J3Y));
+      __F3Y=__L3Y;
+    } else /* FALSE */ {
+      __N3Y=((____OY )__04Y);
+      __I3Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __J3Y=(____33D)((____33D)(__H3Y - (____33D)(((____33D ) 0) - __I3Y)) & (____33D)((____33D)(((____33D ) 0) - __I3Y) - ((____33D ) 1)));
+      __L3Y=__LBF(__J3Y,((____DB )(&(table_type[(__N3Y)]))),(____OY)(__N3Y |  1));
+      __F3Y=__L3Y;
+    };
+    __X3Y=((____WB *)__F3Y);
+    *(__X3Y) = *(__WB__);
+  };
+  __T3Y=((____WB *)__X3Y);
+  if ((__G3Y >  0)) {
+    if ((__T3Y->__CBE < __G3Y)) {
+      __Z4Y=__3NG(__G3Y);
+      __T3Y->__ZAE=__Z4Y;
+      __T3Y->__CBE=__G3Y;
+    };
+  };
+  __T3Y->__BC= 0;
+  __FC=__X3Y;
+  __WGH(((____WB *)__X3Y),__E3Y);
+  __X3Y=NULL;
+  __C3Y=((____4 *)(getenv((char*)("HOME"))));
+  if (((void *)__C3Y != (void *)NULL)) {
+    __Q5Y=NULL;
+    __L3Y=((____DB )(NULL));
+    __S5Y= 0;
+    __I3Y=((____33D )sizeof(____WB));
+    if ((__I3Y ==  0)) {
+      __Q5Y=__WB__;
+    } else /* FALSE */ {
+      __S5Y=-1;
+      __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __I3Y));
+      if ((__S5Y == (____L)(-  1))) {
+        __U5Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __V5Y=(____33D)((____33D)(__I3Y - (____33D)(((____33D ) 0) - __U5Y)) & (____33D)((____33D)(((____33D ) 0) - __U5Y) - ((____33D ) 1)));
+        __U5Y=(____33D)(__V5Y / ((____33D )((____L )(sizeof(void *)))));
+        __X5Y=__LBF(__V5Y,((____DB )(&(table_size[(__U5Y)-1]))),((____OY )__V5Y));
+        __L3Y=__X5Y;
+      } else /* FALSE */ {
+        __Z5Y=((____OY )__S5Y);
+        __U5Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __V5Y=(____33D)((____33D)(__I3Y - (____33D)(((____33D ) 0) - __U5Y)) & (____33D)((____33D)(((____33D ) 0) - __U5Y) - ((____33D ) 1)));
+        __X5Y=__LBF(__V5Y,((____DB )(&(table_type[(__Z5Y)]))),(____OY)(__Z5Y |  1));
+        __L3Y=__X5Y;
+      };
+      __Q5Y=((____WB *)__L3Y);
+      *(__Q5Y) = *(__WB__);
+    };
+    __X3Y=__Q5Y;
+    __AAE(((____WB *)__Q5Y),__C3Y);
+  };
+  __KC=__X3Y;
+  __X3Y=NULL;
+  __C3Y=((____4 *)(getenv((char*)("SHELL"))));
+  if (((void *)__C3Y != (void *)NULL)) {
+    __Q5Y=NULL;
+    __L3Y=((____DB )(NULL));
+    __S5Y= 0;
+    __I3Y=((____33D )sizeof(____WB));
+    if ((__I3Y ==  0)) {
+      __Q5Y=__WB__;
+    } else /* FALSE */ {
+      __S5Y=-1;
+      __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __I3Y));
+      if ((__S5Y == (____L)(-  1))) {
+        __U5Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __V5Y=(____33D)((____33D)(__I3Y - (____33D)(((____33D ) 0) - __U5Y)) & (____33D)((____33D)(((____33D ) 0) - __U5Y) - ((____33D ) 1)));
+        __U5Y=(____33D)(__V5Y / ((____33D )((____L )(sizeof(void *)))));
+        __X5Y=__LBF(__V5Y,((____DB )(&(table_size[(__U5Y)-1]))),((____OY )__V5Y));
+        __L3Y=__X5Y;
+      } else /* FALSE */ {
+        __Z5Y=((____OY )__S5Y);
+        __U5Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __V5Y=(____33D)((____33D)(__I3Y - (____33D)(((____33D ) 0) - __U5Y)) & (____33D)((____33D)(((____33D ) 0) - __U5Y) - ((____33D ) 1)));
+        __X5Y=__LBF(__V5Y,((____DB )(&(table_type[(__Z5Y)]))),(____OY)(__Z5Y |  1));
+        __L3Y=__X5Y;
+      };
+      __Q5Y=((____WB *)__L3Y);
+      *(__Q5Y) = *(__WB__);
+    };
+    __X3Y=__Q5Y;
+    __AAE(((____WB *)__Q5Y),__C3Y);
+  };
+  __MC=__X3Y;
+  __4F((&__string_2), 0);
+  if (((void *)__MC != (void *)NULL)) {
+    __Q5Y=__KC;
+    __S5Y=__KC->__BC;
+    __RAZ=NULL;
+    __L3Y=((____DB )(NULL));
+    __TAZ= 0;
+    __I3Y=((____33D )sizeof(____WB));
+    if ((__I3Y ==  0)) {
+      __RAZ=__WB__;
+    } else /* FALSE */ {
+      __TAZ=-1;
+      __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __I3Y));
+      if ((__TAZ == (____L)(-  1))) {
+        __U5Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __V5Y=(____33D)((____33D)(__I3Y - (____33D)(((____33D ) 0) - __U5Y)) & (____33D)((____33D)(((____33D ) 0) - __U5Y) - ((____33D ) 1)));
+        __U5Y=(____33D)(__V5Y / ((____33D )((____L )(sizeof(void *)))));
+        __X5Y=__LBF(__V5Y,((____DB )(&(table_size[(__U5Y)-1]))),((____OY )__V5Y));
+        __L3Y=__X5Y;
+      } else /* FALSE */ {
+        __Z5Y=((____OY )__TAZ);
+        __U5Y=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __V5Y=(____33D)((____33D)(__I3Y - (____33D)(((____33D ) 0) - __U5Y)) & (____33D)((____33D)(((____33D ) 0) - __U5Y) - ((____33D ) 1)));
+        __X5Y=__LBF(__V5Y,((____DB )(&(table_type[(__Z5Y)]))),(____OY)(__Z5Y |  1));
+        __L3Y=__X5Y;
+      };
+      __RAZ=((____WB *)__L3Y);
+      *(__RAZ) = *(__WB__);
+    };
+    __NAZ=((____WB *)__RAZ);
+    if ((__S5Y >  0)) {
+      if ((__NAZ->__CBE < __S5Y)) {
+        __PAZ=__3NG(__S5Y);
+        __NAZ->__ZAE=__PAZ;
+        __NAZ->__CBE=__S5Y;
+      };
+    };
+    __NAZ->__BC= 0;
+    __WGH(((____WB *)__RAZ),__Q5Y);
+    __QH=__RAZ;
+    if ((((____WB *)__MC)->__BC ==  0)) {
+      __FSC((&__string_3));
+      __0H=(&__string_4);
+      __2H=__F__;
+    } else /* FALSE */ {
+      __2H=__J__;
+    };
+    if (__2H) {
+      __2H=__F__;
+    } else /* FALSE */ {
+      __GKV=__VWH(((____WB *)__MC),(&__string_5));
+      __CI=(__GKV !=  0);
+      if (__CI) {
+        __4IH(((____WB *)__QH),(&__string_6));
+        __0H=(&__string_7);
+        __QI=(&__string_8);
+        __TI=(&__string_9);
         __WI=(&__string_10);
-        __OJ=(&__string_11);
-        __RJ=(&__string_12);
-        __UJ=(&__string_13);
-      } else /* FALSE */ {
-        lisaac_push(&__FMH,L9570822); // L73 FALSE;
-        lisaac_push_first(&__YIH,L8530438); // L65 FALSE;
       };
-      __NI=__5I;
-    };
-    if (__NI) {
-      lisaac_push(&__PAY,L40504833); // L309 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L9326596); // L71 TRUE;
-      __NI=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__PAY,L40504833); // L309 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L9187334); // L70 FALSE;
-      lisaac_push_first(&__YIH,L39591937); // L302 INSTALL_LISAAC;
-      if (__QC==NULL) {
-        lisaac_push(&__YIH,L39605249); // L302 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__YIH,L39605249); // L302 INSTALL_LISAAC;
-        __KB0=((____0B *)__QC);
-        lisaac_push_first(&__4QJ,L41697293); // L318 ABSTRACT_STRING;
-        __MB0=__F1I(__KB0,(&__string_14));
-        __5I=(__MB0 !=  0);
-      };
-      if (__5I) {
-        lisaac_push(&__FMH,L9570822); // L73 FALSE;
-        lisaac_push_first(&__YIH,L8792068); // L67 TRUE;
-        lisaac_push_first(&__4QJ,L9445894); // L72 FALSE;
-        lisaac_push_first(&__25X,L39609345); // L302 INSTALL_LISAAC;
-        if (__LI==NULL) {
-          lisaac_push(&__25X,L39861249); // L304 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__25X,L39861249); // L304 INSTALL_LISAAC;
-          __PLI(((____0B *)__LI),(&__string_15));
-        };
-        __WI=(&__string_16);
-        __OJ=(&__string_11);
-        __RJ=(&__string_17);
-        __UJ=(&__string_18);
-      } else /* FALSE */ {
-        lisaac_push(&__FMH,L9570822); // L73 FALSE;
-        lisaac_push_first(&__YIH,L8530438); // L65 FALSE;
-      };
-      __NI=__5I;
-    };
-    if ((! __NI)) {
-      lisaac_push(&__PAY,L42208769); // L322 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L10362374); // L79 FALSE;
-      lisaac_push_first(&__YIH,L40509441); // L309 INSTALL_LISAAC;
-      if (__QC==NULL) {
-        lisaac_push(&__YIH,L40522241); // L309 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__YIH,L40522241); // L309 INSTALL_LISAAC;
-        __KB0=((____0B *)__QC);
-        lisaac_push_first(&__4QJ,L41697293); // L318 ABSTRACT_STRING;
-        __MB0=__F1I(__KB0,(&__string_19));
-        __5I=(__MB0 !=  0);
-      };
-      if (__5I) {
-        lisaac_push(&__FMH,L10881542); // L83 FALSE;
-        lisaac_push_first(&__YIH,L6825988); // L52 TRUE;
-        lisaac_push_first(&__4QJ,L10494470); // L80 FALSE;
-        lisaac_push_first(&__25X,L40526337); // L309 INSTALL_LISAAC;
-        if (__LI==NULL) {
-          lisaac_push(&__25X,L40779265); // L311 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__25X,L40779265); // L311 INSTALL_LISAAC;
-          __PLI(((____0B *)__LI),(&__string_20));
-        };
-        __WI=(&__string_21);
-        __OJ=(&__string_11);
-        __RJ=(&__string_12);
-        __UJ=(&__string_13);
+      __2H=__CI;
+    };
+    if (__2H) {
+      __2H=__F__;
+    } else /* FALSE */ {
+      __GKV=__VWH(((____WB *)__MC),(&__string_11));
+      __CI=(__GKV !=  0);
+      if (__CI) {
+        __4IH(((____WB *)__QH),(&__string_12));
+        __0H=(&__string_13);
+        __QI=(&__string_8);
+        __TI=(&__string_14);
+        __WI=(&__string_15);
+      };
+      __2H=__CI;
+    };
+    if ((! __2H)) {
+      __GKV=__VWH(((____WB *)__MC),(&__string_16));
+      if ((__GKV !=  0)) {
+        __4IH(((____WB *)__QH),(&__string_17));
+        __0H=(&__string_18);
+        __QI=(&__string_8);
+        __TI=(&__string_9);
+        __WI=(&__string_10);
       } else /* FALSE */ {
-        lisaac_push(&__FMH,L10881542); // L83 FALSE;
-        lisaac_push_first(&__YIH,L6826502); // L52 FALSE;
-        lisaac_push_first(&__4QJ,L10759174); // L82 FALSE;
-        lisaac_push_first(&__25X,L41425921); // L316 INSTALL_LISAAC;
-        lisaac_push(&__25X,L41701377); // L318 INSTALL_LISAAC;
-        __DX((&__string_22));
-        if (__QC==NULL) {
-          lisaac_push(&__25X,L41821697); // L319 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__25X,L41821697); // L319 INSTALL_LISAAC;
-          __UB0=((____0B *)__QC);
-          lisaac_push_first(&__55X,L167652365); // L1279 ABSTRACT_STRING;
-          __N4C(__UB0);
-        };
-        lisaac_push(&__25X,L41952257); // L320 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L10896400); // L83 CHARACTER;
-        lisaac_push_first(&__IB0,L5005342); // L38 STD_OUTPUT;
-        lisaac_push_first(&__15C,L18378271); // L140 OUTPUT_STREAM;
-        lisaac_push_first(&__ILD,L6962199); // L53 SYSTEM_IO;
+        __FSC((&__string_19));
+        __FSC(((____WB *)__MC));
         fputc((int)('\n'),stdout);
-        __WI=(&__string_7);
-      };
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__Q4X,L44304897); // L338 INSTALL_LISAAC;
-    lisaac_push_first(&__PWK,L6826502); // L52 FALSE;
-    lisaac_push_first(&__PAY,L42619905); // L325 INSTALL_LISAAC;
-    lisaac_push_first(&__FMH,L5259265); // L40 INSTALL_LISAAC;
-    if (__JN==NULL) {
-      lisaac_push(&__FMH,L5515777); // L42 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__FMH,L5515777); // L42 INSTALL_LISAAC;
-      __4II(((____0B *)__JN),(&__string_23));
-    };
-    if (__JN==NULL) {
-      lisaac_push(&__FMH,L5652993); // L43 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__FMH,L5652993); // L43 INSTALL_LISAAC;
-      __EU=__NVF(((____0B *)__JN));
-    };
-    __YL=((____DB )(fopen((char*)(__EU),"rb")));
-    if ((__YL != (void *)NULL)) {
-      lisaac_push(&__PAY,L44174849); // L337 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L6825988); // L52 TRUE;
-      lisaac_push_first(&__YIH,L43002881); // L328 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L9316353); // L71 INSTALL_LISAAC;
-      fclose((FILE*)((__YL)));
-      lisaac_push(&__YIH,L43150849); // L329 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L8672792); // L66 STRING;
-      __MK4=(&__string_24)->__YB;
-      lisaac_push(&__4QJ,L9060376); // L69 STRING;
-      __MVE=__QF(__MK4);
-      if (__MVE==NULL) {
-        lisaac_push(&__4QJ,L9184792); // L70 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L9184792); // L70 STRING;
-        __4II(((____0B *)__MVE),(&__string_24));
-      };
-      __LI=__MVE;
+        __0H=(&__string_4);
+      };
+    };
+  } else /* FALSE */ {
+    __WGH(((____WB *)__E3Y),(&__string_20));
+    __Q5Y=((____WB *)__E3Y);
+    if ((__Q5Y->__CBE > __Q5Y->__BC)) {
+      ((____4 *)__Q5Y->__ZAE)[__Q5Y->__BC]='\0';
+    } else /* FALSE */ {
+      if ((__Q5Y->__CBE <= __Q5Y->__BC)) {
+        if ((__Q5Y->__CBE ==  0)) {
+          __Q5Y->__CBE= 32;
+          __UWF=__3NG( 32);
+          __Q5Y->__ZAE=__UWF;
+        } else /* FALSE */ {
+          __1WF=(____L)(__Q5Y->__CBE <<  1);
+          __UWF=__SOG(((____4 *)__Q5Y->__ZAE),__Q5Y->__CBE,__1WF);
+          __Q5Y->__ZAE=__UWF;
+          __Q5Y->__CBE=__1WF;
+        };
+      };
+      ((____4 *)__Q5Y->__ZAE)[__Q5Y->__BC]='\0';
+      __Q5Y->__BC=(____L)(__Q5Y->__BC +  1);
+      __Q5Y->__BC=(____L)(__Q5Y->__BC -  1);
+    };
+    __L3Y=((____DB )(fopen((char*)(__Q5Y->__ZAE),"rb")));
+    if ((__L3Y != (void *)NULL)) {
+      fclose((FILE*)((__L3Y)));
+      __GKV=(&__string_21)->__UB;
+      __EBZ=NULL;
+      __X5Y=((____DB )(NULL));
+      __1WF= 0;
+      __J3Y=((____33D )sizeof(____WB));
+      if ((__J3Y ==  0)) {
+        __EBZ=__WB__;
+      } else /* FALSE */ {
+        __1WF=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __J3Y));
+        if ((__1WF == (____L)(-  1))) {
+          __IBZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __JBZ=(____33D)((____33D)(__J3Y - (____33D)(((____33D ) 0) - __IBZ)) & (____33D)((____33D)(((____33D ) 0) - __IBZ) - ((____33D ) 1)));
+          __IBZ=(____33D)(__JBZ / ((____33D )((____L )(sizeof(void *)))));
+          __LBZ=__LBF(__JBZ,((____DB )(&(table_size[(__IBZ)-1]))),((____OY )__JBZ));
+          __X5Y=__LBZ;
+        } else /* FALSE */ {
+          __NBZ=((____OY )__1WF);
+          __IBZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __JBZ=(____33D)((____33D)(__J3Y - (____33D)(((____33D ) 0) - __IBZ)) & (____33D)((____33D)(((____33D ) 0) - __IBZ) - ((____33D ) 1)));
+          __LBZ=__LBF(__JBZ,((____DB )(&(table_type[(__NBZ)]))),(____OY)(__NBZ |  1));
+          __X5Y=__LBZ;
+        };
+        __EBZ=((____WB *)__X5Y);
+        *(__EBZ) = *(__WB__);
+      };
+      __ABZ=((____WB *)__EBZ);
+      if ((__GKV >  0)) {
+        if ((__ABZ->__CBE < __GKV)) {
+          __UWF=__3NG(__GKV);
+          __ABZ->__ZAE=__UWF;
+          __ABZ->__CBE=__GKV;
+        };
+      };
+      __ABZ->__BC= 0;
+      __WGH(((____WB *)__EBZ),(&__string_21));
+      __QH=__EBZ;
+      __0H=(&__string_22);
+      __QI=(&__string_23);
+      __TI=(&__string_24);
       __WI=(&__string_25);
-      __OJ=(&__string_26);
-      __RJ=(&__string_27);
-      __UJ=(&__string_28);
     } else /* FALSE */ {
-      lisaac_push(&__PAY,L44174849); // L337 INSTALL_LISAAC;
-      lisaac_push_first(&__FMH,L6826502); // L52 FALSE;
-      lisaac_push_first(&__YIH,L43785217); // L334 INSTALL_LISAAC;
-      __WI=(&__string_7);
+      __0H=(&__string_4);
     };
   };
-  lisaac_push(&__Q4X,L44579329); // L340 INSTALL_LISAAC;
-  __DX((&__string_29));
-  __TM=__WI;
-  if (__TM==NULL) {
-    lisaac_push(&__Q4X,L44703745); // L341 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING_CONSTANT */ {
-    lisaac_push(&__Q4X,L44703745); // L341 INSTALL_LISAAC;
-    __DX(((____V *)__TM));
-  };
-  lisaac_push(&__N4X,L93468673); // L713 INSTALL_LISAAC;
-  lisaac_push_first(&__Q4X,L10621458); // L81 BLOCK;
-  __UM:
-  {
-    lisaac_push(&__Q4X,L10621458); // L81 BLOCK;
-    lisaac_push_first(&__PWK,L83888641); // L640 INSTALL_LISAAC;
-    lisaac_push(&__PWK,L84553729); // L645 INSTALL_LISAAC;
-    __MK4=__FR((&__string_30),(&__string_31), 3);
-    lisaac_push(&__PWK,L87952385); // L671 INSTALL_LISAAC;
-    lisaac_push_first(&__PAY,L16794632); // L128 NUMERIC;
-    if ((__MK4 ==  1)) {
-      lisaac_push(&__PAY,L17446408); // L133 NUMERIC;
-      lisaac_push_first(&__FMH,L8792068); // L67 TRUE;
-      lisaac_push_first(&__YIH,L84944897); // L648 INSTALL_LISAAC;
-      __2C= 0;
-      lisaac_push(&__YIH,L85340161); // L651 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L45099521); // L344 INSTALL_LISAAC;
-      if (((void *)__WI != (void *)(&__string_7))) {
-        lisaac_push(&__4QJ,L46926337); // L358 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L8792068); // L67 TRUE;
-        lisaac_push_first(&__55X,L45499905); // L347 INSTALL_LISAAC;
-        lisaac_push(&__55X,L45641729); // L348 INSTALL_LISAAC;
-        __TG((&__string_32), 5);
-        if (((void *)__WI == (void *)(&__string_25))) {
-          lisaac_push(&__55X,L46796289); // L357 INSTALL_LISAAC;
-          lisaac_push_first(&__IB0,L6825988); // L52 TRUE;
-          lisaac_push_first(&__15C,L45762561); // L349 INSTALL_LISAAC;
-          lisaac_push(&__15C,L46039041); // L351 INSTALL_LISAAC;
-          __2LB((&__string_33),(&__string_34),(&__string_35),__J__);
-          lisaac_push(&__15C,L46295041); // L353 INSTALL_LISAAC;
-          __DX((&__string_36));
+  __FSC((&__string_26));
+  __FSC(((____V *)__0H));
+  do {
+    __GKV=__KP((&__string_27),(&__string_28), 3);
+    if ((__GKV ==  1)) {
+      __WC= 0;
+      if (((void *)__0H != (void *)(&__string_4))) {
+        __4F((&__string_29), 5);
+        if (((void *)__0H == (void *)(&__string_22))) {
+          __LGB((&__string_30),(&__string_31),(&__string_32),__J__);
+          __FSC((&__string_33));
         } else /* FALSE */ {
-          lisaac_push(&__55X,L46796289); // L357 INSTALL_LISAAC;
-          lisaac_push_first(&__IB0,L6826502); // L52 FALSE;
-          lisaac_push_first(&__15C,L46406657); // L354 INSTALL_LISAAC;
-          lisaac_push(&__15C,L46692865); // L356 INSTALL_LISAAC;
-          __2LB((&__string_33),(&__string_34),(&__string_37),__J__);
+          __LGB((&__string_30),(&__string_31),(&__string_34),__J__);
         };
-      } else /* FALSE */ {
-        lisaac_push(&__4QJ,L46926337); // L358 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L8530438); // L65 FALSE;
       };
-      lisaac_push(&__4QJ,L47062017); // L359 INSTALL_LISAAC;
-      lisaac_push_first(&__25X,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__55X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__IB0,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__15C,L6962199); // L53 SYSTEM_IO;
       fputc((int)('\n'),stdout);
-      lisaac_push(&__4QJ,L47870977); // L365 INSTALL_LISAAC;
-      __TG((&__string_38), 5);
-      if (((void *)__WI == (void *)(&__string_7))) {
-        lisaac_push(&__4QJ,L49940993); // L381 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6825988); // L52 TRUE;
-        lisaac_push_first(&__55X,L48120833); // L367 INSTALL_LISAAC;
-        lisaac_push(&__55X,L48641537); // L371 INSTALL_LISAAC;
-        __DX((&__string_39));
-        if (__JC==NULL) {
-          lisaac_push(&__55X,L48771073); // L372 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L48771073); // L372 INSTALL_LISAAC;
-          __SEY=((____0B *)__JC);
-          lisaac_push_first(&__IB0,L167652365); // L1279 ABSTRACT_STRING;
-          __N4C(__SEY);
-        };
-        lisaac_push(&__55X,L48905217); // L373 INSTALL_LISAAC;
-        __DX((&__string_40));
-      } else /* FALSE */ {
-        lisaac_push(&__4QJ,L49940993); // L381 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6826502); // L52 FALSE;
-        lisaac_push_first(&__55X,L49027073); // L374 INSTALL_LISAAC;
-        __NFB=__OJ;
-        lisaac_push(&__55X,L49309185); // L376 INSTALL_LISAAC;
-        lisaac_push_first(&__IB0,L8672792); // L66 STRING;
-        if (__NFB==NULL) {
-          lisaac_push(&__IB0,L9059864); // L69 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING_CONSTANT */ {
-          __WK4=__NFB->__YB;
-        };
-        lisaac_push(&__IB0,L9060376); // L69 STRING;
-        __UB0=__QF(__WK4);
-        if (__UB0==NULL) {
-          lisaac_push(&__IB0,L9184792); // L70 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__IB0,L9184792); // L70 STRING;
-          __4II(((____0B *)__UB0),__NFB);
-        };
-        __NFB=__RJ;
-        if (__UB0==NULL) {
-          lisaac_push(&__55X,L49427457); // L377 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L49427457); // L377 INSTALL_LISAAC;
-          __PLI(((____0B *)__UB0),__NFB);
-        };
-        if (__UB0==NULL) {
-          lisaac_push(&__55X,L49562625); // L378 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L49562625); // L378 INSTALL_LISAAC;
-          __PLI(((____0B *)__UB0),__JC);
-        };
-        __NFB=__UJ;
-        if (__UB0==NULL) {
-          lisaac_push(&__55X,L49692161); // L379 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L49692161); // L379 INSTALL_LISAAC;
-          __PLI(((____0B *)__UB0),__NFB);
-        };
-        __SEY=__LI;
-        __NFB=__OJ;
-        lisaac_push(&__55X,L49838593); // L380 INSTALL_LISAAC;
-        __2LB(__SEY,__NFB,__UB0,__F__);
-      };
-      lisaac_push(&__4QJ,L50753537); // L387 INSTALL_LISAAC;
-      __TG((&__string_41), 5);
-      lisaac_push(&__4QJ,L50883585); // L388 INSTALL_LISAAC;
-      __KB0=__JC;
-      lisaac_push_first(&__25X,L8672792); // L66 STRING;
-      if (__JC==NULL) {
-        lisaac_push(&__25X,L9059864); // L69 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        __WK4=__JC->__FC;
-      };
-      lisaac_push(&__25X,L9060376); // L69 STRING;
-      __UB0=__QF(__WK4);
-      if (__UB0==NULL) {
-        lisaac_push(&__25X,L9184792); // L70 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__25X,L9184792); // L70 STRING;
-        __4II(((____0B *)__UB0),__KB0);
-      };
-      if (((void *)__WI == (void *)(&__string_25))) {
-        lisaac_push(&__4QJ,L51251713); // L391 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L8792068); // L67 TRUE;
-        lisaac_push_first(&__55X,L51004417); // L389 INSTALL_LISAAC;
-        if (__UB0==NULL) {
-          lisaac_push(&__55X,L51138561); // L390 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L51138561); // L390 INSTALL_LISAAC;
-          __I0I(((____0B *)__UB0));
-        };
-      } else /* FALSE */ {
-        lisaac_push(&__4QJ,L51251713); // L391 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L8530438); // L65 FALSE;
-      };
-      if (__UB0==NULL) {
-        lisaac_push(&__4QJ,L51405825); // L392 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L51405825); // L392 INSTALL_LISAAC;
-        __SEY=((____0B *)__UB0);
-        lisaac_push_first(&__25X,L30804504); // L235 STRING;
-        lisaac_push_first(&__55X,L19150866); // L146 BLOCK;
-        lisaac_push_first(&__IB0,L7481858); // L57 OBJECT;
-        __WYJ=((____DB )(top_context->back->back));
-        lisaac_push(&__55X,L19280914); // L147 BLOCK;
-        lisaac_push_first(&__IB0,L10652676); // L81 TRUE;
-        lisaac_push_first(&__15C,L19285522); // L147 BLOCK;
-        lisaac_push_first(&__ILD,L30805528); // L235 STRING;
-        if (((void *)(&__string_42) != (void *)NULL)) {
-          lisaac_push(&__15C,L19282450); // L147 BLOCK;
-          lisaac_push_first(&__ILD,L13509636); // L103 TRUE;
-          __CZJ=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__15C,L19282450); // L147 BLOCK;
-          lisaac_push_first(&__ILD,L14689286); // L112 FALSE;
-          __CZJ=__F__;
-        };
-        if (__CZJ) {
-          lisaac_push(&__55X,L19532306); // L149 BLOCK;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L19289106); // L147 BLOCK;
-          lisaac_push(&__15C,L19428370); // L148 BLOCK;
-          lisaac_push_first(&__ILD,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__1EQ,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__EER,L8792068); // L67 TRUE;
-          lisaac_push_first(&__DFQ,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__WYJ));
-          lisaac_push(&__ILD,L9574914); // L73 OBJECT;
-          __DX((&__string_43));
-          lisaac_push(&__ILD,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__1EQ,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__EER,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__DFQ,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__0EY,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__ILD,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__1EQ,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__EER,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L19532306); // L149 BLOCK;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
-        };
-        __WK4=__SEY->__FC;
-        __3YI=(&__string_42)->__YB;
-        lisaac_push(&__25X,L31333912); // L239 STRING;
-        lisaac_push_first(&__55X,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__IB0,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__15C,L9195016); // L70 NUMERIC;
-        __XB0=(____L)(- __3YI);
-        lisaac_push(&__55X,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__IB0,L9195016); // L70 NUMERIC;
-        __HZI=(____L)(__WK4 - __XB0);
-        lisaac_push(&__25X,L31335448); // L239 STRING;
-        __PZJ(__SEY,__HZI);
-        lisaac_push(&__25X,L31461912); // L240 STRING;
-        lisaac_push_first(&__55X,L15224840); // L116 NUMERIC;
-        if ((__WK4 >  0)) {
-          lisaac_push(&__25X,L31464984); // L240 STRING;
-          lisaac_push_first(&__55X,L10652676); // L81 TRUE;
-          lisaac_push_first(&__IB0,L31467544); // L240 STRING;
-          lisaac_push_first(&__15C,L15224840); // L116 NUMERIC;
-          __CZJ=(__3YI >  0);
-        } else /* FALSE */ {
-          lisaac_push(&__25X,L31464984); // L240 STRING;
-          lisaac_push_first(&__55X,L12081158); // L92 FALSE;
-          __CZJ=__J__;
-        };
-        if (__CZJ) {
-          lisaac_push(&__25X,L31722008); // L242 STRING;
-          lisaac_push_first(&__55X,L8792068); // L67 TRUE;
-          lisaac_push_first(&__IB0,L31472152); // L240 STRING;
-          __0ZI=__SEY->__IUE;
-          lisaac_push(&__IB0,L31602712); // L241 STRING;
-          lisaac_push_first(&__15C,L9195016); // L70 NUMERIC;
-          __1ZI=(____L)(__WK4 -  1);
-          if (__0ZI==NULL) {
-            lisaac_push(&__IB0,L31606808); // L241 STRING;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-            lisaac_push(&__IB0,L31606808); // L241 STRING;
-            __PVM(((____4 *)__0ZI), 0,__1ZI,__3YI);
+      __4F((&__string_35), 5);
+      if (((void *)__0H == (void *)(&__string_4))) {
+        __FSC((&__string_36));
+        __FSC(((____WB *)__FC));
+        __FSC((&__string_37));
+      } else /* FALSE */ {
+        __CWY=__QI;
+        __DWY=__CWY->__UB;
+        __XBZ=NULL;
+        __LBZ=((____DB )(NULL));
+        __ZBZ= 0;
+        __IBZ=((____33D )sizeof(____WB));
+        if ((__IBZ ==  0)) {
+          __XBZ=__WB__;
+        } else /* FALSE */ {
+          __ZBZ=-1;
+          __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __IBZ));
+          if ((__ZBZ == (____L)(-  1))) {
+            __1BZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+            __2BZ=(____33D)((____33D)(__IBZ - (____33D)(((____33D ) 0) - __1BZ)) & (____33D)((____33D)(((____33D ) 0) - __1BZ) - ((____33D ) 1)));
+            __1BZ=(____33D)(__2BZ / ((____33D )((____L )(sizeof(void *)))));
+            __4BZ=__LBF(__2BZ,((____DB )(&(table_size[(__1BZ)-1]))),((____OY )__2BZ));
+            __LBZ=__4BZ;
+          } else /* FALSE */ {
+            __ACZ=((____OY )__ZBZ);
+            __1BZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+            __2BZ=(____33D)((____33D)(__IBZ - (____33D)(((____33D ) 0) - __1BZ)) & (____33D)((____33D)(((____33D ) 0) - __1BZ) - ((____33D ) 1)));
+            __4BZ=__LBF(__2BZ,((____DB )(&(table_type[(__ACZ)]))),(____OY)(__ACZ |  1));
+            __LBZ=__4BZ;
+          };
+          __XBZ=((____WB *)__LBZ);
+          *(__XBZ) = *(__WB__);
+        };
+        __TBZ=((____WB *)__XBZ);
+        if ((__DWY >  0)) {
+          if ((__TBZ->__CBE < __DWY)) {
+            __VBZ=__3NG(__DWY);
+            __TBZ->__ZAE=__VBZ;
+            __TBZ->__CBE=__DWY;
           };
-        } else /* FALSE */ {
-          lisaac_push(&__25X,L31722008); // L242 STRING;
-          lisaac_push_first(&__55X,L8530438); // L65 FALSE;
-        };
-        __0ZI=__SEY->__IUE;
-        __B0I=(&__string_42)->__ZB;
-        lisaac_push(&__25X,L31875096); // L243 STRING;
-        lisaac_push_first(&__55X,L9195016); // L70 NUMERIC;
-        __WK4=(____L)(__3YI -  1);
-        if (__0ZI==NULL) {
-          lisaac_push(&__25X,L31876632); // L243 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-          lisaac_push(&__25X,L31876632); // L243 STRING;
-          __W2J(((____4 *)__0ZI),__B0I,__WK4);
         };
-      };
-      if (__UB0==NULL) {
-        lisaac_push(&__4QJ,L51524609); // L393 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L51524609); // L393 INSTALL_LISAAC;
-        __PLI(((____0B *)__UB0),(&__string_44));
-      };
-      lisaac_push(&__4QJ,L51686913); // L394 INSTALL_LISAAC;
-      __2LB((&__string_45),(&__string_46),__UB0,__J__);
-      lisaac_push(&__4QJ,L51780609); // L395 INSTALL_LISAAC;
-      lisaac_push_first(&__25X,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__55X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__IB0,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__15C,L6962199); // L53 SYSTEM_IO;
+        __TBZ->__BC= 0;
+        __WGH(((____WB *)__XBZ),__CWY);
+        __4IH(((____WB *)__XBZ),__TI);
+        __4IH(((____WB *)__XBZ),__FC);
+        __4IH(((____WB *)__XBZ),__WI);
+        __LGB(__QH,__QI,__XBZ,__F__);
+      };
+      __4F((&__string_38), 5);
+      __XBZ=__FC;
+      __DWY=__FC->__BC;
+      __TBZ=NULL;
+      __LBZ=((____DB )(NULL));
+      __ZBZ= 0;
+      __U5Y=((____33D )sizeof(____WB));
+      if ((__U5Y ==  0)) {
+        __TBZ=__WB__;
+      } else /* FALSE */ {
+        __ZBZ=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __U5Y));
+        if ((__ZBZ == (____L)(-  1))) {
+          __1BZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __2BZ=(____33D)((____33D)(__U5Y - (____33D)(((____33D ) 0) - __1BZ)) & (____33D)((____33D)(((____33D ) 0) - __1BZ) - ((____33D ) 1)));
+          __1BZ=(____33D)(__2BZ / ((____33D )((____L )(sizeof(void *)))));
+          __4BZ=__LBF(__2BZ,((____DB )(&(table_size[(__1BZ)-1]))),((____OY )__2BZ));
+          __LBZ=__4BZ;
+        } else /* FALSE */ {
+          __ACZ=((____OY )__ZBZ);
+          __1BZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __2BZ=(____33D)((____33D)(__U5Y - (____33D)(((____33D ) 0) - __1BZ)) & (____33D)((____33D)(((____33D ) 0) - __1BZ) - ((____33D ) 1)));
+          __4BZ=__LBF(__2BZ,((____DB )(&(table_type[(__ACZ)]))),(____OY)(__ACZ |  1));
+          __LBZ=__4BZ;
+        };
+        __TBZ=((____WB *)__LBZ);
+        *(__TBZ) = *(__WB__);
+      };
+      __GCZ=((____WB *)__TBZ);
+      if ((__DWY >  0)) {
+        if ((__GCZ->__CBE < __DWY)) {
+          __VBZ=__3NG(__DWY);
+          __GCZ->__ZAE=__VBZ;
+          __GCZ->__CBE=__DWY;
+        };
+      };
+      __GCZ->__BC= 0;
+      __WGH(((____WB *)__TBZ),__XBZ);
+      if (((void *)__0H == (void *)(&__string_22))) {
+        __1VH(((____WB *)__TBZ));
+      };
+      __XBZ=((____WB *)__TBZ);
+      __DWY=__XBZ->__BC;
+      __JRI(__XBZ,(____L)(__DWY +  26));
+      if ((__DWY >  0)) {
+        __XAL(((____4 *)__XBZ->__ZAE), 0,(____L)(__DWY -  1), 26);
+      };
+      __DUI(((____4 *)__XBZ->__ZAE),(&__string_39)->__VB, 25);
+      __4IH(((____WB *)__TBZ),(&__string_40));
+      __LGB((&__string_41),(&__string_42),__TBZ,__J__);
       fputc((int)('\n'),stdout);
-      lisaac_push(&__4QJ,L51949057); // L396 INSTALL_LISAAC;
-      __2LB((&__string_47),(&__string_46),__UB0,__J__);
-      lisaac_push(&__4QJ,L52042753); // L397 INSTALL_LISAAC;
-      lisaac_push_first(&__25X,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__55X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__IB0,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__15C,L6962199); // L53 SYSTEM_IO;
+      __LGB((&__string_43),(&__string_42),__TBZ,__J__);
       fputc((int)('\n'),stdout);
-      lisaac_push(&__YIH,L85618177); // L653 INSTALL_LISAAC;
-      __TG((&__string_48), 5);
-      lisaac_push(&__YIH,L85735937); // L654 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L73025025); // L557 INSTALL_LISAAC;
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L73286657); // L559 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L73286657); // L559 INSTALL_LISAAC;
-        __4II(((____0B *)__JN),(&__string_49));
-      };
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L73412097); // L560 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L73412097); // L560 INSTALL_LISAAC;
-        __PLI(((____0B *)__JN),(&__string_50));
-      };
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L73548801); // L561 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L73548801); // L561 INSTALL_LISAAC;
-        __PLI(((____0B *)__JN),(&__string_51));
-      };
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L73674241); // L562 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L73674241); // L562 INSTALL_LISAAC;
-        __PLI(((____0B *)__JN),(&__string_50));
-      };
-      lisaac_push(&__4QJ,L73809409); // L563 INSTALL_LISAAC;
-      __DX((&__string_52));
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L73934849); // L564 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L73934849); // L564 INSTALL_LISAAC;
-        __SEY=((____0B *)__JN);
-        lisaac_push_first(&__25X,L167652365); // L1279 ABSTRACT_STRING;
-        __N4C(__SEY);
-      };
-      lisaac_push(&__4QJ,L74072577); // L565 INSTALL_LISAAC;
-      __DX((&__string_53));
-      lisaac_push(&__4QJ,L74209281); // L566 INSTALL_LISAAC;
-      __MB0=__DRB(__JN);
-      if ((__MB0 !=  0)) {
-        lisaac_push(&__4QJ,L74844673); // L571 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L8792068); // L67 TRUE;
-        lisaac_push_first(&__55X,L74214401); // L566 INSTALL_LISAAC;
-        lisaac_push(&__55X,L74470913); // L568 INSTALL_LISAAC;
-        __DX((&__string_54));
-        lisaac_push(&__55X,L74586625); // L569 INSTALL_LISAAC;
-        __DX((&__string_50));
-        lisaac_push(&__55X,L74723841); // L570 INSTALL_LISAAC;
-        __DX((&__string_55));
-      } else /* FALSE */ {
-        lisaac_push(&__4QJ,L74844673); // L571 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L8530438); // L65 FALSE;
+      __4F((&__string_44), 5);
+      __WGH(((____WB *)__A3Y),(&__string_45));
+      __4IH(((____WB *)__A3Y),(&__string_46));
+      __4IH(((____WB *)__A3Y),(&__string_47));
+      __4IH(((____WB *)__A3Y),(&__string_46));
+      __FSC((&__string_48));
+      __FSC(((____WB *)__A3Y));
+      __FSC((&__string_49));
+      __DWY=__BLB(__A3Y);
+      if ((__DWY !=  0)) {
+        __FSC((&__string_50));
+        __FSC((&__string_46));
+        __FSC((&__string_51));
       };
-      lisaac_push(&__4QJ,L74980353); // L572 INSTALL_LISAAC;
-      lisaac_push_first(&__25X,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__55X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__IB0,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__15C,L6962199); // L53 SYSTEM_IO;
       fputc((int)('\n'),stdout);
-      lisaac_push(&__YIH,L86009857); // L656 INSTALL_LISAAC;
-      __TG((&__string_56), 5);
-      lisaac_push(&__YIH,L86257153); // L658 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L75376641); // L575 INSTALL_LISAAC;
-      __NFB=NULL;
-      __YGB=NULL;
-      lisaac_push(&__4QJ,L75796993); // L578 INSTALL_LISAAC;
-      __DX((&__string_57));
-      if (((void *)__WI == (void *)(&__string_25))) {
-        lisaac_push(&__4QJ,L76679681); // L585 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6825988); // L52 TRUE;
-        lisaac_push_first(&__55X,L75908097); // L579 INSTALL_LISAAC;
-        __NFB=(&__string_58);
-        __YGB=(&__string_59);
+      __4F((&__string_52), 5);
+      __CWY=NULL;
+      __5BB=NULL;
+      __FSC((&__string_53));
+      if (((void *)__0H == (void *)(&__string_22))) {
+        __CWY=(&__string_54);
+        __5BB=(&__string_55);
       } else /* FALSE */ {
-        lisaac_push(&__4QJ,L76679681); // L585 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6826502); // L52 FALSE;
-        lisaac_push_first(&__55X,L76290049); // L582 INSTALL_LISAAC;
-        __NFB=(&__string_60);
-        __YGB=(&__string_61);
+        __CWY=(&__string_56);
+        __5BB=(&__string_57);
       };
-      lisaac_push(&__4QJ,L76829185); // L586 INSTALL_LISAAC;
-      __MB0=__DRB(__YGB);
-      if ((__MB0 ==  0)) {
-        lisaac_push(&__4QJ,L77466113); // L591 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6825988); // L52 TRUE;
-        lisaac_push_first(&__55X,L76833793); // L586 INSTALL_LISAAC;
-        lisaac_push(&__55X,L76954113); // L587 INSTALL_LISAAC;
-        __DX((&__string_62));
-        lisaac_push(&__55X,L77088769); // L588 INSTALL_LISAAC;
-        __WK4=__DRB(__NFB);
+      __DWY=__BLB(__5BB);
+      if ((__DWY ==  0)) {
+        __FSC((&__string_58));
+        __TCB=__BLB(__CWY);
       } else /* FALSE */ {
-        lisaac_push(&__4QJ,L77466113); // L591 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6826502); // L52 FALSE;
-        lisaac_push_first(&__55X,L77207553); // L589 INSTALL_LISAAC;
-        lisaac_push(&__55X,L77356545); // L590 INSTALL_LISAAC;
-        __DX((&__string_63));
+        __FSC((&__string_59));
       };
-      lisaac_push(&__4QJ,L77601793); // L592 INSTALL_LISAAC;
-      lisaac_push_first(&__25X,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__55X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__IB0,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__15C,L6962199); // L53 SYSTEM_IO;
       fputc((int)('\n'),stdout);
-      lisaac_push(&__YIH,L86937601); // L663 INSTALL_LISAAC;
-      __DX((&__string_64));
-      lisaac_push(&__YIH,L87595009); // L668 INSTALL_LISAAC;
-      __DX((&__string_65));
-    } else /* FALSE */ {
-      lisaac_push(&__PAY,L17446408); // L133 NUMERIC;
-      lisaac_push_first(&__FMH,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__PWK,L92933121); // L709 INSTALL_LISAAC;
-    lisaac_push_first(&__PAY,L16794632); // L128 NUMERIC;
-    if ((__MK4 ==  2)) {
-      lisaac_push(&__PAY,L17446408); // L133 NUMERIC;
-      lisaac_push_first(&__FMH,L8792068); // L67 TRUE;
-      lisaac_push_first(&__YIH,L92684801); // L707 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L10621458); // L81 BLOCK;
-      __ZHB:
-      {
-        lisaac_push(&__4QJ,L10621458); // L81 BLOCK;
-        lisaac_push_first(&__25X,L88084993); // L672 INSTALL_LISAAC;
-        lisaac_push(&__25X,L89145857); // L680 INSTALL_LISAAC;
-        __1ZI=__FR((&__string_66),(&__string_67), 6);
-        lisaac_push(&__25X,L89920513); // L686 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L16794632); // L128 NUMERIC;
-        if ((__1ZI ==  1)) {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L89403393); // L682 INSTALL_LISAAC;
-          lisaac_push(&__15C,L89556993); // L683 INSTALL_LISAAC;
-          __TG((&__string_68), 0);
-          lisaac_push(&__15C,L89666049); // L684 INSTALL_LISAAC;
-          lisaac_push_first(&__ILD,L55198721); // L421 INSTALL_LISAAC;
-          __5AC=__QF( 100);
-          if (((void *)__OC == (void *)NULL)) {
-            lisaac_push(&__ILD,L55839233); // L426 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6825988); // L52 TRUE;
-            lisaac_push_first(&__EER,L55326209); // L422 INSTALL_LISAAC;
-            if (__5AC==NULL) {
-              lisaac_push(&__EER,L55456257); // L423 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L55456257); // L423 INSTALL_LISAAC;
-              __4II(((____0B *)__5AC),(&__string_69));
-            };
+      __FSC((&__string_60));
+      __FSC((&__string_61));
+    };
+    if ((__GKV ==  2)) {
+      do {
+        __BD=__KP((&__string_62),(&__string_63), 6);
+        if ((__BD ==  1)) {
+          __4F((&__string_64), 0);
+          __3CZ=NULL;
+          __4CZ=((____DB )(NULL));
+          __5CZ= 0;
+          __ADZ=((____33D )sizeof(____WB));
+          if ((__ADZ ==  0)) {
+            __3CZ=__WB__;
           } else /* FALSE */ {
-            lisaac_push(&__ILD,L55839233); // L426 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6826502); // L52 FALSE;
-            lisaac_push_first(&__EER,L55580673); // L424 INSTALL_LISAAC;
-            if (__5AC==NULL) {
-              lisaac_push(&__EER,L55720961); // L425 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L55720961); // L425 INSTALL_LISAAC;
-              __4II(((____0B *)__5AC),__OC);
+            __5CZ=-1;
+            __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __ADZ));
+            if ((__5CZ == (____L)(-  1))) {
+              __BDZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+              __CDZ=(____33D)((____33D)(__ADZ - (____33D)(((____33D ) 0) - __BDZ)) & (____33D)((____33D)(((____33D ) 0) - __BDZ) - ((____33D ) 1)));
+              __BDZ=(____33D)(__CDZ / ((____33D )((____L )(sizeof(void *)))));
+              __EDZ=__LBF(__CDZ,((____DB )(&(table_size[(__BDZ)-1]))),((____OY )__CDZ));
+              __4CZ=__EDZ;
+            } else /* FALSE */ {
+              __GDZ=((____OY )__5CZ);
+              __BDZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+              __CDZ=(____33D)((____33D)(__ADZ - (____33D)(((____33D ) 0) - __BDZ)) & (____33D)((____33D)(((____33D ) 0) - __BDZ) - ((____33D ) 1)));
+              __EDZ=__LBF(__CDZ,((____DB )(&(table_type[(__GDZ)]))),(____OY)(__GDZ |  1));
+              __4CZ=__EDZ;
             };
+            __3CZ=((____WB *)__4CZ);
+            *(__3CZ) = *(__WB__);
           };
-          if (__5AC==NULL) {
-            lisaac_push(&__ILD,L55983105); // L427 INSTALL_LISAAC;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__ILD,L55983105); // L427 INSTALL_LISAAC;
-            __PLI(((____0B *)__5AC),(&__string_70));
-          };
-          lisaac_push(&__ILD,L56130049); // L428 INSTALL_LISAAC;
-          lisaac_push_first(&__1EQ,L8672792); // L66 STRING;
-          __XT=(&__string_71)->__YB;
-          lisaac_push(&__1EQ,L9060376); // L69 STRING;
-          __ZT=__QF(__XT);
-          if (__ZT==NULL) {
-            lisaac_push(&__1EQ,L9184792); // L70 STRING;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__1EQ,L9184792); // L70 STRING;
-            __4II(((____0B *)__ZT),(&__string_71));
+          __ZCZ=((____WB *)__3CZ);
+          if ((__ZCZ->__CBE <  100)) {
+            __1CZ=__3NG( 100);
+            __ZCZ->__ZAE=__1CZ;
+            __ZCZ->__CBE= 100;
           };
-          if (__ZT==NULL) {
-            lisaac_push(&__ILD,L56248321); // L429 INSTALL_LISAAC;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__ILD,L56248321); // L429 INSTALL_LISAAC;
-            __PLI(((____0B *)__ZT),(&__string_72));
-          };
-          if (__ZT==NULL) {
-            lisaac_push(&__ILD,L56377345); // L430 INSTALL_LISAAC;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__ILD,L56377345); // L430 INSTALL_LISAAC;
-            __PLI(((____0B *)__ZT),__JC);
+          __ZCZ->__BC= 0;
+          if (((void *)__KC == (void *)NULL)) {
+            __WGH(((____WB *)__3CZ),(&__string_65));
+          } else /* FALSE */ {
+            __WGH(((____WB *)__3CZ),__KC);
           };
-          if (((void *)__WI == (void *)(&__string_25))) {
-            lisaac_push(&__ILD,L56756737); // L433 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L8792068); // L67 TRUE;
-            lisaac_push_first(&__EER,L56509441); // L431 INSTALL_LISAAC;
-            if (__ZT==NULL) {
-              lisaac_push(&__EER,L56643585); // L432 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L56643585); // L432 INSTALL_LISAAC;
-              __I0I(((____0B *)__ZT));
-            };
+          __4IH(((____WB *)__3CZ),(&__string_66));
+          __5CZ=(&__string_67)->__UB;
+          __ZCZ=NULL;
+          __4CZ=((____DB )(NULL));
+          __SDZ= 0;
+          __ADZ=((____33D )sizeof(____WB));
+          if ((__ADZ ==  0)) {
+            __ZCZ=__WB__;
           } else /* FALSE */ {
-            lisaac_push(&__ILD,L56756737); // L433 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L8530438); // L65 FALSE;
+            __SDZ=-1;
+            __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __ADZ));
+            if ((__SDZ == (____L)(-  1))) {
+              __BDZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+              __CDZ=(____33D)((____33D)(__ADZ - (____33D)(((____33D ) 0) - __BDZ)) & (____33D)((____33D)(((____33D ) 0) - __BDZ) - ((____33D ) 1)));
+              __BDZ=(____33D)(__CDZ / ((____33D )((____L )(sizeof(void *)))));
+              __EDZ=__LBF(__CDZ,((____DB )(&(table_size[(__BDZ)-1]))),((____OY )__CDZ));
+              __4CZ=__EDZ;
+            } else /* FALSE */ {
+              __GDZ=((____OY )__SDZ);
+              __BDZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+              __CDZ=(____33D)((____33D)(__ADZ - (____33D)(((____33D ) 0) - __BDZ)) & (____33D)((____33D)(((____33D ) 0) - __BDZ) - ((____33D ) 1)));
+              __EDZ=__LBF(__CDZ,((____DB )(&(table_type[(__GDZ)]))),(____OY)(__GDZ |  1));
+              __4CZ=__EDZ;
+            };
+            __ZCZ=((____WB *)__4CZ);
+            *(__ZCZ) = *(__WB__);
           };
-          if (__ZT==NULL) {
-            lisaac_push(&__ILD,L56905729); // L434 INSTALL_LISAAC;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__ILD,L56905729); // L434 INSTALL_LISAAC;
-            __PLI(((____0B *)__ZT),(&__string_73));
+          __MDZ=((____WB *)__ZCZ);
+          if ((__5CZ >  0)) {
+            if ((__MDZ->__CBE < __5CZ)) {
+              __ODZ=__3NG(__5CZ);
+              __MDZ->__ZAE=__ODZ;
+              __MDZ->__CBE=__5CZ;
+            };
           };
-          if (__ZT==NULL) {
-            lisaac_push(&__ILD,L57032193); // L435 INSTALL_LISAAC;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__ILD,L57032193); // L435 INSTALL_LISAAC;
-            __PLI(((____0B *)__ZT),(&__string_74));
+          __MDZ->__BC= 0;
+          __WGH(((____WB *)__ZCZ),(&__string_67));
+          __4IH(((____WB *)__ZCZ),(&__string_68));
+          __4IH(((____WB *)__ZCZ),__FC);
+          if (((void *)__0H == (void *)(&__string_22))) {
+            __1VH(((____WB *)__ZCZ));
           };
-          lisaac_push(&__ILD,L57186305); // L436 INSTALL_LISAAC;
-          __2LB(__5AC,(&__string_71),__ZT,__F__);
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__25X,L90444801); // L690 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L16794632); // L128 NUMERIC;
-        if ((__1ZI ==  2)) {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L89927681); // L686 INSTALL_LISAAC;
-          lisaac_push(&__15C,L90079745); // L687 INSTALL_LISAAC;
-          __TG((&__string_75), 0);
-          lisaac_push(&__15C,L90189313); // L688 INSTALL_LISAAC;
-          lisaac_push_first(&__ILD,L60039169); // L458 INSTALL_LISAAC;
-          if (((void *)__WI == (void *)(&__string_25))) {
-            lisaac_push(&__ILD,L68422145); // L522 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6825988); // L52 TRUE;
-            lisaac_push_first(&__EER,L60703745); // L463 INSTALL_LISAAC;
-            lisaac_push(&__EER,L60845057); // L464 INSTALL_LISAAC;
-            __DX((&__string_76));
+          __4IH(((____WB *)__ZCZ),(&__string_69));
+          __4IH(((____WB *)__ZCZ),(&__string_70));
+          __LGB(__3CZ,(&__string_67),__ZCZ,__F__);
+        };
+        if ((__BD ==  2)) {
+          __4F((&__string_71), 0);
+          if (((void *)__0H == (void *)(&__string_22))) {
+            __FSC((&__string_72));
           } else /* FALSE */ {
-            lisaac_push(&__ILD,L68422145); // L522 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6826502); // L52 FALSE;
-            lisaac_push_first(&__EER,L60954625); // L465 INSTALL_LISAAC;
-            lisaac_push(&__EER,L61109249); // L466 INSTALL_LISAAC;
-            __XCC=__DRB((&__string_77));
-            lisaac_push(&__EER,L61240321); // L467 INSTALL_LISAAC;
-            __XCC=__DRB((&__string_78));
-            lisaac_push(&__EER,L61371393); // L468 INSTALL_LISAAC;
-            __XCC=__DRB((&__string_79));
-            lisaac_push(&__EER,L61501441); // L469 INSTALL_LISAAC;
-            __XCC=__DRB((&__string_80));
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L61903361); // L472 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L61903361); // L472 INSTALL_LISAAC;
-              __4II(((____0B *)__JN),(&__string_81));
-            };
-            lisaac_push(&__EER,L62005761); // L473 INSTALL_LISAAC;
-            __DX((&__string_82));
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L62139393); // L474 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L62139393); // L474 INSTALL_LISAAC;
-              __TXY=((____0B *)__JN);
-              lisaac_push_first(&__DFQ,L167652365); // L1279 ABSTRACT_STRING;
-              __N4C(__TXY);
-            };
-            lisaac_push(&__EER,L62267905); // L475 INSTALL_LISAAC;
-            __DX((&__string_83));
-            lisaac_push(&__EER,L62413825); // L476 INSTALL_LISAAC;
-            __XCC=__DRB(__JN);
-            if ((__XCC !=  0)) {
-              lisaac_push(&__EER,L63049217); // L481 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6825988); // L52 TRUE;
-              lisaac_push_first(&__0EY,L62418945); // L476 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L62691841); // L478 INSTALL_LISAAC;
-              __DX((&__string_84));
+            __H0B=__BLB((&__string_73));
+            __H0B=__BLB((&__string_74));
+            __H0B=__BLB((&__string_75));
+            __H0B=__BLB((&__string_76));
+            __WGH(((____WB *)__A3Y),(&__string_77));
+            __FSC((&__string_78));
+            __FSC(((____WB *)__A3Y));
+            __FSC((&__string_79));
+            __H0B=__BLB(__A3Y);
+            if ((__H0B !=  0)) {
+              __FSC((&__string_80));
             } else /* FALSE */ {
-              lisaac_push(&__EER,L63049217); // L481 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6826502); // L52 FALSE;
-              lisaac_push_first(&__0EY,L62790657); // L479 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L62925313); // L480 INSTALL_LISAAC;
-              __DX((&__string_85));
-            };
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L63476225); // L484 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L63476225); // L484 INSTALL_LISAAC;
-              __4II(((____0B *)__JN),(&__string_86));
-            };
-            lisaac_push(&__EER,L63578625); // L485 INSTALL_LISAAC;
-            __DX((&__string_82));
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L63712257); // L486 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L63712257); // L486 INSTALL_LISAAC;
-              __TXY=((____0B *)__JN);
-              lisaac_push_first(&__DFQ,L167652365); // L1279 ABSTRACT_STRING;
-              __N4C(__TXY);
+              __FSC((&__string_81));
             };
-            lisaac_push(&__EER,L63840769); // L487 INSTALL_LISAAC;
-            __DX((&__string_83));
-            lisaac_push(&__EER,L63986689); // L488 INSTALL_LISAAC;
-            __XCC=__DRB(__JN);
-            if ((__XCC !=  0)) {
-              lisaac_push(&__EER,L64622081); // L493 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6825988); // L52 TRUE;
-              lisaac_push_first(&__0EY,L63991809); // L488 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L64264705); // L490 INSTALL_LISAAC;
-              __DX((&__string_84));
+            __WGH(((____WB *)__A3Y),(&__string_82));
+            __FSC((&__string_78));
+            __FSC(((____WB *)__A3Y));
+            __FSC((&__string_79));
+            __H0B=__BLB(__A3Y);
+            if ((__H0B !=  0)) {
+              __FSC((&__string_80));
             } else /* FALSE */ {
-              lisaac_push(&__EER,L64622081); // L493 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6826502); // L52 FALSE;
-              lisaac_push_first(&__0EY,L64363521); // L491 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L64498177); // L492 INSTALL_LISAAC;
-              __DX((&__string_85));
+              __FSC((&__string_81));
             };
-            lisaac_push(&__EER,L65577985); // L500 INSTALL_LISAAC;
-            __3DC=__IXC((&__string_87));
-            if ((__3DC == 'n')) {
-              lisaac_push(&__EER,L68292097); // L521 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6825988); // L52 TRUE;
-              lisaac_push_first(&__0EY,L65817601); // L502 INSTALL_LISAAC;
-              __TXY=__QF( 100);
-              if (((void *)__OC == (void *)NULL)) {
-                lisaac_push(&__0EY,L66458113); // L507 INSTALL_LISAAC;
-                lisaac_push_first(&__51C,L6825988); // L52 TRUE;
-                lisaac_push_first(&__KEC,L65945089); // L503 INSTALL_LISAAC;
-                if (__TXY==NULL) {
-                  lisaac_push(&__KEC,L66075137); // L504 INSTALL_LISAAC;
-                  lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-                } else /* STRING */ {
-                  lisaac_push(&__KEC,L66075137); // L504 INSTALL_LISAAC;
-                  __4II(((____0B *)__TXY),(&__string_69));
-                };
+            __J1B=__CMC((&__string_83));
+            if ((__J1B == 'n')) {
+              __03D=NULL;
+              __EDZ=((____DB )(NULL));
+              __C4D= 0;
+              __BDZ=((____33D )sizeof(____WB));
+              if ((__BDZ ==  0)) {
+                __03D=__WB__;
               } else /* FALSE */ {
-                lisaac_push(&__0EY,L66458113); // L507 INSTALL_LISAAC;
-                lisaac_push_first(&__51C,L6826502); // L52 FALSE;
-                lisaac_push_first(&__KEC,L66199553); // L505 INSTALL_LISAAC;
-                if (__TXY==NULL) {
-                  lisaac_push(&__KEC,L66339841); // L506 INSTALL_LISAAC;
-                  lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-                } else /* STRING */ {
-                  lisaac_push(&__KEC,L66339841); // L506 INSTALL_LISAAC;
-                  __4II(((____0B *)__TXY),__OC);
+                __C4D=-1;
+                __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __BDZ));
+                if ((__C4D == (____L)(-  1))) {
+                  __FPY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+                  __H0E=(____33D)((____33D)(__BDZ - (____33D)(((____33D ) 0) - __FPY)) & (____33D)((____33D)(((____33D ) 0) - __FPY) - ((____33D ) 1)));
+                  __FPY=(____33D)(__H0E / ((____33D )((____L )(sizeof(void *)))));
+                  __B1E=__LBF(__H0E,((____DB )(&(table_size[(__FPY)-1]))),((____OY )__H0E));
+                  __EDZ=__B1E;
+                } else /* FALSE */ {
+                  __L5D=((____OY )__C4D);
+                  __FPY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+                  __H0E=(____33D)((____33D)(__BDZ - (____33D)(((____33D ) 0) - __FPY)) & (____33D)((____33D)(((____33D ) 0) - __FPY) - ((____33D ) 1)));
+                  __B1E=__LBF(__H0E,((____DB )(&(table_type[(__L5D)]))),(____OY)(__L5D |  1));
+                  __EDZ=__B1E;
                 };
+                __03D=((____WB *)__EDZ);
+                *(__03D) = *(__WB__);
               };
-              if (__TXY==NULL) {
-                lisaac_push(&__0EY,L66601985); // L508 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__0EY,L66601985); // L508 INSTALL_LISAAC;
-                __PLI(((____0B *)__TXY),(&__string_88));
+              __AIH=((____WB *)__03D);
+              if ((__AIH->__CBE <  100)) {
+                __WIH=__3NG( 100);
+                __AIH->__ZAE=__WIH;
+                __AIH->__CBE= 100;
               };
-              lisaac_push(&__0EY,L66753025); // L509 INSTALL_LISAAC;
-              __2LB(__TXY,(&__string_89),(&__string_89),__F__);
-            } else /* FALSE */ {
-              lisaac_push(&__EER,L68292097); // L521 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6826502); // L52 FALSE;
-              lisaac_push_first(&__0EY,L66853889); // L510 INSTALL_LISAAC;
-              if (__JN==NULL) {
-                lisaac_push(&__0EY,L67006977); // L511 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__0EY,L67006977); // L511 INSTALL_LISAAC;
-                __4II(((____0B *)__JN),(&__string_90));
-              };
-              lisaac_push(&__0EY,L67118593); // L512 INSTALL_LISAAC;
-              __DX((&__string_82));
-              if (__JN==NULL) {
-                lisaac_push(&__0EY,L67252225); // L513 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__0EY,L67252225); // L513 INSTALL_LISAAC;
-                __XXY=((____0B *)__JN);
-                lisaac_push_first(&__51C,L167652365); // L1279 ABSTRACT_STRING;
-                __N4C(__XXY);
+              __AIH->__BC= 0;
+              if (((void *)__KC == (void *)NULL)) {
+                __WGH(((____WB *)__03D),(&__string_65));
+              } else /* FALSE */ {
+                __WGH(((____WB *)__03D),__KC);
               };
-              lisaac_push(&__0EY,L67380737); // L514 INSTALL_LISAAC;
-              __DX((&__string_83));
-              lisaac_push(&__0EY,L67526657); // L515 INSTALL_LISAAC;
-              __AFC=__DRB(__JN);
-              if ((__AFC !=  0)) {
-                lisaac_push(&__0EY,L68162049); // L520 INSTALL_LISAAC;
-                lisaac_push_first(&__51C,L6825988); // L52 TRUE;
-                lisaac_push_first(&__KEC,L67531777); // L515 INSTALL_LISAAC;
-                lisaac_push(&__KEC,L67804673); // L517 INSTALL_LISAAC;
-                __DX((&__string_84));
+              __4IH(((____WB *)__03D),(&__string_84));
+              __LGB(__03D,(&__string_85),(&__string_85),__F__);
+            } else /* FALSE */ {
+              __WGH(((____WB *)__A3Y),(&__string_86));
+              __FSC((&__string_78));
+              __FSC(((____WB *)__A3Y));
+              __FSC((&__string_79));
+              __C4D=__BLB(__A3Y);
+              if ((__C4D !=  0)) {
+                __FSC((&__string_80));
               } else /* FALSE */ {
-                lisaac_push(&__0EY,L68162049); // L520 INSTALL_LISAAC;
-                lisaac_push_first(&__51C,L6826502); // L52 FALSE;
-                lisaac_push_first(&__KEC,L67903489); // L518 INSTALL_LISAAC;
-                lisaac_push(&__KEC,L68038145); // L519 INSTALL_LISAAC;
-                __DX((&__string_85));
+                __FSC((&__string_81));
               };
             };
           };
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
         };
-        lisaac_push(&__25X,L90969089); // L694 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L16794632); // L128 NUMERIC;
-        if ((__1ZI ==  3)) {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L90451969); // L690 INSTALL_LISAAC;
-          lisaac_push(&__15C,L90606081); // L691 INSTALL_LISAAC;
-          __TG((&__string_91), 0);
-          lisaac_push(&__15C,L90714113); // L692 INSTALL_LISAAC;
-          lisaac_push_first(&__ILD,L57549313); // L439 INSTALL_LISAAC;
-          if (((void *)__WI == (void *)(&__string_25))) {
-            lisaac_push(&__ILD,L59640321); // L455 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6825988); // L52 TRUE;
-            lisaac_push_first(&__EER,L57820161); // L441 INSTALL_LISAAC;
-            lisaac_push(&__EER,L57959937); // L442 INSTALL_LISAAC;
-            __DX((&__string_92));
+        if ((__BD ==  3)) {
+          __4F((&__string_87), 0);
+          if (((void *)__0H == (void *)(&__string_22))) {
+            __FSC((&__string_88));
           } else /* FALSE */ {
-            lisaac_push(&__ILD,L59640321); // L455 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6826502); // L52 FALSE;
-            lisaac_push_first(&__EER,L58071041); // L443 INSTALL_LISAAC;
-            lisaac_push(&__EER,L58235905); // L444 INSTALL_LISAAC;
-            __XCC=__DRB((&__string_93));
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L58373633); // L445 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L58373633); // L445 INSTALL_LISAAC;
-              __4II(((____0B *)__JN),(&__string_94));
-            };
-            lisaac_push(&__EER,L58466817); // L446 INSTALL_LISAAC;
-            __DX((&__string_82));
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L58600449); // L447 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L58600449); // L447 INSTALL_LISAAC;
-              __TXY=((____0B *)__JN);
-              lisaac_push_first(&__DFQ,L167652365); // L1279 ABSTRACT_STRING;
-              __N4C(__TXY);
-            };
-            lisaac_push(&__EER,L58728961); // L448 INSTALL_LISAAC;
-            __DX((&__string_83));
-            lisaac_push(&__EER,L58874881); // L449 INSTALL_LISAAC;
-            __XCC=__DRB(__JN);
-            if ((__XCC !=  0)) {
-              lisaac_push(&__EER,L59510273); // L454 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6825988); // L52 TRUE;
-              lisaac_push_first(&__0EY,L58880001); // L449 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L59146241); // L451 INSTALL_LISAAC;
-              __DX((&__string_95));
+            __H0B=__BLB((&__string_89));
+            __WGH(((____WB *)__A3Y),(&__string_90));
+            __FSC((&__string_78));
+            __FSC(((____WB *)__A3Y));
+            __FSC((&__string_79));
+            __H0B=__BLB(__A3Y);
+            if ((__H0B !=  0)) {
+              __FSC((&__string_91));
             } else /* FALSE */ {
-              lisaac_push(&__EER,L59510273); // L454 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6826502); // L52 FALSE;
-              lisaac_push_first(&__0EY,L59251713); // L452 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L59385345); // L453 INSTALL_LISAAC;
-              __DX((&__string_96));
+              __FSC((&__string_92));
             };
           };
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
         };
-        lisaac_push(&__25X,L91493377); // L698 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L16794632); // L128 NUMERIC;
-        if ((__1ZI ==  4)) {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L90976257); // L694 INSTALL_LISAAC;
-          lisaac_push(&__15C,L91133953); // L695 INSTALL_LISAAC;
-          __TG((&__string_97), 0);
-          lisaac_push(&__15C,L91240961); // L696 INSTALL_LISAAC;
-          lisaac_push_first(&__ILD,L68824065); // L525 INSTALL_LISAAC;
-          if (((void *)__WI == (void *)(&__string_25))) {
-            lisaac_push(&__ILD,L70912513); // L541 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6825988); // L52 TRUE;
-            lisaac_push_first(&__EER,L69092353); // L527 INSTALL_LISAAC;
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L69384193); // L529 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L69384193); // L529 INSTALL_LISAAC;
-              __4II(((____0B *)__JN),(&__string_98));
-            };
-            lisaac_push(&__EER,L69612545); // L531 INSTALL_LISAAC;
-            __DX((&__string_99));
-            if (__JN==NULL) {
-              lisaac_push(&__EER,L69741569); // L532 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__EER,L69741569); // L532 INSTALL_LISAAC;
-              __TXY=((____0B *)__JN);
-              lisaac_push_first(&__DFQ,L167652365); // L1279 ABSTRACT_STRING;
-              __N4C(__TXY);
-            };
-            lisaac_push(&__EER,L69870081); // L533 INSTALL_LISAAC;
-            __DX((&__string_83));
-            lisaac_push(&__EER,L70016001); // L534 INSTALL_LISAAC;
-            __XCC=__DRB(__JN);
-            if ((__XCC !=  0)) {
-              lisaac_push(&__EER,L70520321); // L538 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6825988); // L52 TRUE;
-              lisaac_push_first(&__0EY,L70021121); // L534 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L70134273); // L535 INSTALL_LISAAC;
-              __DX((&__string_100));
+        if ((__BD ==  4)) {
+          __4F((&__string_93), 0);
+          if (((void *)__0H == (void *)(&__string_22))) {
+            __WGH(((____WB *)__A3Y),(&__string_94));
+            __FSC((&__string_95));
+            __FSC(((____WB *)__A3Y));
+            __FSC((&__string_79));
+            __H0B=__BLB(__A3Y);
+            if ((__H0B !=  0)) {
+              __FSC((&__string_96));
             } else /* FALSE */ {
-              lisaac_push(&__EER,L70520321); // L538 INSTALL_LISAAC;
-              lisaac_push_first(&__DFQ,L6826502); // L52 FALSE;
-              lisaac_push_first(&__0EY,L70261761); // L536 INSTALL_LISAAC;
-              lisaac_push(&__0EY,L70395393); // L537 INSTALL_LISAAC;
-              __DX((&__string_101));
+              __FSC((&__string_97));
             };
           } else /* FALSE */ {
-            lisaac_push(&__ILD,L70912513); // L541 INSTALL_LISAAC;
-            lisaac_push_first(&__1EQ,L6826502); // L52 FALSE;
-            lisaac_push_first(&__EER,L70653953); // L539 INSTALL_LISAAC;
-            lisaac_push(&__EER,L70809601); // L540 INSTALL_LISAAC;
-            __DX((&__string_102));
+            __FSC((&__string_98));
           };
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__25X,L92148737); // L703 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L16794632); // L128 NUMERIC;
-        if ((__1ZI ==  5)) {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L91500545); // L698 INSTALL_LISAAC;
-          lisaac_push(&__15C,L91646977); // L699 INSTALL_LISAAC;
-          __TG((&__string_103), 0);
-          lisaac_push(&__15C,L91910657); // L701 INSTALL_LISAAC;
-          __DX((&__string_104));
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
         };
-        lisaac_push(&__25X,L92542465); // L706 INSTALL_LISAAC;
-        lisaac_push_first(&__55X,L16794632); // L128 NUMERIC;
-        if ((__1ZI ==  6)) {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__15C,L92155905); // L703 INSTALL_LISAAC;
-          lisaac_push(&__15C,L92303873); // L704 INSTALL_LISAAC;
-          __TG((&__string_105), 0);
-          lisaac_push(&__15C,L92419585); // L705 INSTALL_LISAAC;
-          lisaac_push_first(&__ILD,L71313409); // L544 INSTALL_LISAAC;
-          lisaac_push(&__ILD,L72000001); // L549 INSTALL_LISAAC;
-          __DX((&__string_106));
-        } else /* FALSE */ {
-          lisaac_push(&__55X,L17446408); // L133 NUMERIC;
-          lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
+        if ((__BD ==  5)) {
+          __4F((&__string_99), 0);
+          __FSC((&__string_100));
         };
-        lisaac_push(&__4QJ,L10755090); // L82 BLOCK;
-        lisaac_push_first(&__25X,L92678145); // L707 INSTALL_LISAAC;
-        if ((__1ZI !=  0)) {
-          lisaac_push(&__4QJ,L11012626); // L84 BLOCK;
-          lisaac_push_first(&__25X,L8792068); // L67 TRUE;
-          lisaac_push_first(&__55X,L10888722); // L83 BLOCK;
-          goto __ZHB;
-        } else /* FALSE */ {
-          lisaac_push(&__4QJ,L11012626); // L84 BLOCK;
-          lisaac_push_first(&__25X,L8530438); // L65 FALSE;
+        if ((__BD ==  6)) {
+          __4F((&__string_101), 0);
+          __FSC((&__string_102));
         };
-      };
-    } else /* FALSE */ {
-      lisaac_push(&__PAY,L17446408); // L133 NUMERIC;
-      lisaac_push_first(&__FMH,L8530438); // L65 FALSE;
+      } while ((__BD !=  0));
     };
-    lisaac_push(&__PWK,L93326849); // L712 INSTALL_LISAAC;
-    lisaac_push_first(&__PAY,L16794632); // L128 NUMERIC;
-    if ((__MK4 ==  3)) {
-      lisaac_push(&__PAY,L17446408); // L133 NUMERIC;
-      lisaac_push_first(&__FMH,L8792068); // L67 TRUE;
-      lisaac_push_first(&__YIH,L92940289); // L709 INSTALL_LISAAC;
-      lisaac_push(&__YIH,L93104129); // L710 INSTALL_LISAAC;
-      __TG((&__string_107), 0);
-      lisaac_push(&__YIH,L93200897); // L711 INSTALL_LISAAC;
-      lisaac_push_first(&__4QJ,L78519297); // L599 INSTALL_LISAAC;
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L78784513); // L601 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L78784513); // L601 INSTALL_LISAAC;
-        __SEY=((____0B *)__JN);
-        lisaac_push_first(&__25X,L21894168); // L167 STRING;
-        __SEY->__FC= 0;
-        lisaac_push(&__25X,L22546968); // L172 STRING;
-        lisaac_push_first(&__55X,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__IB0,L8530438); // L65 FALSE;
-      };
-      lisaac_push(&__4QJ,L78929921); // L602 INSTALL_LISAAC;
-      __MB0=__DRB((&__string_108));
-      if (((void *)__WI == (void *)(&__string_25))) {
-        lisaac_push(&__4QJ,L79563265); // L607 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6825988); // L52 TRUE;
-        lisaac_push_first(&__55X,L79053825); // L603 INSTALL_LISAAC;
-        if (__JN==NULL) {
-          lisaac_push(&__55X,L79201281); // L604 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L79201281); // L604 INSTALL_LISAAC;
-          __4II(((____0B *)__JN),(&__string_109));
-        };
+    if ((__GKV ==  3)) {
+      __4F((&__string_103), 0);
+      ((____WB *)__A3Y)->__BC= 0;
+      __DWY=__BLB((&__string_104));
+      if (((void *)__0H == (void *)(&__string_22))) {
+        __WGH(((____WB *)__A3Y),(&__string_105));
       } else /* FALSE */ {
-        lisaac_push(&__4QJ,L79563265); // L607 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6826502); // L52 FALSE;
-        lisaac_push_first(&__55X,L79304705); // L605 INSTALL_LISAAC;
-        if (__JN==NULL) {
-          lisaac_push(&__55X,L79462913); // L606 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__55X,L79462913); // L606 INSTALL_LISAAC;
-          __4II(((____0B *)__JN),(&__string_110));
-        };
-      };
-      lisaac_push(&__4QJ,L79704065); // L608 INSTALL_LISAAC;
-      __DX((&__string_99));
-      if (__JN==NULL) {
-        lisaac_push(&__4QJ,L79833089); // L609 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__4QJ,L79833089); // L609 INSTALL_LISAAC;
-        __SEY=((____0B *)__JN);
-        lisaac_push_first(&__25X,L167652365); // L1279 ABSTRACT_STRING;
-        __N4C(__SEY);
+        __WGH(((____WB *)__A3Y),(&__string_106));
       };
-      lisaac_push(&__4QJ,L79961601); // L610 INSTALL_LISAAC;
-      __DX((&__string_83));
-      lisaac_push(&__4QJ,L80107521); // L611 INSTALL_LISAAC;
-      __MB0=__DRB(__JN);
-      if ((__MB0 ==  0)) {
-        lisaac_push(&__4QJ,L80742913); // L616 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6825988); // L52 TRUE;
-        lisaac_push_first(&__55X,L80112129); // L611 INSTALL_LISAAC;
-        lisaac_push(&__55X,L80386561); // L613 INSTALL_LISAAC;
-        __DX((&__string_111));
+      __FSC((&__string_95));
+      __FSC(((____WB *)__A3Y));
+      __FSC((&__string_79));
+      __DWY=__BLB(__A3Y);
+      if ((__DWY ==  0)) {
+        __FSC((&__string_107));
       } else /* FALSE */ {
-        lisaac_push(&__4QJ,L80742913); // L616 INSTALL_LISAAC;
-        lisaac_push_first(&__25X,L6826502); // L52 FALSE;
-        lisaac_push_first(&__55X,L80484353); // L614 INSTALL_LISAAC;
-        lisaac_push(&__55X,L80620033); // L615 INSTALL_LISAAC;
-        __DX((&__string_112));
+        __FSC((&__string_108));
       };
-    } else /* FALSE */ {
-      lisaac_push(&__PAY,L17446408); // L133 NUMERIC;
-      lisaac_push_first(&__FMH,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__Q4X,L10755090); // L82 BLOCK;
-    lisaac_push_first(&__PWK,L93462529); // L713 INSTALL_LISAAC;
-    if ((__MK4 !=  0)) {
-      lisaac_push(&__Q4X,L11012626); // L84 BLOCK;
-      lisaac_push_first(&__PWK,L8792068); // L67 TRUE;
-      lisaac_push_first(&__PAY,L10888722); // L83 BLOCK;
-      goto __UM;
-    } else /* FALSE */ {
-      lisaac_push(&__Q4X,L11012626); // L84 BLOCK;
-      lisaac_push_first(&__PWK,L8530438); // L65 FALSE;
     };
-  };
-  lisaac_push(&__N4X,L93596673); // L714 INSTALL_LISAAC;
-  __DX((&__string_113));
+  } while ((__GKV !=  0));
+  __FSC((&__string_109));
   return(0);
 }
 
 
-static void __DX(____V *__FX)
-// ({__V}) Void Recursive, No inlinable.
+static ____DB __LBF(____33D __NBF,____DB __OBF,____OY __PBF)
+// ({__33D},{__DB},{__OY}) With result No recursive, No inlinable.
 {
-  _____CONTEXT __EX;
-  lisaac_push_first(&__EX,L167652365); // L1279 ABSTRACT_STRING;
-  __N4C(__FX);
+  ____DB __TBF,__TLW,__RBF,__YCF,__ZCF,__NFF,__QBF;
+  __TBF=((____DB )(NULL));
+  __TLW=((____DB *)__OBF)[ 0];
+  __RBF=__TLW;
+  if ((__TLW == (void *)NULL)) {
+    __YCF=__5XF(__PBF);
+    __RBF=__YCF;
+    __ZCF=(void *)((unsigned long)__YCF - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )__NBF)));
+    __TBF=__ZCF;
+    ((____DB *)__ZCF)[ 0]=NULL;
+    ((____DB *)__OBF)[ 0]=__ZCF;
+  } else /* FALSE */ {
+    __YCF=((____DB *)__RBF)[ 0];
+    __TBF=__YCF;
+    if ((__YCF == (void *)NULL)) {
+      if (((void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)__RBF - (unsigned long)__HDF) & (unsigned long)((____DB )((____33D ) 4095))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__NBF <<  1)))) <= ((____DB )((____33D ) 4096)))) {
+        __TBF=(void *)((unsigned long)__RBF - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )__NBF)));
+      } else /* FALSE */ {
+        __NFF=__5XF(__PBF);
+        __TBF=__NFF;
+      };
+      ((____DB *)__TBF)[ 0]=NULL;
+      ((____DB *)__OBF)[ 0]=__TBF;
+    } else /* FALSE */ {
+      ((____DB *)__RBF)[ 0]=(void *)((unsigned long)((____DB *)__TBF)[ 0] & (unsigned long)((____DB )(____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1))));
+      __RBF=__TBF;
+    };
+  };
+  __QBF=__RBF;
+  return(__QBF);
 }
 
-static ____0B* __QF(____L __TF)
+static ____4* __3NG(____L __5NG)
 // ({__L}) With result No recursive, No inlinable.
 {
-  ____0B *__WF,*__NKI,*__UF;
-  ____DB __UTJ;
-  ____L __4KI;
-  _____CONTEXT __RF,__MKI,__STJ,__D3K,__3TJ,__SKI,__KC0,__LC0,__ZYT;
-  _____CONTEXT __4AY;
-  ____G __OC0,__QC0,__SC0,__0R3,__2R3;
-  ____4 *__GLI;
-  lisaac_push_first(&__RF,L8007704); // L61 STRING;
-  __WF=__1QE();
-  if (__WF==NULL) {
-    lisaac_push(&__RF,L8142360); // L62 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__RF,L8142360); // L62 STRING;
-    __NKI=((____0B *)__WF);
-    lisaac_push_first(&__MKI,L10095128); // L77 STRING;
-    lisaac_push_first(&__STJ,L19150866); // L146 BLOCK;
-    lisaac_push_first(&__D3K,L7481858); // L57 OBJECT;
-    __UTJ=((____DB )(top_context->back->back));
-    lisaac_push(&__STJ,L19280914); // L147 BLOCK;
-    lisaac_push_first(&__D3K,L10652676); // L81 TRUE;
-    lisaac_push_first(&__3TJ,L19285522); // L147 BLOCK;
-    lisaac_push_first(&__SKI,L10105368); // L77 STRING;
-    lisaac_push_first(&__KC0,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__LC0,L15224840); // L116 NUMERIC;
-    __OC0=(__TF >  0);
-    lisaac_push(&__KC0,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__LC0,L14700552); // L112 NUMERIC;
-    __QC0=(__TF ==  0);
-    if (__OC0) {
-      lisaac_push(&__KC0,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__LC0,L10900996); // L83 TRUE;
-      __SC0=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__KC0,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__LC0,L12342790); // L94 FALSE;
-      __SC0=__QC0;
-    };
-    if (__SC0) {
-      lisaac_push(&__3TJ,L19282450); // L147 BLOCK;
-      lisaac_push_first(&__SKI,L13509636); // L103 TRUE;
-      __SC0=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__3TJ,L19282450); // L147 BLOCK;
-      lisaac_push_first(&__SKI,L14689286); // L112 FALSE;
-      __SC0=__F__;
-    };
-    if (__SC0) {
-      lisaac_push(&__STJ,L19532306); // L149 BLOCK;
-      lisaac_push_first(&__D3K,L8792068); // L67 TRUE;
-      lisaac_push_first(&__3TJ,L19289106); // L147 BLOCK;
-      lisaac_push(&__3TJ,L19428370); // L148 BLOCK;
-      lisaac_push_first(&__SKI,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__KC0,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__LC0,L8792068); // L67 TRUE;
-      lisaac_push_first(&__ZYT,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__UTJ));
-      lisaac_push(&__SKI,L9574914); // L73 OBJECT;
-      __DX((&__string_43));
-      lisaac_push(&__SKI,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__KC0,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__LC0,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__ZYT,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__4AY,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__SKI,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__KC0,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__LC0,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__STJ,L19532306); // L149 BLOCK;
-      lisaac_push_first(&__D3K,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__MKI,L10234904); // L78 STRING;
-    lisaac_push_first(&__STJ,L15224840); // L116 NUMERIC;
-    if ((__TF >  0)) {
-      lisaac_push(&__MKI,L10881560); // L83 STRING;
-      lisaac_push_first(&__STJ,L8792068); // L67 TRUE;
-      lisaac_push_first(&__D3K,L10239000); // L78 STRING;
-      __4KI=__NKI->__SUE;
-      lisaac_push(&__D3K,L10363416); // L79 STRING;
-      lisaac_push_first(&__3TJ,L15498248); // L118 NUMERIC;
-      lisaac_push_first(&__SKI,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__KC0,L15224840); // L116 NUMERIC;
-      __SC0=(__4KI > __TF);
-      lisaac_push(&__SKI,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__KC0,L14700552); // L112 NUMERIC;
-      __0R3=(__4KI == __TF);
-      if (__SC0) {
-        lisaac_push(&__SKI,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__KC0,L10900996); // L83 TRUE;
-        __2R3=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__SKI,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__KC0,L12342790); // L94 FALSE;
-        __2R3=__0R3;
-      };
-      if (__2R3) {
-        lisaac_push(&__3TJ,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__SKI,L13509636); // L103 TRUE;
-        __2R3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__3TJ,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__SKI,L14689286); // L112 FALSE;
-        __2R3=__F__;
-      };
-      if (__2R3) {
-        lisaac_push(&__D3K,L10751512); // L82 STRING;
-        lisaac_push_first(&__3TJ,L8792068); // L67 TRUE;
-        lisaac_push_first(&__SKI,L10515480); // L80 STRING;
-        __GLI=__WMH(__TF);
-        __NKI->__IUE=__GLI;
-        __NKI->__SUE=__TF;
-      } else /* FALSE */ {
-        lisaac_push(&__D3K,L10751512); // L82 STRING;
-        lisaac_push_first(&__3TJ,L8530438); // L65 FALSE;
-      };
-    } else /* FALSE */ {
-      lisaac_push(&__MKI,L10881560); // L83 STRING;
-      lisaac_push_first(&__STJ,L8530438); // L65 FALSE;
-    };
-    __NKI->__FC= 0;
-  };
-  __UF=__WF;
-  return(__UF);
+  ____33D __AEZ,__5DZ,__BEZ,__DEZ,__EEZ;
+  ____DB __4DZ,__GEZ;
+  ____54D *__HEZ;
+  ____L __ZMJ;
+  ____4 *__DTG,*__AOG;
+  __AEZ=((____33D )__5NG);
+  __4DZ=((____DB )(NULL));
+  __5DZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+  __BEZ=(____33D)((____33D)(__AEZ - (____33D)(((____33D ) 0) - __5DZ)) & (____33D)((____33D)(((____33D ) 0) - __5DZ) - ((____33D ) 1)));
+  __AEZ=(____33D)(__BEZ - (____33D)(((____33D ) 0) - ((____33D ) 4)));
+  if ((__AEZ <= ((____33D )(MINIMUM_SIZE)))) {
+    __DEZ=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+    __EEZ=(____33D)((____33D)(__AEZ - (____33D)(((____33D ) 0) - __DEZ)) & (____33D)((____33D)(((____33D ) 0) - __DEZ) - ((____33D ) 1)));
+    __DEZ=(____33D)(__EEZ / ((____33D )((____L )(sizeof(void *)))));
+    __GEZ=__LBF(__EEZ,((____DB )(&(table_size[(__DEZ)-1]))),((____OY )__EEZ));
+    ((____OY *)__GEZ)[ 0]= 3;
+    __4DZ=(void *)((unsigned long)__GEZ - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D ) 4))));
+  } else /* FALSE */ {
+    __HEZ=__GCN(__BEZ);
+    __4DZ=(void *)((unsigned long)((____DB )((____54D *)__HEZ)) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))))));
+  };
+  __DTG=((____4 *)__4DZ);
+  __ZMJ=(____L)(__5NG -  1);
+  while ((__ZMJ >=  0)) {
+    __DTG[__ZMJ]='\0';
+    __ZMJ=(____L)(__ZMJ -  1);
+  };
+  __AOG=__DTG;
+  return(__AOG);
 }
 
-static ____4* __NVF(____0B *__PVF)
-// ({__0B}) With result No recursive, No inlinable.
+static void __FSC(void *__HSC)
+// ({__Vx__WB}) Void No recursive, No inlinable.
 {
-  ____L __OWF,__RVF,__SVF,__1VF;
-  ____DB __PCG,__X52;
-  _____CONTEXT __OVF,__LBY,__YVF,__PBY,__KWF,__OEN,__PUN,__WEN,__0BY;
-  ____4 *__0VF,*__QVF;
-  ____G __1CG,__152;
-  lisaac_push_first(&__OVF,L91233816); // L696 STRING;
-  __OWF=__PVF->__FC;
-  __RVF=__PVF->__SUE;
-  __SVF=__PVF->__FC;
-  lisaac_push(&__OVF,L92151320); // L703 STRING;
-  lisaac_push_first(&__LBY,L15224840); // L116 NUMERIC;
-  if ((__RVF > __SVF)) {
-    lisaac_push(&__OVF,L92801560); // L708 STRING;
-    lisaac_push_first(&__LBY,L6825988); // L52 TRUE;
-    lisaac_push_first(&__YVF,L92157464); // L703 STRING;
-    __0VF=__PVF->__IUE;
-    __1VF=__PVF->__FC;
-    if (__0VF==NULL) {
-      lisaac_push(&__YVF,L92290584); // L704 STRING;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-      lisaac_push(&__YVF,L92290584); // L704 STRING;
-      __CRG(((____4 *)__0VF),'\0',__1VF);
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__OVF,L92801560); // L708 STRING;
-    lisaac_push_first(&__LBY,L6826502); // L52 FALSE;
-    lisaac_push_first(&__YVF,L92546584); // L706 STRING;
-    __PRG(__PVF,'\0');
-    __1VF=__PVF->__FC;
-    lisaac_push(&__YVF,L92679192); // L707 STRING;
-    lisaac_push_first(&__PBY,L9195016); // L70 NUMERIC;
-    __PVF->__FC=(____L)(__1VF -  1);
-  };
-  __QVF=__PVF->__IUE;
-  lisaac_push(&__OVF,L93457432); // L713 STRING;
-  lisaac_push_first(&__LBY,L24393746); // L186 BLOCK;
-  lisaac_push_first(&__YVF,L7481858); // L57 OBJECT;
-  __PCG=((____DB )(top_context->back->back));
-  lisaac_push(&__LBY,L24524306); // L187 BLOCK;
-  lisaac_push_first(&__YVF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__PBY,L24528914); // L187 BLOCK;
-  lisaac_push_first(&__KWF,L93458456); // L713 STRING;
-  if ((__PVF->__FC == __OWF)) {
-    lisaac_push(&__PBY,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__KWF,L13509636); // L103 TRUE;
-    __1CG=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__PBY,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__KWF,L14689286); // L112 FALSE;
-    __1CG=__F__;
-  };
-  if (__1CG) {
-    lisaac_push(&__LBY,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__YVF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__PBY,L24532498); // L187 BLOCK;
-    lisaac_push(&__PBY,L24672274); // L188 BLOCK;
-    lisaac_push_first(&__KWF,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__OEN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__PUN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WEN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__PCG));
-    lisaac_push(&__KWF,L9574914); // L73 OBJECT;
-    __DX((&__string_114));
-    lisaac_push(&__KWF,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__OEN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__PUN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__WEN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__0BY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__KWF,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__OEN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__PUN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__LBY,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__YVF,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__OVF,L93588504); // L714 STRING;
-  lisaac_push_first(&__LBY,L24393746); // L186 BLOCK;
-  lisaac_push_first(&__YVF,L7481858); // L57 OBJECT;
-  __PCG=((____DB )(top_context->back->back));
-  lisaac_push(&__LBY,L24524306); // L187 BLOCK;
-  lisaac_push_first(&__YVF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__PBY,L24528914); // L187 BLOCK;
-  lisaac_push_first(&__KWF,L93589528); // L714 STRING;
-  if (__QVF==NULL) {
-    lisaac_push(&__KWF,L93598744); // L714 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__KWF,L93598744); // L714 STRING;
-    __0VF=((____4 *)__QVF);
-    lisaac_push_first(&__OEN,L104090133); // L794 NATIVE_ARRAY;
-    lisaac_push_first(&__PUN,L22048258); // L168 OBJECT;
-    lisaac_push_first(&__WEN,L4069927); // L31 CONVERT;
-    __X52=((____DB )__0VF);
-    lisaac_push(&__OEN,L104096277); // L794 NATIVE_ARRAY;
-    lisaac_push_first(&__PUN,L6440979); // L49 POINTER;
-    lisaac_push_first(&__WEN,L6034963); // L46 POINTER;
-    if ((__X52 == (void *)NULL)) {
-      lisaac_push(&__PUN,L6436883); // L49 POINTER;
-      lisaac_push_first(&__WEN,L13509636); // L103 TRUE;
-      __152=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__PUN,L6436883); // L49 POINTER;
-      lisaac_push_first(&__WEN,L14689286); // L112 FALSE;
-      __152=__F__;
+  ____L __ZSC,__X2C,__Y2C;
+  ____4 *__WWY,*__XWY;
+  ____4 __ATC;
+  if (((struct ___OBJ *)__HSC)->__id==____V__) {
+    __ZSC=((____V *)__HSC)->__UB;
+  } else /* STRING */ {
+    __ZSC=((____WB *)__HSC)->__BC;
+  };
+  __X2C= 1;
+  __Y2C=__ZSC;
+  __WWY=((____V *)__HSC)->__VB;
+  __XWY=((____WB *)((____V *)__HSC))->__ZAE;
+  while ((__X2C <= __Y2C)) {
+    if (((struct ___OBJ *)__HSC)->__id==____V__) {
+      __ATC=((____4 *)__WWY)[(____L)(__X2C -  1)];
+    } else /* STRING */ {
+      __ATC=((____4 *)__XWY)[(____L)(__X2C -  1)];
     };
-    __1CG=__152;
-  };
-  if (__1CG) {
-    lisaac_push(&__PBY,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__KWF,L13509636); // L103 TRUE;
-    __1CG=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__PBY,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__KWF,L14689286); // L112 FALSE;
-    __1CG=__F__;
+    fputc((int)(__ATC),stdout);
+    __X2C=(____L)(__X2C +  1);
   };
-  if (__1CG) {
-    lisaac_push(&__LBY,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__YVF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__PBY,L24532498); // L187 BLOCK;
-    lisaac_push(&__PBY,L24672274); // L188 BLOCK;
-    lisaac_push_first(&__KWF,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__OEN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__PUN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WEN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__PCG));
-    lisaac_push(&__KWF,L9574914); // L73 OBJECT;
-    __DX((&__string_114));
-    lisaac_push(&__KWF,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__OEN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__PUN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__WEN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__0BY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__KWF,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__OEN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__PUN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__LBY,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__YVF,L8530438); // L65 FALSE;
-  };
-  return(__QVF);
 }
 
-static void __LTE(____0B *__NTE,____4 *__OTE)
-// ({__0B},{NULLx__HB}) Void No recursive, No inlinable.
+static ____4* __SOG(____4 *__TOG,____L __UOG,____L __VOG)
+// ({__HB},{__L},{__L}) With result No recursive, No inlinable.
 {
-  ____DB __C1E,__CA3;
-  ____L __2TE,__FUE,__DE0,__2UE;
-  _____CONTEXT __MTE,__A1E,__4AF,__L1E,__STE,__452,__552,__AA3,__KCY;
-  ____4 *__BA3;
-  ____G __GA3,__UTE,__51E;
-  ____4 __3TE;
-  lisaac_push_first(&__MTE,L94898712); // L724 STRING;
-  lisaac_push_first(&__A1E,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__4AF,L7481858); // L57 OBJECT;
-  __C1E=((____DB )(top_context->back->back));
-  lisaac_push(&__A1E,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__4AF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__L1E,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__STE,L94899736); // L724 STRING;
-  if (__OTE==NULL) {
-    lisaac_push(&__STE,L94906392); // L724 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__STE,L94906392); // L724 STRING;
-    __BA3=((____4 *)__OTE);
-    lisaac_push_first(&__452,L104090133); // L794 NATIVE_ARRAY;
-    lisaac_push_first(&__552,L22048258); // L168 OBJECT;
-    lisaac_push_first(&__AA3,L4069927); // L31 CONVERT;
-    __CA3=((____DB )__BA3);
-    lisaac_push(&__452,L104096277); // L794 NATIVE_ARRAY;
-    lisaac_push_first(&__552,L6440979); // L49 POINTER;
-    lisaac_push_first(&__AA3,L6034963); // L46 POINTER;
-    if ((__CA3 == (void *)NULL)) {
-      lisaac_push(&__552,L6436883); // L49 POINTER;
-      lisaac_push_first(&__AA3,L13509636); // L103 TRUE;
-      __GA3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__552,L6436883); // L49 POINTER;
-      lisaac_push_first(&__AA3,L14689286); // L112 FALSE;
-      __GA3=__F__;
-    };
-    __UTE=__GA3;
-  };
-  if (__UTE) {
-    lisaac_push(&__L1E,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__STE,L13509636); // L103 TRUE;
-    __GA3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__L1E,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__STE,L14689286); // L112 FALSE;
-    __GA3=__F__;
-  };
-  if (__GA3) {
-    lisaac_push(&__A1E,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__4AF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__L1E,L19289106); // L147 BLOCK;
-    lisaac_push(&__L1E,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__STE,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__452,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__552,L8792068); // L67 TRUE;
-    lisaac_push_first(&__AA3,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__C1E));
-    lisaac_push(&__STE,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__STE,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__452,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__552,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__AA3,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KCY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__STE,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__452,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__552,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__A1E,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__4AF,L8530438); // L65 FALSE;
-  };
-  __NTE->__FC= 0;
-  lisaac_push(&__MTE,L95554072); // L729 STRING;
-  lisaac_push_first(&__A1E,L11802642); // L90 BLOCK;
-  __01E:
-  {
-    lisaac_push(&__A1E,L11802642); // L90 BLOCK;
-    lisaac_push_first(&__4AF,L95291928); // L727 STRING;
-    __2TE=__NTE->__FC;
-    if (__OTE==NULL) {
-      lisaac_push(&__4AF,L95298584); // L727 STRING;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-      lisaac_push(&__4AF,L95298584); // L727 STRING;
-      __3TE=__LVD(((____4 *)__OTE),__2TE);
-    };
-    if ((__3TE == '\0')) {
-      lisaac_push(&__A1E,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__4AF,L13509636); // L103 TRUE;
-      __51E=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__A1E,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__4AF,L14689286); // L112 FALSE;
-      __51E=__F__;
-    };
-    if (__51E) {
-      lisaac_push(&__A1E,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__4AF,L8792068); // L67 TRUE;
-      lisaac_push_first(&__L1E,L11935762); // L91 BLOCK;
-      lisaac_push_first(&__STE,L95307800); // L727 STRING;
-      __FUE=__NTE->__FC;
-      lisaac_push(&__STE,L95431704); // L728 STRING;
-      lisaac_push_first(&__452,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__552,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__AA3,L9195016); // L70 NUMERIC;
-      __DE0=(____L)(-  1);
-      lisaac_push(&__452,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__552,L9195016); // L70 NUMERIC;
-      __NTE->__FC=(____L)(__FUE - __DE0);
-      lisaac_push(&__L1E,L12068370); // L92 BLOCK;
-      goto __01E;
+  ____DB __SPG,__BXG,__U1G,__WMY,__H3V,__HVP;
+  ____33D __0PG,__2PG,__ESY,__NXG,__ZXG,__MMY,__51G,__ZMY,__SMY,__L5M;
+  ____33D __JVP;
+  ____54D *__32G,*__03M,*__I5M,*__EWP,*__FVP,*__O2Y,*__P2Y;
+  ____4 *__4PG,*__WOG;
+  __SPG=((____DB )__TOG);
+  __0PG=((____33D )__UOG);
+  __2PG=((____33D )__VOG);
+  __BXG=((____DB )(NULL));
+  __ESY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+  __NXG=(____33D)((____33D)(__0PG - (____33D)(((____33D ) 0) - __ESY)) & (____33D)((____33D)(((____33D ) 0) - __ESY) - ((____33D ) 1)));
+  __0PG=(____33D)(__NXG - (____33D)(((____33D ) 0) - ((____33D ) 4)));
+  __ESY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+  __ZXG=(____33D)((____33D)(__2PG - (____33D)(((____33D ) 0) - __ESY)) & (____33D)((____33D)(((____33D ) 0) - __ESY) - ((____33D ) 1)));
+  if ((__0PG <= ((____33D )(MINIMUM_SIZE)))) {
+    __U1G=((____DB )(NULL));
+    __MMY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+    __51G=(____33D)((____33D)(__ZXG - (____33D)(((____33D ) 0) - __MMY)) & (____33D)((____33D)(((____33D ) 0) - __MMY) - ((____33D ) 1)));
+    __MMY=(____33D)(__51G - (____33D)(((____33D ) 0) - ((____33D ) 4)));
+    if ((__MMY <= ((____33D )(MINIMUM_SIZE)))) {
+      __ZMY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+      __SMY=(____33D)((____33D)(__MMY - (____33D)(((____33D ) 0) - __ZMY)) & (____33D)((____33D)(((____33D ) 0) - __ZMY) - ((____33D ) 1)));
+      __ZMY=(____33D)(__SMY / ((____33D )((____L )(sizeof(void *)))));
+      __WMY=__LBF(__SMY,((____DB )(&(table_size[(__ZMY)-1]))),((____OY )__SMY));
+      ((____OY *)__WMY)[ 0]= 3;
+      __U1G=(void *)((unsigned long)__WMY - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D ) 4))));
+    } else /* FALSE */ {
+      __32G=__GCN(__51G);
+      __U1G=(void *)((unsigned long)((____DB )((____54D *)__32G)) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))))));
+    };
+    __BXG=__U1G;
+    __J0M(__SPG,__U1G,__NXG);
+    __U1G=(void *)((unsigned long)__SPG - (unsigned long)((____DB )((____33D ) 4)));
+    __MMY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+    __51G=(____33D)((____33D)(__0PG - (____33D)(((____33D ) 0) - __MMY)) & (____33D)((____33D)(((____33D ) 0) - __MMY) - ((____33D ) 1)));
+    __MMY=(____33D)(__51G / ((____33D )((____L )(sizeof(void *)))));
+    __WMY=((____DB )(&(table_size[(__MMY)-1])));
+    __H3V=((____DB *)__WMY)[ 0];
+    ((____DB *)__U1G)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB *)__H3V)[ 0]) - (unsigned long)((____DB )((____33D ) 1))) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D ) 3))) - (unsigned long)((____DB )((____33D ) 1))))) - (unsigned long)((____DB )((____33D ) 1)));
+    ((____DB *)__H3V)[ 0]=__U1G;
+  } else /* FALSE */ {
+    __32G=((____54D *)(void *)((unsigned long)__SPG - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))))));
+    __MMY=(____33D)(((____33D )(void *)((unsigned long)__SPG - (unsigned long)__HDF)) >>  26);
+    __03M=NULL;
+    __51G=(____33D)(__32G->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1)));
+    if ((__ZXG > __51G)) {
+      if ((! ((____33D)(__32G->__C5D & ((____33D ) 2)) !=  0))) {
+        __I5M=((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__32G) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__32G->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1)))))));
+        __L5M=(____33D)((____33D)(__ZXG - __51G) - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))));
+        if ((((____33D)(__I5M->__C5D & ((____33D ) 1)) == ((____33D ) 0)) && ((____33D)(__I5M->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1))) >= __L5M))) {
+          __DHQ(__I5M,((____DB )__L5M),__MMY);
+          __32G->__C5D=(____33D)((____33D)(__32G->__C5D - (____33D)(((____33D ) 0) - (____33D)(__I5M->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 1)) - ((____33D ) 1))))) - (____33D)(((____33D ) 0) - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))));
+          if (((____33D)(__32G->__C5D & ((____33D ) 2)) !=  0)) {
+            last_block[(__MMY)] = (__32G);
+          } else /* FALSE */ {
+            ((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__32G) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__32G->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1)))))))->__B5D=(void *)((unsigned long)((____DB )__32G) - (unsigned long)__HDF);
+          };
+          __03M=__32G;
+        };
+      };
+      if (((void *)__03M == (void *)NULL)) {
+        __I5M=__GCN(__ZXG);
+        __03M=__I5M;
+        __J0M((void *)((unsigned long)((____DB )__32G) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))),(void *)((unsigned long)((____DB )((____54D *)__I5M)) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))),__51G);
+        __HVP=__32G->__B5D;
+        __I5M=((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__32G) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__32G->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1)))))));
+        __EWP=((____54D *)(void *)((unsigned long)__HDF - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)__HVP)));
+        __FVP=__EWP;
+        __L5M=(____33D)(__32G->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 1)) - ((____33D ) 1)));
+        __JVP=__L5M;
+        if (((__HVP == (void *)NULL) || ((____33D)(__EWP->__C5D & ((____33D ) 1)) != ((____33D ) 0)))) {
+          __FVP=__32G;
+          __32G->__D5D=__JDN;
+          __32G->__E5D=NULL;
+          if (((void *)__JDN != (void *)NULL)) {
+            ((____54D *)__JDN)->__E5D=__32G;
+          };
+          __JDN=__32G;
+        } else /* FALSE */ {
+          __JVP=(____33D)((____33D)(__L5M - (____33D)(((____33D ) 0) - __FVP->__C5D)) - (____33D)(((____33D ) 0) - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))));
+        };
+        if (((! ((____33D)(__32G->__C5D & ((____33D ) 2)) !=  0)) && ((____33D)(__I5M->__C5D & ((____33D ) 1)) == ((____33D ) 0)))) {
+          __JVP=(____33D)((____33D)(__JVP - (____33D)(((____33D ) 0) - __I5M->__C5D)) - (____33D)(((____33D ) 0) - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))));
+          __O2Y=__I5M->__E5D;
+          __P2Y=__I5M->__D5D;
+          if (((void *)__O2Y == (void *)NULL)) {
+            __JDN=__P2Y;
+          } else /* FALSE */ {
+            ((____54D *)__O2Y)->__D5D=__P2Y;
+          };
+          if (((void *)__P2Y != (void *)NULL)) {
+            ((____54D *)__P2Y)->__E5D=__O2Y;
+          };
+        };
+        __FVP->__C5D=__JVP;
+        if (((____33D)(__FVP->__C5D & ((____33D ) 2)) !=  0)) {
+          last_block[(__MMY)] = (__FVP);
+        } else /* FALSE */ {
+          ((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__32G) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__32G->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1)))))))->__B5D=(void *)((unsigned long)((____DB )__FVP) - (unsigned long)__HDF);
+        };
+      };
     } else /* FALSE */ {
-      lisaac_push(&__A1E,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__4AF,L8530438); // L65 FALSE;
+      __03M=__32G;
     };
+    __BXG=(void *)((unsigned long)((____DB )((____54D *)__03M)) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))))));
   };
-  if (((void *)__NTE->__IUE != (void *)__OTE)) {
-    lisaac_push(&__MTE,L96078360); // L733 STRING;
-    lisaac_push_first(&__A1E,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4AF,L95694360); // L730 STRING;
-    __NTE->__IUE=__OTE;
-    __2TE=__NTE->__FC;
-    lisaac_push(&__4AF,L95957528); // L732 STRING;
-    lisaac_push_first(&__L1E,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__STE,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__452,L9195016); // L70 NUMERIC;
-    __FUE=(____L)(-  1);
-    lisaac_push(&__L1E,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__STE,L9195016); // L70 NUMERIC;
-    __NTE->__SUE=(____L)(__2TE - __FUE);
-  } else /* FALSE */ {
-    lisaac_push(&__MTE,L96078360); // L733 STRING;
-    lisaac_push_first(&__A1E,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__MTE,L96340504); // L735 STRING;
-  lisaac_push_first(&__A1E,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__4AF,L7481858); // L57 OBJECT;
-  __C1E=((____DB )(top_context->back->back));
-  lisaac_push(&__A1E,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__4AF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__L1E,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__STE,L96341528); // L735 STRING;
-  __2TE=__NTE->__SUE;
-  __FUE=__NTE->__FC;
-  lisaac_push(&__STE,L96351768); // L735 STRING;
-  lisaac_push_first(&__452,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__552,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__AA3,L9195016); // L70 NUMERIC;
-  __DE0=(____L)(-  1);
-  lisaac_push(&__452,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__552,L9195016); // L70 NUMERIC;
-  __2UE=(____L)(__FUE - __DE0);
-  lisaac_push(&__STE,L96347160); // L735 STRING;
-  lisaac_push_first(&__452,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__552,L15224840); // L116 NUMERIC;
-  __GA3=(__2TE > __2UE);
-  lisaac_push(&__452,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__552,L14700552); // L112 NUMERIC;
-  __UTE=(__2TE == __2UE);
-  if (__GA3) {
-    lisaac_push(&__452,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__552,L10900996); // L83 TRUE;
-    __51E=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__452,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__552,L12342790); // L94 FALSE;
-    __51E=__UTE;
-  };
-  if (__51E) {
-    lisaac_push(&__L1E,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__STE,L13509636); // L103 TRUE;
-    __51E=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__L1E,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__STE,L14689286); // L112 FALSE;
-    __51E=__F__;
-  };
-  if (__51E) {
-    lisaac_push(&__A1E,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__4AF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__L1E,L19289106); // L147 BLOCK;
-    lisaac_push(&__L1E,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__STE,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__452,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__552,L8792068); // L67 TRUE;
-    lisaac_push_first(&__AA3,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__C1E));
-    lisaac_push(&__STE,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__STE,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__452,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__552,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__AA3,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KCY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__STE,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__452,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__552,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__A1E,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__4AF,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__MTE,L96471576); // L736 STRING;
-  lisaac_push_first(&__A1E,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__4AF,L7481858); // L57 OBJECT;
-  __C1E=((____DB )(top_context->back->back));
-  lisaac_push(&__A1E,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__4AF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__L1E,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__STE,L96480280); // L736 STRING;
-  __BA3=__NVF(__NTE);
-  if (((void *)__OTE == (void *)__BA3)) {
-    lisaac_push(&__L1E,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__STE,L13509636); // L103 TRUE;
-    __51E=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__L1E,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__STE,L14689286); // L112 FALSE;
-    __51E=__F__;
-  };
-  if (__51E) {
-    lisaac_push(&__A1E,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__4AF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__L1E,L19289106); // L147 BLOCK;
-    lisaac_push(&__L1E,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__STE,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__452,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__552,L8792068); // L67 TRUE;
-    lisaac_push_first(&__AA3,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__C1E));
-    lisaac_push(&__STE,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__STE,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__452,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__552,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__AA3,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KCY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__STE,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__452,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__552,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__A1E,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__4AF,L8530438); // L65 FALSE;
-  };
+  __4PG=((____4 *)__BXG);
+  __XHI(__4PG,__UOG,(____L)(__VOG -  1));
+  __WOG=__4PG;
+  return(__WOG);
 }
 
-static void __4II(____0B *__AJI,void *__BJI)
-// ({__0B},{NULLx__Vx__0B}) Void No recursive, No inlinable.
+static void __AAE(____WB *__BAE,____4 *__CAE)
+// ({__WB},{NULLx__HB}) Void No recursive, No inlinable.
 {
-  ____L __CJI,__LJI;
-  ____DB __ZSJ;
-  _____CONTEXT __5II,__1CY,__JJI,__DS3,__ES3,__FS3,__3CR,__KBQ,__KDY;
-  ____G __IS3,__KS3,__MS3;
-  ____4 *__VJI,*__1JI;
-  lisaac_push_first(&__5II,L22952984); // L175 STRING;
-  if (__BJI==NULL) {
-    lisaac_push(&__5II,L23343128); // L178 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else {
-    if (((struct ___OBJ *)__BJI)->__id==____V__) {
-      __CJI=((____V *)__BJI)->__YB;
-    } else /* Other types */ {
-      __CJI=((____0B *)__BJI)->__FC;
-    }
-  };
-  __AJI->__FC=__CJI;
-  lisaac_push(&__5II,L23468056); // L179 STRING;
-  lisaac_push_first(&__1CY,L15224840); // L116 NUMERIC;
-  if ((__CJI >  0)) {
-    lisaac_push(&__5II,L24250904); // L185 STRING;
-    lisaac_push_first(&__1CY,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JJI,L23472152); // L179 STRING;
-    __LJI=__AJI->__SUE;
-    lisaac_push(&__JJI,L23601688); // L180 STRING;
-    lisaac_push_first(&__DS3,L15498248); // L118 NUMERIC;
-    lisaac_push_first(&__ES3,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__FS3,L15224840); // L116 NUMERIC;
-    __IS3=(__LJI > __CJI);
-    lisaac_push(&__ES3,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__FS3,L14700552); // L112 NUMERIC;
-    __KS3=(__LJI == __CJI);
-    if (__IS3) {
-      lisaac_push(&__ES3,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__FS3,L10900996); // L83 TRUE;
-      __MS3=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__ES3,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__FS3,L12342790); // L94 FALSE;
-      __MS3=__KS3;
-    };
-    if (__MS3) {
-      lisaac_push(&__DS3,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__ES3,L13509636); // L103 TRUE;
-      __MS3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__DS3,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__ES3,L14689286); // L112 FALSE;
-      __MS3=__F__;
-    };
-    if (__MS3) {
-      lisaac_push(&__JJI,L23989784); // L183 STRING;
-      lisaac_push_first(&__DS3,L8792068); // L67 TRUE;
-      lisaac_push_first(&__ES3,L23749144); // L181 STRING;
-      __VJI=__WMH(__CJI);
-      __AJI->__IUE=__VJI;
-      __AJI->__SUE=__AJI->__FC;
-    } else /* FALSE */ {
-      lisaac_push(&__JJI,L23989784); // L183 STRING;
-      lisaac_push_first(&__DS3,L8530438); // L65 FALSE;
-    };
-    __VJI=__AJI->__IUE;
-    if (__BJI==NULL) {
-      lisaac_push(&__JJI,L24136728); // L184 STRING;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else {
-      if (((struct ___OBJ *)__BJI)->__id==____V__) {
-        __1JI=((____V *)__BJI)->__ZB;
-      } else /* Other types */ {
-        __1JI=((____0B *)__BJI)->__IUE;
-      }
-    };
-    __CJI=__AJI->__FC;
-    lisaac_push(&__JJI,L24144408); // L184 STRING;
-    lisaac_push_first(&__DS3,L9195016); // L70 NUMERIC;
-    __LJI=(____L)(__CJI -  1);
-    if (__VJI==NULL) {
-      lisaac_push(&__JJI,L24145432); // L184 STRING;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-      lisaac_push(&__JJI,L24145432); // L184 STRING;
-      __W2J(((____4 *)__VJI),__1JI,__LJI);
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__5II,L24250904); // L185 STRING;
-    lisaac_push_first(&__1CY,L8530438); // L65 FALSE;
+  __BAE->__BC= 0;
+  while ((((____4 *)__CAE)[__BAE->__BC] != '\0')) {
+    __BAE->__BC=(____L)(__BAE->__BC +  1);
   };
-  lisaac_push(&__5II,L24381976); // L186 STRING;
-  lisaac_push_first(&__1CY,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__JJI,L7481858); // L57 OBJECT;
-  __ZSJ=((____DB )(top_context->back->back));
-  lisaac_push(&__1CY,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__JJI,L10652676); // L81 TRUE;
-  lisaac_push_first(&__DS3,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__ES3,L24383000); // L186 STRING;
-  __CJI=__AJI->__FC;
-  if (__BJI==NULL) {
-    lisaac_push(&__ES3,L24392728); // L186 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else {
-    if (((struct ___OBJ *)__BJI)->__id==____V__) {
-      __LJI=((____V *)__BJI)->__YB;
-    } else /* Other types */ {
-      __LJI=((____0B *)__BJI)->__FC;
-    }
-  };
-  if ((__CJI == __LJI)) {
-    lisaac_push(&__DS3,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ES3,L13509636); // L103 TRUE;
-    __IS3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__DS3,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ES3,L14689286); // L112 FALSE;
-    __IS3=__F__;
-  };
-  if (__IS3) {
-    lisaac_push(&__1CY,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__JJI,L8792068); // L67 TRUE;
-    lisaac_push_first(&__DS3,L19289106); // L147 BLOCK;
-    lisaac_push(&__DS3,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__ES3,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__FS3,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__3CR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__KBQ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ZSJ));
-    lisaac_push(&__ES3,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__ES3,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__FS3,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__3CR,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__KBQ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KDY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__ES3,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__FS3,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__3CR,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__1CY,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__JJI,L8530438); // L65 FALSE;
+  if (((void *)__BAE->__ZAE != (void *)__CAE)) {
+    __BAE->__ZAE=__CAE;
+    __BAE->__CBE=(____L)(__BAE->__BC +  1);
   };
 }
 
-static void* __YF(____V *__1F)
-// ({__V}) With result No recursive, No inlinable.
+static void __WGH(____WB *__XGH,void *__YGH)
+// ({__WB},{NULLx__Vx__WB}) Void No recursive, No inlinable.
 {
-  ____0B *__3F,*__PG;
-  ____DB __PN;
-  void *__2F;
-  _____CONTEXT __ZF,__NN,__GY,__YN,__CG,__SJF,__OOF,__0JF,__SDY;
-  ____G __1N;
-  ____4 *__GG,*__4F;
-  lisaac_push_first(&__ZF,L4090906); // L31 ENVIRONMENT;
-  __3F=NULL;
-  lisaac_push(&__ZF,L5245466); // L40 ENVIRONMENT;
-  lisaac_push_first(&__NN,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__GY,L7481858); // L57 OBJECT;
-  __PN=((____DB )(top_context->back->back));
-  lisaac_push(&__NN,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__GY,L10652676); // L81 TRUE;
-  lisaac_push_first(&__YN,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__CG,L5246490); // L40 ENVIRONMENT;
-  if (((void *)__1F != (void *)NULL)) {
-    lisaac_push(&__YN,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__CG,L13509636); // L103 TRUE;
-    __1N=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__YN,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__CG,L14689286); // L112 FALSE;
-    __1N=__F__;
-  };
-  if (__1N) {
-    lisaac_push(&__NN,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__GY,L8792068); // L67 TRUE;
-    lisaac_push_first(&__YN,L19289106); // L147 BLOCK;
-    lisaac_push(&__YN,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__CG,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__SJF,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__OOF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0JF,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__PN));
-    lisaac_push(&__CG,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__CG,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__SJF,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__OOF,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__0JF,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__SDY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__CG,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__SJF,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__OOF,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__NN,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__GY,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__ZF,L5526554); // L42 ENVIRONMENT;
-  lisaac_push_first(&__NN,L10493452); // L80 STRING_CONSTANT;
-  __GG=__1F->__ZB;
-  lisaac_push(&__ZF,L5527066); // L42 ENVIRONMENT;
-  lisaac_push_first(&__NN,L9862170); // L75 ENVIRONMENT;
-  __4F=((____4 *)(getenv((char*)(__GG))));
-  if (((void *)__4F != (void *)NULL)) {
-    lisaac_push(&__ZF,L6031898); // L46 ENVIRONMENT;
-    lisaac_push_first(&__NN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GY,L5781530); // L44 ENVIRONMENT;
-    __PG=__1QE();
-    __3F=__PG;
-    if (__PG==NULL) {
-      lisaac_push(&__GY,L5912602); // L45 ENVIRONMENT;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
+  ____L __ZGH;
+  ____4 *__KHH,*__QHH;
+  if (((struct ___OBJ *)__YGH)->__id==____V__) {
+    __ZGH=((____V *)__YGH)->__UB;
+  } else /* STRING */ {
+    __ZGH=((____WB *)__YGH)->__BC;
+  };
+  __XGH->__BC=__ZGH;
+  if ((__ZGH >  0)) {
+    if ((__XGH->__CBE < __ZGH)) {
+      __KHH=__3NG(__ZGH);
+      __XGH->__ZAE=__KHH;
+      __XGH->__CBE=__XGH->__BC;
+    };
+    __KHH=__XGH->__ZAE;
+    if (((struct ___OBJ *)__YGH)->__id==____V__) {
+      __QHH=((____V *)__YGH)->__VB;
     } else /* STRING */ {
-      lisaac_push(&__GY,L5912602); // L45 ENVIRONMENT;
-      __LTE(((____0B *)__PG),__4F);
+      __QHH=((____WB *)__YGH)->__ZAE;
     };
-  } else /* FALSE */ {
-    lisaac_push(&__ZF,L6031898); // L46 ENVIRONMENT;
-    lisaac_push_first(&__NN,L8530438); // L65 FALSE;
+    __DUI(((____4 *)__KHH),__QHH,(____L)(__XGH->__BC -  1));
   };
-  __2F=__3F;
-  return(__2F);
 }
 
-static void __TG(____V *__WG,____L __XG)
+static void __4F(____V *__AG,____L __BG)
 // ({__V},{__L}) Void No recursive, No inlinable.
 {
-  ____L __YG,__YG0,__TH,__YKY,__AY;
-  ____0B *__OLI;
-  _____CONTEXT __UG,__WG0,__2G0,__3G0,__YDY,__QKY,__TKY,__UKY,__VKY;
-  ____G __MA3;
-  lisaac_push_first(&__UG,L14441985); // L110 INSTALL_LISAAC;
-  __YG=__2C;
-  lisaac_push(&__UG,L14695425); // L112 INSTALL_LISAAC;
-  lisaac_push_first(&__WG0,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__2G0,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__3G0,L9195016); // L70 NUMERIC;
-  __YG0=(____L)(-  1);
-  lisaac_push(&__WG0,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__2G0,L9195016); // L70 NUMERIC;
-  __2C=(____L)(__YG - __YG0);
-  lisaac_push(&__UG,L14818305); // L113 INSTALL_LISAAC;
-  lisaac_push_first(&__WG0,L10896400); // L83 CHARACTER;
-  lisaac_push_first(&__2G0,L5005342); // L38 STD_OUTPUT;
-  lisaac_push_first(&__3G0,L18378271); // L140 OUTPUT_STREAM;
-  lisaac_push_first(&__YDY,L6962199); // L53 SYSTEM_IO;
+  ____WB *__KWY;
+  ____L __MWY,__1U;
+  ____4 *__LWY;
+  __WC=(____L)(__WC +  1);
   fputc((int)('\n'),stdout);
-  if ((__XG ==  0)) {
-    lisaac_push(&__UG,L16124417); // L123 INSTALL_LISAAC;
-    lisaac_push_first(&__WG0,L6825988); // L52 TRUE;
-    lisaac_push_first(&__2G0,L14950913); // L114 INSTALL_LISAAC;
-    if (__AH==NULL) {
-      lisaac_push(&__2G0,L15086593); // L115 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__2G0,L15086593); // L115 INSTALL_LISAAC;
-      __4II(((____0B *)__AH),__WG);
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__UG,L16124417); // L123 INSTALL_LISAAC;
-    lisaac_push_first(&__WG0,L6826502); // L52 FALSE;
-    lisaac_push_first(&__2G0,L15210497); // L116 INSTALL_LISAAC;
-    if (__AH==NULL) {
-      lisaac_push(&__2G0,L15350785); // L117 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__2G0,L15350785); // L117 INSTALL_LISAAC;
-      __4II(((____0B *)__AH),(&__string_115));
-    };
-    lisaac_push(&__2G0,L15485953); // L118 INSTALL_LISAAC;
-    __LT(__2C,__AH);
-    if (__AH==NULL) {
-      lisaac_push(&__2G0,L15612929); // L119 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__2G0,L15612929); // L119 INSTALL_LISAAC;
-      __PRG(((____0B *)__AH),'/');
-    };
-    lisaac_push(&__2G0,L15744001); // L120 INSTALL_LISAAC;
-    __LT(__XG,__AH);
-    if (__AH==NULL) {
-      lisaac_push(&__2G0,L15875073); // L121 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__2G0,L15875073); // L121 INSTALL_LISAAC;
-      __PLI(((____0B *)__AH),(&__string_116));
-    };
-    if (__AH==NULL) {
-      lisaac_push(&__2G0,L16005121); // L122 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__2G0,L16005121); // L122 INSTALL_LISAAC;
-      __PLI(((____0B *)__AH),__WG);
-    };
-  };
-  if (__AH==NULL) {
-    lisaac_push(&__UG,L16267777); // L124 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__UG,L16267777); // L124 INSTALL_LISAAC;
-    __PRG(((____0B *)__AH),'\n');
+  if ((__BG ==  0)) {
+    __WGH(((____WB *)__JG),__AG);
+  } else /* FALSE */ {
+    __WGH(((____WB *)__JG),(&__string_110));
+    __HR(__WC,__JG);
+    __KWY=((____WB *)__JG);
+    if ((__KWY->__CBE <= __KWY->__BC)) {
+      if ((__KWY->__CBE ==  0)) {
+        __KWY->__CBE= 32;
+        __LWY=__3NG( 32);
+        __KWY->__ZAE=__LWY;
+      } else /* FALSE */ {
+        __MWY=(____L)(__KWY->__CBE <<  1);
+        __LWY=__SOG(((____4 *)__KWY->__ZAE),__KWY->__CBE,__MWY);
+        __KWY->__ZAE=__LWY;
+        __KWY->__CBE=__MWY;
+      };
+    };
+    ((____4 *)__KWY->__ZAE)[__KWY->__BC]='/';
+    __KWY->__BC=(____L)(__KWY->__BC +  1);
+    __HR(__BG,__JG);
+    __4IH(((____WB *)__JG),(&__string_111));
+    __4IH(((____WB *)__JG),__AG);
+  };
+  __KWY=((____WB *)__JG);
+  if ((__KWY->__CBE <= __KWY->__BC)) {
+    if ((__KWY->__CBE ==  0)) {
+      __KWY->__CBE= 32;
+      __LWY=__3NG( 32);
+      __KWY->__ZAE=__LWY;
+    } else /* FALSE */ {
+      __MWY=(____L)(__KWY->__CBE <<  1);
+      __LWY=__SOG(((____4 *)__KWY->__ZAE),__KWY->__CBE,__MWY);
+      __KWY->__ZAE=__LWY;
+      __KWY->__CBE=__MWY;
+    };
+  };
+  ((____4 *)__KWY->__ZAE)[__KWY->__BC]='\n';
+  __KWY->__BC=(____L)(__KWY->__BC +  1);
+  __FSC(((____WB *)__JG));
+  __MWY=(____L)(__JG->__BC -  1);
+  __1U= 1;
+  while ((__1U <= __MWY)) {
+    fputc((int)('='),stdout);
+    __1U=(____L)(__1U +  1);
   };
-  if (__AH==NULL) {
-    lisaac_push(&__UG,L16394753); // L125 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__UG,L16394753); // L125 INSTALL_LISAAC;
-    __OLI=((____0B *)__AH);
-    lisaac_push_first(&__WG0,L167652365); // L1279 ABSTRACT_STRING;
-    __N4C(__OLI);
-  };
-  if (__AH==NULL) {
-    lisaac_push(&__UG,L16528897); // L126 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    __TH=__AH->__FC;
-  };
-  lisaac_push(&__UG,L16529409); // L126 INSTALL_LISAAC;
-  lisaac_push_first(&__WG0,L9195016); // L70 NUMERIC;
-  __YG=(____L)(__TH -  1);
-  lisaac_push(&__UG,L16779777); // L128 INSTALL_LISAAC;
-  __YG0= 1;
-  lisaac_push_first(&__WG0,L20989960); // L160 NUMERIC;
-  __UX:
-  {
-    lisaac_push(&__WG0,L21370888); // L163 NUMERIC;
-    lisaac_push_first(&__2G0,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__3G0,L15224840); // L116 NUMERIC;
-    if ((__YG0 > __YG)) {
-      lisaac_push(&__2G0,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__3G0,L13509636); // L103 TRUE;
-      __MA3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__2G0,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__3G0,L14689286); // L112 FALSE;
-      __MA3=__F__;
-    };
-    if (__MA3) {
-      lisaac_push(&__WG0,L21760520); // L166 NUMERIC;
-      lisaac_push_first(&__2G0,L8792068); // L67 TRUE;
-      lisaac_push_first(&__3G0,L21506056); // L164 NUMERIC;
-      lisaac_push_first(&__YDY,L16653825); // L127 INSTALL_LISAAC;
-      lisaac_push_first(&__QKY,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__TKY,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__UKY,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__VKY,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('='),stdout);
-      lisaac_push(&__3G0,L21633544); // L165 NUMERIC;
-      lisaac_push_first(&__YDY,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__QKY,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__TKY,L9195016); // L70 NUMERIC;
-      __YKY=(____L)(-  1);
-      lisaac_push(&__YDY,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__QKY,L9195016); // L70 NUMERIC;
-      __AY=(____L)(__YG0 - __YKY);
-      lisaac_push(&__3G0,L21644808); // L165 NUMERIC;
-      __YG0=__AY;
-      goto __UX;
-    } else /* FALSE */ {
-      lisaac_push(&__WG0,L21760520); // L166 NUMERIC;
-      lisaac_push_first(&__2G0,L8530438); // L65 FALSE;
-    };
-  };
-  lisaac_push(&__UG,L16915457); // L129 INSTALL_LISAAC;
-  lisaac_push_first(&__WG0,L10896400); // L83 CHARACTER;
-  lisaac_push_first(&__2G0,L5005342); // L38 STD_OUTPUT;
-  lisaac_push_first(&__3G0,L18378271); // L140 OUTPUT_STREAM;
-  lisaac_push_first(&__YDY,L6962199); // L53 SYSTEM_IO;
   fputc((int)('\n'),stdout);
 }
 
-static ____L __F1I(____0B *__H1I,____V *__I1I)
-// ({__0B},{NULLx__V}) With result No recursive, No inlinable.
+static ____L __VWH(____WB *__WWH,____V *__XWH)
+// ({__WB},{NULLx__V}) With result No recursive, No inlinable.
 {
-  ____DB __GAK;
-  ____V *__QYN;
-  ____L __SYN,__HBK,__UBK,__ILY,__VBK,__HCK,__I4Y,__2CK,__EDK,__J1I;
-  _____CONTEXT __G1I,__EAK,__ZPL,__PAK,__N1I,__PYN,__ORW,__JVV,__DLY;
-  _____CONTEXT __FI0,__GI0,__4QZ,__5QZ;
-  ____G __P1I,__PCK,__LDK;
-  ____4 __HDK,__IDK;
-  lisaac_push_first(&__G1I,L139201037); // L1062 ABSTRACT_STRING;
-  lisaac_push_first(&__EAK,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__ZPL,L7481858); // L57 OBJECT;
-  __GAK=((____DB )(top_context->back->back));
-  lisaac_push(&__EAK,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__ZPL,L10652676); // L81 TRUE;
-  lisaac_push_first(&__PAK,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__N1I,L139202061); // L1062 ABSTRACT_STRING;
-  if (__I1I==NULL) {
-    lisaac_push(&__N1I,L139210765); // L1062 ABSTRACT_STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING_CONSTANT */ {
-    lisaac_push(&__N1I,L139210765); // L1062 ABSTRACT_STRING;
-    __QYN=((____V *)__I1I);
-    lisaac_push_first(&__PYN,L17439245); // L133 ABSTRACT_STRING;
-    __SYN=__QYN->__YB;
-    lisaac_push(&__PYN,L17449997); // L133 ABSTRACT_STRING;
-    lisaac_push_first(&__ORW,L14700552); // L112 NUMERIC;
-    __P1I=(__SYN ==  0);
-  };
-  if (__P1I) {
-    lisaac_push(&__N1I,L139202573); // L1062 ABSTRACT_STRING;
-    lisaac_push_first(&__PYN,L13509636); // L103 TRUE;
-    __P1I=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__N1I,L139202573); // L1062 ABSTRACT_STRING;
-    lisaac_push_first(&__PYN,L14689286); // L112 FALSE;
-    __P1I=__F__;
-  };
-  if (__P1I) {
-    lisaac_push(&__PAK,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__N1I,L13509636); // L103 TRUE;
-    __P1I=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__PAK,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__N1I,L14689286); // L112 FALSE;
-    __P1I=__F__;
-  };
-  if (__P1I) {
-    lisaac_push(&__EAK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__ZPL,L8792068); // L67 TRUE;
-    lisaac_push_first(&__PAK,L19289106); // L147 BLOCK;
-    lisaac_push(&__PAK,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__N1I,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__PYN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__ORW,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JVV,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__GAK));
-    lisaac_push(&__N1I,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__N1I,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__PYN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__ORW,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__JVV,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__DLY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__N1I,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__PYN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__ORW,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__EAK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__ZPL,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__G1I,L139592717); // L1065 ABSTRACT_STRING;
-  lisaac_push_first(&__EAK,L135430157); // L1033 ABSTRACT_STRING;
-  __SYN= 0;
-  __HBK= 0;
-  lisaac_push(&__EAK,L136186381); // L1039 ABSTRACT_STRING;
-  lisaac_push_first(&__ZPL,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__PAK,L7481858); // L57 OBJECT;
-  __GAK=((____DB )(top_context->back->back));
-  lisaac_push(&__ZPL,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__PAK,L10652676); // L81 TRUE;
-  lisaac_push_first(&__N1I,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__PYN,L136198157); // L1039 ABSTRACT_STRING;
-  lisaac_push_first(&__ORW,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JVV,L136199181); // L1039 ABSTRACT_STRING;
-  __UBK=__H1I->__FC;
-  lisaac_push(&__JVV,L136210957); // L1039 ABSTRACT_STRING;
-  lisaac_push_first(&__DLY,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__FI0,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__GI0,L9195016); // L70 NUMERIC;
-  __ILY=(____L)(-  1);
-  lisaac_push(&__DLY,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__FI0,L9195016); // L70 NUMERIC;
-  __VBK=(____L)(__UBK - __ILY);
-  lisaac_push(&__JVV,L136206861); // L1039 ABSTRACT_STRING;
-  lisaac_push_first(&__DLY,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__FI0,L15224840); // L116 NUMERIC;
-  if (( 1 > __VBK)) {
-    lisaac_push(&__DLY,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__FI0,L13509636); // L103 TRUE;
-    __P1I=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__DLY,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__FI0,L14689286); // L112 FALSE;
-    __P1I=__F__;
-  };
-  if (__P1I) {
-    lisaac_push(&__N1I,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__PYN,L13509636); // L103 TRUE;
-    __P1I=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__N1I,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__PYN,L14689286); // L112 FALSE;
-    __P1I=__F__;
-  };
-  if (__P1I) {
-    lisaac_push(&__ZPL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__PAK,L8792068); // L67 TRUE;
-    lisaac_push_first(&__N1I,L19289106); // L147 BLOCK;
-    lisaac_push(&__N1I,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__PYN,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__ORW,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__JVV,L8792068); // L67 TRUE;
-    lisaac_push_first(&__DLY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__GAK));
-    lisaac_push(&__PYN,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__PYN,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__ORW,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__JVV,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__DLY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__FI0,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__PYN,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__ORW,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__JVV,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__ZPL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__PAK,L8530438); // L65 FALSE;
-  };
-  __UBK= 1;
-  lisaac_push(&__EAK,L138021389); // L1053 ABSTRACT_STRING;
-  lisaac_push_first(&__ZPL,L11802642); // L90 BLOCK;
-  __NRL:
-  {
-    lisaac_push(&__ZPL,L11802642); // L90 BLOCK;
-    lisaac_push_first(&__PAK,L136579597); // L1042 ABSTRACT_STRING;
-    if ((__HBK !=  0)) {
-      lisaac_push(&__PAK,L136587789); // L1042 ABSTRACT_STRING;
-      lisaac_push_first(&__N1I,L10377220); // L79 TRUE;
-      __PCK=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__PAK,L136587789); // L1042 ABSTRACT_STRING;
-      lisaac_push_first(&__N1I,L11832326); // L90 FALSE;
-      lisaac_push_first(&__PYN,L136588813); // L1042 ABSTRACT_STRING;
-      if (__I1I==NULL) {
-        lisaac_push(&__PYN,L136597517); // L1042 ABSTRACT_STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING_CONSTANT */ {
-        __HCK=__I1I->__YB;
-      };
-      lisaac_push(&__PYN,L136590861); // L1042 ABSTRACT_STRING;
-      lisaac_push_first(&__ORW,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__JVV,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__DLY,L9195016); // L70 NUMERIC;
-      __I4Y=(____L)(- __HCK);
-      lisaac_push(&__ORW,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__JVV,L9195016); // L70 NUMERIC;
-      __HCK=(____L)(__UBK - __I4Y);
-      lisaac_push(&__PYN,L136598029); // L1042 ABSTRACT_STRING;
-      lisaac_push_first(&__ORW,L9195016); // L70 NUMERIC;
-      __I4Y=(____L)(__HCK -  1);
-      __HCK=__H1I->__FC;
-      lisaac_push(&__PYN,L136600589); // L1042 ABSTRACT_STRING;
-      lisaac_push_first(&__ORW,L15224840); // L116 NUMERIC;
-      __PCK=(__I4Y > __HCK);
-    };
-    if (__PCK) {
-      lisaac_push(&__ZPL,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__PAK,L13509636); // L103 TRUE;
-      __PCK=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__ZPL,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__PAK,L14689286); // L112 FALSE;
-      __PCK=__F__;
-    };
-    if (__PCK) {
-      lisaac_push(&__ZPL,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__PAK,L8792068); // L67 TRUE;
-      lisaac_push_first(&__N1I,L11935762); // L91 BLOCK;
-      lisaac_push_first(&__PYN,L136610829); // L1042 ABSTRACT_STRING;
-      __SYN= 1;
-      lisaac_push(&__PYN,L137104909); // L1046 ABSTRACT_STRING;
-      lisaac_push_first(&__ORW,L11802642); // L90 BLOCK;
-      __XJQ:
-      {
-        lisaac_push(&__ORW,L11802642); // L90 BLOCK;
-        lisaac_push_first(&__JVV,L136842765); // L1044 ABSTRACT_STRING;
-        if (__I1I==NULL) {
-          lisaac_push(&__JVV,L136850957); // L1044 ABSTRACT_STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING_CONSTANT */ {
-          __2CK=__I1I->__YB;
-        };
-        lisaac_push(&__JVV,L136844813); // L1044 ABSTRACT_STRING;
-        lisaac_push_first(&__DLY,L15224840); // L116 NUMERIC;
-        if ((__SYN > __2CK)) {
-          lisaac_push(&__JVV,L136853005); // L1044 ABSTRACT_STRING;
-          lisaac_push_first(&__DLY,L10377220); // L79 TRUE;
-          __LDK=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__JVV,L136853005); // L1044 ABSTRACT_STRING;
-          lisaac_push_first(&__DLY,L11832326); // L90 FALSE;
-          lisaac_push_first(&__FI0,L136858637); // L1044 ABSTRACT_STRING;
-          lisaac_push_first(&__GI0,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__4QZ,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__5QZ,L9195016); // L70 NUMERIC;
-          __2CK=(____L)(- __SYN);
-          lisaac_push(&__GI0,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__4QZ,L9195016); // L70 NUMERIC;
-          __EDK=(____L)(__UBK - __2CK);
-          lisaac_push(&__FI0,L136860685); // L1044 ABSTRACT_STRING;
-          lisaac_push_first(&__GI0,L9195016); // L70 NUMERIC;
-          __2CK=(____L)(__EDK -  1);
-          lisaac_push(&__FI0,L136862733); // L1044 ABSTRACT_STRING;
-          __HDK=__GCJ(__H1I,__2CK);
-          if (__I1I==NULL) {
-            lisaac_push(&__FI0,L136870413); // L1044 ABSTRACT_STRING;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING_CONSTANT */ {
-            lisaac_push(&__FI0,L136870413); // L1044 ABSTRACT_STRING;
-            __IDK=__04D(((____V *)__I1I),__SYN);
-          };
-          __LDK=(__HDK != __IDK);
-        };
-        if (__LDK) {
-          lisaac_push(&__ORW,L11799570); // L90 BLOCK;
-          lisaac_push_first(&__JVV,L13509636); // L103 TRUE;
-          __LDK=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__ORW,L11799570); // L90 BLOCK;
-          lisaac_push_first(&__JVV,L14689286); // L112 FALSE;
-          __LDK=__F__;
-        };
-        if (__LDK) {
-          lisaac_push(&__ORW,L12192274); // L93 BLOCK;
-          lisaac_push_first(&__JVV,L8792068); // L67 TRUE;
-          lisaac_push_first(&__DLY,L11935762); // L91 BLOCK;
-          lisaac_push_first(&__FI0,L136978445); // L1045 ABSTRACT_STRING;
-          lisaac_push_first(&__GI0,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__4QZ,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__5QZ,L9195016); // L70 NUMERIC;
-          __2CK=(____L)(-  1);
-          lisaac_push(&__GI0,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__4QZ,L9195016); // L70 NUMERIC;
-          __SYN=(____L)(__SYN - __2CK);
-          lisaac_push(&__DLY,L12068370); // L92 BLOCK;
-          goto __XJQ;
-        } else /* FALSE */ {
-          lisaac_push(&__ORW,L12192274); // L93 BLOCK;
-          lisaac_push_first(&__JVV,L8530438); // L65 FALSE;
-        };
-      };
-      if (__I1I==NULL) {
-        lisaac_push(&__PYN,L137374733); // L1048 ABSTRACT_STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING_CONSTANT */ {
-        __2CK=__I1I->__YB;
-      };
-      lisaac_push(&__PYN,L137368589); // L1048 ABSTRACT_STRING;
-      lisaac_push_first(&__ORW,L15224840); // L116 NUMERIC;
-      if ((__SYN > __2CK)) {
-        lisaac_push(&__PYN,L137891341); // L1052 ABSTRACT_STRING;
-        lisaac_push_first(&__ORW,L6825988); // L52 TRUE;
-        lisaac_push_first(&__JVV,L137377805); // L1048 ABSTRACT_STRING;
-        __HBK=__UBK;
-      } else /* FALSE */ {
-        lisaac_push(&__PYN,L137891341); // L1052 ABSTRACT_STRING;
-        lisaac_push_first(&__ORW,L6826502); // L52 FALSE;
-        lisaac_push_first(&__JVV,L137764877); // L1051 ABSTRACT_STRING;
-        lisaac_push_first(&__DLY,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__FI0,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__GI0,L9195016); // L70 NUMERIC;
-        __2CK=(____L)(-  1);
-        lisaac_push(&__DLY,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__FI0,L9195016); // L70 NUMERIC;
-        __UBK=(____L)(__UBK - __2CK);
-      };
-      lisaac_push(&__N1I,L12068370); // L92 BLOCK;
-      goto __NRL;
-    } else /* FALSE */ {
-      lisaac_push(&__ZPL,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__PAK,L8530438); // L65 FALSE;
-    };
-  };
-  __J1I=__HBK;
-  return(__J1I);
+  ____L __BYI,__DYI,__CYI,__YPY,__ZPY,__0PY,__2PY,__YWH;
+  ____4 *__1PY,*__VWY;
+  __BYI= 0;
+  __DYI= 0;
+  __CYI= 1;
+  __YPY=__XWH->__UB;
+  __ZPY=__WWH->__BC;
+  __0PY=__XWH->__UB;
+  __1PY=__WWH->__ZAE;
+  __2PY=__XWH->__UB;
+  __VWY=((____V *)__XWH)->__VB;
+  while ((! ((__DYI !=  0) || ((____L)((____L)(__CYI + __YPY) -  1) > __ZPY)))) {
+    __BYI= 1;
+    while ((! ((__BYI > __0PY) || (((____4 *)__1PY)[(____L)((____L)((____L)(__CYI + __BYI) -  1) -  1)] != ((____4 *)__VWY)[(____L)(__BYI -  1)])))) {
+      __BYI=(____L)(__BYI +  1);
+    };
+    if ((__BYI > __2PY)) {
+      __DYI=__CYI;
+    } else /* FALSE */ {
+      __CYI=(____L)(__CYI +  1);
+    };
+  };
+  __YWH=__DYI;
+  return(__YWH);
 }
 
-static void __PLI(____0B *__RLI,void *__SLI)
-// ({__0B},{NULLx__Vx__0B}) Void No recursive, No inlinable.
+static void __4IH(____WB *__5IH,void *__AJH)
+// ({__WB},{NULLx__Vx__WB}) Void No recursive, No inlinable.
 {
-  ____DB __3UJ;
-  ____L __2LI,__3LI,__WI0,__4LI,__XMI;
-  _____CONTEXT __QLI,__1UJ,__43K,__GVJ,__YLI,__XBQ,__JDR,__5BQ,__KEY;
-  ____G __JVJ,__0S3,__2S3;
-  ____4 *__PMI,*__YMI;
-  lisaac_push_first(&__QLI,L27396632); // L209 STRING;
-  lisaac_push_first(&__1UJ,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__43K,L7481858); // L57 OBJECT;
-  __3UJ=((____DB )(top_context->back->back));
-  lisaac_push(&__1UJ,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__43K,L10652676); // L81 TRUE;
-  lisaac_push_first(&__GVJ,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__YLI,L27397656); // L209 STRING;
-  if (((void *)__SLI != (void *)NULL)) {
-    lisaac_push(&__GVJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__YLI,L13509636); // L103 TRUE;
-    __JVJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__GVJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__YLI,L14689286); // L112 FALSE;
-    __JVJ=__F__;
-  };
-  if (__JVJ) {
-    lisaac_push(&__1UJ,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__43K,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GVJ,L19289106); // L147 BLOCK;
-    lisaac_push(&__GVJ,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__YLI,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__XBQ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__JDR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__5BQ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__3UJ));
-    lisaac_push(&__YLI,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__YLI,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__XBQ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__JDR,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__5BQ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KEY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YLI,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__XBQ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__JDR,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__1UJ,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__43K,L8530438); // L65 FALSE;
-  };
-  if (__SLI==NULL) {
-    lisaac_push(&__QLI,L27671576); // L211 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else {
-    if (((struct ___OBJ *)__SLI)->__id==____V__) {
-      __2LI=((____V *)__SLI)->__YB;
-    } else /* Other types */ {
-      __2LI=((____0B *)__SLI)->__FC;
-    }
-  };
-  __3LI=__RLI->__FC;
-  lisaac_push(&__QLI,L27802648); // L212 STRING;
-  lisaac_push_first(&__1UJ,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__43K,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__GVJ,L9195016); // L70 NUMERIC;
-  __WI0=(____L)(- __2LI);
-  lisaac_push(&__1UJ,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__43K,L9195016); // L70 NUMERIC;
-  __4LI=(____L)(__3LI - __WI0);
-  __3LI=__RLI->__SUE;
-  lisaac_push(&__QLI,L27926040); // L213 STRING;
-  lisaac_push_first(&__1UJ,L15498248); // L118 NUMERIC;
-  lisaac_push_first(&__43K,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__GVJ,L15224840); // L116 NUMERIC;
-  __JVJ=(__3LI > __4LI);
-  lisaac_push(&__43K,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__GVJ,L14700552); // L112 NUMERIC;
-  __0S3=(__3LI == __4LI);
-  if (__JVJ) {
-    lisaac_push(&__43K,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__GVJ,L10900996); // L83 TRUE;
-    __2S3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__43K,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__GVJ,L12342790); // L94 FALSE;
-    __2S3=__0S3;
-  };
-  if (__2S3) {
-    lisaac_push(&__1UJ,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__43K,L13509636); // L103 TRUE;
-    __2S3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__1UJ,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__43K,L14689286); // L112 FALSE;
-    __2S3=__F__;
+  ____L __JJH,__LJH;
+  ____4 *__0JH,*__HKH;
+  if (((struct ___OBJ *)__AJH)->__id==____V__) {
+    __JJH=((____V *)__AJH)->__UB;
+  } else /* STRING */ {
+    __JJH=((____WB *)__AJH)->__BC;
   };
-  if (__2S3) {
-    lisaac_push(&__QLI,L28969496); // L221 STRING;
-    lisaac_push_first(&__1UJ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__43K,L27937304); // L213 STRING;
-    if ((__RLI->__SUE ==  0)) {
-      lisaac_push(&__43K,L28839448); // L220 STRING;
-      lisaac_push_first(&__GVJ,L6825988); // L52 TRUE;
-      lisaac_push_first(&__YLI,L28062232); // L214 STRING;
-      __RLI->__SUE=__4LI;
-      lisaac_push(&__YLI,L28338200); // L216 STRING;
-      __PMI=__WMH(__4LI);
-      __RLI->__IUE=__PMI;
+  __LJH=(____L)(__5IH->__BC + __JJH);
+  if ((__5IH->__CBE < __LJH)) {
+    if ((__5IH->__CBE ==  0)) {
+      __5IH->__CBE=__LJH;
+      __0JH=__3NG(__LJH);
+      __5IH->__ZAE=__0JH;
     } else /* FALSE */ {
-      lisaac_push(&__43K,L28839448); // L220 STRING;
-      lisaac_push_first(&__GVJ,L6826502); // L52 FALSE;
-      lisaac_push_first(&__YLI,L28449816); // L217 STRING;
-      __PMI=__RLI->__IUE;
-      __XMI=__RLI->__SUE;
-      if (__PMI==NULL) {
-        lisaac_push(&__YLI,L28603416); // L218 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-        lisaac_push(&__YLI,L28603416); // L218 STRING;
-        __YMI=__ONH(((____4 *)__PMI),__XMI,__4LI);
-      };
-      __RLI->__IUE=__YMI;
-      __RLI->__SUE=__4LI;
+      __0JH=__SOG(((____4 *)__5IH->__ZAE),__5IH->__CBE,__LJH);
+      __5IH->__ZAE=__0JH;
+      __5IH->__CBE=__LJH;
     };
-  } else /* FALSE */ {
-    lisaac_push(&__QLI,L28969496); // L221 STRING;
-    lisaac_push_first(&__1UJ,L8530438); // L65 FALSE;
-  };
-  __PMI=__RLI->__IUE;
-  if (__SLI==NULL) {
-    lisaac_push(&__QLI,L29113880); // L222 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else {
-    if (((struct ___OBJ *)__SLI)->__id==____V__) {
-      __YMI=((____V *)__SLI)->__ZB;
-    } else /* Other types */ {
-      __YMI=((____0B *)__SLI)->__IUE;
-    }
   };
-  __3LI=__RLI->__FC;
-  if (__PMI==NULL) {
-    lisaac_push(&__QLI,L29128216); // L222 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__QLI,L29128216); // L222 STRING;
-    __CWJ(((____4 *)__PMI),__YMI,__3LI,__2LI);
-  };
-  __RLI->__FC=__4LI;
-}
-
-static void __N4C(void *__Q4C)
-// ({__Vx__0B}) Void No recursive, No inlinable.
-{
-  ____DB __2JD;
-  ____L __E5C,__ZKD,__0KD,__AYY,__DLD;
-  _____CONTEXT __O4C,__0JD,__IOD,__FKD,__34C,__HMF,__LQF,__PMF,__LGY;
-  ____G __IKD,__2A3;
-  ____4 __M5C,__N5C;
-  lisaac_push_first(&__O4C,L6031903); // L46 OUTPUT_STREAM;
-  lisaac_push_first(&__0JD,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__IOD,L7481858); // L57 OBJECT;
-  __2JD=((____DB )(top_context->back->back));
-  lisaac_push(&__0JD,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__IOD,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FKD,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__34C,L6032927); // L46 OUTPUT_STREAM;
-  if (((void *)__Q4C != (void *)NULL)) {
-    lisaac_push(&__FKD,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__34C,L13509636); // L103 TRUE;
-    __IKD=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FKD,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__34C,L14689286); // L112 FALSE;
-    __IKD=__F__;
-  };
-  if (__IKD) {
-    lisaac_push(&__0JD,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__IOD,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FKD,L19289106); // L147 BLOCK;
-    lisaac_push(&__FKD,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__34C,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__HMF,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__LQF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__PMF,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__2JD));
-    lisaac_push(&__34C,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__34C,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__HMF,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__LQF,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__PMF,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__LGY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__34C,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__HMF,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__LQF,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0JD,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__IOD,L8530438); // L65 FALSE;
-  };
-  if (((struct ___OBJ *)__Q4C)->__id==____V__) {
-    __E5C=((____V *)__Q4C)->__YB;
+  __0JH=__5IH->__ZAE;
+  if (((struct ___OBJ *)__AJH)->__id==____V__) {
+    __HKH=((____V *)__AJH)->__VB;
   } else /* STRING */ {
-    __E5C=((____0B *)__Q4C)->__FC;
-  };
-  lisaac_push(&__O4C,L6556191); // L50 OUTPUT_STREAM;
-  __ZKD= 1;
-  __0KD=__E5C;
-  lisaac_push_first(&__0JD,L20989960); // L160 NUMERIC;
-  __XKD:
-  {
-    lisaac_push(&__0JD,L21370888); // L163 NUMERIC;
-    lisaac_push_first(&__IOD,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__FKD,L15224840); // L116 NUMERIC;
-    if ((__ZKD > __0KD)) {
-      lisaac_push(&__IOD,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__FKD,L13509636); // L103 TRUE;
-      __2A3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__IOD,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__FKD,L14689286); // L112 FALSE;
-      __2A3=__F__;
-    };
-    if (__2A3) {
-      lisaac_push(&__0JD,L21760520); // L166 NUMERIC;
-      lisaac_push_first(&__IOD,L8792068); // L67 TRUE;
-      lisaac_push_first(&__FKD,L21506056); // L164 NUMERIC;
-      lisaac_push_first(&__34C,L6307359); // L48 OUTPUT_STREAM;
-      if (((struct ___OBJ *)__Q4C)->__id==____V__) {
-        lisaac_push(&__34C,L6437407); // L49 OUTPUT_STREAM;
-        __M5C=__04D(((____V *)__Q4C),__ZKD);
-      } else /* STRING */ {
-        lisaac_push(&__34C,L6437407); // L49 OUTPUT_STREAM;
-        __M5C=__GCJ(((____0B *)((____V *)__Q4C)),__ZKD);
-      };
-      __N5C=__M5C;
-      lisaac_push(&__34C,L6437919); // L49 OUTPUT_STREAM;
-      lisaac_push_first(&__HMF,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__LQF,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__PMF,L6962199); // L53 SYSTEM_IO;
-      fputc((int)(__N5C),stdout);
-      lisaac_push(&__FKD,L21633544); // L165 NUMERIC;
-      lisaac_push_first(&__34C,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__HMF,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__LQF,L9195016); // L70 NUMERIC;
-      __AYY=(____L)(-  1);
-      lisaac_push(&__34C,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__HMF,L9195016); // L70 NUMERIC;
-      __DLD=(____L)(__ZKD - __AYY);
-      lisaac_push(&__FKD,L21644808); // L165 NUMERIC;
-      __ZKD=__DLD;
-      goto __XKD;
-    } else /* FALSE */ {
-      lisaac_push(&__0JD,L21760520); // L166 NUMERIC;
-      lisaac_push_first(&__IOD,L8530438); // L65 FALSE;
-    };
+    __HKH=((____WB *)__AJH)->__ZAE;
   };
+  __LOI(((____4 *)__0JH),__HKH,__5IH->__BC,__JJH);
+  __5IH->__BC=__LJH;
 }
 
-static ____L __FR(____V *__IR,____V *__JR,____L __KR)
+static ____L __KP(____V *__MP,____V *__NP,____L __OP)
 // ({__V},{__V},{__L}) With result No recursive, No inlinable.
 {
-  ____L __MR,__OBL,__RBL,__NBL,__5BL,__XDL,__JFL,__KFL,__LYZ,__LR;
-  ____DB __HGD,__MOM;
-  ____0B *__CB3,*__WGZ,*__CYZ;
-  _____CONTEXT __GR,__QSY,__TSY,__USY,__VSY,__AMD,__QGD,__E4C,__A4D;
-  _____CONTEXT __RGE,__K4D,__KGZ,__LGZ,__CHZ,__JIW,__BDL,__FYZ,__GYZ;
-  _____CONTEXT __EXX,__PYZ,__QYZ;
-  ____4 __M4D,__DC3,__ICL;
-  ____G __H4C,__MID,__XBL,__YOM,__JPM,__PCL,__WCL,__EIW;
-  lisaac_push_first(&__GR,L19143681); // L146 INSTALL_LISAAC;
-  lisaac_push_first(&__QSY,L10896400); // L83 CHARACTER;
-  lisaac_push_first(&__TSY,L5005342); // L38 STD_OUTPUT;
-  lisaac_push_first(&__USY,L18378271); // L140 OUTPUT_STREAM;
-  lisaac_push_first(&__VSY,L6962199); // L53 SYSTEM_IO;
+  ____L __QP,__0WY,__5WY,__PMH,__OXY,__RPH,__XUJ,__TUJ,__QXY,__SXY;
+  ____L __BXJ,__PP;
+  ____WB *__YWY,*__3WY;
+  ____4 __TZC,__2WY,__JNH,__LVJ;
+  ____4 *__ZWY,*__4WY;
+  ____G __SMH,__TMH,__BOH,__RGT,__GXY,__BSH,__CIT;
   fputc((int)('\n'),stdout);
-  lisaac_push(&__GR,L19277313); // L147 INSTALL_LISAAC;
-  __TG(__IR, 0);
-  lisaac_push(&__GR,L19405313); // L148 INSTALL_LISAAC;
-  __DX(__JR);
-  lisaac_push(&__GR,L19542529); // L149 INSTALL_LISAAC;
-  __DX((&__string_117));
-  lisaac_push(&__GR,L19668481); // L150 INSTALL_LISAAC;
-  lisaac_push_first(&__QSY,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__TSY,L9195016); // L70 NUMERIC;
-  __MR=(____L)(-  1);
-  lisaac_push(&__GR,L21641217); // L165 INSTALL_LISAAC;
-  lisaac_push_first(&__QSY,L10621458); // L81 BLOCK;
-  __UU:
-  {
-    lisaac_push(&__QSY,L10621458); // L81 BLOCK;
-    lisaac_push_first(&__TSY,L19932161); // L152 INSTALL_LISAAC;
-    lisaac_push_first(&__USY,L43387421); // L331 INPUT_STREAM;
-    lisaac_push_first(&__VSY,L19150866); // L146 BLOCK;
-    lisaac_push_first(&__AMD,L7481858); // L57 OBJECT;
-    __HGD=((____DB )(top_context->back->back));
-    lisaac_push(&__VSY,L19280914); // L147 BLOCK;
-    lisaac_push_first(&__AMD,L10652676); // L81 TRUE;
-    lisaac_push_first(&__QGD,L19285522); // L147 BLOCK;
-    lisaac_push_first(&__E4C,L43396125); // L331 INPUT_STREAM;
-    lisaac_push_first(&__A4D,L9701916); // L74 STD_INPUT;
-    lisaac_push_first(&__RGE,L8792068); // L67 TRUE;
-    lisaac_push_first(&__K4D,L9451036); // L72 STD_INPUT;
-    __M4D=__N1C;
-    lisaac_push(&__K4D,L9587740); // L73 STD_INPUT;
-    lisaac_push_first(&__KGZ,L62674973); // L478 INPUT_STREAM;
-    lisaac_push_first(&__LGZ,L8785431); // L67 SYSTEM_IO;
-    if ((__M4D == ((____4 )(EOF)))) {
-      lisaac_push(&__E4C,L43389469); // L331 INPUT_STREAM;
-      lisaac_push_first(&__A4D,L13509636); // L103 TRUE;
-      __H4C=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__E4C,L43389469); // L331 INPUT_STREAM;
-      lisaac_push_first(&__A4D,L14689286); // L112 FALSE;
-      __H4C=__F__;
-    };
-    if (__H4C) {
-      lisaac_push(&__QGD,L19282450); // L147 BLOCK;
-      lisaac_push_first(&__E4C,L13509636); // L103 TRUE;
-      __H4C=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__QGD,L19282450); // L147 BLOCK;
-      lisaac_push_first(&__E4C,L14689286); // L112 FALSE;
-      __H4C=__F__;
-    };
-    if (__H4C) {
-      lisaac_push(&__VSY,L19532306); // L149 BLOCK;
-      lisaac_push_first(&__AMD,L8792068); // L67 TRUE;
-      lisaac_push_first(&__QGD,L19289106); // L147 BLOCK;
-      lisaac_push(&__QGD,L19428370); // L148 BLOCK;
-      lisaac_push_first(&__E4C,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__A4D,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__RGE,L8792068); // L67 TRUE;
-      lisaac_push_first(&__K4D,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__HGD));
-      lisaac_push(&__E4C,L9574914); // L73 OBJECT;
-      __DX((&__string_43));
-      lisaac_push(&__E4C,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__A4D,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__RGE,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__K4D,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__KGZ,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__E4C,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__A4D,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__RGE,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__VSY,L19532306); // L149 BLOCK;
-      lisaac_push_first(&__AMD,L8530438); // L65 FALSE;
-    };
-    if (__UR==NULL) {
-      lisaac_push(&__USY,L43526685); // L332 INPUT_STREAM;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__USY,L43526685); // L332 INPUT_STREAM;
-      __CB3=((____0B *)__UR);
-      lisaac_push_first(&__VSY,L21894168); // L167 STRING;
-      __CB3->__FC= 0;
-      lisaac_push(&__VSY,L22546968); // L172 STRING;
-      lisaac_push_first(&__AMD,L19532306); // L149 BLOCK;
-      lisaac_push_first(&__QGD,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__USY,L43661341); // L333 INPUT_STREAM;
-    lisaac_push_first(&__VSY,L10237980); // L78 STD_INPUT;
-    __M4D='\0';
-    lisaac_push(&__VSY,L10757148); // L82 STD_INPUT;
-    lisaac_push_first(&__AMD,L6556188); // L50 STD_INPUT;
-    lisaac_push_first(&__QGD,L6826502); // L52 FALSE;
-    lisaac_push_first(&__E4C,L6437404); // L49 STD_INPUT;
-    lisaac_push_first(&__A4D,L62415901); // L476 INPUT_STREAM;
-    lisaac_push_first(&__RGE,L8526359); // L65 SYSTEM_IO;
-    __DC3=((____4 )(fgetc(stdin)));
-    __N1C=__DC3;
-    lisaac_push(&__AMD,L6816796); // L52 STD_INPUT;
-    lisaac_push(&__VSY,L10890268); // L83 STD_INPUT;
-    lisaac_push_first(&__AMD,L8004636); // L61 STD_INPUT;
-    if ((__DC3 != '\n')) {
-      lisaac_push(&__VSY,L10895900); // L83 STD_INPUT;
-      lisaac_push_first(&__AMD,L10652676); // L81 TRUE;
-      lisaac_push_first(&__QGD,L10909212); // L83 STD_INPUT;
-      lisaac_push_first(&__E4C,L62674973); // L478 INPUT_STREAM;
-      lisaac_push_first(&__A4D,L8785431); // L67 SYSTEM_IO;
-      __H4C=(__DC3 != ((____4 )(EOF)));
-    } else /* FALSE */ {
-      lisaac_push(&__VSY,L10895900); // L83 STD_INPUT;
-      lisaac_push_first(&__AMD,L12081158); // L92 FALSE;
-      __H4C=__J__;
-    };
-    if (__H4C) {
-      lisaac_push(&__VSY,L12061212); // L92 STD_INPUT;
-      lisaac_push_first(&__AMD,L8792068); // L67 TRUE;
-      lisaac_push_first(&__QGD,L10913308); // L83 STD_INPUT;
-      if (__UR==NULL) {
-        lisaac_push(&__QGD,L11021852); // L84 STD_INPUT;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__QGD,L11021852); // L84 STD_INPUT;
-        __WGZ=((____0B *)__UR);
-        lisaac_push_first(&__E4C,L56248344); // L429 STRING;
-        __PRG(__WGZ,__DC3);
-      };
-      lisaac_push(&__QGD,L11154460); // L85 STD_INPUT;
-      lisaac_push_first(&__E4C,L62415901); // L476 INPUT_STREAM;
-      lisaac_push_first(&__A4D,L8526359); // L65 SYSTEM_IO;
-      __M4D=((____4 )(fgetc(stdin)));
-      lisaac_push(&__QGD,L11800092); // L90 STD_INPUT;
-      lisaac_push_first(&__E4C,L11802642); // L90 BLOCK;
-      __QEF:
-      {
-        lisaac_push(&__E4C,L11802642); // L90 BLOCK;
-        lisaac_push_first(&__A4D,L11417116); // L87 STD_INPUT;
-        lisaac_push_first(&__RGE,L62674973); // L478 INPUT_STREAM;
-        lisaac_push_first(&__K4D,L8785431); // L67 SYSTEM_IO;
-        if ((__M4D == ((____4 )(EOF)))) {
-          lisaac_push(&__A4D,L11419164); // L87 STD_INPUT;
-          lisaac_push_first(&__RGE,L10377220); // L79 TRUE;
-          __MID=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__A4D,L11419164); // L87 STD_INPUT;
-          lisaac_push_first(&__RGE,L11832326); // L90 FALSE;
-          lisaac_push_first(&__K4D,L11420188); // L87 STD_INPUT;
-          __MID=(__M4D == '\n');
-        };
-        if (__MID) {
-          lisaac_push(&__E4C,L11799570); // L90 BLOCK;
-          lisaac_push_first(&__A4D,L13509636); // L103 TRUE;
-          __MID=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__E4C,L11799570); // L90 BLOCK;
-          lisaac_push_first(&__A4D,L14689286); // L112 FALSE;
-          __MID=__F__;
-        };
-        if (__MID) {
-          lisaac_push(&__E4C,L12192274); // L93 BLOCK;
-          lisaac_push_first(&__A4D,L8792068); // L67 TRUE;
-          lisaac_push_first(&__RGE,L11935762); // L91 BLOCK;
-          lisaac_push_first(&__K4D,L11432476); // L87 STD_INPUT;
-          if (__UR==NULL) {
-            lisaac_push(&__K4D,L11542044); // L88 STD_INPUT;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__K4D,L11542044); // L88 STD_INPUT;
-            __CYZ=((____0B *)__UR);
-            lisaac_push_first(&__KGZ,L56248344); // L429 STRING;
-            __PRG(__CYZ,__M4D);
+  __4F(__MP, 0);
+  __FSC(__NP);
+  __FSC((&__string_112));
+  __QP=(____L)(-  1);
+  do {
+    ((____WB *)__XP)->__BC= 0;
+    __TZC='\0';
+    __SPC=((____4 )(fgetc(stdin)));
+    if (((__SPC != '\n') && (__SPC != ((____4 )(EOF))))) {
+      __YWY=((____WB *)__XP);
+      __2WY=__SPC;
+      if ((__YWY->__CBE <= __YWY->__BC)) {
+        if ((__YWY->__CBE ==  0)) {
+          __YWY->__CBE= 32;
+          __ZWY=__3NG( 32);
+          __YWY->__ZAE=__ZWY;
+        } else /* FALSE */ {
+          __0WY=(____L)(__YWY->__CBE <<  1);
+          __ZWY=__SOG(((____4 *)__YWY->__ZAE),__YWY->__CBE,__0WY);
+          __YWY->__ZAE=__ZWY;
+          __YWY->__CBE=__0WY;
+        };
+      };
+      ((____4 *)__YWY->__ZAE)[__YWY->__BC]=__2WY;
+      __YWY->__BC=(____L)(__YWY->__BC +  1);
+      __TZC=((____4 )(fgetc(stdin)));
+      while ((! ((__TZC == ((____4 )(EOF))) || (__TZC == '\n')))) {
+        __3WY=((____WB *)__XP);
+        if ((__3WY->__CBE <= __3WY->__BC)) {
+          if ((__3WY->__CBE ==  0)) {
+            __3WY->__CBE= 32;
+            __4WY=__3NG( 32);
+            __3WY->__ZAE=__4WY;
+          } else /* FALSE */ {
+            __5WY=(____L)(__3WY->__CBE <<  1);
+            __4WY=__SOG(((____4 *)__3WY->__ZAE),__3WY->__CBE,__5WY);
+            __3WY->__ZAE=__4WY;
+            __3WY->__CBE=__5WY;
           };
-          lisaac_push(&__K4D,L11676188); // L89 STD_INPUT;
-          lisaac_push_first(&__KGZ,L62415901); // L476 INPUT_STREAM;
-          lisaac_push_first(&__LGZ,L8526359); // L65 SYSTEM_IO;
-          __M4D=((____4 )(fgetc(stdin)));
-          lisaac_push(&__RGE,L12068370); // L92 BLOCK;
-          goto __QEF;
-        } else /* FALSE */ {
-          lisaac_push(&__E4C,L12192274); // L93 BLOCK;
-          lisaac_push_first(&__A4D,L8530438); // L65 FALSE;
         };
-      };
-      __N1C=__M4D;
-    } else /* FALSE */ {
-      lisaac_push(&__VSY,L12061212); // L92 STD_INPUT;
-      lisaac_push_first(&__AMD,L8530438); // L65 FALSE;
-    };
-    if (__UR==NULL) {
-      lisaac_push(&__TSY,L20070401); // L153 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__TSY,L20070401); // L153 INSTALL_LISAAC;
-      __H4C=__NPI(((____0B *)__UR));
-    };
-    if (__H4C) {
-      lisaac_push(&__TSY,L21499393); // L164 INSTALL_LISAAC;
-      lisaac_push_first(&__USY,L6825988); // L52 TRUE;
-      lisaac_push_first(&__VSY,L20073473); // L153 INSTALL_LISAAC;
-      if (__UR==NULL) {
-        lisaac_push(&__VSY,L20205569); // L154 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__VSY,L20205569); // L154 INSTALL_LISAAC;
-        __WGZ=((____0B *)__UR);
-        lisaac_push_first(&__AMD,L74849293); // L571 ABSTRACT_STRING;
-        __OBL= 0;
-        __MID=__J__;
-        __RBL= 0;
-        lisaac_push(&__AMD,L75893261); // L579 ABSTRACT_STRING;
-        lisaac_push_first(&__QGD,L19150866); // L146 BLOCK;
-        lisaac_push_first(&__E4C,L7481858); // L57 OBJECT;
-        __MOM=((____DB )(top_context->back->back));
-        lisaac_push(&__QGD,L19280914); // L147 BLOCK;
-        lisaac_push_first(&__E4C,L10652676); // L81 TRUE;
-        lisaac_push_first(&__A4D,L19285522); // L147 BLOCK;
-        lisaac_push_first(&__RGE,L75900429); // L579 ABSTRACT_STRING;
-        __XBL=__NPI(__WGZ);
-        if (__XBL) {
-          lisaac_push(&__A4D,L19282450); // L147 BLOCK;
-          lisaac_push_first(&__RGE,L13509636); // L103 TRUE;
-          __YOM=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__A4D,L19282450); // L147 BLOCK;
-          lisaac_push_first(&__RGE,L14689286); // L112 FALSE;
-          __YOM=__F__;
+        ((____4 *)__3WY->__ZAE)[__3WY->__BC]=__TZC;
+        __3WY->__BC=(____L)(__3WY->__BC +  1);
+        __TZC=((____4 )(fgetc(stdin)));
+      };
+      __SPC=__TZC;
+    };
+    __YWY=((____WB *)__XP);
+    __0WY= 0;
+    __5WY= 0;
+    __SMH=__J__;
+    __TMH=__J__;
+    __PMH= 1;
+    __OXY=__YWY->__BC;
+    __ZWY=__YWY->__ZAE;
+    while ((! ((__0WY ==  4) || (__PMH > __OXY)))) {
+      __JNH=((____4 *)__ZWY)[(____L)(__PMH -  1)];
+      if ((__0WY ==  0)) {
+        if ((((((((__JNH == ' ') || (__JNH == '\t')) || (__JNH == '\n')) || (__JNH == '\r')) || (__JNH == '\0')) || (__JNH == '\f')) || (__JNH == '\v'))) {
+          __BOH=__F__;
+        } else /* FALSE */ {
+          __RGT=(__JNH == '+');
+          if (__RGT) {
+            __0WY= 1;
+          };
+          __BOH=__RGT;
         };
-        if (__YOM) {
-          lisaac_push(&__QGD,L19532306); // L149 BLOCK;
-          lisaac_push_first(&__E4C,L8792068); // L67 TRUE;
-          lisaac_push_first(&__A4D,L19289106); // L147 BLOCK;
-          lisaac_push(&__A4D,L19428370); // L148 BLOCK;
-          lisaac_push_first(&__RGE,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__K4D,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__KGZ,L8792068); // L67 TRUE;
-          lisaac_push_first(&__LGZ,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__MOM));
-          lisaac_push(&__RGE,L9574914); // L73 OBJECT;
-          __DX((&__string_43));
-          lisaac_push(&__RGE,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__K4D,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__KGZ,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__LGZ,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__CHZ,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__RGE,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__K4D,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__KGZ,L4598824); // L35 SYSTEM;
-          exit(( 1));
+        if (__BOH) {
+          __BOH=__F__;
         } else /* FALSE */ {
-          lisaac_push(&__QGD,L19532306); // L149 BLOCK;
-          lisaac_push_first(&__E4C,L8530438); // L65 FALSE;
+          __RGT=(__JNH == '-');
+          if (__RGT) {
+            __SMH=__F__;
+            __0WY= 1;
+          };
+          __BOH=__RGT;
         };
-        __NBL= 1;
-        lisaac_push(&__AMD,L81791501); // L624 ABSTRACT_STRING;
-        lisaac_push_first(&__QGD,L11802642); // L90 BLOCK;
-        __EPM:
-        {
-          lisaac_push(&__QGD,L11802642); // L90 BLOCK;
-          lisaac_push_first(&__E4C,L76941837); // L587 ABSTRACT_STRING;
-          __5BL=__WGZ->__FC;
-          lisaac_push(&__E4C,L76943885); // L587 ABSTRACT_STRING;
-          lisaac_push_first(&__A4D,L15224840); // L116 NUMERIC;
-          if ((__NBL > __5BL)) {
-            lisaac_push(&__QGD,L11799570); // L90 BLOCK;
-            lisaac_push_first(&__E4C,L13509636); // L103 TRUE;
-            __JPM=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__QGD,L11799570); // L90 BLOCK;
-            lisaac_push_first(&__E4C,L14689286); // L112 FALSE;
-            __JPM=__F__;
+        if ((! __BOH)) {
+          __BOH=__J__;
+          if ((((____QY )__JNH) >= ((____QY )'0'))) {
+            __BOH=(((____QY )__JNH) <= ((____QY )'9'));
           };
-          if (__JPM) {
-            lisaac_push(&__QGD,L12192274); // L93 BLOCK;
-            lisaac_push_first(&__E4C,L8792068); // L67 TRUE;
-            lisaac_push_first(&__A4D,L11935762); // L91 BLOCK;
-            lisaac_push_first(&__RGE,L77079565); // L588 ABSTRACT_STRING;
-            __ICL=__GCJ(__WGZ,__NBL);
-            if ((__OBL ==  0)) {
-              lisaac_push(&__RGE,L78777869); // L601 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L8792068); // L67 TRUE;
-              lisaac_push_first(&__KGZ,L77475341); // L591 ABSTRACT_STRING;
-              __PCL=__YQR(__ICL);
-              if (__PCL) {
-                lisaac_push(&__KGZ,L77599245); // L592 ABSTRACT_STRING;
-                lisaac_push_first(&__LGZ,L8792068); // L67 TRUE;
-                lisaac_push_first(&__CHZ,L77477901); // L591 ABSTRACT_STRING;
-                __WCL=__F__;
-              } else /* FALSE */ {
-                lisaac_push(&__KGZ,L77599245); // L592 ABSTRACT_STRING;
-                lisaac_push_first(&__LGZ,L8530438); // L65 FALSE;
-                __WCL=__J__;
-              };
-              if (__WCL) {
-                lisaac_push(&__KGZ,L77861389); // L594 ABSTRACT_STRING;
-                lisaac_push_first(&__LGZ,L9326596); // L71 TRUE;
-                __WCL=__F__;
-              } else /* FALSE */ {
-                lisaac_push(&__KGZ,L77861389); // L594 ABSTRACT_STRING;
-                lisaac_push_first(&__LGZ,L9187334); // L70 FALSE;
-                lisaac_push_first(&__CHZ,L77603853); // L592 ABSTRACT_STRING;
-                __EIW=(__ICL == '+');
-                if (__EIW) {
-                  lisaac_push(&__LGZ,L9570822); // L73 FALSE;
-                  lisaac_push_first(&__CHZ,L8792068); // L67 TRUE;
-                  lisaac_push_first(&__JIW,L9445894); // L72 FALSE;
-                  lisaac_push_first(&__BDL,L77612045); // L592 ABSTRACT_STRING;
-                  __OBL= 1;
-                } else /* FALSE */ {
-                  lisaac_push(&__LGZ,L9570822); // L73 FALSE;
-                  lisaac_push_first(&__CHZ,L8530438); // L65 FALSE;
-                };
-                __WCL=__EIW;
-              };
-              if ((! __WCL)) {
-                lisaac_push(&__KGZ,L78647821); // L600 ABSTRACT_STRING;
-                lisaac_push_first(&__LGZ,L10362374); // L79 FALSE;
-                lisaac_push_first(&__CHZ,L77865997); // L594 ABSTRACT_STRING;
-                if ((__ICL == '-')) {
-                  lisaac_push(&__LGZ,L10881542); // L83 FALSE;
-                  lisaac_push_first(&__CHZ,L6825988); // L52 TRUE;
-                  lisaac_push_first(&__JIW,L10494470); // L80 FALSE;
-                  lisaac_push_first(&__BDL,L77874189); // L594 ABSTRACT_STRING;
-                  __MID=__F__;
-                  __OBL= 1;
-                } else /* FALSE */ {
-                  lisaac_push(&__LGZ,L10881542); // L83 FALSE;
-                  lisaac_push_first(&__CHZ,L6826502); // L52 FALSE;
-                  lisaac_push_first(&__JIW,L10759174); // L82 FALSE;
-                  lisaac_push_first(&__BDL,L78399501); // L598 ABSTRACT_STRING;
-                  __XDL=__RTD(__ICL);
-                  __RBL=__XDL;
-                  __OBL= 2;
-                };
-              };
-              __PCL=__F__;
-            } else /* FALSE */ {
-              lisaac_push(&__RGE,L78777869); // L601 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L8530438); // L65 FALSE;
-              __PCL=__J__;
-            };
-            if (__PCL) {
-              lisaac_push(&__RGE,L79695373); // L608 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L9326596); // L71 TRUE;
-              __PCL=__F__;
-            } else /* FALSE */ {
-              lisaac_push(&__RGE,L79695373); // L608 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L9187334); // L70 FALSE;
-              lisaac_push_first(&__KGZ,L78782477); // L601 ABSTRACT_STRING;
-              __WCL=(__OBL ==  1);
-              if (__WCL) {
-                lisaac_push(&__K4D,L9570822); // L73 FALSE;
-                lisaac_push_first(&__KGZ,L8792068); // L67 TRUE;
-                lisaac_push_first(&__LGZ,L9445894); // L72 FALSE;
-                lisaac_push_first(&__CHZ,L79053837); // L603 ABSTRACT_STRING;
-                __XDL=__RTD(__ICL);
-                __RBL=__XDL;
-                if (__MID) {
-                  lisaac_push(&__CHZ,L79434253); // L606 ABSTRACT_STRING;
-                  lisaac_push_first(&__JIW,L8792068); // L67 TRUE;
-                  lisaac_push_first(&__BDL,L79309325); // L605 ABSTRACT_STRING;
-                  lisaac_push_first(&__FYZ,L11029512); // L84 NUMERIC;
-                  lisaac_push_first(&__GYZ,L9195016); // L70 NUMERIC;
-                  __RBL=(____L)(- __XDL);
-                } else /* FALSE */ {
-                  lisaac_push(&__CHZ,L79434253); // L606 ABSTRACT_STRING;
-                  lisaac_push_first(&__JIW,L8530438); // L65 FALSE;
-                };
-                __OBL= 2;
-              } else /* FALSE */ {
-                lisaac_push(&__K4D,L9570822); // L73 FALSE;
-                lisaac_push_first(&__KGZ,L8530438); // L65 FALSE;
-              };
-              __PCL=__WCL;
-            };
-            if (__PCL) {
-              lisaac_push(&__RGE,L81006093); // L618 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L9326596); // L71 TRUE;
-              __PCL=__F__;
-            } else /* FALSE */ {
-              lisaac_push(&__RGE,L81006093); // L618 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L9187334); // L70 FALSE;
-              lisaac_push_first(&__KGZ,L79699981); // L608 ABSTRACT_STRING;
-              __WCL=(__OBL ==  2);
-              if (__WCL) {
-                lisaac_push(&__K4D,L9570822); // L73 FALSE;
-                lisaac_push_first(&__KGZ,L8792068); // L67 TRUE;
-                lisaac_push_first(&__LGZ,L9445894); // L72 FALSE;
-                lisaac_push_first(&__CHZ,L79832589); // L609 ABSTRACT_STRING;
-                __EIW=__0KE(__ICL);
-                if (__EIW) {
-                  lisaac_push(&__CHZ,L80876045); // L617 ABSTRACT_STRING;
-                  lisaac_push_first(&__JIW,L6825988); // L52 TRUE;
-                  lisaac_push_first(&__BDL,L79835149); // L609 ABSTRACT_STRING;
-                  if (__MID) {
-                    lisaac_push(&__BDL,L80483853); // L614 ABSTRACT_STRING;
-                    lisaac_push_first(&__FYZ,L6825988); // L52 TRUE;
-                    lisaac_push_first(&__GYZ,L80111629); // L611 ABSTRACT_STRING;
-                    __JFL=__RTD(__ICL);
-                    lisaac_push(&__GYZ,L80098317); // L611 ABSTRACT_STRING;
-                    lisaac_push_first(&__EXX,L9457160); // L72 NUMERIC;
-                    __KFL=(____L)( 10 * __RBL);
-                    lisaac_push(&__GYZ,L80102925); // L611 ABSTRACT_STRING;
-                    lisaac_push_first(&__EXX,L9195016); // L70 NUMERIC;
-                    __RBL=(____L)(__KFL - __JFL);
-                  } else /* FALSE */ {
-                    lisaac_push(&__BDL,L80483853); // L614 ABSTRACT_STRING;
-                    lisaac_push_first(&__FYZ,L6826502); // L52 FALSE;
-                    lisaac_push_first(&__GYZ,L80373773); // L613 ABSTRACT_STRING;
-                    __JFL=__RTD(__ICL);
-                    lisaac_push(&__GYZ,L80360461); // L613 ABSTRACT_STRING;
-                    lisaac_push_first(&__EXX,L9457160); // L72 NUMERIC;
-                    __KFL=(____L)( 10 * __RBL);
-                    lisaac_push(&__GYZ,L80365069); // L613 ABSTRACT_STRING;
-                    lisaac_push_first(&__EXX,L9990152); // L76 NUMERIC;
-                    lisaac_push_first(&__PYZ,L11029512); // L84 NUMERIC;
-                    lisaac_push_first(&__QYZ,L9195016); // L70 NUMERIC;
-                    __LYZ=(____L)(- __JFL);
-                    lisaac_push(&__EXX,L9989128); // L76 NUMERIC;
-                    lisaac_push_first(&__PYZ,L9195016); // L70 NUMERIC;
-                    __RBL=(____L)(__KFL - __LYZ);
-                  };
-                } else /* FALSE */ {
-                  lisaac_push(&__CHZ,L80876045); // L617 ABSTRACT_STRING;
-                  lisaac_push_first(&__JIW,L6826502); // L52 FALSE;
-                  lisaac_push_first(&__BDL,L80617485); // L615 ABSTRACT_STRING;
-                  __OBL= 3;
-                };
-              } else /* FALSE */ {
-                lisaac_push(&__K4D,L9570822); // L73 FALSE;
-                lisaac_push_first(&__KGZ,L8530438); // L65 FALSE;
-              };
-              __PCL=__WCL;
-            };
-            if (__PCL) {
-              lisaac_push(&__RGE,L81399309); // L621 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L9326596); // L71 TRUE;
-            } else /* FALSE */ {
-              lisaac_push(&__RGE,L81399309); // L621 ABSTRACT_STRING;
-              lisaac_push_first(&__K4D,L9187334); // L70 FALSE;
-              lisaac_push_first(&__KGZ,L81010701); // L618 ABSTRACT_STRING;
-              if ((__OBL ==  3)) {
-                lisaac_push(&__K4D,L9570822); // L73 FALSE;
-                lisaac_push_first(&__KGZ,L8792068); // L67 TRUE;
-                lisaac_push_first(&__LGZ,L9445894); // L72 FALSE;
-                lisaac_push_first(&__CHZ,L81020429); // L618 ABSTRACT_STRING;
-                __NBL=__WGZ->__FC;
-              } else /* FALSE */ {
-                lisaac_push(&__K4D,L9570822); // L73 FALSE;
-                lisaac_push_first(&__KGZ,L8530438); // L65 FALSE;
-              };
-            };
-            lisaac_push(&__RGE,L81665037); // L623 ABSTRACT_STRING;
-            lisaac_push_first(&__K4D,L9990152); // L76 NUMERIC;
-            lisaac_push_first(&__KGZ,L11029512); // L84 NUMERIC;
-            lisaac_push_first(&__LGZ,L9195016); // L70 NUMERIC;
-            __XDL=(____L)(-  1);
-            lisaac_push(&__K4D,L9989128); // L76 NUMERIC;
-            lisaac_push_first(&__KGZ,L9195016); // L70 NUMERIC;
-            __NBL=(____L)(__NBL - __XDL);
-            lisaac_push(&__A4D,L12068370); // L92 BLOCK;
-            goto __EPM;
+          if (__BOH) {
+            __5WY=(____L)(((____L )((____QY )__JNH)) -  48);
+            __0WY= 2;
           } else /* FALSE */ {
-            lisaac_push(&__QGD,L12192274); // L93 BLOCK;
-            lisaac_push_first(&__E4C,L8530438); // L65 FALSE;
+            __0WY= 4;
           };
         };
-        __OBL=__RBL;
-      };
-      lisaac_push(&__VSY,L20330497); // L155 INSTALL_LISAAC;
-      lisaac_push_first(&__AMD,L6296072); // L48 NUMERIC;
-      lisaac_push_first(&__QGD,L15759880); // L120 NUMERIC;
-      lisaac_push_first(&__E4C,L15224840); // L116 NUMERIC;
-      if (( 0 > __OBL)) {
-        lisaac_push(&__QGD,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__E4C,L13509636); // L103 TRUE;
-        __MID=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__QGD,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__E4C,L14689286); // L112 FALSE;
-        __MID=__F__;
-      };
-      if (__MID) {
-        lisaac_push(&__AMD,L6300680); // L48 NUMERIC;
-        lisaac_push_first(&__QGD,L10652676); // L81 TRUE;
-        lisaac_push_first(&__E4C,L6304264); // L48 NUMERIC;
-        lisaac_push_first(&__A4D,L16021000); // L122 NUMERIC;
-        lisaac_push_first(&__RGE,L15224840); // L116 NUMERIC;
-        __MID=(__KR > __OBL);
-        lisaac_push(&__A4D,L16030216); // L122 NUMERIC;
-        lisaac_push_first(&__RGE,L14700552); // L112 NUMERIC;
-        __XBL=(__KR == __OBL);
-        if (__MID) {
-          lisaac_push(&__A4D,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__RGE,L10900996); // L83 TRUE;
-          __YOM=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__A4D,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__RGE,L12342790); // L94 FALSE;
-          __YOM=__XBL;
-        };
-        __MID=__YOM;
+        __BOH=__F__;
       } else /* FALSE */ {
-        lisaac_push(&__AMD,L6300680); // L48 NUMERIC;
-        lisaac_push_first(&__QGD,L12081158); // L92 FALSE;
-        __MID=__J__;
+        __BOH=__J__;
       };
-      if (__MID) {
-        lisaac_push(&__VSY,L21107201); // L161 INSTALL_LISAAC;
-        lisaac_push_first(&__AMD,L6825988); // L52 TRUE;
-        lisaac_push_first(&__QGD,L20333569); // L155 INSTALL_LISAAC;
-        __MR=__OBL;
+      if (__BOH) {
+        __BOH=__F__;
       } else /* FALSE */ {
-        lisaac_push(&__VSY,L21107201); // L161 INSTALL_LISAAC;
-        lisaac_push_first(&__AMD,L6826502); // L52 FALSE;
-        lisaac_push_first(&__QGD,L20586497); // L157 INSTALL_LISAAC;
-        lisaac_push(&__QGD,L20728321); // L158 INSTALL_LISAAC;
-        __DX((&__string_118));
-        lisaac_push(&__QGD,L20849153); // L159 INSTALL_LISAAC;
-        lisaac_push_first(&__E4C,L72487943); // L553 INTEGER;
-        if ((__KR ==  0)) {
-          lisaac_push(&__E4C,L73140743); // L558 INTEGER;
-          lisaac_push_first(&__A4D,L8792068); // L67 TRUE;
-          lisaac_push_first(&__RGE,L73014791); // L557 INTEGER;
-          lisaac_push_first(&__K4D,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__KGZ,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__LGZ,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__CHZ,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('0'),stdout);
-          __YOM=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__E4C,L73140743); // L558 INTEGER;
-          lisaac_push_first(&__A4D,L8530438); // L65 FALSE;
-          __YOM=__J__;
-        };
-        if ((! __YOM)) {
-          lisaac_push(&__E4C,L73796103); // L563 INTEGER;
-          lisaac_push_first(&__A4D,L10362374); // L79 FALSE;
-          lisaac_push_first(&__RGE,L73148423); // L558 INTEGER;
-          lisaac_push_first(&__K4D,L15498248); // L118 NUMERIC;
-          lisaac_push_first(&__KGZ,L16021000); // L122 NUMERIC;
-          lisaac_push_first(&__LGZ,L15224840); // L116 NUMERIC;
-          __YOM=(__KR >  0);
-          lisaac_push(&__KGZ,L16030216); // L122 NUMERIC;
-          lisaac_push_first(&__LGZ,L14700552); // L112 NUMERIC;
-          __JPM=(__KR ==  0);
-          if (__YOM) {
-            lisaac_push(&__KGZ,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__LGZ,L10900996); // L83 TRUE;
-            __PCL=__F__;
-          } else /* FALSE */ {
-            lisaac_push(&__KGZ,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__LGZ,L12342790); // L94 FALSE;
-            __PCL=__JPM;
-          };
-          if (__PCL) {
-            lisaac_push(&__K4D,L15493640); // L118 NUMERIC;
-            lisaac_push_first(&__KGZ,L13509636); // L103 TRUE;
-            __PCL=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__K4D,L15493640); // L118 NUMERIC;
-            lisaac_push_first(&__KGZ,L14689286); // L112 FALSE;
-            __PCL=__F__;
+        __RGT=(__0WY ==  1);
+        if (__RGT) {
+          __GXY=__J__;
+          if ((((____QY )__JNH) >= ((____QY )'0'))) {
+            __GXY=(((____QY )__JNH) <= ((____QY )'9'));
           };
-          if (__PCL) {
-            lisaac_push(&__A4D,L10881542); // L83 FALSE;
-            lisaac_push_first(&__RGE,L6825988); // L52 TRUE;
-            lisaac_push_first(&__K4D,L10494470); // L80 FALSE;
-            lisaac_push_first(&__KGZ,L73276935); // L559 INTEGER;
-            lisaac_push_first(&__LGZ,L10896400); // L83 CHARACTER;
-            lisaac_push_first(&__CHZ,L5005342); // L38 STD_OUTPUT;
-            lisaac_push_first(&__JIW,L18378271); // L140 OUTPUT_STREAM;
-            lisaac_push_first(&__BDL,L6962199); // L53 SYSTEM_IO;
-            fputc((int)('-'),stdout);
-            lisaac_push(&__KGZ,L73404423); // L560 INTEGER;
-            lisaac_push_first(&__LGZ,L11029512); // L84 NUMERIC;
-            lisaac_push_first(&__CHZ,L9195016); // L70 NUMERIC;
-            __5BL=(____L)(- __KR);
-            lisaac_push(&__KGZ,L73414151); // L560 INTEGER;
-            __KOQ(__5BL);
+          if (__GXY) {
+            __RPH=(____L)(((____L )((____QY )__JNH)) -  48);
+            __5WY=__RPH;
+            if (__SMH) {
+              __5WY=(____L)(- __RPH);
+            };
+            __0WY= 2;
           } else /* FALSE */ {
-            lisaac_push(&__A4D,L10881542); // L83 FALSE;
-            lisaac_push_first(&__RGE,L6826502); // L52 FALSE;
-            lisaac_push_first(&__K4D,L10759174); // L82 FALSE;
-            lisaac_push_first(&__KGZ,L73672199); // L562 INTEGER;
-            __KOQ(__KR);
+            __0WY= 4;
           };
         };
-        lisaac_push(&__QGD,L20982273); // L160 INSTALL_LISAAC;
-        __DX((&__string_119));
+        __BOH=__RGT;
       };
-    } else /* FALSE */ {
-      lisaac_push(&__TSY,L21499393); // L164 INSTALL_LISAAC;
-      lisaac_push_first(&__USY,L6826502); // L52 FALSE;
-      lisaac_push_first(&__VSY,L21240833); // L162 INSTALL_LISAAC;
-      lisaac_push(&__VSY,L21382657); // L163 INSTALL_LISAAC;
-      __DX((&__string_120));
-    };
-    lisaac_push(&__QSY,L10755090); // L82 BLOCK;
-    lisaac_push_first(&__TSY,L21640193); // L165 INSTALL_LISAAC;
-    lisaac_push_first(&__USY,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__VSY,L9195016); // L70 NUMERIC;
-    if ((__MR == (____L)(-  1))) {
-      lisaac_push(&__QSY,L11012626); // L84 BLOCK;
-      lisaac_push_first(&__TSY,L8792068); // L67 TRUE;
-      lisaac_push_first(&__USY,L10888722); // L83 BLOCK;
-      goto __UU;
-    } else /* FALSE */ {
-      lisaac_push(&__QSY,L11012626); // L84 BLOCK;
-      lisaac_push_first(&__TSY,L8530438); // L65 FALSE;
-    };
-  };
-  __LR=__MR;
-  return(__LR);
-}
-
-static void __2LB(void *__5LB,____V *__AMB,void *__BMB,____G __CMB)
-// ({NULLx__Vx__0B},{NULLx__V},{NULLx__Vx__0B},{__Fx__J}) Void No recursive, No inlinable.
-{
-  ____L __DMB,__11B,__RMB,__0SY,__WMB,__YJC,__ZJC,__1JC,__OC3,__LNB;
-  ____L __KKC,__51N;
-  ____0B *__EMB,*__FMB,*__XSY,*__3MB,*__IC3,*__QZX;
-  ____DB __JMB,__GMB,__PGK,__BBO,__1JO;
-  ____V *__UJC;
-  _____CONTEXT __3LB,__WSY,__OMB,__X1B,__SK0,__TK0,__DXW,__RC3,__DNB;
-  _____CONTEXT __ZRD,__JNB,__PZX,__YT3,__ZT3,__Q1N,__NXW,__X1N,__FVF;
-  _____CONTEXT __YJO,__PJY;
-  ____4 *__VT3,*__I2B,*__XJC,*__A5I,*__B5I,*__J1N,*__K1N,*__GVF;
-  ____G __TC3,__2T3,__4T3,__AU3,__ACG,__UL0;
-  ____4 __TNB,__N2N,__O2N;
-  lisaac_push_first(&__3LB,L22311937); // L170 INSTALL_LISAAC;
-  __DMB= 0;
-  __EMB=NULL;
-  __FMB=NULL;
-  lisaac_push(&__3LB,L23077377); // L176 INSTALL_LISAAC;
-  __DX((&__string_121));
-  if (__5LB==NULL) {
-    lisaac_push(&__3LB,L23206913); // L177 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else {
-    if (((struct ___OBJ *)__5LB)->__id==____V__) {
-      lisaac_push(&__3LB,L23206913); // L177 INSTALL_LISAAC;
-      __DX(((____V *)__5LB));
-    } else /* Other types */ {
-      lisaac_push(&__3LB,L23206913); // L177 INSTALL_LISAAC;
-      __XSY=((____0B *)__5LB);
-      lisaac_push_first(&__WSY,L167652365); // L1279 ABSTRACT_STRING;
-      __N4C(__XSY);
-    }
-  };
-  lisaac_push(&__3LB,L23477249); // L179 INSTALL_LISAAC;
-  lisaac_push_first(&__WSY,L5259265); // L40 INSTALL_LISAAC;
-  if (__5B==NULL) {
-    lisaac_push(&__WSY,L5515777); // L42 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__WSY,L5515777); // L42 INSTALL_LISAAC;
-    __4II(((____0B *)__5B),__5LB);
-  };
-  if (__5B==NULL) {
-    lisaac_push(&__WSY,L5652993); // L43 INSTALL_LISAAC;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* STRING */ {
-    lisaac_push(&__WSY,L5652993); // L43 INSTALL_LISAAC;
-    __VT3=__NVF(((____0B *)__5B));
-  };
-  __JMB=((____DB )(fopen((char*)(__VT3),"rb")));
-  __GMB=__JMB;
-  if ((__JMB != (void *)NULL)) {
-    lisaac_push(&__3LB,L29231617); // L223 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L6825988); // L52 TRUE;
-    lisaac_push_first(&__OMB,L23874049); // L182 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L9580545); // L73 INSTALL_LISAAC;
-    fseek((FILE*)((__JMB)),0,SEEK_END);
-    __11B=((____L )(ftell((FILE *)(__JMB))));
-    fseek((FILE*)((__JMB)),0,SEEK_SET);
-    if (__BMB==NULL) {
-      lisaac_push(&__OMB,L24014849); // L183 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else {
-      if (((struct ___OBJ *)__BMB)->__id==____V__) {
-        __RMB=((____V *)__BMB)->__YB;
-      } else /* Other types */ {
-        __RMB=((____0B *)__BMB)->__FC;
-      }
-    };
-    lisaac_push(&__OMB,L24007169); // L183 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__SK0,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__TK0,L9195016); // L70 NUMERIC;
-    __0SY=(____L)(- __RMB);
-    lisaac_push(&__X1B,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__SK0,L9195016); // L70 NUMERIC;
-    __RMB=(____L)(__11B - __0SY);
-    lisaac_push(&__OMB,L24015361); // L183 INSTALL_LISAAC;
-    __XSY=__QF(__RMB);
-    __FMB=__XSY;
-    lisaac_push(&__OMB,L24139265); // L184 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L7102977); // L54 INSTALL_LISAAC;
-    if (__XSY==NULL) {
-      lisaac_push(&__X1B,L7484417); // L57 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__X1B,L7484417); // L57 INSTALL_LISAAC;
-      __I2B=__NVF(((____0B *)__XSY));
-    };
-    fread((void *)((__I2B)),(size_t)(1), (size_t)((__11B)),(FILE*)((__JMB)));
-    if (__XSY==NULL) {
-      lisaac_push(&__X1B,L7746049); // L59 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__X1B,L7746049); // L59 INSTALL_LISAAC;
-      __LTE(((____0B *)__XSY),__I2B);
-    };
-    lisaac_push(&__OMB,L24258561); // L185 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L9316353); // L71 INSTALL_LISAAC;
-    fclose((FILE*)((__JMB)));
-    if (__XSY==NULL) {
-      lisaac_push(&__OMB,L24533505); // L187 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__OMB,L24533505); // L187 INSTALL_LISAAC;
-      __WMB=__F1I(((____0B *)__XSY),__AMB);
-    };
-    __DMB=__WMB;
-    if ((__WMB !=  0)) {
-      lisaac_push(&__OMB,L27659777); // L211 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L6825988); // L52 TRUE;
-      lisaac_push_first(&__SK0,L24923649); // L190 INSTALL_LISAAC;
-      __3MB=__QF( 200);
-      __EMB=__3MB;
-      if (__BMB==NULL) {
-        lisaac_push(&__SK0,L25054721); // L191 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else {
-        if (((struct ___OBJ *)__BMB)->__id==____V__) {
-          lisaac_push(&__SK0,L25054721); // L191 INSTALL_LISAAC;
-          __UJC=((____V *)__BMB);
-          lisaac_push_first(&__TK0,L41957389); // L320 ABSTRACT_STRING;
-          __XJC=__UJC->__ZB;
-          __YJC=__UJC->__YB;
-          lisaac_push(&__TK0,L42359309); // L323 ABSTRACT_STRING;
-          lisaac_push_first(&__DXW,L9195016); // L70 NUMERIC;
-          __ZJC=(____L)(__YJC -  1);
-          if (__XJC==NULL) {
-            lisaac_push(&__TK0,L42468365); // L324 ABSTRACT_STRING;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-            lisaac_push(&__TK0,L42468365); // L324 ABSTRACT_STRING;
-            __1JC=__LQC(((____4 *)__XJC),'\n',__ZJC);
-          };
-          __YJC=__1JC;
-        } else /* Other types */ {
-          lisaac_push(&__SK0,L25054721); // L191 INSTALL_LISAAC;
-          __IC3=((____0B *)((____V *)__BMB));
-          lisaac_push_first(&__TK0,L41957389); // L320 ABSTRACT_STRING;
-          __XJC=__IC3->__IUE;
-          __ZJC=__IC3->__FC;
-          lisaac_push(&__TK0,L42359309); // L323 ABSTRACT_STRING;
-          lisaac_push_first(&__DXW,L9195016); // L70 NUMERIC;
-          __1JC=(____L)(__ZJC -  1);
-          if (__XJC==NULL) {
-            lisaac_push(&__TK0,L42468365); // L324 ABSTRACT_STRING;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-            lisaac_push(&__TK0,L42468365); // L324 ABSTRACT_STRING;
-            __OC3=__LQC(((____4 *)__XJC),'\n',__1JC);
+      if (__BOH) {
+        __BOH=__F__;
+      } else /* FALSE */ {
+        __RGT=(__0WY ==  2);
+        if (__RGT) {
+          __GXY=__J__;
+          if ((((____QY )__JNH) >= ((____QY )'0'))) {
+            __GXY=(((____QY )__JNH) <= ((____QY )'9'));
           };
-          __YJC=__OC3;
-        }
-      };
-      lisaac_push(&__SK0,L26219009); // L200 INSTALL_LISAAC;
-      __WMB= 1;
-      __ZJC=__YJC;
-      lisaac_push_first(&__TK0,L20989960); // L160 NUMERIC;
-      __4JC:
-      {
-        lisaac_push(&__TK0,L21370888); // L163 NUMERIC;
-        lisaac_push_first(&__DXW,L15759880); // L120 NUMERIC;
-        lisaac_push_first(&__RC3,L15224840); // L116 NUMERIC;
-        if ((__WMB > __ZJC)) {
-          lisaac_push(&__DXW,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__RC3,L13509636); // L103 TRUE;
-          __TC3=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__DXW,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__RC3,L14689286); // L112 FALSE;
-          __TC3=__F__;
-        };
-        if (__TC3) {
-          lisaac_push(&__TK0,L21760520); // L166 NUMERIC;
-          lisaac_push_first(&__DXW,L8792068); // L67 TRUE;
-          lisaac_push_first(&__RC3,L21506056); // L164 NUMERIC;
-          lisaac_push_first(&__DNB,L25564673); // L195 INSTALL_LISAAC;
-          lisaac_push_first(&__ZRD,L9441810); // L72 BLOCK;
-          __YRD:
-          {
-            lisaac_push(&__ZRD,L9441810); // L72 BLOCK;
-            lisaac_push_first(&__JNB,L25171457); // L192 INSTALL_LISAAC;
-            if (__FMB==NULL) {
-              lisaac_push(&__JNB,L25181697); // L192 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__JNB,L25181697); // L192 INSTALL_LISAAC;
-              __QZX=((____0B *)__FMB);
-              lisaac_push_first(&__PZX,L6427149); // L49 ABSTRACT_STRING;
-              __LNB=__QZX->__FC;
-            };
-            lisaac_push(&__JNB,L25175553); // L192 INSTALL_LISAAC;
-            lisaac_push_first(&__PZX,L15498248); // L118 NUMERIC;
-            lisaac_push_first(&__YT3,L16021000); // L122 NUMERIC;
-            lisaac_push_first(&__ZT3,L15224840); // L116 NUMERIC;
-            __2T3=(__DMB > __LNB);
-            lisaac_push(&__YT3,L16030216); // L122 NUMERIC;
-            lisaac_push_first(&__ZT3,L14700552); // L112 NUMERIC;
-            __4T3=(__DMB == __LNB);
-            if (__2T3) {
-              lisaac_push(&__YT3,L16025608); // L122 NUMERIC;
-              lisaac_push_first(&__ZT3,L10900996); // L83 TRUE;
-              __AU3=__F__;
+          if (__GXY) {
+            if (__SMH) {
+              __5WY=(____L)((____L)( 10 * __5WY) - (____L)(((____L )((____QY )__JNH)) -  48));
             } else /* FALSE */ {
-              lisaac_push(&__YT3,L16025608); // L122 NUMERIC;
-              lisaac_push_first(&__ZT3,L12342790); // L94 FALSE;
-              __AU3=__4T3;
+              __5WY=(____L)((____L)( 10 * __5WY) + (____L)(((____L )((____QY )__JNH)) -  48));
             };
-            if (__AU3) {
-              lisaac_push(&__PZX,L15493640); // L118 NUMERIC;
-              lisaac_push_first(&__YT3,L13509636); // L103 TRUE;
-              __AU3=__J__;
-            } else /* FALSE */ {
-              lisaac_push(&__PZX,L15493640); // L118 NUMERIC;
-              lisaac_push_first(&__YT3,L14689286); // L112 FALSE;
-              __AU3=__F__;
+            if (((__SMH && (__5WY >  0)) || ((! __SMH) && (__5WY <  0)))) {
+              __0WY= 4;
             };
-            if (__AU3) {
-              lisaac_push(&__JNB,L25183745); // L192 INSTALL_LISAAC;
-              lisaac_push_first(&__PZX,L10652676); // L81 TRUE;
-              lisaac_push_first(&__YT3,L25184769); // L192 INSTALL_LISAAC;
-              if (__FMB==NULL) {
-                lisaac_push(&__YT3,L25193473); // L192 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__YT3,L25193473); // L192 INSTALL_LISAAC;
-                __TNB=__GCJ(((____0B *)__FMB),__DMB);
-              };
-              __AU3=(__TNB != '\n');
-            } else /* FALSE */ {
-              lisaac_push(&__JNB,L25183745); // L192 INSTALL_LISAAC;
-              lisaac_push_first(&__PZX,L12081158); // L92 FALSE;
-              __AU3=__J__;
-            };
-            if (__AU3) {
-              lisaac_push(&__ZRD,L9832978); // L75 BLOCK;
-              lisaac_push_first(&__JNB,L8792068); // L67 TRUE;
-              lisaac_push_first(&__PZX,L9576466); // L73 BLOCK;
-              lisaac_push_first(&__YT3,L25203713); // L192 INSTALL_LISAAC;
-              if (__FMB==NULL) {
-                lisaac_push(&__YT3,L25321985); // L193 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__YT3,L25321985); // L193 INSTALL_LISAAC;
-                __TNB=__GCJ(((____0B *)__FMB),__DMB);
-              };
-              if (__EMB==NULL) {
-                lisaac_push(&__YT3,L25322497); // L193 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__YT3,L25322497); // L193 INSTALL_LISAAC;
-                __PRG(((____0B *)__EMB),__TNB);
-              };
-              if (__FMB==NULL) {
-                lisaac_push(&__YT3,L25443329); // L194 INSTALL_LISAAC;
-                lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-              } else /* STRING */ {
-                lisaac_push(&__YT3,L25443329); // L194 INSTALL_LISAAC;
-                __YCJ(((____0B *)__FMB),__DMB);
-              };
-              lisaac_push(&__PZX,L9709074); // L74 BLOCK;
-              goto __YRD;
+            __BSH=__F__;
+          } else /* FALSE */ {
+            __BSH=__J__;
+          };
+          if ((! __BSH)) {
+            if ((((((((__JNH == ' ') || (__JNH == '\t')) || (__JNH == '\n')) || (__JNH == '\r')) || (__JNH == '\0')) || (__JNH == '\f')) || (__JNH == '\v'))) {
+              __0WY= 3;
             } else /* FALSE */ {
-              lisaac_push(&__ZRD,L9832978); // L75 BLOCK;
-              lisaac_push_first(&__JNB,L8530438); // L65 FALSE;
+              __0WY= 4;
             };
           };
-          if (__FMB==NULL) {
-            lisaac_push(&__DNB,L25705985); // L196 INSTALL_LISAAC;
-            lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-          } else /* STRING */ {
-            lisaac_push(&__DNB,L25705985); // L196 INSTALL_LISAAC;
-            __QZX=((____0B *)__FMB);
-            lisaac_push_first(&__ZRD,L6427149); // L49 ABSTRACT_STRING;
-            __LNB=__QZX->__FC;
+        };
+        __BOH=__RGT;
+      };
+      if ((! __BOH)) {
+        if ((__0WY ==  3)) {
+          if ((! (((((((__JNH == ' ') || (__JNH == '\t')) || (__JNH == '\n')) || (__JNH == '\r')) || (__JNH == '\0')) || (__JNH == '\f')) || (__JNH == '\v')))) {
+            __0WY= 4;
           };
-          lisaac_push(&__DNB,L25699841); // L196 INSTALL_LISAAC;
-          lisaac_push_first(&__ZRD,L15759880); // L120 NUMERIC;
-          lisaac_push_first(&__JNB,L15224840); // L116 NUMERIC;
-          if ((__DMB > __LNB)) {
-            lisaac_push(&__ZRD,L15755784); // L120 NUMERIC;
-            lisaac_push_first(&__JNB,L13509636); // L103 TRUE;
-            __2T3=__J__;
+        };
+      };
+      __PMH=(____L)(__PMH +  1);
+    };
+    if (((__0WY !=  0) && (__0WY !=  4))) {
+      __TMH=__F__;
+    };
+    if (__TMH) {
+      __3WY=((____WB *)__XP);
+      __RPH= 0;
+      __BOH=__J__;
+      __XUJ= 0;
+      __TUJ= 1;
+      __QXY=__3WY->__BC;
+      __4WY=__3WY->__ZAE;
+      __SXY=__3WY->__BC;
+      while ((__TUJ <= __QXY)) {
+        __LVJ=((____4 *)__4WY)[(____L)(__TUJ -  1)];
+        if ((__RPH ==  0)) {
+          if ((((((((__LVJ == ' ') || (__LVJ == '\t')) || (__LVJ == '\n')) || (__LVJ == '\r')) || (__LVJ == '\0')) || (__LVJ == '\f')) || (__LVJ == '\v'))) {
+            __BSH=__F__;
           } else /* FALSE */ {
-            lisaac_push(&__ZRD,L15755784); // L120 NUMERIC;
-            lisaac_push_first(&__JNB,L14689286); // L112 FALSE;
-            __2T3=__F__;
-          };
-          if (__2T3) {
-            lisaac_push(&__DNB,L26088961); // L199 INSTALL_LISAAC;
-            lisaac_push_first(&__ZRD,L8792068); // L67 TRUE;
-            lisaac_push_first(&__JNB,L25709057); // L196 INSTALL_LISAAC;
-            if (__FMB==NULL) {
-              lisaac_push(&__JNB,L25846273); // L197 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__JNB,L25846273); // L197 INSTALL_LISAAC;
-              __TNB=__GCJ(((____0B *)__FMB),__DMB);
+            __CIT=(__LVJ == '+');
+            if (__CIT) {
+              __RPH= 1;
             };
-            if (__EMB==NULL) {
-              lisaac_push(&__JNB,L25846785); // L197 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__JNB,L25846785); // L197 INSTALL_LISAAC;
-              __PRG(((____0B *)__EMB),__TNB);
-            };
-            if (__FMB==NULL) {
-              lisaac_push(&__JNB,L25967617); // L198 INSTALL_LISAAC;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* STRING */ {
-              lisaac_push(&__JNB,L25967617); // L198 INSTALL_LISAAC;
-              __YCJ(((____0B *)__FMB),__DMB);
+            __BSH=__CIT;
+          };
+          if ((! __BSH)) {
+            if ((__LVJ == '-')) {
+              __BOH=__F__;
+              __RPH= 1;
+            } else /* FALSE */ {
+              __XUJ=(____L)(((____L )((____QY )__LVJ)) -  48);
+              __RPH= 2;
             };
-          } else /* FALSE */ {
-            lisaac_push(&__DNB,L26088961); // L199 INSTALL_LISAAC;
-            lisaac_push_first(&__ZRD,L8530438); // L65 FALSE;
           };
-          lisaac_push(&__RC3,L21633544); // L165 NUMERIC;
-          lisaac_push_first(&__DNB,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__ZRD,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__JNB,L9195016); // L70 NUMERIC;
-          __LNB=(____L)(-  1);
-          lisaac_push(&__DNB,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__ZRD,L9195016); // L70 NUMERIC;
-          __KKC=(____L)(__WMB - __LNB);
-          lisaac_push(&__RC3,L21644808); // L165 NUMERIC;
-          __WMB=__KKC;
-          goto __4JC;
+          __GXY=__F__;
         } else /* FALSE */ {
-          lisaac_push(&__TK0,L21760520); // L166 NUMERIC;
-          lisaac_push_first(&__DXW,L8530438); // L65 FALSE;
+          __GXY=__J__;
         };
-      };
-      if (__3MB==NULL) {
-        lisaac_push(&__SK0,L26356737); // L201 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__SK0,L26356737); // L201 INSTALL_LISAAC;
-        __IC3=((____0B *)__3MB);
-        lisaac_push_first(&__TK0,L29254157); // L223 ABSTRACT_STRING;
-        __TC3=__J__;
-        lisaac_push(&__TK0,L29624845); // L226 ABSTRACT_STRING;
-        lisaac_push_first(&__DXW,L19150866); // L146 BLOCK;
-        lisaac_push_first(&__RC3,L7481858); // L57 OBJECT;
-        __PGK=((____DB )(top_context->back->back));
-        lisaac_push(&__DXW,L19280914); // L147 BLOCK;
-        lisaac_push_first(&__RC3,L10652676); // L81 TRUE;
-        lisaac_push_first(&__DNB,L19285522); // L147 BLOCK;
-        lisaac_push_first(&__ZRD,L29625869); // L226 ABSTRACT_STRING;
-        if (((void *)__BMB != (void *)NULL)) {
-          lisaac_push(&__DNB,L19282450); // L147 BLOCK;
-          lisaac_push_first(&__ZRD,L13509636); // L103 TRUE;
-          __2T3=__J__;
+        if (__GXY) {
+          __GXY=__F__;
         } else /* FALSE */ {
-          lisaac_push(&__DNB,L19282450); // L147 BLOCK;
-          lisaac_push_first(&__ZRD,L14689286); // L112 FALSE;
-          __2T3=__F__;
+          __BSH=(__RPH ==  1);
+          if (__BSH) {
+            __BXJ=(____L)(((____L )((____QY )__LVJ)) -  48);
+            __XUJ=__BXJ;
+            if (__BOH) {
+              __XUJ=(____L)(- __BXJ);
+            };
+            __RPH= 2;
+          };
+          __GXY=__BSH;
         };
-        if (__2T3) {
-          lisaac_push(&__DXW,L19532306); // L149 BLOCK;
-          lisaac_push_first(&__RC3,L8792068); // L67 TRUE;
-          lisaac_push_first(&__DNB,L19289106); // L147 BLOCK;
-          lisaac_push(&__DNB,L19428370); // L148 BLOCK;
-          lisaac_push_first(&__ZRD,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__JNB,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__PZX,L8792068); // L67 TRUE;
-          lisaac_push_first(&__YT3,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__PGK));
-          lisaac_push(&__ZRD,L9574914); // L73 OBJECT;
-          __DX((&__string_43));
-          lisaac_push(&__ZRD,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__JNB,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__PZX,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__YT3,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__ZT3,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__ZRD,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__JNB,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__PZX,L4598824); // L35 SYSTEM;
-          exit(( 1));
+        if (__GXY) {
+          __GXY=__F__;
         } else /* FALSE */ {
-          lisaac_push(&__DXW,L19532306); // L149 BLOCK;
-          lisaac_push_first(&__RC3,L8530438); // L65 FALSE;
-        };
-        __YJC=__IC3->__FC;
-        if (__BMB==NULL) {
-          lisaac_push(&__TK0,L29765645); // L227 ABSTRACT_STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else {
-          if (((struct ___OBJ *)__BMB)->__id==____V__) {
-            __OC3=((____V *)__BMB)->__YB;
-          } else /* Other types */ {
-            __OC3=((____0B *)__BMB)->__FC;
-          }
-        };
-        if ((__YJC == __OC3)) {
-          lisaac_push(&__TK0,L30542349); // L233 ABSTRACT_STRING;
-          lisaac_push_first(&__DXW,L8792068); // L67 TRUE;
-          lisaac_push_first(&__RC3,L29768717); // L227 ABSTRACT_STRING;
-          if ((__IC3->__FC ==  0)) {
-            lisaac_push(&__RC3,L30412301); // L232 ABSTRACT_STRING;
-            lisaac_push_first(&__DNB,L6825988); // L52 TRUE;
-            lisaac_push_first(&__ZRD,L29895693); // L228 ABSTRACT_STRING;
-            __TC3=__F__;
-          } else /* FALSE */ {
-            lisaac_push(&__RC3,L30412301); // L232 ABSTRACT_STRING;
-            lisaac_push_first(&__DNB,L6826502); // L52 FALSE;
-            lisaac_push_first(&__ZRD,L30153741); // L230 ABSTRACT_STRING;
-            __A5I=__IC3->__IUE;
-            if (__BMB==NULL) {
-              lisaac_push(&__ZRD,L30303245); // L231 ABSTRACT_STRING;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else {
-              if (((struct ___OBJ *)__BMB)->__id==____V__) {
-                __B5I=((____V *)__BMB)->__ZB;
-              } else /* Other types */ {
-                __B5I=((____0B *)__BMB)->__IUE;
-              }
+          __BSH=(__RPH ==  2);
+          if (__BSH) {
+            __CIT=__J__;
+            if ((((____QY )__LVJ) >= ((____QY )'0'))) {
+              __CIT=(((____QY )__LVJ) <= ((____QY )'9'));
             };
-            __LNB=__IC3->__FC;
-            if (__A5I==NULL) {
-              lisaac_push(&__ZRD,L30309901); // L231 ABSTRACT_STRING;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-              lisaac_push(&__ZRD,L30309901); // L231 ABSTRACT_STRING;
-              __J1N=((____4 *)__A5I);
-              __K1N=__B5I;
-              lisaac_push_first(&__JNB,L26872853); // L205 NATIVE_ARRAY;
-              lisaac_push_first(&__PZX,L21772306); // L166 BLOCK;
-              lisaac_push_first(&__YT3,L7481858); // L57 OBJECT;
-              __BBO=((____DB )(top_context->back->back));
-              lisaac_push(&__PZX,L21902354); // L167 BLOCK;
-              lisaac_push_first(&__YT3,L10652676); // L81 TRUE;
-              lisaac_push_first(&__ZT3,L21906962); // L167 BLOCK;
-              lisaac_push_first(&__Q1N,L26879509); // L205 NATIVE_ARRAY;
-              lisaac_push_first(&__NXW,L15224840); // L116 NUMERIC;
-              if ((__LNB >  0)) {
-                lisaac_push(&__Q1N,L26883093); // L205 NATIVE_ARRAY;
-                lisaac_push_first(&__NXW,L11962884); // L91 TRUE;
-                lisaac_push_first(&__X1N,L26884117); // L205 NATIVE_ARRAY;
-                if (__B5I==NULL) {
-                  lisaac_push(&__X1N,L26892821); // L205 NATIVE_ARRAY;
-                  lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-                } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-                  lisaac_push(&__X1N,L26892821); // L205 NATIVE_ARRAY;
-                  __GVF=((____4 *)__B5I);
-                  lisaac_push_first(&__FVF,L104090133); // L794 NATIVE_ARRAY;
-                  lisaac_push_first(&__YJO,L22048258); // L168 OBJECT;
-                  lisaac_push_first(&__PJY,L4069927); // L31 CONVERT;
-                  __1JO=((____DB )__GVF);
-                  lisaac_push(&__FVF,L104096277); // L794 NATIVE_ARRAY;
-                  lisaac_push_first(&__YJO,L6440979); // L49 POINTER;
-                  lisaac_push_first(&__PJY,L6034963); // L46 POINTER;
-                  if ((__1JO == (void *)NULL)) {
-                    lisaac_push(&__YJO,L6436883); // L49 POINTER;
-                    lisaac_push_first(&__PJY,L13509636); // L103 TRUE;
-                    __ACG=__J__;
-                  } else /* FALSE */ {
-                    lisaac_push(&__YJO,L6436883); // L49 POINTER;
-                    lisaac_push_first(&__PJY,L14689286); // L112 FALSE;
-                    __ACG=__F__;
-                  };
-                  __AU3=__ACG;
-                };
-                __4T3=__AU3;
-              } else /* FALSE */ {
-                lisaac_push(&__Q1N,L26883093); // L205 NATIVE_ARRAY;
-                lisaac_push_first(&__NXW,L13391878); // L102 FALSE;
-                __4T3=__F__;
-              };
-              if (__4T3) {
-                lisaac_push(&__ZT3,L21903890); // L167 BLOCK;
-                lisaac_push_first(&__Q1N,L13509636); // L103 TRUE;
-                __4T3=__J__;
-              } else /* FALSE */ {
-                lisaac_push(&__ZT3,L21903890); // L167 BLOCK;
-                lisaac_push_first(&__Q1N,L14689286); // L112 FALSE;
-                __4T3=__F__;
-              };
-              if (__4T3) {
-                lisaac_push(&__PZX,L22153746); // L169 BLOCK;
-                lisaac_push_first(&__YT3,L8792068); // L67 TRUE;
-                lisaac_push_first(&__ZT3,L21910546); // L167 BLOCK;
-                lisaac_push(&__ZT3,L22051346); // L168 BLOCK;
-                lisaac_push_first(&__Q1N,L9452546); // L72 OBJECT;
-                lisaac_push_first(&__NXW,L8260098); // L63 OBJECT;
-                lisaac_push_first(&__X1N,L8792068); // L67 TRUE;
-                lisaac_push_first(&__FVF,L8009218); // L61 OBJECT;
-                lisaac_stack_print((_____CONTEXT *)(__BBO));
-                lisaac_push(&__Q1N,L9574914); // L73 OBJECT;
-                __DX((&__string_1));
-                lisaac_push(&__Q1N,L9706498); // L74 OBJECT;
-                lisaac_push_first(&__NXW,L10896400); // L83 CHARACTER;
-                lisaac_push_first(&__X1N,L5005342); // L38 STD_OUTPUT;
-                lisaac_push_first(&__FVF,L18378271); // L140 OUTPUT_STREAM;
-                lisaac_push_first(&__YJO,L6962199); // L53 SYSTEM_IO;
-                fputc((int)('\n'),stdout);
-                lisaac_push(&__Q1N,L9848322); // L75 OBJECT;
-                lisaac_push_first(&__NXW,L10904578); // L83 OBJECT;
-                lisaac_push_first(&__X1N,L4598824); // L35 SYSTEM;
-                exit(( 1));
+            if (__CIT) {
+              if (__BOH) {
+                __XUJ=(____L)((____L)( 10 * __XUJ) - (____L)(((____L )((____QY )__LVJ)) -  48));
               } else /* FALSE */ {
-                lisaac_push(&__PZX,L22153746); // L169 BLOCK;
-                lisaac_push_first(&__YT3,L8530438); // L65 FALSE;
+                __XUJ=(____L)((____L)( 10 * __XUJ) + (____L)(((____L )((____QY )__LVJ)) -  48));
               };
-              lisaac_push(&__JNB,L27403285); // L209 NATIVE_ARRAY;
-              lisaac_push_first(&__PZX,L9195016); // L70 NUMERIC;
-              __51N=(____L)(__LNB -  1);
-              lisaac_push(&__JNB,L27789845); // L212 NATIVE_ARRAY;
-              lisaac_push_first(&__PZX,L9441810); // L72 BLOCK;
-              __0BO:
-              {
-                lisaac_push(&__PZX,L9441810); // L72 BLOCK;
-                lisaac_push_first(&__YT3,L27530261); // L210 NATIVE_ARRAY;
-                lisaac_push_first(&__ZT3,L16021000); // L122 NUMERIC;
-                lisaac_push_first(&__Q1N,L15224840); // L116 NUMERIC;
-                __AU3=(__51N >  0);
-                lisaac_push(&__ZT3,L16030216); // L122 NUMERIC;
-                lisaac_push_first(&__Q1N,L14700552); // L112 NUMERIC;
-                __ACG=(__51N ==  0);
-                if (__AU3) {
-                  lisaac_push(&__ZT3,L16025608); // L122 NUMERIC;
-                  lisaac_push_first(&__Q1N,L10900996); // L83 TRUE;
-                  __UL0=__F__;
-                } else /* FALSE */ {
-                  lisaac_push(&__ZT3,L16025608); // L122 NUMERIC;
-                  lisaac_push_first(&__Q1N,L12342790); // L94 FALSE;
-                  __UL0=__ACG;
-                };
-                if (__UL0) {
-                  lisaac_push(&__YT3,L27533333); // L210 NATIVE_ARRAY;
-                  lisaac_push_first(&__ZT3,L10652676); // L81 TRUE;
-                  lisaac_push_first(&__Q1N,L27537941); // L210 NATIVE_ARRAY;
-                  __N2N=__LVD(__J1N,__51N);
-                  if (__K1N==NULL) {
-                    lisaac_push(&__Q1N,L27545109); // L210 NATIVE_ARRAY;
-                    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-                  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-                    lisaac_push(&__Q1N,L27545109); // L210 NATIVE_ARRAY;
-                    __O2N=__LVD(((____4 *)__K1N),__51N);
-                  };
-                  __UL0=(__N2N == __O2N);
-                } else /* FALSE */ {
-                  lisaac_push(&__YT3,L27533333); // L210 NATIVE_ARRAY;
-                  lisaac_push_first(&__ZT3,L12081158); // L92 FALSE;
-                  __UL0=__J__;
-                };
-                if (__UL0) {
-                  lisaac_push(&__PZX,L9832978); // L75 BLOCK;
-                  lisaac_push_first(&__YT3,L8792068); // L67 TRUE;
-                  lisaac_push_first(&__ZT3,L9576466); // L73 BLOCK;
-                  lisaac_push_first(&__Q1N,L27663381); // L211 NATIVE_ARRAY;
-                  lisaac_push_first(&__NXW,L9195016); // L70 NUMERIC;
-                  __51N=(____L)(__51N -  1);
-                  lisaac_push(&__ZT3,L9709074); // L74 BLOCK;
-                  goto __0BO;
-                } else /* FALSE */ {
-                  lisaac_push(&__PZX,L9832978); // L75 BLOCK;
-                  lisaac_push_first(&__YT3,L8530438); // L65 FALSE;
-                };
-              };
-              lisaac_push(&__JNB,L27921941); // L213 NATIVE_ARRAY;
-              lisaac_push_first(&__PZX,L15498248); // L118 NUMERIC;
-              lisaac_push_first(&__YT3,L16021000); // L122 NUMERIC;
-              lisaac_push_first(&__ZT3,L15224840); // L116 NUMERIC;
-              __4T3=(__51N >  0);
-              lisaac_push(&__YT3,L16030216); // L122 NUMERIC;
-              lisaac_push_first(&__ZT3,L14700552); // L112 NUMERIC;
-              __AU3=(__51N ==  0);
-              if (__4T3) {
-                lisaac_push(&__YT3,L16025608); // L122 NUMERIC;
-                lisaac_push_first(&__ZT3,L10900996); // L83 TRUE;
-                __ACG=__F__;
-              } else /* FALSE */ {
-                lisaac_push(&__YT3,L16025608); // L122 NUMERIC;
-                lisaac_push_first(&__ZT3,L12342790); // L94 FALSE;
-                __ACG=__AU3;
-              };
-              if (__ACG) {
-                lisaac_push(&__PZX,L15493640); // L118 NUMERIC;
-                lisaac_push_first(&__YT3,L13509636); // L103 TRUE;
-                __ACG=__J__;
-              } else /* FALSE */ {
-                lisaac_push(&__PZX,L15493640); // L118 NUMERIC;
-                lisaac_push_first(&__YT3,L14689286); // L112 FALSE;
-                __ACG=__F__;
-              };
-              __4T3=__ACG;
+            } else /* FALSE */ {
+              __RPH= 3;
             };
-            __TC3=__4T3;
           };
-        } else /* FALSE */ {
-          lisaac_push(&__TK0,L30542349); // L233 ABSTRACT_STRING;
-          lisaac_push_first(&__DXW,L8530438); // L65 FALSE;
+          __GXY=__BSH;
         };
-        __2T3=__TC3;
-      };
-      if (__2T3) {
-        lisaac_push(&__SK0,L27136513); // L207 INSTALL_LISAAC;
-        lisaac_push_first(&__TK0,L6825988); // L52 TRUE;
-        lisaac_push_first(&__DXW,L26364417); // L201 INSTALL_LISAAC;
-        lisaac_push(&__DXW,L26511873); // L202 INSTALL_LISAAC;
-        __DX((&__string_122));
-      } else /* FALSE */ {
-        lisaac_push(&__SK0,L27136513); // L207 INSTALL_LISAAC;
-        lisaac_push_first(&__TK0,L6826502); // L52 FALSE;
-        lisaac_push_first(&__DXW,L26615809); // L203 INSTALL_LISAAC;
-        lisaac_push(&__DXW,L26768385); // L204 INSTALL_LISAAC;
-        __DX((&__string_123));
-        if (__3MB==NULL) {
-          lisaac_push(&__DXW,L26883073); // L205 INSTALL_LISAAC;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__DXW,L26883073); // L205 INSTALL_LISAAC;
-          __QZX=((____0B *)__3MB);
-          lisaac_push_first(&__RC3,L167652365); // L1279 ABSTRACT_STRING;
-          __N4C(__QZX);
-        };
-        lisaac_push(&__DXW,L27018753); // L206 INSTALL_LISAAC;
-        __DX((&__string_124));
-      };
-    } else /* FALSE */ {
-      lisaac_push(&__OMB,L27659777); // L211 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L6826502); // L52 FALSE;
-      lisaac_push_first(&__SK0,L27270145); // L208 INSTALL_LISAAC;
-      lisaac_push(&__SK0,L27418113); // L209 INSTALL_LISAAC;
-      __DX((&__string_125));
-      if (__XSY==NULL) {
-        lisaac_push(&__SK0,L27539969); // L210 INSTALL_LISAAC;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* STRING */ {
-        lisaac_push(&__SK0,L27539969); // L210 INSTALL_LISAAC;
-        __IC3=((____0B *)__XSY);
-        lisaac_push_first(&__TK0,L6427149); // L49 ABSTRACT_STRING;
-        __YJC=__IC3->__FC;
-      };
-      lisaac_push(&__SK0,L27540481); // L210 INSTALL_LISAAC;
-      lisaac_push_first(&__TK0,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__DXW,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__RC3,L9195016); // L70 NUMERIC;
-      __WMB=(____L)(-  1);
-      lisaac_push(&__TK0,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__DXW,L9195016); // L70 NUMERIC;
-      __DMB=(____L)(__YJC - __WMB);
-    };
-    if (__BMB==NULL) {
-      lisaac_push(&__OMB,L27797505); // L212 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else {
-      if (((struct ___OBJ *)__BMB)->__id==____V__) {
-        lisaac_push(&__OMB,L27797505); // L212 INSTALL_LISAAC;
-        __DX(((____V *)__BMB));
-      } else /* Other types */ {
-        lisaac_push(&__OMB,L27797505); // L212 INSTALL_LISAAC;
-        __3MB=((____0B *)__BMB);
-        lisaac_push_first(&__X1B,L167652365); // L1279 ABSTRACT_STRING;
-        __N4C(__3MB);
-      }
-    };
-    if (__XSY==NULL) {
-      lisaac_push(&__OMB,L28071425); // L214 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__OMB,L28071425); // L214 INSTALL_LISAAC;
-      __3MB=((____0B *)__XSY);
-      lisaac_push_first(&__X1B,L33032728); // L252 STRING;
-      lisaac_push_first(&__SK0,L19150866); // L146 BLOCK;
-      lisaac_push_first(&__TK0,L7481858); // L57 OBJECT;
-      __PGK=((____DB )(top_context->back->back));
-      lisaac_push(&__SK0,L19280914); // L147 BLOCK;
-      lisaac_push_first(&__TK0,L10652676); // L81 TRUE;
-      lisaac_push_first(&__DXW,L19285522); // L147 BLOCK;
-      lisaac_push_first(&__RC3,L33033752); // L252 STRING;
-      if (((void *)__BMB != (void *)NULL)) {
-        lisaac_push(&__DXW,L19282450); // L147 BLOCK;
-        lisaac_push_first(&__RC3,L13509636); // L103 TRUE;
-        __TC3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__DXW,L19282450); // L147 BLOCK;
-        lisaac_push_first(&__RC3,L14689286); // L112 FALSE;
-        __TC3=__F__;
-      };
-      if (__TC3) {
-        lisaac_push(&__SK0,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__TK0,L8792068); // L67 TRUE;
-        lisaac_push_first(&__DXW,L19289106); // L147 BLOCK;
-        lisaac_push(&__DXW,L19428370); // L148 BLOCK;
-        lisaac_push_first(&__RC3,L9452546); // L72 OBJECT;
-        lisaac_push_first(&__DNB,L8260098); // L63 OBJECT;
-        lisaac_push_first(&__ZRD,L8792068); // L67 TRUE;
-        lisaac_push_first(&__JNB,L8009218); // L61 OBJECT;
-        lisaac_stack_print((_____CONTEXT *)(__PGK));
-        lisaac_push(&__RC3,L9574914); // L73 OBJECT;
-        __DX((&__string_43));
-        lisaac_push(&__RC3,L9706498); // L74 OBJECT;
-        lisaac_push_first(&__DNB,L10896400); // L83 CHARACTER;
-        lisaac_push_first(&__ZRD,L5005342); // L38 STD_OUTPUT;
-        lisaac_push_first(&__JNB,L18378271); // L140 OUTPUT_STREAM;
-        lisaac_push_first(&__PZX,L6962199); // L53 SYSTEM_IO;
-        fputc((int)('\n'),stdout);
-        lisaac_push(&__RC3,L9848322); // L75 OBJECT;
-        lisaac_push_first(&__DNB,L10904578); // L83 OBJECT;
-        lisaac_push_first(&__ZRD,L4598824); // L35 SYSTEM;
-        exit(( 1));
-      } else /* FALSE */ {
-        lisaac_push(&__SK0,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__TK0,L8530438); // L65 FALSE;
-      };
-      lisaac_push(&__X1B,L33163800); // L253 STRING;
-      lisaac_push_first(&__SK0,L19150866); // L146 BLOCK;
-      lisaac_push_first(&__TK0,L7481858); // L57 OBJECT;
-      __PGK=((____DB )(top_context->back->back));
-      lisaac_push(&__SK0,L19280914); // L147 BLOCK;
-      lisaac_push_first(&__TK0,L10652676); // L81 TRUE;
-      lisaac_push_first(&__DXW,L19285522); // L147 BLOCK;
-      lisaac_push_first(&__RC3,L33164824); // L253 STRING;
-      __WMB=__3MB->__FC;
-      lisaac_push(&__RC3,L33177624); // L253 STRING;
-      lisaac_push_first(&__DNB,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__ZRD,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__JNB,L9195016); // L70 NUMERIC;
-      __YJC=(____L)(-  1);
-      lisaac_push(&__DNB,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__ZRD,L9195016); // L70 NUMERIC;
-      __ZJC=(____L)(__WMB - __YJC);
-      lisaac_push(&__RC3,L33179160); // L253 STRING;
-      lisaac_push_first(&__DNB,L6296072); // L48 NUMERIC;
-      lisaac_push_first(&__ZRD,L15759880); // L120 NUMERIC;
-      lisaac_push_first(&__JNB,L15224840); // L116 NUMERIC;
-      if (( 1 > __DMB)) {
-        lisaac_push(&__ZRD,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__JNB,L13509636); // L103 TRUE;
-        __TC3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__ZRD,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__JNB,L14689286); // L112 FALSE;
-        __TC3=__F__;
-      };
-      if (__TC3) {
-        lisaac_push(&__DNB,L6300680); // L48 NUMERIC;
-        lisaac_push_first(&__ZRD,L10652676); // L81 TRUE;
-        lisaac_push_first(&__JNB,L6304264); // L48 NUMERIC;
-        lisaac_push_first(&__PZX,L16021000); // L122 NUMERIC;
-        lisaac_push_first(&__YT3,L15224840); // L116 NUMERIC;
-        __TC3=(__ZJC > __DMB);
-        lisaac_push(&__PZX,L16030216); // L122 NUMERIC;
-        lisaac_push_first(&__YT3,L14700552); // L112 NUMERIC;
-        __2T3=(__ZJC == __DMB);
-        if (__TC3) {
-          lisaac_push(&__PZX,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__YT3,L10900996); // L83 TRUE;
-          __4T3=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__PZX,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__YT3,L12342790); // L94 FALSE;
-          __4T3=__2T3;
-        };
-        __TC3=__4T3;
-      } else /* FALSE */ {
-        lisaac_push(&__DNB,L6300680); // L48 NUMERIC;
-        lisaac_push_first(&__ZRD,L12081158); // L92 FALSE;
-        __TC3=__J__;
-      };
-      if (__TC3) {
-        lisaac_push(&__DXW,L19282450); // L147 BLOCK;
-        lisaac_push_first(&__RC3,L13509636); // L103 TRUE;
-        __TC3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__DXW,L19282450); // L147 BLOCK;
-        lisaac_push_first(&__RC3,L14689286); // L112 FALSE;
-        __TC3=__F__;
-      };
-      if (__TC3) {
-        lisaac_push(&__SK0,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__TK0,L8792068); // L67 TRUE;
-        lisaac_push_first(&__DXW,L19289106); // L147 BLOCK;
-        lisaac_push(&__DXW,L19428370); // L148 BLOCK;
-        lisaac_push_first(&__RC3,L9452546); // L72 OBJECT;
-        lisaac_push_first(&__DNB,L8260098); // L63 OBJECT;
-        lisaac_push_first(&__ZRD,L8792068); // L67 TRUE;
-        lisaac_push_first(&__JNB,L8009218); // L61 OBJECT;
-        lisaac_stack_print((_____CONTEXT *)(__PGK));
-        lisaac_push(&__RC3,L9574914); // L73 OBJECT;
-        __DX((&__string_43));
-        lisaac_push(&__RC3,L9706498); // L74 OBJECT;
-        lisaac_push_first(&__DNB,L10896400); // L83 CHARACTER;
-        lisaac_push_first(&__ZRD,L5005342); // L38 STD_OUTPUT;
-        lisaac_push_first(&__JNB,L18378271); // L140 OUTPUT_STREAM;
-        lisaac_push_first(&__PZX,L6962199); // L53 SYSTEM_IO;
-        fputc((int)('\n'),stdout);
-        lisaac_push(&__RC3,L9848322); // L75 OBJECT;
-        lisaac_push_first(&__DNB,L10904578); // L83 OBJECT;
-        lisaac_push_first(&__ZRD,L4598824); // L35 SYSTEM;
-        exit(( 1));
-      } else /* FALSE */ {
-        lisaac_push(&__SK0,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__TK0,L8530438); // L65 FALSE;
-      };
-      __WMB=__3MB->__FC;
-      if (__BMB==NULL) {
-        lisaac_push(&__X1B,L33562648); // L256 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else {
-        if (((struct ___OBJ *)__BMB)->__id==____V__) {
-          __1JC=((____V *)__BMB)->__YB;
-        } else /* Other types */ {
-          __1JC=((____0B *)__BMB)->__FC;
-        }
-      };
-      lisaac_push(&__X1B,L33693208); // L257 STRING;
-      lisaac_push_first(&__SK0,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__TK0,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__DXW,L9195016); // L70 NUMERIC;
-      __YJC=(____L)(- __1JC);
-      lisaac_push(&__SK0,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__TK0,L9195016); // L70 NUMERIC;
-      __ZJC=(____L)(__WMB - __YJC);
-      lisaac_push(&__X1B,L33694744); // L257 STRING;
-      __PZJ(__3MB,__ZJC);
-      lisaac_push(&__X1B,L33821208); // L258 STRING;
-      lisaac_push_first(&__SK0,L15759880); // L120 NUMERIC;
-      lisaac_push_first(&__TK0,L15224840); // L116 NUMERIC;
-      if ((__DMB > __WMB)) {
-        lisaac_push(&__SK0,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__TK0,L13509636); // L103 TRUE;
-        __TC3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__SK0,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__TK0,L14689286); // L112 FALSE;
-        __TC3=__F__;
-      };
-      if (__TC3) {
-        lisaac_push(&__X1B,L34081304); // L260 STRING;
-        lisaac_push_first(&__SK0,L8792068); // L67 TRUE;
-        lisaac_push_first(&__TK0,L33825304); // L258 STRING;
-        __XJC=__3MB->__IUE;
-        lisaac_push(&__TK0,L33959448); // L259 STRING;
-        lisaac_push_first(&__DXW,L9195016); // L70 NUMERIC;
-        __OC3=(____L)(__DMB -  1);
-        lisaac_push(&__TK0,L33965080); // L259 STRING;
-        lisaac_push_first(&__DXW,L9195016); // L70 NUMERIC;
-        __LNB=(____L)(__WMB -  1);
-        if (__XJC==NULL) {
-          lisaac_push(&__TK0,L33969176); // L259 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-          lisaac_push(&__TK0,L33969176); // L259 STRING;
-          __PVM(((____4 *)__XJC),__OC3,__LNB,__1JC);
-        };
-      } else /* FALSE */ {
-        lisaac_push(&__X1B,L34081304); // L260 STRING;
-        lisaac_push_first(&__SK0,L8530438); // L65 FALSE;
-      };
-      __I2B=__3MB->__IUE;
-      if (__BMB==NULL) {
-        lisaac_push(&__X1B,L34223640); // L261 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else {
-        if (((struct ___OBJ *)__BMB)->__id==____V__) {
-          __XJC=((____V *)__BMB)->__ZB;
-        } else /* Other types */ {
-          __XJC=((____0B *)__BMB)->__IUE;
-        }
-      };
-      lisaac_push(&__X1B,L34228248); // L261 STRING;
-      lisaac_push_first(&__SK0,L9195016); // L70 NUMERIC;
-      __WMB=(____L)(__DMB -  1);
-      if (__I2B==NULL) {
-        lisaac_push(&__X1B,L34233880); // L261 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-        lisaac_push(&__X1B,L34233880); // L261 STRING;
-        __CWJ(((____4 *)__I2B),__XJC,__WMB,__1JC);
-      };
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__3LB,L29231617); // L223 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L6826502); // L52 FALSE;
-    lisaac_push_first(&__OMB,L28186625); // L215 INSTALL_LISAAC;
-    lisaac_push(&__OMB,L28465665); // L217 INSTALL_LISAAC;
-    __DX((&__string_126));
-    if (__BMB==NULL) {
-      lisaac_push(&__OMB,L28583937); // L218 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else {
-      if (((struct ___OBJ *)__BMB)->__id==____V__) {
-        lisaac_push(&__OMB,L28583937); // L218 INSTALL_LISAAC;
-        __DX(((____V *)__BMB));
-      } else /* Other types */ {
-        lisaac_push(&__OMB,L28583937); // L218 INSTALL_LISAAC;
-        __3MB=((____0B *)__BMB);
-        lisaac_push_first(&__X1B,L167652365); // L1279 ABSTRACT_STRING;
-        __N4C(__3MB);
-      }
-    };
-    if (__BMB==NULL) {
-      lisaac_push(&__OMB,L22289921); // L170 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else {
-      if (((struct ___OBJ *)__BMB)->__id==____V__) {
-        lisaac_push(&__OMB,L22289921); // L170 INSTALL_LISAAC;
-        __UJC=((____V *)__BMB);
-        lisaac_push_first(&__X1B,L5784076); // L44 STRING_CONSTANT;
-        lisaac_push_first(&__SK0,L6690828); // L51 STRING_CONSTANT;
-        __WMB=__UJC->__YB;
-        lisaac_push(&__X1B,L5784076); // L44 STRING_CONSTANT;
-        __3MB=__QF(__WMB);
-        if (__3MB==NULL) {
-          lisaac_push(&__X1B,L5906956); // L45 STRING_CONSTANT;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__X1B,L5906956); // L45 STRING_CONSTANT;
-          __4II(((____0B *)__3MB),__UJC);
-        };
-        __IC3=__3MB;
-      } else /* Other types */ {
-        lisaac_push(&__OMB,L22289921); // L170 INSTALL_LISAAC;
-        __3MB=((____0B *)__BMB);
-        lisaac_push_first(&__X1B,L166069261); // L1267 ABSTRACT_STRING;
-        lisaac_push_first(&__SK0,L8672792); // L66 STRING;
-        __WMB=__3MB->__FC;
-        lisaac_push(&__SK0,L9060376); // L69 STRING;
-        __QZX=__QF(__WMB);
-        if (__QZX==NULL) {
-          lisaac_push(&__SK0,L9184792); // L70 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__SK0,L9184792); // L70 STRING;
-          __4II(((____0B *)__QZX),__3MB);
-        };
-        __IC3=__QZX;
-      }
-    };
-    __FMB=__IC3;
-    if (__5LB==NULL) {
-      lisaac_push(&__OMB,L22158849); // L169 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else {
-      if (((struct ___OBJ *)__5LB)->__id==____V__) {
-        lisaac_push(&__OMB,L22158849); // L169 INSTALL_LISAAC;
-        __UJC=((____V *)__5LB);
-        lisaac_push_first(&__X1B,L5784076); // L44 STRING_CONSTANT;
-        lisaac_push_first(&__SK0,L6690828); // L51 STRING_CONSTANT;
-        __WMB=__UJC->__YB;
-        lisaac_push(&__X1B,L5784076); // L44 STRING_CONSTANT;
-        __3MB=__QF(__WMB);
-        if (__3MB==NULL) {
-          lisaac_push(&__X1B,L5906956); // L45 STRING_CONSTANT;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__X1B,L5906956); // L45 STRING_CONSTANT;
-          __4II(((____0B *)__3MB),__UJC);
-        };
-        __IC3=__3MB;
-      } else /* Other types */ {
-        lisaac_push(&__OMB,L22158849); // L169 INSTALL_LISAAC;
-        __3MB=((____0B *)__5LB);
-        lisaac_push_first(&__X1B,L166069261); // L1267 ABSTRACT_STRING;
-        lisaac_push_first(&__SK0,L8672792); // L66 STRING;
-        __WMB=__3MB->__FC;
-        lisaac_push(&__SK0,L9060376); // L69 STRING;
-        __QZX=__QF(__WMB);
-        if (__QZX==NULL) {
-          lisaac_push(&__SK0,L9184792); // L70 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__SK0,L9184792); // L70 STRING;
-          __4II(((____0B *)__QZX),__3MB);
-        };
-        __IC3=__QZX;
-      }
-    };
-    lisaac_push(&__OMB,L28847617); // L220 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L10632193); // L81 INSTALL_LISAAC;
-    if (__IC3==NULL) {
-      lisaac_push(&__X1B,L11287041); // L86 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__X1B,L11287041); // L86 INSTALL_LISAAC;
-      __I2B=__NVF(((____0B *)__IC3));
-    };
-    __PGK=((____DB )(fopen((char*)(__I2B),"w+b")));
-    __TC3=(__PGK != (void *)NULL);
-    if (__TC3) {
-      lisaac_push(&__X1B,L11799041); // L90 INSTALL_LISAAC;
-      lisaac_push_first(&__SK0,L8792068); // L67 TRUE;
-      lisaac_push_first(&__TK0,L11674625); // L89 INSTALL_LISAAC;
-      lisaac_push_first(&__DXW,L9316353); // L71 INSTALL_LISAAC;
-      fclose((FILE*)((__PGK)));
-    } else /* FALSE */ {
-      lisaac_push(&__X1B,L11799041); // L90 INSTALL_LISAAC;
-      lisaac_push_first(&__SK0,L8530438); // L65 FALSE;
-    };
-    if (__TC3) {
-      lisaac_push(&__OMB,L28839937); // L220 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L13509636); // L103 TRUE;
-      __2T3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__OMB,L28839937); // L220 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L14689286); // L112 FALSE;
-      __2T3=__F__;
-    };
-    if (__2T3) {
-      lisaac_push(&__OMB,L29101569); // L222 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L8792068); // L67 TRUE;
-      lisaac_push_first(&__SK0,L28850689); // L220 INSTALL_LISAAC;
-      lisaac_push(&__SK0,L28983297); // L221 INSTALL_LISAAC;
-      lisaac_push_first(&__TK0,L13253121); // L101 INSTALL_LISAAC;
-      lisaac_push(&__TK0,L13510145); // L103 INSTALL_LISAAC;
-      __DX((&__string_127));
-      lisaac_push(&__TK0,L13637633); // L104 INSTALL_LISAAC;
-      __DX((&__string_128));
-      lisaac_push(&__TK0,L13780481); // L105 INSTALL_LISAAC;
-      lisaac_push_first(&__DXW,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__RC3,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__OMB,L29101569); // L222 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L8530438); // L65 FALSE;
-    };
-  };
-  if (__CMB) {
-    lisaac_push(&__3LB,L29494785); // L225 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L13509636); // L103 TRUE;
-    __TC3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__3LB,L29494785); // L225 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L14689286); // L112 FALSE;
-    __TC3=__F__;
-  };
-  if (__TC3) {
-    lisaac_push(&__3LB,L29499393); // L225 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L10377220); // L79 TRUE;
-    __TC3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__3LB,L29499393); // L225 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L11832326); // L90 FALSE;
-    lisaac_push_first(&__OMB,L29500417); // L225 INSTALL_LISAAC;
-    lisaac_push(&__OMB,L29514753); // L225 INSTALL_LISAAC;
-    __TNB=__IXC((&__string_129));
-    __TC3=(__TNB == 'y');
-  };
-  if (__TC3) {
-    lisaac_push(&__3LB,L30804481); // L235 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L8792068); // L67 TRUE;
-    lisaac_push_first(&__OMB,L29520897); // L225 INSTALL_LISAAC;
-    if (__CMB) {
-      lisaac_push(&__OMB,L29888001); // L228 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L8792068); // L67 TRUE;
-      lisaac_push_first(&__SK0,L29758977); // L227 INSTALL_LISAAC;
-      lisaac_push_first(&__TK0,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__DXW,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__RC3,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__DNB,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-    } else /* FALSE */ {
-      lisaac_push(&__OMB,L29888001); // L228 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__OMB,L30032385); // L229 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L6177281); // L47 INSTALL_LISAAC;
-    if (__5B==NULL) {
-      lisaac_push(&__X1B,L6433281); // L49 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__X1B,L6433281); // L49 INSTALL_LISAAC;
-      __4II(((____0B *)__5B),__5LB);
-    };
-    if (__5B==NULL) {
-      lisaac_push(&__X1B,L6570497); // L50 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__X1B,L6570497); // L50 INSTALL_LISAAC;
-      __I2B=__NVF(((____0B *)__5B));
-    };
-    __GMB=((____DB )(fopen((char*)(__I2B),"wb")));
-    if ((__GMB == (void *)NULL)) {
-      lisaac_push(&__OMB,L30412289); // L232 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L8792068); // L67 TRUE;
-      lisaac_push_first(&__SK0,L30160897); // L230 INSTALL_LISAAC;
-      lisaac_push(&__SK0,L30299649); // L231 INSTALL_LISAAC;
-      lisaac_push_first(&__TK0,L13253121); // L101 INSTALL_LISAAC;
-      lisaac_push(&__TK0,L13510145); // L103 INSTALL_LISAAC;
-      __DX((&__string_127));
-      lisaac_push(&__TK0,L13637633); // L104 INSTALL_LISAAC;
-      __DX((&__string_130));
-      lisaac_push(&__TK0,L13780481); // L105 INSTALL_LISAAC;
-      lisaac_push_first(&__DXW,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__RC3,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__OMB,L30412289); // L232 INSTALL_LISAAC;
-      lisaac_push_first(&__X1B,L8530438); // L65 FALSE;
-    };
-    if (__FMB==NULL) {
-      lisaac_push(&__OMB,L30564865); // L233 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      __WMB=__FMB->__FC;
-    };
-    lisaac_push(&__OMB,L30565377); // L233 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L8284161); // L63 INSTALL_LISAAC;
-    if (__FMB==NULL) {
-      lisaac_push(&__X1B,L8664065); // L66 INSTALL_LISAAC;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__X1B,L8664065); // L66 INSTALL_LISAAC;
-      __I2B=__NVF(((____0B *)__FMB));
-    };
-    fwrite((void *)((__I2B)),(size_t)(1), (size_t)((__WMB)),(FILE*)((__GMB)));
-    lisaac_push(&__OMB,L30681089); // L234 INSTALL_LISAAC;
-    lisaac_push_first(&__X1B,L9316353); // L71 INSTALL_LISAAC;
-    fclose((FILE*)((__GMB)));
-  } else /* FALSE */ {
-    lisaac_push(&__3LB,L30804481); // L235 INSTALL_LISAAC;
-    lisaac_push_first(&__WSY,L8530438); // L65 FALSE;
-  };
-}
-
-static void __I0I(____0B *__K0I)
-// ({__0B}) Void No recursive, No inlinable.
-{
-  ____L __N0I,__Q0I,__R0I,__Z3J,__3NL;
-  ____DB __YML;
-  _____CONTEXT __J0I,__5YW,__WML,__NTM,__BNL,__X3J,__IN0,__JN0,__TEU;
-  _____CONTEXT __DVY;
-  ____4 *__P0I,*__Q3J;
-  ____G __QN0,__SN0,__UN0,__1N0,__3N0,__5N0;
-  ____4 __D4J;
-  lisaac_push_first(&__J0I,L25851416); // L197 STRING;
-  __N0I=__K0I->__FC;
-  __P0I=__K0I->__IUE;
-  __Q0I=__K0I->__FC;
-  lisaac_push(&__J0I,L26379288); // L201 STRING;
-  lisaac_push_first(&__5YW,L9195016); // L70 NUMERIC;
-  __R0I=(____L)(__Q0I -  1);
-  if (__P0I==NULL) {
-    lisaac_push(&__J0I,L26380824); // L201 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__J0I,L26380824); // L201 STRING;
-    __Q3J=((____4 *)__P0I);
-    lisaac_push_first(&__5YW,L66194453); // L505 NATIVE_ARRAY;
-    lisaac_push_first(&__WML,L21772306); // L166 BLOCK;
-    lisaac_push_first(&__NTM,L7481858); // L57 OBJECT;
-    __YML=((____DB )(top_context->back->back));
-    lisaac_push(&__WML,L21902354); // L167 BLOCK;
-    lisaac_push_first(&__NTM,L10652676); // L81 TRUE;
-    lisaac_push_first(&__BNL,L21906962); // L167 BLOCK;
-    lisaac_push_first(&__X3J,L66200597); // L505 NATIVE_ARRAY;
-    lisaac_push_first(&__IN0,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__JN0,L9195016); // L70 NUMERIC;
-    __Z3J=(____L)(-  1);
-    lisaac_push(&__X3J,L66199573); // L505 NATIVE_ARRAY;
-    lisaac_push_first(&__IN0,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__JN0,L15224840); // L116 NUMERIC;
-    __QN0=(__R0I > __Z3J);
-    lisaac_push(&__IN0,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__JN0,L14700552); // L112 NUMERIC;
-    __SN0=(__R0I == __Z3J);
-    if (__QN0) {
-      lisaac_push(&__IN0,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__JN0,L10900996); // L83 TRUE;
-      __UN0=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__IN0,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__JN0,L12342790); // L94 FALSE;
-      __UN0=__SN0;
-    };
-    if (__UN0) {
-      lisaac_push(&__BNL,L21903890); // L167 BLOCK;
-      lisaac_push_first(&__X3J,L13509636); // L103 TRUE;
-      __UN0=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__BNL,L21903890); // L167 BLOCK;
-      lisaac_push_first(&__X3J,L14689286); // L112 FALSE;
-      __UN0=__F__;
-    };
-    if (__UN0) {
-      lisaac_push(&__WML,L22153746); // L169 BLOCK;
-      lisaac_push_first(&__NTM,L8792068); // L67 TRUE;
-      lisaac_push_first(&__BNL,L21910546); // L167 BLOCK;
-      lisaac_push(&__BNL,L22051346); // L168 BLOCK;
-      lisaac_push_first(&__X3J,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__IN0,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__JN0,L8792068); // L67 TRUE;
-      lisaac_push_first(&__TEU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__YML));
-      lisaac_push(&__X3J,L9574914); // L73 OBJECT;
-      __DX((&__string_1));
-      lisaac_push(&__X3J,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__IN0,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__JN0,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__TEU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__DVY,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__X3J,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__IN0,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__JN0,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__WML,L22153746); // L169 BLOCK;
-      lisaac_push_first(&__NTM,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__5YW,L67111445); // L512 NATIVE_ARRAY;
-    __Z3J=__R0I;
-    lisaac_push_first(&__WML,L22172680); // L169 NUMERIC;
-    __RNL:
-    {
-      lisaac_push(&__WML,L22550536); // L172 NUMERIC;
-      lisaac_push_first(&__NTM,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__BNL,L15224840); // L116 NUMERIC;
-      __1N0=(__Z3J >  0);
-      lisaac_push(&__NTM,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__BNL,L14700552); // L112 NUMERIC;
-      __3N0=(__Z3J ==  0);
-      if (__1N0) {
-        lisaac_push(&__NTM,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__BNL,L10900996); // L83 TRUE;
-        __5N0=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__NTM,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__BNL,L12342790); // L94 FALSE;
-        __5N0=__3N0;
-      };
-      if (__5N0) {
-        lisaac_push(&__WML,L22940168); // L175 NUMERIC;
-        lisaac_push_first(&__NTM,L8792068); // L67 TRUE;
-        lisaac_push_first(&__BNL,L22685704); // L173 NUMERIC;
-        lisaac_push_first(&__X3J,L66728469); // L509 NATIVE_ARRAY;
-        __D4J=__LVD(__Q3J,__Z3J);
-        if (('\\' == __D4J)) {
-          lisaac_push(&__X3J,L66981397); // L511 NATIVE_ARRAY;
-          lisaac_push_first(&__IN0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__JN0,L66856469); // L510 NATIVE_ARRAY;
-          __CRG(__Q3J,'/',__Z3J);
-        } else /* FALSE */ {
-          lisaac_push(&__X3J,L66981397); // L511 NATIVE_ARRAY;
-          lisaac_push_first(&__IN0,L8530438); // L65 FALSE;
+        if ((! __GXY)) {
+          if ((__RPH ==  3)) {
+            __TUJ=__SXY;
+          };
         };
-        lisaac_push(&__BNL,L22812680); // L174 NUMERIC;
-        lisaac_push_first(&__X3J,L9195016); // L70 NUMERIC;
-        __3NL=(____L)(__Z3J -  1);
-        lisaac_push(&__BNL,L22826504); // L174 NUMERIC;
-        __Z3J=__3NL;
-        goto __RNL;
-      } else /* FALSE */ {
-        lisaac_push(&__WML,L22940168); // L175 NUMERIC;
-        lisaac_push_first(&__NTM,L8530438); // L65 FALSE;
+        __TUJ=(____L)(__TUJ +  1);
       };
-    };
-  };
-  lisaac_push(&__J0I,L26479128); // L202 STRING;
-  lisaac_push_first(&__5YW,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__WML,L7481858); // L57 OBJECT;
-  __YML=((____DB )(top_context->back->back));
-  lisaac_push(&__5YW,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__WML,L10652676); // L81 TRUE;
-  lisaac_push_first(&__NTM,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__BNL,L26480152); // L202 STRING;
-  __Q0I=__K0I->__FC;
-  lisaac_push(&__BNL,L26484760); // L202 STRING;
-  lisaac_push_first(&__X3J,L14700552); // L112 NUMERIC;
-  if ((__Q0I == __N0I)) {
-    lisaac_push(&__NTM,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__BNL,L13509636); // L103 TRUE;
-    __QN0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__NTM,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__BNL,L14689286); // L112 FALSE;
-    __QN0=__F__;
-  };
-  if (__QN0) {
-    lisaac_push(&__5YW,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__WML,L8792068); // L67 TRUE;
-    lisaac_push_first(&__NTM,L19289106); // L147 BLOCK;
-    lisaac_push(&__NTM,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__BNL,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__X3J,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__IN0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JN0,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__YML));
-    lisaac_push(&__BNL,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__BNL,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__X3J,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__IN0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__JN0,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__TEU,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__BNL,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__X3J,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__IN0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__5YW,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__WML,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__J0I,L26610200); // L203 STRING;
-  lisaac_push_first(&__5YW,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__WML,L7481858); // L57 OBJECT;
-  __YML=((____DB )(top_context->back->back));
-  lisaac_push(&__5YW,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__WML,L10652676); // L81 TRUE;
-  lisaac_push_first(&__NTM,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__BNL,L26622488); // L203 STRING;
-  lisaac_push_first(&__X3J,L41957389); // L320 ABSTRACT_STRING;
-  __P0I=__K0I->__IUE;
-  __N0I=__K0I->__FC;
-  lisaac_push(&__X3J,L42359309); // L323 ABSTRACT_STRING;
-  lisaac_push_first(&__IN0,L9195016); // L70 NUMERIC;
-  __Q0I=(____L)(__N0I -  1);
-  if (__P0I==NULL) {
-    lisaac_push(&__X3J,L42468365); // L324 ABSTRACT_STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__X3J,L42468365); // L324 ABSTRACT_STRING;
-    __Z3J=__LQC(((____4 *)__P0I),'\\',__Q0I);
-  };
-  if ((__Z3J ==  0)) {
-    lisaac_push(&__NTM,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__BNL,L13509636); // L103 TRUE;
-    __QN0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__NTM,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__BNL,L14689286); // L112 FALSE;
-    __QN0=__F__;
-  };
-  if (__QN0) {
-    lisaac_push(&__5YW,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__WML,L8792068); // L67 TRUE;
-    lisaac_push_first(&__NTM,L19289106); // L147 BLOCK;
-    lisaac_push(&__NTM,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__BNL,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__X3J,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__IN0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JN0,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__YML));
-    lisaac_push(&__BNL,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__BNL,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__X3J,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__IN0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__JN0,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__TEU,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__BNL,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__X3J,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__IN0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__5YW,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__WML,L8530438); // L65 FALSE;
-  };
-}
-
-static void __PZJ(____0B *__RZJ,____L __SZJ)
-// ({__0B},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __1HL;
-  ____L __TZJ,__3ZJ,__M0J,__E1J,__P1J;
-  _____CONTEXT __QZJ,__ZHL,__UPM,__EIL,__XZJ,__DP0,__EP0,__5BU,__1VY;
-  ____G __HP0,__JP0,__LP0,__IV3,__KV3;
-  ____4 *__20J,*__F1J;
-  lisaac_push_first(&__QZJ,L16910872); // L129 STRING;
-  lisaac_push_first(&__ZHL,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__UPM,L7481858); // L57 OBJECT;
-  __1HL=((____DB )(top_context->back->back));
-  lisaac_push(&__ZHL,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__UPM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__EIL,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__XZJ,L16918552); // L129 STRING;
-  lisaac_push_first(&__DP0,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__EP0,L15224840); // L116 NUMERIC;
-  __HP0=(__SZJ >  0);
-  lisaac_push(&__DP0,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__EP0,L14700552); // L112 NUMERIC;
-  __JP0=(__SZJ ==  0);
-  if (__HP0) {
-    lisaac_push(&__DP0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__EP0,L10900996); // L83 TRUE;
-    __LP0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__DP0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__EP0,L12342790); // L94 FALSE;
-    __LP0=__JP0;
-  };
-  if (__LP0) {
-    lisaac_push(&__EIL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__XZJ,L13509636); // L103 TRUE;
-    __LP0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__EIL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__XZJ,L14689286); // L112 FALSE;
-    __LP0=__F__;
-  };
-  if (__LP0) {
-    lisaac_push(&__ZHL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__UPM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__EIL,L19289106); // L147 BLOCK;
-    lisaac_push(&__EIL,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__XZJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__DP0,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__EP0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__5BU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__1HL));
-    lisaac_push(&__XZJ,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__XZJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__DP0,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__EP0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__5BU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__1VY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XZJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__DP0,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__EP0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__ZHL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__UPM,L8530438); // L65 FALSE;
-  };
-  __TZJ=__RZJ->__SUE;
-  __3ZJ=__RZJ->__FC;
-  lisaac_push(&__QZJ,L17310232); // L132 STRING;
-  lisaac_push_first(&__ZHL,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__UPM,L15224840); // L116 NUMERIC;
-  if ((__SZJ > __3ZJ)) {
-    lisaac_push(&__ZHL,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__UPM,L13509636); // L103 TRUE;
-    __LP0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZHL,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__UPM,L14689286); // L112 FALSE;
-    __LP0=__F__;
-  };
-  if (__LP0) {
-    lisaac_push(&__QZJ,L17435160); // L133 STRING;
-    lisaac_push_first(&__ZHL,L8792068); // L67 TRUE;
-    lisaac_push_first(&__UPM,L17316376); // L132 STRING;
-    __LP0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__QZJ,L17435160); // L133 STRING;
-    lisaac_push_first(&__ZHL,L8530438); // L65 FALSE;
-    __LP0=__J__;
-  };
-  if ((! __LP0)) {
-    lisaac_push(&__QZJ,L18614808); // L142 STRING;
-    lisaac_push_first(&__ZHL,L10362374); // L79 FALSE;
-    lisaac_push_first(&__UPM,L17439768); // L133 STRING;
-    __M0J=__RZJ->__SUE;
-    lisaac_push(&__UPM,L17445400); // L133 STRING;
-    lisaac_push_first(&__EIL,L15498248); // L118 NUMERIC;
-    lisaac_push_first(&__XZJ,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__DP0,L15224840); // L116 NUMERIC;
-    __LP0=(__M0J > __SZJ);
-    lisaac_push(&__XZJ,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__DP0,L14700552); // L112 NUMERIC;
-    __IV3=(__M0J == __SZJ);
-    if (__LP0) {
-      lisaac_push(&__XZJ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__DP0,L10900996); // L83 TRUE;
-      __KV3=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__XZJ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__DP0,L12342790); // L94 FALSE;
-      __KV3=__IV3;
-    };
-    if (__KV3) {
-      lisaac_push(&__EIL,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__XZJ,L13509636); // L103 TRUE;
-      __KV3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__EIL,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__XZJ,L14689286); // L112 FALSE;
-      __KV3=__F__;
-    };
-    if (__KV3) {
-      lisaac_push(&__ZHL,L10881542); // L83 FALSE;
-      lisaac_push_first(&__UPM,L6825988); // L52 TRUE;
-      lisaac_push_first(&__EIL,L10494470); // L80 FALSE;
-      lisaac_push_first(&__XZJ,L17455128); // L133 STRING;
-      if ((__RZJ->__SUE ==  0)) {
-        lisaac_push(&__XZJ,L18091544); // L138 STRING;
-        lisaac_push_first(&__DP0,L6825988); // L52 TRUE;
-        lisaac_push_first(&__EP0,L17721368); // L135 STRING;
-        __20J=__WMH(__SZJ);
-        __RZJ->__IUE=__20J;
+      if ((( 0 <= __XUJ) && (__OP >= __XUJ))) {
+        __QP=__XUJ;
       } else /* FALSE */ {
-        lisaac_push(&__XZJ,L18091544); // L138 STRING;
-        lisaac_push_first(&__DP0,L6826502); // L52 FALSE;
-        lisaac_push_first(&__EP0,L17832984); // L136 STRING;
-        __20J=__RZJ->__IUE;
-        __E1J=__RZJ->__SUE;
-        if (__20J==NULL) {
-          lisaac_push(&__EP0,L17983000); // L137 STRING;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-          lisaac_push(&__EP0,L17983000); // L137 STRING;
-          __F1J=__ONH(((____4 *)__20J),__E1J,__SZJ);
-        };
-        __RZJ->__IUE=__F1J;
-      };
-      __RZJ->__SUE=__SZJ;
-    } else /* FALSE */ {
-      lisaac_push(&__ZHL,L10881542); // L83 FALSE;
-      lisaac_push_first(&__UPM,L6826502); // L52 FALSE;
-      lisaac_push_first(&__EIL,L10759174); // L82 FALSE;
-      lisaac_push_first(&__XZJ,L18356248); // L140 STRING;
-      __20J=__RZJ->__IUE;
-      __E1J=__RZJ->__FC;
-      lisaac_push(&__XZJ,L18502168); // L141 STRING;
-      lisaac_push_first(&__DP0,L9195016); // L70 NUMERIC;
-      __P1J=(____L)(__SZJ -  1);
-      if (__20J==NULL) {
-        lisaac_push(&__XZJ,L18503704); // L141 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-        lisaac_push(&__XZJ,L18503704); // L141 STRING;
-        __POJ(((____4 *)__20J),__E1J,__P1J);
-      };
-    };
-  };
-  __RZJ->__FC=__SZJ;
-  lisaac_push(&__QZJ,L19139096); // L146 STRING;
-  lisaac_push_first(&__ZHL,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__UPM,L7481858); // L57 OBJECT;
-  __1HL=((____DB )(top_context->back->back));
-  lisaac_push(&__ZHL,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__UPM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__EIL,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__XZJ,L19140120); // L146 STRING;
-  __3ZJ=__RZJ->__SUE;
-  lisaac_push(&__XZJ,L19145752); // L146 STRING;
-  lisaac_push_first(&__DP0,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__EP0,L15224840); // L116 NUMERIC;
-  __HP0=(__3ZJ > __TZJ);
-  lisaac_push(&__DP0,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__EP0,L14700552); // L112 NUMERIC;
-  __JP0=(__3ZJ == __TZJ);
-  if (__HP0) {
-    lisaac_push(&__DP0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__EP0,L10900996); // L83 TRUE;
-    __LP0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__DP0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__EP0,L12342790); // L94 FALSE;
-    __LP0=__JP0;
-  };
-  if (__LP0) {
-    lisaac_push(&__EIL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__XZJ,L13509636); // L103 TRUE;
-    __LP0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__EIL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__XZJ,L14689286); // L112 FALSE;
-    __LP0=__F__;
-  };
-  if (__LP0) {
-    lisaac_push(&__ZHL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__UPM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__EIL,L19289106); // L147 BLOCK;
-    lisaac_push(&__EIL,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__XZJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__DP0,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__EP0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__5BU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__1HL));
-    lisaac_push(&__XZJ,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__XZJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__DP0,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__EP0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__5BU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__1VY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XZJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__DP0,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__EP0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__ZHL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__UPM,L8530438); // L65 FALSE;
-  };
-}
-
-static void __PVM(____4 *__RVM,____L __SVM,____L __TVM,____L __UVM)
-// ({__HB},{__L},{__L},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __RMN;
-  ____L __AXY,__KWM,__0EO,__WIZ,__DXM;
-  _____CONTEXT __QVM,__PMN,__YYN,__0MN,__YVM,__0Q0,__1Q0,__GJU,__TWY;
-  _____CONTEXT __UIZ,__0IZ,__1IZ;
-  ____G __4Q0,__AR0,__CR0,__T30,__V30,__5D3,__1S0,__3S0;
-  ____4 __BXM;
-  lisaac_push_first(&__QVM,L85462037); // L652 NATIVE_ARRAY;
-  lisaac_push_first(&__PMN,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__YYN,L7481858); // L57 OBJECT;
-  __RMN=((____DB )(top_context->back->back));
-  lisaac_push(&__PMN,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__YYN,L10652676); // L81 TRUE;
-  lisaac_push_first(&__0MN,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__YVM,L85467157); // L652 NATIVE_ARRAY;
-  lisaac_push_first(&__0Q0,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__1Q0,L15224840); // L116 NUMERIC;
-  __4Q0=(__SVM >  0);
-  lisaac_push(&__0Q0,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__1Q0,L14700552); // L112 NUMERIC;
-  __AR0=(__SVM ==  0);
-  if (__4Q0) {
-    lisaac_push(&__0Q0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1Q0,L10900996); // L83 TRUE;
-    __CR0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__0Q0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1Q0,L12342790); // L94 FALSE;
-    __CR0=__AR0;
-  };
-  if (__CR0) {
-    lisaac_push(&__0MN,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YVM,L13509636); // L103 TRUE;
-    __CR0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__0MN,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YVM,L14689286); // L112 FALSE;
-    __CR0=__F__;
-  };
-  if (__CR0) {
-    lisaac_push(&__PMN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YYN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0MN,L21910546); // L167 BLOCK;
-    lisaac_push(&__0MN,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__YVM,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__0Q0,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1Q0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GJU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__RMN));
-    lisaac_push(&__YVM,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__YVM,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__0Q0,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1Q0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__GJU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__TWY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YVM,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__0Q0,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1Q0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__PMN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YYN,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__QVM,L85593109); // L653 NATIVE_ARRAY;
-  lisaac_push_first(&__PMN,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__YYN,L7481858); // L57 OBJECT;
-  __RMN=((____DB )(top_context->back->back));
-  lisaac_push(&__PMN,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__YYN,L10652676); // L81 TRUE;
-  lisaac_push_first(&__0MN,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__YVM,L85598229); // L653 NATIVE_ARRAY;
-  lisaac_push_first(&__0Q0,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__1Q0,L15224840); // L116 NUMERIC;
-  __4Q0=(__TVM > __SVM);
-  lisaac_push(&__0Q0,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__1Q0,L14700552); // L112 NUMERIC;
-  __AR0=(__TVM == __SVM);
-  if (__4Q0) {
-    lisaac_push(&__0Q0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1Q0,L10900996); // L83 TRUE;
-    __CR0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__0Q0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1Q0,L12342790); // L94 FALSE;
-    __CR0=__AR0;
-  };
-  if (__CR0) {
-    lisaac_push(&__0MN,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YVM,L13509636); // L103 TRUE;
-    __CR0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__0MN,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YVM,L14689286); // L112 FALSE;
-    __CR0=__F__;
-  };
-  if (__CR0) {
-    lisaac_push(&__PMN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YYN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0MN,L21910546); // L167 BLOCK;
-    lisaac_push(&__0MN,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__YVM,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__0Q0,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1Q0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GJU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__RMN));
-    lisaac_push(&__YVM,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__YVM,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__0Q0,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1Q0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__GJU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__TWY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YVM,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__0Q0,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1Q0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__PMN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YYN,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__QVM,L85724181); // L654 NATIVE_ARRAY;
-  lisaac_push_first(&__PMN,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__YYN,L7481858); // L57 OBJECT;
-  __RMN=((____DB )(top_context->back->back));
-  lisaac_push(&__PMN,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__YYN,L10652676); // L81 TRUE;
-  lisaac_push_first(&__0MN,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__YVM,L85728789); // L654 NATIVE_ARRAY;
-  lisaac_push_first(&__0Q0,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__1Q0,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__GJU,L9195016); // L70 NUMERIC;
-  __AXY=(____L)(- __UVM);
-  lisaac_push(&__0Q0,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__1Q0,L9195016); // L70 NUMERIC;
-  __KWM=(____L)(__SVM - __AXY);
-  lisaac_push(&__YVM,L85733909); // L654 NATIVE_ARRAY;
-  lisaac_push_first(&__0Q0,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__1Q0,L15224840); // L116 NUMERIC;
-  __4Q0=(__KWM >  0);
-  lisaac_push(&__0Q0,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__1Q0,L14700552); // L112 NUMERIC;
-  __AR0=(__KWM ==  0);
-  if (__4Q0) {
-    lisaac_push(&__0Q0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1Q0,L10900996); // L83 TRUE;
-    __CR0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__0Q0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1Q0,L12342790); // L94 FALSE;
-    __CR0=__AR0;
-  };
-  if (__CR0) {
-    lisaac_push(&__0MN,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YVM,L13509636); // L103 TRUE;
-    __CR0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__0MN,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YVM,L14689286); // L112 FALSE;
-    __CR0=__F__;
-  };
-  if (__CR0) {
-    lisaac_push(&__PMN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YYN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0MN,L21910546); // L167 BLOCK;
-    lisaac_push(&__0MN,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__YVM,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__0Q0,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1Q0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GJU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__RMN));
-    lisaac_push(&__YVM,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__YVM,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__0Q0,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1Q0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__GJU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__TWY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YVM,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__0Q0,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1Q0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__PMN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YYN,L8530438); // L65 FALSE;
-  };
-  if ((__UVM !=  0)) {
-    lisaac_push(&__QVM,L87427605); // L667 NATIVE_ARRAY;
-    lisaac_push_first(&__PMN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__YYN,L86253077); // L658 NATIVE_ARRAY;
-    lisaac_push_first(&__0MN,L15498248); // L118 NUMERIC;
-    lisaac_push_first(&__YVM,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__0Q0,L15224840); // L116 NUMERIC;
-    __CR0=(__UVM >  0);
-    lisaac_push(&__YVM,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__0Q0,L14700552); // L112 NUMERIC;
-    __T30=(__UVM ==  0);
-    if (__CR0) {
-      lisaac_push(&__YVM,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__0Q0,L10900996); // L83 TRUE;
-      __V30=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__YVM,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__0Q0,L12342790); // L94 FALSE;
-      __V30=__T30;
-    };
-    if (__V30) {
-      lisaac_push(&__0MN,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__YVM,L13509636); // L103 TRUE;
-      __V30=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__0MN,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__YVM,L14689286); // L112 FALSE;
-      __V30=__F__;
-    };
-    if (__V30) {
-      lisaac_push(&__YYN,L87297557); // L666 NATIVE_ARRAY;
-      lisaac_push_first(&__0MN,L6825988); // L52 TRUE;
-      lisaac_push_first(&__YVM,L86639637); // L661 NATIVE_ARRAY;
-      __0EO=__SVM;
-      lisaac_push_first(&__0Q0,L20989960); // L160 NUMERIC;
-      __YEO:
-      {
-        lisaac_push(&__0Q0,L21370888); // L163 NUMERIC;
-        lisaac_push_first(&__1Q0,L15759880); // L120 NUMERIC;
-        lisaac_push_first(&__GJU,L15224840); // L116 NUMERIC;
-        if ((__0EO > __TVM)) {
-          lisaac_push(&__1Q0,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__GJU,L13509636); // L103 TRUE;
-          __5D3=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__1Q0,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__GJU,L14689286); // L112 FALSE;
-          __5D3=__F__;
-        };
-        if (__5D3) {
-          lisaac_push(&__0Q0,L21760520); // L166 NUMERIC;
-          lisaac_push_first(&__1Q0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__GJU,L21506056); // L164 NUMERIC;
-          lisaac_push_first(&__TWY,L86514709); // L660 NATIVE_ARRAY;
-          __BXM=__LVD(__RVM,__0EO);
-          lisaac_push(&__TWY,L86519317); // L660 NATIVE_ARRAY;
-          lisaac_push_first(&__UIZ,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__0IZ,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__1IZ,L9195016); // L70 NUMERIC;
-          __WIZ=(____L)(- __UVM);
-          lisaac_push(&__UIZ,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__0IZ,L9195016); // L70 NUMERIC;
-          __DXM=(____L)(__0EO - __WIZ);
-          lisaac_push(&__TWY,L86523413); // L660 NATIVE_ARRAY;
-          __CRG(__RVM,__BXM,__DXM);
-          lisaac_push(&__GJU,L21633544); // L165 NUMERIC;
-          lisaac_push_first(&__TWY,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__UIZ,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__0IZ,L9195016); // L70 NUMERIC;
-          __WIZ=(____L)(-  1);
-          lisaac_push(&__TWY,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__UIZ,L9195016); // L70 NUMERIC;
-          __DXM=(____L)(__0EO - __WIZ);
-          lisaac_push(&__GJU,L21644808); // L165 NUMERIC;
-          __0EO=__DXM;
-          goto __YEO;
-        } else /* FALSE */ {
-          lisaac_push(&__0Q0,L21760520); // L166 NUMERIC;
-          lisaac_push_first(&__1Q0,L8530438); // L65 FALSE;
-        };
-      };
-    } else /* FALSE */ {
-      lisaac_push(&__YYN,L87297557); // L666 NATIVE_ARRAY;
-      lisaac_push_first(&__0MN,L6826502); // L52 FALSE;
-      lisaac_push_first(&__YVM,L87163925); // L665 NATIVE_ARRAY;
-      __0EO=__TVM;
-      lisaac_push_first(&__0Q0,L22172680); // L169 NUMERIC;
-      __JFO:
-      {
-        lisaac_push(&__0Q0,L22550536); // L172 NUMERIC;
-        lisaac_push_first(&__1Q0,L16021000); // L122 NUMERIC;
-        lisaac_push_first(&__GJU,L15224840); // L116 NUMERIC;
-        __5D3=(__0EO > __SVM);
-        lisaac_push(&__1Q0,L16030216); // L122 NUMERIC;
-        lisaac_push_first(&__GJU,L14700552); // L112 NUMERIC;
-        __1S0=(__0EO == __SVM);
-        if (__5D3) {
-          lisaac_push(&__1Q0,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__GJU,L10900996); // L83 TRUE;
-          __3S0=__F__;
+        __FSC((&__string_113));
+        if ((__OP ==  0)) {
+          fputc((int)('0'),stdout);
+          __RGT=__F__;
         } else /* FALSE */ {
-          lisaac_push(&__1Q0,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__GJU,L12342790); // L94 FALSE;
-          __3S0=__1S0;
+          __RGT=__J__;
         };
-        if (__3S0) {
-          lisaac_push(&__0Q0,L22940168); // L175 NUMERIC;
-          lisaac_push_first(&__1Q0,L8792068); // L67 TRUE;
-          lisaac_push_first(&__GJU,L22685704); // L173 NUMERIC;
-          lisaac_push_first(&__TWY,L87038997); // L664 NATIVE_ARRAY;
-          __BXM=__LVD(__RVM,__0EO);
-          lisaac_push(&__TWY,L87043605); // L664 NATIVE_ARRAY;
-          lisaac_push_first(&__UIZ,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__0IZ,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__1IZ,L9195016); // L70 NUMERIC;
-          __WIZ=(____L)(- __UVM);
-          lisaac_push(&__UIZ,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__0IZ,L9195016); // L70 NUMERIC;
-          __DXM=(____L)(__0EO - __WIZ);
-          lisaac_push(&__TWY,L87047701); // L664 NATIVE_ARRAY;
-          __CRG(__RVM,__BXM,__DXM);
-          lisaac_push(&__GJU,L22812680); // L174 NUMERIC;
-          lisaac_push_first(&__TWY,L9195016); // L70 NUMERIC;
-          __WIZ=(____L)(__0EO -  1);
-          lisaac_push(&__GJU,L22826504); // L174 NUMERIC;
-          __0EO=__WIZ;
-          goto __JFO;
-        } else /* FALSE */ {
-          lisaac_push(&__0Q0,L22940168); // L175 NUMERIC;
-          lisaac_push_first(&__1Q0,L8530438); // L65 FALSE;
+        if ((! __RGT)) {
+          if ((__OP <  0)) {
+            fputc((int)('-'),stdout);
+            __NJO((____L)(- __OP));
+          } else /* FALSE */ {
+            __NJO(__OP);
+          };
         };
+        __FSC((&__string_114));
       };
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__QVM,L87427605); // L667 NATIVE_ARRAY;
-    lisaac_push_first(&__PMN,L8530438); // L65 FALSE;
-  };
-}
-
-static void __W2J(____4 *__Y2J,____4 *__Z2J,____L __02J)
-// ({__HB},{NULLx__HB},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __MLL;
-  ____L __A3J,__RML;
-  _____CONTEXT __X2J,__KLL,__GSM,__VLL,__42J,__LT0,__MT0,__4DU,__0JY;
-  ____G __TT0,__VT0,__XT0,__4T0,__AU0,__CU0;
-  ____4 __K3J;
-  lisaac_push_first(&__X2J,L81005589); // L618 NATIVE_ARRAY;
-  lisaac_push_first(&__KLL,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__GSM,L7481858); // L57 OBJECT;
-  __MLL=((____DB )(top_context->back->back));
-  lisaac_push(&__KLL,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__GSM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__VLL,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__42J,L81011733); // L618 NATIVE_ARRAY;
-  lisaac_push_first(&__LT0,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__MT0,L9195016); // L70 NUMERIC;
-  __A3J=(____L)(-  1);
-  lisaac_push(&__42J,L81010709); // L618 NATIVE_ARRAY;
-  lisaac_push_first(&__LT0,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__MT0,L15224840); // L116 NUMERIC;
-  __TT0=(__02J > __A3J);
-  lisaac_push(&__LT0,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__MT0,L14700552); // L112 NUMERIC;
-  __VT0=(__02J == __A3J);
-  if (__TT0) {
-    lisaac_push(&__LT0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__MT0,L10900996); // L83 TRUE;
-    __XT0=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__LT0,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__MT0,L12342790); // L94 FALSE;
-    __XT0=__VT0;
-  };
-  if (__XT0) {
-    lisaac_push(&__VLL,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__42J,L13509636); // L103 TRUE;
-    __XT0=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__VLL,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__42J,L14689286); // L112 FALSE;
-    __XT0=__F__;
-  };
-  if (__XT0) {
-    lisaac_push(&__KLL,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__GSM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__VLL,L21910546); // L167 BLOCK;
-    lisaac_push(&__VLL,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__42J,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__LT0,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__MT0,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4DU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__MLL));
-    lisaac_push(&__42J,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__42J,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__LT0,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__MT0,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__4DU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__0JY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__42J,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__LT0,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__MT0,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__KLL,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__GSM,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__X2J,L81660437); // L623 NATIVE_ARRAY;
-  __A3J=__02J;
-  lisaac_push_first(&__KLL,L22172680); // L169 NUMERIC;
-  __FML:
-  {
-    lisaac_push(&__KLL,L22550536); // L172 NUMERIC;
-    lisaac_push_first(&__GSM,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__VLL,L15224840); // L116 NUMERIC;
-    __4T0=(__A3J >  0);
-    lisaac_push(&__GSM,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__VLL,L14700552); // L112 NUMERIC;
-    __AU0=(__A3J ==  0);
-    if (__4T0) {
-      lisaac_push(&__GSM,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__VLL,L10900996); // L83 TRUE;
-      __CU0=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__GSM,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__VLL,L12342790); // L94 FALSE;
-      __CU0=__AU0;
-    };
-    if (__CU0) {
-      lisaac_push(&__KLL,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__GSM,L8792068); // L67 TRUE;
-      lisaac_push_first(&__VLL,L22685704); // L173 NUMERIC;
-      lisaac_push_first(&__42J,L81407509); // L621 NATIVE_ARRAY;
-      if (__Z2J==NULL) {
-        lisaac_push(&__42J,L81538581); // L622 NATIVE_ARRAY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-        lisaac_push(&__42J,L81538581); // L622 NATIVE_ARRAY;
-        __K3J=__LVD(((____4 *)__Z2J),__A3J);
-      };
-      lisaac_push(&__42J,L81541653); // L622 NATIVE_ARRAY;
-      __CRG(__Y2J,__K3J,__A3J);
-      lisaac_push(&__VLL,L22812680); // L174 NUMERIC;
-      lisaac_push_first(&__42J,L9195016); // L70 NUMERIC;
-      __RML=(____L)(__A3J -  1);
-      lisaac_push(&__VLL,L22826504); // L174 NUMERIC;
-      __A3J=__RML;
-      goto __FML;
-    } else /* FALSE */ {
-      lisaac_push(&__KLL,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__GSM,L8530438); // L65 FALSE;
-    };
-  };
-}
-
-static ____L __DRB(void *__GRB)
-// ({NULLx__Vx__0B}) With result No recursive, No inlinable.
-{
-  ____DB __3UB;
-  ____V *__M1W;
-  ____L __HRB;
-  _____CONTEXT __ERB,__1UB,__SYB,__GVB,__LRB,__3KF,__GPF,__FLF,__RXY;
-  ____G __JVB;
-  ____4 *__PRB;
-  lisaac_push_first(&__ERB,L8260122); // L63 ENVIRONMENT;
-  lisaac_push_first(&__1UB,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__SYB,L7481858); // L57 OBJECT;
-  __3UB=((____DB )(top_context->back->back));
-  lisaac_push(&__1UB,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__SYB,L10652676); // L81 TRUE;
-  lisaac_push_first(&__GVB,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__LRB,L8261146); // L63 ENVIRONMENT;
-  if (((void *)__GRB != (void *)NULL)) {
-    lisaac_push(&__GVB,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__LRB,L13509636); // L103 TRUE;
-    __JVB=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__GVB,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__LRB,L14689286); // L112 FALSE;
-    __JVB=__F__;
-  };
-  if (__JVB) {
-    lisaac_push(&__1UB,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__SYB,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GVB,L19289106); // L147 BLOCK;
-    lisaac_push(&__GVB,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__LRB,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__3KF,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__GPF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FLF,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__3UB));
-    lisaac_push(&__LRB,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__LRB,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__3KF,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__GPF,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__FLF,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__RXY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__LRB,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__3KF,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__GPF,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__1UB,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__SYB,L8530438); // L65 FALSE;
-  };
-  if (__GRB==NULL) {
-    lisaac_push(&__ERB,L8421914); // L64 ENVIRONMENT;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else {
-    if (((struct ___OBJ *)__GRB)->__id==____V__) {
-      lisaac_push(&__ERB,L8421914); // L64 ENVIRONMENT;
-      __M1W=((____V *)__GRB);
-      lisaac_push_first(&__1UB,L10493452); // L80 STRING_CONSTANT;
-      __PRB=__M1W->__ZB;
-    } else /* Other types */ {
-      lisaac_push(&__ERB,L8421914); // L64 ENVIRONMENT;
-      __PRB=__NVF(((____0B *)__GRB));
-    }
-  };
-  lisaac_push(&__ERB,L8520730); // L65 ENVIRONMENT;
-  lisaac_push_first(&__1UB,L12360218); // L94 ENVIRONMENT;
-  __HRB=((____L )(system(((char*)((__PRB))))));
-  return(__HRB);
-}
-
-static ____4 __IXC(____V *__LXC)
-// ({__V}) With result No recursive, No inlinable.
-{
-  _____CONTEXT __JXC,__P0C,__RXC,__02C,__XXC,__EE3,__FE3,__GE3,__HE3;
-  _____CONTEXT __IE3;
-  ____4 __NXC,__JE3,__MXC;
-  ____G __1XC;
-  lisaac_push_first(&__JXC,L17318401); // L132 INSTALL_LISAAC;
-  __NXC='\0';
-  lisaac_push(&__JXC,L17701377); // L135 INSTALL_LISAAC;
-  __DX(__LXC);
-  lisaac_push(&__JXC,L17835521); // L136 INSTALL_LISAAC;
-  __DX((&__string_131));
-  lisaac_push(&__JXC,L18221569); // L139 INSTALL_LISAAC;
-  lisaac_push_first(&__P0C,L9441810); // L72 BLOCK;
-  __O0C:
-  {
-    lisaac_push(&__P0C,L9441810); // L72 BLOCK;
-    lisaac_push_first(&__RXC,L17959425); // L137 INSTALL_LISAAC;
-    if ((__NXC != 'y')) {
-      lisaac_push(&__RXC,L17968641); // L137 INSTALL_LISAAC;
-      lisaac_push_first(&__02C,L10652676); // L81 TRUE;
-      lisaac_push_first(&__XXC,L17969665); // L137 INSTALL_LISAAC;
-      __1XC=(__NXC != 'n');
-    } else /* FALSE */ {
-      lisaac_push(&__RXC,L17968641); // L137 INSTALL_LISAAC;
-      lisaac_push_first(&__02C,L12081158); // L92 FALSE;
-      __1XC=__J__;
-    };
-    if (__1XC) {
-      lisaac_push(&__P0C,L9832978); // L75 BLOCK;
-      lisaac_push_first(&__RXC,L8792068); // L67 TRUE;
-      lisaac_push_first(&__02C,L9576466); // L73 BLOCK;
-      lisaac_push_first(&__XXC,L18104833); // L138 INSTALL_LISAAC;
-      lisaac_push_first(&__EE3,L6556188); // L50 STD_INPUT;
-      lisaac_push_first(&__FE3,L6826502); // L52 FALSE;
-      lisaac_push_first(&__GE3,L6437404); // L49 STD_INPUT;
-      lisaac_push_first(&__HE3,L62415901); // L476 INPUT_STREAM;
-      lisaac_push_first(&__IE3,L8526359); // L65 SYSTEM_IO;
-      __JE3=((____4 )(fgetc(stdin)));
-      __N1C=__JE3;
-      lisaac_push(&__EE3,L6816796); // L52 STD_INPUT;
-      lisaac_push_first(&__FE3,L8004636); // L61 STD_INPUT;
-      __NXC=__JE3;
-      lisaac_push(&__02C,L9709074); // L74 BLOCK;
-      goto __O0C;
-    } else /* FALSE */ {
-      lisaac_push(&__P0C,L9832978); // L75 BLOCK;
-      lisaac_push_first(&__RXC,L8530438); // L65 FALSE;
-    };
-  };
-  lisaac_push(&__JXC,L18360833); // L140 INSTALL_LISAAC;
-  lisaac_push_first(&__P0C,L6556188); // L50 STD_INPUT;
-  lisaac_push_first(&__RXC,L6826502); // L52 FALSE;
-  lisaac_push_first(&__02C,L6437404); // L49 STD_INPUT;
-  lisaac_push_first(&__XXC,L62415901); // L476 INPUT_STREAM;
-  lisaac_push_first(&__EE3,L8526359); // L65 SYSTEM_IO;
-  __N1C=((____4 )(fgetc(stdin)));
-  lisaac_push(&__P0C,L6816796); // L52 STD_INPUT;
-  lisaac_push_first(&__RXC,L8004636); // L61 STD_INPUT;
-  __MXC=__NXC;
-  return(__MXC);
-}
-
-static ____0B* __1QE()
-// () With result No recursive, No inlinable.
-{
-  ____0B *__5QE,*__4QE;
-  ____DB __ARE,__NSE,__CVF;
-  ____L __HRE,__NRE,__JUF,__VUF;
-  ____CRE __ORE,__3RE,__IV0,__3U0,__EUF,__LUF;
-  ____Y1 __USE,__3X0,__1HJ;
-  _____CONTEXT __2QE,__GOW,__JOW,__4HF,__EV0,__HV0,__EW0,__FW0,__AAG;
-  _____CONTEXT __CUF,__OGY,__OE3,__KVT,__VGY;
-  ____G __QE3;
-  lisaac_push_first(&__2QE,L15602178); // L119 OBJECT;
-  __5QE=NULL;
-  __ARE=((____DB )(NULL));
-  lisaac_push(&__2QE,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__GOW,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__JOW,L4069927); // L31 CONVERT;
-  __HRE= 0;
-  lisaac_push(&__2QE,L16394754); // L125 OBJECT;
-  lisaac_push_first(&__GOW,L5250562); // L40 OBJECT;
-  __NRE=sizeof(____0B);
-  lisaac_push(&__2QE,L16394754); // L125 OBJECT;
-  __ORE=__H0E(__NRE);
-  if ((__ORE ==  0)) {
-    lisaac_push(&__2QE,L18876930); // L144 OBJECT;
-    lisaac_push_first(&__GOW,L6825988); // L52 TRUE;
-    lisaac_push_first(&__JOW,L16523778); // L126 OBJECT;
-    __5QE=__0B__;
-  } else /* FALSE */ {
-    lisaac_push(&__2QE,L18876930); // L144 OBJECT;
-    lisaac_push_first(&__GOW,L6826502); // L52 FALSE;
-    lisaac_push_first(&__JOW,L16923650); // L129 OBJECT;
-    lisaac_push_first(&__4HF,L27796482); // L212 OBJECT;
-    __HRE=-1;
-    __3RE=__2RE;
-    lisaac_push(&__JOW,L17198082); // L131 OBJECT;
-    lisaac_push_first(&__4HF,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__EV0,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__HV0,L5383176); // L41 NUMERIC;
-    __IV0=__H0E( 0);
-    lisaac_push(&__EV0,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__HV0,L9195016); // L70 NUMERIC;
-    __3U0=(____CRE)(__IV0 - __ORE);
-    lisaac_push(&__4HF,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__EV0,L9195016); // L70 NUMERIC;
-    __2RE=(____CRE)(__3RE - __3U0);
-    lisaac_push(&__JOW,L17310210); // L132 OBJECT;
-    lisaac_push_first(&__4HF,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__EV0,L9195016); // L70 NUMERIC;
-    if ((__HRE == (____L)(-  1))) {
-      lisaac_push(&__JOW,L17829378); // L136 OBJECT;
-      lisaac_push_first(&__4HF,L6825988); // L52 TRUE;
-      lisaac_push_first(&__EV0,L17446914); // L133 OBJECT;
-      __NSE=__ERF(__ORE);
-      __ARE=__NSE;
-    } else /* FALSE */ {
-      lisaac_push(&__JOW,L17829378); // L136 OBJECT;
-      lisaac_push_first(&__4HF,L6826502); // L52 FALSE;
-      lisaac_push_first(&__EV0,L17719298); // L135 OBJECT;
-      lisaac_push_first(&__HV0,L49546248); // L378 NUMERIC;
-      lisaac_push_first(&__EW0,L68063752); // L519 NUMERIC;
-      lisaac_push_first(&__FW0,L4069927); // L31 CONVERT;
-      __USE=((____Y1 )__HRE);
-      lisaac_push(&__EV0,L17723906); // L135 OBJECT;
-      lisaac_push_first(&__HV0,L3951145); // L30 UINTEGER_CPU;
-      lisaac_push_first(&__EW0,L68588040); // L523 NUMERIC;
-      lisaac_push_first(&__FW0,L4069927); // L31 CONVERT;
-      lisaac_push(&__HV0,L69219372); // L528 MEMORY;
-      lisaac_push_first(&__EW0,L17840146); // L136 BLOCK;
-      lisaac_push_first(&__FW0,L7481858); // L57 OBJECT;
-      __NSE=((____DB )(top_context->back->back));
-      lisaac_push(&__EW0,L17970194); // L137 BLOCK;
-      lisaac_push_first(&__FW0,L10652676); // L81 TRUE;
-      lisaac_push_first(&__AAG,L17974802); // L137 BLOCK;
-      lisaac_push_first(&__CUF,L69217836); // L528 MEMORY;
-      lisaac_push_first(&__OGY,L46932012); // L358 MEMORY;
-      __EUF=((____CRE )(MINIMUM_SIZE));
-      lisaac_push(&__CUF,L69211180); // L528 MEMORY;
-      lisaac_push_first(&__OGY,L15759880); // L120 NUMERIC;
-      lisaac_push_first(&__OE3,L15224840); // L116 NUMERIC;
-      if ((__ORE > __EUF)) {
-        lisaac_push(&__OGY,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__OE3,L13509636); // L103 TRUE;
-        __QE3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__OGY,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__OE3,L14689286); // L112 FALSE;
-        __QE3=__F__;
-      };
-      if (__QE3) {
-        lisaac_push(&__AAG,L17971730); // L137 BLOCK;
-        lisaac_push_first(&__CUF,L13509636); // L103 TRUE;
-        __QE3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__AAG,L17971730); // L137 BLOCK;
-        lisaac_push_first(&__CUF,L14689286); // L112 FALSE;
-        __QE3=__F__;
-      };
-      if (__QE3) {
-        lisaac_push(&__EW0,L18221586); // L139 BLOCK;
-        lisaac_push_first(&__FW0,L8792068); // L67 TRUE;
-        lisaac_push_first(&__AAG,L18105874); // L138 BLOCK;
-        lisaac_push_first(&__CUF,L9452546); // L72 OBJECT;
-        lisaac_push_first(&__OGY,L8260098); // L63 OBJECT;
-        lisaac_push_first(&__OE3,L8792068); // L67 TRUE;
-        lisaac_push_first(&__KVT,L8009218); // L61 OBJECT;
-        lisaac_stack_print((_____CONTEXT *)(__NSE));
-        lisaac_push(&__CUF,L9574914); // L73 OBJECT;
-        __DX((&__string_132));
-        lisaac_push(&__CUF,L9706498); // L74 OBJECT;
-        lisaac_push_first(&__OGY,L10896400); // L83 CHARACTER;
-        lisaac_push_first(&__OE3,L5005342); // L38 STD_OUTPUT;
-        lisaac_push_first(&__KVT,L18378271); // L140 OUTPUT_STREAM;
-        lisaac_push_first(&__VGY,L6962199); // L53 SYSTEM_IO;
-        fputc((int)('\n'),stdout);
-        lisaac_push(&__CUF,L9848322); // L75 OBJECT;
-        lisaac_push_first(&__OGY,L10904578); // L83 OBJECT;
-        lisaac_push_first(&__OE3,L4598824); // L35 SYSTEM;
-        exit(( 1));
-      } else /* FALSE */ {
-        lisaac_push(&__EW0,L18221586); // L139 BLOCK;
-        lisaac_push_first(&__FW0,L8530438); // L65 FALSE;
-      };
-      lisaac_push(&__HV0,L69494828); // L530 MEMORY;
-      lisaac_push_first(&__EW0,L5774867); // L44 POINTER;
-      __JUF=((____L )(sizeof(void *)));
-      lisaac_push(&__HV0,L69494828); // L530 MEMORY;
-      __EUF=__H0E(__JUF);
-      lisaac_push(&__HV0,L69495340); // L530 MEMORY;
-      __LUF=__1FJ(__ORE,__EUF);
-      lisaac_push(&__HV0,L70018092); // L534 MEMORY;
-      lisaac_push_first(&__EW0,L17840146); // L136 BLOCK;
-      lisaac_push_first(&__FW0,L7481858); // L57 OBJECT;
-      __NSE=((____DB )(top_context->back->back));
-      lisaac_push(&__EW0,L17970194); // L137 BLOCK;
-      lisaac_push_first(&__FW0,L10652676); // L81 TRUE;
-      lisaac_push_first(&__AAG,L17974802); // L137 BLOCK;
-      lisaac_push_first(&__CUF,L70011948); // L534 MEMORY;
-      lisaac_push_first(&__OGY,L5774867); // L44 POINTER;
-      __JUF=((____L )(sizeof(void *)));
-      lisaac_push(&__CUF,L70012460); // L534 MEMORY;
-      lisaac_push_first(&__OGY,L9195016); // L70 NUMERIC;
-      __VUF=(____L)(__JUF -  1);
-      lisaac_push(&__CUF,L70012460); // L534 MEMORY;
-      __EUF=__H0E(__VUF);
-      lisaac_push(&__CUF,L70000684); // L534 MEMORY;
-      lisaac_push_first(&__OGY,L22171143); // L169 INTEGER;
-      if (((____CRE)(__LUF & __EUF) ==  0)) {
-        lisaac_push(&__AAG,L17971730); // L137 BLOCK;
-        lisaac_push_first(&__CUF,L13509636); // L103 TRUE;
-        __QE3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__AAG,L17971730); // L137 BLOCK;
-        lisaac_push_first(&__CUF,L14689286); // L112 FALSE;
-        __QE3=__F__;
-      };
-      if (__QE3) {
-        lisaac_push(&__EW0,L18221586); // L139 BLOCK;
-        lisaac_push_first(&__FW0,L8792068); // L67 TRUE;
-        lisaac_push_first(&__AAG,L18105874); // L138 BLOCK;
-        lisaac_push_first(&__CUF,L9452546); // L72 OBJECT;
-        lisaac_push_first(&__OGY,L8260098); // L63 OBJECT;
-        lisaac_push_first(&__OE3,L8792068); // L67 TRUE;
-        lisaac_push_first(&__KVT,L8009218); // L61 OBJECT;
-        lisaac_stack_print((_____CONTEXT *)(__NSE));
-        lisaac_push(&__CUF,L9574914); // L73 OBJECT;
-        __DX((&__string_133));
-        lisaac_push(&__CUF,L9706498); // L74 OBJECT;
-        lisaac_push_first(&__OGY,L10896400); // L83 CHARACTER;
-        lisaac_push_first(&__OE3,L5005342); // L38 STD_OUTPUT;
-        lisaac_push_first(&__KVT,L18378271); // L140 OUTPUT_STREAM;
-        lisaac_push_first(&__VGY,L6962199); // L53 SYSTEM_IO;
-        fputc((int)('\n'),stdout);
-        lisaac_push(&__CUF,L9848322); // L75 OBJECT;
-        lisaac_push_first(&__OGY,L10904578); // L83 OBJECT;
-        lisaac_push_first(&__OE3,L4598824); // L35 SYSTEM;
-        exit(( 1));
-      } else /* FALSE */ {
-        lisaac_push(&__EW0,L18221586); // L139 BLOCK;
-        lisaac_push_first(&__FW0,L8530438); // L65 FALSE;
-      };
-      lisaac_push(&__HV0,L70269484); // L536 MEMORY;
-      lisaac_push_first(&__EW0,L47201836); // L360 MEMORY;
-      __NSE=((____DB )(&(table_type[(__USE)])));
-      lisaac_push(&__HV0,L70415916); // L537 MEMORY;
-      lisaac_push_first(&__EW0,L22940167); // L175 INTEGER;
-      lisaac_push_first(&__FW0,L25311239); // L193 INTEGER;
-      lisaac_push_first(&__AAG,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__CUF,L9195016); // L70 NUMERIC;
-      __3X0=(____Y1)(- __USE);
-      lisaac_push(&__FW0,L25314823); // L193 INTEGER;
-      lisaac_push_first(&__AAG,L9195016); // L70 NUMERIC;
-      __USE=(____Y1)(__3X0 -  1);
-      lisaac_push(&__EW0,L22944263); // L175 INTEGER;
-      lisaac_push_first(&__FW0,L25311239); // L193 INTEGER;
-      lisaac_push_first(&__AAG,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__CUF,L9195016); // L70 NUMERIC;
-      __3X0=(____Y1)(-  1);
-      lisaac_push(&__FW0,L25314823); // L193 INTEGER;
-      lisaac_push_first(&__AAG,L9195016); // L70 NUMERIC;
-      __1HJ=(____Y1)(__3X0 -  1);
-      lisaac_push(&__EW0,L22943239); // L175 INTEGER;
-      lisaac_push_first(&__FW0,L22171143); // L169 INTEGER;
-      __3X0=(____Y1)(__USE & __1HJ);
-      lisaac_push(&__EW0,L22939143); // L175 INTEGER;
-      lisaac_push_first(&__FW0,L25311239); // L193 INTEGER;
-      lisaac_push_first(&__AAG,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__CUF,L9195016); // L70 NUMERIC;
-      __USE=(____Y1)(- __3X0);
-      lisaac_push(&__FW0,L25314823); // L193 INTEGER;
-      lisaac_push_first(&__AAG,L9195016); // L70 NUMERIC;
-      __3X0=(____Y1)(__USE -  1);
-      lisaac_push(&__HV0,L70417964); // L537 MEMORY;
-      __CVF=__VZF(__LUF,__NSE,__3X0);
-      __ARE=__CVF;
-    };
-    lisaac_push(&__JOW,L17979394); // L137 OBJECT;
-    lisaac_push_first(&__4HF,L4069927); // L31 CONVERT;
-    __5QE=((____0B *)__ARE);
-    lisaac_push(&__JOW,L18232834); // L139 OBJECT;
-    lisaac_push_first(&__4HF,L28326914); // L216 OBJECT;
-    *(__5QE) = *(__0B__);
-    lisaac_push(&__JOW,L18746882); // L143 OBJECT;
-    lisaac_push_first(&__4HF,L8530438); // L65 FALSE;
-  };
-  __4QE=__5QE;
-  return(__4QE);
-}
-
-static ____4* __WMH(____L __ZMH)
-// ({__L}) With result No recursive, No inlinable.
-{
-  ____DB __FRH;
-  ____CRE __SSH;
-  ____L __FNH,__DOJ,__VYK;
-  _____CONTEXT __XMH,__DRH,__C0H,__ORH,__4MH,__APW,__XUQ,__TRP,__RHY;
-  _____CONTEXT __ZHY;
-  ____G __RRH,__O50,__Q50,__X50,__Z50,__150;
-  ____4 *__TSH,*__0MH;
-  lisaac_push_first(&__XMH,L10619925); // L81 NATIVE_ARRAY;
-  lisaac_push_first(&__DRH,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__C0H,L7481858); // L57 OBJECT;
-  __FRH=((____DB )(top_context->back->back));
-  lisaac_push(&__DRH,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__C0H,L10652676); // L81 TRUE;
-  lisaac_push_first(&__ORH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__4MH,L10627605); // L81 NATIVE_ARRAY;
-  lisaac_push_first(&__APW,L15224840); // L116 NUMERIC;
-  if ((__ZMH >  0)) {
-    lisaac_push(&__ORH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__4MH,L13509636); // L103 TRUE;
-    __RRH=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ORH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__4MH,L14689286); // L112 FALSE;
-    __RRH=__F__;
-  };
-  if (__RRH) {
-    lisaac_push(&__DRH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__C0H,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ORH,L21910546); // L167 BLOCK;
-    lisaac_push(&__ORH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__4MH,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__APW,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__XUQ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TRP,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__FRH));
-    lisaac_push(&__4MH,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__4MH,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__APW,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__XUQ,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__TRP,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__RHY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__4MH,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__APW,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__XUQ,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__DRH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__C0H,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__XMH,L11160085); // L85 NATIVE_ARRAY;
-  lisaac_push_first(&__DRH,L7998485); // L61 NATIVE_ARRAY;
-  lisaac_push_first(&__C0H,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__ORH,L7481858); // L57 OBJECT;
-  __FRH=((____DB )(top_context->back->back));
-  lisaac_push(&__C0H,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__ORH,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4MH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__APW,L8006165); // L61 NATIVE_ARRAY;
-  lisaac_push_first(&__XUQ,L15224840); // L116 NUMERIC;
-  if ((__ZMH >  0)) {
-    lisaac_push(&__4MH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__APW,L13509636); // L103 TRUE;
-    __RRH=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4MH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__APW,L14689286); // L112 FALSE;
-    __RRH=__F__;
-  };
-  if (__RRH) {
-    lisaac_push(&__C0H,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__ORH,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4MH,L21910546); // L167 BLOCK;
-    lisaac_push(&__4MH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__APW,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__XUQ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__TRP,L8792068); // L67 TRUE;
-    lisaac_push_first(&__RHY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__FRH));
-    lisaac_push(&__APW,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__APW,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__XUQ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__TRP,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__RHY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZHY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__APW,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__XUQ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__TRP,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__C0H,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__ORH,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__DRH,L8264725); // L63 NATIVE_ARRAY;
-  __SSH=__H0E(__ZMH);
-  lisaac_push(&__DRH,L9063445); // L69 NATIVE_ARRAY;
-  __FRH=__Y1H(__SSH);
-  lisaac_push(&__DRH,L9201173); // L70 NATIVE_ARRAY;
-  lisaac_push_first(&__C0H,L4069927); // L31 CONVERT;
-  __TSH=((____4 *)__FRH);
-  lisaac_push(&__DRH,L9702421); // L74 NATIVE_ARRAY;
-  lisaac_push_first(&__C0H,L24393746); // L186 BLOCK;
-  lisaac_push_first(&__ORH,L7481858); // L57 OBJECT;
-  __FRH=((____DB )(top_context->back->back));
-  lisaac_push(&__C0H,L24524306); // L187 BLOCK;
-  lisaac_push_first(&__ORH,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4MH,L24528914); // L187 BLOCK;
-  lisaac_push_first(&__APW,L9703445); // L74 NATIVE_ARRAY;
-  if (((void *)__TSH != (void *)NULL)) {
-    lisaac_push(&__4MH,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__APW,L13509636); // L103 TRUE;
-    __RRH=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4MH,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__APW,L14689286); // L112 FALSE;
-    __RRH=__F__;
-  };
-  if (__RRH) {
-    lisaac_push(&__C0H,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__ORH,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4MH,L24532498); // L187 BLOCK;
-    lisaac_push(&__4MH,L24672274); // L188 BLOCK;
-    lisaac_push_first(&__APW,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__XUQ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__TRP,L8792068); // L67 TRUE;
-    lisaac_push_first(&__RHY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__FRH));
-    lisaac_push(&__APW,L9574914); // L73 OBJECT;
-    __DX((&__string_114));
-    lisaac_push(&__APW,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__XUQ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__TRP,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__RHY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZHY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__APW,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__XUQ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__TRP,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__C0H,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__ORH,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__XMH,L11289621); // L86 NATIVE_ARRAY;
-  lisaac_push_first(&__DRH,L9195016); // L70 NUMERIC;
-  __FNH=(____L)(__ZMH -  1);
-  lisaac_push(&__XMH,L11290645); // L86 NATIVE_ARRAY;
-  lisaac_push_first(&__DRH,L77597717); // L592 NATIVE_ARRAY;
-  lisaac_push_first(&__C0H,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__ORH,L7481858); // L57 OBJECT;
-  __FRH=((____DB )(top_context->back->back));
-  lisaac_push(&__C0H,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__ORH,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4MH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__APW,L77603861); // L592 NATIVE_ARRAY;
-  lisaac_push_first(&__XUQ,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__TRP,L9195016); // L70 NUMERIC;
-  __DOJ=(____L)(-  1);
-  lisaac_push(&__APW,L77602837); // L592 NATIVE_ARRAY;
-  lisaac_push_first(&__XUQ,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__TRP,L15224840); // L116 NUMERIC;
-  __RRH=(__FNH > __DOJ);
-  lisaac_push(&__XUQ,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__TRP,L14700552); // L112 NUMERIC;
-  __O50=(__FNH == __DOJ);
-  if (__RRH) {
-    lisaac_push(&__XUQ,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__TRP,L10900996); // L83 TRUE;
-    __Q50=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__XUQ,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__TRP,L12342790); // L94 FALSE;
-    __Q50=__O50;
-  };
-  if (__Q50) {
-    lisaac_push(&__4MH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__APW,L13509636); // L103 TRUE;
-    __Q50=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4MH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__APW,L14689286); // L112 FALSE;
-    __Q50=__F__;
-  };
-  if (__Q50) {
-    lisaac_push(&__C0H,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__ORH,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4MH,L21910546); // L167 BLOCK;
-    lisaac_push(&__4MH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__APW,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__XUQ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__TRP,L8792068); // L67 TRUE;
-    lisaac_push_first(&__RHY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__FRH));
-    lisaac_push(&__APW,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__APW,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__XUQ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__TRP,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__RHY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZHY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__APW,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__XUQ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__TRP,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__C0H,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__ORH,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__DRH,L78383637); // L598 NATIVE_ARRAY;
-  __DOJ=__FNH;
-  lisaac_push_first(&__C0H,L22172680); // L169 NUMERIC;
-  __JYK:
-  {
-    lisaac_push(&__C0H,L22550536); // L172 NUMERIC;
-    lisaac_push_first(&__ORH,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__4MH,L15224840); // L116 NUMERIC;
-    __X50=(__DOJ >  0);
-    lisaac_push(&__ORH,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__4MH,L14700552); // L112 NUMERIC;
-    __Z50=(__DOJ ==  0);
-    if (__X50) {
-      lisaac_push(&__ORH,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__4MH,L10900996); // L83 TRUE;
-      __150=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__ORH,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__4MH,L12342790); // L94 FALSE;
-      __150=__Z50;
-    };
-    if (__150) {
-      lisaac_push(&__C0H,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__ORH,L8792068); // L67 TRUE;
-      lisaac_push_first(&__4MH,L22685704); // L173 NUMERIC;
-      lisaac_push_first(&__APW,L78258197); // L597 NATIVE_ARRAY;
-      __CRG(__TSH,'\0',__DOJ);
-      lisaac_push(&__4MH,L22812680); // L174 NUMERIC;
-      lisaac_push_first(&__APW,L9195016); // L70 NUMERIC;
-      __VYK=(____L)(__DOJ -  1);
-      lisaac_push(&__4MH,L22826504); // L174 NUMERIC;
-      __DOJ=__VYK;
-      goto __JYK;
-    } else /* FALSE */ {
-      lisaac_push(&__C0H,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__ORH,L8530438); // L65 FALSE;
-    };
-  };
-  __0MH=__TSH;
-  return(__0MH);
-}
-
-static void __CRG(____4 *__ERG,____4 __FRG,____L __GRG)
-// ({__HB},{__4},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __TYG;
-  _____CONTEXT __DRG,__RYG,__N4G,__2YG,__KRG,__JA1,__KA1,__VNP,__CJY;
-  _____CONTEXT __KJY;
-  ____G __NA1,__PA1,__RA1;
-  lisaac_push_first(&__DRG,L18222101); // L139 NATIVE_ARRAY;
-  lisaac_push_first(&__RYG,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__N4G,L7481858); // L57 OBJECT;
-  __TYG=((____DB )(top_context->back->back));
-  lisaac_push(&__RYG,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__N4G,L10652676); // L81 TRUE;
-  lisaac_push_first(&__2YG,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__KRG,L18227221); // L139 NATIVE_ARRAY;
-  lisaac_push_first(&__JA1,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__KA1,L15224840); // L116 NUMERIC;
-  __NA1=(__GRG >  0);
-  lisaac_push(&__JA1,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__KA1,L14700552); // L112 NUMERIC;
-  __PA1=(__GRG ==  0);
-  if (__NA1) {
-    lisaac_push(&__JA1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__KA1,L10900996); // L83 TRUE;
-    __RA1=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__JA1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__KA1,L12342790); // L94 FALSE;
-    __RA1=__PA1;
-  };
-  if (__RA1) {
-    lisaac_push(&__2YG,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__KRG,L13509636); // L103 TRUE;
-    __RA1=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__2YG,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__KRG,L14689286); // L112 FALSE;
-    __RA1=__F__;
-  };
-  if (__RA1) {
-    lisaac_push(&__RYG,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__N4G,L8792068); // L67 TRUE;
-    lisaac_push_first(&__2YG,L21910546); // L167 BLOCK;
-    lisaac_push(&__2YG,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__KRG,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__JA1,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__KA1,L8792068); // L67 TRUE;
-    lisaac_push_first(&__VNP,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__TYG));
-    lisaac_push(&__KRG,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__KRG,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__JA1,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__KA1,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__VNP,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__CJY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__KRG,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__JA1,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__KA1,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__RYG,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__N4G,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__DRG,L18627605); // L142 NATIVE_ARRAY;
-  lisaac_push_first(&__RYG,L105516053); // L805 NATIVE_ARRAY;
-  lisaac_push_first(&__N4G,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__2YG,L7481858); // L57 OBJECT;
-  __TYG=((____DB )(top_context->back->back));
-  lisaac_push(&__N4G,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__2YG,L10652676); // L81 TRUE;
-  lisaac_push_first(&__KRG,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__JA1,L105520661); // L805 NATIVE_ARRAY;
-  lisaac_push_first(&__KA1,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__VNP,L15224840); // L116 NUMERIC;
-  __NA1=(__GRG >  0);
-  lisaac_push(&__KA1,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__VNP,L14700552); // L112 NUMERIC;
-  __PA1=(__GRG ==  0);
-  if (__NA1) {
-    lisaac_push(&__KA1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__VNP,L10900996); // L83 TRUE;
-    __RA1=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__KA1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__VNP,L12342790); // L94 FALSE;
-    __RA1=__PA1;
-  };
-  if (__RA1) {
-    lisaac_push(&__KRG,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__JA1,L13509636); // L103 TRUE;
-    __RA1=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__KRG,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__JA1,L14689286); // L112 FALSE;
-    __RA1=__F__;
-  };
-  if (__RA1) {
-    lisaac_push(&__N4G,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__2YG,L8792068); // L67 TRUE;
-    lisaac_push_first(&__KRG,L21910546); // L167 BLOCK;
-    lisaac_push(&__KRG,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__JA1,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__KA1,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__VNP,L8792068); // L67 TRUE;
-    lisaac_push_first(&__CJY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__TYG));
-    lisaac_push(&__JA1,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__JA1,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__KA1,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__VNP,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__CJY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KJY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__JA1,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__KA1,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__VNP,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__N4G,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__2YG,L8530438); // L65 FALSE;
-  };
-  __ERG[__GRG]=__FRG;
-}
-
-static void __PRG(____0B *__RRG,____4 __SRG)
-// ({__0B},{__4}) Void No recursive, No inlinable.
-{
-  ____L __URG,__VRG,__MSG,__NSG;
-  _____CONTEXT __QRG,__M4,__45W,__BFH,__CSG,__LJY;
-  ____G __S4;
-  ____4 *__FSG,*__QSG;
-  lisaac_push_first(&__QRG,L52966424); // L404 STRING;
-  __URG=__RRG->__SUE;
-  __VRG=__RRG->__FC;
-  lisaac_push(&__QRG,L53747736); // L410 STRING;
-  lisaac_push_first(&__M4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__45W,L15224840); // L116 NUMERIC;
-  if ((__URG > __VRG)) {
-    lisaac_push(&__M4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__45W,L13509636); // L103 TRUE;
-    __S4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__M4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__45W,L14689286); // L112 FALSE;
-    __S4=__F__;
-  };
-  if (__S4) {
-    lisaac_push(&__QRG,L54921752); // L419 STRING;
-    lisaac_push_first(&__M4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__45W,L53753880); // L410 STRING;
-    if ((__RRG->__SUE ==  0)) {
-      lisaac_push(&__45W,L54791704); // L418 STRING;
-      lisaac_push_first(&__BFH,L6825988); // L52 TRUE;
-      lisaac_push_first(&__CSG,L53883416); // L411 STRING;
-      __RRG->__SUE= 32;
-      lisaac_push(&__CSG,L54159384); // L413 STRING;
-      __FSG=__WMH( 32);
-      __RRG->__IUE=__FSG;
     } else /* FALSE */ {
-      lisaac_push(&__45W,L54791704); // L418 STRING;
-      lisaac_push_first(&__BFH,L6826502); // L52 FALSE;
-      lisaac_push_first(&__CSG,L54271000); // L414 STRING;
-      __MSG=__RRG->__SUE;
-      lisaac_push(&__CSG,L54408728); // L415 STRING;
-      lisaac_push_first(&__LJY,L9457160); // L72 NUMERIC;
-      __NSG=(____L)(__MSG <<  1);
-      __FSG=__RRG->__IUE;
-      __MSG=__RRG->__SUE;
-      if (__FSG==NULL) {
-        lisaac_push(&__CSG,L54556184); // L416 STRING;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-        lisaac_push(&__CSG,L54556184); // L416 STRING;
-        __QSG=__ONH(((____4 *)__FSG),__MSG,__NSG);
-      };
-      __RRG->__IUE=__QSG;
-      __RRG->__SUE=__NSG;
+      __FSC((&__string_115));
     };
-  } else /* FALSE */ {
-    lisaac_push(&__QRG,L54921752); // L419 STRING;
-    lisaac_push_first(&__M4,L8530438); // L65 FALSE;
-  };
-  __FSG=__RRG->__IUE;
-  __URG=__RRG->__FC;
-  if (__FSG==NULL) {
-    lisaac_push(&__QRG,L55064088); // L420 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__QRG,L55064088); // L420 STRING;
-    __CRG(((____4 *)__FSG),__SRG,__URG);
-  };
-  __URG=__RRG->__FC;
-  lisaac_push(&__QRG,L55191576); // L421 STRING;
-  lisaac_push_first(&__M4,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__45W,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__BFH,L9195016); // L70 NUMERIC;
-  __VRG=(____L)(-  1);
-  lisaac_push(&__M4,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__45W,L9195016); // L70 NUMERIC;
-  __RRG->__FC=(____L)(__URG - __VRG);
+  } while ((__QP == (____L)(-  1)));
+  __PP=__QP;
+  return(__PP);
 }
 
-static ____4 __LVD(____4 *__NVD,____L __OVD)
-// ({__HB},{__L}) With result No recursive, No inlinable.
+static void __LGB(void *__NGB,____V *__OGB,void *__PGB,____G __QGB)
+// ({NULLx__Vx__WB},{NULLx__V},{NULLx__Vx__WB},{__Fx__J}) Void No recursive, No inlinable.
 {
-  ____DB __G3D;
-  _____CONTEXT __MVD,__E3D,__UFE,__P3D,__TVD,__ZB1,__0B1,__55M,__R1Y;
-  ____G __3B1,__5B1,__BC1;
-  ____4 __PVD;
-  lisaac_push_first(&__MVD,L16780309); // L128 NATIVE_ARRAY;
-  lisaac_push_first(&__E3D,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__UFE,L7481858); // L57 OBJECT;
-  __G3D=((____DB )(top_context->back->back));
-  lisaac_push(&__E3D,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__UFE,L10652676); // L81 TRUE;
-  lisaac_push_first(&__P3D,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__TVD,L16785429); // L128 NATIVE_ARRAY;
-  lisaac_push_first(&__ZB1,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__0B1,L15224840); // L116 NUMERIC;
-  __3B1=(__OVD >  0);
-  lisaac_push(&__ZB1,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__0B1,L14700552); // L112 NUMERIC;
-  __5B1=(__OVD ==  0);
-  if (__3B1) {
-    lisaac_push(&__ZB1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__0B1,L10900996); // L83 TRUE;
-    __BC1=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZB1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__0B1,L12342790); // L94 FALSE;
-    __BC1=__5B1;
-  };
-  if (__BC1) {
-    lisaac_push(&__P3D,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__TVD,L13509636); // L103 TRUE;
-    __BC1=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__P3D,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__TVD,L14689286); // L112 FALSE;
-    __BC1=__F__;
-  };
-  if (__BC1) {
-    lisaac_push(&__E3D,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__UFE,L8792068); // L67 TRUE;
-    lisaac_push_first(&__P3D,L21910546); // L167 BLOCK;
-    lisaac_push(&__P3D,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__TVD,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__ZB1,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__0B1,L8792068); // L67 TRUE;
-    lisaac_push_first(&__55M,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__G3D));
-    lisaac_push(&__TVD,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__TVD,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__ZB1,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__0B1,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__55M,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__R1Y,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__TVD,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__ZB1,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__0B1,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__E3D,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__UFE,L8530438); // L65 FALSE;
-  };
-  __PVD=__NVD[__OVD];
-  return(__PVD);
-}
-
-static void __LT(____L __NT,____0B *__OT)
-// ({__L},{NULLx__0B}) Void No recursive, No inlinable.
-{
-  ____I0 __1UD;
-  ____O0 __DVD;
-  ____R __PT,__C1,__U5B,__X5B;
-  ____DB __SBB,__RMC,__VHK;
-  ____L __F1,__G1,__O2,__IKY,__OJC,__WE1;
-  ____0B *__QC1,*__PYI,*__Z2Y;
-  _____CONTEXT __MT,__RV3,__SV3,__BW3,__1BB,__40,__IKF,__0OF,__QKF;
-  _____CONTEXT __CKY,__PMC,__OSC,__0MC,__SIC,__3X3,__4X3,__VBX,__KFF;
-  _____CONTEXT __3BX,__WHP;
-  ____G __4BB,__FKB,__UYD,__RFF,__SFF,__ZM4,__1M4;
-  ____01 __1IC,__2IC,__1E3;
-  ____4 __5IC,__DBJ,__EBJ,__FBJ,__GBJ;
-  lisaac_push_first(&__MT,L51271687); // L391 INTEGER;
-  lisaac_push_first(&__RV3,L55315464); // L422 NUMERIC;
-  lisaac_push_first(&__SV3,L21902354); // L167 BLOCK;
-  lisaac_push(&__SV3,L22153746); // L169 BLOCK;
-  lisaac_push(&__RV3,L55706632); // L425 NUMERIC;
-  lisaac_push_first(&__SV3,L69374472); // L529 NUMERIC;
-  lisaac_push_first(&__BW3,L4069927); // L31 CONVERT;
-  __PT=((____R )__NT);
-  lisaac_push(&__MT,L51280391); // L391 INTEGER;
-  lisaac_push_first(&__RV3,L4721675); // L36 SIGNED_INTEGER;
-  lisaac_push_first(&__SV3,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__BW3,L7481858); // L57 OBJECT;
-  __SBB=((____DB )(top_context->back->back));
-  lisaac_push(&__SV3,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__BW3,L10652676); // L81 TRUE;
-  lisaac_push_first(&__1BB,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__40,L4722699); // L36 SIGNED_INTEGER;
-  if (((void *)__OT != (void *)NULL)) {
-    lisaac_push(&__1BB,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__40,L13509636); // L103 TRUE;
-    __4BB=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__1BB,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__40,L14689286); // L112 FALSE;
-    __4BB=__F__;
-  };
-  if (__4BB) {
-    lisaac_push(&__SV3,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__BW3,L8792068); // L67 TRUE;
-    lisaac_push_first(&__1BB,L21910546); // L167 BLOCK;
-    lisaac_push(&__1BB,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__40,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__IKF,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__0OF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__QKF,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__SBB));
-    lisaac_push(&__40,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__40,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__IKF,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__0OF,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__QKF,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__CKY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__40,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__IKF,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__0OF,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__SV3,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__BW3,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__RV3,L4214282); // L32 INTEGER_32;
-  lisaac_push_first(&__SV3,L69374472); // L529 NUMERIC;
-  lisaac_push_first(&__BW3,L4069927); // L31 CONVERT;
-  __C1= 0;
-  __F1= 0;
-  __G1= 0;
-  if ((__PT ==  0)) {
-    lisaac_push(&__RV3,L8260107); // L63 SIGNED_INTEGER;
-    lisaac_push_first(&__SV3,L6825988); // L52 TRUE;
-    lisaac_push_first(&__BW3,L5252619); // L40 SIGNED_INTEGER;
-    if (__OT==NULL) {
-      lisaac_push(&__BW3,L5385739); // L41 SIGNED_INTEGER;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
+  ____L __RGB,__VXY,__4GB,__0XY,__NYY,__QAC,__KHB,__FZY,__MBM;
+  ____WB *__SGB,*__TGB,*__MRX,*__3XY,*__ZXY,*__VYY,*__RYY,*__3OV,*__DZY;
+  ____DB __XGB,__UGB,__4XY,__EYY,__2YY;
+  ____33D __AYY,__BYY,__CYY,__ZYY,__0YY;
+  ____OY __GYY,__4YY;
+  ____V *__JAC;
+  ____4 *__UXY,*__MYY,*__EZY,*__E0H,*__YAM;
+  ____4 __GIB;
+  ____G __KZH;
+  __RGB= 0;
+  __SGB=NULL;
+  __TGB=NULL;
+  __FSC((&__string_116));
+  if (((struct ___OBJ *)__NGB)->__id==____V__) {
+    __FSC(((____V *)__NGB));
+  } else /* STRING */ {
+    __FSC(((____WB *)__NGB));
+  };
+  __WGH(((____WB *)__1B),__NGB);
+  __MRX=((____WB *)__1B);
+  if ((__MRX->__CBE > __MRX->__BC)) {
+    ((____4 *)__MRX->__ZAE)[__MRX->__BC]='\0';
+  } else /* FALSE */ {
+    if ((__MRX->__CBE <= __MRX->__BC)) {
+      if ((__MRX->__CBE ==  0)) {
+        __MRX->__CBE= 32;
+        __UXY=__3NG( 32);
+        __MRX->__ZAE=__UXY;
+      } else /* FALSE */ {
+        __VXY=(____L)(__MRX->__CBE <<  1);
+        __UXY=__SOG(((____4 *)__MRX->__ZAE),__MRX->__CBE,__VXY);
+        __MRX->__ZAE=__UXY;
+        __MRX->__CBE=__VXY;
+      };
+    };
+    ((____4 *)__MRX->__ZAE)[__MRX->__BC]='\0';
+    __MRX->__BC=(____L)(__MRX->__BC +  1);
+    __MRX->__BC=(____L)(__MRX->__BC -  1);
+  };
+  __XGB=((____DB )(fopen((char*)(__MRX->__ZAE),"rb")));
+  __UGB=__XGB;
+  if ((__XGB != (void *)NULL)) {
+    fseek((FILE*)((__XGB)),0,SEEK_END);
+    __VXY=((____L )(ftell((FILE *)(__XGB))));
+    fseek((FILE*)((__XGB)),0,SEEK_SET);
+    if (((struct ___OBJ *)__PGB)->__id==____V__) {
+      __4GB=((____V *)__PGB)->__UB;
     } else /* STRING */ {
-      lisaac_push(&__BW3,L5385739); // L41 SIGNED_INTEGER;
-      __QC1=((____0B *)__OT);
-      lisaac_push_first(&__1BB,L56248344); // L429 STRING;
-      __PRG(__QC1,'0');
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__RV3,L8260107); // L63 SIGNED_INTEGER;
-    lisaac_push_first(&__SV3,L6826502); // L52 FALSE;
-    lisaac_push_first(&__BW3,L5643787); // L43 SIGNED_INTEGER;
-    lisaac_push_first(&__1BB,L55315464); // L422 NUMERIC;
-    lisaac_push_first(&__40,L21902354); // L167 BLOCK;
-    lisaac_push(&__40,L22153746); // L169 BLOCK;
-    lisaac_push(&__1BB,L55706632); // L425 NUMERIC;
-    lisaac_push(&__BW3,L5642763); // L43 SIGNED_INTEGER;
-    lisaac_push_first(&__1BB,L15224840); // L116 NUMERIC;
-    if ((__PT >  0)) {
-      lisaac_push(&__BW3,L6295051); // L48 SIGNED_INTEGER;
-      lisaac_push_first(&__1BB,L6825988); // L52 TRUE;
-      lisaac_push_first(&__40,L5646859); // L43 SIGNED_INTEGER;
-      __C1=__PT;
-    } else /* FALSE */ {
-      lisaac_push(&__BW3,L6295051); // L48 SIGNED_INTEGER;
-      lisaac_push_first(&__1BB,L6826502); // L52 FALSE;
-      lisaac_push_first(&__40,L6033931); // L46 SIGNED_INTEGER;
-      lisaac_push_first(&__IKF,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__0OF,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__QKF,L55315464); // L422 NUMERIC;
-      lisaac_push_first(&__CKY,L21902354); // L167 BLOCK;
-      lisaac_push(&__CKY,L22153746); // L169 BLOCK;
-      lisaac_push(&__QKF,L55706632); // L425 NUMERIC;
-      lisaac_push(&__IKF,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__0OF,L9195016); // L70 NUMERIC;
-      __C1=(____R)(- __PT);
-      if (__OT==NULL) {
-        lisaac_push(&__40,L6169611); // L47 SIGNED_INTEGER;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
+      __4GB=((____WB *)__PGB)->__BC;
+    };
+    __0XY=(____L)(__VXY + __4GB);
+    __3XY=NULL;
+    __4XY=((____DB )(NULL));
+    __4GB= 0;
+    __AYY=((____33D )sizeof(____WB));
+    if ((__AYY ==  0)) {
+      __3XY=__WB__;
+    } else /* FALSE */ {
+      __4GB=-1;
+      __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __AYY));
+      if ((__4GB == (____L)(-  1))) {
+        __BYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __CYY=(____33D)((____33D)(__AYY - (____33D)(((____33D ) 0) - __BYY)) & (____33D)((____33D)(((____33D ) 0) - __BYY) - ((____33D ) 1)));
+        __BYY=(____33D)(__CYY / ((____33D )((____L )(sizeof(void *)))));
+        __EYY=__LBF(__CYY,((____DB )(&(table_size[(__BYY)-1]))),((____OY )__CYY));
+        __4XY=__EYY;
+      } else /* FALSE */ {
+        __GYY=((____OY )__4GB);
+        __BYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+        __CYY=(____33D)((____33D)(__AYY - (____33D)(((____33D ) 0) - __BYY)) & (____33D)((____33D)(((____33D ) 0) - __BYY) - ((____33D ) 1)));
+        __EYY=__LBF(__CYY,((____DB )(&(table_type[(__GYY)]))),(____OY)(__GYY |  1));
+        __4XY=__EYY;
+      };
+      __3XY=((____WB *)__4XY);
+      *(__3XY) = *(__WB__);
+    };
+    __ZXY=((____WB *)__3XY);
+    if ((__0XY >  0)) {
+      if ((__ZXY->__CBE < __0XY)) {
+        __UXY=__3NG(__0XY);
+        __ZXY->__ZAE=__UXY;
+        __ZXY->__CBE=__0XY;
+      };
+    };
+    __ZXY->__BC= 0;
+    __TGB=__3XY;
+    __ZXY=((____WB *)__3XY);
+    if ((__ZXY->__CBE > __ZXY->__BC)) {
+      ((____4 *)__ZXY->__ZAE)[__ZXY->__BC]='\0';
+    } else /* FALSE */ {
+      if ((__ZXY->__CBE <= __ZXY->__BC)) {
+        if ((__ZXY->__CBE ==  0)) {
+          __ZXY->__CBE= 32;
+          __MYY=__3NG( 32);
+          __ZXY->__ZAE=__MYY;
+        } else /* FALSE */ {
+          __NYY=(____L)(__ZXY->__CBE <<  1);
+          __MYY=__SOG(((____4 *)__ZXY->__ZAE),__ZXY->__CBE,__NYY);
+          __ZXY->__ZAE=__MYY;
+          __ZXY->__CBE=__NYY;
+        };
+      };
+      ((____4 *)__ZXY->__ZAE)[__ZXY->__BC]='\0';
+      __ZXY->__BC=(____L)(__ZXY->__BC +  1);
+      __ZXY->__BC=(____L)(__ZXY->__BC -  1);
+    };
+    __UXY=__ZXY->__ZAE;
+    fread((void *)((__UXY)),(size_t)(1), (size_t)((__VXY)),(FILE*)((__XGB)));
+    __AAE(((____WB *)__3XY),__UXY);
+    fclose((FILE*)((__XGB)));
+    __VXY=__VWH(((____WB *)__3XY),__OGB);
+    __RGB=__VXY;
+    if ((__VXY !=  0)) {
+      __VYY=NULL;
+      __EYY=((____DB )(NULL));
+      __NYY= 0;
+      __BYY=((____33D )sizeof(____WB));
+      if ((__BYY ==  0)) {
+        __VYY=__WB__;
+      } else /* FALSE */ {
+        __NYY=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __BYY));
+        if ((__NYY == (____L)(-  1))) {
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __ZYY=(____33D)(__0YY / ((____33D )((____L )(sizeof(void *)))));
+          __2YY=__LBF(__0YY,((____DB )(&(table_size[(__ZYY)-1]))),((____OY )__0YY));
+          __EYY=__2YY;
+        } else /* FALSE */ {
+          __4YY=((____OY )__NYY);
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __2YY=__LBF(__0YY,((____DB )(&(table_type[(__4YY)]))),(____OY)(__4YY |  1));
+          __EYY=__2YY;
+        };
+        __VYY=((____WB *)__EYY);
+        *(__VYY) = *(__WB__);
+      };
+      __RYY=((____WB *)__VYY);
+      if ((__RYY->__CBE <  200)) {
+        __MYY=__3NG( 200);
+        __RYY->__ZAE=__MYY;
+        __RYY->__CBE= 200;
+      };
+      __RYY->__BC= 0;
+      __SGB=__VYY;
+      if (((struct ___OBJ *)__PGB)->__id==____V__) {
+        __JAC=((____V *)__PGB);
+        __QAC=__GGC(((____4 *)__JAC->__VB),(____L)(__JAC->__UB -  1));
+        __KHB=__QAC;
       } else /* STRING */ {
-        lisaac_push(&__40,L6169611); // L47 SIGNED_INTEGER;
-        __PYI=((____0B *)__OT);
-        lisaac_push_first(&__IKF,L56248344); // L429 STRING;
-        __PRG(__PYI,'-');
-      };
-    };
-    if (__OT==NULL) {
-      lisaac_push(&__BW3,L6565387); // L50 SIGNED_INTEGER;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__BW3,L6565387); // L50 SIGNED_INTEGER;
-      __QC1=((____0B *)__OT);
-      lisaac_push_first(&__1BB,L6427149); // L49 ABSTRACT_STRING;
-      __O2=__QC1->__FC;
-    };
-    lisaac_push(&__BW3,L6565899); // L50 SIGNED_INTEGER;
-    lisaac_push_first(&__1BB,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__40,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__IKF,L9195016); // L70 NUMERIC;
-    __IKY=(____L)(-  1);
-    lisaac_push(&__1BB,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__40,L9195016); // L70 NUMERIC;
-    __F1=(____L)(__O2 - __IKY);
-    lisaac_push(&__BW3,L7212555); // L55 SIGNED_INTEGER;
-    lisaac_push_first(&__1BB,L11802642); // L90 BLOCK;
-    __AKB:
-    {
-      lisaac_push(&__1BB,L11802642); // L90 BLOCK;
-      lisaac_push_first(&__40,L6819339); // L52 SIGNED_INTEGER;
-      if ((__C1 ==  0)) {
-        lisaac_push(&__1BB,L11799570); // L90 BLOCK;
-        lisaac_push_first(&__40,L13509636); // L103 TRUE;
-        __FKB=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__1BB,L11799570); // L90 BLOCK;
-        lisaac_push_first(&__40,L14689286); // L112 FALSE;
-        __FKB=__F__;
-      };
-      if (__FKB) {
-        lisaac_push(&__1BB,L12192274); // L93 BLOCK;
-        lisaac_push_first(&__40,L8792068); // L67 TRUE;
-        lisaac_push_first(&__IKF,L11935762); // L91 BLOCK;
-        lisaac_push_first(&__0OF,L6959627); // L53 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L55315464); // L422 NUMERIC;
-        lisaac_push_first(&__CKY,L21902354); // L167 BLOCK;
-        lisaac_push(&__CKY,L22153746); // L169 BLOCK;
-        lisaac_push(&__QKF,L55706632); // L425 NUMERIC;
-        lisaac_push(&__0OF,L6958091); // L53 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L8790535); // L67 INTEGER;
-        lisaac_push_first(&__CKY,L9719304); // L74 NUMERIC;
-        __U5B=(____R)(__C1 /  10);
-        lisaac_push(&__QKF,L8795143); // L67 INTEGER;
-        lisaac_push_first(&__CKY,L9457160); // L72 NUMERIC;
-        __X5B=(____R)(__U5B *  10);
-        lisaac_push(&__QKF,L8785927); // L67 INTEGER;
-        lisaac_push_first(&__CKY,L9195016); // L70 NUMERIC;
-        __U5B=(____R)(__C1 - __X5B);
-        lisaac_push(&__0OF,L6963211); // L53 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L53495815); // L408 INTEGER;
-        lisaac_push_first(&__CKY,L52169735); // L398 INTEGER;
-        lisaac_push_first(&__PMC,L21772306); // L166 BLOCK;
-        lisaac_push_first(&__OSC,L7481858); // L57 OBJECT;
-        __RMC=((____DB )(top_context->back->back));
-        lisaac_push(&__PMC,L21902354); // L167 BLOCK;
-        lisaac_push_first(&__OSC,L10652676); // L81 TRUE;
-        lisaac_push_first(&__0MC,L21906962); // L167 BLOCK;
-        lisaac_push_first(&__SIC,L52175879); // L398 INTEGER;
-        lisaac_push_first(&__3X3,L55315464); // L422 NUMERIC;
-        lisaac_push_first(&__4X3,L21902354); // L167 BLOCK;
-        lisaac_push(&__4X3,L22153746); // L169 BLOCK;
-        lisaac_push(&__3X3,L55706632); // L425 NUMERIC;
-        lisaac_push(&__SIC,L52178439); // L398 INTEGER;
-        lisaac_push_first(&__3X3,L55315464); // L422 NUMERIC;
-        lisaac_push_first(&__4X3,L21902354); // L167 BLOCK;
-        lisaac_push(&__4X3,L22153746); // L169 BLOCK;
-        lisaac_push(&__3X3,L55706632); // L425 NUMERIC;
-        lisaac_push(&__SIC,L52178439); // L398 INTEGER;
-        lisaac_push_first(&__3X3,L6296072); // L48 NUMERIC;
-        lisaac_push_first(&__4X3,L15759880); // L120 NUMERIC;
-        lisaac_push_first(&__VBX,L15224840); // L116 NUMERIC;
-        if (( 0 > __U5B)) {
-          lisaac_push(&__4X3,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__VBX,L13509636); // L103 TRUE;
-          __UYD=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__4X3,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__VBX,L14689286); // L112 FALSE;
-          __UYD=__F__;
-        };
-        if (__UYD) {
-          lisaac_push(&__3X3,L6300680); // L48 NUMERIC;
-          lisaac_push_first(&__4X3,L10652676); // L81 TRUE;
-          lisaac_push_first(&__VBX,L6304264); // L48 NUMERIC;
-          lisaac_push_first(&__KFF,L16021000); // L122 NUMERIC;
-          lisaac_push_first(&__3BX,L15224840); // L116 NUMERIC;
-          __UYD=( 9 > __U5B);
-          lisaac_push(&__KFF,L16030216); // L122 NUMERIC;
-          lisaac_push_first(&__3BX,L14700552); // L112 NUMERIC;
-          __RFF=( 9 == __U5B);
-          if (__UYD) {
-            lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__3BX,L10900996); // L83 TRUE;
-            __SFF=__F__;
-          } else /* FALSE */ {
-            lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__3BX,L12342790); // L94 FALSE;
-            __SFF=__RFF;
-          };
-          __UYD=__SFF;
-        } else /* FALSE */ {
-          lisaac_push(&__3X3,L6300680); // L48 NUMERIC;
-          lisaac_push_first(&__4X3,L12081158); // L92 FALSE;
-          __UYD=__J__;
-        };
-        if (__UYD) {
-          lisaac_push(&__0MC,L21903890); // L167 BLOCK;
-          lisaac_push_first(&__SIC,L13509636); // L103 TRUE;
-          __UYD=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__0MC,L21903890); // L167 BLOCK;
-          lisaac_push_first(&__SIC,L14689286); // L112 FALSE;
-          __UYD=__F__;
-        };
-        if (__UYD) {
-          lisaac_push(&__PMC,L22153746); // L169 BLOCK;
-          lisaac_push_first(&__OSC,L8792068); // L67 TRUE;
-          lisaac_push_first(&__0MC,L21910546); // L167 BLOCK;
-          lisaac_push(&__0MC,L22051346); // L168 BLOCK;
-          lisaac_push_first(&__SIC,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__3X3,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__4X3,L8792068); // L67 TRUE;
-          lisaac_push_first(&__VBX,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__RMC));
-          lisaac_push(&__SIC,L9574914); // L73 OBJECT;
-          __DX((&__string_1));
-          lisaac_push(&__SIC,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__3X3,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__4X3,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__VBX,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__KFF,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__SIC,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__3X3,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__4X3,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__PMC,L22153746); // L169 BLOCK;
-          lisaac_push_first(&__OSC,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__CKY,L52571655); // L401 INTEGER;
-        lisaac_push_first(&__PMC,L53742600); // L410 NUMERIC;
-        lisaac_push_first(&__OSC,L21772306); // L166 BLOCK;
-        lisaac_push_first(&__0MC,L7481858); // L57 OBJECT;
-        __RMC=((____DB )(top_context->back->back));
-        lisaac_push(&__OSC,L21902354); // L167 BLOCK;
-        lisaac_push_first(&__0MC,L10652676); // L81 TRUE;
-        lisaac_push_first(&__SIC,L21906962); // L167 BLOCK;
-        lisaac_push_first(&__3X3,L53770760); // L410 NUMERIC;
-        lisaac_push_first(&__4X3,L14301195); // L109 SIGNED_INTEGER;
-        lisaac_push_first(&__VBX,L69636616); // L531 NUMERIC;
-        lisaac_push_first(&__KFF,L4069927); // L31 CONVERT;
-        __1UD=((____I0 )__U5B);
-        lisaac_push(&__4X3,L14291979); // L109 SIGNED_INTEGER;
-        lisaac_push_first(&__VBX,L15498248); // L118 NUMERIC;
-        lisaac_push_first(&__KFF,L16021000); // L122 NUMERIC;
-        lisaac_push_first(&__3BX,L15224840); // L116 NUMERIC;
-        __FKB=( -127 > __1UD);
-        lisaac_push(&__KFF,L16030216); // L122 NUMERIC;
-        lisaac_push_first(&__3BX,L14700552); // L112 NUMERIC;
-        __UYD=( -127 == __1UD);
-        if (__FKB) {
-          lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__3BX,L10900996); // L83 TRUE;
-          __RFF=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-          lisaac_push_first(&__3BX,L12342790); // L94 FALSE;
-          __RFF=__UYD;
-        };
-        if (__RFF) {
-          lisaac_push(&__VBX,L15493640); // L118 NUMERIC;
-          lisaac_push_first(&__KFF,L13509636); // L103 TRUE;
-          __RFF=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__VBX,L15493640); // L118 NUMERIC;
-          lisaac_push_first(&__KFF,L14689286); // L112 FALSE;
-          __RFF=__F__;
-        };
-        if (__RFF) {
-          lisaac_push(&__4X3,L14303243); // L109 SIGNED_INTEGER;
-          lisaac_push_first(&__VBX,L10652676); // L81 TRUE;
-          lisaac_push_first(&__KFF,L14316043); // L109 SIGNED_INTEGER;
-          lisaac_push_first(&__3BX,L68325896); // L521 NUMERIC;
-          lisaac_push_first(&__WHP,L4069927); // L31 CONVERT;
-          __DVD=((____O0 )__U5B);
-          lisaac_push(&__KFF,L14306315); // L109 SIGNED_INTEGER;
-          lisaac_push_first(&__3BX,L15224840); // L116 NUMERIC;
-          __RFF=( 127 > __DVD);
-        } else /* FALSE */ {
-          lisaac_push(&__4X3,L14303243); // L109 SIGNED_INTEGER;
-          lisaac_push_first(&__VBX,L12081158); // L92 FALSE;
-          __RFF=__J__;
-        };
-        if (__RFF) {
-          lisaac_push(&__SIC,L21903890); // L167 BLOCK;
-          lisaac_push_first(&__3X3,L13509636); // L103 TRUE;
-          __RFF=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__SIC,L21903890); // L167 BLOCK;
-          lisaac_push_first(&__3X3,L14689286); // L112 FALSE;
-          __RFF=__F__;
-        };
-        if (__RFF) {
-          lisaac_push(&__OSC,L22153746); // L169 BLOCK;
-          lisaac_push_first(&__0MC,L8792068); // L67 TRUE;
-          lisaac_push_first(&__SIC,L21910546); // L167 BLOCK;
-          lisaac_push(&__SIC,L22051346); // L168 BLOCK;
-          lisaac_push_first(&__3X3,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__4X3,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__VBX,L8792068); // L67 TRUE;
-          lisaac_push_first(&__KFF,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__RMC));
-          lisaac_push(&__3X3,L9574914); // L73 OBJECT;
-          __DX((&__string_1));
-          lisaac_push(&__3X3,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__4X3,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__VBX,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__KFF,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__3BX,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__3X3,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__4X3,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__VBX,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__OSC,L22153746); // L169 BLOCK;
-          lisaac_push_first(&__0MC,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__PMC,L54133768); // L413 NUMERIC;
-        lisaac_push_first(&__OSC,L68850184); // L525 NUMERIC;
-        lisaac_push_first(&__0MC,L4069927); // L31 CONVERT;
-        __1IC=((____01 )__U5B);
-        lisaac_push(&__CKY,L52576775); // L401 INTEGER;
-        lisaac_push_first(&__PMC,L8663056); // L66 CHARACTER;
-        lisaac_push_first(&__OSC,L9339920); // L71 CHARACTER;
-        lisaac_push_first(&__0MC,L4069927); // L31 CONVERT;
-        __2IC=((____01 )'0');
-        lisaac_push(&__CKY,L52572167); // L401 INTEGER;
-        lisaac_push_first(&__PMC,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__OSC,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__0MC,L5383176); // L41 NUMERIC;
-        lisaac_push(&__OSC,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__0MC,L9195016); // L70 NUMERIC;
-        __1E3=(____01)(- __2IC);
-        lisaac_push(&__PMC,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__OSC,L9195016); // L70 NUMERIC;
-        __2IC=(____01)(__1IC - __1E3);
-        lisaac_push(&__CKY,L52691975); // L402 INTEGER;
-        lisaac_push_first(&__PMC,L8134693); // L62 INTEGER_8;
-        __5IC=((____4 )((__2IC)));
-        lisaac_push(&__CKY,L52956167); // L404 INTEGER;
-        lisaac_push_first(&__PMC,L24393746); // L186 BLOCK;
-        lisaac_push_first(&__OSC,L7481858); // L57 OBJECT;
-        __RMC=((____DB )(top_context->back->back));
-        lisaac_push(&__PMC,L24524306); // L187 BLOCK;
-        lisaac_push_first(&__OSC,L10652676); // L81 TRUE;
-        lisaac_push_first(&__0MC,L24528914); // L187 BLOCK;
-        lisaac_push_first(&__SIC,L52957191); // L404 INTEGER;
-        lisaac_push(&__SIC,L52968967); // L404 INTEGER;
-        __FKB=__HTD(__5IC);
-        if (__FKB) {
-          lisaac_push(&__0MC,L24525842); // L187 BLOCK;
-          lisaac_push_first(&__SIC,L13509636); // L103 TRUE;
-          __RFF=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__0MC,L24525842); // L187 BLOCK;
-          lisaac_push_first(&__SIC,L14689286); // L112 FALSE;
-          __RFF=__F__;
-        };
-        if (__RFF) {
-          lisaac_push(&__PMC,L24775186); // L189 BLOCK;
-          lisaac_push_first(&__OSC,L8792068); // L67 TRUE;
-          lisaac_push_first(&__0MC,L24532498); // L187 BLOCK;
-          lisaac_push(&__0MC,L24672274); // L188 BLOCK;
-          lisaac_push_first(&__SIC,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__3X3,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__4X3,L8792068); // L67 TRUE;
-          lisaac_push_first(&__VBX,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__RMC));
-          lisaac_push(&__SIC,L9574914); // L73 OBJECT;
-          __DX((&__string_114));
-          lisaac_push(&__SIC,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__3X3,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__4X3,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__VBX,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__KFF,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__SIC,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__3X3,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__4X3,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__PMC,L24775186); // L189 BLOCK;
-          lisaac_push_first(&__OSC,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__CKY,L53087239); // L405 INTEGER;
-        lisaac_push_first(&__PMC,L24393746); // L186 BLOCK;
-        lisaac_push_first(&__OSC,L7481858); // L57 OBJECT;
-        __RMC=((____DB )(top_context->back->back));
-        lisaac_push(&__PMC,L24524306); // L187 BLOCK;
-        lisaac_push_first(&__OSC,L10652676); // L81 TRUE;
-        lisaac_push_first(&__0MC,L24528914); // L187 BLOCK;
-        lisaac_push_first(&__SIC,L53099015); // L405 INTEGER;
-        __OJC=__RTD(__5IC);
-        if ((__OJC == __U5B)) {
-          lisaac_push(&__0MC,L24525842); // L187 BLOCK;
-          lisaac_push_first(&__SIC,L13509636); // L103 TRUE;
-          __RFF=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__0MC,L24525842); // L187 BLOCK;
-          lisaac_push_first(&__SIC,L14689286); // L112 FALSE;
-          __RFF=__F__;
-        };
-        if (__RFF) {
-          lisaac_push(&__PMC,L24775186); // L189 BLOCK;
-          lisaac_push_first(&__OSC,L8792068); // L67 TRUE;
-          lisaac_push_first(&__0MC,L24532498); // L187 BLOCK;
-          lisaac_push(&__0MC,L24672274); // L188 BLOCK;
-          lisaac_push_first(&__SIC,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__3X3,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__4X3,L8792068); // L67 TRUE;
-          lisaac_push_first(&__VBX,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__RMC));
-          lisaac_push(&__SIC,L9574914); // L73 OBJECT;
-          __DX((&__string_114));
-          lisaac_push(&__SIC,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__3X3,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__4X3,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__VBX,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__KFF,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__SIC,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__3X3,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__4X3,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__PMC,L24775186); // L189 BLOCK;
-          lisaac_push_first(&__OSC,L8530438); // L65 FALSE;
-        };
-        if (__OT==NULL) {
-          lisaac_push(&__0OF,L6963723); // L53 SIGNED_INTEGER;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__0OF,L6963723); // L53 SIGNED_INTEGER;
-          __Z2Y=((____0B *)__OT);
-          lisaac_push_first(&__QKF,L56248344); // L429 STRING;
-          __PRG(__Z2Y,__5IC);
-        };
-        lisaac_push(&__0OF,L7086091); // L54 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L55315464); // L422 NUMERIC;
-        lisaac_push_first(&__CKY,L21902354); // L167 BLOCK;
-        lisaac_push(&__CKY,L22153746); // L169 BLOCK;
-        lisaac_push(&__QKF,L55706632); // L425 NUMERIC;
-        lisaac_push(&__0OF,L7084555); // L54 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L9719304); // L74 NUMERIC;
-        __C1=(____R)(__C1 /  10);
-        lisaac_push(&__IKF,L12068370); // L92 BLOCK;
-        goto __AKB;
-      } else /* FALSE */ {
-        lisaac_push(&__1BB,L12192274); // L93 BLOCK;
-        lisaac_push_first(&__40,L8530438); // L65 FALSE;
-      };
-    };
-    if (__OT==NULL) {
-      lisaac_push(&__BW3,L7482891); // L57 SIGNED_INTEGER;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* STRING */ {
-      lisaac_push(&__BW3,L7482891); // L57 SIGNED_INTEGER;
-      __QC1=((____0B *)__OT);
-      lisaac_push_first(&__1BB,L6427149); // L49 ABSTRACT_STRING;
-      __O2=__QC1->__FC;
-    };
-    __G1=__O2;
-    lisaac_push(&__BW3,L8130059); // L62 SIGNED_INTEGER;
-    lisaac_push_first(&__1BB,L11802642); // L90 BLOCK;
-    __OKB:
-    {
-      lisaac_push(&__1BB,L11802642); // L90 BLOCK;
-      lisaac_push_first(&__40,L7607819); // L58 SIGNED_INTEGER;
-      lisaac_push_first(&__IKF,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__0OF,L15224840); // L116 NUMERIC;
-      __FKB=(__F1 > __G1);
-      lisaac_push(&__IKF,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__0OF,L14700552); // L112 NUMERIC;
-      __UYD=(__F1 == __G1);
-      if (__FKB) {
-        lisaac_push(&__IKF,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__0OF,L10900996); // L83 TRUE;
-        __RFF=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__IKF,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__0OF,L12342790); // L94 FALSE;
-        __RFF=__UYD;
-      };
-      if (__RFF) {
-        lisaac_push(&__1BB,L11799570); // L90 BLOCK;
-        lisaac_push_first(&__40,L13509636); // L103 TRUE;
-        __RFF=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__1BB,L11799570); // L90 BLOCK;
-        lisaac_push_first(&__40,L14689286); // L112 FALSE;
-        __RFF=__F__;
-      };
-      if (__RFF) {
-        lisaac_push(&__1BB,L12192274); // L93 BLOCK;
-        lisaac_push_first(&__40,L8792068); // L67 TRUE;
-        lisaac_push_first(&__IKF,L11935762); // L91 BLOCK;
-        lisaac_push_first(&__0OF,L7614987); // L58 SIGNED_INTEGER;
-        if (__OT==NULL) {
-          lisaac_push(&__0OF,L7744011); // L59 SIGNED_INTEGER;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* STRING */ {
-          lisaac_push(&__0OF,L7744011); // L59 SIGNED_INTEGER;
-          __Z2Y=((____0B *)__OT);
-          lisaac_push_first(&__QKF,L41290264); // L315 STRING;
-          lisaac_push_first(&__CKY,L19150866); // L146 BLOCK;
-          lisaac_push_first(&__PMC,L7481858); // L57 OBJECT;
-          __VHK=((____DB )(top_context->back->back));
-          lisaac_push(&__CKY,L19280914); // L147 BLOCK;
-          lisaac_push_first(&__PMC,L10652676); // L81 TRUE;
-          lisaac_push_first(&__OSC,L19285522); // L147 BLOCK;
-          lisaac_push_first(&__0MC,L41298456); // L315 STRING;
-          lisaac_push_first(&__SIC,L16923661); // L129 ABSTRACT_STRING;
-          __WE1=__Z2Y->__FC;
-          lisaac_push(&__SIC,L17187853); // L131 ABSTRACT_STRING;
-          lisaac_push_first(&__3X3,L6296072); // L48 NUMERIC;
-          lisaac_push_first(&__4X3,L15759880); // L120 NUMERIC;
-          lisaac_push_first(&__VBX,L15224840); // L116 NUMERIC;
-          if (( 1 > __F1)) {
-            lisaac_push(&__4X3,L15755784); // L120 NUMERIC;
-            lisaac_push_first(&__VBX,L13509636); // L103 TRUE;
-            __SFF=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__4X3,L15755784); // L120 NUMERIC;
-            lisaac_push_first(&__VBX,L14689286); // L112 FALSE;
-            __SFF=__F__;
-          };
-          if (__SFF) {
-            lisaac_push(&__3X3,L6300680); // L48 NUMERIC;
-            lisaac_push_first(&__4X3,L10652676); // L81 TRUE;
-            lisaac_push_first(&__VBX,L6304264); // L48 NUMERIC;
-            lisaac_push_first(&__KFF,L16021000); // L122 NUMERIC;
-            lisaac_push_first(&__3BX,L15224840); // L116 NUMERIC;
-            __SFF=(__WE1 > __F1);
-            lisaac_push(&__KFF,L16030216); // L122 NUMERIC;
-            lisaac_push_first(&__3BX,L14700552); // L112 NUMERIC;
-            __ZM4=(__WE1 == __F1);
-            if (__SFF) {
-              lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-              lisaac_push_first(&__3BX,L10900996); // L83 TRUE;
-              __1M4=__F__;
+        __3OV=((____WB *)((____V *)__PGB));
+        __QAC=__GGC(((____4 *)__3OV->__ZAE),(____L)(__3OV->__BC -  1));
+        __KHB=__QAC;
+      };
+      __NYY= 1;
+      __QAC=__KHB;
+      while ((__NYY <= __QAC)) {
+        while (((__RGB < ((____WB *)__TGB)->__BC) && (((____4 *)((____WB *)__TGB)->__ZAE)[(____L)(__RGB -  1)] != '\n'))) {
+          __GIB=((____4 *)((____WB *)__TGB)->__ZAE)[(____L)(__RGB -  1)];
+          __DZY=((____WB *)__SGB);
+          if ((__DZY->__CBE <= __DZY->__BC)) {
+            if ((__DZY->__CBE ==  0)) {
+              __DZY->__CBE= 32;
+              __EZY=__3NG( 32);
+              __DZY->__ZAE=__EZY;
             } else /* FALSE */ {
-              lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-              lisaac_push_first(&__3BX,L12342790); // L94 FALSE;
-              __1M4=__ZM4;
+              __FZY=(____L)(__DZY->__CBE <<  1);
+              __EZY=__SOG(((____4 *)__DZY->__ZAE),__DZY->__CBE,__FZY);
+              __DZY->__ZAE=__EZY;
+              __DZY->__CBE=__FZY;
             };
-            __SFF=__1M4;
-          } else /* FALSE */ {
-            lisaac_push(&__3X3,L6300680); // L48 NUMERIC;
-            lisaac_push_first(&__4X3,L12081158); // L92 FALSE;
-            __SFF=__J__;
-          };
-          if (__SFF) {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L13509636); // L103 TRUE;
-            __SFF=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L14689286); // L112 FALSE;
-            __SFF=__F__;
-          };
-          if (__SFF) {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8792068); // L67 TRUE;
-            lisaac_push_first(&__OSC,L19289106); // L147 BLOCK;
-            lisaac_push(&__OSC,L19428370); // L148 BLOCK;
-            lisaac_push_first(&__0MC,L9452546); // L72 OBJECT;
-            lisaac_push_first(&__SIC,L8260098); // L63 OBJECT;
-            lisaac_push_first(&__3X3,L8792068); // L67 TRUE;
-            lisaac_push_first(&__4X3,L8009218); // L61 OBJECT;
-            lisaac_stack_print((_____CONTEXT *)(__VHK));
-            lisaac_push(&__0MC,L9574914); // L73 OBJECT;
-            __DX((&__string_43));
-            lisaac_push(&__0MC,L9706498); // L74 OBJECT;
-            lisaac_push_first(&__SIC,L10896400); // L83 CHARACTER;
-            lisaac_push_first(&__3X3,L5005342); // L38 STD_OUTPUT;
-            lisaac_push_first(&__4X3,L18378271); // L140 OUTPUT_STREAM;
-            lisaac_push_first(&__VBX,L6962199); // L53 SYSTEM_IO;
-            fputc((int)('\n'),stdout);
-            lisaac_push(&__0MC,L9848322); // L75 OBJECT;
-            lisaac_push_first(&__SIC,L10904578); // L83 OBJECT;
-            lisaac_push_first(&__3X3,L4598824); // L35 SYSTEM;
-            exit(( 1));
-          } else /* FALSE */ {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8530438); // L65 FALSE;
-          };
-          lisaac_push(&__QKF,L41421336); // L316 STRING;
-          lisaac_push_first(&__CKY,L19150866); // L146 BLOCK;
-          lisaac_push_first(&__PMC,L7481858); // L57 OBJECT;
-          __VHK=((____DB )(top_context->back->back));
-          lisaac_push(&__CKY,L19280914); // L147 BLOCK;
-          lisaac_push_first(&__PMC,L10652676); // L81 TRUE;
-          lisaac_push_first(&__OSC,L19285522); // L147 BLOCK;
-          lisaac_push_first(&__0MC,L41429528); // L316 STRING;
-          lisaac_push_first(&__SIC,L16923661); // L129 ABSTRACT_STRING;
-          __WE1=__Z2Y->__FC;
-          lisaac_push(&__SIC,L17187853); // L131 ABSTRACT_STRING;
-          lisaac_push_first(&__3X3,L6296072); // L48 NUMERIC;
-          lisaac_push_first(&__4X3,L15759880); // L120 NUMERIC;
-          lisaac_push_first(&__VBX,L15224840); // L116 NUMERIC;
-          if (( 1 > __G1)) {
-            lisaac_push(&__4X3,L15755784); // L120 NUMERIC;
-            lisaac_push_first(&__VBX,L13509636); // L103 TRUE;
-            __SFF=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__4X3,L15755784); // L120 NUMERIC;
-            lisaac_push_first(&__VBX,L14689286); // L112 FALSE;
-            __SFF=__F__;
           };
-          if (__SFF) {
-            lisaac_push(&__3X3,L6300680); // L48 NUMERIC;
-            lisaac_push_first(&__4X3,L10652676); // L81 TRUE;
-            lisaac_push_first(&__VBX,L6304264); // L48 NUMERIC;
-            lisaac_push_first(&__KFF,L16021000); // L122 NUMERIC;
-            lisaac_push_first(&__3BX,L15224840); // L116 NUMERIC;
-            __SFF=(__WE1 > __G1);
-            lisaac_push(&__KFF,L16030216); // L122 NUMERIC;
-            lisaac_push_first(&__3BX,L14700552); // L112 NUMERIC;
-            __ZM4=(__WE1 == __G1);
-            if (__SFF) {
-              lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-              lisaac_push_first(&__3BX,L10900996); // L83 TRUE;
-              __1M4=__F__;
+          ((____4 *)__DZY->__ZAE)[__DZY->__BC]=__GIB;
+          __DZY->__BC=(____L)(__DZY->__BC +  1);
+          __N3H(((____WB *)__TGB),__RGB);
+        };
+        if ((__RGB <= ((____WB *)__TGB)->__BC)) {
+          __GIB=((____4 *)((____WB *)__TGB)->__ZAE)[(____L)(__RGB -  1)];
+          __DZY=((____WB *)__SGB);
+          if ((__DZY->__CBE <= __DZY->__BC)) {
+            if ((__DZY->__CBE ==  0)) {
+              __DZY->__CBE= 32;
+              __EZY=__3NG( 32);
+              __DZY->__ZAE=__EZY;
             } else /* FALSE */ {
-              lisaac_push(&__KFF,L16025608); // L122 NUMERIC;
-              lisaac_push_first(&__3BX,L12342790); // L94 FALSE;
-              __1M4=__ZM4;
+              __FZY=(____L)(__DZY->__CBE <<  1);
+              __EZY=__SOG(((____4 *)__DZY->__ZAE),__DZY->__CBE,__FZY);
+              __DZY->__ZAE=__EZY;
+              __DZY->__CBE=__FZY;
             };
-            __SFF=__1M4;
-          } else /* FALSE */ {
-            lisaac_push(&__3X3,L6300680); // L48 NUMERIC;
-            lisaac_push_first(&__4X3,L12081158); // L92 FALSE;
-            __SFF=__J__;
-          };
-          if (__SFF) {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L13509636); // L103 TRUE;
-            __SFF=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L14689286); // L112 FALSE;
-            __SFF=__F__;
           };
-          if (__SFF) {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8792068); // L67 TRUE;
-            lisaac_push_first(&__OSC,L19289106); // L147 BLOCK;
-            lisaac_push(&__OSC,L19428370); // L148 BLOCK;
-            lisaac_push_first(&__0MC,L9452546); // L72 OBJECT;
-            lisaac_push_first(&__SIC,L8260098); // L63 OBJECT;
-            lisaac_push_first(&__3X3,L8792068); // L67 TRUE;
-            lisaac_push_first(&__4X3,L8009218); // L61 OBJECT;
-            lisaac_stack_print((_____CONTEXT *)(__VHK));
-            lisaac_push(&__0MC,L9574914); // L73 OBJECT;
-            __DX((&__string_43));
-            lisaac_push(&__0MC,L9706498); // L74 OBJECT;
-            lisaac_push_first(&__SIC,L10896400); // L83 CHARACTER;
-            lisaac_push_first(&__3X3,L5005342); // L38 STD_OUTPUT;
-            lisaac_push_first(&__4X3,L18378271); // L140 OUTPUT_STREAM;
-            lisaac_push_first(&__VBX,L6962199); // L53 SYSTEM_IO;
-            fputc((int)('\n'),stdout);
-            lisaac_push(&__0MC,L9848322); // L75 OBJECT;
-            lisaac_push_first(&__SIC,L10904578); // L83 OBJECT;
-            lisaac_push_first(&__3X3,L4598824); // L35 SYSTEM;
-            exit(( 1));
-          } else /* FALSE */ {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8530438); // L65 FALSE;
-          };
-          lisaac_push(&__QKF,L41690648); // L318 STRING;
-          __DBJ=__GCJ(__Z2Y,__F1);
-          lisaac_push(&__QKF,L41821720); // L319 STRING;
-          __EBJ=__GCJ(__Z2Y,__G1);
-          lisaac_push(&__QKF,L41952280); // L320 STRING;
-          __FBJ=__GCJ(__Z2Y,__F1);
-          lisaac_push(&__QKF,L42082328); // L321 STRING;
-          __GBJ=__GCJ(__Z2Y,__G1);
-          lisaac_push(&__QKF,L42085912); // L321 STRING;
-          __MJK(__Z2Y,__GBJ,__F1);
-          lisaac_push(&__QKF,L42213912); // L322 STRING;
-          __MJK(__Z2Y,__FBJ,__G1);
-          lisaac_push(&__QKF,L42469912); // L324 STRING;
-          lisaac_push_first(&__CKY,L19150866); // L146 BLOCK;
-          lisaac_push_first(&__PMC,L7481858); // L57 OBJECT;
-          __VHK=((____DB )(top_context->back->back));
-          lisaac_push(&__CKY,L19280914); // L147 BLOCK;
-          lisaac_push_first(&__PMC,L10652676); // L81 TRUE;
-          lisaac_push_first(&__OSC,L19285522); // L147 BLOCK;
-          lisaac_push_first(&__0MC,L42475032); // L324 STRING;
-          __FBJ=__GCJ(__Z2Y,__F1);
-          if ((__FBJ == __EBJ)) {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L13509636); // L103 TRUE;
-            __SFF=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L14689286); // L112 FALSE;
-            __SFF=__F__;
-          };
-          if (__SFF) {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8792068); // L67 TRUE;
-            lisaac_push_first(&__OSC,L19289106); // L147 BLOCK;
-            lisaac_push(&__OSC,L19428370); // L148 BLOCK;
-            lisaac_push_first(&__0MC,L9452546); // L72 OBJECT;
-            lisaac_push_first(&__SIC,L8260098); // L63 OBJECT;
-            lisaac_push_first(&__3X3,L8792068); // L67 TRUE;
-            lisaac_push_first(&__4X3,L8009218); // L61 OBJECT;
-            lisaac_stack_print((_____CONTEXT *)(__VHK));
-            lisaac_push(&__0MC,L9574914); // L73 OBJECT;
-            __DX((&__string_43));
-            lisaac_push(&__0MC,L9706498); // L74 OBJECT;
-            lisaac_push_first(&__SIC,L10896400); // L83 CHARACTER;
-            lisaac_push_first(&__3X3,L5005342); // L38 STD_OUTPUT;
-            lisaac_push_first(&__4X3,L18378271); // L140 OUTPUT_STREAM;
-            lisaac_push_first(&__VBX,L6962199); // L53 SYSTEM_IO;
-            fputc((int)('\n'),stdout);
-            lisaac_push(&__0MC,L9848322); // L75 OBJECT;
-            lisaac_push_first(&__SIC,L10904578); // L83 OBJECT;
-            lisaac_push_first(&__3X3,L4598824); // L35 SYSTEM;
-            exit(( 1));
-          } else /* FALSE */ {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8530438); // L65 FALSE;
-          };
-          lisaac_push(&__QKF,L42600984); // L325 STRING;
-          lisaac_push_first(&__CKY,L19150866); // L146 BLOCK;
-          lisaac_push_first(&__PMC,L7481858); // L57 OBJECT;
-          __VHK=((____DB )(top_context->back->back));
-          lisaac_push(&__CKY,L19280914); // L147 BLOCK;
-          lisaac_push_first(&__PMC,L10652676); // L81 TRUE;
-          lisaac_push_first(&__OSC,L19285522); // L147 BLOCK;
-          lisaac_push_first(&__0MC,L42606104); // L325 STRING;
-          __EBJ=__GCJ(__Z2Y,__G1);
-          if ((__EBJ == __DBJ)) {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L13509636); // L103 TRUE;
-            __SFF=__J__;
-          } else /* FALSE */ {
-            lisaac_push(&__OSC,L19282450); // L147 BLOCK;
-            lisaac_push_first(&__0MC,L14689286); // L112 FALSE;
-            __SFF=__F__;
+          ((____4 *)__DZY->__ZAE)[__DZY->__BC]=__GIB;
+          __DZY->__BC=(____L)(__DZY->__BC +  1);
+          __N3H(((____WB *)__TGB),__RGB);
+        };
+        __NYY=(____L)(__NYY +  1);
+      };
+      __RYY=((____WB *)__VYY);
+      __KZH=__J__;
+      __NYY=__RYY->__BC;
+      if (((struct ___OBJ *)__PGB)->__id==____V__) {
+        __KHB=((____V *)__PGB)->__UB;
+      } else /* STRING */ {
+        __KHB=((____WB *)__PGB)->__BC;
+      };
+      if ((__NYY == __KHB)) {
+        if ((__RYY->__BC ==  0)) {
+          __KZH=__F__;
+        } else /* FALSE */ {
+          __EZY=__RYY->__ZAE;
+          if (((struct ___OBJ *)__PGB)->__id==____V__) {
+            __E0H=((____V *)__PGB)->__VB;
+          } else /* STRING */ {
+            __E0H=((____WB *)__PGB)->__ZAE;
           };
-          if (__SFF) {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8792068); // L67 TRUE;
-            lisaac_push_first(&__OSC,L19289106); // L147 BLOCK;
-            lisaac_push(&__OSC,L19428370); // L148 BLOCK;
-            lisaac_push_first(&__0MC,L9452546); // L72 OBJECT;
-            lisaac_push_first(&__SIC,L8260098); // L63 OBJECT;
-            lisaac_push_first(&__3X3,L8792068); // L67 TRUE;
-            lisaac_push_first(&__4X3,L8009218); // L61 OBJECT;
-            lisaac_stack_print((_____CONTEXT *)(__VHK));
-            lisaac_push(&__0MC,L9574914); // L73 OBJECT;
-            __DX((&__string_43));
-            lisaac_push(&__0MC,L9706498); // L74 OBJECT;
-            lisaac_push_first(&__SIC,L10896400); // L83 CHARACTER;
-            lisaac_push_first(&__3X3,L5005342); // L38 STD_OUTPUT;
-            lisaac_push_first(&__4X3,L18378271); // L140 OUTPUT_STREAM;
-            lisaac_push_first(&__VBX,L6962199); // L53 SYSTEM_IO;
-            fputc((int)('\n'),stdout);
-            lisaac_push(&__0MC,L9848322); // L75 OBJECT;
-            lisaac_push_first(&__SIC,L10904578); // L83 OBJECT;
-            lisaac_push_first(&__3X3,L4598824); // L35 SYSTEM;
-            exit(( 1));
-          } else /* FALSE */ {
-            lisaac_push(&__CKY,L19532306); // L149 BLOCK;
-            lisaac_push_first(&__PMC,L8530438); // L65 FALSE;
+          __FZY=__RYY->__BC;
+          __YAM=((____4 *)__EZY);
+          __EZY=__E0H;
+          __MBM=(____L)(__FZY -  1);
+          while (((__MBM >=  0) && (__YAM[__MBM] == ((____4 *)__EZY)[__MBM]))) {
+            __MBM=(____L)(__MBM -  1);
           };
+          __KZH=(__MBM <  0);
         };
-        lisaac_push(&__0OF,L7868939); // L60 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L9195016); // L70 NUMERIC;
-        __G1=(____L)(__G1 -  1);
-        lisaac_push(&__0OF,L8000011); // L61 SIGNED_INTEGER;
-        lisaac_push_first(&__QKF,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__CKY,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__PMC,L9195016); // L70 NUMERIC;
-        __OJC=(____L)(-  1);
-        lisaac_push(&__QKF,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__CKY,L9195016); // L70 NUMERIC;
-        __F1=(____L)(__F1 - __OJC);
-        lisaac_push(&__IKF,L12068370); // L92 BLOCK;
-        goto __OKB;
-      } else /* FALSE */ {
-        lisaac_push(&__1BB,L12192274); // L93 BLOCK;
-        lisaac_push_first(&__40,L8530438); // L65 FALSE;
       };
-    };
-  };
-}
-
-static ____4 __GCJ(____0B *__ICJ,____L __JCJ)
-// ({__0B},{__L}) With result No recursive, No inlinable.
-{
-  ____DB __3LK;
-  ____L __E3N;
-  _____CONTEXT __HCJ,__1LK,__K0L,__GMK,__OCJ,__52N,__WN4,__XN4,__YN4;
-  _____CONTEXT __AO4,__BO4;
-  ____G __0N4,__FO4,__HO4;
-  ____4 *__TCJ;
-  ____4 __WCJ,__KCJ;
-  lisaac_push_first(&__HCJ,L8260621); // L63 ABSTRACT_STRING;
-  lisaac_push_first(&__1LK,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__K0L,L7481858); // L57 OBJECT;
-  __3LK=((____DB )(top_context->back->back));
-  lisaac_push(&__1LK,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__K0L,L10652676); // L81 TRUE;
-  lisaac_push_first(&__GMK,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__OCJ,L8270349); // L63 ABSTRACT_STRING;
-  lisaac_push_first(&__52N,L16923661); // L129 ABSTRACT_STRING;
-  __E3N=__ICJ->__FC;
-  lisaac_push(&__52N,L17187853); // L131 ABSTRACT_STRING;
-  lisaac_push_first(&__WN4,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__XN4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__YN4,L15224840); // L116 NUMERIC;
-  if (( 1 > __JCJ)) {
-    lisaac_push(&__XN4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__YN4,L13509636); // L103 TRUE;
-    __0N4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__XN4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__YN4,L14689286); // L112 FALSE;
-    __0N4=__F__;
-  };
-  if (__0N4) {
-    lisaac_push(&__WN4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__XN4,L10652676); // L81 TRUE;
-    lisaac_push_first(&__YN4,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__AO4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__BO4,L15224840); // L116 NUMERIC;
-    __0N4=(__E3N > __JCJ);
-    lisaac_push(&__AO4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__BO4,L14700552); // L112 NUMERIC;
-    __FO4=(__E3N == __JCJ);
-    if (__0N4) {
-      lisaac_push(&__AO4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__BO4,L10900996); // L83 TRUE;
-      __HO4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__AO4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__BO4,L12342790); // L94 FALSE;
-      __HO4=__FO4;
-    };
-    __0N4=__HO4;
-  } else /* FALSE */ {
-    lisaac_push(&__WN4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__XN4,L12081158); // L92 FALSE;
-    __0N4=__J__;
-  };
-  if (__0N4) {
-    lisaac_push(&__GMK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__OCJ,L13509636); // L103 TRUE;
-    __0N4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__GMK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__OCJ,L14689286); // L112 FALSE;
-    __0N4=__F__;
-  };
-  if (__0N4) {
-    lisaac_push(&__1LK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__K0L,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GMK,L21910546); // L167 BLOCK;
-    lisaac_push(&__GMK,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__OCJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__52N,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__WN4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__XN4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__3LK));
-    lisaac_push(&__OCJ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__OCJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__52N,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__WN4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__XN4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__YN4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__OCJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__52N,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__WN4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__1LK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__K0L,L8530438); // L65 FALSE;
-  };
-  __TCJ=__ICJ->__IUE;
-  lisaac_push(&__HCJ,L8663565); // L66 ABSTRACT_STRING;
-  lisaac_push_first(&__1LK,L9195016); // L70 NUMERIC;
-  __E3N=(____L)(__JCJ -  1);
-  if (__TCJ==NULL) {
-    lisaac_push(&__HCJ,L8782861); // L67 ABSTRACT_STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__HCJ,L8782861); // L67 ABSTRACT_STRING;
-    __WCJ=__LVD(((____4 *)__TCJ),__E3N);
-  };
-  __KCJ=__WCJ;
-  return(__KCJ);
-}
-
-static ____4 __04D(____V *__24D,____L __34D)
-// ({__V},{__L}) With result No recursive, No inlinable.
-{
-  ____DB __3GE;
-  ____L __FOE;
-  _____CONTEXT __14D,__1GE,__YJE,__GHE,__C5D,__AOE,__MO4,__NO4,__OO4;
-  _____CONTEXT __WO4,__XO4;
-  ____G __QO4,__1O4,__3O4;
-  ____4 *__H5D;
-  ____4 __K5D,__44D;
-  lisaac_push_first(&__14D,L8260621); // L63 ABSTRACT_STRING;
-  lisaac_push_first(&__1GE,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__YJE,L7481858); // L57 OBJECT;
-  __3GE=((____DB )(top_context->back->back));
-  lisaac_push(&__1GE,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__YJE,L10652676); // L81 TRUE;
-  lisaac_push_first(&__GHE,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__C5D,L8270349); // L63 ABSTRACT_STRING;
-  lisaac_push_first(&__AOE,L16923661); // L129 ABSTRACT_STRING;
-  __FOE=__24D->__YB;
-  lisaac_push(&__AOE,L17187853); // L131 ABSTRACT_STRING;
-  lisaac_push_first(&__MO4,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__NO4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__OO4,L15224840); // L116 NUMERIC;
-  if (( 1 > __34D)) {
-    lisaac_push(&__NO4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__OO4,L13509636); // L103 TRUE;
-    __QO4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__NO4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__OO4,L14689286); // L112 FALSE;
-    __QO4=__F__;
-  };
-  if (__QO4) {
-    lisaac_push(&__MO4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__NO4,L10652676); // L81 TRUE;
-    lisaac_push_first(&__OO4,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__WO4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__XO4,L15224840); // L116 NUMERIC;
-    __QO4=(__FOE > __34D);
-    lisaac_push(&__WO4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__XO4,L14700552); // L112 NUMERIC;
-    __1O4=(__FOE == __34D);
-    if (__QO4) {
-      lisaac_push(&__WO4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__XO4,L10900996); // L83 TRUE;
-      __3O4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__WO4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__XO4,L12342790); // L94 FALSE;
-      __3O4=__1O4;
-    };
-    __QO4=__3O4;
-  } else /* FALSE */ {
-    lisaac_push(&__MO4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__NO4,L12081158); // L92 FALSE;
-    __QO4=__J__;
-  };
-  if (__QO4) {
-    lisaac_push(&__GHE,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__C5D,L13509636); // L103 TRUE;
-    __QO4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__GHE,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__C5D,L14689286); // L112 FALSE;
-    __QO4=__F__;
-  };
-  if (__QO4) {
-    lisaac_push(&__1GE,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YJE,L8792068); // L67 TRUE;
-    lisaac_push_first(&__GHE,L21910546); // L167 BLOCK;
-    lisaac_push(&__GHE,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__C5D,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__AOE,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__MO4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__NO4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__3GE));
-    lisaac_push(&__C5D,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__C5D,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__AOE,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__MO4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__NO4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__OO4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__C5D,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__AOE,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__MO4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__1GE,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YJE,L8530438); // L65 FALSE;
-  };
-  __H5D=__24D->__ZB;
-  lisaac_push(&__14D,L8663565); // L66 ABSTRACT_STRING;
-  lisaac_push_first(&__1GE,L9195016); // L70 NUMERIC;
-  __FOE=(____L)(__34D -  1);
-  if (__H5D==NULL) {
-    lisaac_push(&__14D,L8782861); // L67 ABSTRACT_STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__14D,L8782861); // L67 ABSTRACT_STRING;
-    __K5D=__LVD(((____4 *)__H5D),__FOE);
-  };
-  __44D=__K5D;
-  return(__44D);
-}
-
-static ____4* __ONH(____4 *__QNH,____L __RNH,____L __SNH)
-// ({__HB},{__L},{__L}) With result No recursive, No inlinable.
-{
-  ____DB __ATH,__AXH,__IBI,__EYH,__IYH,__DZQ,__5XP,__HH3,__JH3,__I03;
-  ____DB __Y03,__A13,__C13,__54O,__K23,__023,__C33,__E33;
-  ____CRE __0OH,__2OH,__WWH,__NXH,__FI1,__XI1,__Y0O,__M1O,__QP4,__RM1;
-  ____CRE __CN1,__JN1,__FN1,__W03,__IZ3,__MZ3,__OZ3,__D1P,__E1P,__BO1;
-  ____CRE __WN1,__HO1,__Y23,__K13,__O13,__Q13;
-  ____L __LXH,__W0O,__C1O,__PI3,__L03,__N03,__R03,__LJ3,__OJ3,__SJ3;
-  ____L __N23,__P23,__T23;
-  ____HSE *__XYH,*__U2O,*__G4O,*__Z5O,*__2BS,*__PB4,*__QB4;
-  _____CONTEXT __PNH,__4SH,__Q4H,__JTH,__XNH,__OHN,__XVN,__WHN,__ZLY;
-  _____CONTEXT __5MY,__BEV,__GNU,__RNY,__PQ4,__QQ4,__303,__503,__R23;
-  _____CONTEXT __S23,__523,__B33;
-  ____G __MTH,__CG3,__EG3,__VVP,__UQ4,__WQ4,__CJ3,__EJ3,__GJ3;
-  ____DB *__BK1;
-  ____4 *__4OH,*__TNH;
-  lisaac_push_first(&__PNH,L13110293); // L100 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__Q4H,L7481858); // L57 OBJECT;
-  __ATH=((____DB )(top_context->back->back));
-  lisaac_push(&__4SH,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__Q4H,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JTH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__XNH,L13111317); // L100 NATIVE_ARRAY;
-  if (((void *)__QNH != (void *)NULL)) {
-    lisaac_push(&__JTH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XNH,L13509636); // L103 TRUE;
-    __MTH=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__JTH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XNH,L14689286); // L112 FALSE;
-    __MTH=__F__;
-  };
-  if (__MTH) {
-    lisaac_push(&__4SH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q4H,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JTH,L21910546); // L167 BLOCK;
-    lisaac_push(&__JTH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__XNH,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__OHN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WHN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ATH));
-    lisaac_push(&__XNH,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__XNH,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__OHN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__XVN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__WHN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZLY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XNH,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__OHN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__XVN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__4SH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q4H,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PNH,L13241365); // L101 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__Q4H,L7481858); // L57 OBJECT;
-  __ATH=((____DB )(top_context->back->back));
-  lisaac_push(&__4SH,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__Q4H,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JTH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__XNH,L13249045); // L101 NATIVE_ARRAY;
-  lisaac_push_first(&__OHN,L15224840); // L116 NUMERIC;
-  if ((__RNH >  0)) {
-    lisaac_push(&__JTH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XNH,L13509636); // L103 TRUE;
-    __MTH=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__JTH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XNH,L14689286); // L112 FALSE;
-    __MTH=__F__;
-  };
-  if (__MTH) {
-    lisaac_push(&__4SH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q4H,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JTH,L21910546); // L167 BLOCK;
-    lisaac_push(&__JTH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__XNH,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__OHN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WHN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ATH));
-    lisaac_push(&__XNH,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__XNH,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__OHN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__XVN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__WHN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZLY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XNH,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__OHN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__XVN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__4SH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q4H,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PNH,L13372437); // L102 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__Q4H,L7481858); // L57 OBJECT;
-  __ATH=((____DB )(top_context->back->back));
-  lisaac_push(&__4SH,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__Q4H,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JTH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__XNH,L13380117); // L102 NATIVE_ARRAY;
-  lisaac_push_first(&__OHN,L15498248); // L118 NUMERIC;
-  lisaac_push_first(&__XVN,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__WHN,L15224840); // L116 NUMERIC;
-  __MTH=(__RNH > __SNH);
-  lisaac_push(&__XVN,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__WHN,L14700552); // L112 NUMERIC;
-  __CG3=(__RNH == __SNH);
-  if (__MTH) {
-    lisaac_push(&__XVN,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__WHN,L10900996); // L83 TRUE;
-    __EG3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__XVN,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__WHN,L12342790); // L94 FALSE;
-    __EG3=__CG3;
-  };
-  if (__EG3) {
-    lisaac_push(&__OHN,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__XVN,L13509636); // L103 TRUE;
-    __EG3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__OHN,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__XVN,L14689286); // L112 FALSE;
-    __EG3=__F__;
-  };
-  if (__EG3) {
-    lisaac_push(&__JTH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XNH,L13509636); // L103 TRUE;
-    __EG3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__JTH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XNH,L14689286); // L112 FALSE;
-    __EG3=__F__;
-  };
-  if (__EG3) {
-    lisaac_push(&__4SH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q4H,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JTH,L21910546); // L167 BLOCK;
-    lisaac_push(&__JTH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__XNH,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__OHN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WHN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ATH));
-    lisaac_push(&__XNH,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__XNH,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__OHN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__XVN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__WHN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZLY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XNH,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__OHN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__XVN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__4SH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q4H,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PNH,L14183957); // L108 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L4069927); // L31 CONVERT;
-  __ATH=((____DB )__QNH);
-  lisaac_push(&__PNH,L14693909); // L112 NATIVE_ARRAY;
-  __0OH=__H0E(__RNH);
-  lisaac_push(&__PNH,L13900309); // L106 NATIVE_ARRAY;
-  __2OH=__H0E(__SNH);
-  lisaac_push(&__PNH,L14710805); // L112 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__Q4H,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__JTH,L4069927); // L31 CONVERT;
-  __WWH=((____CRE ) 0);
-  lisaac_push(&__4SH,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__Q4H,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__JTH,L4069927); // L31 CONVERT;
-  __AXH=((____DB )(NULL));
-  lisaac_push(&__4SH,L79704620); // L608 MEMORY;
-  lisaac_push_first(&__Q4H,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__JTH,L7481858); // L57 OBJECT;
-  __IBI=((____DB )(top_context->back->back));
-  lisaac_push(&__Q4H,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__JTH,L10652676); // L81 TRUE;
-  lisaac_push_first(&__XNH,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__OHN,L79699500); // L608 MEMORY;
-  lisaac_push_first(&__XVN,L15498248); // L118 NUMERIC;
-  lisaac_push_first(&__WHN,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__ZLY,L15224840); // L116 NUMERIC;
-  __MTH=(__WWH > __2OH);
-  lisaac_push(&__WHN,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__ZLY,L14700552); // L112 NUMERIC;
-  __CG3=(__WWH == __2OH);
-  if (__MTH) {
-    lisaac_push(&__WHN,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__ZLY,L10900996); // L83 TRUE;
-    __EG3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__WHN,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__ZLY,L12342790); // L94 FALSE;
-    __EG3=__CG3;
-  };
-  if (__EG3) {
-    lisaac_push(&__XVN,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__WHN,L13509636); // L103 TRUE;
-    __EG3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__XVN,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__WHN,L14689286); // L112 FALSE;
-    __EG3=__F__;
-  };
-  if (__EG3) {
-    lisaac_push(&__XNH,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__OHN,L13509636); // L103 TRUE;
-    __EG3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__XNH,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__OHN,L14689286); // L112 FALSE;
-    __EG3=__F__;
-  };
-  if (__EG3) {
-    lisaac_push(&__Q4H,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__JTH,L8792068); // L67 TRUE;
-    lisaac_push_first(&__XNH,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__OHN,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__XVN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__WHN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ZLY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__IBI));
-    lisaac_push(&__OHN,L9574914); // L73 OBJECT;
-    __DX((&__string_134));
-    lisaac_push(&__OHN,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__XVN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__WHN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__ZLY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__5MY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__OHN,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__XVN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__WHN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__Q4H,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__JTH,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__4SH,L79982636); // L610 MEMORY;
-  lisaac_push_first(&__Q4H,L5774867); // L44 POINTER;
-  __LXH=((____L )(sizeof(void *)));
-  lisaac_push(&__4SH,L79982636); // L610 MEMORY;
-  __WWH=__H0E(__LXH);
-  lisaac_push(&__4SH,L79983148); // L610 MEMORY;
-  __NXH=__1FJ(__0OH,__WWH);
-  __WWH=__NXH;
-  lisaac_push(&__4SH,L80111148); // L611 MEMORY;
-  __0OH=__H0E( 4);
-  lisaac_push(&__4SH,L80098860); // L611 MEMORY;
-  lisaac_push_first(&__Q4H,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__JTH,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__XNH,L5383176); // L41 NUMERIC;
-  __WWH=__H0E( 0);
-  lisaac_push(&__JTH,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__XNH,L9195016); // L70 NUMERIC;
-  __FI1=(____CRE)(__WWH - __0OH);
-  lisaac_push(&__Q4H,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__JTH,L9195016); // L70 NUMERIC;
-  __0OH=(____CRE)(__NXH - __FI1);
-  lisaac_push(&__4SH,L80244780); // L612 MEMORY;
-  lisaac_push_first(&__Q4H,L5774867); // L44 POINTER;
-  __LXH=((____L )(sizeof(void *)));
-  lisaac_push(&__4SH,L80244780); // L612 MEMORY;
-  __WWH=__H0E(__LXH);
-  lisaac_push(&__4SH,L80245292); // L612 MEMORY;
-  __FI1=__1FJ(__2OH,__WWH);
-  lisaac_push(&__4SH,L80362540); // L613 MEMORY;
-  lisaac_push_first(&__Q4H,L46932012); // L358 MEMORY;
-  __2OH=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__4SH,L80355884); // L613 MEMORY;
-  lisaac_push_first(&__Q4H,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__JTH,L15224840); // L116 NUMERIC;
-  if ((__0OH > __2OH)) {
-    lisaac_push(&__Q4H,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__JTH,L13509636); // L103 TRUE;
-    __EG3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__Q4H,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__JTH,L14689286); // L112 FALSE;
-    __EG3=__F__;
-  };
-  if (__EG3) {
-    lisaac_push(&__4SH,L81267244); // L620 MEMORY;
-    lisaac_push_first(&__Q4H,L6825988); // L52 TRUE;
-    lisaac_push_first(&__JTH,L80497708); // L614 MEMORY;
-    __EYH=__Y1H(__FI1);
-    __AXH=__EYH;
-    lisaac_push(&__JTH,L80627756); // L615 MEMORY;
-    __ZYO(__ATH,__EYH,__NXH);
-    lisaac_push(&__JTH,L80760364); // L616 MEMORY;
-    lisaac_push_first(&__XNH,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__OHN,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 4);
-    lisaac_push(&__OHN,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__XVN,L4069927); // L31 CONVERT;
-    __EYH=((____DB )__XI1);
-    lisaac_push(&__JTH,L80748076); // L616 MEMORY;
-    lisaac_push_first(&__XNH,L9195016); // L70 NUMERIC;
-    __IYH=(void *)((unsigned long)__ATH - (unsigned long)__EYH);
-    lisaac_push(&__JTH,L80768556); // L616 MEMORY;
-    lisaac_push_first(&__XNH,L3951145); // L30 UINTEGER_CPU;
-    lisaac_push_first(&__OHN,L68588040); // L523 NUMERIC;
-    lisaac_push_first(&__XVN,L4069927); // L31 CONVERT;
-    lisaac_push(&__XNH,L75113004); // L573 MEMORY;
-    lisaac_push_first(&__OHN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__XVN,L7481858); // L57 OBJECT;
-    __EYH=((____DB )(top_context->back->back));
-    lisaac_push(&__OHN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__XVN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__WHN,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__ZLY,L75106860); // L573 MEMORY;
-    if ((__IYH != (void *)NULL)) {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L14689286); // L112 FALSE;
-      __VVP=__F__;
-    };
-    if (__VVP) {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__WHN,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__ZLY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__5MY,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__BEV,L8792068); // L67 TRUE;
-      lisaac_push_first(&__GNU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__EYH));
-      lisaac_push(&__ZLY,L9574914); // L73 OBJECT;
-      __DX((&__string_135));
-      lisaac_push(&__ZLY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__5MY,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__BEV,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__GNU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__RNY,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__ZLY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__5MY,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__BEV,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__XNH,L75393068); // L575 MEMORY;
-    lisaac_push_first(&__OHN,L5774867); // L44 POINTER;
-    __W0O=((____L )(sizeof(void *)));
-    lisaac_push(&__XNH,L75393068); // L575 MEMORY;
-    __XI1=__H0E(__W0O);
-    lisaac_push(&__XNH,L75393580); // L575 MEMORY;
-    __Y0O=__1FJ(__0OH,__XI1);
-    lisaac_push(&__XNH,L75654188); // L577 MEMORY;
-    lisaac_push_first(&__OHN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__XVN,L7481858); // L57 OBJECT;
-    __EYH=((____DB )(top_context->back->back));
-    lisaac_push(&__OHN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__XVN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__WHN,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__ZLY,L75648044); // L577 MEMORY;
-    lisaac_push_first(&__5MY,L5774867); // L44 POINTER;
-    __W0O=((____L )(sizeof(void *)));
-    lisaac_push(&__ZLY,L75648556); // L577 MEMORY;
-    lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-    __C1O=(____L)(__W0O -  1);
-    lisaac_push(&__ZLY,L75648556); // L577 MEMORY;
-    __XI1=__H0E(__C1O);
-    lisaac_push(&__ZLY,L75636780); // L577 MEMORY;
-    lisaac_push_first(&__5MY,L22171143); // L169 INTEGER;
-    if (((____CRE)(__Y0O & __XI1) ==  0)) {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L14689286); // L112 FALSE;
-      __VVP=__F__;
-    };
-    if (__VVP) {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__WHN,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__ZLY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__5MY,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__BEV,L8792068); // L67 TRUE;
-      lisaac_push_first(&__GNU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__EYH));
-      lisaac_push(&__ZLY,L9574914); // L73 OBJECT;
-      __DX((&__string_133));
-      lisaac_push(&__ZLY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__5MY,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__BEV,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__GNU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__RNY,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__ZLY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__5MY,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__BEV,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__XNH,L75920940); // L579 MEMORY;
-    lisaac_push_first(&__OHN,L5774867); // L44 POINTER;
-    __W0O=((____L )(sizeof(void *)));
-    lisaac_push(&__XNH,L75920940); // L579 MEMORY;
-    __XI1=__H0E(__W0O);
-    lisaac_push(&__XNH,L75910700); // L579 MEMORY;
-    lisaac_push_first(&__OHN,L9719304); // L74 NUMERIC;
-    __M1O=(____CRE)(__Y0O / __XI1);
-    lisaac_push(&__XNH,L75921452); // L579 MEMORY;
-    lisaac_push_first(&__OHN,L47988780); // L366 MEMORY;
-    lisaac_push(&__OHN,L48265260); // L368 MEMORY;
-    lisaac_push_first(&__XVN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__WHN,L7481858); // L57 OBJECT;
-    __EYH=((____DB )(top_context->back->back));
-    lisaac_push(&__XVN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__WHN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__ZLY,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__5MY,L48252972); // L368 MEMORY;
-    lisaac_push_first(&__BEV,L46932012); // L358 MEMORY;
-    __XI1=((____CRE )(MINIMUM_SIZE));
-    lisaac_push(&__5MY,L48263212); // L368 MEMORY;
-    lisaac_push_first(&__BEV,L5774867); // L44 POINTER;
-    __W0O=((____L )(sizeof(void *)));
-    lisaac_push(&__5MY,L48263212); // L368 MEMORY;
-    __Y0O=__H0E(__W0O);
-    lisaac_push(&__5MY,L48253484); // L368 MEMORY;
-    lisaac_push_first(&__BEV,L9719304); // L74 NUMERIC;
-    __QP4=(____CRE)(__XI1 / __Y0O);
-    lisaac_push(&__5MY,L48244268); // L368 MEMORY;
-    __XI1=__H0E( 1);
-    lisaac_push(&__5MY,L48263724); // L368 MEMORY;
-    lisaac_push_first(&__BEV,L6296072); // L48 NUMERIC;
-    lisaac_push_first(&__GNU,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__RNY,L15224840); // L116 NUMERIC;
-    if ((__XI1 > __M1O)) {
-      lisaac_push(&__GNU,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__RNY,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__GNU,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__RNY,L14689286); // L112 FALSE;
-      __VVP=__F__;
-    };
-    if (__VVP) {
-      lisaac_push(&__BEV,L6300680); // L48 NUMERIC;
-      lisaac_push_first(&__GNU,L10652676); // L81 TRUE;
-      lisaac_push_first(&__RNY,L6304264); // L48 NUMERIC;
-      lisaac_push_first(&__PQ4,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__QQ4,L15224840); // L116 NUMERIC;
-      __VVP=(__QP4 > __M1O);
-      lisaac_push(&__PQ4,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__QQ4,L14700552); // L112 NUMERIC;
-      __UQ4=(__QP4 == __M1O);
-      if (__VVP) {
-        lisaac_push(&__PQ4,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__QQ4,L10900996); // L83 TRUE;
-        __WQ4=__F__;
+      if (__KZH) {
+        __FSC((&__string_117));
       } else /* FALSE */ {
-        lisaac_push(&__PQ4,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__QQ4,L12342790); // L94 FALSE;
-        __WQ4=__UQ4;
+        __FSC((&__string_118));
+        __FSC(((____WB *)__VYY));
+        __FSC((&__string_119));
       };
-      __VVP=__WQ4;
-    } else /* FALSE */ {
-      lisaac_push(&__BEV,L6300680); // L48 NUMERIC;
-      lisaac_push_first(&__GNU,L12081158); // L92 FALSE;
-      __VVP=__J__;
-    };
-    if (__VVP) {
-      lisaac_push(&__ZLY,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__5MY,L13509636); // L103 TRUE;
-      __VVP=__J__;
     } else /* FALSE */ {
-      lisaac_push(&__ZLY,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__5MY,L14689286); // L112 FALSE;
-      __VVP=__F__;
+      __FSC((&__string_120));
+      __RGB=(____L)(((____WB *)__3XY)->__BC +  1);
     };
-    if (__VVP) {
-      lisaac_push(&__XVN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__WHN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__ZLY,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__5MY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__BEV,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__GNU,L8792068); // L67 TRUE;
-      lisaac_push_first(&__RNY,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__EYH));
-      lisaac_push(&__5MY,L9574914); // L73 OBJECT;
-      __DX((&__string_136));
-      lisaac_push(&__5MY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__BEV,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__GNU,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__RNY,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__PQ4,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__5MY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__BEV,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__GNU,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__XVN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__WHN,L8530438); // L65 FALSE;
+    if (((struct ___OBJ *)__PGB)->__id==____V__) {
+      __FSC(((____V *)__PGB));
+    } else /* STRING */ {
+      __FSC(((____WB *)__PGB));
     };
-    __EYH=((____DB )(&(table_size[(__M1O)-1])));
-    lisaac_push(&__XNH,L76038188); // L580 MEMORY;
-    lisaac_push_first(&__OHN,L56517164); // L431 MEMORY;
-    lisaac_push(&__OHN,L56762924); // L433 MEMORY;
-    lisaac_push_first(&__XVN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__WHN,L7481858); // L57 OBJECT;
-    __DZQ=((____DB )(top_context->back->back));
-    lisaac_push(&__XVN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__WHN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__ZLY,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__5MY,L56756780); // L433 MEMORY;
-    if ((__IYH != (void *)NULL)) {
-      lisaac_push(&__ZLY,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__5MY,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__ZLY,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__5MY,L14689286); // L112 FALSE;
-      __VVP=__F__;
+    __ZXY=((____WB *)__3XY);
+    __VXY=__ZXY->__BC;
+    if (((struct ___OBJ *)__PGB)->__id==____V__) {
+      __NYY=((____V *)__PGB)->__UB;
+    } else /* STRING */ {
+      __NYY=((____WB *)__PGB)->__BC;
     };
-    if (__VVP) {
-      lisaac_push(&__XVN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__WHN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__ZLY,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__5MY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__BEV,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__GNU,L8792068); // L67 TRUE;
-      lisaac_push_first(&__RNY,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__DZQ));
-      lisaac_push(&__5MY,L9574914); // L73 OBJECT;
-      __DX((&__string_135));
-      lisaac_push(&__5MY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__BEV,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__GNU,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__RNY,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__PQ4,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__5MY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__BEV,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__GNU,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__XVN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__WHN,L8530438); // L65 FALSE;
+    __JRI(__ZXY,(____L)(__VXY + __NYY));
+    if ((__RGB <= __VXY)) {
+      __XAL(((____4 *)__ZXY->__ZAE),(____L)(__RGB -  1),(____L)(__VXY -  1),__NYY);
     };
-    lisaac_push(&__OHN,L57424940); // L438 MEMORY;
-    lisaac_push_first(&__XVN,L49704492); // L379 MEMORY;
-    lisaac_push_first(&__WHN,L4069927); // L31 CONVERT;
-    __BK1=((____DB *)__EYH);
-    lisaac_push(&__XVN,L49939500); // L381 MEMORY;
-    __EYH=__UQG(__BK1, 0);
-    lisaac_push(&__OHN,L57550892); // L439 MEMORY;
-    lisaac_push_first(&__XVN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__WHN,L7481858); // L57 OBJECT;
-    __DZQ=((____DB )(top_context->back->back));
-    lisaac_push(&__XVN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__WHN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__ZLY,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__5MY,L57543212); // L439 MEMORY;
-    if ((__EYH != (void *)NULL)) {
-      lisaac_push(&__ZLY,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__5MY,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__ZLY,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__5MY,L14689286); // L112 FALSE;
-      __VVP=__F__;
+    __UXY=__ZXY->__ZAE;
+    if (((struct ___OBJ *)__PGB)->__id==____V__) {
+      __MYY=((____V *)__PGB)->__VB;
+    } else /* STRING */ {
+      __MYY=((____WB *)__PGB)->__ZAE;
     };
-    if (__VVP) {
-      lisaac_push(&__XVN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__WHN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__ZLY,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__5MY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__BEV,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__GNU,L8792068); // L67 TRUE;
-      lisaac_push_first(&__RNY,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__DZQ));
-      lisaac_push(&__5MY,L9574914); // L73 OBJECT;
-      __DX((&__string_137));
-      lisaac_push(&__5MY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__BEV,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__GNU,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__RNY,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__PQ4,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__5MY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__BEV,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__GNU,L4598824); // L35 SYSTEM;
+    __LOI(((____4 *)__UXY),__MYY,(____L)(__RGB -  1),__NYY);
+  } else /* FALSE */ {
+    __FSC((&__string_121));
+    if (((struct ___OBJ *)__PGB)->__id==____V__) {
+      __FSC(((____V *)__PGB));
+    } else /* STRING */ {
+      __FSC(((____WB *)__PGB));
+    };
+    if (((struct ___OBJ *)__PGB)->__id==____V__) {
+      __JAC=((____V *)__PGB);
+      __NYY=__JAC->__UB;
+      __VYY=NULL;
+      __EYY=((____DB )(NULL));
+      __QAC= 0;
+      __BYY=((____33D )sizeof(____WB));
+      if ((__BYY ==  0)) {
+        __VYY=__WB__;
+      } else /* FALSE */ {
+        __QAC=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __BYY));
+        if ((__QAC == (____L)(-  1))) {
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __ZYY=(____33D)(__0YY / ((____33D )((____L )(sizeof(void *)))));
+          __2YY=__LBF(__0YY,((____DB )(&(table_size[(__ZYY)-1]))),((____OY )__0YY));
+          __EYY=__2YY;
+        } else /* FALSE */ {
+          __4YY=((____OY )__QAC);
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __2YY=__LBF(__0YY,((____DB )(&(table_type[(__4YY)]))),(____OY)(__4YY |  1));
+          __EYY=__2YY;
+        };
+        __VYY=((____WB *)__EYY);
+        *(__VYY) = *(__WB__);
+      };
+      __RYY=((____WB *)__VYY);
+      if ((__NYY >  0)) {
+        if ((__RYY->__CBE < __NYY)) {
+          __EZY=__3NG(__NYY);
+          __RYY->__ZAE=__EZY;
+          __RYY->__CBE=__NYY;
+        };
+      };
+      __RYY->__BC= 0;
+      __WGH(((____WB *)__VYY),__JAC);
+      __RYY=__VYY;
+    } else /* STRING */ {
+      __VYY=((____WB *)__PGB);
+      __NYY=__VYY->__BC;
+      __3OV=NULL;
+      __EYY=((____DB )(NULL));
+      __QAC= 0;
+      __BYY=((____33D )sizeof(____WB));
+      if ((__BYY ==  0)) {
+        __3OV=__WB__;
+      } else /* FALSE */ {
+        __QAC=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __BYY));
+        if ((__QAC == (____L)(-  1))) {
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __ZYY=(____33D)(__0YY / ((____33D )((____L )(sizeof(void *)))));
+          __2YY=__LBF(__0YY,((____DB )(&(table_size[(__ZYY)-1]))),((____OY )__0YY));
+          __EYY=__2YY;
+        } else /* FALSE */ {
+          __4YY=((____OY )__QAC);
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __2YY=__LBF(__0YY,((____DB )(&(table_type[(__4YY)]))),(____OY)(__4YY |  1));
+          __EYY=__2YY;
+        };
+        __3OV=((____WB *)__EYY);
+        *(__3OV) = *(__WB__);
+      };
+      __DZY=((____WB *)__3OV);
+      if ((__NYY >  0)) {
+        if ((__DZY->__CBE < __NYY)) {
+          __EZY=__3NG(__NYY);
+          __DZY->__ZAE=__EZY;
+          __DZY->__CBE=__NYY;
+        };
+      };
+      __DZY->__BC= 0;
+      __WGH(((____WB *)__3OV),__VYY);
+      __RYY=__3OV;
+    };
+    __TGB=__RYY;
+    if (((struct ___OBJ *)__NGB)->__id==____V__) {
+      __JAC=((____V *)__NGB);
+      __NYY=__JAC->__UB;
+      __VYY=NULL;
+      __EYY=((____DB )(NULL));
+      __QAC= 0;
+      __BYY=((____33D )sizeof(____WB));
+      if ((__BYY ==  0)) {
+        __VYY=__WB__;
+      } else /* FALSE */ {
+        __QAC=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __BYY));
+        if ((__QAC == (____L)(-  1))) {
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __ZYY=(____33D)(__0YY / ((____33D )((____L )(sizeof(void *)))));
+          __2YY=__LBF(__0YY,((____DB )(&(table_size[(__ZYY)-1]))),((____OY )__0YY));
+          __EYY=__2YY;
+        } else /* FALSE */ {
+          __4YY=((____OY )__QAC);
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __2YY=__LBF(__0YY,((____DB )(&(table_type[(__4YY)]))),(____OY)(__4YY |  1));
+          __EYY=__2YY;
+        };
+        __VYY=((____WB *)__EYY);
+        *(__VYY) = *(__WB__);
+      };
+      __RYY=((____WB *)__VYY);
+      if ((__NYY >  0)) {
+        if ((__RYY->__CBE < __NYY)) {
+          __EZY=__3NG(__NYY);
+          __RYY->__ZAE=__EZY;
+          __RYY->__CBE=__NYY;
+        };
+      };
+      __RYY->__BC= 0;
+      __WGH(((____WB *)__VYY),__JAC);
+      __RYY=__VYY;
+    } else /* STRING */ {
+      __VYY=((____WB *)__NGB);
+      __NYY=__VYY->__BC;
+      __3OV=NULL;
+      __EYY=((____DB )(NULL));
+      __QAC= 0;
+      __BYY=((____33D )sizeof(____WB));
+      if ((__BYY ==  0)) {
+        __3OV=__WB__;
+      } else /* FALSE */ {
+        __QAC=-1;
+        __V4D=(____33D)(__V4D - (____33D)(((____33D ) 0) - __BYY));
+        if ((__QAC == (____L)(-  1))) {
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __ZYY=(____33D)(__0YY / ((____33D )((____L )(sizeof(void *)))));
+          __2YY=__LBF(__0YY,((____DB )(&(table_size[(__ZYY)-1]))),((____OY )__0YY));
+          __EYY=__2YY;
+        } else /* FALSE */ {
+          __4YY=((____OY )__QAC);
+          __ZYY=(____33D)(((____33D )((____L )(sizeof(void *)))) - ((____33D ) 1));
+          __0YY=(____33D)((____33D)(__BYY - (____33D)(((____33D ) 0) - __ZYY)) & (____33D)((____33D)(((____33D ) 0) - __ZYY) - ((____33D ) 1)));
+          __2YY=__LBF(__0YY,((____DB )(&(table_type[(__4YY)]))),(____OY)(__4YY |  1));
+          __EYY=__2YY;
+        };
+        __3OV=((____WB *)__EYY);
+        *(__3OV) = *(__WB__);
+      };
+      __DZY=((____WB *)__3OV);
+      if ((__NYY >  0)) {
+        if ((__DZY->__CBE < __NYY)) {
+          __EZY=__3NG(__NYY);
+          __DZY->__ZAE=__EZY;
+          __DZY->__CBE=__NYY;
+        };
+      };
+      __DZY->__BC= 0;
+      __WGH(((____WB *)__3OV),__VYY);
+      __RYY=__3OV;
+    };
+    __3XY=((____WB *)__RYY);
+    if ((__3XY->__CBE > __3XY->__BC)) {
+      ((____4 *)__3XY->__ZAE)[__3XY->__BC]='\0';
+    } else /* FALSE */ {
+      if ((__3XY->__CBE <= __3XY->__BC)) {
+        if ((__3XY->__CBE ==  0)) {
+          __3XY->__CBE= 32;
+          __EZY=__3NG( 32);
+          __3XY->__ZAE=__EZY;
+        } else /* FALSE */ {
+          __FZY=(____L)(__3XY->__CBE <<  1);
+          __EZY=__SOG(((____4 *)__3XY->__ZAE),__3XY->__CBE,__FZY);
+          __3XY->__ZAE=__EZY;
+          __3XY->__CBE=__FZY;
+        };
+      };
+      ((____4 *)__3XY->__ZAE)[__3XY->__BC]='\0';
+      __3XY->__BC=(____L)(__3XY->__BC +  1);
+      __3XY->__BC=(____L)(__3XY->__BC -  1);
+    };
+    __4XY=((____DB )(fopen((char*)(__3XY->__ZAE),"w+b")));
+    __KZH=(__4XY != (void *)NULL);
+    if (__KZH) {
+      fclose((FILE*)((__4XY)));
+    };
+    if ((! __KZH)) {
+      __FSC((&__string_122));
+      __FSC((&__string_123));
       exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__XVN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__WHN,L8530438); // L65 FALSE;
     };
-    lisaac_push(&__OHN,L57684524); // L440 MEMORY;
-    lisaac_push_first(&__XVN,L49704492); // L379 MEMORY;
-    lisaac_push_first(&__WHN,L4069927); // L31 CONVERT;
-    __BK1=((____DB *)__EYH);
-    lisaac_push(&__XVN,L49939500); // L381 MEMORY;
-    __DZQ=__UQG(__BK1, 0);
-    lisaac_push(&__OHN,L57814572); // L441 MEMORY;
-    lisaac_push_first(&__XVN,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__WHN,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 3);
-    lisaac_push(&__WHN,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__ZLY,L4069927); // L31 CONVERT;
-    __5XP=((____DB )__XI1);
-    lisaac_push(&__OHN,L57812524); // L441 MEMORY;
-    lisaac_push_first(&__XVN,L22940167); // L175 INTEGER;
-    lisaac_push_first(&__WHN,L25311239); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__5MY,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__BEV,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__GNU,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 0);
-    lisaac_push(&__GNU,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__RNY,L4069927); // L31 CONVERT;
-    __HH3=((____DB )__XI1);
-    lisaac_push(&__ZLY,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-    __JH3=(void *)((unsigned long)__HH3 - (unsigned long)__DZQ);
-    lisaac_push(&__WHN,L25319431); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L5121032); // L39 NUMERIC;
-    lisaac_push_first(&__5MY,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__BEV,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 1);
-    lisaac_push(&__BEV,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-    __DZQ=((____DB )__XI1);
-    lisaac_push(&__WHN,L25314823); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L9195016); // L70 NUMERIC;
-    __HH3=(void *)((unsigned long)__JH3 - (unsigned long)__DZQ);
-    lisaac_push(&__XVN,L22944263); // L175 INTEGER;
-    lisaac_push_first(&__WHN,L25311239); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__5MY,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__BEV,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__GNU,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 0);
-    lisaac_push(&__GNU,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__RNY,L4069927); // L31 CONVERT;
-    __DZQ=((____DB )__XI1);
-    lisaac_push(&__ZLY,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-    __JH3=(void *)((unsigned long)__DZQ - (unsigned long)__5XP);
-    lisaac_push(&__WHN,L25319431); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L5121032); // L39 NUMERIC;
-    lisaac_push_first(&__5MY,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__BEV,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 1);
-    lisaac_push(&__BEV,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-    __DZQ=((____DB )__XI1);
-    lisaac_push(&__WHN,L25314823); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L9195016); // L70 NUMERIC;
-    __5XP=(void *)((unsigned long)__JH3 - (unsigned long)__DZQ);
-    lisaac_push(&__XVN,L22943239); // L175 INTEGER;
-    lisaac_push_first(&__WHN,L22171143); // L169 INTEGER;
-    __DZQ=(void *)((unsigned long)__HH3 & (unsigned long)__5XP);
-    lisaac_push(&__XVN,L22939143); // L175 INTEGER;
-    lisaac_push_first(&__WHN,L25311239); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__5MY,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__BEV,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__GNU,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 0);
-    lisaac_push(&__GNU,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__RNY,L4069927); // L31 CONVERT;
-    __5XP=((____DB )__XI1);
-    lisaac_push(&__ZLY,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-    __HH3=(void *)((unsigned long)__5XP - (unsigned long)__DZQ);
-    lisaac_push(&__WHN,L25319431); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L5121032); // L39 NUMERIC;
-    lisaac_push_first(&__5MY,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__BEV,L78949383); // L602 INTEGER;
-    __XI1=__H0E( 1);
-    lisaac_push(&__BEV,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-    __DZQ=((____DB )__XI1);
-    lisaac_push(&__WHN,L25314823); // L193 INTEGER;
-    lisaac_push_first(&__ZLY,L9195016); // L70 NUMERIC;
-    __5XP=(void *)((unsigned long)__HH3 - (unsigned long)__DZQ);
-    lisaac_push(&__OHN,L57817644); // L441 MEMORY;
-    lisaac_push_first(&__XVN,L50490924); // L385 MEMORY;
-    lisaac_push_first(&__WHN,L4069927); // L31 CONVERT;
-    __BK1=((____DB *)__IYH);
-    lisaac_push(&__XVN,L50603052); // L386 MEMORY;
-    __U3G(__BK1,__5XP, 0);
-    lisaac_push(&__OHN,L57944620); // L442 MEMORY;
-    lisaac_push_first(&__XVN,L50490924); // L385 MEMORY;
-    lisaac_push_first(&__WHN,L4069927); // L31 CONVERT;
-    __BK1=((____DB *)__EYH);
-    lisaac_push(&__XVN,L50603052); // L386 MEMORY;
-    __U3G(__BK1,__IYH, 0);
+  };
+  if ((! __QGB)) {
+    __KZH=__F__;
   } else /* FALSE */ {
-    lisaac_push(&__4SH,L81267244); // L620 MEMORY;
-    lisaac_push_first(&__Q4H,L6826502); // L52 FALSE;
-    lisaac_push_first(&__JTH,L81031724); // L618 MEMORY;
-    lisaac_push_first(&__XNH,L10123820); // L77 MEMORY;
-    lisaac_push_first(&__OHN,L5774867); // L44 POINTER;
-    __W0O=((____L )(sizeof(void *)));
-    lisaac_push(&__XNH,L10137132); // L77 MEMORY;
-    lisaac_push_first(&__OHN,L4988457); // L38 UINTEGER_CPU;
-    __C1O=((____L )(sizeof(unsigned long)));
-    lisaac_push(&__XNH,L10124332); // L77 MEMORY;
-    lisaac_push_first(&__OHN,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__XVN,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__WHN,L9195016); // L70 NUMERIC;
-    __PI3=(____L)(- __C1O);
-    lisaac_push(&__OHN,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__XVN,L9195016); // L70 NUMERIC;
-    __C1O=(____L)(__W0O - __PI3);
-    lisaac_push(&__JTH,L81031724); // L618 MEMORY;
-    lisaac_push_first(&__XNH,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__OHN,L78949383); // L602 INTEGER;
-    __XI1=__H0E(__C1O);
-    lisaac_push(&__OHN,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__XVN,L4069927); // L31 CONVERT;
-    __EYH=((____DB )__XI1);
-    lisaac_push(&__JTH,L81025580); // L618 MEMORY;
-    lisaac_push_first(&__XNH,L9195016); // L70 NUMERIC;
-    __IYH=(void *)((unsigned long)__ATH - (unsigned long)__EYH);
-    lisaac_push(&__JTH,L81032236); // L618 MEMORY;
-    lisaac_push_first(&__XNH,L4069927); // L31 CONVERT;
-    __XYH=((____HSE *)__IYH);
-    lisaac_push(&__JTH,L81161260); // L619 MEMORY;
-    lisaac_push_first(&__XNH,L12726316); // L97 MEMORY;
-    __EYH=__X1F;
-    lisaac_push(&__XNH,L12737068); // L97 MEMORY;
-    lisaac_push_first(&__OHN,L9195016); // L70 NUMERIC;
-    __IYH=(void *)((unsigned long)__ATH - (unsigned long)__EYH);
-    lisaac_push(&__XNH,L12752940); // L97 MEMORY;
-    __XI1=__OYP(__IYH);
-    lisaac_push(&__XNH,L12753964); // L97 MEMORY;
-    lisaac_push_first(&__OHN,L23745543); // L181 INTEGER;
-    __Y0O=(____CRE)(__XI1 >>  26);
-    lisaac_push(&__JTH,L81161772); // L619 MEMORY;
-    lisaac_push_first(&__XNH,L33845292); // L258 MEMORY;
-    __U2O=NULL;
-    lisaac_push(&__XNH,L3951145); // L30 UINTEGER_CPU;
-    lisaac_push_first(&__OHN,L68588040); // L523 NUMERIC;
-    lisaac_push_first(&__XVN,L4069927); // L31 CONVERT;
-    lisaac_push(&__XNH,L34365996); // L262 MEMORY;
-    lisaac_push_first(&__OHN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__XVN,L7481858); // L57 OBJECT;
-    __EYH=((____DB )(top_context->back->back));
-    lisaac_push(&__OHN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__XVN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__WHN,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__ZLY,L34360364); // L262 MEMORY;
-    lisaac_push_first(&__5MY,L5774867); // L44 POINTER;
-    __W0O=((____L )(sizeof(void *)));
-    lisaac_push(&__ZLY,L34360876); // L262 MEMORY;
-    lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-    __C1O=(____L)(__W0O -  1);
-    lisaac_push(&__ZLY,L34360876); // L262 MEMORY;
-    __XI1=__H0E(__C1O);
-    lisaac_push(&__ZLY,L34349100); // L262 MEMORY;
-    lisaac_push_first(&__5MY,L22171143); // L169 INTEGER;
-    if (((____CRE)(__FI1 & __XI1) ==  0)) {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L14689286); // L112 FALSE;
-      __VVP=__F__;
-    };
-    if (__VVP) {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__WHN,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__ZLY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__5MY,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__BEV,L8792068); // L67 TRUE;
-      lisaac_push_first(&__GNU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__EYH));
-      lisaac_push(&__ZLY,L9574914); // L73 OBJECT;
-      __DX((&__string_133));
-      lisaac_push(&__ZLY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__5MY,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__BEV,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__GNU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__RNY,L6962199); // L53 SYSTEM_IO;
+    __GIB=__CMC((&__string_124));
+    __KZH=(__GIB == 'y');
+  };
+  if (__KZH) {
+    if (__QGB) {
       fputc((int)('\n'),stdout);
-      lisaac_push(&__ZLY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__5MY,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__BEV,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__XNH,L34486316); // L263 MEMORY;
-    lisaac_push_first(&__OHN,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__XVN,L7481858); // L57 OBJECT;
-    __EYH=((____DB )(top_context->back->back));
-    lisaac_push(&__OHN,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__XVN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__WHN,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__ZLY,L34481708); // L263 MEMORY;
-    __XI1=__H0E( 0);
-    lisaac_push(&__ZLY,L34484780); // L263 MEMORY;
-    __M1O=__H0E( 63);
-    lisaac_push(&__ZLY,L34484780); // L263 MEMORY;
-    lisaac_push_first(&__5MY,L6296072); // L48 NUMERIC;
-    lisaac_push_first(&__BEV,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__GNU,L15224840); // L116 NUMERIC;
-    if ((__XI1 > __Y0O)) {
-      lisaac_push(&__BEV,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__GNU,L13509636); // L103 TRUE;
-      __VVP=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__BEV,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__GNU,L14689286); // L112 FALSE;
-      __VVP=__F__;
-    };
-    if (__VVP) {
-      lisaac_push(&__5MY,L6300680); // L48 NUMERIC;
-      lisaac_push_first(&__BEV,L10652676); // L81 TRUE;
-      lisaac_push_first(&__GNU,L6304264); // L48 NUMERIC;
-      lisaac_push_first(&__RNY,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__PQ4,L15224840); // L116 NUMERIC;
-      __VVP=(__M1O > __Y0O);
-      lisaac_push(&__RNY,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__PQ4,L14700552); // L112 NUMERIC;
-      __UQ4=(__M1O == __Y0O);
-      if (__VVP) {
-        lisaac_push(&__RNY,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__PQ4,L10900996); // L83 TRUE;
-        __WQ4=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__RNY,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__PQ4,L12342790); // L94 FALSE;
-        __WQ4=__UQ4;
-      };
-      __VVP=__WQ4;
-    } else /* FALSE */ {
-      lisaac_push(&__5MY,L6300680); // L48 NUMERIC;
-      lisaac_push_first(&__BEV,L12081158); // L92 FALSE;
-      __VVP=__J__;
     };
-    if (__VVP) {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L13509636); // L103 TRUE;
-      __VVP=__J__;
+    __WGH(((____WB *)__1B),__NGB);
+    __3XY=((____WB *)__1B);
+    if ((__3XY->__CBE > __3XY->__BC)) {
+      ((____4 *)__3XY->__ZAE)[__3XY->__BC]='\0';
     } else /* FALSE */ {
-      lisaac_push(&__WHN,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__ZLY,L14689286); // L112 FALSE;
-      __VVP=__F__;
-    };
-    if (__VVP) {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-      lisaac_push_first(&__WHN,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__ZLY,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__5MY,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__BEV,L8792068); // L67 TRUE;
-      lisaac_push_first(&__GNU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__EYH));
-      lisaac_push(&__ZLY,L9574914); // L73 OBJECT;
-      __DX((&__string_138));
-      lisaac_push(&__ZLY,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__5MY,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__BEV,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__GNU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__RNY,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__ZLY,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__5MY,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__BEV,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__OHN,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__XVN,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__XNH,L34744364); // L265 MEMORY;
-    lisaac_push_first(&__OHN,L10883116); // L83 MEMORY;
-    __XI1=__XYH->__KSE;
-    lisaac_push(&__OHN,L10916908); // L83 MEMORY;
-    __M1O=__H0E( 3);
-    lisaac_push(&__OHN,L10907692); // L83 MEMORY;
-    lisaac_push_first(&__XVN,L25311239); // L193 INTEGER;
-    lisaac_push_first(&__WHN,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__ZLY,L5383176); // L41 NUMERIC;
-    __QP4=__H0E( 0);
-    lisaac_push(&__WHN,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__ZLY,L9195016); // L70 NUMERIC;
-    __RM1=(____CRE)(__QP4 - __M1O);
-    lisaac_push(&__XVN,L25319431); // L193 INTEGER;
-    lisaac_push_first(&__WHN,L5121032); // L39 NUMERIC;
-    __M1O=__H0E( 1);
-    lisaac_push(&__XVN,L25314823); // L193 INTEGER;
-    lisaac_push_first(&__WHN,L9195016); // L70 NUMERIC;
-    __QP4=(____CRE)(__RM1 - __M1O);
-    lisaac_push(&__OHN,L10906668); // L83 MEMORY;
-    lisaac_push_first(&__XVN,L22171143); // L169 INTEGER;
-    __M1O=(____CRE)(__XI1 & __QP4);
-    lisaac_push(&__XNH,L34872876); // L266 MEMORY;
-    lisaac_push_first(&__OHN,L15224840); // L116 NUMERIC;
-    if ((__FI1 > __M1O)) {
-      lisaac_push(&__XNH,L38013484); // L290 MEMORY;
-      lisaac_push_first(&__OHN,L6825988); // L52 TRUE;
-      lisaac_push_first(&__XVN,L35003948); // L267 MEMORY;
-      lisaac_push_first(&__WHN,L11932716); // L91 MEMORY;
-      __CN1=__XYH->__KSE;
-      lisaac_push(&__WHN,L11959340); // L91 MEMORY;
-      lisaac_push_first(&__ZLY,L11687980); // L89 MEMORY;
-      __JN1=__H0E( 2);
-      lisaac_push(&__WHN,L11955756); // L91 MEMORY;
-      lisaac_push_first(&__ZLY,L22171143); // L169 INTEGER;
-      __FN1=(____CRE)(__CN1 & __JN1);
-      lisaac_push(&__WHN,L11965484); // L91 MEMORY;
-      lisaac_push_first(&__ZLY,L34479112); // L263 NUMERIC;
-      if ((__FN1 !=  0)) {
-        lisaac_push(&__XVN,L35000364); // L267 MEMORY;
-        lisaac_push_first(&__WHN,L13509636); // L103 TRUE;
-        __WQ4=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__XVN,L35000364); // L267 MEMORY;
-        lisaac_push_first(&__WHN,L14689286); // L112 FALSE;
-        __WQ4=__F__;
-      };
-      if (__WQ4) {
-        lisaac_push(&__XVN,L36834860); // L281 MEMORY;
-        lisaac_push_first(&__WHN,L8792068); // L67 TRUE;
-        lisaac_push_first(&__ZLY,L35137068); // L268 MEMORY;
-        lisaac_push_first(&__5MY,L11179564); // L85 MEMORY;
-        lisaac_push_first(&__BEV,L10640428); // L81 MEMORY;
-        lisaac_push_first(&__GNU,L10391596); // L79 MEMORY;
-        lisaac_push_first(&__RNY,L4069927); // L31 CONVERT;
-        __I03=((____DB )__XYH);
-        lisaac_push(&__BEV,L10647084); // L81 MEMORY;
-        lisaac_push_first(&__GNU,L10123820); // L77 MEMORY;
-        lisaac_push_first(&__RNY,L5774867); // L44 POINTER;
-        __L03=((____L )(sizeof(void *)));
-        lisaac_push(&__GNU,L10137132); // L77 MEMORY;
-        lisaac_push_first(&__RNY,L4988457); // L38 UINTEGER_CPU;
-        __N03=((____L )(sizeof(unsigned long)));
-        lisaac_push(&__GNU,L10124332); // L77 MEMORY;
-        lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__PQ4,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-        __R03=(____L)(- __N03);
-        lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __N03=(____L)(__L03 - __R03);
-        lisaac_push(&__BEV,L10647084); // L81 MEMORY;
-        lisaac_push_first(&__GNU,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__RNY,L78949383); // L602 INTEGER;
-        __W03=__H0E(__N03);
-        lisaac_push(&__RNY,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__PQ4,L4069927); // L31 CONVERT;
-        __Y03=((____DB )__W03);
-        lisaac_push(&__BEV,L10640940); // L81 MEMORY;
-        lisaac_push_first(&__GNU,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__RNY,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__QQ4,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__303,L78949383); // L602 INTEGER;
-        __W03=__H0E( 0);
-        lisaac_push(&__303,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__503,L4069927); // L31 CONVERT;
-        __A13=((____DB )__W03);
-        lisaac_push(&__RNY,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __C13=(void *)((unsigned long)__A13 - (unsigned long)__Y03);
-        lisaac_push(&__GNU,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __Y03=(void *)((unsigned long)__I03 - (unsigned long)__C13);
-        lisaac_push(&__5MY,L11182636); // L85 MEMORY;
-        lisaac_push_first(&__BEV,L10883116); // L83 MEMORY;
-        __W03=__XYH->__KSE;
-        lisaac_push(&__BEV,L10916908); // L83 MEMORY;
-        __IZ3=__H0E( 3);
-        lisaac_push(&__BEV,L10907692); // L83 MEMORY;
-        lisaac_push_first(&__GNU,L25311239); // L193 INTEGER;
-        lisaac_push_first(&__RNY,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L5383176); // L41 NUMERIC;
-        __MZ3=__H0E( 0);
-        lisaac_push(&__RNY,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __OZ3=(____CRE)(__MZ3 - __IZ3);
-        lisaac_push(&__GNU,L25319431); // L193 INTEGER;
-        lisaac_push_first(&__RNY,L5121032); // L39 NUMERIC;
-        __IZ3=__H0E( 1);
-        lisaac_push(&__GNU,L25314823); // L193 INTEGER;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __MZ3=(____CRE)(__OZ3 - __IZ3);
-        lisaac_push(&__BEV,L10906668); // L83 MEMORY;
-        lisaac_push_first(&__GNU,L22171143); // L169 INTEGER;
-        __IZ3=(____CRE)(__W03 & __MZ3);
-        lisaac_push(&__5MY,L11182636); // L85 MEMORY;
-        __I03=__XXG(__IZ3);
-        lisaac_push(&__5MY,L11180076); // L85 MEMORY;
-        lisaac_push_first(&__BEV,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__PQ4,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__QQ4,L78949383); // L602 INTEGER;
-        __W03=__H0E( 0);
-        lisaac_push(&__QQ4,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__303,L4069927); // L31 CONVERT;
-        __A13=((____DB )__W03);
-        lisaac_push(&__GNU,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __C13=(void *)((unsigned long)__A13 - (unsigned long)__I03);
-        lisaac_push(&__BEV,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L9195016); // L70 NUMERIC;
-        __I03=(void *)((unsigned long)__Y03 - (unsigned long)__C13);
-        lisaac_push(&__5MY,L11183148); // L85 MEMORY;
-        lisaac_push_first(&__BEV,L4069927); // L31 CONVERT;
-        __G4O=((____HSE *)__I03);
-        lisaac_push(&__ZLY,L35279404); // L269 MEMORY;
-        lisaac_push_first(&__5MY,L10123820); // L77 MEMORY;
-        lisaac_push_first(&__BEV,L5774867); // L44 POINTER;
-        __L03=((____L )(sizeof(void *)));
-        lisaac_push(&__5MY,L10137132); // L77 MEMORY;
-        lisaac_push_first(&__BEV,L4988457); // L38 UINTEGER_CPU;
-        __N03=((____L )(sizeof(unsigned long)));
-        lisaac_push(&__5MY,L10124332); // L77 MEMORY;
-        lisaac_push_first(&__BEV,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __R03=(____L)(- __N03);
-        lisaac_push(&__BEV,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L9195016); // L70 NUMERIC;
-        __N03=(____L)(__L03 - __R03);
-        lisaac_push(&__ZLY,L35267628); // L269 MEMORY;
-        lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-        __W03=(____CRE)(__FI1 - __M1O);
-        lisaac_push(&__ZLY,L35279404); // L269 MEMORY;
-        __IZ3=__H0E(__N03);
-        lisaac_push(&__ZLY,L35273260); // L269 MEMORY;
-        lisaac_push_first(&__5MY,L9195016); // L70 NUMERIC;
-        __MZ3=(____CRE)(__W03 - __IZ3);
-        lisaac_push(&__ZLY,L35394604); // L270 MEMORY;
-        lisaac_push_first(&__5MY,L11406380); // L87 MEMORY;
-        __W03=__G4O->__KSE;
-        lisaac_push(&__5MY,L11433004); // L87 MEMORY;
-        __IZ3=__H0E( 1);
-        lisaac_push(&__5MY,L11430956); // L87 MEMORY;
-        lisaac_push_first(&__BEV,L22171143); // L169 INTEGER;
-        __OZ3=(____CRE)(__W03 & __IZ3);
-        lisaac_push(&__ZLY,L35399212); // L270 MEMORY;
-        lisaac_push_first(&__5MY,L20725292); // L158 MEMORY;
-        __W03=__H0E( 0);
-        if ((__OZ3 == __W03)) {
-          lisaac_push(&__ZLY,L35401260); // L270 MEMORY;
-          lisaac_push_first(&__5MY,L10652676); // L81 TRUE;
-          lisaac_push_first(&__BEV,L35406892); // L270 MEMORY;
-          lisaac_push_first(&__GNU,L10883116); // L83 MEMORY;
-          __D1P=__G4O->__KSE;
-          lisaac_push(&__GNU,L10916908); // L83 MEMORY;
-          __E1P=__H0E( 3);
-          lisaac_push(&__GNU,L10907692); // L83 MEMORY;
-          lisaac_push_first(&__RNY,L25311239); // L193 INTEGER;
-          lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-          __BO1=__H0E( 0);
-          lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__BO1 - __E1P);
-          lisaac_push(&__RNY,L25319431); // L193 INTEGER;
-          lisaac_push_first(&__PQ4,L5121032); // L39 NUMERIC;
-          __E1P=__H0E( 1);
-          lisaac_push(&__RNY,L25314823); // L193 INTEGER;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __BO1=(____CRE)(__WN1 - __E1P);
-          lisaac_push(&__GNU,L10906668); // L83 MEMORY;
-          lisaac_push_first(&__RNY,L22171143); // L169 INTEGER;
-          __E1P=(____CRE)(__D1P & __BO1);
-          lisaac_push(&__BEV,L35407916); // L270 MEMORY;
-          lisaac_push_first(&__GNU,L16021000); // L122 NUMERIC;
-          lisaac_push_first(&__RNY,L15224840); // L116 NUMERIC;
-          __CJ3=(__E1P > __MZ3);
-          lisaac_push(&__GNU,L16030216); // L122 NUMERIC;
-          lisaac_push_first(&__RNY,L14700552); // L112 NUMERIC;
-          __EJ3=(__E1P == __MZ3);
-          if (__CJ3) {
-            lisaac_push(&__GNU,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__RNY,L10900996); // L83 TRUE;
-            __GJ3=__F__;
-          } else /* FALSE */ {
-            lisaac_push(&__GNU,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__RNY,L12342790); // L94 FALSE;
-            __GJ3=__EJ3;
-          };
-          __CJ3=__GJ3;
+      if ((__3XY->__CBE <= __3XY->__BC)) {
+        if ((__3XY->__CBE ==  0)) {
+          __3XY->__CBE= 32;
+          __EZY=__3NG( 32);
+          __3XY->__ZAE=__EZY;
         } else /* FALSE */ {
-          lisaac_push(&__ZLY,L35401260); // L270 MEMORY;
-          lisaac_push_first(&__5MY,L12081158); // L92 FALSE;
-          __CJ3=__J__;
+          __FZY=(____L)(__3XY->__CBE <<  1);
+          __EZY=__SOG(((____4 *)__3XY->__ZAE),__3XY->__CBE,__FZY);
+          __3XY->__ZAE=__EZY;
+          __3XY->__CBE=__FZY;
         };
-        if (__CJ3) {
-          lisaac_push(&__ZLY,L36701228); // L280 MEMORY;
-          lisaac_push_first(&__5MY,L8792068); // L67 TRUE;
-          lisaac_push_first(&__BEV,L35535404); // L271 MEMORY;
-          __54O=__XXG(__MZ3);
-          lisaac_push(&__BEV,L35541036); // L271 MEMORY;
-          __OWS(__G4O,__54O,__Y0O);
-          __D1P=__XYH->__KSE;
-          __E1P=__G4O->__KSE;
-          lisaac_push(&__BEV,L35687468); // L272 MEMORY;
-          __BO1=__H0E( 1);
-          lisaac_push(&__BEV,L35678252); // L272 MEMORY;
-          lisaac_push_first(&__GNU,L25311239); // L193 INTEGER;
-          lisaac_push_first(&__RNY,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L5383176); // L41 NUMERIC;
-          __WN1=__H0E( 0);
-          lisaac_push(&__RNY,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __HO1=(____CRE)(__WN1 - __BO1);
-          lisaac_push(&__GNU,L25319431); // L193 INTEGER;
-          lisaac_push_first(&__RNY,L5121032); // L39 NUMERIC;
-          __BO1=__H0E( 1);
-          lisaac_push(&__GNU,L25314823); // L193 INTEGER;
-          lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__HO1 - __BO1);
-          lisaac_push(&__BEV,L35677228); // L272 MEMORY;
-          lisaac_push_first(&__GNU,L22171143); // L169 INTEGER;
-          __BO1=(____CRE)(__E1P & __WN1);
-          lisaac_push(&__BEV,L35695148); // L272 MEMORY;
-          lisaac_push_first(&__GNU,L10123820); // L77 MEMORY;
-          lisaac_push_first(&__RNY,L5774867); // L44 POINTER;
-          __LJ3=((____L )(sizeof(void *)));
-          lisaac_push(&__GNU,L10137132); // L77 MEMORY;
-          lisaac_push_first(&__RNY,L4988457); // L38 UINTEGER_CPU;
-          __OJ3=((____L )(sizeof(unsigned long)));
-          lisaac_push(&__GNU,L10124332); // L77 MEMORY;
-          lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __SJ3=(____L)(- __OJ3);
-          lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __OJ3=(____L)(__LJ3 - __SJ3);
-          lisaac_push(&__BEV,L35667500); // L272 MEMORY;
-          lisaac_push_first(&__GNU,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__RNY,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L5383176); // L41 NUMERIC;
-          __E1P=__H0E( 0);
-          lisaac_push(&__RNY,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__E1P - __BO1);
-          lisaac_push(&__GNU,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-          __E1P=(____CRE)(__D1P - __WN1);
-          lisaac_push(&__BEV,L35695148); // L272 MEMORY;
-          __D1P=__H0E(__OJ3);
-          lisaac_push(&__BEV,L35689004); // L272 MEMORY;
-          lisaac_push_first(&__GNU,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__RNY,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L5383176); // L41 NUMERIC;
-          __BO1=__H0E( 0);
-          lisaac_push(&__RNY,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__BO1 - __D1P);
-          lisaac_push(&__GNU,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-          __XYH->__KSE=(____CRE)(__E1P - __WN1);
-          lisaac_push(&__BEV,L35787820); // L273 MEMORY;
-          lisaac_push_first(&__GNU,L11932716); // L91 MEMORY;
-          __D1P=__XYH->__KSE;
-          lisaac_push(&__GNU,L11959340); // L91 MEMORY;
-          lisaac_push_first(&__RNY,L11687980); // L89 MEMORY;
-          __E1P=__H0E( 2);
-          lisaac_push(&__GNU,L11955756); // L91 MEMORY;
-          lisaac_push_first(&__RNY,L22171143); // L169 INTEGER;
-          __BO1=(____CRE)(__D1P & __E1P);
-          lisaac_push(&__GNU,L11965484); // L91 MEMORY;
-          lisaac_push_first(&__RNY,L34479112); // L263 NUMERIC;
-          if ((__BO1 !=  0)) {
-            lisaac_push(&__BEV,L36440108); // L278 MEMORY;
-            lisaac_push_first(&__GNU,L6825988); // L52 TRUE;
-            lisaac_push_first(&__RNY,L35926572); // L274 MEMORY;
-            __3MP(__XYH,__Y0O);
-          } else /* FALSE */ {
-            lisaac_push(&__BEV,L36440108); // L278 MEMORY;
-            lisaac_push_first(&__GNU,L6826502); // L52 FALSE;
-            lisaac_push_first(&__RNY,L36187692); // L276 MEMORY;
-            lisaac_push_first(&__PQ4,L11179564); // L85 MEMORY;
-            lisaac_push_first(&__QQ4,L10640428); // L81 MEMORY;
-            lisaac_push_first(&__303,L10391596); // L79 MEMORY;
-            lisaac_push_first(&__503,L4069927); // L31 CONVERT;
-            __K23=((____DB )__XYH);
-            lisaac_push(&__QQ4,L10647084); // L81 MEMORY;
-            lisaac_push_first(&__303,L10123820); // L77 MEMORY;
-            lisaac_push_first(&__503,L5774867); // L44 POINTER;
-            __N23=((____L )(sizeof(void *)));
-            lisaac_push(&__303,L10137132); // L77 MEMORY;
-            lisaac_push_first(&__503,L4988457); // L38 UINTEGER_CPU;
-            __P23=((____L )(sizeof(unsigned long)));
-            lisaac_push(&__303,L10124332); // L77 MEMORY;
-            lisaac_push_first(&__503,L9990152); // L76 NUMERIC;
-            lisaac_push_first(&__R23,L11029512); // L84 NUMERIC;
-            lisaac_push_first(&__S23,L9195016); // L70 NUMERIC;
-            __T23=(____L)(- __P23);
-            lisaac_push(&__503,L9989128); // L76 NUMERIC;
-            lisaac_push_first(&__R23,L9195016); // L70 NUMERIC;
-            __P23=(____L)(__N23 - __T23);
-            lisaac_push(&__QQ4,L10647084); // L81 MEMORY;
-            lisaac_push_first(&__303,L14156807); // L108 INTEGER;
-            lisaac_push_first(&__503,L78949383); // L602 INTEGER;
-            __Y23=__H0E(__P23);
-            lisaac_push(&__503,L78949383); // L602 INTEGER;
-            lisaac_push_first(&__R23,L4069927); // L31 CONVERT;
-            __023=((____DB )__Y23);
-            lisaac_push(&__QQ4,L10640940); // L81 MEMORY;
-            lisaac_push_first(&__303,L9990152); // L76 NUMERIC;
-            lisaac_push_first(&__503,L11029000); // L84 NUMERIC;
-            lisaac_push_first(&__R23,L5383176); // L41 NUMERIC;
-            lisaac_push_first(&__S23,L14156807); // L108 INTEGER;
-            lisaac_push_first(&__523,L78949383); // L602 INTEGER;
-            __Y23=__H0E( 0);
-            lisaac_push(&__523,L78949383); // L602 INTEGER;
-            lisaac_push_first(&__B33,L4069927); // L31 CONVERT;
-            __C33=((____DB )__Y23);
-            lisaac_push(&__503,L11029512); // L84 NUMERIC;
-            lisaac_push_first(&__R23,L9195016); // L70 NUMERIC;
-            __E33=(void *)((unsigned long)__C33 - (unsigned long)__023);
-            lisaac_push(&__303,L9989128); // L76 NUMERIC;
-            lisaac_push_first(&__503,L9195016); // L70 NUMERIC;
-            __023=(void *)((unsigned long)__K23 - (unsigned long)__E33);
-            lisaac_push(&__PQ4,L11182636); // L85 MEMORY;
-            lisaac_push_first(&__QQ4,L10883116); // L83 MEMORY;
-            __Y23=__XYH->__KSE;
-            lisaac_push(&__QQ4,L10916908); // L83 MEMORY;
-            __K13=__H0E( 3);
-            lisaac_push(&__QQ4,L10907692); // L83 MEMORY;
-            lisaac_push_first(&__303,L25311239); // L193 INTEGER;
-            lisaac_push_first(&__503,L11029000); // L84 NUMERIC;
-            lisaac_push_first(&__R23,L5383176); // L41 NUMERIC;
-            __O13=__H0E( 0);
-            lisaac_push(&__503,L11029512); // L84 NUMERIC;
-            lisaac_push_first(&__R23,L9195016); // L70 NUMERIC;
-            __Q13=(____CRE)(__O13 - __K13);
-            lisaac_push(&__303,L25319431); // L193 INTEGER;
-            lisaac_push_first(&__503,L5121032); // L39 NUMERIC;
-            __K13=__H0E( 1);
-            lisaac_push(&__303,L25314823); // L193 INTEGER;
-            lisaac_push_first(&__503,L9195016); // L70 NUMERIC;
-            __O13=(____CRE)(__Q13 - __K13);
-            lisaac_push(&__QQ4,L10906668); // L83 MEMORY;
-            lisaac_push_first(&__303,L22171143); // L169 INTEGER;
-            __K13=(____CRE)(__Y23 & __O13);
-            lisaac_push(&__PQ4,L11182636); // L85 MEMORY;
-            __K23=__XXG(__K13);
-            lisaac_push(&__PQ4,L11180076); // L85 MEMORY;
-            lisaac_push_first(&__QQ4,L9990152); // L76 NUMERIC;
-            lisaac_push_first(&__303,L11029000); // L84 NUMERIC;
-            lisaac_push_first(&__503,L5383176); // L41 NUMERIC;
-            lisaac_push_first(&__R23,L14156807); // L108 INTEGER;
-            lisaac_push_first(&__S23,L78949383); // L602 INTEGER;
-            __Y23=__H0E( 0);
-            lisaac_push(&__S23,L78949383); // L602 INTEGER;
-            lisaac_push_first(&__523,L4069927); // L31 CONVERT;
-            __C33=((____DB )__Y23);
-            lisaac_push(&__303,L11029512); // L84 NUMERIC;
-            lisaac_push_first(&__503,L9195016); // L70 NUMERIC;
-            __E33=(void *)((unsigned long)__C33 - (unsigned long)__K23);
-            lisaac_push(&__QQ4,L9989128); // L76 NUMERIC;
-            lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-            __K23=(void *)((unsigned long)__023 - (unsigned long)__E33);
-            lisaac_push(&__PQ4,L11183148); // L85 MEMORY;
-            lisaac_push_first(&__QQ4,L4069927); // L31 CONVERT;
-            __Z5O=((____HSE *)__K23);
-            lisaac_push(&__RNY,L36324908); // L277 MEMORY;
-            lisaac_push_first(&__PQ4,L10391596); // L79 MEMORY;
-            lisaac_push_first(&__QQ4,L4069927); // L31 CONVERT;
-            __K23=((____DB )__XYH);
-            __023=__X1F;
-            lisaac_push(&__RNY,L36325420); // L277 MEMORY;
-            lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-            __C33=(void *)((unsigned long)__K23 - (unsigned long)__023);
-            lisaac_push(&__RNY,L36332588); // L277 MEMORY;
-            lisaac_push_first(&__PQ4,L12209196); // L93 MEMORY;
-            __Z5O->__JSE=__C33;
-          };
-          __U2O=__XYH;
-        } else /* FALSE */ {
-          lisaac_push(&__ZLY,L36701228); // L280 MEMORY;
-          lisaac_push_first(&__5MY,L8530438); // L65 FALSE;
-        };
-      } else /* FALSE */ {
-        lisaac_push(&__XVN,L36834860); // L281 MEMORY;
-        lisaac_push_first(&__WHN,L8530438); // L65 FALSE;
       };
-      if (((void *)__U2O == (void *)NULL)) {
-        lisaac_push(&__XVN,L37621292); // L287 MEMORY;
-        lisaac_push_first(&__WHN,L8792068); // L67 TRUE;
-        lisaac_push_first(&__ZLY,L37237804); // L284 MEMORY;
-        __G4O=__MBP(__FI1);
-        __U2O=__G4O;
-        lisaac_push(&__ZLY,L37361196); // L285 MEMORY;
-        lisaac_push_first(&__5MY,L10640428); // L81 MEMORY;
-        lisaac_push_first(&__BEV,L10391596); // L79 MEMORY;
-        lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-        __I03=((____DB )__XYH);
-        lisaac_push(&__5MY,L10647084); // L81 MEMORY;
-        lisaac_push_first(&__BEV,L10123820); // L77 MEMORY;
-        lisaac_push_first(&__GNU,L5774867); // L44 POINTER;
-        __L03=((____L )(sizeof(void *)));
-        lisaac_push(&__BEV,L10137132); // L77 MEMORY;
-        lisaac_push_first(&__GNU,L4988457); // L38 UINTEGER_CPU;
-        __N03=((____L )(sizeof(unsigned long)));
-        lisaac_push(&__BEV,L10124332); // L77 MEMORY;
-        lisaac_push_first(&__GNU,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__RNY,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __R03=(____L)(- __N03);
-        lisaac_push(&__GNU,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __N03=(____L)(__L03 - __R03);
-        lisaac_push(&__5MY,L10647084); // L81 MEMORY;
-        lisaac_push_first(&__BEV,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__GNU,L78949383); // L602 INTEGER;
-        __W03=__H0E(__N03);
-        lisaac_push(&__GNU,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__RNY,L4069927); // L31 CONVERT;
-        __Y03=((____DB )__W03);
-        lisaac_push(&__5MY,L10640940); // L81 MEMORY;
-        lisaac_push_first(&__BEV,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__PQ4,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__QQ4,L78949383); // L602 INTEGER;
-        __W03=__H0E( 0);
-        lisaac_push(&__QQ4,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__303,L4069927); // L31 CONVERT;
-        __A13=((____DB )__W03);
-        lisaac_push(&__GNU,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __C13=(void *)((unsigned long)__A13 - (unsigned long)__Y03);
-        lisaac_push(&__BEV,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L9195016); // L70 NUMERIC;
-        __Y03=(void *)((unsigned long)__I03 - (unsigned long)__C13);
-        if (__G4O==NULL) {
-          lisaac_push(&__ZLY,L37369900); // L285 MEMORY;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* MEMORY */ {
-          lisaac_push(&__ZLY,L37369900); // L285 MEMORY;
-          __Z5O=((____HSE *)__G4O);
-          lisaac_push_first(&__5MY,L10640428); // L81 MEMORY;
-          lisaac_push_first(&__BEV,L10391596); // L79 MEMORY;
-          lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-          __54O=((____DB )__Z5O);
-          lisaac_push(&__5MY,L10647084); // L81 MEMORY;
-          lisaac_push_first(&__BEV,L10123820); // L77 MEMORY;
-          lisaac_push_first(&__GNU,L5774867); // L44 POINTER;
-          __LJ3=((____L )(sizeof(void *)));
-          lisaac_push(&__BEV,L10137132); // L77 MEMORY;
-          lisaac_push_first(&__GNU,L4988457); // L38 UINTEGER_CPU;
-          __OJ3=((____L )(sizeof(unsigned long)));
-          lisaac_push(&__BEV,L10124332); // L77 MEMORY;
-          lisaac_push_first(&__GNU,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__RNY,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __SJ3=(____L)(- __OJ3);
-          lisaac_push(&__GNU,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-          __OJ3=(____L)(__LJ3 - __SJ3);
-          lisaac_push(&__5MY,L10647084); // L81 MEMORY;
-          lisaac_push_first(&__BEV,L14156807); // L108 INTEGER;
-          lisaac_push_first(&__GNU,L78949383); // L602 INTEGER;
-          __D1P=__H0E(__OJ3);
-          lisaac_push(&__GNU,L78949383); // L602 INTEGER;
-          lisaac_push_first(&__RNY,L4069927); // L31 CONVERT;
-          __K23=((____DB )__D1P);
-          lisaac_push(&__5MY,L10640940); // L81 MEMORY;
-          lisaac_push_first(&__BEV,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__GNU,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__RNY,L5383176); // L41 NUMERIC;
-          lisaac_push_first(&__PQ4,L14156807); // L108 INTEGER;
-          lisaac_push_first(&__QQ4,L78949383); // L602 INTEGER;
-          __D1P=__H0E( 0);
-          lisaac_push(&__QQ4,L78949383); // L602 INTEGER;
-          lisaac_push_first(&__303,L4069927); // L31 CONVERT;
-          __023=((____DB )__D1P);
-          lisaac_push(&__GNU,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-          __C33=(void *)((unsigned long)__023 - (unsigned long)__K23);
-          lisaac_push(&__BEV,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__GNU,L9195016); // L70 NUMERIC;
-          __K23=(void *)((unsigned long)__54O - (unsigned long)__C33);
-        };
-        lisaac_push(&__ZLY,L37377580); // L285 MEMORY;
-        __ZYO(__Y03,__K23,__M1O);
-        lisaac_push(&__ZLY,L37492780); // L286 MEMORY;
-        lisaac_push_first(&__5MY,L3951145); // L30 UINTEGER_CPU;
-        lisaac_push_first(&__BEV,L68588040); // L523 NUMERIC;
-        lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-        lisaac_push(&__5MY,L26355756); // L201 MEMORY;
-        lisaac_push_first(&__BEV,L17840146); // L136 BLOCK;
-        lisaac_push_first(&__GNU,L7481858); // L57 OBJECT;
-        __I03=((____DB )(top_context->back->back));
-        lisaac_push(&__BEV,L17970194); // L137 BLOCK;
-        lisaac_push_first(&__GNU,L10652676); // L81 TRUE;
-        lisaac_push_first(&__RNY,L17974802); // L137 BLOCK;
-        lisaac_push_first(&__PQ4,L26349612); // L201 MEMORY;
-        lisaac_push_first(&__QQ4,L11406380); // L87 MEMORY;
-        __W03=__XYH->__KSE;
-        lisaac_push(&__QQ4,L11433004); // L87 MEMORY;
-        __IZ3=__H0E( 1);
-        lisaac_push(&__QQ4,L11430956); // L87 MEMORY;
-        lisaac_push_first(&__303,L22171143); // L169 INTEGER;
-        __MZ3=(____CRE)(__W03 & __IZ3);
-        lisaac_push(&__PQ4,L26354220); // L201 MEMORY;
-        lisaac_push_first(&__QQ4,L20856364); // L159 MEMORY;
-        __W03=__H0E( 1);
-        if ((__MZ3 == __W03)) {
-          lisaac_push(&__RNY,L17971730); // L137 BLOCK;
-          lisaac_push_first(&__PQ4,L13509636); // L103 TRUE;
-          __CJ3=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__RNY,L17971730); // L137 BLOCK;
-          lisaac_push_first(&__PQ4,L14689286); // L112 FALSE;
-          __CJ3=__F__;
-        };
-        if (__CJ3) {
-          lisaac_push(&__BEV,L18221586); // L139 BLOCK;
-          lisaac_push_first(&__GNU,L8792068); // L67 TRUE;
-          lisaac_push_first(&__RNY,L18105874); // L138 BLOCK;
-          lisaac_push_first(&__PQ4,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__QQ4,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__303,L8792068); // L67 TRUE;
-          lisaac_push_first(&__503,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__I03));
-          lisaac_push(&__PQ4,L9574914); // L73 OBJECT;
-          __DX((&__string_139));
-          lisaac_push(&__PQ4,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__QQ4,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__303,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__503,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__R23,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__PQ4,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__QQ4,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__303,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__BEV,L18221586); // L139 BLOCK;
-          lisaac_push_first(&__GNU,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__5MY,L26490924); // L202 MEMORY;
-        lisaac_push_first(&__BEV,L17840146); // L136 BLOCK;
-        lisaac_push_first(&__GNU,L7481858); // L57 OBJECT;
-        __I03=((____DB )(top_context->back->back));
-        lisaac_push(&__BEV,L17970194); // L137 BLOCK;
-        lisaac_push_first(&__GNU,L10652676); // L81 TRUE;
-        lisaac_push_first(&__RNY,L17974802); // L137 BLOCK;
-        lisaac_push_first(&__PQ4,L26486316); // L202 MEMORY;
-        __W03=__H0E( 0);
-        lisaac_push(&__PQ4,L26489388); // L202 MEMORY;
-        __IZ3=__H0E( 63);
-        lisaac_push(&__PQ4,L26489388); // L202 MEMORY;
-        lisaac_push_first(&__QQ4,L6296072); // L48 NUMERIC;
-        lisaac_push_first(&__303,L15759880); // L120 NUMERIC;
-        lisaac_push_first(&__503,L15224840); // L116 NUMERIC;
-        if ((__W03 > __Y0O)) {
-          lisaac_push(&__303,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__503,L13509636); // L103 TRUE;
-          __CJ3=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__303,L15755784); // L120 NUMERIC;
-          lisaac_push_first(&__503,L14689286); // L112 FALSE;
-          __CJ3=__F__;
-        };
-        if (__CJ3) {
-          lisaac_push(&__QQ4,L6300680); // L48 NUMERIC;
-          lisaac_push_first(&__303,L10652676); // L81 TRUE;
-          lisaac_push_first(&__503,L6304264); // L48 NUMERIC;
-          lisaac_push_first(&__R23,L16021000); // L122 NUMERIC;
-          lisaac_push_first(&__S23,L15224840); // L116 NUMERIC;
-          __CJ3=(__IZ3 > __Y0O);
-          lisaac_push(&__R23,L16030216); // L122 NUMERIC;
-          lisaac_push_first(&__S23,L14700552); // L112 NUMERIC;
-          __EJ3=(__IZ3 == __Y0O);
-          if (__CJ3) {
-            lisaac_push(&__R23,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__S23,L10900996); // L83 TRUE;
-            __GJ3=__F__;
-          } else /* FALSE */ {
-            lisaac_push(&__R23,L16025608); // L122 NUMERIC;
-            lisaac_push_first(&__S23,L12342790); // L94 FALSE;
-            __GJ3=__EJ3;
-          };
-          __CJ3=__GJ3;
-        } else /* FALSE */ {
-          lisaac_push(&__QQ4,L6300680); // L48 NUMERIC;
-          lisaac_push_first(&__303,L12081158); // L92 FALSE;
-          __CJ3=__J__;
-        };
-        if (__CJ3) {
-          lisaac_push(&__RNY,L17971730); // L137 BLOCK;
-          lisaac_push_first(&__PQ4,L13509636); // L103 TRUE;
-          __CJ3=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__RNY,L17971730); // L137 BLOCK;
-          lisaac_push_first(&__PQ4,L14689286); // L112 FALSE;
-          __CJ3=__F__;
-        };
-        if (__CJ3) {
-          lisaac_push(&__BEV,L18221586); // L139 BLOCK;
-          lisaac_push_first(&__GNU,L8792068); // L67 TRUE;
-          lisaac_push_first(&__RNY,L18105874); // L138 BLOCK;
-          lisaac_push_first(&__PQ4,L9452546); // L72 OBJECT;
-          lisaac_push_first(&__QQ4,L8260098); // L63 OBJECT;
-          lisaac_push_first(&__303,L8792068); // L67 TRUE;
-          lisaac_push_first(&__503,L8009218); // L61 OBJECT;
-          lisaac_stack_print((_____CONTEXT *)(__I03));
-          lisaac_push(&__PQ4,L9574914); // L73 OBJECT;
-          __DX((&__string_138));
-          lisaac_push(&__PQ4,L9706498); // L74 OBJECT;
-          lisaac_push_first(&__QQ4,L10896400); // L83 CHARACTER;
-          lisaac_push_first(&__303,L5005342); // L38 STD_OUTPUT;
-          lisaac_push_first(&__503,L18378271); // L140 OUTPUT_STREAM;
-          lisaac_push_first(&__R23,L6962199); // L53 SYSTEM_IO;
-          fputc((int)('\n'),stdout);
-          lisaac_push(&__PQ4,L9848322); // L75 OBJECT;
-          lisaac_push_first(&__QQ4,L10904578); // L83 OBJECT;
-          lisaac_push_first(&__303,L4598824); // L35 SYSTEM;
-          exit(( 1));
-        } else /* FALSE */ {
-          lisaac_push(&__BEV,L18221586); // L139 BLOCK;
-          lisaac_push_first(&__GNU,L8530438); // L65 FALSE;
-        };
-        __I03=__XYH->__JSE;
-        lisaac_push(&__5MY,L26881580); // L205 MEMORY;
-        lisaac_push_first(&__BEV,L11179564); // L85 MEMORY;
-        lisaac_push_first(&__GNU,L10640428); // L81 MEMORY;
-        lisaac_push_first(&__RNY,L10391596); // L79 MEMORY;
-        lisaac_push_first(&__PQ4,L4069927); // L31 CONVERT;
-        __Y03=((____DB )__XYH);
-        lisaac_push(&__GNU,L10647084); // L81 MEMORY;
-        lisaac_push_first(&__RNY,L10123820); // L77 MEMORY;
-        lisaac_push_first(&__PQ4,L5774867); // L44 POINTER;
-        __L03=((____L )(sizeof(void *)));
-        lisaac_push(&__RNY,L10137132); // L77 MEMORY;
-        lisaac_push_first(&__PQ4,L4988457); // L38 UINTEGER_CPU;
-        __N03=((____L )(sizeof(unsigned long)));
-        lisaac_push(&__RNY,L10124332); // L77 MEMORY;
-        lisaac_push_first(&__PQ4,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__QQ4,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-        __R03=(____L)(- __N03);
-        lisaac_push(&__PQ4,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-        __N03=(____L)(__L03 - __R03);
-        lisaac_push(&__GNU,L10647084); // L81 MEMORY;
-        lisaac_push_first(&__RNY,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__PQ4,L78949383); // L602 INTEGER;
-        __W03=__H0E(__N03);
-        lisaac_push(&__PQ4,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__QQ4,L4069927); // L31 CONVERT;
-        __A13=((____DB )__W03);
-        lisaac_push(&__GNU,L10640940); // L81 MEMORY;
-        lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__303,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__503,L78949383); // L602 INTEGER;
-        __W03=__H0E( 0);
-        lisaac_push(&__503,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__R23,L4069927); // L31 CONVERT;
-        __C13=((____DB )__W03);
-        lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-        __54O=(void *)((unsigned long)__C13 - (unsigned long)__A13);
-        lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __A13=(void *)((unsigned long)__Y03 - (unsigned long)__54O);
-        lisaac_push(&__BEV,L11182636); // L85 MEMORY;
-        lisaac_push_first(&__GNU,L10883116); // L83 MEMORY;
-        __W03=__XYH->__KSE;
-        lisaac_push(&__GNU,L10916908); // L83 MEMORY;
-        __IZ3=__H0E( 3);
-        lisaac_push(&__GNU,L10907692); // L83 MEMORY;
-        lisaac_push_first(&__RNY,L25311239); // L193 INTEGER;
-        lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-        __MZ3=__H0E( 0);
-        lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-        __OZ3=(____CRE)(__MZ3 - __IZ3);
-        lisaac_push(&__RNY,L25319431); // L193 INTEGER;
-        lisaac_push_first(&__PQ4,L5121032); // L39 NUMERIC;
-        __IZ3=__H0E( 1);
-        lisaac_push(&__RNY,L25314823); // L193 INTEGER;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __MZ3=(____CRE)(__OZ3 - __IZ3);
-        lisaac_push(&__GNU,L10906668); // L83 MEMORY;
-        lisaac_push_first(&__RNY,L22171143); // L169 INTEGER;
-        __IZ3=(____CRE)(__W03 & __MZ3);
-        lisaac_push(&__BEV,L11182636); // L85 MEMORY;
-        __Y03=__XXG(__IZ3);
-        lisaac_push(&__BEV,L11180076); // L85 MEMORY;
-        lisaac_push_first(&__GNU,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__RNY,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__QQ4,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__303,L78949383); // L602 INTEGER;
-        __W03=__H0E( 0);
-        lisaac_push(&__303,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__503,L4069927); // L31 CONVERT;
-        __C13=((____DB )__W03);
-        lisaac_push(&__RNY,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-        __54O=(void *)((unsigned long)__C13 - (unsigned long)__Y03);
-        lisaac_push(&__GNU,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __Y03=(void *)((unsigned long)__A13 - (unsigned long)__54O);
-        lisaac_push(&__BEV,L11183148); // L85 MEMORY;
-        lisaac_push_first(&__GNU,L4069927); // L31 CONVERT;
-        __G4O=((____HSE *)__Y03);
-        __Y03=__X1F;
-        lisaac_push(&__5MY,L27030572); // L206 MEMORY;
-        lisaac_push_first(&__BEV,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__PQ4,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__QQ4,L78949383); // L602 INTEGER;
-        __W03=__H0E( 0);
-        lisaac_push(&__QQ4,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__303,L4069927); // L31 CONVERT;
-        __A13=((____DB )__W03);
-        lisaac_push(&__GNU,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __C13=(void *)((unsigned long)__A13 - (unsigned long)__I03);
-        lisaac_push(&__BEV,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__GNU,L9195016); // L70 NUMERIC;
-        __A13=(void *)((unsigned long)__Y03 - (unsigned long)__C13);
-        lisaac_push(&__5MY,L27033644); // L206 MEMORY;
-        lisaac_push_first(&__BEV,L4069927); // L31 CONVERT;
-        __Z5O=((____HSE *)__A13);
-        __2BS=__Z5O;
-        __W03=__XYH->__KSE;
-        lisaac_push(&__5MY,L27157036); // L207 MEMORY;
-        __IZ3=__H0E( 1);
-        lisaac_push(&__5MY,L27147820); // L207 MEMORY;
-        lisaac_push_first(&__BEV,L25311239); // L193 INTEGER;
-        lisaac_push_first(&__GNU,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L5383176); // L41 NUMERIC;
-        __MZ3=__H0E( 0);
-        lisaac_push(&__GNU,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-        __OZ3=(____CRE)(__MZ3 - __IZ3);
-        lisaac_push(&__BEV,L25319431); // L193 INTEGER;
-        lisaac_push_first(&__GNU,L5121032); // L39 NUMERIC;
-        __IZ3=__H0E( 1);
-        lisaac_push(&__BEV,L25314823); // L193 INTEGER;
-        lisaac_push_first(&__GNU,L9195016); // L70 NUMERIC;
-        __MZ3=(____CRE)(__OZ3 - __IZ3);
-        lisaac_push(&__5MY,L27146796); // L207 MEMORY;
-        lisaac_push_first(&__BEV,L22171143); // L169 INTEGER;
-        __IZ3=(____CRE)(__W03 & __MZ3);
-        __W03=__IZ3;
-        if ((__I03 == (void *)NULL)) {
-          lisaac_push(&__5MY,L27273772); // L208 MEMORY;
-          lisaac_push_first(&__BEV,L10377220); // L79 TRUE;
-          __CJ3=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__5MY,L27273772); // L208 MEMORY;
-          lisaac_push_first(&__BEV,L11832326); // L90 FALSE;
-          lisaac_push_first(&__GNU,L27280940); // L208 MEMORY;
-          lisaac_push_first(&__RNY,L11406380); // L87 MEMORY;
-          __D1P=__Z5O->__KSE;
-          lisaac_push(&__RNY,L11433004); // L87 MEMORY;
-          __E1P=__H0E( 1);
-          lisaac_push(&__RNY,L11430956); // L87 MEMORY;
-          lisaac_push_first(&__PQ4,L22171143); // L169 INTEGER;
-          __BO1=(____CRE)(__D1P & __E1P);
-          lisaac_push(&__GNU,L27286060); // L208 MEMORY;
-          lisaac_push_first(&__RNY,L20725292); // L158 MEMORY;
-          __D1P=__H0E( 0);
-          __CJ3=(__BO1 != __D1P);
-        };
-        if (__CJ3) {
-          lisaac_push(&__5MY,L28183084); // L215 MEMORY;
-          lisaac_push_first(&__BEV,L6825988); // L52 TRUE;
-          lisaac_push_first(&__GNU,L27289644); // L208 MEMORY;
-          __2BS=__XYH;
-          lisaac_push(&__GNU,L27665964); // L211 MEMORY;
-          lisaac_push_first(&__RNY,L23471148); // L179 MEMORY;
-          __XYH->__LSE=__SCP;
-          __XYH->__MSE=NULL;
-          if (((void *)__SCP != (void *)NULL)) {
-            lisaac_push(&__RNY,L24250924); // L185 MEMORY;
-            lisaac_push_first(&__PQ4,L8792068); // L67 TRUE;
-            lisaac_push_first(&__QQ4,L24001068); // L183 MEMORY;
-            __PB4=__SCP;
-            if (__PB4==NULL) {
-              lisaac_push(&__QQ4,L24137260); // L184 MEMORY;
-              lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-            } else /* MEMORY */ {
-              lisaac_push(&__QQ4,L24137260); // L184 MEMORY;
-              __QB4=((____HSE *)__PB4);
-              lisaac_push_first(&__303,L21249580); // L162 MEMORY;
-              __QB4->__MSE=__XYH;
-            };
-          } else /* FALSE */ {
-            lisaac_push(&__RNY,L24250924); // L185 MEMORY;
-            lisaac_push_first(&__PQ4,L8530438); // L65 FALSE;
-          };
-          __SCP=__XYH;
-        } else /* FALSE */ {
-          lisaac_push(&__5MY,L28183084); // L215 MEMORY;
-          lisaac_push_first(&__BEV,L6826502); // L52 FALSE;
-          lisaac_push_first(&__GNU,L27793452); // L212 MEMORY;
-          __D1P=__2BS->__KSE;
-          lisaac_push(&__GNU,L28081708); // L214 MEMORY;
-          lisaac_push_first(&__RNY,L10123820); // L77 MEMORY;
-          lisaac_push_first(&__PQ4,L5774867); // L44 POINTER;
-          __LJ3=((____L )(sizeof(void *)));
-          lisaac_push(&__RNY,L10137132); // L77 MEMORY;
-          lisaac_push_first(&__PQ4,L4988457); // L38 UINTEGER_CPU;
-          __OJ3=((____L )(sizeof(unsigned long)));
-          lisaac_push(&__RNY,L10124332); // L77 MEMORY;
-          lisaac_push_first(&__PQ4,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__QQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-          __SJ3=(____L)(- __OJ3);
-          lisaac_push(&__PQ4,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __OJ3=(____L)(__LJ3 - __SJ3);
-          lisaac_push(&__GNU,L28063788); // L214 MEMORY;
-          lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-          __E1P=__H0E( 0);
-          lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __BO1=(____CRE)(__E1P - __D1P);
-          lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __D1P=(____CRE)(__IZ3 - __BO1);
-          lisaac_push(&__GNU,L28081708); // L214 MEMORY;
-          __E1P=__H0E(__OJ3);
-          lisaac_push(&__GNU,L28075564); // L214 MEMORY;
-          lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-          __BO1=__H0E( 0);
-          lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__BO1 - __E1P);
-          lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __W03=(____CRE)(__D1P - __WN1);
-        };
-        lisaac_push(&__5MY,L28449836); // L217 MEMORY;
-        lisaac_push_first(&__BEV,L11932716); // L91 MEMORY;
-        __IZ3=__XYH->__KSE;
-        lisaac_push(&__BEV,L11959340); // L91 MEMORY;
-        lisaac_push_first(&__GNU,L11687980); // L89 MEMORY;
-        __MZ3=__H0E( 2);
-        lisaac_push(&__BEV,L11955756); // L91 MEMORY;
-        lisaac_push_first(&__GNU,L22171143); // L169 INTEGER;
-        __OZ3=(____CRE)(__IZ3 & __MZ3);
-        lisaac_push(&__BEV,L11965484); // L91 MEMORY;
-        lisaac_push_first(&__GNU,L34479112); // L263 NUMERIC;
-        if ((__OZ3 !=  0)) {
-          lisaac_push(&__5MY,L28446252); // L217 MEMORY;
-          lisaac_push_first(&__BEV,L13509636); // L103 TRUE;
-          __CJ3=__J__;
-        } else /* FALSE */ {
-          lisaac_push(&__5MY,L28446252); // L217 MEMORY;
-          lisaac_push_first(&__BEV,L14689286); // L112 FALSE;
-          __CJ3=__F__;
-        };
-        if (__CJ3) {
-          lisaac_push(&__5MY,L28451884); // L217 MEMORY;
-          lisaac_push_first(&__BEV,L10652676); // L81 TRUE;
-          lisaac_push_first(&__GNU,L28457004); // L217 MEMORY;
-          lisaac_push_first(&__RNY,L11406380); // L87 MEMORY;
-          __D1P=__G4O->__KSE;
-          lisaac_push(&__RNY,L11433004); // L87 MEMORY;
-          __E1P=__H0E( 1);
-          lisaac_push(&__RNY,L11430956); // L87 MEMORY;
-          lisaac_push_first(&__PQ4,L22171143); // L169 INTEGER;
-          __BO1=(____CRE)(__D1P & __E1P);
-          lisaac_push(&__GNU,L28461612); // L217 MEMORY;
-          lisaac_push_first(&__RNY,L20725292); // L158 MEMORY;
-          __D1P=__H0E( 0);
-          __CJ3=(__BO1 == __D1P);
-        } else /* FALSE */ {
-          lisaac_push(&__5MY,L28451884); // L217 MEMORY;
-          lisaac_push_first(&__BEV,L12081158); // L92 FALSE;
-          __CJ3=__J__;
-        };
-        if (__CJ3) {
-          lisaac_push(&__5MY,L28969516); // L221 MEMORY;
-          lisaac_push_first(&__BEV,L8792068); // L67 TRUE;
-          lisaac_push_first(&__GNU,L28465196); // L217 MEMORY;
-          __D1P=__G4O->__KSE;
-          lisaac_push(&__GNU,L28735020); // L219 MEMORY;
-          lisaac_push_first(&__RNY,L10123820); // L77 MEMORY;
-          lisaac_push_first(&__PQ4,L5774867); // L44 POINTER;
-          __LJ3=((____L )(sizeof(void *)));
-          lisaac_push(&__RNY,L10137132); // L77 MEMORY;
-          lisaac_push_first(&__PQ4,L4988457); // L38 UINTEGER_CPU;
-          __OJ3=((____L )(sizeof(unsigned long)));
-          lisaac_push(&__RNY,L10124332); // L77 MEMORY;
-          lisaac_push_first(&__PQ4,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__QQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-          __SJ3=(____L)(- __OJ3);
-          lisaac_push(&__PQ4,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __OJ3=(____L)(__LJ3 - __SJ3);
-          lisaac_push(&__GNU,L28719148); // L219 MEMORY;
-          lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-          __E1P=__H0E( 0);
-          lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __BO1=(____CRE)(__E1P - __D1P);
-          lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __D1P=(____CRE)(__W03 - __BO1);
-          lisaac_push(&__GNU,L28735020); // L219 MEMORY;
-          __E1P=__H0E(__OJ3);
-          lisaac_push(&__GNU,L28728876); // L219 MEMORY;
-          lisaac_push_first(&__RNY,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L5383176); // L41 NUMERIC;
-          __BO1=__H0E( 0);
-          lisaac_push(&__PQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__BO1 - __E1P);
-          lisaac_push(&__RNY,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__PQ4,L9195016); // L70 NUMERIC;
-          __W03=(____CRE)(__D1P - __WN1);
-          lisaac_push(&__GNU,L28849708); // L220 MEMORY;
-          __JCT(__G4O);
-        } else /* FALSE */ {
-          lisaac_push(&__5MY,L28969516); // L221 MEMORY;
-          lisaac_push_first(&__BEV,L8530438); // L65 FALSE;
-        };
-        lisaac_push(&__5MY,L29116972); // L222 MEMORY;
-        lisaac_push_first(&__BEV,L12471340); // L95 MEMORY;
-        __2BS->__KSE=__W03;
-        lisaac_push(&__5MY,L29239340); // L223 MEMORY;
-        lisaac_push_first(&__BEV,L11932716); // L91 MEMORY;
-        __W03=__2BS->__KSE;
-        lisaac_push(&__BEV,L11959340); // L91 MEMORY;
-        lisaac_push_first(&__GNU,L11687980); // L89 MEMORY;
-        __IZ3=__H0E( 2);
-        lisaac_push(&__BEV,L11955756); // L91 MEMORY;
-        lisaac_push_first(&__GNU,L22171143); // L169 INTEGER;
-        __MZ3=(____CRE)(__W03 & __IZ3);
-        lisaac_push(&__BEV,L11965484); // L91 MEMORY;
-        lisaac_push_first(&__GNU,L34479112); // L263 NUMERIC;
-        if ((__MZ3 !=  0)) {
-          lisaac_push(&__5MY,L29887020); // L228 MEMORY;
-          lisaac_push_first(&__BEV,L6825988); // L52 TRUE;
-          lisaac_push_first(&__GNU,L29375532); // L224 MEMORY;
-          __3MP(__2BS,__Y0O);
-        } else /* FALSE */ {
-          lisaac_push(&__5MY,L29887020); // L228 MEMORY;
-          lisaac_push_first(&__BEV,L6826502); // L52 FALSE;
-          lisaac_push_first(&__GNU,L29635116); // L226 MEMORY;
-          lisaac_push_first(&__RNY,L11179564); // L85 MEMORY;
-          lisaac_push_first(&__PQ4,L10640428); // L81 MEMORY;
-          lisaac_push_first(&__QQ4,L10391596); // L79 MEMORY;
-          lisaac_push_first(&__303,L4069927); // L31 CONVERT;
-          __K23=((____DB )__XYH);
-          lisaac_push(&__PQ4,L10647084); // L81 MEMORY;
-          lisaac_push_first(&__QQ4,L10123820); // L77 MEMORY;
-          lisaac_push_first(&__303,L5774867); // L44 POINTER;
-          __LJ3=((____L )(sizeof(void *)));
-          lisaac_push(&__QQ4,L10137132); // L77 MEMORY;
-          lisaac_push_first(&__303,L4988457); // L38 UINTEGER_CPU;
-          __OJ3=((____L )(sizeof(unsigned long)));
-          lisaac_push(&__QQ4,L10124332); // L77 MEMORY;
-          lisaac_push_first(&__303,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__503,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__R23,L9195016); // L70 NUMERIC;
-          __SJ3=(____L)(- __OJ3);
-          lisaac_push(&__303,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__503,L9195016); // L70 NUMERIC;
-          __OJ3=(____L)(__LJ3 - __SJ3);
-          lisaac_push(&__PQ4,L10647084); // L81 MEMORY;
-          lisaac_push_first(&__QQ4,L14156807); // L108 INTEGER;
-          lisaac_push_first(&__303,L78949383); // L602 INTEGER;
-          __D1P=__H0E(__OJ3);
-          lisaac_push(&__303,L78949383); // L602 INTEGER;
-          lisaac_push_first(&__503,L4069927); // L31 CONVERT;
-          __023=((____DB )__D1P);
-          lisaac_push(&__PQ4,L10640940); // L81 MEMORY;
-          lisaac_push_first(&__QQ4,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__303,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__503,L5383176); // L41 NUMERIC;
-          lisaac_push_first(&__R23,L14156807); // L108 INTEGER;
-          lisaac_push_first(&__S23,L78949383); // L602 INTEGER;
-          __D1P=__H0E( 0);
-          lisaac_push(&__S23,L78949383); // L602 INTEGER;
-          lisaac_push_first(&__523,L4069927); // L31 CONVERT;
-          __C33=((____DB )__D1P);
-          lisaac_push(&__303,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__503,L9195016); // L70 NUMERIC;
-          __E33=(void *)((unsigned long)__C33 - (unsigned long)__023);
-          lisaac_push(&__QQ4,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-          __023=(void *)((unsigned long)__K23 - (unsigned long)__E33);
-          lisaac_push(&__RNY,L11182636); // L85 MEMORY;
-          lisaac_push_first(&__PQ4,L10883116); // L83 MEMORY;
-          __D1P=__XYH->__KSE;
-          lisaac_push(&__PQ4,L10916908); // L83 MEMORY;
-          __E1P=__H0E( 3);
-          lisaac_push(&__PQ4,L10907692); // L83 MEMORY;
-          lisaac_push_first(&__QQ4,L25311239); // L193 INTEGER;
-          lisaac_push_first(&__303,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__503,L5383176); // L41 NUMERIC;
-          __BO1=__H0E( 0);
-          lisaac_push(&__303,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__503,L9195016); // L70 NUMERIC;
-          __WN1=(____CRE)(__BO1 - __E1P);
-          lisaac_push(&__QQ4,L25319431); // L193 INTEGER;
-          lisaac_push_first(&__303,L5121032); // L39 NUMERIC;
-          __E1P=__H0E( 1);
-          lisaac_push(&__QQ4,L25314823); // L193 INTEGER;
-          lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-          __BO1=(____CRE)(__WN1 - __E1P);
-          lisaac_push(&__PQ4,L10906668); // L83 MEMORY;
-          lisaac_push_first(&__QQ4,L22171143); // L169 INTEGER;
-          __E1P=(____CRE)(__D1P & __BO1);
-          lisaac_push(&__RNY,L11182636); // L85 MEMORY;
-          __K23=__XXG(__E1P);
-          lisaac_push(&__RNY,L11180076); // L85 MEMORY;
-          lisaac_push_first(&__PQ4,L9990152); // L76 NUMERIC;
-          lisaac_push_first(&__QQ4,L11029000); // L84 NUMERIC;
-          lisaac_push_first(&__303,L5383176); // L41 NUMERIC;
-          lisaac_push_first(&__503,L14156807); // L108 INTEGER;
-          lisaac_push_first(&__R23,L78949383); // L602 INTEGER;
-          __D1P=__H0E( 0);
-          lisaac_push(&__R23,L78949383); // L602 INTEGER;
-          lisaac_push_first(&__S23,L4069927); // L31 CONVERT;
-          __C33=((____DB )__D1P);
-          lisaac_push(&__QQ4,L11029512); // L84 NUMERIC;
-          lisaac_push_first(&__303,L9195016); // L70 NUMERIC;
-          __E33=(void *)((unsigned long)__C33 - (unsigned long)__K23);
-          lisaac_push(&__PQ4,L9989128); // L76 NUMERIC;
-          lisaac_push_first(&__QQ4,L9195016); // L70 NUMERIC;
-          __K23=(void *)((unsigned long)__023 - (unsigned long)__E33);
-          lisaac_push(&__RNY,L11183148); // L85 MEMORY;
-          lisaac_push_first(&__PQ4,L4069927); // L31 CONVERT;
-          __PB4=((____HSE *)__K23);
-          lisaac_push(&__GNU,L29776940); // L227 MEMORY;
-          lisaac_push_first(&__RNY,L10391596); // L79 MEMORY;
-          lisaac_push_first(&__PQ4,L4069927); // L31 CONVERT;
-          __K23=((____DB )__2BS);
-          __023=__X1F;
-          lisaac_push(&__GNU,L29777452); // L227 MEMORY;
-          lisaac_push_first(&__RNY,L9195016); // L70 NUMERIC;
-          __C33=(void *)((unsigned long)__K23 - (unsigned long)__023);
-          lisaac_push(&__GNU,L29784620); // L227 MEMORY;
-          lisaac_push_first(&__RNY,L12209196); // L93 MEMORY;
-          __PB4->__JSE=__C33;
-        };
-      } else /* FALSE */ {
-        lisaac_push(&__XVN,L37621292); // L287 MEMORY;
-        lisaac_push_first(&__WHN,L8530438); // L65 FALSE;
-      };
-    } else /* FALSE */ {
-      lisaac_push(&__XNH,L38013484); // L290 MEMORY;
-      lisaac_push_first(&__OHN,L6826502); // L52 FALSE;
-      lisaac_push_first(&__XVN,L37754924); // L288 MEMORY;
-      __U2O=__XYH;
-    };
-    if (__U2O==NULL) {
-      lisaac_push(&__JTH,L81164844); // L619 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      lisaac_push(&__JTH,L81164844); // L619 MEMORY;
-      __G4O=((____HSE *)__U2O);
-      lisaac_push_first(&__XNH,L10640428); // L81 MEMORY;
-      lisaac_push_first(&__OHN,L10391596); // L79 MEMORY;
-      lisaac_push_first(&__XVN,L4069927); // L31 CONVERT;
-      __I03=((____DB )__G4O);
-      lisaac_push(&__XNH,L10647084); // L81 MEMORY;
-      lisaac_push_first(&__OHN,L10123820); // L77 MEMORY;
-      lisaac_push_first(&__XVN,L5774867); // L44 POINTER;
-      __L03=((____L )(sizeof(void *)));
-      lisaac_push(&__OHN,L10137132); // L77 MEMORY;
-      lisaac_push_first(&__XVN,L4988457); // L38 UINTEGER_CPU;
-      __N03=((____L )(sizeof(unsigned long)));
-      lisaac_push(&__OHN,L10124332); // L77 MEMORY;
-      lisaac_push_first(&__XVN,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__WHN,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__ZLY,L9195016); // L70 NUMERIC;
-      __R03=(____L)(- __N03);
-      lisaac_push(&__XVN,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__WHN,L9195016); // L70 NUMERIC;
-      __N03=(____L)(__L03 - __R03);
-      lisaac_push(&__XNH,L10647084); // L81 MEMORY;
-      lisaac_push_first(&__OHN,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__XVN,L78949383); // L602 INTEGER;
-      __CN1=__H0E(__N03);
-      lisaac_push(&__XVN,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__WHN,L4069927); // L31 CONVERT;
-      __Y03=((____DB )__CN1);
-      lisaac_push(&__XNH,L10640940); // L81 MEMORY;
-      lisaac_push_first(&__OHN,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__XVN,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__WHN,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__ZLY,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__5MY,L78949383); // L602 INTEGER;
-      __CN1=__H0E( 0);
-      lisaac_push(&__5MY,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__BEV,L4069927); // L31 CONVERT;
-      __A13=((____DB )__CN1);
-      lisaac_push(&__XVN,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__WHN,L9195016); // L70 NUMERIC;
-      __C13=(void *)((unsigned long)__A13 - (unsigned long)__Y03);
-      lisaac_push(&__OHN,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__XVN,L9195016); // L70 NUMERIC;
-      __Y03=(void *)((unsigned long)__I03 - (unsigned long)__C13);
+      ((____4 *)__3XY->__ZAE)[__3XY->__BC]='\0';
+      __3XY->__BC=(____L)(__3XY->__BC +  1);
+      __3XY->__BC=(____L)(__3XY->__BC -  1);
     };
-    __AXH=__Y03;
-  };
-  lisaac_push(&__PNH,L14838805); // L113 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L4069927); // L31 CONVERT;
-  __4OH=((____4 *)__AXH);
-  lisaac_push(&__PNH,L14964245); // L114 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L9195016); // L70 NUMERIC;
-  __LXH=(____L)(__SNH -  1);
-  lisaac_push(&__PNH,L14965781); // L114 NATIVE_ARRAY;
-  __POJ(__4OH,__RNH,__LXH);
-  __TNH=__4OH;
-  lisaac_push(&__PNH,L15469589); // L118 NATIVE_ARRAY;
-  lisaac_push_first(&__4SH,L24393746); // L186 BLOCK;
-  lisaac_push_first(&__Q4H,L7481858); // L57 OBJECT;
-  __ATH=((____DB )(top_context->back->back));
-  lisaac_push(&__4SH,L24524306); // L187 BLOCK;
-  lisaac_push_first(&__Q4H,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JTH,L24528914); // L187 BLOCK;
-  lisaac_push_first(&__XNH,L15470613); // L118 NATIVE_ARRAY;
-  if (((void *)__4OH != (void *)NULL)) {
-    lisaac_push(&__JTH,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__XNH,L13509636); // L103 TRUE;
-    __EG3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__JTH,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__XNH,L14689286); // L112 FALSE;
-    __EG3=__F__;
-  };
-  if (__EG3) {
-    lisaac_push(&__4SH,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__Q4H,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JTH,L24532498); // L187 BLOCK;
-    lisaac_push(&__JTH,L24672274); // L188 BLOCK;
-    lisaac_push_first(&__XNH,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__OHN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__XVN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WHN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ATH));
-    lisaac_push(&__XNH,L9574914); // L73 OBJECT;
-    __DX((&__string_114));
-    lisaac_push(&__XNH,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__OHN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__XVN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__WHN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__ZLY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XNH,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__OHN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__XVN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__4SH,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__Q4H,L8530438); // L65 FALSE;
-  };
-  return(__TNH);
-}
-
-static void __CWJ(____4 *__EWJ,____4 *__FWJ,____L __GWJ,____L __HWJ)
-// ({__HB},{NULLx__HB},{__L},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __04K;
-  ____L __ZWJ,__YWJ,__WFZ;
-  _____CONTEXT __DWJ,__Y4K,__4LM,__D5K,__LWJ,__MV1,__NV1,__VAU,__HSY;
-  ____G __QV1,__SV1,__UV1,__SAL;
-  ____4 __GXJ;
-  lisaac_push_first(&__DWJ,L68684821); // L524 NATIVE_ARRAY;
-  lisaac_push_first(&__Y4K,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__4LM,L7481858); // L57 OBJECT;
-  __04K=((____DB )(top_context->back->back));
-  lisaac_push(&__Y4K,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__4LM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__D5K,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__LWJ,L68689429); // L524 NATIVE_ARRAY;
-  lisaac_push_first(&__MV1,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__NV1,L15224840); // L116 NUMERIC;
-  __QV1=(__GWJ >  0);
-  lisaac_push(&__MV1,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__NV1,L14700552); // L112 NUMERIC;
-  __SV1=(__GWJ ==  0);
-  if (__QV1) {
-    lisaac_push(&__MV1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__NV1,L10900996); // L83 TRUE;
-    __UV1=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__MV1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__NV1,L12342790); // L94 FALSE;
-    __UV1=__SV1;
-  };
-  if (__UV1) {
-    lisaac_push(&__D5K,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__LWJ,L13509636); // L103 TRUE;
-    __UV1=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__D5K,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__LWJ,L14689286); // L112 FALSE;
-    __UV1=__F__;
-  };
-  if (__UV1) {
-    lisaac_push(&__Y4K,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__4LM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__D5K,L21910546); // L167 BLOCK;
-    lisaac_push(&__D5K,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__LWJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__MV1,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__NV1,L8792068); // L67 TRUE;
-    lisaac_push_first(&__VAU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__04K));
-    lisaac_push(&__LWJ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__LWJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__MV1,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__NV1,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__VAU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__HSY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__LWJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__MV1,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__NV1,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__Y4K,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__4LM,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__DWJ,L68815893); // L525 NATIVE_ARRAY;
-  lisaac_push_first(&__Y4K,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__4LM,L7481858); // L57 OBJECT;
-  __04K=((____DB )(top_context->back->back));
-  lisaac_push(&__Y4K,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__4LM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__D5K,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__LWJ,L68824597); // L525 NATIVE_ARRAY;
-  lisaac_push_first(&__MV1,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__NV1,L15224840); // L116 NUMERIC;
-  __QV1=(__HWJ >  0);
-  lisaac_push(&__MV1,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__NV1,L14700552); // L112 NUMERIC;
-  __SV1=(__HWJ ==  0);
-  if (__QV1) {
-    lisaac_push(&__MV1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__NV1,L10900996); // L83 TRUE;
-    __UV1=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__MV1,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__NV1,L12342790); // L94 FALSE;
-    __UV1=__SV1;
-  };
-  if (__UV1) {
-    lisaac_push(&__D5K,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__LWJ,L13509636); // L103 TRUE;
-    __UV1=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__D5K,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__LWJ,L14689286); // L112 FALSE;
-    __UV1=__F__;
-  };
-  if (__UV1) {
-    lisaac_push(&__Y4K,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__4LM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__D5K,L21910546); // L167 BLOCK;
-    lisaac_push(&__D5K,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__LWJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__MV1,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__NV1,L8792068); // L67 TRUE;
-    lisaac_push_first(&__VAU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__04K));
-    lisaac_push(&__LWJ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__LWJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__MV1,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__NV1,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__VAU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__HSY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__LWJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__MV1,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__NV1,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__Y4K,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__4LM,L8530438); // L65 FALSE;
-  };
-  __ZWJ= 0;
-  __YWJ=__GWJ;
-  lisaac_push(&__DWJ,L69995029); // L534 NATIVE_ARRAY;
-  lisaac_push_first(&__Y4K,L11802642); // L90 BLOCK;
-  __NAL:
-  {
-    lisaac_push(&__Y4K,L11802642); // L90 BLOCK;
-    lisaac_push_first(&__4LM,L69470741); // L530 NATIVE_ARRAY;
-    if ((__ZWJ == __HWJ)) {
-      lisaac_push(&__Y4K,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__4LM,L13509636); // L103 TRUE;
-      __SAL=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__Y4K,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__4LM,L14689286); // L112 FALSE;
-      __SAL=__F__;
-    };
-    if (__SAL) {
-      lisaac_push(&__Y4K,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__4LM,L8792068); // L67 TRUE;
-      lisaac_push_first(&__D5K,L11935762); // L91 BLOCK;
-      lisaac_push_first(&__LWJ,L69485589); // L530 NATIVE_ARRAY;
-      if (__FWJ==NULL) {
-        lisaac_push(&__LWJ,L69610517); // L531 NATIVE_ARRAY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-        lisaac_push(&__LWJ,L69610517); // L531 NATIVE_ARRAY;
-        __GXJ=__LVD(((____4 *)__FWJ),__ZWJ);
-      };
-      lisaac_push(&__LWJ,L69614101); // L531 NATIVE_ARRAY;
-      __CRG(__EWJ,__GXJ,__YWJ);
-      lisaac_push(&__LWJ,L69738517); // L532 NATIVE_ARRAY;
-      lisaac_push_first(&__MV1,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__NV1,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__VAU,L9195016); // L70 NUMERIC;
-      __WFZ=(____L)(-  1);
-      lisaac_push(&__MV1,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__NV1,L9195016); // L70 NUMERIC;
-      __ZWJ=(____L)(__ZWJ - __WFZ);
-      lisaac_push(&__LWJ,L69869589); // L533 NATIVE_ARRAY;
-      lisaac_push_first(&__MV1,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__NV1,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__VAU,L9195016); // L70 NUMERIC;
-      __WFZ=(____L)(-  1);
-      lisaac_push(&__MV1,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__NV1,L9195016); // L70 NUMERIC;
-      __YWJ=(____L)(__YWJ - __WFZ);
-      lisaac_push(&__D5K,L12068370); // L92 BLOCK;
-      goto __NAL;
-    } else /* FALSE */ {
-      lisaac_push(&__Y4K,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__4LM,L8530438); // L65 FALSE;
-    };
-  };
-}
-
-static ____G __NPI(____0B *__PPI)
-// ({__0B}) With result No recursive, No inlinable.
-{
-  ____L __SPI,__TPI,__RPI,__CQI,__GSI,__LUI,__MUI,__CA0;
-  _____CONTEXT __OPI,__WXJ,__0PI,__5NM,__AQI,__I2X,__TQI,__K3S,__ZQI;
-  _____CONTEXT __QGW,__HRI,__BIV,__GTI,__25Z,__35Z,__HA0,__CK3,__DK3;
-  ____G __UPI,__VPI,__GQI,__VQI,__2QI,__LGW,__AVI,__HVI,__IK3,__KK3;
-  ____G __QPI;
-  ____4 __OQI;
-  lisaac_push_first(&__OPI,L52173837); // L398 ABSTRACT_STRING;
-  __SPI= 0;
-  __TPI= 0;
-  __UPI=__J__;
-  __VPI=__J__;
-  __RPI= 1;
-  lisaac_push(&__OPI,L62392845); // L476 ABSTRACT_STRING;
-  lisaac_push_first(&__WXJ,L11802642); // L90 BLOCK;
-  __VXJ:
-  {
-    lisaac_push(&__WXJ,L11802642); // L90 BLOCK;
-    lisaac_push_first(&__0PI,L55970317); // L427 ABSTRACT_STRING;
-    if ((__SPI ==  4)) {
-      lisaac_push(&__0PI,L55977997); // L427 ABSTRACT_STRING;
-      lisaac_push_first(&__5NM,L10377220); // L79 TRUE;
-      __GQI=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__0PI,L55977997); // L427 ABSTRACT_STRING;
-      lisaac_push_first(&__5NM,L11832326); // L90 FALSE;
-      lisaac_push_first(&__AQI,L55979021); // L427 ABSTRACT_STRING;
-      __CQI=__PPI->__FC;
-      lisaac_push(&__AQI,L55980557); // L427 ABSTRACT_STRING;
-      lisaac_push_first(&__I2X,L15224840); // L116 NUMERIC;
-      __GQI=(__RPI > __CQI);
+    __UGB=((____DB )(fopen((char*)(__3XY->__ZAE),"wb")));
+    if ((__UGB == (void *)NULL)) {
+      __FSC((&__string_122));
+      __FSC((&__string_125));
+      exit(( 1));
     };
-    if (__GQI) {
-      lisaac_push(&__WXJ,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__0PI,L13509636); // L103 TRUE;
-      __GQI=__J__;
+    __VXY=__TGB->__BC;
+    __3XY=((____WB *)__TGB);
+    if ((__3XY->__CBE > __3XY->__BC)) {
+      ((____4 *)__3XY->__ZAE)[__3XY->__BC]='\0';
     } else /* FALSE */ {
-      lisaac_push(&__WXJ,L11799570); // L90 BLOCK;
-      lisaac_push_first(&__0PI,L14689286); // L112 FALSE;
-      __GQI=__F__;
-    };
-    if (__GQI) {
-      lisaac_push(&__WXJ,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__0PI,L8792068); // L67 TRUE;
-      lisaac_push_first(&__5NM,L11935762); // L91 BLOCK;
-      lisaac_push_first(&__AQI,L56108045); // L428 ABSTRACT_STRING;
-      __OQI=__GCJ(__PPI,__RPI);
-      if ((__SPI ==  0)) {
-        lisaac_push(&__AQI,L57937421); // L442 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L8792068); // L67 TRUE;
-        lisaac_push_first(&__TQI,L56372749); // L430 ABSTRACT_STRING;
-        __VQI=__YQR(__OQI);
-        if (__VQI) {
-          lisaac_push(&__TQI,L56496653); // L431 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L8792068); // L67 TRUE;
-          lisaac_push_first(&__ZQI,L56375309); // L430 ABSTRACT_STRING;
-          __2QI=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__TQI,L56496653); // L431 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L8530438); // L65 FALSE;
-          __2QI=__J__;
-        };
-        if (__2QI) {
-          lisaac_push(&__TQI,L56758797); // L433 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L9326596); // L71 TRUE;
-          __2QI=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__TQI,L56758797); // L433 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L9187334); // L70 FALSE;
-          lisaac_push_first(&__ZQI,L56501261); // L431 ABSTRACT_STRING;
-          __LGW=(__OQI == '+');
-          if (__LGW) {
-            lisaac_push(&__K3S,L9570822); // L73 FALSE;
-            lisaac_push_first(&__ZQI,L8792068); // L67 TRUE;
-            lisaac_push_first(&__QGW,L9445894); // L72 FALSE;
-            lisaac_push_first(&__HRI,L56509453); // L431 ABSTRACT_STRING;
-            __SPI= 1;
-          } else /* FALSE */ {
-            lisaac_push(&__K3S,L9570822); // L73 FALSE;
-            lisaac_push_first(&__ZQI,L8530438); // L65 FALSE;
-          };
-          __2QI=__LGW;
-        };
-        if (__2QI) {
-          lisaac_push(&__TQI,L57152013); // L436 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L9326596); // L71 TRUE;
-          __2QI=__F__;
-        } else /* FALSE */ {
-          lisaac_push(&__TQI,L57152013); // L436 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L9187334); // L70 FALSE;
-          lisaac_push_first(&__ZQI,L56763405); // L433 ABSTRACT_STRING;
-          __LGW=(__OQI == '-');
-          if (__LGW) {
-            lisaac_push(&__K3S,L9570822); // L73 FALSE;
-            lisaac_push_first(&__ZQI,L8792068); // L67 TRUE;
-            lisaac_push_first(&__QGW,L9445894); // L72 FALSE;
-            lisaac_push_first(&__HRI,L56771597); // L433 ABSTRACT_STRING;
-            __UPI=__F__;
-            __SPI= 1;
-          } else /* FALSE */ {
-            lisaac_push(&__K3S,L9570822); // L73 FALSE;
-            lisaac_push_first(&__ZQI,L8530438); // L65 FALSE;
-          };
-          __2QI=__LGW;
-        };
-        if ((! __2QI)) {
-          lisaac_push(&__TQI,L57807373); // L441 ABSTRACT_STRING;
-          lisaac_push_first(&__K3S,L10362374); // L79 FALSE;
-          lisaac_push_first(&__ZQI,L57162253); // L436 ABSTRACT_STRING;
-          __2QI=__0KE(__OQI);
-          if (__2QI) {
-            lisaac_push(&__K3S,L10881542); // L83 FALSE;
-            lisaac_push_first(&__ZQI,L6825988); // L52 TRUE;
-            lisaac_push_first(&__QGW,L10494470); // L80 FALSE;
-            lisaac_push_first(&__HRI,L57296397); // L437 ABSTRACT_STRING;
-            __GSI=__RTD(__OQI);
-            __TPI=__GSI;
-            __SPI= 2;
-          } else /* FALSE */ {
-            lisaac_push(&__K3S,L10881542); // L83 FALSE;
-            lisaac_push_first(&__ZQI,L6826502); // L52 FALSE;
-            lisaac_push_first(&__QGW,L10759174); // L82 FALSE;
-            lisaac_push_first(&__HRI,L57548813); // L439 ABSTRACT_STRING;
-            __SPI= 4;
-          };
-        };
-        __VQI=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__AQI,L57937421); // L442 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L8530438); // L65 FALSE;
-        __VQI=__J__;
-      };
-      if (__VQI) {
-        lisaac_push(&__AQI,L59248141); // L452 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L9326596); // L71 TRUE;
-        __VQI=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__AQI,L59248141); // L452 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L9187334); // L70 FALSE;
-        lisaac_push_first(&__TQI,L57942029); // L442 ABSTRACT_STRING;
-        __2QI=(__SPI ==  1);
-        if (__2QI) {
-          lisaac_push(&__I2X,L9570822); // L73 FALSE;
-          lisaac_push_first(&__TQI,L8792068); // L67 TRUE;
-          lisaac_push_first(&__K3S,L9445894); // L72 FALSE;
-          lisaac_push_first(&__ZQI,L58074637); // L443 ABSTRACT_STRING;
-          __LGW=__0KE(__OQI);
-          if (__LGW) {
-            lisaac_push(&__ZQI,L59118093); // L451 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L6825988); // L52 TRUE;
-            lisaac_push_first(&__HRI,L58213901); // L444 ABSTRACT_STRING;
-            __GSI=__RTD(__OQI);
-            __TPI=__GSI;
-            if (__UPI) {
-              lisaac_push(&__HRI,L58594829); // L447 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L8792068); // L67 TRUE;
-              lisaac_push_first(&__GTI,L58469389); // L446 ABSTRACT_STRING;
-              lisaac_push_first(&__25Z,L11029512); // L84 NUMERIC;
-              lisaac_push_first(&__35Z,L9195016); // L70 NUMERIC;
-              __TPI=(____L)(- __GSI);
-            } else /* FALSE */ {
-              lisaac_push(&__HRI,L58594829); // L447 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L8530438); // L65 FALSE;
-            };
-            __SPI= 2;
-          } else /* FALSE */ {
-            lisaac_push(&__ZQI,L59118093); // L451 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L6826502); // L52 FALSE;
-            lisaac_push_first(&__HRI,L58859533); // L449 ABSTRACT_STRING;
-            __SPI= 4;
-          };
+      if ((__3XY->__CBE <= __3XY->__BC)) {
+        if ((__3XY->__CBE ==  0)) {
+          __3XY->__CBE= 32;
+          __EZY=__3NG( 32);
+          __3XY->__ZAE=__EZY;
         } else /* FALSE */ {
-          lisaac_push(&__I2X,L9570822); // L73 FALSE;
-          lisaac_push_first(&__TQI,L8530438); // L65 FALSE;
+          __FZY=(____L)(__3XY->__CBE <<  1);
+          __EZY=__SOG(((____4 *)__3XY->__ZAE),__3XY->__CBE,__FZY);
+          __3XY->__ZAE=__EZY;
+          __3XY->__CBE=__FZY;
         };
-        __VQI=__2QI;
       };
-      if (__VQI) {
-        lisaac_push(&__AQI,L61345293); // L468 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L9326596); // L71 TRUE;
-        __VQI=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__AQI,L61345293); // L468 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L9187334); // L70 FALSE;
-        lisaac_push_first(&__TQI,L59252749); // L452 ABSTRACT_STRING;
-        __2QI=(__SPI ==  2);
-        if (__2QI) {
-          lisaac_push(&__I2X,L9570822); // L73 FALSE;
-          lisaac_push_first(&__TQI,L8792068); // L67 TRUE;
-          lisaac_push_first(&__K3S,L9445894); // L72 FALSE;
-          lisaac_push_first(&__ZQI,L59385357); // L453 ABSTRACT_STRING;
-          __LGW=__0KE(__OQI);
-          if (__LGW) {
-            lisaac_push(&__ZQI,L60690957); // L463 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L8792068); // L67 TRUE;
-            lisaac_push_first(&__HRI,L59387917); // L453 ABSTRACT_STRING;
-            if (__UPI) {
-              lisaac_push(&__HRI,L60036621); // L458 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L6825988); // L52 TRUE;
-              lisaac_push_first(&__GTI,L59663373); // L455 ABSTRACT_STRING;
-              __LUI=__RTD(__OQI);
-              lisaac_push(&__GTI,L59650573); // L455 ABSTRACT_STRING;
-              lisaac_push_first(&__25Z,L9457160); // L72 NUMERIC;
-              __MUI=(____L)( 10 * __TPI);
-              lisaac_push(&__GTI,L59654669); // L455 ABSTRACT_STRING;
-              lisaac_push_first(&__25Z,L9195016); // L70 NUMERIC;
-              __TPI=(____L)(__MUI - __LUI);
-            } else /* FALSE */ {
-              lisaac_push(&__HRI,L60036621); // L458 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L6826502); // L52 FALSE;
-              lisaac_push_first(&__GTI,L59925517); // L457 ABSTRACT_STRING;
-              __LUI=__RTD(__OQI);
-              lisaac_push(&__GTI,L59912717); // L457 ABSTRACT_STRING;
-              lisaac_push_first(&__25Z,L9457160); // L72 NUMERIC;
-              __MUI=(____L)( 10 * __TPI);
-              lisaac_push(&__GTI,L59916813); // L457 ABSTRACT_STRING;
-              lisaac_push_first(&__25Z,L9990152); // L76 NUMERIC;
-              lisaac_push_first(&__35Z,L11029512); // L84 NUMERIC;
-              lisaac_push_first(&__HA0,L9195016); // L70 NUMERIC;
-              __CA0=(____L)(- __LUI);
-              lisaac_push(&__25Z,L9989128); // L76 NUMERIC;
-              lisaac_push_first(&__35Z,L9195016); // L70 NUMERIC;
-              __TPI=(____L)(__MUI - __CA0);
-            };
-            if (__UPI) {
-              lisaac_push(&__HRI,L60304909); // L460 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L10652676); // L81 TRUE;
-              lisaac_push_first(&__GTI,L60309517); // L460 ABSTRACT_STRING;
-              lisaac_push_first(&__25Z,L15224840); // L116 NUMERIC;
-              __AVI=(__TPI >  0);
-            } else /* FALSE */ {
-              lisaac_push(&__HRI,L60304909); // L460 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L12081158); // L92 FALSE;
-              __AVI=__J__;
-            };
-            if (__AVI) {
-              lisaac_push(&__HRI,L60313101); // L460 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L10377220); // L79 TRUE;
-              __AVI=__F__;
-            } else /* FALSE */ {
-              lisaac_push(&__HRI,L60313101); // L460 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L11832326); // L90 FALSE;
-              lisaac_push_first(&__GTI,L60314125); // L460 ABSTRACT_STRING;
-              if (__UPI) {
-                lisaac_push(&__GTI,L60315149); // L460 ABSTRACT_STRING;
-                lisaac_push_first(&__25Z,L13509636); // L103 TRUE;
-                __HVI=__J__;
-              } else /* FALSE */ {
-                lisaac_push(&__GTI,L60315149); // L460 ABSTRACT_STRING;
-                lisaac_push_first(&__25Z,L14689286); // L112 FALSE;
-                __HVI=__F__;
-              };
-              if (__HVI) {
-                lisaac_push(&__GTI,L60321293); // L460 ABSTRACT_STRING;
-                lisaac_push_first(&__25Z,L10652676); // L81 TRUE;
-                lisaac_push_first(&__35Z,L60325901); // L460 ABSTRACT_STRING;
-                lisaac_push_first(&__HA0,L15498248); // L118 NUMERIC;
-                lisaac_push_first(&__CK3,L16021000); // L122 NUMERIC;
-                lisaac_push_first(&__DK3,L15224840); // L116 NUMERIC;
-                __HVI=(__TPI >  0);
-                lisaac_push(&__CK3,L16030216); // L122 NUMERIC;
-                lisaac_push_first(&__DK3,L14700552); // L112 NUMERIC;
-                __IK3=(__TPI ==  0);
-                if (__HVI) {
-                  lisaac_push(&__CK3,L16025608); // L122 NUMERIC;
-                  lisaac_push_first(&__DK3,L10900996); // L83 TRUE;
-                  __KK3=__F__;
-                } else /* FALSE */ {
-                  lisaac_push(&__CK3,L16025608); // L122 NUMERIC;
-                  lisaac_push_first(&__DK3,L12342790); // L94 FALSE;
-                  __KK3=__IK3;
-                };
-                if (__KK3) {
-                  lisaac_push(&__HA0,L15493640); // L118 NUMERIC;
-                  lisaac_push_first(&__CK3,L13509636); // L103 TRUE;
-                  __KK3=__J__;
-                } else /* FALSE */ {
-                  lisaac_push(&__HA0,L15493640); // L118 NUMERIC;
-                  lisaac_push_first(&__CK3,L14689286); // L112 FALSE;
-                  __KK3=__F__;
-                };
-                __HVI=__KK3;
-              } else /* FALSE */ {
-                lisaac_push(&__GTI,L60321293); // L460 ABSTRACT_STRING;
-                lisaac_push_first(&__25Z,L12081158); // L92 FALSE;
-                __HVI=__J__;
-              };
-              __AVI=__HVI;
-            };
-            if (__AVI) {
-              lisaac_push(&__HRI,L60560909); // L462 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L8792068); // L67 TRUE;
-              lisaac_push_first(&__GTI,L60331021); // L460 ABSTRACT_STRING;
-              __SPI= 4;
-            } else /* FALSE */ {
-              lisaac_push(&__HRI,L60560909); // L462 ABSTRACT_STRING;
-              lisaac_push_first(&__BIV,L8530438); // L65 FALSE;
-            };
-            __AVI=__F__;
-          } else /* FALSE */ {
-            lisaac_push(&__ZQI,L60690957); // L463 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L8530438); // L65 FALSE;
-            __AVI=__J__;
-          };
-          if ((! __AVI)) {
-            lisaac_push(&__ZQI,L61215245); // L467 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L10362374); // L79 FALSE;
-            lisaac_push_first(&__HRI,L60703245); // L463 ABSTRACT_STRING;
-            __AVI=__YQR(__OQI);
-            if (__AVI) {
-              lisaac_push(&__QGW,L10881542); // L83 FALSE;
-              lisaac_push_first(&__HRI,L6825988); // L52 TRUE;
-              lisaac_push_first(&__BIV,L10494470); // L80 FALSE;
-              lisaac_push_first(&__GTI,L60707341); // L463 ABSTRACT_STRING;
-              __SPI= 3;
-            } else /* FALSE */ {
-              lisaac_push(&__QGW,L10881542); // L83 FALSE;
-              lisaac_push_first(&__HRI,L6826502); // L52 FALSE;
-              lisaac_push_first(&__BIV,L10759174); // L82 FALSE;
-              lisaac_push_first(&__GTI,L60956685); // L465 ABSTRACT_STRING;
-              __SPI= 4;
-            };
-          };
-        } else /* FALSE */ {
-          lisaac_push(&__I2X,L9570822); // L73 FALSE;
-          lisaac_push_first(&__TQI,L8530438); // L65 FALSE;
-        };
-        __VQI=__2QI;
-      };
-      if (__VQI) {
-        lisaac_push(&__AQI,L62000653); // L473 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L9326596); // L71 TRUE;
-      } else /* FALSE */ {
-        lisaac_push(&__AQI,L62000653); // L473 ABSTRACT_STRING;
-        lisaac_push_first(&__I2X,L9187334); // L70 FALSE;
-        lisaac_push_first(&__TQI,L61349901); // L468 ABSTRACT_STRING;
-        if ((__SPI ==  3)) {
-          lisaac_push(&__I2X,L9570822); // L73 FALSE;
-          lisaac_push_first(&__TQI,L8792068); // L67 TRUE;
-          lisaac_push_first(&__K3S,L9445894); // L72 FALSE;
-          lisaac_push_first(&__ZQI,L61484557); // L469 ABSTRACT_STRING;
-          __LGW=__YQR(__OQI);
-          if (__LGW) {
-            lisaac_push(&__ZQI,L61870605); // L472 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L6825988); // L52 TRUE;
-            lisaac_push_first(&__HRI,L61487117); // L469 ABSTRACT_STRING;
-          } else /* FALSE */ {
-            lisaac_push(&__ZQI,L61870605); // L472 ABSTRACT_STRING;
-            lisaac_push_first(&__QGW,L6826502); // L52 FALSE;
-            lisaac_push_first(&__HRI,L61612045); // L470 ABSTRACT_STRING;
-            __SPI= 4;
-          };
-        } else /* FALSE */ {
-          lisaac_push(&__I2X,L9570822); // L73 FALSE;
-          lisaac_push_first(&__TQI,L8530438); // L65 FALSE;
-        };
-      };
-      lisaac_push(&__AQI,L62266381); // L475 ABSTRACT_STRING;
-      lisaac_push_first(&__I2X,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__TQI,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__K3S,L9195016); // L70 NUMERIC;
-      __CQI=(____L)(-  1);
-      lisaac_push(&__I2X,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__TQI,L9195016); // L70 NUMERIC;
-      __RPI=(____L)(__RPI - __CQI);
-      lisaac_push(&__5NM,L12068370); // L92 BLOCK;
-      goto __VXJ;
-    } else /* FALSE */ {
-      lisaac_push(&__WXJ,L12192274); // L93 BLOCK;
-      lisaac_push_first(&__0PI,L8530438); // L65 FALSE;
+      ((____4 *)__3XY->__ZAE)[__3XY->__BC]='\0';
+      __3XY->__BC=(____L)(__3XY->__BC +  1);
+      __3XY->__BC=(____L)(__3XY->__BC -  1);
     };
+    fwrite((void *)((__3XY->__ZAE)),(size_t)(1), (size_t)((__VXY)),(FILE*)((__UGB)));
+    fclose((FILE*)((__UGB)));
   };
-  if ((__SPI !=  0)) {
-    lisaac_push(&__OPI,L62532109); // L477 ABSTRACT_STRING;
-    lisaac_push_first(&__WXJ,L10652676); // L81 TRUE;
-    lisaac_push_first(&__0PI,L62533133); // L477 ABSTRACT_STRING;
-    __GQI=(__SPI !=  4);
-  } else /* FALSE */ {
-    lisaac_push(&__OPI,L62532109); // L477 ABSTRACT_STRING;
-    lisaac_push_first(&__WXJ,L12081158); // L92 FALSE;
-    __GQI=__J__;
-  };
-  if (__GQI) {
-    lisaac_push(&__OPI,L62786061); // L479 ABSTRACT_STRING;
-    lisaac_push_first(&__WXJ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0PI,L62542349); // L477 ABSTRACT_STRING;
-    __VPI=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__OPI,L62786061); // L479 ABSTRACT_STRING;
-    lisaac_push_first(&__WXJ,L8530438); // L65 FALSE;
-  };
-  __QPI=__VPI;
-  return(__QPI);
-}
-
-static ____G __YQR(____4 __0QR)
-// ({__4}) With result No recursive, No inlinable.
-{
-  _____CONTEXT __ZQR,__B1R,__ARR;
-  ____G __HSR,__1QR;
-  lisaac_push_first(&__ZQR,L43393040); // L331 CHARACTER;
-  if ((__0QR == ' ')) {
-    lisaac_push(&__ZQR,L43787280); // L334 CHARACTER;
-    lisaac_push_first(&__B1R,L10377220); // L79 TRUE;
-    __HSR=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZQR,L43787280); // L334 CHARACTER;
-    lisaac_push_first(&__B1R,L11832326); // L90 FALSE;
-    lisaac_push_first(&__ARR,L43788304); // L334 CHARACTER;
-    __HSR=(__0QR == '\t');
-  };
-  if (__HSR) {
-    lisaac_push(&__ZQR,L43795984); // L334 CHARACTER;
-    lisaac_push_first(&__B1R,L10377220); // L79 TRUE;
-    __HSR=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZQR,L43795984); // L334 CHARACTER;
-    lisaac_push_first(&__B1R,L11832326); // L90 FALSE;
-    lisaac_push_first(&__ARR,L43797008); // L334 CHARACTER;
-    __HSR=(__0QR == '\n');
-  };
-  if (__HSR) {
-    lisaac_push(&__ZQR,L43803664); // L334 CHARACTER;
-    lisaac_push_first(&__B1R,L10377220); // L79 TRUE;
-    __HSR=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZQR,L43803664); // L334 CHARACTER;
-    lisaac_push_first(&__B1R,L11832326); // L90 FALSE;
-    lisaac_push_first(&__ARR,L43911696); // L335 CHARACTER;
-    __HSR=(__0QR == '\r');
-  };
-  if (__HSR) {
-    lisaac_push(&__ZQR,L43918352); // L335 CHARACTER;
-    lisaac_push_first(&__B1R,L10377220); // L79 TRUE;
-    __HSR=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZQR,L43918352); // L335 CHARACTER;
-    lisaac_push_first(&__B1R,L11832326); // L90 FALSE;
-    lisaac_push_first(&__ARR,L43919376); // L335 CHARACTER;
-    __HSR=(__0QR == '\0');
-  };
-  if (__HSR) {
-    lisaac_push(&__ZQR,L43927056); // L335 CHARACTER;
-    lisaac_push_first(&__B1R,L10377220); // L79 TRUE;
-    __HSR=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZQR,L43927056); // L335 CHARACTER;
-    lisaac_push_first(&__B1R,L11832326); // L90 FALSE;
-    lisaac_push_first(&__ARR,L43928080); // L335 CHARACTER;
-    __HSR=(__0QR == '\f');
-  };
-  if (__HSR) {
-    lisaac_push(&__ZQR,L43934736); // L335 CHARACTER;
-    lisaac_push_first(&__B1R,L10377220); // L79 TRUE;
-    __HSR=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZQR,L43934736); // L335 CHARACTER;
-    lisaac_push_first(&__B1R,L11832326); // L90 FALSE;
-    lisaac_push_first(&__ARR,L43935760); // L335 CHARACTER;
-    __HSR=(__0QR == '\v');
-  };
-  __1QR=__HSR;
-  return(__1QR);
-}
-
-static ____L __RTD(____4 __TTD)
-// ({__4}) With result No recursive, No inlinable.
-{
-  ____DB __E0D;
-  ____L __A1D,__VTD,__UTD;
-  _____CONTEXT __STD,__C0D,__RCE,__N0D,__ZTD,__N4M,__DRN,__V4M,__BPZ;
-  _____CONTEXT __US4,__VS4;
-  ____G __1TD,__Q0D,__ZS4,__1S4;
-  ____01 __B1D;
-  lisaac_push_first(&__STD,L23464464); // L179 CHARACTER;
-  lisaac_push_first(&__C0D,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__RCE,L7481858); // L57 OBJECT;
-  __E0D=((____DB )(top_context->back->back));
-  lisaac_push(&__C0D,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__RCE,L10652676); // L81 TRUE;
-  lisaac_push_first(&__N0D,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__ZTD,L23469584); // L179 CHARACTER;
-  __1TD=__0KE(__TTD);
-  if (__1TD) {
-    lisaac_push(&__N0D,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ZTD,L13509636); // L103 TRUE;
-    __Q0D=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__N0D,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ZTD,L14689286); // L112 FALSE;
-    __Q0D=__F__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__C0D,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__RCE,L8792068); // L67 TRUE;
-    lisaac_push_first(&__N0D,L19289106); // L147 BLOCK;
-    lisaac_push(&__N0D,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__ZTD,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__N4M,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__DRN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__V4M,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__E0D));
-    lisaac_push(&__ZTD,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__ZTD,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__N4M,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__DRN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__V4M,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__BPZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__ZTD,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__N4M,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__DRN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__C0D,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__RCE,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__STD,L23605776); // L180 CHARACTER;
-  lisaac_push_first(&__C0D,L7479312); // L57 CHARACTER;
-  lisaac_push_first(&__RCE,L8663056); // L66 CHARACTER;
-  lisaac_push_first(&__N0D,L9339920); // L71 CHARACTER;
-  lisaac_push_first(&__ZTD,L4069927); // L31 CONVERT;
-  __B1D=((____01 )__TTD);
-  lisaac_push(&__C0D,L7484944); // L57 CHARACTER;
-  lisaac_push_first(&__RCE,L53366792); // L407 NUMERIC;
-  lisaac_push_first(&__N0D,L67015176); // L511 NUMERIC;
-  lisaac_push_first(&__ZTD,L4069927); // L31 CONVERT;
-  __A1D=((____L )__B1D);
-  lisaac_push(&__C0D,L7604752); // L58 CHARACTER;
-  lisaac_push_first(&__RCE,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__N0D,L7481858); // L57 OBJECT;
-  __E0D=((____DB )(top_context->back->back));
-  lisaac_push(&__RCE,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__N0D,L10652676); // L81 TRUE;
-  lisaac_push_first(&__ZTD,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__N4M,L7635472); // L58 CHARACTER;
-  lisaac_push_first(&__DRN,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__V4M,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__BPZ,L15224840); // L116 NUMERIC;
-  if (( -127 > __A1D)) {
-    lisaac_push(&__V4M,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__BPZ,L13509636); // L103 TRUE;
-    __Q0D=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__V4M,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__BPZ,L14689286); // L112 FALSE;
-    __Q0D=__F__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__DRN,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__V4M,L10652676); // L81 TRUE;
-    lisaac_push_first(&__BPZ,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__US4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__VS4,L15224840); // L116 NUMERIC;
-    __Q0D=( 127 > __A1D);
-    lisaac_push(&__US4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__VS4,L14700552); // L112 NUMERIC;
-    __ZS4=( 127 == __A1D);
-    if (__Q0D) {
-      lisaac_push(&__US4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__VS4,L10900996); // L83 TRUE;
-      __1S4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__US4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__VS4,L12342790); // L94 FALSE;
-      __1S4=__ZS4;
-    };
-    __Q0D=__1S4;
-  } else /* FALSE */ {
-    lisaac_push(&__DRN,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__V4M,L12081158); // L92 FALSE;
-    __Q0D=__J__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__ZTD,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__N4M,L13509636); // L103 TRUE;
-    __Q0D=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ZTD,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__N4M,L14689286); // L112 FALSE;
-    __Q0D=__F__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__RCE,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__N0D,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ZTD,L19289106); // L147 BLOCK;
-    lisaac_push(&__ZTD,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__N4M,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__DRN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__V4M,L8792068); // L67 TRUE;
-    lisaac_push_first(&__BPZ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__E0D));
-    lisaac_push(&__N4M,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__N4M,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__DRN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__V4M,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__BPZ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__US4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__N4M,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__DRN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__V4M,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__RCE,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__N0D,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__STD,L23606288); // L180 CHARACTER;
-  lisaac_push_first(&__C0D,L9195016); // L70 NUMERIC;
-  __VTD=(____L)(__A1D -  48);
-  lisaac_push(&__STD,L23726608); // L181 CHARACTER;
-  lisaac_push_first(&__C0D,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__RCE,L7481858); // L57 OBJECT;
-  __E0D=((____DB )(top_context->back->back));
-  lisaac_push(&__C0D,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__RCE,L10652676); // L81 TRUE;
-  lisaac_push_first(&__N0D,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__ZTD,L23738896); // L181 CHARACTER;
-  lisaac_push_first(&__N4M,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__DRN,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__V4M,L15224840); // L116 NUMERIC;
-  if (( 0 > __VTD)) {
-    lisaac_push(&__DRN,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__V4M,L13509636); // L103 TRUE;
-    __Q0D=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__DRN,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__V4M,L14689286); // L112 FALSE;
-    __Q0D=__F__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__N4M,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__DRN,L10652676); // L81 TRUE;
-    lisaac_push_first(&__V4M,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__BPZ,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__US4,L15224840); // L116 NUMERIC;
-    __Q0D=( 9 > __VTD);
-    lisaac_push(&__BPZ,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__US4,L14700552); // L112 NUMERIC;
-    __ZS4=( 9 == __VTD);
-    if (__Q0D) {
-      lisaac_push(&__BPZ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__US4,L10900996); // L83 TRUE;
-      __1S4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__BPZ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__US4,L12342790); // L94 FALSE;
-      __1S4=__ZS4;
-    };
-    __Q0D=__1S4;
-  } else /* FALSE */ {
-    lisaac_push(&__N4M,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__DRN,L12081158); // L92 FALSE;
-    __Q0D=__J__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__N0D,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ZTD,L13509636); // L103 TRUE;
-    __Q0D=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__N0D,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ZTD,L14689286); // L112 FALSE;
-    __Q0D=__F__;
-  };
-  if (__Q0D) {
-    lisaac_push(&__C0D,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__RCE,L8792068); // L67 TRUE;
-    lisaac_push_first(&__N0D,L19289106); // L147 BLOCK;
-    lisaac_push(&__N0D,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__ZTD,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__N4M,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__DRN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__V4M,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__E0D));
-    lisaac_push(&__ZTD,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__ZTD,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__N4M,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__DRN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__V4M,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__BPZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__ZTD,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__N4M,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__DRN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__C0D,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__RCE,L8530438); // L65 FALSE;
-  };
-  __UTD=__VTD;
-  return(__UTD);
-}
-
-static ____G __0KE(____4 __2KE)
-// ({__4}) With result No recursive, No inlinable.
-{
-  ____DB __UME;
-  _____CONTEXT __1KE,__RK3,__SK3,__TK3,__UK3,__GL3,__HL3,__I3X,__L3X;
-  _____CONTEXT __N3X,__43X,__A4X;
-  ____G __4KE,__3K3,__5K3,__BL3,__RL3,__3KE;
-  ____01 __WK3,__0K3,__JL3,__NL3;
-  lisaac_push_first(&__1KE,L35526672); // L271 CHARACTER;
-  __4KE=__J__;
-  lisaac_push(&__1KE,L35919888); // L274 CHARACTER;
-  lisaac_push_first(&__RK3,L22703120); // L173 CHARACTER;
-  lisaac_push_first(&__SK3,L8663056); // L66 CHARACTER;
-  lisaac_push_first(&__TK3,L9339920); // L71 CHARACTER;
-  lisaac_push_first(&__UK3,L4069927); // L31 CONVERT;
-  __WK3=((____01 )__2KE);
-  lisaac_push(&__RK3,L22710288); // L173 CHARACTER;
-  lisaac_push_first(&__SK3,L8663056); // L66 CHARACTER;
-  lisaac_push_first(&__TK3,L9339920); // L71 CHARACTER;
-  lisaac_push_first(&__UK3,L4069927); // L31 CONVERT;
-  __0K3=((____01 )'0');
-  lisaac_push(&__RK3,L22704144); // L173 CHARACTER;
-  lisaac_push_first(&__SK3,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__TK3,L15224840); // L116 NUMERIC;
-  __3K3=(__WK3 > __0K3);
-  lisaac_push(&__SK3,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__TK3,L14700552); // L112 NUMERIC;
-  __5K3=(__WK3 == __0K3);
-  if (__3K3) {
-    lisaac_push(&__SK3,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__TK3,L10900996); // L83 TRUE;
-    __BL3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__SK3,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__TK3,L12342790); // L94 FALSE;
-    __BL3=__5K3;
-  };
-  if (__BL3) {
-    lisaac_push(&__1KE,L36178448); // L276 CHARACTER;
-    lisaac_push_first(&__RK3,L8792068); // L67 TRUE;
-    lisaac_push_first(&__SK3,L36057104); // L275 CHARACTER;
-    lisaac_push_first(&__TK3,L21916688); // L167 CHARACTER;
-    lisaac_push_first(&__UK3,L8663056); // L66 CHARACTER;
-    lisaac_push_first(&__GL3,L9339920); // L71 CHARACTER;
-    lisaac_push_first(&__HL3,L4069927); // L31 CONVERT;
-    __JL3=((____01 )__2KE);
-    lisaac_push(&__TK3,L21923856); // L167 CHARACTER;
-    lisaac_push_first(&__UK3,L8663056); // L66 CHARACTER;
-    lisaac_push_first(&__GL3,L9339920); // L71 CHARACTER;
-    lisaac_push_first(&__HL3,L4069927); // L31 CONVERT;
-    __NL3=((____01 )'9');
-    lisaac_push(&__TK3,L21917712); // L167 CHARACTER;
-    lisaac_push_first(&__UK3,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__GL3,L15224840); // L116 NUMERIC;
-    if ((__JL3 > __NL3)) {
-      lisaac_push(&__UK3,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__GL3,L13509636); // L103 TRUE;
-      __RL3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__UK3,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__GL3,L14689286); // L112 FALSE;
-      __RL3=__F__;
-    };
-    __4KE=__RL3;
-  } else /* FALSE */ {
-    lisaac_push(&__1KE,L36178448); // L276 CHARACTER;
-    lisaac_push_first(&__RK3,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__1KE,L36309520); // L277 CHARACTER;
-  lisaac_push_first(&__RK3,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__SK3,L7481858); // L57 OBJECT;
-  __UME=((____DB )(top_context->back->back));
-  lisaac_push(&__RK3,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__SK3,L10652676); // L81 TRUE;
-  lisaac_push_first(&__TK3,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__UK3,L36324880); // L277 CHARACTER;
-  lisaac_push_first(&__GL3,L5275664); // L40 CHARACTER;
-  lisaac_push_first(&__HL3,L22703120); // L173 CHARACTER;
-  lisaac_push_first(&__I3X,L8663056); // L66 CHARACTER;
-  lisaac_push_first(&__L3X,L9339920); // L71 CHARACTER;
-  lisaac_push_first(&__N3X,L4069927); // L31 CONVERT;
-  __WK3=((____01 )__2KE);
-  lisaac_push(&__HL3,L22710288); // L173 CHARACTER;
-  lisaac_push_first(&__I3X,L8663056); // L66 CHARACTER;
-  lisaac_push_first(&__L3X,L9339920); // L71 CHARACTER;
-  lisaac_push_first(&__N3X,L4069927); // L31 CONVERT;
-  __0K3=((____01 )'0');
-  lisaac_push(&__HL3,L22704144); // L173 CHARACTER;
-  lisaac_push_first(&__I3X,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__L3X,L15224840); // L116 NUMERIC;
-  __3K3=(__WK3 > __0K3);
-  lisaac_push(&__I3X,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__L3X,L14700552); // L112 NUMERIC;
-  __5K3=(__WK3 == __0K3);
-  if (__3K3) {
-    lisaac_push(&__I3X,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__L3X,L10900996); // L83 TRUE;
-    __BL3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__I3X,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__L3X,L12342790); // L94 FALSE;
-    __BL3=__5K3;
-  };
-  if (__BL3) {
-    lisaac_push(&__GL3,L5279760); // L40 CHARACTER;
-    lisaac_push_first(&__HL3,L10652676); // L81 TRUE;
-    lisaac_push_first(&__I3X,L5283856); // L40 CHARACTER;
-    lisaac_push_first(&__L3X,L21916688); // L167 CHARACTER;
-    lisaac_push_first(&__N3X,L8663056); // L66 CHARACTER;
-    lisaac_push_first(&__43X,L9339920); // L71 CHARACTER;
-    lisaac_push_first(&__A4X,L4069927); // L31 CONVERT;
-    __JL3=((____01 )__2KE);
-    lisaac_push(&__L3X,L21923856); // L167 CHARACTER;
-    lisaac_push_first(&__N3X,L8663056); // L66 CHARACTER;
-    lisaac_push_first(&__43X,L9339920); // L71 CHARACTER;
-    lisaac_push_first(&__A4X,L4069927); // L31 CONVERT;
-    __NL3=((____01 )'9');
-    lisaac_push(&__L3X,L21917712); // L167 CHARACTER;
-    lisaac_push_first(&__N3X,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__43X,L15224840); // L116 NUMERIC;
-    if ((__JL3 > __NL3)) {
-      lisaac_push(&__N3X,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__43X,L13509636); // L103 TRUE;
-      __RL3=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__N3X,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__43X,L14689286); // L112 FALSE;
-      __RL3=__F__;
-    };
-    __BL3=__RL3;
-  } else /* FALSE */ {
-    lisaac_push(&__GL3,L5279760); // L40 CHARACTER;
-    lisaac_push_first(&__HL3,L12081158); // L92 FALSE;
-    __BL3=__J__;
-  };
-  if ((__4KE == __BL3)) {
-    lisaac_push(&__TK3,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__UK3,L13509636); // L103 TRUE;
-    __BL3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__TK3,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__UK3,L14689286); // L112 FALSE;
-    __BL3=__F__;
-  };
-  if (__BL3) {
-    lisaac_push(&__RK3,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__SK3,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TK3,L19289106); // L147 BLOCK;
-    lisaac_push(&__TK3,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__UK3,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__GL3,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__HL3,L8792068); // L67 TRUE;
-    lisaac_push_first(&__I3X,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__UME));
-    lisaac_push(&__UK3,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__UK3,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__GL3,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__HL3,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__I3X,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__L3X,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__UK3,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__GL3,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__HL3,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__RK3,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__SK3,L8530438); // L65 FALSE;
-  };
-  __3KE=__4KE;
-  return(__3KE);
 }
 
-static void __KOQ(____L __MOQ)
-// ({__L}) Void Recursive, No inlinable.
+static void __1VH(____WB *__2VH)
+// ({__WB}) Void No recursive, No inlinable.
 {
-  ____DB __AIR;
-  ____L __3IR,__5IR;
-  _____CONTEXT __LOQ,__4HR,__3SR,__JIR,__QOQ,__YJS,__ANS,__QXX,__EZZ;
-  _____CONTEXT __5D4,__AE4;
-  ____G __ENS,__5JS,__AKS,__EE4,__GE4;
-  ____01 __OJR,__PJR,__VLD;
-  ____4 __SJR;
-  lisaac_push_first(&__LOQ,L74583047); // L569 INTEGER;
-  lisaac_push_first(&__4HR,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__3SR,L7481858); // L57 OBJECT;
-  __AIR=((____DB )(top_context->back->back));
-  lisaac_push(&__4HR,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__3SR,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JIR,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__QOQ,L74588167); // L569 INTEGER;
-  lisaac_push_first(&__YJS,L13663752); // L104 NUMERIC;
-  lisaac_push_first(&__ANS,L12876296); // L98 NUMERIC;
-  lisaac_push_first(&__QXX,L15224840); // L116 NUMERIC;
-  __ENS=(__MOQ >  0);
-  lisaac_push(&__YJS,L13673480); // L104 NUMERIC;
-  lisaac_push_first(&__ANS,L13915656); // L106 NUMERIC;
-  __5JS=(__MOQ ==  0);
-  if (__ENS) {
-    lisaac_push(&__YJS,L13668360); // L104 NUMERIC;
-    lisaac_push_first(&__ANS,L10900996); // L83 TRUE;
-    __AKS=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__YJS,L13668360); // L104 NUMERIC;
-    lisaac_push_first(&__ANS,L12342790); // L94 FALSE;
-    __AKS=__5JS;
+  ____L __DWH,__G5J;
+  ____4 *__BWH,*__ETX;
+  __BWH=__2VH->__ZAE;
+  __DWH=(____L)(__2VH->__BC -  1);
+  __ETX=((____4 *)__BWH);
+  __G5J=__DWH;
+  while ((__G5J >=  0)) {
+    if (('\\' == __ETX[__G5J])) {
+      __ETX[__G5J]='/';
+    };
+    __G5J=(____L)(__G5J -  1);
   };
-  if (__AKS) {
-    lisaac_push(&__JIR,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__QOQ,L13509636); // L103 TRUE;
-    __AKS=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__JIR,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__QOQ,L14689286); // L112 FALSE;
-    __AKS=__F__;
-  };
-  if (__AKS) {
-    lisaac_push(&__4HR,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__3SR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JIR,L21910546); // L167 BLOCK;
-    lisaac_push(&__JIR,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__QOQ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__YJS,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__ANS,L8792068); // L67 TRUE;
-    lisaac_push_first(&__QXX,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__AIR));
-    lisaac_push(&__QOQ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__QOQ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__YJS,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__ANS,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__QXX,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__EZZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__QOQ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__YJS,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__ANS,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__4HR,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__3SR,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__LOQ,L75113991); // L573 INTEGER;
-  lisaac_push_first(&__4HR,L8790535); // L67 INTEGER;
-  lisaac_push_first(&__3SR,L9719304); // L74 NUMERIC;
-  __3IR=(____L)(__MOQ /  10);
-  lisaac_push(&__4HR,L8795143); // L67 INTEGER;
-  lisaac_push_first(&__3SR,L9457160); // L72 NUMERIC;
-  __5IR=(____L)(__3IR *  10);
-  lisaac_push(&__4HR,L8785927); // L67 INTEGER;
-  lisaac_push_first(&__3SR,L9195016); // L70 NUMERIC;
-  __3IR=(____L)(__MOQ - __5IR);
-  lisaac_push(&__LOQ,L75123207); // L573 INTEGER;
-  lisaac_push_first(&__4HR,L52169735); // L398 INTEGER;
-  lisaac_push_first(&__3SR,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__JIR,L7481858); // L57 OBJECT;
-  __AIR=((____DB )(top_context->back->back));
-  lisaac_push(&__3SR,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__JIR,L10652676); // L81 TRUE;
-  lisaac_push_first(&__QOQ,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__YJS,L52178439); // L398 INTEGER;
-  lisaac_push_first(&__ANS,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__QXX,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__EZZ,L15224840); // L116 NUMERIC;
-  if (( 0 > __3IR)) {
-    lisaac_push(&__QXX,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__EZZ,L13509636); // L103 TRUE;
-    __AKS=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__QXX,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__EZZ,L14689286); // L112 FALSE;
-    __AKS=__F__;
-  };
-  if (__AKS) {
-    lisaac_push(&__ANS,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__QXX,L10652676); // L81 TRUE;
-    lisaac_push_first(&__EZZ,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__5D4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__AE4,L15224840); // L116 NUMERIC;
-    __AKS=( 9 > __3IR);
-    lisaac_push(&__5D4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__AE4,L14700552); // L112 NUMERIC;
-    __EE4=( 9 == __3IR);
-    if (__AKS) {
-      lisaac_push(&__5D4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__AE4,L10900996); // L83 TRUE;
-      __GE4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__5D4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__AE4,L12342790); // L94 FALSE;
-      __GE4=__EE4;
-    };
-    __AKS=__GE4;
-  } else /* FALSE */ {
-    lisaac_push(&__ANS,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__QXX,L12081158); // L92 FALSE;
-    __AKS=__J__;
-  };
-  if (__AKS) {
-    lisaac_push(&__QOQ,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YJS,L13509636); // L103 TRUE;
-    __AKS=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__QOQ,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__YJS,L14689286); // L112 FALSE;
-    __AKS=__F__;
-  };
-  if (__AKS) {
-    lisaac_push(&__3SR,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__JIR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__QOQ,L21910546); // L167 BLOCK;
-    lisaac_push(&__QOQ,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__YJS,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__ANS,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__QXX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__EZZ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__AIR));
-    lisaac_push(&__YJS,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__YJS,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__ANS,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__QXX,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__EZZ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__5D4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YJS,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__ANS,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__QXX,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__3SR,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__JIR,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__4HR,L52571655); // L401 INTEGER;
-  lisaac_push_first(&__3SR,L54133768); // L413 NUMERIC;
-  lisaac_push_first(&__JIR,L68850184); // L525 NUMERIC;
-  lisaac_push_first(&__QOQ,L4069927); // L31 CONVERT;
-  __OJR=((____01 )__3IR);
-  lisaac_push(&__4HR,L52576775); // L401 INTEGER;
-  lisaac_push_first(&__3SR,L8663056); // L66 CHARACTER;
-  lisaac_push_first(&__JIR,L9339920); // L71 CHARACTER;
-  lisaac_push_first(&__QOQ,L4069927); // L31 CONVERT;
-  __PJR=((____01 )'0');
-  lisaac_push(&__4HR,L52572167); // L401 INTEGER;
-  lisaac_push_first(&__3SR,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__JIR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__QOQ,L5383176); // L41 NUMERIC;
-  lisaac_push(&__JIR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__QOQ,L9195016); // L70 NUMERIC;
-  __VLD=(____01)(- __PJR);
-  lisaac_push(&__3SR,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__JIR,L9195016); // L70 NUMERIC;
-  __PJR=(____01)(__OJR - __VLD);
-  lisaac_push(&__4HR,L52691975); // L402 INTEGER;
-  lisaac_push_first(&__3SR,L8134693); // L62 INTEGER_8;
-  __SJR=((____4 )((__PJR)));
-  lisaac_push(&__4HR,L52956167); // L404 INTEGER;
-  lisaac_push_first(&__3SR,L24393746); // L186 BLOCK;
-  lisaac_push_first(&__JIR,L7481858); // L57 OBJECT;
-  __AIR=((____DB )(top_context->back->back));
-  lisaac_push(&__3SR,L24524306); // L187 BLOCK;
-  lisaac_push_first(&__JIR,L10652676); // L81 TRUE;
-  lisaac_push_first(&__QOQ,L24528914); // L187 BLOCK;
-  lisaac_push_first(&__YJS,L52957191); // L404 INTEGER;
-  lisaac_push(&__YJS,L52968967); // L404 INTEGER;
-  __ENS=__HTD(__SJR);
-  if (__ENS) {
-    lisaac_push(&__QOQ,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__YJS,L13509636); // L103 TRUE;
-    __AKS=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__QOQ,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__YJS,L14689286); // L112 FALSE;
-    __AKS=__F__;
-  };
-  if (__AKS) {
-    lisaac_push(&__3SR,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__JIR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__QOQ,L24532498); // L187 BLOCK;
-    lisaac_push(&__QOQ,L24672274); // L188 BLOCK;
-    lisaac_push_first(&__YJS,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__ANS,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__QXX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__EZZ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__AIR));
-    lisaac_push(&__YJS,L9574914); // L73 OBJECT;
-    __DX((&__string_114));
-    lisaac_push(&__YJS,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__ANS,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__QXX,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__EZZ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__5D4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YJS,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__ANS,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__QXX,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__3SR,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__JIR,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__4HR,L53087239); // L405 INTEGER;
-  lisaac_push_first(&__3SR,L24393746); // L186 BLOCK;
-  lisaac_push_first(&__JIR,L7481858); // L57 OBJECT;
-  __AIR=((____DB )(top_context->back->back));
-  lisaac_push(&__3SR,L24524306); // L187 BLOCK;
-  lisaac_push_first(&__JIR,L10652676); // L81 TRUE;
-  lisaac_push_first(&__QOQ,L24528914); // L187 BLOCK;
-  lisaac_push_first(&__YJS,L53099015); // L405 INTEGER;
-  __5IR=__RTD(__SJR);
-  if ((__5IR == __3IR)) {
-    lisaac_push(&__QOQ,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__YJS,L13509636); // L103 TRUE;
-    __AKS=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__QOQ,L24525842); // L187 BLOCK;
-    lisaac_push_first(&__YJS,L14689286); // L112 FALSE;
-    __AKS=__F__;
-  };
-  if (__AKS) {
-    lisaac_push(&__3SR,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__JIR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__QOQ,L24532498); // L187 BLOCK;
-    lisaac_push(&__QOQ,L24672274); // L188 BLOCK;
-    lisaac_push_first(&__YJS,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__ANS,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__QXX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__EZZ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__AIR));
-    lisaac_push(&__YJS,L9574914); // L73 OBJECT;
-    __DX((&__string_114));
-    lisaac_push(&__YJS,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__ANS,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__QXX,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__EZZ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__5D4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YJS,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__ANS,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__QXX,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__3SR,L24775186); // L189 BLOCK;
-    lisaac_push_first(&__JIR,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__LOQ,L75244551); // L574 INTEGER;
-  lisaac_push_first(&__4HR,L9719304); // L74 NUMERIC;
-  __3IR=(____L)(__MOQ /  10);
-  if ((__3IR !=  0)) {
-    lisaac_push(&__LOQ,L75631111); // L577 INTEGER;
-    lisaac_push_first(&__4HR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__3SR,L75509255); // L576 INTEGER;
-    __KOQ(__3IR);
-  } else /* FALSE */ {
-    lisaac_push(&__LOQ,L75631111); // L577 INTEGER;
-    lisaac_push_first(&__4HR,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__LOQ,L75766791); // L578 INTEGER;
-  lisaac_push_first(&__4HR,L10896400); // L83 CHARACTER;
-  lisaac_push_first(&__3SR,L5005342); // L38 STD_OUTPUT;
-  lisaac_push_first(&__JIR,L18378271); // L140 OUTPUT_STREAM;
-  lisaac_push_first(&__QOQ,L6962199); // L53 SYSTEM_IO;
-  fputc((int)(__SJR),stdout);
 }
 
-static ____L __LQC(____4 *__NQC,____4 __OQC,____L __PQC)
-// ({__HB},{__4},{__L}) With result No recursive, No inlinable.
+static void __JRI(____WB *__KRI,____L __LRI)
+// ({__WB},{__L}) Void No recursive, No inlinable.
 {
-  ____DB __4UC;
-  ____L __WQC,__ZVC,__G0Z,__QQC;
-  _____CONTEXT __MQC,__2UC,__C0C,__HVC,__UQC,__0HZ,__1HZ,__DZM,__DIZ;
-  _____CONTEXT __L0Z;
-  ____G __H01,__J01,__L01,__S01,__U01,__W01;
-  ____4 __BRC;
-  lisaac_push_first(&__MQC,L93326357); // L712 NATIVE_ARRAY;
-  lisaac_push_first(&__2UC,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__C0C,L7481858); // L57 OBJECT;
-  __4UC=((____DB )(top_context->back->back));
-  lisaac_push(&__2UC,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__C0C,L10652676); // L81 TRUE;
-  lisaac_push_first(&__HVC,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__UQC,L93332501); // L712 NATIVE_ARRAY;
-  lisaac_push_first(&__0HZ,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__1HZ,L9195016); // L70 NUMERIC;
-  __WQC=(____L)(-  1);
-  lisaac_push(&__UQC,L93331477); // L712 NATIVE_ARRAY;
-  lisaac_push_first(&__0HZ,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__1HZ,L15224840); // L116 NUMERIC;
-  __H01=(__PQC > __WQC);
-  lisaac_push(&__0HZ,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__1HZ,L14700552); // L112 NUMERIC;
-  __J01=(__PQC == __WQC);
-  if (__H01) {
-    lisaac_push(&__0HZ,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1HZ,L10900996); // L83 TRUE;
-    __L01=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__0HZ,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1HZ,L12342790); // L94 FALSE;
-    __L01=__J01;
-  };
-  if (__L01) {
-    lisaac_push(&__HVC,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__UQC,L13509636); // L103 TRUE;
-    __L01=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__HVC,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__UQC,L14689286); // L112 FALSE;
-    __L01=__F__;
-  };
-  if (__L01) {
-    lisaac_push(&__2UC,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__C0C,L8792068); // L67 TRUE;
-    lisaac_push_first(&__HVC,L21910546); // L167 BLOCK;
-    lisaac_push(&__HVC,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__UQC,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__0HZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1HZ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__DZM,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__4UC));
-    lisaac_push(&__UQC,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__UQC,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__0HZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1HZ,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__DZM,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__DIZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__UQC,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__0HZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1HZ,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__2UC,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__C0C,L8530438); // L65 FALSE;
-  };
-  __WQC= 0;
-  lisaac_push(&__MQC,L94374421); // L720 NATIVE_ARRAY;
-  __ZVC=__PQC;
-  lisaac_push_first(&__2UC,L22172680); // L169 NUMERIC;
-  __XVC:
-  {
-    lisaac_push(&__2UC,L22550536); // L172 NUMERIC;
-    lisaac_push_first(&__C0C,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__HVC,L15224840); // L116 NUMERIC;
-    __S01=(__ZVC >  0);
-    lisaac_push(&__C0C,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__HVC,L14700552); // L112 NUMERIC;
-    __U01=(__ZVC ==  0);
-    if (__S01) {
-      lisaac_push(&__C0C,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__HVC,L10900996); // L83 TRUE;
-      __W01=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__C0C,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__HVC,L12342790); // L94 FALSE;
-      __W01=__U01;
-    };
-    if (__W01) {
-      lisaac_push(&__2UC,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__C0C,L8792068); // L67 TRUE;
-      lisaac_push_first(&__HVC,L22685704); // L173 NUMERIC;
-      lisaac_push_first(&__UQC,L93990421); // L717 NATIVE_ARRAY;
-      __BRC=__LVD(__NQC,__ZVC);
-      if ((__OQC == __BRC)) {
-        lisaac_push(&__UQC,L94244373); // L719 NATIVE_ARRAY;
-        lisaac_push_first(&__0HZ,L8792068); // L67 TRUE;
-        lisaac_push_first(&__1HZ,L94118421); // L718 NATIVE_ARRAY;
-        lisaac_push_first(&__DZM,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__DIZ,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__L0Z,L9195016); // L70 NUMERIC;
-        __G0Z=(____L)(-  1);
-        lisaac_push(&__DZM,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__DIZ,L9195016); // L70 NUMERIC;
-        __WQC=(____L)(__WQC - __G0Z);
+  ____4 *__QSI;
+  if ((! (__LRI <= __KRI->__BC))) {
+    if ((__KRI->__CBE < __LRI)) {
+      if ((__KRI->__CBE ==  0)) {
+        __QSI=__3NG(__LRI);
+        __KRI->__ZAE=__QSI;
       } else /* FALSE */ {
-        lisaac_push(&__UQC,L94244373); // L719 NATIVE_ARRAY;
-        lisaac_push_first(&__0HZ,L8530438); // L65 FALSE;
+        __QSI=__SOG(((____4 *)__KRI->__ZAE),__KRI->__CBE,__LRI);
+        __KRI->__ZAE=__QSI;
       };
-      lisaac_push(&__HVC,L22812680); // L174 NUMERIC;
-      lisaac_push_first(&__UQC,L9195016); // L70 NUMERIC;
-      __G0Z=(____L)(__ZVC -  1);
-      lisaac_push(&__HVC,L22826504); // L174 NUMERIC;
-      __ZVC=__G0Z;
-      goto __XVC;
+      __KRI->__CBE=__LRI;
     } else /* FALSE */ {
-      lisaac_push(&__2UC,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__C0C,L8530438); // L65 FALSE;
+      __XHI(((____4 *)__KRI->__ZAE),__KRI->__BC,(____L)(__LRI -  1));
     };
   };
-  __QQC=__WQC;
-  return(__QQC);
+  __KRI->__BC=__LRI;
 }
 
-static void __YCJ(____0B *__0CJ,____L __1CJ)
-// ({__0B},{__L}) Void No recursive, No inlinable.
+static void __XAL(____4 *__YAL,____L __ZAL,____L __0AL,____L __1AL)
+// ({__HB},{__L},{__L},{__L}) Void No recursive, No inlinable.
 {
-  ____DB __ZMK;
-  ____L __T0Z,__3NK,__GOK,__NOK,__D2Z,__VOK,__SQN,__APK,__2QN;
-  _____CONTEXT __ZCJ,__XMK,__F1L,__CNK,__ADJ,__R0Z,__LE4,__ME4,__NE4;
-  _____CONTEXT __VE4,__WE4;
-  ____G __PE4,__0E4,__2E4,__F21;
-  ____4 __4OK;
-  lisaac_push_first(&__ZCJ,L49941016); // L381 STRING;
-  lisaac_push_first(&__XMK,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__F1L,L7481858); // L57 OBJECT;
-  __ZMK=((____DB )(top_context->back->back));
-  lisaac_push(&__XMK,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__F1L,L10652676); // L81 TRUE;
-  lisaac_push_first(&__CNK,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__ADJ,L49950744); // L381 STRING;
-  lisaac_push_first(&__R0Z,L16923661); // L129 ABSTRACT_STRING;
-  __T0Z=__0CJ->__FC;
-  lisaac_push(&__R0Z,L17187853); // L131 ABSTRACT_STRING;
-  lisaac_push_first(&__LE4,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__ME4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__NE4,L15224840); // L116 NUMERIC;
-  if (( 1 > __1CJ)) {
-    lisaac_push(&__ME4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__NE4,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ME4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__NE4,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__LE4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__ME4,L10652676); // L81 TRUE;
-    lisaac_push_first(&__NE4,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__VE4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__WE4,L15224840); // L116 NUMERIC;
-    __PE4=(__T0Z > __1CJ);
-    lisaac_push(&__VE4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__WE4,L14700552); // L112 NUMERIC;
-    __0E4=(__T0Z == __1CJ);
-    if (__PE4) {
-      lisaac_push(&__VE4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__WE4,L10900996); // L83 TRUE;
-      __2E4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__VE4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__WE4,L12342790); // L94 FALSE;
-      __2E4=__0E4;
-    };
-    __PE4=__2E4;
-  } else /* FALSE */ {
-    lisaac_push(&__LE4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__ME4,L12081158); // L92 FALSE;
-    __PE4=__J__;
-  };
-  if (__PE4) {
-    lisaac_push(&__CNK,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ADJ,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__CNK,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ADJ,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__XMK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F1L,L8792068); // L67 TRUE;
-    lisaac_push_first(&__CNK,L19289106); // L147 BLOCK;
-    lisaac_push(&__CNK,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__ADJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__R0Z,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__LE4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ME4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ZMK));
-    lisaac_push(&__ADJ,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__ADJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__R0Z,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__LE4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__ME4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__NE4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__ADJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__R0Z,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__LE4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__XMK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F1L,L8530438); // L65 FALSE;
-  };
-  __T0Z=__0CJ->__FC;
-  lisaac_push(&__ZCJ,L50348568); // L384 STRING;
-  lisaac_push_first(&__XMK,L65145368); // L497 STRING;
-  lisaac_push_first(&__F1L,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__CNK,L7481858); // L57 OBJECT;
-  __ZMK=((____DB )(top_context->back->back));
-  lisaac_push(&__F1L,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__CNK,L10652676); // L81 TRUE;
-  lisaac_push_first(&__ADJ,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__R0Z,L65146392); // L497 STRING;
-  __3NK=__0CJ->__FC;
-  lisaac_push(&__R0Z,L65149976); // L497 STRING;
-  lisaac_push_first(&__LE4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__ME4,L15224840); // L116 NUMERIC;
-  if ((__1CJ > __3NK)) {
-    lisaac_push(&__LE4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__ME4,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__LE4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__ME4,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__ADJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__R0Z,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ADJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__R0Z,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__F1L,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__CNK,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ADJ,L19289106); // L147 BLOCK;
-    lisaac_push(&__ADJ,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__R0Z,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__LE4,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__ME4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__NE4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ZMK));
-    lisaac_push(&__R0Z,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__R0Z,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__LE4,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__ME4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__NE4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__VE4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__R0Z,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__LE4,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__ME4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__F1L,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__CNK,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__XMK,L65276440); // L498 STRING;
-  lisaac_push_first(&__F1L,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__CNK,L7481858); // L57 OBJECT;
-  __ZMK=((____DB )(top_context->back->back));
-  lisaac_push(&__F1L,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__CNK,L10652676); // L81 TRUE;
-  lisaac_push_first(&__ADJ,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__R0Z,L65291288); // L498 STRING;
-  lisaac_push_first(&__LE4,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__ME4,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__NE4,L9195016); // L70 NUMERIC;
-  __3NK=(____L)(-  1);
-  lisaac_push(&__LE4,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__ME4,L9195016); // L70 NUMERIC;
-  __GOK=(____L)(__1CJ - __3NK);
-  lisaac_push(&__R0Z,L65292824); // L498 STRING;
-  lisaac_push_first(&__LE4,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__ME4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__NE4,L15224840); // L116 NUMERIC;
-  if (( 1 > __1CJ)) {
-    lisaac_push(&__ME4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__NE4,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ME4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__NE4,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__LE4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__ME4,L10652676); // L81 TRUE;
-    lisaac_push_first(&__NE4,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__VE4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__WE4,L15224840); // L116 NUMERIC;
-    __PE4=(__GOK > __1CJ);
-    lisaac_push(&__VE4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__WE4,L14700552); // L112 NUMERIC;
-    __0E4=(__GOK == __1CJ);
-    if (__PE4) {
-      lisaac_push(&__VE4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__WE4,L10900996); // L83 TRUE;
-      __2E4=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__VE4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__WE4,L12342790); // L94 FALSE;
-      __2E4=__0E4;
-    };
-    __PE4=__2E4;
-  } else /* FALSE */ {
-    lisaac_push(&__LE4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__ME4,L12081158); // L92 FALSE;
-    __PE4=__J__;
-  };
-  if (__PE4) {
-    lisaac_push(&__ADJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__R0Z,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ADJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__R0Z,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__F1L,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__CNK,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ADJ,L19289106); // L147 BLOCK;
-    lisaac_push(&__ADJ,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__R0Z,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__LE4,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__ME4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__NE4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ZMK));
-    lisaac_push(&__R0Z,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__R0Z,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__LE4,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__ME4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__NE4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__VE4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__R0Z,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__LE4,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__ME4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__F1L,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__CNK,L8530438); // L65 FALSE;
-  };
-  __3NK=__0CJ->__FC;
-  lisaac_push(&__XMK,L65679384); // L501 STRING;
-  lisaac_push_first(&__F1L,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__CNK,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__ADJ,L9195016); // L70 NUMERIC;
-  __GOK=(____L)(-  1);
-  lisaac_push(&__F1L,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__CNK,L9195016); // L70 NUMERIC;
-  __NOK=(____L)(- __GOK);
-  lisaac_push(&__XMK,L65803288); // L502 STRING;
-  lisaac_push_first(&__F1L,L15224840); // L116 NUMERIC;
-  if ((__NOK >  0)) {
-    lisaac_push(&__XMK,L66456088); // L507 STRING;
-    lisaac_push_first(&__F1L,L8792068); // L67 TRUE;
-    lisaac_push_first(&__CNK,L65935384); // L503 STRING;
-    lisaac_push_first(&__ADJ,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__R0Z,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__LE4,L9195016); // L70 NUMERIC;
-    __D2Z=(____L)(-  1);
-    lisaac_push(&__ADJ,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__R0Z,L9195016); // L70 NUMERIC;
-    __VOK=(____L)(__1CJ - __D2Z);
-    __D2Z=__0CJ->__FC;
-    lisaac_push(&__CNK,L66194968); // L505 STRING;
-    __SQN=__VOK;
-    lisaac_push_first(&__ADJ,L20989960); // L160 NUMERIC;
-    __QQN:
-    {
-      lisaac_push(&__ADJ,L21370888); // L163 NUMERIC;
-      lisaac_push_first(&__R0Z,L15759880); // L120 NUMERIC;
-      lisaac_push_first(&__LE4,L15224840); // L116 NUMERIC;
-      if ((__SQN > __D2Z)) {
-        lisaac_push(&__R0Z,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__LE4,L13509636); // L103 TRUE;
-        __F21=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__R0Z,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__LE4,L14689286); // L112 FALSE;
-        __F21=__F__;
-      };
-      if (__F21) {
-        lisaac_push(&__ADJ,L21760520); // L166 NUMERIC;
-        lisaac_push_first(&__R0Z,L8792068); // L67 TRUE;
-        lisaac_push_first(&__LE4,L21506056); // L164 NUMERIC;
-        lisaac_push_first(&__ME4,L66066456); // L504 STRING;
-        __4OK=__GCJ(__0CJ,__SQN);
-        lisaac_push(&__ME4,L66071576); // L504 STRING;
-        lisaac_push_first(&__NE4,L9195016); // L70 NUMERIC;
-        __APK=(____L)(__SQN - __NOK);
-        lisaac_push(&__ME4,L66074136); // L504 STRING;
-        __MJK(__0CJ,__4OK,__APK);
-        lisaac_push(&__LE4,L21633544); // L165 NUMERIC;
-        lisaac_push_first(&__ME4,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__NE4,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__VE4,L9195016); // L70 NUMERIC;
-        __APK=(____L)(-  1);
-        lisaac_push(&__ME4,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__NE4,L9195016); // L70 NUMERIC;
-        __2QN=(____L)(__SQN - __APK);
-        lisaac_push(&__LE4,L21644808); // L165 NUMERIC;
-        __SQN=__2QN;
-        goto __QQN;
-      } else /* FALSE */ {
-        lisaac_push(&__ADJ,L21760520); // L166 NUMERIC;
-        lisaac_push_first(&__R0Z,L8530438); // L65 FALSE;
+  ____L __HJM;
+  if ((__1AL !=  0)) {
+    if ((__1AL <  0)) {
+      __HJM=__ZAL;
+      while ((__HJM <= __0AL)) {
+        __YAL[(____L)(__HJM + __1AL)]=__YAL[__HJM];
+        __HJM=(____L)(__HJM +  1);
       };
-    };
-    __D2Z=__0CJ->__FC;
-    lisaac_push(&__CNK,L66333720); // L506 STRING;
-    lisaac_push_first(&__ADJ,L9195016); // L70 NUMERIC;
-    __0CJ->__FC=(____L)(__D2Z - __NOK);
-  } else /* FALSE */ {
-    lisaac_push(&__XMK,L66456088); // L507 STRING;
-    lisaac_push_first(&__F1L,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__XMK,L66587160); // L508 STRING;
-  lisaac_push_first(&__F1L,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__CNK,L7481858); // L57 OBJECT;
-  __ZMK=((____DB )(top_context->back->back));
-  lisaac_push(&__F1L,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__CNK,L10652676); // L81 TRUE;
-  lisaac_push_first(&__ADJ,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__R0Z,L66588184); // L508 STRING;
-  __GOK=__0CJ->__FC;
-  lisaac_push(&__R0Z,L66606616); // L508 STRING;
-  lisaac_push_first(&__LE4,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__ME4,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__NE4,L9195016); // L70 NUMERIC;
-  __NOK=(____L)(-  1);
-  lisaac_push(&__LE4,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__ME4,L9195016); // L70 NUMERIC;
-  __D2Z=(____L)(- __NOK);
-  lisaac_push(&__R0Z,L66598936); // L508 STRING;
-  lisaac_push_first(&__LE4,L9195016); // L70 NUMERIC;
-  if ((__GOK == (____L)(__3NK - __D2Z))) {
-    lisaac_push(&__ADJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__R0Z,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__ADJ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__R0Z,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__F1L,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__CNK,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ADJ,L19289106); // L147 BLOCK;
-    lisaac_push(&__ADJ,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__R0Z,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__LE4,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__ME4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__NE4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ZMK));
-    lisaac_push(&__R0Z,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__R0Z,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__LE4,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__ME4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__NE4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__VE4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__R0Z,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__LE4,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__ME4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__F1L,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__CNK,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__ZCJ,L50596376); // L386 STRING;
-  lisaac_push_first(&__XMK,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__F1L,L7481858); // L57 OBJECT;
-  __ZMK=((____DB )(top_context->back->back));
-  lisaac_push(&__XMK,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__F1L,L10652676); // L81 TRUE;
-  lisaac_push_first(&__CNK,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__ADJ,L50597400); // L386 STRING;
-  __3NK=__0CJ->__FC;
-  lisaac_push(&__ADJ,L50607128); // L386 STRING;
-  lisaac_push_first(&__R0Z,L9195016); // L70 NUMERIC;
-  if ((__3NK == (____L)(__T0Z -  1))) {
-    lisaac_push(&__CNK,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ADJ,L13509636); // L103 TRUE;
-    __PE4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__CNK,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__ADJ,L14689286); // L112 FALSE;
-    __PE4=__F__;
-  };
-  if (__PE4) {
-    lisaac_push(&__XMK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F1L,L8792068); // L67 TRUE;
-    lisaac_push_first(&__CNK,L19289106); // L147 BLOCK;
-    lisaac_push(&__CNK,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__ADJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__R0Z,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__LE4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ME4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ZMK));
-    lisaac_push(&__ADJ,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__ADJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__R0Z,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__LE4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__ME4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__NE4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__ADJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__R0Z,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__LE4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__XMK,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F1L,L8530438); // L65 FALSE;
-  };
-}
-
-static void __POJ(____4 *__ROJ,____L __SOJ,____L __TOJ)
-// ({__HB},{__L},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __2YK;
-  ____L __S0K,__YXZ,__20K;
-  _____CONTEXT __QOJ,__0YK,__2HM,__FZK,__XOJ,__L31,__M31,__L5T,__KFZ;
-  ____G __P31,__R31,__T31,__P41;
-  lisaac_push_first(&__QOJ,L79301653); // L605 NATIVE_ARRAY;
-  lisaac_push_first(&__0YK,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__2HM,L7481858); // L57 OBJECT;
-  __2YK=((____DB )(top_context->back->back));
-  lisaac_push(&__0YK,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__2HM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FZK,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__XOJ,L79306773); // L605 NATIVE_ARRAY;
-  lisaac_push_first(&__L31,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__M31,L15224840); // L116 NUMERIC;
-  __P31=(__SOJ >  0);
-  lisaac_push(&__L31,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__M31,L14700552); // L112 NUMERIC;
-  __R31=(__SOJ ==  0);
-  if (__P31) {
-    lisaac_push(&__L31,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__M31,L10900996); // L83 TRUE;
-    __T31=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__L31,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__M31,L12342790); // L94 FALSE;
-    __T31=__R31;
-  };
-  if (__T31) {
-    lisaac_push(&__FZK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XOJ,L13509636); // L103 TRUE;
-    __T31=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FZK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XOJ,L14689286); // L112 FALSE;
-    __T31=__F__;
-  };
-  if (__T31) {
-    lisaac_push(&__0YK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__2HM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FZK,L21910546); // L167 BLOCK;
-    lisaac_push(&__FZK,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__XOJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__L31,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__M31,L8792068); // L67 TRUE;
-    lisaac_push_first(&__L5T,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__2YK));
-    lisaac_push(&__XOJ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__XOJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__L31,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__M31,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__L5T,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KFZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XOJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__L31,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__M31,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0YK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__2HM,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__QOJ,L79432725); // L606 NATIVE_ARRAY;
-  lisaac_push_first(&__0YK,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__2HM,L7481858); // L57 OBJECT;
-  __2YK=((____DB )(top_context->back->back));
-  lisaac_push(&__0YK,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__2HM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FZK,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__XOJ,L79437845); // L606 NATIVE_ARRAY;
-  lisaac_push_first(&__L31,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__M31,L15224840); // L116 NUMERIC;
-  __P31=(__TOJ > __SOJ);
-  lisaac_push(&__L31,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__M31,L14700552); // L112 NUMERIC;
-  __R31=(__TOJ == __SOJ);
-  if (__P31) {
-    lisaac_push(&__L31,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__M31,L10900996); // L83 TRUE;
-    __T31=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__L31,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__M31,L12342790); // L94 FALSE;
-    __T31=__R31;
-  };
-  if (__T31) {
-    lisaac_push(&__FZK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XOJ,L13509636); // L103 TRUE;
-    __T31=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FZK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__XOJ,L14689286); // L112 FALSE;
-    __T31=__F__;
-  };
-  if (__T31) {
-    lisaac_push(&__0YK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__2HM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FZK,L21910546); // L167 BLOCK;
-    lisaac_push(&__FZK,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__XOJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__L31,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__M31,L8792068); // L67 TRUE;
-    lisaac_push_first(&__L5T,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__2YK));
-    lisaac_push(&__XOJ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__XOJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__L31,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__M31,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__L5T,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__KFZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__XOJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__L31,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__M31,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0YK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__2HM,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__QOJ,L80218645); // L612 NATIVE_ARRAY;
-  __S0K=__SOJ;
-  lisaac_push_first(&__0YK,L20989960); // L160 NUMERIC;
-  __Q0K:
-  {
-    lisaac_push(&__0YK,L21370888); // L163 NUMERIC;
-    lisaac_push_first(&__2HM,L15759880); // L120 NUMERIC;
-    lisaac_push_first(&__FZK,L15224840); // L116 NUMERIC;
-    if ((__S0K > __TOJ)) {
-      lisaac_push(&__2HM,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__FZK,L13509636); // L103 TRUE;
-      __P41=__J__;
     } else /* FALSE */ {
-      lisaac_push(&__2HM,L15755784); // L120 NUMERIC;
-      lisaac_push_first(&__FZK,L14689286); // L112 FALSE;
-      __P41=__F__;
-    };
-    if (__P41) {
-      lisaac_push(&__0YK,L21760520); // L166 NUMERIC;
-      lisaac_push_first(&__2HM,L8792068); // L67 TRUE;
-      lisaac_push_first(&__FZK,L21506056); // L164 NUMERIC;
-      lisaac_push_first(&__XOJ,L80093205); // L611 NATIVE_ARRAY;
-      __CRG(__ROJ,'\0',__S0K);
-      lisaac_push(&__FZK,L21633544); // L165 NUMERIC;
-      lisaac_push_first(&__XOJ,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__L31,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__M31,L9195016); // L70 NUMERIC;
-      __YXZ=(____L)(-  1);
-      lisaac_push(&__XOJ,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__L31,L9195016); // L70 NUMERIC;
-      __20K=(____L)(__S0K - __YXZ);
-      lisaac_push(&__FZK,L21644808); // L165 NUMERIC;
-      __S0K=__20K;
-      goto __Q0K;
-    } else /* FALSE */ {
-      lisaac_push(&__0YK,L21760520); // L166 NUMERIC;
-      lisaac_push_first(&__2HM,L8530438); // L65 FALSE;
+      __HJM=__0AL;
+      while ((__HJM >= __ZAL)) {
+        __YAL[(____L)(__HJM + __1AL)]=__YAL[__HJM];
+        __HJM=(____L)(__HJM -  1);
+      };
     };
   };
 }
 
-static ____CRE __H0E(____L __J0E)
-// ({__L}) With result No recursive, No inlinable.
+static void __DUI(____4 *__EUI,____4 *__FUI,____L __GUI)
+// ({__HB},{NULLx__HB},{__L}) Void No recursive, No inlinable.
 {
-  ____DB __25E;
-  ____CRE __K0E;
-  _____CONTEXT __I0E,__05E,__BHF,__FAF,__O0E,__541,__A51,__OJP,__LYY;
-  ____G __D51,__F51,__H51;
-  lisaac_push_first(&__I0E,L52169736); // L398 NUMERIC;
-  lisaac_push_first(&__05E,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__BHF,L7481858); // L57 OBJECT;
-  __25E=((____DB )(top_context->back->back));
-  lisaac_push(&__05E,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__BHF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FAF,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__O0E,L52174344); // L398 NUMERIC;
-  lisaac_push_first(&__541,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__A51,L15224840); // L116 NUMERIC;
-  __D51=(__J0E >  0);
-  lisaac_push(&__541,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__A51,L14700552); // L112 NUMERIC;
-  __F51=(__J0E ==  0);
-  if (__D51) {
-    lisaac_push(&__541,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__A51,L10900996); // L83 TRUE;
-    __H51=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__541,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__A51,L12342790); // L94 FALSE;
-    __H51=__F51;
+  ____L __53J;
+  __53J=__GUI;
+  while ((__53J >=  0)) {
+    __EUI[__53J]=((____4 *)__FUI)[__53J];
+    __53J=(____L)(__53J -  1);
   };
-  if (__H51) {
-    lisaac_push(&__FAF,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__O0E,L13509636); // L103 TRUE;
-    __H51=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FAF,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__O0E,L14689286); // L112 FALSE;
-    __H51=__F__;
-  };
-  if (__H51) {
-    lisaac_push(&__05E,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__BHF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FAF,L21910546); // L167 BLOCK;
-    lisaac_push(&__FAF,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__O0E,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__541,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__A51,L8792068); // L67 TRUE;
-    lisaac_push_first(&__OJP,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__25E));
-    lisaac_push(&__O0E,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__O0E,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__541,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__A51,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__OJP,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__LYY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__O0E,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__541,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__A51,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__05E,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__BHF,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__I0E,L52560904); // L401 NUMERIC;
-  lisaac_push_first(&__05E,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__BHF,L4069927); // L31 CONVERT;
-  __K0E=((____CRE )__J0E);
-  return(__K0E);
 }
 
-static ____DB __ERF(____CRE __HRF)
-// ({__CRE}) With result No recursive, No inlinable.
+static ____L __BLB(void *__DLB)
+// ({NULLx__Vx__WB}) With result No recursive, No inlinable.
 {
-  ____O0 __F5N;
-  ____DB __5WF,__HSK,__IRF;
-  ____CRE __VRF,__2RF,__QSF,__LZF,__JZF;
-  ____L __0RF,__GSF;
-  ____Y1 __WSF;
-  _____CONTEXT __FRF,__D2W,__G2W,__IXF,__TRF,__G0G,__KUK,__VUT,__XYY;
-  _____CONTEXT __VJJ,__3GX;
-  ____G __LJJ,__2JJ,__3JJ;
-  lisaac_push_first(&__FRF,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__D2W,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__G2W,L4069927); // L31 CONVERT;
-  lisaac_push(&__FRF,L72627244); // L554 MEMORY;
-  lisaac_push_first(&__D2W,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__G2W,L7481858); // L57 OBJECT;
-  __5WF=((____DB )(top_context->back->back));
-  lisaac_push(&__D2W,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__G2W,L10652676); // L81 TRUE;
-  lisaac_push_first(&__IXF,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__TRF,L72625708); // L554 MEMORY;
-  lisaac_push_first(&__G0G,L46932012); // L358 MEMORY;
-  __VRF=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__TRF,L72619052); // L554 MEMORY;
-  lisaac_push_first(&__G0G,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__KUK,L15224840); // L116 NUMERIC;
-  if ((__HRF > __VRF)) {
-    lisaac_push(&__G0G,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__KUK,L13509636); // L103 TRUE;
-    __LJJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__G0G,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__KUK,L14689286); // L112 FALSE;
-    __LJJ=__F__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__IXF,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__TRF,L13509636); // L103 TRUE;
-    __LJJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__IXF,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__TRF,L14689286); // L112 FALSE;
-    __LJJ=__F__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__D2W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__G2W,L8792068); // L67 TRUE;
-    lisaac_push_first(&__IXF,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__TRF,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__G0G,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__KUK,L8792068); // L67 TRUE;
-    lisaac_push_first(&__VUT,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__5WF));
-    lisaac_push(&__TRF,L9574914); // L73 OBJECT;
-    __DX((&__string_132));
-    lisaac_push(&__TRF,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__G0G,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__KUK,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__VUT,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__XYY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__TRF,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__G0G,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__KUK,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__D2W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__G2W,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__FRF,L72902700); // L556 MEMORY;
-  lisaac_push_first(&__D2W,L5774867); // L44 POINTER;
-  __0RF=((____L )(sizeof(void *)));
-  lisaac_push(&__FRF,L72902700); // L556 MEMORY;
-  __VRF=__H0E(__0RF);
-  lisaac_push(&__FRF,L72903212); // L556 MEMORY;
-  __2RF=__1FJ(__HRF,__VRF);
-  lisaac_push(&__FRF,L73425964); // L560 MEMORY;
-  lisaac_push_first(&__D2W,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__G2W,L7481858); // L57 OBJECT;
-  __5WF=((____DB )(top_context->back->back));
-  lisaac_push(&__D2W,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__G2W,L10652676); // L81 TRUE;
-  lisaac_push_first(&__IXF,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__TRF,L73419820); // L560 MEMORY;
-  lisaac_push_first(&__G0G,L5774867); // L44 POINTER;
-  __0RF=((____L )(sizeof(void *)));
-  lisaac_push(&__TRF,L73420332); // L560 MEMORY;
-  lisaac_push_first(&__G0G,L9195016); // L70 NUMERIC;
-  __GSF=(____L)(__0RF -  1);
-  lisaac_push(&__TRF,L73420332); // L560 MEMORY;
-  __VRF=__H0E(__GSF);
-  lisaac_push(&__TRF,L73408556); // L560 MEMORY;
-  lisaac_push_first(&__G0G,L22171143); // L169 INTEGER;
-  if (((____CRE)(__2RF & __VRF) ==  0)) {
-    lisaac_push(&__IXF,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__TRF,L13509636); // L103 TRUE;
-    __LJJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__IXF,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__TRF,L14689286); // L112 FALSE;
-    __LJJ=__F__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__D2W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__G2W,L8792068); // L67 TRUE;
-    lisaac_push_first(&__IXF,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__TRF,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__G0G,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__KUK,L8792068); // L67 TRUE;
-    lisaac_push_first(&__VUT,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__5WF));
-    lisaac_push(&__TRF,L9574914); // L73 OBJECT;
-    __DX((&__string_133));
-    lisaac_push(&__TRF,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__G0G,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__KUK,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__VUT,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__XYY,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__TRF,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__G0G,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__KUK,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__D2W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__G2W,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__FRF,L73692716); // L562 MEMORY;
-  lisaac_push_first(&__D2W,L5774867); // L44 POINTER;
-  __0RF=((____L )(sizeof(void *)));
-  lisaac_push(&__FRF,L73692716); // L562 MEMORY;
-  __VRF=__H0E(__0RF);
-  lisaac_push(&__FRF,L73682476); // L562 MEMORY;
-  lisaac_push_first(&__D2W,L9719304); // L74 NUMERIC;
-  __QSF=(____CRE)(__2RF / __VRF);
-  lisaac_push(&__FRF,L73693228); // L562 MEMORY;
-  lisaac_push_first(&__D2W,L47988780); // L366 MEMORY;
-  lisaac_push(&__D2W,L48265260); // L368 MEMORY;
-  lisaac_push_first(&__G2W,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__IXF,L7481858); // L57 OBJECT;
-  __5WF=((____DB )(top_context->back->back));
-  lisaac_push(&__G2W,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__IXF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__TRF,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__G0G,L48252972); // L368 MEMORY;
-  lisaac_push_first(&__KUK,L46932012); // L358 MEMORY;
-  __VRF=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__G0G,L48263212); // L368 MEMORY;
-  lisaac_push_first(&__KUK,L5774867); // L44 POINTER;
-  __0RF=((____L )(sizeof(void *)));
-  lisaac_push(&__G0G,L48263212); // L368 MEMORY;
-  __LZF=__H0E(__0RF);
-  lisaac_push(&__G0G,L48253484); // L368 MEMORY;
-  lisaac_push_first(&__KUK,L9719304); // L74 NUMERIC;
-  __JZF=(____CRE)(__VRF / __LZF);
-  lisaac_push(&__G0G,L48244268); // L368 MEMORY;
-  __VRF=__H0E( 1);
-  lisaac_push(&__G0G,L48263724); // L368 MEMORY;
-  lisaac_push_first(&__KUK,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__VUT,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__XYY,L15224840); // L116 NUMERIC;
-  if ((__VRF > __QSF)) {
-    lisaac_push(&__VUT,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__XYY,L13509636); // L103 TRUE;
-    __LJJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__VUT,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__XYY,L14689286); // L112 FALSE;
-    __LJJ=__F__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__KUK,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__VUT,L10652676); // L81 TRUE;
-    lisaac_push_first(&__XYY,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__VJJ,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__3GX,L15224840); // L116 NUMERIC;
-    __LJJ=(__JZF > __QSF);
-    lisaac_push(&__VJJ,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__3GX,L14700552); // L112 NUMERIC;
-    __2JJ=(__JZF == __QSF);
-    if (__LJJ) {
-      lisaac_push(&__VJJ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__3GX,L10900996); // L83 TRUE;
-      __3JJ=__F__;
+  ____WB *__TUX;
+  ____L __K2Y,__ELB;
+  ____4 *__LLB,*__J2Y;
+  if (((struct ___OBJ *)__DLB)->__id==____V__) {
+    __LLB=((____V *)__DLB)->__VB;
+  } else /* STRING */ {
+    __TUX=((____WB *)__DLB);
+    if ((__TUX->__CBE > __TUX->__BC)) {
+      ((____4 *)__TUX->__ZAE)[__TUX->__BC]='\0';
     } else /* FALSE */ {
-      lisaac_push(&__VJJ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__3GX,L12342790); // L94 FALSE;
-      __3JJ=__2JJ;
-    };
-    __LJJ=__3JJ;
-  } else /* FALSE */ {
-    lisaac_push(&__KUK,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__VUT,L12081158); // L92 FALSE;
-    __LJJ=__J__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__TRF,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__G0G,L13509636); // L103 TRUE;
-    __LJJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__TRF,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__G0G,L14689286); // L112 FALSE;
-    __LJJ=__F__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__G2W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__IXF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TRF,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__G0G,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__KUK,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__VUT,L8792068); // L67 TRUE;
-    lisaac_push_first(&__XYY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__5WF));
-    lisaac_push(&__G0G,L9574914); // L73 OBJECT;
-    __DX((&__string_136));
-    lisaac_push(&__G0G,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__KUK,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__VUT,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__XYY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__VJJ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__G0G,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__KUK,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__VUT,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__G2W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__IXF,L8530438); // L65 FALSE;
-  };
-  __5WF=((____DB )(&(table_size[(__QSF)-1])));
-  lisaac_push(&__FRF,L73834028); // L563 MEMORY;
-  lisaac_push_first(&__D2W,L49155080); // L375 NUMERIC;
-  lisaac_push_first(&__G2W,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__IXF,L7481858); // L57 OBJECT;
-  __HSK=((____DB )(top_context->back->back));
-  lisaac_push(&__G2W,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__IXF,L10652676); // L81 TRUE;
-  lisaac_push_first(&__TRF,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__G0G,L49185288); // L375 NUMERIC;
-  lisaac_push_first(&__KUK,L16267284); // L124 UNSIGNED_INTEGER;
-  lisaac_push_first(&__VUT,L68325896); // L521 NUMERIC;
-  lisaac_push_first(&__XYY,L4069927); // L31 CONVERT;
-  __F5N=((____O0 )__2RF);
-  lisaac_push(&__KUK,L16257556); // L124 UNSIGNED_INTEGER;
-  lisaac_push_first(&__VUT,L15224840); // L116 NUMERIC;
-  if ((__KTF > __F5N)) {
-    lisaac_push(&__TRF,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__G0G,L13509636); // L103 TRUE;
-    __LJJ=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__TRF,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__G0G,L14689286); // L112 FALSE;
-    __LJJ=__F__;
-  };
-  if (__LJJ) {
-    lisaac_push(&__G2W,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__IXF,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TRF,L21910546); // L167 BLOCK;
-    lisaac_push(&__TRF,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__G0G,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__KUK,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__VUT,L8792068); // L67 TRUE;
-    lisaac_push_first(&__XYY,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__HSK));
-    lisaac_push(&__G0G,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__G0G,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__KUK,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__VUT,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__XYY,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__VJJ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__G0G,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__KUK,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__VUT,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__G2W,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__IXF,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__D2W,L49546248); // L378 NUMERIC;
-  lisaac_push_first(&__G2W,L68063752); // L519 NUMERIC;
-  lisaac_push_first(&__IXF,L4069927); // L31 CONVERT;
-  __WSF=((____Y1 )__2RF);
-  lisaac_push(&__FRF,L73834540); // L563 MEMORY;
-  __HSK=__VZF(__2RF,__5WF,__WSF);
-  __IRF=__HSK;
-  return(__IRF);
-}
-
-static ____CRE __1FJ(____CRE __3FJ,____CRE __4FJ)
-// ({__CRE},{__CRE}) With result No recursive, No inlinable.
-{
-  ____DB __ARK;
-  ____CRE __53N,__LIO,__0ZY,__AB2,__5FJ;
-  _____CONTEXT __2FJ,__4QK,__YBM,__JRK,__DGJ,__23N,__Q3W,__T3W,__IGO;
-  _____CONTEXT __M4N,__0HO,__GIO,__POX;
-  ____G __C4N,__4HO;
-  lisaac_push_first(&__2FJ,L26348551); // L201 INTEGER;
-  lisaac_push_first(&__4QK,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__YBM,L7481858); // L57 OBJECT;
-  __ARK=((____DB )(top_context->back->back));
-  lisaac_push(&__4QK,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__YBM,L10652676); // L81 TRUE;
-  lisaac_push_first(&__JRK,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__DGJ,L26357255); // L201 INTEGER;
-  lisaac_push_first(&__23N,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__Q3W,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__T3W,L4069927); // L31 CONVERT;
-  __53N=((____CRE ) 0);
-  __C4N=__J__;
-  if ((__4FJ !=  0)) {
-    lisaac_push(&__23N,L28838407); // L220 INTEGER;
-    lisaac_push_first(&__Q3W,L8792068); // L67 TRUE;
-    lisaac_push_first(&__T3W,L28059655); // L214 INTEGER;
-    __53N=__4FJ;
-    lisaac_push(&__T3W,L28577287); // L218 INTEGER;
-    lisaac_push_first(&__IGO,L9441810); // L72 BLOCK;
-    __HGO:
-    {
-      lisaac_push(&__IGO,L9441810); // L72 BLOCK;
-      lisaac_push_first(&__M4N,L28320775); // L216 INTEGER;
-      lisaac_push_first(&__0HO,L37098503); // L283 INTEGER;
-      lisaac_push_first(&__GIO,L36574727); // L279 INTEGER;
-      __LIO=__H0E( 1);
-      lisaac_push(&__GIO,L36573703); // L279 INTEGER;
-      lisaac_push_first(&__POX,L22171143); // L169 INTEGER;
-      if (((____CRE)(__53N & __LIO) ==  1)) {
-        lisaac_push(&__0HO,L37094919); // L283 INTEGER;
-        lisaac_push_first(&__GIO,L13509636); // L103 TRUE;
-        __4HO=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__0HO,L37094919); // L283 INTEGER;
-        lisaac_push_first(&__GIO,L14689286); // L112 FALSE;
-        __4HO=__F__;
-      };
-      if (__4HO) {
-        lisaac_push(&__IGO,L9832978); // L75 BLOCK;
-        lisaac_push_first(&__M4N,L8792068); // L67 TRUE;
-        lisaac_push_first(&__0HO,L9576466); // L73 BLOCK;
-        lisaac_push_first(&__GIO,L28449799); // L217 INTEGER;
-        lisaac_push_first(&__POX,L23745543); // L181 INTEGER;
-        __53N=(____CRE)(__53N >>  1);
-        lisaac_push(&__0HO,L9709074); // L74 BLOCK;
-        goto __HGO;
-      } else /* FALSE */ {
-        lisaac_push(&__IGO,L9832978); // L75 BLOCK;
-        lisaac_push_first(&__M4N,L8530438); // L65 FALSE;
-      };
-    };
-    __C4N=(__53N ==  1);
-  } else /* FALSE */ {
-    lisaac_push(&__23N,L28838407); // L220 INTEGER;
-    lisaac_push_first(&__Q3W,L8530438); // L65 FALSE;
-  };
-  if (__C4N) {
-    lisaac_push(&__JRK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__DGJ,L13509636); // L103 TRUE;
-    __4HO=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__JRK,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__DGJ,L14689286); // L112 FALSE;
-    __4HO=__F__;
-  };
-  if (__4HO) {
-    lisaac_push(&__4QK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YBM,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JRK,L21910546); // L167 BLOCK;
-    lisaac_push(&__JRK,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__DGJ,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__23N,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__Q3W,L8792068); // L67 TRUE;
-    lisaac_push_first(&__T3W,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__ARK));
-    lisaac_push(&__DGJ,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__DGJ,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__23N,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__Q3W,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__T3W,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__IGO,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__DGJ,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__23N,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__Q3W,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__4QK,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YBM,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__2FJ,L26878471); // L205 INTEGER;
-  __53N=__H0E( 1);
-  lisaac_push(&__2FJ,L26877447); // L205 INTEGER;
-  lisaac_push_first(&__4QK,L9195016); // L70 NUMERIC;
-  __LIO=(____CRE)(__4FJ - __53N);
-  lisaac_push(&__2FJ,L27006471); // L206 INTEGER;
-  lisaac_push_first(&__4QK,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__YBM,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__JRK,L5383176); // L41 NUMERIC;
-  __53N=__H0E( 0);
-  lisaac_push(&__YBM,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__JRK,L9195016); // L70 NUMERIC;
-  __0ZY=(____CRE)(__53N - __LIO);
-  lisaac_push(&__4QK,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__YBM,L9195016); // L70 NUMERIC;
-  __53N=(____CRE)(__3FJ - __0ZY);
-  lisaac_push(&__2FJ,L27010567); // L206 INTEGER;
-  lisaac_push_first(&__4QK,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__YBM,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__JRK,L5383176); // L41 NUMERIC;
-  __0ZY=__H0E( 0);
-  lisaac_push(&__YBM,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__JRK,L9195016); // L70 NUMERIC;
-  __AB2=(____CRE)(__0ZY - __LIO);
-  lisaac_push(&__4QK,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__YBM,L5121032); // L39 NUMERIC;
-  __LIO=__H0E( 1);
-  lisaac_push(&__4QK,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__YBM,L9195016); // L70 NUMERIC;
-  __0ZY=(____CRE)(__AB2 - __LIO);
-  lisaac_push(&__2FJ,L27009031); // L206 INTEGER;
-  lisaac_push_first(&__4QK,L22171143); // L169 INTEGER;
-  __5FJ=(____CRE)(__53N & __0ZY);
-  return(__5FJ);
-}
-
-static ____DB __VZF(____CRE __YZF,____DB __ZZF,____Y1 __0ZF)
-// ({__CRE},{__DB},{__Y1}) With result No recursive, No inlinable.
-{
-  ____DB __4ZF,__YGG,__2ZF,__G1F,__J1F,__ZC2,__OC2,__Y1F,__Z1F,__11F;
-  ____DB __0D2,__Y3F,__4E2,__TE2,__1ZF;
-  ____L __K0F,__L0F;
-  ____CRE __P0F,__XC2,__TD2,__2E2,__KF2;
-  _____CONTEXT __WZF,__VGG,__1OG,__BHG,__H0F,__A4W,__1UN,__LFN,__I0Y;
-  _____CONTEXT __CE2,__EE2,__1E2,__3E2;
-  ____G __EHG,__WM3,__YM3,__XMJ;
-  ____DB *__JC2,*__BD2,*__YDH;
-  lisaac_push_first(&__WZF,L51818028); // L395 MEMORY;
-  __4ZF=((____DB )(NULL));
-  lisaac_push(&__WZF,L52192300); // L398 MEMORY;
-  lisaac_push_first(&__VGG,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__1OG,L7481858); // L57 OBJECT;
-  __YGG=((____DB )(top_context->back->back));
-  lisaac_push(&__VGG,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__1OG,L10652676); // L81 TRUE;
-  lisaac_push_first(&__BHG,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__H0F,L52186156); // L398 MEMORY;
-  lisaac_push_first(&__A4W,L5774867); // L44 POINTER;
-  __K0F=((____L )(sizeof(void *)));
-  lisaac_push(&__H0F,L52186668); // L398 MEMORY;
-  lisaac_push_first(&__A4W,L9195016); // L70 NUMERIC;
-  __L0F=(____L)(__K0F -  1);
-  lisaac_push(&__H0F,L52186668); // L398 MEMORY;
-  __P0F=__H0E(__L0F);
-  lisaac_push(&__H0F,L52174892); // L398 MEMORY;
-  lisaac_push_first(&__A4W,L22171143); // L169 INTEGER;
-  if (((____CRE)(__YZF & __P0F) ==  0)) {
-    lisaac_push(&__BHG,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__H0F,L13509636); // L103 TRUE;
-    __EHG=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__BHG,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__H0F,L14689286); // L112 FALSE;
-    __EHG=__F__;
-  };
-  if (__EHG) {
-    lisaac_push(&__VGG,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__1OG,L8792068); // L67 TRUE;
-    lisaac_push_first(&__BHG,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__H0F,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__A4W,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1UN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__LFN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__YGG));
-    lisaac_push(&__H0F,L9574914); // L73 OBJECT;
-    __DX((&__string_133));
-    lisaac_push(&__H0F,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__A4W,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1UN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__LFN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__I0Y,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__H0F,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__A4W,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1UN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__VGG,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__1OG,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__WZF,L52317740); // L399 MEMORY;
-  lisaac_push_first(&__VGG,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__1OG,L7481858); // L57 OBJECT;
-  __YGG=((____DB )(top_context->back->back));
-  lisaac_push(&__VGG,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__1OG,L10652676); // L81 TRUE;
-  lisaac_push_first(&__BHG,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__H0F,L52316204); // L399 MEMORY;
-  lisaac_push_first(&__A4W,L5774867); // L44 POINTER;
-  __K0F=((____L )(sizeof(void *)));
-  lisaac_push(&__H0F,L52316204); // L399 MEMORY;
-  __P0F=__H0E(__K0F);
-  lisaac_push(&__H0F,L52305964); // L399 MEMORY;
-  lisaac_push_first(&__A4W,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__1UN,L15224840); // L116 NUMERIC;
-  __EHG=(__YZF > __P0F);
-  lisaac_push(&__A4W,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__1UN,L14700552); // L112 NUMERIC;
-  __WM3=(__YZF == __P0F);
-  if (__EHG) {
-    lisaac_push(&__A4W,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1UN,L10900996); // L83 TRUE;
-    __YM3=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__A4W,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__1UN,L12342790); // L94 FALSE;
-    __YM3=__WM3;
-  };
-  if (__YM3) {
-    lisaac_push(&__BHG,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__H0F,L13509636); // L103 TRUE;
-    __YM3=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__BHG,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__H0F,L14689286); // L112 FALSE;
-    __YM3=__F__;
-  };
-  if (__YM3) {
-    lisaac_push(&__VGG,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__1OG,L8792068); // L67 TRUE;
-    lisaac_push_first(&__BHG,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__H0F,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__A4W,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1UN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__LFN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__YGG));
-    lisaac_push(&__H0F,L9574914); // L73 OBJECT;
-    __DX((&__string_140));
-    lisaac_push(&__H0F,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__A4W,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1UN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__LFN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__I0Y,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__H0F,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__A4W,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1UN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__VGG,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__1OG,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__WZF,L52576300); // L401 MEMORY;
-  lisaac_push_first(&__VGG,L49704492); // L379 MEMORY;
-  lisaac_push_first(&__1OG,L4069927); // L31 CONVERT;
-  __JC2=((____DB *)__ZZF);
-  lisaac_push(&__VGG,L49939500); // L381 MEMORY;
-  __YGG=__UQG(__JC2, 0);
-  __2ZF=__YGG;
-  if ((__YGG == (void *)NULL)) {
-    lisaac_push(&__WZF,L55970348); // L427 MEMORY;
-    lisaac_push_first(&__VGG,L6825988); // L52 TRUE;
-    lisaac_push_first(&__1OG,L52969516); // L404 MEMORY;
-    __G1F=__UTG(__0ZF);
-    __2ZF=__G1F;
-    lisaac_push(&__1OG,L51785772); // L395 MEMORY;
-    __J1F=__XXG(__YZF);
-    lisaac_push(&__1OG,L53095468); // L405 MEMORY;
-    lisaac_push_first(&__BHG,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__H0F,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__A4W,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__1UN,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__LFN,L78949383); // L602 INTEGER;
-    __XC2=__H0E( 0);
-    lisaac_push(&__LFN,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__I0Y,L4069927); // L31 CONVERT;
-    __ZC2=((____DB )__XC2);
-    lisaac_push(&__H0F,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__A4W,L9195016); // L70 NUMERIC;
-    __OC2=(void *)((unsigned long)__ZC2 - (unsigned long)__J1F);
-    lisaac_push(&__BHG,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__H0F,L9195016); // L70 NUMERIC;
-    __J1F=(void *)((unsigned long)__G1F - (unsigned long)__OC2);
-    __4ZF=__J1F;
-    lisaac_push(&__1OG,L53228588); // L406 MEMORY;
-    lisaac_push_first(&__BHG,L50490924); // L385 MEMORY;
-    lisaac_push_first(&__H0F,L4069927); // L31 CONVERT;
-    __BD2=((____DB *)__J1F);
-    lisaac_push(&__BHG,L50603052); // L386 MEMORY;
-    __U3G(__BD2,NULL, 0);
-    lisaac_push(&__1OG,L53362220); // L407 MEMORY;
-    lisaac_push_first(&__BHG,L50490924); // L385 MEMORY;
-    lisaac_push_first(&__H0F,L4069927); // L31 CONVERT;
-    __BD2=((____DB *)__ZZF);
-    lisaac_push(&__BHG,L50603052); // L386 MEMORY;
-    __U3G(__BD2,__J1F, 0);
-  } else /* FALSE */ {
-    lisaac_push(&__WZF,L55970348); // L427 MEMORY;
-    lisaac_push_first(&__VGG,L6826502); // L52 FALSE;
-    lisaac_push_first(&__1OG,L53754412); // L410 MEMORY;
-    lisaac_push_first(&__BHG,L49704492); // L379 MEMORY;
-    lisaac_push_first(&__H0F,L4069927); // L31 CONVERT;
-    __BD2=((____DB *)__2ZF);
-    lisaac_push(&__BHG,L49939500); // L381 MEMORY;
-    __G1F=__UQG(__BD2, 0);
-    __4ZF=__G1F;
-    if ((__G1F == (void *)NULL)) {
-      lisaac_push(&__1OG,L55840300); // L426 MEMORY;
-      lisaac_push_first(&__BHG,L6825988); // L52 TRUE;
-      lisaac_push_first(&__H0F,L53882924); // L411 MEMORY;
-      __Y1F=__X1F;
-      lisaac_push(&__H0F,L54141996); // L413 MEMORY;
-      lisaac_push_first(&__A4W,L9195016); // L70 NUMERIC;
-      __Z1F=(void *)((unsigned long)__2ZF - (unsigned long)__Y1F);
-      lisaac_push(&__H0F,L54153260); // L413 MEMORY;
-      lisaac_push_first(&__A4W,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__1UN,L78949383); // L602 INTEGER;
-      __TD2=__H0E( 4095);
-      lisaac_push(&__1UN,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__LFN,L4069927); // L31 CONVERT;
-      __Y1F=((____DB )__TD2);
-      lisaac_push(&__H0F,L54150188); // L413 MEMORY;
-      lisaac_push_first(&__A4W,L22171143); // L169 INTEGER;
-      __11F=(void *)((unsigned long)__Z1F & (unsigned long)__Y1F);
-      lisaac_push(&__H0F,L54275116); // L414 MEMORY;
-      lisaac_push_first(&__A4W,L24269831); // L185 INTEGER;
-      __TD2=(____CRE)(__YZF <<  1);
-      lisaac_push(&__H0F,L54275116); // L414 MEMORY;
-      __Y1F=__XXG(__TD2);
-      lisaac_push(&__H0F,L54268460); // L414 MEMORY;
-      lisaac_push_first(&__A4W,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__1UN,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__LFN,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__I0Y,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__CE2,L78949383); // L602 INTEGER;
-      __TD2=__H0E( 0);
-      lisaac_push(&__CE2,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__EE2,L4069927); // L31 CONVERT;
-      __Z1F=((____DB )__TD2);
-      lisaac_push(&__1UN,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__LFN,L9195016); // L70 NUMERIC;
-      __0D2=(void *)((unsigned long)__Z1F - (unsigned long)__Y1F);
-      lisaac_push(&__A4W,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__1UN,L9195016); // L70 NUMERIC;
-      __Y1F=(void *)((unsigned long)__11F - (unsigned long)__0D2);
-      lisaac_push(&__H0F,L54281260); // L414 MEMORY;
-      lisaac_push_first(&__A4W,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__1UN,L78949383); // L602 INTEGER;
-      __TD2=__H0E( 4096);
-      lisaac_push(&__1UN,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__LFN,L4069927); // L31 CONVERT;
-      __Z1F=((____DB )__TD2);
-      lisaac_push(&__H0F,L54278700); // L414 MEMORY;
-      lisaac_push_first(&__A4W,L15759880); // L120 NUMERIC;
-      lisaac_push_first(&__1UN,L15224840); // L116 NUMERIC;
-      if ((__Y1F > __Z1F)) {
-        lisaac_push(&__A4W,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__1UN,L13509636); // L103 TRUE;
-        __XMJ=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__A4W,L15755784); // L120 NUMERIC;
-        lisaac_push_first(&__1UN,L14689286); // L112 FALSE;
-        __XMJ=__F__;
-      };
-      if (__XMJ) {
-        lisaac_push(&__H0F,L54789164); // L418 MEMORY;
-        lisaac_push_first(&__A4W,L6825988); // L52 TRUE;
-        lisaac_push_first(&__1UN,L51785772); // L395 MEMORY;
-        __Y3F=__XXG(__YZF);
-        lisaac_push(&__1UN,L54404652); // L415 MEMORY;
-        lisaac_push_first(&__LFN,L9990152); // L76 NUMERIC;
-        lisaac_push_first(&__I0Y,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__CE2,L5383176); // L41 NUMERIC;
-        lisaac_push_first(&__EE2,L14156807); // L108 INTEGER;
-        lisaac_push_first(&__1E2,L78949383); // L602 INTEGER;
-        __2E2=__H0E( 0);
-        lisaac_push(&__1E2,L78949383); // L602 INTEGER;
-        lisaac_push_first(&__3E2,L4069927); // L31 CONVERT;
-        __4E2=((____DB )__2E2);
-        lisaac_push(&__I0Y,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__CE2,L9195016); // L70 NUMERIC;
-        __TE2=(void *)((unsigned long)__4E2 - (unsigned long)__Y3F);
-        lisaac_push(&__LFN,L9989128); // L76 NUMERIC;
-        lisaac_push_first(&__I0Y,L9195016); // L70 NUMERIC;
-        __4ZF=(void *)((unsigned long)__2ZF - (unsigned long)__TE2);
-      } else /* FALSE */ {
-        lisaac_push(&__H0F,L54789164); // L418 MEMORY;
-        lisaac_push_first(&__A4W,L6826502); // L52 FALSE;
-        lisaac_push_first(&__1UN,L54670892); // L417 MEMORY;
-        __Y3F=__UTG(__0ZF);
-        __4ZF=__Y3F;
+      if ((__TUX->__CBE <= __TUX->__BC)) {
+        if ((__TUX->__CBE ==  0)) {
+          __TUX->__CBE= 32;
+          __J2Y=__3NG( 32);
+          __TUX->__ZAE=__J2Y;
+        } else /* FALSE */ {
+          __K2Y=(____L)(__TUX->__CBE <<  1);
+          __J2Y=__SOG(((____4 *)__TUX->__ZAE),__TUX->__CBE,__K2Y);
+          __TUX->__ZAE=__J2Y;
+          __TUX->__CBE=__K2Y;
+        };
       };
-      lisaac_push(&__H0F,L54929964); // L419 MEMORY;
-      lisaac_push_first(&__A4W,L50490924); // L385 MEMORY;
-      lisaac_push_first(&__1UN,L4069927); // L31 CONVERT;
-      __YDH=((____DB *)__4ZF);
-      lisaac_push(&__A4W,L50603052); // L386 MEMORY;
-      __U3G(__YDH,NULL, 0);
-      lisaac_push(&__H0F,L55063596); // L420 MEMORY;
-      lisaac_push_first(&__A4W,L50490924); // L385 MEMORY;
-      lisaac_push_first(&__1UN,L4069927); // L31 CONVERT;
-      __YDH=((____DB *)__ZZF);
-      lisaac_push(&__A4W,L50603052); // L386 MEMORY;
-      __U3G(__YDH,__4ZF, 0);
-    } else /* FALSE */ {
-      lisaac_push(&__1OG,L55840300); // L426 MEMORY;
-      lisaac_push_first(&__BHG,L6826502); // L52 FALSE;
-      lisaac_push_first(&__H0F,L55455788); // L423 MEMORY;
-      lisaac_push_first(&__A4W,L49704492); // L379 MEMORY;
-      lisaac_push_first(&__1UN,L4069927); // L31 CONVERT;
-      __YDH=((____DB *)__4ZF);
-      lisaac_push(&__A4W,L49939500); // L381 MEMORY;
-      __Y1F=__UQG(__YDH, 0);
-      lisaac_push(&__H0F,L55467564); // L423 MEMORY;
-      __TD2=__H0E( 3);
-      lisaac_push(&__H0F,L55457324); // L423 MEMORY;
-      lisaac_push_first(&__A4W,L25311239); // L193 INTEGER;
-      lisaac_push_first(&__1UN,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__LFN,L5383176); // L41 NUMERIC;
-      __2E2=__H0E( 0);
-      lisaac_push(&__1UN,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__LFN,L9195016); // L70 NUMERIC;
-      __KF2=(____CRE)(__2E2 - __TD2);
-      lisaac_push(&__A4W,L25319431); // L193 INTEGER;
-      lisaac_push_first(&__1UN,L5121032); // L39 NUMERIC;
-      __TD2=__H0E( 1);
-      lisaac_push(&__A4W,L25314823); // L193 INTEGER;
-      lisaac_push_first(&__1UN,L9195016); // L70 NUMERIC;
-      __2E2=(____CRE)(__KF2 - __TD2);
-      lisaac_push(&__H0F,L55457324); // L423 MEMORY;
-      __Z1F=__XXG(__2E2);
-      lisaac_push(&__H0F,L55456300); // L423 MEMORY;
-      lisaac_push_first(&__A4W,L22171143); // L169 INTEGER;
-      __11F=(void *)((unsigned long)__Y1F & (unsigned long)__Z1F);
-      lisaac_push(&__H0F,L55586860); // L424 MEMORY;
-      lisaac_push_first(&__A4W,L50490924); // L385 MEMORY;
-      lisaac_push_first(&__1UN,L4069927); // L31 CONVERT;
-      __YDH=((____DB *)__2ZF);
-      lisaac_push(&__A4W,L50603052); // L386 MEMORY;
-      __U3G(__YDH,__11F, 0);
-      __2ZF=__4ZF;
+      ((____4 *)__TUX->__ZAE)[__TUX->__BC]='\0';
+      __TUX->__BC=(____L)(__TUX->__BC +  1);
+      __TUX->__BC=(____L)(__TUX->__BC -  1);
     };
+    __LLB=__TUX->__ZAE;
   };
-  __1ZF=__2ZF;
-  return(__1ZF);
+  __ELB=((____L )(system(((char*)((__LLB))))));
+  return(__ELB);
 }
 
-static ____DB __Y1H(____CRE __11H)
-// ({__CRE}) With result No recursive, No inlinable.
+static ____4 __CMC(____V *__EMC)
+// ({__V}) With result No recursive, No inlinable.
 {
-  ____DB __D2H,__GEI,__A3H,__I3H,__ZH2,__OH2,__5G4,__PH4,__XH4,__ZH4;
-  ____DB __21H;
-  ____L __N2H,__CH4,__EH4,__IH4;
-  ____CRE __R2H,__P2H,__IG2,__C1Y,__CCH,__NH4;
-  ____HSE *__P3H,*__4G4;
-  _____CONTEXT __Z1H,__B5W,__E5W,__PEI,__I2H,__RJN,__1WN,__ZJN,__50Y;
-  _____CONTEXT __WH4;
-  ____G __SEI;
-  ____Y1 *__0F4;
-  lisaac_push_first(&__Z1H,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__B5W,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__E5W,L4069927); // L31 CONVERT;
-  __D2H=((____DB )(NULL));
-  lisaac_push(&__Z1H,L76946988); // L587 MEMORY;
-  lisaac_push_first(&__B5W,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__E5W,L7481858); // L57 OBJECT;
-  __GEI=((____DB )(top_context->back->back));
-  lisaac_push(&__B5W,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__E5W,L10652676); // L81 TRUE;
-  lisaac_push_first(&__PEI,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__I2H,L76941868); // L587 MEMORY;
-  if ((__11H !=  0)) {
-    lisaac_push(&__PEI,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__I2H,L13509636); // L103 TRUE;
-    __SEI=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__PEI,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__I2H,L14689286); // L112 FALSE;
-    __SEI=__F__;
-  };
-  if (__SEI) {
-    lisaac_push(&__B5W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__E5W,L8792068); // L67 TRUE;
-    lisaac_push_first(&__PEI,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__I2H,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__RJN,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__1WN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__ZJN,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__GEI));
-    lisaac_push(&__I2H,L9574914); // L73 OBJECT;
-    __DX((&__string_141));
-    lisaac_push(&__I2H,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__RJN,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__1WN,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__ZJN,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__50Y,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__I2H,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__RJN,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__1WN,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__B5W,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__E5W,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__Z1H,L77228076); // L589 MEMORY;
-  lisaac_push_first(&__B5W,L5774867); // L44 POINTER;
-  __N2H=((____L )(sizeof(void *)));
-  lisaac_push(&__Z1H,L77228076); // L589 MEMORY;
-  __R2H=__H0E(__N2H);
-  lisaac_push(&__Z1H,L77228588); // L589 MEMORY;
-  __P2H=__1FJ(__11H,__R2H);
-  lisaac_push(&__Z1H,L77358636); // L590 MEMORY;
-  __R2H=__H0E( 4);
-  lisaac_push(&__Z1H,L77346348); // L590 MEMORY;
-  lisaac_push_first(&__B5W,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__E5W,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PEI,L5383176); // L41 NUMERIC;
-  __IG2=__H0E( 0);
-  lisaac_push(&__E5W,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PEI,L9195016); // L70 NUMERIC;
-  __C1Y=(____CRE)(__IG2 - __R2H);
-  lisaac_push(&__B5W,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__E5W,L9195016); // L70 NUMERIC;
-  __R2H=(____CRE)(__P2H - __C1Y);
-  lisaac_push(&__Z1H,L77478956); // L591 MEMORY;
-  lisaac_push_first(&__B5W,L46932012); // L358 MEMORY;
-  __IG2=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__Z1H,L77472300); // L591 MEMORY;
-  lisaac_push_first(&__B5W,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__E5W,L15224840); // L116 NUMERIC;
-  if ((__R2H > __IG2)) {
-    lisaac_push(&__B5W,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__E5W,L13509636); // L103 TRUE;
-    __SEI=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__B5W,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__E5W,L14689286); // L112 FALSE;
-    __SEI=__F__;
-  };
-  if (__SEI) {
-    lisaac_push(&__Z1H,L78252588); // L597 MEMORY;
-    lisaac_push_first(&__B5W,L6825988); // L52 TRUE;
-    lisaac_push_first(&__E5W,L77613100); // L592 MEMORY;
-    __A3H=__ERF(__R2H);
-    lisaac_push(&__E5W,L77738028); // L593 MEMORY;
-    lisaac_push_first(&__PEI,L51279404); // L391 MEMORY;
-    lisaac_push_first(&__I2H,L4069927); // L31 CONVERT;
-    __0F4=((____Y1 *)__A3H);
-    lisaac_push(&__PEI,L51389484); // L392 MEMORY;
-    lisaac_push_first(&__I2H,L18627605); // L142 NATIVE_ARRAY;
-    lisaac_push_first(&__RJN,L105516053); // L805 NATIVE_ARRAY;
-    lisaac_push_first(&__1WN,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__ZJN,L8530438); // L65 FALSE;
-    __0F4[ 0]= 3;
-    lisaac_push(&__E5W,L77881388); // L594 MEMORY;
-    lisaac_push_first(&__PEI,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__I2H,L78949383); // L602 INTEGER;
-    __CCH=__H0E( 4);
-    lisaac_push(&__I2H,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__RJN,L4069927); // L31 CONVERT;
-    __I3H=((____DB )__CCH);
-    lisaac_push(&__E5W,L77869100); // L594 MEMORY;
-    lisaac_push_first(&__PEI,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__I2H,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__RJN,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__1WN,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__ZJN,L78949383); // L602 INTEGER;
-    __CCH=__H0E( 0);
-    lisaac_push(&__ZJN,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__50Y,L4069927); // L31 CONVERT;
-    __ZH2=((____DB )__CCH);
-    lisaac_push(&__I2H,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__RJN,L9195016); // L70 NUMERIC;
-    __OH2=(void *)((unsigned long)__ZH2 - (unsigned long)__I3H);
-    lisaac_push(&__PEI,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__I2H,L9195016); // L70 NUMERIC;
-    __D2H=(void *)((unsigned long)__A3H - (unsigned long)__OH2);
-  } else /* FALSE */ {
-    lisaac_push(&__Z1H,L78252588); // L597 MEMORY;
-    lisaac_push_first(&__B5W,L6826502); // L52 FALSE;
-    lisaac_push_first(&__E5W,L78135340); // L596 MEMORY;
-    __P3H=__MBP(__P2H);
-    if (__P3H==NULL) {
-      lisaac_push(&__E5W,L78138412); // L596 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      lisaac_push(&__E5W,L78138412); // L596 MEMORY;
-      __4G4=((____HSE *)__P3H);
-      lisaac_push_first(&__PEI,L10640428); // L81 MEMORY;
-      lisaac_push_first(&__I2H,L10391596); // L79 MEMORY;
-      lisaac_push_first(&__RJN,L4069927); // L31 CONVERT;
-      __5G4=((____DB )__4G4);
-      lisaac_push(&__PEI,L10647084); // L81 MEMORY;
-      lisaac_push_first(&__I2H,L10123820); // L77 MEMORY;
-      lisaac_push_first(&__RJN,L5774867); // L44 POINTER;
-      __CH4=((____L )(sizeof(void *)));
-      lisaac_push(&__I2H,L10137132); // L77 MEMORY;
-      lisaac_push_first(&__RJN,L4988457); // L38 UINTEGER_CPU;
-      __EH4=((____L )(sizeof(unsigned long)));
-      lisaac_push(&__I2H,L10124332); // L77 MEMORY;
-      lisaac_push_first(&__RJN,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__1WN,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__ZJN,L9195016); // L70 NUMERIC;
-      __IH4=(____L)(- __EH4);
-      lisaac_push(&__RJN,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__1WN,L9195016); // L70 NUMERIC;
-      __EH4=(____L)(__CH4 - __IH4);
-      lisaac_push(&__PEI,L10647084); // L81 MEMORY;
-      lisaac_push_first(&__I2H,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__RJN,L78949383); // L602 INTEGER;
-      __NH4=__H0E(__EH4);
-      lisaac_push(&__RJN,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__1WN,L4069927); // L31 CONVERT;
-      __PH4=((____DB )__NH4);
-      lisaac_push(&__PEI,L10640940); // L81 MEMORY;
-      lisaac_push_first(&__I2H,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__RJN,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__1WN,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__ZJN,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__50Y,L78949383); // L602 INTEGER;
-      __NH4=__H0E( 0);
-      lisaac_push(&__50Y,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__WH4,L4069927); // L31 CONVERT;
-      __XH4=((____DB )__NH4);
-      lisaac_push(&__RJN,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__1WN,L9195016); // L70 NUMERIC;
-      __ZH4=(void *)((unsigned long)__XH4 - (unsigned long)__PH4);
-      lisaac_push(&__I2H,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__RJN,L9195016); // L70 NUMERIC;
-      __PH4=(void *)((unsigned long)__5G4 - (unsigned long)__ZH4);
-    };
-    __D2H=__PH4;
-  };
-  __21H=__D2H;
-  return(__21H);
+  ____4 __GMC,__VUX,__FMC;
+  __GMC='\0';
+  __FSC(__EMC);
+  __FSC((&__string_126));
+  while (((__GMC != 'y') && (__GMC != 'n'))) {
+    __VUX=((____4 )(fgetc(stdin)));
+    __SPC=__VUX;
+    __GMC=__VUX;
+  };
+  __SPC=((____4 )(fgetc(stdin)));
+  __FMC=__GMC;
+  return(__FMC);
 }
 
-static ____G __HTD(____4 __KTD)
-// ({__4}) With result No recursive, No inlinable.
+static ____DB __5XF(____OY __BYF)
+// ({__OY}) With result No recursive, No inlinable.
 {
-  ____L __NTD,__OTD,__BZD;
-  ____DB __IBE;
-  _____CONTEXT __ITD,__KRX,__GBE,__ZHE,__RBE,__5YD,__QOZ,__ROZ,__UAN;
-  _____CONTEXT __ZOZ;
-  ____4 *__MTD,*__YYD;
-  ____G __XI2,__ZI2,__1I2,__AN3,__CN3,__EN3,__LTD;
-  ____4 __SZD;
-  lisaac_push_first(&__ITD,L41036301); // L313 ABSTRACT_STRING;
-  __MTD=(&__string_142)->__ZB;
-  __NTD=(&__string_142)->__YB;
-  lisaac_push(&__ITD,L41059853); // L313 ABSTRACT_STRING;
-  lisaac_push_first(&__KRX,L9195016); // L70 NUMERIC;
-  __OTD=(____L)(__NTD -  1);
-  if (__MTD==NULL) {
-    lisaac_push(&__ITD,L41061389); // L313 ABSTRACT_STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__ITD,L41061389); // L313 ABSTRACT_STRING;
-    __YYD=((____4 *)__MTD);
-    lisaac_push_first(&__KRX,L57150485); // L436 NATIVE_ARRAY;
-    lisaac_push_first(&__GBE,L21772306); // L166 BLOCK;
-    lisaac_push_first(&__ZHE,L7481858); // L57 OBJECT;
-    __IBE=((____DB )(top_context->back->back));
-    lisaac_push(&__GBE,L21902354); // L167 BLOCK;
-    lisaac_push_first(&__ZHE,L10652676); // L81 TRUE;
-    lisaac_push_first(&__RBE,L21906962); // L167 BLOCK;
-    lisaac_push_first(&__5YD,L57156629); // L436 NATIVE_ARRAY;
-    lisaac_push_first(&__QOZ,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__ROZ,L9195016); // L70 NUMERIC;
-    __BZD=(____L)(-  1);
-    lisaac_push(&__5YD,L57155605); // L436 NATIVE_ARRAY;
-    lisaac_push_first(&__QOZ,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__ROZ,L15224840); // L116 NUMERIC;
-    __XI2=(__OTD > __BZD);
-    lisaac_push(&__QOZ,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__ROZ,L14700552); // L112 NUMERIC;
-    __ZI2=(__OTD == __BZD);
-    if (__XI2) {
-      lisaac_push(&__QOZ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__ROZ,L10900996); // L83 TRUE;
-      __1I2=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__QOZ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__ROZ,L12342790); // L94 FALSE;
-      __1I2=__ZI2;
-    };
-    if (__1I2) {
-      lisaac_push(&__RBE,L21903890); // L167 BLOCK;
-      lisaac_push_first(&__5YD,L13509636); // L103 TRUE;
-      __1I2=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__RBE,L21903890); // L167 BLOCK;
-      lisaac_push_first(&__5YD,L14689286); // L112 FALSE;
-      __1I2=__F__;
-    };
-    if (__1I2) {
-      lisaac_push(&__GBE,L22153746); // L169 BLOCK;
-      lisaac_push_first(&__ZHE,L8792068); // L67 TRUE;
-      lisaac_push_first(&__RBE,L21910546); // L167 BLOCK;
-      lisaac_push(&__RBE,L22051346); // L168 BLOCK;
-      lisaac_push_first(&__5YD,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__QOZ,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__ROZ,L8792068); // L67 TRUE;
-      lisaac_push_first(&__UAN,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__IBE));
-      lisaac_push(&__5YD,L9574914); // L73 OBJECT;
-      __DX((&__string_1));
-      lisaac_push(&__5YD,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__QOZ,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__ROZ,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__UAN,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__ZOZ,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__5YD,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__QOZ,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__ROZ,L4598824); // L35 SYSTEM;
-      exit(( 1));
+  ____33D __DYF;
+  ____54D *__GYF,*__1ZF,*__XVY,*__YVY,*__ZVY,*__X0F;
+  ____DB __KYF,__E0F,__CYF;
+  ____G __JZF;
+  __DYF=((____33D ) 0);
+  __GYF=NULL;
+  __KYF=((____DB )(NULL));
+  __14F:
+  {
+    if ((__DYF < __QYF)) {
+      __GYF=((____54D *)(last_block[(__DYF)]));
+      __JZF=(((____33D)(((____54D *)__GYF)->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1))) < ((____33D ) 4096)) || ((____33D)(((____54D *)__GYF)->__C5D & ((____33D ) 1)) == ((____33D ) 1)));
     } else /* FALSE */ {
-      lisaac_push(&__GBE,L22153746); // L169 BLOCK;
-      lisaac_push_first(&__ZHE,L8530438); // L65 FALSE;
-    };
-    __BZD=__OTD;
-    lisaac_push(&__KRX,L58067477); // L443 NATIVE_ARRAY;
-    lisaac_push_first(&__GBE,L11802642); // L90 BLOCK;
-    __ACE:
-    {
-      lisaac_push(&__GBE,L11802642); // L90 BLOCK;
-      lisaac_push_first(&__ZHE,L57807381); // L441 NATIVE_ARRAY;
-      lisaac_push_first(&__RBE,L15498248); // L118 NUMERIC;
-      lisaac_push_first(&__5YD,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__QOZ,L15224840); // L116 NUMERIC;
-      __AN3=(__BZD >  0);
-      lisaac_push(&__5YD,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__QOZ,L14700552); // L112 NUMERIC;
-      __CN3=(__BZD ==  0);
-      if (__AN3) {
-        lisaac_push(&__5YD,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__QOZ,L10900996); // L83 TRUE;
-        __EN3=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__5YD,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__QOZ,L12342790); // L94 FALSE;
-        __EN3=__CN3;
-      };
-      if (__EN3) {
-        lisaac_push(&__RBE,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__5YD,L13509636); // L103 TRUE;
-        __EN3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__RBE,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__5YD,L14689286); // L112 FALSE;
-        __EN3=__F__;
-      };
-      if (__EN3) {
-        lisaac_push(&__ZHE,L57810453); // L441 NATIVE_ARRAY;
-        lisaac_push_first(&__RBE,L10377220); // L79 TRUE;
-        __EN3=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__ZHE,L57810453); // L441 NATIVE_ARRAY;
-        lisaac_push_first(&__RBE,L11832326); // L90 FALSE;
-        lisaac_push_first(&__5YD,L57819669); // L441 NATIVE_ARRAY;
-        __SZD=__LVD(__YYD,__BZD);
-        __EN3=(__KTD == __SZD);
-      };
-      if (__EN3) {
-        lisaac_push(&__GBE,L11799570); // L90 BLOCK;
-        lisaac_push_first(&__ZHE,L13509636); // L103 TRUE;
-        __EN3=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__GBE,L11799570); // L90 BLOCK;
-        lisaac_push_first(&__ZHE,L14689286); // L112 FALSE;
-        __EN3=__F__;
-      };
-      if (__EN3) {
-        lisaac_push(&__GBE,L12192274); // L93 BLOCK;
-        lisaac_push_first(&__ZHE,L8792068); // L67 TRUE;
-        lisaac_push_first(&__RBE,L11935762); // L91 BLOCK;
-        lisaac_push_first(&__5YD,L57941013); // L442 NATIVE_ARRAY;
-        lisaac_push_first(&__QOZ,L9195016); // L70 NUMERIC;
-        __BZD=(____L)(__BZD -  1);
-        lisaac_push(&__RBE,L12068370); // L92 BLOCK;
-        goto __ACE;
-      } else /* FALSE */ {
-        lisaac_push(&__GBE,L12192274); // L93 BLOCK;
-        lisaac_push_first(&__ZHE,L8530438); // L65 FALSE;
-      };
+      __JZF=__J__;
     };
-    lisaac_push(&__KRX,L58200085); // L444 NATIVE_ARRAY;
-    lisaac_push_first(&__GBE,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__ZHE,L15224840); // L116 NUMERIC;
-    __XI2=(__BZD >  0);
-    lisaac_push(&__GBE,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__ZHE,L14700552); // L112 NUMERIC;
-    __ZI2=(__BZD ==  0);
-    if (__XI2) {
-      lisaac_push(&__GBE,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__ZHE,L10900996); // L83 TRUE;
-      __1I2=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__GBE,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__ZHE,L12342790); // L94 FALSE;
-      __1I2=__ZI2;
+    if (__JZF) {
+      __DYF=(____33D)(__DYF - (____33D)(((____33D ) 0) - ((____33D ) 1)));
+      goto __14F;
     };
-    __XI2=__1I2;
   };
-  __LTD=__XI2;
-  return(__LTD);
-}
-
-static void __MJK(____0B *__OJK,____4 __PJK,____L __QJK)
-// ({__0B},{__4},{__L}) Void No recursive, No inlinable.
-{
-  ____DB __4WL;
-  ____L __GQZ;
-  _____CONTEXT __NJK,__2WL,__F0M,__HXL,__UJK,__EQZ,__2H4,__3H4,__4H4;
-  _____CONTEXT __GI4,__HI4;
-  ____G __AI4,__LI4,__NI4;
-  ____4 *__ZJK;
-  ____4 __BKK;
-  lisaac_push_first(&__NJK,L40110616); // L306 STRING;
-  lisaac_push_first(&__2WL,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__F0M,L7481858); // L57 OBJECT;
-  __4WL=((____DB )(top_context->back->back));
-  lisaac_push(&__2WL,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__F0M,L10652676); // L81 TRUE;
-  lisaac_push_first(&__HXL,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__UJK,L40120344); // L306 STRING;
-  lisaac_push_first(&__EQZ,L16923661); // L129 ABSTRACT_STRING;
-  __GQZ=__OJK->__FC;
-  lisaac_push(&__EQZ,L17187853); // L131 ABSTRACT_STRING;
-  lisaac_push_first(&__2H4,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__3H4,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__4H4,L15224840); // L116 NUMERIC;
-  if (( 1 > __QJK)) {
-    lisaac_push(&__3H4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__4H4,L13509636); // L103 TRUE;
-    __AI4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__3H4,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__4H4,L14689286); // L112 FALSE;
-    __AI4=__F__;
+  if ((__DYF >= __QYF)) {
+    __1ZF=__SWM();
+    __GYF=__1ZF;
   };
-  if (__AI4) {
-    lisaac_push(&__2H4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__3H4,L10652676); // L81 TRUE;
-    lisaac_push_first(&__4H4,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__GI4,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__HI4,L15224840); // L116 NUMERIC;
-    __AI4=(__GQZ > __QJK);
-    lisaac_push(&__GI4,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__HI4,L14700552); // L112 NUMERIC;
-    __LI4=(__GQZ == __QJK);
-    if (__AI4) {
-      lisaac_push(&__GI4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__HI4,L10900996); // L83 TRUE;
-      __NI4=__F__;
+  ((____54D *)__GYF)->__C5D=(____33D)(__GYF->__C5D - ((____33D ) 4096));
+  __1ZF=((____54D *)__GYF);
+  __E0F=((____DB )((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__1ZF) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__1ZF->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1))))))));
+  if (((____33D)(((____54D *)__GYF)->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1))) < ((____33D )(MINIMUM_SIZE)))) {
+    __XVY=((____54D *)__GYF);
+    __YVY=__XVY->__E5D;
+    __ZVY=__XVY->__D5D;
+    if (((void *)__YVY == (void *)NULL)) {
+      __JDN=__ZVY;
     } else /* FALSE */ {
-      lisaac_push(&__GI4,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__HI4,L12342790); // L94 FALSE;
-      __NI4=__LI4;
+      ((____54D *)__YVY)->__D5D=__ZVY;
     };
-    __AI4=__NI4;
-  } else /* FALSE */ {
-    lisaac_push(&__2H4,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__3H4,L12081158); // L92 FALSE;
-    __AI4=__J__;
-  };
-  if (__AI4) {
-    lisaac_push(&__HXL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__UJK,L13509636); // L103 TRUE;
-    __AI4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__HXL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__UJK,L14689286); // L112 FALSE;
-    __AI4=__F__;
-  };
-  if (__AI4) {
-    lisaac_push(&__2WL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F0M,L8792068); // L67 TRUE;
-    lisaac_push_first(&__HXL,L19289106); // L147 BLOCK;
-    lisaac_push(&__HXL,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__UJK,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__EQZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__2H4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__3H4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__4WL));
-    lisaac_push(&__UJK,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__UJK,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__EQZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__2H4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__3H4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__4H4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__UJK,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__EQZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__2H4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__2WL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F0M,L8530438); // L65 FALSE;
-  };
-  __ZJK=__OJK->__IUE;
-  lisaac_push(&__NJK,L40385560); // L308 STRING;
-  lisaac_push_first(&__2WL,L9195016); // L70 NUMERIC;
-  __GQZ=(____L)(__QJK -  1);
-  if (__ZJK==NULL) {
-    lisaac_push(&__NJK,L40387096); // L308 STRING;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* NATIVE_ARRAY(Expanded CHARACTER) */ {
-    lisaac_push(&__NJK,L40387096); // L308 STRING;
-    __CRG(((____4 *)__ZJK),__PJK,__GQZ);
-  };
-  lisaac_push(&__NJK,L40634904); // L310 STRING;
-  lisaac_push_first(&__2WL,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__F0M,L7481858); // L57 OBJECT;
-  __4WL=((____DB )(top_context->back->back));
-  lisaac_push(&__2WL,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__F0M,L10652676); // L81 TRUE;
-  lisaac_push_first(&__HXL,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__UJK,L40641560); // L310 STRING;
-  __BKK=__GCJ(__OJK,__QJK);
-  if ((__BKK == __PJK)) {
-    lisaac_push(&__HXL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__UJK,L13509636); // L103 TRUE;
-    __AI4=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__HXL,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__UJK,L14689286); // L112 FALSE;
-    __AI4=__F__;
-  };
-  if (__AI4) {
-    lisaac_push(&__2WL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F0M,L8792068); // L67 TRUE;
-    lisaac_push_first(&__HXL,L19289106); // L147 BLOCK;
-    lisaac_push(&__HXL,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__UJK,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__EQZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__2H4,L8792068); // L67 TRUE;
-    lisaac_push_first(&__3H4,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__4WL));
-    lisaac_push(&__UJK,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__UJK,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__EQZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__2H4,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__3H4,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__4H4,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__UJK,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__EQZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__2H4,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__2WL,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__F0M,L8530438); // L65 FALSE;
-  };
-}
-
-static void __ZYO(____DB __2YO,____DB __3YO,____CRE __4YO)
-// ({__DB},{__DB},{__CRE}) Void No recursive, No inlinable.
-{
-  ____L __BZO,__JZO,__KZO,__AVP;
-  ____DB __UTP,__3ZO;
-  _____CONTEXT __0YO,__MTP,__3VQ,__OMR,__GZO,__5EX,__VDV,__RMU,__C5Y;
-  ____G __AUP,__OK2,__QK2,__SK2;
-  ____DB *__5YO,*__AZO;
-  lisaac_push_first(&__0YO,L59125804); // L451 MEMORY;
-  lisaac_push_first(&__MTP,L53366792); // L407 NUMERIC;
-  lisaac_push_first(&__3VQ,L67015176); // L511 NUMERIC;
-  lisaac_push_first(&__OMR,L4069927); // L31 CONVERT;
-  __BZO=((____L )__4YO);
-  lisaac_push(&__0YO,L59267116); // L452 MEMORY;
-  lisaac_push_first(&__MTP,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__3VQ,L7481858); // L57 OBJECT;
-  __UTP=((____DB )(top_context->back->back));
-  lisaac_push(&__MTP,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__3VQ,L10652676); // L81 TRUE;
-  lisaac_push_first(&__OMR,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__GZO,L59261484); // L452 MEMORY;
-  lisaac_push_first(&__5EX,L5774867); // L44 POINTER;
-  __JZO=((____L )(sizeof(void *)));
-  lisaac_push(&__GZO,L59261996); // L452 MEMORY;
-  lisaac_push_first(&__5EX,L9195016); // L70 NUMERIC;
-  __KZO=(____L)(__JZO -  1);
-  lisaac_push(&__GZO,L59250220); // L452 MEMORY;
-  lisaac_push_first(&__5EX,L22171143); // L169 INTEGER;
-  if (((____L)(__BZO & __KZO) ==  0)) {
-    lisaac_push(&__OMR,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__GZO,L13509636); // L103 TRUE;
-    __AUP=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__OMR,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__GZO,L14689286); // L112 FALSE;
-    __AUP=__F__;
-  };
-  if (__AUP) {
-    lisaac_push(&__MTP,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3VQ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__OMR,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__GZO,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__5EX,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__VDV,L8792068); // L67 TRUE;
-    lisaac_push_first(&__RMU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__UTP));
-    lisaac_push(&__GZO,L9574914); // L73 OBJECT;
-    __DX((&__string_143));
-    lisaac_push(&__GZO,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__5EX,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__VDV,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__RMU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__C5Y,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__GZO,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__5EX,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__VDV,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__MTP,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3VQ,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__0YO,L59394092); // L453 MEMORY;
-  lisaac_push_first(&__MTP,L5774867); // L44 POINTER;
-  __JZO=((____L )(sizeof(void *)));
-  lisaac_push(&__0YO,L59383852); // L453 MEMORY;
-  lisaac_push_first(&__MTP,L9719304); // L74 NUMERIC;
-  __KZO=(____L)(__BZO / __JZO);
-  __BZO=__KZO;
-  lisaac_push(&__0YO,L59537452); // L454 MEMORY;
-  lisaac_push_first(&__MTP,L4069927); // L31 CONVERT;
-  __5YO=((____DB *)__2YO);
-  lisaac_push(&__0YO,L59668524); // L455 MEMORY;
-  lisaac_push_first(&__MTP,L4069927); // L31 CONVERT;
-  __AZO=((____DB *)__3YO);
-  lisaac_push(&__0YO,L59905068); // L457 MEMORY;
-  lisaac_push_first(&__MTP,L9195016); // L70 NUMERIC;
-  __BZO=(____L)(__KZO -  1);
-  lisaac_push(&__0YO,L60164652); // L459 MEMORY;
-  __JZO=__BZO;
-  lisaac_push_first(&__MTP,L22172680); // L169 NUMERIC;
-  __UUP:
-  {
-    lisaac_push(&__MTP,L22550536); // L172 NUMERIC;
-    lisaac_push_first(&__3VQ,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__OMR,L15224840); // L116 NUMERIC;
-    __OK2=(__JZO >  0);
-    lisaac_push(&__3VQ,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__OMR,L14700552); // L112 NUMERIC;
-    __QK2=(__JZO ==  0);
-    if (__OK2) {
-      lisaac_push(&__3VQ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__OMR,L10900996); // L83 TRUE;
-      __SK2=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__3VQ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__OMR,L12342790); // L94 FALSE;
-      __SK2=__QK2;
+    if (((void *)__ZVY != (void *)NULL)) {
+      ((____54D *)__ZVY)->__E5D=__YVY;
     };
-    if (__SK2) {
-      lisaac_push(&__MTP,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__3VQ,L8792068); // L67 TRUE;
-      lisaac_push_first(&__OMR,L22685704); // L173 NUMERIC;
-      lisaac_push_first(&__GZO,L60046892); // L458 MEMORY;
-      __3ZO=__UQG(__5YO,__JZO);
-      lisaac_push(&__GZO,L60049964); // L458 MEMORY;
-      __U3G(__AZO,__3ZO,__JZO);
-      lisaac_push(&__OMR,L22812680); // L174 NUMERIC;
-      lisaac_push_first(&__GZO,L9195016); // L70 NUMERIC;
-      __AVP=(____L)(__JZO -  1);
-      lisaac_push(&__OMR,L22826504); // L174 NUMERIC;
-      __JZO=__AVP;
-      goto __UUP;
-    } else /* FALSE */ {
-      lisaac_push(&__MTP,L22940168); // L175 NUMERIC;
-      lisaac_push_first(&__3VQ,L8530438); // L65 FALSE;
+    __KYF=__GYF->__B5D;
+    if ((__KYF != (void *)NULL)) {
+      __X0F=((____54D *)(void *)((unsigned long)__HDF - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)__KYF)));
+      __X0F->__C5D=(____33D)((____33D)(__X0F->__C5D - (____33D)(((____33D ) 0) - __GYF->__C5D)) - (____33D)(((____33D ) 0) - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))));
+      last_block[(__DYF)] = (__X0F);
     };
   };
+  ((____OY *)__E0F)[ 0]=__BYF;
+  __CYF=(void *)((unsigned long)__E0F - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D ) 4))));
+  return(__CYF);
 }
 
-static ____DB __UQG(____DB *__WQG,____L __XQG)
-// ({__RIG},{__L}) With result No recursive, No inlinable.
+static ____54D* __GCN(____33D __ICN)
+// ({__33D}) With result No recursive, No inlinable.
 {
-  ____DB __2SG,__YQG;
-  _____CONTEXT __VQG,__0SG,__Q0G,__FTG,__2QG,__LL2,__ML2,__DKP,__VRZ;
-  ____G __PL2,__RL2,__TL2;
-  lisaac_push_first(&__VQG,L16780309); // L128 NATIVE_ARRAY;
-  lisaac_push_first(&__0SG,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__Q0G,L7481858); // L57 OBJECT;
-  __2SG=((____DB )(top_context->back->back));
-  lisaac_push(&__0SG,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__Q0G,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FTG,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__2QG,L16785429); // L128 NATIVE_ARRAY;
-  lisaac_push_first(&__LL2,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__ML2,L15224840); // L116 NUMERIC;
-  __PL2=(__XQG >  0);
-  lisaac_push(&__LL2,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__ML2,L14700552); // L112 NUMERIC;
-  __RL2=(__XQG ==  0);
-  if (__PL2) {
-    lisaac_push(&__LL2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__ML2,L10900996); // L83 TRUE;
-    __TL2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__LL2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__ML2,L12342790); // L94 FALSE;
-    __TL2=__RL2;
-  };
-  if (__TL2) {
-    lisaac_push(&__FTG,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__2QG,L13509636); // L103 TRUE;
-    __TL2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FTG,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__2QG,L14689286); // L112 FALSE;
-    __TL2=__F__;
-  };
-  if (__TL2) {
-    lisaac_push(&__0SG,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q0G,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FTG,L21910546); // L167 BLOCK;
-    lisaac_push(&__FTG,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__2QG,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__LL2,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__ML2,L8792068); // L67 TRUE;
-    lisaac_push_first(&__DKP,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__2SG));
-    lisaac_push(&__2QG,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__2QG,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__LL2,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__ML2,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__DKP,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__VRZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__2QG,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__LL2,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__ML2,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0SG,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__Q0G,L8530438); // L65 FALSE;
-  };
-  __YQG=__WQG[__XQG];
-  return(__YQG);
+  ____54D *__KCN,*__GEN,*__JCN;
+  ____33D __LEN;
+  __KCN=__JDN;
+  while ((((void *)__KCN != (void *)NULL) && ((____33D)(((____54D *)__KCN)->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1))) < __ICN))) {
+    __KCN=__KCN->__D5D;
+  };
+  if (((void *)__KCN == (void *)NULL)) {
+    __GEN=__SWM();
+    __KCN=__GEN;
+  };
+  __LEN=(____33D)(((____33D )(void *)((unsigned long)((____DB )((____54D *)__KCN)) - (unsigned long)__HDF)) >>  26);
+  __DHQ(((____54D *)__KCN),((____DB )__ICN),__LEN);
+  __JCN=__KCN;
+  return(__JCN);
 }
 
-static void __U3G(____DB *__W3G,____DB __X3G,____L __Y3G)
-// ({__RIG},{__DB},{__L}) Void No recursive, No inlinable.
+static void __J0M(____DB __L0M,____DB __M0M,____33D __N0M)
+// ({__DB},{__DB},{__33D}) Void No recursive, No inlinable.
 {
-  ____DB __HCH;
-  _____CONTEXT __V3G,__FCH,__1GH,__QCH,__23G,__MM2,__NM2,__5OP,__JNZ;
-  _____CONTEXT __RNZ;
-  ____G __QM2,__SM2,__UM2;
-  lisaac_push_first(&__V3G,L18222101); // L139 NATIVE_ARRAY;
-  lisaac_push_first(&__FCH,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__1GH,L7481858); // L57 OBJECT;
-  __HCH=((____DB )(top_context->back->back));
-  lisaac_push(&__FCH,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__1GH,L10652676); // L81 TRUE;
-  lisaac_push_first(&__QCH,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__23G,L18227221); // L139 NATIVE_ARRAY;
-  lisaac_push_first(&__MM2,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__NM2,L15224840); // L116 NUMERIC;
-  __QM2=(__Y3G >  0);
-  lisaac_push(&__MM2,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__NM2,L14700552); // L112 NUMERIC;
-  __SM2=(__Y3G ==  0);
-  if (__QM2) {
-    lisaac_push(&__MM2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__NM2,L10900996); // L83 TRUE;
-    __UM2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__MM2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__NM2,L12342790); // L94 FALSE;
-    __UM2=__SM2;
-  };
-  if (__UM2) {
-    lisaac_push(&__QCH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__23G,L13509636); // L103 TRUE;
-    __UM2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__QCH,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__23G,L14689286); // L112 FALSE;
-    __UM2=__F__;
-  };
-  if (__UM2) {
-    lisaac_push(&__FCH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__1GH,L8792068); // L67 TRUE;
-    lisaac_push_first(&__QCH,L21910546); // L167 BLOCK;
-    lisaac_push(&__QCH,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__23G,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__MM2,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__NM2,L8792068); // L67 TRUE;
-    lisaac_push_first(&__5OP,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__HCH));
-    lisaac_push(&__23G,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__23G,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__MM2,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__NM2,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__5OP,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__JNZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__23G,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__MM2,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__NM2,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__FCH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__1GH,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__V3G,L18627605); // L142 NATIVE_ARRAY;
-  lisaac_push_first(&__FCH,L105516053); // L805 NATIVE_ARRAY;
-  lisaac_push_first(&__1GH,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__QCH,L7481858); // L57 OBJECT;
-  __HCH=((____DB )(top_context->back->back));
-  lisaac_push(&__1GH,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__QCH,L10652676); // L81 TRUE;
-  lisaac_push_first(&__23G,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__MM2,L105520661); // L805 NATIVE_ARRAY;
-  lisaac_push_first(&__NM2,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__5OP,L15224840); // L116 NUMERIC;
-  __QM2=(__Y3G >  0);
-  lisaac_push(&__NM2,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__5OP,L14700552); // L112 NUMERIC;
-  __SM2=(__Y3G ==  0);
-  if (__QM2) {
-    lisaac_push(&__NM2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__5OP,L10900996); // L83 TRUE;
-    __UM2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__NM2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__5OP,L12342790); // L94 FALSE;
-    __UM2=__SM2;
+  ____L __Q0M,__A1M;
+  ____DB *__O0M,*__P0M;
+  __Q0M=((____L )__N0M);
+  __A1M=(____L)(__Q0M / ((____L )(sizeof(void *))));
+  __Q0M=__A1M;
+  __O0M=((____DB *)__L0M);
+  __P0M=((____DB *)__M0M);
+  __Q0M=(____L)(__A1M -  1);
+  while ((__Q0M >=  0)) {
+    __P0M[__Q0M]=__O0M[__Q0M];
+    __Q0M=(____L)(__Q0M -  1);
   };
-  if (__UM2) {
-    lisaac_push(&__23G,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__MM2,L13509636); // L103 TRUE;
-    __UM2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__23G,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__MM2,L14689286); // L112 FALSE;
-    __UM2=__F__;
-  };
-  if (__UM2) {
-    lisaac_push(&__1GH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__QCH,L8792068); // L67 TRUE;
-    lisaac_push_first(&__23G,L21910546); // L167 BLOCK;
-    lisaac_push(&__23G,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__MM2,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__NM2,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__5OP,L8792068); // L67 TRUE;
-    lisaac_push_first(&__JNZ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__HCH));
-    lisaac_push(&__MM2,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__MM2,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__NM2,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__5OP,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__JNZ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__RNZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__MM2,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__NM2,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__5OP,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__1GH,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__QCH,L8530438); // L65 FALSE;
-  };
-  __W3G[__Y3G]=__X3G;
 }
 
-static ____CRE __OYP(____DB __QYP)
-// ({__DB}) With result No recursive, No inlinable.
+static void __DHQ(____54D *__EHQ,____DB __FHQ,____33D __GHQ)
+// ({__54D},{__DB},{__33D}) Void No recursive, No inlinable.
 {
-  ____DB __G1Q,__ZYP;
-  ____CRE __DSZ,__RYP;
-  _____CONTEXT __PYP,__E1Q,__0OR,__P1Q,__VYP,__ASZ,__BSZ,__FSZ,__NSZ;
-  ____G __QGS,__TGS,__UGS;
-  lisaac_push_first(&__PYP,L52169736); // L398 NUMERIC;
-  lisaac_push_first(&__E1Q,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__0OR,L7481858); // L57 OBJECT;
-  __G1Q=((____DB )(top_context->back->back));
-  lisaac_push(&__E1Q,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__0OR,L10652676); // L81 TRUE;
-  lisaac_push_first(&__P1Q,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__VYP,L52175368); // L398 NUMERIC;
-  lisaac_push_first(&__ASZ,L14156807); // L108 INTEGER;
-  lisaac_push_first(&__BSZ,L78949383); // L602 INTEGER;
-  __DSZ=__H0E( 0);
-  lisaac_push(&__BSZ,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__FSZ,L4069927); // L31 CONVERT;
-  __ZYP=((____DB )__DSZ);
-  lisaac_push(&__VYP,L52174344); // L398 NUMERIC;
-  lisaac_push_first(&__ASZ,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__BSZ,L15224840); // L116 NUMERIC;
-  __QGS=(__QYP > __ZYP);
-  lisaac_push(&__ASZ,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__BSZ,L14700552); // L112 NUMERIC;
-  __TGS=(__QYP == __ZYP);
-  if (__QGS) {
-    lisaac_push(&__ASZ,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__BSZ,L10900996); // L83 TRUE;
-    __UGS=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__ASZ,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__BSZ,L12342790); // L94 FALSE;
-    __UGS=__TGS;
-  };
-  if (__UGS) {
-    lisaac_push(&__P1Q,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__VYP,L13509636); // L103 TRUE;
-    __UGS=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__P1Q,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__VYP,L14689286); // L112 FALSE;
-    __UGS=__F__;
-  };
-  if (__UGS) {
-    lisaac_push(&__E1Q,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__0OR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__P1Q,L21910546); // L167 BLOCK;
-    lisaac_push(&__P1Q,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__VYP,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__ASZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__BSZ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FSZ,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__G1Q));
-    lisaac_push(&__VYP,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__VYP,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__ASZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__BSZ,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__FSZ,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__NSZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__VYP,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__ASZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__BSZ,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__E1Q,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__0OR,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PYP,L52560904); // L401 NUMERIC;
-  lisaac_push_first(&__E1Q,L9081875); // L69 POINTER;
-  lisaac_push_first(&__0OR,L4069927); // L31 CONVERT;
-  __RYP=((____CRE )__QYP);
-  return(__RYP);
+  ____54D *__NRQ,*__ORQ,*__3IQ;
+  ____33D __HHQ,__GIQ;
+  __NRQ=__EHQ->__E5D;
+  __ORQ=__EHQ->__D5D;
+  if (((void *)__NRQ == (void *)NULL)) {
+    __JDN=__ORQ;
+  } else /* FALSE */ {
+    ((____54D *)__NRQ)->__D5D=__ORQ;
+  };
+  if (((void *)__ORQ != (void *)NULL)) {
+    ((____54D *)__ORQ)->__E5D=__NRQ;
+  };
+  __HHQ=__EHQ->__C5D;
+  __GIQ=(____33D)(__HHQ - ((____33D )__FHQ));
+  if ((__GIQ > (____33D)((____33D)(((____33D )(MINIMUM_SIZE)) - (____33D)(((____33D ) 0) - ((____33D ) 2))) - (____33D)(((____33D ) 0) - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))))))) {
+    __HHQ=((____33D )__FHQ);
+    __3IQ=((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__EHQ) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)__FHQ)));
+    __3IQ->__B5D=(void *)((unsigned long)((____DB )__EHQ) - (unsigned long)__HDF);
+    __3IQ->__C5D=(____33D)(__GIQ - ((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))));
+    __3IQ->__D5D=__JDN;
+    __3IQ->__E5D=NULL;
+    if (((void *)__JDN != (void *)NULL)) {
+      ((____54D *)__JDN)->__E5D=__3IQ;
+    };
+    __JDN=__3IQ;
+    if (((____33D)(__3IQ->__C5D & ((____33D ) 2)) !=  0)) {
+      last_block[(__GHQ)] = (__3IQ);
+    } else /* FALSE */ {
+      ((____54D *)(void *)((unsigned long)(void *)((unsigned long)((____DB )__3IQ) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )((____33D )(____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long)))))))) - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )(____33D)(__3IQ->__C5D & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 3)) - ((____33D ) 1)))))))->__B5D=(void *)((unsigned long)((____DB )__3IQ) - (unsigned long)__HDF);
+    };
+  };
+  __EHQ->__C5D=(____33D)((____33D)(((____33D ) 0) - (____33D)((____33D)((____33D)(((____33D ) 0) - __HHQ) - ((____33D ) 1)) & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 1)) - ((____33D ) 1)))) - ((____33D ) 1));
+  ;
 }
 
-static ____DB __XXG(____CRE __ZXG)
-// ({__CRE}) With result No recursive, No inlinable.
+static void __XHI(____4 *__YHI,____L __ZHI,____L __0HI)
+// ({__HB},{__L},{__L}) Void No recursive, No inlinable.
 {
-  ____DB __2EM,__0XG;
-  ____CRE __LVK;
-  _____CONTEXT __YXG,__TKJ,__BVK,__0EM,__YFN,__FFM,__HVK,__EP2,__FP2;
-  _____CONTEXT __2HU,__1AZ;
-  ____G __IP2,__KP2,__MP2;
-  lisaac_push_first(&__YXG,L6836265); // L52 UINTEGER_CPU;
-  lisaac_push_first(&__TKJ,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__BVK,L52169736); // L398 NUMERIC;
-  lisaac_push_first(&__0EM,L21772306); // L166 BLOCK;
-  lisaac_push_first(&__YFN,L7481858); // L57 OBJECT;
-  __2EM=((____DB )(top_context->back->back));
-  lisaac_push(&__0EM,L21902354); // L167 BLOCK;
-  lisaac_push_first(&__YFN,L10652676); // L81 TRUE;
-  lisaac_push_first(&__FFM,L21906962); // L167 BLOCK;
-  lisaac_push_first(&__HVK,L52175368); // L398 NUMERIC;
-  __LVK=__H0E( 0);
-  lisaac_push(&__HVK,L52174344); // L398 NUMERIC;
-  lisaac_push_first(&__EP2,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__FP2,L15224840); // L116 NUMERIC;
-  __IP2=(__ZXG > __LVK);
-  lisaac_push(&__EP2,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__FP2,L14700552); // L112 NUMERIC;
-  __KP2=(__ZXG == __LVK);
-  if (__IP2) {
-    lisaac_push(&__EP2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__FP2,L10900996); // L83 TRUE;
-    __MP2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__EP2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__FP2,L12342790); // L94 FALSE;
-    __MP2=__KP2;
-  };
-  if (__MP2) {
-    lisaac_push(&__FFM,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__HVK,L13509636); // L103 TRUE;
-    __MP2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__FFM,L21903890); // L167 BLOCK;
-    lisaac_push_first(&__HVK,L14689286); // L112 FALSE;
-    __MP2=__F__;
+  ____L __YOJ;
+  __YOJ=__ZHI;
+  while ((__YOJ <= __0HI)) {
+    __YHI[__YOJ]='\0';
+    __YOJ=(____L)(__YOJ +  1);
   };
-  if (__MP2) {
-    lisaac_push(&__0EM,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YFN,L8792068); // L67 TRUE;
-    lisaac_push_first(&__FFM,L21910546); // L167 BLOCK;
-    lisaac_push(&__FFM,L22051346); // L168 BLOCK;
-    lisaac_push_first(&__HVK,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__EP2,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__FP2,L8792068); // L67 TRUE;
-    lisaac_push_first(&__2HU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__2EM));
-    lisaac_push(&__HVK,L9574914); // L73 OBJECT;
-    __DX((&__string_1));
-    lisaac_push(&__HVK,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__EP2,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__FP2,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__2HU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__1AZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__HVK,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__EP2,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__FP2,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0EM,L22153746); // L169 BLOCK;
-    lisaac_push_first(&__YFN,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__BVK,L52560904); // L401 NUMERIC;
-  lisaac_push(&__TKJ,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__BVK,L4069927); // L31 CONVERT;
-  __0XG=((____DB )__ZXG);
-  return(__0XG);
 }
 
-static void __OWS(____HSE *__QWS,____DB __RWS,____CRE __SWS)
-// ({__HSE},{__DB},{__CRE}) Void No recursive, No inlinable.
+static void __HR(____L __IR,____WB *__JR)
+// ({__L},{NULLx__WB}) Void No recursive, No inlinable.
 {
-  ____DB __VAT,__PXS,__WI4,__GJ4,__OJ4,__QJ4,__1AP,__5AP,__JV2,__AJJ;
-  ____CRE __ABZ,__BBZ,__AXS,__1XS,__VQ2,__5BZ,__IYS,__SYS,__2CZ,__1EZ;
-  ____CRE __QN3,__UN3,__WN3;
-  ____L __KXS,__LXS,__OQ2,__ZI4,__1I4,__5I4,__YU2,__1U2,__5U2;
-  ____HSE *__MYS,*__EOS,*__CFZ;
-  _____CONTEXT __PWS,__RHX,__UHX,__4AT,__4WS,__4AZ,__CBZ,__G1V,__MBZ;
-  _____CONTEXT __NJ4,__4U2,__GV2,__IV2;
-  ____G __BBT;
-  lisaac_push_first(&__PWS,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__RHX,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__UHX,L4069927); // L31 CONVERT;
-  lisaac_push(&__PWS,L30681132); // L234 MEMORY;
-  lisaac_push_first(&__RHX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__UHX,L7481858); // L57 OBJECT;
-  __VAT=((____DB )(top_context->back->back));
-  lisaac_push(&__RHX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__UHX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4AT,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__4WS,L30674988); // L234 MEMORY;
-  lisaac_push_first(&__4AZ,L11406380); // L87 MEMORY;
-  __ABZ=__QWS->__KSE;
-  lisaac_push(&__4AZ,L11433004); // L87 MEMORY;
-  __BBZ=__H0E( 1);
-  lisaac_push(&__4AZ,L11430956); // L87 MEMORY;
-  lisaac_push_first(&__CBZ,L22171143); // L169 INTEGER;
-  __AXS=(____CRE)(__ABZ & __BBZ);
-  lisaac_push(&__4WS,L30679596); // L234 MEMORY;
-  lisaac_push_first(&__4AZ,L20725292); // L158 MEMORY;
-  __ABZ=__H0E( 0);
-  if ((__AXS == __ABZ)) {
-    lisaac_push(&__4AT,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__4WS,L13509636); // L103 TRUE;
-    __BBT=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4AT,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__4WS,L14689286); // L112 FALSE;
-    __BBT=__F__;
-  };
-  if (__BBT) {
-    lisaac_push(&__RHX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__UHX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4AT,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__4WS,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__4AZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__CBZ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__G1V,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__VAT));
-    lisaac_push(&__4WS,L9574914); // L73 OBJECT;
-    __DX((&__string_144));
-    lisaac_push(&__4WS,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__4AZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__CBZ,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__G1V,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__MBZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__4WS,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__4AZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__CBZ,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__RHX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__UHX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PWS,L30824492); // L235 MEMORY;
-  lisaac_push_first(&__RHX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__UHX,L7481858); // L57 OBJECT;
-  __VAT=((____DB )(top_context->back->back));
-  lisaac_push(&__RHX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__UHX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4AT,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__4WS,L30818348); // L235 MEMORY;
-  lisaac_push_first(&__4AZ,L5774867); // L44 POINTER;
-  __KXS=((____L )(sizeof(void *)));
-  lisaac_push(&__4WS,L30818860); // L235 MEMORY;
-  lisaac_push_first(&__4AZ,L9195016); // L70 NUMERIC;
-  __LXS=(____L)(__KXS -  1);
-  lisaac_push(&__4WS,L30818860); // L235 MEMORY;
-  lisaac_push_first(&__4AZ,L14156807); // L108 INTEGER;
-  lisaac_push_first(&__CBZ,L78949383); // L602 INTEGER;
-  __ABZ=__H0E(__LXS);
-  lisaac_push(&__CBZ,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__G1V,L4069927); // L31 CONVERT;
-  __PXS=((____DB )__ABZ);
-  lisaac_push(&__4WS,L30807084); // L235 MEMORY;
-  lisaac_push_first(&__4AZ,L22171143); // L169 INTEGER;
-  if (((unsigned long)(void *)((unsigned long)__RWS & (unsigned long)__PXS) ==  0)) {
-    lisaac_push(&__4AT,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__4WS,L13509636); // L103 TRUE;
-    __BBT=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4AT,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__4WS,L14689286); // L112 FALSE;
-    __BBT=__F__;
-  };
-  if (__BBT) {
-    lisaac_push(&__RHX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__UHX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4AT,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__4WS,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__4AZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__CBZ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__G1V,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__VAT));
-    lisaac_push(&__4WS,L9574914); // L73 OBJECT;
-    __DX((&__string_133));
-    lisaac_push(&__4WS,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__4AZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__CBZ,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__G1V,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__MBZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__4WS,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__4AZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__CBZ,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__RHX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__UHX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PWS,L31074348); // L237 MEMORY;
-  __JCT(__QWS);
-  __ABZ=__QWS->__KSE;
-  lisaac_push(&__PWS,L30284844); // L231 MEMORY;
-  __BBZ=__OYP(__RWS);
-  lisaac_push(&__PWS,L31468076); // L240 MEMORY;
-  lisaac_push_first(&__RHX,L9195016); // L70 NUMERIC;
-  __AXS=(____CRE)(__ABZ - __BBZ);
-  lisaac_push(&__PWS,L31603244); // L241 MEMORY;
-  lisaac_push_first(&__RHX,L46932012); // L358 MEMORY;
-  __BBZ=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__PWS,L31610412); // L241 MEMORY;
-  lisaac_push_first(&__RHX,L10123820); // L77 MEMORY;
-  lisaac_push_first(&__UHX,L5774867); // L44 POINTER;
-  __KXS=((____L )(sizeof(void *)));
-  lisaac_push(&__RHX,L10137132); // L77 MEMORY;
-  lisaac_push_first(&__UHX,L4988457); // L38 UINTEGER_CPU;
-  __LXS=((____L )(sizeof(unsigned long)));
-  lisaac_push(&__RHX,L10124332); // L77 MEMORY;
-  lisaac_push_first(&__UHX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__4AT,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L9195016); // L70 NUMERIC;
-  __OQ2=(____L)(- __LXS);
-  lisaac_push(&__UHX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-  __LXS=(____L)(__KXS - __OQ2);
-  lisaac_push(&__PWS,L31604268); // L241 MEMORY;
-  __1XS=__H0E( 2);
-  lisaac_push(&__PWS,L31603756); // L241 MEMORY;
-  lisaac_push_first(&__RHX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__UHX,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__4AT,L5383176); // L41 NUMERIC;
-  __VQ2=__H0E( 0);
-  lisaac_push(&__UHX,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-  __5BZ=(____CRE)(__VQ2 - __1XS);
-  lisaac_push(&__RHX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__UHX,L9195016); // L70 NUMERIC;
-  __1XS=(____CRE)(__BBZ - __5BZ);
-  lisaac_push(&__PWS,L31610412); // L241 MEMORY;
-  __BBZ=__H0E(__LXS);
-  lisaac_push(&__PWS,L31604780); // L241 MEMORY;
-  lisaac_push_first(&__RHX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__UHX,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__4AT,L5383176); // L41 NUMERIC;
-  __VQ2=__H0E( 0);
-  lisaac_push(&__UHX,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-  __5BZ=(____CRE)(__VQ2 - __BBZ);
-  lisaac_push(&__RHX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__UHX,L9195016); // L70 NUMERIC;
-  __BBZ=(____CRE)(__1XS - __5BZ);
-  lisaac_push(&__PWS,L31596076); // L241 MEMORY;
-  lisaac_push_first(&__RHX,L15224840); // L116 NUMERIC;
-  if ((__AXS > __BBZ)) {
-    lisaac_push(&__PWS,L33163820); // L253 MEMORY;
-    lisaac_push_first(&__RHX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__UHX,L30284844); // L231 MEMORY;
-    __IYS=__OYP(__RWS);
-    __ABZ=__IYS;
-    lisaac_push(&__UHX,L31874092); // L243 MEMORY;
-    lisaac_push_first(&__4AT,L10640428); // L81 MEMORY;
-    lisaac_push_first(&__4WS,L10391596); // L79 MEMORY;
-    lisaac_push_first(&__4AZ,L4069927); // L31 CONVERT;
-    __WI4=((____DB )__QWS);
-    lisaac_push(&__4AT,L10647084); // L81 MEMORY;
-    lisaac_push_first(&__4WS,L10123820); // L77 MEMORY;
-    lisaac_push_first(&__4AZ,L5774867); // L44 POINTER;
-    __ZI4=((____L )(sizeof(void *)));
-    lisaac_push(&__4WS,L10137132); // L77 MEMORY;
-    lisaac_push_first(&__4AZ,L4988457); // L38 UINTEGER_CPU;
-    __1I4=((____L )(sizeof(unsigned long)));
-    lisaac_push(&__4WS,L10124332); // L77 MEMORY;
-    lisaac_push_first(&__4AZ,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__CBZ,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__G1V,L9195016); // L70 NUMERIC;
-    __5I4=(____L)(- __1I4);
-    lisaac_push(&__4AZ,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__CBZ,L9195016); // L70 NUMERIC;
-    __1I4=(____L)(__ZI4 - __5I4);
-    lisaac_push(&__4AT,L10647084); // L81 MEMORY;
-    lisaac_push_first(&__4WS,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__4AZ,L78949383); // L602 INTEGER;
-    __IYS=__H0E(__1I4);
-    lisaac_push(&__4AZ,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__CBZ,L4069927); // L31 CONVERT;
-    __GJ4=((____DB )__IYS);
-    lisaac_push(&__4AT,L10640940); // L81 MEMORY;
-    lisaac_push_first(&__4WS,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__4AZ,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__CBZ,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__G1V,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__MBZ,L78949383); // L602 INTEGER;
-    __IYS=__H0E( 0);
-    lisaac_push(&__MBZ,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__NJ4,L4069927); // L31 CONVERT;
-    __OJ4=((____DB )__IYS);
-    lisaac_push(&__4AZ,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__CBZ,L9195016); // L70 NUMERIC;
-    __QJ4=(void *)((unsigned long)__OJ4 - (unsigned long)__GJ4);
-    lisaac_push(&__4WS,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__4AZ,L9195016); // L70 NUMERIC;
-    __GJ4=(void *)((unsigned long)__WI4 - (unsigned long)__QJ4);
-    lisaac_push(&__UHX,L31874604); // L243 MEMORY;
-    lisaac_push_first(&__4AT,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__4WS,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__4AZ,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__CBZ,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__G1V,L78949383); // L602 INTEGER;
-    __IYS=__H0E( 0);
-    lisaac_push(&__G1V,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__MBZ,L4069927); // L31 CONVERT;
-    __WI4=((____DB )__IYS);
-    lisaac_push(&__4WS,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__4AZ,L9195016); // L70 NUMERIC;
-    __OJ4=(void *)((unsigned long)__WI4 - (unsigned long)__RWS);
-    lisaac_push(&__4AT,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__4WS,L9195016); // L70 NUMERIC;
-    __WI4=(void *)((unsigned long)__GJ4 - (unsigned long)__OJ4);
-    lisaac_push(&__UHX,L31876140); // L243 MEMORY;
-    lisaac_push_first(&__4AT,L4069927); // L31 CONVERT;
-    __MYS=((____HSE *)__WI4);
-    lisaac_push(&__UHX,L32000044); // L244 MEMORY;
-    lisaac_push_first(&__4AT,L10391596); // L79 MEMORY;
-    lisaac_push_first(&__4WS,L4069927); // L31 CONVERT;
-    __WI4=((____DB )__QWS);
-    __GJ4=__X1F;
-    lisaac_push(&__UHX,L32000556); // L244 MEMORY;
-    lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-    __OJ4=(void *)((unsigned long)__WI4 - (unsigned long)__GJ4);
-    lisaac_push(&__UHX,L32007724); // L244 MEMORY;
-    lisaac_push_first(&__4AT,L12209196); // L93 MEMORY;
-    __MYS->__JSE=__OJ4;
-    lisaac_push(&__UHX,L32137772); // L245 MEMORY;
-    lisaac_push_first(&__4AT,L10123820); // L77 MEMORY;
-    lisaac_push_first(&__4WS,L5774867); // L44 POINTER;
-    __ZI4=((____L )(sizeof(void *)));
-    lisaac_push(&__4AT,L10137132); // L77 MEMORY;
-    lisaac_push_first(&__4WS,L4988457); // L38 UINTEGER_CPU;
-    __1I4=((____L )(sizeof(unsigned long)));
-    lisaac_push(&__4AT,L10124332); // L77 MEMORY;
-    lisaac_push_first(&__4WS,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__4AZ,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__CBZ,L9195016); // L70 NUMERIC;
-    __5I4=(____L)(- __1I4);
-    lisaac_push(&__4WS,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__4AZ,L9195016); // L70 NUMERIC;
-    __1I4=(____L)(__ZI4 - __5I4);
-    lisaac_push(&__UHX,L32137772); // L245 MEMORY;
-    __IYS=__H0E(__1I4);
-    lisaac_push(&__UHX,L32131628); // L245 MEMORY;
-    lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-    __SYS=(____CRE)(__AXS - __IYS);
-    lisaac_push(&__UHX,L32138284); // L245 MEMORY;
-    lisaac_push_first(&__4AT,L12471340); // L95 MEMORY;
-    __MYS->__KSE=__SYS;
-    lisaac_push(&__UHX,L32255532); // L246 MEMORY;
-    lisaac_push_first(&__4AT,L23471148); // L179 MEMORY;
-    __MYS->__LSE=__SCP;
-    __MYS->__MSE=NULL;
-    if (((void *)__SCP != (void *)NULL)) {
-      lisaac_push(&__4AT,L24250924); // L185 MEMORY;
-      lisaac_push_first(&__4WS,L8792068); // L67 TRUE;
-      lisaac_push_first(&__4AZ,L24001068); // L183 MEMORY;
-      __EOS=__SCP;
-      if (__EOS==NULL) {
-        lisaac_push(&__4AZ,L24137260); // L184 MEMORY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* MEMORY */ {
-        lisaac_push(&__4AZ,L24137260); // L184 MEMORY;
-        __CFZ=((____HSE *)__EOS);
-        lisaac_push_first(&__CBZ,L21249580); // L162 MEMORY;
-        __CFZ->__MSE=__MYS;
-      };
-    } else /* FALSE */ {
-      lisaac_push(&__4AT,L24250924); // L185 MEMORY;
-      lisaac_push_first(&__4WS,L8530438); // L65 FALSE;
+  ____R __KR,__0X;
+  ____L __3X,__4X,__S2Y,__X2Y,__22Y;
+  ____WB *__Q2Y,*__V2Y,*__02Y;
+  ____4 *__R2Y,*__W2Y,*__12Y;
+  ____QY __T5B;
+  ____4 __42Y;
+  __KR=((____R )__IR);
+  __0X= 0;
+  __3X= 0;
+  __4X= 0;
+  if ((__KR ==  0)) {
+    __Q2Y=((____WB *)__JR);
+    if ((__Q2Y->__CBE <= __Q2Y->__BC)) {
+      if ((__Q2Y->__CBE ==  0)) {
+        __Q2Y->__CBE= 32;
+        __R2Y=__3NG( 32);
+        __Q2Y->__ZAE=__R2Y;
+      } else /* FALSE */ {
+        __S2Y=(____L)(__Q2Y->__CBE <<  1);
+        __R2Y=__SOG(((____4 *)__Q2Y->__ZAE),__Q2Y->__CBE,__S2Y);
+        __Q2Y->__ZAE=__R2Y;
+        __Q2Y->__CBE=__S2Y;
+      };
+    };
+    ((____4 *)__Q2Y->__ZAE)[__Q2Y->__BC]='0';
+    __Q2Y->__BC=(____L)(__Q2Y->__BC +  1);
+  } else /* FALSE */ {
+    if ((__KR >  0)) {
+      __0X=__KR;
+    } else /* FALSE */ {
+      __0X=(____R)(- __KR);
+      __V2Y=((____WB *)__JR);
+      if ((__V2Y->__CBE <= __V2Y->__BC)) {
+        if ((__V2Y->__CBE ==  0)) {
+          __V2Y->__CBE= 32;
+          __W2Y=__3NG( 32);
+          __V2Y->__ZAE=__W2Y;
+        } else /* FALSE */ {
+          __X2Y=(____L)(__V2Y->__CBE <<  1);
+          __W2Y=__SOG(((____4 *)__V2Y->__ZAE),__V2Y->__CBE,__X2Y);
+          __V2Y->__ZAE=__W2Y;
+          __V2Y->__CBE=__X2Y;
+        };
+      };
+      ((____4 *)__V2Y->__ZAE)[__V2Y->__BC]='-';
+      __V2Y->__BC=(____L)(__V2Y->__BC +  1);
+    };
+    __3X=(____L)(((____WB *)__JR)->__BC +  1);
+    while ((__0X !=  0)) {
+      __T5B=((____QY )(____R)(__0X %  10));
+      __02Y=((____WB *)__JR);
+      __42Y=((____4 )(((____QY)(__T5B + ((____QY )'0')))));
+      if ((__02Y->__CBE <= __02Y->__BC)) {
+        if ((__02Y->__CBE ==  0)) {
+          __02Y->__CBE= 32;
+          __12Y=__3NG( 32);
+          __02Y->__ZAE=__12Y;
+        } else /* FALSE */ {
+          __22Y=(____L)(__02Y->__CBE <<  1);
+          __12Y=__SOG(((____4 *)__02Y->__ZAE),__02Y->__CBE,__22Y);
+          __02Y->__ZAE=__12Y;
+          __02Y->__CBE=__22Y;
+        };
+      };
+      ((____4 *)__02Y->__ZAE)[__02Y->__BC]=__42Y;
+      __02Y->__BC=(____L)(__02Y->__BC +  1);
+      __0X=(____R)(__0X /  10);
+    };
+    __4X=((____WB *)__JR)->__BC;
+    while ((__3X < __4X)) {
+      __02Y=((____WB *)__JR);
+      __42Y=((____4 *)__02Y->__ZAE)[(____L)(__3X -  1)];
+      ((____4 *)__02Y->__ZAE)[(____L)(__3X -  1)]=((____4 *)__02Y->__ZAE)[(____L)(__4X -  1)];
+      ((____4 *)__02Y->__ZAE)[(____L)(__4X -  1)]=__42Y;
+      __4X=(____L)(__4X -  1);
+      __3X=(____L)(__3X +  1);
     };
-    __SCP=__MYS;
-    lisaac_push(&__UHX,L32383532); // L247 MEMORY;
-    lisaac_push_first(&__4AT,L11932716); // L91 MEMORY;
-    __IYS=__MYS->__KSE;
-    lisaac_push(&__4AT,L11959340); // L91 MEMORY;
-    lisaac_push_first(&__4WS,L11687980); // L89 MEMORY;
-    __SYS=__H0E( 2);
-    lisaac_push(&__4AT,L11955756); // L91 MEMORY;
-    lisaac_push_first(&__4WS,L22171143); // L169 INTEGER;
-    __2CZ=(____CRE)(__IYS & __SYS);
-    lisaac_push(&__4AT,L11965484); // L91 MEMORY;
-    lisaac_push_first(&__4WS,L34479112); // L263 NUMERIC;
-    if ((__2CZ !=  0)) {
-      lisaac_push(&__UHX,L33033772); // L252 MEMORY;
-      lisaac_push_first(&__4AT,L6825988); // L52 TRUE;
-      lisaac_push_first(&__4WS,L32516140); // L248 MEMORY;
-      __3MP(__MYS,__SWS);
-    } else /* FALSE */ {
-      lisaac_push(&__UHX,L33033772); // L252 MEMORY;
-      lisaac_push_first(&__4AT,L6826502); // L52 FALSE;
-      lisaac_push_first(&__4WS,L32780332); // L250 MEMORY;
-      lisaac_push_first(&__4AZ,L11179564); // L85 MEMORY;
-      lisaac_push_first(&__CBZ,L10640428); // L81 MEMORY;
-      lisaac_push_first(&__G1V,L10391596); // L79 MEMORY;
-      lisaac_push_first(&__MBZ,L4069927); // L31 CONVERT;
-      __1AP=((____DB )__MYS);
-      lisaac_push(&__CBZ,L10647084); // L81 MEMORY;
-      lisaac_push_first(&__G1V,L10123820); // L77 MEMORY;
-      lisaac_push_first(&__MBZ,L5774867); // L44 POINTER;
-      __YU2=((____L )(sizeof(void *)));
-      lisaac_push(&__G1V,L10137132); // L77 MEMORY;
-      lisaac_push_first(&__MBZ,L4988457); // L38 UINTEGER_CPU;
-      __1U2=((____L )(sizeof(unsigned long)));
-      lisaac_push(&__G1V,L10124332); // L77 MEMORY;
-      lisaac_push_first(&__MBZ,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__NJ4,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__4U2,L9195016); // L70 NUMERIC;
-      __5U2=(____L)(- __1U2);
-      lisaac_push(&__MBZ,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__NJ4,L9195016); // L70 NUMERIC;
-      __1U2=(____L)(__YU2 - __5U2);
-      lisaac_push(&__CBZ,L10647084); // L81 MEMORY;
-      lisaac_push_first(&__G1V,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__MBZ,L78949383); // L602 INTEGER;
-      __1EZ=__H0E(__1U2);
-      lisaac_push(&__MBZ,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__NJ4,L4069927); // L31 CONVERT;
-      __5AP=((____DB )__1EZ);
-      lisaac_push(&__CBZ,L10640940); // L81 MEMORY;
-      lisaac_push_first(&__G1V,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__MBZ,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__NJ4,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__4U2,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__GV2,L78949383); // L602 INTEGER;
-      __1EZ=__H0E( 0);
-      lisaac_push(&__GV2,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__IV2,L4069927); // L31 CONVERT;
-      __JV2=((____DB )__1EZ);
-      lisaac_push(&__MBZ,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__NJ4,L9195016); // L70 NUMERIC;
-      __AJJ=(void *)((unsigned long)__JV2 - (unsigned long)__5AP);
-      lisaac_push(&__G1V,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__MBZ,L9195016); // L70 NUMERIC;
-      __5AP=(void *)((unsigned long)__1AP - (unsigned long)__AJJ);
-      lisaac_push(&__4AZ,L11182636); // L85 MEMORY;
-      lisaac_push_first(&__CBZ,L10883116); // L83 MEMORY;
-      __1EZ=__MYS->__KSE;
-      lisaac_push(&__CBZ,L10916908); // L83 MEMORY;
-      __QN3=__H0E( 3);
-      lisaac_push(&__CBZ,L10907692); // L83 MEMORY;
-      lisaac_push_first(&__G1V,L25311239); // L193 INTEGER;
-      lisaac_push_first(&__MBZ,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__NJ4,L5383176); // L41 NUMERIC;
-      __UN3=__H0E( 0);
-      lisaac_push(&__MBZ,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__NJ4,L9195016); // L70 NUMERIC;
-      __WN3=(____CRE)(__UN3 - __QN3);
-      lisaac_push(&__G1V,L25319431); // L193 INTEGER;
-      lisaac_push_first(&__MBZ,L5121032); // L39 NUMERIC;
-      __QN3=__H0E( 1);
-      lisaac_push(&__G1V,L25314823); // L193 INTEGER;
-      lisaac_push_first(&__MBZ,L9195016); // L70 NUMERIC;
-      __UN3=(____CRE)(__WN3 - __QN3);
-      lisaac_push(&__CBZ,L10906668); // L83 MEMORY;
-      lisaac_push_first(&__G1V,L22171143); // L169 INTEGER;
-      __QN3=(____CRE)(__1EZ & __UN3);
-      lisaac_push(&__4AZ,L11182636); // L85 MEMORY;
-      __1AP=__XXG(__QN3);
-      lisaac_push(&__4AZ,L11180076); // L85 MEMORY;
-      lisaac_push_first(&__CBZ,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__G1V,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__MBZ,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__NJ4,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__4U2,L78949383); // L602 INTEGER;
-      __1EZ=__H0E( 0);
-      lisaac_push(&__4U2,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__GV2,L4069927); // L31 CONVERT;
-      __JV2=((____DB )__1EZ);
-      lisaac_push(&__G1V,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__MBZ,L9195016); // L70 NUMERIC;
-      __AJJ=(void *)((unsigned long)__JV2 - (unsigned long)__1AP);
-      lisaac_push(&__CBZ,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__G1V,L9195016); // L70 NUMERIC;
-      __1AP=(void *)((unsigned long)__5AP - (unsigned long)__AJJ);
-      lisaac_push(&__4AZ,L11183148); // L85 MEMORY;
-      lisaac_push_first(&__CBZ,L4069927); // L31 CONVERT;
-      __EOS=((____HSE *)__1AP);
-      lisaac_push(&__4WS,L32917548); // L251 MEMORY;
-      lisaac_push_first(&__4AZ,L10391596); // L79 MEMORY;
-      lisaac_push_first(&__CBZ,L4069927); // L31 CONVERT;
-      __1AP=((____DB )__MYS);
-      __5AP=__X1F;
-      lisaac_push(&__4WS,L32918060); // L251 MEMORY;
-      lisaac_push_first(&__4AZ,L9195016); // L70 NUMERIC;
-      __JV2=(void *)((unsigned long)__1AP - (unsigned long)__5AP);
-      lisaac_push(&__4WS,L32925228); // L251 MEMORY;
-      lisaac_push_first(&__4AZ,L12209196); // L93 MEMORY;
-      __EOS->__JSE=__JV2;
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__PWS,L33163820); // L253 MEMORY;
-    lisaac_push_first(&__RHX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__PWS,L33308716); // L254 MEMORY;
-  lisaac_push_first(&__RHX,L20856364); // L159 MEMORY;
-  __BBZ=__H0E( 1);
-  lisaac_push(&__PWS,L33304620); // L254 MEMORY;
-  lisaac_push_first(&__RHX,L22940167); // L175 INTEGER;
-  lisaac_push_first(&__UHX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L5383176); // L41 NUMERIC;
-  __AXS=__H0E( 0);
-  lisaac_push(&__4AT,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L9195016); // L70 NUMERIC;
-  __1XS=(____CRE)(__AXS - __ABZ);
-  lisaac_push(&__UHX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L5121032); // L39 NUMERIC;
-  __ABZ=__H0E( 1);
-  lisaac_push(&__UHX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-  __AXS=(____CRE)(__1XS - __ABZ);
-  lisaac_push(&__RHX,L22944263); // L175 INTEGER;
-  lisaac_push_first(&__UHX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L5383176); // L41 NUMERIC;
-  __ABZ=__H0E( 0);
-  lisaac_push(&__4AT,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L9195016); // L70 NUMERIC;
-  __1XS=(____CRE)(__ABZ - __BBZ);
-  lisaac_push(&__UHX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L5121032); // L39 NUMERIC;
-  __ABZ=__H0E( 1);
-  lisaac_push(&__UHX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-  __BBZ=(____CRE)(__1XS - __ABZ);
-  lisaac_push(&__RHX,L22943239); // L175 INTEGER;
-  lisaac_push_first(&__UHX,L22171143); // L169 INTEGER;
-  __ABZ=(____CRE)(__AXS & __BBZ);
-  lisaac_push(&__RHX,L22939143); // L175 INTEGER;
-  lisaac_push_first(&__UHX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L5383176); // L41 NUMERIC;
-  __BBZ=__H0E( 0);
-  lisaac_push(&__4AT,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__4WS,L9195016); // L70 NUMERIC;
-  __AXS=(____CRE)(__BBZ - __ABZ);
-  lisaac_push(&__UHX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L5121032); // L39 NUMERIC;
-  __ABZ=__H0E( 1);
-  lisaac_push(&__UHX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__4AT,L9195016); // L70 NUMERIC;
-  __QWS->__KSE=(____CRE)(__AXS - __ABZ);
-  lisaac_push(&__PWS,L33433644); // L255 MEMORY;
-  lisaac_push_first(&__RHX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__UHX,L7481858); // L57 OBJECT;
-  __VAT=((____DB )(top_context->back->back));
-  lisaac_push(&__RHX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__UHX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4AT,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__4WS,L33427500); // L255 MEMORY;
-  lisaac_push_first(&__4AZ,L11406380); // L87 MEMORY;
-  __ABZ=__QWS->__KSE;
-  lisaac_push(&__4AZ,L11433004); // L87 MEMORY;
-  __BBZ=__H0E( 1);
-  lisaac_push(&__4AZ,L11430956); // L87 MEMORY;
-  lisaac_push_first(&__CBZ,L22171143); // L169 INTEGER;
-  __AXS=(____CRE)(__ABZ & __BBZ);
-  lisaac_push(&__4WS,L33432108); // L255 MEMORY;
-  lisaac_push_first(&__4AZ,L20856364); // L159 MEMORY;
-  __ABZ=__H0E( 1);
-  if ((__AXS == __ABZ)) {
-    lisaac_push(&__4AT,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__4WS,L13509636); // L103 TRUE;
-    __BBT=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4AT,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__4WS,L14689286); // L112 FALSE;
-    __BBT=__F__;
-  };
-  if (__BBT) {
-    lisaac_push(&__RHX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__UHX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4AT,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__4WS,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__4AZ,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__CBZ,L8792068); // L67 TRUE;
-    lisaac_push_first(&__G1V,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__VAT));
-    lisaac_push(&__4WS,L9574914); // L73 OBJECT;
-    __DX((&__string_145));
-    lisaac_push(&__4WS,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__4AZ,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__CBZ,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__G1V,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__MBZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__4WS,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__4AZ,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__CBZ,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__RHX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__UHX,L8530438); // L65 FALSE;
   };
 }
 
-static void __3MP(____HSE *__ANP,____CRE __BNP)
-// ({NULLx__HSE},{__CRE}) Void No recursive, No inlinable.
+static void __LOI(____4 *__MOI,____4 *__NOI,____L __OOI,____L __POI)
+// ({__HB},{NULLx__HB},{__L},{__L}) Void No recursive, No inlinable.
 {
-  ____DB __VRQ;
-  ____CRE __HNP;
-  _____CONTEXT __4MP,__TRQ,__ULR,__4RQ,__FNP,__PS2,__XS2,__YS2,__UDZ;
-  ____G __1S2,__3S2,__5S2;
-  lisaac_push_first(&__4MP,L13503020); // L103 MEMORY;
-  lisaac_push_first(&__TRQ,L19150866); // L146 BLOCK;
-  lisaac_push_first(&__ULR,L7481858); // L57 OBJECT;
-  __VRQ=((____DB )(top_context->back->back));
-  lisaac_push(&__TRQ,L19280914); // L147 BLOCK;
-  lisaac_push_first(&__ULR,L10652676); // L81 TRUE;
-  lisaac_push_first(&__4RQ,L19285522); // L147 BLOCK;
-  lisaac_push_first(&__FNP,L13504044); // L103 MEMORY;
-  __HNP=__HUG;
-  lisaac_push(&__FNP,L13506604); // L103 MEMORY;
-  lisaac_push_first(&__PS2,L15498248); // L118 NUMERIC;
-  lisaac_push_first(&__XS2,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__YS2,L15224840); // L116 NUMERIC;
-  __1S2=(__BNP > __HNP);
-  lisaac_push(&__XS2,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__YS2,L14700552); // L112 NUMERIC;
-  __3S2=(__BNP == __HNP);
-  if (__1S2) {
-    lisaac_push(&__XS2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__YS2,L10900996); // L83 TRUE;
-    __5S2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__XS2,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__YS2,L12342790); // L94 FALSE;
-    __5S2=__3S2;
-  };
-  if (__5S2) {
-    lisaac_push(&__PS2,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__XS2,L13509636); // L103 TRUE;
-    __5S2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__PS2,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__XS2,L14689286); // L112 FALSE;
-    __5S2=__F__;
-  };
-  if (__5S2) {
-    lisaac_push(&__4RQ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__FNP,L13509636); // L103 TRUE;
-    __5S2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__4RQ,L19282450); // L147 BLOCK;
-    lisaac_push_first(&__FNP,L14689286); // L112 FALSE;
-    __5S2=__F__;
-  };
-  if (__5S2) {
-    lisaac_push(&__TRQ,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__ULR,L8792068); // L67 TRUE;
-    lisaac_push_first(&__4RQ,L19289106); // L147 BLOCK;
-    lisaac_push(&__4RQ,L19428370); // L148 BLOCK;
-    lisaac_push_first(&__FNP,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__PS2,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__XS2,L8792068); // L67 TRUE;
-    lisaac_push_first(&__YS2,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__VRQ));
-    lisaac_push(&__FNP,L9574914); // L73 OBJECT;
-    __DX((&__string_43));
-    lisaac_push(&__FNP,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__PS2,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__XS2,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__YS2,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__UDZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__FNP,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__PS2,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__XS2,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__TRQ,L19532306); // L149 BLOCK;
-    lisaac_push_first(&__ULR,L8530438); // L65 FALSE;
+  ____L __5OI,__4OI;
+  __5OI= 0;
+  __4OI=__OOI;
+  while ((__5OI != __POI)) {
+    __MOI[__4OI]=((____4 *)__NOI)[__5OI];
+    __5OI=(____L)(__5OI +  1);
+    __4OI=(____L)(__4OI +  1);
   };
-  last_block[(__BNP)] = (__ANP);
 }
 
-static ____HSE* __MBP(____CRE __PBP)
-// ({__CRE}) With result No recursive, No inlinable.
+static void __NJO(____L __OJO)
+// ({__L}) Void Recursive, No inlinable.
 {
-  ____DB __X2P,__WDP,__JEZ;
-  ____CRE __0BP,__5BP,__3BP,__DUZ,__EUZ,__VUZ,__KUZ;
-  ____L __2BP,__KCP;
-  ____HSE *__RBP,*__CUZ,*__QBP;
-  _____CONTEXT __NBP,__0JX,__3JX,__A3P,__YBP,__5JX,__Z4V,__TWV,__2DZ;
-  _____CONTEXT __4J4;
-  ____G __D3P,__EU2,__GU2,__IU2;
-  lisaac_push_first(&__NBP,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__0JX,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__3JX,L4069927); // L31 CONVERT;
-  lisaac_push(&__NBP,L39609900); // L302 MEMORY;
-  lisaac_push_first(&__0JX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__3JX,L7481858); // L57 OBJECT;
-  __X2P=((____DB )(top_context->back->back));
-  lisaac_push(&__0JX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__3JX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__A3P,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__YBP,L39598124); // L302 MEMORY;
-  lisaac_push_first(&__5JX,L46932012); // L358 MEMORY;
-  __0BP=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__YBP,L39608364); // L302 MEMORY;
-  lisaac_push_first(&__5JX,L5774867); // L44 POINTER;
-  __2BP=((____L )(sizeof(void *)));
-  lisaac_push(&__YBP,L39608364); // L302 MEMORY;
-  __5BP=__H0E(__2BP);
-  lisaac_push(&__YBP,L39598636); // L302 MEMORY;
-  lisaac_push_first(&__5JX,L9195016); // L70 NUMERIC;
-  __3BP=(____CRE)(__0BP - __5BP);
-  lisaac_push(&__YBP,L39591468); // L302 MEMORY;
-  lisaac_push_first(&__5JX,L15224840); // L116 NUMERIC;
-  if ((__PBP > __3BP)) {
-    lisaac_push(&__A3P,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__YBP,L13509636); // L103 TRUE;
-    __D3P=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__A3P,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__YBP,L14689286); // L112 FALSE;
-    __D3P=__F__;
-  };
-  if (__D3P) {
-    lisaac_push(&__0JX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3JX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__A3P,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__YBP,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__5JX,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__Z4V,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TWV,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__X2P));
-    lisaac_push(&__YBP,L9574914); // L73 OBJECT;
-    __DX((&__string_146));
-    lisaac_push(&__YBP,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__5JX,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__Z4V,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__TWV,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__2DZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YBP,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__5JX,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__Z4V,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0JX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3JX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__NBP,L39740460); // L303 MEMORY;
-  lisaac_push_first(&__0JX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__3JX,L7481858); // L57 OBJECT;
-  __X2P=((____DB )(top_context->back->back));
-  lisaac_push(&__0JX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__3JX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__A3P,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__YBP,L39734316); // L303 MEMORY;
-  lisaac_push_first(&__5JX,L5774867); // L44 POINTER;
-  __2BP=((____L )(sizeof(void *)));
-  lisaac_push(&__YBP,L39734828); // L303 MEMORY;
-  lisaac_push_first(&__5JX,L9195016); // L70 NUMERIC;
-  __KCP=(____L)(__2BP -  1);
-  lisaac_push(&__YBP,L39734828); // L303 MEMORY;
-  __0BP=__H0E(__KCP);
-  lisaac_push(&__YBP,L39723052); // L303 MEMORY;
-  lisaac_push_first(&__5JX,L22171143); // L169 INTEGER;
-  if (((____CRE)(__PBP & __0BP) ==  0)) {
-    lisaac_push(&__A3P,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__YBP,L13509636); // L103 TRUE;
-    __D3P=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__A3P,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__YBP,L14689286); // L112 FALSE;
-    __D3P=__F__;
-  };
-  if (__D3P) {
-    lisaac_push(&__0JX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3JX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__A3P,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__YBP,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__5JX,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__Z4V,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TWV,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__X2P));
-    lisaac_push(&__YBP,L9574914); // L73 OBJECT;
-    __DX((&__string_133));
-    lisaac_push(&__YBP,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__5JX,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__Z4V,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__TWV,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__2DZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YBP,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__5JX,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__Z4V,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0JX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3JX,L8530438); // L65 FALSE;
-  };
-  __RBP=__SCP;
-  lisaac_push(&__NBP,L40372780); // L308 MEMORY;
-  lisaac_push_first(&__0JX,L9441810); // L72 BLOCK;
-  __L4P:
-  {
-    lisaac_push(&__0JX,L9441810); // L72 BLOCK;
-    lisaac_push_first(&__3JX,L40110636); // L306 MEMORY;
-    if (((void *)__RBP != (void *)NULL)) {
-      lisaac_push(&__3JX,L40120364); // L306 MEMORY;
-      lisaac_push_first(&__A3P,L10652676); // L81 TRUE;
-      lisaac_push_first(&__YBP,L40121388); // L306 MEMORY;
-      if (__RBP==NULL) {
-        lisaac_push(&__YBP,L40127532); // L306 MEMORY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* MEMORY */ {
-        lisaac_push(&__YBP,L40127532); // L306 MEMORY;
-        __CUZ=((____HSE *)__RBP);
-        lisaac_push_first(&__5JX,L10883116); // L83 MEMORY;
-        __DUZ=__CUZ->__KSE;
-        lisaac_push(&__5JX,L10916908); // L83 MEMORY;
-        __EUZ=__H0E( 3);
-        lisaac_push(&__5JX,L10907692); // L83 MEMORY;
-        lisaac_push_first(&__Z4V,L25311239); // L193 INTEGER;
-        lisaac_push_first(&__TWV,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__2DZ,L5383176); // L41 NUMERIC;
-        __VUZ=__H0E( 0);
-        lisaac_push(&__TWV,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__2DZ,L9195016); // L70 NUMERIC;
-        __KUZ=(____CRE)(__VUZ - __EUZ);
-        lisaac_push(&__Z4V,L25319431); // L193 INTEGER;
-        lisaac_push_first(&__TWV,L5121032); // L39 NUMERIC;
-        __EUZ=__H0E( 1);
-        lisaac_push(&__Z4V,L25314823); // L193 INTEGER;
-        lisaac_push_first(&__TWV,L9195016); // L70 NUMERIC;
-        __VUZ=(____CRE)(__KUZ - __EUZ);
-        lisaac_push(&__5JX,L10906668); // L83 MEMORY;
-        lisaac_push_first(&__Z4V,L22171143); // L169 INTEGER;
-        __EUZ=(____CRE)(__DUZ & __VUZ);
-      };
-      lisaac_push(&__YBP,L40128044); // L306 MEMORY;
-      lisaac_push_first(&__5JX,L15498248); // L118 NUMERIC;
-      lisaac_push_first(&__Z4V,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__TWV,L15224840); // L116 NUMERIC;
-      __EU2=(__EUZ > __PBP);
-      lisaac_push(&__Z4V,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__TWV,L14700552); // L112 NUMERIC;
-      __GU2=(__EUZ == __PBP);
-      if (__EU2) {
-        lisaac_push(&__Z4V,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__TWV,L10900996); // L83 TRUE;
-        __IU2=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__Z4V,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__TWV,L12342790); // L94 FALSE;
-        __IU2=__GU2;
-      };
-      if (__IU2) {
-        lisaac_push(&__5JX,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__Z4V,L13509636); // L103 TRUE;
-        __IU2=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__5JX,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__Z4V,L14689286); // L112 FALSE;
-        __IU2=__F__;
-      };
-      __EU2=__IU2;
-    } else /* FALSE */ {
-      lisaac_push(&__3JX,L40120364); // L306 MEMORY;
-      lisaac_push_first(&__A3P,L12081158); // L92 FALSE;
-      __EU2=__J__;
-    };
-    if (__EU2) {
-      lisaac_push(&__0JX,L9832978); // L75 BLOCK;
-      lisaac_push_first(&__3JX,L8792068); // L67 TRUE;
-      lisaac_push_first(&__A3P,L9576466); // L73 BLOCK;
-      lisaac_push_first(&__YBP,L40139308); // L306 MEMORY;
-      if (__RBP==NULL) {
-        lisaac_push(&__YBP,L40255532); // L307 MEMORY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* MEMORY */ {
-        __CUZ=__RBP->__LSE;
-      };
-      __RBP=__CUZ;
-      lisaac_push(&__A3P,L9709074); // L74 BLOCK;
-      goto __L4P;
-    } else /* FALSE */ {
-      lisaac_push(&__0JX,L9832978); // L75 BLOCK;
-      lisaac_push_first(&__3JX,L8530438); // L65 FALSE;
-    };
-  };
-  if (((void *)__RBP == (void *)NULL)) {
-    lisaac_push(&__NBP,L40765996); // L311 MEMORY;
-    lisaac_push_first(&__0JX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__3JX,L40644652); // L310 MEMORY;
-    __CUZ=__WUO();
-    __RBP=__CUZ;
-  } else /* FALSE */ {
-    lisaac_push(&__NBP,L40765996); // L311 MEMORY;
-    lisaac_push_first(&__0JX,L8530438); // L65 FALSE;
-  };
-  if (__RBP==NULL) {
-    lisaac_push(&__NBP,L40911404); // L312 MEMORY;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* MEMORY */ {
-    lisaac_push(&__NBP,L40911404); // L312 MEMORY;
-    __CUZ=((____HSE *)__RBP);
-    lisaac_push_first(&__0JX,L10391596); // L79 MEMORY;
-    lisaac_push_first(&__3JX,L4069927); // L31 CONVERT;
-    __WDP=((____DB )__CUZ);
-  };
-  lisaac_push(&__NBP,L40911916); // L312 MEMORY;
-  lisaac_push_first(&__0JX,L12726316); // L97 MEMORY;
-  __X2P=__X1F;
-  lisaac_push(&__0JX,L12737068); // L97 MEMORY;
-  lisaac_push_first(&__3JX,L9195016); // L70 NUMERIC;
-  __JEZ=(void *)((unsigned long)__WDP - (unsigned long)__X2P);
-  lisaac_push(&__0JX,L12752940); // L97 MEMORY;
-  __0BP=__OYP(__JEZ);
-  lisaac_push(&__0JX,L12753964); // L97 MEMORY;
-  lisaac_push_first(&__3JX,L23745543); // L181 INTEGER;
-  __5BP=(____CRE)(__0BP >>  26);
-  lisaac_push(&__NBP,L41039916); // L313 MEMORY;
-  lisaac_push_first(&__0JX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__3JX,L7481858); // L57 OBJECT;
-  __X2P=((____DB )(top_context->back->back));
-  lisaac_push(&__0JX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__3JX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__A3P,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__YBP,L41035308); // L313 MEMORY;
-  __0BP=__H0E( 0);
-  lisaac_push(&__YBP,L41038380); // L313 MEMORY;
-  __3BP=__H0E( 63);
-  lisaac_push(&__YBP,L41038380); // L313 MEMORY;
-  lisaac_push_first(&__5JX,L6296072); // L48 NUMERIC;
-  lisaac_push_first(&__Z4V,L15759880); // L120 NUMERIC;
-  lisaac_push_first(&__TWV,L15224840); // L116 NUMERIC;
-  if ((__0BP > __5BP)) {
-    lisaac_push(&__Z4V,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__TWV,L13509636); // L103 TRUE;
-    __D3P=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__Z4V,L15755784); // L120 NUMERIC;
-    lisaac_push_first(&__TWV,L14689286); // L112 FALSE;
-    __D3P=__F__;
-  };
-  if (__D3P) {
-    lisaac_push(&__5JX,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__Z4V,L10652676); // L81 TRUE;
-    lisaac_push_first(&__TWV,L6304264); // L48 NUMERIC;
-    lisaac_push_first(&__2DZ,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__4J4,L15224840); // L116 NUMERIC;
-    __D3P=(__3BP > __5BP);
-    lisaac_push(&__2DZ,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__4J4,L14700552); // L112 NUMERIC;
-    __EU2=(__3BP == __5BP);
-    if (__D3P) {
-      lisaac_push(&__2DZ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__4J4,L10900996); // L83 TRUE;
-      __GU2=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__2DZ,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__4J4,L12342790); // L94 FALSE;
-      __GU2=__EU2;
-    };
-    __D3P=__GU2;
-  } else /* FALSE */ {
-    lisaac_push(&__5JX,L6300680); // L48 NUMERIC;
-    lisaac_push_first(&__Z4V,L12081158); // L92 FALSE;
-    __D3P=__J__;
-  };
-  if (__D3P) {
-    lisaac_push(&__A3P,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__YBP,L13509636); // L103 TRUE;
-    __D3P=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__A3P,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__YBP,L14689286); // L112 FALSE;
-    __D3P=__F__;
-  };
-  if (__D3P) {
-    lisaac_push(&__0JX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3JX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__A3P,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__YBP,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__5JX,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__Z4V,L8792068); // L67 TRUE;
-    lisaac_push_first(&__TWV,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__X2P));
-    lisaac_push(&__YBP,L9574914); // L73 OBJECT;
-    __DX((&__string_138));
-    lisaac_push(&__YBP,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__5JX,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__Z4V,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__TWV,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__2DZ,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__YBP,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__5JX,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__Z4V,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__0JX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__3JX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__NBP,L39069228); // L298 MEMORY;
-  __X2P=__XXG(__PBP);
-  if (__RBP==NULL) {
-    lisaac_push(&__NBP,L41175596); // L314 MEMORY;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* MEMORY */ {
-    lisaac_push(&__NBP,L41175596); // L314 MEMORY;
-    __OWS(((____HSE *)__RBP),__X2P,__5BP);
-  };
-  __QBP=__RBP;
-  return(__QBP);
+  ____L __1JO;
+  ____4 __KAP;
+  __KAP=((____4 )(((____QY)(((____QY )(____L)(__OJO %  10)) + ((____QY )'0')))));
+  __1JO=(____L)(__OJO /  10);
+  if ((__1JO !=  0)) {
+    __NJO(__1JO);
+  };
+  fputc((int)(__KAP),stdout);
 }
 
-static void __JCT(____HSE *__LCT)
-// ({__HSE}) Void No recursive, No inlinable.
+static ____L __GGC(____4 *__HGC,____L __JGC)
+// ({__HB},{__L}) With result No recursive, No inlinable.
 {
-  ____HSE *__MCT,*__NCT,*__RDV;
-  _____CONTEXT __KCT,__OPT,__UCT,__QDV;
-  lisaac_push_first(&__KCT,L21506604); // L164 MEMORY;
-  __MCT=__LCT->__MSE;
-  __NCT=__LCT->__LSE;
-  if (((void *)__MCT == (void *)NULL)) {
-    lisaac_push(&__KCT,L22678060); // L173 MEMORY;
-    lisaac_push_first(&__OPT,L6825988); // L52 TRUE;
-    lisaac_push_first(&__UCT,L22162476); // L169 MEMORY;
-    __SCP=__NCT;
-  } else /* FALSE */ {
-    lisaac_push(&__KCT,L22678060); // L173 MEMORY;
-    lisaac_push_first(&__OPT,L6826502); // L52 FALSE;
-    lisaac_push_first(&__UCT,L22419500); // L171 MEMORY;
-    if (__MCT==NULL) {
-      lisaac_push(&__UCT,L22559276); // L172 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      lisaac_push(&__UCT,L22559276); // L172 MEMORY;
-      __RDV=((____HSE *)__MCT);
-      lisaac_push_first(&__QDV,L21118508); // L161 MEMORY;
-      __RDV->__LSE=__NCT;
+  ____L __TGC,__0KC,__KGC;
+  __TGC= 0;
+  __0KC=__JGC;
+  while ((__0KC >=  0)) {
+    if (('\n' == __HGC[__0KC])) {
+      __TGC=(____L)(__TGC +  1);
     };
+    __0KC=(____L)(__0KC -  1);
   };
-  if (((void *)__NCT != (void *)NULL)) {
-    lisaac_push(&__KCT,L23071276); // L176 MEMORY;
-    lisaac_push_first(&__OPT,L8792068); // L67 TRUE;
-    lisaac_push_first(&__UCT,L22818348); // L174 MEMORY;
-    if (__NCT==NULL) {
-      lisaac_push(&__UCT,L22954540); // L175 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      lisaac_push(&__UCT,L22954540); // L175 MEMORY;
-      __RDV=((____HSE *)__NCT);
-      lisaac_push_first(&__QDV,L21249580); // L162 MEMORY;
-      __RDV->__MSE=__MCT;
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__KCT,L23071276); // L176 MEMORY;
-    lisaac_push_first(&__OPT,L8530438); // L65 FALSE;
-  };
+  __KGC=__TGC;
+  return(__KGC);
 }
 
-static ____DB __UTG(____Y1 __XTG)
-// ({__Y1}) With result No recursive, No inlinable.
+static void __N3H(____WB *__O3H,____L __P3H)
+// ({__WB},{__L}) Void No recursive, No inlinable.
 {
-  ____CRE __ZTG,__IUG,__QGT,__Q3Z,__R3Z,__C4Z,__X3Z,__I4Z,__J4Z,__1UG;
-  ____CRE __ELZ;
-  ____HSE *__2TG,*__P3Z,*__H4Z;
-  ____DB __CXT,__BQ3,__JQ3,__LQ3,__JWG,__RWG,__BZ2,__4KZ,__YTG;
-  ____L __UP3,__WP3,__0P3,__HZ2,__KZ2,__OZ2;
-  _____CONTEXT __VTG,__XOX,__0OX,__YV2,__AW2,__BW2,__AXT,__OXU,__LXT;
-  _____CONTEXT __OGT,__WW2,__4W2,__5W2,__N3Z;
-  ____G __EW2,__GW2,__IW2,__EX2,__GX2;
-  ____Y1 *__F2G;
-  lisaac_push_first(&__VTG,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__XOX,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__0OX,L4069927); // L31 CONVERT;
-  __ZTG=((____CRE ) 0);
-  __2TG=NULL;
-  lisaac_push(&__VTG,L43649580); // L333 MEMORY;
-  lisaac_push_first(&__XOX,L9441810); // L72 BLOCK;
-  __K1G:
-  {
-    lisaac_push(&__XOX,L9441810); // L72 BLOCK;
-    lisaac_push_first(&__0OX,L42601004); // L325 MEMORY;
-    __IUG=__HUG;
-    lisaac_push(&__0OX,L42735660); // L326 MEMORY;
-    lisaac_push_first(&__YV2,L15498248); // L118 NUMERIC;
-    lisaac_push_first(&__AW2,L16021000); // L122 NUMERIC;
-    lisaac_push_first(&__BW2,L15224840); // L116 NUMERIC;
-    __EW2=(__ZTG > __IUG);
-    lisaac_push(&__AW2,L16030216); // L122 NUMERIC;
-    lisaac_push_first(&__BW2,L14700552); // L112 NUMERIC;
-    __GW2=(__ZTG == __IUG);
-    if (__EW2) {
-      lisaac_push(&__AW2,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__BW2,L10900996); // L83 TRUE;
-      __IW2=__F__;
-    } else /* FALSE */ {
-      lisaac_push(&__AW2,L16025608); // L122 NUMERIC;
-      lisaac_push_first(&__BW2,L12342790); // L94 FALSE;
-      __IW2=__GW2;
-    };
-    if (__IW2) {
-      lisaac_push(&__YV2,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__AW2,L13509636); // L103 TRUE;
-      __IW2=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__YV2,L15493640); // L118 NUMERIC;
-      lisaac_push_first(&__AW2,L14689286); // L112 FALSE;
-      __IW2=__F__;
-    };
-    if (__IW2) {
-      lisaac_push(&__0OX,L42741804); // L326 MEMORY;
-      lisaac_push_first(&__YV2,L10652676); // L81 TRUE;
-      lisaac_push_first(&__AW2,L43001900); // L328 MEMORY;
-      lisaac_push_first(&__BW2,L14289452); // L109 MEMORY;
-      lisaac_push_first(&__AXT,L19150866); // L146 BLOCK;
-      lisaac_push_first(&__OXU,L7481858); // L57 OBJECT;
-      __CXT=((____DB )(top_context->back->back));
-      lisaac_push(&__AXT,L19280914); // L147 BLOCK;
-      lisaac_push_first(&__OXU,L10652676); // L81 TRUE;
-      lisaac_push_first(&__LXT,L19285522); // L147 BLOCK;
-      lisaac_push_first(&__OGT,L14290476); // L109 MEMORY;
-      __QGT=__HUG;
-      lisaac_push(&__OGT,L14293036); // L109 MEMORY;
-      lisaac_push_first(&__WW2,L15498248); // L118 NUMERIC;
-      lisaac_push_first(&__4W2,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__5W2,L15224840); // L116 NUMERIC;
-      __IW2=(__ZTG > __QGT);
-      lisaac_push(&__4W2,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__5W2,L14700552); // L112 NUMERIC;
-      __EX2=(__ZTG == __QGT);
-      if (__IW2) {
-        lisaac_push(&__4W2,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__5W2,L10900996); // L83 TRUE;
-        __GX2=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__4W2,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__5W2,L12342790); // L94 FALSE;
-        __GX2=__EX2;
-      };
-      if (__GX2) {
-        lisaac_push(&__WW2,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__4W2,L13509636); // L103 TRUE;
-        __GX2=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__WW2,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__4W2,L14689286); // L112 FALSE;
-        __GX2=__F__;
-      };
-      if (__GX2) {
-        lisaac_push(&__LXT,L19282450); // L147 BLOCK;
-        lisaac_push_first(&__OGT,L13509636); // L103 TRUE;
-        __GX2=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__LXT,L19282450); // L147 BLOCK;
-        lisaac_push_first(&__OGT,L14689286); // L112 FALSE;
-        __GX2=__F__;
-      };
-      if (__GX2) {
-        lisaac_push(&__AXT,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__OXU,L8792068); // L67 TRUE;
-        lisaac_push_first(&__LXT,L19289106); // L147 BLOCK;
-        lisaac_push(&__LXT,L19428370); // L148 BLOCK;
-        lisaac_push_first(&__OGT,L9452546); // L72 OBJECT;
-        lisaac_push_first(&__WW2,L8260098); // L63 OBJECT;
-        lisaac_push_first(&__4W2,L8792068); // L67 TRUE;
-        lisaac_push_first(&__5W2,L8009218); // L61 OBJECT;
-        lisaac_stack_print((_____CONTEXT *)(__CXT));
-        lisaac_push(&__OGT,L9574914); // L73 OBJECT;
-        __DX((&__string_43));
-        lisaac_push(&__OGT,L9706498); // L74 OBJECT;
-        lisaac_push_first(&__WW2,L10896400); // L83 CHARACTER;
-        lisaac_push_first(&__4W2,L5005342); // L38 STD_OUTPUT;
-        lisaac_push_first(&__5W2,L18378271); // L140 OUTPUT_STREAM;
-        lisaac_push_first(&__N3Z,L6962199); // L53 SYSTEM_IO;
-        fputc((int)('\n'),stdout);
-        lisaac_push(&__OGT,L9848322); // L75 OBJECT;
-        lisaac_push_first(&__WW2,L10904578); // L83 OBJECT;
-        lisaac_push_first(&__4W2,L4598824); // L35 SYSTEM;
-        exit(( 1));
-      } else /* FALSE */ {
-        lisaac_push(&__AXT,L19532306); // L149 BLOCK;
-        lisaac_push_first(&__OXU,L8530438); // L65 FALSE;
-      };
-      __2TG=((____HSE *)(last_block[(__ZTG)]));
-      if (__2TG==NULL) {
-        lisaac_push(&__AW2,L43128364); // L329 MEMORY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* MEMORY */ {
-        lisaac_push(&__AW2,L43128364); // L329 MEMORY;
-        __P3Z=((____HSE *)__2TG);
-        lisaac_push_first(&__BW2,L10883116); // L83 MEMORY;
-        __Q3Z=__P3Z->__KSE;
-        lisaac_push(&__BW2,L10916908); // L83 MEMORY;
-        __R3Z=__H0E( 3);
-        lisaac_push(&__BW2,L10907692); // L83 MEMORY;
-        lisaac_push_first(&__AXT,L25311239); // L193 INTEGER;
-        lisaac_push_first(&__OXU,L11029000); // L84 NUMERIC;
-        lisaac_push_first(&__LXT,L5383176); // L41 NUMERIC;
-        __C4Z=__H0E( 0);
-        lisaac_push(&__OXU,L11029512); // L84 NUMERIC;
-        lisaac_push_first(&__LXT,L9195016); // L70 NUMERIC;
-        __X3Z=(____CRE)(__C4Z - __R3Z);
-        lisaac_push(&__AXT,L25319431); // L193 INTEGER;
-        lisaac_push_first(&__OXU,L5121032); // L39 NUMERIC;
-        __R3Z=__H0E( 1);
-        lisaac_push(&__AXT,L25314823); // L193 INTEGER;
-        lisaac_push_first(&__OXU,L9195016); // L70 NUMERIC;
-        __C4Z=(____CRE)(__X3Z - __R3Z);
-        lisaac_push(&__BW2,L10906668); // L83 MEMORY;
-        lisaac_push_first(&__AXT,L22171143); // L169 INTEGER;
-        __R3Z=(____CRE)(__Q3Z & __C4Z);
-      };
-      lisaac_push(&__AW2,L43131436); // L329 MEMORY;
-      __QGT=__H0E( 4096);
-      lisaac_push(&__AW2,L43128876); // L329 MEMORY;
-      lisaac_push_first(&__BW2,L15498248); // L118 NUMERIC;
-      lisaac_push_first(&__AXT,L16021000); // L122 NUMERIC;
-      lisaac_push_first(&__OXU,L15224840); // L116 NUMERIC;
-      __IW2=(__R3Z > __QGT);
-      lisaac_push(&__AXT,L16030216); // L122 NUMERIC;
-      lisaac_push_first(&__OXU,L14700552); // L112 NUMERIC;
-      __EX2=(__R3Z == __QGT);
-      if (__IW2) {
-        lisaac_push(&__AXT,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__OXU,L10900996); // L83 TRUE;
-        __GX2=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__AXT,L16025608); // L122 NUMERIC;
-        lisaac_push_first(&__OXU,L12342790); // L94 FALSE;
-        __GX2=__EX2;
-      };
-      if (__GX2) {
-        lisaac_push(&__BW2,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__AXT,L13509636); // L103 TRUE;
-        __GX2=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__BW2,L15493640); // L118 NUMERIC;
-        lisaac_push_first(&__AXT,L14689286); // L112 FALSE;
-        __GX2=__F__;
-      };
-      if (__GX2) {
-        lisaac_push(&__AW2,L43133484); // L329 MEMORY;
-        lisaac_push_first(&__BW2,L10377220); // L79 TRUE;
-        __GX2=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__AW2,L43133484); // L329 MEMORY;
-        lisaac_push_first(&__BW2,L11832326); // L90 FALSE;
-        lisaac_push_first(&__AXT,L43134508); // L329 MEMORY;
-        if (__2TG==NULL) {
-          lisaac_push(&__AXT,L43138092); // L329 MEMORY;
-          lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-        } else /* MEMORY */ {
-          lisaac_push(&__AXT,L43138092); // L329 MEMORY;
-          __H4Z=((____HSE *)__2TG);
-          lisaac_push_first(&__OXU,L11406380); // L87 MEMORY;
-          __I4Z=__H4Z->__KSE;
-          lisaac_push(&__OXU,L11433004); // L87 MEMORY;
-          __J4Z=__H0E( 1);
-          lisaac_push(&__OXU,L11430956); // L87 MEMORY;
-          lisaac_push_first(&__LXT,L22171143); // L169 INTEGER;
-          __1UG=(____CRE)(__I4Z & __J4Z);
-        };
-        lisaac_push(&__AXT,L43142700); // L329 MEMORY;
-        lisaac_push_first(&__OXU,L20856364); // L159 MEMORY;
-        __Q3Z=__H0E( 1);
-        __GX2=(__1UG == __Q3Z);
-      };
-      __IW2=__GX2;
-    } else /* FALSE */ {
-      lisaac_push(&__0OX,L42741804); // L326 MEMORY;
-      lisaac_push_first(&__YV2,L12081158); // L92 FALSE;
-      __IW2=__J__;
-    };
-    if (__IW2) {
-      lisaac_push(&__XOX,L9832978); // L75 BLOCK;
-      lisaac_push_first(&__0OX,L8792068); // L67 TRUE;
-      lisaac_push_first(&__YV2,L9576466); // L73 BLOCK;
-      lisaac_push_first(&__AW2,L43526188); // L332 MEMORY;
-      __QGT=__H0E( 1);
-      lisaac_push(&__AW2,L43525164); // L332 MEMORY;
-      lisaac_push_first(&__BW2,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L5383176); // L41 NUMERIC;
-      __Q3Z=__H0E( 0);
-      lisaac_push(&__AXT,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L9195016); // L70 NUMERIC;
-      __R3Z=(____CRE)(__Q3Z - __QGT);
-      lisaac_push(&__BW2,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L9195016); // L70 NUMERIC;
-      __ZTG=(____CRE)(__ZTG - __R3Z);
-      lisaac_push(&__YV2,L9709074); // L74 BLOCK;
-      goto __K1G;
-    } else /* FALSE */ {
-      lisaac_push(&__XOX,L9832978); // L75 BLOCK;
-      lisaac_push_first(&__0OX,L8530438); // L65 FALSE;
-    };
-  };
-  __IUG=__HUG;
-  lisaac_push(&__VTG,L43914796); // L335 MEMORY;
-  lisaac_push_first(&__XOX,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__0OX,L15224840); // L116 NUMERIC;
-  __EW2=(__ZTG > __IUG);
-  lisaac_push(&__XOX,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__0OX,L14700552); // L112 NUMERIC;
-  __GW2=(__ZTG == __IUG);
-  if (__EW2) {
-    lisaac_push(&__XOX,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__0OX,L10900996); // L83 TRUE;
-    __IW2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__XOX,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__0OX,L12342790); // L94 FALSE;
-    __IW2=__GW2;
-  };
-  if (__IW2) {
-    lisaac_push(&__VTG,L44173868); // L337 MEMORY;
-    lisaac_push_first(&__XOX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0OX,L44050988); // L336 MEMORY;
-    __P3Z=__WUO();
-    __2TG=__P3Z;
-  } else /* FALSE */ {
-    lisaac_push(&__VTG,L44173868); // L337 MEMORY;
-    lisaac_push_first(&__XOX,L8530438); // L65 FALSE;
-  };
-  if (__2TG==NULL) {
-    lisaac_push(&__VTG,L44323372); // L338 MEMORY;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* MEMORY */ {
-    __QGT=__2TG->__KSE;
-  };
-  lisaac_push(&__VTG,L44326444); // L338 MEMORY;
-  __IUG=__H0E( 4096);
-  lisaac_push(&__VTG,L44323884); // L338 MEMORY;
-  lisaac_push_first(&__XOX,L9195016); // L70 NUMERIC;
-  __Q3Z=(____CRE)(__QGT - __IUG);
-  if (__2TG==NULL) {
-    lisaac_push(&__VTG,L44326956); // L338 MEMORY;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* MEMORY */ {
-    lisaac_push(&__VTG,L44326956); // L338 MEMORY;
-    __P3Z=((____HSE *)__2TG);
-    lisaac_push_first(&__XOX,L12471340); // L95 MEMORY;
-    __P3Z->__KSE=__Q3Z;
-  };
-  if (__2TG==NULL) {
-    lisaac_push(&__VTG,L44448300); // L339 MEMORY;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* MEMORY */ {
-    lisaac_push(&__VTG,L44448300); // L339 MEMORY;
-    __P3Z=((____HSE *)__2TG);
-    lisaac_push_first(&__XOX,L11179564); // L85 MEMORY;
-    lisaac_push_first(&__0OX,L10640428); // L81 MEMORY;
-    lisaac_push_first(&__YV2,L10391596); // L79 MEMORY;
-    lisaac_push_first(&__AW2,L4069927); // L31 CONVERT;
-    __CXT=((____DB )__P3Z);
-    lisaac_push(&__0OX,L10647084); // L81 MEMORY;
-    lisaac_push_first(&__YV2,L10123820); // L77 MEMORY;
-    lisaac_push_first(&__AW2,L5774867); // L44 POINTER;
-    __UP3=((____L )(sizeof(void *)));
-    lisaac_push(&__YV2,L10137132); // L77 MEMORY;
-    lisaac_push_first(&__AW2,L4988457); // L38 UINTEGER_CPU;
-    __WP3=((____L )(sizeof(unsigned long)));
-    lisaac_push(&__YV2,L10124332); // L77 MEMORY;
-    lisaac_push_first(&__AW2,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__BW2,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__AXT,L9195016); // L70 NUMERIC;
-    __0P3=(____L)(- __WP3);
-    lisaac_push(&__AW2,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__BW2,L9195016); // L70 NUMERIC;
-    __WP3=(____L)(__UP3 - __0P3);
-    lisaac_push(&__0OX,L10647084); // L81 MEMORY;
-    lisaac_push_first(&__YV2,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__AW2,L78949383); // L602 INTEGER;
-    __QGT=__H0E(__WP3);
-    lisaac_push(&__AW2,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__BW2,L4069927); // L31 CONVERT;
-    __BQ3=((____DB )__QGT);
-    lisaac_push(&__0OX,L10640940); // L81 MEMORY;
-    lisaac_push_first(&__YV2,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__AW2,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__BW2,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__AXT,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__OXU,L78949383); // L602 INTEGER;
-    __QGT=__H0E( 0);
-    lisaac_push(&__OXU,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__LXT,L4069927); // L31 CONVERT;
-    __JQ3=((____DB )__QGT);
-    lisaac_push(&__AW2,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__BW2,L9195016); // L70 NUMERIC;
-    __LQ3=(void *)((unsigned long)__JQ3 - (unsigned long)__BQ3);
-    lisaac_push(&__YV2,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__AW2,L9195016); // L70 NUMERIC;
-    __BQ3=(void *)((unsigned long)__CXT - (unsigned long)__LQ3);
-    lisaac_push(&__XOX,L11182636); // L85 MEMORY;
-    lisaac_push_first(&__0OX,L10883116); // L83 MEMORY;
-    __QGT=__P3Z->__KSE;
-    lisaac_push(&__0OX,L10916908); // L83 MEMORY;
-    __R3Z=__H0E( 3);
-    lisaac_push(&__0OX,L10907692); // L83 MEMORY;
-    lisaac_push_first(&__YV2,L25311239); // L193 INTEGER;
-    lisaac_push_first(&__AW2,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__BW2,L5383176); // L41 NUMERIC;
-    __C4Z=__H0E( 0);
-    lisaac_push(&__AW2,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__BW2,L9195016); // L70 NUMERIC;
-    __X3Z=(____CRE)(__C4Z - __R3Z);
-    lisaac_push(&__YV2,L25319431); // L193 INTEGER;
-    lisaac_push_first(&__AW2,L5121032); // L39 NUMERIC;
-    __R3Z=__H0E( 1);
-    lisaac_push(&__YV2,L25314823); // L193 INTEGER;
-    lisaac_push_first(&__AW2,L9195016); // L70 NUMERIC;
-    __C4Z=(____CRE)(__X3Z - __R3Z);
-    lisaac_push(&__0OX,L10906668); // L83 MEMORY;
-    lisaac_push_first(&__YV2,L22171143); // L169 INTEGER;
-    __R3Z=(____CRE)(__QGT & __C4Z);
-    lisaac_push(&__XOX,L11182636); // L85 MEMORY;
-    __CXT=__XXG(__R3Z);
-    lisaac_push(&__XOX,L11180076); // L85 MEMORY;
-    lisaac_push_first(&__0OX,L9990152); // L76 NUMERIC;
-    lisaac_push_first(&__YV2,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__AW2,L5383176); // L41 NUMERIC;
-    lisaac_push_first(&__BW2,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__AXT,L78949383); // L602 INTEGER;
-    __QGT=__H0E( 0);
-    lisaac_push(&__AXT,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__OXU,L4069927); // L31 CONVERT;
-    __JQ3=((____DB )__QGT);
-    lisaac_push(&__YV2,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__AW2,L9195016); // L70 NUMERIC;
-    __LQ3=(void *)((unsigned long)__JQ3 - (unsigned long)__CXT);
-    lisaac_push(&__0OX,L9989128); // L76 NUMERIC;
-    lisaac_push_first(&__YV2,L9195016); // L70 NUMERIC;
-    __CXT=(void *)((unsigned long)__BQ3 - (unsigned long)__LQ3);
-    lisaac_push(&__XOX,L11183148); // L85 MEMORY;
-    lisaac_push_first(&__0OX,L4069927); // L31 CONVERT;
-    __P3Z=((____HSE *)__CXT);
-  };
-  lisaac_push(&__VTG,L44450860); // L339 MEMORY;
-  lisaac_push_first(&__XOX,L10391596); // L79 MEMORY;
-  lisaac_push_first(&__0OX,L4069927); // L31 CONVERT;
-  __CXT=((____DB )__P3Z);
-  if (__2TG==NULL) {
-    lisaac_push(&__VTG,L44702764); // L341 MEMORY;
-    lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-  } else /* MEMORY */ {
-    lisaac_push(&__VTG,L44702764); // L341 MEMORY;
-    __P3Z=((____HSE *)__2TG);
-    lisaac_push_first(&__XOX,L10883116); // L83 MEMORY;
-    __QGT=__P3Z->__KSE;
-    lisaac_push(&__XOX,L10916908); // L83 MEMORY;
-    __R3Z=__H0E( 3);
-    lisaac_push(&__XOX,L10907692); // L83 MEMORY;
-    lisaac_push_first(&__0OX,L25311239); // L193 INTEGER;
-    lisaac_push_first(&__YV2,L11029000); // L84 NUMERIC;
-    lisaac_push_first(&__AW2,L5383176); // L41 NUMERIC;
-    __C4Z=__H0E( 0);
-    lisaac_push(&__YV2,L11029512); // L84 NUMERIC;
-    lisaac_push_first(&__AW2,L9195016); // L70 NUMERIC;
-    __X3Z=(____CRE)(__C4Z - __R3Z);
-    lisaac_push(&__0OX,L25319431); // L193 INTEGER;
-    lisaac_push_first(&__YV2,L5121032); // L39 NUMERIC;
-    __R3Z=__H0E( 1);
-    lisaac_push(&__0OX,L25314823); // L193 INTEGER;
-    lisaac_push_first(&__YV2,L9195016); // L70 NUMERIC;
-    __C4Z=(____CRE)(__X3Z - __R3Z);
-    lisaac_push(&__XOX,L10906668); // L83 MEMORY;
-    lisaac_push_first(&__0OX,L22171143); // L169 INTEGER;
-    __R3Z=(____CRE)(__QGT & __C4Z);
-  };
-  lisaac_push(&__VTG,L44709932); // L341 MEMORY;
-  lisaac_push_first(&__XOX,L46932012); // L358 MEMORY;
-  __IUG=((____CRE )(MINIMUM_SIZE));
-  lisaac_push(&__VTG,L44703276); // L341 MEMORY;
-  lisaac_push_first(&__XOX,L15498248); // L118 NUMERIC;
-  lisaac_push_first(&__0OX,L16021000); // L122 NUMERIC;
-  lisaac_push_first(&__YV2,L15224840); // L116 NUMERIC;
-  __EW2=(__R3Z > __IUG);
-  lisaac_push(&__0OX,L16030216); // L122 NUMERIC;
-  lisaac_push_first(&__YV2,L14700552); // L112 NUMERIC;
-  __GW2=(__R3Z == __IUG);
-  if (__EW2) {
-    lisaac_push(&__0OX,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__YV2,L10900996); // L83 TRUE;
-    __IW2=__F__;
-  } else /* FALSE */ {
-    lisaac_push(&__0OX,L16025608); // L122 NUMERIC;
-    lisaac_push_first(&__YV2,L12342790); // L94 FALSE;
-    __IW2=__GW2;
-  };
-  if (__IW2) {
-    lisaac_push(&__XOX,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__0OX,L13509636); // L103 TRUE;
-    __IW2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__XOX,L15493640); // L118 NUMERIC;
-    lisaac_push_first(&__0OX,L14689286); // L112 FALSE;
-    __IW2=__F__;
-  };
-  if (__IW2) {
-    lisaac_push(&__VTG,L45746732); // L349 MEMORY;
-    lisaac_push_first(&__XOX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__0OX,L44713004); // L341 MEMORY;
-    if (__2TG==NULL) {
-      lisaac_push(&__0OX,L44839980); // L342 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      lisaac_push(&__0OX,L44839980); // L342 MEMORY;
-      __JCT(((____HSE *)__2TG));
-    };
-    if (__2TG==NULL) {
-      lisaac_push(&__0OX,L44973612); // L343 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      __JWG=__2TG->__JSE;
-    };
-    if ((__JWG != (void *)NULL)) {
-      lisaac_push(&__0OX,L45616684); // L348 MEMORY;
-      lisaac_push_first(&__YV2,L8792068); // L67 TRUE;
-      lisaac_push_first(&__AW2,L45100588); // L344 MEMORY;
-      __RWG=__X1F;
-      lisaac_push(&__AW2,L45245996); // L345 MEMORY;
-      lisaac_push_first(&__BW2,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L5383176); // L41 NUMERIC;
-      lisaac_push_first(&__LXT,L14156807); // L108 INTEGER;
-      lisaac_push_first(&__OGT,L78949383); // L602 INTEGER;
-      __I4Z=__H0E( 0);
-      lisaac_push(&__OGT,L78949383); // L602 INTEGER;
-      lisaac_push_first(&__WW2,L4069927); // L31 CONVERT;
-      __BZ2=((____DB )__I4Z);
-      lisaac_push(&__AXT,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L9195016); // L70 NUMERIC;
-      __4KZ=(void *)((unsigned long)__BZ2 - (unsigned long)__JWG);
-      lisaac_push(&__BW2,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L9195016); // L70 NUMERIC;
-      __JWG=(void *)((unsigned long)__RWG - (unsigned long)__4KZ);
-      lisaac_push(&__AW2,L45248044); // L345 MEMORY;
-      lisaac_push_first(&__BW2,L4069927); // L31 CONVERT;
-      __H4Z=((____HSE *)__JWG);
-      __I4Z=__H4Z->__KSE;
-      if (__2TG==NULL) {
-        lisaac_push(&__AW2,L45380652); // L346 MEMORY;
-        lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-      } else /* MEMORY */ {
-        __J4Z=__2TG->__KSE;
-      };
-      lisaac_push(&__AW2,L45387308); // L346 MEMORY;
-      lisaac_push_first(&__BW2,L10123820); // L77 MEMORY;
-      lisaac_push_first(&__AXT,L5774867); // L44 POINTER;
-      __HZ2=((____L )(sizeof(void *)));
-      lisaac_push(&__BW2,L10137132); // L77 MEMORY;
-      lisaac_push_first(&__AXT,L4988457); // L38 UINTEGER_CPU;
-      __KZ2=((____L )(sizeof(unsigned long)));
-      lisaac_push(&__BW2,L10124332); // L77 MEMORY;
-      lisaac_push_first(&__AXT,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__OXU,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__LXT,L9195016); // L70 NUMERIC;
-      __OZ2=(____L)(- __KZ2);
-      lisaac_push(&__AXT,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__OXU,L9195016); // L70 NUMERIC;
-      __KZ2=(____L)(__HZ2 - __OZ2);
-      lisaac_push(&__AW2,L45371948); // L346 MEMORY;
-      lisaac_push_first(&__BW2,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L5383176); // L41 NUMERIC;
-      __1UG=__H0E( 0);
-      lisaac_push(&__AXT,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L9195016); // L70 NUMERIC;
-      __ELZ=(____CRE)(__1UG - __J4Z);
-      lisaac_push(&__BW2,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L9195016); // L70 NUMERIC;
-      __J4Z=(____CRE)(__I4Z - __ELZ);
-      lisaac_push(&__AW2,L45387308); // L346 MEMORY;
-      __I4Z=__H0E(__KZ2);
-      lisaac_push(&__AW2,L45381164); // L346 MEMORY;
-      lisaac_push_first(&__BW2,L9990152); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L11029000); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L5383176); // L41 NUMERIC;
-      __1UG=__H0E( 0);
-      lisaac_push(&__AXT,L11029512); // L84 NUMERIC;
-      lisaac_push_first(&__OXU,L9195016); // L70 NUMERIC;
-      __ELZ=(____CRE)(__1UG - __I4Z);
-      lisaac_push(&__BW2,L9989128); // L76 NUMERIC;
-      lisaac_push_first(&__AXT,L9195016); // L70 NUMERIC;
-      __I4Z=(____CRE)(__J4Z - __ELZ);
-      lisaac_push(&__AW2,L45387820); // L346 MEMORY;
-      lisaac_push_first(&__BW2,L12471340); // L95 MEMORY;
-      __H4Z->__KSE=__I4Z;
-      lisaac_push(&__AW2,L45492780); // L347 MEMORY;
-      __3MP(__H4Z,__ZTG);
-    } else /* FALSE */ {
-      lisaac_push(&__0OX,L45616684); // L348 MEMORY;
-      lisaac_push_first(&__YV2,L8530438); // L65 FALSE;
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__VTG,L45746732); // L349 MEMORY;
-    lisaac_push_first(&__XOX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__VTG,L45886508); // L350 MEMORY;
-  lisaac_push_first(&__XOX,L51279404); // L391 MEMORY;
-  lisaac_push_first(&__0OX,L4069927); // L31 CONVERT;
-  __F2G=((____Y1 *)__CXT);
-  lisaac_push(&__XOX,L51389484); // L392 MEMORY;
-  lisaac_push_first(&__0OX,L18627605); // L142 NATIVE_ARRAY;
-  lisaac_push_first(&__YV2,L105516053); // L805 NATIVE_ARRAY;
-  lisaac_push_first(&__AW2,L22153746); // L169 BLOCK;
-  lisaac_push_first(&__BW2,L8530438); // L65 FALSE;
-  __F2G[ 0]=__XTG;
-  lisaac_push(&__VTG,L46160428); // L352 MEMORY;
-  lisaac_push_first(&__XOX,L17840146); // L136 BLOCK;
-  lisaac_push_first(&__0OX,L7481858); // L57 OBJECT;
-  __BQ3=((____DB )(top_context->back->back));
-  lisaac_push(&__XOX,L17970194); // L137 BLOCK;
-  lisaac_push_first(&__0OX,L10652676); // L81 TRUE;
-  lisaac_push_first(&__YV2,L17974802); // L137 BLOCK;
-  lisaac_push_first(&__AW2,L46139948); // L352 MEMORY;
-  __JQ3=__X1F;
-  lisaac_push(&__AW2,L46145068); // L352 MEMORY;
-  lisaac_push_first(&__BW2,L9195016); // L70 NUMERIC;
-  __LQ3=(void *)((unsigned long)__CXT - (unsigned long)__JQ3);
-  lisaac_push(&__AW2,L46156332); // L352 MEMORY;
-  lisaac_push_first(&__BW2,L14156807); // L108 INTEGER;
-  lisaac_push_first(&__AXT,L78949383); // L602 INTEGER;
-  __ZTG=__H0E( 4095);
-  lisaac_push(&__AXT,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__OXU,L4069927); // L31 CONVERT;
-  __JQ3=((____DB )__ZTG);
-  lisaac_push(&__AW2,L46153260); // L352 MEMORY;
-  lisaac_push_first(&__BW2,L22171143); // L169 INTEGER;
-  if (((unsigned long)(void *)((unsigned long)__LQ3 & (unsigned long)__JQ3) ==  0)) {
-    lisaac_push(&__YV2,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__AW2,L13509636); // L103 TRUE;
-    __IW2=__J__;
-  } else /* FALSE */ {
-    lisaac_push(&__YV2,L17971730); // L137 BLOCK;
-    lisaac_push_first(&__AW2,L14689286); // L112 FALSE;
-    __IW2=__F__;
-  };
-  if (__IW2) {
-    lisaac_push(&__XOX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__0OX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__YV2,L18105874); // L138 BLOCK;
-    lisaac_push_first(&__AW2,L9452546); // L72 OBJECT;
-    lisaac_push_first(&__BW2,L8260098); // L63 OBJECT;
-    lisaac_push_first(&__AXT,L8792068); // L67 TRUE;
-    lisaac_push_first(&__OXU,L8009218); // L61 OBJECT;
-    lisaac_stack_print((_____CONTEXT *)(__BQ3));
-    lisaac_push(&__AW2,L9574914); // L73 OBJECT;
-    __DX((&__string_147));
-    lisaac_push(&__AW2,L9706498); // L74 OBJECT;
-    lisaac_push_first(&__BW2,L10896400); // L83 CHARACTER;
-    lisaac_push_first(&__AXT,L5005342); // L38 STD_OUTPUT;
-    lisaac_push_first(&__OXU,L18378271); // L140 OUTPUT_STREAM;
-    lisaac_push_first(&__LXT,L6962199); // L53 SYSTEM_IO;
-    fputc((int)('\n'),stdout);
-    lisaac_push(&__AW2,L9848322); // L75 OBJECT;
-    lisaac_push_first(&__BW2,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__AXT,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__XOX,L18221586); // L139 BLOCK;
-    lisaac_push_first(&__0OX,L8530438); // L65 FALSE;
-  };
-  lisaac_push(&__VTG,L46400556); // L354 MEMORY;
-  lisaac_push_first(&__XOX,L14156807); // L108 INTEGER;
-  lisaac_push_first(&__0OX,L78949383); // L602 INTEGER;
-  __ZTG=__H0E( 4);
-  lisaac_push(&__0OX,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__YV2,L4069927); // L31 CONVERT;
-  __BQ3=((____DB )__ZTG);
-  lisaac_push(&__VTG,L46274604); // L353 MEMORY;
-  lisaac_push_first(&__XOX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__0OX,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__YV2,L5383176); // L41 NUMERIC;
-  lisaac_push_first(&__AW2,L14156807); // L108 INTEGER;
-  lisaac_push_first(&__BW2,L78949383); // L602 INTEGER;
-  __ZTG=__H0E( 0);
-  lisaac_push(&__BW2,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__AXT,L4069927); // L31 CONVERT;
-  __JQ3=((____DB )__ZTG);
-  lisaac_push(&__0OX,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__YV2,L9195016); // L70 NUMERIC;
-  __LQ3=(void *)((unsigned long)__JQ3 - (unsigned long)__BQ3);
-  lisaac_push(&__XOX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__0OX,L9195016); // L70 NUMERIC;
-  __YTG=(void *)((unsigned long)__CXT - (unsigned long)__LQ3);
-  return(__YTG);
+  ____L __BEJ,__DEJ,__YXL;
+  ____4 *__LVY,*__MVY;
+  __BEJ=(____L)(__P3H +  1);
+  __DEJ=__O3H->__BC;
+  __YXL=__BEJ;
+  __LVY=__O3H->__ZAE;
+  __MVY=__O3H->__ZAE;
+  while ((__YXL <= __DEJ)) {
+    ((____4 *)__MVY)[(____L)((____L)(__YXL -  1) -  1)]=((____4 *)__LVY)[(____L)(__YXL -  1)];
+    __YXL=(____L)(__YXL +  1);
+  };
+  __O3H->__BC=(____L)(__O3H->__BC -  1);
 }
 
-static ____HSE* __WUO()
+static ____54D* __SWM()
 // () With result No recursive, No inlinable.
 {
-  ____DB __VWR,__XWR,__KLR,__AXZ;
-  ____CRE __1WR,__SWR,__DXR,__EWZ,__ZVZ;
-  ____L __FLR,__GLR,__H22;
-  ____HSE *__FWO,*__SQ3,*__TQ3,*__ZUO;
-  _____CONTEXT __XUO,__TUX,__WUX,__RKR,__PWR,__YUX,__1UX,__GKS,__PXR;
-  _____CONTEXT __A2X,__3TU,__GVZ;
-  ____G __VXR;
-  lisaac_push_first(&__XUO,L3951145); // L30 UINTEGER_CPU;
-  lisaac_push_first(&__TUX,L68588040); // L523 NUMERIC;
-  lisaac_push_first(&__WUX,L4069927); // L31 CONVERT;
-  if ((__BVO ==  0)) {
-    lisaac_push(&__XUO,L17173036); // L131 MEMORY;
-    lisaac_push_first(&__TUX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WUX,L17050156); // L130 MEMORY;
-    lisaac_push_first(&__RKR,L15096876); // L115 MEMORY;
-    lisaac_push_first(&__PWR,L3951145); // L30 UINTEGER_CPU;
-    lisaac_push_first(&__YUX,L68588040); // L523 NUMERIC;
-    lisaac_push_first(&__1UX,L4069927); // L31 CONVERT;
-    __VWR=((____DB )(NULL));
-    __XWR=((____DB )(NULL));
-    lisaac_push(&__PWR,L11280424); // L86 SYSTEM;
-    __1WR=__H0E( 33554432);
-    __SWR=__1WR;
-    lisaac_push(&__PWR,L11956776); // L91 SYSTEM;
-    lisaac_push_first(&__YUX,L12980754); // L99 BLOCK;
-    __X4R:
-    {
-      lisaac_push(&__YUX,L12980754); // L99 BLOCK;
-      lisaac_push_first(&__1UX,L11544616); // L88 SYSTEM;
-      __DXR=__H0E( 2);
-      lisaac_push(&__1UX,L11543592); // L88 SYSTEM;
-      lisaac_push_first(&__GKS,L9457160); // L72 NUMERIC;
-      __SWR=(____CRE)(__SWR * __DXR);
-      __VWR=__XWR;
-      __XWR=((____DB )(realloc((__XWR),(__SWR))));
-      lisaac_push(&__YUX,L13115922); // L100 BLOCK;
-      lisaac_push_first(&__1UX,L11935784); // L91 SYSTEM;
-      if ((__XWR == (void *)NULL)) {
-        lisaac_push(&__1UX,L11945512); // L91 SYSTEM;
-        lisaac_push_first(&__GKS,L10377220); // L79 TRUE;
-        __VXR=__F__;
-      } else /* FALSE */ {
-        lisaac_push(&__1UX,L11945512); // L91 SYSTEM;
-        lisaac_push_first(&__GKS,L11832326); // L90 FALSE;
-        lisaac_push_first(&__PXR,L11950120); // L91 SYSTEM;
-        lisaac_push_first(&__A2X,L23745543); // L181 INTEGER;
-        __VXR=((____CRE)(__SWR >>  20) ==  2048);
-      };
-      if (__VXR) {
-        lisaac_push(&__YUX,L13110290); // L100 BLOCK;
-        lisaac_push_first(&__1UX,L13509636); // L103 TRUE;
-        __VXR=__J__;
-      } else /* FALSE */ {
-        lisaac_push(&__YUX,L13110290); // L100 BLOCK;
-        lisaac_push_first(&__1UX,L14689286); // L112 FALSE;
-        __VXR=__F__;
-      };
-      if (__VXR) {
-        lisaac_push(&__YUX,L13371922); // L102 BLOCK;
-        lisaac_push_first(&__1UX,L8792068); // L67 TRUE;
-        lisaac_push_first(&__GKS,L13248018); // L101 BLOCK;
-        goto __X4R;
-      } else /* FALSE */ {
-        lisaac_push(&__YUX,L13371922); // L102 BLOCK;
-        lisaac_push_first(&__1UX,L8530438); // L65 FALSE;
-      };
-    };
-    if ((__XWR == (void *)NULL)) {
-      lisaac_push(&__PWR,L12585512); // L96 SYSTEM;
-      lisaac_push_first(&__YUX,L6825988); // L52 TRUE;
-      lisaac_push_first(&__1UX,L12199976); // L93 SYSTEM;
-      __DXR=__H0E( 2);
-      lisaac_push(&__1UX,L12198952); // L93 SYSTEM;
-      lisaac_push_first(&__GKS,L9719304); // L74 NUMERIC;
-      __SWR=(____CRE)(__SWR / __DXR);
-    } else /* FALSE */ {
-      lisaac_push(&__PWR,L12585512); // L96 SYSTEM;
-      lisaac_push_first(&__YUX,L6826502); // L52 FALSE;
-      lisaac_push_first(&__1UX,L12326952); // L94 SYSTEM;
-      __VWR=__XWR;
-    };
-    __BVO=__SWR;
-    __X1F=__VWR;
-    lisaac_push(&__RKR,L15874092); // L121 MEMORY;
-    lisaac_push_first(&__PWR,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__YUX,L7481858); // L57 OBJECT;
-    __XWR=((____DB )(top_context->back->back));
-    lisaac_push(&__PWR,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__YUX,L10652676); // L81 TRUE;
-    lisaac_push_first(&__1UX,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__GKS,L15862316); // L121 MEMORY;
-    if ((__VWR != (void *)NULL)) {
-      lisaac_push(&__1UX,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__GKS,L13509636); // L103 TRUE;
-      __VXR=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__1UX,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__GKS,L14689286); // L112 FALSE;
-      __VXR=__F__;
-    };
-    if (__VXR) {
-      lisaac_push(&__PWR,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__YUX,L8792068); // L67 TRUE;
-      lisaac_push_first(&__1UX,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__GKS,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__PXR,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__A2X,L8792068); // L67 TRUE;
-      lisaac_push_first(&__3TU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__XWR));
-      lisaac_push(&__GKS,L9574914); // L73 OBJECT;
-      __DX((&__string_148));
-      lisaac_push(&__GKS,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__PXR,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__A2X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__3TU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__GVZ,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__GKS,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__PXR,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__A2X,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__PWR,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__YUX,L8530438); // L65 FALSE;
-    };
-    lisaac_push(&__RKR,L16018476); // L122 MEMORY;
-    lisaac_push_first(&__PWR,L17840146); // L136 BLOCK;
-    lisaac_push_first(&__YUX,L7481858); // L57 OBJECT;
-    __VWR=((____DB )(top_context->back->back));
-    lisaac_push(&__PWR,L17970194); // L137 BLOCK;
-    lisaac_push_first(&__YUX,L10652676); // L81 TRUE;
-    lisaac_push_first(&__1UX,L17974802); // L137 BLOCK;
-    lisaac_push_first(&__GKS,L15993388); // L122 MEMORY;
-    __XWR=__X1F;
-    lisaac_push(&__GKS,L16012332); // L122 MEMORY;
-    lisaac_push_first(&__PXR,L5774867); // L44 POINTER;
-    __FLR=((____L )(sizeof(void *)));
-    lisaac_push(&__GKS,L16012844); // L122 MEMORY;
-    lisaac_push_first(&__PXR,L9195016); // L70 NUMERIC;
-    __GLR=(____L)(__FLR -  1);
-    lisaac_push(&__GKS,L16012844); // L122 MEMORY;
-    lisaac_push_first(&__PXR,L14156807); // L108 INTEGER;
-    lisaac_push_first(&__A2X,L78949383); // L602 INTEGER;
-    __1WR=__H0E(__GLR);
-    lisaac_push(&__A2X,L78949383); // L602 INTEGER;
-    lisaac_push_first(&__3TU,L4069927); // L31 CONVERT;
-    __KLR=((____DB )__1WR);
-    lisaac_push(&__GKS,L16001068); // L122 MEMORY;
-    lisaac_push_first(&__PXR,L22171143); // L169 INTEGER;
-    if (((unsigned long)(void *)((unsigned long)__XWR & (unsigned long)__KLR) ==  0)) {
-      lisaac_push(&__1UX,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__GKS,L13509636); // L103 TRUE;
-      __VXR=__J__;
-    } else /* FALSE */ {
-      lisaac_push(&__1UX,L17971730); // L137 BLOCK;
-      lisaac_push_first(&__GKS,L14689286); // L112 FALSE;
-      __VXR=__F__;
-    };
-    if (__VXR) {
-      lisaac_push(&__PWR,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__YUX,L8792068); // L67 TRUE;
-      lisaac_push_first(&__1UX,L18105874); // L138 BLOCK;
-      lisaac_push_first(&__GKS,L9452546); // L72 OBJECT;
-      lisaac_push_first(&__PXR,L8260098); // L63 OBJECT;
-      lisaac_push_first(&__A2X,L8792068); // L67 TRUE;
-      lisaac_push_first(&__3TU,L8009218); // L61 OBJECT;
-      lisaac_stack_print((_____CONTEXT *)(__VWR));
-      lisaac_push(&__GKS,L9574914); // L73 OBJECT;
-      __DX((&__string_133));
-      lisaac_push(&__GKS,L9706498); // L74 OBJECT;
-      lisaac_push_first(&__PXR,L10896400); // L83 CHARACTER;
-      lisaac_push_first(&__A2X,L5005342); // L38 STD_OUTPUT;
-      lisaac_push_first(&__3TU,L18378271); // L140 OUTPUT_STREAM;
-      lisaac_push_first(&__GVZ,L6962199); // L53 SYSTEM_IO;
-      fputc((int)('\n'),stdout);
-      lisaac_push(&__GKS,L9848322); // L75 OBJECT;
-      lisaac_push_first(&__PXR,L10904578); // L83 OBJECT;
-      lisaac_push_first(&__A2X,L4598824); // L35 SYSTEM;
-      exit(( 1));
-    } else /* FALSE */ {
-      lisaac_push(&__PWR,L18221586); // L139 BLOCK;
-      lisaac_push_first(&__YUX,L8530438); // L65 FALSE;
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__XUO,L17173036); // L131 MEMORY;
-    lisaac_push_first(&__TUX,L8530438); // L65 FALSE;
-  };
-  __1WR=__HUG;
-  lisaac_push(&__XUO,L17445932); // L133 MEMORY;
-  lisaac_push_first(&__TUX,L24269831); // L185 INTEGER;
-  __SWR=(____CRE)(__1WR <<  26);
-  __1WR=__HUG;
-  lisaac_push(&__XUO,L17577516); // L134 MEMORY;
-  __DXR=__H0E( 1);
-  lisaac_push(&__XUO,L17576492); // L134 MEMORY;
-  lisaac_push_first(&__TUX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__WUX,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__RKR,L5383176); // L41 NUMERIC;
-  __EWZ=__H0E( 0);
-  lisaac_push(&__WUX,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __ZVZ=(____CRE)(__EWZ - __DXR);
-  lisaac_push(&__TUX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__WUX,L9195016); // L70 NUMERIC;
-  __HUG=(____CRE)(__1WR - __ZVZ);
-  lisaac_push(&__XUO,L17711148); // L135 MEMORY;
-  __1WR=__H0E( 67108864);
-  lisaac_push(&__XUO,L17708076); // L135 MEMORY;
-  lisaac_push_first(&__TUX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__WUX,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__RKR,L5383176); // L41 NUMERIC;
-  __DXR=__H0E( 0);
-  lisaac_push(&__WUX,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __EWZ=(____CRE)(__DXR - __1WR);
-  lisaac_push(&__TUX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__WUX,L9195016); // L70 NUMERIC;
-  __1WR=(____CRE)(__SWR - __EWZ);
-  __DXR=__BVO;
-  lisaac_push(&__XUO,L17833516); // L136 MEMORY;
-  lisaac_push_first(&__TUX,L15224840); // L116 NUMERIC;
-  if ((__1WR > __DXR)) {
-    lisaac_push(&__XUO,L18221612); // L139 MEMORY;
-    lisaac_push_first(&__TUX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__WUX,L17843244); // L136 MEMORY;
-    lisaac_push(&__WUX,L17974316); // L137 MEMORY;
-    __DX((&__string_149));
-    lisaac_push(&__WUX,L18106924); // L138 MEMORY;
-    lisaac_push_first(&__RKR,L10904578); // L83 OBJECT;
-    lisaac_push_first(&__PWR,L4598824); // L35 SYSTEM;
-    exit(( 1));
-  } else /* FALSE */ {
-    lisaac_push(&__XUO,L18221612); // L139 MEMORY;
-    lisaac_push_first(&__TUX,L8530438); // L65 FALSE;
-  };
-  __VWR=__X1F;
-  lisaac_push(&__XUO,L16522284); // L126 MEMORY;
-  __XWR=__XXG(__SWR);
-  lisaac_push(&__XUO,L19033644); // L145 MEMORY;
-  lisaac_push_first(&__TUX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__WUX,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__RKR,L5383176); // L41 NUMERIC;
-  lisaac_push_first(&__PWR,L14156807); // L108 INTEGER;
-  lisaac_push_first(&__YUX,L78949383); // L602 INTEGER;
-  __1WR=__H0E( 0);
-  lisaac_push(&__YUX,L78949383); // L602 INTEGER;
-  lisaac_push_first(&__1UX,L4069927); // L31 CONVERT;
-  __KLR=((____DB )__1WR);
-  lisaac_push(&__WUX,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __AXZ=(void *)((unsigned long)__KLR - (unsigned long)__XWR);
-  lisaac_push(&__TUX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__WUX,L9195016); // L70 NUMERIC;
-  __XWR=(void *)((unsigned long)__VWR - (unsigned long)__AXZ);
-  lisaac_push(&__XUO,L19038764); // L145 MEMORY;
-  lisaac_push_first(&__TUX,L4069927); // L31 CONVERT;
-  __FWO=((____HSE *)__XWR);
-  lisaac_push(&__XUO,L19153964); // L146 MEMORY;
-  lisaac_push_first(&__TUX,L12209196); // L93 MEMORY;
-  __FWO->__JSE=NULL;
-  lisaac_push(&__XUO,L19285548); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L20725292); // L158 MEMORY;
-  __1WR=__H0E( 0);
-  lisaac_push(&__XUO,L19290156); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L11687980); // L89 MEMORY;
-  __SWR=__H0E( 2);
-  lisaac_push(&__XUO,L19301420); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L10123820); // L77 MEMORY;
-  lisaac_push_first(&__WUX,L5774867); // L44 POINTER;
-  __FLR=((____L )(sizeof(void *)));
-  lisaac_push(&__TUX,L10137132); // L77 MEMORY;
-  lisaac_push_first(&__WUX,L4988457); // L38 UINTEGER_CPU;
-  __GLR=((____L )(sizeof(unsigned long)));
-  lisaac_push(&__TUX,L10124332); // L77 MEMORY;
-  lisaac_push_first(&__WUX,L9990152); // L76 NUMERIC;
-  lisaac_push_first(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __H22=(____L)(- __GLR);
-  lisaac_push(&__WUX,L9989128); // L76 NUMERIC;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __GLR=(____L)(__FLR - __H22);
-  lisaac_push(&__XUO,L19295276); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L9195016); // L70 NUMERIC;
-  __FLR=(____L)( 67108864 - __GLR);
-  lisaac_push(&__XUO,L19286060); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L22940167); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L5383176); // L41 NUMERIC;
-  __DXR=__H0E( 0);
-  lisaac_push(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __EWZ=(____CRE)(__DXR - __1WR);
-  lisaac_push(&__WUX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L5121032); // L39 NUMERIC;
-  __1WR=__H0E( 1);
-  lisaac_push(&__WUX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __DXR=(____CRE)(__EWZ - __1WR);
-  lisaac_push(&__TUX,L22944263); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L5383176); // L41 NUMERIC;
-  __1WR=__H0E( 0);
-  lisaac_push(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __EWZ=(____CRE)(__1WR - __SWR);
-  lisaac_push(&__WUX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L5121032); // L39 NUMERIC;
-  __1WR=__H0E( 1);
-  lisaac_push(&__WUX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __SWR=(____CRE)(__EWZ - __1WR);
-  lisaac_push(&__TUX,L22943239); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L22171143); // L169 INTEGER;
-  __1WR=(____CRE)(__DXR & __SWR);
-  lisaac_push(&__TUX,L22939143); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L5383176); // L41 NUMERIC;
-  __SWR=__H0E( 0);
-  lisaac_push(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __DXR=(____CRE)(__SWR - __1WR);
-  lisaac_push(&__WUX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L5121032); // L39 NUMERIC;
-  __1WR=__H0E( 1);
-  lisaac_push(&__WUX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __SWR=(____CRE)(__DXR - __1WR);
-  lisaac_push(&__XUO,L19295276); // L147 MEMORY;
-  __1WR=__H0E(__FLR);
-  lisaac_push(&__XUO,L19290668); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L22940167); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L5383176); // L41 NUMERIC;
-  __DXR=__H0E( 0);
-  lisaac_push(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __EWZ=(____CRE)(__DXR - __SWR);
-  lisaac_push(&__WUX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L5121032); // L39 NUMERIC;
-  __SWR=__H0E( 1);
-  lisaac_push(&__WUX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __DXR=(____CRE)(__EWZ - __SWR);
-  lisaac_push(&__TUX,L22944263); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L5383176); // L41 NUMERIC;
-  __SWR=__H0E( 0);
-  lisaac_push(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __EWZ=(____CRE)(__SWR - __1WR);
-  lisaac_push(&__WUX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L5121032); // L39 NUMERIC;
-  __1WR=__H0E( 1);
-  lisaac_push(&__WUX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __SWR=(____CRE)(__EWZ - __1WR);
-  lisaac_push(&__TUX,L22943239); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L22171143); // L169 INTEGER;
-  __1WR=(____CRE)(__DXR & __SWR);
-  lisaac_push(&__TUX,L22939143); // L175 INTEGER;
-  lisaac_push_first(&__WUX,L25311239); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L11029000); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L5383176); // L41 NUMERIC;
-  __SWR=__H0E( 0);
-  lisaac_push(&__RKR,L11029512); // L84 NUMERIC;
-  lisaac_push_first(&__PWR,L9195016); // L70 NUMERIC;
-  __DXR=(____CRE)(__SWR - __1WR);
-  lisaac_push(&__WUX,L25319431); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L5121032); // L39 NUMERIC;
-  __1WR=__H0E( 1);
-  lisaac_push(&__WUX,L25314823); // L193 INTEGER;
-  lisaac_push_first(&__RKR,L9195016); // L70 NUMERIC;
-  __SWR=(____CRE)(__DXR - __1WR);
-  lisaac_push(&__XUO,L19302444); // L147 MEMORY;
-  lisaac_push_first(&__TUX,L12471340); // L95 MEMORY;
-  __FWO->__KSE=__SWR;
-  lisaac_push(&__XUO,L19410476); // L148 MEMORY;
-  lisaac_push_first(&__TUX,L23471148); // L179 MEMORY;
-  __FWO->__LSE=__SCP;
-  __FWO->__MSE=NULL;
-  if (((void *)__SCP != (void *)NULL)) {
-    lisaac_push(&__TUX,L24250924); // L185 MEMORY;
-    lisaac_push_first(&__WUX,L8792068); // L67 TRUE;
-    lisaac_push_first(&__RKR,L24001068); // L183 MEMORY;
-    __SQ3=__SCP;
-    if (__SQ3==NULL) {
-      lisaac_push(&__RKR,L24137260); // L184 MEMORY;
-      lisaac_stack_print(top_context); print_string("Call on NULL\n"); die_with_code(1);
-    } else /* MEMORY */ {
-      lisaac_push(&__RKR,L24137260); // L184 MEMORY;
-      __TQ3=((____HSE *)__SQ3);
-      lisaac_push_first(&__PWR,L21249580); // L162 MEMORY;
-      __TQ3->__MSE=__FWO;
-    };
-  } else /* FALSE */ {
-    lisaac_push(&__TUX,L24250924); // L185 MEMORY;
-    lisaac_push_first(&__WUX,L8530438); // L65 FALSE;
-  };
-  __SCP=__FWO;
-  __1WR=__HUG;
-  lisaac_push(&__XUO,L19547180); // L149 MEMORY;
-  __SWR=__H0E( 1);
-  lisaac_push(&__XUO,L19546156); // L149 MEMORY;
-  lisaac_push_first(&__TUX,L9195016); // L70 NUMERIC;
-  __DXR=(____CRE)(__1WR - __SWR);
-  lisaac_push(&__XUO,L19547692); // L149 MEMORY;
-  __3MP(__FWO,__DXR);
-  __ZUO=__FWO;
-  return(__ZUO);
+  ____DB __SLP,__ULP;
+  ____33D __PLP;
+  ____54D *__4XM,*__UWM;
+  if ((__2WM ==  0)) {
+    __SLP=((____DB )(NULL));
+    __ULP=((____DB )(NULL));
+    __PLP=((____33D ) 33554432);
+    do {
+      __PLP=(____33D)(__PLP * ((____33D ) 2));
+      __SLP=__ULP;
+      __ULP=((____DB )(realloc((__ULP),(__PLP))));
+    } while ((! ((__ULP == (void *)NULL) || ((____33D)(__PLP >>  20) ==  2048))));
+    if ((__ULP == (void *)NULL)) {
+      __PLP=(____33D)(__PLP / ((____33D ) 2));
+    } else /* FALSE */ {
+      __SLP=__ULP;
+    };
+    __2WM=__PLP;
+    __HDF=__SLP;
+    ;
+  };
+  __PLP=(____33D)(__QYF <<  26);
+  __QYF=(____33D)(__QYF - (____33D)(((____33D ) 0) - ((____33D ) 1)));
+  if (((____33D)(__PLP - (____33D)(((____33D ) 0) - ((____33D ) 67108864))) > __2WM)) {
+    __FSC((&__string_127));
+    exit(( 1));
+  };
+  __4XM=((____54D *)(void *)((unsigned long)__HDF - (unsigned long)(void *)((unsigned long)((____DB )((____33D ) 0)) - (unsigned long)((____DB )__PLP))));
+  __4XM->__B5D=NULL;
+  __4XM->__C5D=(____33D)((____33D)(((____33D ) 0) - (____33D)((____33D)((____33D)(((____33D ) 0) - (____33D)((____33D)(((____33D ) 0) - (____33D)((____33D)((____33D)(((____33D ) 0) - ((____33D ) 0)) - ((____33D ) 1)) & (____33D)((____33D)(((____33D ) 0) - ((____33D ) 2)) - ((____33D ) 1)))) - ((____33D ) 1))) - ((____33D ) 1)) & (____33D)((____33D)(((____33D ) 0) - ((____33D )(____L)( 67108864 - (____L)(((____L )(sizeof(void *))) + ((____L )(sizeof(unsigned long))))))) - ((____33D ) 1)))) - ((____33D ) 1));
+  __4XM->__D5D=__JDN;
+  __4XM->__E5D=NULL;
+  if (((void *)__JDN != (void *)NULL)) {
+    ((____54D *)__JDN)->__E5D=__4XM;
+  };
+  __JDN=__4XM;
+  last_block[((____33D)(__QYF - ((____33D ) 1)))] = (__4XM);
+  __UWM=__4XM;
+  return(__UWM);
 }
-
-//==========================//
-// DEBUG MANAGER            //
-//==========================//
-
-int print_string(char *str) 
-{ 
-  while (*str!=0) {
-    print_char(*str); 
-    str++; 
-  };
-  return(0);
-}
-
-char *trace[62]={
-  "make.lip (make.lip)",
-  "INSTALL_LISAAC (c:/Documents and Settings/sonntag/compiler/install_lisaac.li)",
-  "OBJECT (c:/Documents and Settings/sonntag/compiler/lib/kernel/object.li)",
-  "I_DONT_KNOW_PROTOTYPING (c:/Documents and Settings/sonntag/compiler/lib/kernel/i_dont_know_prototyping.li)",
-  "TRUE (c:/Documents and Settings/sonntag/compiler/lib/base/true.li)",
-  "BOOLEAN (c:/Documents and Settings/sonntag/compiler/lib/base/boolean.li)",
-  "FALSE (c:/Documents and Settings/sonntag/compiler/lib/base/false.li)",
-  "INTEGER (c:/Documents and Settings/sonntag/compiler/lib/number/integer.li)",
-  "NUMERIC (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/numeric.li)",
-  "REAL (c:/Documents and Settings/sonntag/compiler/lib/number/real.li)",
-  "INTEGER_32 (c:/Documents and Settings/sonntag/compiler/lib/number/integer_32.li)",
-  "SIGNED_INTEGER (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/signed_integer.li)",
-  "STRING_CONSTANT (c:/Documents and Settings/sonntag/compiler/lib/string/string_constant.li)",
-  "ABSTRACT_STRING (c:/Documents and Settings/sonntag/compiler/lib/string/abstract_string.li)",
-  "HASHABLE (c:/Documents and Settings/sonntag/compiler/lib/kernel/hashable.li)",
-  "COMPARABLE (c:/Documents and Settings/sonntag/compiler/lib/kernel/comparable.li)",
-  "CHARACTER (c:/Documents and Settings/sonntag/compiler/lib/base/character.li)",
-  "CHARACTER_REF (c:/Documents and Settings/sonntag/compiler/lib/base/low_level/character_ref.li)",
-  "BLOCK (c:/Documents and Settings/sonntag/compiler/lib/base/block.li)",
-  "POINTER (c:/Documents and Settings/sonntag/compiler/lib/kernel/pointer.li)",
-  "UNSIGNED_INTEGER (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/unsigned_integer.li)",
-  "NATIVE_ARRAY (c:/Documents and Settings/sonntag/compiler/lib/collection/low_level/native_array.li)",
-  "SAFE_EQUAL (c:/Documents and Settings/sonntag/compiler/lib/kernel/safe_equal.li)",
-  "SYSTEM_IO (c:/Documents and Settings/sonntag/compiler/lib_os/unix/system/system_io.li)",
-  "STRING (c:/Documents and Settings/sonntag/compiler/lib/string/string.li)",
-  "ARRAYED (c:/Documents and Settings/sonntag/compiler/lib/collection/low_level/arrayed.li)",
-  "ENVIRONMENT (c:/Documents and Settings/sonntag/compiler/lib_os/unix/system/environment.li)",
-  "IO (c:/Documents and Settings/sonntag/compiler/lib/io/io.li)",
-  "STD_INPUT (c:/Documents and Settings/sonntag/compiler/lib/io/std_input.li)",
-  "INPUT_STREAM (c:/Documents and Settings/sonntag/compiler/lib/io/input_stream.li)",
-  "STD_OUTPUT (c:/Documents and Settings/sonntag/compiler/lib/io/std_output.li)",
-  "OUTPUT_STREAM (c:/Documents and Settings/sonntag/compiler/lib/io/output_stream.li)",
-  "INTEGER_64 (c:/Documents and Settings/sonntag/compiler/lib/number/integer_64.li)",
-  "UINTEGER_64 (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger_64.li)",
-  "UINTEGER_8 (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger_8.li)",
-  "UINTEGER_16 (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger_16.li)",
-  "UINTEGER_32 (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger_32.li)",
-  "INTEGER_8 (c:/Documents and Settings/sonntag/compiler/lib/number/integer_8.li)",
-  "INTEGER_16 (c:/Documents and Settings/sonntag/compiler/lib/number/integer_16.li)",
-  "CONVERT (c:/Documents and Settings/sonntag/compiler/lib/kernel/convert.li)",
-  "SYSTEM (c:/Documents and Settings/sonntag/compiler/lib_os/unix/system/system.li)",
-  "UINTEGER_CPU (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger_cpu.li)",
-  "UINTEGER_BIG (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger_big.li)",
-  "UINTEGER (c:/Documents and Settings/sonntag/compiler/lib/number/uinteger.li)",
-  "MEMORY (c:/Documents and Settings/sonntag/compiler/lib/memory/memory.li)",
-  "UREAL_16_16 (c:/Documents and Settings/sonntag/compiler/lib/number/ureal_16_16.li)",
-  "UNSIGNED_FIXED_REAL (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/unsigned_fixed_real.li)",
-  "FIXED_REAL (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/fixed_real.li)",
-  "UREAL_24_8 (c:/Documents and Settings/sonntag/compiler/lib/number/ureal_24_8.li)",
-  "UREAL_26_6 (c:/Documents and Settings/sonntag/compiler/lib/number/ureal_26_6.li)",
-  "REAL_16_16 (c:/Documents and Settings/sonntag/compiler/lib/number/real_16_16.li)",
-  "SIGNED_FIXED_REAL (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/signed_fixed_real.li)",
-  "REAL_24_8 (c:/Documents and Settings/sonntag/compiler/lib/number/real_24_8.li)",
-  "REAL_26_6 (c:/Documents and Settings/sonntag/compiler/lib/number/real_26_6.li)",
-  "REAL_32 (c:/Documents and Settings/sonntag/compiler/lib/number/real_32.li)",
-  "FLOAT_MAP32 (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/float_map32.li)",
-  "FLOAT_MAP (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/float_map.li)",
-  "FLOAT_REAL (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/float_real.li)",
-  "REAL_64 (c:/Documents and Settings/sonntag/compiler/lib/number/real_64.li)",
-  "FLOAT_MAP64 (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/float_map64.li)",
-  "REAL_80 (c:/Documents and Settings/sonntag/compiler/lib/number/real_80.li)",
-  "FLOAT_MAP80 (c:/Documents and Settings/sonntag/compiler/lib/number/low_level/float_map80.li)"
-};
-
-struct __source {
-  unsigned int pos;
-  char *line;
-} __src[1764]={
-  {75900429,"    ? { is_integer };"},
-  {61484557,"        cc.is_separator.if {"},
-  {3149825,"  + name     := INSTALL_LISAAC;"},
-  {9452546,"    print_runtime_stack_on ptr;"},
-  {68689429,"    -? {dest >= 0};"},
-  {11029000,"  - '-' Self:SELF :SELF <- SELF.zero - Self;"},
-  {27033644,"    new_free := CONVERT(POINTER,MEMORY).on (begin_memory + prev);"},
-  {46400556,"  );  "},
-  {80617485,"        } else { // cc.is_separator"},
-  {80386561,"      \\  Note: you'll find this documentation in `lib_html/index.html'\".print;  "},
-  {64622081,"      };"},
-  {50883585,"    new_text := STRING.create_from_string path_current;"},
-  {27030572,"    new_free := CONVERT(POINTER,MEMORY).on (begin_memory + prev);"},
-  {19139096,"    ? {capacity >= old_capacity};    "},
-  {24533505,"      index := input.first_substring_index id;      "},
-  {90969089,"          .when 4 then {"},
-  {40765996,"    };"},
-  {57186305,"    update file_name idf lisaac_mode_comment with new_text confirmation TRUE;"},
-  {92542465,"          };"},
-  {27009031,"    (Self + a) & (~ a)"},
-  {59905068,"    (siz - 1).downto 0 do { j:INTEGER;      "},
-  {18221569,"    };"},
-  {60560909,"          };"},
-  {46160428,"    {((result - begin_memory) & 0FFFh) = 0} ? \"Memory: Alignment LAB.\";"},
-  {18221586,"    };"},
-  {70912513,"    };"},
-  {79699981,"      }.elseif { state = 2} then {"},
-  {61903361,"      string_tmp.copy \"cp -f editor/vim/syntax/lisaac.vim ~/.vim/syntax/\";"},
-  {10123820,"  - object_size:INTEGER               <- POINTER.object_size + UINTEGER_CPU.object_size; "},
-  {67531777,"        (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {53362220,"      put_ptr next to ptr_table;                "},
-  {51785772,"  - micro_alloc new_size:UINTEGER_CPU table ptr_table:POINTER lab lab_type:UINTEGER_32 :POINTER <-"},
-  {24524306,"    ((debug_level >= 15) && {! value}).if {"},
-  {17310210,"      (typ_id = -1).if {"},
-  {39605249,"      }.elseif {shell.has_substring \"tcsh\"} then {"},
-  {37369900,"	copy begin to (result.begin) size old_size;"},
-  {75654188,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {17316376,"    (new_count <= count).if {"},
-  {79462913,"      string_tmp.copy \"bin/shorter -d -f belinda lib -o lib_html\";"},
-  {56496653,"        }.elseif {cc = '+'} then {"},
-  {18221612,"    };"},
-  {10105368,"  ( ? {needed_capacity >= 0};"},
-  {80365069,"            result := 10 * result + cc.decimal_value;"},
-  {45245996,"	prev := CONVERT(POINTER,MEMORY).on (begin_memory + pv);"},
-  {59640321,"    };"},
-  {83511809,"    title \"Detection system.\" count 0;"},
-  {75648044,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {33308716,"    size_and_id := siz | id_busy;"},
-  {139592717,"  );"},
-  {17310232,"    (new_count <= count).if {"},
-  {46145068,"    {((result - begin_memory) & 0FFFh) = 0} ? \"Memory: Alignment LAB.\";"},
-  {11687980,"  - id_end:UINTEGER_CPU               <- 10b;"},
-  {6955564,"  + previous_free:MEMORY;"},
-  {78782477,"      }.elseif { state = 1 } then {"},
-  {64363521,"      } else {"},
-  {39608364,"    {new_size > minimum_size-POINTER.object_size} ? \"Memory: Big block.\";"},
-  {13249045,"    -? {old_nb_elts > 0};"},
-  {38687745,"      }.elseif {shell.has_substring \"bash\"} then {"},
-  {15493640,"  - Self:SELF '<'   Right 60 other:SELF :BOOLEAN <- ! (Self >= other);"},
-  {28326914,"  - copy_intern_in other:SELF <- `*@other = *@Self`;"},
-  {58728961,"      \"'\\t\".print;"},
-  {19542529,"    \"\\n\\nChoice:\\n\".print;"},
-  {137104909,"      };"},
-  {81267244,"    };"},
-  {73834540,"    result := micro_alloc new_size table ptr_table lab (new_size.to_uinteger_32);"},
-  {77874189,"        }.elseif {cc = '-'} then {"},
-  {34872876,"    (new_size > old_size).if {      "},
-  {69995029,"    };"},
-  {6034963,"  - is_null:BOOLEAN <- (Self = NULL);"},
-  {49950744,"    ? {valid_index index};"},
-  {57155605,"    -? {upper >= -1};"},
-  {41175596,"    result.to_busy new_size index idx;"},
-  {49941512,"  [ -? {bound_test (UINTEGER_64.minimum) to (UINTEGER_64.maximum)}; ]"},
-  {25851416,"  - replace_all old_char:CHARACTER with new_char:CHARACTER <-"},
-  {28320775,"      {val.is_even}.while_do {"},
-  {9862170,"  - basic_getenv environment_variable:NATIVE_ARRAY(CHARACTER) :NATIVE_ARRAY(CHARACTER) <-"},
-  {30805528,"    ? {other!=NULL};"},
-  {9184792,"    result.copy str;       "},
-  {66601985,"        file_name.append \"/.vimrc\";	"},
-  {6031898,"    };"},
-  {35541036,"	  nxt.to_busy (sz.to_pointer) index idx;"},
-  {70653953,"    } else {"},
-  {6031903,"    ? {s!=NULL};"},
-  {80355884,"    (old_size2 <= minimum_size).if {"},
-  {10755090,"    test.value.if {"},
-  {36440108,"	  };"},
-  {30565377,"      write std_file with input size (input.count);"},
-  {29888001,"      };"},
-  {11432476,"      { (mem = basic_io_eof) || {mem = '\\n'} }.until_do {"},
-  {38013484,"    };    "},
-  {8270349,"    -? {valid_index index};"},
-  {49027073,"    } else {"},
-  {33712129,"  - system_unix_zsh :STRING_CONSTANT := \"Unix - zsh\";"},
-  {6690828,"  - capacity:INTEGER <- count;"},
-  {79201281,"      string_tmp.copy \"bin\\\\shorter -d -f belinda lib -o lib_html\";"},
-  {31467544,"    ((i > 0) && {j > 0}).if	{"},
-  {81011733,"    -? {upper >= -1};"},
-  {59387917,"        cc.is_digit.if {"},
-  {136858637,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {66598936,"    ? { count = (old_count - (end - start + 1))};"},
-  {54670892,"	  next := new_lab lab_type;	  "},
-  {51949057,"    update \"src/path.h\" idf \"#define LISAAC_DIRECTORY\" with new_text confirmation FALSE;"},
-  {45886508,"    put_32 t to result;    "},
-  {52192300,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {11420188,"      { (mem = basic_io_eof) || {mem = '\\n'} }.until_do {"},
-  {81005589,"    -? {upper >= -1};"},
-  {5120556,"  - parent_object:OBJECT := OBJECT;"},
-  {51271687,"  - append_in buffer:STRING <- to_integer_32.append_in buffer;"},
-  {49692161,"      new_text.append path_next;"},
-  {59394092,"    siz := siz / POINTER.object_size;"},
-  {52173837,"  - is_integer:BOOLEAN <-"},
-  {28071425,"      input.insert_string new_text to index; "},
-  {57817644,"    put_ptr (next | 11b) to p;"},
-  {11417116,"      { (mem = basic_io_eof) || {mem = '\\n'} }.until_do {"},
-  {52186156,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {27403285,"    i := capacity-1;"},
-  {90451969,"          .when 3 then {"},
-  {57814572,"    put_ptr (next | 11b) to p;"},
-  {8261146,"    ? { system_command_line != NULL};"},
-  {85728789,"    -? {lower + offset >= 0};"},
-  {19302444,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {50597400,"    ? {count = old_count - 1};"},
-  {49704492,"    mem := CONVERT(POINTER, NATIVE_ARRAY(POINTER)).on p;"},
-  {36178448,"    };"},
-  {43389469,"    ? { !end_of_input };"},
-  {36187692,"	    nxt := next_linear;"},
-  {17701377,"    str.print;"},
-  {24007169,"      input := STRING.create (size_file + new_text.count);"},
-  {5773336,"  + capacity:INTEGER;"},
-  {70395393,"        \"Ok.\".print;          "},
-  {19280914,"    ((debug_level >=10) && {! value}).if {      "},
-  {11183148,"  - next_linear:MEMORY                <- CONVERT(POINTER,MEMORY).on (begin + size);"},
-  {10493452,"  - to_external:NATIVE_ARRAY(CHARACTER) <-"},
-  {19290156,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {35279404,"	sz  := new_size - old_size - object_size;"},
-  {93598744,"    +? {Result.is_not_null};"},
-  {30309901,"        result:=storage.fast_memcmp (other.storage) until count;"},
-  {37754924,"    } else {"},
-  {28062232,"      (capacity = 0).if	{"},
-  {60049964,"      na_dst.put (na_src.item j) to j;"},
-  {42475032,"    ? {item i1 = old_i2};"},
-  {11180076,"  - next_linear:MEMORY                <- CONVERT(POINTER,MEMORY).on (begin + size);"},
-  {80768556,"      free (p - UINTEGER_32.object_size) size old_size2;"},
-  {60046892,"      na_dst.put (na_src.item j) to j;"},
-  {68588040,"  - to_raw_uinteger_cpu:UINTEGER_CPU<- CONVERT(SELF,UINTEGER_CPU).on Self;"},
-  {35273260,"	sz  := new_size - old_size - object_size;"},
-  {15210497,"    } else {"},
-  {33450497,"  - system_unix_bash:STRING_CONSTANT := \"Unix - bash\";"},
-  {68815893,"    -? {src_capacity >= 0};"},
-  {93589528,"    +? {Result.is_not_null};"},
-  {92678145,"        }.do_while {choice2 != 0};"},
-  {24672274,"      crash_on ptr with_message \"Ensure assertion violated.\";   "},
-  {105520661,"    -? {index>=0};"},
-  {55970317,"    { (state = 4) || {i > count}}.until_do {"},
-  {27157036,"    new_size := size_and_id & ~ 1.to_uinteger_cpu;"},
-  {5527066,"    p := basic_getenv(variable.to_external);"},
-  {24001068,"    (first_free != NULL).if {      "},
-  {136590861,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {76679681,"    };"},
-  {49427457,"      new_text.append path;"},
-  {136587789,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {23077377,"    \"  A `\".print;"},
-  {35919888,"    (Self >= '0').if {"},
-  {85467157,"    -? {lower >= 0};"},
-  {87043605,"	  put (item i) to (i + offset);"},
-  {31858689,"  - path_home   :STRING;"},
-  {27147820,"    new_size := size_and_id & ~ 1.to_uinteger_cpu;"},
-  {17455128,"    }.elseif { capacity < new_count } then {"},
-  {79832589,"        cc.is_digit.if {"},
-  {45387820,"	prev.set_size_and_id (prev.size_and_id + blc.size_and_id + object_size);"},
-  {31874092,"      new := CONVERT(POINTER,MEMORY).on (begin+sz);"},
-  {58880001,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {55970348,"    }; "},
-  {43795984,"    (Self= ' ') || {Self = '\\t'} || {Self='\\n'} ||"},
-  {25321985,"            old_buffer.add_last (input.item index);"},
-  {5283856,"  - in_range low:CHARACTER to up:CHARACTER :BOOLEAN <- ((Self >= low) && {Self<= up});"},
-  {27797505,"      new_text.print;"},
-  {23745543,"  - Self:SELF '>>' Left 100 other:INTEGER :SELF <- "},
-  {55720961,"      file_name.copy path_home;"},
-  {73286657,"    string_tmp.copy \"gcc -O2 bin/\";"},
-  {35695148,"	  size_and_id := size_and_id + (nxt.size_and_id & ~ 1.to_uinteger_cpu) + object_size;"},
-  {20586497,"        } else {          "},
-  {10237980,"  - read_line_in str:STRING <-"},
-  {14964245,"    new.clear old_nb_elts to (new_nb_elts - 1);"},
-  {9326596,"  - elseif cond:{BOOLEAN} then block:{} :BOOLEAN <- TRUE;"},
-  {66753025,"        update file_name idf lisaac_vim with lisaac_vim confirmation TRUE;"},
-  {10234904,"    (needed_capacity > 0).if {"},
-  {28465665,"      \"' file has been created with:\\n\".print; "},
-  {17439768,"    }.elseif { capacity < new_count } then {"},
-  {46274604,"    result + UINTEGER_32.object_size"},
-  {18104833,"      result := IO.read_character;"},
-  {11799041,"    };"},
-  {10909212,"    ( (last_character != '\\n') && { memory != basic_io_eof } ).if {"},
-  {35689004,"	  size_and_id := size_and_id + (nxt.size_and_id & ~ 1.to_uinteger_cpu) + object_size;"},
-  {166069261,"  );"},
-  {17445932,"    old_size := nb_page << 26;"},
-  {14293036,"    ? {idx < nb_page};"},
-  {92419585,"            install_eclipse;"},
-  {62691841,"        \\  You can read the `editor/vim/install_vim_plugin.sh' file.\\n\".print;"},
-  {26883073,"          old_buffer.print;"},
-  {33432108,"    {id = id_busy} ? \"Memory: Macro Block not busy.\";"},
-  {7744011,"	buffer.swap i with j;"},
-  {23071276,"    };"},
-  {80497708,"      result := alloc_dynamic new_size;"},
-  {39734828,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {5259265,"  - open_read n:ABSTRACT_STRING :POINTER <- "},
-  {61109249,"      ENVIRONMENT.execute_command \"mkdir -p ~/.vim/syntax\";"},
-  {13372437,"    -? {old_nb_elts < new_nb_elts};"},
-  {22153746,"    };"},
-  {74844673,"    };"},
-  {135430157,"  - substring_index (other:ABSTRACT_STRING,start_index:INTEGER) :INTEGER <-"},
-  {26883093,"    -? {(capacity > 0) ->> {other.is_not_null}};"},
-  {96471576,"    ? {p = to_external};"},
-  {90606081,"            title \"Installation of `lisaac_v2.xml' for Kate.\" count 0;"},
-  {66066456,"	put (item i) to  (i - len);"},
-  {63578625,"      \"  `\".print;"},
-  {10881542,"    };"},
-  {6826502,"    false_block.value;"},
-  {35667500,"	  size_and_id := size_and_id + (nxt.size_and_id & ~ 1.to_uinteger_cpu) + object_size;"},
-  {21916688,"  - Self:SELF '<=' other:CHARACTER :BOOLEAN <- ( code <= other.code );"},
-  {22812680,"      (Self-1).downto limit_down do blc;"},
-  {16522284,"  ( + old_size,new_size:UINTEGER_CPU;"},
-  {69219372,"    {sz <= minimum_size} ? \"Memory: Size bound.\";"},
-  {10881560,"    };"},
-  {27545109,"    {(i >=0 ) && {item i = other.item i}}.while_do {"},
-  {37237804,"	result := search new_size;		"},
-  {66728469,"      (old_value = item i).if {"},
-  {73025025,"  - compile_file n:STRING_CONSTANT <-"},
-  {21910546,"    ((debug_level >= 5) && {! value}).if {"},
-  {95554072,"    };"},
-  {42619905,"      std_file := open_read file_msdos_sys;"},
-  {31603244,"    (new_size > (minimum_size+2+object_size)).if {"},
-  {55456257,"      file_name.copy \"C:\";"},
-  {36332588,"	    nxt.set_previous_linear (this - begin_memory);"},
-  {57941013,"      i := i - 1;"},
-  {80245292,"    new_size  := new_sz.align_power (POINTER.object_size); "},
-  {48263724,"    {idx.in_range 1 to (minimum_size/POINTER.object_size)} ? "},
-  {24383000,"    ? {count = other.count};"},
-  {10632193,"  - make_file new_path:STRING :BOOLEAN <-"},
-  {20989960,"  - to limit_up:SELF do blc:{SELF;} <-"},
-  {43525164,"      idx := idx + 1;"},
-  {17840146,"    ptr := top_runtime_stack;"},
-  {11543592,"      cap := cap * 2;"},
-  {7479312,"    result:=code.to_integer;"},
-  {85618177,"        title \"Compilation of Lisaac compiler.\" count 5; "},
-  {53882924,"      (next = NULL).if {"},
-  {92148737,"          .when 6 then {"},
-  {76833793,"    (ENVIRONMENT.execute_command compile = 0).if {    "},
-  {74583047,"  [ -? {Self >=# 0}; ]"},
-  {55456300,"	next2 := read_ptr next & ~ 11b.to_uinteger_cpu;"},
-  {86523413,"	  put (item i) to (i + offset);"},
-  {95307800,"    {p.item count = '\\0'}.until_do {"},
-  {44174849,"      };  "},
-  {16257556,"    (up > to_raw_uinteger_64)"},
-  {17843244,"    (new_size > capacity_max).if {"},
-  {30679596,"    {id = id_free} ? \"Memory: Macro block not free.\";    "},
-  {29758977,"	'\\n'.print; "},
-  {73693228,"    ptr_table := table_size (new_size / POINTER.object_size);    "},
-  {29777452,"      next.set_previous_linear (new_free.this - begin_memory);"},
-  {79309325,"          result := - result;"},
-  {52956167,"    +? {\"0123456789\".has Result};"},
-  {24136728,"      storage.copy_from (other.storage) until (count-1);"},
-  {10619925,"    -? {nb_elements > 0};"},
-  {95298584,"    {p.item count = '\\0'}.until_do {"},
-  {4985356,"  + count:INTEGER;"},
-  {18502168,"      storage.clear count to (new_count - 1);"},
-  {25041964,"  - first_free:MEMORY;"},
-  {28850689,"      (! make_file file).if {"},
-  {19410476,"    block.add_link_free;    "},
-  {31335448,"    resize (i + j);"},
-  {28847617,"      (! make_file file).if {"},
-  {27289644,"    ((prev = NULL) || {new_free.id != id_free}).if {"},
-  {34479112,"  - to_boolean:BOOLEAN <- "},
-  {32918060,"	next.set_previous_linear (new.this - begin_memory);"},
-  {139202061,"    ? {! other.is_empty };"},
-  {59252749,"      }.elseif { state = 2 } then {"},
-  {4988457,"  - object_size:INTEGER <- `sizeof(unsigned long)`:INTEGER;"},
-  {12852225,"  - string_tmp:STRING := STRING.create 256;"},
-  {16005121,"      string_tmp2.append str;"},
-  {59261996,"    {(siz & (POINTER.object_size -1)) = 0} ? \"Memory: Copy alignment.\";"},
-  {40110616,"  ( ? {valid_index index};"},
-  {43934736,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {69610517,"      put (src.item i2) to i1;"},
-  {23206913,"    file.print;"},
-  {21633544,"      (Self + 1).to limit_up do blc;"},
-  {11965484,"  - is_end:BOOLEAN                    <- (size_and_id & id_end).to_boolean;"},
-  {9702421,"    +? {Result != NULL};"},
-  {48898092,"  - begin_memory:POINTER;"},
-  {20728321,"          \"Incorrect range [0-\".print;"},
-  {28838407,"    };"},
-  {95957528,"      capacity := count + 1;"},
-  {81541653,"      put (model.item i) to i;"},
-  {26356737,"        (old_buffer == new_text).if {"},
-  {92801560,"    }; "},
-  {79053825,"    (system = system_windows).if {"},
-  {55191576,"    count := count + 1;"},
-  {44839980,"      blc.delete_link_free;"},
-  {40110636,"    {(result != NULL) && {result.size < new_size}}.while_do {"},
-  {81538581,"      put (model.item i) to i;"},
-  {11959340,"  - is_end:BOOLEAN                    <- (size_and_id & id_end).to_boolean;"},
-  {32000556,"      new.set_previous_linear (this - begin_memory);"},
-  {56758797,"        }.elseif {cc = '-'} then {"},
-  {79053837,"        result := cc.decimal_value;"},
-  {87163925,"	};"},
-  {39861249,"        file.append file_cshrc;"},
-  {29500417,"    ((! conf) || {question \"  Confirmation ?\" = 'y'}).if {            "},
-  {43919376,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {11950120,"    }.do_until {(new_mem = NULL) || {(cap >> 20) = 2048}}; // BSBS: BUG COMPILO 0.13"},
-  {90079745,"            title \"Installation of `lisaac.vim' for Vim.\" count 0;"},
-  {27018753,"          \"  New value is:\\n\".print;"},
-  {19145752,"    ? {capacity >= old_capacity};    "},
-  {11029512,"  - '-' Self:SELF :SELF <- SELF.zero - Self;"},
-  {63049217,"      };"},
-  {87595009,"        \\        do the job.                                       \\n\".print;"},
-  {15096876,"    capacity_max := SYSTEM.get_memory_capacity;"},
-  {40526337,"      }.elseif {shell.has_substring \"zsh\"} then {"},
-  {15755784,"  - Self:SELF '<='  Right 60 other:SELF :BOOLEAN <- ! (Self > other);"},
-  {91646977,"            title \"Installation of eFTE mode.\" count 0;"},
-  {20725292,"  - id_free:UINTEGER_CPU <- 00b;"},
-  {93457432,"    +? {count = Old count};"},
-  {74980353,"    '\\n'.print;"},
-  {54271000,"      } else {"},
-  {70269484,"    ptr_table := table_type t;"},
-  {56509441,"    (system = system_windows).if {"},
-  {4723740,"  - memory:CHARACTER;"},
-  {45492780,"	put_last prev to idx;"},
-  {34223640,"    storage.copy (s.storage) to (i - 1) until k;"},
-  {27006471,"    (Self + a) & (~ a)"},
-  {56509453,"        }.elseif {cc = '+'} then {"},
-  {5385739,"      buffer.extend '0';"},
-  {29254157,"  - Self:SELF '==' Left 40 other:ABSTRACT_STRING :BOOLEAN <-"},
-  {18222101,"    -? {index >= 0};"},
-  {6962199,"  - print_char byte:CHARACTER <-"},
-  {10124332,"  - object_size:INTEGER               <- POINTER.object_size + UINTEGER_CPU.object_size; "},
-  {59668524,"    na_dst := CONVERT(POINTER, NATIVE_ARRAY(POINTER)).on dst;"},
-  {43001900,"	blc := get_last idx;"},
-  {40504833,"      }.elseif {shell.has_substring \"zsh\"} then {"},
-  {22939143,"  ~(~Self & ~other);"},
-  {26088961,"          };"},
-  {22954540,"      next.set_previous_free prev;"},
-  {77228076,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {27671576,"    other_count := other.count;"},
-  {35787820,"	  (is_end).if {"},
-  {25183745,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {54929964,"	put_ptr NULL to next;"},
-  {60321293,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {75648556,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {68422145,"    };"},
-  {8526359,"  - get_char :CHARACTER <- `fgetc(stdin)`:(CHARACTER);"},
-  {37361196,"	copy begin to (result.begin) size old_size;"},
-  {62790657,"      } else {"},
-  {90714113,"            install_kate;      "},
-  {58067477,"    };"},
-  {57162253,"        }.elseif {cc.is_digit} then {"},
-  {60315149,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {7614987,"      {i >= j}.until_do {"},
-  {11676188,"	mem := basic_io_getc;"},
-  {73148423,"    }.elseif {Self < 0} then {"},
-  {96351768,"    ? {capacity >= (count + 1)};"},
-  {17969665,"    {(result != 'y') && {result != 'n'}}.while_do {"},
-  {30824492,"    {(sz & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {51524609,"    new_text.append \"\\\"\\n\";"},
-  {39587329,"      }.elseif {shell.has_substring \"tcsh\"} then {"},
-  {33965080,"      storage.move (i - 1) to (j - 1) by k;"},
-  {25171457,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {30818348,"    {(sz & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {92290584,"      storage.put '\\0' to count;"},
-  {80362540,"    (old_size2 <= minimum_size).if {"},
-  {82591745,"    string_tmp.from_external cwd;"},
-  {5121032,"  - one:SELF  <- 1; // Neutral element for `*' and `/'."},
-  {21107201,"        };"},
-  {19546156,"    put_last block to (nb_page - 1);"},
-  {38669825,"      }.elseif {shell.has_substring \"bash\"} then {"},
-  {35535404,"	  nxt.to_busy (sz.to_pointer) index idx;"},
-  {72000001,"    \\ Please, read `editor/eclipse/README' file for further information.\\n\".print;  "},
-  {68850184,"  - to_raw_integer_8:INTEGER_8      <- CONVERT(SELF,INTEGER_8   ).on Self;"},
-  {76954113,"      \"  Shorter ok!\\n\".print;      "},
-  {28983297,"        error \"Not create file!\";"},
-  {59385345,"        \"OK.\".print;  "},
-  {75393068,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {92940289,"      .when 3 then {"},
-  {11433004,"  - id:UINTEGER_CPU                   <- size_and_id & 01b;"},
-  {13668360,"  - Self:SELF '>=#' Right 60 other:INTEGER :BOOLEAN <- (Self ># other) | (Self ==# other);"},
-  {81006093,"      }.elseif { state = 3 } then {"},
-  {31464984,"    ((i > 0) && {j > 0}).if	{"},
-  {79432725,"    -? {upper >= lower};"},
-  {50607128,"    ? {count = old_count - 1};"},
-  {59385357,"        cc.is_digit.if {"},
-  {40255532,"      result := result.next_free;"},
-  {8264725,"  ( + capacity:INTEGER;"},
-  {52174344,"  [ -? {Self >= 0}; ] "},
-  {31461912,"    ((i > 0) && {j > 0}).if	{"},
-  {71313409,"  - install_eclipse <-"},
-  {136853005,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {43393040,"  - is_separator:BOOLEAN <-"},
-  {15469589,"    +? {Result != NULL};"},
-  {10515480,"	storage := NATIVE_ARRAY(CHARACTER).create needed_capacity;"},
-  {31468076,"    new_size := siz - sz;"},
-  {21772306,"    ptr := top_runtime_stack;"},
-  {52186668,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {53753880,"    (capacity <= count).if {"},
-  {62532109,"    ( (state != 0) && { state != 4}).if {"},
-  {43396125,"    ? { !end_of_input };"},
-  {24250904,"    };"},
-  {32120833,"  - system      :STRING_CONSTANT;"},
-  {76941837,"    { i > count }.until_do {"},
-  {66587160,"    ? { count = (old_count - (end - start + 1))};"},
-  {67252225,"        string_tmp.print;"},
-  {53747736,"    (capacity <= count).if {"},
-  {27397656,"    ? {other != NULL};"},
-  {81665037,"      i := i + 1;"},
-  {24250924,"    };    "},
-  {34365441,"  - file_bashrc   :STRING_CONSTANT := \"/.bashrc\";"},
-  {55983105,"    file_name.append \"/.emacs\";"},
-  {73548801,"    string_tmp.append \".c -o bin/\";"},
-  {28059655,"    (Self != 0).if {      "},
-  {40911404,"    idx := get_index (result.this);"},
-  {82330113,"    cwd := string_tmp.to_external;"},
-  {19290668,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {76941868,"    {sz != 0} ? \"Memory: Size = 0\";"},
-  {77603853,"        }.elseif {cc = '+'} then {"},
-  {8009218,"    (debug_level != 0).if {"},
-  {17711148,"    new_size := old_size + 64.mb;"},
-  {12981804,"  - nb_page:UINTEGER_CPU;"},
-  {67015176,"  - to_raw_integer:INTEGER          <- CONVERT(SELF,INTEGER     ).on Self;"},
-  {13637633,"    st.print;"},
-  {92684801,"        }.do_while {choice2 != 0};"},
-  {78949383,"  - to_raw_pointer:POINTER         <- CONVERT(UINTEGER_CPU,POINTER).on to_uinteger_cpu;"},
-  {77603861,"    -? {upper >= -1};"},
-  {12753964,"  - get_index p:POINTER :UINTEGER_CPU <- (p - begin_memory).to_uinteger_cpu >> 26;"},
-  {17708076,"    new_size := old_size + 64.mb;"},
-  {77613100,"      result := alloc_size new_size2;      "},
-  {87952385,"      .when 2 then {"},
-  {26489388,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";    "},
-  {26480152,"    ? { count == old_count };"},
-  {136600589,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {18360833,"    IO.read_character;"},
-  {26486316,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";    "},
-  {77597717,"    -? {upper >= -1};"},
-  {60703245,"        }.elseif {cc.is_separator} then {"},
-  {50348568,"    remove_between index to index;"},
-  {136597517,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {35267628,"	sz  := new_size - old_size - object_size;"},
-  {61371393,"      ENVIRONMENT.execute_command \"mkdir -p ~/.vim/backup\"; "},
-  {8006165,"    -? {nb_elements > 0};"},
-  {47201836,"  - table_type idx:UINTEGER_32 :POINTER <- "},
-  {8000011,"	i := i + 1;"},
-  {12061212,"    };"},
-  {9576466,"      body.value;"},
-  {79833089,"    string_tmp.print;"},
-  {51004417,"    (system = system_windows).if {      "},
-  {36834860,"      };"},
-  {63840769,"      \"'\\t\".print;"},
-  {6423581,"  );"},
-  {60690957,"        }.elseif {cc.is_separator} then {"},
-  {3951145,"  - default := (0.to_raw_uinteger_cpu);"},
-  {82077697,"    \\\\t\\t================================\\n\\n\".print;"},
-  {17446408,"    (Self = value).if block;"},
-  {31874604,"      new := CONVERT(POINTER,MEMORY).on (begin+sz);"},
-  {43134508,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {81400321,"  - main <-"},
-  {75113004,"    {p != NULL} ? \"Memory: Pointer NULL.\";"},
-  {35926572,"	    put_last Self to idx;"},
-  {25322497,"            old_buffer.add_last (input.item index);"},
-  {22172680,"  - downto limit_down:SELF do blc:{SELF;} <-"},
-  {43131436,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {34103809,"  - system_unknown  :STRING_CONSTANT := \"Unknown\";"},
-  {6177281,"  - open_write n:ABSTRACT_STRING :POINTER <- "},
-  {52571655,"    (Self.to_integer_8 + '0'.code).to_character"},
-  {12726316,"  - get_index p:POINTER :UINTEGER_CPU <- (p - begin_memory).to_uinteger_cpu >> 26;"},
-  {43128364,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {70134273,"        \"Fail!\".print;"},
-  {35677185,"  - path_bash   :STRING_CONSTANT := \"export PATH=\";"},
-  {75106860,"    {p != NULL} ? \"Memory: Pointer NULL.\";"},
-  {25319431,"  - '~' Self:SELF :SELF <- - Self - SELF.one; "},
-  {167652365,"    IO.put_string Self;      "},
-  {23749144,"	storage  := NATIVE_ARRAY(CHARACTER).create count;"},
-  {43787280,"    (Self= ' ') || {Self = '\\t'} || {Self='\\n'} ||"},
-  {42213912,"    put tmp to i2;"},
-  {16528897,"    1.to (string_tmp2.count-1) do { j:INTEGER;"},
-  {61349901,"      }.elseif { state = 3 } then {"},
-  {58200085,"    i >= 0"},
-  {93331477,"    -? {upper >= -1};"},
-  {66981397,"      };"},
-  {11802642,"    (! value).if {"},
-  {26892821,"    -? {(capacity > 0) ->> {other.is_not_null}};"},
-  {14290476,"    ? {idx < nb_page};"},
-  {72619052,"    {sz <= minimum_size} ? \"Memory: Size bound.\";"},
-  {57959937,"      \"  Sorry, not Kate editor for windows.\".print;"},
-  {11799570,"    (! value).if {"},
-  {83632641,"    detect_system;"},
-  {8421914,"    basic_system_execute_command (system_command_line.to_external)"},
-  {10906668,"  - size:UINTEGER_CPU                 <- size_and_id & ~ 3.to_uinteger_cpu;"},
-  {9989128,"  - Self:SELF '+'  Left 80  other:SELF :SELF <- Self - -other;"},
-  {94898712,"  ( ? {p.is_not_null};"},
-  {56377345,"    new_text.append path_current;"},
-  {35677228,"	  size_and_id := size_and_id + (nxt.size_and_id & ~ 1.to_uinteger_cpu) + object_size;"},
-  {26877447,"    a := step - 1;"},
-  {62005761,"      \"  `\".print;"},
-  {54141996,"	page := (result - begin_memory) & 0FFFh;"},
-  {6842404,"  - to_uinteger_64:UINTEGER_64 <- to_raw_uinteger_64;"},
-  {93990421,"      (element = item i).if {"},
-  {5250562,"  - object_size:INTEGER <- `12`;"},
-  {6161949,"  ("},
-  {39723052,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {31606808,"      storage.move 0 to (i - 1) by j;"},
-  {41290264,"    ? {valid_index i1};"},
-  {17187853,"  ( index.in_range lower to count );"},
-  {29128216,"    storage.copy (other.storage) to count until other_count;"},
-  {41952257,"        '\\n'.print;        "},
-  {6836265,"  - to_pointer:POINTER <- to_raw_pointer;"},
-  {15602178,"  - clone:SELF <- "},
-  {28457004,"    ((! is_end) && {next.id = id_free}).if {"},
-  {24392728,"    ? {count = other.count};"},
-  {91493377,"          .when 5 then {"},
-  {65817601,"        file_name := STRING.create 100;"},
-  {25054721,"        1.to (new_text.occurrences '\\n') do { j:INTEGER;"},
-  {54791704,"      };"},
-  {31603756,"    (new_size > (minimum_size+2+object_size)).if {"},
-  {41952280,"    tmp := item i1;"},
-  {65146392,"    ? { end <= count };"},
-  {27533333,"    {(i >=0 ) && {item i = other.item i}}.while_do {"},
-  {52316204,"    {new_size >= POINTER.object_size} ? \"Memory: Size = 0.\";"},
-  {33164824,"    ? { i.in_range 1 to (count + 1)};"},
-  {53883416,"      (capacity = 0).if	{"},
-  {54548481,"  \\au BufNewFile,BufRead *.li setf lisaac\\n\";"},
-  {57944620,"    put_ptr p to last;"},
-  {58600449,"      string_tmp.print;"},
-  {7482891,"      j := buffer.upper;"},
-  {69869589,"      i1 := i1 + 1;"},
-  {14693909,"    old_size (old_nb_elts * element_sizeof) new_size new_cap;"},
-  {27530261,"    {(i >=0 ) && {item i = other.item i}}.while_do {"},
-  {49160236,"  - capacity_max:UINTEGER_CPU;"},
-  {5912602,"      result.from_external p;"},
-  {78647821,"        };"},
-  {33845292,"  - resize new_size:UINTEGER_CPU index idx:UINTEGER_CPU :MEMORY <-"},
-  {16267284,"    (up > to_raw_uinteger_64)"},
-  {34744364,"    old_size := size;"},
-  {74586625,"      n.print;"},
-  {52968967,"    +? {\"0123456789\".has Result};"},
-  {40372780,"    };"},
-  {26615809,"        } else {"},
-  {23472152,"    (count > 0).if {"},
-  {13111317,"    -? {Self != NULL};"},
-  {60845057,"      \"  Sorry, not Vim editor for windows.\\n\\n\".print;"},
-  {16030216,"  - Self:SELF '>='  Right 60 other:SELF :BOOLEAN <- (Self > other) | (Self == other);"},
-  {81791501,"    };"},
-  {29768717,"    (count = other.count).if {"},
-  {63991809,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {29765645,"    (count = other.count).if {"},
-  {91240961,"            install_hippoedit;"},
-  {6565387,"      i := buffer.upper+1;"},
-  {12209196,"  - set_previous_linear p:POINTER     <- ( previous_linear := p; );"},
-  {88084993,"        {"},
-  {16021000,"  - Self:SELF '>='  Right 60 other:SELF :BOOLEAN <- (Self > other) | (Self == other);"},
-  {73672199,"      print_positif;"},
-  {86514709,"	  put (item i) to (i + offset);"},
-  {11962884,"  - Self:SELF '->>' Right 25 other:{BOOLEAN}  :BOOLEAN <- other.value;"},
-  {79306773,"    -? {lower >= 0};"},
-  {40120344,"  ( ? {valid_index index};"},
-  {51389484,"    mem.put v to 0;"},
-  {66458113,"        };"},
-  {12199976,"      cap := cap / 2;"},
-  {24137260,"      first_free.set_previous_free Self;"},
-  {21640193,"    }.do_while {result = -1};"},
-  {139202573,"    ? {! other.is_empty };"},
-  {9709074,"      while_do body;"},
-  {41690648,"    old_i1:=item i1;"},
-  {40779265,"        file.append file_zshenv;"},
-  {69614101,"      put (src.item i2) to i1;"},
-  {10377220,"  - Self:SELF '||'  Left 10  other:{BOOLEAN}   :BOOLEAN <- TRUE;   // or else"},
-  {60164652,"    };        "},
-  {40120364,"    {(result != NULL) && {result.size < new_size}}.while_do {"},
-  {56771597,"        }.elseif {cc = '-'} then {"},
-  {28183084,"    };"},
-  {6556188,"    };"},
-  {27280940,"    ((prev = NULL) || {new_free.id != id_free}).if {"},
-  {6556191,"    };    "},
-  {16910872,"    ? { new_count >= 0 };"},
-  {30412289,"      };"},
-  {26357255,"    -? {step.is_power_2};"},
-  {30412301,"      };"},
-  {11956776,"    }.do_until {(new_mem = NULL) || {(cap >> 20) = 2048}}; // BSBS: BUG COMPILO 0.13"},
-  {59250220,"    {(siz & (POINTER.object_size -1)) = 0} ? \"Memory: Copy alignment.\";"},
-  {77477901,"        cc.is_separator.if {"},
-  {75910700,"    ptr_table := table_size (new_size / POINTER.object_size);"},
-  {22289921,"  with new_text:ABSTRACT_STRING confirmation conf:BOOLEAN <-"},
-  {29494785,"    ((! conf) || {question \"  Confirmation ?\" = 'y'}).if {            "},
-  {90976257,"          .when 4 then {"},
-  {8785431,"  - eof:CHARACTER <- `EOF`:CHARACTER;"},
-  {6300680,"  (low <= Self) && {up >= Self};"},
-  {52691975,"  )"},
-  {86253077,"      (offset < 0).if {"},
-  {4724236,"  + storage:NATIVE_ARRAY(CHARACTER);  "},
-  {73425964,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {66199553,"        } else {"},
-  {41425921,"      } else {"},
-  {19140120,"    ? {capacity >= old_capacity};    "},
-  {26354220,"    {id = id_busy} ? \"Memory: Macro block not busy.\";"},
-  {15993388,"    {(begin_memory & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {80627756,"      copy p to result size old_size;"},
-  {73404423,"      (-Self).print_positif;"},
-  {10137132,"  - object_size:INTEGER               <- POINTER.object_size + UINTEGER_CPU.object_size; "},
-  {38944257,"        file.append file_bashrc;"},
-  {73419820,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {51780609,"    '\\n'.print;"},
-  {79704065,"    \"  Execute: `\".print;"},
-  {86009857,"        title \"Compilation of Shorter tool.\" count 5; "},
-  {66199573,"    -? {upper >= -1};"},
-  {15744001,"      mx.append_in string_tmp2;"},
-  {74072577,"    \"' (please wait ...)\\n\".print;"},
-  {31074348,"    delete_link_free;"},
-  {92546584,"      add_last '\\0';"},
-  {5383176,"  - zero:SELF <- 0; // Neutral element for `+' and `-'."},
-  {54268460,"	((page + (new_size << 1)) <= 4096).if {"},
-  {6959627,"	buffer.extend ((val % 10).digit);"},
-  {28577287,"      };      "},
-  {39609345,"      }.elseif {shell.has_substring \"tcsh\"} then {"},
-  {65291288,"    ? { start.in_range 1 to (end + 1)};"},
-  {30153741,"      } else {"},
-  {25193473,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {60331021,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {58071041,"    } else {"},
-  {14838805,"    new := CONVERT(POINTER,NATIVE_ARRAY(V)).on new_ptr;"},
-  {13253121,"  - error st:ABSTRACT_STRING <-"},
-  {59650573,"            value := 10 * value - cc.decimal_value;"},
-  {67526657,"        (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {77228588,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {12360218,"  - basic_system_execute_command system_command_line:NATIVE_ARRAY(CHARACTER) :INTEGER <-"},
-  {17979394,"      result := CONVERT(POINTER,SELF).on ptr;            "},
-  {27659777,"      };"},
-  {9201173,"    result := CONVERT(POINTER,NATIVE_ARRAY(V)).on p;"},
-  {43661341,"    read_line_in last_string;"},
-  {9195016,"  - Self:SELF '-'  Left 80  other:SELF :SELF <- `3`;"},
-  {38691841,"      }.elseif {shell.has_substring \"bash\"} then {"},
-  {46139948,"    {((result - begin_memory) & 0FFFh) = 0} ? \"Memory: Alignment LAB.\";"},
-  {32382977,"  - comment     :STRING_CONSTANT;"},
-  {8520730,"  );"},
-  {136206861,"    ? { (start_index >=1) && { start_index <= count + 1 }};"},
-  {60309517,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {75636780,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {25846273,"            old_buffer.add_last (input.item index);"},
-  {10759174,"      block_else.value;"},
-  {30818860,"    {(sz & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {56248321,"    new_text.append lisaac_mode_path;"},
-  {27665964,"      add_link_free;"},
-  {17970194,"    ((debug_level >=10) && {! value}).if {      "},
-  {34627585,"  - file_zshenv   :STRING_CONSTANT := \"/.zshenv\";"},
-  {57156629,"    -? {upper >= -1};"},
-  {23601688,"      (capacity < count).if	{"},
-  {24269831,"  - Self:SELF '<<' Left 100 other:INTEGER :SELF <- "},
-  {29239340,"    (new_free.is_end).if {"},
-  {33959448,"      storage.move (i - 1) to (j - 1) by k;"},
-  {44326444,"    blc.set_size_and_id (blc.size_and_id - 4096);"},
-  {35298817,"  - comment_windows :STRING_CONSTANT := \"\\r\\nREM **** LISAAC COMPILER ****\\r\\n\";"},
-  {77881388,"      result := result + UINTEGER_32.object_size;"},
-  {57150485,"    -? {upper >= -1};"},
-  {77865997,"        }.elseif {cc = '-'} then {"},
-  {44304897,"    };        "},
-  {6032927,"    ? {s!=NULL};"},
-  {44323372,"    blc.set_size_and_id (blc.size_and_id - 4096);"},
-  {35526672,"  - is_digit:BOOLEAN <-"},
-  {83263489,"    shell        := ENVIRONMENT.get_environment_variable \"SHELL\";"},
-  {20205569,"        tmp := IO.last_string.to_integer;"},
-  {56248344,"  - extend c:CHARACTER <- add_last c;"},
-  {95431704,"      count := count + 1;"},
-  {80107521,"    (ENVIRONMENT.execute_command string_tmp = 0).if {"},
-  {61870605,"        };"},
-  {137764877,"        s := s + 1;"},
-  {85735937,"        compile_file \"lisaac\";"},
-  {17723906,"	ptr := MEMORY.alloc_type (typ_id.to_uinteger_32) size sz;"},
-  {136862733,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {75393580,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {77869100,"      result := result + UINTEGER_32.object_size;"},
-  {53095468,"      next := result + new_size;            "},
-  {49939500,"  );"},
-  {89556993,"            title \"Installation of `lisaac-mode' for Emacs.\" count 0;"},
-  {80098317,"            result := 10 * result - cc.decimal_value;"},
-  {33032728,"    ? { s != NULL };"},
-  {72902700,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {57812524,"    put_ptr (next | 11b) to p;"},
-  {22678060,"    };"},
-  {21760520,"    };"},
-  {28081708,"      new_size := new_size + new_free.size_and_id + object_size;"},
-  {55315464,"  [ -? {bound_test (INTEGER_32.minimum) to (INTEGER_32.maximum)}; ]"},
-  {23343128,"    count := other.count;"},
-  {53754412,"      next := read_ptr result;"},
-  {93596673,"    \"\\nBye.\\n\\n\".print;"},
-  {43387421,"    ? { !end_of_input };"},
-  {70417964,"    result := micro_alloc new_size table ptr_table lab (t | 1b);        "},
-  {65679384,"    len := end - start + 1;"},
-  {52174892,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {10494470,"      block.value;"},
-  {28075564,"      new_size := new_size + new_free.size_and_id + object_size;"},
-  {40911916,"    idx := get_index (result.this);"},
-  {20849153,"          n.print;"},
-  {96078360,"    };"},
-  {33694744,"    resize (j + k);"},
-  {75796993,"    \"  Compile `shorter' tools for your system (please wait ...)\\n\".print;"},
-  {6433281,"    string_tmp.copy n;"},
-  {61612045,"        } else {            "},
-  {55980557,"    { (state = 4) || {i > count}}.until_do {"},
-  {60703745,"    (system = system_windows).if {"},
-  {74214401,"    (ENVIRONMENT.execute_command string_tmp != 0).if {"},
-  {42469912,"    ? {item i1 = old_i2};"},
-  {53495815,"  - digit:CHARACTER <- decimal_digit;"},
-  {136598029,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {80760364,"      free (p - UINTEGER_32.object_size) size old_size2;"},
-  {6427149,"  - upper:INTEGER <- count;"},
-  {34365996,"    {(new_size & (POINTER.object_size -1)) = 0} ? \"Memory: Alignment.\";"},
-  {14306315,"    (low < to_raw_integer_64) && {up > to_raw_uinteger_64}"},
-  {83888641,"    {"},
-  {27136513,"        };"},
-  {62267905,"      \"'\\t\".print;"},
-  {5515777,"    string_tmp.copy n;"},
-  {14303243,"    (low < to_raw_integer_64) && {up > to_raw_uinteger_64}"},
-  {31875096,"    storage.copy_from (other.storage) until (j - 1);    "},
-  {9570822,"    };"},
-  {92679192,"      count := count - 1;"},
-  {87047701,"	  put (item i) to (i + offset);"},
-  {59118093,"        };"},
-  {136588813,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {23989784,"      };"},
-  {32780332,"	next := new.next_linear;"},
-  {45616684,"      };"},
-  {17446914,"	ptr := MEMORY.alloc_size sz;"},
-  {22419500,"    } else {"},
-  {80748076,"      free (p - UINTEGER_32.object_size) size old_size2;"},
-  {43138092,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {57550892,"    {last != NULL} ? \"Memory: Table NULL.\";"},
-  {17449997,"  - is_empty : BOOLEAN <- count == 0;"},
-  {19038764,"    block := CONVERT(POINTER,MEMORY).on (begin_memory + old_size);        "},
-  {13391878,"  - Self:SELF '->>' Right 25 other:{BOOLEAN}  :BOOLEAN <- TRUE;"},
-  {84553729,"      \\0- Exit.\" count 3;"},
-  {43797008,"    (Self= ' ') || {Self = '\\t'} || {Self='\\n'} ||"},
-  {7086091,"	val := val / 10;"},
-  {9339920,"  - to_integer_8:INTEGER_8 <- CONVERT(CHARACTER,INTEGER_8).on Self;"},
-  {85462037,"    -? {lower >= 0};"},
-  {28719148,"      new_size := new_size + next.size_and_id + object_size;"},
-  {136579597,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {52572167,"    (Self.to_integer_8 + '0'.code).to_character"},
-  {58874881,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {43128876,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {26219009,"        };"},
-  {5509656,"  + count:INTEGER;"},
-  {10239000,"    (needed_capacity > 0).if {"},
-  {93104129,"        title \"Build the librarie documentation with Shorter (HTML format).\" count 0; "},
-  {10913308,"    ( (last_character != '\\n') && { memory != basic_io_eof } ).if {"},
-  {72625708,"    {sz <= minimum_size} ? \"Memory: Size bound.\";"},
-  {10900996,"  - Self:SELF '|'   Left 10  other:BOOLEAN :BOOLEAN <- TRUE;  // or"},
-  {5275664,"  - in_range low:CHARACTER to up:CHARACTER :BOOLEAN <- ((Self >= low) && {Self<= up});"},
-  {16529409,"    1.to (string_tmp2.count-1) do { j:INTEGER;"},
-  {40634904,"    ? {item index = ch};"},
-  {36573703,"  (Self & 1) = 1;  "},
-  {49185288,"  [ -? {bound_test (UINTEGER_32.minimum) to (UINTEGER_32.maximum)}; ]"},
-  {18105874,"      crash_on ptr with_message msg;   "},
-  {36336641,"  - path_tcsh_next   :STRING_CONSTANT := \"/bin $path)\\n\\n\";"},
-  {11800092,"      };"},
-  {55706632,"  );"},
-  {26884117,"    -? {(capacity > 0) ->> {other.is_not_null}};"},
-  {58859533,"        } else {"},
-  {35000364,"      (! is_end).if {	"},
-  {21923856,"  - Self:SELF '<=' other:CHARACTER :BOOLEAN <- ( code <= other.code );"},
-  {10888722,"      do_while test;"},
-  {41059853,"  - has ch:CHARACTER :BOOLEAN <- storage.fast_has ch until (count - 1);"},
-  {12471340,"  - set_size_and_id s:UINTEGER_CPU    <- ( size_and_id     := s; );"},
-  {21917712,"  - Self:SELF '<=' other:CHARACTER :BOOLEAN <- ( code <= other.code );"},
-  {27539969,"        index := input.upper + 1;"},
-  {40385560,"    storage.put ch to (index - 1);"},
-  {89920513,"          .when 2 then {"},
-  {31610412,"    (new_size > (minimum_size+2+object_size)).if {"},
-  {33177624,"    ? { i.in_range 1 to (count + 1)};"},
-  {21249580,"  - set_previous_free p:MEMORY <- ( previous_free := p; );"},
-  {137891341,"      };"},
-  {14700552,"  - Self:SELF '=='  Right 60 other:SELF :BOOLEAN <- (Self = other);"},
-  {57942029,"      }.elseif { state = 1} then {"},
-  {45099521,"  - install_variable <-    "},
-  {31604268,"    (new_size > (minimum_size+2+object_size)).if {"},
-  {69870081,"      \"'\\t\".print;        "},
-  {65149976,"    ? { end <= count };"},
-  {69211180,"    {sz <= minimum_size} ? \"Memory: Size bound.\";"},
-  {16267777,"    string_tmp2.add_last '\\n';"},
-  {21902354,"    ((debug_level >= 5) && {! value}).if {"},
-  {6824492,"  + next_free    :MEMORY;"},
-  {5906956,"    new.copy Self;"},
-  {92155905,"          .when 6 then {"},
-  {54789164,"	};"},
-  {65577985,"      \\  Do you want to install the default config provided by lisaac installer ?\";        "},
-  {43526188,"      idx := idx + 1;"},
-  {11544616,"      cap := cap * 2;"},
-  {104096277,"  - is_not_null:BOOLEAN <- to_pointer.is_not_null;"},
-  {84944897,"      .when 1 then {          "},
-  {23469584,"    ? {is_digit};"},
-  {9059864,"    result := create (str.count);"},
-  {17173036,"    };"},
-  {29784620,"      next.set_previous_linear (new_free.this - begin_memory);"},
-  {26622488,"    ? { occurrences old_char = 0};"},
-  {55457324,"	next2 := read_ptr next & ~ 11b.to_uinteger_cpu;"},
-  {19405313,"    txt.print;"},
-  {62418945,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {80218645,"    };"},
-  {28186625,"    } else {"},
-  {104090133,"  - is_not_null:BOOLEAN <- to_pointer.is_not_null;"},
-  {58594829,"          };"},
-  {48905217,"      \"\\\\bin;%path%\\n\\n\".print;"},
-  {40139308,"    {(result != NULL) && {result.size < new_size}}.while_do {"},
-  {16923650,"      typ_id := type_id_intern;      "},
-  {52966424,"  - add_last ch:CHARACTER <-"},
-  {41038380,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";"},
-  {52957191,"    +? {\"0123456789\".has Result};"},
-  {6565899,"      i := buffer.upper+1;"},
-  {35406892,"	((nxt.id = id_free) && {nxt.size >= sz}).if {"},
-  {33821208,"    (i <= j).if {"},
-  {20073473,"      (IO.last_string.is_integer).if {"},
-  {41035308,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";"},
-  {41697293,"  ( first_substring_index other != 0 );"},
-  {14441985,"  - title str:ABSTRACT_STRING count mx:INTEGER <-"},
-  {16923661,"  - valid_index index:INTEGER :BOOLEAN <-"},
-  {20070401,"      (IO.last_string.is_integer).if {"},
-  {52969516,"      result := new_lab lab_type;          "},
-  {32925228,"	next.set_previous_linear (new.this - begin_memory);"},
-  {50490924,"    mem := CONVERT(POINTER, NATIVE_ARRAY(POINTER)).on p;"},
-  {68038145,"          \"OK.\\n\".print;  "},
-  {26610200,"    ? { occurrences old_char = 0};"},
-  {10627112,"  - get_begin_memory:POINTER;"},
-  {8142360,"    result.make needed_capacity;"},
-  {55198721,"    file_name := STRING.create 100;"},
-  {9706498,"    '\\n'.print;"},
-  {4986392,"  + storage:NATIVE_ARRAY(CHARACTER);"},
-  {62415901,"  - basic_io_getc :CHARACTER <- SYSTEM_IO.get_char;"},
-  {26379288,"    storage.fast_replace_all old_char with new_char until (count - 1);"},
-  {52042753,"    '\\n'.print;"},
-  {61501441,"      ENVIRONMENT.execute_command \"mkdir -p ~/.vim/temp\"; "},
-  {35394604,"	((nxt.id = id_free) && {nxt.size >= sz}).if {"},
-  {8130059,"      };      "},
-  {22311937,"  with new_text:ABSTRACT_STRING confirmation conf:BOOLEAN <-"},
-  {42359309,"    storage.fast_occurrences c until (count - 1)"},
-  {43935760,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {75908097,"    (system = system_windows).if {"},
-  {34486316,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";"},
-  {9703445,"    +? {Result != NULL};"},
-  {16018476,"    {(begin_memory & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {32007724,"      new.set_previous_linear (this - begin_memory);"},
-  {8795143,"  Self - ((Self / other) * other);"},
-  {45499905,"    (system != system_unknown).if {"},
-  {8792068,"    true_block.value;"},
-  {69374472,"  - to_raw_integer_32:INTEGER_32    <- CONVERT(SELF,INTEGER_32  ).on Self;"},
-  {56756737,"    };"},
-  {16012332,"    {(begin_memory & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {28839448,"      };"},
-  {78383637,"    };"},
-  {59912717,"            value := 10 * value + cc.decimal_value;"},
-  {7212555,"      };"},
-  {51818028,"  - micro_alloc new_size:UINTEGER_CPU table ptr_table:POINTER lab lab_type:UINTEGER_32 :POINTER <-"},
-  {27937304,"    (capacity < needed_capacity).if	{"},
-  {19143681,"    '\\n'.print;"},
-  {10362374,"    (cond.value).if {"},
-  {8785927,"  Self - ((Self / other) * other);"},
-  {35807233,"  - path_tcsh   :STRING_CONSTANT := \"set path=(\";"},
-  {77475341,"        cc.is_separator.if {"},
-  {26348551,"    -? {step.is_power_2};"},
-  {33562648,"    k := s.count;"},
-  {89403393,"          .when 1 then {"},
-  {9457160,"  - Self:SELF '*'  Left 100 other:SELF :SELF <- `4`;"},
-  {6304264,"  (low <= Self) && {up >= Self};"},
-  {24775186,"    };"},
-  {25443329,"            input.remove index;"},
-  {77466113,"    };"},
-  {8782861,"  );"},
-  {73414151,"      (-Self).print_positif;"},
-  {11935762,"      body.value;"},
-  {34233880,"    storage.copy (s.storage) to (i - 1) until k;"},
-  {15759880,"  - Self:SELF '<='  Right 60 other:SELF :BOOLEAN <- ! (Self > other);"},
-  {56762924,"    {p != NULL} ? \"Memory: Pointer NULL.\";"},
-  {82192385,"    string_tmp.clear;"},
-  {17576492,"    nb_page  := nb_page + 1;"},
-  {67111445,"    };"},
-  {32645121,"  - path_next   :STRING_CONSTANT;"},
-  {53366792,"  - to_integer:INTEGER <- to_raw_integer;  "},
-  {44579329,"    \"  System detect: \".print;"},
-  {43002881,"        close std_file;"},
-  {6307359,"    (s.lower).to (s.count) do {i:INTEGER;"},
-  {4721675,"  [ -? {buffer!=NULL}; ]"},
-  {55839233,"    };"},
-  {68684821,"    -? {dest >= 0};"},
-  {54281260,"	((page + (new_size << 1)) <= 4096).if {"},
-  {93458456,"    +? {count = Old count};"},
-  {27921941,"    i < 0"},
-  {82863617,"    path_current := STRING.create (string_tmp.count);"},
-  {56756780,"    {p != NULL} ? \"Memory: Pointer NULL.\";"},
-  {6295051,"      };"},
-  {73420332,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {27010567,"    (Self + a) & (~ a)"},
-  {11935784,"    }.do_until {(new_mem = NULL) || {(cap >> 20) = 2048}}; // BSBS: BUG COMPILO 0.13"},
-  {28583937,"      new_text.print;      "},
-  {77472300,"    (new_size2 <= minimum_size).if {"},
-  {70021121,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {54275116,"	((page + (new_size << 1)) <= 4096).if {"},
-  {41429528,"    ? {valid_index i2};"},
-  {9451036,"    (! push_back_flag).if {"},
-  {63712257,"      string_tmp.print;"},
-  {59663373,"            value := 10 * value - cc.decimal_value;"},
-  {57424940,"    last := read_ptr ptr_table;"},
-  {11932716,"  - is_end:BOOLEAN                    <- (size_and_id & id_end).to_boolean;"},
-  {6963211,"	buffer.extend ((val % 10).digit);"},
-  {9441810,"    value.if {"},
-  {37377580,"	copy begin to (result.begin) size old_size;"},
-  {24528914,"    ((debug_level >= 15) && {! value}).if {"},
-  {31727617,"  - path_current:STRING;"},
-  {13503020,"    ? {idx < nb_page};"},
-  {24525842,"    ((debug_level >= 15) && {! value}).if {"},
-  {8530438,"  - if true_block:{} :BOOLEAN <- FALSE;"},
-  {22943239,"  ~(~Self & ~other);"},
-  {92303873,"            title \"Installation of Eclipse mode.\" count 0;"},
-  {56501261,"        }.elseif {cc = '+'} then {"},
-  {79695373,"      }.elseif { state = 2} then {"},
-  {22940167,"  ~(~Self & ~other);"},
-  {22940168,"    };"},
-  {58074637,"        cc.is_digit.if {"},
-  {79704620,"    {old_size < new_sz} ? \"Memory: New size < Old size.\";"},
-  {77207553,"    } else {"},
-  {25184769,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {54921752,"    };"},
-  {70018092,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";        "},
-  {75631111,"    };"},
-  {42082328,"    put (item i2) to i1;"},
-  {25181697,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {53782529,"  \\(autoload 'lisaac-mode \\\"lisaac-mode\\\" \\\"Major mode for Lisaac Programs\\\" t)\\n\\n\";"},
-  {12585512,"    };"},
-  {17983000,"	storage := storage.realloc capacity with new_count;"},
-  {80360461,"            result := 10 * result + cc.decimal_value;"},
-  {65276440,"    ? { start.in_range 1 to (end + 1)};"},
-  {15498248,"  - Self:SELF '<'   Right 60 other:SELF :BOOLEAN <- ! (Self >= other);"},
-  {39609900,"    {new_size > minimum_size-POINTER.object_size} ? \"Memory: Big block.\";"},
-  {55580673,"    } else {"},
-  {27663381,"      i := i - 1;"},
-  {61215245,"        };"},
-  {70011948,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";        "},
-  {46796289,"      };      "},
-  {33969176,"      storage.move (i - 1) to (j - 1) by k;"},
-  {60313101,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {25175553,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {8284161,"  - write f:POINTER with buf:STRING size sz:INTEGER :INTEGER <-   "},
-  {22703120,"  - Self:SELF '>=' other:CHARACTER :BOOLEAN <- ( code >= other.code );"},
-  {78777869,"      }.elseif { state = 1 } then {"},
-  {13915656,"  - Self:SELF '==#' Right 60 other:INTEGER :BOOLEAN <- (Self = other);"},
-  {25846785,"            old_buffer.add_last (input.item index);"},
-  {53099015,"    +? {Result.decimal_value = Self};"},
-  {15485953,"      step_count.append_in string_tmp2;"},
-  {13241365,"    -? {old_nb_elts > 0};"},
-  {76290049,"    } else {"},
-  {136198157,"    ? { (start_index >=1) && { start_index <= count + 1 }};"},
-  {44326956,"    blc.set_size_and_id (blc.size_and_id - 4096);"},
-  {96340504,"    ? {capacity >= (count + 1)};"},
-  {55586860,"	put_ptr next2 to result;	"},
-  {43649580,"    };"},
-  {65935384,"      (end + 1).to count do { i:INTEGER;"},
-  {44323884,"    blc.set_size_and_id (blc.size_and_id - 4096);"},
-  {9848322,"    die_with_code exit_failure_code;    "},
-  {81031724,"      mem := CONVERT(POINTER, MEMORY).on (p - object_size);"},
-  {29895693,"      (count = 0).if {"},
-  {26511873,"          \"' file has no need to change. Current version is:\\n\".print;"},
-  {39591468,"    {new_size > minimum_size-POINTER.object_size} ? \"Memory: Big block.\";"},
-  {12998145,"  - string_tmp2:STRING := STRING.create 256;"},
-  {19547180,"    put_last block to (nb_page - 1);"},
-  {66606616,"    ? { count = (old_count - (end - start + 1))};"},
-  {32383532,"      (new.is_end).if {"},
-  {30807084,"    {(sz & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {31472152,"    ((i > 0) && {j > 0}).if	{"},
-  {81025580,"      mem := CONVERT(POINTER, MEMORY).on (p - object_size);"},
-  {62542349,"    ( (state != 0) && { state != 4}).if {"},
-  {13900309,"    + new_cap:INTEGER;"},
-  {52178439,"    -? {in_range 0 to 9};"},
-  {11430956,"  - id:UINTEGER_CPU                   <- size_and_id & 01b;"},
-  {73796103,"    };"},
-  {91133953,"            title \"Installation of `lisaac_spec.xml' for Hippoedit.\" count 0;"},
-  {45641729,"      title \"Fix target variable in `make.lip'.\" count 5;"},
-  {52175368,"  [ -? {Self >= 0}; ] "},
-  {5793313,"  - maximum:UINTEGER_64 := `0xFFFFFFFFFFFFFFFFLLU`:UINTEGER_64; //BSBS pb C 0FFFFFFFFFFFFFFFFh; "},
-  {5784076,"    new := STRING.create capacity;"},
-  {12326952,"    } else {"},
-  {15470613,"    +? {Result != NULL};"},
-  {78519297,"  - build_lib <-"},
-  {60956685,"        } else {"},
-  {62533133,"    ( (state != 0) && { state != 4}).if {"},
-  {17721368,"	storage := NATIVE_ARRAY(CHARACTER).create new_count;"},
-  {136850957,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {80111148,"    old_size2 := old_size + UINTEGER_32.object_size;    "},
-  {24014849,"      input := STRING.create (size_file + new_text.count);"},
-  {72903212,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {66588184,"    ? { count = (old_count - (end - start + 1))};"},
-  {59146241,"        \\  You can to read the `editor/kate/README' file.\".print;"},
-  {9832978,"    };"},
-  {17050156,"      search_capacity;"},
-  {53742600,"  [ -? {bound_test (INTEGER_8.minimum) to (INTEGER_8.maximum)}; ]"},
-  {136844813,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {44973612,"      pv := blc.previous_linear;"},
-  {51279404,"    mem := CONVERT(POINTER, NATIVE_ARRAY(UINTEGER_32)).on p;"},
-  {5774867,"  - object_size:INTEGER <- `sizeof(void *)`:INTEGER;"},
-  {85724181,"    -? {lower + offset >= 0};"},
-  {43150849,"        file := STRING.create_from_string file_autoexec;"},
-  {19285522,"    ((debug_level >=10) && {! value}).if {      "},
-  {30542349,"    };"},
-  {60039169,"  - install_vim <-"},
-  {87297557,"      };"},
-  {19282450,"    ((debug_level >=10) && {! value}).if {      "},
-  {80098860,"    old_size2 := old_size + UINTEGER_32.object_size;    "},
-  {77601793,"    '\\n'.print;"},
-  {136610829,"    {(result != 0) || {(s + other.count - 1) > count }}.until_do {"},
-  {51251713,"    };"},
-  {11406380,"  - id:UINTEGER_CPU                   <- size_and_id & 01b;"},
-  {47870977,"    title \"Installation of environment variables.\" count 5;"},
-  {75123207,"    char := (Self % 10).decimal_digit;"},
-  {16794632,"  - when value:SELF then block:{} :SELF <-"},
-  {12068370,"      until_do body;"},
-  {19285548,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {14316043,"    (low < to_raw_integer_64) && {up > to_raw_uinteger_64}"},
-  {6436883,"  - is_not_null:BOOLEAN <- ! is_null;"},
-  {9580545,"  - file_size p:POINTER :INTEGER <-"},
-  {55977997,"    { (state = 4) || {i > count}}.until_do {"},
-  {60707341,"        }.elseif {cc.is_separator} then {"},
-  {67006977,"        string_tmp.copy \"cp -f editor/vim/vimrc ~/.vimrc\";"},
-  {28063788,"      new_size := new_size + new_free.size_and_id + object_size;"},
-  {75113991,"    char := (Self % 10).decimal_digit;"},
-  {29624845,"    ? {other != NULL};"},
-  {11160085,"    result:=calloc_intern nb_elements;"},
-  {28735020,"      new_size := new_size + next.size_and_id + object_size;"},
-  {19932161,"      IO.read_line;"},
-  {69485589,"    {i2 = src_capacity}.until_do {"},
-  {69494828,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {16785429,"    -? {index >= 0};"},
-  {54404652,"	  next := result + new_size;"},
-  {105516053,"    -? {index>=0};"},
-  {34360364,"    {(new_size & (POINTER.object_size -1)) = 0} ? \"Memory: Alignment.\";"},
-  {28728876,"      new_size := new_size + next.size_and_id + object_size;"},
-  {43803664,"    (Self= ' ') || {Self = '\\t'} || {Self='\\n'} ||"},
-  {21499393,"      };"},
-  {87038997,"	  put (item i) to (i + offset);"},
-  {81407509,"    upper.downto 0 do { i:INTEGER;"},
-  {8663056,"    result:=to_integer_8;"},
-  {46039041,"        \"  + target:STRING := \\\"windows\\\";\\n\" confirmation FALSE;"},
-  {42208769,"      };"},
-  {43785217,"      } else {"},
-  {75766791,"    char.print;"},
-  {70809601,"      \"  Sorry, Hippoedit editor is only for Windows.\".print;"},
-  {40641560,"    ? {item index = ch};"},
-  {55063596,"	put_ptr next to ptr_table;"},
-  {10904578,"  - die_with_code code:INTEGER <- SYSTEM.exit code;"},
-  {77358636,"    new_size2 := new_size + UINTEGER_32.object_size;"},
-  {14965781,"    new.clear old_nb_elts to (new_nb_elts - 1);"},
-  {44702764,"    (blc.size < minimum_size).if {"},
-  {43788304,"    (Self= ' ') || {Self = '\\t'} || {Self='\\n'} ||"},
-  {15874092,"    {begin_memory != NULL} ? \"Memory: Not memory.\";"},
-  {40644652,"      result := new_page;"},
-  {10916908,"  - size:UINTEGER_CPU                 <- size_and_id & ~ 3.to_uinteger_cpu;"},
-  {93332501,"    -? {upper >= -1};"},
-  {35687468,"	  size_and_id := size_and_id + (nxt.size_and_id & ~ 1.to_uinteger_cpu) + object_size;"},
-  {25311239,"  - '~' Self:SELF :SELF <- - Self - SELF.one; "},
-  {33433644,"    {id = id_busy} ? \"Memory: Macro Block not busy.\";"},
-  {13380117,"    -? {old_nb_elts < new_nb_elts};"},
-  {17435160,"    }.elseif { capacity < new_count } then {"},
-  {16523778,"    (sz = 0).if {      "},
-  {93326357,"    -? {upper >= -1};"},
-  {17198082,"      clone_allocation_size := clone_allocation_size + sz;      "},
-  {77346348,"    new_size2 := new_size + UINTEGER_32.object_size;"},
-  {54133768,"  );"},
-  {27789845,"    };"},
-  {80483853,"          };"},
-  {29375532,"      put_last new_free to idx;"},
-  {10907692,"  - size:UINTEGER_CPU                 <- size_and_id & ~ 3.to_uinteger_cpu;"},
-  {66074136,"	put (item i) to  (i - len);"},
-  {33427500,"    {id = id_busy} ? \"Memory: Macro Block not busy.\";"},
-  {9990152,"  - Self:SELF '+'  Left 80  other:SELF :SELF <- Self - -other;"},
-  {35003948,"      (! is_end).if {	"},
-  {94899736,"  ( ? {p.is_not_null};"},
-  {4598824,"  - exit code:INTEGER <- `exit(@code)`;"},
-  {22826504,"      (Self-1).downto limit_down do blc;"},
-  {35678252,"	  size_and_id := size_and_id + (nxt.size_and_id & ~ 1.to_uinteger_cpu) + object_size;"},
-  {26878471,"    a := step - 1;"},
-  {74849293,"  - to_integer:INTEGER <-"},
-  {21240833,"      } else {"},
-  {46932012,"  - minimum_size:UINTEGER_CPU <- `MINIMUM_SIZE`:UINTEGER_CPU;"},
-  {56375309,"        cc.is_separator.if {"},
-  {81161260,"      result := mem.resize new_size index (get_index p).begin;      "},
-  {49838593,"      update file idf comment with new_text confirmation TRUE;"},
-  {32516140,"	put_last new to idx;"},
-  {73934849,"    string_tmp.print;"},
-  {91500545,"          .when 5 then {"},
-  {9081875,"  - to_raw_uinteger_cpu:UINTEGER_CPU <- CONVERT(SELF,UINTEGER_CPU).on Self;"},
-  {79563265,"    };      "},
-  {27540481,"        index := input.upper + 1;"},
-  {59537452,"    na_src := CONVERT(POINTER, NATIVE_ARRAY(POINTER)).on src;"},
-  {24393746,"    ptr := top_runtime_stack;"},
-  {62000653,"      };"},
-  {26881580,"    next := next_linear;"},
-  {53228588,"      put_ptr NULL to next;"},
-  {69217836,"    {sz <= minimum_size} ? \"Memory: Size bound.\";"},
-  {36324880,"    ? {result = in_range '0' to '9'};"},
-  {51405825,"    new_text.prepend \"#define LISAAC_DIRECTORY \\\"\";"},
-  {31604780,"    (new_size > (minimum_size+2+object_size)).if {"},
-  {28451884,"    ((! is_end) && {next.id = id_free}).if {"},
-  {49155080,"  [ -? {bound_test (UINTEGER_32.minimum) to (UINTEGER_32.maximum)}; ]"},
-  {62674973,"  - basic_io_eof :CHARACTER <- SYSTEM_IO.eof;"},
-  {5245466,"    ? { variable != NULL };"},
-  {10883116,"  - size:UINTEGER_CPU                 <- size_and_id & ~ 3.to_uinteger_cpu;"},
-  {18746882,"      };"},
-  {30681089,"      close std_file;"},
-  {48265260,"    {idx.in_range 1 to (minimum_size/POINTER.object_size)} ? "},
-  {29113880,"    storage.copy (other.storage) to count until other_count;"},
-  {29101569,"      };"},
-  {43526685,"    last_string.clear;"},
-  {36324908,"	    nxt.set_previous_linear (this - begin_memory);"},
-  {29116972,"    new_free.set_size_and_id new_size;"},
-  {9063445,"    p := MEMORY.alloc_dynamic capacity;"},
-  {58373633,"      string_tmp.copy \"cp -f editor/kate/lisaac_v2.xml ~/.kde/share/apps/katepart/syntax/.\";"},
-  {11542044,"	str.extend mem;"},
-  {69636616,"  - to_raw_integer_64:INTEGER_64    <- CONVERT(SELF,INTEGER_64  ).on Self;"},
-  {36309520,"    ? {result = in_range '0' to '9'};"},
-  {17835521,"    \" (y/n) \".print;"},
-  {13780481,"    die_with_code exit_failure_code;"},
-  {9060376,"    result := create (str.count);"},
-  {48252972,"    {idx.in_range 1 to (minimum_size/POINTER.object_size)} ? "},
-  {34496001,"  - file_cshrc    :STRING_CONSTANT := \"/.cshrc\";"},
-  {20982273,"          \"]\\n\".print;"},
-  {5005342,"  - put_character c:CHARACTER <- basic_io_putc c;"},
-  {17829378,"      };                                               "},
-  {24144408,"      storage.copy_from (other.storage) until (count-1);"},
-  {15350785,"      string_tmp2.copy \"Step \";"},
-  {30681132,"    {id = id_free} ? \"Memory: Macro block not free.\";    "},
-  {10627605,"    -? {nb_elements > 0};"},
-  {76829185,"    (ENVIRONMENT.execute_command compile = 0).if {    "},
-  {65803288,"    (len > 0).if {"},
-  {9719304,"  - Self:SELF '/'  Left 100 other:SELF :SELF <- `5`; // ? {other/=0}"},
-  {79304705,"    } else {"},
-  {42606104,"    ? {item i2 = old_i1};"},
-  {70520321,"      };"},
-  {83131905,"    path_home    := ENVIRONMENT.get_environment_variable \"HOME\";"},
-  {10621458,"    value;"},
-  {30674988,"    {id = id_free} ? \"Memory: Macro block not free.\";    "},
-  {63986689,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {18503704,"      storage.clear count to (new_count - 1);"},
-  {4090906,"  - get_environment_variable variable:ABSTRACT_STRING :STRING <-"},
-  {33581569,"  - system_unix_tcsh:STRING_CONSTANT := \"Unix - tcsh\";"},
-  {35401260,"	((nxt.id = id_free) && {nxt.size >= sz}).if {"},
-  {78399501,"          result := cc.decimal_value;"},
-  {40127532,"    {(result != NULL) && {result.size < new_size}}.while_do {"},
-  {21641217,"    }.do_while {result = -1};"},
-  {73682476,"    ptr_table := table_size (new_size / POINTER.object_size);    "},
-  {69384193,"      \"copy editor/hippoedit/lisaac_spec.xml \\\"C:\\\\Program Files\\\\HippoEDIT\\\\data\\\\syntax\\\"\";"},
-  {11289621,"    result.clear_all (nb_elements-1); "},
-  {31333912,"    resize (i + j);"},
-  {79301653,"    -? {lower >= 0};"},
-  {36057104,"      result := (Self <= '9');"},
-  {67804673,"          \\  You can read the `editor/vim/install_vim_plugin.sh' file.\\n\".print;"},
-  {40121388,"    {(result != NULL) && {result.size < new_size}}.while_do {"},
-  {59925517,"            value := 10 * value + cc.decimal_value;"},
-  {26364417,"        (old_buffer == new_text).if {"},
-  {59248141,"      }.elseif { state = 2 } then {"},
-  {28839937,"      (! make_file file).if {"},
-  {45746732,"    };"},
-  {85598229,"    -? {upper >= lower};"},
-  {31989761,"  - shell       :STRING;"},
-  {66456088,"    };"},
-  {5642763,"      (Self > 0).if {"},
-  {86937601,"        \\  Run `lisaac' to compile.                              \".print;"},
-  {75920940,"    ptr_table := table_size (new_size / POINTER.object_size);"},
-  {56763405,"        }.elseif {cc = '-'} then {"},
-  {43927056,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {16012844,"    {(begin_memory & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {11280424,"    cap := 32.mb;"},
-  {86257153,"        compile_shorter;"},
-  {49546248,"  );"},
-  {70261761,"      } else {"},
-  {137377805,"      (i > other.count).if {"},
-  {13509636,"  - '!' Self:SELF :BOOLEAN <- FALSE;"},
-  {75893261,"    ? { is_integer };"},
-  {137374733,"      (i > other.count).if {"},
-  {37621292,"      };"},
-  {11945512,"    }.do_until {(new_mem = NULL) || {(cap >> 20) = 2048}}; // BSBS: BUG COMPILO 0.13"},
-  {18232834,"      copy_intern_in result;            "},
-  {43911696,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {77478956,"    (new_size2 <= minimum_size).if {"},
-  {49309185,"      new_text := STRING.create_from_string comment;      "},
-  {82864129,"    path_current := STRING.create (string_tmp.count);"},
-  {21382657,"        \"Incorrect number.\\n\".print;"},
-  {14183957,"    old_ptr := CONVERT(NATIVE_ARRAY(V),POINTER).on Self; "},
-  {137368589,"      (i > other.count).if {"},
-  {34228248,"    storage.copy (s.storage) to (i - 1) until k;"},
-  {54278700,"	((page + (new_size << 1)) <= 4096).if {"},
-  {61240321,"      ENVIRONMENT.execute_command \"mkdir -p ~/.vim/indent\";"},
-  {30160897,"      (std_file = NULL).if {"},
-  {7868939,"	j := j - 1;"},
-  {62139393,"      string_tmp.print;"},
-  {66200597,"    -? {upper >= -1};"},
-  {43914796,"    (idx >= nb_page).if {          "},
-  {25203713,"          {(index < input.upper) && {input.item index != '\\n'}}.while_do {"},
-  {6963723,"	buffer.extend ((val % 10).digit);"},
-  {24532498,"    ((debug_level >= 15) && {! value}).if {"},
-  {17318401,"  - question str:ABSTRACT_STRING :CHARACTER <-"},
-  {13506604,"    ? {idx < nb_page};"},
-  {11021852,"      str.extend memory;"},
-  {66194453,"    -? {upper >= -1};"},
-  {53121025,"  - lisaac_mode_path    :STRING_CONSTANT := \"\\n(setq load-path (cons \\\"\";"},
-  {73408556,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {40509441,"      }.elseif {shell.has_substring \"zsh\"} then {"},
-  {22952984,"  - copy other:ABSTRACT_STRING<-"},
-  {56517164,"  - micro_free p:POINTER table ptr_table:POINTER <-"},
-  {95694360,"    (storage != p).if {"},
-  {46156332,"    {((result - begin_memory) & 0FFFh) = 0} ? \"Memory: Alignment LAB.\";"},
-  {11012626,"    };"},
-  {33975809,"  - system_windows  :STRING_CONSTANT := \"Windows - DOS\";"},
-  {59654669,"            value := 10 * value - cc.decimal_value;"},
-  {72487943,"  - print <-"},
-  {46153260,"    {((result - begin_memory) & 0FFFh) = 0} ? \"Memory: Alignment LAB.\";"},
-  {60325901,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {138021389,"    };"},
-  {11674625,"      close stream; "},
-  {45248044,"	prev := CONVERT(POINTER,MEMORY).on (begin_memory + pv);"},
-  {78784513,"    string_tmp.clear;"},
-  {42085912,"    put (item i2) to i1;"},
-  {66856469,"	put new_value to i;"},
-  {65945089,"        (path_home = NULL).if {"},
-  {31722008,"    };"},
-  {39591937,"      }.elseif {shell.has_substring \"tcsh\"} then {"},
-  {136210957,"    ? { (start_index >=1) && { start_index <= count + 1 }};"},
-  {33304620,"    size_and_id := siz | id_busy;"},
-  {16394753,"    string_tmp2.print;"},
-  {14818305,"    '\\n'.print;"},
-  {12342790,"  - Self:SELF '|'   Left 10  other:BOOLEAN :BOOLEAN <- other;"},
-  {70012460,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";        "},
-  {16394754,"    sz := object_size;        "},
-  {13248018,"      do_until test;"},
-  {23605776,"    result := to_integer - 48;"},
-  {28338200,"	storage  := NATIVE_ARRAY(CHARACTER).create capacity;"},
-  {30804481,"    };"},
-  {10095128,"  ( ? {needed_capacity >= 0};"},
-  {6033931,"	val := - Self;"},
-  {96347160,"    ? {capacity >= (count + 1)};"},
-  {62786061,"    };"},
-  {36205057,"  - path_bash_next   :STRING_CONSTANT := \"/bin:$PATH\\n\\n\";"},
-  {73140743,"    }.elseif {Self < 0} then {"},
-  {53770760,"  [ -? {bound_test (INTEGER_8.minimum) to (INTEGER_8.maximum)}; ]"},
-  {39598124,"    {new_size > minimum_size-POINTER.object_size} ? \"Memory: Big block.\";"},
-  {30804504,"    ? {other!=NULL};"},
-  {17974316,"      \"Not enough memory.\\n\".print;"},
-  {81032236,"      mem := CONVERT(POINTER, MEMORY).on (p - object_size);"},
-  {38674433,"      }.elseif {shell.has_substring \"bash\"} then {"},
-  {24258561,"      close std_file; "},
-  {19547692,"    put_last block to (nb_page - 1);"},
-  {53087239,"    +? {Result.decimal_value = Self};"},
-  {10757148,"    read_character;"},
-  {42741804,"      (idx < nb_page) && "},
-  {37094919,"  ! is_odd; "},
-  {57819669,"    {(i < 0) || {element = item i}}.until_do {"},
-  {80111629,"            result := 10 * result - cc.decimal_value;"},
-  {19532306,"    };"},
-  {4214282,"  - default     := (0.to_raw_integer_32);"},
-  {81010701,"      }.elseif { state = 3 } then {"},
-  {79434253,"        };"},
-  {136186381,"    ? { (start_index >=1) && { start_index <= count + 1 }};"},
-  {136860685,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {42735660,"      (idx < nb_page) && "},
-  {81010709,"    -? {upper >= -1};"},
-  {69741569,"      string_tmp.print;"},
-  {74470913,"      \\  You want to compile a `bin/\".print;"},
-  {8260098,"    };"},
-  {38437377,"        \"  Error : SHELL environment variable is empty !\\n\".print;"},
-  {48120833,"    (system = system_unknown).if {"},
-  {24923649,"        old_buffer := STRING.create 200;"},
-  {52175879,"    -? {in_range 0 to 9};"},
-  {68162049,"        };"},
-  {57807373,"        };"},
-  {57810453,"    {(i < 0) || {element = item i}}.until_do {"},
-  {8260107,"    };"},
-  {13663752,"  - Self:SELF '>=#' Right 60 other:INTEGER :BOOLEAN <- (Self ># other) | (Self ==# other);"},
-  {11419164,"      { (mem = basic_io_eof) || {mem = '\\n'} }.until_do {"},
-  {85733909,"    -? {lower + offset >= 0};"},
-  {57807381,"    {(i < 0) || {element = item i}}.until_do {"},
-  {52169735,"    -? {in_range 0 to 9};"},
-  {52169736,"  [ -? {Self >= 0}; ] "},
-  {24015361,"      input := STRING.create (size_file + new_text.count);"},
-  {33033752,"    ? { s != NULL };"},
-  {12081158,"  - Self:SELF '&&'  Left 20  other:{BOOLEAN}   :BOOLEAN <- FALSE;"},
-  {8260122,"    ? { system_command_line != NULL};"},
-  {29887020,"    };    "},
-  {69738517,"      i2 := i2 + 1;"},
-  {5781530,"      result := STRING.clone;"},
-  {19301420,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {50596376,"    ? {count = old_count - 1};"},
-  {32137772,"      new.set_size_and_id (new_size - object_size);"},
-  {19289106,"    ((debug_level >=10) && {! value}).if {      "},
-  {18614808,"    };    "},
-  {90444801,"          .when 3 then {"},
-  {68824065,"  - install_hippoedit <-"},
-  {80093205,"      put v to i;"},
-  {5781540,"  - maximum:UINTEGER_64 := ~ 0.to_raw_uinteger_32;"},
-  {59383852,"    siz := siz / POINTER.object_size;"},
-  {58469389,"            value := - value;"},
-  {33033772,"      };"},
-  {19295276,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {32131628,"      new.set_size_and_id (new_size - object_size);"},
-  {15224840,"  - Self:SELF '>'   Right 60 other:SELF :BOOLEAN <- `2`;"},
-  {28969496,"    };"},
-  {70415916,"    result := micro_alloc new_size table ptr_table lab (t | 1b);        "},
-  {46295041,"        \"\\n  Note: Use `mingw' for Windows.\\n\".print; "},
-  {81660437,"    };"},
-  {60036621,"          };"},
-  {26484760,"    ? { count == old_count };"},
-  {19286060,"    block.set_size_and_id (id_free | id_end | (64.mb - object_size));"},
-  {76038188,"    micro_free p table ptr_table;"},
-  {28969516,"    };    "},
-  {77599245,"        }.elseif {cc = '+'} then {"},
-  {26490924,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";    "},
-  {30299649,"	error \"Not open file (Write protection) !\";"},
-  {6437404,"      memory := basic_io_getc;"},
-  {80742913,"    };"},
-  {6437407,"      put_character (s.item i);"},
-  {20856364,"  - id_busy:UINTEGER_CPU <- 01b;"},
-  {93588504,"    +? {Result.is_not_null};"},
-  {56643585,"      new_text.replace_all '\\\\' with '/';"},
-  {74209281,"    (ENVIRONMENT.execute_command string_tmp != 0).if {"},
-  {67903489,"        } else {"},
-  {9574914,"    msg.print;"},
-  {57548813,"        } else {"},
-  {8007704,"    result := SELF.clone;   "},
-  {16779777,"    };"},
-  {69495340,"    new_size  := sz.align_power (POINTER.object_size); "},
-  {8004636,"  - last_character:CHARACTER <-"},
-  {34360876,"    {(new_size & (POINTER.object_size -1)) = 0} ? \"Memory: Alignment.\";"},
-  {14301195,"    (low < to_raw_integer_64) && {up > to_raw_uinteger_64}"},
-  {21506056,"      blc.value Self;"},
-  {11154460,"      mem := basic_io_getc;"},
-  {7998485,"    -? {nb_elements > 0};"},
-  {90189313,"            install_vim;      "},
-  {12737068,"  - get_index p:POINTER :UINTEGER_CPU <- (p - begin_memory).to_uinteger_cpu >> 26;"},
-  {58213901,"          value := cc.decimal_value;"},
-  {8672792,"  - create_from_string str:ABSTRACT_STRING :SELF <-"},
-  {18356248,"    } else {"},
-  {55064088,"    storage.put ch to count;"},
-  {31876140,"      new := CONVERT(POINTER,MEMORY).on (begin+sz);"},
-  {27146796,"    new_size := size_and_id & ~ 1.to_uinteger_cpu;"},
-  {78258197,"      put v to i;"},
-  {8663565,"    storage.item (index - 1)"},
-  {14291979,"    (low < to_raw_integer_64) && {up > to_raw_uinteger_64}"},
-  {94244373,"      };"},
-  {69470741,"    {i2 = src_capacity}.until_do {"},
-  {22171143,"  - Self:SELF '&'  Left 100 other:SELF :SELF <- "},
-  {19033644,"    block := CONVERT(POINTER,MEMORY).on (begin_memory + old_size);        "},
-  {27796482,"  - type_id_intern:INTEGER    <- `1`;"},
-  {45380652,"	prev.set_size_and_id (prev.size_and_id + blc.size_and_id + object_size);"},
-  {44703276,"    (blc.size < minimum_size).if {"},
-  {5279760,"  - in_range low:CHARACTER to up:CHARACTER :BOOLEAN <- ((Self >= low) && {Self<= up});"},
-  {27802648,"    needed_capacity := count + other_count;"},
-  {93326849,"      };"},
-  {7746049,"    buf.from_external ptr;"},
-  {25314823,"  - '~' Self:SELF :SELF <- - Self - SELF.one; "},
-  {64498177,"        \"OK.\\n\".print;  "},
-  {57296397,"          value := cc.decimal_value;"},
-  {36574727,"  (Self & 1) = 1;  "},
-  {22158849,"  - update file:ABSTRACT_STRING idf id:STRING_CONSTANT "},
-  {14950913,"    (mx = 0).if {"},
-  {80484353,"    } else {"},
-  {52560904,"  );"},
-  {6169611,"	buffer.extend '-';"},
-  {52576300,"    result := read_ptr ptr_table;            "},
-  {94906392,"  ( ? {p.is_not_null};"},
-  {61345293,"      }.elseif { state = 3 } then {"},
-  {46926337,"    };"},
-  {9316353,"  - close p:POINTER <- `fclose((FILE*)(@p))`;"},
-  {50753537,"    title \"Installation of Lisaac library path.\" count 5;"},
-  {15862316,"    {begin_memory != NULL} ? \"Memory: Not memory.\";"},
-  {66071576,"	put (item i) to  (i - len);"},
-  {37233665,"  - detect_system <-"},
-  {10895900,"    ( (last_character != '\\n') && { memory != basic_io_eof } ).if {"},
-  {27793452,"    } else {"},
-  {15612929,"      string_tmp2.add_last '/';"},
-  {18106924,"      die_with_code exit_failure_code;"},
-  {81164844,"      result := mem.resize new_size index (get_index p).begin;      "},
-  {89927681,"          .when 2 then {"},
-  {25967617,"            input.remove index;"},
-  {81161772,"      result := mem.resize new_size index (get_index p).begin;      "},
-  {28461612,"    ((! is_end) && {next.id = id_free}).if {"},
-  {10652676,"  - Self:SELF '&&'  Left 20  other:{BOOLEAN}   :BOOLEAN <- other.value;  // and then"},
-  {44450860,"    result := blc.next_linear.this;        "},
-  {56372749,"        cc.is_separator.if {"},
-  {52988929,"  - lisaac_mode_comment :STRING_CONSTANT := \";; **** LISAAC MODE ****\";"},
-  {18091544,"      };"},
-  {26872853,"    -? {(capacity > 0) ->> {other.is_not_null}};"},
-  {14710805,"    old_size (old_nb_elts * element_sizeof) new_size new_cap;"},
-  {6819339,"      {val = 0}.until_do {	"},
-  {14695425,"    step_count := step_count + 1;"},
-  {59510273,"      };	"},
-  {27537941,"    {(i >=0 ) && {item i = other.item i}}.while_do {"},
-  {7484417,"    ptr := buf.to_external;    "},
-  {28446252,"    ((! is_end) && {next.id = id_free}).if {"},
-  {52317740,"    {new_size >= POINTER.object_size} ? \"Memory: Size = 0.\";"},
-  {24381976,"    ? {count = other.count};"},
-  {14689286,"  - '!' Self:SELF :BOOLEAN <- TRUE;"},
-  {31596076,"    (new_size > (minimum_size+2+object_size)).if {"},
-  {36325420,"	    nxt.set_previous_linear (this - begin_memory);"},
-  {68063752,"  - to_raw_uinteger_32:UINTEGER_32  <- CONVERT(SELF,UINTEGER_32 ).on Self;"},
-  {55467564,"	next2 := read_ptr next & ~ 11b.to_uinteger_cpu;"},
-  {32251905,"  - file        :STRING;    "},
-  {13115922,"    (! test.value).if {"},
-  {54556184,"	storage      := storage.realloc capacity with new_capacity;"},
-  {45762561,"      (system = system_windows).if {"},
-  {73014791,"      '0'.print;"},
-  {41036301,"  - has ch:CHARACTER :BOOLEAN <- storage.fast_has ch until (count - 1);"},
-  {74588167,"  [ -? {Self >=# 0}; ]"},
-  {45100588,"      (pv != NULL).if {"},
-  {48253484,"    {idx.in_range 1 to (minimum_size/POINTER.object_size)} ? "},
-  {21894168,"  - clear <-"},
-  {87427605,"    };"},
-  {41701377,"        \"  Shell not recognized: \".print;"},
-  {10640428,"  - begin:POINTER                     <- this + object_size;"},
-  {23464464,"    ? {is_digit};"},
-  {25709057,"          (index <= input.upper).if {"},
-  {33825304,"    (i <= j).if {"},
-  {15348226,"  - clone_allocation_size:UINTEGER_CPU;"},
-  {89666049,"            install_emacs;      "},
-  {16025608,"  - Self:SELF '>='  Right 60 other:SELF :BOOLEAN <- (Self > other) | (Self == other);"},
-  {25705985,"          (index <= input.upper).if {"},
-  {17832984,"      } else {"},
-  {35407916,"	((nxt.id = id_free) && {nxt.size >= sz}).if {"},
-  {62413825,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {86519317,"	  put (item i) to (i + offset);"},
-  {48244268,"    {idx.in_range 1 to (minimum_size/POINTER.object_size)} ? "},
-  {12866561,"  - string_tmp:STRING := STRING.create 256;"},
-  {11287041,"    p := new_path.to_external;"},
-  {91910657,"            \\        See: `http://efte.cowgar.com'\".print;"},
-  {25699841,"          (index <= input.upper).if {"},
-  {56108045,"      cc := item i;"},
-  {16915457,"    '\\n'.print;"},
-  {69612545,"      \"  Execute: `\".print;"},
-  {12192274,"    };"},
-  {77738028,"      put_32 3 to result; // 3 : 2=NATIVE_ARRAY"},
-  {40128044,"    {(result != NULL) && {result.size < new_size}}.while_do {"},
-  {59251713,"      } else {"},
-  {21644808,"      (Self + 1).to limit_up do blc;"},
-  {27270145,"      } else {"},
-  {22559276,"      prev.set_next_free next;"},
-  {59267116,"    {(siz & (POINTER.object_size -1)) = 0} ? \"Memory: Copy alignment.\";"},
-  {29520897,"    ((! conf) || {question \"  Confirmation ?\" = 'y'}).if {            "},
-  {139201037,"    ? {! other.is_empty };"},
-  {16918552,"    ? { new_count >= 0 };"},
-  {51138561,"      new_text.replace_all '\\\\' with '/';"},
-  {22546968,"    ? {count = 0};"},
-  {79982636,"    old_size  := old_sz.align_power (POINTER.object_size); "},
-  {44173868,"    };        "},
-  {29514753,"    ((! conf) || {question \"  Confirmation ?\" = 'y'}).if {            "},
-  {57684524,"    next := read_ptr last;"},
-  {75921452,"    ptr_table := table_size (new_size / POINTER.object_size);"},
-  {93468673,"    }.do_while {choice != 0};"},
-  {67118593,"        \"  `\".print;"},
-  {59916813,"            value := 10 * value + cc.decimal_value;"},
-  {28849708,"      next.delete_link_free;	"},
-  {23874049,"      size_file := file_size std_file;"},
-  {38286849,"      (shell.is_empty).if {"},
-  {93462529,"    }.do_while {choice != 0};"},
-  {19150866,"    ptr := top_runtime_stack;"},
-  {47988780,"  - table_size idx:UINTEGER_CPU :POINTER <- "},
-  {61487117,"        cc.is_separator.if {"},
-  {4069927,"  - on src:S :D <- `13`;"},
-  {38283777,"      (shell.is_empty).if {"},
-  {15086593,"      string_tmp2.copy str;"},
-  {13510145,"    \"Error: \".print;"},
-  {29499393,"    ((! conf) || {question \"  Confirmation ?\" = 'y'}).if {            "},
-  {48641537,"      \\    set path=\".print;"},
-  {43918352,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {80620033,"      \"  Fail!\".print;"},
-  {73412097,"    string_tmp.append n;"},
-  {47062017,"    '\\n'.print;    "},
-  {10363416,"      (capacity < needed_capacity).if	{	"},
-  {19153964,"    block.set_previous_linear NULL; "},
-  {17577516,"    nb_page  := nb_page + 1;"},
-  {16001068,"    {(begin_memory & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {28603416,"	storage  := storage.realloc capacity with needed_capacity;"},
-  {27926040,"    (capacity < needed_capacity).if	{"},
-  {4722699,"  [ -? {buffer!=NULL}; ]"},
-  {16653825,"      '='.print;"},
-  {26355756,"    {id = id_busy} ? \"Memory: Macro block not busy.\";"},
-  {6296072,"  (low <= Self) && {up >= Self};"},
-  {34893825,"  - file_autoexec :STRING_CONSTANT := \"C:\\\\autoexec.bat\";"},
-  {85340161,"        install_variable;      "},
-  {36470273,"  - path_windows_next:STRING_CONSTANT := \"\\\\bin;%path%\\r\\n\\r\\n\";"},
-  {35137068,"	nxt := next_linear;"},
-  {9445894,"      block.value;"},
-  {40522241,"      }.elseif {shell.has_substring \"zsh\"} then {"},
-  {26349612,"    {id = id_busy} ? \"Memory: Macro block not busy.\";"},
-  {22048258,"  - to_pointer:POINTER <- CONVERT(SELF,POINTER).on Self;"},
-  {70016001,"      (ENVIRONMENT.execute_command string_tmp != 0).if {	"},
-  {18227221,"    -? {index >= 0};"},
-  {14162945,"  - step_count:INTEGER;  "},
-  {6299180,"  + size_and_id:UINTEGER_CPU;"},
-  {66194968,"      };"},
-  {22051346,"      crash_on ptr with_message \"Require assertion violated.\";   "},
-  {36701228,"	};"},
-  {94118421,"	count := count + 1;"},
-  {21370888,"    (Self <= limit_up).if {"},
-  {41421336,"    ? {valid_index i2};"},
-  {13504044,"    ? {idx < nb_page};"},
-  {78138412,"      result := search new_size .begin;      "},
-  {49971720,"  [ -? {bound_test (UINTEGER_64.minimum) to (UINTEGER_64.maximum)}; ]"},
-  {65292824,"    ? { start.in_range 1 to (end + 1)};"},
-  {6958091,"	buffer.extend ((val % 10).digit);"},
-  {7635472,"    ? {result.in_range (INTEGER_8.minimum) to (INTEGER_8.maximum)};"},
-  {22944263,"  ~(~Self & ~other);"},
-  {55840300,"      };		      "},
-  {78135340,"      result := search new_size .begin;      "},
-  {80373773,"            result := 10 * result + cc.decimal_value;"},
-  {26768385,"          \"' file has been updated. Old value is:\\n\".print;"},
-  {63476225,"      string_tmp.copy \"cp -f editor/vim/indent/lisaac.vim ~/.vim/indent/\";"},
-  {66853889,"      } else {"},
-  {14156807,"  );"},
-  {93200897,"        build_lib;"},
-  {89145857,"          \\0- Exit menu.\" count 6;"},
-  {18876930,"    };"},
-  {22710288,"  - Self:SELF '>=' other:CHARACTER :BOOLEAN <- ( code >= other.code );"},
-  {79699500,"    {old_size < new_sz} ? \"Memory: New size < Old size.\";"},
-  {74723841,"      \".c' file.\\n\".print;"},
-  {29231617,"    };    "},
-  {69092353,"    (system = system_windows).if {"},
-  {60314125,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {23606288,"    result := to_integer - 48;"},
-  {17968641,"    {(result != 'y') && {result != 'n'}}.while_do {"},
-  {9187334,"    result := cond.value;"},
-  {22704144,"  - Self:SELF '>=' other:CHARACTER :BOOLEAN <- ( code >= other.code );"},
-  {17974802,"    ((debug_level >=10) && {! value}).if {      "},
-  {17971730,"    ((debug_level >=10) && {! value}).if {      "},
-  {73834028,"    result := micro_alloc new_size table ptr_table lab (new_size.to_uinteger_32);"},
-  {7607819,"      {i >= j}.until_do {"},
-  {49940993,"    };"},
-  {57152013,"        }.elseif {cc.is_digit} then {"},
-  {60304909,"          ((negative && {value > 0}) || { ! negative && {value < 0}}).if {"},
-  {136199181,"    ? { (start_index >=1) && { start_index <= count + 1 }};"},
-  {39598636,"    {new_size > minimum_size-POINTER.object_size} ? \"Memory: Big block.\";"},
-  {17959425,"    {(result != 'y') && {result != 'n'}}.while_do {"},
-  {27418113,"        \"' file has been updated with:\\n\".print;		"},
-  {96341528,"    ? {capacity >= (count + 1)};"},
-  {70000684,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";        "},
-  {57820161,"    (system = system_windows).if {"},
-  {73809409,"    \"  Execute command `\".print;"},
-  {7604752,"    ? {result.in_range (INTEGER_8.minimum) to (INTEGER_8.maximum)};"},
-  {81020429,"      }.elseif { state = 3 } then {"},
-  {136870413,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {80112129,"    (ENVIRONMENT.execute_command string_tmp = 0).if {"},
-  {37098503,"  ! is_odd; "},
-  {22685704,"      blc.value Self;"},
-  {30564865,"      write std_file with input size (input.count);"},
-  {49941016,"    ? {valid_index index};"},
-  {77861389,"        }.elseif {cc = '-'} then {"},
-  {41821697,"        shell.print;"},
-  {13673480,"  - Self:SELF '>=#' Right 60 other:INTEGER :BOOLEAN <- (Self ># other) | (Self ==# other);"},
-  {75376641,"  - compile_shorter <-"},
-  {10751512,"      };"},
-  {79437845,"    -? {upper >= lower};"},
-  {51280391,"  - append_in buffer:STRING <- to_integer_32.append_in buffer;"},
-  {21118508,"  - set_next_free     n:MEMORY <- ( next_free     := n; );"},
-  {56905729,"    new_text.append lisaac_mode_path_end;"},
-  {17719298,"	ptr := MEMORY.alloc_type (typ_id.to_uinteger_32) size sz;"},
-  {18627605,"    force_put element to index;        "},
-  {86639637,"	};"},
-  {55326209,"    (path_home = NULL).if {"},
-  {80102925,"            result := 10 * result - cc.decimal_value;"},
-  {60954625,"    } else {      "},
-  {41821720,"    old_i2:=item i2;"},
-  {8260621,"    -? {valid_index index};"},
-  {92933121,"      .when 3 then {"},
-  {12983809,"  - string_tmp2:STRING := STRING.create 256;"},
-  {76943885,"    { i > count }.until_do {"},
-  {32138284,"      new.set_size_and_id (new_size - object_size);"},
-  {58466817,"      \"  `\".print;"},
-  {50603052,"    mem.put v to 0;"},
-  {136842765,"      {(i > other.count) || {item (s + i - 1) != other.item i}}.until_do {"},
-  {12980754,"    value;"},
-  {27396632,"    ? {other != NULL};"},
-  {77612045,"        }.elseif {cc = '+'} then {"},
-  {16124417,"    };"},
-  {19277313,"    title t count 0;"},
-  {76946988,"    {sz != 0} ? \"Memory: Size = 0\";"},
-  {58235905,"      ENVIRONMENT.execute_command \"mkdir -p ~/.kde/share/apps/katepart/syntax\";            "},
-  {35937793,"  - path_windows:STRING_CONSTANT := \"set path=\";"},
-  {66339841,"          file_name.copy path_home;"},
-  {11182636,"  - next_linear:MEMORY                <- CONVERT(POINTER,MEMORY).on (begin + size);"},
-  {68824597,"    -? {src_capacity >= 0};"},
-  {33693208,"    resize (j + k);"},
-  {5772836,"  - maximum:UINTEGER_64 := ~ 0.to_raw_uinteger_32;"},
-  {6440979,"  - is_not_null:BOOLEAN <- ! is_null;"},
-  {48771073,"      path_current.print;"},
-  {11179564,"  - next_linear:MEMORY                <- CONVERT(POINTER,MEMORY).on (begin + size);"},
-  {42468365,"  );"},
-  {54408728,"	new_capacity := capacity * 2;"},
-  {18378271,"  - basic_io_putc c:CHARACTER <- SYSTEM_IO.print_char c;"},
-  {77602837,"    -? {upper >= -1};"},
-  {12752940,"  - get_index p:POINTER :UINTEGER_CPU <- (p - begin_memory).to_uinteger_cpu >> 26;"},
-  {55979021,"    { (state = 4) || {i > count}}.until_do {"},
-  {57549313,"  - install_kate <-"},
-  {7102977,"  - read f:POINTER in buf:STRING size sz:INTEGER :INTEGER <-   "},
-  {30303245,"        result:=storage.fast_memcmp (other.storage) until count;"},
-  {26479128,"    ? { count == old_count };"},
-  {11832326,"  - Self:SELF '||'  Left 10  other:{BOOLEAN}   :BOOLEAN <- other.value;"},
-  {6437919,"      put_character (s.item i);"},
-  {29625869,"    ? {other != NULL};"},
-  {9587740,"      result := (memory = basic_io_eof);"},
-  {44050988,"      blc := new_page;"},
-  {25564673,"          };"},
-  {35023361,"  - file_msdos_sys:STRING_CONSTANT := \"C:\\\\msdos.sys\";"},
-  {51686913,"    update \"bin/path.h\" idf \"#define LISAAC_DIRECTORY\" with new_text confirmation FALSE;"},
-  {29635116,"      next := next_linear;"},
-  {66333720,"      count := count - len;"},
-  {44703745,"    system.print;"},
-  {31876632,"    storage.copy_from (other.storage) until (j - 1);    "},
-  {15875073,"      string_tmp2.append \" : \";"},
-  {5526554,"    p := basic_getenv(variable.to_external);"},
-  {77356545,"      \"  Sorry, `shorter' not ready...\\n\".print;"},
-  {43142700,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {82984961,"    path_current.copy string_tmp; "},
-  {78929921,"    ENVIRONMENT.execute_command \"mkdir lib_html\";		"},
-  {38167041,"      file := STRING.create_from_string path_home;"},
-  {79835149,"        cc.is_digit.if {"},
-  {8664065,"    ptr := buf.to_external;    "},
-  {16780309,"    -? {index >= 0};"},
-  {53254145,"  - lisaac_mode_path_end:STRING_CONSTANT := \"/editor/emacs/\\\" load-path))\\n\"; "},
-  {62266381,"      i := i + 1;"},
-  {44713004,"    (blc.size < minimum_size).if {"},
-  {59125804,"    siz := sz.to_integer;"},
-  {45387308,"	prev.set_size_and_id (prev.size_and_id + blc.size_and_id + object_size);"},
-  {52576775,"    (Self.to_integer_8 + '0'.code).to_character"},
-  {44709932,"    (blc.size < minimum_size).if {"},
-  {43133484,"	(blc.size < 4096) || {blc.id = id_busy}"},
-  {54159384,"	storage  := NATIVE_ARRAY(CHARACTER).create capacity;"},
-  {34349100,"    {(new_size & (POINTER.object_size -1)) = 0} ? \"Memory: Alignment.\";"},
-  {7084555,"	val := val / 10;"},
-  {57543212,"    {last != NULL} ? \"Memory: Table NULL.\";"},
-  {45381164,"	prev.set_size_and_id (prev.size_and_id + blc.size_and_id + object_size);"},
-  {17445400,"    }.elseif { capacity < new_count } then {"},
-  {81399309,"      };"},
-  {21506604,"  - delete_link_free <-"},
-  {17439245,"  - is_empty : BOOLEAN <- count == 0;"},
-  {62925313,"        \"OK.\\n\".print;  "},
-  {72627244,"    {sz <= minimum_size} ? \"Memory: Size bound.\";"},
-  {39069228,"  - search new_size:UINTEGER_CPU :MEMORY <-"},
-  {66075137,"          file_name.copy \"C:\";"},
-  {37492780,"	to_free idx;"},
-  {30284844,"  - to_busy sz:POINTER index idx:UINTEGER_CPU <-"},
-  {78252588,"    };"},
-  {45371948,"	prev.set_size_and_id (prev.size_and_id + blc.size_and_id + object_size);"},
-  {23738896,"    ? {result.in_range 0 to 9};"},
-  {39740460,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {68325896,"  - to_raw_uinteger_64:UINTEGER_64  <- CONVERT(SELF,UINTEGER_64 ).on Self;"},
-  {54153260,"	page := (result - begin_memory) & 0FFFh;"},
-  {32514049,"  - path        :STRING_CONSTANT;"},
-  {14289452,"    ? {idx < nb_page};"},
-  {73276935,"      '-'.print;"},
-  {54150188,"	page := (result - begin_memory) & 0FFFh;"},
-  {96480280,"    ? {p = to_external};"},
-  {64264705,"        \\  You can read the `editor/vim/install_vim_plugin.sh' file.\\n\".print;"},
-  {30032385,"      std_file := open_write file;"},
-  {10896400,"  - print <- IO.put_character Self;"},
-  {39734316,"    {(new_size & (POINTER.object_size - 1)) = 0} ? \"Memory: Alignment.\";"},
-  {13371922,"    };"},
-  {41298456,"    ? {valid_index i1};"},
-  {19668481,"    result := -1;"},
-  {46692865,"        \"  + target:STRING := \\\"unix\\\";\\n\" confirmation FALSE;"},
-  {22162476,"    (prev = NULL).if {"},
-  {23726608,"    ? {result.in_range 0 to 9};"},
-  {26879509,"    -? {(capacity > 0) ->> {other.is_not_null}};"},
-  {28449799,"	val := val >> 1;"},
-  {6170156,"  + previous_linear:POINTER;  "},
-  {28465196,"    ((! is_end) && {next.id = id_free}).if {"},
-  {35426817,"  - comment_unix    :STRING_CONSTANT := \"\\n# **** LISAAC COMPILER ****\\n\";"},
-  {41061389,"  - has ch:CHARACTER :BOOLEAN <- storage.fast_has ch until (count - 1);"},
-  {5252619,"    (Self = 0).if {"},
-  {6825988,"    true_block.value;"},
-  {10890268,"    ( (last_character != '\\n') && { memory != basic_io_eof } ).if {"},
-  {77088769,"      ENVIRONMENT.execute_command rm; "},
-  {40387096,"    storage.put ch to (index - 1);"},
-  {34081304,"    };"},
-  {20333569,"        (tmp.in_range 0 to n).if {"},
-  {44448300,"    result := blc.next_linear.this;        "},
-  {33179160,"    ? { i.in_range 1 to (count + 1)};"},
-  {41957389,"  - occurrences c:CHARACTER :INTEGER <-"},
-  {31602712,"      storage.move 0 to (i - 1) by j;"},
-  {28449816,"      } else {"},
-  {75509255,"      val.print_positif;"},
-  {20330497,"        (tmp.in_range 0 to n).if {"},
-  {5246490,"    ? { variable != NULL };"},
-  {23477249,"    std_file := open_read file;"},
-  {28449836,"    ((! is_end) && {next.id = id_free}).if {"},
-  {57032193,"    new_text.append lisaac_mode;"},
-  {68292097,"      };"},
-  {21906962,"    ((debug_level >= 5) && {! value}).if {"},
-  {57937421,"      }.elseif { state = 1} then {"},
-  {22818348,"    (next != NULL).if {"},
-  {56130049,"    new_text := STRING.create_from_string lisaac_mode_comment;"},
-  {77079565,"      cc := item i;"},
-  {19428370,"      crash_on ptr with_message \"User assertion violated.\";   "},
-  {80244780,"    new_size  := new_sz.align_power (POINTER.object_size); "},
-  {21903890,"    ((debug_level >= 5) && {! value}).if {"},
-  {65145368,"    ? { end <= count };"},
-  {48263212,"    {idx.in_range 1 to (minimum_size/POINTER.object_size)} ? "},
-  {7481858,"  - top_runtime_stack:POINTER <- `14`;"},
-  {6816796,"  );"},
-  {33163800,"    ? { i.in_range 1 to (count + 1)};"},
-  {136978445,"        i := i + 1;"},
-  {7484944,"    result:=code.to_integer;"},
-  {67380737,"        \"'\\t\".print;"},
-  {10647084,"  - begin:POINTER                     <- this + object_size;"},
-  {24139265,"      read std_file in input size size_file;"},
-  {13110290,"    (! test.value).if {"},
-  {33163820,"    };"},
-  {6570497,"    buf := string_tmp.to_external;"},
-  {13110293,"    -? {Self != NULL};"},
-  {52305964,"    {new_size >= POINTER.object_size} ? \"Memory: Size = 0.\";"},
-  {24145432,"      storage.copy_from (other.storage) until (count-1);"},
-  {92157464,"    (capacity > count).if {       "},
-  {10640940,"  - begin:POINTER                     <- this + object_size;"},
-  {23468056,"    (count > 0).if {"},
-  {12876296,"  - Self:SELF '>#'  Right 60 other:INTEGER :BOOLEAN <- Self > other;"},
-  {55455788,"	next2 := read_ptr next & ~ 11b.to_uinteger_cpu;"},
-  {41039916,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";"},
-  {32255532,"      new.add_link_free;"},
-  {92151320,"    (capacity > count).if {       "},
-  {73674241,"    string_tmp.append n;"},
-  {73692716,"    ptr_table := table_size (new_size / POINTER.object_size);    "},
-  {29776940,"      next.set_previous_linear (new_free.this - begin_memory);"},
-  {23471148,"  - add_link_free <-"},
-  {139210765,"    ? {! other.is_empty };"},
-  {42600984,"    ? {item i2 = old_i1};"},
-  {22550536,"    (Self >= limit_down).if {"},
-  {17833516,"    (new_size > capacity_max).if {"},
-  {75244551,"    val  := Self / 10;"},
-  {5652993,"    buf := string_tmp.to_external;"},
-  {35399212,"	((nxt.id = id_free) && {nxt.size >= sz}).if {"},
-  {26380824,"    storage.fast_replace_all old_char with new_char until (count - 1);"},
-  {11290645,"    result.clear_all (nb_elements-1); "},
-  {80876045,"        };"},
-  {12198952,"      cap := cap / 2;"},
-  {95291928,"    {p.item count = '\\0'}.until_do {"},
-  {32917548,"	next.set_previous_linear (new.this - begin_memory);"},
-  {42601004,"    {"},
-  {27286060,"    ((prev = NULL) || {new_free.id != id_free}).if {"},
-  {49562625,"      new_text.append path_current;"},
-  {79983148,"    old_size  := old_sz.align_power (POINTER.object_size); "},
-  {91233816,"  - to_external:NATIVE_ARRAY(CHARACTER) <-"},
-  {46406657,"      } else {"},
-  {59261484,"    {(siz & (POINTER.object_size -1)) = 0} ? \"Memory: Copy alignment.\";"},
-  {79961601,"    \"'\\t\".print;"},
-  {10391596,"  - this:POINTER                      <- CONVERT(MEMORY,POINTER).on Self;"},
-  {5646859,"      (Self > 0).if {"},
-  {8134693,"  - to_character:CHARACTER <- `@Self`:CHARACTER; // `13`;"},
-  {34484780,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";"},
-  {5643787,"      (Self > 0).if {"},
-  {34481708,"    {idx.in_range 0 to 63} ? \"Memory: Bound index.\";"},
-  {43928080,"    {Self='\\r'} || {Self = '\\0'} || {Self='\\f'} || {Self='\\v'}"},
-  {9701916,"    };"},
-  {85593109,"    -? {upper >= lower};"},
-  {62392845,"    };"},
-  {8790535,"  Self - ((Self / other) * other);"},
-  {27273772,"    ((prev = NULL) || {new_free.id != id_free}).if {"},
-  {94374421,"    };"},
-  {32000044,"      new.set_previous_linear (this - begin_memory);"},
-  {5643805,"  - last_string:STRING :="},
-  {11955756,"  - is_end:BOOLEAN                    <- (size_and_id & id_end).to_boolean;"}
-};
-
-// Unix Signal manager:
-void interrupt_signal(int sig)  
-{                               
-  lisaac_stack_print(top_context);     
-  print_string("User interrupt.\n"); 
-  die_with_code(1);                     
-}                                       
-
-void lisaac_push_first(_____CONTEXT *path,unsigned long code)
-{ 
-  path->back  = top_context;
-  path->code  = code;
-  top_context = path;
-} 
-  
-void lisaac_push(_____CONTEXT *path,unsigned long code)
-{ 
-  path->code  = code;
-  top_context = path;
-} 
-  
-void lisaac_stack_print(_____CONTEXT *up)      
-{ _____CONTEXT *back,*next;             
-  int j;	                              
-  next = (void *)0;                          
-  while (up != (void *)0) {                  
-    back = up -> back;                       
-    up -> back = next;                       
-    next = up;                               
-    up = back;                               
-  };                                         
-  print_string("\n============== BOTTOM ==============\n"); 
-  while (next != (void *)0) {                
-    print_string("Line #");                           
-    print_integer(__src[next->code].pos >> 17);         
-    print_string(" Column #");                        
-    print_integer((__src[next->code].pos >> 9) & 0xFF); 
-    print_string(" in ");                             
-    print_string(trace[__src[next->code].pos & 0x1FF]); 
-    print_string(".\n");                             
- if ((__src[next->code].pos & 0x1FF) != 0) { 
-    print_string(__src[next->code].line);               
-    print_char('\n');                                  
-    for (j=0;j < ((__src[next->code].pos >> 9) & 0xFF);j++) {
-      if (__src[next->code].line[j]=='\t') print_char('\t');
-      else print_char(' ');
-    };                                                  
-    print_char('^');    
-    print_char('\n');   
- }; 
-    next = next -> back;                     
-  };                                         
-  print_string("================ TOP ===============\n"); 
-  top_context = (void *)0;                   
-}                                            
- 
-void print_integer(unsigned short n) 
-{ unsigned short val;                
-  char car;                          
-  car = (n % 10) + '0';              
-  val = n / 10;                      
-  if (val != 0) print_integer(val);  
-  print_char(car);                   
-} 
-
diff --git a/make.lip b/make.lip
index 53c4b65..e83786c 100644
--- a/make.lip
+++ b/make.lip
@@ -55,7 +55,7 @@ Section Private
   + option_gcc:STRING;  
   + lib_gcc:STRING;
   
-  + target:STRING := "windows";
+  + target:STRING := "unix";
   
   + output_file:STRING;
   

-- 
Lisaac compiler



More information about the Lisaac-commits mailing list